Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dfkca.seq
There are no other files named dfkca.seq in the archive.
;DFKCA
SEQ 0001
IDENTIFICATION
--------------
PRODUCT CODE: AH-7319B-DD
DIAGNOSTIC CODE: DFKCA
PRODUCT NAME: DFKCAB0 KL10 ADVANCED INSTRUCTION DIAGNOSTIC
VERSION: 0.2
DATE RELEASED: APRIL 1979
MAINTAINED BY: LARGE SYSTEMS DIAGNOSTICS
AUTHOR: JOHN R. KIRCHOFF
COPYRIGHT (C) 1975, 1979
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE
TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO
AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE
SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL EQUIPMENT
CORPORATION.
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE
USE OR RELIABILITY OF ITS SOFTWARE IN EQUIPMENT WHICH IS NOT
SUPPLIED BY DIGITAL EQUIPMENT CORPORATION.
MAINDEC-10-DFKCA.TXT
PAGE 2 SEQ 0002
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-DFKCA.TXT
PAGE 3 SEQ 0003
1.0 ABSTRACT
THIS PDP-10 KL10 ADVANCED INSTRUCTION DIAGNOSTIC IS THE
FIRST IN A SERIES OF PDP-10 KL10 PROCESSOR FLOATING
POINT DIAGNOSTICS.
THE DIAGNOSTIC TESTS THE FUNCTIONALITY OF THE KL10
SINGLE PRECISION AND DOUBLE PRECISION FLOATING POINT
INSTRUCTIONS.
2.0 REQUIREMENTS
2.1 EQUIPMENT
A PDP-10 KL10 EQUIPPED WITH A MINIMUM OF 32K OF MEMORY
CONSOLE PROCESSOR
CONSOLE TELETYPE
DECTAPE
LINE PRINTER (OPTIONAL)
2.2 STORAGE
THE PROGRAM RUNS WITHIN 32K OF MEMORY.
2.3 PRELIMINARY PROGRAMS
PREVIOUS PROCESSOR DIAGNOSTICS
3.0 PROGRAM PROCEDURES
3.1 LOADING PROCEDURE
THIS DIAGNOSTIC REQUIRES THAT THE DECSYSTEM10 SUBROUTINE
PROGRAM BE RESIDENT IN THE PDP-10.
LOAD VIA CONSOLE PROCESSOR
DECTAPE - LOAD WITH DIAMON (DECTAPE DEVICE CODE 320)
TIME SHARING - RUN UNDER DIAMON.
MAINDEC-10-DFKCA.TXT
PAGE 4 SEQ 0004
3.2 STARTING PROCEDURE
A. SELECT OPERATIONAL CONSOLE DATA SWITCH SETTINGS (REFER TO
4.0 DATA SWITCH FUNCTIONS).
B. EXEC MODE
STAND-ALONE STARTING ADDRESS IS 30000.
C. USER MODE
RUN UNDER "DIAMON".
IN USER MODE THE FOLLOWING QUESTIONS WILL BE ASKED TO
SELECT THE OPERATIONAL SWITCHES:
TELETYPE SWITCH CONTROL ? 0,S,Y OR N (CR) -
IF THE OPERATOR TYPES "N", THE ACTUAL CONSOLE
SWITCHES ARE USED.
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-DFKCA.TXT
PAGE 5 SEQ 0005
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-DFKCA.TXT
PAGE 6 SEQ 0006
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 KL10 - ALLOW CACHE USE
1 KL10 - INHIBIT CACHE
MAINDEC-10-DFKCA.TXT
PAGE 7 SEQ 0007
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.
WHEN THE SCOPE LOOP MODE IS USED, 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-DFKCA.TXT
PAGE 8 SEQ 0008
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 'DFKCA.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-DFKCA.TXT
PAGE 9 SEQ 0009
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
THIS IS A HISTORY OF THE DEVELOPMENT OF MAINDEC-10-DFKCA
SEQ 0010
************************************************************************
PRODUCT CODE: MAINDEC-10-DFKCA
PRODUCT NAME: KL10 ADVANCED INSTUCTION DIAGNOSTIC
DATE RELEASED: JULY 1979
VERSION: 0.2
UPDATE AUTHOR: BILL SCORZELLI
CHANGES MADE:
BECAUSE OF A NEW RELEASE OF THE MICROCODE VERSION 231
THE FLOATING POINT LONG INSTUCTIONS HAVE BEEN TAKEN OUT.
************************************************************************
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 ^ DECDOC VER 00.24 3-OCT-80 14:12:58 PAGE 1
SEQ 0011
DOCUMENT
**************
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 ^
**************
COPYRIGHT 1980
DIGITAL EQUIPMENT CORPORATION
MAYNARD, MASS. 01754
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 ^ DECDOC VER 00.24 3-OCT-80 14:12:58 PAGE 2
SEQ 0012
TABLE OF CONTENTS
*******************
25 DIAGNOSTIC PARAMETERS
571 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979
606 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979
812 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979
1160 PART I.A - FSC AND NORMALIZE RETURN
1942 PART I.B-FAD AND NORM RET
2871 PART I.C-FAD (NORM RET, ROUNDING)
2991 PART I.D-FSB
3152 PART I.E-GEN TEST-FSC,FAD,FSB
6380 DIAGNOSTIC SECTION, PART TWO
7077 PART IIIB-GEN TEST-FMP,FDV
8992 DIAGNOSTIC SECTION - FIX - CONVERSION OF 0
9036 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES
9675 DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1
10171 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS
10937 DIAGNOSTIC SECTION - FIX - TRUNCATION
11108 DIAGNOSTIC SECTION - FIX - NON-AC RANGE ADDRESS
11125 DIAGNOSTIC SECTION - FIXR - ROUNDING
11318 DIAGNOSTIC SECTION - FIXR - NON-AC RANGE ADDRESS
11331 DIAGNOSTIC SECTION - FIX - ARITHMETIC OVERFLOW
11404 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS
11999 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 ^ DECDOC VER 00.24 3-OCT-80 14:12:58 PAGE 3
SEQ 0013
TABLE OF CONTENTS
*******************
12630 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS
13169 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES
13690 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES
14220 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS
14782 DIAGNOSTIC SECTION - FLTR - ROUNDING
14841 DIAGNOSTIC SECTION - FLTR - NON-AC RANGE ADDRESS
14854 DIAGNOSTIC SECTION - DMOVE - GENERAL DATA PATTERNS
14994 DIAGNOSTIC SECTION - DMOVE - AC=17, AC+1=0
15034 DIAGNOSTIC SECTION - DMOVE - AC RANGE ADDRESS
15135 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS
15344 DIAGNOSTIC SECTION - DMOVN - AC=17, AC+1=0
15394 DIAGNOSTIC SECTION - DMOVN - AC RANGE ADDRESS
15513 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS
15610 DIAGNOSTIC SECTION - DMOVN - OVERFLOW AND CARRY FLAGS
15799 DIAGNOSTIC SECTION - DMOVEM - GENERAL DATA PATTERNS
15963 DIAGNOSTIC SECTION - DMOVEM - AC=17, AC+1=0
16007 DIAGNOSTIC SECTION - DMOVEM - AC RANGE ADDRESS
16149 DIAGNOSTIC SECTION - DMOVEM - BIS FLAG
16182 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS
16369 DIAGNOSTIC SECTION - DMOVNM - AC=17, AC+1=0
16416 DIAGNOSTIC SECTION - DMOVNM - AC RANGE ADDRESS
16576 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 ^ DECDOC VER 00.24 3-OCT-80 14:12:58 PAGE 4
SEQ 0014
TABLE OF CONTENTS
*******************
16664 DIAGNOSTIC SECTION - DMOVNM - OVERFLOW AND CARRY FLAGS
16850 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS
28412 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS
30336 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND
32291 DFSB TEST-DOUBLE FLOATING POINT SUBTRACT AND ROUND
32546 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND
33660 DFDV TEST-DOUBLE FLOATING POINT DIVIDE
34398 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975
34568 *STOR* RESERVED STORAGE, SEPT 18,1979
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 ^ DECDOC VER 00.24 3-OCT-80 14:12:58 PAGE 5
SEQ 0015
*****************************************************************
25 DIAGNOSTIC PARAMETERS
*****************************************************************
215 *KI10**
221 *KL10**
378 *KI10**
384 *KL10**
*****************************************************************
571 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979
*****************************************************************
576 DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE)
LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
*****************************************************************
606 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979
*****************************************************************
609 SPECIAL SUBPROGRAM LINKAGES
620 SPECIAL SUBROUTINE FATAL HALTS
USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
*****************************************************************
812 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979
*****************************************************************
*****************************************************************
1160 PART I.A - FSC AND NORMALIZE RETURN
*****************************************************************
*****************************************************************
1942 PART I.B-FAD AND NORM RET
*****************************************************************
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 ^ DECDOC VER 00.24 3-OCT-80 14:12:58 PAGE 6
SEQ 0016
*****************************************************************
2871 PART I.C-FAD (NORM RET, ROUNDING)
*****************************************************************
*****************************************************************
2991 PART I.D-FSB
*****************************************************************
*****************************************************************
3152 PART I.E-GEN TEST-FSC,FAD,FSB
*****************************************************************
*****************************************************************
6380 DIAGNOSTIC SECTION, PART TWO
*****************************************************************
*****************************************************************
7077 PART IIIB-GEN TEST-FMP,FDV
*****************************************************************
*****************************************************************
8992 DIAGNOSTIC SECTION - FIX - CONVERSION OF 0
*****************************************************************
*****************************************************************
9036 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES
*****************************************************************
*****************************************************************
9675 DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1
*****************************************************************
*****************************************************************
10171 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS
*****************************************************************
*****************************************************************
10937 DIAGNOSTIC SECTION - FIX - TRUNCATION
*****************************************************************
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 ^ DECDOC VER 00.24 3-OCT-80 14:12:58 PAGE 7
SEQ 0017
*****************************************************************
11108 DIAGNOSTIC SECTION - FIX - NON-AC RANGE ADDRESS
*****************************************************************
*****************************************************************
11125 DIAGNOSTIC SECTION - FIXR - ROUNDING
*****************************************************************
*****************************************************************
11318 DIAGNOSTIC SECTION - FIXR - NON-AC RANGE ADDRESS
*****************************************************************
*****************************************************************
11331 DIAGNOSTIC SECTION - FIX - ARITHMETIC OVERFLOW
*****************************************************************
*****************************************************************
11404 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS
*****************************************************************
*****************************************************************
11999 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS
*****************************************************************
*****************************************************************
12630 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS
*****************************************************************
*****************************************************************
13169 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES
*****************************************************************
*****************************************************************
13690 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES
*****************************************************************
*****************************************************************
14220 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS
*****************************************************************
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 ^ DECDOC VER 00.24 3-OCT-80 14:12:58 PAGE 8
SEQ 0018
*****************************************************************
14782 DIAGNOSTIC SECTION - FLTR - ROUNDING
*****************************************************************
*****************************************************************
14841 DIAGNOSTIC SECTION - FLTR - NON-AC RANGE ADDRESS
*****************************************************************
*****************************************************************
14854 DIAGNOSTIC SECTION - DMOVE - GENERAL DATA PATTERNS
*****************************************************************
*****************************************************************
14994 DIAGNOSTIC SECTION - DMOVE - AC=17, AC+1=0
*****************************************************************
*****************************************************************
15034 DIAGNOSTIC SECTION - DMOVE - AC RANGE ADDRESS
*****************************************************************
*****************************************************************
15135 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS
*****************************************************************
*****************************************************************
15344 DIAGNOSTIC SECTION - DMOVN - AC=17, AC+1=0
*****************************************************************
*****************************************************************
15394 DIAGNOSTIC SECTION - DMOVN - AC RANGE ADDRESS
*****************************************************************
*****************************************************************
15513 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS
*****************************************************************
*****************************************************************
15610 DIAGNOSTIC SECTION - DMOVN - OVERFLOW AND CARRY FLAGS
*****************************************************************
15621 *KI10**
15627 *KL10**
15666 *KI10**
15672 *KL10**
15711 *KI10**
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 ^ DECDOC VER 00.24 3-OCT-80 14:12:58 PAGE 9
SEQ 0019
15717 *KL10**
15756 *KI10**
15762 *KL10**
*****************************************************************
15799 DIAGNOSTIC SECTION - DMOVEM - GENERAL DATA PATTERNS
*****************************************************************
*****************************************************************
15963 DIAGNOSTIC SECTION - DMOVEM - AC=17, AC+1=0
*****************************************************************
*****************************************************************
16007 DIAGNOSTIC SECTION - DMOVEM - AC RANGE ADDRESS
*****************************************************************
*****************************************************************
16149 DIAGNOSTIC SECTION - DMOVEM - BIS FLAG
*****************************************************************
16154 *KI10 ONLY TEST**
*****************************************************************
16182 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS
*****************************************************************
*****************************************************************
16369 DIAGNOSTIC SECTION - DMOVNM - AC=17, AC+1=0
*****************************************************************
*****************************************************************
16416 DIAGNOSTIC SECTION - DMOVNM - AC RANGE ADDRESS
*****************************************************************
*****************************************************************
16576 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS
*****************************************************************
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 ^ DECDOC VER 00.24 3-OCT-80 14:12:58 PAGE 10
SEQ 0020
*****************************************************************
16664 DIAGNOSTIC SECTION - DMOVNM - OVERFLOW AND CARRY FLAGS
*****************************************************************
16667 *KI10**
16673 *KL10**
16713 *KI10**
16719 *KL10**
16759 *KI10**
16765 *KL10**
16805 *KI10**
16811 *KL10**
*****************************************************************
16850 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS
*****************************************************************
*****************************************************************
28412 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS
*****************************************************************
*****************************************************************
30336 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND
*****************************************************************
*****************************************************************
32291 DFSB TEST-DOUBLE FLOATING POINT SUBTRACT AND ROUND
*****************************************************************
*****************************************************************
32546 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND
*****************************************************************
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 ^ DECDOC VER 00.24 3-OCT-80 14:12:58 PAGE 11
SEQ 0021
*****************************************************************
33660 DFDV TEST-DOUBLE FLOATING POINT DIVIDE
*****************************************************************
*****************************************************************
34398 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975
*****************************************************************
*****************************************************************
34568 *STOR* RESERVED STORAGE, SEPT 18,1979
*****************************************************************
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1
DFKCAT MAC 3-Oct-80 13:56 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979 SEQ 0022
1 ;MAINDEC-10-DFKCA
2
3 000002 DECVER=002
4 000000 MCNVER=000
5
6 XLIST
7 LIST
8 LALL
9
10 NAME \MCNVER,\DECVER^
11
12 TITLE DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 ^
13
14 XALL
15
16 ;COPYRIGHT 1975
17 ;DIGITAL EQUIPMENT CORPORATION
18 ;MARLBORO, MASS. 01752
19
20 ;JOHN R. KIRCHOFF
21
22 000137 LOC 137
23 000137 000000 000002 MCNVER,,DECVER
24 NOSYM
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2
DFKCAT MAC 3-Oct-80 13:56 DIAGNOSTIC PARAMETERS SEQ 0023
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 070350 LUUO1==ERRMES
42 070350 LUUO2==ERRMES
43 070350 LUUO3==ERRMES
44 070350 LUUO4==ERRMES
45 070350 LUUO5==ERRMES
46 070350 LUUO6==ERRMES
47 070350 LUUO7==ERRMES
48 070350 LUUO10==ERRMES
49 070350 LUUO11==ERRMES
50 070350 LUUO12==ERRMES
51 070350 LUUO13==ERRMES
52
53 ;SUBROUTINE ASSEMBLY DEFINITIONS
54
55 000100 DEBUG=100
56 000001 EXCASB=1
57 000001 USRASB=1
58 000001 KI10=1
59 000001 KL10=1
60 000001 KL10P0=1
61 000001 PGMEND=1
62 000001 ERDIAG=1
63 000001 KLOLD=1
64 030000 MODDVU=BEGIN
65 030000 MODDVL=BEGIN
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3
DFKCAT MAC 3-Oct-80 13:56 DIAGNOSTIC PARAMETERS SEQ 0024
66 ;MACROS
67
68 DEFINE SAVEAC (A,B)<
69 MOVEI AC+2,.
70 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
71 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
72 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION>
73
74 ;BEGIN ASSEMBLY PARAMETERS
75
76 030000 SADR1=BEGIN
77 030076 SADR2=RESRT1
78 030600 SADR3=RENTR1
79 030000 SADR4=BEGIN
80 030000 SADR5=BEGIN
81 030000 SADR6=BEGIN
82 254200 030000 SADR7=HALT BEGIN
83 254200 030000 SADR8=HALT BEGIN
84 254200 030000 SADR9=HALT BEGIN
85 254200 030000 SADR10=HALT BEGIN
86 254200 030000 SADR11=HALT BEGIN
87
88 000000 PAREA1=0
89 000000 PAREA2=0
90 444653 434100 PAREA3=SIXBIT/DFKCA/
91 546064 000000 PAREA4=SIXBIT/LPT/
92 000000 PAREA5=0
93 000000 PAREA6=0
94
95 001000 ITERAT=1000
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4
DFKCAT MAC 3-Oct-80 13:56 DIAGNOSTIC PARAMETERS SEQ 0025
96 DEFINE DMVE (L,A,B,C,D) <
97 ;THIS MACRO TESTS THE DMOVE INSTRUCTION
98 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
99 ;THEN, THE DATA SPECIFIED BY [XWD A,B] AND [XWD C,D] IS MOVED
100 ;FROM MEMORY TO AC, AC+1 VIA THE DMOVE INSTRUCTION.
101 ;C(AC) AND C(AC+1) ARE THEN COMPARED WITH THE TEST WORDS
102 ;[XWD A,B] AND [XWD C,D], RESPECTIVELY. THE TEST PASSES IF THESE
103 ;COMPARISONS AGREE.
104
105 Q'L'0: MOVE AC+5,[XWD A,B] ;INITIALIZE TEST WORDS
106 MOVE AC+6,[XWD C,D] ;FOR COMPARISON
107 MOVE AC,[XWD 707070,707070]
108 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1
109 DMOVE AC,[XWD A,B ;*MOVE DOUBLE WORD A,B ; C,D
110 XWD C,D] ;FROM MEMORY TO AC, AC+1
111 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
112 ER3 AC,L'1 ;FAIL IF CONTENTS(AC) NOT = A,B
113 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
114 ER4 AC+1,L'2 ;FAIL IF CONTENTS(AC+1) NOT = C,D
115 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH>
116
117
118 DEFINE DMVE17 (L,T,A,B,C,D) <
119 ;THIS MACRO TESTS THE DMOVE INSTRUCTION
120 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
121 ;THEN, THE DATA SPECIFIED BY [XWD A,B] AND [XWD C,D] IS MOVED
122 ;FROM MEMORY TO AC, AC+1 VIA THE DMOVE INSTRUCTION.
123 ;C(AC) AND C(AC+1) ARE THEN COMPARED WITH THE TEST
124 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY.
125 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
126
127 Q'T'0: MOVEM AC,%SV17# ;SAVE AC17
128 Q'L'0: MOVE AC+5,[XWD A,B] ;INITIALIZE TEST WORDS
129 MOVE AC+6,[XWD C,D] ;FOR COMPARISON
130 MOVE AC,[XWD 707070,707070]
131 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1
132 DMOVE AC,[XWD A,B ;*MOVE DOUBLE WORD A,B ; C,D
133 XWD C,D] ;FROM MEMORY TO AC, AC+1
134 Q'T'3: CAMN AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
135 JRST .+4 ;HERE IF NO ERROR
136 MOVEM AC,AC-1 ;STORE INCORRECT RESLUTS
137 MOVE AC,%SV17 ;RESTORE P
138 ER3 AC-1,L'1 ;FAIL IF CONTENTS(AC) NOT = A,B
139 CAMN AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
140 JRST .+4 ;HERE IF NO ERROR
141 MOVEM AC+1,AC-1 ;STORE INCORRECT WORD
142 MOVE AC,%SV17 ;RESTORE P
143 ER4 AC-1,L'2
144 MOVE AC,%SV17 ;RESTORE AC UNCONDITIONALLY
145 JUMPL SAC,Q'T'0 ;LOOP ON ERROR SWITCH>
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5
DFKCAT MAC 3-Oct-80 13:56 DIAGNOSTIC PARAMETERS SEQ 0026
146 DEFINE DMVN (L,A,B,C,D) <
147 ;THIS MACRO TESTS THE DMOVN INSTRUCTION
148 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
149 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
150 ;[XWD A,B] AND [XWD C,D] IS MOVED FROM MEMORY TO AC, AC+1 VIA
151 ;THE DMOVN INSTRUCTION. C(AC) AND C(AC+1) ARE THEN COMPARED
152 ;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST
153 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY.
154 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
155
156 Q'L'0: DMOVE AC,[XWD 707070,707070
157 XWD 070707,070707] ;INITIALIZE AC,AC+1
158 SETCM AC+5,[XWD A,B] ;INITIALIZE TEST WORDS FOR COMPARISON
159 IFIDN <C,D><0,0>,<
160 SETZ AC+6,
161 ADDI AC+5,1 >
162 IFIDN <C,D><400000,0>,<
163 SETZ AC+6,
164 ADDI AC+5,1 >
165 IFDIF <C,D><0,0>,<
166 IFDIF <C,D><400000,0>,<
167 MOVN AC+6,[XWD C,D]
168 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >>
169 DMOVN AC,[XWD A,B ;*MOVE NEGATIVE OF DOUBLE WORD A,B ;
170 XWD C,D] ;C,D FROM MEMORY TO AC, AC+1
171 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
172 ER3 AC,L'1 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF A,B
173 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
174 ER4 AC+1,L'2 ;FAIL IF CONTENTS(AC+1) NOT = MINUS C,D
175 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH>
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6
DFKCAT MAC 3-Oct-80 13:56 DIAGNOSTIC PARAMETERS SEQ 0027
176 DEFINE DMVN17 (L,A,B,C,D) <
177 ;THIS MACRO TESTS THE DMOVN INSTRUCTION
178 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
179 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
180 ;[XWD A,B] AND [XWD C,D] IS MOVED FROM MEMORY TO AC, AC+1 VIA
181 ;THE DMOVN INSTRUCTION. C(AC) AND C(AC+1) ARE THEN COMPARED
182 ;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST
183 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY.
184 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
185
186 Q'L'0: MOVEM AC,%SV17 ;SAVE P
187 DMOVE AC,[XWD 707070,707070
188 XWD 070707,070707] ;INITIALIZE AC,AC+1
189 SETCM AC+5,[XWD A,B] ;INITIALIZE TEST WORDS FOR COMPARISON
190 IFIDN <C,D><0,0>,<
191 SETZ AC+6,
192 ADDI AC+5,1 >
193 IFIDN <C,D><400000,0>,<
194 SETZ AC+6,
195 ADDI AC+5,1 >
196 IFDIF <C,D><0,0>,<
197 IFDIF <C,D><400000,0>,<
198 MOVN AC+6,[XWD C,D]
199 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >>
200 DMOVN AC,[XWD A,B ;*MOVE NEGATIVE OF DOUBLE WORD A,B ;
201 XWD C,D] ;C,D FROM MEMORY TO AC, AC+1
202 CAMN AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
203 JRST .+4 ;HERE IF TESTS OK
204 MOVEM AC,AC-1 ;SAVE BAD WORD
205 MOVE AC,%SV17 ;RESTORE P
206 ER3 AC-1,L'1 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF A,B
207 CAMN AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
208 JRST .+4 ;HERE IF TESTS OK
209 MOVEM AC,AC-1
210 MOVE AC,%SV17 ;RESTORE P
211 ER4 AC+1,L'2 ;FAIL IF CONTENTS(AC+1) NOT = MINUS C,D
212 MOVE AC,%SV17 ;RESTORE P UNCODITIONALLY
213 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH>
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7
DFKCAT MAC 3-Oct-80 13:56 DIAGNOSTIC PARAMETERS SEQ 0028
214 DEFINE DMVNF (L,A,B,C,D,KIEF,KIUF,KLEF,KLUF) <
215 ;**KI10**
216 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES NOT SET OVERFLOW
217 ;OR CARRY FLAGS ON THE KI10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
218 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
219 ;IF ANY OF THESE FLAGS ARE SET, THE TEST FAILS.
220
221 ;**KL10**
222 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
223 ;OR CARRY FLAGS ON THE KL10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
224 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
225 ;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
226
227 Q'L'0: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS
228 DMOVN AC+1,[XWD A,B ;*DMOVN TEST
229 XWD C,D]
230 JSP AC,.+1 ;READ FLAGS
231 Q'L'1: TLZ AC,027777 ;CLEAR EXTRA JUNK
232 TLNE AC,USERF ;IN USER MODE ?
233 JRST Q'L'4 ;YES
234 SKIPE KLFLG ;KL10 ?
235 JRST Q'L'3 ;YES
236 ;KI10 EXEC MODE
237 CAME AC,[KIEF,,Q'L'1]
238 ER13 AC,L'1 ;FAIL IF OVFL OR CRY0,1 FLG SET
239 Q'L'2: JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH
240 JRST Q'L'6
241 ;KL10 EXEC MODE
242 Q'L'3: CAME AC,[KLEF,,Q'L'1]
243 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET
244 JRST Q'L'2
245 ;KL10/KI10 USER MODE
246 Q'L'4: SKIPE KLFLG ;KL10 ?
247 JRST Q'L'5 ;YES
248 ;KI10 USER MODE
249 CAME AC,[KIUF,,Q'L'1]
250 ER13 AC,L'1 ;FAIL IF ANY FLAGS SET
251 JRST Q'L'2
252 ;KL10 USER MODE
253 Q'L'5: CAME AC,[KLUF,,Q'L'1]
254 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET
255 JRST Q'L'2
256
257 Q'L'6: JRST .+1>
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8
DFKCAT MAC 3-Oct-80 13:56 DIAGNOSTIC PARAMETERS SEQ 0029
258 DEFINE DMVM (L,A,B,C,D) <
259 ;THIS MACRO TESTS THE DMOVEM INSTRUCTION
260 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
261 ;TEST WORDS AND AC,AC+1 ARE LOADED WITH THE TEST WORDS.
262 ;THEN, THE DATA SPECIFIED BY [XWD A,B] AND [XWD C,D] IS MOVED
263 ;FROM AC, AC+1 TO MEMORY (TSTWD, TSTWD+1) VIA
264 ;THE DMOVEM INSTRUCTION. C(TSTWD) AND C(TSTWD+1) ARE THEN
265 ;COMPARED WITH THE TEST WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY.
266 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
267
268 Q'L'0: DMOVE AC,[XWD 707070,707070
269 XWD 070707,070707] ;INITIALIZE TEST WORDS
270 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST
271 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM
272 DMOVE AC,[XWD A,B
273 XWD C,D] ;INITIALIZE AC,AC+1
274 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1
275 ;TO MEMORY (TSTWD, TSTWD+1)
276 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON
277 CAME AC,[XWD A,B] ;WAS TSTWD LOADED CORRECTLY?
278 ER5 AC,L'1 ;FAIL IF CONTENTS(TSTWD) NOT = A,B
279 CAME AC+1,[XWD C,D] ;WAS TSTWD+1 LOADED CORRECTLY?
280 ER6 AC+1,L'2 ;FAIL IF CONTENTS(TSTWD+1) NOT = C,D
281 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH>
282
283 DEFINE DMVNM (L,A,B,C,D) <
284 ;THIS MACRO TESTS THE DMOVNM INSTRUCTION
285 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
286 ;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS.
287 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
288 ;[XWD A,B] AND [XWD C,D] IS MOVED FROM AC, AC+1 TO MEMORY
289 ;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION.
290 ;C(TSTWD) AND C(TSTWD+1) ARE THEN COMPARED WITH THE
291 ;NEGATIVE (TWOS COMPLEMENT) OF THE TEST
292 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY.
293 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
294
295 Q'L'0: DMOVE AC,[XWD 707070,707070
296 XWD 070707,070707]
297 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS
298 DMOVE AC,[XWD A,B
299 XWD C,D] ;INITIALIZE AC,AC+1
300 DMOVN AC+5,[XWD A,B
301 XWD C,D] ;SET-UP TO CHECK RESULTS
302 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
303 ;TO MEMORY (TSTWD, TSTWD+1)
304 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1
305 CAME AC,<AC+5>&17 ;WAS TSTWD LOADED CORRECTLY?
306 ER5 AC,L'1 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF A,B
307 CAME AC+1,<AC+6>&17 ;WAS TSTWD+1 LOADED CORRECTLY?
308 ER6 AC+1,L'2 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS C,D
309 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH>
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 9
DFKCAT MAC 3-Oct-80 13:56 DIAGNOSTIC PARAMETERS SEQ 0030
310 DEFINE DMVM17 (L,A,B,C,D) <
311 ;THIS MACRO TESTS THE DMOVEM INSTRUCTION
312 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
313 ;TEST WORDS AND AC,AC+1 ARE LOADED WITH THE TEST WORDS.
314 ;THEN, THE DATA SPECIFIED BY [XWD A,B] AND [XWD C,D] IS MOVED
315 ;FROM AC, AC+1 TO MEMORY (TSTWD, TSTWD+1) VIA THE DMOVEM INSTRUCTION.
316 ;C(TSTWD) AND C(TSTWD+1) ARE THEN COMPARED WITH THE TEST
317 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY.
318 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
319
320 Q'L'0: MOVEM AC,%SV17 ;SAVE AC17 CAUSE IT HAS PDP
321 DMOVE AC,[XWD 707070,707070
322 XWD 070707,070707] ;INITIALIZE TEST WORDS
323 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST
324 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM
325 DMOVE AC,[XWD A,B
326 XWD C,D] ;INITIALIZE AC,AC+1
327 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1
328 ;TO MEMORY (TSTWD, TSTWD+1)
329 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON
330 CAMN AC,[XWD A,B] ;WAS TSTWD LOADED CORRECTLY?
331 JRST .+4 ;HERE IF TESTS OK
332 MOVEM AC,AC-1 ;SAVE BAD WORD
333 MOVE AC,%SV17 ;RESTORE P
334 ER5 AC-1,L'1 ;FAIL IF CONTENTS(TSTWD) NOT = A,B
335 CAMN AC+1,[XWD C,D] ;WAS TSTWD+1 LOADED CORRECTLY?
336 JRST .+4 ;HERE IF TESTS OK
337 MOVEM AC,AC-1 ;SAVE BAD WORD
338 MOVE AC,%SV17 ;RESTORE P
339 ER6 AC+1,L'2 ;FAIL IF CONTENTS(TSTWD+1) NOT = C,D
340 MOVE AC,%SV17 ;RESTORE AC UNCONDITIONALLY
341 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH>
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 10
DFKCAT MAC 3-Oct-80 13:56 DIAGNOSTIC PARAMETERS SEQ 0031
342 DEFINE DMVNM17 (L,A,B,C,D) <
343 ;THIS MACRO TESTS THE DMOVNM INSTRUCTION
344 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
345 ;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS.
346 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
347 ;[XWD A,B] AND [XWD C,D] IS MOVED FROM AC, AC+1 TO MEMORY
348 ;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION.
349 ;C(TSTWD) AND C(TSTWD+1) ARE THEN COMPARED WITH THE
350 ;NEGATIVE (TWOS COMPLEMENT) OF THE TEST
351 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY.
352 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
353
354 Q'L'0: DMOVE AC,[XWD 707070,707070
355 XWD 070707,070707]
356 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS
357 DMOVE AC,[XWD A,B
358 XWD C,D] ;INITIALIZE AC,AC+1
359 DMOVN AC+5,[XWD A,B
360 XWD C,D] ;SET-UP TO CHECK RESULTS
361 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
362 ;TO MEMORY (TSTWD, TSTWD+1)
363
364 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1
365 CAMN AC,<AC+5>&17 ;WAS TSTWD LOADED CORRECTLY?
366 JRST .+4
367 MOVEM AC,AC-1 ;SAVE BAD WORD
368 MOVE AC,%SV17 ;RESTORE P
369 ER5 AC-1,L'1 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF A,B
370 CAMN AC+1,<AC+6>&17 ;WAS TSTWD+1 LOADED CORRECTLY?
371 JRST .+4 ;HERE IF TESTS OK
372 MOVEM AC,AC-1 ;SAVE BAD WORD
373 MOVE AC,%SV17
374 ER6 AC+1,L'2 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS C,D
375 MOVE AC,%SV17
376 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH>
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 11
DFKCAT MAC 3-Oct-80 13:56 DIAGNOSTIC PARAMETERS SEQ 0032
377 DEFINE DMVNMF (L,A,B,C,D,KIEF,KIUF,KLEF,KLUF) <
378 ;**KI10**
379 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES NOT SET OVERFLOW
380 ;OR CARRY FLAGS ON THE KI10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
381 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
382 ;IF ANY OF THESE FLAGS ARE SET, THE TEST FAILS.
383
384 ;**KL10**
385 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
386 ;OR CARRY FLAGS ON THE KL10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
387 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
388 ;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
389
390 Q'L'0: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS
391 DMOVE AC,[XWD A,B
392 XWD C,D] ;SETUP INITIAL
393 DMOVNM AC,TSTWD ;*DMOVNM TEST
394 JSP AC,.+1 ;READ FLAGS
395 Q'L'1: TLZ AC,027777 ;CLEAR EXTRA JUNK
396 TLNE AC,USERF ;IN USER MODE ?
397 JRST Q'L'4 ;YES
398 SKIPE KLFLG ;KL10 ?
399 JRST Q'L'3 ;YES
400 ;KI10 EXEC MODE
401 CAME AC,[KIEF,,Q'L'1]
402 ER13 AC,L'1 ;FAIL IF OVFL OR CRY0,1 FLG SET
403 Q'L'2: JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH
404 JRST Q'L'6
405 ;KL10 EXEC MODE
406 Q'L'3: CAME AC,[KLEF,,Q'L'1]
407 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET
408 JRST Q'L'2
409 ;KL10/KI10 USER MODE
410 Q'L'4: SKIPE KLFLG ;KL10 ?
411 JRST Q'L'5 ;YES
412 ;KI10 USER MODE
413 CAME AC,[KIUF,,Q'L'1]
414 ER13 AC,L'1 ;FAIL IF ANY FLAGS SET
415 JRST Q'L'2
416 ;KL10 USER MODE
417 Q'L'5: CAME AC,[KLUF,,Q'L'1]
418 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET
419 JRST Q'L'2
420
421 Q'L'6: JRST .+1>
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 12
DFKCAT MAC 3-Oct-80 13:56 DIAGNOSTIC PARAMETERS SEQ 0033
422 DEFINE DFA (T,A,B,C,D,E,F,G,H,I,M,K,L) <
423 R'T'00: DMOVE AC,[A,,B
424 C,,D]
425 DFAD AC,[E,,F
426 G,,H]
427 CAME AC,[I,,M]
428 ER3 AC,T'01
429 CAME AC+1,[K,,L]
430 ER4 AC+1,T'01
431 JUMPL AC+4,R'T'00 ;LOOP ON ERROR SWITCH>
432
433 DEFINE DFS (T,A,B,C,D,E,F,G,H,I,M,K,L) <
434 R'T'00: DMOVE AC,[A,,B
435 C,,D]
436 DFSB AC,[E,,F
437 G,,H]
438 CAME AC,[I,,M]
439 ER3 AC,T'01
440 CAME AC+1,[K,,L]
441 ER4 AC+1,T'01
442 JUMPL AC+4,R'T'00 ;LOOP ON ERROR SWITCH>
443
444 DEFINE DFM (T,A,B,C,D,E,F,G,H,I,M,K,L) <
445 R'T'00: DMOVE AC,[A,,B
446 C,,D]
447 DFMP AC,[E,,F
448 G,,H]
449 CAME AC,[I,,M]
450 ER3 AC,T'01
451 CAME AC+1,[K,,L]
452 ER4 AC+1,T'01
453 JUMPL AC+4,R'T'00 ;LOOP ON ERROR SWITCH>
454
455 DEFINE DFD (T,A,B,C,D,E,F,G,H,I,M,K,L) <
456 R'T'00: DMOVE AC,[A,,B
457 C,,D]
458 DFDV AC,[E,,F
459 G,,H]
460 CAME AC,[I,,M]
461 ER3 AC,T'01
462 CAME AC+1,[K,,L]
463 ER4 AC+1,T'01
464 JUMPL AC+4,R'T'00 ;LOOP ON ERROR SWITCH>
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 13
DFKCAT MAC 3-Oct-80 13:56 DIAGNOSTIC PARAMETERS SEQ 0034
465 DEFINE DFARP (T,A,B,C,D,E,F,G,H,I,M,K,L) <
466 DMOVE AC,[A,,B
467 C,,D]
468 DFAD AC,[E,,F
469 G,,H]
470 CAME AC,[I,,M]
471 ER3 AC,T
472 CAME AC+1,[K,,L]
473 ER4 AC+1,T
474 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH>
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 14
DFKCAT MAC 3-Oct-80 13:56 DIAGNOSTIC PARAMETERS SEQ 0035
475 DEFINE SDFA (T,A,B,C,D,E,F,G,H,I,M,K,L) <
476 S'T'00: DMOVE AC,[A,,B
477 C,,D]
478 DFAD AC,[E,,F
479 G,,H]
480 CAME AC,[I,,M]
481 ER3 AC,T'01
482 CAME AC+1,[K,,L]
483 ER4 AC+1,T'01
484 JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH>
485
486 DEFINE SDFS (T,A,B,C,D,E,F,G,H,I,M,K,L) <
487 S'T'00: DMOVE AC,[A,,B
488 C,,D]
489 DFSB AC,[E,,F
490 G,,H]
491 CAME AC,[I,,M]
492 ER3 AC,T'01
493 CAME AC+1,[K,,L]
494 ER4 AC+1,T'01
495 JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH>
496
497 DEFINE SDFM (T,A,B,C,D,E,F,G,H,I,M,K,L) <
498 S'T'00: DMOVE AC,[A,,B
499 C,,D]
500 DFMP AC,[E,,F
501 G,,H]
502 CAME AC,[I,,M]
503 ER3 AC,T'01
504 CAME AC+1,[K,,L]
505 ER4 AC+1,T'01
506 JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH>
507
508 DEFINE SDFMKL (T,A,B,C,D,E,F,G,H,I,M,K,L,KL1,KL2,KL3,KL4) <
509 S'T'00: DMOVE AC,[A,,B
510 C,,D]
511 DFMP AC,[E,,F
512 G,,H]
513 SKIPE KLFLG
514 JRST S'T'05
515 CAME AC,[I,,M]
516 ER3 AC,T'01
517 CAME AC+1,[K,,L]
518 ER4 AC+1,T'01
519 S'T'06: JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH
520 JRST S'T'07
521
522 S'T'05: CAME AC,[KL1,,KL2]
523 ER3 AC,T'01
524 CAME AC+1,[KL3,,KL4]
525 ER4 AC+1,T'01
526 JRST S'T'06
527
528 S'T'07: JRST .+1 >
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 15
DFKCAT MAC 3-Oct-80 13:56 DIAGNOSTIC PARAMETERS SEQ 0036
529 DEFINE SDFD (T,A,B,C,D,E,F,G,H,I,M,K,L) <
530 S'T'00: DMOVE AC,[A,,B
531 C,,D]
532 DFDV AC,[E,,F
533 G,,H]
534 CAME AC,[I,,M]
535 ER3 AC,T'01
536 CAME AC+1,[K,,L]
537 ER4 AC+1,T'01
538 JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH>
539
540 DEFINE SDFDKL (T,A,B,C,D,E,F,G,H,I,M,K,L,KL1,KL2,KL3,KL4) <
541 S'T'00: DMOVE AC,[A,,B
542 C,,D]
543 DFDV AC,[E,,F
544 G,,H]
545 SKIPE KLFLG
546 JRST S'T'05
547 CAME AC,[I,,M]
548 ER3 AC,T'01
549 CAME AC+1,[K,,L]
550 ER4 AC+1,T'01
551 S'T'06: JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH
552 JRST S'T'07
553
554 S'T'05: CAME AC,[KL1,,KL2]
555 ER3 AC,T'01
556 CAME AC+1,[KL3,,KL4]
557 ER4 AC+1,T'01
558 JRST S'T'06
559
560 S'T'07: JRST .+1 >
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 16
DFKCAT MAC 3-Oct-80 13:56 DIAGNOSTIC PARAMETERS SEQ 0037
561 DEFINE SDFARP (T,A,B,C,D,E,F,G,H,I,M,K,L) <
562 DMOVE AC,[A,,B
563 C,,D]
564 DFAD AC,[E,,F
565 G,,H]
566 CAME AC,[I,,M]
567 ER3 AC,T
568 CAME AC+1,[K,,L]
569 ER4 AC+1,T
570 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH>
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1
PARAM KLM 18-Sep-79 17:16 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979 SEQ 0038
571 SUBTTL *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979
572
573 DEFINE S,<; *********************************************************************>
574
575 ; **********************************************************************
576 ;*DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE)
577 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
578 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
579 ; **********************************************************************
580
581 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION
582 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS
583 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE
584
585 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
586 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
587 010000 DING== 010000 ;RING BELL ON ERROR
588
589 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR
590 002000 ERSTOP==002000 ;HALT ON TEST ERROR
591 001000 PALERS==001000 ;PRINT ALL ERRORS
592
593 000400 RELIAB==000400 ;RELIABILITY MODE
594 000200 TXTINH==000200 ;INHIBIT ERROR TEXT
595 000100 INHPAG==000100 ;INHIBIT PAGING
596
597 000040 MODDVC==000040 ;MODIFY DEVICE CODE
598 000020 INHCSH==000020 ;INHIBIT CACHE
599 000010 OPRSEL==000010 ;OPERATOR SELECTION
600
601 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH
602
603 000002 KAHZ50==000002 ;KA10 50 HERTZ POWER
604
605 ;SWITCH 17 RESERVED !!!
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2
PARAM KLM 18-Sep-79 17:16 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979 SEQ 0039
606 SUBTTL *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979
607
608 ; **********************************************************************
609 ;*SPECIAL SUBPROGRAM LINKAGES
610 ; **********************************************************************
611
612 027772 FSELNK= 27772 ;FILE SELECT LINK
613 027773 FRDLNK= 27773 ;FILE READ LINK
614 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS
615 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS
616 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS
617 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS
618
619 ; **********************************************************************
620 ;*SPECIAL SUBROUTINE FATAL HALTS
621 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
622 ; **********************************************************************
623
624 ;ADDRESS TAG REASON
625 ;---------------------
626
627 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION
628 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR
629 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR
630 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT
631 ; 1014 DTEBER ;DTE20 INTERRUPT WITHOUT DOORBELL
632 ; 1015 DTECER ;DTE20 CLOCK INTERRUPT WITHOUT FLAG SET
633 ; 1016 CPIERR ;CPU INITIALIZATION ERROR
634 ; 1017 EOPERR ;END OF PROGRAM ERROR
635 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT
636
637 ; **********************************************************************
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3
PARAM KLM 18-Sep-79 17:16 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979 SEQ 0040
638 ; **********************************************************************
639 ;OPERATOR DEFINITIONS (NON-UUO'S)
640 ; **********************************************************************
641
642 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL
643 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN
644 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST
645 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST
646 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S
647 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT
648 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT
649 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT
650
651 ; **********************************************************************
652 ;SUBROUTINE INITIALIZATION CALL
653 ; **********************************************************************
654
655 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION
656
657 ; **********************************************************************
658 ;HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
659 ; **********************************************************************
660
661 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT
662 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT
663
664 ; **********************************************************************
665 ;TERMINAL INPUT UUO'S
666 ;ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
667 ;CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
668 ; **********************************************************************
669
670 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER
671 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y
672 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N
673 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD
674 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD
675 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD
676 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK
677 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK
678 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD
679 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT
680 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4
PARAM KLM 18-Sep-79 17:16 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979 SEQ 0041
681 ;TERMINAL OUTPUT UUO'S.
682
683 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD
684 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED
685 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE
686 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED
687 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE
688 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED
689 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE
690 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED
691 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE
692 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED
693 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE
694 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED
695 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER
696 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED
697 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT
698 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED
699 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS
700 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED
701 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS
702 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED
703 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS
704 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED
705 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS
706 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED
707 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS
708 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED
709 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS
710 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED
711 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS
712 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED.
713 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS
714 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED
715 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL
716 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED
717 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6
718 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
719 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S
720 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
721 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S
722 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
723 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S
724 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5
PARAM KLM 18-Sep-79 17:16 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979 SEQ 0042
725 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME
726 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD
727 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED
728 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE
729 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD
730 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED
731 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
732 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
733 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE
734 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED
735 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
736 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
737 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL
738
739 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE
740
741 DEFINE PMSG (ARG),<
742 PSIXM [SIXBIT\ARG'_\]>
743
744 DEFINE PMSGF (ARG),<
745 PSIXMF [SIXBIT\ARG'_\]>
746
747 ;SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
748 ; CONSERVES CORE OVER ASCIZ
749
750 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]>
751
752 ;CONSOLE SWITCH INPUT UUO.
753 ;READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
754 ; USER MODE.
755
756 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES
757
758 ;CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
759 ;EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
760
761 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - PDP-11 CLOCK
762 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - DK20 METER
763
764 ;KL10 ONLY CACHE OPERATION UUO'S
765
766 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE
767 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH
768 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6
PARAM KLM 18-Sep-79 17:16 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979 SEQ 0043
769 ;END OF PASS/PROGRAM UUOS
770
771 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
772 ;DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
773
774 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS
775 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO
776
777 ;MEMORY MANAGEMENT UUO'S
778 ;UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
779 ;ADDRESS CONVERSION, ETC...
780
781 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY
782 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY
783 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT
784 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT
785 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK
786 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP
787 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP
788
789 ;DEVICE CODE MODIFICATION UUO
790 ;ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
791 ;IOT'S TO A DIFFERENT DEVICE CODE.
792
793 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER
794 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM
795
796 IFNDEF MODDVL,<MODDVL==BEGIN>
797 IFNDEF MODDVU,<MODDVU==BEGIN>
798
799 ;"DIAMON" FILE SELECTION AND READ UUOS
800
801 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION
802 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA
803 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA
804 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA
805
806 ;KI10 ONLY UUO FOR PRINTING MARGIN VALUES
807
808 037700 000002 OPDEF PNTMGN [37B8!16B12!2] ;PRINT MARGIN VALUE
809
810 XLIST
811 LIST
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0044
812 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979
813
814 030000 LOC 30000
815
816 ; **********************************************************************
817 ;PROGRAM STARTING ADDRESSES
818 ;THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
819 ;NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
820 ;OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
821 ;MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
822 ; **********************************************************************
823
824 030000 254 00 1 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START
825 030001 254 00 0 00 030613 $START: JRST START ;MODE CHECK STARTING ADDRESS
826
827 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START
828
829 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START
830
831 030004 254 00 0 00 030000 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START
832
833 030005 254 00 0 00 030076 PFSTRT: JRST SADR2 ;POWER FAIL RESTART
834
835 030006 254 00 0 00 030600 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY)
836
837 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT"
838 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START
839
840 030010 254 00 0 00 030616 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE)
841 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE
842 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE
843
844 030013 254200 030000 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS
845 030014 254200 030000 START2: SADR8 ; "
846 030015 254200 030000 START3: SADR9 ; "
847 030016 254200 030000 START4: SADR10 ; "
848 030017 254200 030000 START5: SADR11 ; "
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0045
849 ; **********************************************************************
850 ;PROGRAM FIXED PARAMETER AREA
851 ; **********************************************************************
852
853 030020 444653 434100 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME
854 030021 546064 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION
855 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER
856 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES
857 030024 000000 001000 ITRCNT: ITERAT ;PROGRAM ITERATIONS
858 030025 000000 030602 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME
859 030026 000000 000002 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL
860 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT
861 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT
862 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED
863 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED
864 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE
865 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS
866 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER
867 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER
868
869 ; **********************************************************************
870 ;PROGRAM VARIABLE PARAMETER AREA
871 ; **********************************************************************
872
873 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG
874 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10
875 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
876 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG
877 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG
878 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10
879 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG
880 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS
881 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT
882 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG
883 030051 000000 000000 TESTPC: 0 ;SUBTEST PC
884 030052 000000 000000 ERRPC: 0 ;ERROR PC
885 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS
886 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME
887 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE
888 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0046
889 ; **********************************************************************
890 ;SPECIAL PROGRAM DISPATCH ADDRESSES
891 ; **********************************************************************
892
893 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS
894 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM
895 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN
896 030062 000000 030000 CNTLC: SADR5 ;CONTROL C XFER ADDRESS
897 030063 000000 030000 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS
898 030064 CPOPJ1: ;SKIP RETURN
899 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO
900 030065 CPOPJ: ;NON-SKIP REGULAR RETURN
901 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN
902 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE
903 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE
904 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX)
905 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE
906 030072 255 00 0 00 000000 $ITRX1: JFCL ; "
907 030073 255 00 0 00 000000 $USRHL: JFCL ; "
908 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE
909 030075 255 00 0 00 000000 $RSRTY: JFCL ; "
910 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX)
911 030077 255 00 0 00 000000 RESRT2: JFCL ; "
912 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE
913 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE
914 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT
915
916 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR)
917 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT
918 030105 000000 000000 0 ;INITED AS (JRST $ITRC1)
919
920 ; **********************************************************************
921 ;PROCESSOR CONTROL STORAGE
922 ; **********************************************************************
923
924 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0
925 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI
926 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR
927 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI)
928 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI)
929
930 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO
931 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO
932
933 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS
934 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG
935 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG
936 030120 000000 000000 %COREC: 0 ; " CORRECT DATA
937 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG
938 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA
939 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0047
940 ; **********************************************************************
941 ;UUO DISPATCH TABLE
942 ; **********************************************************************
943 XLIST
944 LIST
945 030124 070350 030070 UUODIS: LUUO1,,$UUOER
946 030125 070350 070350 LUUO3,,LUUO2
947 030126 070350 070350 LUUO5,,LUUO4
948 030127 070350 070350 LUUO7,,LUUO6
949 030130 070350 070350 LUUO11,,LUUO10
950 030131 070350 070350 LUUO13,,LUUO12
951 030132 030070 030070 LUUO15,,LUUO14
952 030133 030070 030070 LUUO17,,LUUO16
953 030134 030070 030070 LUUO21,,LUUO20
954 030135 030070 030070 LUUO23,,LUUO22
955 030136 030070 030070 LUUO25,,LUUO24
956 030137 030070 030070 LUUO27,,LUUO26
957 030140 030070 030070 LUUO31,,LUUO30
958 030141 030070 030070 LUUO33,,LUUO32
959
960 ; **********************************************************************
961 ;MEMORY MANAGMENT STORAGE
962 ; **********************************************************************
963
964 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
965 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
966 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.)
967 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY
968 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE
969
970 ; **********************************************************************
971 ;PRINT CONTROL STORAGE
972 ; **********************************************************************
973
974 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
975 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE
976 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG
977 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS
978 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL
979 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME
980 030225 000000 000000 $TWCNT: 0 ;TIME WAITED
981 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG
982 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG
983 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE
984 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR
985 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR
986 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER
987 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG
988 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG
989 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG
990 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG
991 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS
992 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0048
993 ; **********************************************************************
994 ;THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
995 ;TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
996 ; MOVEI NAME
997 ; PNTA ;OR PNTAF
998 ; **********************************************************************
999
1000 030242 CRLF: ASCII/
1001 030242 015 012 000 000 000 /
1002 030243 CRLF2: ASCII/
1003
1004 030243 015 012 015 012 000 /
1005 030244 054 000 000 000 000 COMMA: ASCII/,/
1006 030245 056 000 000 000 000 PERIOD: ASCII/./
1007 030246 040 000 000 000 000 SPACE: ASCII/ /
1008 030247 011 000 000 000 000 TAB: ASCII/ /
1009 030250 MINUS:
1010 030250 055 000 000 000 000 HYPEN: ASCII/-/
1011 030251 053 000 000 000 000 PLUS: ASCII/+/
1012 030252 052 000 000 000 000 AST: ASCII/*/
1013 030253 100 000 000 000 000 ATSIN: ASCII/@/
1014 030254 050 000 000 000 000 LFP: ASCII/(/
1015 030255 051 000 000 000 000 RTP: ASCII/)/
1016 030256 007 0000000000 BELL: BYTE (7) 007
1017 030257 077 000 000 000 000 QUEST: ASCII/?/
1018 030260 057 000 000 000 000 SLASH: ASCII!/!
1019 030261 044 000 000 000 000 DOLLAR: ASCII/$/
1020 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX
1021 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR
1022 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT
1023
1024 ; **********************************************************************
1025 ;USER MODE OUTPUT FILE INFORMATION
1026 ; **********************************************************************
1027
1028 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER
1029 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME
1030 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION
1031 030272 BLOCK 2
1032
1033 ; **********************************************************************
1034 ;DISK UPDATE MODE FILE INFORMATION
1035 ; **********************************************************************
1036
1037 030274 $IBUF: BLOCK 3
1038 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/
1039 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/
1040 030301 BLOCK 2
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0049
1041 ; **********************************************************************
1042 ;PUSHDOWN LIST CONTROL INFORMATION
1043 ; **********************************************************************
1044
1045 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST
1046 030304 PLISTS: BLOCK 200
1047 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST
1048
1049 ; **********************************************************************
1050 ;POWER LINE CLOCK FREQUENCY FLAG
1051 ; **********************************************************************
1052
1053 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE
1054
1055 ; **********************************************************************
1056 ;KL10 CACHE CONTROL FLAGS
1057 ; **********************************************************************
1058
1059 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0
1060 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0
1061
1062 ; **********************************************************************
1063 ;NUMBER INPUT DIGIT FLAG
1064 ; **********************************************************************
1065
1066 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED
1067
1068 ; **********************************************************************
1069 ;KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
1070 ; **********************************************************************
1071
1072 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
1073
1074 ; **********************************************************************
1075 ;ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
1076 ; **********************************************************************
1077
1078 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO
1079 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO
1080 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
1081
1082 ; **********************************************************************
1083 ;SPECIAL USERS UUO INTERCEPT INSTRUCTION
1084 ; **********************************************************************
1085
1086 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0050
1087 ; **********************************************************************
1088 ;USER MODE MONITOR TYPE FLAG
1089 ; **********************************************************************
1090
1091 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20
1092
1093 ; **********************************************************************
1094 ;SPECIAL USERS MUUO INTERCEPT INSTRUCTION
1095 ; **********************************************************************
1096
1097 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER
1098
1099 ; **********************************************************************
1100 ;SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
1101 ; **********************************************************************
1102
1103 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
1104
1105 ; **********************************************************************
1106 ;"SWITCH" CALL USAGE CONTROL
1107 ; **********************************************************************
1108
1109 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
1110
1111 ; **********************************************************************
1112 ;SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
1113 ; **********************************************************************
1114
1115 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
1116 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
1117
1118 ; **********************************************************************
1119 ;SM10 (KS-10) PROCESSOR TYPE FLAG
1120 ; **********************************************************************
1121
1122 030524 000000 000000 SM10: 0 ;IF -1 THIS IS A KS-10
1123
1124 ; **********************************************************************
1125 ;RIGHT HALF SWITCHES PROMPT TABLE ADDRESS
1126 ; **********************************************************************
1127
1128 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE
1129
1130 ; **********************************************************************
1131 ;SPECIAL FUTURE EXPANSION ROOM
1132 ; **********************************************************************
1133
1134 ; **********************************************************************
1135 ;END OF FIXED STORAGE
1136 ; **********************************************************************
1137
1138 030577 LOC 30577
1139 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1
DFKCA1 MAC 3-Oct-80 13:56 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0051
1140 030600 037 05 0 00 000002 RENTR1: DROPDV ;CLOSE LOGICAL OUTPUT FILE
1141 030601 040 00 0 00 070555 CALL [SIXBIT .EXIT.]
1142
1143 030602 PGMNAM: ASCIZ?
1144 030602 015 012 113 114 061 KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1
1145 030603 060 040 101 104 126
1146 030604 101 116 103 105 104
1147 030605 040 111 116 123 124
1148 030606 122 125 103 124 111
1149 030607 117 116 040 104 111
1150 030610 101 107 116 117 123
1151 030611 124 111 103 040 043
1152 030612 061 040 015 012 000 ?
1153 ;INITIALIZE SUBROUTINES
1154
1155 030613 265 00 0 00 030011 START: PGMINT
1156 030614 200 00 0 00 070556 MOVE [ASCIZ/CA/]
1157 030615 202 00 0 00 070471 MOVEM TLET ;INITIALIZE TEST LETTER
1158
1159 030616 254 00 0 00 030617 STARTA: JRST .+1 ;GO PERFORM DIAGNOSTIC
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2
DFKCA1 MAC 3-Oct-80 13:56 PART I.A - FSC AND NORMALIZE RETURN SEQ 0052
1160 SUBTTL PART I.A - FSC AND NORMALIZE RETURN
1161
1162 ;PART I.A - FSC AND NORMALIZE RETURN
1163 ;FAILURE RESULTS IN A LOSS
1164 ;OF EXPONENT
1165 ;AC=570400000000
1166 ;SCALE=7
1167 ;FINAL AC=777400000000
1168
1169 030617 CA00: LALL
1170
1171 000013 AC=13
1172 SAVEAC (1,1)^
1173 030617 201 15 0 00 030617 MOVEI AC+2,.
1174 030620 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1175 030621 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1176 030622 202 15 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1177
1178 030623 205 11 0 00 777400 O12300: MOVSI AC-2,777400 ;SETUP FOR COMPARISON
1179 030624 205 13 0 00 570400 MOVSI AC,570400 ;SETUP AC
1180 030625 132 13 0 00 000007 FSC AC,7 ;RESCALE
1181 030626 316 13 0 00 000011 CAMN AC,AC-2 ;TEST AC=777400000000
1182 030627 003 13 0 00 012301 ER3 AC,12301
1183 030630 321 15 0 00 030623 JUMPL AC+2,O12300 ;LOOP ON ERROR SWITCH
1184
1185 ;AC=000400000000
1186 ;SCALE=0
1187 ;FAILURE RESULTS IN AN EXPONENT
1188 ;EQUAL TO 376
1189
1190 000012 AC=12
1191 SAVEAC (1,1)^
1192 030631 201 14 0 00 030631 MOVEI AC+2,.
1193 030632 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1194 030633 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1195 030634 202 14 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1196
1197 030635 205 10 0 00 376400 O12400: MOVSI AC-2,376400 ;SETUP FOR COMPARISON
1198 030636 205 12 0 00 000400 MOVSI AC,400 ;SETUP AC
1199 030637 132 12 0 00 000000 FSC AC,0 ;RESCALE
1200 030640 316 12 0 00 000010 CAMN AC,AC-2 ;TEST EXP=376
1201 030641 003 12 0 00 012401 ER3 AC,12401 ;SCAD SC COMP SETUP FAILED
1202 030642 321 14 0 00 030635 JUMPL AC+2,O12400 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3
DFKCA1 MAC 3-Oct-80 13:56 PART I.A - FSC AND NORMALIZE RETURN SEQ 0053
1203 ;AC=175400000000
1204 ;SCALE=0
1205 ;FAILURE RESULTS IN AN EXPONENT
1206 ;EQUAL TO 002
1207
1208 000011 AC=11
1209 SAVEAC (1,1)^
1210 030643 201 13 0 00 030643 MOVEI AC+2,.
1211 030644 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1212 030645 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1213 030646 202 13 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1214
1215 030647 205 07 0 00 177400 O12500: MOVSI AC-2,177400 ;SETUP FOR COMPARISON
1216 030650 205 11 0 00 175400 MOVSI AC,175400 ;SETUP AC
1217 030651 132 11 0 00 000000 FSC AC,0 ;RESCALE
1218 030652 316 11 0 00 000007 CAMN AC,AC-2 ;TEST EXP=177
1219 030653 003 11 0 00 012501 ER3 AC,12501
1220 030654 321 13 0 00 030647 JUMPL AC+2,O12500 ;LOOP ON ERROR SWITCH
1221
1222 ;AC=000400000000
1223 ;SCALE=0
1224 ;FAILURE OF 1, 2, OR 3 RESULTS IN AN
1225 ;EXPONENT EQUAL TO 377
1226
1227 000010 AC=10
1228 SAVEAC (1,1)^
1229 030655 201 12 0 00 030655 MOVEI AC+2,.
1230 030656 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1231 030657 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1232 030660 202 12 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1233
1234 030661 205 06 0 00 377400 O12600: MOVSI AC-2,377400 ;SETUP FOR COMPARISON
1235 030662 205 10 0 00 000400 MOVSI AC,400 ;SETUP AC
1236 030663 132 10 0 00 000000 FSC AC,0 ;RESCALE
1237 030664 316 10 0 00 000006 CAMN AC,AC-2 ;TEST EXP=377
1238 030665 003 10 0 00 012601 ER3 AC,12601
1239 030666 321 12 0 00 030661 JUMPL AC+2,O12600 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4
DFKCA1 MAC 3-Oct-80 13:56 PART I.A - FSC AND NORMALIZE RETURN SEQ 0054
1240 ;AC=000400000000
1241 ;SCALE=177
1242 ;FAILURE RESULTS IN AN
1243 ;EXPONENT=0
1244
1245 000007 AC=7
1246 SAVEAC (1,1)^
1247 030667 201 11 0 00 030667 MOVEI AC+2,.
1248 030670 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1249 030671 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1250 030672 202 11 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1251
1252 030673 205 05 0 00 000400 O12700: MOVSI AC-2,400 ;SETUP FOR COMPARISON
1253 030674 205 07 0 00 000400 MOVSI AC,400 ;SETUP AC
1254 030675 132 07 0 00 000177 FSC AC,177 ;RESCALE
1255 030676 316 07 0 00 000005 CAMN AC,AC-2 ;TEST EXP=0
1256 030677 003 07 0 00 012701 ER3 AC,12701
1257 030700 321 11 0 00 030673 JUMPL AC+2,O12700 ;LOOP ON ERROR SWITCH
1258 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-1
DFKCA1 MAC 3-Oct-80 13:56 PART I.A - FSC AND NORMALIZE RETURN SEQ 0055
1259 ;AC=000400000000
1260 ;SCALE=201,202,204,210,220,240,300
1261 ;FAILURE OF A BIT TO SET RESULTS IN AN
1262 ;EXPONENT EQUAL TO 200
1263
1264 000006 AC=6
1265 SAVEAC (1,1)^
1266 030701 201 10 0 00 030701 MOVEI AC+2,.
1267 030702 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1268 030703 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1269 030704 202 10 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1270
1271 013000 SN=13000
1272 000000 ZZ=0
1273
1274 O13000: REPEAT ^D7, ;TEST BITS 8-2
1275 <SN=SN+1
1276 ZZ=ZZ+ZZ
1277 IFE ZZ,<ZZ=1>
1278 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1279 MOVSI AC,400 ;SETUP AC
1280 FSC AC,200+ZZ ;RESCALE
1281 CAMN AC,AC-2 ;TEST EXP=200
1282 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
1283 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1284 >
1285 013001 SN=SN+1
1286 000000 ZZ=ZZ+ZZ
1287 000001 IFE ZZ,<ZZ=1>
1288 030705 205 04 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1289 030706 205 06 0 00 000400 MOVSI AC,400 ;SETUP AC
1290 030707 132 06 0 00 000201 FSC AC,200+ZZ ;RESCALE
1291 030710 316 06 0 00 000004 CAMN AC,AC-2 ;TEST EXP=200
1292 030711 003 06 0 00 013001 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
1293 030712 321 10 0 00 030705 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1294
1295 013002 SN=SN+1
1296 000002 ZZ=ZZ+ZZ
1297 IFE ZZ,<ZZ=1>
1298 030713 205 04 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1299 030714 205 06 0 00 000400 MOVSI AC,400 ;SETUP AC
1300 030715 132 06 0 00 000202 FSC AC,200+ZZ ;RESCALE
1301 030716 316 06 0 00 000004 CAMN AC,AC-2 ;TEST EXP=200
1302 030717 003 06 0 00 013002 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
1303 030720 321 10 0 00 030713 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1304
1305 013003 SN=SN+1
1306 000004 ZZ=ZZ+ZZ
1307 IFE ZZ,<ZZ=1>
1308 030721 205 04 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1309 030722 205 06 0 00 000400 MOVSI AC,400 ;SETUP AC
1310 030723 132 06 0 00 000204 FSC AC,200+ZZ ;RESCALE
1311 030724 316 06 0 00 000004 CAMN AC,AC-2 ;TEST EXP=200
1312 030725 003 06 0 00 013003 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
1313 030726 321 10 0 00 030721 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-2
DFKCA1 MAC 3-Oct-80 13:56 PART I.A - FSC AND NORMALIZE RETURN SEQ 0056
1314
1315 013004 SN=SN+1
1316 000010 ZZ=ZZ+ZZ
1317 IFE ZZ,<ZZ=1>
1318 030727 205 04 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1319 030730 205 06 0 00 000400 MOVSI AC,400 ;SETUP AC
1320 030731 132 06 0 00 000210 FSC AC,200+ZZ ;RESCALE
1321 030732 316 06 0 00 000004 CAMN AC,AC-2 ;TEST EXP=200
1322 030733 003 06 0 00 013004 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
1323 030734 321 10 0 00 030727 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1324
1325 013005 SN=SN+1
1326 000020 ZZ=ZZ+ZZ
1327 IFE ZZ,<ZZ=1>
1328 030735 205 04 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1329 030736 205 06 0 00 000400 MOVSI AC,400 ;SETUP AC
1330 030737 132 06 0 00 000220 FSC AC,200+ZZ ;RESCALE
1331 030740 316 06 0 00 000004 CAMN AC,AC-2 ;TEST EXP=200
1332 030741 003 06 0 00 013005 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
1333 030742 321 10 0 00 030735 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1334
1335 013006 SN=SN+1
1336 000040 ZZ=ZZ+ZZ
1337 IFE ZZ,<ZZ=1>
1338 030743 205 04 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1339 030744 205 06 0 00 000400 MOVSI AC,400 ;SETUP AC
1340 030745 132 06 0 00 000240 FSC AC,200+ZZ ;RESCALE
1341 030746 316 06 0 00 000004 CAMN AC,AC-2 ;TEST EXP=200
1342 030747 003 06 0 00 013006 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
1343 030750 321 10 0 00 030743 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1344
1345 013007 SN=SN+1
1346 000100 ZZ=ZZ+ZZ
1347 IFE ZZ,<ZZ=1>
1348 030751 205 04 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1349 030752 205 06 0 00 000400 MOVSI AC,400 ;SETUP AC
1350 030753 132 06 0 00 000300 FSC AC,200+ZZ ;RESCALE
1351 030754 316 06 0 00 000004 CAMN AC,AC-2 ;TEST EXP=200
1352 030755 003 06 0 00 013007 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
1353 030756 321 10 0 00 030751 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1354
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5
DFKCA1 MAC 3-Oct-80 13:56 PART I.A - FSC AND NORMALIZE RETURN SEQ 0057
1355 ;TEST ABILITY TO TRANSFER ZERO'S
1356 ;TEST ABILITY TO CLEAR SC8-2
1357 ;EXPONENT =1,2,4,10,20,40,100
1358 ;SCALE = 375,373,367,357,337,277,177
1359 ;FAILURE OF A BIT TO CLEAR RESULTS
1360 ;IN AN EXPONENT = 377
1361
1362 000005 AC=5
1363 SAVEAC (1,1)^
1364 030757 201 07 0 00 030757 MOVEI AC+2,.
1365 030760 202 07 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1366 030761 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1367 030762 202 07 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1368
1369 013100 SN=13100
1370 000200 WW=200
1371 001000 XX=1000
1372 000176 ZZ=176
1373
1374 O13100: REPEAT ^D7, ;TEST BITS 8-2
1375 <SN=SN+1
1376 WW=WW+WW
1377 XX=XX+WW
1378 ZZ=ZZ+ZZ+1
1379 MOVSI AC-2,377400 ;SETUP FOR COMPARISON
1380 MOVSI AC,XX ;SETUP AC
1381 FSC AC,ZZ ;RESCALE
1382 CAMN AC,AC-2 ;TEST EXP = 377
1383 ER3 AC,SN ;BIT UNDER TEST FAILED TO CLEAR
1384 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1385 >
1386 013101 SN=SN+1
1387 000400 WW=WW+WW
1388 001400 XX=XX+WW
1389 000375 ZZ=ZZ+ZZ+1
1390 030763 205 03 0 00 377400 MOVSI AC-2,377400 ;SETUP FOR COMPARISON
1391 030764 205 05 0 00 001400 MOVSI AC,XX ;SETUP AC
1392 030765 132 05 0 00 000375 FSC AC,ZZ ;RESCALE
1393 030766 316 05 0 00 000003 CAMN AC,AC-2 ;TEST EXP = 377
1394 030767 003 05 0 00 013101 ER3 AC,SN ;BIT UNDER TEST FAILED TO CLEAR
1395 030770 321 07 0 00 030763 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1396
1397 013102 SN=SN+1
1398 001000 WW=WW+WW
1399 002400 XX=XX+WW
1400 000773 ZZ=ZZ+ZZ+1
1401 030771 205 03 0 00 377400 MOVSI AC-2,377400 ;SETUP FOR COMPARISON
1402 030772 205 05 0 00 002400 MOVSI AC,XX ;SETUP AC
1403 030773 132 05 0 00 000773 FSC AC,ZZ ;RESCALE
1404 030774 316 05 0 00 000003 CAMN AC,AC-2 ;TEST EXP = 377
1405 030775 003 05 0 00 013102 ER3 AC,SN ;BIT UNDER TEST FAILED TO CLEAR
1406 030776 321 07 0 00 030771 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1407
1408 013103 SN=SN+1
1409 002000 WW=WW+WW
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5-1
DFKCA1 MAC 3-Oct-80 13:56 PART I.A - FSC AND NORMALIZE RETURN SEQ 0058
1410 004400 XX=XX+WW
1411 001767 ZZ=ZZ+ZZ+1
1412 030777 205 03 0 00 377400 MOVSI AC-2,377400 ;SETUP FOR COMPARISON
1413 031000 205 05 0 00 004400 MOVSI AC,XX ;SETUP AC
1414 031001 132 05 0 00 001767 FSC AC,ZZ ;RESCALE
1415 031002 316 05 0 00 000003 CAMN AC,AC-2 ;TEST EXP = 377
1416 031003 003 05 0 00 013103 ER3 AC,SN ;BIT UNDER TEST FAILED TO CLEAR
1417 031004 321 07 0 00 030777 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1418
1419 013104 SN=SN+1
1420 004000 WW=WW+WW
1421 010400 XX=XX+WW
1422 003757 ZZ=ZZ+ZZ+1
1423 031005 205 03 0 00 377400 MOVSI AC-2,377400 ;SETUP FOR COMPARISON
1424 031006 205 05 0 00 010400 MOVSI AC,XX ;SETUP AC
1425 031007 132 05 0 00 003757 FSC AC,ZZ ;RESCALE
1426 031010 316 05 0 00 000003 CAMN AC,AC-2 ;TEST EXP = 377
1427 031011 003 05 0 00 013104 ER3 AC,SN ;BIT UNDER TEST FAILED TO CLEAR
1428 031012 321 07 0 00 031005 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1429
1430 013105 SN=SN+1
1431 010000 WW=WW+WW
1432 020400 XX=XX+WW
1433 007737 ZZ=ZZ+ZZ+1
1434 031013 205 03 0 00 377400 MOVSI AC-2,377400 ;SETUP FOR COMPARISON
1435 031014 205 05 0 00 020400 MOVSI AC,XX ;SETUP AC
1436 031015 132 05 0 00 007737 FSC AC,ZZ ;RESCALE
1437 031016 316 05 0 00 000003 CAMN AC,AC-2 ;TEST EXP = 377
1438 031017 003 05 0 00 013105 ER3 AC,SN ;BIT UNDER TEST FAILED TO CLEAR
1439 031020 321 07 0 00 031013 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1440
1441 013106 SN=SN+1
1442 020000 WW=WW+WW
1443 040400 XX=XX+WW
1444 017677 ZZ=ZZ+ZZ+1
1445 031021 205 03 0 00 377400 MOVSI AC-2,377400 ;SETUP FOR COMPARISON
1446 031022 205 05 0 00 040400 MOVSI AC,XX ;SETUP AC
1447 031023 132 05 0 00 017677 FSC AC,ZZ ;RESCALE
1448 031024 316 05 0 00 000003 CAMN AC,AC-2 ;TEST EXP = 377
1449 031025 003 05 0 00 013106 ER3 AC,SN ;BIT UNDER TEST FAILED TO CLEAR
1450 031026 321 07 0 00 031021 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1451
1452 013107 SN=SN+1
1453 040000 WW=WW+WW
1454 100400 XX=XX+WW
1455 037577 ZZ=ZZ+ZZ+1
1456 031027 205 03 0 00 377400 MOVSI AC-2,377400 ;SETUP FOR COMPARISON
1457 031030 205 05 0 00 100400 MOVSI AC,XX ;SETUP AC
1458 031031 132 05 0 00 037577 FSC AC,ZZ ;RESCALE
1459 031032 316 05 0 00 000003 CAMN AC,AC-2 ;TEST EXP = 377
1460 031033 003 05 0 00 013107 ER3 AC,SN ;BIT UNDER TEST FAILED TO CLEAR
1461 031034 321 07 0 00 031027 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1462
1463 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5-2
DFKCA1 MAC 3-Oct-80 13:56 PART I.A - FSC AND NORMALIZE RETURN SEQ 0059
1464 ;AC=200400000000
1465 ;SCALE=5
1466 ;FAILURE OF ANY ONE RESULTS IN LOSS
1467 ;OF THE EXPONENT. THE RESULTANT EXPONENT
1468 ;IS EQUAL TO THE SCALING FACTOR
1469
1470 000014 AC=14
1471 SAVEAC (1,1)^
1472 031035 201 16 0 00 031035 MOVEI AC+2,.
1473 031036 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1474 031037 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1475 031040 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1476
1477 031041 205 12 0 00 005400 O13200: MOVSI AC-2,5400 ;SETUP FOR COMPARISON
1478 031042 205 14 0 00 200400 MOVSI AC,200400 ;SETUP AC
1479 031043 132 14 0 00 000005 FSC AC,5 ;RESCALE
1480 031044 316 14 0 00 000012 CAMN AC,AC-2 ;TEST EXP=5
1481 031045 003 14 0 00 013201 ER3 AC,13201
1482 031046 321 16 0 00 031041 JUMPL AC+2,O13200 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6
DFKCA1 MAC 3-Oct-80 13:56 PART I.A - FSC AND NORMALIZE RETURN SEQ 0060
1483 ;EXPONENT = 201,202,204,210,220,240,300
1484 ;SCALE=0
1485 ;FAILURE OF A BIT TO SET RESULTS IN AN
1486 ;EXPONENT EQUAL TO 200
1487
1488 000014 AC=14
1489 SAVEAC (1,1)^
1490 031047 201 16 0 00 031047 MOVEI AC+2,.
1491 031050 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1492 031051 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1493 031052 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1494
1495 013300 SN=13300
1496 000200 XX=200
1497 201000 ZZ=201000
1498
1499 O13300: REPEAT ^D7, ;TEST BITS 8-2
1500 <SN=SN+1
1501 XX=XX+XX
1502 ZZ=ZZ+XX
1503 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1504 MOVSI AC,ZZ ;SETUP AC
1505 FSC AC,0 ;RESCALE
1506 CAMN AC,AC-2 ;TEST EXP=200
1507 ER3 AC,SN ;GATE UNDER TEST FAILED TO SET
1508 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1509 >
1510 013301 SN=SN+1
1511 000400 XX=XX+XX
1512 201400 ZZ=ZZ+XX
1513 031053 205 12 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1514 031054 205 14 0 00 201400 MOVSI AC,ZZ ;SETUP AC
1515 031055 132 14 0 00 000000 FSC AC,0 ;RESCALE
1516 031056 316 14 0 00 000012 CAMN AC,AC-2 ;TEST EXP=200
1517 031057 003 14 0 00 013301 ER3 AC,SN ;GATE UNDER TEST FAILED TO SET
1518 031060 321 16 0 00 031053 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1519
1520 013302 SN=SN+1
1521 001000 XX=XX+XX
1522 202400 ZZ=ZZ+XX
1523 031061 205 12 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1524 031062 205 14 0 00 202400 MOVSI AC,ZZ ;SETUP AC
1525 031063 132 14 0 00 000000 FSC AC,0 ;RESCALE
1526 031064 316 14 0 00 000012 CAMN AC,AC-2 ;TEST EXP=200
1527 031065 003 14 0 00 013302 ER3 AC,SN ;GATE UNDER TEST FAILED TO SET
1528 031066 321 16 0 00 031061 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1529
1530 013303 SN=SN+1
1531 002000 XX=XX+XX
1532 204400 ZZ=ZZ+XX
1533 031067 205 12 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1534 031070 205 14 0 00 204400 MOVSI AC,ZZ ;SETUP AC
1535 031071 132 14 0 00 000000 FSC AC,0 ;RESCALE
1536 031072 316 14 0 00 000012 CAMN AC,AC-2 ;TEST EXP=200
1537 031073 003 14 0 00 013303 ER3 AC,SN ;GATE UNDER TEST FAILED TO SET
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6-1
DFKCA1 MAC 3-Oct-80 13:56 PART I.A - FSC AND NORMALIZE RETURN SEQ 0061
1538 031074 321 16 0 00 031067 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1539
1540 013304 SN=SN+1
1541 004000 XX=XX+XX
1542 210400 ZZ=ZZ+XX
1543 031075 205 12 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1544 031076 205 14 0 00 210400 MOVSI AC,ZZ ;SETUP AC
1545 031077 132 14 0 00 000000 FSC AC,0 ;RESCALE
1546 031100 316 14 0 00 000012 CAMN AC,AC-2 ;TEST EXP=200
1547 031101 003 14 0 00 013304 ER3 AC,SN ;GATE UNDER TEST FAILED TO SET
1548 031102 321 16 0 00 031075 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1549
1550 013305 SN=SN+1
1551 010000 XX=XX+XX
1552 220400 ZZ=ZZ+XX
1553 031103 205 12 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1554 031104 205 14 0 00 220400 MOVSI AC,ZZ ;SETUP AC
1555 031105 132 14 0 00 000000 FSC AC,0 ;RESCALE
1556 031106 316 14 0 00 000012 CAMN AC,AC-2 ;TEST EXP=200
1557 031107 003 14 0 00 013305 ER3 AC,SN ;GATE UNDER TEST FAILED TO SET
1558 031110 321 16 0 00 031103 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1559
1560 013306 SN=SN+1
1561 020000 XX=XX+XX
1562 240400 ZZ=ZZ+XX
1563 031111 205 12 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1564 031112 205 14 0 00 240400 MOVSI AC,ZZ ;SETUP AC
1565 031113 132 14 0 00 000000 FSC AC,0 ;RESCALE
1566 031114 316 14 0 00 000012 CAMN AC,AC-2 ;TEST EXP=200
1567 031115 003 14 0 00 013306 ER3 AC,SN ;GATE UNDER TEST FAILED TO SET
1568 031116 321 16 0 00 031111 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1569
1570 013307 SN=SN+1
1571 040000 XX=XX+XX
1572 300400 ZZ=ZZ+XX
1573 031117 205 12 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1574 031120 205 14 0 00 300400 MOVSI AC,ZZ ;SETUP AC
1575 031121 132 14 0 00 000000 FSC AC,0 ;RESCALE
1576 031122 316 14 0 00 000012 CAMN AC,AC-2 ;TEST EXP=200
1577 031123 003 14 0 00 013307 ER3 AC,SN ;GATE UNDER TEST FAILED TO SET
1578 031124 321 16 0 00 031117 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1579
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7
DFKCA1 MAC 3-Oct-80 13:56 PART I.A - FSC AND NORMALIZE RETURN SEQ 0062
1580 ;TEST SC DATA1-8 GATES - (ZERO'S)
1581 ;TEST SCAD INPUT GATES - (ZERO'S)
1582 ;EXPONENT = 376,375,373,367,357,337,277,177
1583 ;SCALE = 1,2,4,10,20,40,100,200
1584 ;FAILURE RESULTS IN AN EXPONENT =
1585 ;0,1,3,7,17,37,77,177
1586
1587 000013 AC=13
1588 SAVEAC (1,1)^
1589 031125 201 15 0 00 031125 MOVEI AC+2,.
1590 031126 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1591 031127 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1592 031130 202 15 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1593
1594 ;TEST SCAD8
1595 031131 205 11 0 00 000400 O13400: MOVSI AC-2,400 ;SETUP FOR COMPARISON
1596 031132 205 13 0 00 376400 MOVSI AC,376400 ;SETUP AC
1597 031133 132 13 0 00 000001 FSC AC,1 ;RESCALE
1598 031134 316 13 0 00 000011 CAMN AC,AC-2 ;TEST EXP = 0
1599 031135 003 13 0 00 013401 ER3 AC,13401 ;SCAD 8 SET
1600 031136 321 15 0 00 031131 JUMPL AC+2,O13400 ;LOOP ON ERROR SWITCH
1601
1602 ;TEST SCAD7
1603 031137 205 11 0 00 001400 O13500: MOVSI AC-2,1400 ;SETUP FOR COMPARISON
1604 031140 205 13 0 00 375400 MOVSI AC,375400 ;SETUP AC
1605 031141 132 13 0 00 000002 FSC AC,2 ;RESCALE
1606 031142 316 13 0 00 000011 CAMN AC,AC-2 ;TEST EXP=1
1607 031143 003 13 0 00 013501 ER3 AC,13501 ;SCAD7 SET
1608 031144 321 15 0 00 031137 JUMPL AC+2,O13500 ;LOOP ON ERROR SWITCH
1609
1610 ;TEST SCAD6
1611 031145 205 11 0 00 003400 O13600: MOVSI AC-2,3400 ;SETUP FOR COMPARISON
1612 031146 205 13 0 00 373400 MOVSI AC,373400 ;SETUP AC
1613 031147 132 13 0 00 000004 FSC AC,4 ;RESCALE
1614 031150 316 13 0 00 000011 CAMN AC,AC-2 ;TEST EXP=3
1615 031151 003 13 0 00 013601 ER3 AC,13601 ;SCAD6 SET
1616 031152 321 15 0 00 031145 JUMPL AC+2,O13600 ;LOOP ON ERROR SWITCH
1617
1618 ;TEST SCAD5
1619 031153 205 11 0 00 007400 O13700: MOVSI AC-2,7400 ;SETUP FOR COMPARISON
1620 031154 205 13 0 00 367400 MOVSI AC,367400 ;SETUP AC
1621 031155 132 13 0 00 000010 FSC AC,10 ;RESCALE
1622 031156 316 13 0 00 000011 CAMN AC,AC-2 ;TEST EXP=7
1623 031157 003 13 0 00 013701 ER3 AC,13701 ;SCAD5 SET
1624 031160 321 15 0 00 031153 JUMPL AC+2,O13700 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8
DFKCA1 MAC 3-Oct-80 13:56 PART I.A - FSC AND NORMALIZE RETURN SEQ 0063
1625 ;TEST SCAD4
1626 031161 205 11 0 00 017400 O14000: MOVSI AC-2,17400 ;SETUP FOR COMPARISON
1627 031162 205 13 0 00 357400 MOVSI AC,357400 ;SETUP AC
1628 031163 132 13 0 00 000020 FSC AC,20 ;RESCALE
1629 031164 316 13 0 00 000011 CAMN AC,AC-2 ;TEST EXP=17
1630 031165 003 13 0 00 014001 ER3 AC,14001 ;SCAD4 SET
1631 031166 321 15 0 00 031161 JUMPL AC+2,O14000 ;LOOP ON ERROR SWITCH
1632
1633 ;TEST SCAD3
1634 031167 205 11 0 00 037400 O14100: MOVSI AC-2,37400 ;SETUP FOR COMPARISON
1635 031170 205 13 0 00 337400 MOVSI AC,337400 ;SETUP AC
1636 031171 132 13 0 00 000040 FSC AC,40 ;RESCALE
1637 031172 316 13 0 00 000011 CAMN AC,AC-2 ;TEST EXP=37
1638 031173 003 13 0 00 014101 ER3 AC,14101 ;SCAD3 SET
1639 031174 321 15 0 00 031167 JUMPL AC+2,O14100 ;LOOP ON ERROR SWITCH
1640
1641 ;TEST SCAD2
1642 031175 205 11 0 00 077400 O14200: MOVSI AC-2,77400 ;SETUP FOR COMPARISON
1643 031176 205 13 0 00 277400 MOVSI AC,277400 ;SETUP AC
1644 031177 132 13 0 00 000100 FSC AC,100 ;RESCALE
1645 031200 316 13 0 00 000011 CAMN AC,AC-2 ;TEST EXP=77
1646 031201 003 13 0 00 014201 ER3 AC,14201 ;SCAD2 SET
1647 031202 321 15 0 00 031175 JUMPL AC+2,O14200 ;LOOP ON ERROR SWITCH
1648
1649 ;TEST SCAD1
1650 031203 205 11 0 00 177400 O14300: MOVSI AC-2,177400 ;SETUP FOR COMPARISON
1651 031204 205 13 0 00 177400 MOVSI AC,177400 ;SETUP AC
1652 031205 132 13 0 00 000200 FSC AC,200 ;RESCALE
1653 031206 316 13 0 00 000011 CAMN AC,AC-2 ;TEST EXP=177
1654 031207 003 13 0 00 014301 ER3 AC,14301 ;SCAD1 SET
1655 031210 321 15 0 00 031203 JUMPL AC+2,O14300 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 9
DFKCA1 MAC 3-Oct-80 13:56 PART I.A - FSC AND NORMALIZE RETURN SEQ 0064
1656 ;AC=577200000000
1657 ;SCALE=1
1658 ;FAILURE RESULTS IN AN EXPONENT
1659 ;EQUAL TO 776
1660
1661 000012 AC=12
1662 SAVEAC (1,1)^
1663 031211 201 14 0 00 031211 MOVEI AC+2,.
1664 031212 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1665 031213 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1666 031214 202 14 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1667
1668 031215 205 10 0 00 776200 O14400: MOVSI AC-2,776200 ;SETUP FOR COMPARISON
1669 031216 205 12 0 00 577200 MOVSI AC,577200 ;SETUP AC
1670 031217 132 12 0 00 000001 FSC AC,1 ;RESCALE
1671 031220 316 12 0 00 000010 CAMN AC,AC-2 ;TEST EXP=776
1672 031221 003 12 0 00 014401 ER3 AC,14401
1673 031222 321 14 0 00 031215 JUMPL AC+2,O14400 ;LOOP ON ERROR SWITCH
1674
1675 ;AC=577200000000
1676 ;SCALING FACTOR=0
1677 ;SETTING SCAD+1 EN RESULTS IN AN
1678 ;EXPONENT=576
1679
1680 000011 AC=11
1681 SAVEAC (1,1)^
1682 031223 201 13 0 00 031223 MOVEI AC+2,.
1683 031224 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1684 031225 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1685 031226 202 13 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1686
1687 031227 205 07 0 00 576200 O14500: MOVSI AC-2,576200 ;SETUP FOR COMPARISON
1688 031230 205 11 0 00 577200 MOVSI AC,577200 ;SETUP AC
1689 031231 132 11 0 00 000000 FSC AC,0 ;RESCALE
1690 031232 316 11 0 00 000007 CAMN AC,AC-2 ;TEST EXP=576
1691 031233 003 11 0 00 014501 ER3 AC,14501
1692 031234 321 13 0 00 031227 JUMPL AC+2,O14500 ;LOOP ON ERROR SWITCH
1693 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 9-1
DFKCA1 MAC 3-Oct-80 13:56 PART I.A - FSC AND NORMALIZE RETURN SEQ 0065
1694 ;TEST ABILITY TO TRANSFER ZERO'S
1695 ;EXP=776,775,773,767,757,737,677,577
1696 ;SCALING FACTOR=0
1697 ;FAILURE OF A BIT TO CLEAR RESULTS IN
1698 ;AN EXPONENT=777
1699
1700 000010 AC=10
1701 SAVEAC (1,1)^
1702 031235 201 12 0 00 031235 MOVEI AC+2,.
1703 031236 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1704 031237 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1705 031240 202 12 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1706 014600 SN=14600
1707 376400 ZZ=376400
1708
1709 O14600: REPEAT ^D8,
1710 <SN=SN+1
1711 ZZ=<ZZ+ZZ+1000>&777777
1712 MOVSI AC-2,777200 ;SETUP FOR COMPARISON
1713 MOVSI AC,200+ZZ ;SETUP AC
1714 FSC AC,0 ;RESCALE
1715 CAMN AC,AC-2 ;TEST EXP=777
1716 ER3 AC,SN
1717 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1718 >
1719 014601 SN=SN+1
1720 776000 ZZ=<ZZ+ZZ+1000>&777777
1721 031241 205 06 0 00 777200 MOVSI AC-2,777200 ;SETUP FOR COMPARISON
1722 031242 205 10 0 00 776200 MOVSI AC,200+ZZ ;SETUP AC
1723 031243 132 10 0 00 000000 FSC AC,0 ;RESCALE
1724 031244 316 10 0 00 000006 CAMN AC,AC-2 ;TEST EXP=777
1725 031245 003 10 0 00 014601 ER3 AC,SN
1726 031246 321 12 0 00 031241 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1727
1728 014602 SN=SN+1
1729 775000 ZZ=<ZZ+ZZ+1000>&777777
1730 031247 205 06 0 00 777200 MOVSI AC-2,777200 ;SETUP FOR COMPARISON
1731 031250 205 10 0 00 775200 MOVSI AC,200+ZZ ;SETUP AC
1732 031251 132 10 0 00 000000 FSC AC,0 ;RESCALE
1733 031252 316 10 0 00 000006 CAMN AC,AC-2 ;TEST EXP=777
1734 031253 003 10 0 00 014602 ER3 AC,SN
1735 031254 321 12 0 00 031247 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1736
1737 014603 SN=SN+1
1738 773000 ZZ=<ZZ+ZZ+1000>&777777
1739 031255 205 06 0 00 777200 MOVSI AC-2,777200 ;SETUP FOR COMPARISON
1740 031256 205 10 0 00 773200 MOVSI AC,200+ZZ ;SETUP AC
1741 031257 132 10 0 00 000000 FSC AC,0 ;RESCALE
1742 031260 316 10 0 00 000006 CAMN AC,AC-2 ;TEST EXP=777
1743 031261 003 10 0 00 014603 ER3 AC,SN
1744 031262 321 12 0 00 031255 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1745
1746 014604 SN=SN+1
1747 767000 ZZ=<ZZ+ZZ+1000>&777777
1748 031263 205 06 0 00 777200 MOVSI AC-2,777200 ;SETUP FOR COMPARISON
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 9-2
DFKCA1 MAC 3-Oct-80 13:56 PART I.A - FSC AND NORMALIZE RETURN SEQ 0066
1749 031264 205 10 0 00 767200 MOVSI AC,200+ZZ ;SETUP AC
1750 031265 132 10 0 00 000000 FSC AC,0 ;RESCALE
1751 031266 316 10 0 00 000006 CAMN AC,AC-2 ;TEST EXP=777
1752 031267 003 10 0 00 014604 ER3 AC,SN
1753 031270 321 12 0 00 031263 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1754
1755 014605 SN=SN+1
1756 757000 ZZ=<ZZ+ZZ+1000>&777777
1757 031271 205 06 0 00 777200 MOVSI AC-2,777200 ;SETUP FOR COMPARISON
1758 031272 205 10 0 00 757200 MOVSI AC,200+ZZ ;SETUP AC
1759 031273 132 10 0 00 000000 FSC AC,0 ;RESCALE
1760 031274 316 10 0 00 000006 CAMN AC,AC-2 ;TEST EXP=777
1761 031275 003 10 0 00 014605 ER3 AC,SN
1762 031276 321 12 0 00 031271 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1763
1764 014606 SN=SN+1
1765 737000 ZZ=<ZZ+ZZ+1000>&777777
1766 031277 205 06 0 00 777200 MOVSI AC-2,777200 ;SETUP FOR COMPARISON
1767 031300 205 10 0 00 737200 MOVSI AC,200+ZZ ;SETUP AC
1768 031301 132 10 0 00 000000 FSC AC,0 ;RESCALE
1769 031302 316 10 0 00 000006 CAMN AC,AC-2 ;TEST EXP=777
1770 031303 003 10 0 00 014606 ER3 AC,SN
1771 031304 321 12 0 00 031277 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1772
1773 014607 SN=SN+1
1774 677000 ZZ=<ZZ+ZZ+1000>&777777
1775 031305 205 06 0 00 777200 MOVSI AC-2,777200 ;SETUP FOR COMPARISON
1776 031306 205 10 0 00 677200 MOVSI AC,200+ZZ ;SETUP AC
1777 031307 132 10 0 00 000000 FSC AC,0 ;RESCALE
1778 031310 316 10 0 00 000006 CAMN AC,AC-2 ;TEST EXP=777
1779 031311 003 10 0 00 014607 ER3 AC,SN
1780 031312 321 12 0 00 031305 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1781
1782 014610 SN=SN+1
1783 577000 ZZ=<ZZ+ZZ+1000>&777777
1784 031313 205 06 0 00 777200 MOVSI AC-2,777200 ;SETUP FOR COMPARISON
1785 031314 205 10 0 00 577200 MOVSI AC,200+ZZ ;SETUP AC
1786 031315 132 10 0 00 000000 FSC AC,0 ;RESCALE
1787 031316 316 10 0 00 000006 CAMN AC,AC-2 ;TEST EXP=777
1788 031317 003 10 0 00 014610 ER3 AC,SN
1789 031320 321 12 0 00 031313 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1790
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 10
DFKCA1 MAC 3-Oct-80 13:56 PART I.A - FSC AND NORMALIZE RETURN SEQ 0067
1791 ;AC=206200000000
1792 ;SCALING FACTOR=0
1793
1794 000007 AC=7
1795 SAVEAC (1,1)^
1796 031321 201 11 0 00 031321 MOVEI AC+2,.
1797 031322 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1798 031323 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1799 031324 202 11 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1800
1801 031325 205 05 0 00 206200 O14700: MOVSI AC-2,206200 ;SETUP FOR COMPARISON
1802 031326 205 07 0 00 206200 MOVSI AC,206200 ;SETUP AC
1803 031327 132 07 0 00 000000 FSC AC,0 ;RESCALE
1804 031330 316 07 0 00 000005 CAMN AC,AC-2 ;TEST AC=ORIG
1805 031331 003 07 0 00 014701 ER3 AC,14701
1806 031332 321 11 0 00 031325 JUMPL AC+2,O14700 ;LOOP ON ERROR SWITCH
1807
1808 ;AC=577600000000
1809 ;SCALING FACTOR=0
1810
1811 000006 AC=6
1812 SAVEAC (1,1)^
1813 031333 201 10 0 00 031333 MOVEI AC+2,.
1814 031334 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1815 031335 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1816 031336 202 10 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1817
1818 031337 205 04 0 00 577600 O15000: MOVSI AC-2,577600 ;SETUP FOR COMPARISON
1819 031340 205 06 0 00 577600 MOVSI AC,577600 ;SETUP AC
1820 031341 132 06 0 00 000000 FSC AC,0 ;RESCALE
1821 031342 316 06 0 00 000004 CAMN AC,AC-2 ;TEST AC=ORIG
1822 031343 003 06 0 00 015001 ER3 AC,15001
1823 031344 321 10 0 00 031337 JUMPL AC+2,O15000 ;LOOP ON ERROR SWITCH
1824
1825 ;AC=206200000000
1826 ;SCALING FACTOR=0
1827 ;FAILURE RESULTS IN AN EXPONENT
1828 ;EQUAL TO 170, THE FRACTION IS NORMALIZED
1829
1830 000005 AC=5
1831 SAVEAC (1,1)^
1832 031345 201 07 0 00 031345 MOVEI AC+2,.
1833 031346 202 07 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1834 031347 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1835 031350 202 07 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1836
1837 031351 205 03 0 00 170400 O15100: MOVSI AC-2,170400 ;SETUP FOR COMPARISON
1838 031352 205 05 0 00 206200 MOVSI AC,206200 ;SETUP AC
1839 031353 132 05 0 00 000000 FSC AC,0 ;RESCALE
1840 031354 316 05 0 00 000003 CAMN AC,AC-2 ;TEST EXP=170
1841 031355 003 05 0 00 015101 ER3 AC,15101
1842 031356 321 07 0 00 031351 JUMPL AC+2,O15100 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 11
DFKCA1 MAC 3-Oct-80 13:56 PART I.A - FSC AND NORMALIZE RETURN SEQ 0068
1843 ;TEST - NR NORMAL
1844 ;AC=206200000000
1845 ;SCALE=0
1846 ;FAILURE RESULTS IN AN EXPONENT
1847 ;EQUAL TO 171, THE MANTISSA IS NORMALIZED
1848
1849 000014 AC=14
1850 SAVEAC (1,1)^
1851 031357 201 16 0 00 031357 MOVEI AC+2,.
1852 031360 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1853 031361 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1854 031362 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1855
1856 031363 205 12 0 00 171400 O15200: MOVSI AC-2,171400 ;SETUP FOR COMPARISON
1857 031364 205 14 0 00 206200 MOVSI AC,206200 ;SETUP AC
1858 031365 132 14 0 00 000000 FSC AC,0 ;RESCALE
1859 031366 316 14 0 00 000012 CAMN AC,AC-2 ;TEST EXP=171
1860 031367 003 14 0 00 015201 ER3 AC,15201
1861 031370 321 16 0 00 031363 JUMPL AC+2,O15200 ;LOOP ON ERROR SWITCH
1862
1863 ;AC=200200000000
1864 ;SCALING FACTOR=0
1865 ;FAILURE RESULTS IN AN EXPONENT
1866 ;EQUAL TO ORIG. THE FRACTION IS NORMALIZED
1867
1868 000014 AC=14
1869 SAVEAC (1,1)^
1870 031371 201 16 0 00 031371 MOVEI AC+2,.
1871 031372 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1872 031373 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1873 031374 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1874
1875 031375 205 12 0 00 200400 O15300: MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1876 031376 205 14 0 00 200200 MOVSI AC,200200 ;SETUP AC
1877 031377 132 14 0 00 000000 FSC AC,0 ;RESCALE
1878 031400 316 14 0 00 000012 CAMN AC,AC-2 ;TEST EXP=ORIG
1879 031401 003 14 0 00 015301 ER3 AC,15301
1880 031402 321 16 0 00 031375 JUMPL AC+2,O15300 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 12
DFKCA1 MAC 3-Oct-80 13:56 PART I.A - FSC AND NORMALIZE RETURN SEQ 0069
1881 ;TEST AR FXU SET
1882 ;TEST ABILITY TO SET FLAGS ON OVERFLOW
1883 ;AC=377400000000,777200000000
1884 ;SCALING FACTOR=1,-1
1885 ;AN ERROR WILL OCCUR IF APPROPRIATE
1886 ;FLAG FAILS TO SET
1887
1888 000013 AC=13
1889 SAVEAC (1,1)^
1890 031403 201 15 0 00 031403 MOVEI AC+2,.
1891 031404 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1892 031405 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1893 031406 202 15 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1894
1895 ;TEST AROV SET
1896 031407 255 10 0 00 031410 O15400: JFCL 10,.+1 ;CLR FLG, EXEC NEXT INST
1897 031410 205 13 0 00 377400 MOVSI AC,377400 ;SETUP AC
1898 031411 132 13 0 00 000001 FSC AC,1 ;RESCALE (OVERFLOW)
1899 031412 265 14 0 00 031413 JSP AC+1,.+1
1900 031413 255 10 0 00 031415 JFCL 10,.+2 ;TEST AROV FLAG
1901 031414 013 14 0 00 015401 ER13 AC+1,15401 ;AROV FAILED TO SET
1902 031415 321 15 0 00 031407 JUMPL AC+2,O15400 ;LOOP ON ERROR SWITCH
1903
1904 ;TEST ARFOV SET
1905 031416 255 01 0 00 031417 O15500: JFCL 1,.+1 ;CLR FLG, EXEC NEXT INST
1906 031417 205 13 0 00 377400 MOVSI AC,377400 ;SETUP AC
1907 031420 132 13 0 00 000001 FSC AC,1 ;RESCALE (OVERFLOW)
1908 031421 265 14 0 00 031422 JSP AC+1,.+1
1909 031422 255 01 0 00 031424 JFCL 1,.+2 ;TEST ARFOV FLAG
1910 031423 013 14 0 00 015501 ER13 AC+1,15501 ;ARFOV FAILED TO SET
1911 031424 321 15 0 00 031416 JUMPL AC+2,O15500 ;LOOP ON ERROR SWITCH
1912
1913 ;TEST ARFXU SET
1914 031425 254 02 1 00 070557 O15600: JRST 2,@[.+1] ;CLEAR FLAG,EXEC NEXT INST
1915 031426 205 13 0 00 777200 MOVSI AC,777200 ;SETUP AC
1916 031427 132 13 0 00 777777 FSC AC,-1 ;RESCALE (UNDERFLOW)
1917 031430 265 11 0 00 031431 JSP AC-2,.+1 ;STORE FLAGS AND PC
1918 031431 627 11 0 00 000100 TLZN AC-2,100 ;TEST AND CLEAR BIT 11
1919 031432 013 11 0 00 015601 ER13 AC-2,15601 ;AR FXU FAILED TO SET
1920 031433 254 02 0 11 000003 JRST 2,3(AC-2) ;CLEAR AR FXU
1921 031434 321 15 0 00 031425 JUMPL AC+2,O15600 ;LOOP ON ERROR SWITCH
1922 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 12-1
DFKCA1 MAC 3-Oct-80 13:56 PART I.A - FSC AND NORMALIZE RETURN SEQ 0070
1923 ;TEST NR ALL ZERO
1924 ;TEST ABILITY TO ASSERT NR ALL ZERO LEVEL
1925 ;AC=377000000000
1926 ;SCALE=401
1927 ;FAILURE SHOULD RESULT IN LOOPING NRT2-
1928 ;ATTEMPTING TO NORMALIZE
1929
1930 000012 AC=12
1931 SAVEAC (1,1)^
1932 031435 201 14 0 00 031435 MOVEI AC+2,.
1933 031436 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1934 031437 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1935 031440 202 14 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1936
1937 031441 205 12 0 00 377000 O15700: MOVSI AC,377000 ;SETUP AC
1938 031442 132 12 0 00 000401 FSC AC,401 ;RESCALE
1939 031443 332 00 0 00 000012 SKIPE AC ;TEST AC=0
1940 031444 003 12 0 00 015701 ER3 AC,15701 ;NR ALL ZERO ASSERTED
1941 031445 321 14 0 00 031441 JUMPL AC+2,O15700 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 13
DFKCA1 MAC 3-Oct-80 13:56 PART I.B-FAD AND NORM RET SEQ 0071
1942 SUBTTL PART I.B-FAD AND NORM RET
1943
1944
1945 ; PART I.B-FAD AND NORM RET
1946
1947 ;AR=000600000000
1948 ;BR=000400000000
1949 ;FAILURE RESULTS IN LOSS OF BR
1950 ;CORRECT SUM=001500000000
1951 ;ERROR SUM=000600000000
1952
1953 000014 AC=14
1954 SAVEAC (1,1)^
1955 031446 201 16 0 00 031446 MOVEI AC+2,.
1956 031447 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1957 031450 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1958 031451 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1959
1960 031452 205 12 0 00 000600 O16000: MOVSI AC-2,600 ;SETUP FOR COMPARISON
1961 031453 205 14 0 00 000600 MOVSI AC,600 ;SETUP AC
1962 031454 205 15 0 00 000400 MOVSI AC+1,400 ;SETUP BR
1963 031455 140 14 0 00 000015 FAD AC,AC+1 ;C(AC)+C(E)
1964 031456 316 14 0 00 000012 CAMN AC,AC-2 ;TEST SUM=600000000
1965 031457 003 14 0 00 016001 ER3 AC,16001
1966 031460 321 16 0 00 031452 JUMPL AC+2,O16000 ;LOOP ON ERROR SWITCH
1967
1968 ;AR=000600000000
1969 ;BR=000400000000
1970 ;FAILURE RESULTS IN LOSS
1971 ;OF LARGER NUMBER
1972 ;FAILURE RESULTS IN NORMALIZING
1973 ;CORRECT SUM=001500000000
1974 ;ERROR SUM=000400000000
1975
1976 000013 AC=13
1977 SAVEAC (1,1)^
1978 031461 201 15 0 00 031461 MOVEI AC+2,.
1979 031462 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1980 031463 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1981 031464 202 15 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1982
1983 031465 205 13 0 00 000600 O16100: MOVSI AC,600 ;SETUP AC
1984 031466 205 14 0 00 000400 MOVSI AC+1,400 ;SETUP BR
1985 031467 140 13 0 00 000014 FAD AC,AC+1 ;C(AC)+C(E)
1986 031470 316 13 0 00 000014 CAMN AC,AC+1 ;TEST SUM=000400000000
1987 031471 003 13 0 00 016101 ER3 AC,16101
1988 031472 321 15 0 00 031465 JUMPL AC+2,O16100 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 14
DFKCA1 MAC 3-Oct-80 13:56 PART I.B-FAD AND NORM RET SEQ 0072
1989 ;AR=000600000000
1990 ;BR=000400000000
1991 ;FAILURE RESULTS IN LOSS OF BR
1992 ;CORRECT SUM=001500000000
1993 ;ERROR SUM=001600000000
1994
1995 000012 AC=12
1996 SAVEAC (1,1)^
1997 031473 201 14 0 00 031473 MOVEI AC+2,.
1998 031474 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1999 031475 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2000 031476 202 14 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2001
2002 031477 205 10 0 00 001600 O16200: MOVSI AC-2,1600 ;SETUP FOR COMPARISON
2003 031500 205 12 0 00 000600 MOVSI AC,600 ;SETUP AC
2004 031501 205 13 0 00 000400 MOVSI AC+1,400 ;SETUP BR
2005 031502 140 12 0 00 000013 FAD AC,AC+1 ;C(AC)+C(E)
2006 031503 316 12 0 00 000010 CAMN AC,AC-2 ;TEST SUM=1600000000
2007 031504 003 12 0 00 016201 ER3 AC,16201
2008 031505 321 14 0 00 031477 JUMPL AC+2,O16200 ;LOOP ON ERROR SWITCH
2009
2010 ;AR=000600000000
2011 ;BR=000400000000
2012 ;FAILURE RESULTS IN LOSS OF AR
2013 ;CORRECT SUM=001500000000
2014 ;ERROR SUM=001400000000
2015
2016 000011 AC=11
2017 SAVEAC (1,1)^
2018 031506 201 13 0 00 031506 MOVEI AC+2,.
2019 031507 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2020 031510 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2021 031511 202 13 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2022
2023 031512 205 07 0 00 001400 O16300: MOVSI AC-2,1400 ;SETUP FOR COMPARISON
2024 031513 205 11 0 00 000600 MOVSI AC,600 ;SETUP AC
2025 031514 205 12 0 00 000400 MOVSI AC+1,400 ;SETUP BR
2026 031515 140 11 0 00 000012 FAD AC,AC+1 ;C(AC)+C(E)
2027 031516 316 11 0 00 000007 CAMN AC,AC-2 ;TEST SUM=1400000000
2028 031517 003 11 0 00 016301 ER3 AC,16301
2029 031520 321 13 0 00 031512 JUMPL AC+2,O16300 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 15
DFKCA1 MAC 3-Oct-80 13:56 PART I.B-FAD AND NORM RET SEQ 0073
2030 ;AR=000600000000
2031 ;BR=000400000000
2032 ;CORRECT SUM=001500000000
2033 ;ERROR SUM=377500000000
2034
2035 000010 AC=10
2036 SAVEAC (1,1)^
2037 031521 201 12 0 00 031521 MOVEI AC+2,.
2038 031522 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2039 031523 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2040 031524 202 12 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2041
2042 031525 205 06 0 00 377500 O16400: MOVSI AC-2,377500 ;SETUP FOR COMPARISON
2043 031526 205 10 0 00 000600 MOVSI AC,600 ;SETUP AC
2044 031527 205 11 0 00 000400 MOVSI AC+1,400 ;SETUP BR
2045 031530 140 10 0 00 000011 FAD AC,AC+1 ;C(AC)+C(E)
2046 031531 316 10 0 00 000006 CAMN AC,AC-2 ;TEST SUM=377500000000
2047 031532 003 10 0 00 016401 ER3 AC,16401
2048 031533 321 12 0 00 031525 JUMPL AC+2,O16400 ;LOOP ON ERROR SWITCH
2049
2050 ;AR=000600000000
2051 ;BR=000400000000
2052 ;CORRECT SUM=001500000000
2053 ;ERROR SUM=000500000000
2054
2055 000007 AC=7
2056 SAVEAC (1,1)^
2057 031534 201 11 0 00 031534 MOVEI AC+2,.
2058 031535 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2059 031536 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2060 031537 202 11 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2061
2062 031540 205 05 0 00 000500 O16500: MOVSI AC-2,500 ;SETUP FOR COMPARISON
2063 031541 205 07 0 00 000600 MOVSI AC,600 ;SETUP AC
2064 031542 205 10 0 00 000400 MOVSI AC+1,400 ;SETUP BR
2065 031543 140 07 0 00 000010 FAD AC,AC+1 ;C(AC)+C(E)
2066 031544 316 07 0 00 000005 CAMN AC,AC-2 ;TEST SUM=500000000
2067 031545 003 07 0 00 016501 ER3 AC,16501
2068 031546 321 11 0 00 031540 JUMPL AC+2,O16500 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 16
DFKCA1 MAC 3-Oct-80 13:56 PART I.B-FAD AND NORM RET SEQ 0074
2069
2070 ;AR=377000000000
2071 ;BR=377600000000
2072 ;FAILURE RESULTS IN A SUM
2073 ;=000700000000
2074
2075 000014 AC=14
2076 SAVEAC (1,1)^
2077 031547 201 16 0 00 031547 MOVEI AC+2,.
2078 031550 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2079 031551 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2080 031552 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2081
2082 031553 205 12 0 00 000700 O16600: MOVSI AC-2,700 ;SETUP FOR COMPARISON
2083 031554 205 14 0 00 377000 MOVSI AC,377000 ;SETUP AC
2084 031555 205 15 0 00 377600 MOVSI AC+1,377600 ;SETUP BR
2085 031556 140 14 0 00 000015 FAD AC,AC+1 ;ADD C(AC), C(E)
2086 031557 316 14 0 00 000012 CAMN AC,AC-2 ;TEST SUM=000700000000
2087 031560 003 14 0 00 016601 ER3 AC,16601
2088 031561 321 16 0 00 031553 JUMPL AC+2,O16600 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 17
DFKCA1 MAC 3-Oct-80 13:56 PART I.B-FAD AND NORM RET SEQ 0075
2089 ;TEST ABILITY TO SET INDIVIDUAL BITS
2090 ;AR=600400000000 (-1/4)
2091 ;BR=177400000000 (+1/4)
2092 ;OPERANDS SELECTED SHOULD RESULT
2093 ;IN NR ALL ZERO -STORE 0
2094 ;FAILURE OF BIT 8 TO SET RESULTS IN
2095 ;A SUM=577400000000
2096 ;FAILURE OF ANY ONE BIT (1-7) RESULTS IN
2097 ;A SUM=577000000000
2098
2099 000014 AC=14
2100 SAVEAC (1,1)^
2101 031562 201 16 0 00 031562 MOVEI AC+2,.
2102 031563 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2103 031564 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2104 031565 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2105
2106 031566 205 12 0 00 577400 O16700: MOVSI AC-2,577400 ;SETUP FOR COMPARISON
2107 031567 205 14 0 00 600400 MOVSI AC,600400 ;SETUP AC
2108 031570 205 15 0 00 177400 MOVSI AC+1,177400 ;SETUP BR
2109 031571 140 14 0 00 000015 FAD AC,AC+1 ;C(AC)+C(E)
2110 031572 316 14 0 00 000012 CAMN AC,AC-2 ;TEST SUM=5774000000000
2111 031573 003 14 0 00 016701 ER3 AC,16701 ;BR8 FAILED TO SET
2112 031574 205 12 0 00 577000 MOVSI AC-2,577000 ;SETUP FOR COMPARISON
2113 031575 316 14 0 00 000012 CAMN AC,AC-2 ;TEST SUM=577000000000
2114 031576 003 14 0 00 016702 ER3 AC,16702 ;BR BIT (1-7) FAILED TO SET
2115 031577 321 16 0 00 031566 JUMPL AC+2,O16700 ;LOOP ON ERROR SWITCH
2116
2117 ;FAILURE RESULTS IN LOSS OF DIFFERENCE
2118 ;BETWEEN EXPONENTS
2119 ;AR=200400000000 (+ 1/2)
2120 ;BR=205400000000 (+20)
2121 ;CORRECT SUM =205410000000
2122 ;ERROR SUM=001400000000
2123
2124 000010 AC=10
2125 SAVEAC (1,1)^
2126 031600 201 12 0 00 031600 MOVEI AC+2,.
2127 031601 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2128 031602 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2129 031603 202 12 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2130
2131 031604 205 06 0 00 001400 O17000: MOVSI AC-2,001400 ;SETUP FOR COMPARISON
2132 031605 205 10 0 00 200400 MOVSI AC,200400 ;SETUP AC
2133 031606 205 11 0 00 205400 MOVSI AC+1,205400 ;SETUP BR
2134 031607 140 10 0 00 000011 FAD AC,AC+1 ;C(AC)+C(E)
2135 031610 316 10 0 00 000006 CAMN AC,AC-2 ;TEST SUM=001400000000
2136 031611 003 10 0 00 017001 ER3 AC,17001
2137 031612 321 12 0 00 031604 JUMPL AC+2,O17000 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 18
DFKCA1 MAC 3-Oct-80 13:56 PART I.B-FAD AND NORM RET SEQ 0076
2138 ;AR=200400000000
2139 ;BR=205600000000
2140 ;FAILURE RESULTS IN LOSS OF HIGH ORDER
2141 ;EXPONENT
2142 ;FAILURE RESULTS IN A SUM
2143 ;=001610000000
2144
2145 000012 AC=12
2146 SAVEAC (1,1)^
2147 031613 201 14 0 00 031613 MOVEI AC+2,.
2148 031614 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2149 031615 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2150 031616 202 14 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2151
2152 031617 205 10 0 00 001610 O17100: MOVSI AC-2,1610 ;SETUP FOR COMPARISON
2153 031620 205 12 0 00 200400 MOVSI AC,200400 ;SETUP AC
2154 031621 205 13 0 00 205600 MOVSI AC+1,205600 ;SETUP BR
2155 031622 140 12 0 00 000013 FAD AC,AC+1 ;C(AC)+C(E)
2156 031623 316 12 0 00 000010 CAMN AC,AC-2 ;TEST SUM=1610000000
2157 031624 003 12 0 00 017101 ER3 AC,17101
2158 031625 321 14 0 00 031617 JUMPL AC+2,O17100 ;LOOP ON ERROR SWITCH
2159
2160 ;AR=200400000000
2161 ;BR=205600000000
2162 ;FAILURE RESULTS IN LOSS OF LARGER
2163 ;EXPONENT
2164 ;FAILURE RESULTS IN A SUM
2165 ;=000610000000
2166
2167 000011 AC=11
2168 SAVEAC (1,1)^
2169 031626 201 13 0 00 031626 MOVEI AC+2,.
2170 031627 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2171 031630 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2172 031631 202 13 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2173
2174 031632 205 07 0 00 000610 O17200: MOVSI AC-2,610 ;SETUP FOR COMPARISON
2175 031633 205 11 0 00 200400 MOVSI AC,200400 ;SETUP AC
2176 031634 205 12 0 00 205600 MOVSI AC+1,205600 ;SETUP BR
2177 031635 140 11 0 00 000012 FAD AC,AC+1 ;C(AC)+C(E)
2178 031636 316 11 0 00 000007 CAMN AC,AC-2 ;TEST SUM=610000000
2179 031637 003 11 0 00 017201 ER3 AC,17201
2180 031640 321 13 0 00 031632 JUMPL AC+2,O17200 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 19
DFKCA1 MAC 3-Oct-80 13:56 PART I.B-FAD AND NORM RET SEQ 0077
2181 ;AR=000600000000
2182 ;BR=200400000000
2183 ;EXCESSIVE SHIFT COND, SHOULD
2184 ;RESULT IN NO ADD AND STORING THE LARGER
2185 ;FAILURE RESULTS IN A SUM
2186 ;=201500000000
2187
2188 000005 AC=5
2189 SAVEAC (1,1)^
2190 031641 201 07 0 00 031641 MOVEI AC+2,.
2191 031642 202 07 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2192 031643 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2193 031644 202 07 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2194
2195 031645 205 03 0 00 201500 O17300: MOVSI AC-2,201500 ;SETUP FOR COMPARISON
2196 031646 205 05 0 00 000600 MOVSI AC,600 ;SETUP AC
2197 031647 205 06 0 00 200400 MOVSI AC+1,200400 ;SETUP BR
2198 031650 140 05 0 00 000006 FAD AC,AC+1 ;C(AC)+C(E)
2199 031651 316 05 0 00 000003 CAMN AC,AC-2 ;TEST SUM=201500000000
2200 031652 003 05 0 00 017301 ER3 AC,17301
2201 031653 321 07 0 00 031645 JUMPL AC+2,O17300 ;LOOP ON ERROR SWITCH
2202
2203 ;AR=200700000000
2204 ;BR=0
2205 ;EXCESSIVE SHIFT COND SHOULD
2206 ;RESULT IN NO ADD AND STORING THE LARGER
2207 ;FAILURE OF SC CLR AT FAT4 RESULTS IN
2208 ;LOSS OF EXPONENT. SUM=000700000000
2209
2210 000014 AC=14
2211 SAVEAC (1,1)^
2212 031654 201 16 0 00 031654 MOVEI AC+2,.
2213 031655 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2214 031656 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2215 031657 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2216
2217 031660 205 12 0 00 000700 O17400: MOVSI AC-2,700 ;SETUP FOR COMPARISON
2218 031661 205 14 0 00 200700 MOVSI AC,200700 ;SETUP AC
2219 031662 400 15 0 00 000000 SETZ AC+1, ;SETUP BR
2220 031663 140 14 0 00 000015 FAD AC,AC+1 ;C(AC)+C(E)
2221 031664 316 14 0 00 000012 CAMN AC,AC-2 ;TEST SUM=700000000
2222 031665 003 14 0 00 017401 ER3 AC,17401
2223 031666 321 16 0 00 031660 JUMPL AC+2,O17400 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 20
DFKCA1 MAC 3-Oct-80 13:56 PART I.B-FAD AND NORM RET SEQ 0078
2224 ;TEST ABILITY TO BRING UP PULSE
2225 ;AR=200400000000
2226 ;BR=205400000000
2227 ;FAILURE RESULTS IN LOSS OF SMALLER
2228 ;EXPONENT. EXCESSIVE SHIFT CONDITION
2229 ;RESULTS IN NO ADD AND STORING THE LARGER
2230 ;FAILURE RESULTS IN A SUM=205400000000
2231
2232 000014 AC=14
2233 SAVEAC (1,1)^
2234 031667 201 16 0 00 031667 MOVEI AC+2,.
2235 031670 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2236 031671 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2237 031672 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2238
2239 031673 205 14 0 00 200400 O17500: MOVSI AC,200400 ;SETUP AC
2240 031674 205 15 0 00 205400 MOVSI AC+1,205400 ;SETUP BR
2241 031675 140 14 0 00 000015 FAD AC,AC+1 ;C(AC)+C(E)
2242 031676 316 14 0 00 000015 CAMN AC,AC+1 ;TEST SUM=205400000000
2243 031677 003 14 0 00 017501 ER3 AC,17501
2244 031700 321 16 0 00 031673 JUMPL AC+2,O17500 ;LOOP ON ERROR SWITCH
2245 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 20-1
DFKCA1 MAC 3-Oct-80 13:56 PART I.B-FAD AND NORM RET SEQ 0079
2246 ;AC EXP=201,202,204,210,220,240,300
2247 ;BR=200400000000
2248 ;FAILURE OF A BIT TO SET/AR TO SHIFT RESULTS IN
2249 ;AN EXPONENT=202,203,205,211,221,
2250 ;241,301. THE MANTISSA IS CORRECT IN ALL CASES
2251
2252 000013 AC=13
2253 SAVEAC (1,1)^
2254 031701 201 15 0 00 031701 MOVEI AC+2,.
2255 031702 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2256 031703 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2257 031704 202 15 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2258
2259 017600 SN=17600
2260 000400 ZZ=400
2261
2262 O17600: REPEAT ^D7,
2263 <SN=SN+1
2264 ZZ=ZZ+ZZ
2265 MOVSI AC-2,201400+ZZ ;SETUP FOR COMPARISION
2266 MOVSI AC,200400+ZZ ;SETUP AC
2267 MOVSI AC+1,200400 ;SETUP BR
2268 FAD AC,AC+1 ;C(AC)+C(E)
2269 CAMN AC,AC-2 ;TEST EXP=AC EXP+1
2270 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
2271 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2272 >
2273 017601 SN=SN+1
2274 001000 ZZ=ZZ+ZZ
2275 031705 205 11 0 00 202400 MOVSI AC-2,201400+ZZ ;SETUP FOR COMPARISION
2276 031706 205 13 0 00 201400 MOVSI AC,200400+ZZ ;SETUP AC
2277 031707 205 14 0 00 200400 MOVSI AC+1,200400 ;SETUP BR
2278 031710 140 13 0 00 000014 FAD AC,AC+1 ;C(AC)+C(E)
2279 031711 316 13 0 00 000011 CAMN AC,AC-2 ;TEST EXP=AC EXP+1
2280 031712 003 13 0 00 017601 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
2281 031713 321 15 0 00 031705 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2282
2283 017602 SN=SN+1
2284 002000 ZZ=ZZ+ZZ
2285 031714 205 11 0 00 203400 MOVSI AC-2,201400+ZZ ;SETUP FOR COMPARISION
2286 031715 205 13 0 00 202400 MOVSI AC,200400+ZZ ;SETUP AC
2287 031716 205 14 0 00 200400 MOVSI AC+1,200400 ;SETUP BR
2288 031717 140 13 0 00 000014 FAD AC,AC+1 ;C(AC)+C(E)
2289 031720 316 13 0 00 000011 CAMN AC,AC-2 ;TEST EXP=AC EXP+1
2290 031721 003 13 0 00 017602 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
2291 031722 321 15 0 00 031714 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2292
2293 017603 SN=SN+1
2294 004000 ZZ=ZZ+ZZ
2295 031723 205 11 0 00 205400 MOVSI AC-2,201400+ZZ ;SETUP FOR COMPARISION
2296 031724 205 13 0 00 204400 MOVSI AC,200400+ZZ ;SETUP AC
2297 031725 205 14 0 00 200400 MOVSI AC+1,200400 ;SETUP BR
2298 031726 140 13 0 00 000014 FAD AC,AC+1 ;C(AC)+C(E)
2299 031727 316 13 0 00 000011 CAMN AC,AC-2 ;TEST EXP=AC EXP+1
2300 031730 003 13 0 00 017603 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 20-2
DFKCA1 MAC 3-Oct-80 13:56 PART I.B-FAD AND NORM RET SEQ 0080
2301 031731 321 15 0 00 031723 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2302
2303 017604 SN=SN+1
2304 010000 ZZ=ZZ+ZZ
2305 031732 205 11 0 00 211400 MOVSI AC-2,201400+ZZ ;SETUP FOR COMPARISION
2306 031733 205 13 0 00 210400 MOVSI AC,200400+ZZ ;SETUP AC
2307 031734 205 14 0 00 200400 MOVSI AC+1,200400 ;SETUP BR
2308 031735 140 13 0 00 000014 FAD AC,AC+1 ;C(AC)+C(E)
2309 031736 316 13 0 00 000011 CAMN AC,AC-2 ;TEST EXP=AC EXP+1
2310 031737 003 13 0 00 017604 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
2311 031740 321 15 0 00 031732 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2312
2313 017605 SN=SN+1
2314 020000 ZZ=ZZ+ZZ
2315 031741 205 11 0 00 221400 MOVSI AC-2,201400+ZZ ;SETUP FOR COMPARISION
2316 031742 205 13 0 00 220400 MOVSI AC,200400+ZZ ;SETUP AC
2317 031743 205 14 0 00 200400 MOVSI AC+1,200400 ;SETUP BR
2318 031744 140 13 0 00 000014 FAD AC,AC+1 ;C(AC)+C(E)
2319 031745 316 13 0 00 000011 CAMN AC,AC-2 ;TEST EXP=AC EXP+1
2320 031746 003 13 0 00 017605 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
2321 031747 321 15 0 00 031741 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2322
2323 017606 SN=SN+1
2324 040000 ZZ=ZZ+ZZ
2325 031750 205 11 0 00 241400 MOVSI AC-2,201400+ZZ ;SETUP FOR COMPARISION
2326 031751 205 13 0 00 240400 MOVSI AC,200400+ZZ ;SETUP AC
2327 031752 205 14 0 00 200400 MOVSI AC+1,200400 ;SETUP BR
2328 031753 140 13 0 00 000014 FAD AC,AC+1 ;C(AC)+C(E)
2329 031754 316 13 0 00 000011 CAMN AC,AC-2 ;TEST EXP=AC EXP+1
2330 031755 003 13 0 00 017606 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
2331 031756 321 15 0 00 031750 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2332
2333 017607 SN=SN+1
2334 100000 ZZ=ZZ+ZZ
2335 031757 205 11 0 00 301400 MOVSI AC-2,201400+ZZ ;SETUP FOR COMPARISION
2336 031760 205 13 0 00 300400 MOVSI AC,200400+ZZ ;SETUP AC
2337 031761 205 14 0 00 200400 MOVSI AC+1,200400 ;SETUP BR
2338 031762 140 13 0 00 000014 FAD AC,AC+1 ;C(AC)+C(E)
2339 031763 316 13 0 00 000011 CAMN AC,AC-2 ;TEST EXP=AC EXP+1
2340 031764 003 13 0 00 017607 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
2341 031765 321 15 0 00 031757 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2342
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 21
DFKCA1 MAC 3-Oct-80 13:56 PART I.B-FAD AND NORM RET SEQ 0081
2343 ;AR=200400000000
2344 ;BR=205400000000
2345 ;FAILURE RESULTS IN A BR EXPONENT=0.
2346 ;EXCESSIVE SHIFT CONDITION
2347 ;RESULTS IN NO ADD AND STORING THE LARGER
2348
2349 000012 AC=12
2350 SAVEAC (1,1)^
2351 031766 201 14 0 00 031766 MOVEI AC+2,.
2352 031767 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2353 031770 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2354 031771 202 14 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2355
2356 031772 205 10 0 00 200400 O17700: MOVSI AC-2,200400 ;SETUP FOR COMPARISION
2357 031773 205 12 0 00 200400 MOVSI AC,200400 ;SETUP AC
2358 031774 205 13 0 00 205400 MOVSI AC+1,205400 ;SETUP BR
2359 031775 140 12 0 00 000013 FAD AC,AC+1 ;C(AC)+C(E)
2360 031776 316 12 0 00 000010 CAMN AC,AC-2 ;TEST SUM=200400000000
2361 031777 003 12 0 00 017701 ER3 AC,17701
2362 032000 321 14 0 00 031772 JUMPL AC+2,O17700 ;LOOP ON ERROR SWITCH
2363
2364 ;AR=600400000000 (-1/4)
2365 ;BR=600400000000 (-1/4)
2366 ;FAILURE RESULTS IN LOSS OF BR EXPONENT
2367 ;AN EXCESSIVE SHIFT CONDITION, NO ADD
2368 ;STORE 600400000000
2369
2370 000011 AC=11
2371 SAVEAC (1,1)^
2372 032001 201 13 0 00 032001 MOVEI AC+2,.
2373 032002 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2374 032003 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2375 032004 202 13 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2376
2377 032005 205 11 0 00 600400 O20000: MOVSI AC,600400 ;SETUP AC
2378 032006 205 12 0 00 600400 MOVSI AC+1,600400 ;SETUP BR
2379 032007 140 11 0 00 000012 FAD AC,AC+1 ;C(AC)+C(E)
2380 032010 316 11 0 00 000012 CAMN AC,AC+1 ;TEST SUM=600400
2381 032011 003 11 0 00 020001 ER3 AC,20001
2382 032012 321 13 0 00 032005 JUMPL AC+2,O20000 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 22
DFKCA1 MAC 3-Oct-80 13:56 PART I.B-FAD AND NORM RET SEQ 0082
2383 ;THE DIFFERENCE BETWEEN EXPONENTS (EXCESSIVE SHIFT COND)
2384 ;SHOULD RESULT IN NO ADD AND STORING
2385 ;THE LARGER
2386 ;AR=0
2387 ;BR=205400000000
2388 ;FAILURE RESULTS IN A SUM
2389 ;=173400000000
2390
2391 000007 AC=7
2392 SAVEAC (1,1)^
2393 032013 201 11 0 00 032013 MOVEI AC+2,.
2394 032014 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2395 032015 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2396 032016 202 11 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2397
2398 032017 205 05 0 00 173400 O20100: MOVSI AC-2,173400 ;SETUP FOR COMPARISON
2399 032020 400 07 0 00 000000 SETZ AC, ;SETUP AC
2400 032021 205 10 0 00 205400 MOVSI AC+1,205400 ;SETUP BR
2401 032022 140 07 0 00 000010 FAD AC,AC+1 ;C(AC)+C(E)
2402 032023 316 07 0 00 000005 CAMN AC,AC-2 ;TEST SUM=173400000000
2403 032024 003 07 0 00 020101 ER3 AC,20101
2404 032025 321 11 0 00 032017 JUMPL AC+2,O20100 ;LOOP ON ERROR SWITCH
2405
2406 ;FAILURE RESULTS IN AN APPARENT DIFFERNECE IN
2407 ;EXPONENTS OF 177 EXCESSIVE SHIFT COND-
2408 ;NO ADD, STORE LARGER
2409 ;AR=200400000000
2410 ;BR=200400000000
2411 ;FAILURE RESULTS IN A SUM
2412 ;=200400000000
2413
2414 000006 AC=6
2415 SAVEAC (1,1)^
2416 032026 201 10 0 00 032026 MOVEI AC+2,.
2417 032027 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2418 032030 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2419 032031 202 10 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2420
2421 032032 205 06 0 00 200400 O20200: MOVSI AC,200400 ;SETUP AC
2422 032033 205 07 0 00 200400 MOVSI AC+1,200400 ;SETUP BR
2423 032034 140 06 0 00 000007 FAD AC,AC+1 ;C(AC)+C(E)
2424 032035 316 06 0 00 000007 CAMN AC,AC+1 ;TEST SUM=200400000000
2425 032036 003 06 0 00 020201 ER3 AC,20201
2426 032037 321 10 0 00 032032 JUMPL AC+2,O20200 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 23
DFKCA1 MAC 3-Oct-80 13:56 PART I.B-FAD AND NORM RET SEQ 0083
2427 ;AR=577400000000 (-1/2)
2428 ;BR=577400000000 (-1/2)
2429 ;CORRECT SUM=576400000000 (-1)
2430 ;ERROR SUM=777400000000
2431
2432 000005 AC=5
2433 SAVEAC (1,1)^
2434 032040 201 07 0 00 032040 MOVEI AC+2,.
2435 032041 202 07 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2436 032042 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2437 032043 202 07 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2438
2439 032044 205 03 0 00 777400 O20300: MOVSI AC-2,777400 ;SETUP FOR COMPARISON
2440 032045 205 05 0 00 577400 MOVSI AC,577400 ;SETUP AC
2441 032046 205 06 0 00 577400 MOVSI AC+1,577400 ;SETUP BR
2442 032047 140 05 0 00 000006 FAD AC,AC+1 ;C(AC)+C(E)
2443 032050 316 05 0 00 000003 CAMN AC,AC-2 ;TEST SUM=777400000000
2444 032051 003 05 0 00 020301 ER3 AC,20301 ;SC NEGATE SETUP FAILED
2445 032052 321 07 0 00 032044 JUMPL AC+2,O20300 ;LOOP ON ERROR SWITCH
2446
2447 ;AR=205600000000
2448 ;BR=177400000000
2449 ;FAILURE RESULTS IN A SUM
2450 ;=214500000000
2451
2452 000013 AC=13
2453 SAVEAC (1,1)^
2454 032053 201 15 0 00 032053 MOVEI AC+2,.
2455 032054 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2456 032055 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2457 032056 202 15 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2458
2459 032057 205 11 0 00 214500 O20400: MOVSI AC-2,214500 ;SETUP FOR COMPARISON
2460 032060 205 13 0 00 205600 MOVSI AC,205600 ;SETUP AC
2461 032061 205 14 0 00 177400 MOVSI AC+1,177400 ;SETUP BR
2462 032062 140 13 0 00 000014 FAD AC,AC+1 ;C(AC)+C(E)
2463 032063 316 13 0 00 000011 CAMN AC,AC-2 ;TEST SUM=214500
2464 032064 003 13 0 00 020401 ER3 AC,20401
2465 032065 321 15 0 00 032057 JUMPL AC+2,O20400 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 24
DFKCA1 MAC 3-Oct-80 13:56 PART I.B-FAD AND NORM RET SEQ 0084
2466 ;OPERANDS SELECTED SHOULD
2467 ;RESULT IN NR ALL ZERO CONDITION
2468 ;AR EXP=201,202,204,210,220,240,300
2469 ;BR EXP=202,204,207,214,225,246,307
2470 ;MANTISSA IN BOTH CASES=0
2471 ;FAILURE OF A BIT TO CLEAR RESULTS IN A
2472 ;SUM WHOSE EXPONENT IS EQUAL TO
2473 ;THE BR EXPONENT, A MANTISSA=400000000
2474
2475 000010 AC=10
2476 SAVEAC (1,1)^
2477 032066 201 12 0 00 032066 MOVEI AC+2,.
2478 032067 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2479 032070 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2480 032071 202 12 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2481
2482 ;TEST AR8
2483 032072 205 06 0 00 202400 O20500: MOVSI AC-2,202400 ;SETUP FOR COMPARISON
2484 032073 205 10 0 00 201000 MOVSI AC,201000 ;SETUP AC
2485 032074 205 11 0 00 202000 MOVSI AC+1,202000 ;SETUP BR
2486 032075 140 10 0 00 000011 FAD AC,AC+1 ;C(AC)+C(E)
2487 032076 316 10 0 00 000006 CAMN AC,AC-2 ;TEST SUM=202400000000
2488 032077 003 10 0 00 020501 ER3 AC,20501 ;AR8 FAILED TO CLEAR
2489 032100 321 12 0 00 032072 JUMPL AC+2,O20500 ;LOOP ON ERROR SWITCH
2490
2491 ;TEST AR7
2492 032101 205 06 0 00 204400 O20600: MOVSI AC-2,204400 ;SETUP FOR COMPARISON
2493 032102 205 10 0 00 202000 MOVSI AC,202000 ;SETUP AC
2494 032103 205 11 0 00 204000 MOVSI AC+1,204000 ;SETUP BR
2495 032104 140 10 0 00 000011 FAD AC,AC+1 ;C(AC)+C(E)
2496 032105 316 10 0 00 000006 CAMN AC,AC-2 ;TEST SUM=204400000000
2497 032106 003 10 0 00 020601 ER3 AC,20601 ;AR7 FAILED TO CLEAR
2498 032107 321 12 0 00 032101 JUMPL AC+2,O20600 ;LOOP ON ERROR SWITCH
2499
2500 ;TEST AR6
2501 032110 205 06 0 00 207400 O20700: MOVSI AC-2,207400 ;SETUP FOR COMPARISON
2502 032111 205 10 0 00 204000 MOVSI AC,204000 ;SETUP AC
2503 032112 205 11 0 00 207000 MOVSI AC+1,207000 ;SETUP BR
2504 032113 140 10 0 00 000011 FAD AC,AC+1 ;C(AC)+C(E)
2505 032114 316 10 0 00 000006 CAMN AC,AC-2 ;TEST SUM=207400000000
2506 032115 003 10 0 00 020701 ER3 AC,20701 ;AR6 FAILED TO CLEAR
2507 032116 321 12 0 00 032110 JUMPL AC+2,O20700 ;LOOP ON ERROR SWITCH
2508
2509 ;TEST AR5
2510 032117 205 06 0 00 214400 O21000: MOVSI AC-2,214400 ;SETUP FOR COMPARISON
2511 032120 205 10 0 00 210000 MOVSI AC,210000 ;SETUP AC
2512 032121 205 11 0 00 214000 MOVSI AC+1,214000 ;SETUP BR
2513 032122 140 10 0 00 000011 FAD AC,AC+1 ;C(AC)+C(E)
2514 032123 316 10 0 00 000006 CAMN AC,AC-2 ;TEST SUM=214400000000
2515 032124 003 10 0 00 021001 ER3 AC,21001 ;AR5 FAILED TO CLEAR
2516 032125 321 12 0 00 032117 JUMPL AC+2,O21000 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 25
DFKCA1 MAC 3-Oct-80 13:56 PART I.B-FAD AND NORM RET SEQ 0085
2517 ;TEST AR4
2518 032126 205 06 0 00 225400 O21100: MOVSI AC-2,225400 ;SETUP FOR COMPARISON
2519 032127 205 10 0 00 220000 MOVSI AC,220000 ;SETUP AC
2520 032130 205 11 0 00 225000 MOVSI AC+1,225000 ;SETUP BR
2521 032131 140 10 0 00 000011 FAD AC,AC+1 ;C(AC)+C(E)
2522 032132 316 10 0 00 000006 CAMN AC,AC-2 ;TEST SUM=225400000000
2523 032133 003 10 0 00 021101 ER3 AC,21101 ;AR4 FAILED TO CLEAR
2524 032134 321 12 0 00 032126 JUMPL AC+2,O21100 ;LOOP ON ERROR SWITCH
2525
2526 ;TEST AR3
2527 032135 205 06 0 00 246400 O21200: MOVSI AC-2,246400 ;SETUP FOR COMPARISON
2528 032136 205 10 0 00 240000 MOVSI AC,240000 ;SETUP AC
2529 032137 205 11 0 00 246000 MOVSI AC+1,246000 ;SETUP BR
2530 032140 140 10 0 00 000011 FAD AC,AC+1 ;C(AC)+C(E)
2531 032141 316 10 0 00 000006 CAMN AC,AC-2 ;TEST SUM=246400000000
2532 032142 003 10 0 00 021201 ER3 AC,21201 ;AR3 FAILED TO CLEAR
2533 032143 321 12 0 00 032135 JUMPL AC+2,O21200 ;LOOP ON ERROR SWITCH
2534
2535 ;TEST AR2
2536 032144 205 06 0 00 307400 O21300: MOVSI AC-2,307400 ;SETUP FOR COMPARISON
2537 032145 205 10 0 00 300000 MOVSI AC,300000 ;SETUP AC
2538 032146 205 11 0 00 307000 MOVSI AC+1,307000 ;SETUP BR
2539 032147 140 10 0 00 000011 FAD AC,AC+1 ;C(AC)+C(E)
2540 032150 316 10 0 00 000006 CAMN AC,AC-2 ;TEST SUM=307400000000
2541 032151 003 10 0 00 021301 ER3 AC,21301 ;AR2 FAILED TO CLEAR
2542 032152 321 12 0 00 032144 JUMPL AC+2,O21300 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 26
DFKCA1 MAC 3-Oct-80 13:56 PART I.B-FAD AND NORM RET SEQ 0086
2543 ;TEST ABILITY TO SET BITS 8-1
2544 ;AR EXP=200,201,202,203,204,205,206,207
2545 ;BR=600400000000
2546 ;FAILURE OF A BIT TO SET RESULTS IN A UNIQUE SUM
2547
2548 000007 AC=7
2549 SAVEAC (1,1)^
2550 032153 201 11 0 00 032153 MOVEI AC+2,.
2551 032154 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2552 032155 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2553 032156 202 11 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2554 ;TEST AR8(1)
2555 032157 205 05 0 00 577200 O21400: MOVSI AC-2,577200 ;SETUP FOR COMPARISON
2556 032160 205 07 0 00 200000 MOVSI AC,200000 ;SETUP AC
2557 032161 205 10 0 00 600400 MOVSI AC+1,600400 ;SETUP BR
2558 032162 140 07 0 00 000010 FAD AC,AC+1 ;C(AC)+C(E)
2559 032163 316 07 0 00 000005 CAMN AC,AC-2 ;TEST SUM=577200000000
2560 032164 003 07 0 00 021401 ER3 AC,21401 ;AR8 FAILED TO SET
2561 032165 321 11 0 00 032157 JUMPL AC+2,O21400 ;LOOP ON ERROR SWITCH
2562
2563 ;TEST AR7 (1)
2564 032166 205 05 0 00 576300 O21500: MOVSI AC-2,576300 ;SETUP FOR COMPARISON
2565 032167 205 07 0 00 201000 MOVSI AC,201000 ;SETUP AC
2566 032170 205 10 0 00 600400 MOVSI AC+1,600400 ;SETUP BR
2567 032171 140 07 0 00 000010 FAD AC,AC+1 ;C(AC)+C(E)
2568 032172 316 07 0 00 000005 CAMN AC,AC-2 ;TEST SUM=576300000000
2569 032173 003 07 0 00 021501 ER3 AC,21501 ;AR7 FAILED TO SET
2570 032174 321 11 0 00 032166 JUMPL AC+2,O21500 ;LOOP ON ERROR SWITCH
2571
2572 ;TEST AR6(1)
2573 032175 205 05 0 00 575340 O21600: MOVSI AC-2,575340 ;SETUP FOR COMPARISON
2574 032176 205 07 0 00 202000 MOVSI AC,202000 ;SETUP AC
2575 032177 205 10 0 00 600400 MOVSI AC+1,600400 ;SETUP BR
2576 032200 140 07 0 00 000010 FAD AC,AC+1 ;C(AC)+C(E)
2577 032201 316 07 0 00 000005 CAMN AC,AC-2 ;TEST SUM=575340000000
2578 032202 003 07 0 00 021601 ER3 AC,21601 ;AR6 FAILED TO SET
2579 032203 321 11 0 00 032175 JUMPL AC+2,O21600 ;LOOP ON ERROR SWITCH
2580
2581 ;TEST AR5(1)
2582 032204 205 05 0 00 574360 O21700: MOVSI AC-2,574360 ;SETUP FOR COMPARISON
2583 032205 205 07 0 00 203000 MOVSI AC,203000 ;SETUP AC
2584 032206 205 10 0 00 600400 MOVSI AC+1,600400 ;SETUP BR
2585 032207 140 07 0 00 000010 FAD AC,AC+1 ;C(AC)+C(E)
2586 032210 316 07 0 00 000005 CAMN AC,AC-2 ;TEST SUM=574360000000
2587 032211 003 07 0 00 021701 ER3 AC,21701 ;AR5 FAILED TO SET
2588 032212 321 11 0 00 032204 JUMPL AC+2,O21700 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 27
DFKCA1 MAC 3-Oct-80 13:56 PART I.B-FAD AND NORM RET SEQ 0087
2589 ;TEST AR4 (1)
2590 032213 205 05 0 00 573370 O22000: MOVSI AC-2,573370 ;SETUP FOR COMPARISON
2591 032214 205 07 0 00 204000 MOVSI AC,204000 ;SETUP AC
2592 032215 205 10 0 00 600400 MOVSI AC+1,600400 ;SETUP BR
2593 032216 140 07 0 00 000010 FAD AC,AC+1 ;C(AC)+C(E)
2594 032217 316 07 0 00 000005 CAMN AC,AC-2 ;TEST SUM=573370000000
2595 032220 003 07 0 00 022001 ER3 AC,22001 ;AR4 FAILED TO SET
2596 032221 321 11 0 00 032213 JUMPL AC+2,O22000 ;LOOP ON ERROR SWITCH
2597
2598 ;TEST AR3(1)
2599 032222 205 05 0 00 572374 O22100: MOVSI AC-2,572374 ;SETUP FOR COMPARISON
2600 032223 205 07 0 00 205000 MOVSI AC,205000 ;SETUP AC
2601 032224 205 10 0 00 600400 MOVSI AC+1,600400 ;SETUP BR
2602 032225 140 07 0 00 000010 FAD AC,AC+1 ;C(AC)+C(E)
2603 032226 316 07 0 00 000005 CAMN AC,AC-2 ;TEST SUM=572374000000
2604 032227 003 07 0 00 022101 ER3 AC,22101 ;AR3 FAILED TO SET
2605 032230 321 11 0 00 032222 JUMPL AC+2,O22100 ;LOOP ON ERROR SWITCH
2606
2607 ;TEST AR2(1)
2608 032231 205 05 0 00 571376 O22200: MOVSI AC-2,571376 ;SETUP FOR COMPARISON
2609 032232 205 07 0 00 206000 MOVSI AC,206000 ;SETUP AC
2610 032233 205 10 0 00 600400 MOVSI AC+1,600400 ;SETUP BR
2611 032234 140 07 0 00 000010 FAD AC,AC+1 ;C(AC)+C(E)
2612 032235 316 07 0 00 000005 CAMN AC,AC-2 ;TEST SUM=571376000000
2613 032236 003 07 0 00 022201 ER3 AC,22201 ;AR2 FAILED TO SET
2614 032237 321 11 0 00 032231 JUMPL AC+2,O22200 ;LOOP ON ERROR SWITCH
2615
2616 ;TEST AR1(1)
2617 032240 205 05 0 00 570377 O22300: MOVSI AC-2,570377 ;SETUP FOR COMPARISON
2618 032241 205 07 0 00 207000 MOVSI AC,207000 ;SETUP AC
2619 032242 205 10 0 00 600400 MOVSI AC+1,600400 ;SETUP BR
2620 032243 140 07 0 00 000010 FAD AC,AC+1 ;C(AC)+C(E)
2621 032244 316 07 0 00 000005 CAMN AC,AC-2 ;TEST SUM=570377000000
2622 032245 003 07 0 00 022301 ER3 AC,22301 ;AR1 FAILED TO SET
2623 032246 321 11 0 00 032240 JUMPL AC+2,O22300 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 28
DFKCA1 MAC 3-Oct-80 13:56 PART I.B-FAD AND NORM RET SEQ 0088
2624 ;AR=400200000000
2625 ;BR=377400000000
2626 ;FAILURE RESULTS IN LOSS OF BR EXPONENT,
2627 ;RESULTING IN AN EXCESSIVE SHIFT COND.-
2628 ;NO ADD STORE 400200000000
2629
2630 000006 AC=6
2631 SAVEAC (1,1)^
2632 032247 201 10 0 00 032247 MOVEI AC+2,.
2633 032250 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2634 032251 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2635 032252 202 10 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2636
2637 032253 205 04 0 00 400200 O22400: MOVSI AC-2,400200 ;SETUP FOR COMPARISON
2638 032254 205 06 0 00 400200 MOVSI AC,400200 ;SETUP AC
2639 032255 205 07 0 00 377400 MOVSI AC+1,377400 ;SETUP BR
2640 032256 140 06 0 00 000007 FAD AC,AC+1 ;C(AC)+C(E)
2641 032257 316 06 0 00 000004 CAMN AC,AC-2 ;TEST SUM=400200000000
2642 032260 003 06 0 00 022401 ER3 AC,22401
2643 032261 321 10 0 00 032253 JUMPL AC+2,O22400 ;LOOP ON ERROR SWITCH
2644
2645 ;AR=377400000000
2646 ;BBR=400200000000
2647 ;FAILURE RESULTS IN LOSS OF BR EXPONENT,
2648 ;RESULTING IN AN EXECESSIVE SHIFT CONDITION. STORE
2649 ;377400000000
2650
2651 000005 AC=5
2652 SAVEAC (1,1)^
2653 032262 201 07 0 00 032262 MOVEI AC+2,.
2654 032263 202 07 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2655 032264 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2656 032265 202 07 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2657
2658 032266 205 03 0 00 377400 O22500: MOVSI AC-2,377400 ;SETUP FOR COMPARISON
2659 032267 205 05 0 00 377400 MOVSI AC,377400 ;SETUP AC
2660 032270 205 06 0 00 400200 MOVSI AC+1,400200 ;SETUP BR
2661 032271 140 05 0 00 000006 FAD AC,AC+1 ;C(AC)+C(E)
2662 032272 316 05 0 00 000003 CAMN AC,AC-2 ;TEST SUM=377400000000
2663 032273 003 05 0 00 022501 ER3 AC,22501 ;SC+BR(FAT1) FAILED
2664 032274 321 07 0 00 032266 JUMPL AC+2,O22500 ;LOOP ON ERROR SWITCH
2665 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 28-1
DFKCA1 MAC 3-Oct-80 13:56 PART I.B-FAD AND NORM RET SEQ 0089
2666 ;AR=200400000000
2667 ;BR=600400000000
2668 ;FAILURE RESULTS IN AN NR ALL ZERO COND.
2669 ;FAILURE RESULTS IN A SUM=0
2670
2671 000014 AC=14
2672 SAVEAC (1,1)^
2673 032275 201 16 0 00 032275 MOVEI AC+2,.
2674 032276 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2675 032277 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2676 032300 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2677
2678 032301 205 14 0 00 200400 O22600: MOVSI AC,200400 ;SETUP AC
2679 032302 205 15 0 00 600400 MOVSI AC+1,600400 ;SETUP BR
2680 032303 140 14 0 00 000015 FAD AC,AC+1 ;C(AC)+C(E)
2681 032304 336 00 0 00 000014 SKIPN AC ;SETUP SUM=0
2682 032305 003 14 0 00 022601 ER3 AC,22601 ;SC COMP SETUP FAILED
2683 032306 321 16 0 00 032301 JUMPL AC+2,O22600 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 29
DFKCA1 MAC 3-Oct-80 13:56 PART I.B-FAD AND NORM RET SEQ 0090
2684 ;AR=200600000000
2685 ;BR=201400000000
2686 ;FAILURE RESULTS IN SHIFTING SUM OF AR
2687 ;AND BR RESULTING IN A SUM
2688 ;=202640000000
2689
2690 000014 AC=14
2691 SAVEAC (1,1)^
2692 032307 201 16 0 00 032307 MOVEI AC+2,.
2693 032310 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2694 032311 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2695 032312 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2696
2697 032313 205 12 0 00 202640 O22700: MOVSI AC-2,202640 ;SETUP FOR COMPARISON
2698 032314 205 14 0 00 200600 MOVSI AC,200600 ;SETUP AC
2699 032315 205 15 0 00 201400 MOVSI AC+1,201400 ;SETUP BR
2700 032316 140 14 0 00 000015 FAD AC,AC+1 ;C(AC)+C(E)
2701 032317 316 14 0 00 000012 CAMN AC,AC-2 ;TEST SUM=202640000000
2702 032320 003 14 0 00 022701 ER3 AC,22701
2703 032321 321 16 0 00 032313 JUMPL AC+2,O22700 ;LOOP ON ERROR SWITCH
2704
2705 ;AR=577600000000 (-1/4) (UNNORMALIZED)
2706 ;BR=200400000000 (+1/2)
2707 ;FAILURE RESULTS IN A CORRECT MANTISSA,
2708 ;THE EXPONENT IS IN ERROR
2709 ;CORRECT SUM=177400000000
2710 ;ERROR SUM=376400000000
2711
2712 000013 AC=13
2713 SAVEAC (1,1)^
2714 032322 201 15 0 00 032322 MOVEI AC+2,.
2715 032323 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2716 032324 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2717 032325 202 15 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2718
2719 032326 205 11 0 00 376400 O23000: MOVSI AC-2,376400 ;SETUP FOR COMPARISON
2720 032327 205 13 0 00 577600 MOVSI AC,577600 ;SETUP AC
2721 032330 205 14 0 00 200400 MOVSI AC+1,200400 ;SETUP BR
2722 032331 140 13 0 00 000014 FAD AC,AC+1 ;C(AC)+C(E)
2723 032332 316 13 0 00 000011 CAMN AC,AC-2 ;TEST SUM=376400000000
2724 032333 003 13 0 00 023001 ER3 AC,23001
2725 032334 321 15 0 00 032326 JUMPL AC+2,O23000 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 30
DFKCA1 MAC 3-Oct-80 13:56 PART I.B-FAD AND NORM RET SEQ 0091
2726 ;AR=600400000000 (-1/4)
2727 ;BR=577200000000 (-3/4)
2728 ;FAILURE RESULTS IN A CORRECT MANTISSA,
2729 ;THE EXPONENT IS IN ERROR
2730 ;CORRECT SUM=576400000000
2731 ;ERROR SUM=600400000000
2732
2733 000012 AC=12
2734 SAVEAC (1,1)^
2735 032335 201 14 0 00 032335 MOVEI AC+2,.
2736 032336 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2737 032337 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2738 032340 202 14 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2739
2740 032341 205 10 0 00 600400 O23100: MOVSI AC-2,600400 ;SETUP FOR COMPARISON
2741 032342 205 12 0 00 600400 MOVSI AC,600400 ;SETUP AC
2742 032343 205 13 0 00 577200 MOVSI AC+1,577200 ;SETUP BR
2743 032344 140 12 0 00 000013 FAD AC,AC+1 ;C(AC)+C(E)
2744 032345 316 12 0 00 000010 CAMN AC,AC-2 ;TEST SUM=600400000000
2745 032346 003 12 0 00 023101 ER3 AC,23101 ;SC COMP SETUP FAILED
2746 032347 321 14 0 00 032341 JUMPL AC+2,O23100 ;LOOP ON ERROR SWITCH
2747
2748
2749 ;AR=600400000000 (-1/4)
2750 ;BR=577200000000 (-3/4)
2751 ;FAILURE RESULTS IN A CORRECT MANTISSA,
2752 ;THE EXPONENT IS IN ERROR
2753 ;CORRECT SUM=576400000000
2754 ;ERROR SUM =5777400000000
2755
2756 000011 AC=11
2757
2758 SAVEAC (1,1)^
2759 032350 201 13 0 00 032350 MOVEI AC+2,.
2760 032351 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2761 032352 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2762 032353 202 13 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2763
2764 032354 205 07 0 00 577400 O23200: MOVSI AC-2,577400 ;SETUP FOR COMPARISON
2765 032355 205 11 0 00 600400 MOVSI AC,600400 ;SETUP AC
2766 032356 205 12 0 00 577200 MOVSI AC+1,577200 ;SETUP BR
2767 032357 140 11 0 00 000012 FAD AC,AC+1 ;C(AC)+C(E)
2768 032360 316 11 0 00 000007 CAMN AC,AC-2 ;TEST SUM=577400000000
2769 032361 003 11 0 00 023201 ER3 AC,23201
2770 032362 321 13 0 00 032354 JUMPL AC+2,O23200 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 31
DFKCA1 MAC 3-Oct-80 13:56 PART I.B-FAD AND NORM RET SEQ 0092
2771 ;AR=600400000000 (-1/4)
2772 ;BR=577200000000 (-3/4)
2773 ;FAILURE RESULTS IN A CORRECT MANTISSA,
2774 ;THE EXPONENT IS IN ERROR
2775 ;CORRECT SUM=576400000000
2776 ;ERROR SUM=577000000000
2777
2778 000010 AC=10
2779 SAVEAC (1,1)^
2780 032363 201 12 0 00 032363 MOVEI AC+2,.
2781 032364 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2782 032365 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2783 032366 202 12 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2784
2785 032367 205 06 0 00 577000 O23300: MOVSI AC-2,577000 ;SETUP FOR COMPARISON
2786 032370 205 10 0 00 600400 MOVSI AC,600400 ;SETUP AC
2787 032371 205 11 0 00 577200 MOVSI AC+1,577200 ;SETUP BR
2788 032372 140 10 0 00 000011 FAD AC,AC+1 ;C(AC)+C(E)
2789 032373 316 10 0 00 000006 CAMN AC,AC-2 ;TEST SUM=577000000000
2790 032374 003 10 0 00 023301 ER3 AC,23301
2791 032375 321 12 0 00 032367 JUMPL AC+2,O23300 ;LOOP ON ERROR SWITCH
2792
2793 ;AR=201400000000 (+1)
2794 ;BR=200400000000 (+1/2)
2795 ;CORRECT SUM=201600000000
2796 ;ERROR SUM=200600000000
2797
2798 000010 AC=10
2799 SAVEAC (1,1)^
2800 032376 201 12 0 00 032376 MOVEI AC+2,.
2801 032377 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2802 032400 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2803 032401 202 12 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2804
2805 032402 205 06 0 00 200600 O23400: MOVSI AC-2,200600 ;SETUP FOR COMPARISON
2806 032403 205 10 0 00 201400 MOVSI AC,201400 ;SETUP AC
2807 032404 205 11 0 00 200400 MOVSI AC+1,200400 ;SETUP BR
2808 032405 140 10 0 00 000011 FAD AC,AC+1 ;C(AC)+C(E)
2809 032406 316 10 0 00 000006 CAMN AC,AC-2 ;TEST SUM=200600000000
2810 032407 003 10 0 00 023401 ER3 AC,23401
2811 032410 321 12 0 00 032402 JUMPL AC+2,O23400 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 32
DFKCA1 MAC 3-Oct-80 13:56 PART I.B-FAD AND NORM RET SEQ 0093
2812 ;AR=576400000000 (-1)
2813 ;BR=200400000000 (+1/2)
2814 ;CORRECT SUM=577400000000 (-1/2)
2815 ;ERROR SUM=177400000000
2816
2817 000007 AC=7
2818 SAVEAC (1,1)^
2819 032411 201 11 0 00 032411 MOVEI AC+2,.
2820 032412 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2821 032413 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2822 032414 202 11 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2823
2824 032415 205 05 0 00 177400 O23500: MOVSI AC-2,177400 ;SETUP FOR COMPARISON
2825 032416 205 07 0 00 576400 MOVSI AC,576400 ;SETUP AC
2826 032417 205 10 0 00 200400 MOVSI AC+1,200400 ;SETUP BR
2827 032420 140 07 0 00 000010 FAD AC,AC+1 ;C(AC)+C(E)
2828 032421 316 07 0 00 000005 CAMN AC,AC-2 ;TEST SUM=177400000000
2829 032422 003 07 0 00 023501 ER3 AC,23501
2830 032423 321 11 0 00 032415 JUMPL AC+2,O23500 ;LOOP ON ERROR SWITCH
2831
2832 ;AR=200440000000
2833 ;BR=200400000000
2834 ;CORRECT SUM=201400000000
2835 ;ERROR SUM=570000000000
2836
2837 000010 AC=10
2838 SAVEAC (1,1)^
2839 032424 201 12 0 00 032424 MOVEI AC+2,.
2840 032425 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2841 032426 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2842 032427 202 12 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2843
2844 032430 205 06 0 00 175400 O23600: MOVSI AC-2,175400 ;SETUP FOR COMPARISON
2845 032431 205 10 0 00 200440 MOVSI AC,200440 ;SETUP AC
2846 032432 205 11 0 00 200400 MOVSI AC+1,200400 ;SETUP BR
2847 032433 140 10 0 00 000011 FAD AC,AC+1 ;C(AC)+C(E)
2848 032434 316 10 0 00 000006 CAMN AC,AC-2 ;TEST SUM=175400000000
2849 032435 003 10 0 00 023601 ER3 AC,23601
2850 032436 321 12 0 00 032430 JUMPL AC+2,O23600 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 33
DFKCA1 MAC 3-Oct-80 13:56 PART I.B-FAD AND NORM RET SEQ 0094
2851 ;TEST ABILITY TO BRING UP NRT10
2852 ;AR=577400000000 (-1/2)
2853 ;BR=577400000000 (-1/2)
2854 ;CORRECT SUM=576400000000 (-1)
2855 ;ERROR SUM=577000000000
2856
2857 000007 AC=7
2858 SAVEAC (1,1)^
2859 032437 201 11 0 00 032437 MOVEI AC+2,.
2860 032440 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2861 032441 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2862 032442 202 11 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2863
2864 032443 205 05 0 00 577000 O23700: MOVSI AC-2,577000 ;SETUP FOR COMPARISON
2865 032444 205 07 0 00 577400 MOVSI AC,577400 ;SETUP AC
2866 032445 205 10 0 00 577400 MOVSI AC+1,577400 ;SETUP BR
2867 032446 140 07 0 00 000010 FAD AC,AC+1 ;C(AC)+C(E)
2868 032447 316 07 0 00 000005 CAMN AC,AC-2 ;TEST SUM=577000000000
2869 032450 003 07 0 00 023701 ER3 AC,23701
2870 032451 321 11 0 00 032443 JUMPL AC+2,O23700 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 34
DFKCA1 MAC 3-Oct-80 13:56 PART I.C-FAD (NORM RET, ROUNDING) SEQ 0095
2871 SUBTTL PART I.C-FAD (NORM RET, ROUNDING)
2872
2873 ; PART I.C-FAD(NORM RET, ROUNDING)
2874
2875 ;AR=200400000077
2876 ;BR=206400000000
2877 ;FAILURE OF 1,2 OR 3 RESULTS IN AN
2878 ;UNROUNDED SUM
2879 ;CORRECT SUM=206404000001
2880 ;ERROR SUM=206404000000
2881
2882 000014 AC=14
2883 SAVEAC (1,1)^
2884 032452 201 16 0 00 032452 MOVEI AC+2,.
2885 032453 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2886 032454 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2887 032455 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2888
2889 032456 205 12 0 00 206404 O26500: MOVSI AC-2,206404 ;SETUP FOR COMPARISON
2890 032457 541 14 0 00 000077 HRRI AC,77 ;SETUP
2891 032460 505 14 0 00 200400 HRLI AC,200400 ;AC
2892 032461 205 15 0 00 206400 MOVSI AC+1,206400 ;SETUP BR
2893 032462 144 14 0 00 000015 FADR AC,AC+1 ;C(AC)+C(E)
2894 032463 316 14 0 00 000012 CAMN AC,AC-2 ;TEST SUM=206404000000
2895 032464 003 14 0 00 026501 ER3 AC,26501
2896 032465 321 16 0 00 032456 JUMPL AC+2,O26500 ;LOOP ON ERROR SWITCH
2897
2898 ;AC=200400000077
2899 ;BR=206400000000
2900 ;FAILURE RESULTS IN A CORRECT MANTISSA,
2901 ;THE EXPONENT IS IN ERROR
2902 ;CORRECT SUM=206404000001
2903 ;ERROR SUM=171404000001
2904
2905 000014 AC=14
2906 SAVEAC (1,1)^
2907 032466 201 16 0 00 032466 MOVEI AC+2,.
2908 032467 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2909 032470 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2910 032471 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2911
2912 032472 541 12 0 00 000001 O26600: HRRI AC-2,1 ;SETUP AC-2
2913 032473 505 12 0 00 171404 HRLI AC-2,171404 ;FOR COMPARISON
2914 032474 541 14 0 00 000077 HRRI AC,77 ;SETUP
2915 032475 505 14 0 00 200400 HRLI AC,200400 ;AC
2916 032476 205 13 0 00 206400 MOVSI AC-1,206400 ;SETUP BR
2917 032477 144 14 0 00 000013 FADR AC,AC-1 ;C(AC)+C(E)
2918 032500 316 14 0 00 000012 CAMN AC,AC-2 ;TEST SUM=171404000001
2919 032501 003 14 0 00 026601 ER3 AC,26601
2920 032502 321 16 0 00 032472 JUMPL AC+2,O26600 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 35
DFKCA1 MAC 3-Oct-80 13:56 PART I.C-FAD (NORM RET, ROUNDING) SEQ 0096
2921 ;AR=200400000003
2922 ;BR=202400000000
2923 ;FAILURE RESULTS
2924 ;IN AN UNROUNDED SUM
2925 ;CORR SUM=202500000001
2926 ;ERROR SUM=202500000000
2927
2928 000013 AC=13
2929 SAVEAC (1,1)^
2930 032503 201 15 0 00 032503 MOVEI AC+2,.
2931 032504 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2932 032505 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2933 032506 202 15 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2934
2935 032507 205 11 0 00 202500 O26700: MOVSI AC-2,202500 ;SETUP FOR COMPARISON
2936 032510 541 13 0 00 000003 HRRI AC,3 ;SETUP
2937 032511 505 13 0 00 200400 HRLI AC,200400 ;AC
2938 032512 205 14 0 00 202400 MOVSI AC+1,202400 ;SETUP BR
2939 032513 144 13 0 00 000014 FADR AC,AC+1 ;C(AC)+C(E)
2940 032514 316 13 0 00 000011 CAMN AC,AC-2 ;TEST ERROR SUM
2941 032515 003 13 0 00 026701 ER3 AC,26701
2942 032516 321 15 0 00 032507 JUMPL AC+2,O26700 ;LOOP ON ERROR SWITCH
2943
2944 ;AR=200400777777
2945 ;BR=202400000000
2946 ;FAILURE RESULTS IN CONTINOUS
2947 ;ROUNDING. EACH PASS ADDING ONE TO AD(AR).
2948 ;EVENTUALLY AN NRSHRT COND (AR8(1) AND
2949 ;AD 9-35=0) DEVELOPS. SHIFTING MQRT ONE
2950 ;BRINGS DOWN NR ROUND LEVEL. FADR IS
2951 ;TERMINATED.
2952 ;CORR SUM=202600000000
2953 ;ERROR SUM=203400000000
2954
2955 000012 AC=12
2956 SAVEAC (1,1)^
2957 032517 201 14 0 00 032517 MOVEI AC+2,.
2958 032520 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2959 032521 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2960 032522 202 14 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2961
2962 032523 205 10 0 00 203400 O27000: MOVSI AC-2,203400 ;SETUP FOR COMPARISON
2963 032524 541 12 0 00 777777 HRRI AC,-1 ;SETUP
2964 032525 505 12 0 00 200400 HRLI AC,200400 ;AC
2965 032526 205 13 0 00 202400 MOVSI AC+1,202400 ;SETUP BR
2966 032527 144 12 0 00 000013 FADR AC,AC+1 ;C(AC)+C(E)
2967 032530 316 12 0 00 000010 CAMN AC,AC-2 ;TEST SUM=203400000000
2968 032531 003 12 0 00 027001 ER3 AC,27001
2969 032532 321 14 0 00 032523 JUMPL AC+2,O27000 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 36
DFKCA1 MAC 3-Oct-80 13:56 PART I.C-FAD (NORM RET, ROUNDING) SEQ 0097
2970 ;TEST FADR
2971 ;SINGLE PRECISION FLOATING NORMALIZATION
2972 ;RENORMALIZATION IS FORCED DUE TO THE ROUNDING OF THE
2973 ;OPERAND OVERFLOWING THE MANTISSA.
2974
2975 000010 AC=10
2976 SAVEAC (1,1)^
2977 032533 201 12 0 00 032533 MOVEI AC+2,.
2978 032534 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2979 032535 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2980 032536 202 12 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2981
2982 032537 525 10 0 00 000777 SPFNRN: HRLOI AC,777 ;FRACTION ALL ONES
2983 032540 200 06 0 00 070560 MOVE AC-2,[034400,,0]
2984
2985 032541 144 10 0 00 070561 FADR AC,[033777,,-1] ;DURING ROUNDING WILL REQ RENORM
2986
2987 032542 312 10 0 00 000006 CAME AC,AC-2 ;WORD GET RENORMED OK ?
2988 032543 003 10 0 00 027010 ER3 AC,27010 ;NO
2989
2990 032544 321 12 0 00 032537 JUMPL AC+2,SPFNRN ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 37
DFKCA1 MAC 3-Oct-80 13:56 PART I.D-FSB SEQ 0098
2991 SUBTTL PART I.D-FSB
2992
2993 ; PART I.D-FSB
2994
2995 ;TEST FCE, FAC, SAC AND DECODE
2996 ;TEST APPARENT ABILITY TO FETCH/STORE
2997 ;C(E),C(AC) AND DECODE
2998 ;AR=205400000000
2999 ;BR=177400000000
3000 ;FCE/SAC FAIL-C(AC)=ORIGINAL
3001 ;FAC FAILS-C(AC)=2'S COMP C(BR)
3002
3003 000007 AC=7
3004 SAVEAC (1,1)^
3005 032545 201 11 0 00 032545 MOVEI AC+2,.
3006 032546 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3007 032547 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3008 032550 202 11 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3009
3010 032551 205 05 0 00 205400 O27100: MOVSI AC-2,205400 ;SETUP FOR COMPARISON
3011 032552 205 07 0 00 205400 MOVSI AC,205400 ;SETUP AC
3012 032553 205 10 0 00 177400 MOVSI AC+1,177400 ;SETUP BR
3013 032554 150 07 0 00 000010 FSB AC,AC+1 ;C(AC)-C(E)
3014 032555 316 07 0 00 000005 CAMN AC,AC-2 ;TEST AC=ORIG
3015 032556 003 07 0 00 027101 ER3 AC,27101 ;FCE/SAC FAILED
3016 032557 205 05 0 00 600400 MOVSI AC-2,600400 ;SETUP FOR COMPARISON
3017 032560 316 07 0 00 000005 CAMN AC,AC-2 ;TEST AC=2'S COMP BR
3018 032561 003 07 0 00 027101 ER3 AC,27101 ;FAC FAILED
3019 032562 321 11 0 00 032551 JUMPL AC+2,O27100 ;LOOP ON ERROR SWITCH
3020
3021 ;AR=200400000000(1/2)
3022 ;BR=177400000000(1/4)
3023 ;FAILURE RESULTS IN LOSS OF SUBTRAHEND
3024 ;FAILURE RESULTS IN AN EXCESSIVE SHIFT
3025 ;COND, STORE MINUEND
3026 ;CORRECT DIFF=177400000000(1/4)
3027 ;ERROR DIFF=202400000000(1/2)
3028
3029 000014 AC=14
3030 SAVEAC (1,1)^
3031 032563 201 16 0 00 032563 MOVEI AC+2,.
3032 032564 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3033 032565 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3034 032566 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3035
3036 032567 205 12 0 00 200400 O27200: MOVSI AC-2,200400 ;SETUP FOR COMPARISON
3037 032570 205 14 0 00 200400 MOVSI AC,200400 ;SETUP AC
3038 032571 205 15 0 00 177400 MOVSI AC+1,177400 ;SETUP BR
3039 032572 150 14 0 00 000015 FSB AC,AC+1 ;C(AC)-C(E)
3040 032573 316 14 0 00 000012 CAMN AC,AC-2 ;TEST DIFF=200400000000
3041 032574 003 14 0 00 027201 ER3 AC,27201
3042 032575 321 16 0 00 032567 JUMPL AC+2,O27200 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 38
DFKCA1 MAC 3-Oct-80 13:56 PART I.D-FSB SEQ 0099
3043 ;AR=200400000000(1/2)
3044 ;BR=177400000000(1/4)
3045 ;FAILURE RESULTS IN A ONE'S COMPLEMENT
3046 ;SUBTRAHEND
3047 ;CORRECTd DIFF=177400000000
3048 ;ERROR DIFF=176477777777
3049
3050 000014 AC=14
3051 SAVEAC (1,1)^
3052 032576 201 16 0 00 032576 MOVEI AC+2,.
3053 032577 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3054 032600 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3055 032601 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3056
3057 032602 541 12 0 00 777774 O27300: HRRI AC-2,-4 ;SETUP AC-2
3058 032603 505 12 0 00 176477 HRLI AC-2,176477 ;FOR COMPARISON
3059 032604 205 14 0 00 200400 MOVSI AC,200400 ;SETUP AC
3060 032605 205 15 0 00 177400 MOVSI AC+1,177400 ;SETUP BR
3061 032606 150 14 0 00 000015 FSB AC,AC+1 ;C(AC)-C(E)
3062 032607 316 14 0 00 000012 CAMN AC,AC-2 ;TEST DIFF=176477777774
3063 032610 003 14 0 00 027301 ER3 AC,27301
3064 032611 321 16 0 00 032602 JUMPL AC+2,O27300 ;LOOP ON ERROR SWITCH
3065
3066 ;AR=200400000000(1/2)
3067 ;BR=177400000000(1/4)
3068 ;FAILURE RESULTS IN LOSS OF 2'S COMP
3069 ;SUBTRAHEND. THE NUMBER IN AR IS ADDED
3070 ;TO ITSELF
3071 ;CORRECT DIFF=177400000000 1/4
3072 ;FAILURE DIFF=201400000000 (1)
3073
3074 000013 AC=13
3075 SAVEAC (1,1)^
3076 032612 201 15 0 00 032612 MOVEI AC+2,.
3077 032613 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3078 032614 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3079 032615 202 15 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3080
3081 032616 205 11 0 00 201400 O27400: MOVSI AC-2,201400 ;SETUP FOR COMPARISON
3082 032617 205 13 0 00 200400 MOVSI AC,200400 ;SETUP AC
3083 032620 205 14 0 00 177400 MOVSI AC+1,177400 ;SETUP BR
3084 032621 150 13 0 00 000014 FSB AC,AC+1 ;C(AC)-C(E)
3085 032622 316 13 0 00 000011 CAMN AC,AC-2 ;TEST DIFF=201400000000
3086 032623 003 13 0 00 027401 ER3 AC,27401
3087 032624 321 15 0 00 032616 JUMPL AC+2,O27400 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 39
DFKCA1 MAC 3-Oct-80 13:56 PART I.D-FSB SEQ 0100
3088 ;AR=200400000000
3089 ;BR=177400000000
3090 ;FAILURE RESULTS IN LOSS OF MINUEND
3091 ;THE NUMBER IN BR IS SUBTRACTED
3092 ;FROM ITSELF. NR ALL ZERO IS ASSERTED
3093
3094 000012 AC=12
3095 SAVEAC (1,1)^
3096 032625 201 14 0 00 032625 MOVEI AC+2,.
3097 032626 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3098 032627 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3099 032630 202 14 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3100
3101 032631 205 12 0 00 200400 O27500: MOVSI AC,200400 ;SETUP AC
3102 032632 205 13 0 00 177400 MOVSI AC+1,177400 ;SETUP BR
3103 032633 150 12 0 00 000013 FSB AC,AC+1 ;C(AC)-C(E)
3104 032634 336 00 0 00 000012 SKIPN AC ;TEST DIFF=0
3105 032635 003 12 0 00 027501 ER3 AC,27501
3106 032636 321 14 0 00 032631 JUMPL AC+2,O27500 ;LOOP ON ERROR SWITCH
3107
3108 ;AR=200400000000(1/2)
3109 ;BR=200400000000(1/2)
3110 ;FAILURE RESULTS IN A MINUEND
3111 ;EQUAL TO 777777777777
3112 ;CORRECT DIFF=0
3113 ;ERROR DIFF=631400000000
3114
3115 000011 AC=11
3116 SAVEAC (1,1)^
3117 032637 201 13 0 00 032637 MOVEI AC+2,.
3118 032640 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3119 032641 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3120 032642 202 13 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3121
3122 032643 205 07 0 00 631400 O27600: MOVSI AC-2,631400 ;SETUP FOR COMPARISON
3123 032644 205 11 0 00 200400 MOVSI AC,200400 ;SETUP AC
3124 032645 205 12 0 00 200400 MOVSI AC+1,200400 ;SETUP BR
3125 032646 150 11 0 00 000012 FSB AC,AC+1 ;C(AC)-C(E)
3126 032647 316 11 0 00 000007 CAMN AC,AC-2 ;TEST DIFF=631400000000
3127 032650 003 11 0 00 027601 ER3 AC,27601
3128 032651 321 13 0 00 032643 JUMPL AC+2,O27600 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 40
DFKCA1 MAC 3-Oct-80 13:56 PART I.D-FSB SEQ 0101
3129 ;AR=200400000000(1/2)
3130 ;BR=177400000000(1/4)
3131 ;FAILURE RESULTS IN ADDING TWO
3132 ;TO THE DIFFERENCE
3133 ;CORRECT DIFF=177400000000
3134 ;ERROR DIFF=177400000002
3135
3136 000010 AC=10
3137 SAVEAC (1,1)^
3138 032652 201 12 0 00 032652 MOVEI AC+2,.
3139 032653 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3140 032654 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3141 032655 202 12 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3142
3143 032656 541 06 0 00 000002 O27700: HRRI AC-2,2 ;SETUP AC-2
3144 032657 505 06 0 00 177400 HRLI AC-2,177400 ;FOR COMPARISON
3145 032660 205 10 0 00 200400 MOVSI AC,200400 ;SETUP AC
3146 032661 205 11 0 00 177400 MOVSI AC+1,177400 ;SETUP BR
3147 032662 150 10 0 00 000011 FSB AC,AC+1 ;C(AC)-C(E)
3148 032663 316 10 0 00 000006 CAMN AC,AC-2 ;TEST DIFF=177400000002
3149 032664 003 10 0 00 027701 ER3 AC,27701
3150 032665 321 12 0 00 032656 JUMPL AC+2,O27700 ;LOOP ON ERROR SWITCH
3151
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 41
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0102
3152 SUBTTL PART I.E-GEN TEST-FSC,FAD,FSB
3153
3154 ;PART I.E-GENERAL TEST-FSC,FAD,FADR,FSB
3155
3156 ;TEST FSC
3157 ;INCREASING SCALE FACTOR
3158 ;AR=000400000000
3159 ;SCALE=1,2,4,10,20,40,100,200
3160 ;RESULTANT EXP=1,2,4,10,20,40,200,
3161
3162 000014 AC=14
3163 SAVEAC (1,1)^
3164 032666 201 16 0 00 032666 MOVEI AC+2,.
3165 032667 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3166 032670 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3167 032671 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3168
3169 030500 SN=30500
3170 000400 XX=400
3171 000000 ZZ=0
3172
3173 O30500: REPEAT ^D8, ;TEST FSC
3174 <SN=SN+1
3175 XX=XX+XX
3176 ZZ=ZZ+ZZ
3177 IFE ZZ,<ZZ=1>
3178 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3179 MOVSI AC,400 ;SETUP AC
3180 FSC AC,ZZ ;RESCALE
3181 CAME AC,AC-2 ;TEST RESULT
3182 ER3 AC,SN ;FSC FAILED
3183 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3184 >
3185 030501 SN=SN+1
3186 001000 XX=XX+XX
3187 000000 ZZ=ZZ+ZZ
3188 000001 IFE ZZ,<ZZ=1>
3189 032672 205 12 0 00 001400 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3190 032673 205 14 0 00 000400 MOVSI AC,400 ;SETUP AC
3191 032674 132 14 0 00 000001 FSC AC,ZZ ;RESCALE
3192 032675 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
3193 032676 003 14 0 00 030501 ER3 AC,SN ;FSC FAILED
3194 032677 321 16 0 00 032672 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3195
3196 030502 SN=SN+1
3197 002000 XX=XX+XX
3198 000002 ZZ=ZZ+ZZ
3199 IFE ZZ,<ZZ=1>
3200 032700 205 12 0 00 002400 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3201 032701 205 14 0 00 000400 MOVSI AC,400 ;SETUP AC
3202 032702 132 14 0 00 000002 FSC AC,ZZ ;RESCALE
3203 032703 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
3204 032704 003 14 0 00 030502 ER3 AC,SN ;FSC FAILED
3205 032705 321 16 0 00 032700 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3206
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 41-1
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0103
3207 030503 SN=SN+1
3208 004000 XX=XX+XX
3209 000004 ZZ=ZZ+ZZ
3210 IFE ZZ,<ZZ=1>
3211 032706 205 12 0 00 004400 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3212 032707 205 14 0 00 000400 MOVSI AC,400 ;SETUP AC
3213 032710 132 14 0 00 000004 FSC AC,ZZ ;RESCALE
3214 032711 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
3215 032712 003 14 0 00 030503 ER3 AC,SN ;FSC FAILED
3216 032713 321 16 0 00 032706 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3217
3218 030504 SN=SN+1
3219 010000 XX=XX+XX
3220 000010 ZZ=ZZ+ZZ
3221 IFE ZZ,<ZZ=1>
3222 032714 205 12 0 00 010400 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3223 032715 205 14 0 00 000400 MOVSI AC,400 ;SETUP AC
3224 032716 132 14 0 00 000010 FSC AC,ZZ ;RESCALE
3225 032717 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
3226 032720 003 14 0 00 030504 ER3 AC,SN ;FSC FAILED
3227 032721 321 16 0 00 032714 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3228
3229 030505 SN=SN+1
3230 020000 XX=XX+XX
3231 000020 ZZ=ZZ+ZZ
3232 IFE ZZ,<ZZ=1>
3233 032722 205 12 0 00 020400 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3234 032723 205 14 0 00 000400 MOVSI AC,400 ;SETUP AC
3235 032724 132 14 0 00 000020 FSC AC,ZZ ;RESCALE
3236 032725 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
3237 032726 003 14 0 00 030505 ER3 AC,SN ;FSC FAILED
3238 032727 321 16 0 00 032722 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3239
3240 030506 SN=SN+1
3241 040000 XX=XX+XX
3242 000040 ZZ=ZZ+ZZ
3243 IFE ZZ,<ZZ=1>
3244 032730 205 12 0 00 040400 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3245 032731 205 14 0 00 000400 MOVSI AC,400 ;SETUP AC
3246 032732 132 14 0 00 000040 FSC AC,ZZ ;RESCALE
3247 032733 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
3248 032734 003 14 0 00 030506 ER3 AC,SN ;FSC FAILED
3249 032735 321 16 0 00 032730 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3250
3251 030507 SN=SN+1
3252 100000 XX=XX+XX
3253 000100 ZZ=ZZ+ZZ
3254 IFE ZZ,<ZZ=1>
3255 032736 205 12 0 00 100400 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3256 032737 205 14 0 00 000400 MOVSI AC,400 ;SETUP AC
3257 032740 132 14 0 00 000100 FSC AC,ZZ ;RESCALE
3258 032741 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
3259 032742 003 14 0 00 030507 ER3 AC,SN ;FSC FAILED
3260 032743 321 16 0 00 032736 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3261
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 41-2
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0104
3262 030510 SN=SN+1
3263 200000 XX=XX+XX
3264 000200 ZZ=ZZ+ZZ
3265 IFE ZZ,<ZZ=1>
3266 032744 205 12 0 00 200400 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3267 032745 205 14 0 00 000400 MOVSI AC,400 ;SETUP AC
3268 032746 132 14 0 00 000200 FSC AC,ZZ ;RESCALE
3269 032747 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
3270 032750 003 14 0 00 030510 ER3 AC,SN ;FSC FAILED
3271 032751 321 16 0 00 032744 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3272
3273 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 41-3
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0105
3274 ;TEST FSC
3275 ;INCREASING EXPONENT
3276 ;AR EXP=201,202,204,210,220,240,300
3277 ;SCALE=1
3278 ;RESULTANT EXP=202,203,205,211,221,241,301
3279
3280 000014 AC=14
3281 SAVEAC (1,1)^
3282 032752 201 16 0 00 032752 MOVEI AC+2,.
3283 032753 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3284 032754 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3285 032755 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3286
3287 030600 SN=30600
3288 000400 ZZ=400
3289
3290 O30600: REPEAT ^D7, ;TEST FSC
3291 <SN=SN+1
3292 ZZ=ZZ+ZZ
3293 XX=ZZ+1000
3294 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
3295 MOVSI AC,200400+ZZ ;SETUP AC
3296 FSC AC,1 ;RESCALE
3297 CAME AC,AC-2 ;TEST RESULT
3298 ER3 AC,SN ;FSC FAILED
3299 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3300 >
3301 030601 SN=SN+1
3302 001000 ZZ=ZZ+ZZ
3303 002000 XX=ZZ+1000
3304 032756 205 12 0 00 202400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
3305 032757 205 14 0 00 201400 MOVSI AC,200400+ZZ ;SETUP AC
3306 032760 132 14 0 00 000001 FSC AC,1 ;RESCALE
3307 032761 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
3308 032762 003 14 0 00 030601 ER3 AC,SN ;FSC FAILED
3309 032763 321 16 0 00 032756 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3310
3311 030602 SN=SN+1
3312 002000 ZZ=ZZ+ZZ
3313 003000 XX=ZZ+1000
3314 032764 205 12 0 00 203400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
3315 032765 205 14 0 00 202400 MOVSI AC,200400+ZZ ;SETUP AC
3316 032766 132 14 0 00 000001 FSC AC,1 ;RESCALE
3317 032767 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
3318 032770 003 14 0 00 030602 ER3 AC,SN ;FSC FAILED
3319 032771 321 16 0 00 032764 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3320
3321 030603 SN=SN+1
3322 004000 ZZ=ZZ+ZZ
3323 005000 XX=ZZ+1000
3324 032772 205 12 0 00 205400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
3325 032773 205 14 0 00 204400 MOVSI AC,200400+ZZ ;SETUP AC
3326 032774 132 14 0 00 000001 FSC AC,1 ;RESCALE
3327 032775 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
3328 032776 003 14 0 00 030603 ER3 AC,SN ;FSC FAILED
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 41-4
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0106
3329 032777 321 16 0 00 032772 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3330
3331 030604 SN=SN+1
3332 010000 ZZ=ZZ+ZZ
3333 011000 XX=ZZ+1000
3334 033000 205 12 0 00 211400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
3335 033001 205 14 0 00 210400 MOVSI AC,200400+ZZ ;SETUP AC
3336 033002 132 14 0 00 000001 FSC AC,1 ;RESCALE
3337 033003 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
3338 033004 003 14 0 00 030604 ER3 AC,SN ;FSC FAILED
3339 033005 321 16 0 00 033000 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3340
3341 030605 SN=SN+1
3342 020000 ZZ=ZZ+ZZ
3343 021000 XX=ZZ+1000
3344 033006 205 12 0 00 221400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
3345 033007 205 14 0 00 220400 MOVSI AC,200400+ZZ ;SETUP AC
3346 033010 132 14 0 00 000001 FSC AC,1 ;RESCALE
3347 033011 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
3348 033012 003 14 0 00 030605 ER3 AC,SN ;FSC FAILED
3349 033013 321 16 0 00 033006 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3350
3351 030606 SN=SN+1
3352 040000 ZZ=ZZ+ZZ
3353 041000 XX=ZZ+1000
3354 033014 205 12 0 00 241400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
3355 033015 205 14 0 00 240400 MOVSI AC,200400+ZZ ;SETUP AC
3356 033016 132 14 0 00 000001 FSC AC,1 ;RESCALE
3357 033017 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
3358 033020 003 14 0 00 030606 ER3 AC,SN ;FSC FAILED
3359 033021 321 16 0 00 033014 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3360
3361 030607 SN=SN+1
3362 100000 ZZ=ZZ+ZZ
3363 101000 XX=ZZ+1000
3364 033022 205 12 0 00 301400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
3365 033023 205 14 0 00 300400 MOVSI AC,200400+ZZ ;SETUP AC
3366 033024 132 14 0 00 000001 FSC AC,1 ;RESCALE
3367 033025 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
3368 033026 003 14 0 00 030607 ER3 AC,SN ;FSC FAILED
3369 033027 321 16 0 00 033022 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3370
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 42
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0107
3371 ;TEST FSC
3372 ;NEGATIVE EXP, POSITIVE SCALE
3373 ;AR=777400000000
3374 ;SCALE=1,2,4,10,20,40,100,
3375 ;RESULTANT EXP=776,775,773,767,757,737,677,577
3376
3377 000013 AC=13
3378 SAVEAC (1,1)^
3379 033030 201 15 0 00 033030 MOVEI AC+2,.
3380 033031 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3381 033032 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3382 033033 202 15 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3383
3384 030700 SN=30700
3385 000400 WW=400
3386 000000 XX=0
3387 776400 ZZ=776400
3388
3389 O30700: REPEAT ^D8, ;TEST FSC
3390 <SN=SN+1
3391 XX=XX+XX
3392 ZZ=ZZ-WW
3393 WW=WW+WW
3394 IFE XX,<XX=1>
3395 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3396 MOVSI AC,777400 ;SETUP AC
3397 FSC AC,XX ;RESCALE
3398 CAME AC,AC-2 ;TEST RESULT
3399 ER3 AC,SN ;FSC FAILED
3400 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3401 >
3402 030701 SN=SN+1
3403 000000 XX=XX+XX
3404 776000 ZZ=ZZ-WW
3405 001000 WW=WW+WW
3406 000001 IFE XX,<XX=1>
3407 033034 205 11 0 00 776400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3408 033035 205 13 0 00 777400 MOVSI AC,777400 ;SETUP AC
3409 033036 132 13 0 00 000001 FSC AC,XX ;RESCALE
3410 033037 312 13 0 00 000011 CAME AC,AC-2 ;TEST RESULT
3411 033040 003 13 0 00 030701 ER3 AC,SN ;FSC FAILED
3412 033041 321 15 0 00 033034 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3413
3414 030702 SN=SN+1
3415 000002 XX=XX+XX
3416 775000 ZZ=ZZ-WW
3417 002000 WW=WW+WW
3418 IFE XX,<XX=1>
3419 033042 205 11 0 00 775400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3420 033043 205 13 0 00 777400 MOVSI AC,777400 ;SETUP AC
3421 033044 132 13 0 00 000002 FSC AC,XX ;RESCALE
3422 033045 312 13 0 00 000011 CAME AC,AC-2 ;TEST RESULT
3423 033046 003 13 0 00 030702 ER3 AC,SN ;FSC FAILED
3424 033047 321 15 0 00 033042 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3425
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 42-1
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0108
3426 030703 SN=SN+1
3427 000004 XX=XX+XX
3428 773000 ZZ=ZZ-WW
3429 004000 WW=WW+WW
3430 IFE XX,<XX=1>
3431 033050 205 11 0 00 773400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3432 033051 205 13 0 00 777400 MOVSI AC,777400 ;SETUP AC
3433 033052 132 13 0 00 000004 FSC AC,XX ;RESCALE
3434 033053 312 13 0 00 000011 CAME AC,AC-2 ;TEST RESULT
3435 033054 003 13 0 00 030703 ER3 AC,SN ;FSC FAILED
3436 033055 321 15 0 00 033050 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3437
3438 030704 SN=SN+1
3439 000010 XX=XX+XX
3440 767000 ZZ=ZZ-WW
3441 010000 WW=WW+WW
3442 IFE XX,<XX=1>
3443 033056 205 11 0 00 767400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3444 033057 205 13 0 00 777400 MOVSI AC,777400 ;SETUP AC
3445 033060 132 13 0 00 000010 FSC AC,XX ;RESCALE
3446 033061 312 13 0 00 000011 CAME AC,AC-2 ;TEST RESULT
3447 033062 003 13 0 00 030704 ER3 AC,SN ;FSC FAILED
3448 033063 321 15 0 00 033056 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3449
3450 030705 SN=SN+1
3451 000020 XX=XX+XX
3452 757000 ZZ=ZZ-WW
3453 020000 WW=WW+WW
3454 IFE XX,<XX=1>
3455 033064 205 11 0 00 757400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3456 033065 205 13 0 00 777400 MOVSI AC,777400 ;SETUP AC
3457 033066 132 13 0 00 000020 FSC AC,XX ;RESCALE
3458 033067 312 13 0 00 000011 CAME AC,AC-2 ;TEST RESULT
3459 033070 003 13 0 00 030705 ER3 AC,SN ;FSC FAILED
3460 033071 321 15 0 00 033064 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3461
3462 030706 SN=SN+1
3463 000040 XX=XX+XX
3464 737000 ZZ=ZZ-WW
3465 040000 WW=WW+WW
3466 IFE XX,<XX=1>
3467 033072 205 11 0 00 737400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3468 033073 205 13 0 00 777400 MOVSI AC,777400 ;SETUP AC
3469 033074 132 13 0 00 000040 FSC AC,XX ;RESCALE
3470 033075 312 13 0 00 000011 CAME AC,AC-2 ;TEST RESULT
3471 033076 003 13 0 00 030706 ER3 AC,SN ;FSC FAILED
3472 033077 321 15 0 00 033072 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3473
3474 030707 SN=SN+1
3475 000100 XX=XX+XX
3476 677000 ZZ=ZZ-WW
3477 100000 WW=WW+WW
3478 IFE XX,<XX=1>
3479 033100 205 11 0 00 677400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3480 033101 205 13 0 00 777400 MOVSI AC,777400 ;SETUP AC
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 42-2
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0109
3481 033102 132 13 0 00 000100 FSC AC,XX ;RESCALE
3482 033103 312 13 0 00 000011 CAME AC,AC-2 ;TEST RESULT
3483 033104 003 13 0 00 030707 ER3 AC,SN ;FSC FAILED
3484 033105 321 15 0 00 033100 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3485
3486 030710 SN=SN+1
3487 000200 XX=XX+XX
3488 577000 ZZ=ZZ-WW
3489 200000 WW=WW+WW
3490 IFE XX,<XX=1>
3491 033106 205 11 0 00 577400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3492 033107 205 13 0 00 777400 MOVSI AC,777400 ;SETUP AC
3493 033110 132 13 0 00 000200 FSC AC,XX ;RESCALE
3494 033111 312 13 0 00 000011 CAME AC,AC-2 ;TEST RESULT
3495 033112 003 13 0 00 030710 ER3 AC,SN ;FSC FAILED
3496 033113 321 15 0 00 033106 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3497
3498 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 42-3
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0110
3499 ;TEST FSC
3500 ;NEGATIVE EXP, NEGATIVE SCALE
3501 ;AR=577400000000
3502 ;SCALE=777,776,775,774,773,772,771,770
3503 ;RESULTANT EXP=600,601,602,603,604,605,606,607
3504
3505 000012 AC=12
3506 SAVEAC (1,1)^
3507 033114 201 14 0 00 033114 MOVEI AC+2,.
3508 033115 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3509 033116 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3510 033117 202 14 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3511
3512 031000 SN=31000
3513 000000 XX=0
3514 577000 ZZ=577000
3515
3516 O31000: REPEAT ^D8, ;TEST FSC
3517 <SN=SN+1
3518 XX=XX-1
3519 ZZ=ZZ+1000
3520 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3521 MOVSI AC,577400 ;SETUP AC
3522 FSC AC,XX ;RESCALE
3523 CAME AC,AC-2 ;TEST RESULT
3524 ER3 AC,SN ;FSC FAILED
3525 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3526 >
3527 031001 SN=SN+1
3528 777777 777777 XX=XX-1
3529 600000 ZZ=ZZ+1000
3530 033120 205 10 0 00 600400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3531 033121 205 12 0 00 577400 MOVSI AC,577400 ;SETUP AC
3532 033122 132 12 0 00 777777 FSC AC,XX ;RESCALE
3533 033123 312 12 0 00 000010 CAME AC,AC-2 ;TEST RESULT
3534 033124 003 12 0 00 031001 ER3 AC,SN ;FSC FAILED
3535 033125 321 14 0 00 033120 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3536
3537 031002 SN=SN+1
3538 777777 777776 XX=XX-1
3539 601000 ZZ=ZZ+1000
3540 033126 205 10 0 00 601400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3541 033127 205 12 0 00 577400 MOVSI AC,577400 ;SETUP AC
3542 033130 132 12 0 00 777776 FSC AC,XX ;RESCALE
3543 033131 312 12 0 00 000010 CAME AC,AC-2 ;TEST RESULT
3544 033132 003 12 0 00 031002 ER3 AC,SN ;FSC FAILED
3545 033133 321 14 0 00 033126 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3546
3547 031003 SN=SN+1
3548 777777 777775 XX=XX-1
3549 602000 ZZ=ZZ+1000
3550 033134 205 10 0 00 602400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3551 033135 205 12 0 00 577400 MOVSI AC,577400 ;SETUP AC
3552 033136 132 12 0 00 777775 FSC AC,XX ;RESCALE
3553 033137 312 12 0 00 000010 CAME AC,AC-2 ;TEST RESULT
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 42-4
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0111
3554 033140 003 12 0 00 031003 ER3 AC,SN ;FSC FAILED
3555 033141 321 14 0 00 033134 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3556
3557 031004 SN=SN+1
3558 777777 777774 XX=XX-1
3559 603000 ZZ=ZZ+1000
3560 033142 205 10 0 00 603400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3561 033143 205 12 0 00 577400 MOVSI AC,577400 ;SETUP AC
3562 033144 132 12 0 00 777774 FSC AC,XX ;RESCALE
3563 033145 312 12 0 00 000010 CAME AC,AC-2 ;TEST RESULT
3564 033146 003 12 0 00 031004 ER3 AC,SN ;FSC FAILED
3565 033147 321 14 0 00 033142 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3566
3567 031005 SN=SN+1
3568 777777 777773 XX=XX-1
3569 604000 ZZ=ZZ+1000
3570 033150 205 10 0 00 604400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3571 033151 205 12 0 00 577400 MOVSI AC,577400 ;SETUP AC
3572 033152 132 12 0 00 777773 FSC AC,XX ;RESCALE
3573 033153 312 12 0 00 000010 CAME AC,AC-2 ;TEST RESULT
3574 033154 003 12 0 00 031005 ER3 AC,SN ;FSC FAILED
3575 033155 321 14 0 00 033150 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3576
3577 031006 SN=SN+1
3578 777777 777772 XX=XX-1
3579 605000 ZZ=ZZ+1000
3580 033156 205 10 0 00 605400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3581 033157 205 12 0 00 577400 MOVSI AC,577400 ;SETUP AC
3582 033160 132 12 0 00 777772 FSC AC,XX ;RESCALE
3583 033161 312 12 0 00 000010 CAME AC,AC-2 ;TEST RESULT
3584 033162 003 12 0 00 031006 ER3 AC,SN ;FSC FAILED
3585 033163 321 14 0 00 033156 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3586
3587 031007 SN=SN+1
3588 777777 777771 XX=XX-1
3589 606000 ZZ=ZZ+1000
3590 033164 205 10 0 00 606400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3591 033165 205 12 0 00 577400 MOVSI AC,577400 ;SETUP AC
3592 033166 132 12 0 00 777771 FSC AC,XX ;RESCALE
3593 033167 312 12 0 00 000010 CAME AC,AC-2 ;TEST RESULT
3594 033170 003 12 0 00 031007 ER3 AC,SN ;FSC FAILED
3595 033171 321 14 0 00 033164 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3596
3597 031010 SN=SN+1
3598 777777 777770 XX=XX-1
3599 607000 ZZ=ZZ+1000
3600 033172 205 10 0 00 607400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3601 033173 205 12 0 00 577400 MOVSI AC,577400 ;SETUP AC
3602 033174 132 12 0 00 777770 FSC AC,XX ;RESCALE
3603 033175 312 12 0 00 000010 CAME AC,AC-2 ;TEST RESULT
3604 033176 003 12 0 00 031010 ER3 AC,SN ;FSC FAILED
3605 033177 321 14 0 00 033172 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3606
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 43
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0112
3607 ;TEST FSC
3608 ;NR ALL ZERO CONDITION
3609 ;AR=200000000000
3610 ;SCALE=1,2,4
3611 ;RESULTANT AC=0
3612
3613 000011 AC=11
3614 SAVEAC (1,1)^
3615 033200 201 13 0 00 033200 MOVEI AC+2,.
3616 033201 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3617 033202 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3618 033203 202 13 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3619
3620 031100 SN=31100
3621 000000 ZZ=0
3622
3623 O31100: REPEAT ^D3, ;TEST FSC -ALL ZERO COND
3624 <SN=SN+1
3625 ZZ=ZZ+ZZ
3626 IFE ZZ,<ZZ=1>
3627 MOVSI AC,200000 ;SETUP AC
3628 FSC AC,ZZ ;RESCALE
3629 SKIPE AC ;TEST AC=0
3630 ER3 AC,SN ;FSC -NR ALL ZERO FAILED
3631 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3632 >
3633 031101 SN=SN+1
3634 000000 ZZ=ZZ+ZZ
3635 000001 IFE ZZ,<ZZ=1>
3636 033204 205 11 0 00 200000 MOVSI AC,200000 ;SETUP AC
3637 033205 132 11 0 00 000001 FSC AC,ZZ ;RESCALE
3638 033206 332 00 0 00 000011 SKIPE AC ;TEST AC=0
3639 033207 003 11 0 00 031101 ER3 AC,SN ;FSC -NR ALL ZERO FAILED
3640 033210 321 13 0 00 033204 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3641
3642 031102 SN=SN+1
3643 000002 ZZ=ZZ+ZZ
3644 IFE ZZ,<ZZ=1>
3645 033211 205 11 0 00 200000 MOVSI AC,200000 ;SETUP AC
3646 033212 132 11 0 00 000002 FSC AC,ZZ ;RESCALE
3647 033213 332 00 0 00 000011 SKIPE AC ;TEST AC=0
3648 033214 003 11 0 00 031102 ER3 AC,SN ;FSC -NR ALL ZERO FAILED
3649 033215 321 13 0 00 033211 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3650
3651 031103 SN=SN+1
3652 000004 ZZ=ZZ+ZZ
3653 IFE ZZ,<ZZ=1>
3654 033216 205 11 0 00 200000 MOVSI AC,200000 ;SETUP AC
3655 033217 132 11 0 00 000004 FSC AC,ZZ ;RESCALE
3656 033220 332 00 0 00 000011 SKIPE AC ;TEST AC=0
3657 033221 003 11 0 00 031103 ER3 AC,SN ;FSC -NR ALL ZERO FAILED
3658 033222 321 13 0 00 033216 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3659
3660 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 43-1
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0113
3661 ;TEST FSC
3662 ;NR SHRT COND
3663 ;AR=577000000000
3664 ;SCALE=1,2,3
3665 ;RESULTANT EXPONENT=575,574,573
3666
3667 000010 AC=10
3668 SAVEAC (1,1)^
3669 033223 201 12 0 00 033223 MOVEI AC+2,.
3670 033224 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3671 033225 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3672 033226 202 12 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3673
3674 031200 SN=31200
3675 576000 XX=576000
3676 000000 ZZ=0
3677
3678 O31200: REPEAT ^D3, ;TEST FSC-NRSHRT
3679 <SN=SN+1
3680 XX=XX-1000
3681 ZZ=ZZ+1
3682 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3683 MOVSI AC,577000 ;SETUP AC
3684 FSC AC,ZZ ;RESCALE
3685 CAME AC,AC-2 ;TEST RESULT
3686 ER3 AC,SN ;FSC NRSHRT FAILED
3687 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3688 >
3689 031201 SN=SN+1
3690 575000 XX=XX-1000
3691 000001 ZZ=ZZ+1
3692 033227 205 06 0 00 575400 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3693 033230 205 10 0 00 577000 MOVSI AC,577000 ;SETUP AC
3694 033231 132 10 0 00 000001 FSC AC,ZZ ;RESCALE
3695 033232 312 10 0 00 000006 CAME AC,AC-2 ;TEST RESULT
3696 033233 003 10 0 00 031201 ER3 AC,SN ;FSC NRSHRT FAILED
3697 033234 321 12 0 00 033227 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3698
3699 031202 SN=SN+1
3700 574000 XX=XX-1000
3701 000002 ZZ=ZZ+1
3702 033235 205 06 0 00 574400 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3703 033236 205 10 0 00 577000 MOVSI AC,577000 ;SETUP AC
3704 033237 132 10 0 00 000002 FSC AC,ZZ ;RESCALE
3705 033240 312 10 0 00 000006 CAME AC,AC-2 ;TEST RESULT
3706 033241 003 10 0 00 031202 ER3 AC,SN ;FSC NRSHRT FAILED
3707 033242 321 12 0 00 033235 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3708
3709 031203 SN=SN+1
3710 573000 XX=XX-1000
3711 000003 ZZ=ZZ+1
3712 033243 205 06 0 00 573400 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3713 033244 205 10 0 00 577000 MOVSI AC,577000 ;SETUP AC
3714 033245 132 10 0 00 000003 FSC AC,ZZ ;RESCALE
3715 033246 312 10 0 00 000006 CAME AC,AC-2 ;TEST RESULT
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 43-2
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0114
3716 033247 003 10 0 00 031203 ER3 AC,SN ;FSC NRSHRT FAILED
3717 033250 321 12 0 00 033243 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3718
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 44
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0115
3719 ;TEST FSC
3720 ;-NR NORMAL
3721 ;AR=200200000000
3722 ;SCALE=1,2,3
3723 ;RESULTANT EXPONENT=200,201,202
3724
3725 000007 AC=7
3726 SAVEAC (1,1)^
3727 033251 201 11 0 00 033251 MOVEI AC+2,.
3728 033252 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3729 033253 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3730 033254 202 11 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3731
3732 031300 SN=31300
3733 177000 XX=177000
3734 000000 ZZ=0
3735
3736 O31300: REPEAT ^D3, ;TEST FSC-NR NORMAL
3737 <SN=SN+1
3738 XX=XX+1000
3739 ZZ=ZZ+1
3740 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3741 MOVSI AC,200200 ;SETUP AC
3742 FSC AC,ZZ ;RESCALE
3743 CAME AC,AC-2 ;TEST RESULT
3744 ER3 AC,SN ;FSC-NR NORMAL FAILED
3745 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3746 >
3747 031301 SN=SN+1
3748 200000 XX=XX+1000
3749 000001 ZZ=ZZ+1
3750 033255 205 05 0 00 200400 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3751 033256 205 07 0 00 200200 MOVSI AC,200200 ;SETUP AC
3752 033257 132 07 0 00 000001 FSC AC,ZZ ;RESCALE
3753 033260 312 07 0 00 000005 CAME AC,AC-2 ;TEST RESULT
3754 033261 003 07 0 00 031301 ER3 AC,SN ;FSC-NR NORMAL FAILED
3755 033262 321 11 0 00 033255 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3756
3757 031302 SN=SN+1
3758 201000 XX=XX+1000
3759 000002 ZZ=ZZ+1
3760 033263 205 05 0 00 201400 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3761 033264 205 07 0 00 200200 MOVSI AC,200200 ;SETUP AC
3762 033265 132 07 0 00 000002 FSC AC,ZZ ;RESCALE
3763 033266 312 07 0 00 000005 CAME AC,AC-2 ;TEST RESULT
3764 033267 003 07 0 00 031302 ER3 AC,SN ;FSC-NR NORMAL FAILED
3765 033270 321 11 0 00 033263 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3766
3767 031303 SN=SN+1
3768 202000 XX=XX+1000
3769 000003 ZZ=ZZ+1
3770 033271 205 05 0 00 202400 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3771 033272 205 07 0 00 200200 MOVSI AC,200200 ;SETUP AC
3772 033273 132 07 0 00 000003 FSC AC,ZZ ;RESCALE
3773 033274 312 07 0 00 000005 CAME AC,AC-2 ;TEST RESULT
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 44-1
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0116
3774 033275 003 07 0 00 031303 ER3 AC,SN ;FSC-NR NORMAL FAILED
3775 033276 321 11 0 00 033271 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3776
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 45
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0117
3777 ;TEST FSC
3778 ;-(NOT) NRSHRT COND
3779 ;TESTING AD9(1) AND AD9-35=0)
3780 ;EXP=400
3781 ;MANTISSA=400,200,100,40,20 ETC
3782 ;SCALE=0
3783 ;RESULTANT AC SHOULD=ORIGINAL
3784
3785 000006 AC=6
3786 SAVEAC (1,1)^
3787 033277 201 10 0 00 033277 MOVEI AC+2,.
3788 033300 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3789 033301 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3790 033302 202 10 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3791
3792 031400 SN=31400
3793 001000 ZZ=1000
3794
3795 O31400: REPEAT ^D9, ;TEST BITS 9-17(1)
3796 <SN=SN+1
3797 ZZ=ZZ/2
3798 MOVSI AC-2,400000+ZZ ;SETUP FOR COMPARISON
3799 MOVSI AC,400000+ZZ ;SETUP AC
3800 FSC AC, ;RESCALE
3801 CAME AC,AC-2 ;TEST RESULT
3802 ER3 AC,SN ;NRSHRT ASSERTED
3803 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3804 >
3805 031401 SN=SN+1
3806 000400 ZZ=ZZ/2
3807 033303 205 04 0 00 400400 MOVSI AC-2,400000+ZZ ;SETUP FOR COMPARISON
3808 033304 205 06 0 00 400400 MOVSI AC,400000+ZZ ;SETUP AC
3809 033305 132 06 0 00 000000 FSC AC, ;RESCALE
3810 033306 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3811 033307 003 06 0 00 031401 ER3 AC,SN ;NRSHRT ASSERTED
3812 033310 321 10 0 00 033303 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3813
3814 031402 SN=SN+1
3815 000200 ZZ=ZZ/2
3816 033311 205 04 0 00 400200 MOVSI AC-2,400000+ZZ ;SETUP FOR COMPARISON
3817 033312 205 06 0 00 400200 MOVSI AC,400000+ZZ ;SETUP AC
3818 033313 132 06 0 00 000000 FSC AC, ;RESCALE
3819 033314 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3820 033315 003 06 0 00 031402 ER3 AC,SN ;NRSHRT ASSERTED
3821 033316 321 10 0 00 033311 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3822
3823 031403 SN=SN+1
3824 000100 ZZ=ZZ/2
3825 033317 205 04 0 00 400100 MOVSI AC-2,400000+ZZ ;SETUP FOR COMPARISON
3826 033320 205 06 0 00 400100 MOVSI AC,400000+ZZ ;SETUP AC
3827 033321 132 06 0 00 000000 FSC AC, ;RESCALE
3828 033322 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3829 033323 003 06 0 00 031403 ER3 AC,SN ;NRSHRT ASSERTED
3830 033324 321 10 0 00 033317 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3831
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 45-1
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0118
3832 031404 SN=SN+1
3833 000040 ZZ=ZZ/2
3834 033325 205 04 0 00 400040 MOVSI AC-2,400000+ZZ ;SETUP FOR COMPARISON
3835 033326 205 06 0 00 400040 MOVSI AC,400000+ZZ ;SETUP AC
3836 033327 132 06 0 00 000000 FSC AC, ;RESCALE
3837 033330 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3838 033331 003 06 0 00 031404 ER3 AC,SN ;NRSHRT ASSERTED
3839 033332 321 10 0 00 033325 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3840
3841 031405 SN=SN+1
3842 000020 ZZ=ZZ/2
3843 033333 205 04 0 00 400020 MOVSI AC-2,400000+ZZ ;SETUP FOR COMPARISON
3844 033334 205 06 0 00 400020 MOVSI AC,400000+ZZ ;SETUP AC
3845 033335 132 06 0 00 000000 FSC AC, ;RESCALE
3846 033336 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3847 033337 003 06 0 00 031405 ER3 AC,SN ;NRSHRT ASSERTED
3848 033340 321 10 0 00 033333 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3849
3850 031406 SN=SN+1
3851 000010 ZZ=ZZ/2
3852 033341 205 04 0 00 400010 MOVSI AC-2,400000+ZZ ;SETUP FOR COMPARISON
3853 033342 205 06 0 00 400010 MOVSI AC,400000+ZZ ;SETUP AC
3854 033343 132 06 0 00 000000 FSC AC, ;RESCALE
3855 033344 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3856 033345 003 06 0 00 031406 ER3 AC,SN ;NRSHRT ASSERTED
3857 033346 321 10 0 00 033341 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3858
3859 031407 SN=SN+1
3860 000004 ZZ=ZZ/2
3861 033347 205 04 0 00 400004 MOVSI AC-2,400000+ZZ ;SETUP FOR COMPARISON
3862 033350 205 06 0 00 400004 MOVSI AC,400000+ZZ ;SETUP AC
3863 033351 132 06 0 00 000000 FSC AC, ;RESCALE
3864 033352 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3865 033353 003 06 0 00 031407 ER3 AC,SN ;NRSHRT ASSERTED
3866 033354 321 10 0 00 033347 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3867
3868 031410 SN=SN+1
3869 000002 ZZ=ZZ/2
3870 033355 205 04 0 00 400002 MOVSI AC-2,400000+ZZ ;SETUP FOR COMPARISON
3871 033356 205 06 0 00 400002 MOVSI AC,400000+ZZ ;SETUP AC
3872 033357 132 06 0 00 000000 FSC AC, ;RESCALE
3873 033360 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3874 033361 003 06 0 00 031410 ER3 AC,SN ;NRSHRT ASSERTED
3875 033362 321 10 0 00 033355 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3876
3877 031411 SN=SN+1
3878 000001 ZZ=ZZ/2
3879 033363 205 04 0 00 400001 MOVSI AC-2,400000+ZZ ;SETUP FOR COMPARISON
3880 033364 205 06 0 00 400001 MOVSI AC,400000+ZZ ;SETUP AC
3881 033365 132 06 0 00 000000 FSC AC, ;RESCALE
3882 033366 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3883 033367 003 06 0 00 031411 ER3 AC,SN ;NRSHRT ASSERTED
3884 033370 321 10 0 00 033363 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3885
3886 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 45-2
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0119
3887 031500 SN=31500
3888 000000 ZZ=0
3889 O31500: REPEAT ^D18, ;TEST BITS 18-35(1)
3890 <SN=SN+1
3891 ZZ=ZZ/2
3892 IFE ZZ,<ZZ=400000>
3893 HRLI AC-2,400000 ;SETUP AC-2
3894 HRRI AC-2,ZZ ;FOR COMPARISON
3895 HRLI AC,400000 ;SETUP
3896 HRRI AC,ZZ ;AC
3897 FSC AC, ;RESCALE
3898 CAME AC,AC-2 ;TEST RESULT
3899 ER3 AC,SN ;NRSHRT ASSERTED
3900 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
3901 >
3902 031501 SN=SN+1
3903 000000 ZZ=ZZ/2
3904 400000 IFE ZZ,<ZZ=400000>
3905 033371 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
3906 033372 541 04 0 00 400000 HRRI AC-2,ZZ ;FOR COMPARISON
3907 033373 505 06 0 00 400000 HRLI AC,400000 ;SETUP
3908 033374 541 06 0 00 400000 HRRI AC,ZZ ;AC
3909 033375 132 06 0 00 000000 FSC AC, ;RESCALE
3910 033376 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3911 033377 003 06 0 00 031501 ER3 AC,SN ;NRSHRT ASSERTED
3912 033400 321 10 0 00 033371 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
3913
3914 031502 SN=SN+1
3915 200000 ZZ=ZZ/2
3916 IFE ZZ,<ZZ=400000>
3917 033401 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
3918 033402 541 04 0 00 200000 HRRI AC-2,ZZ ;FOR COMPARISON
3919 033403 505 06 0 00 400000 HRLI AC,400000 ;SETUP
3920 033404 541 06 0 00 200000 HRRI AC,ZZ ;AC
3921 033405 132 06 0 00 000000 FSC AC, ;RESCALE
3922 033406 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3923 033407 003 06 0 00 031502 ER3 AC,SN ;NRSHRT ASSERTED
3924 033410 321 10 0 00 033401 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
3925
3926 031503 SN=SN+1
3927 100000 ZZ=ZZ/2
3928 IFE ZZ,<ZZ=400000>
3929 033411 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
3930 033412 541 04 0 00 100000 HRRI AC-2,ZZ ;FOR COMPARISON
3931 033413 505 06 0 00 400000 HRLI AC,400000 ;SETUP
3932 033414 541 06 0 00 100000 HRRI AC,ZZ ;AC
3933 033415 132 06 0 00 000000 FSC AC, ;RESCALE
3934 033416 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3935 033417 003 06 0 00 031503 ER3 AC,SN ;NRSHRT ASSERTED
3936 033420 321 10 0 00 033411 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
3937
3938 031504 SN=SN+1
3939 040000 ZZ=ZZ/2
3940 IFE ZZ,<ZZ=400000>
3941 033421 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 45-3
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0120
3942 033422 541 04 0 00 040000 HRRI AC-2,ZZ ;FOR COMPARISON
3943 033423 505 06 0 00 400000 HRLI AC,400000 ;SETUP
3944 033424 541 06 0 00 040000 HRRI AC,ZZ ;AC
3945 033425 132 06 0 00 000000 FSC AC, ;RESCALE
3946 033426 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3947 033427 003 06 0 00 031504 ER3 AC,SN ;NRSHRT ASSERTED
3948 033430 321 10 0 00 033421 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
3949
3950 031505 SN=SN+1
3951 020000 ZZ=ZZ/2
3952 IFE ZZ,<ZZ=400000>
3953 033431 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
3954 033432 541 04 0 00 020000 HRRI AC-2,ZZ ;FOR COMPARISON
3955 033433 505 06 0 00 400000 HRLI AC,400000 ;SETUP
3956 033434 541 06 0 00 020000 HRRI AC,ZZ ;AC
3957 033435 132 06 0 00 000000 FSC AC, ;RESCALE
3958 033436 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3959 033437 003 06 0 00 031505 ER3 AC,SN ;NRSHRT ASSERTED
3960 033440 321 10 0 00 033431 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
3961
3962 031506 SN=SN+1
3963 010000 ZZ=ZZ/2
3964 IFE ZZ,<ZZ=400000>
3965 033441 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
3966 033442 541 04 0 00 010000 HRRI AC-2,ZZ ;FOR COMPARISON
3967 033443 505 06 0 00 400000 HRLI AC,400000 ;SETUP
3968 033444 541 06 0 00 010000 HRRI AC,ZZ ;AC
3969 033445 132 06 0 00 000000 FSC AC, ;RESCALE
3970 033446 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3971 033447 003 06 0 00 031506 ER3 AC,SN ;NRSHRT ASSERTED
3972 033450 321 10 0 00 033441 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
3973
3974 031507 SN=SN+1
3975 004000 ZZ=ZZ/2
3976 IFE ZZ,<ZZ=400000>
3977 033451 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
3978 033452 541 04 0 00 004000 HRRI AC-2,ZZ ;FOR COMPARISON
3979 033453 505 06 0 00 400000 HRLI AC,400000 ;SETUP
3980 033454 541 06 0 00 004000 HRRI AC,ZZ ;AC
3981 033455 132 06 0 00 000000 FSC AC, ;RESCALE
3982 033456 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3983 033457 003 06 0 00 031507 ER3 AC,SN ;NRSHRT ASSERTED
3984 033460 321 10 0 00 033451 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
3985
3986 031510 SN=SN+1
3987 002000 ZZ=ZZ/2
3988 IFE ZZ,<ZZ=400000>
3989 033461 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
3990 033462 541 04 0 00 002000 HRRI AC-2,ZZ ;FOR COMPARISON
3991 033463 505 06 0 00 400000 HRLI AC,400000 ;SETUP
3992 033464 541 06 0 00 002000 HRRI AC,ZZ ;AC
3993 033465 132 06 0 00 000000 FSC AC, ;RESCALE
3994 033466 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3995 033467 003 06 0 00 031510 ER3 AC,SN ;NRSHRT ASSERTED
3996 033470 321 10 0 00 033461 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 45-4
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0121
3997
3998 031511 SN=SN+1
3999 001000 ZZ=ZZ/2
4000 IFE ZZ,<ZZ=400000>
4001 033471 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
4002 033472 541 04 0 00 001000 HRRI AC-2,ZZ ;FOR COMPARISON
4003 033473 505 06 0 00 400000 HRLI AC,400000 ;SETUP
4004 033474 541 06 0 00 001000 HRRI AC,ZZ ;AC
4005 033475 132 06 0 00 000000 FSC AC, ;RESCALE
4006 033476 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
4007 033477 003 06 0 00 031511 ER3 AC,SN ;NRSHRT ASSERTED
4008 033500 321 10 0 00 033471 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
4009
4010 031512 SN=SN+1
4011 000400 ZZ=ZZ/2
4012 IFE ZZ,<ZZ=400000>
4013 033501 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
4014 033502 541 04 0 00 000400 HRRI AC-2,ZZ ;FOR COMPARISON
4015 033503 505 06 0 00 400000 HRLI AC,400000 ;SETUP
4016 033504 541 06 0 00 000400 HRRI AC,ZZ ;AC
4017 033505 132 06 0 00 000000 FSC AC, ;RESCALE
4018 033506 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
4019 033507 003 06 0 00 031512 ER3 AC,SN ;NRSHRT ASSERTED
4020 033510 321 10 0 00 033501 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
4021
4022 031513 SN=SN+1
4023 000200 ZZ=ZZ/2
4024 IFE ZZ,<ZZ=400000>
4025 033511 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
4026 033512 541 04 0 00 000200 HRRI AC-2,ZZ ;FOR COMPARISON
4027 033513 505 06 0 00 400000 HRLI AC,400000 ;SETUP
4028 033514 541 06 0 00 000200 HRRI AC,ZZ ;AC
4029 033515 132 06 0 00 000000 FSC AC, ;RESCALE
4030 033516 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
4031 033517 003 06 0 00 031513 ER3 AC,SN ;NRSHRT ASSERTED
4032 033520 321 10 0 00 033511 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
4033
4034 031514 SN=SN+1
4035 000100 ZZ=ZZ/2
4036 IFE ZZ,<ZZ=400000>
4037 033521 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
4038 033522 541 04 0 00 000100 HRRI AC-2,ZZ ;FOR COMPARISON
4039 033523 505 06 0 00 400000 HRLI AC,400000 ;SETUP
4040 033524 541 06 0 00 000100 HRRI AC,ZZ ;AC
4041 033525 132 06 0 00 000000 FSC AC, ;RESCALE
4042 033526 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
4043 033527 003 06 0 00 031514 ER3 AC,SN ;NRSHRT ASSERTED
4044 033530 321 10 0 00 033521 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
4045
4046 031515 SN=SN+1
4047 000040 ZZ=ZZ/2
4048 IFE ZZ,<ZZ=400000>
4049 033531 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
4050 033532 541 04 0 00 000040 HRRI AC-2,ZZ ;FOR COMPARISON
4051 033533 505 06 0 00 400000 HRLI AC,400000 ;SETUP
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 45-5
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0122
4052 033534 541 06 0 00 000040 HRRI AC,ZZ ;AC
4053 033535 132 06 0 00 000000 FSC AC, ;RESCALE
4054 033536 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
4055 033537 003 06 0 00 031515 ER3 AC,SN ;NRSHRT ASSERTED
4056 033540 321 10 0 00 033531 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
4057
4058 031516 SN=SN+1
4059 000020 ZZ=ZZ/2
4060 IFE ZZ,<ZZ=400000>
4061 033541 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
4062 033542 541 04 0 00 000020 HRRI AC-2,ZZ ;FOR COMPARISON
4063 033543 505 06 0 00 400000 HRLI AC,400000 ;SETUP
4064 033544 541 06 0 00 000020 HRRI AC,ZZ ;AC
4065 033545 132 06 0 00 000000 FSC AC, ;RESCALE
4066 033546 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
4067 033547 003 06 0 00 031516 ER3 AC,SN ;NRSHRT ASSERTED
4068 033550 321 10 0 00 033541 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
4069
4070 031517 SN=SN+1
4071 000010 ZZ=ZZ/2
4072 IFE ZZ,<ZZ=400000>
4073 033551 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
4074 033552 541 04 0 00 000010 HRRI AC-2,ZZ ;FOR COMPARISON
4075 033553 505 06 0 00 400000 HRLI AC,400000 ;SETUP
4076 033554 541 06 0 00 000010 HRRI AC,ZZ ;AC
4077 033555 132 06 0 00 000000 FSC AC, ;RESCALE
4078 033556 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
4079 033557 003 06 0 00 031517 ER3 AC,SN ;NRSHRT ASSERTED
4080 033560 321 10 0 00 033551 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
4081
4082 031520 SN=SN+1
4083 000004 ZZ=ZZ/2
4084 IFE ZZ,<ZZ=400000>
4085 033561 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
4086 033562 541 04 0 00 000004 HRRI AC-2,ZZ ;FOR COMPARISON
4087 033563 505 06 0 00 400000 HRLI AC,400000 ;SETUP
4088 033564 541 06 0 00 000004 HRRI AC,ZZ ;AC
4089 033565 132 06 0 00 000000 FSC AC, ;RESCALE
4090 033566 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
4091 033567 003 06 0 00 031520 ER3 AC,SN ;NRSHRT ASSERTED
4092 033570 321 10 0 00 033561 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
4093
4094 031521 SN=SN+1
4095 000002 ZZ=ZZ/2
4096 IFE ZZ,<ZZ=400000>
4097 033571 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
4098 033572 541 04 0 00 000002 HRRI AC-2,ZZ ;FOR COMPARISON
4099 033573 505 06 0 00 400000 HRLI AC,400000 ;SETUP
4100 033574 541 06 0 00 000002 HRRI AC,ZZ ;AC
4101 033575 132 06 0 00 000000 FSC AC, ;RESCALE
4102 033576 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
4103 033577 003 06 0 00 031521 ER3 AC,SN ;NRSHRT ASSERTED
4104 033600 321 10 0 00 033571 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
4105
4106 031522 SN=SN+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 45-6
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0123
4107 000001 ZZ=ZZ/2
4108 IFE ZZ,<ZZ=400000>
4109 033601 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
4110 033602 541 04 0 00 000001 HRRI AC-2,ZZ ;FOR COMPARISON
4111 033603 505 06 0 00 400000 HRLI AC,400000 ;SETUP
4112 033604 541 06 0 00 000001 HRRI AC,ZZ ;AC
4113 033605 132 06 0 00 000000 FSC AC, ;RESCALE
4114 033606 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
4115 033607 003 06 0 00 031522 ER3 AC,SN ;NRSHRT ASSERTED
4116 033610 321 10 0 00 033601 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
4117
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 46
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0124
4118 ;TEST FAD
4119 ;TEST TWO POSITIVES
4120 ;AR=200200,ZZ (UNNORMALIZED)
4121 ;BR=200200,ZZ (UNNORMALIZED)
4122 ;SUM=200400,ZZ+ZZ
4123
4124 000014 AC=14
4125 SAVEAC (1,1)^
4126 033611 201 16 0 00 033611 MOVEI AC+2,.
4127 033612 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
4128 033613 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4129 033614 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4130
4131 031600 SN=31600
4132 000001 XX=1
4133 000000 ZZ=0
4134
4135 O31600: REPEAT ^D10, ;TEST FAD
4136 <SN=SN+1
4137 XX=XX+XX
4138 ZZ=ZZ+ZZ
4139 IFE ZZ,<ZZ=1>
4140 HRLI AC-2,200400 ;SETUP AC-2
4141 HRRI AC-2,XX ;FOR COMPARISON
4142 HRLI AC,200200 ;SETUP
4143 HRRI AC,ZZ ;AC
4144 MOVEM AC,AC-1 ;SETUP BR
4145 FAD AC,AC-1 ;C(AC)+C(E)
4146 CAME AC,AC-2 ;TEST SUM
4147 ER3 AC,SN ;FAD FAILED
4148 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
4149 >
4150 031601 SN=SN+1
4151 000002 XX=XX+XX
4152 000000 ZZ=ZZ+ZZ
4153 000001 IFE ZZ,<ZZ=1>
4154 033615 505 12 0 00 200400 HRLI AC-2,200400 ;SETUP AC-2
4155 033616 541 12 0 00 000002 HRRI AC-2,XX ;FOR COMPARISON
4156 033617 505 14 0 00 200200 HRLI AC,200200 ;SETUP
4157 033620 541 14 0 00 000001 HRRI AC,ZZ ;AC
4158 033621 202 14 0 00 000013 MOVEM AC,AC-1 ;SETUP BR
4159 033622 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4160 033623 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4161 033624 003 14 0 00 031601 ER3 AC,SN ;FAD FAILED
4162 033625 321 16 0 00 033615 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
4163
4164 031602 SN=SN+1
4165 000004 XX=XX+XX
4166 000002 ZZ=ZZ+ZZ
4167 IFE ZZ,<ZZ=1>
4168 033626 505 12 0 00 200400 HRLI AC-2,200400 ;SETUP AC-2
4169 033627 541 12 0 00 000004 HRRI AC-2,XX ;FOR COMPARISON
4170 033630 505 14 0 00 200200 HRLI AC,200200 ;SETUP
4171 033631 541 14 0 00 000002 HRRI AC,ZZ ;AC
4172 033632 202 14 0 00 000013 MOVEM AC,AC-1 ;SETUP BR
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 46-1
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0125
4173 033633 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4174 033634 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4175 033635 003 14 0 00 031602 ER3 AC,SN ;FAD FAILED
4176 033636 321 16 0 00 033626 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
4177
4178 031603 SN=SN+1
4179 000010 XX=XX+XX
4180 000004 ZZ=ZZ+ZZ
4181 IFE ZZ,<ZZ=1>
4182 033637 505 12 0 00 200400 HRLI AC-2,200400 ;SETUP AC-2
4183 033640 541 12 0 00 000010 HRRI AC-2,XX ;FOR COMPARISON
4184 033641 505 14 0 00 200200 HRLI AC,200200 ;SETUP
4185 033642 541 14 0 00 000004 HRRI AC,ZZ ;AC
4186 033643 202 14 0 00 000013 MOVEM AC,AC-1 ;SETUP BR
4187 033644 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4188 033645 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4189 033646 003 14 0 00 031603 ER3 AC,SN ;FAD FAILED
4190 033647 321 16 0 00 033637 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
4191
4192 031604 SN=SN+1
4193 000020 XX=XX+XX
4194 000010 ZZ=ZZ+ZZ
4195 IFE ZZ,<ZZ=1>
4196 033650 505 12 0 00 200400 HRLI AC-2,200400 ;SETUP AC-2
4197 033651 541 12 0 00 000020 HRRI AC-2,XX ;FOR COMPARISON
4198 033652 505 14 0 00 200200 HRLI AC,200200 ;SETUP
4199 033653 541 14 0 00 000010 HRRI AC,ZZ ;AC
4200 033654 202 14 0 00 000013 MOVEM AC,AC-1 ;SETUP BR
4201 033655 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4202 033656 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4203 033657 003 14 0 00 031604 ER3 AC,SN ;FAD FAILED
4204 033660 321 16 0 00 033650 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
4205
4206 031605 SN=SN+1
4207 000040 XX=XX+XX
4208 000020 ZZ=ZZ+ZZ
4209 IFE ZZ,<ZZ=1>
4210 033661 505 12 0 00 200400 HRLI AC-2,200400 ;SETUP AC-2
4211 033662 541 12 0 00 000040 HRRI AC-2,XX ;FOR COMPARISON
4212 033663 505 14 0 00 200200 HRLI AC,200200 ;SETUP
4213 033664 541 14 0 00 000020 HRRI AC,ZZ ;AC
4214 033665 202 14 0 00 000013 MOVEM AC,AC-1 ;SETUP BR
4215 033666 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4216 033667 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4217 033670 003 14 0 00 031605 ER3 AC,SN ;FAD FAILED
4218 033671 321 16 0 00 033661 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
4219
4220 031606 SN=SN+1
4221 000100 XX=XX+XX
4222 000040 ZZ=ZZ+ZZ
4223 IFE ZZ,<ZZ=1>
4224 033672 505 12 0 00 200400 HRLI AC-2,200400 ;SETUP AC-2
4225 033673 541 12 0 00 000100 HRRI AC-2,XX ;FOR COMPARISON
4226 033674 505 14 0 00 200200 HRLI AC,200200 ;SETUP
4227 033675 541 14 0 00 000040 HRRI AC,ZZ ;AC
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 46-2
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0126
4228 033676 202 14 0 00 000013 MOVEM AC,AC-1 ;SETUP BR
4229 033677 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4230 033700 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4231 033701 003 14 0 00 031606 ER3 AC,SN ;FAD FAILED
4232 033702 321 16 0 00 033672 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
4233
4234 031607 SN=SN+1
4235 000200 XX=XX+XX
4236 000100 ZZ=ZZ+ZZ
4237 IFE ZZ,<ZZ=1>
4238 033703 505 12 0 00 200400 HRLI AC-2,200400 ;SETUP AC-2
4239 033704 541 12 0 00 000200 HRRI AC-2,XX ;FOR COMPARISON
4240 033705 505 14 0 00 200200 HRLI AC,200200 ;SETUP
4241 033706 541 14 0 00 000100 HRRI AC,ZZ ;AC
4242 033707 202 14 0 00 000013 MOVEM AC,AC-1 ;SETUP BR
4243 033710 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4244 033711 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4245 033712 003 14 0 00 031607 ER3 AC,SN ;FAD FAILED
4246 033713 321 16 0 00 033703 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
4247
4248 031610 SN=SN+1
4249 000400 XX=XX+XX
4250 000200 ZZ=ZZ+ZZ
4251 IFE ZZ,<ZZ=1>
4252 033714 505 12 0 00 200400 HRLI AC-2,200400 ;SETUP AC-2
4253 033715 541 12 0 00 000400 HRRI AC-2,XX ;FOR COMPARISON
4254 033716 505 14 0 00 200200 HRLI AC,200200 ;SETUP
4255 033717 541 14 0 00 000200 HRRI AC,ZZ ;AC
4256 033720 202 14 0 00 000013 MOVEM AC,AC-1 ;SETUP BR
4257 033721 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4258 033722 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4259 033723 003 14 0 00 031610 ER3 AC,SN ;FAD FAILED
4260 033724 321 16 0 00 033714 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
4261
4262 031611 SN=SN+1
4263 001000 XX=XX+XX
4264 000400 ZZ=ZZ+ZZ
4265 IFE ZZ,<ZZ=1>
4266 033725 505 12 0 00 200400 HRLI AC-2,200400 ;SETUP AC-2
4267 033726 541 12 0 00 001000 HRRI AC-2,XX ;FOR COMPARISON
4268 033727 505 14 0 00 200200 HRLI AC,200200 ;SETUP
4269 033730 541 14 0 00 000400 HRRI AC,ZZ ;AC
4270 033731 202 14 0 00 000013 MOVEM AC,AC-1 ;SETUP BR
4271 033732 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4272 033733 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4273 033734 003 14 0 00 031611 ER3 AC,SN ;FAD FAILED
4274 033735 321 16 0 00 033725 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
4275
4276 031612 SN=SN+1
4277 002000 XX=XX+XX
4278 001000 ZZ=ZZ+ZZ
4279 IFE ZZ,<ZZ=1>
4280 033736 505 12 0 00 200400 HRLI AC-2,200400 ;SETUP AC-2
4281 033737 541 12 0 00 002000 HRRI AC-2,XX ;FOR COMPARISON
4282 033740 505 14 0 00 200200 HRLI AC,200200 ;SETUP
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 46-3
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0127
4283 033741 541 14 0 00 001000 HRRI AC,ZZ ;AC
4284 033742 202 14 0 00 000013 MOVEM AC,AC-1 ;SETUP BR
4285 033743 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4286 033744 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4287 033745 003 14 0 00 031612 ER3 AC,SN ;FAD FAILED
4288 033746 321 16 0 00 033736 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
4289
4290 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 46-4
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0128
4291 ;TEST FAD
4292 ;TWO POSITIVES
4293 ;AR=1/4,1/8,1/16,1/32,1/64,1/128
4294 ;BR=201400000000 (+1)
4295 ;SUMS=1 1/4, 1 1/8, 1 1/16, 1 1/32, 1 1/64, 1 1/128
4296
4297 000014 AC=14
4298 SAVEAC (1,1)^
4299 033747 201 16 0 00 033747 MOVEI AC+2,.
4300 033750 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
4301 033751 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4302 033752 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4303
4304 031700 SN=31700
4305 171400 XX=171400
4306 000001 ZZ=1
4307
4308 O31700: REPEAT ^D6, ;TEST FAD
4309 <SN=SN+1
4310 XX=XX+1000
4311 ZZ=ZZ+ZZ
4312 MOVSI AC-2,201400+ZZ ;SETUP FOR COMPARISON
4313 MOVSI AC,XX ;SETUP AC
4314 MOVSI AC-1,201400 ;SETUP BR
4315 FAD AC,AC-1 ;C (AC)+C(E)
4316 CAME AC,AC-2 ;TEST RESULT
4317 ER3 AC,SN ;FAD FAILED
4318 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4319 >
4320 031701 SN=SN+1
4321 172400 XX=XX+1000
4322 000002 ZZ=ZZ+ZZ
4323 033753 205 12 0 00 201402 MOVSI AC-2,201400+ZZ ;SETUP FOR COMPARISON
4324 033754 205 14 0 00 172400 MOVSI AC,XX ;SETUP AC
4325 033755 205 13 0 00 201400 MOVSI AC-1,201400 ;SETUP BR
4326 033756 140 14 0 00 000013 FAD AC,AC-1 ;C (AC)+C(E)
4327 033757 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
4328 033760 003 14 0 00 031701 ER3 AC,SN ;FAD FAILED
4329 033761 321 16 0 00 033753 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4330
4331 031702 SN=SN+1
4332 173400 XX=XX+1000
4333 000004 ZZ=ZZ+ZZ
4334 033762 205 12 0 00 201404 MOVSI AC-2,201400+ZZ ;SETUP FOR COMPARISON
4335 033763 205 14 0 00 173400 MOVSI AC,XX ;SETUP AC
4336 033764 205 13 0 00 201400 MOVSI AC-1,201400 ;SETUP BR
4337 033765 140 14 0 00 000013 FAD AC,AC-1 ;C (AC)+C(E)
4338 033766 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
4339 033767 003 14 0 00 031702 ER3 AC,SN ;FAD FAILED
4340 033770 321 16 0 00 033762 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4341
4342 031703 SN=SN+1
4343 174400 XX=XX+1000
4344 000010 ZZ=ZZ+ZZ
4345 033771 205 12 0 00 201410 MOVSI AC-2,201400+ZZ ;SETUP FOR COMPARISON
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 46-5
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0129
4346 033772 205 14 0 00 174400 MOVSI AC,XX ;SETUP AC
4347 033773 205 13 0 00 201400 MOVSI AC-1,201400 ;SETUP BR
4348 033774 140 14 0 00 000013 FAD AC,AC-1 ;C (AC)+C(E)
4349 033775 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
4350 033776 003 14 0 00 031703 ER3 AC,SN ;FAD FAILED
4351 033777 321 16 0 00 033771 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4352
4353 031704 SN=SN+1
4354 175400 XX=XX+1000
4355 000020 ZZ=ZZ+ZZ
4356 034000 205 12 0 00 201420 MOVSI AC-2,201400+ZZ ;SETUP FOR COMPARISON
4357 034001 205 14 0 00 175400 MOVSI AC,XX ;SETUP AC
4358 034002 205 13 0 00 201400 MOVSI AC-1,201400 ;SETUP BR
4359 034003 140 14 0 00 000013 FAD AC,AC-1 ;C (AC)+C(E)
4360 034004 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
4361 034005 003 14 0 00 031704 ER3 AC,SN ;FAD FAILED
4362 034006 321 16 0 00 034000 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4363
4364 031705 SN=SN+1
4365 176400 XX=XX+1000
4366 000040 ZZ=ZZ+ZZ
4367 034007 205 12 0 00 201440 MOVSI AC-2,201400+ZZ ;SETUP FOR COMPARISON
4368 034010 205 14 0 00 176400 MOVSI AC,XX ;SETUP AC
4369 034011 205 13 0 00 201400 MOVSI AC-1,201400 ;SETUP BR
4370 034012 140 14 0 00 000013 FAD AC,AC-1 ;C (AC)+C(E)
4371 034013 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
4372 034014 003 14 0 00 031705 ER3 AC,SN ;FAD FAILED
4373 034015 321 16 0 00 034007 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4374
4375 031706 SN=SN+1
4376 177400 XX=XX+1000
4377 000100 ZZ=ZZ+ZZ
4378 034016 205 12 0 00 201500 MOVSI AC-2,201400+ZZ ;SETUP FOR COMPARISON
4379 034017 205 14 0 00 177400 MOVSI AC,XX ;SETUP AC
4380 034020 205 13 0 00 201400 MOVSI AC-1,201400 ;SETUP BR
4381 034021 140 14 0 00 000013 FAD AC,AC-1 ;C (AC)+C(E)
4382 034022 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
4383 034023 003 14 0 00 031706 ER3 AC,SN ;FAD FAILED
4384 034024 321 16 0 00 034016 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4385
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 47
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0130
4386 ;TEST FAD
4387 ;TWO POSITIVES-LARGER EXPONENT IN AC
4388 ;AR=202.6 (3), 202.4 (2),201.4(1)
4389 ;BR=200.4 (+1/2)
4390 ;SUMS=202.7, 202.5, 201.6
4391
4392 000013 AC=13
4393 SAVEAC (1,1)^
4394 034025 201 15 0 00 034025 MOVEI AC+2,.
4395 034026 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
4396 034027 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4397 034030 202 15 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4398
4399 034031 205 11 0 00 202700 O32000: MOVSI AC-2,202700 ;SETUP FOR COMPARISON
4400 034032 205 13 0 00 202600 MOVSI AC,202600 ;SETUP AC
4401 034033 205 12 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
4402 034034 140 13 0 00 000012 FAD AC,AC-1 ;C(AC)+C(E)
4403 034035 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
4404 034036 003 13 0 00 032001 ER3 AC,32001 ;FAD FAILED
4405 034037 321 15 0 00 034031 JUMPL AC+2,O32000 ;LOOP ON ERROR SWITCH
4406
4407 034040 205 11 0 00 202500 O32100: MOVSI AC-2,202500 ;SETUP FOR COMPARISON
4408 034041 205 13 0 00 202400 MOVSI AC,202400 ;SETUP AC
4409 034042 205 12 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
4410 034043 140 13 0 00 000012 FAD AC,AC-1 ;C(AC)+C(E)
4411 034044 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
4412 034045 003 13 0 00 032101 ER3 AC,32101 ;FAD FAILED
4413 034046 321 15 0 00 034040 JUMPL AC+2,O32100 ;LOOP ON ERROR SWITCH
4414
4415 034047 205 11 0 00 201600 O32200: MOVSI AC-2,201600 ;SETUP FOR COMPARISON
4416 034050 205 13 0 00 201400 MOVSI AC,201400 ;SETUP AC
4417 034051 205 12 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
4418 034052 140 13 0 00 000012 FAD AC,AC-1 ;C(AC) +C(E)
4419 034053 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
4420 034054 003 13 0 00 032201 ER3 AC,32201 ;FAD FAILED
4421 034055 321 15 0 00 034047 JUMPL AC+2,O32200 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 48
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0131
4422 ;TEST FAD
4423 ;TWO POSITIVES
4424 ;EXCESSIVE SHIFT COND
4425 ;AR=000400000000
4426 ;BR=200.4,201.4,202.4
4427
4428 000012 AC=12
4429 SAVEAC (1,1)^
4430 034056 201 14 0 00 034056 MOVEI AC+2,.
4431 034057 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
4432 034060 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4433 034061 202 14 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4434
4435 032300 SN=32300
4436 177400 ZZ=177400
4437
4438 O32300: REPEAT ^D3, ;TEST FAD EXCESSIVE SHIFT
4439 <SN=SN+1
4440 ZZ=ZZ+1000
4441 MOVSI AC,400 ;SETUP AC
4442 MOVSI AC-1,ZZ ;SETUP BR
4443 FAD AC,AC-1 ;C(AC) + C(E)
4444 CAME AC,AC-1 ;TEST SUM
4445 ER3 AC,SN ;FAD FAILED
4446 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
4447 >
4448 032301 SN=SN+1
4449 200400 ZZ=ZZ+1000
4450 034062 205 12 0 00 000400 MOVSI AC,400 ;SETUP AC
4451 034063 205 11 0 00 200400 MOVSI AC-1,ZZ ;SETUP BR
4452 034064 140 12 0 00 000011 FAD AC,AC-1 ;C(AC) + C(E)
4453 034065 312 12 0 00 000011 CAME AC,AC-1 ;TEST SUM
4454 034066 003 12 0 00 032301 ER3 AC,SN ;FAD FAILED
4455 034067 321 14 0 00 034062 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
4456
4457 032302 SN=SN+1
4458 201400 ZZ=ZZ+1000
4459 034070 205 12 0 00 000400 MOVSI AC,400 ;SETUP AC
4460 034071 205 11 0 00 201400 MOVSI AC-1,ZZ ;SETUP BR
4461 034072 140 12 0 00 000011 FAD AC,AC-1 ;C(AC) + C(E)
4462 034073 312 12 0 00 000011 CAME AC,AC-1 ;TEST SUM
4463 034074 003 12 0 00 032302 ER3 AC,SN ;FAD FAILED
4464 034075 321 14 0 00 034070 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
4465
4466 032303 SN=SN+1
4467 202400 ZZ=ZZ+1000
4468 034076 205 12 0 00 000400 MOVSI AC,400 ;SETUP AC
4469 034077 205 11 0 00 202400 MOVSI AC-1,ZZ ;SETUP BR
4470 034100 140 12 0 00 000011 FAD AC,AC-1 ;C(AC) + C(E)
4471 034101 312 12 0 00 000011 CAME AC,AC-1 ;TEST SUM
4472 034102 003 12 0 00 032303 ER3 AC,SN ;FAD FAILED
4473 034103 321 14 0 00 034076 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
4474
4475 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 48-1
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0132
4476 ;TEST FAD
4477 ;NR ALL ZERO COND
4478 ;AR=200000000000
4479 ;BR EXPONENT=201,202,203
4480 ;SUM=0
4481
4482 000011 AC=11
4483 SAVEAC (1,1)^
4484 034104 201 13 0 00 034104 MOVEI AC+2,.
4485 034105 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
4486 034106 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4487 034107 202 13 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4488
4489 032400 SN=32400
4490 200000 ZZ=200000
4491
4492 O32400: REPEAT ^D3, ;TEST FAD NR ALL ZERO
4493 <SN=SN+1
4494 ZZ=ZZ+1000
4495 MOVSI AC,200000 ;SETUP AC
4496 MOVSI AC-1,ZZ ;SETUP BR
4497 FAD AC,AC-1 ;C(AC)+C(E)
4498 SKIPE AC ;TEST SUM
4499 ER3 AC,SN ;FAD FAILED
4500 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
4501 >
4502 032401 SN=SN+1
4503 201000 ZZ=ZZ+1000
4504 034110 205 11 0 00 200000 MOVSI AC,200000 ;SETUP AC
4505 034111 205 10 0 00 201000 MOVSI AC-1,ZZ ;SETUP BR
4506 034112 140 11 0 00 000010 FAD AC,AC-1 ;C(AC)+C(E)
4507 034113 332 00 0 00 000011 SKIPE AC ;TEST SUM
4508 034114 003 11 0 00 032401 ER3 AC,SN ;FAD FAILED
4509 034115 321 13 0 00 034110 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
4510
4511 032402 SN=SN+1
4512 202000 ZZ=ZZ+1000
4513 034116 205 11 0 00 200000 MOVSI AC,200000 ;SETUP AC
4514 034117 205 10 0 00 202000 MOVSI AC-1,ZZ ;SETUP BR
4515 034120 140 11 0 00 000010 FAD AC,AC-1 ;C(AC)+C(E)
4516 034121 332 00 0 00 000011 SKIPE AC ;TEST SUM
4517 034122 003 11 0 00 032402 ER3 AC,SN ;FAD FAILED
4518 034123 321 13 0 00 034116 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
4519
4520 032403 SN=SN+1
4521 203000 ZZ=ZZ+1000
4522 034124 205 11 0 00 200000 MOVSI AC,200000 ;SETUP AC
4523 034125 205 10 0 00 203000 MOVSI AC-1,ZZ ;SETUP BR
4524 034126 140 11 0 00 000010 FAD AC,AC-1 ;C(AC)+C(E)
4525 034127 332 00 0 00 000011 SKIPE AC ;TEST SUM
4526 034130 003 11 0 00 032403 ER3 AC,SN ;FAD FAILED
4527 034131 321 13 0 00 034124 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
4528
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 49
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0133
4529 ;TEST FAD
4530 ;TWO POSITIVES
4531 ;NRSHRT COND
4532 ;AR=200.4 (1/2), 201.4 (+1), 202.4 (+2)
4533 ;BR=(SAME AS AR)
4534 ;SUMS=201.4, 202.4, 203.4
4535
4536 000010 AC=10
4537 SAVEAC (1,1)^
4538 034132 201 12 0 00 034132 MOVEI AC+2,.
4539 034133 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
4540 034134 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4541 034135 202 12 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4542
4543 032500 SN=32500
4544 200400 XX=200400
4545 177400 ZZ=177400
4546
4547 O32500: REPEAT ^D3, ;TEST FAD NRSHRT
4548 <SN=SN+1
4549 XX=XX+1000
4550 ZZ=ZZ+1000
4551 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4552 MOVSI AC,ZZ ;SETUP AC
4553 MOVSI AC-1,ZZ ;SETUP BR
4554 FAD AC,AC-1 ;C(AC)+C(E)
4555 CAME AC,AC-2 ;TEST SUM
4556 ER3 AC,SN ;FAD FAILED
4557 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4558 >
4559 032501 SN=SN+1
4560 201400 XX=XX+1000
4561 200400 ZZ=ZZ+1000
4562 034136 205 06 0 00 201400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4563 034137 205 10 0 00 200400 MOVSI AC,ZZ ;SETUP AC
4564 034140 205 07 0 00 200400 MOVSI AC-1,ZZ ;SETUP BR
4565 034141 140 10 0 00 000007 FAD AC,AC-1 ;C(AC)+C(E)
4566 034142 312 10 0 00 000006 CAME AC,AC-2 ;TEST SUM
4567 034143 003 10 0 00 032501 ER3 AC,SN ;FAD FAILED
4568 034144 321 12 0 00 034136 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4569
4570 032502 SN=SN+1
4571 202400 XX=XX+1000
4572 201400 ZZ=ZZ+1000
4573 034145 205 06 0 00 202400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4574 034146 205 10 0 00 201400 MOVSI AC,ZZ ;SETUP AC
4575 034147 205 07 0 00 201400 MOVSI AC-1,ZZ ;SETUP BR
4576 034150 140 10 0 00 000007 FAD AC,AC-1 ;C(AC)+C(E)
4577 034151 312 10 0 00 000006 CAME AC,AC-2 ;TEST SUM
4578 034152 003 10 0 00 032502 ER3 AC,SN ;FAD FAILED
4579 034153 321 12 0 00 034145 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4580
4581 032503 SN=SN+1
4582 203400 XX=XX+1000
4583 202400 ZZ=ZZ+1000
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 49-1
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0134
4584 034154 205 06 0 00 203400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4585 034155 205 10 0 00 202400 MOVSI AC,ZZ ;SETUP AC
4586 034156 205 07 0 00 202400 MOVSI AC-1,ZZ ;SETUP BR
4587 034157 140 10 0 00 000007 FAD AC,AC-1 ;C(AC)+C(E)
4588 034160 312 10 0 00 000006 CAME AC,AC-2 ;TEST SUM
4589 034161 003 10 0 00 032503 ER3 AC,SN ;FAD FAILED
4590 034162 321 12 0 00 034154 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4591
4592 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 49-2
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0135
4593 ;TEST FAD
4594 ;TWO POSITIVES NR NORMAL
4595 ;AR=200.1, 200.04, 200.02
4596 ;BR=AR
4597 ;SUMS=177.4, 176.4, 175.4
4598
4599 000007 AC=7
4600 SAVEAC (1,1)^
4601 034163 201 11 0 00 034163 MOVEI AC+2,.
4602 034164 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
4603 034165 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4604 034166 202 11 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4605
4606 032600 SN=32600
4607 200400 XX=200400
4608 000200 ZZ=200
4609
4610 O32600: REPEAT ^D3, ;TEST FAD NR NORMAL
4611 <SN=SN+1
4612 XX=XX-1000
4613 ZZ=ZZ/2
4614 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4615 MOVSI AC,200000+ZZ ;SETUP AC
4616 MOVSI AC-1,200000+ZZ ;SETUP BR
4617 FAD AC,AC-1 ;C(AC)+C(E)
4618 CAME AC,AC-2 ;TEST SUM
4619 ER3 AC,SN ;FAD FAILED
4620 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4621 >
4622 032601 SN=SN+1
4623 177400 XX=XX-1000
4624 000100 ZZ=ZZ/2
4625 034167 205 05 0 00 177400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4626 034170 205 07 0 00 200100 MOVSI AC,200000+ZZ ;SETUP AC
4627 034171 205 06 0 00 200100 MOVSI AC-1,200000+ZZ ;SETUP BR
4628 034172 140 07 0 00 000006 FAD AC,AC-1 ;C(AC)+C(E)
4629 034173 312 07 0 00 000005 CAME AC,AC-2 ;TEST SUM
4630 034174 003 07 0 00 032601 ER3 AC,SN ;FAD FAILED
4631 034175 321 11 0 00 034167 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4632
4633 032602 SN=SN+1
4634 176400 XX=XX-1000
4635 000040 ZZ=ZZ/2
4636 034176 205 05 0 00 176400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4637 034177 205 07 0 00 200040 MOVSI AC,200000+ZZ ;SETUP AC
4638 034200 205 06 0 00 200040 MOVSI AC-1,200000+ZZ ;SETUP BR
4639 034201 140 07 0 00 000006 FAD AC,AC-1 ;C(AC)+C(E)
4640 034202 312 07 0 00 000005 CAME AC,AC-2 ;TEST SUM
4641 034203 003 07 0 00 032602 ER3 AC,SN ;FAD FAILED
4642 034204 321 11 0 00 034176 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4643
4644 032603 SN=SN+1
4645 175400 XX=XX-1000
4646 000020 ZZ=ZZ/2
4647 034205 205 05 0 00 175400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 49-3
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0136
4648 034206 205 07 0 00 200020 MOVSI AC,200000+ZZ ;SETUP AC
4649 034207 205 06 0 00 200020 MOVSI AC-1,200000+ZZ ;SETUP BR
4650 034210 140 07 0 00 000006 FAD AC,AC-1 ;C(AC)+C(E)
4651 034211 312 07 0 00 000005 CAME AC,AC-2 ;TEST SUM
4652 034212 003 07 0 00 032603 ER3 AC,SN ;FAD FAILED
4653 034213 321 11 0 00 034205 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4654
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 50
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0137
4655 ;TEST FAD
4656 ;TWO NEGATIVES
4657 ;AR=577.4 (-1/2), 600.4 (-1/4), 601.4 (-1/8)
4658 ;BR=576400000000 (-1)
4659 ;SUMS=576.2 (-1 1/2), 576.3 (-1 1/4) 576.34 (-1 1/8)
4660
4661 000006 AC=6
4662 SAVEAC (1,1)^
4663 034214 201 10 0 00 034214 MOVEI AC+2,.
4664 034215 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
4665 034216 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4666 034217 202 10 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4667
4668 032700 SN=32700
4669 000200 WW=200
4670 576000 XX=576000
4671 576400 ZZ=576400
4672
4673 O32700: REPEAT ^D3, ;TEST FAD -TWO NEGATIVES
4674 <SN=SN+1
4675 XX=XX+WW
4676 WW=WW/2
4677 ZZ=ZZ+1000
4678 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4679 MOVSI AC,ZZ ;SETUP AC
4680 MOVSI AC-1,576400 ;SETUP BR
4681 FAD AC,AC-1 ;C(AC)+C(E)
4682 CAME AC,AC-2 ;TEST SUM
4683 ER3 AC,SN ;FAD FAILED
4684 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4685 >
4686 032701 SN=SN+1
4687 576200 XX=XX+WW
4688 000100 WW=WW/2
4689 577400 ZZ=ZZ+1000
4690 034220 205 04 0 00 576200 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4691 034221 205 06 0 00 577400 MOVSI AC,ZZ ;SETUP AC
4692 034222 205 05 0 00 576400 MOVSI AC-1,576400 ;SETUP BR
4693 034223 140 06 0 00 000005 FAD AC,AC-1 ;C(AC)+C(E)
4694 034224 312 06 0 00 000004 CAME AC,AC-2 ;TEST SUM
4695 034225 003 06 0 00 032701 ER3 AC,SN ;FAD FAILED
4696 034226 321 10 0 00 034220 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4697
4698 032702 SN=SN+1
4699 576300 XX=XX+WW
4700 000040 WW=WW/2
4701 600400 ZZ=ZZ+1000
4702 034227 205 04 0 00 576300 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4703 034230 205 06 0 00 600400 MOVSI AC,ZZ ;SETUP AC
4704 034231 205 05 0 00 576400 MOVSI AC-1,576400 ;SETUP BR
4705 034232 140 06 0 00 000005 FAD AC,AC-1 ;C(AC)+C(E)
4706 034233 312 06 0 00 000004 CAME AC,AC-2 ;TEST SUM
4707 034234 003 06 0 00 032702 ER3 AC,SN ;FAD FAILED
4708 034235 321 10 0 00 034227 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4709
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 50-1
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0138
4710 032703 SN=SN+1
4711 576340 XX=XX+WW
4712 000020 WW=WW/2
4713 601400 ZZ=ZZ+1000
4714 034236 205 04 0 00 576340 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4715 034237 205 06 0 00 601400 MOVSI AC,ZZ ;SETUP AC
4716 034240 205 05 0 00 576400 MOVSI AC-1,576400 ;SETUP BR
4717 034241 140 06 0 00 000005 FAD AC,AC-1 ;C(AC)+C(E)
4718 034242 312 06 0 00 000004 CAME AC,AC-2 ;TEST SUM
4719 034243 003 06 0 00 032703 ER3 AC,SN ;FAD FAILED
4720 034244 321 10 0 00 034236 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4721
4722 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 50-2
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0139
4723 ;TEST FAD
4724 ;TWO NEGATIVES
4725 ;LARGER EXPONENT IN AR
4726 ;AR=576.400000000 (-1)
4727 ;BR=577.4 (-1/2), 600.4 (-1/4), 601.4 (-1/8)
4728 ;SUMS=576.2 (-1 1/2), 576.3 (-1 1/4),576.34 (-1 1/8)
4729
4730 000014 AC=14
4731 SAVEAC (1,1)^
4732 034245 201 16 0 00 034245 MOVEI AC+2,.
4733 034246 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
4734 034247 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4735 034250 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4736
4737 033000 SN=33000
4738 000200 WW=200
4739 576000 XX=576000
4740 576400 ZZ=576400
4741
4742 O33000: REPEAT ^D3, ;TEST FAD-LARGER IN AR
4743 <SN=SN+1
4744 XX=XX+WW
4745 WW=WW/2
4746 ZZ=ZZ+1000
4747 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4748 MOVSI AC,576400 ;SETUP AC
4749 MOVSI AC-1,ZZ ;SETUP BR
4750 FAD AC,AC-1 ;C(AC)+C(E)
4751 CAME AC,AC-2 ;TEST SUM
4752 ER3 AC,SN ;FAD FAILED
4753 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4754 >
4755 033001 SN=SN+1
4756 576200 XX=XX+WW
4757 000100 WW=WW/2
4758 577400 ZZ=ZZ+1000
4759 034251 205 12 0 00 576200 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4760 034252 205 14 0 00 576400 MOVSI AC,576400 ;SETUP AC
4761 034253 205 13 0 00 577400 MOVSI AC-1,ZZ ;SETUP BR
4762 034254 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4763 034255 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4764 034256 003 14 0 00 033001 ER3 AC,SN ;FAD FAILED
4765 034257 321 16 0 00 034251 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4766
4767 033002 SN=SN+1
4768 576300 XX=XX+WW
4769 000040 WW=WW/2
4770 600400 ZZ=ZZ+1000
4771 034260 205 12 0 00 576300 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4772 034261 205 14 0 00 576400 MOVSI AC,576400 ;SETUP AC
4773 034262 205 13 0 00 600400 MOVSI AC-1,ZZ ;SETUP BR
4774 034263 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4775 034264 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4776 034265 003 14 0 00 033002 ER3 AC,SN ;FAD FAILED
4777 034266 321 16 0 00 034260 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 50-3
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0140
4778
4779 033003 SN=SN+1
4780 576340 XX=XX+WW
4781 000020 WW=WW/2
4782 601400 ZZ=ZZ+1000
4783 034267 205 12 0 00 576340 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4784 034270 205 14 0 00 576400 MOVSI AC,576400 ;SETUP AC
4785 034271 205 13 0 00 601400 MOVSI AC-1,ZZ ;SETUP BR
4786 034272 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4787 034273 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4788 034274 003 14 0 00 033003 ER3 AC,SN ;FAD FAILED
4789 034275 321 16 0 00 034267 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4790
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 51
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0141
4791 ;TEST FAD
4792 ;TWO NEGATIVES
4793 ;NR SHRT COND
4794 ;AR=577.4 (-1/2), 600.4 (-1/4), 601.4(-1/8)
4795 ;BR=AR
4796 ;SUMS=576.4 (-1), 577.4 (-1/2), 600.4 (-1/4)
4797
4798 000014 AC=14
4799 SAVEAC (1,1)^
4800 034276 201 16 0 00 034276 MOVEI AC+2,.
4801 034277 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
4802 034300 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4803 034301 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4804
4805 033100 SN=33100
4806 575400 XX=575400
4807 576400 ZZ=576400
4808
4809 O33100: REPEAT ^D3, ;TEST FAD NRSHRT
4810 <SN=SN+1
4811 XX=XX+1000
4812 ZZ=ZZ+1000
4813 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4814 MOVSI AC,ZZ ;SETUP AC
4815 MOVSI AC-1,ZZ ;SETUP BR
4816 FAD AC,AC-1 ;C(AC)+C(E)
4817 CAME AC,AC-2 ;TEST SUM
4818 ER3 AC,SN ;FAD FAILED
4819 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4820 >
4821 033101 SN=SN+1
4822 576400 XX=XX+1000
4823 577400 ZZ=ZZ+1000
4824 034302 205 12 0 00 576400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4825 034303 205 14 0 00 577400 MOVSI AC,ZZ ;SETUP AC
4826 034304 205 13 0 00 577400 MOVSI AC-1,ZZ ;SETUP BR
4827 034305 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4828 034306 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4829 034307 003 14 0 00 033101 ER3 AC,SN ;FAD FAILED
4830 034310 321 16 0 00 034302 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4831
4832 033102 SN=SN+1
4833 577400 XX=XX+1000
4834 600400 ZZ=ZZ+1000
4835 034311 205 12 0 00 577400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4836 034312 205 14 0 00 600400 MOVSI AC,ZZ ;SETUP AC
4837 034313 205 13 0 00 600400 MOVSI AC-1,ZZ ;SETUP BR
4838 034314 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4839 034315 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4840 034316 003 14 0 00 033102 ER3 AC,SN ;FAD FAILED
4841 034317 321 16 0 00 034311 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4842
4843 033103 SN=SN+1
4844 600400 XX=XX+1000
4845 601400 ZZ=ZZ+1000
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 51-1
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0142
4846 034320 205 12 0 00 600400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4847 034321 205 14 0 00 601400 MOVSI AC,ZZ ;SETUP AC
4848 034322 205 13 0 00 601400 MOVSI AC-1,ZZ ;SETUP BR
4849 034323 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4850 034324 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4851 034325 003 14 0 00 033103 ER3 AC,SN ;FAD FAILED
4852 034326 321 16 0 00 034320 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4853
4854 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 51-2
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0143
4855 ;TEST FAD
4856 ;POSITIVE AND NEGATIVE
4857 ;LARGER IN AR
4858 ;AR=201.400000000 (+1)
4859 ;BR=577.4 (-1/2), 600.4 (-1/4), 601.4(-1/8)
4860 ;SUMS=200.4 (+1/2), 200.6 (+3/4), 200.7 (+7/8)
4861
4862 000013 AC=13
4863 SAVEAC (1,1)^
4864 034327 201 15 0 00 034327 MOVEI AC+2,.
4865 034330 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
4866 034331 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4867 034332 202 15 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4868
4869 033200 SN=33200
4870 001000 WW=1000
4871 576400 XX=576400
4872 000000 ZZ=0
4873
4874 O33200: REPEAT ^D3, ;TEST FAD
4875 <SN=SN+1
4876 WW=WW/2
4877 XX=XX+1000
4878 ZZ=ZZ+WW
4879 MOVSI AC-2,200000+ZZ ;SETUP FOR COMPARISON
4880 MOVSI AC,201400 ;SETUP AC
4881 MOVSI AC-1,XX ;SETUP BR
4882 FAD AC,AC-1 ;C(AC)+C(E)
4883 CAME AC,AC-2 ;TEST SUM
4884 ER3 AC,SN ;FAD FAILED
4885 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4886 >
4887 033201 SN=SN+1
4888 000400 WW=WW/2
4889 577400 XX=XX+1000
4890 000400 ZZ=ZZ+WW
4891 034333 205 11 0 00 200400 MOVSI AC-2,200000+ZZ ;SETUP FOR COMPARISON
4892 034334 205 13 0 00 201400 MOVSI AC,201400 ;SETUP AC
4893 034335 205 12 0 00 577400 MOVSI AC-1,XX ;SETUP BR
4894 034336 140 13 0 00 000012 FAD AC,AC-1 ;C(AC)+C(E)
4895 034337 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
4896 034340 003 13 0 00 033201 ER3 AC,SN ;FAD FAILED
4897 034341 321 15 0 00 034333 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4898
4899 033202 SN=SN+1
4900 000200 WW=WW/2
4901 600400 XX=XX+1000
4902 000600 ZZ=ZZ+WW
4903 034342 205 11 0 00 200600 MOVSI AC-2,200000+ZZ ;SETUP FOR COMPARISON
4904 034343 205 13 0 00 201400 MOVSI AC,201400 ;SETUP AC
4905 034344 205 12 0 00 600400 MOVSI AC-1,XX ;SETUP BR
4906 034345 140 13 0 00 000012 FAD AC,AC-1 ;C(AC)+C(E)
4907 034346 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
4908 034347 003 13 0 00 033202 ER3 AC,SN ;FAD FAILED
4909 034350 321 15 0 00 034342 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 51-3
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0144
4910
4911 033203 SN=SN+1
4912 000100 WW=WW/2
4913 601400 XX=XX+1000
4914 000700 ZZ=ZZ+WW
4915 034351 205 11 0 00 200700 MOVSI AC-2,200000+ZZ ;SETUP FOR COMPARISON
4916 034352 205 13 0 00 201400 MOVSI AC,201400 ;SETUP AC
4917 034353 205 12 0 00 601400 MOVSI AC-1,XX ;SETUP BR
4918 034354 140 13 0 00 000012 FAD AC,AC-1 ;C(AC)+C(E)
4919 034355 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
4920 034356 003 13 0 00 033203 ER3 AC,SN ;FAD FAILED
4921 034357 321 15 0 00 034351 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4922
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 52
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0145
4923 ;TEST FAD
4924 ;NOT NR ALL ZERO
4925 ;NOT NR NORMAL
4926 ;AR=200000000000
4927 ;BR=200000000001,2,4,10 ETC
4928 ;SUM=146400000000, EXPONENT
4929 ;INCREASING BY ONE
4930
4931 000012 AC=12
4932 SAVEAC (1,1)^
4933 034360 201 14 0 00 034360 MOVEI AC+2,.
4934 034361 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
4935 034362 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4936 034363 202 14 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4937
4938 033300 SN=33300
4939 145400 XX=145400
4940 000000 ZZ=0
4941
4942 O33300: REPEAT ^D18, ;TEST BITS 18-35(1)
4943 <SN=SN+1
4944 XX=XX+1000
4945 ZZ=ZZ+ZZ
4946 IFE ZZ,<ZZ=1>
4947 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4948 MOVSI AC,200000 ;SETUP AC
4949 MOVE AC-1,[200000,,ZZ] ;SETUP BR
4950 FAD AC,AC-1 ;C(AC)+C(E)
4951 CAME AC,AC-2 ;TEST SUM
4952 ER3 AC,SN ;FAD FAILED
4953 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
4954 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
4955 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
4956 >
4957 033301 SN=SN+1
4958 146400 XX=XX+1000
4959 000000 ZZ=ZZ+ZZ
4960 000001 IFE ZZ,<ZZ=1>
4961 034364 205 10 0 00 146400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4962 034365 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
4963 034366 200 11 0 00 070562 MOVE AC-1,[200000,,ZZ] ;SETUP BR
4964 034367 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
4965 034370 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
4966 034371 003 12 0 00 033301 ER3 AC,SN ;FAD FAILED
4967 034372 312 11 0 00 070562 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
4968 034373 005 11 0 00 033301 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
4969 034374 321 14 0 00 034364 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
4970
4971 033302 SN=SN+1
4972 147400 XX=XX+1000
4973 000002 ZZ=ZZ+ZZ
4974 IFE ZZ,<ZZ=1>
4975 034375 205 10 0 00 147400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4976 034376 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
4977 034377 200 11 0 00 070563 MOVE AC-1,[200000,,ZZ] ;SETUP BR
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 52-1
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0146
4978 034400 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
4979 034401 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
4980 034402 003 12 0 00 033302 ER3 AC,SN ;FAD FAILED
4981 034403 312 11 0 00 070563 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
4982 034404 005 11 0 00 033302 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
4983 034405 321 14 0 00 034375 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
4984
4985 033303 SN=SN+1
4986 150400 XX=XX+1000
4987 000004 ZZ=ZZ+ZZ
4988 IFE ZZ,<ZZ=1>
4989 034406 205 10 0 00 150400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4990 034407 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
4991 034410 200 11 0 00 070564 MOVE AC-1,[200000,,ZZ] ;SETUP BR
4992 034411 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
4993 034412 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
4994 034413 003 12 0 00 033303 ER3 AC,SN ;FAD FAILED
4995 034414 312 11 0 00 070564 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
4996 034415 005 11 0 00 033303 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
4997 034416 321 14 0 00 034406 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
4998
4999 033304 SN=SN+1
5000 151400 XX=XX+1000
5001 000010 ZZ=ZZ+ZZ
5002 IFE ZZ,<ZZ=1>
5003 034417 205 10 0 00 151400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5004 034420 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5005 034421 200 11 0 00 070565 MOVE AC-1,[200000,,ZZ] ;SETUP BR
5006 034422 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5007 034423 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5008 034424 003 12 0 00 033304 ER3 AC,SN ;FAD FAILED
5009 034425 312 11 0 00 070565 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
5010 034426 005 11 0 00 033304 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5011 034427 321 14 0 00 034417 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5012
5013 033305 SN=SN+1
5014 152400 XX=XX+1000
5015 000020 ZZ=ZZ+ZZ
5016 IFE ZZ,<ZZ=1>
5017 034430 205 10 0 00 152400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5018 034431 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5019 034432 200 11 0 00 070566 MOVE AC-1,[200000,,ZZ] ;SETUP BR
5020 034433 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5021 034434 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5022 034435 003 12 0 00 033305 ER3 AC,SN ;FAD FAILED
5023 034436 312 11 0 00 070566 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
5024 034437 005 11 0 00 033305 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5025 034440 321 14 0 00 034430 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5026
5027 033306 SN=SN+1
5028 153400 XX=XX+1000
5029 000040 ZZ=ZZ+ZZ
5030 IFE ZZ,<ZZ=1>
5031 034441 205 10 0 00 153400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5032 034442 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 52-2
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0147
5033 034443 200 11 0 00 070567 MOVE AC-1,[200000,,ZZ] ;SETUP BR
5034 034444 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5035 034445 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5036 034446 003 12 0 00 033306 ER3 AC,SN ;FAD FAILED
5037 034447 312 11 0 00 070567 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
5038 034450 005 11 0 00 033306 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5039 034451 321 14 0 00 034441 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5040
5041 033307 SN=SN+1
5042 154400 XX=XX+1000
5043 000100 ZZ=ZZ+ZZ
5044 IFE ZZ,<ZZ=1>
5045 034452 205 10 0 00 154400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5046 034453 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5047 034454 200 11 0 00 070570 MOVE AC-1,[200000,,ZZ] ;SETUP BR
5048 034455 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5049 034456 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5050 034457 003 12 0 00 033307 ER3 AC,SN ;FAD FAILED
5051 034460 312 11 0 00 070570 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
5052 034461 005 11 0 00 033307 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5053 034462 321 14 0 00 034452 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5054
5055 033310 SN=SN+1
5056 155400 XX=XX+1000
5057 000200 ZZ=ZZ+ZZ
5058 IFE ZZ,<ZZ=1>
5059 034463 205 10 0 00 155400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5060 034464 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5061 034465 200 11 0 00 070571 MOVE AC-1,[200000,,ZZ] ;SETUP BR
5062 034466 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5063 034467 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5064 034470 003 12 0 00 033310 ER3 AC,SN ;FAD FAILED
5065 034471 312 11 0 00 070571 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
5066 034472 005 11 0 00 033310 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5067 034473 321 14 0 00 034463 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5068
5069 033311 SN=SN+1
5070 156400 XX=XX+1000
5071 000400 ZZ=ZZ+ZZ
5072 IFE ZZ,<ZZ=1>
5073 034474 205 10 0 00 156400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5074 034475 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5075 034476 200 11 0 00 070572 MOVE AC-1,[200000,,ZZ] ;SETUP BR
5076 034477 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5077 034500 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5078 034501 003 12 0 00 033311 ER3 AC,SN ;FAD FAILED
5079 034502 312 11 0 00 070572 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
5080 034503 005 11 0 00 033311 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5081 034504 321 14 0 00 034474 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5082
5083 033312 SN=SN+1
5084 157400 XX=XX+1000
5085 001000 ZZ=ZZ+ZZ
5086 IFE ZZ,<ZZ=1>
5087 034505 205 10 0 00 157400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 52-3
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0148
5088 034506 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5089 034507 200 11 0 00 070573 MOVE AC-1,[200000,,ZZ] ;SETUP BR
5090 034510 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5091 034511 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5092 034512 003 12 0 00 033312 ER3 AC,SN ;FAD FAILED
5093 034513 312 11 0 00 070573 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
5094 034514 005 11 0 00 033312 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5095 034515 321 14 0 00 034505 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5096
5097 033313 SN=SN+1
5098 160400 XX=XX+1000
5099 002000 ZZ=ZZ+ZZ
5100 IFE ZZ,<ZZ=1>
5101 034516 205 10 0 00 160400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5102 034517 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5103 034520 200 11 0 00 070574 MOVE AC-1,[200000,,ZZ] ;SETUP BR
5104 034521 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5105 034522 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5106 034523 003 12 0 00 033313 ER3 AC,SN ;FAD FAILED
5107 034524 312 11 0 00 070574 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
5108 034525 005 11 0 00 033313 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5109 034526 321 14 0 00 034516 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5110
5111 033314 SN=SN+1
5112 161400 XX=XX+1000
5113 004000 ZZ=ZZ+ZZ
5114 IFE ZZ,<ZZ=1>
5115 034527 205 10 0 00 161400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5116 034530 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5117 034531 200 11 0 00 070575 MOVE AC-1,[200000,,ZZ] ;SETUP BR
5118 034532 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5119 034533 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5120 034534 003 12 0 00 033314 ER3 AC,SN ;FAD FAILED
5121 034535 312 11 0 00 070575 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
5122 034536 005 11 0 00 033314 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5123 034537 321 14 0 00 034527 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5124
5125 033315 SN=SN+1
5126 162400 XX=XX+1000
5127 010000 ZZ=ZZ+ZZ
5128 IFE ZZ,<ZZ=1>
5129 034540 205 10 0 00 162400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5130 034541 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5131 034542 200 11 0 00 070576 MOVE AC-1,[200000,,ZZ] ;SETUP BR
5132 034543 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5133 034544 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5134 034545 003 12 0 00 033315 ER3 AC,SN ;FAD FAILED
5135 034546 312 11 0 00 070576 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
5136 034547 005 11 0 00 033315 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5137 034550 321 14 0 00 034540 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5138
5139 033316 SN=SN+1
5140 163400 XX=XX+1000
5141 020000 ZZ=ZZ+ZZ
5142 IFE ZZ,<ZZ=1>
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 52-4
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0149
5143 034551 205 10 0 00 163400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5144 034552 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5145 034553 200 11 0 00 070577 MOVE AC-1,[200000,,ZZ] ;SETUP BR
5146 034554 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5147 034555 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5148 034556 003 12 0 00 033316 ER3 AC,SN ;FAD FAILED
5149 034557 312 11 0 00 070577 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
5150 034560 005 11 0 00 033316 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5151 034561 321 14 0 00 034551 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5152
5153 033317 SN=SN+1
5154 164400 XX=XX+1000
5155 040000 ZZ=ZZ+ZZ
5156 IFE ZZ,<ZZ=1>
5157 034562 205 10 0 00 164400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5158 034563 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5159 034564 200 11 0 00 070600 MOVE AC-1,[200000,,ZZ] ;SETUP BR
5160 034565 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5161 034566 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5162 034567 003 12 0 00 033317 ER3 AC,SN ;FAD FAILED
5163 034570 312 11 0 00 070600 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
5164 034571 005 11 0 00 033317 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5165 034572 321 14 0 00 034562 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5166
5167 033320 SN=SN+1
5168 165400 XX=XX+1000
5169 100000 ZZ=ZZ+ZZ
5170 IFE ZZ,<ZZ=1>
5171 034573 205 10 0 00 165400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5172 034574 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5173 034575 200 11 0 00 070601 MOVE AC-1,[200000,,ZZ] ;SETUP BR
5174 034576 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5175 034577 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5176 034600 003 12 0 00 033320 ER3 AC,SN ;FAD FAILED
5177 034601 312 11 0 00 070601 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
5178 034602 005 11 0 00 033320 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5179 034603 321 14 0 00 034573 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5180
5181 033321 SN=SN+1
5182 166400 XX=XX+1000
5183 200000 ZZ=ZZ+ZZ
5184 IFE ZZ,<ZZ=1>
5185 034604 205 10 0 00 166400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5186 034605 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5187 034606 200 11 0 00 070602 MOVE AC-1,[200000,,ZZ] ;SETUP BR
5188 034607 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5189 034610 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5190 034611 003 12 0 00 033321 ER3 AC,SN ;FAD FAILED
5191 034612 312 11 0 00 070602 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
5192 034613 005 11 0 00 033321 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5193 034614 321 14 0 00 034604 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5194
5195 033322 SN=SN+1
5196 167400 XX=XX+1000
5197 400000 ZZ=ZZ+ZZ
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 52-5
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0150
5198 IFE ZZ,<ZZ=1>
5199 034615 205 10 0 00 167400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5200 034616 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5201 034617 200 11 0 00 070603 MOVE AC-1,[200000,,ZZ] ;SETUP BR
5202 034620 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5203 034621 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5204 034622 003 12 0 00 033322 ER3 AC,SN ;FAD FAILED
5205 034623 312 11 0 00 070603 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
5206 034624 005 11 0 00 033322 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5207 034625 321 14 0 00 034615 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5208
5209 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 52-6
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0151
5210 033400 SN=33400
5211 000000 ZZ=0
5212
5213 O33400: REPEAT ^D7, ;TEST BITS 10-17 (1)
5214 <SN=SN+1
5215 XX=XX+1000
5216 ZZ=ZZ+ZZ
5217 IFE ZZ,<ZZ=1>
5218 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5219 MOVSI AC,200000 ;SETUP AC
5220 MOVSI AC-1,200000+ZZ ;SETUP BR
5221 FAD AC,AC-1 ;C(AC)+C(E)
5222 CAME AC,AC-2 ;TEST SUM
5223 ER3 AC,SN ;FAD FAILED
5224 CAME AC-1,[200000+ZZ,,0] ;VERIFY THAT C(E) IS UNCHANGED
5225 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5226 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5227 >
5228 033401 SN=SN+1
5229 170400 XX=XX+1000
5230 000000 ZZ=ZZ+ZZ
5231 000001 IFE ZZ,<ZZ=1>
5232 034626 205 10 0 00 170400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5233 034627 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5234 034630 205 11 0 00 200001 MOVSI AC-1,200000+ZZ ;SETUP BR
5235 034631 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5236 034632 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5237 034633 003 12 0 00 033401 ER3 AC,SN ;FAD FAILED
5238 034634 312 11 0 00 070604 CAME AC-1,[200000+ZZ,,0] ;VERIFY THAT C(E) IS UNCHANGED
5239 034635 005 11 0 00 033401 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5240 034636 321 14 0 00 034626 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5241
5242 033402 SN=SN+1
5243 171400 XX=XX+1000
5244 000002 ZZ=ZZ+ZZ
5245 IFE ZZ,<ZZ=1>
5246 034637 205 10 0 00 171400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5247 034640 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5248 034641 205 11 0 00 200002 MOVSI AC-1,200000+ZZ ;SETUP BR
5249 034642 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5250 034643 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5251 034644 003 12 0 00 033402 ER3 AC,SN ;FAD FAILED
5252 034645 312 11 0 00 070605 CAME AC-1,[200000+ZZ,,0] ;VERIFY THAT C(E) IS UNCHANGED
5253 034646 005 11 0 00 033402 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5254 034647 321 14 0 00 034637 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5255
5256 033403 SN=SN+1
5257 172400 XX=XX+1000
5258 000004 ZZ=ZZ+ZZ
5259 IFE ZZ,<ZZ=1>
5260 034650 205 10 0 00 172400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5261 034651 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5262 034652 205 11 0 00 200004 MOVSI AC-1,200000+ZZ ;SETUP BR
5263 034653 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5264 034654 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 52-7
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0152
5265 034655 003 12 0 00 033403 ER3 AC,SN ;FAD FAILED
5266 034656 312 11 0 00 070606 CAME AC-1,[200000+ZZ,,0] ;VERIFY THAT C(E) IS UNCHANGED
5267 034657 005 11 0 00 033403 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5268 034660 321 14 0 00 034650 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5269
5270 033404 SN=SN+1
5271 173400 XX=XX+1000
5272 000010 ZZ=ZZ+ZZ
5273 IFE ZZ,<ZZ=1>
5274 034661 205 10 0 00 173400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5275 034662 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5276 034663 205 11 0 00 200010 MOVSI AC-1,200000+ZZ ;SETUP BR
5277 034664 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5278 034665 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5279 034666 003 12 0 00 033404 ER3 AC,SN ;FAD FAILED
5280 034667 312 11 0 00 070607 CAME AC-1,[200000+ZZ,,0] ;VERIFY THAT C(E) IS UNCHANGED
5281 034670 005 11 0 00 033404 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5282 034671 321 14 0 00 034661 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5283
5284 033405 SN=SN+1
5285 174400 XX=XX+1000
5286 000020 ZZ=ZZ+ZZ
5287 IFE ZZ,<ZZ=1>
5288 034672 205 10 0 00 174400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5289 034673 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5290 034674 205 11 0 00 200020 MOVSI AC-1,200000+ZZ ;SETUP BR
5291 034675 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5292 034676 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5293 034677 003 12 0 00 033405 ER3 AC,SN ;FAD FAILED
5294 034700 312 11 0 00 070610 CAME AC-1,[200000+ZZ,,0] ;VERIFY THAT C(E) IS UNCHANGED
5295 034701 005 11 0 00 033405 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5296 034702 321 14 0 00 034672 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5297
5298 033406 SN=SN+1
5299 175400 XX=XX+1000
5300 000040 ZZ=ZZ+ZZ
5301 IFE ZZ,<ZZ=1>
5302 034703 205 10 0 00 175400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5303 034704 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5304 034705 205 11 0 00 200040 MOVSI AC-1,200000+ZZ ;SETUP BR
5305 034706 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5306 034707 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5307 034710 003 12 0 00 033406 ER3 AC,SN ;FAD FAILED
5308 034711 312 11 0 00 070611 CAME AC-1,[200000+ZZ,,0] ;VERIFY THAT C(E) IS UNCHANGED
5309 034712 005 11 0 00 033406 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5310 034713 321 14 0 00 034703 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5311
5312 033407 SN=SN+1
5313 176400 XX=XX+1000
5314 000100 ZZ=ZZ+ZZ
5315 IFE ZZ,<ZZ=1>
5316 034714 205 10 0 00 176400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5317 034715 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5318 034716 205 11 0 00 200100 MOVSI AC-1,200000+ZZ ;SETUP BR
5319 034717 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 52-8
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0153
5320 034720 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5321 034721 003 12 0 00 033407 ER3 AC,SN ;FAD FAILED
5322 034722 312 11 0 00 070612 CAME AC-1,[200000+ZZ,,0] ;VERIFY THAT C(E) IS UNCHANGED
5323 034723 005 11 0 00 033407 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5324 034724 321 14 0 00 034714 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5325
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 53
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0154
5326 ;TEST FAD
5327 ;SET AROV, ARFOV, ARFXU FLAGS
5328 ;AR=377400000000,777700000000
5329 ;BR=377400000000,777700000000
5330 ;SUM=000400000000
5331
5332 000011 AC=11
5333 SAVEAC (1,1)^
5334 034725 201 13 0 00 034725 MOVEI AC+2,.
5335 034726 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
5336 034727 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
5337 034730 202 13 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
5338
5339 ;TEST AR OV FLAG
5340 034731 255 10 0 00 034732 O33500: JFCL 10,.+1 ;CLR FLAG EXEC NEXT INST
5341 034732 205 07 0 00 000400 MOVSI AC-2,400 ;SETUP FOR COMPARISON
5342 034733 205 11 0 00 377400 MOVSI AC,377400 ;SETUP AC
5343 034734 205 10 0 00 377400 MOVSI AC-1,377400 ;SETUP BR
5344 034735 140 11 0 00 000010 FAD AC,AC-1 ;C(AC)+C(E)
5345 034736 265 12 0 00 034737 JSP AC+1,.+1
5346 034737 312 11 0 00 000007 CAME AC,AC-2 ;TEST SUM
5347 034740 003 11 0 00 033501 ER3 AC,33501 ;FAD FAILED
5348 034741 255 10 0 00 034743 JFCL 10,.+2 ;TEST AROV FLAG
5349 034742 013 12 0 00 033501 ER13 AC+1,33501 ;AROV FAILED TO SET
5350 034743 321 13 0 00 034731 JUMPL AC+2,O33500 ;LOOP ON ERROR SWITCH
5351
5352 ;TEST AR FOV FLAG
5353 034744 255 01 0 00 034745 O33600: JFCL 1,.+1 ;CLR FLAG, EXEC NEXT INST
5354 034745 205 11 0 00 377400 MOVSI AC,377400 ;SETUP AC
5355 034746 205 10 0 00 377400 MOVSI AC-1,377400 ;SETUP BR
5356 034747 140 11 0 00 000010 FAD AC,AC-1 ;C(AC)+C(E)
5357 034750 265 12 0 00 034751 JSP AC+1,.+1
5358 034751 255 01 0 00 034753 JFCL 1,.+2 ;TEST AR FOV FLAG
5359 034752 013 12 0 00 033601 ER13 AC+1,33601 ;AR FOV FAILED TO SET
5360 034753 321 13 0 00 034744 JUMPL AC+2,O33600 ;LOOP ON ERROR SWITCH
5361
5362 ;TEST ARFXU FLAG
5363 034754 254 02 1 00 070613 O33700: JRST 2,@[.+1] ;CLR FLAG,EXEC NEXT INST
5364 034755 205 11 0 00 777700 MOVSI AC,777700 ;SETUP AC
5365 034756 205 10 0 00 777700 MOVSI AC-1,777700 ;SETUP BR
5366 034757 140 11 0 00 000010 FAD AC,AC-1 ;C(AC)+C(E)
5367 034760 265 07 0 00 034761 JSP AC-2,.+1 ;STORE FLAGS AND PC
5368 034761 627 07 0 00 000100 TLZN AC-2,100 ;TEST AND CLEAR BIT 11
5369 034762 013 07 0 00 033701 ER13 AC-2,33701 ;AR FXU FAILED TO SET
5370 034763 254 02 0 07 000003 JRST 2,3(AC-2) ;CLEAR AR FXU
5371 034764 321 13 0 00 034754 JUMPL AC+2,O33700 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 54
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0155
5372 ;TEST FADM
5373 ;AR=200400000000 (+1/2)
5374 ;BR=201400000000 (+1)
5375 ;SUM=201600000000 (+1 1/2)
5376
5377 000014 AC=14
5378 SAVEAC (1,1)^
5379 034765 201 16 0 00 034765 MOVEI AC+2,.
5380 034766 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
5381 034767 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
5382 034770 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
5383
5384 034771 205 12 0 00 201600 O34400: MOVSI AC-2,201600 ;SETUP FOR COMPARISON
5385 034772 205 14 0 00 200400 MOVSI AC,200400 ;SETUP AC
5386 034773 205 13 0 00 201400 MOVSI AC-1,201400 ;SETUP BR
5387 034774 142 14 0 00 000013 FADM AC,AC-1 ;C(AC)+C(E)
5388 034775 312 13 0 00 000012 CAME AC-1,AC-2 ;TEST SUM
5389 034776 005 13 0 00 034401 ER5 AC-1,34401 ;FADM FAILED
5390 034777 312 14 0 00 070614 CAME AC,[200400,,0] ;VERIFY THAT C(AC) IS UNCHANGED
5391 035000 003 14 0 00 034401 ER3 AC,34401 ;FAILURE, C(AC) WAS CLOBBERED
5392 035001 321 16 0 00 034771 JUMPL AC+2,O34400 ;LOOP ON ERROR SWITCH
5393 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 54-1
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0156
5394 ;TEST FADB
5395 ;AR=200400000000 (+1/2)
5396 ;BR=201400000000 (+1)
5397 ;SUM =201600000000 (+1 1/2)
5398
5399 000014 AC=14
5400 SAVEAC (1,1)^
5401 035002 201 16 0 00 035002 MOVEI AC+2,.
5402 035003 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
5403 035004 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
5404 035005 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
5405
5406 035006 205 12 0 00 201600 O34500: MOVSI AC-2,201600 ;SETUP FOR COMPARISON
5407 035007 205 14 0 00 200400 MOVSI AC,200400 ;SETUP AC
5408 035010 205 13 0 00 201400 MOVSI AC-1,201400 ;SETUP BR
5409 035011 143 14 0 00 000013 FADB AC,AC-1 ;C(AC)+C(E)
5410 035012 312 14 0 00 000012 CAME AC,AC-2 ;TEST C(AC)
5411 035013 003 14 0 00 034501 ER3 AC,34501
5412 035014 312 13 0 00 000012 CAME AC-1,AC-2 ;TEST C(E)
5413 035015 005 13 0 00 034501 ER5 AC-1,34501 ;FADB FAILED
5414 035016 321 16 0 00 035006 JUMPL AC+2,O34500 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 55
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0157
5415 ;TEST FADR
5416 ;TEST ROUNDING
5417 ;AR=200000000003,5,11, ETC
5418 ;BR=202400000000, EXPONENT INCREASING BY 1
5419 ;SUM=C(BR)+1
5420
5421 000013 AC=13
5422 SAVEAC (1,1)^
5423 035017 201 15 0 00 035017 MOVEI AC+2,.
5424 035020 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
5425 035021 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
5426 035022 202 15 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
5427
5428 034600 SN=34600
5429 201400 XX=201400
5430 000001 ZZ=1
5431
5432 O34600: REPEAT ^D17, ;TEST MQ RIGHT
5433 <SN=SN+1
5434 XX=XX+1000
5435 ZZ=ZZ+ZZ
5436 HRLI AC-2,XX ;SETUP AC-2
5437 HRRI AC-2,1 ;FOR COMPARISON
5438 HRLI AC,200000 ;SETUP
5439 HRRI AC,ZZ ;AC
5440 AOJ AC, ;SET BIT 35
5441 MOVSI AC-1,XX ;SETUP BR
5442 FADR AC,AC-1 ;C(AC)+C(E)
5443 CAME AC,AC-2 ;TEST SUM
5444 ER3 AC,SN ;FADR FAILED
5445 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5446 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5447 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5448 >
5449 034601 SN=SN+1
5450 202400 XX=XX+1000
5451 000002 ZZ=ZZ+ZZ
5452 035023 505 11 0 00 202400 HRLI AC-2,XX ;SETUP AC-2
5453 035024 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5454 035025 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5455 035026 541 13 0 00 000002 HRRI AC,ZZ ;AC
5456 035027 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5457 035030 205 12 0 00 202400 MOVSI AC-1,XX ;SETUP BR
5458 035031 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5459 035032 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5460 035033 003 13 0 00 034601 ER3 AC,SN ;FADR FAILED
5461 035034 312 12 0 00 070615 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5462 035035 005 12 0 00 034601 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5463 035036 321 15 0 00 035023 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5464
5465 034602 SN=SN+1
5466 203400 XX=XX+1000
5467 000004 ZZ=ZZ+ZZ
5468 035037 505 11 0 00 203400 HRLI AC-2,XX ;SETUP AC-2
5469 035040 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 55-1
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0158
5470 035041 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5471 035042 541 13 0 00 000004 HRRI AC,ZZ ;AC
5472 035043 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5473 035044 205 12 0 00 203400 MOVSI AC-1,XX ;SETUP BR
5474 035045 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5475 035046 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5476 035047 003 13 0 00 034602 ER3 AC,SN ;FADR FAILED
5477 035050 312 12 0 00 070616 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5478 035051 005 12 0 00 034602 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5479 035052 321 15 0 00 035037 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5480
5481 034603 SN=SN+1
5482 204400 XX=XX+1000
5483 000010 ZZ=ZZ+ZZ
5484 035053 505 11 0 00 204400 HRLI AC-2,XX ;SETUP AC-2
5485 035054 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5486 035055 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5487 035056 541 13 0 00 000010 HRRI AC,ZZ ;AC
5488 035057 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5489 035060 205 12 0 00 204400 MOVSI AC-1,XX ;SETUP BR
5490 035061 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5491 035062 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5492 035063 003 13 0 00 034603 ER3 AC,SN ;FADR FAILED
5493 035064 312 12 0 00 070617 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5494 035065 005 12 0 00 034603 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5495 035066 321 15 0 00 035053 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5496
5497 034604 SN=SN+1
5498 205400 XX=XX+1000
5499 000020 ZZ=ZZ+ZZ
5500 035067 505 11 0 00 205400 HRLI AC-2,XX ;SETUP AC-2
5501 035070 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5502 035071 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5503 035072 541 13 0 00 000020 HRRI AC,ZZ ;AC
5504 035073 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5505 035074 205 12 0 00 205400 MOVSI AC-1,XX ;SETUP BR
5506 035075 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5507 035076 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5508 035077 003 13 0 00 034604 ER3 AC,SN ;FADR FAILED
5509 035100 312 12 0 00 070620 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5510 035101 005 12 0 00 034604 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5511 035102 321 15 0 00 035067 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5512
5513 034605 SN=SN+1
5514 206400 XX=XX+1000
5515 000040 ZZ=ZZ+ZZ
5516 035103 505 11 0 00 206400 HRLI AC-2,XX ;SETUP AC-2
5517 035104 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5518 035105 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5519 035106 541 13 0 00 000040 HRRI AC,ZZ ;AC
5520 035107 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5521 035110 205 12 0 00 206400 MOVSI AC-1,XX ;SETUP BR
5522 035111 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5523 035112 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5524 035113 003 13 0 00 034605 ER3 AC,SN ;FADR FAILED
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 55-2
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0159
5525 035114 312 12 0 00 070621 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5526 035115 005 12 0 00 034605 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5527 035116 321 15 0 00 035103 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5528
5529 034606 SN=SN+1
5530 207400 XX=XX+1000
5531 000100 ZZ=ZZ+ZZ
5532 035117 505 11 0 00 207400 HRLI AC-2,XX ;SETUP AC-2
5533 035120 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5534 035121 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5535 035122 541 13 0 00 000100 HRRI AC,ZZ ;AC
5536 035123 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5537 035124 205 12 0 00 207400 MOVSI AC-1,XX ;SETUP BR
5538 035125 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5539 035126 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5540 035127 003 13 0 00 034606 ER3 AC,SN ;FADR FAILED
5541 035130 312 12 0 00 070622 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5542 035131 005 12 0 00 034606 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5543 035132 321 15 0 00 035117 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5544
5545 034607 SN=SN+1
5546 210400 XX=XX+1000
5547 000200 ZZ=ZZ+ZZ
5548 035133 505 11 0 00 210400 HRLI AC-2,XX ;SETUP AC-2
5549 035134 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5550 035135 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5551 035136 541 13 0 00 000200 HRRI AC,ZZ ;AC
5552 035137 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5553 035140 205 12 0 00 210400 MOVSI AC-1,XX ;SETUP BR
5554 035141 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5555 035142 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5556 035143 003 13 0 00 034607 ER3 AC,SN ;FADR FAILED
5557 035144 312 12 0 00 070623 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5558 035145 005 12 0 00 034607 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5559 035146 321 15 0 00 035133 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5560
5561 034610 SN=SN+1
5562 211400 XX=XX+1000
5563 000400 ZZ=ZZ+ZZ
5564 035147 505 11 0 00 211400 HRLI AC-2,XX ;SETUP AC-2
5565 035150 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5566 035151 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5567 035152 541 13 0 00 000400 HRRI AC,ZZ ;AC
5568 035153 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5569 035154 205 12 0 00 211400 MOVSI AC-1,XX ;SETUP BR
5570 035155 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5571 035156 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5572 035157 003 13 0 00 034610 ER3 AC,SN ;FADR FAILED
5573 035160 312 12 0 00 070624 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5574 035161 005 12 0 00 034610 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5575 035162 321 15 0 00 035147 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5576
5577 034611 SN=SN+1
5578 212400 XX=XX+1000
5579 001000 ZZ=ZZ+ZZ
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 55-3
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0160
5580 035163 505 11 0 00 212400 HRLI AC-2,XX ;SETUP AC-2
5581 035164 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5582 035165 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5583 035166 541 13 0 00 001000 HRRI AC,ZZ ;AC
5584 035167 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5585 035170 205 12 0 00 212400 MOVSI AC-1,XX ;SETUP BR
5586 035171 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5587 035172 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5588 035173 003 13 0 00 034611 ER3 AC,SN ;FADR FAILED
5589 035174 312 12 0 00 070625 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5590 035175 005 12 0 00 034611 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5591 035176 321 15 0 00 035163 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5592
5593 034612 SN=SN+1
5594 213400 XX=XX+1000
5595 002000 ZZ=ZZ+ZZ
5596 035177 505 11 0 00 213400 HRLI AC-2,XX ;SETUP AC-2
5597 035200 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5598 035201 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5599 035202 541 13 0 00 002000 HRRI AC,ZZ ;AC
5600 035203 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5601 035204 205 12 0 00 213400 MOVSI AC-1,XX ;SETUP BR
5602 035205 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5603 035206 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5604 035207 003 13 0 00 034612 ER3 AC,SN ;FADR FAILED
5605 035210 312 12 0 00 070626 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5606 035211 005 12 0 00 034612 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5607 035212 321 15 0 00 035177 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5608
5609 034613 SN=SN+1
5610 214400 XX=XX+1000
5611 004000 ZZ=ZZ+ZZ
5612 035213 505 11 0 00 214400 HRLI AC-2,XX ;SETUP AC-2
5613 035214 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5614 035215 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5615 035216 541 13 0 00 004000 HRRI AC,ZZ ;AC
5616 035217 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5617 035220 205 12 0 00 214400 MOVSI AC-1,XX ;SETUP BR
5618 035221 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5619 035222 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5620 035223 003 13 0 00 034613 ER3 AC,SN ;FADR FAILED
5621 035224 312 12 0 00 070627 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5622 035225 005 12 0 00 034613 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5623 035226 321 15 0 00 035213 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5624
5625 034614 SN=SN+1
5626 215400 XX=XX+1000
5627 010000 ZZ=ZZ+ZZ
5628 035227 505 11 0 00 215400 HRLI AC-2,XX ;SETUP AC-2
5629 035230 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5630 035231 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5631 035232 541 13 0 00 010000 HRRI AC,ZZ ;AC
5632 035233 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5633 035234 205 12 0 00 215400 MOVSI AC-1,XX ;SETUP BR
5634 035235 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 55-4
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0161
5635 035236 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5636 035237 003 13 0 00 034614 ER3 AC,SN ;FADR FAILED
5637 035240 312 12 0 00 070630 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5638 035241 005 12 0 00 034614 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5639 035242 321 15 0 00 035227 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5640
5641 034615 SN=SN+1
5642 216400 XX=XX+1000
5643 020000 ZZ=ZZ+ZZ
5644 035243 505 11 0 00 216400 HRLI AC-2,XX ;SETUP AC-2
5645 035244 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5646 035245 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5647 035246 541 13 0 00 020000 HRRI AC,ZZ ;AC
5648 035247 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5649 035250 205 12 0 00 216400 MOVSI AC-1,XX ;SETUP BR
5650 035251 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5651 035252 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5652 035253 003 13 0 00 034615 ER3 AC,SN ;FADR FAILED
5653 035254 312 12 0 00 070631 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5654 035255 005 12 0 00 034615 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5655 035256 321 15 0 00 035243 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5656
5657 034616 SN=SN+1
5658 217400 XX=XX+1000
5659 040000 ZZ=ZZ+ZZ
5660 035257 505 11 0 00 217400 HRLI AC-2,XX ;SETUP AC-2
5661 035260 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5662 035261 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5663 035262 541 13 0 00 040000 HRRI AC,ZZ ;AC
5664 035263 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5665 035264 205 12 0 00 217400 MOVSI AC-1,XX ;SETUP BR
5666 035265 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5667 035266 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5668 035267 003 13 0 00 034616 ER3 AC,SN ;FADR FAILED
5669 035270 312 12 0 00 070632 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5670 035271 005 12 0 00 034616 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5671 035272 321 15 0 00 035257 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5672
5673 034617 SN=SN+1
5674 220400 XX=XX+1000
5675 100000 ZZ=ZZ+ZZ
5676 035273 505 11 0 00 220400 HRLI AC-2,XX ;SETUP AC-2
5677 035274 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5678 035275 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5679 035276 541 13 0 00 100000 HRRI AC,ZZ ;AC
5680 035277 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5681 035300 205 12 0 00 220400 MOVSI AC-1,XX ;SETUP BR
5682 035301 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5683 035302 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5684 035303 003 13 0 00 034617 ER3 AC,SN ;FADR FAILED
5685 035304 312 12 0 00 070633 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5686 035305 005 12 0 00 034617 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5687 035306 321 15 0 00 035273 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5688
5689 034620 SN=SN+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 55-5
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0162
5690 221400 XX=XX+1000
5691 200000 ZZ=ZZ+ZZ
5692 035307 505 11 0 00 221400 HRLI AC-2,XX ;SETUP AC-2
5693 035310 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5694 035311 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5695 035312 541 13 0 00 200000 HRRI AC,ZZ ;AC
5696 035313 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5697 035314 205 12 0 00 221400 MOVSI AC-1,XX ;SETUP BR
5698 035315 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5699 035316 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5700 035317 003 13 0 00 034620 ER3 AC,SN ;FADR FAILED
5701 035320 312 12 0 00 070634 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5702 035321 005 12 0 00 034620 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5703 035322 321 15 0 00 035307 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5704
5705 034621 SN=SN+1
5706 222400 XX=XX+1000
5707 400000 ZZ=ZZ+ZZ
5708 035323 505 11 0 00 222400 HRLI AC-2,XX ;SETUP AC-2
5709 035324 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5710 035325 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5711 035326 541 13 0 00 400000 HRRI AC,ZZ ;AC
5712 035327 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5713 035330 205 12 0 00 222400 MOVSI AC-1,XX ;SETUP BR
5714 035331 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5715 035332 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5716 035333 003 13 0 00 034621 ER3 AC,SN ;FADR FAILED
5717 035334 312 12 0 00 070635 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5718 035335 005 12 0 00 034621 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5719 035336 321 15 0 00 035323 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5720
5721 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 55-6
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0163
5722 ;TEST FADRI
5723 ;AR=200400000003
5724 ;SUM=202500000001
5725
5726 000012 AC=12
5727 SAVEAC (1,1)^
5728 035337 201 14 0 00 035337 MOVEI AC+2,.
5729 035340 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
5730 035341 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
5731 035342 202 14 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
5732
5733 035343 505 10 0 00 202500 O34700: HRLI AC-2,202500 ;SETUP AC-2
5734 035344 541 10 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5735 035345 505 12 0 00 200400 HRLI AC,200400 ;SETUP
5736 035346 541 12 0 00 000003 HRRI AC,3 ;AC
5737 035347 145 12 0 00 202400 FADRI AC,202400 ;C(AC)+C(E)
5738 035350 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5739 035351 003 12 0 00 034701 ER3 AC,34701 ;FADRI FAILED
5740 035352 321 14 0 00 035343 JUMPL AC+2,O34700 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 56
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0164
5741 ;TEST FSB
5742 ;TWO POSITIVES
5743 ;AR=201400000000 (+1)
5744 ;BR=177400000000 (+1/4)
5745 ;DIFF=200600000000 (+3/4)
5746
5747 000011 AC=11
5748 SAVEAC (1,1)^
5749 035353 201 13 0 00 035353 MOVEI AC+2,.
5750 035354 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
5751 035355 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
5752 035356 202 13 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
5753
5754 035357 205 07 0 00 200600 O35000: MOVSI AC-2,200600 ;SETUP FOR COMPARISON
5755 035360 205 11 0 00 201400 MOVSI AC,201400 ;SETUP AC
5756 035361 205 10 0 00 177400 MOVSI AC-1,177400 ;SETUP BR
5757 035362 150 11 0 00 000010 FSB AC,AC-1 ;C(AC)-C(E)
5758 035363 312 11 0 00 000007 CAME AC,AC-2 ;TEST DIFFERENCE
5759 035364 003 11 0 00 035001 ER3 AC,35001 ;FSB FAILED
5760 035365 312 10 0 00 070636 CAME AC-1,[177400,,0] ;VERIFY THAT C(E) IS UNCHANGED
5761 035366 005 10 0 00 035001 ER5 AC-1,35001 ;C(E) WAS CLOBBERED
5762 035367 321 13 0 00 035357 JUMPL AC+2,O35000 ;LOOP ON ERROR SWITCH
5763
5764 ;TEST FSBM
5765 ;TWO NEGATIVES
5766 ;AR=576400000000 (-1)
5767 ;BR=600400000000 (-1/4)
5768 ;DIFF=577200000000 (-3/4)
5769
5770 000010 AC=10
5771 SAVEAC (1,1)^
5772 035370 201 12 0 00 035370 MOVEI AC+2,.
5773 035371 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
5774 035372 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
5775 035373 202 12 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
5776
5777 035374 205 06 0 00 577200 O35100: MOVSI AC-2,577200 ;SETUP FOR COMPARISON
5778 035375 205 10 0 00 576400 MOVSI AC,576400 ;SETUP AC
5779 035376 205 07 0 00 600400 MOVSI AC-1,600400 ;SETUP BR
5780 035377 152 10 0 00 000007 FSBM AC,AC-1 ;C(AC)-C(E)
5781 035400 312 07 0 00 000006 CAME AC-1,AC-2 ;TEST DIFFERENCE
5782 035401 005 07 0 00 035101 ER5 AC-1,35101 ;FSBM FAILED
5783 035402 312 10 0 00 070637 CAME AC,[576400,,0] ;VERIFY THAT C(AC) IS UNCHANGED
5784 035403 003 10 0 00 035101 ER3 AC,35101 ;FAILURE, C(AC) WAS CLOBBERED
5785 035404 321 12 0 00 035374 JUMPL AC+2,O35100 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 57
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0165
5786 ;TEST FSBB
5787 ;NEGATIVE AND POSITIVE
5788 ;AR=201400000000 (+1)
5789 ;BR=577400000000 (-1/2)
5790 ;DIFF=201600000000 (+1 1/2)
5791
5792 000007 AC=7
5793 SAVEAC (1,1)^
5794 035405 201 11 0 00 035405 MOVEI AC+2,.
5795 035406 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
5796 035407 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
5797 035410 202 11 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
5798
5799 035411 205 05 0 00 201600 O35200: MOVSI AC-2,201600 ;SETUP FOR COMPARISON
5800 035412 205 07 0 00 201400 MOVSI AC,201400 ;SETUP AC
5801 035413 205 06 0 00 577400 MOVSI AC-1,577400 ;SETUP BR
5802 035414 153 07 0 00 000006 FSBB AC,AC-1 ;C(AC)-C(E)
5803 035415 312 07 0 00 000005 CAME AC,AC-2 ;TEST C(AC)
5804 035416 003 07 0 00 035201 ER3 AC,35201
5805 035417 312 06 0 00 000005 CAME AC-1,AC-2 ;TEST C(E)
5806 035420 005 06 0 00 035201 ER5 AC-1,35201 ;FSBB FAILED
5807 035421 321 11 0 00 035411 JUMPL AC+2,O35200 ;LOOP ON ERROR SWITCH
5808
5809 ;TEST FSBRB
5810 ;TWO POSITIVES
5811 ;NR NORMAL
5812 ;AR=203400000000
5813 ;BR=200477777775
5814 ;DIFF=202660000001
5815
5816 000006 AC=6
5817 SAVEAC (1,1)^
5818 035422 201 10 0 00 035422 MOVEI AC+2,.
5819 035423 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
5820 035424 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
5821 035425 202 10 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
5822
5823 035426 505 04 0 00 202660 O35300: HRLI AC-2,202660 ;SETUP AC-2
5824 035427 541 04 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5825 035430 205 06 0 00 203400 MOVSI AC,203400 ;SETUP AC
5826 035431 505 05 0 00 200477 HRLI AC-1,200477 ;SETUP
5827 035432 541 05 0 00 777775 HRRI AC-1,-3 ;BR
5828 035433 157 06 0 00 000005 FSBRB AC,AC-1 ;C(AC)-C(E)
5829 035434 312 06 0 00 000004 CAME AC,AC-2 ;TEST C(AC)
5830 035435 003 06 0 00 035301 ER3 AC,35301
5831 035436 312 05 0 00 000004 CAME AC-1,AC-2 ;TEST C(E)
5832 035437 005 05 0 00 035301 ER5 AC-1,35301 ;FSBRB FAILED
5833 035440 321 10 0 00 035426 JUMPL AC+2,O35300 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 58
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0166
5834 ;GENERAL TESTS TO VERIFY EFFECT OF FSC EXECUTION ON AROV, FOV AND FXU FLAGS
5835
5836 000004 AC=4
5837 SAVEAC (1,1)^
5838 035441 201 06 0 00 035441 MOVEI AC+2,.
5839 035442 202 06 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
5840 035443 201 06 0 00 000006 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
5841 035444 202 06 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
5842
5843 035445 254 02 1 00 035446 O35500: JRST 2,@.+1 ;CLEAR FLAGS
5844 035446 000000 035447 .+1
5845 035447 205 02 0 00 377400 MOVSI AC-2,377400 ;SETUP FOR COMPARISON
5846 035450 205 04 0 00 377400 MOVSI AC,377400 ;SETUP AC
5847 035451 132 04 0 00 000000 FSC AC,0 ;SCALE - NO FLAGS
5848 035452 265 05 0 00 035453 JSP AC+1,.+1 ;SAVE FLAGS
5849 035453 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC) FOR NO CHANGE
5850 035454 003 04 0 00 035501 ER3 AC,35501 ;C(AC) FAILED
5851 035455 255 10 0 00 035457 JOV .+2 ;EXAMINE AROV FLAG
5852 035456 254 00 0 00 035460 JRST .+2
5853 035457 013 05 0 00 035501 ER13 AC+1,35501 ;AROV FLAG WAS SET
5854 035460 603 05 0 00 040100 TLNE AC+1,FOV+FXU ;EXAMINE FLAGS
5855 035461 013 05 0 00 035501 ER13 AC+1,35501 ;A FLAG WAS SET
5856 035462 321 06 0 00 035445 JUMPL AC+2,O35500 ;LOOP ON ERROR SWITCH
5857
5858 035463 254 02 1 00 035464 O35510: JRST 2,@.+1 ;CLEAR FLAGS
5859 035464 000000 035465 .+1
5860 035465 205 02 0 00 000400 MOVSI AC-2,400 ;SETUP FOR COMPARISON
5861 035466 205 04 0 00 377400 MOVSI AC,377400 ;SETUP AC
5862 035467 132 04 0 00 000001 FSC AC,1 ;SCALE - AROV, FOV
5863 035470 265 05 0 00 035471 JSP AC+1,.+1 ;SAVE FLAGS
5864 035471 312 04 0 00 000002 CAME AC,<AC-2>&17 ;EXAMINE C(AC)
5865 035472 003 04 0 00 035511 ER3 AC,35511 ;C(AC) FAILED
5866 035473 255 10 0 00 035475 JOV .+2 ;EXAMINE AROV FLAG
5867 035474 013 05 0 00 035511 ER13 AC+1,35511 ;AROV FLAG WAS NOT SET
5868 035475 603 05 0 00 000100 TLNE AC+1,FXU ;EXAMINE FXU
5869 035476 013 05 0 00 035511 ER13 AC+1,35511 ;ERROR - FXU IS SET
5870 035477 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV
5871 035500 013 05 0 00 035511 ER13 AC+1,35511 ;ERROR - FOV NOT SET
5872 035501 321 06 0 00 035463 JUMPL AC+2,O35510 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 59
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0167
5873
5874 035502 254 02 1 00 035503 O35520: JRST 2,@.+1 ;CLEAR FLAGS
5875 035503 000000 035504 .+1
5876 035504 205 02 0 00 177400 MOVSI AC-2,177400 ;SETUP FOR COMPARISON
5877 035505 205 04 0 00 377400 MOVSI AC,377400 ;SETUP AC
5878 035506 132 04 0 00 000200 FSC AC,200 ;SCALE - AROV,FOV
5879 035507 265 05 0 00 035510 JSP AC+1,.+1 ;SAVE FLAGS
5880 035510 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
5881 035511 003 04 0 00 035521 ER3 AC,35521 ;C(AC) FAILED
5882 035512 255 10 0 00 035514 JOV .+2 ;EXAMINE AROV FLAG
5883 035513 013 05 0 00 035521 ER13 AC+1,35521 ;AROV FLAG WAS NOT SET
5884 035514 603 05 0 00 000100 TLNE AC+1,FXU ;EXAMINE FXU
5885 035515 013 05 0 00 035521 ER13 AC+1,35521 ;FXU WAS SET
5886 035516 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV
5887 035517 013 05 0 00 035521 ER13 AC+1,35521 ;FOV WAS NOT SET
5888 035520 321 06 0 00 035502 JUMPL AC+2,O35520 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 60
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0168
5889 035521 254 02 1 00 035522 O35530: JRST 2,@.+1 ;CLEAR FLAGS
5890 035522 000000 035523 .+1
5891 035523 205 02 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
5892 035524 205 04 0 00 377400 MOVSI AC,377400 ;SETUP AC
5893 035525 132 04 0 00 000201 FSC AC,201 ;SCALE - AROV,FOV
5894 035526 265 05 0 00 035527 JSP AC+1,.+1 ;SAVE FLAGS
5895 035527 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
5896 035530 003 04 0 00 035531 ER3 AC,35531 ;C(AC) FAILED
5897 035531 255 10 0 00 035533 JOV .+2 ;EXAMINE AROV FLAG
5898 035532 013 05 0 00 035531 ER13 AC+1,35531 ;AROV FLAG NOT SET
5899 035533 332 00 0 00 030041 SKIPE KLFLG
5900 035534 254 00 0 00 035543 JRST O35535 ;KL10
5901 035535 607 05 0 00 000100 TLNN AC+1,FXU ;EXAMINE FXU
5902 035536 013 05 0 00 035531 ER13 AC+1,35531 ;FXU WAS NOT SET
5903 035537 607 05 0 00 040000 O35537: TLNN AC+1,FOV ;EXAMINE FOV
5904 035540 013 05 0 00 035531 ER13 AC+1,35531 ;FOV WAS NOT SET
5905 035541 321 06 0 00 035521 JUMPL AC+2,O35530 ;LOOP ON ERROR SWITCH.
5906 035542 254 00 0 00 035546 JRST O35540
5907 035543 603 05 0 00 000100 O35535: TLNE AC+1,FXU ;FXU SHOULD NOT BE SET ON KL10
5908 035544 013 05 0 00 035532 ER13 AC+1,35532
5909 035545 254 00 0 00 035537 JRST O35537
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 61
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0169
5910
5911 035546 254 02 1 00 035547 O35540: JRST 2,@.+1 ;CLEAR FLAGS
5912 035547 000000 035550 .+1
5913 035550 205 02 0 00 376400 MOVSI AC-2,376400 ;SETUP FOR COMPARISON
5914 035551 205 04 0 00 377400 MOVSI AC,377400 ;SETUP AC
5915 035552 132 04 0 00 000377 FSC AC,377 ;SCALE - AROV, FOV
5916 035553 265 05 0 00 035554 JSP AC+1,.+1 ;SAVE FLAGS
5917 035554 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
5918 035555 003 04 0 00 035541 ER3 AC,35541 ;C(AC) FAILED
5919 035556 255 10 0 00 035560 JOV .+2 ;EXAMINE AROV FLAG
5920 035557 013 05 0 00 035541 ER13 AC+1,35541 ;AROV FLAG WAS NOT SET
5921 035560 332 00 0 00 030041 SKIPE KLFLG
5922 035561 254 00 0 00 035570 JRST O35545 ;KL10
5923 035562 607 05 0 00 000100 TLNN AC+1,FXU ;EXAMINE FXU
5924 035563 013 05 0 00 035541 ER13 AC+1,35541 ;FXU WAS NOT SET
5925 035564 607 05 0 00 040000 O35547: TLNN AC+1,FOV ;EXAMINE FOV
5926 035565 013 05 0 00 035541 ER13 AC+1,35541 ;FOV WAS NOT SET
5927 035566 321 06 0 00 035546 JUMPL AC+2,O35540 ;LOOP ON ERROR SWITCH
5928 035567 254 00 0 00 035573 JRST O35550
5929 035570 603 05 0 00 000100 O35545: TLNE AC+1,FXU ;FXU SHOULD NOT BE SET ON KL10
5930 035571 013 05 0 00 035542 ER13 AC+1,35542
5931 035572 254 00 0 00 035564 JRST O35547
5932
5933 035573 254 02 1 00 035574 O35550: JRST 2,@.+1 ;CLEAR FLAGS
5934 035574 000000 035575 .+1
5935 035575 205 02 0 00 377400 MOVSI AC-2,377400 ;SETUP FOR COMPARISON
5936 035576 205 04 0 00 377400 MOVSI AC,377400 ;SETUP AC
5937 035577 132 04 0 00 000400 FSC AC,400 ;SCALE - NO FLAGS
5938 035600 265 05 0 00 035601 JSP AC+1,.+1 ;SAVE FLAGS
5939 035601 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
5940 035602 003 04 0 00 035551 ER3 AC,35551 ;C(AC) FAILED
5941 035603 255 10 0 00 035605 JOV .+2 ;EXAMINE AROV FLAG
5942 035604 254 00 0 00 035606 JRST .+2
5943 035605 013 05 0 00 035551 ER13 AC+1,35551 ;AROV FLAG WAS SET
5944 035606 603 05 0 00 040100 TLNE AC+1,FOV+FXU ;EXAMINE FLAGS
5945 035607 013 05 0 00 035551 ER13 AC+1,35551 ;A FLAG WAS SET
5946 035610 321 06 0 00 035573 JUMPL AC+2,O35550 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 62
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0170
5947 035611 254 02 1 00 035612 O35560: JRST 2,@.+1 ;CLEAR FLAGS
5948 035612 000000 035613 .+1
5949 035613 205 02 0 00 000400 MOVSI AC-2,400 ;SETUP FOR COMPARISON
5950 035614 205 04 0 00 377400 MOVSI AC,377400 ;SETUP AC
5951 035615 132 04 0 00 777401 FSC AC,-377 ;SCALE - NO FLAGS
5952 035616 265 05 0 00 035617 JSP AC+1,.+1 ;SAVE FLAGS
5953 035617 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
5954 035620 003 04 0 00 035561 ER3 AC,35561 ;C(AC) FAILED
5955 035621 255 10 0 00 035623 JOV .+2 ;EXAMINE AROV FLAG
5956 035622 254 00 0 00 035624 JRST .+2
5957 035623 013 05 0 00 035561 ER13 AC+1,35561 ;AROV FLAG WAS SET
5958 035624 603 05 0 00 040100 TLNE AC+1,FOV+FXU ;EXAMINE FLAGS
5959 035625 013 05 0 00 035561 ER13 AC+1,35561 ;A FLAG WAS SET
5960 035626 321 06 0 00 035611 JUMPL AC+2,O35560 ;LOOP ON ERROR SWITCH
5961
5962 035627 254 02 1 00 035630 O35570: JRST 2,@.+1 ;CLEAR FLAGS
5963 035630 000000 035631 .+1
5964 035631 205 02 0 00 377400 MOVSI AC-2,377400 ;SETUP FOR COMPARISON
5965 035632 205 04 0 00 377400 MOVSI AC,377400 ;SETUP AC
5966 035633 132 04 0 00 777400 FSC AC,-400 ;SCALE - AROV,FOV,FXU
5967 035634 265 05 0 00 035635 JSP AC+1,.+1 ;SAVE FLAGS
5968 035635 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
5969 035636 003 04 0 00 035571 ER3 AC,35571 ;C(AC) FAILED
5970 035637 255 10 0 00 035641 JOV .+2 ;EXAMINE AROV FLAG
5971 035640 013 05 0 00 035571 ER13 AC+1,35571 ;AROV FLAG WAS NOT SET
5972 035641 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV FLAG
5973 035642 013 05 0 00 035571 ER13 AC+1,35571 ;FOV WAS NOT SET
5974 035643 607 05 0 00 000100 TLNN AC+1,FXU ;EXAMINE FXU FLAG
5975 035644 013 05 0 00 035571 ER13 AC+1,35571 ;FXU WAS NOT SET
5976 035645 321 06 0 00 035627 JUMPL AC+2,O35570 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 63
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0171
5977 035646 254 02 1 00 035647 O35600: JRST 2,@.+1 ;CLEAR FLAGS
5978 035647 000000 035650 .+1
5979 035650 205 02 0 00 000400 MOVSI AC-2,400 ;SETUP FOR COMPARISON
5980 035651 205 04 0 00 000400 MOVSI AC,400 ;SETUP AC
5981 035652 132 04 0 00 000000 FSC AC,0 ;FSC - NO FLAGS
5982 035653 265 05 0 00 035654 JSP AC+1,.+1 ;SAVE FLAGS
5983 035654 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
5984 035655 003 04 0 00 035601 ER3 AC,35601 ;C(AC) FAILED
5985 035656 255 10 0 00 035660 JOV .+2 ;EXAMINE AROV FLAG
5986 035657 254 00 0 00 035661 JRST .+2
5987 035660 013 05 0 00 035601 ER13 AC+1,35601 ;AROV WAS SET
5988 035661 603 05 0 00 040100 TLNE AC+1,FOV+FXU ;TEST FOV,FXU
5989 035662 013 05 0 00 035601 ER13 AC+1,35601 ;EITHER FOV OR FXU WAS SET
5990 035663 321 06 0 00 035646 JUMPL AC+2,O35600 ;LOOP ON ERROR SWITCH
5991
5992 035664 254 02 1 00 035665 O35610: JRST 2,@.+1 ;CLEAR FLAGS
5993 035665 000000 035666 .+1
5994 035666 205 02 0 00 377400 MOVSI AC-2,377400 ;SETUP FOR COMPARISON
5995 035667 205 04 0 00 000400 MOVSI AC,400 ;SETUP AC
5996 035670 132 04 0 00 777777 FSC AC,-1 ;SCALE - AROV,FOV,FXU
5997 035671 265 05 0 00 035672 JSP AC+1,.+1 ;SAVE FLAGS
5998 035672 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
5999 035673 003 04 0 00 035611 ER3 AC,35611 ;C(AC) FAILED
6000 035674 255 10 0 00 035676 JOV .+2 ;EXAMINE AROV FLAG
6001 035675 013 05 0 00 035611 ER13 AC+1,35611 ;AROV FLAG WAS NOT SET
6002 035676 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV FLAG
6003 035677 013 05 0 00 035611 ER13 AC+1,35611 ;FOV WAS NOT SET
6004 035700 607 05 0 00 000100 TLNN AC+1,FXU ;EXAMINE FXU FLAG
6005 035701 013 05 0 00 035611 ER13 AC+1,35611 ;FXU WAS NOT SET
6006 035702 321 06 0 00 035664 JUMPL AC+2,O35610 ;LOOP ON ERROR SWITCH
6007
6008 035703 254 02 1 00 035704 O35620: JRST 2,@.+1 ;CLEAR FLAGS
6009 035704 000000 035705 .+1
6010 035705 205 02 0 00 201400 MOVSI AC-2,201400 ;SETUP FOR COMPARISON
6011 035706 205 04 0 00 000400 MOVSI AC,400 ;SETUP AC
6012 035707 132 04 0 00 777601 FSC AC,-177 ;SCALE - AROV,FOV,FXU
6013 035710 265 05 0 00 035711 JSP AC+1,.+1 ;SAVE FLAGS
6014 035711 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6015 035712 003 04 0 00 035621 ER3 AC,35621 ;C(AC) FAILED
6016 035713 255 10 0 00 035715 JOV .+2 ;EXAMINE AROV FLAG
6017 035714 013 05 0 00 035621 ER13 AC+1,35621 ;AROV FLAG WAS NOT SET
6018 035715 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV FLAG
6019 035716 013 05 0 00 035621 ER13 AC+1,35621 ;FOV WAS NOT SET
6020 035717 607 05 0 00 000100 TLNN AC+1,FXU ;EXAMINE FXU FLAG
6021 035720 013 05 0 00 035621 ER13 AC+1,35621 ;FXU WAS NOT SET
6022 035721 321 06 0 00 035703 JUMPL AC+2,O35620 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 64
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0172
6023 035722 254 02 1 00 035723 O35630: JRST 2,@.+1 ;CLEAR FLAGS
6024 035723 000000 035724 .+1
6025 035724 205 02 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
6026 035725 205 04 0 00 000400 MOVSI AC,400 ;SETUP AC
6027 035726 132 04 0 00 777600 FSC AC,-200 ;SCALE - AROV,FOV,FXU
6028 035727 265 05 0 00 035730 JSP AC+1,.+1 ;SAVE FLAGS
6029 035730 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6030 035731 003 04 0 00 035631 ER3 AC,35631 ;C(AC) FAILED
6031 035732 255 10 0 00 035734 JOV .+2 ;EXAMINE AROV FLAG
6032 035733 013 05 0 00 035631 ER13 AC+1,35631 ;AROV FLAG WAS NOT SET
6033 035734 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV FLAG
6034 035735 013 05 0 00 035631 ER13 AC+1,35631 ;FOV WAS NOT SET
6035 035736 607 05 0 00 000100 TLNN AC+1,FXU ;EXAMINE FXU FLAG
6036 035737 013 05 0 00 035631 ER13 AC+1,35631 ;FXU WAS NOT SET
6037 035740 321 06 0 00 035722 JUMPL AC+2,O35630 ;LOOP ON ERROR SWITCH
6038
6039 035741 254 02 1 00 035742 O35640: JRST 2,@.+1 ;CLEAR FLAGS
6040 035742 000000 035743 .+1
6041 035743 205 02 0 00 001400 MOVSI AC-2,1400 ;SETUP FOR COMPARISON
6042 035744 205 04 0 00 000400 MOVSI AC,400 ;SETUP AC
6043 035745 132 04 0 00 777401 FSC AC,-377 ;SCALE - AROV,FOV,FXU
6044 035746 265 05 0 00 035747 JSP AC+1,.+1 ;SAVE FLAGS
6045 035747 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6046 035750 003 04 0 00 035641 ER3 AC,35641 ;C(AC) FAILED
6047 035751 255 10 0 00 035753 JOV .+2 ;EXAMINE AROV FLAG
6048 035752 013 05 0 00 035641 ER13 AC+1,35641 ;AROV FLAG WAS NOT SET
6049 035753 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV FLAG
6050 035754 013 05 0 00 035641 ER13 AC+1,35641 ;FOV WAS NOT SET
6051 035755 332 00 0 00 030041 SKIPE KLFLG
6052 035756 254 00 0 00 035763 JRST O35645 ;KL10
6053 035757 603 05 0 00 000100 TLNE AC+1,FXU ;EXAMINE FXU FLAG
6054 035760 013 05 0 00 035641 ER13 AC+1,35641 ;FXU WAS SET
6055 035761 321 06 0 00 035741 O35647: JUMPL AC+2,O35640 ;LOOP ON ERROR SWITCH
6056 035762 254 00 0 00 035766 JRST O35650
6057 035763 607 05 0 00 000100 O35645: TLNN AC+1,FXU ;FXU SHOULD BE SET ON KL10
6058 035764 013 05 0 00 035642 ER13 AC+1,35642
6059 035765 254 00 0 00 035761 JRST O35647
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 65
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0173
6060
6061 035766 254 02 1 00 035767 O35650: JRST 2,@.+1 ;CLEAR FLAGS
6062 035767 000000 035770 .+1
6063 035770 205 02 0 00 000400 MOVSI AC-2,400 ;SETUP FOR COMPARISON
6064 035771 205 04 0 00 000400 MOVSI AC,400 ;SETUP AC
6065 035772 132 04 0 00 777400 FSC AC,-400 ;SCALE - AROV,FOV,FXU
6066 035773 265 05 0 00 035774 JSP AC+1,.+1 ;SAVE FLAGS
6067 035774 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6068 035775 003 04 0 00 035651 ER3 AC,35651 ;C(AC) FAILED
6069 035776 255 10 0 00 036000 JOV .+2 ;EXAMINE AROV FLAG
6070 035777 013 05 0 00 035651 ER13 AC+1,35651 ;AROV FLAG WAS NOT SET
6071 036000 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV FLAG
6072 036001 013 05 0 00 035651 ER13 AC+1,35651 ;FOV WAS NOT SET
6073 036002 332 00 0 00 030041 SKIPE KLFLG
6074 036003 254 00 0 00 036010 JRST O35655
6075 036004 603 05 0 00 000100 TLNE AC+1,FXU ;EXAMINE FXU FLAG
6076 036005 013 05 0 00 035651 ER13 AC+1,35651 ;FXU WAS SET
6077 036006 321 06 0 00 035766 O35657: JUMPL AC+2,O35650 ;LOOP ON ERROR SWITCH
6078 036007 254 00 0 00 036013 JRST O35660
6079 036010 607 05 0 00 000100 O35655: TLNN AC+1,FXU ;FXU SHOULD BE SET ON KL10
6080 036011 013 05 0 00 035652 ER13 AC+1,35652
6081 036012 254 00 0 00 036006 JRST O35657
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 66
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0174
6082 036013 254 02 1 00 036014 O35660: JRST 2,@.+1 ;CLEAR FLAGS
6083 036014 000000 036015 .+1
6084 036015 205 02 0 00 377400 MOVSI AC-2,377400 ;SETUP FOR COMPARISON
6085 036016 205 04 0 00 000400 MOVSI AC,400 ;SETUP AC
6086 036017 132 04 0 00 000377 FSC AC,377 ;SCALE - NO FLAGS
6087 036020 265 05 0 00 036021 JSP AC+1,.+1 ;SAVE FLAGS
6088 036021 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6089 036022 003 04 0 00 035661 ER3 AC,35661 ;C(AC) FAILED
6090 036023 255 10 0 00 036025 JOV .+2 ;EXAMINE AROV FLAG
6091 036024 254 00 0 00 036026 JRST .+2
6092 036025 013 05 0 00 035661 ER13 AC+1,35661 ;AROV FLAG WAS SET
6093 036026 603 05 0 00 040100 TLNE AC+1,FOV+FXU ;EXAMINE FLAGS
6094 036027 013 05 0 00 035661 ER13 AC+1,35661 ;A FLAG WAS SET
6095 036030 321 06 0 00 036013 JUMPL AC+2,O35660 ;LOOP ON ERROR SWITCH
6096
6097 036031 254 02 1 00 036032 O35670: JRST 2,@.+1 ;CLEAR FLAGS
6098 036032 000000 036033 .+1
6099 036033 205 02 0 00 000400 MOVSI AC-2,400 ;SETUP FOR COMPARISON
6100 036034 205 04 0 00 000400 MOVSI AC,400 ;SETUP AC
6101 036035 132 04 0 00 000400 FSC AC,400 ;SCALE - NO FLAGS
6102 036036 265 05 0 00 036037 JSP AC+1,.+1 ;SAVE FLAGS
6103 036037 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6104 036040 003 04 0 00 035671 ER3 AC,35671 ;C(AC) FAILED
6105 036041 255 10 0 00 036043 JOV .+2 ;EXAMINE AROV FLAG
6106 036042 254 00 0 00 036044 JRST .+2
6107 036043 013 05 0 00 035671 ER13 AC+1,35671 ;AROV FLAG WAS SET
6108 036044 603 05 0 00 040100 TLNE AC+1,FOV+FXU ;EXAMINE FLAGS
6109 036045 013 05 0 00 035671 ER13 AC+1,35671 ;A FLAG WAS SET
6110 036046 321 06 0 00 036031 JUMPL AC+2,O35670 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 67
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0175
6111 036047 254 02 1 00 036050 O35700: JRST 2,@.+1 ;CLEAR FLAGS
6112 036050 000000 036051 .+1
6113 036051 205 02 0 00 400400 MOVSI AC-2,-377400 ;SETUP FOR COMPARISON
6114 036052 205 04 0 00 400400 MOVSI AC,-377400 ;SETUP AC
6115 036053 132 04 0 00 000000 FSC AC,0 ;SCALE - NO FLAGS
6116 036054 265 05 0 00 036055 JSP AC+1,.+1 ;SAVE FLAGS
6117 036055 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC) FOR NO CHANGE
6118 036056 003 04 0 00 035701 ER3 AC,35701 ;C(AC) FAILED
6119 036057 255 10 0 00 036061 JOV .+2 ;EXAMINE AROV FLAG
6120 036060 254 00 0 00 036062 JRST .+2
6121 036061 013 05 0 00 035701 ER13 AC+1,35701 ;AROV FLAG WAS SET
6122 036062 603 05 0 00 040100 TLNE AC+1,FOV+FXU ;EXAMINE FLAGS
6123 036063 013 05 0 00 035701 ER13 AC+1,35701 ;A FLAG WAS SET
6124 036064 321 06 0 00 036047 JUMPL AC+2,O35700 ;LOOP ON ERROR SWITCH
6125
6126 036065 254 02 1 00 036066 O35710: JRST 2,@.+1 ;CLEAR FLAGS
6127 036066 000000 036067 .+1
6128 036067 205 02 0 00 777400 MOVSI AC-2,-400 ;SETUP FOR COMPARISON
6129 036070 205 04 0 00 400400 MOVSI AC,-377400 ;SETUP AC
6130 036071 132 04 0 00 000001 FSC AC,1 ;SCALE - AROV,FOV
6131 036072 265 05 0 00 036073 JSP AC+1,.+1 ;SAVE FLAGS
6132 036073 312 04 0 00 000002 CAME AC,<AC-2>&17 ;EXAMINE C(AC)
6133 036074 003 04 0 00 035711 ER3 AC,35711 ;C(AC) FAILED
6134 036075 255 10 0 00 036077 JOV .+2 ;EXAMINE AROV FLAG
6135 036076 013 05 0 00 035711 ER13 AC+1,35711 ;AROV FLAG WAS NOT SET
6136 036077 603 05 0 00 000100 TLNE AC+1,FXU ;EXAMINE FXU
6137 036100 013 05 0 00 035711 ER13 AC+1,35711 ;ERROR - FXU IS SET
6138 036101 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV
6139 036102 013 05 0 00 035711 ER13 AC+1,35711 ;ERROR - FOV NOT SET
6140 036103 321 06 0 00 036065 JUMPL AC+2,O35710 ;LOOP ON ERROR SWITCH
6141
6142 036104 254 02 1 00 036105 O35720: JRST 2,@.+1 ;CLEAR FLAGS
6143 036105 000000 036106 .+1
6144 036106 205 02 0 00 600400 MOVSI AC-2,-177400 ;SETUP FOR COMPARISON
6145 036107 205 04 0 00 400400 MOVSI AC,-377400 ;SETUP AC
6146 036110 132 04 0 00 000200 FSC AC,200 ;SCALE - AROV,FOV
6147 036111 265 05 0 00 036112 JSP AC+1,.+1 ;SAVE FLAGS
6148 036112 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6149 036113 003 04 0 00 035721 ER3 AC,35721 ;C(AC) FAILED
6150 036114 255 10 0 00 036116 JOV .+2 ;EXAMINE AROV FLAG
6151 036115 013 05 0 00 035721 ER13 AC+1,35721 ;AROV FLAG WAS NOT SET
6152 036116 603 05 0 00 000100 TLNE AC+1,FXU ;EXAMINE FXU
6153 036117 013 05 0 00 035721 ER13 AC+1,35721 ;ERROR - FXU IS SET
6154 036120 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV
6155 036121 013 05 0 00 035721 ER13 AC+1,35721 ;ERROR - FOV NOT SET
6156 036122 321 06 0 00 036104 JUMPL AC+2,O35720 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 68
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0176
6157 036123 254 02 1 00 036124 O35730: JRST 2,@.+1 ;CLEAR FLAGS
6158 036124 000000 036125 .+1
6159 036125 205 02 0 00 577400 MOVSI AC-2,-200400 ;SETUP FOR COMPARISON
6160 036126 205 04 0 00 400400 MOVSI AC,-377400 ;SETUP AC
6161 036127 132 04 0 00 000201 FSC AC,201 ;SCALE - AROV,FOV
6162 036130 265 05 0 00 036131 JSP AC+1,.+1 ;SAVE FLAGS
6163 036131 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6164 036132 003 04 0 00 035731 ER3 AC,35731 ;C(AC) FAILED
6165 036133 255 10 0 00 036135 JOV .+2 ;EXAMINE AROV FLAG
6166 036134 013 05 0 00 035731 ER13 AC+1,35731 ;AROV FLAG WAS NOT SET
6167 036135 332 00 0 00 030041 SKIPE KLFLG
6168 036136 254 00 0 00 036145 JRST O35735 ;KL10
6169 036137 607 05 0 00 000100 TLNN AC+1,FXU ;EXAMINE FXU
6170 036140 013 05 0 00 035731 ER13 AC+1,35731 ;ERROR - FXU IS NOT SET
6171 036141 607 05 0 00 040000 O35737: TLNN AC+1,FOV ;EXAMINE FOV
6172 036142 013 05 0 00 035731 ER13 AC+1,35731 ;ERROR - FOV NOT SET
6173 036143 321 06 0 00 036123 JUMPL AC+2,O35730 ;LOOP ON ERROR SWITCH
6174 036144 254 00 0 00 036150 JRST O35740
6175 036145 603 05 0 00 000100 O35735: TLNE AC+1,FXU ;FXU SHOULD NOT BE SET ON KL10
6176 036146 013 05 0 00 035732 ER13 AC+1,35732
6177 036147 254 00 0 00 036141 JRST O35737
6178
6179 036150 254 02 1 00 036151 O35740: JRST 2,@.+1 ;CLEAR FLAGS
6180 036151 000000 036152 .+1
6181 036152 205 02 0 00 401400 MOVSI AC-2,-376400 ;SETUP FOR COMPARISON
6182 036153 205 04 0 00 400400 MOVSI AC,-377400 ;SETUP AC
6183 036154 132 04 0 00 000377 FSC AC,377 ;SCALE - AROV, FOV
6184 036155 265 05 0 00 036156 JSP AC+1,.+1 ;SAVE FLAGS
6185 036156 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6186 036157 003 04 0 00 035741 ER3 AC,35741 ;C(AC) RAILED
6187 036160 255 10 0 00 036162 JOV .+2 ;EXAMINE AROV FLAG
6188 036161 013 05 0 00 035741 ER13 AC+1,35741 ;AROV FLAG WAS NOT SET
6189 036162 332 00 0 00 030041 SKIPE KLFLG
6190 036163 254 00 0 00 036172 JRST O35745
6191 036164 607 05 0 00 000100 TLNN AC+1,FXU ;EXAMINE FXU
6192 036165 013 05 0 00 035741 ER13 AC+1,35741 ;ERROR - FXU IS NOT SET
6193 036166 607 05 0 00 040000 O35747: TLNN AC+1,FOV ;EXAMINE FOV
6194 036167 013 05 0 00 035741 ER13 AC+1,35741 ;ERROR - FOV NOT SET
6195 036170 321 06 0 00 036150 JUMPL AC+2,O35740 ;LOOP ON ERROR SWITCH
6196 036171 254 00 0 00 036175 JRST O35750
6197 036172 603 05 0 00 000100 O35745: TLNE AC+1,FXU ;FXU SOULD NOT BE SET ON KL10
6198 036173 013 05 0 00 035742 ER13 AC+1,35742
6199 036174 254 00 0 00 036166 JRST O35747
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 69
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0177
6200
6201 036175 254 02 1 00 036176 O35750: JRST 2,@.+1 ;CLEAR FLAGS
6202 036176 000000 036177 .+1
6203 036177 205 02 0 00 400400 MOVSI AC-2,-377400 ;SETUP FOR COMPARISON
6204 036200 205 04 0 00 400400 MOVSI AC,-377400 ;SETUP AC.
6205 036201 132 04 0 00 000400 FSC AC,400 ;SCALE - NO FLAGS
6206 036202 265 05 0 00 036203 JSP AC+1,.+1 ;SAVE FLAGS
6207 036203 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6208 036204 003 04 0 00 035751 ER3 AC,35751 ;C(AC) FAILED
6209 036205 255 10 0 00 036207 JOV .+2 ;EXAMINE AROV FLAG
6210 036206 254 00 0 00 036210 JRST .+2
6211 036207 013 05 0 00 035751 ER13 AC+1,35751 ;AROV FLAG WAS SET
6212 036210 603 05 0 00 040100 TLNE AC+1,FOV+FXU ;EXAMINE FLAGS
6213 036211 013 05 0 00 035751 ER13 AC+1,35751 ;A FLAG WAS SET
6214 036212 321 06 0 00 036175 JUMPL AC+2,O35750 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 70
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0178
6215 036213 254 02 1 00 036214 O35760: JRST 2,@.+1 ;CLEAR FLAGS
6216 036214 000000 036215 .+1
6217 036215 205 02 0 00 777400 MOVSI AC-2,-400 ;SETUP FOR COMPARISON
6218 036216 205 04 0 00 400400 MOVSI AC,-377400 ;SETUP AC
6219 036217 132 04 0 00 777401 FSC AC,-377 ;SCALE - NO FLAGS
6220 036220 265 05 0 00 036221 JSP AC+1,.+1 ;SAVE FLAGS
6221 036221 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6222 036222 003 04 0 00 035761 ER3 AC,35761 ;C(AC) FAILED.
6223 036223 255 10 0 00 036225 JOV .+2 ;EXAMINE AROV FLAG
6224 036224 254 00 0 00 036226 JRST .+2
6225 036225 013 05 0 00 035761 ER13 AC+1,35761 ;AROV FLAG WAS SET
6226 036226 603 05 0 00 040100 TLNE AC+1,FOV+FXU ;EXAMINE FLAGS
6227 036227 013 05 0 00 035761 ER13 AC+1,35761 ;A FLAG WAS SET
6228 036230 321 06 0 00 036213 JUMPL AC+2,O35760 ;LOOP ON ERROR SWITCH
6229
6230 036231 254 02 1 00 036232 O35770: JRST 2,@.+1 ;CLEAR FLAGS
6231 036232 000000 036233 .+1
6232 036233 205 02 0 00 400400 MOVSI AC-2,-377400 ;SETUP FOR COMPARISON
6233 036234 205 04 0 00 400400 MOVSI AC,-377400 ;SETUP AC
6234 036235 132 04 0 00 777400 FSC AC,-400 ;SCALE - AROV,FOV,FXU
6235 036236 265 05 0 00 036237 JSP AC+1,.+1 ;SAVE FLAGS
6236 036237 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6237 036240 003 04 0 00 035771 ER3 AC,35771 ;C(AC) FAILED
6238 036241 255 10 0 00 036243 JOV .+2 ;EXAMINE AROV FLAG
6239 036242 013 05 0 00 035771 ER13 AC+1,35771 ;AROV FLAG WAS NOT SET
6240 036243 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV FLAG
6241 036244 013 05 0 00 035771 ER13 AC+1,35771 ;FOV WAS NOT SET
6242 036245 607 05 0 00 000100 TLNN AC+1,FXU ;EXAMINE FXU FLAG
6243 036246 013 05 0 00 035771 ER13 AC+1,35771 ;FXU WAS NOT SET
6244 036247 321 06 0 00 035627 JUMPL AC+2,O35570 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 71
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0179
6245 036250 254 02 1 00 036251 O36000: JRST 2,@.+1 ;CLEAR FLAGS
6246 036251 000000 036252 .+1
6247 036252 205 02 0 00 777400 MOVSI AC-2,-400 ;SETUP FOR COMPARISON
6248 036253 205 04 0 00 777400 MOVSI AC,-400 ;SETUP AC
6249 036254 132 04 0 00 000000 FSC AC,0 ;FSC - NO FLAGS
6250 036255 265 05 0 00 036256 JSP AC+1,.+1 ;SAVE FLAGS
6251 036256 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6252 036257 003 04 0 00 036001 ER3 AC,36001 ;C(AC) FAILED
6253 036260 255 10 0 00 036262 JOV .+2 ;EXAMINE AROV FLAG
6254 036261 254 00 0 00 036263 JRST .+2
6255 036262 013 05 0 00 036001 ER13 AC+1,36001 ;AROV FLAG WAS SET
6256 036263 603 05 0 00 040100 TLNE AC+1,FOV+FXU ;TEST FOV,FXU
6257 036264 013 05 0 00 036001 ER13 AC+1,36001 ;EITHER FOV OR FXU WAS SET
6258 036265 321 06 0 00 036250 JUMPL AC+2,O36000 ;LOOP ON ERROR SWITCH
6259
6260 036266 254 02 1 00 036267 O36010: JRST 2,@.+1 ;CLEAR FLAGS
6261 036267 000000 036270 .+1
6262 036270 205 02 0 00 400400 MOVSI AC-2,-377400 ;SETUP FOR COMPARISON
6263 036271 205 04 0 00 777400 MOVSI AC,-400 ;SETUP AC
6264 036272 132 04 0 00 777777 FSC AC,-1 ;SCALE - AROV,FOV,FXU
6265 036273 265 05 0 00 036274 JSP AC+1,.+1 ;SAVE FLAGS
6266 036274 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6267 036275 003 04 0 00 036011 ER3 AC,36011 ;C(AC) FAILED
6268 036276 255 10 0 00 036300 JOV .+2 ;EXAMINE AROV FLAG
6269 036277 013 05 0 00 036011 ER13 AC+1,36011 ;AROV FLAG WAS NOT SET
6270 036300 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV FLAG
6271 036301 013 05 0 00 036011 ER13 AC+1,36011 ;FOV WAS NOT SET
6272 036302 607 05 0 00 000100 TLNN AC+1,FXU ;EXAMINE FXU FLAG
6273 036303 013 05 0 00 036011 ER13 AC+1,36011 ;FXU WAS NOT SET
6274 036304 321 06 0 00 036266 JUMPL AC+2,O36010 ;LOOP ON ERROR SWITCH
6275
6276 036305 254 02 1 00 036306 O36020: JRST 2,@.+1 ;CLEAR FLAGS
6277 036306 000000 036307 .+1
6278 036307 205 02 0 00 576400 MOVSI AC-2,-201400 ;SETUP FOR COMPARISON
6279 036310 205 04 0 00 777400 MOVSI AC,-400 ;SETUP AC
6280 036311 132 04 0 00 777601 FSC AC,-177 ;SCALE - AROV,FOV,FXU
6281 036312 265 05 0 00 036313 JSP AC+1,.+1 ;SAVE FLAGS
6282 036313 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6283 036314 003 04 0 00 036021 ER3 AC,36021 ;C(AC) FAILED
6284 036315 255 10 0 00 036317 JOV .+2 ;EXAMINE AROV FLAG
6285 036316 013 05 0 00 036021 ER13 AC+1,36021 ;AROV FLAG WAS NOT SET
6286 036317 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV FLAG
6287 036320 013 05 0 00 036021 ER13 AC+1,36021 ;FOV WAS NOT SET
6288 036321 607 05 0 00 000100 TLNN AC+1,FXU ;EXAMINE FXU FLAG
6289 036322 013 05 0 00 036021 ER13 AC+1,36021 ;FXU WAS NOT SET
6290 036323 321 06 0 00 036305 JUMPL AC+2,O36020 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 72
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0180
6291 036324 254 02 1 00 036325 O36030: JRST 2,@.+1 ;CLEAR FLAGS
6292 036325 000000 036326 .+1
6293 036326 205 02 0 00 577400 MOVSI AC-2,-200400 ;SETUP FOR COMPARISON
6294 036327 205 04 0 00 777400 MOVSI AC,-400 ;SETUP AC
6295 036330 132 04 0 00 777600 FSC AC,-200 ;SCALE - AROV,FOV,FXU
6296 036331 265 05 0 00 036332 JSP AC+1,.+1 ;SAVE FLAGS
6297 036332 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6298 036333 003 04 0 00 036031 ER3 AC,36031 ;C(AC) FAILED
6299 036334 255 10 0 00 036336 JOV .+2 ;EXAMINE AROV FLAG
6300 036335 013 05 0 00 036031 ER13 AC+1,36031 ;AROV FLAG WAS NOT SET
6301 036336 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV FLAG
6302 036337 013 05 0 00 036031 ER13 AC+1,36031 ;FOV WAS NOT SET
6303 036340 607 05 0 00 000100 TLNN AC+1,FXU ;EXAMINE FXU FLAG
6304 036341 013 05 0 00 036031 ER13 AC+1,36031 ;FXU WAS NOT SET
6305 036342 321 06 0 00 036324 JUMPL AC+2,O36030 ;LOOP ON ERROR SWITCH
6306
6307 036343 254 02 1 00 036344 O36040: JRST 2,@.+1 ;CLEAR FLAGS
6308 036344 000000 036345 .+1
6309 036345 205 02 0 00 776400 MOVSI AC-2,-1400 ;SETUP FOR COMPARISON
6310 036346 205 04 0 00 777400 MOVSI AC,-400 ;SETUP AC
6311 036347 132 04 0 00 777401 FSC AC,-377 ;SCALE - AROV,FOV,FXU
6312 036350 265 05 0 00 036351 JSP AC+1,.+1 ;SAVE FLAGS
6313 036351 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6314 036352 003 04 0 00 036041 ER3 AC,36041 ;C(AC) FAILED
6315 036353 255 10 0 00 036355 JOV .+2 ;EXAMINE AROV FLAG
6316 036354 013 05 0 00 036041 ER13 AC+1,36041 ;AROV FLAG WAS NOT SET
6317 036355 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV FLAG
6318 036356 013 05 0 00 036041 ER13 AC+1,36041 ;FOV WAS NOT SET
6319 036357 332 00 0 00 030041 SKIPE KLFLG
6320 036360 254 00 0 00 036365 JRST O36045 ;KL10
6321 036361 603 05 0 00 000100 TLNE AC+1,FXU ;EXAMINE FXU FLAG
6322 036362 013 05 0 00 036041 ER13 AC+1,36041 ;FXU WAS SET
6323 036363 321 06 0 00 036343 O36047: JUMPL AC+2,O36040 ;LOOP ON ERROR SWITCH
6324 036364 254 00 0 00 036370 JRST O36050
6325 036365 607 05 0 00 000100 O36045: TLNN AC+1,FXU ;FXU SHOULD BE SET ON KL10
6326 036366 013 05 0 00 036042 ER13 AC+1,36042
6327 036367 254 00 0 00 036363 JRST O36047
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 73
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0181
6328
6329 036370 254 02 1 00 036371 O36050: JRST 2,@.+1 ;CLEAR FLAGS
6330 036371 000000 036372 .+1
6331 036372 205 02 0 00 777400 MOVSI AC-2,-400 ;SETUP FOR COMPARISON
6332 036373 205 04 0 00 777400 MOVSI AC,-400 ;SETUP AC
6333 036374 132 04 0 00 777400 FSC AC,-400 ;SCALE - AROV,FOV,FXU
6334 036375 265 05 0 00 036376 JSP AC+1,.+1 ;SAVE FLAGS
6335 036376 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6336 036377 003 04 0 00 036051 ER3 AC,36051 ;C(AC) FAILED
6337 036400 255 10 0 00 036402 JOV .+2 ;EXAMINE AROV FLAG
6338 036401 013 05 0 00 036051 ER13 AC+1,36051 ;AROV FLAG WAS NOT SET
6339 036402 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV FLAG
6340 036403 013 05 0 00 036051 ER13 AC+1,36051 ;FOV WAS NOT SET
6341 036404 332 00 0 00 030041 SKIPE KLFLG
6342 036405 254 00 0 00 036412 JRST O36055 ;KL10
6343 036406 603 05 0 00 000100 TLNE AC+1,FXU ;EXAMINE FXU FLAG
6344 036407 013 05 0 00 036051 ER13 AC+1,36051 ;FXU WAS SET
6345 036410 321 06 0 00 036370 O36057: JUMPL AC+2,O36050 ;LOOP ON ERROR SWITCH
6346 036411 254 00 0 00 036415 JRST O36060
6347 036412 607 05 0 00 000100 O36055: TLNN AC+1,FXU ;FXU SHOULD BE SET ON KL10
6348 036413 013 05 0 00 036052 ER13 AC+1,36052
6349 036414 254 00 0 00 036410 JRST O36057
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 74
DFKCA1 MAC 3-Oct-80 13:56 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0182
6350 036415 254 02 1 00 036416 O36060: JRST 2,@.+1 ;CLEAR FLAGS
6351 036416 000000 036417 .+1
6352 036417 205 02 0 00 400400 MOVSI AC-2,-377400 ;SETUP FOR COMPARISON
6353 036420 205 04 0 00 777400 MOVSI AC,-400 ;SETUP AC
6354 036421 132 04 0 00 000377 FSC AC,377 ;SCALE - NO FLAGS
6355 036422 265 05 0 00 036423 JSP AC+1,.+1 ;SAVE FLAGS
6356 036423 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6357 036424 003 04 0 00 036061 ER3 AC,36061 ;C(AC) FAILED
6358 036425 255 10 0 00 036427 JOV .+2 ;EXAMINE AROV FLAG
6359 036426 254 00 0 00 036430 JRST .+2
6360 036427 013 05 0 00 036061 ER13 AC+1,36061 ;AROV FLAG WAS SET
6361 036430 603 05 0 00 040100 TLNE AC+1,FOV+FXU ;EXAMINE FLAGS
6362 036431 013 05 0 00 036061 ER13 AC+1,36061 ;A FLAG WAS SET
6363 036432 321 06 0 00 036415 JUMPL AC+2,O36060 ;LOOP ON ERROR SWITCH
6364
6365 036433 254 02 1 00 036434 O36070: JRST 2,@.+1 ;CLEAR FLAGS
6366 036434 000000 036435 .+1
6367 036435 205 02 0 00 777400 MOVSI AC-2,-400 ;SETUP FOR COMPARISON
6368 036436 205 04 0 00 777400 MOVSI AC,-400 ;SETUP AC
6369 036437 132 04 0 00 000400 FSC AC,400 ;SCALE - NO FLAGS
6370 036440 265 05 0 00 036441 JSP AC+1,.+1 ;SAVE FLAGS
6371 036441 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6372 036442 003 04 0 00 036071 ER3 AC,36071 ;C(AC) FAILED
6373 036443 255 10 0 00 036445 JOV .+2 ;EXAMINE AROV FLAG
6374 036444 254 00 0 00 036446 JRST .+2
6375 036445 013 05 0 00 036071 ER13 AC+1,36071 ;AROV FLAG WAS SET
6376 036446 603 05 0 00 040100 TLNE AC+1,FOV+FXU ;EXAMINE FLAGS
6377 036447 013 05 0 00 036071 ER13 AC+1,36071 ;A FLAG WAS SET
6378 036450 321 06 0 00 036433 JUMPL AC+2,O36070 ;LOOP ON ERROR SWITCH
6379
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2
DFKCA2 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION, PART TWO SEQ 0183
6380 SUBTTL DIAGNOSTIC SECTION, PART TWO
6381
6382 ; GENERAL DESCRIPTION
6383 ;PART I-FMP AND EXPONENT CALCULATE
6384 ;PART II-GEN TEST-FMP,FDV
6385 ;PART III - FMP AND EXPONENT CALCULATE
6386 LALL
6387 ;TEST FMP
6388 ;TEST APPARENT ABILITY TO FCE,
6389 ;SCA AND DECODE
6390 ;FCE FAILING RESULTS IN -NR ALL ZERO
6391 ;SAC FAILS - C(AC)=ORIGINAL
6392
6393 000014 CB00: AC=14
6394 SAVEAC (1,1)^
6395 036451 201 16 0 00 036451 MOVEI AC+2,.
6396 036452 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
6397 036453 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6398 036454 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6399
6400 ;TEST FCE
6401 036455 205 14 0 00 200400 P100: MOVSI AC,200400 ;SETUP AC
6402 036456 400 13 0 00 000000 SETZ AC-1, ;SETUP BR
6403 036457 160 14 0 00 000013 FMP AC,AC-1 ;C(AC) X C(E)
6404 036460 332 00 0 00 000014 SKIPE AC ;TEST PROD=0
6405 036461 003 14 0 00 000101 ER3 AC,101 ;FCE FAILED
6406 036462 321 16 0 00 036455 JUMPL AC+2,P100 ;LOOP ON ERROR SWITCH
6407
6408 ;TEST SAC
6409 036463 205 14 0 00 200400 P200: MOVSI AC,200400 ;SETUP AC
6410 036464 205 13 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
6411 036465 160 14 0 00 000013 FMP AC,AC-1 ;C(AC) X C(E)
6412 036466 316 14 0 00 000013 CAMN AC,AC-1 ;TEST C(AC)=ORIG
6413 036467 003 14 0 00 000201 ER3 AC,201 ;SAC FAILED
6414 036470 321 16 0 00 036463 JUMPL AC+2,P200 ;LOOP ON ERROR SWITCH
6415
6416 ;TEST FMP-EXP CAL
6417 ;AR=000400000000
6418 ;BR=000400000000
6419 ;CORR PROD=177400000000 AND OVERFLOW
6420 ;ERR PROD=177400000000 AND NOT OVERFLOW
6421
6422 000014 AC=14
6423 SAVEAC (1,1)^
6424 036471 201 16 0 00 036471 MOVEI AC+2,.
6425 036472 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
6426 036473 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6427 036474 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6428
6429 036475 255 10 0 00 036476 P300: JFCL 10,.+1 ;CLEAR AROV, EXEC NEXT INST
6430 036476 205 12 0 00 177400 MOVSI AC-2,177400 ;SETUP FOR COMPARISON
6431 036477 205 14 0 00 000400 MOVSI AC,400 ;SETUP AC
6432 036500 205 13 0 00 000400 MOVSI AC-1,400 ;SETUP BR
6433 036501 160 14 0 00 000013 FMP AC,AC-1 ;C(AC) X C(E)
6434 036502 265 11 0 00 036503 JSP AC-3,.+1 ;SAVE FLAGS
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-1
DFKCA2 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION, PART TWO SEQ 0184
6435 036503 255 10 0 00 036505 JFCL 10,.+2 ;TEST FOR OVERFLOW
6436 036504 013 11 0 00 000301 ER13 AC-3,301 ;AROV FLAG WAS NOT SET
6437 036505 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD=177400000000
6438 036506 003 14 0 00 000301 ER3 AC,301
6439 036507 321 16 0 00 036475 JUMPL AC+2,P300 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3
DFKCA2 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION, PART TWO SEQ 0185
6440 ;TEST FMP - EXP CAL
6441 ;AR=000400000000
6442 ;BR=000400000000
6443 ;CORR PROD=177400000000 AND UNDERFLOW
6444 ;ERR PROD=377400000000 AND UNDERFLOW
6445
6446 000013 AC=13
6447 SAVEAC (1,1)^
6448 036510 201 15 0 00 036510 MOVEI AC+2,.
6449 036511 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
6450 036512 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6451 036513 202 15 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6452
6453 036514 254 02 1 00 070640 P400: JRST 2,@[.+1] ;CLEAR AR FXU FLAG
6454 036515 205 11 0 00 177400 MOVSI AC-2,177400 ;SETUP FOR COMPARISON
6455 036516 205 13 0 00 000400 MOVSI AC,400 ;SETUP AC
6456 036517 205 12 0 00 000400 MOVSI AC-1,400 ;SETUP BR
6457 036520 160 13 0 00 000012 FMP AC,AC-1 ;C(AC) X C(E)
6458 036521 265 10 0 00 036522 JSP AC-3,.+1 ;STORE FLAGS AND PC
6459 036522 607 10 0 00 000100 TLNN AC-3,FXU ;EXAMINE FXU FLAG
6460 036523 013 10 0 00 000401 ER13 AC-3,401 ;FXU FLAG WAS NOT SET
6461 036524 312 13 0 00 000011 CAME AC,AC-2 ;TEST PROD=177400000000
6462 036525 003 13 0 00 000401 ER3 AC,401
6463 036526 255 10 0 00 036530 JOV .+2 ;EXAMINE AROV FLAG
6464 036527 013 10 0 00 000401 ER13 AC-3,401 ;AROV WAS NOT SET
6465 036530 255 01 0 00 036532 JFOV .+2 ;EXAMINE FOV FLAG
6466 036531 013 10 0 00 000401 ER13 AC-3,401 ;FOV WAS NOT SET
6467 036532 321 15 0 00 036514 JUMPL AC+2,P400 ;LOOP ON ERROR SWITCH
6468
6469 ;TEST FMP
6470 ;AR=000400000000
6471 ;BR=000400000000
6472 ;CORR PROD=177400000000 AND OVERFLOW
6473 ;ERR PROD=600400000000 AND OVERFLOW
6474
6475 000012 AC=12
6476 SAVEAC (1,1)^
6477 036533 201 14 0 00 036533 MOVEI AC+2,.
6478 036534 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
6479 036535 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6480 036536 202 14 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6481
6482 036537 255 10 0 00 036540 P500: JFCL 10,.+1 ;CLEAR AROV, EXEC NEXT INST
6483 036540 205 10 0 00 177400 MOVSI AC-2,177400 ;SETUP FOR COMPARISON
6484 036541 205 12 0 00 000400 MOVSI AC,400 ;SETUP AC
6485 036542 205 11 0 00 000400 MOVSI AC-1,400 ;SETUP BR
6486 036543 160 12 0 00 000011 FMP AC,AC-1 ;C(AC) X C(E)
6487 036544 265 07 0 00 036545 JSP AC-3,.+1 ;SAVE FLAGS
6488 036545 255 10 0 00 036547 JFCL 10,.+2 ;TEST AROV FLAG
6489 036546 013 07 0 00 000501 ER13 AC-3,501 ;NOT OVERFLOW
6490 036547 312 12 0 00 000010 CAME AC,AC-2 ;TEST PROD=177400000000
6491 036550 003 12 0 00 000501 ER3 AC,501
6492 036551 321 14 0 00 036537 JUMPL AC+2,P500 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4
DFKCA2 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION, PART TWO SEQ 0186
6493 ;TEST FMP
6494 ;AR=200400000000
6495 ;BR=000400000000
6496 ;CORR PROD=377400000000 AND OVERFLOW
6497 ;ERR PROD=1774000000000 AND NOT OVERFLOW
6498
6499 000005 AC=5
6500 SAVEAC (1,1)^
6501 036552 201 07 0 00 036552 MOVEI AC+2,.
6502 036553 202 07 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
6503 036554 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6504 036555 202 07 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6505
6506 036556 255 10 0 00 036557 P600: JFCL 10,.+1 ;CLR AROV,EXEC NEXT INST
6507 036557 205 03 0 00 377400 MOVSI AC-2,377400 ;SETUP FOR COMPARISON
6508 036560 205 05 0 00 200400 MOVSI AC,200400 ;SETUP AC
6509 036561 205 04 0 00 000400 MOVSI AC-1,400 ;SETUP BR
6510 036562 160 05 0 00 000004 FMP AC,AC-1 ;C(AC) X C(E)
6511 036563 265 02 0 00 036564 JSP AC-3,.+1 ;SAVE FLAGS
6512 036564 255 10 0 00 036566 JFCL 10,.+2 ;TEST AROV FLAG
6513 036565 013 02 0 00 000601 ER13 AC-3,601 ;AROV NOT SET
6514 036566 312 05 0 00 000003 CAME AC,AC-2 ;TEST PROD=377400000000
6515 036567 003 05 0 00 000601 ER3 AC,601
6516 036570 321 07 0 00 036556 JUMPL AC+2,P600 ;LOOP ON ERROR SWITCH
6517
6518 ;TEST FMP
6519 ;AR=000400000000
6520 ;BR=000400000000
6521 ;CORRECT PROD=177400000000 AND OVERFLOW
6522 ;FAILURE OF EITHER RESULTS IN AN
6523 ;ERROR PROD=144400000000 AND OVERFLOW
6524
6525 000011 AC=11
6526 SAVEAC (1,1)^
6527 036571 201 13 0 00 036571 MOVEI AC+2,.
6528 036572 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
6529 036573 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6530 036574 202 13 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6531
6532 036575 205 07 0 00 177400 P700: MOVSI AC-2,177400 ;SETUP FOR COMPARISON
6533 036576 205 11 0 00 000400 MOVSI AC,400 ;SETUP AC
6534 036577 205 10 0 00 000400 MOVSI AC-1,400 ;SETUP BR
6535 036600 160 11 0 00 000010 FMP AC,AC-1 ;C(AC) X C(E)
6536 036601 265 06 0 00 036602 JSP AC-3,.+1 ;SAVE FLAGS
6537 036602 255 10 0 00 036604 JOV .+2 ;EXAMINE AROV FLAG
6538 036603 013 06 0 00 000701 ER13 AC-3,701 ;AROV NOT SET
6539 036604 255 01 0 00 036606 JFOV .+2 ;EXAMINE FOV FLAG
6540 036605 013 06 0 00 000701 ER13 AC-3,701 ;FOV NOT SET
6541 036606 312 11 0 00 000007 CAME AC,AC-2 ;TEST PROD=144400000000
6542 036607 003 11 0 00 000701 ER3 AC,701
6543 036610 321 13 0 00 036575 JUMPL AC+2,P700 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5
DFKCA2 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION, PART TWO SEQ 0187
6544 ;TEST FMP
6545 ;AR=000400000000
6546 ;BR=000400000000
6547 ;FAILURE OF A BIT TO SET RESULTS
6548 ;IN A PROD=176.4, 173.4, 137.4,
6549 ;165.4,153.4
6550 ;CORRECT PROD=177400000000 AND OVERFLOW
6551 ;NOTE-FAILURE TO INH FP EXP ADD LEVEL
6552 ;(TEST NOT FP EXP ADD
6553 ;MAY LOOK LIKE BIT 8 FAILING TO SET
6554
6555 000010 AC=10
6556 SAVEAC (1,1)^
6557 036611 201 12 0 00 036611 MOVEI AC+2,.
6558 036612 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
6559 036613 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6560 036614 202 12 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6561
6562 001000 SN=1000
6563 201400 ZZ=201400
6564
6565 P1000: REPEAT ^D2, ;TEST SC8,6 SET
6566 <SN=SN+1
6567 ZZ=ZZ-3000
6568 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON
6569 MOVSI AC,400 ;SETUP AC
6570 MOVSI AC-1,400 ;SETUP BR
6571 FMP AC,AC-1 ;C(AC) X C(E)
6572 CAMN AC,AC-2 ;TEST PROD
6573 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
6574 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
6575 >
6576 001001 SN=SN+1
6577 176400 ZZ=ZZ-3000
6578 036615 205 06 0 00 176400 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON
6579 036616 205 10 0 00 000400 MOVSI AC,400 ;SETUP AC
6580 036617 205 07 0 00 000400 MOVSI AC-1,400 ;SETUP BR
6581 036620 160 10 0 00 000007 FMP AC,AC-1 ;C(AC) X C(E)
6582 036621 316 10 0 00 000006 CAMN AC,AC-2 ;TEST PROD
6583 036622 003 10 0 00 001001 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
6584 036623 321 12 0 00 036615 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
6585
6586 001002 SN=SN+1
6587 173400 ZZ=ZZ-3000
6588 036624 205 06 0 00 173400 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON
6589 036625 205 10 0 00 000400 MOVSI AC,400 ;SETUP AC
6590 036626 205 07 0 00 000400 MOVSI AC-1,400 ;SETUP BR
6591 036627 160 10 0 00 000007 FMP AC,AC-1 ;C(AC) X C(E)
6592 036630 316 10 0 00 000006 CAMN AC,AC-2 ;TEST PROD
6593 036631 003 10 0 00 001002 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
6594 036632 321 12 0 00 036624 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
6595
6596 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5-1
DFKCA2 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION, PART TWO SEQ 0188
6597 001100 SN=1100
6598 011400 ZZ=11400
6599
6600 P1100: REPEAT ^D2, ;TEST SC3, 2 SET
6601 <SN=SN+1
6602 ZZ=ZZ+26000
6603 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON
6604 MOVSI AC,400 ;SETUP AC
6605 MOVSI AC-1,400 ;SETUP BR
6606 FMP AC,AC-1 ;C(AC) X C(E)
6607 CAMN AC,AC-2 ;TEST PROD
6608 ER3 AC,SN ;BIT UNDER TEST FAILED
6609 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
6610 >
6611 001101 SN=SN+1
6612 037400 ZZ=ZZ+26000
6613 036633 205 06 0 00 037400 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON
6614 036634 205 10 0 00 000400 MOVSI AC,400 ;SETUP AC
6615 036635 205 07 0 00 000400 MOVSI AC-1,400 ;SETUP BR
6616 036636 160 10 0 00 000007 FMP AC,AC-1 ;C(AC) X C(E)
6617 036637 316 10 0 00 000006 CAMN AC,AC-2 ;TEST PROD
6618 036640 003 10 0 00 001101 ER3 AC,SN ;BIT UNDER TEST FAILED
6619 036641 321 12 0 00 036633 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
6620
6621 001102 SN=SN+1
6622 065400 ZZ=ZZ+26000
6623 036642 205 06 0 00 065400 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON
6624 036643 205 10 0 00 000400 MOVSI AC,400 ;SETUP AC
6625 036644 205 07 0 00 000400 MOVSI AC-1,400 ;SETUP BR
6626 036645 160 10 0 00 000007 FMP AC,AC-1 ;C(AC) X C(E)
6627 036646 316 10 0 00 000006 CAMN AC,AC-2 ;TEST PROD
6628 036647 003 10 0 00 001102 ER3 AC,SN ;BIT UNDER TEST FAILED
6629 036650 321 12 0 00 036642 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
6630
6631
6632 ;TEST SC1 SET
6633 036651 205 06 0 00 153400 P1200: MOVSI AC-2,153400 ;SETUP FOR COMPARISON
6634 036652 205 10 0 00 000400 MOVSI AC,400 ;SETUP AC
6635 036653 205 07 0 00 000400 MOVSI AC-1,400 ;SETUP BR
6636 036654 160 10 0 00 000007 FMP AC,AC-1 ;C(AC) + C(E)
6637 036655 316 10 0 00 000006 CAMN AC,AC-2 ;TEST PROD
6638 036656 003 10 0 00 001201 ER3 AC,1201 ;SC1 FAILED TO SET
6639 036657 321 12 0 00 036651 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6
DFKCA2 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION, PART TWO SEQ 0189
6640 ;TEST FMP
6641 ;AR=000400000000
6642 ;BR=000400000000
6643 ;CORR PROD=177400000000 AND OVERFLOW
6644 ;FAILURE RESULTS IN LOSS OF MULTIPLICAND
6645 ;AND AN NR ALL ZERO COND
6646
6647 000007 AC=7
6648 SAVEAC (1,1)^
6649 036660 201 11 0 00 036660 MOVEI AC+2,.
6650 036661 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
6651 036662 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6652 036663 202 11 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6653
6654 036664 205 07 0 00 000400 P1300: MOVSI AC,400 ;SETUP AC
6655 036665 205 06 0 00 000400 MOVSI AC-1,400 ;SETUP BR
6656 036666 160 07 0 00 000006 FMP AC,AC-1 ;C(AC) X C(E)
6657 036667 336 00 0 00 000007 SKIPN AC ;TEST PROD=0
6658 036670 003 07 0 00 001301 ER3 AC,1301
6659 036671 321 11 0 00 036664 JUMPL AC+2,P1300 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7
DFKCA2 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION, PART TWO SEQ 0190
6660 ;TEST FMP - EXP CAL
6661 ;AR=200400000000
6662 ;BR=000400000000
6663 ;CORR PROD=377400000000 AND OVERFLOW
6664 ;ERR PROD=177400000000 AND OVERFLOW
6665
6666 000006 AC=6
6667 SAVEAC (1,1)^
6668 036672 201 10 0 00 036672 MOVEI AC+2,.
6669 036673 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
6670 036674 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6671 036675 202 10 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6672
6673 036676 255 10 0 00 036677 P1400: JFCL 10,.+1 ;CLEAR AROV, EXEC NEXT INST
6674 036677 205 04 0 00 177400 MOVSI AC-2,177400 ;SETUP FOR COMPARISON
6675 036700 205 06 0 00 200400 MOVSI AC,200400 ;SETUP AC
6676 036701 205 05 0 00 000400 MOVSI AC-1,400 ;SETUP BR
6677 036702 160 06 0 00 000005 FMP AC,AC-1 ;C(AC) X C(E)
6678 036703 265 03 0 00 036704 JSP AC-3,.+1 ;SAVE FLAGS
6679 036704 255 10 0 00 036706 JFCL 10,.+2 ;TEST AROV FLAG
6680 036705 013 03 0 00 001401 ER13 AC-3,1401 ;NOT OVERFLOW
6681 036706 316 06 0 00 000004 CAMN AC,AC-2 ;TEST PROD=177400000000
6682 036707 003 06 0 00 001401 ER3 AC,1401
6683 036710 321 10 0 00 036676 JUMPL AC+2,P1400 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8
DFKCA2 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION, PART TWO SEQ 0191
6684 ;TEST FMP - EXP CAL
6685 ;TEST ABILITY TO SET INDIVIDUAL BITS
6686 ;OF FE AND SC
6687 ;AR=177400000000
6688 ;BR=000400000000
6689 ;CORR PROD=376400000000 AND UNDERFLOW
6690 ;ERR PRODS=375.4, 374.4, 372.4,
6691 ;366.4, 356.4, 336.4, 276.4, 176.4, 376.4 (CORR PROD, NOT UNDERFLOW)
6692
6693 000014 AC=14
6694 SAVEAC (1,1)^
6695 036711 201 16 0 00 036711 MOVEI AC+2,.
6696 036712 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
6697 036713 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6698 036714 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6699
6700 001500 SN=1500
6701 376400 ZZ=376400
6702
6703 P1500: REPEAT ^D2, ;TEST BITS 8, 7 SET
6704 <SN=SN+1
6705 ZZ=ZZ-1000
6706 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON
6707 MOVSI AC,177400 ;SETUP AC
6708 MOVSI AC-1,400 ;SETUP BR
6709 FMP AC,AC-1 ;C(AC) X C(E)
6710 CAMN AC,AC-2 ;TEST PROD
6711 ER3 AC,SN ;BIT UNDER TEST FAILED
6712 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
6713 >
6714 001501 SN=SN+1
6715 375400 ZZ=ZZ-1000
6716 036715 205 12 0 00 375400 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON
6717 036716 205 14 0 00 177400 MOVSI AC,177400 ;SETUP AC
6718 036717 205 13 0 00 000400 MOVSI AC-1,400 ;SETUP BR
6719 036720 160 14 0 00 000013 FMP AC,AC-1 ;C(AC) X C(E)
6720 036721 316 14 0 00 000012 CAMN AC,AC-2 ;TEST PROD
6721 036722 003 14 0 00 001501 ER3 AC,SN ;BIT UNDER TEST FAILED
6722 036723 321 16 0 00 036715 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
6723
6724 001502 SN=SN+1
6725 374400 ZZ=ZZ-1000
6726 036724 205 12 0 00 374400 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON
6727 036725 205 14 0 00 177400 MOVSI AC,177400 ;SETUP AC
6728 036726 205 13 0 00 000400 MOVSI AC-1,400 ;SETUP BR
6729 036727 160 14 0 00 000013 FMP AC,AC-1 ;C(AC) X C(E)
6730 036730 316 14 0 00 000012 CAMN AC,AC-2 ;TEST PROD
6731 036731 003 14 0 00 001502 ER3 AC,SN ;BIT UNDER TEST FAILED
6732 036732 321 16 0 00 036724 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
6733
6734 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8-1
DFKCA2 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION, PART TWO SEQ 0192
6735 ;TEST BIT 6 SET
6736 036733 205 12 0 00 372400 P1600: MOVSI AC-2,372400 ;SETUP FOR COMPARISON
6737 036734 205 14 0 00 177400 MOVSI AC,177400 ;SETUP AC
6738 036735 205 13 0 00 000400 MOVSI AC-1,400 ;SETUP BR
6739 036736 160 14 0 00 000013 FMP AC,AC-1 ;C(AC) X C(E)
6740 036737 316 14 0 00 000012 CAMN AC,AC-2 ;TEST PROD
6741 036740 003 14 0 00 001601 ER3 AC,1601 ;FE BIT 6 FAILED TO SET
6742 036741 321 16 0 00 036733 JUMPL AC+2,P1600 ;LOOP ON ERROR SWITCH
6743
6744 001700 SN=1700
6745 367400 ZZ=367400
6746
6747 P1700: REPEAT ^D2, ;TEST BITS 5-4 SET
6748 <SN=SN+1
6749 ZZ=ZZ-1000
6750 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON
6751 MOVSI AC,177400 ;SETUP AC
6752 MOVSI AC-1,400 ;SETUP BR
6753 FMP AC,AC-1 ;C(AC) X C(E)
6754 CAMN AC,AC-2 ;TEST PROD
6755 ER3 AC,SN ;BIT UNDER TEST FAILED
6756 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
6757 >
6758 001701 SN=SN+1
6759 366400 ZZ=ZZ-1000
6760 036742 205 12 0 00 366400 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON
6761 036743 205 14 0 00 177400 MOVSI AC,177400 ;SETUP AC
6762 036744 205 13 0 00 000400 MOVSI AC-1,400 ;SETUP BR
6763 036745 160 14 0 00 000013 FMP AC,AC-1 ;C(AC) X C(E)
6764 036746 316 14 0 00 000012 CAMN AC,AC-2 ;TEST PROD
6765 036747 003 14 0 00 001701 ER3 AC,SN ;BIT UNDER TEST FAILED
6766 036750 321 16 0 00 036742 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
6767
6768 001702 SN=SN+1
6769 365400 ZZ=ZZ-1000
6770 036751 205 12 0 00 365400 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON
6771 036752 205 14 0 00 177400 MOVSI AC,177400 ;SETUP AC
6772 036753 205 13 0 00 000400 MOVSI AC-1,400 ;SETUP BR
6773 036754 160 14 0 00 000013 FMP AC,AC-1 ;C(AC) X C(E)
6774 036755 316 14 0 00 000012 CAMN AC,AC-2 ;TEST PROD
6775 036756 003 14 0 00 001702 ER3 AC,SN ;BIT UNDER TEST FAILED
6776 036757 321 16 0 00 036751 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
6777
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 9
DFKCA2 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION, PART TWO SEQ 0193
6778 002000 SN=2000
6779 376400 ZZ=376400
6780
6781 P2000: REPEAT ^D2, ;TEST BITS 3,2 SET
6782 <SN=SN+1
6783 ZZ=ZZ-40000
6784 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON
6785 MOVSI AC,177400 ;SETUP AC
6786 MOVSI AC-1,400 ;SETUP BR
6787 FMP AC,AC-1 ;C(AC) X C(E)
6788 CAMN AC,AC-2 ;TEST PROD
6789 ER3 AC,SN ;BIT UNDER TEST FAILED
6790 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
6791 >
6792 002001 SN=SN+1
6793 336400 ZZ=ZZ-40000
6794 036760 205 12 0 00 336400 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON
6795 036761 205 14 0 00 177400 MOVSI AC,177400 ;SETUP AC
6796 036762 205 13 0 00 000400 MOVSI AC-1,400 ;SETUP BR
6797 036763 160 14 0 00 000013 FMP AC,AC-1 ;C(AC) X C(E)
6798 036764 316 14 0 00 000012 CAMN AC,AC-2 ;TEST PROD
6799 036765 003 14 0 00 002001 ER3 AC,SN ;BIT UNDER TEST FAILED
6800 036766 321 16 0 00 036760 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
6801
6802 002002 SN=SN+1
6803 276400 ZZ=ZZ-40000
6804 036767 205 12 0 00 276400 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON
6805 036770 205 14 0 00 177400 MOVSI AC,177400 ;SETUP AC
6806 036771 205 13 0 00 000400 MOVSI AC-1,400 ;SETUP BR
6807 036772 160 14 0 00 000013 FMP AC,AC-1 ;C(AC) X C(E)
6808 036773 316 14 0 00 000012 CAMN AC,AC-2 ;TEST PROD
6809 036774 003 14 0 00 002002 ER3 AC,SN ;BIT UNDER TEST FAILED
6810 036775 321 16 0 00 036767 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
6811
6812
6813 ;TEST BIT 1 SET
6814 036776 205 12 0 00 176400 P2100: MOVSI AC-2,176400 ;SETUP FOR COMPARISON
6815 036777 205 14 0 00 177400 MOVSI AC,177400 ;SETUP AC
6816 037000 205 13 0 00 000400 MOVSI AC-1,400 ;SETUP BR
6817 037001 160 14 0 00 000013 FMP AC,AC-1 ;C(AC) X C(E)
6818 037002 316 14 0 00 000012 CAMN AC,AC-2 ;TEST PROD
6819 037003 003 14 0 00 002101 ER3 AC,2101 ;BIT UNDER TEST FAILED
6820 037004 321 16 0 00 036776 JUMPL AC+2,P2100 ;LOOP ON ERROR SWITCH
6821 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 9-1
DFKCA2 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION, PART TWO SEQ 0194
6822
6823 ;TEST BIT 0 SET
6824 037005 254 02 1 00 070641 P2200: JRST 2,@[.+1] ;CLEAR ARFXU FLAG
6825 037006 205 12 0 00 376400 MOVSI AC-2,376400 ;SETUP FOR COMPARISON
6826 037007 205 14 0 00 177400 MOVSI AC,177400 ;SETUP AC
6827 037010 205 13 0 00 000400 MOVSI AC-1,400 ;SETUP BR
6828 037011 160 14 0 00 000013 FMP AC,AC-1 ;C(AC) X C(E)
6829 037012 265 11 0 00 037013 JSP AC-3,.+1 ;STORE FLAGS AND PC
6830 037013 607 11 0 00 000100 TLNN AC-3,FXU ;EXAMINE FXU FLAG
6831 037014 013 11 0 00 002201 ER13 AC-3,2201 ;FXU NOT SET
6832 037015 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD=376400000000
6833 037016 003 14 0 00 002201 ER3 AC,2201 ;BIT 0 FAILED TO SET
6834 037017 254 02 0 11 000005 JRST 2,5(AC-3) ;CLEAR AROV, ARFOV FLAGS
6835 037020 321 16 0 00 037005 JUMPL AC+2,P2200 ;LOOP ON ERROR SWITCH
6836
6837 ;TEST FMP - EXP CAL
6838 ;AR=377400000000
6839 ;BR=000400000000
6840 ;CORR PROD=176400000000
6841 ;ERR PROD=142400000000
6842
6843 000014 AC=14
6844 SAVEAC (1,1)^
6845 037021 201 16 0 00 037021 MOVEI AC+2,.
6846 037022 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
6847 037023 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6848 037024 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6849
6850 037025 205 12 0 00 142400 P2300: MOVSI AC-2,142400 ;SETUP FOR COMPARISON
6851 037026 205 14 0 00 377400 MOVSI AC,377400 ;SETUP AC
6852 037027 205 13 0 00 000400 MOVSI AC-1,400 ;SETUP BR
6853 037030 160 14 0 00 000013 FMP AC,AC-1 ;C(AC) X C(E)
6854 037031 316 14 0 00 000012 CAMN AC,AC-2 ;TEST PROD=142400000000
6855 037032 003 14 0 00 002301 ER3 AC,2301
6856 037033 321 16 0 00 037025 JUMPL AC+2,P2300 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 10
DFKCA2 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION, PART TWO SEQ 0195
6857 ;TEST FMP - EXP CAL
6858 ;TEST ABILITY TO CLEAR SC BITS 7, 5, 4
6859 ;AR=377400000000
6860 ;BR=000400000000
6861 ;CORR PROD=176400000000
6862 ;ERR PRODS=112.4, 120.4, 130.4
6863
6864 000013 AC=13
6865 SAVEAC (1,1)^
6866 037034 201 15 0 00 037034 MOVEI AC+2,.
6867 037035 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
6868 037036 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6869 037037 202 15 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6870
6871 ;TEST SC7 CLEARING
6872 037040 205 11 0 00 112400 P2400: MOVSI AC-2,112400 ;SETUP FOR COMPARISON
6873 037041 205 13 0 00 377400 MOVSI AC,377400 ;SETUP AC
6874 037042 205 12 0 00 000400 MOVSI AC-1,400 ;SETUP BR
6875 037043 160 13 0 00 000012 FMP AC,AC-1 ;C(AC) X C(E)
6876 037044 316 13 0 00 000011 CAMN AC,AC-2 ;TEST PROD=112400000000
6877 037045 003 13 0 00 002401 ER3 AC,2401 ;SC7 FAILED TO CLEAR
6878 037046 321 15 0 00 037040 JUMPL AC+2,P2400 ;LOOP ON ERROR SWITCH
6879
6880 ;TEST SC5 CLEARING
6881 037047 205 11 0 00 120400 P2500: MOVSI AC-2,120400 ;SETUP FOR COMPARISON
6882 037050 205 13 0 00 377400 MOVSI AC,377400 ;SETUP AC
6883 037051 205 12 0 00 000400 MOVSI AC-1,400 ;SETUP BR
6884 037052 160 13 0 00 000012 FMP AC,AC-1 ;C(AC) X C(E)
6885 037053 316 13 0 00 000011 CAMN AC,AC-2 ;TEST PROD=120400000000
6886 037054 003 13 0 00 002501 ER3 AC,2501 ;SC5 FAILED TO CLEAR
6887 037055 321 15 0 00 037047 JUMPL AC+2,P2500 ;LOOP ON ERROR SWITCH
6888 ;TEST SC4 CLEARING
6889 037056 205 11 0 00 130400 P2600: MOVSI AC-2,130400 ;SETUP FOR COMPARISON
6890 037057 205 13 0 00 377400 MOVSI AC,377400 ;SETUP AC
6891 037060 205 12 0 00 000400 MOVSI AC-1,400 ;SETUP BR
6892 037061 160 13 0 00 000012 FMP AC,AC-1 ;C(AC) X C(E)
6893 037062 316 13 0 00 000011 CAMN AC,AC-2 ;TEST PROD=130400000000
6894 037063 003 13 0 00 002601 ER3 AC,2601 ;SC4 FAILED TO CLEAR
6895 037064 321 15 0 00 037056 JUMPL AC+2,P2600 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 11
DFKCA2 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION, PART TWO SEQ 0196
6896 ;TEST FMP - EXP CAL
6897 ;AR=377400000000
6898 ;BR=000400000000
6899 ;CORR PROD=176400000000
6900 ;ERR PROD=601400000000
6901
6902 000012 AC=12
6903 SAVEAC (1,1)^
6904 037065 201 14 0 00 037065 MOVEI AC+2,.
6905 037066 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
6906 037067 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6907 037070 202 14 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6908
6909 037071 205 10 0 00 601400 P2700: MOVSI AC-2,601400 ;SETUP FOR COMPARISON
6910 037072 205 12 0 00 377400 MOVSI AC,377400 ;SETUP AC
6911 037073 205 11 0 00 000400 MOVSI AC-1,400 ;SETUP BR
6912 037074 160 12 0 00 000011 FMP AC,AC-1 ;C(AC) X C(E)
6913 037075 316 12 0 00 000010 CAMN AC,AC-2 ;TEST PROD=601400000000
6914 037076 003 12 0 00 002701 ER3 AC,2701
6915 037077 321 14 0 00 037071 JUMPL AC+2,P2700 ;LOOP ON ERROR SWITCH
6916
6917 ;TEST FMP - EXP CAL
6918 ;AR=577400000000
6919 ;BR=000400000000
6920 ;CORR PROD=377400000000 AND UNDERFLOW
6921 ;ERR PROD=376400000000
6922
6923 000011 AC=11
6924 SAVEAC (1,1)^
6925 037100 201 13 0 00 037100 MOVEI AC+2,.
6926 037101 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
6927 037102 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6928 037103 202 13 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6929
6930 037104 205 07 0 00 376400 P3000: MOVSI AC-2,376400 ;SETUP FOR COMPARISON
6931 037105 205 11 0 00 577400 MOVSI AC,577400 ;SETUP AC
6932 037106 205 10 0 00 000400 MOVSI AC-1,400 ;SETUP BR
6933 037107 160 11 0 00 000010 FMP AC,AC-1 ;C(AC) X C(E)
6934 037110 316 11 0 00 000007 CAMN AC,AC-2 ;TEST PROD=376400000000
6935 037111 003 11 0 00 003001 ER3 AC,3001
6936 037112 321 13 0 00 037104 JUMPL AC+2,P3000 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 12
DFKCA2 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION, PART TWO SEQ 0197
6937 ;TEST FMP - EXP CAL
6938 ;AR=000400000000
6939 ;BR=200400000000
6940 ;CORR PROD=377400000000 AND UNDERFLOW
6941 ;ERR PROD=177400000000 AND OVERFLOW
6942
6943 000010 AC=10
6944 SAVEAC (1,1)^
6945 037113 201 12 0 00 037113 MOVEI AC+2,.
6946 037114 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
6947 037115 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6948 037116 202 12 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6949
6950 037117 255 10 0 00 037120 P3100: JFCL 10,.+1 ;CLEAR AROV, EXEC NEXT INST
6951 037120 205 06 0 00 177400 MOVSI AC-2,177400 ;SETUP FOR COMPARISON
6952 037121 205 10 0 00 000400 MOVSI AC,400 ;SETUP AC
6953 037122 205 07 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
6954 037123 160 10 0 00 000007 FMP AC,AC-1 ;C(AC) X C(E)
6955 037124 265 05 0 00 037125 JSP AC-3,.+1 ;READ FLAGS
6956 037125 255 10 0 00 037127 JFCL 10,.+2 ;TEST FOR OVERFLOW
6957 037126 013 05 0 00 003101 ER13 AC-3,3101 ;AROV NOT SET
6958 037127 607 05 0 00 000100 TLNN AC-3,FXU ;EXAMINE FXU FLAG
6959 037130 013 05 0 00 003101 ER13 AC-3,3101 ;FXU NOT SET
6960 037131 316 10 0 00 000006 CAMN AC,AC-2 ;TEST PROD=177400000000
6961 037132 003 10 0 00 003101 ER3 AC,3101
6962 037133 321 12 0 00 037117 JUMPL AC+2,P3100 ;LOOP ON ERROR SWITCH
6963
6964 ;TEST FMP - EXP CAL
6965 ;AR=000400000000
6966 ;BR=200400000000
6967 ;CORR PROD=377400000000 AND UNDERFLOW
6968 ;ERR PROD=376400000000 AND OVER/UNDERFLOW NOT
6969
6970 000007 AC=7
6971 SAVEAC (1,1)^
6972 037134 201 11 0 00 037134 MOVEI AC+2,.
6973 037135 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
6974 037136 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6975 037137 202 11 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6976
6977 037140 205 05 0 00 376400 P3200: MOVSI AC-2,376400 ;SETUP FOR COMPARISON
6978 037141 205 07 0 00 000400 MOVSI AC,400 ;SETUP AC
6979 037142 205 06 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
6980 037143 160 07 0 00 000006 FMP AC,AC-1 ;C(AC) X C(E)
6981 037144 316 07 0 00 000005 CAMN AC,AC-2 ;TEST PROD=376400000000
6982 037145 003 07 0 00 003201 ER3 AC,3201 ;FP EXP ADD ASSERTED
6983 037146 321 11 0 00 037140 JUMPL AC+2,P3200 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 13
DFKCA2 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION, PART TWO SEQ 0198
6984 ;TEST FMP - EXP CAL
6985 ;AR=200400000000 (+1/2)
6986 ;BR=577400000000 (-1/2)
6987 ;CORR PROD=600400000000 (-1/4)
6988 ;ERR PROD=401400000000
6989
6990 000006 AC=6
6991 SAVEAC (1,1)^
6992 037147 201 10 0 00 037147 MOVEI AC+2,.
6993 037150 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
6994 037151 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6995 037152 202 10 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6996
6997 037153 205 04 0 00 401400 P3300: MOVSI AC-2,401400 ;SETUP FOR COMPARISON
6998 037154 205 06 0 00 200400 MOVSI AC,200400 ;SETUP AC
6999 037155 205 05 0 00 577400 MOVSI AC-1,577400 ;SETUP BR
7000 037156 160 06 0 00 000005 FMP AC,AC-1 ;C(AC) X C(E)
7001 037157 316 06 0 00 000004 CAMN AC,AC-2 ;TEST PROD=401400000000
7002 037160 003 06 0 00 003301 ER3 AC,3301 ;FP EXP ADD FAILED
7003 037161 321 10 0 00 037153 JUMPL AC+2,P3300 ;LOOP ON ERROR SWITCH
7004
7005 ;TEST FMP - EXP CAL
7006 ;AR=200400000000
7007 ;BR=200400000000
7008 ;CORR PROD=177400000000
7009 ;ERR PROD=377400000000 AND UNDERFLOW
7010
7011 000005 AC=5
7012 SAVEAC (1,1)^
7013 037162 201 07 0 00 037162 MOVEI AC+2,.
7014 037163 202 07 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
7015 037164 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7016 037165 202 07 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7017
7018 037166 254 02 1 00 070642 P3400: JRST 2,@[.+1] ;CLEAR AR FXU, EXEC NEXT INST
7019 037167 205 03 0 00 377400 MOVSI AC-2,377400 ;SETUP FOR COMPARISON
7020 037170 205 05 0 00 200400 MOVSI AC,200400 ;SETUP AC
7021 037171 205 04 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
7022 037172 160 05 0 00 000004 FMP AC,AC-1 ;C(AC) X C(E)
7023 037173 265 02 0 00 037174 JSP AC-3,.+1 ;STORE FLAGS, PC
7024 037174 603 02 0 00 000100 TLNE AC-3,FXU ;EXAMINE FXU FLAG
7025 037175 013 02 0 00 003401 ER13 AC-3,3401 ;FXU IS SET
7026 037176 316 05 0 00 000003 CAMN AC,AC-2 ;TEST PROD=377400000000
7027 037177 003 05 0 00 003401 ER3 AC,3401
7028 037200 254 02 0 02 000005 JRST 2,5(AC-3) ;CLEAR AROV, ARFOV FLAGS
7029 037201 321 07 0 00 037166 JUMPL AC+2,P3400 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 14
DFKCA2 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION, PART TWO SEQ 0199
7030
7031 ;TEST FMP - EXP CAL
7032 ;AR=200400000000 (+1/2)
7033 ;BR=205400000000 (+20)
7034 ;CORR PROD=204400000000 (+10)
7035 ;ERR PROD=372400000000 AND OVERFLOW
7036
7037 000014 AC=14
7038 SAVEAC (1,1)^
7039 037202 201 16 0 00 037202 MOVEI AC+2,.
7040 037203 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
7041 037204 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7042 037205 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7043
7044 037206 255 10 0 00 037207 P3500: JFCL 10,.+1 ;CLEAR AROV, EXEC NEXT INST
7045 037207 205 12 0 00 372400 MOVSI AC-2,372400 ;SETUP FOR COMPARISON
7046 037210 205 14 0 00 200400 MOVSI AC,200400 ;SETUP AC
7047 037211 205 13 0 00 205400 MOVSI AC-1,205400 ;SETUP BR
7048 037212 160 14 0 00 000013 FMP AC,AC-1 ;C(AC) X C(E)
7049 037213 265 11 0 00 037214 JSP AC-3,.+1 ;SAVE FLAGS
7050 037214 255 10 0 00 037216 JFCL 10,.+2 ;TEST AROV
7051 037215 254 00 0 00 037217 JRST .+2
7052 037216 013 11 0 00 003501 ER13 AC-3,3501 ;AROV SET
7053 037217 316 14 0 00 000012 CAMN AC,AC-2 ;TEST PROD=372400000000
7054 037220 003 14 0 00 003501 ER3 AC,3501
7055 037221 321 16 0 00 037206 JUMPL AC+2,P3500 ;LOOP ON ERROR SWITCH
7056
7057 ;TEST FMP
7058 ;AR=0
7059 ;BR=577400000000
7060 ;CORR PROD=0 (NR ALL ZERO COND)
7061 ;ERR PROD=312400000000 AND UNDERFLOW
7062
7063 000014 AC=14
7064 SAVEAC (1,1)^
7065 037222 201 16 0 00 037222 MOVEI AC+2,.
7066 037223 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
7067 037224 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7068 037225 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7069
7070 037226 205 12 0 00 312400 P3600: MOVSI AC-2,312400 ;SETUP FOR COMPARISON
7071 037227 400 14 0 00 000000 SETZ AC, ;SETUP AC
7072 037230 205 13 0 00 577400 MOVSI AC-1,577400 ;SETUP BR
7073 037231 160 14 0 00 000013 FMP AC,AC-1 ;C(AC) X C(E)
7074 037232 316 14 0 00 000012 CAMN AC,AC-2 ;TEST PROD=312400000000
7075 037233 003 14 0 00 003601 ER3 AC,3601
7076 037234 321 16 0 00 037226 JUMPL AC+2,P3600 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 15
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0200
7077 SUBTTL PART IIIB-GEN TEST-FMP,FDV
7078
7079 ;PART IIIB-GENTEST -FMP, FDV
7080 ;TEST FMP-EXPCAL
7081 ;NR NORMAL
7082 ;TWO POSITIVES, INCREASING BR EXPONENT
7083 ;AR=200400000000
7084 ;BR=201.4,202.4,204.4,210.4,220.4
7085 ;240.4,300.4
7086 ;PRODS=200.4,201.4,203.4,207.4,217.4
7087 ;237.4,277.4
7088
7089 000014 AC=14
7090 SAVEAC (1,1)^
7091 037235 201 16 0 00 037235 MOVEI AC+2,.
7092 037236 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
7093 037237 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7094 037240 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7095 003700 SN=3700
7096 000400 ZZ=400
7097
7098 P3700: REPEAT ^D7, ;TEST FMP
7099 <SN=SN+1
7100 ZZ=ZZ+ZZ
7101 XX=ZZ-1000
7102 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
7103 MOVSI AC,200400 ;SETUP AC
7104 MOVSI AC-1,200400+ZZ ;SETUP BR
7105 FMP AC,AC-1 ;C(AC)XC(E)
7106 CAME AC,AC-2 ;TEST PROD
7107 ER3 AC,SN ;FMP FAILED
7108 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7109 >
7110 003701 SN=SN+1
7111 001000 ZZ=ZZ+ZZ
7112 000000 XX=ZZ-1000
7113 037241 205 12 0 00 200400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
7114 037242 205 14 0 00 200400 MOVSI AC,200400 ;SETUP AC
7115 037243 205 13 0 00 201400 MOVSI AC-1,200400+ZZ ;SETUP BR
7116 037244 160 14 0 00 000013 FMP AC,AC-1 ;C(AC)XC(E)
7117 037245 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
7118 037246 003 14 0 00 003701 ER3 AC,SN ;FMP FAILED
7119 037247 321 16 0 00 037241 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7120
7121 003702 SN=SN+1
7122 002000 ZZ=ZZ+ZZ
7123 001000 XX=ZZ-1000
7124 037250 205 12 0 00 201400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
7125 037251 205 14 0 00 200400 MOVSI AC,200400 ;SETUP AC
7126 037252 205 13 0 00 202400 MOVSI AC-1,200400+ZZ ;SETUP BR
7127 037253 160 14 0 00 000013 FMP AC,AC-1 ;C(AC)XC(E)
7128 037254 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
7129 037255 003 14 0 00 003702 ER3 AC,SN ;FMP FAILED
7130 037256 321 16 0 00 037250 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7131
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 15-1
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0201
7132 003703 SN=SN+1
7133 004000 ZZ=ZZ+ZZ
7134 003000 XX=ZZ-1000
7135 037257 205 12 0 00 203400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
7136 037260 205 14 0 00 200400 MOVSI AC,200400 ;SETUP AC
7137 037261 205 13 0 00 204400 MOVSI AC-1,200400+ZZ ;SETUP BR
7138 037262 160 14 0 00 000013 FMP AC,AC-1 ;C(AC)XC(E)
7139 037263 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
7140 037264 003 14 0 00 003703 ER3 AC,SN ;FMP FAILED
7141 037265 321 16 0 00 037257 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7142
7143 003704 SN=SN+1
7144 010000 ZZ=ZZ+ZZ
7145 007000 XX=ZZ-1000
7146 037266 205 12 0 00 207400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
7147 037267 205 14 0 00 200400 MOVSI AC,200400 ;SETUP AC
7148 037270 205 13 0 00 210400 MOVSI AC-1,200400+ZZ ;SETUP BR
7149 037271 160 14 0 00 000013 FMP AC,AC-1 ;C(AC)XC(E)
7150 037272 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
7151 037273 003 14 0 00 003704 ER3 AC,SN ;FMP FAILED
7152 037274 321 16 0 00 037266 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7153
7154 003705 SN=SN+1
7155 020000 ZZ=ZZ+ZZ
7156 017000 XX=ZZ-1000
7157 037275 205 12 0 00 217400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
7158 037276 205 14 0 00 200400 MOVSI AC,200400 ;SETUP AC
7159 037277 205 13 0 00 220400 MOVSI AC-1,200400+ZZ ;SETUP BR
7160 037300 160 14 0 00 000013 FMP AC,AC-1 ;C(AC)XC(E)
7161 037301 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
7162 037302 003 14 0 00 003705 ER3 AC,SN ;FMP FAILED
7163 037303 321 16 0 00 037275 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7164
7165 003706 SN=SN+1
7166 040000 ZZ=ZZ+ZZ
7167 037000 XX=ZZ-1000
7168 037304 205 12 0 00 237400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
7169 037305 205 14 0 00 200400 MOVSI AC,200400 ;SETUP AC
7170 037306 205 13 0 00 240400 MOVSI AC-1,200400+ZZ ;SETUP BR
7171 037307 160 14 0 00 000013 FMP AC,AC-1 ;C(AC)XC(E)
7172 037310 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
7173 037311 003 14 0 00 003706 ER3 AC,SN ;FMP FAILED
7174 037312 321 16 0 00 037304 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7175
7176 003707 SN=SN+1
7177 100000 ZZ=ZZ+ZZ
7178 077000 XX=ZZ-1000
7179 037313 205 12 0 00 277400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
7180 037314 205 14 0 00 200400 MOVSI AC,200400 ;SETUP AC
7181 037315 205 13 0 00 300400 MOVSI AC-1,200400+ZZ ;SETUP BR
7182 037316 160 14 0 00 000013 FMP AC,AC-1 ;C(AC)XC(E)
7183 037317 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
7184 037320 003 14 0 00 003707 ER3 AC,SN ;FMP FAILED
7185 037321 321 16 0 00 037313 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7186
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 16
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0202
7187 ;TEST FMP-EXP CAL
7188 ;NR NORMAL
7189 ;TWO POSITIVES, INCREASING AR EXPONENT
7190 ;AR=201.4,202.4,204.4,210.4,220.4,
7191 ;240.4,300.4
7192 ;BR=200400000000
7193 ;PRODS=200.4 201.4,203.4,207.4,217.4,237.4,277.4
7194
7195 000014 AC=14
7196 SAVEAC (1,1)^
7197 037322 201 16 0 00 037322 MOVEI AC+2,.
7198 037323 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
7199 037324 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7200 037325 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7201 004000 SN=4000
7202 000400 ZZ=400
7203
7204 P4000: REPEAT ^D7, ;TEST FMP
7205 <SN=SN+1
7206 ZZ=ZZ+ZZ
7207 XX=ZZ-1000
7208 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
7209 MOVSI AC,200400+ZZ ;SETUP AC
7210 MOVSI AC-1,200400 ;SETUP BR
7211 FMP AC,AC-1 ;C(AC)XC(E)
7212 CAME AC,AC-2 ;TEST PROD
7213 ER3 AC,SN ;FMP FAILED
7214 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7215 >
7216 004001 SN=SN+1
7217 001000 ZZ=ZZ+ZZ
7218 000000 XX=ZZ-1000
7219 037326 205 12 0 00 200400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
7220 037327 205 14 0 00 201400 MOVSI AC,200400+ZZ ;SETUP AC
7221 037330 205 13 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
7222 037331 160 14 0 00 000013 FMP AC,AC-1 ;C(AC)XC(E)
7223 037332 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
7224 037333 003 14 0 00 004001 ER3 AC,SN ;FMP FAILED
7225 037334 321 16 0 00 037326 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7226
7227 004002 SN=SN+1
7228 002000 ZZ=ZZ+ZZ
7229 001000 XX=ZZ-1000
7230 037335 205 12 0 00 201400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
7231 037336 205 14 0 00 202400 MOVSI AC,200400+ZZ ;SETUP AC
7232 037337 205 13 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
7233 037340 160 14 0 00 000013 FMP AC,AC-1 ;C(AC)XC(E)
7234 037341 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
7235 037342 003 14 0 00 004002 ER3 AC,SN ;FMP FAILED
7236 037343 321 16 0 00 037335 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7237
7238 004003 SN=SN+1
7239 004000 ZZ=ZZ+ZZ
7240 003000 XX=ZZ-1000
7241 037344 205 12 0 00 203400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 16-1
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0203
7242 037345 205 14 0 00 204400 MOVSI AC,200400+ZZ ;SETUP AC
7243 037346 205 13 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
7244 037347 160 14 0 00 000013 FMP AC,AC-1 ;C(AC)XC(E)
7245 037350 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
7246 037351 003 14 0 00 004003 ER3 AC,SN ;FMP FAILED
7247 037352 321 16 0 00 037344 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7248
7249 004004 SN=SN+1
7250 010000 ZZ=ZZ+ZZ
7251 007000 XX=ZZ-1000
7252 037353 205 12 0 00 207400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
7253 037354 205 14 0 00 210400 MOVSI AC,200400+ZZ ;SETUP AC
7254 037355 205 13 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
7255 037356 160 14 0 00 000013 FMP AC,AC-1 ;C(AC)XC(E)
7256 037357 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
7257 037360 003 14 0 00 004004 ER3 AC,SN ;FMP FAILED
7258 037361 321 16 0 00 037353 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7259
7260 004005 SN=SN+1
7261 020000 ZZ=ZZ+ZZ
7262 017000 XX=ZZ-1000
7263 037362 205 12 0 00 217400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
7264 037363 205 14 0 00 220400 MOVSI AC,200400+ZZ ;SETUP AC
7265 037364 205 13 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
7266 037365 160 14 0 00 000013 FMP AC,AC-1 ;C(AC)XC(E)
7267 037366 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
7268 037367 003 14 0 00 004005 ER3 AC,SN ;FMP FAILED
7269 037370 321 16 0 00 037362 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7270
7271 004006 SN=SN+1
7272 040000 ZZ=ZZ+ZZ
7273 037000 XX=ZZ-1000
7274 037371 205 12 0 00 237400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
7275 037372 205 14 0 00 240400 MOVSI AC,200400+ZZ ;SETUP AC
7276 037373 205 13 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
7277 037374 160 14 0 00 000013 FMP AC,AC-1 ;C(AC)XC(E)
7278 037375 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
7279 037376 003 14 0 00 004006 ER3 AC,SN ;FMP FAILED
7280 037377 321 16 0 00 037371 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7281
7282 004007 SN=SN+1
7283 100000 ZZ=ZZ+ZZ
7284 077000 XX=ZZ-1000
7285 037400 205 12 0 00 277400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
7286 037401 205 14 0 00 300400 MOVSI AC,200400+ZZ ;SETUP AC
7287 037402 205 13 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
7288 037403 160 14 0 00 000013 FMP AC,AC-1 ;C(AC)XC(E)
7289 037404 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
7290 037405 003 14 0 00 004007 ER3 AC,SN ;FMP FAILED
7291 037406 321 16 0 00 037400 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7292
7293 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 16-2
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0204
7294 ;TEST FMP - EXP CAL
7295 ;FP EXP ADD, NR NORMAL
7296 ;AR=200400000000
7297 ;BR=577.4,576.4,575.4
7298 ;PRODS=600.4,577.4,576.4
7299
7300 000013 AC=13
7301 SAVEAC (1,1)^
7302 037407 201 15 0 00 037407 MOVEI AC+2,.
7303 037410 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
7304 037411 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7305 037412 202 15 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7306 004100 SN=4100
7307 601400 XX=601400
7308 600400 ZZ=600400
7309
7310 P4100: REPEAT ^D3, ;TEST FMP
7311 <SN=SN+1
7312 XX=XX-1000
7313 ZZ=ZZ-1000
7314 MOVSI AC-2,XX ;SETUP FOR COMPARISON
7315 MOVSI AC,200400 ;SETUP AC
7316 MOVSI AC-1,ZZ ;SETUP BR
7317 FMP AC,AC-1 ;C(AC)XC(E)
7318 CAME AC,AC-2 ;TEST PROD
7319 ER3 AC,SN ;FMP FAILED
7320 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7321 >
7322 004101 SN=SN+1
7323 600400 XX=XX-1000
7324 577400 ZZ=ZZ-1000
7325 037413 205 11 0 00 600400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
7326 037414 205 13 0 00 200400 MOVSI AC,200400 ;SETUP AC
7327 037415 205 12 0 00 577400 MOVSI AC-1,ZZ ;SETUP BR
7328 037416 160 13 0 00 000012 FMP AC,AC-1 ;C(AC)XC(E)
7329 037417 312 13 0 00 000011 CAME AC,AC-2 ;TEST PROD
7330 037420 003 13 0 00 004101 ER3 AC,SN ;FMP FAILED
7331 037421 321 15 0 00 037413 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7332
7333 004102 SN=SN+1
7334 577400 XX=XX-1000
7335 576400 ZZ=ZZ-1000
7336 037422 205 11 0 00 577400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
7337 037423 205 13 0 00 200400 MOVSI AC,200400 ;SETUP AC
7338 037424 205 12 0 00 576400 MOVSI AC-1,ZZ ;SETUP BR
7339 037425 160 13 0 00 000012 FMP AC,AC-1 ;C(AC)XC(E)
7340 037426 312 13 0 00 000011 CAME AC,AC-2 ;TEST PROD
7341 037427 003 13 0 00 004102 ER3 AC,SN ;FMP FAILED
7342 037430 321 15 0 00 037422 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7343
7344 004103 SN=SN+1
7345 576400 XX=XX-1000
7346 575400 ZZ=ZZ-1000
7347 037431 205 11 0 00 576400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
7348 037432 205 13 0 00 200400 MOVSI AC,200400 ;SETUP AC
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 16-3
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0205
7349 037433 205 12 0 00 575400 MOVSI AC-1,ZZ ;SETUP BR
7350 037434 160 13 0 00 000012 FMP AC,AC-1 ;C(AC)XC(E)
7351 037435 312 13 0 00 000011 CAME AC,AC-2 ;TEST PROD
7352 037436 003 13 0 00 004103 ER3 AC,SN ;FMP FAILED
7353 037437 321 15 0 00 037431 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7354
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 17
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0206
7355 ;TEST FMP
7356 ;AR=200777777777,6,5,4
7357 ;BR=200400000000
7358 ;PRODS=177777777777,6,5,4
7359
7360 000012 AC=12
7361 SAVEAC (1,1)^
7362 037440 201 14 0 00 037440 MOVEI AC+2,.
7363 037441 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
7364 037442 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7365 037443 202 14 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7366 004200 SN=4200
7367 000000 ZZ=0
7368 P4200: REPEAT ^D4, ;TEST FMP
7369 <SN=SN+1
7370 ZZ=ZZ-1
7371 HRLI AC-2,177777 ;SETUP AC-2
7372 HRRI AC-2,ZZ ;FOR COMPARISON
7373 HRLI AC,200777 ;SETUP
7374 HRRI AC,ZZ ;AC
7375 MOVSI AC-1,200400 ;SETUP BR
7376 FMP AC,AC-1 ;C(AC)XC(E)
7377 CAME AC,AC-2 ;TEST PROD
7378 ER3 AC,SN ;FMP FAILED
7379 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
7380 >
7381 004201 SN=SN+1
7382 777777 777777 ZZ=ZZ-1
7383 037444 505 10 0 00 177777 HRLI AC-2,177777 ;SETUP AC-2
7384 037445 541 10 0 00 777777 HRRI AC-2,ZZ ;FOR COMPARISON
7385 037446 505 12 0 00 200777 HRLI AC,200777 ;SETUP
7386 037447 541 12 0 00 777777 HRRI AC,ZZ ;AC
7387 037450 205 11 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
7388 037451 160 12 0 00 000011 FMP AC,AC-1 ;C(AC)XC(E)
7389 037452 312 12 0 00 000010 CAME AC,AC-2 ;TEST PROD
7390 037453 003 12 0 00 004201 ER3 AC,SN ;FMP FAILED
7391 037454 321 14 0 00 037444 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
7392
7393 004202 SN=SN+1
7394 777777 777776 ZZ=ZZ-1
7395 037455 505 10 0 00 177777 HRLI AC-2,177777 ;SETUP AC-2
7396 037456 541 10 0 00 777776 HRRI AC-2,ZZ ;FOR COMPARISON
7397 037457 505 12 0 00 200777 HRLI AC,200777 ;SETUP
7398 037460 541 12 0 00 777776 HRRI AC,ZZ ;AC
7399 037461 205 11 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
7400 037462 160 12 0 00 000011 FMP AC,AC-1 ;C(AC)XC(E)
7401 037463 312 12 0 00 000010 CAME AC,AC-2 ;TEST PROD
7402 037464 003 12 0 00 004202 ER3 AC,SN ;FMP FAILED
7403 037465 321 14 0 00 037455 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
7404
7405 004203 SN=SN+1
7406 777777 777775 ZZ=ZZ-1
7407 037466 505 10 0 00 177777 HRLI AC-2,177777 ;SETUP AC-2
7408 037467 541 10 0 00 777775 HRRI AC-2,ZZ ;FOR COMPARISON
7409 037470 505 12 0 00 200777 HRLI AC,200777 ;SETUP
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 17-1
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0207
7410 037471 541 12 0 00 777775 HRRI AC,ZZ ;AC
7411 037472 205 11 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
7412 037473 160 12 0 00 000011 FMP AC,AC-1 ;C(AC)XC(E)
7413 037474 312 12 0 00 000010 CAME AC,AC-2 ;TEST PROD
7414 037475 003 12 0 00 004203 ER3 AC,SN ;FMP FAILED
7415 037476 321 14 0 00 037466 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
7416
7417 004204 SN=SN+1
7418 777777 777774 ZZ=ZZ-1
7419 037477 505 10 0 00 177777 HRLI AC-2,177777 ;SETUP AC-2
7420 037500 541 10 0 00 777774 HRRI AC-2,ZZ ;FOR COMPARISON
7421 037501 505 12 0 00 200777 HRLI AC,200777 ;SETUP
7422 037502 541 12 0 00 777774 HRRI AC,ZZ ;AC
7423 037503 205 11 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
7424 037504 160 12 0 00 000011 FMP AC,AC-1 ;C(AC)XC(E)
7425 037505 312 12 0 00 000010 CAME AC,AC-2 ;TEST PROD
7426 037506 003 12 0 00 004204 ER3 AC,SN ;FMP FAILED
7427 037507 321 14 0 00 037477 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
7428
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 18
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0208
7429 ;TEST FMP-EXP CAL
7430 ;NR ALL ZERO
7431 ;AR=0
7432 ;BR=200400000000
7433 ;PROD=0
7434
7435 000011 AC=11
7436 SAVEAC (1,1)^
7437 037510 201 13 0 00 037510 MOVEI AC+2,.
7438 037511 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
7439 037512 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7440 037513 202 13 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7441
7442 037514 400 11 0 00 000000 P4300: SETZ AC, ;SETUP AC
7443 037515 205 10 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
7444 037516 160 11 0 00 000010 FMP AC,AC-1 ;C(AC)XC(E)
7445 037517 332 00 0 00 000011 SKIPE AC ;TEST PROD
7446 037520 003 11 0 00 004301 ER3 AC,4301 ;FMP FAILED
7447 037521 321 13 0 00 037514 JUMPL AC+2,P4300 ;LOOP ON ERROR SWITCH
7448
7449 ;TEST FMP-EXP CAL
7450 ;NEGATIVE AR EXP
7451 ;AR=577400000000
7452 ;BR=200400000000
7453 ;PROD=600400000000
7454
7455 000010 AC=10
7456 SAVEAC (1,1)^
7457 037522 201 12 0 00 037522 MOVEI AC+2,.
7458 037523 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
7459 037524 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7460 037525 202 12 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7461
7462 037526 205 06 0 00 600400 P4400: MOVSI AC-2,600400 ;SETUP FOR COMPARISON
7463 037527 205 10 0 00 577400 MOVSI AC,577400 ;SETUP AC
7464 037530 205 07 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
7465 037531 160 10 0 00 000007 FMP AC,AC-1 ;C(AC) X C(E)
7466 037532 312 10 0 00 000006 CAME AC,AC-2 ;TEST PROD
7467 037533 003 10 0 00 004401 ER3 AC,4401 ;FMP FAILED
7468 037534 321 12 0 00 037526 JUMPL AC+2,P4400 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 19
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0209
7469 ;TEST FMP-EXP CAL
7470 ;TWO NEGATIVES-INCREASING AR EXPONENT
7471 ;AR=501.7,502.7,503.7,504.7,505.7
7472 ;BR=500400000000
7473 ;PRODS=372.4,371.4,370.4,367.4,366.4
7474
7475 000011 AC=11
7476 SAVEAC (1,1)^
7477 037535 201 13 0 00 037535 MOVEI AC+2,.
7478 037536 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
7479 037537 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7480 037540 202 13 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7481 004500 SN=4500
7482 373400 XX=373400
7483 500700 ZZ=500700
7484
7485 P4500: REPEAT ^D5, ;TEST FMP
7486 <SN=SN+1
7487 XX=XX-1000
7488 ZZ=ZZ+1000
7489 MOVSI AC-2,XX ;SETUP FOR COMPARISON
7490 MOVSI AC,ZZ ;SETUP AC
7491 MOVSI AC-1,500400 ;SETUP BR
7492 FMP AC,AC-1 ;C(AC)+C(E)
7493 CAME AC,AC-2 ;TEST PROD
7494 ER3 AC,SN ;FMP FAILED
7495 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7496 >
7497 004501 SN=SN+1
7498 372400 XX=XX-1000
7499 501700 ZZ=ZZ+1000
7500 037541 205 07 0 00 372400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
7501 037542 205 11 0 00 501700 MOVSI AC,ZZ ;SETUP AC
7502 037543 205 10 0 00 500400 MOVSI AC-1,500400 ;SETUP BR
7503 037544 160 11 0 00 000010 FMP AC,AC-1 ;C(AC)+C(E)
7504 037545 312 11 0 00 000007 CAME AC,AC-2 ;TEST PROD
7505 037546 003 11 0 00 004501 ER3 AC,SN ;FMP FAILED
7506 037547 321 13 0 00 037541 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7507
7508 004502 SN=SN+1
7509 371400 XX=XX-1000
7510 502700 ZZ=ZZ+1000
7511 037550 205 07 0 00 371400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
7512 037551 205 11 0 00 502700 MOVSI AC,ZZ ;SETUP AC
7513 037552 205 10 0 00 500400 MOVSI AC-1,500400 ;SETUP BR
7514 037553 160 11 0 00 000010 FMP AC,AC-1 ;C(AC)+C(E)
7515 037554 312 11 0 00 000007 CAME AC,AC-2 ;TEST PROD
7516 037555 003 11 0 00 004502 ER3 AC,SN ;FMP FAILED
7517 037556 321 13 0 00 037550 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7518
7519 004503 SN=SN+1
7520 370400 XX=XX-1000
7521 503700 ZZ=ZZ+1000
7522 037557 205 07 0 00 370400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
7523 037560 205 11 0 00 503700 MOVSI AC,ZZ ;SETUP AC
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 19-1
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0210
7524 037561 205 10 0 00 500400 MOVSI AC-1,500400 ;SETUP BR
7525 037562 160 11 0 00 000010 FMP AC,AC-1 ;C(AC)+C(E)
7526 037563 312 11 0 00 000007 CAME AC,AC-2 ;TEST PROD
7527 037564 003 11 0 00 004503 ER3 AC,SN ;FMP FAILED
7528 037565 321 13 0 00 037557 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7529
7530 004504 SN=SN+1
7531 367400 XX=XX-1000
7532 504700 ZZ=ZZ+1000
7533 037566 205 07 0 00 367400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
7534 037567 205 11 0 00 504700 MOVSI AC,ZZ ;SETUP AC
7535 037570 205 10 0 00 500400 MOVSI AC-1,500400 ;SETUP BR
7536 037571 160 11 0 00 000010 FMP AC,AC-1 ;C(AC)+C(E)
7537 037572 312 11 0 00 000007 CAME AC,AC-2 ;TEST PROD
7538 037573 003 11 0 00 004504 ER3 AC,SN ;FMP FAILED
7539 037574 321 13 0 00 037566 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7540
7541 004505 SN=SN+1
7542 366400 XX=XX-1000
7543 505700 ZZ=ZZ+1000
7544 037575 205 07 0 00 366400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
7545 037576 205 11 0 00 505700 MOVSI AC,ZZ ;SETUP AC
7546 037577 205 10 0 00 500400 MOVSI AC-1,500400 ;SETUP BR
7547 037600 160 11 0 00 000010 FMP AC,AC-1 ;C(AC)+C(E)
7548 037601 312 11 0 00 000007 CAME AC,AC-2 ;TEST PROD
7549 037602 003 11 0 00 004505 ER3 AC,SN ;FMP FAILED
7550 037603 321 13 0 00 037575 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7551
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 20
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0211
7552 ;TEST FMP-EXP CAL
7553 ;TWO POSITIVES
7554 ;AR MANTISSA DECREASING
7555 ;NR NORM TEST
7556 ;AR=200.2,200.1,200.04,200.02,200.01,200.004,200.002
7557 ;BR=200400000000
7558 ;PRODS=176.4,175.4,174.4,173.4,172.4,171.4,170.4
7559
7560 000007 AC=7
7561 SAVEAC (1,1)^
7562 037604 201 11 0 00 037604 MOVEI AC+2,.
7563 037605 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
7564 037606 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7565 037607 202 11 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7566 004600 SN=4600
7567 177400 XX=177400
7568 000400 ZZ=400
7569
7570 P4600: REPEAT ^D7, ;TEST FMP
7571 <SN=SN+1
7572 XX=XX-1000
7573 ZZ=ZZ/2
7574 MOVSI AC-2,XX ;SETUP FOR COMPARISON
7575 MOVSI AC,200000+ZZ ;SETUP AC
7576 MOVSI AC-1,200400 ;SETUP BR
7577 FMP AC,AC-1 ;C(AC)XC(E)
7578 CAME AC,AC-2 ;TEST PROD
7579 ER3 AC,SN ;FMP FAILED
7580 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7581 >
7582 004601 SN=SN+1
7583 176400 XX=XX-1000
7584 000200 ZZ=ZZ/2
7585 037610 205 05 0 00 176400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
7586 037611 205 07 0 00 200200 MOVSI AC,200000+ZZ ;SETUP AC
7587 037612 205 06 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
7588 037613 160 07 0 00 000006 FMP AC,AC-1 ;C(AC)XC(E)
7589 037614 312 07 0 00 000005 CAME AC,AC-2 ;TEST PROD
7590 037615 003 07 0 00 004601 ER3 AC,SN ;FMP FAILED
7591 037616 321 11 0 00 037610 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7592
7593 004602 SN=SN+1
7594 175400 XX=XX-1000
7595 000100 ZZ=ZZ/2
7596 037617 205 05 0 00 175400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
7597 037620 205 07 0 00 200100 MOVSI AC,200000+ZZ ;SETUP AC
7598 037621 205 06 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
7599 037622 160 07 0 00 000006 FMP AC,AC-1 ;C(AC)XC(E)
7600 037623 312 07 0 00 000005 CAME AC,AC-2 ;TEST PROD
7601 037624 003 07 0 00 004602 ER3 AC,SN ;FMP FAILED
7602 037625 321 11 0 00 037617 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7603
7604 004603 SN=SN+1
7605 174400 XX=XX-1000
7606 000040 ZZ=ZZ/2
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 20-1
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0212
7607 037626 205 05 0 00 174400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
7608 037627 205 07 0 00 200040 MOVSI AC,200000+ZZ ;SETUP AC
7609 037630 205 06 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
7610 037631 160 07 0 00 000006 FMP AC,AC-1 ;C(AC)XC(E)
7611 037632 312 07 0 00 000005 CAME AC,AC-2 ;TEST PROD
7612 037633 003 07 0 00 004603 ER3 AC,SN ;FMP FAILED
7613 037634 321 11 0 00 037626 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7614
7615 004604 SN=SN+1
7616 173400 XX=XX-1000
7617 000020 ZZ=ZZ/2
7618 037635 205 05 0 00 173400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
7619 037636 205 07 0 00 200020 MOVSI AC,200000+ZZ ;SETUP AC
7620 037637 205 06 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
7621 037640 160 07 0 00 000006 FMP AC,AC-1 ;C(AC)XC(E)
7622 037641 312 07 0 00 000005 CAME AC,AC-2 ;TEST PROD
7623 037642 003 07 0 00 004604 ER3 AC,SN ;FMP FAILED
7624 037643 321 11 0 00 037635 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7625
7626 004605 SN=SN+1
7627 172400 XX=XX-1000
7628 000010 ZZ=ZZ/2
7629 037644 205 05 0 00 172400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
7630 037645 205 07 0 00 200010 MOVSI AC,200000+ZZ ;SETUP AC
7631 037646 205 06 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
7632 037647 160 07 0 00 000006 FMP AC,AC-1 ;C(AC)XC(E)
7633 037650 312 07 0 00 000005 CAME AC,AC-2 ;TEST PROD
7634 037651 003 07 0 00 004605 ER3 AC,SN ;FMP FAILED
7635 037652 321 11 0 00 037644 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7636
7637 004606 SN=SN+1
7638 171400 XX=XX-1000
7639 000004 ZZ=ZZ/2
7640 037653 205 05 0 00 171400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
7641 037654 205 07 0 00 200004 MOVSI AC,200000+ZZ ;SETUP AC
7642 037655 205 06 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
7643 037656 160 07 0 00 000006 FMP AC,AC-1 ;C(AC)XC(E)
7644 037657 312 07 0 00 000005 CAME AC,AC-2 ;TEST PROD
7645 037660 003 07 0 00 004606 ER3 AC,SN ;FMP FAILED
7646 037661 321 11 0 00 037653 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7647
7648 004607 SN=SN+1
7649 170400 XX=XX-1000
7650 000002 ZZ=ZZ/2
7651 037662 205 05 0 00 170400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
7652 037663 205 07 0 00 200002 MOVSI AC,200000+ZZ ;SETUP AC
7653 037664 205 06 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
7654 037665 160 07 0 00 000006 FMP AC,AC-1 ;C(AC)XC(E)
7655 037666 312 07 0 00 000005 CAME AC,AC-2 ;TEST PROD
7656 037667 003 07 0 00 004607 ER3 AC,SN ;FMP FAILED
7657 037670 321 11 0 00 037662 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
7658
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 21
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0213
7659 ;TEST FMP-EXP CAL
7660 ;AR=500.7,500.77
7661 ;BR=200400000000
7662 ;PRODS=503.4,506.4
7663
7664 000006 AC=6
7665 SAVEAC (1,1)^
7666 037671 201 10 0 00 037671 MOVEI AC+2,.
7667 037672 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
7668 037673 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7669 037674 202 10 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7670 004700 SN=4700
7671 500400 XX=500400
7672 500610 ZZ=500610
7673
7674 P4700: REPEAT ^D2, ;TEST FMP
7675 <SN=SN+1
7676 XX=XX+3000
7677 ZZ=ZZ+70
7678 MOVSI AC-2,XX ;SETUP FOR COMPARISON
7679 MOVSI AC,ZZ ;SETUP AC
7680 MOVSI AC-1,200400 ;SETUP BR
7681 FMP AC,AC-1 ;C(AC)XC(E)
7682 CAME AC,AC-2 ;TEST PROD
7683 ER3 AC,SN ;FMP FAILED
7684 CAME AC-1,[200400,,0];EXAMINE C(E)
7685 ER5 AC-1,SN ;C(E) WAS CLOBBERED
7686 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
7687 >
7688 004701 SN=SN+1
7689 503400 XX=XX+3000
7690 500700 ZZ=ZZ+70
7691 037675 205 04 0 00 503400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
7692 037676 205 06 0 00 500700 MOVSI AC,ZZ ;SETUP AC
7693 037677 205 05 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
7694 037700 160 06 0 00 000005 FMP AC,AC-1 ;C(AC)XC(E)
7695 037701 312 06 0 00 000004 CAME AC,AC-2 ;TEST PROD
7696 037702 003 06 0 00 004701 ER3 AC,SN ;FMP FAILED
7697 037703 312 05 0 00 070614 CAME AC-1,[200400,,0];EXAMINE C(E)
7698 037704 005 05 0 00 004701 ER5 AC-1,SN ;C(E) WAS CLOBBERED
7699 037705 321 10 0 00 037675 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
7700
7701 004702 SN=SN+1
7702 506400 XX=XX+3000
7703 500770 ZZ=ZZ+70
7704 037706 205 04 0 00 506400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
7705 037707 205 06 0 00 500770 MOVSI AC,ZZ ;SETUP AC
7706 037710 205 05 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
7707 037711 160 06 0 00 000005 FMP AC,AC-1 ;C(AC)XC(E)
7708 037712 312 06 0 00 000004 CAME AC,AC-2 ;TEST PROD
7709 037713 003 06 0 00 004702 ER3 AC,SN ;FMP FAILED
7710 037714 312 05 0 00 070614 CAME AC-1,[200400,,0];EXAMINE C(E)
7711 037715 005 05 0 00 004702 ER5 AC-1,SN ;C(E) WAS CLOBBERED
7712 037716 321 10 0 00 037706 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
7713
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 21-1
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0214
7714 ;TEST ECO49
7715 ;TEST UNDERFLOW
7716 ;AR=000400000000
7717 ;BR=000400000000
7718 ;FLAGS=440100
7719 ;SMALLEST NORMALIZED NUMBER SQUARED SHOULD CAUSE UNDERFLOW
7720
7721 000006 AC=6
7722 SAVEAC (1,1)^
7723 037717 201 10 0 00 037717 MOVEI AC+2,.
7724 037720 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
7725 037721 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7726 037722 202 10 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7727
7728 037723 254 02 1 00 037724 P5000: JRST 2,@.+1 ;CLEAR PC FLAGS
7729 037724 000000 037725 XWD 0,.+1
7730 037725 205 06 0 00 000400 MOVSI AC,000400 ;GET SMALLEST NORMALIZED NUMBER
7731 037726 160 06 0 00 000006 FMP AC,AC ;SQUARE IT AND CAUSE UNDERFLOW
7732 037727 265 04 0 00 037730 JSP AC-2,.+1 ;GET PC FLAGS
7733 037730 607 04 0 00 000100 TLNN AC-2,FXU ;UNDERFLOW SHOULD BE A ONE
7734 037731 013 04 0 00 005001 ER13 AC-2,5001 ;ERROR
7735 037732 321 10 0 00 037723 JUMPL AC+2,P5000 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 22
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0215
7736 ;TEST FMPB
7737 ;AR=200775000000
7738 ;BR=200775000000
7739 ;PROD=200772011000
7740
7741 000005 AC=5
7742 SAVEAC (1,1)^
7743 037733 201 07 0 00 037733 MOVEI AC+2,.
7744 037734 202 07 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
7745 037735 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7746 037736 202 07 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7747
7748 037737 505 03 0 00 200772 P5100: HRLI AC-2,200772 ;SETUP AC-2
7749 037740 541 03 0 00 011000 HRRI AC-2,11000 ;FOR COMPARISON
7750 037741 205 05 0 00 200775 MOVSI AC,200775 ;SETUP AC
7751 037742 205 04 0 00 200775 MOVSI AC-1,200775 ;SETUP BR
7752 037743 163 05 0 00 000004 FMPB AC,AC-1 ;C(AC)XC(E)
7753 037744 312 05 0 00 000003 CAME AC,AC-2 ;TEST PROD (AC)
7754 037745 003 05 0 00 005101 ER3 AC,5101 ;C(AC) FAILED
7755 037746 312 04 0 00 000003 CAME AC-1,AC-2 ;TEST PROD (E)
7756 037747 005 04 0 00 005101 ER5 AC-1,5101 ;C(E) FAILED
7757 037750 321 07 0 00 037737 JUMPL AC+2,P5100 ;LOOP ON ERROR SWITCH
7758
7759 ;TEST FMPB
7760 ;AR=200774000000
7761 ;BR=200774000000
7762 ;PROD=200770020000
7763
7764 000014 AC=14
7765 SAVEAC (1,1)^
7766 037751 201 16 0 00 037751 MOVEI AC+2,.
7767 037752 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
7768 037753 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7769 037754 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7770
7771 037755 505 12 0 00 200770 P5200: HRLI AC-2,200770 ;SETUP AC-2
7772 037756 541 12 0 00 020000 HRRI AC-2,20000 ;FOR COMPARISON
7773 037757 205 14 0 00 200774 MOVSI AC,200774 ;SETUP AC
7774 037760 205 13 0 00 200774 MOVSI AC-1,200774 ;SETUP BR
7775 037761 163 14 0 00 000013 FMPB AC,AC-1 ;C(AC)XC(E)
7776 037762 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD (AC)
7777 037763 003 14 0 00 005201 ER3 AC,5201 ;C(AC) FAILED
7778 037764 312 13 0 00 000012 CAME AC-1,AC-2 ;TEST PROD (E)
7779 037765 005 13 0 00 005201 ER5 AC-1,5201 ;C(E) FAILED
7780 037766 321 16 0 00 037755 JUMPL AC+2,P5200 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 23
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0216
7781 ;TEST FMPM
7782 ;AR=200773000000
7783 ;BR=200773000000
7784 ;PROD=200766031000
7785
7786 000014 AC=14
7787 SAVEAC (1,1)^
7788 037767 201 16 0 00 037767 MOVEI AC+2,.
7789 037770 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
7790 037771 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7791 037772 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7792
7793 037773 505 12 0 00 200766 P5300: HRLI AC-2,200766 ;SETUP AC-2
7794 037774 541 12 0 00 031000 HRRI AC-2,31000 ;FOR COMPARISON
7795 037775 205 14 0 00 200773 MOVSI AC,200773 ;SETUP AC
7796 037776 205 13 0 00 200773 MOVSI AC-1,200773 ;SETUP BR
7797 037777 162 14 0 00 000013 FMPM AC,AC-1 ;C(AC)XC(E)
7798 040000 312 13 0 00 000012 CAME AC-1,AC-2 ;TEST PROD
7799 040001 005 13 0 00 005301 ER5 AC-1,5301 ;FMPM FAILED
7800 040002 321 16 0 00 037773 JUMPL AC+2,P5300 ;LOOP ON ERROR SWITCH
7801
7802 ;TEST FMPM
7803 ;AR=177477000000
7804 ;BR=200700000000
7805 ;PROD=177427100000
7806
7807 000013 AC=13
7808 SAVEAC (1,1)^
7809 040003 201 15 0 00 040003 MOVEI AC+2,.
7810 040004 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
7811 040005 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7812 040006 202 15 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7813
7814 040007 505 11 0 00 177427 P5400: HRLI AC-2,177427 ;SETUP AC-2
7815 040010 541 11 0 00 100000 HRRI AC-2,100000 ;FOR COMPARISON
7816 040011 205 13 0 00 177477 MOVSI AC,177477 ;SETUP AC
7817 040012 205 12 0 00 200700 MOVSI AC-1,200700 ;SETUP BR
7818 040013 162 13 0 00 000012 FMPM AC,AC-1 ;C(AC)XC(E)
7819 040014 312 13 0 00 070643 CAME AC,[177477,,0] ;EXAMINE C(AC)
7820 040015 003 13 0 00 005401 ER3 AC,5401 ;C(AC) WAS CLOBBERED
7821 040016 312 12 0 00 000011 CAME AC-1,AC-2 ;TEST PROD
7822 040017 005 12 0 00 005401 ER5 AC-1,5401 ;FMPM FAILED
7823 040020 321 15 0 00 040007 JUMPL AC+2,P5400 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 24
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0217
7824 ;TEST FMPR
7825 ;(NOT ROUND COND)
7826 ;AR=200777777777
7827 ;BR=200000000002
7828 ;PROD=146777777777
7829
7830 000006 AC=6
7831 SAVEAC (1,1)^
7832 040021 201 10 0 00 040021 MOVEI AC+2,.
7833 040022 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
7834 040023 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7835 040024 202 10 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7836
7837 040025 505 04 0 00 146777 P6100: HRLI AC-2,146777 ;SETUP AC-2
7838 040026 541 04 0 00 777777 HRRI AC-2,-1 ;FOR COMPARISON
7839 040027 505 06 0 00 200777 HRLI AC,200777 ;SETUP
7840 040030 541 06 0 00 777777 HRRI AC,-1 ;AC
7841 040031 205 05 0 00 200000 MOVSI AC-1,200000 ;SETUP
7842 040032 271 05 0 00 000002 ADDI AC-1,2 ;BR
7843 040033 164 06 0 00 000005 FMPR AC,AC-1 ;C(AC)XC(E)
7844 040034 312 06 0 00 000004 CAME AC,AC-2 ;TEST PROD
7845 040035 003 06 0 00 006101 ER3 AC,6101 ;FMPR FAILED
7846 040036 321 10 0 00 040025 JUMPL AC+2,P6100 ;LOOP ON ERROR SWITCH
7847 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 24-1
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0218
7848 ;TEST FMPR
7849 ;AR=200700000000
7850 ;BR=200400000077,(76)
7851 ;PROD=177700000156,(155)
7852
7853 000014 AC=14
7854 SAVEAC (1,1)^
7855 040037 201 16 0 00 040037 MOVEI AC+2,.
7856 040040 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
7857 040041 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7858 040042 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7859 006200 SN=6200
7860 000100 XX=100
7861 000157 ZZ=157
7862
7863 P6200: REPEAT ^D2, ;TEST FMPR
7864 <SN=SN+1
7865 XX=XX-1
7866 ZZ=ZZ-1
7867 HRLI AC-2,177700 ;SETUP AC-2
7868 HRRI AC-2,ZZ ;FOR COMPARISON
7869 MOVSI AC,200700 ;SETUP AC
7870 HRLI AC-1,200400 ;SETUP
7871 HRRI AC-1,XX ;BR
7872 FMPR AC,AC-1 ;C(AC)XC(E)
7873 CAME AC,AC-2 ;TEST PROD
7874 ER3 AC,SN ;FMPR FAILED
7875 CAME AC-1,[200400,,XX] ;EXAMINE C(E)
7876 ER5 AC-1,SN ;C(E) WAS CLOBBERED
7877 JUMPL AC-2,.-^D10 ;LOOP ON ERROR SWITCH
7878 >
7879 006201 SN=SN+1
7880 000077 XX=XX-1
7881 000156 ZZ=ZZ-1
7882 040043 505 12 0 00 177700 HRLI AC-2,177700 ;SETUP AC-2
7883 040044 541 12 0 00 000156 HRRI AC-2,ZZ ;FOR COMPARISON
7884 040045 205 14 0 00 200700 MOVSI AC,200700 ;SETUP AC
7885 040046 505 13 0 00 200400 HRLI AC-1,200400 ;SETUP
7886 040047 541 13 0 00 000077 HRRI AC-1,XX ;BR
7887 040050 164 14 0 00 000013 FMPR AC,AC-1 ;C(AC)XC(E)
7888 040051 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
7889 040052 003 14 0 00 006201 ER3 AC,SN ;FMPR FAILED
7890 040053 312 13 0 00 070644 CAME AC-1,[200400,,XX] ;EXAMINE C(E)
7891 040054 005 13 0 00 006201 ER5 AC-1,SN ;C(E) WAS CLOBBERED
7892 040055 321 12 0 00 040043 JUMPL AC-2,.-^D10 ;LOOP ON ERROR SWITCH
7893
7894 006202 SN=SN+1
7895 000076 XX=XX-1
7896 000155 ZZ=ZZ-1
7897 040056 505 12 0 00 177700 HRLI AC-2,177700 ;SETUP AC-2
7898 040057 541 12 0 00 000155 HRRI AC-2,ZZ ;FOR COMPARISON
7899 040060 205 14 0 00 200700 MOVSI AC,200700 ;SETUP AC
7900 040061 505 13 0 00 200400 HRLI AC-1,200400 ;SETUP
7901 040062 541 13 0 00 000076 HRRI AC-1,XX ;BR
7902 040063 164 14 0 00 000013 FMPR AC,AC-1 ;C(AC)XC(E)
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 24-2
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0219
7903 040064 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
7904 040065 003 14 0 00 006202 ER3 AC,SN ;FMPR FAILED
7905 040066 312 13 0 00 070645 CAME AC-1,[200400,,XX] ;EXAMINE C(E)
7906 040067 005 13 0 00 006202 ER5 AC-1,SN ;C(E) WAS CLOBBERED
7907 040070 321 12 0 00 040056 JUMPL AC-2,.-^D10 ;LOOP ON ERROR SWITCH
7908
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 25
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0220
7909 ;TEST FMPRM
7910 ;AR=200700000000
7911 ;BR=200400000075
7912 ;PROD=177700000153
7913
7914 000014 AC=14
7915 SAVEAC (1,1)^
7916 040071 201 16 0 00 040071 MOVEI AC+2,.
7917 040072 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
7918 040073 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7919 040074 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7920
7921 040075 505 12 0 00 177700 P6300: HRLI AC-2,177700 ;SETUP AC-2
7922 040076 541 12 0 00 000153 HRRI AC-2,153 ;FOR COMPARISON
7923 040077 205 14 0 00 200700 MOVSI AC,200700 ;SETUP AC
7924 040100 505 13 0 00 200400 HRLI AC-1,200400 ;SETUP
7925 040101 541 13 0 00 000075 HRRI AC-1,75 ;BR
7926 040102 166 14 0 00 000013 FMPRM AC,AC-1 ;C(AC)XC(E)
7927 040103 312 14 0 00 070646 CAME AC,[200700,,0] ;EXAMINE C(AC)
7928 040104 003 14 0 00 006301 ER3 AC,6301 ;C(AC) WAS CLOBBERED
7929 040105 312 13 0 00 000012 CAME AC-1,AC-2 ;TEST PROD
7930 040106 005 13 0 00 006301 ER5 AC-1,6301 ;FMPRM FAILED
7931 040107 321 16 0 00 040075 JUMPL AC+2,P6300 ;LOOP ON ERROR SWITCH
7932
7933 ;TEST FMPRB
7934 ;AR=577400000000
7935 ;BR=600400000000
7936 ;PROD=176400000000
7937
7938 000013 AC=13
7939 SAVEAC (1,1)^
7940 040110 201 15 0 00 040110 MOVEI AC+2,.
7941 040111 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
7942 040112 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7943 040113 202 15 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7944
7945 040114 205 11 0 00 176400 P6400: MOVSI AC-2,176400 ;SETUP FOR COMPARISON
7946 040115 205 13 0 00 577400 MOVSI AC,577400 ;SETUP AC
7947 040116 205 12 0 00 600400 MOVSI AC-1,600400 ;SETUP BR
7948 040117 167 13 0 00 000012 FMPRB AC,AC-1 ;C(AC)XC(E)
7949 040120 312 13 0 00 000011 CAME AC,AC-2 ;TEST PROD (AC)
7950 040121 003 13 0 00 006401 ER3 AC,6401 ;C(AC) FAILED
7951 040122 312 12 0 00 000011 CAME AC-1,AC-2 ;TEST PROD (E)
7952 040123 005 12 0 00 006401 ER5 AC-1,6401 ;FMPRB FAILED
7953 040124 321 15 0 00 040114 JUMPL AC+2,P6400 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 26
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0221
7954 ;TEST FMPRI
7955 ;AR=600400000077,(76)
7956 ;E=177600
7957 ;PRODS=602200000136,(135),
7958
7959 000012 AC=12
7960 SAVEAC (1,1)^
7961 040125 201 14 0 00 040125 MOVEI AC+2,.
7962 040126 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
7963 040127 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7964 040130 202 14 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7965 006500 SN=6500
7966 000137 XX=137
7967 000100 ZZ=100
7968
7969 P6500: REPEAT ^D2, ;TEST FMPRI
7970 <SN=SN+1
7971 XX=XX-1
7972 ZZ=ZZ-1
7973 HRLI AC-2,602200 ;SETUP AC-2
7974 HRRI AC-2,XX ;FOR COMPARISON
7975 HRLI AC,600400 ;SETUP
7976 HRRI AC,ZZ ;AC
7977 FMPRI AC,177600 ;C(AC)X E
7978 CAME AC,AC-2 ;TEST PROD
7979 ER3 AC,SN ;FMPRI FAILED
7980 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
7981 >
7982 006501 SN=SN+1
7983 000136 XX=XX-1
7984 000077 ZZ=ZZ-1
7985 040131 505 10 0 00 602200 HRLI AC-2,602200 ;SETUP AC-2
7986 040132 541 10 0 00 000136 HRRI AC-2,XX ;FOR COMPARISON
7987 040133 505 12 0 00 600400 HRLI AC,600400 ;SETUP
7988 040134 541 12 0 00 000077 HRRI AC,ZZ ;AC
7989 040135 165 12 0 00 177600 FMPRI AC,177600 ;C(AC)X E
7990 040136 312 12 0 00 000010 CAME AC,AC-2 ;TEST PROD
7991 040137 003 12 0 00 006501 ER3 AC,SN ;FMPRI FAILED
7992 040140 321 14 0 00 040131 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
7993
7994 006502 SN=SN+1
7995 000135 XX=XX-1
7996 000076 ZZ=ZZ-1
7997 040141 505 10 0 00 602200 HRLI AC-2,602200 ;SETUP AC-2
7998 040142 541 10 0 00 000135 HRRI AC-2,XX ;FOR COMPARISON
7999 040143 505 12 0 00 600400 HRLI AC,600400 ;SETUP
8000 040144 541 12 0 00 000076 HRRI AC,ZZ ;AC
8001 040145 165 12 0 00 177600 FMPRI AC,177600 ;C(AC)X E
8002 040146 312 12 0 00 000010 CAME AC,AC-2 ;TEST PROD
8003 040147 003 12 0 00 006502 ER3 AC,SN ;FMPRI FAILED
8004 040150 321 14 0 00 040141 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
8005
8006 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 26-1
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0222
8007 ;TEST FMPRI
8008 ;AR=600400000000
8009 ;E=576400,575400
8010 ;PROD=177400000000,200400000000
8011
8012 000011 AC=11
8013 SAVEAC (1,1)^
8014 040151 201 13 0 00 040151 MOVEI AC+2,.
8015 040152 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
8016 040153 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8017 040154 202 13 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8018
8019 006600 SN=6600
8020 176400 XX=176400
8021 577400 ZZ=577400
8022
8023 P6600: REPEAT ^D2, ;TEST FMPRI
8024 <SN=SN+1
8025 XX=XX+1000
8026 ZZ=ZZ-1000
8027 MOVSI AC-2,XX ;SETUP FOR COMPARISON
8028 MOVSI AC,600400 ;SETUP AC
8029 FMPRI AC,ZZ ;C(AC)X E
8030 CAME AC,AC-2 ;TEST PROD
8031 ER3 AC,6601 ;FMPRI FAILED
8032 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
8033
8034 >
8035 006601 SN=SN+1
8036 177400 XX=XX+1000
8037 576400 ZZ=ZZ-1000
8038 040155 205 07 0 00 177400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
8039 040156 205 11 0 00 600400 MOVSI AC,600400 ;SETUP AC
8040 040157 165 11 0 00 576400 FMPRI AC,ZZ ;C(AC)X E
8041 040160 312 11 0 00 000007 CAME AC,AC-2 ;TEST PROD
8042 040161 003 11 0 00 006601 ER3 AC,6601 ;FMPRI FAILED
8043 040162 321 13 0 00 040155 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
8044
8045
8046 006602 SN=SN+1
8047 200400 XX=XX+1000
8048 575400 ZZ=ZZ-1000
8049 040163 205 07 0 00 200400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
8050 040164 205 11 0 00 600400 MOVSI AC,600400 ;SETUP AC
8051 040165 165 11 0 00 575400 FMPRI AC,ZZ ;C(AC)X E
8052 040166 312 11 0 00 000007 CAME AC,AC-2 ;TEST PROD
8053 040167 003 11 0 00 006601 ER3 AC,6601 ;FMPRI FAILED
8054 040170 321 13 0 00 040163 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
8055
8056
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 27
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0223
8057 ;TEST ECO49
8058 ;TEST CLEAR MQ LOGIC
8059 ;AR=400000000001
8060 ;E=1.0
8061 ;PROD=400000000001
8062 ;ERROR PROD=777400000000
8063 ;FLAGS=0
8064
8065 000011 AC=11
8066 SAVEAC (1,1)^
8067 040171 201 13 0 00 040171 MOVEI AC+2,.
8068 040172 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
8069 040173 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8070 040174 202 13 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8071
8072 040175 254 02 1 00 040176 P6700: JRST 2,@.+1 ;CLEAR PC FLAGS
8073 040176 000000 040177 XWD 0,.+1
8074 040177 200 11 0 00 070647 MOVE AC,[XWD 400000,000001] ;GET LARGEST NEGATIVE FP NUMBER
8075 040200 165 11 0 00 201400 FMPRI AC,(1.0) ;MULTIPLY IT BY ONE
8076 040201 316 11 0 00 070650 CAMN AC,[XWD 777400,0] ;CLEAR MQ LOGIC WORKING
8077 040202 003 11 0 00 006701 ER3 AC,6701 ;NO
8078 040203 312 11 0 00 070647 CAME AC,[XWD 400000,000001] ;CORRECT ANSWER
8079 040204 003 11 0 00 006701 ER3 AC,6701 ;NO
8080 040205 265 07 0 00 040206 JSP AC-2,.+1 ;GET PC FLAGS
8081 040206 603 07 0 00 640140 TLNE AC-2,640140 ;ARE ALL FLAGS ZERO
8082 040207 013 07 0 00 006701 ER13 AC-2,6701 ;NO, THEY SHOULD BE
8083 040210 255 10 0 00 040212 JOV .+2 ;EXAMINE ARCV FLAG
8084 040211 254 00 0 00 040213 JRST .+2
8085 040212 013 07 0 00 006701 ER13 AC-2,6701 ;AROV IS SET
8086 040213 321 13 0 00 040175 JUMPL AC+2,P6700 ;LOOP ON ERROR SWITCH
8087 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 27-1
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0224
8088 ;TEST FDV
8089 ;AR=200.4,201.4,202.4
8090 ;BR=200.4,201.4,202.4
8091 ;QUOT=201400000000
8092
8093 000014 AC=14
8094 SAVEAC (1,1)^
8095 040214 201 16 0 00 040214 MOVEI AC+2,.
8096 040215 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
8097 040216 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8098 040217 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8099 007000 SN=7000
8100 177400 ZZ=177400
8101
8102 P7000: REPEAT ^D3, ;TEST FDV
8103 <SN=SN+1
8104 ZZ=ZZ+1000
8105 MOVSI AC-2,201400 ;SETUP FOR COMPARISON
8106 MOVSI AC,ZZ ;SETUP AC
8107 MOVSI AC-1,ZZ ;SETUP BR
8108 FDV AC,AC-1 ;C(AC)/C(E)
8109 CAME AC,AC-2 ;TEST QUOT
8110 ER3 AC,7001 ;FDV FAILED
8111 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
8112 >
8113 007001 SN=SN+1
8114 200400 ZZ=ZZ+1000
8115 040220 205 12 0 00 201400 MOVSI AC-2,201400 ;SETUP FOR COMPARISON
8116 040221 205 14 0 00 200400 MOVSI AC,ZZ ;SETUP AC
8117 040222 205 13 0 00 200400 MOVSI AC-1,ZZ ;SETUP BR
8118 040223 170 14 0 00 000013 FDV AC,AC-1 ;C(AC)/C(E)
8119 040224 312 14 0 00 000012 CAME AC,AC-2 ;TEST QUOT
8120 040225 003 14 0 00 007001 ER3 AC,7001 ;FDV FAILED
8121 040226 321 16 0 00 040220 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
8122
8123 007002 SN=SN+1
8124 201400 ZZ=ZZ+1000
8125 040227 205 12 0 00 201400 MOVSI AC-2,201400 ;SETUP FOR COMPARISON
8126 040230 205 14 0 00 201400 MOVSI AC,ZZ ;SETUP AC
8127 040231 205 13 0 00 201400 MOVSI AC-1,ZZ ;SETUP BR
8128 040232 170 14 0 00 000013 FDV AC,AC-1 ;C(AC)/C(E)
8129 040233 312 14 0 00 000012 CAME AC,AC-2 ;TEST QUOT
8130 040234 003 14 0 00 007001 ER3 AC,7001 ;FDV FAILED
8131 040235 321 16 0 00 040227 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
8132
8133 007003 SN=SN+1
8134 202400 ZZ=ZZ+1000
8135 040236 205 12 0 00 201400 MOVSI AC-2,201400 ;SETUP FOR COMPARISON
8136 040237 205 14 0 00 202400 MOVSI AC,ZZ ;SETUP AC
8137 040240 205 13 0 00 202400 MOVSI AC-1,ZZ ;SETUP BR
8138 040241 170 14 0 00 000013 FDV AC,AC-1 ;C(AC)/C(E)
8139 040242 312 14 0 00 000012 CAME AC,AC-2 ;TEST QUOT
8140 040243 003 14 0 00 007001 ER3 AC,7001 ;FDV FAILED
8141 040244 321 16 0 00 040236 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
8142
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 28
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0225
8143 ;TEST FDV
8144 ;AR=201.4,202.4,203.4
8145 ;BR=200400000000
8146 ;QUOT=202.4,203.4,204.4
8147
8148 000014 AC=14
8149 SAVEAC (1,1)^
8150 040245 201 16 0 00 040245 MOVEI AC+2,.
8151 040246 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
8152 040247 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8153 040250 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8154 007100 SN=7100
8155 201400 XX=201400
8156 200400 ZZ=200400
8157
8158 P7100: REPEAT ^D3, ;TEST FDV
8159 <SN=SN+1
8160 XX=XX+1000
8161 ZZ=ZZ+1000
8162 MOVSI AC-2,XX ;SETUP FOR COMPARISON
8163 MOVSI AC,ZZ ;SETUP AC
8164 MOVSI AC-1,200400 ;SETUP BR
8165 FDV AC,AC-1 ;C(AC)/C(E)
8166 CAME AC,AC-2 ;TEST QUOT
8167 ER3 AC,7101 ;FDV FAILED
8168 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
8169 >
8170 007101 SN=SN+1
8171 202400 XX=XX+1000
8172 201400 ZZ=ZZ+1000
8173 040251 205 12 0 00 202400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
8174 040252 205 14 0 00 201400 MOVSI AC,ZZ ;SETUP AC
8175 040253 205 13 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
8176 040254 170 14 0 00 000013 FDV AC,AC-1 ;C(AC)/C(E)
8177 040255 312 14 0 00 000012 CAME AC,AC-2 ;TEST QUOT
8178 040256 003 14 0 00 007101 ER3 AC,7101 ;FDV FAILED
8179 040257 321 16 0 00 040251 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
8180
8181 007102 SN=SN+1
8182 203400 XX=XX+1000
8183 202400 ZZ=ZZ+1000
8184 040260 205 12 0 00 203400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
8185 040261 205 14 0 00 202400 MOVSI AC,ZZ ;SETUP AC
8186 040262 205 13 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
8187 040263 170 14 0 00 000013 FDV AC,AC-1 ;C(AC)/C(E)
8188 040264 312 14 0 00 000012 CAME AC,AC-2 ;TEST QUOT
8189 040265 003 14 0 00 007101 ER3 AC,7101 ;FDV FAILED
8190 040266 321 16 0 00 040260 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
8191
8192 007103 SN=SN+1
8193 204400 XX=XX+1000
8194 203400 ZZ=ZZ+1000
8195 040267 205 12 0 00 204400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
8196 040270 205 14 0 00 203400 MOVSI AC,ZZ ;SETUP AC
8197 040271 205 13 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 28-1
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0226
8198 040272 170 14 0 00 000013 FDV AC,AC-1 ;C(AC)/C(E)
8199 040273 312 14 0 00 000012 CAME AC,AC-2 ;TEST QUOT
8200 040274 003 14 0 00 007101 ER3 AC,7101 ;FDV FAILED
8201 040275 321 16 0 00 040267 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
8202
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 29
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0227
8203 ;TEST FDV
8204 ;AR=200.6,200.7,200.74
8205 ;BR=200400000000
8206 ;QUOT=201.6,201.7,201.74
8207
8208 000013 AC=13
8209 SAVEAC (1,1)^
8210 040276 201 15 0 00 040276 MOVEI AC+2,.
8211 040277 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
8212 040300 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8213 040301 202 15 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8214 007200 SN=7200
8215 000200 WW=200
8216 201400 XX=201400
8217 200400 ZZ=200400
8218
8219 P7200: REPEAT ^D3, ;TEST FDV
8220 <SN=SN+1
8221 XX=XX+WW
8222 ZZ=ZZ+WW
8223 WW=WW/2
8224 MOVSI AC-2,XX ;SETUP FOR COMPARISON
8225 MOVSI AC,ZZ ;SETUP AC
8226 MOVSI AC-1,200400 ;SETUP BR
8227 FDV AC,AC-1 ;C(AC)/C(E)
8228 CAME AC,AC-2 ;TEST QUOT
8229 ER3 AC,SN ;FDV FAILED
8230 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
8231 >
8232 007201 SN=SN+1
8233 201600 XX=XX+WW
8234 200600 ZZ=ZZ+WW
8235 000100 WW=WW/2
8236 040302 205 11 0 00 201600 MOVSI AC-2,XX ;SETUP FOR COMPARISON
8237 040303 205 13 0 00 200600 MOVSI AC,ZZ ;SETUP AC
8238 040304 205 12 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
8239 040305 170 13 0 00 000012 FDV AC,AC-1 ;C(AC)/C(E)
8240 040306 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT
8241 040307 003 13 0 00 007201 ER3 AC,SN ;FDV FAILED
8242 040310 321 15 0 00 040302 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
8243
8244 007202 SN=SN+1
8245 201700 XX=XX+WW
8246 200700 ZZ=ZZ+WW
8247 000040 WW=WW/2
8248 040311 205 11 0 00 201700 MOVSI AC-2,XX ;SETUP FOR COMPARISON
8249 040312 205 13 0 00 200700 MOVSI AC,ZZ ;SETUP AC
8250 040313 205 12 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
8251 040314 170 13 0 00 000012 FDV AC,AC-1 ;C(AC)/C(E)
8252 040315 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT
8253 040316 003 13 0 00 007202 ER3 AC,SN ;FDV FAILED
8254 040317 321 15 0 00 040311 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
8255
8256 007203 SN=SN+1
8257 201740 XX=XX+WW
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 29-1
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0228
8258 200740 ZZ=ZZ+WW
8259 000020 WW=WW/2
8260 040320 205 11 0 00 201740 MOVSI AC-2,XX ;SETUP FOR COMPARISON
8261 040321 205 13 0 00 200740 MOVSI AC,ZZ ;SETUP AC
8262 040322 205 12 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
8263 040323 170 13 0 00 000012 FDV AC,AC-1 ;C(AC)/C(E)
8264 040324 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT
8265 040325 003 13 0 00 007203 ER3 AC,SN ;FDV FAILED
8266 040326 321 15 0 00 040320 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
8267
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 30
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0229
8268 ;TEST FDV
8269 ;AR=200.4,200.6
8270 ;BR=577400000000
8271 ;QUOT=576.4,576.2
8272
8273 000012 AC=12
8274 SAVEAC (1,1)^
8275 040327 201 14 0 00 040327 MOVEI AC+2,.
8276 040330 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
8277 040331 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8278 040332 202 14 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8279
8280 007300 SN=7300
8281 576600 XX=576600
8282 200200 ZZ=200200
8283
8284 P7300: REPEAT ^D2, ;TEST FDV
8285 <SN=SN+1
8286 XX=XX-200
8287 ZZ=ZZ+200
8288 MOVSI AC-2,XX ;SETUP FOR COMPARISON
8289 MOVSI AC,ZZ ;SETUP AC
8290 MOVSI AC-1,577400 ;SETUP BR
8291 FDV AC,AC-1 ;C(AC)/C(E)
8292 CAME AC,AC-2 ;TEST QUOT
8293 ER3 AC,SN ;FDV FAILED
8294 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
8295 >
8296 007301 SN=SN+1
8297 576400 XX=XX-200
8298 200400 ZZ=ZZ+200
8299 040333 205 10 0 00 576400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
8300 040334 205 12 0 00 200400 MOVSI AC,ZZ ;SETUP AC
8301 040335 205 11 0 00 577400 MOVSI AC-1,577400 ;SETUP BR
8302 040336 170 12 0 00 000011 FDV AC,AC-1 ;C(AC)/C(E)
8303 040337 312 12 0 00 000010 CAME AC,AC-2 ;TEST QUOT
8304 040340 003 12 0 00 007301 ER3 AC,SN ;FDV FAILED
8305 040341 321 14 0 00 040333 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
8306
8307 007302 SN=SN+1
8308 576200 XX=XX-200
8309 200600 ZZ=ZZ+200
8310 040342 205 10 0 00 576200 MOVSI AC-2,XX ;SETUP FOR COMPARISON
8311 040343 205 12 0 00 200600 MOVSI AC,ZZ ;SETUP AC
8312 040344 205 11 0 00 577400 MOVSI AC-1,577400 ;SETUP BR
8313 040345 170 12 0 00 000011 FDV AC,AC-1 ;C(AC)/C(E)
8314 040346 312 12 0 00 000010 CAME AC,AC-2 ;TEST QUOT
8315 040347 003 12 0 00 007302 ER3 AC,SN ;FDV FAILED
8316 040350 321 14 0 00 040342 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
8317
8318 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 30-1
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0230
8319 ;TEST FDV
8320 ;AR=177400000000
8321 ;BR=204400000000
8322 ;QUOT=1744000000
8323
8324
8325 000011 AC=11
8326 SAVEAC (1,1)^
8327 040351 201 13 0 00 040351 MOVEI AC+2,.
8328 040352 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
8329 040353 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8330 040354 202 13 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8331
8332 040355 205 07 0 00 174400 P7400: MOVSI AC-2,174400 ;SETUP FOR COMPARISON
8333 040356 205 11 0 00 177400 MOVSI AC,177400 ;SETUP AC
8334 040357 205 10 0 00 204400 MOVSI AC-1,204400 ;SETUP BR
8335 040360 170 11 0 00 000010 FDV AC,AC-1 ;C(AC)/C(E)
8336 040361 312 11 0 00 000007 CAME AC,AC-2 ;TEST QUOT
8337 040362 003 11 0 00 007401 ER3 AC,7401 ;FDV FAILED
8338 040363 321 13 0 00 040355 JUMPL AC+2,P7400 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 31
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0231
8339 ;TEST FDV
8340 ;AR=576400000000
8341 ;BR=200600000000
8342 ;QUOT=576252525252
8343
8344 000010 AC=10
8345 SAVEAC (1,1)^
8346 040364 201 12 0 00 040364 MOVEI AC+2,.
8347 040365 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
8348 040366 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8349 040367 202 12 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8350
8351 040370 505 06 0 00 576252 P7500: HRLI AC-2,576252 ;SETUP AC-2
8352 040371 541 06 0 00 525252 HRRI AC-2,525252 ;FOR COMPARISON
8353 040372 205 10 0 00 576400 MOVSI AC,576400 ;SETUP AC
8354 040373 205 07 0 00 200600 MOVSI AC-1,200600 ;SETUP BR
8355 040374 170 10 0 00 000007 FDV AC,AC-1 ;C(AC)/C(E)
8356 040375 312 10 0 00 000006 CAME AC,AC-2 ;TEST QUOT
8357 040376 003 10 0 00 007501 ER3 AC,7501 ;FDV FAILED
8358 040377 321 12 0 00 040370 JUMPL AC+2,P7500 ;LOOP ON ERROR SWITCH
8359 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 31-1
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0232
8360 ;TEST FDV
8361 ;AR=600.6,600.4
8362 ;BR=577400000000
8363 ;QUOT=177.4,200.4
8364
8365
8366 000007 AC=7
8367 SAVEAC (1,1)^
8368 040400 201 11 0 00 040400 MOVEI AC+2,.
8369 040401 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
8370 040402 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8371 040403 202 11 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8372 007600 SN=7600
8373 176400 XX=176400
8374 601000 ZZ=601000
8375
8376 P7600: REPEAT ^D2, ;TEST FDV
8377 <SN=SN+1
8378 XX=XX+1000
8379 ZZ=ZZ-200
8380 MOVSI AC-2,XX ;SETUP FOR COMPARISON
8381 MOVSI AC,ZZ ;SETUP AC
8382 MOVSI AC-1,577400 ;SETUP BR
8383 FDV AC,AC-1 ;C(AC)/C(E)
8384 CAME AC,AC-2 ;TEST QUOT
8385 ER3 AC,SN ;FDV FAILED
8386 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
8387 >
8388 007601 SN=SN+1
8389 177400 XX=XX+1000
8390 600600 ZZ=ZZ-200
8391 040404 205 05 0 00 177400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
8392 040405 205 07 0 00 600600 MOVSI AC,ZZ ;SETUP AC
8393 040406 205 06 0 00 577400 MOVSI AC-1,577400 ;SETUP BR
8394 040407 170 07 0 00 000006 FDV AC,AC-1 ;C(AC)/C(E)
8395 040410 312 07 0 00 000005 CAME AC,AC-2 ;TEST QUOT
8396 040411 003 07 0 00 007601 ER3 AC,SN ;FDV FAILED
8397 040412 321 11 0 00 040404 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
8398
8399 007602 SN=SN+1
8400 200400 XX=XX+1000
8401 600400 ZZ=ZZ-200
8402 040413 205 05 0 00 200400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
8403 040414 205 07 0 00 600400 MOVSI AC,ZZ ;SETUP AC
8404 040415 205 06 0 00 577400 MOVSI AC-1,577400 ;SETUP BR
8405 040416 170 07 0 00 000006 FDV AC,AC-1 ;C(AC)/C(E)
8406 040417 312 07 0 00 000005 CAME AC,AC-2 ;TEST QUOT
8407 040420 003 07 0 00 007602 ER3 AC,SN ;FDV FAILED
8408 040421 321 11 0 00 040413 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
8409
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 32
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0233
8410 ;TEST FDV
8411 ;AR=377400777777
8412 ;BR=577400777777
8413 ;QUOT=777375773771
8414
8415 000006 AC=6
8416 SAVEAC (1,1)^
8417 040422 201 10 0 00 040422 MOVEI AC+2,.
8418 040423 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
8419 040424 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8420 040425 202 10 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8421
8422 040426 505 04 0 00 777375 P7700: HRLI AC-2,777375 ;SETUP AC-2
8423 040427 541 04 0 00 773771 HRRI AC-2,773771 ;FOR COMPARISON
8424 040430 505 06 0 00 377400 HRLI AC,377400 ;SETUP
8425 040431 541 06 0 00 777777 HRRI AC,-1 ;AC
8426 040432 505 05 0 00 577400 HRLI AC-1,577400 ;SETUP
8427 040433 541 05 0 00 777777 HRRI AC-1,-1 ;BR
8428 040434 170 06 0 00 000005 FDV AC,AC-1 ;C(AC)/C(E)
8429 040435 312 06 0 00 000004 CAME AC,AC-2 ;TEST QUOT
8430 040436 003 06 0 00 007701 ER3 AC,7701 ;FDV FAILED
8431 040437 312 05 0 00 070651 CAME AC-1,[577400,,-1] ;EXAMINE C(E)
8432 040440 005 05 0 00 007701 ER5 AC-1,7701 ;C(E) WAS CLOBBERED
8433 040441 321 10 0 00 040426 JUMPL AC+2,P7700 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 33
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0234
8434 ;TEST ECO49
8435 ;TEST FDV DIVIDE CHECK
8436 ;AR=201400000000, 1.0
8437 ;BR=0
8438 ;FLAGS=440040
8439
8440 000006 AC=6
8441 SAVEAC (1,1)^
8442 040442 201 10 0 00 040442 MOVEI AC+2,.
8443 040443 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
8444 040444 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8445 040445 202 10 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8446
8447 040446 254 02 1 00 040447 P10000: JRST 2,@.+1 ;CLEAR PC FLAGS
8448 040447 000000 040450 XWD 0,.+1
8449 040450 205 06 0 00 201400 MOVSI AC,201400 ;SETUP DVND
8450 040451 201 05 0 00 000000 MOVEI AC-1,0 ;SETUP DVSR
8451 040452 170 06 0 00 000005 FDV AC,AC-1 ;FLOATING DIVIDE 1.0 BY 0
8452 040453 265 04 0 00 040454 JSP AC-2,.+1 ;STORE PC AND FLAGS
8453 040454 607 04 0 00 000040 TLNN AC-2,40 ;TEST BIT 12
8454 040455 013 04 0 00 010001 ER13 AC-2,10001 ;AR DCK FAILED TO SET
8455 040456 321 10 0 00 040446 JUMPL AC+2,P10000 ;LOOP ON ERROR SWITCH
8456
8457
8458 ;TEST ECO49
8459 ;TEST UNDERFLOW
8460 ;AR=377400000000
8461 ;BR=000400000000
8462 ;FLAGS=440000
8463
8464 000006 AC=6
8465 SAVEAC (1,1)^
8466 040457 201 10 0 00 040457 MOVEI AC+2,.
8467 040460 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
8468 040461 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8469 040462 202 10 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8470
8471 040463 254 02 1 00 040464 P10100: JRST 2,@.+1 ;CLEAR PC FLAGS
8472 040464 000000 040465 XWD 0,.+1
8473 040465 205 06 0 00 377400 MOVSI AC,377400 ;SETUP DVND
8474 040466 205 05 0 00 000400 MOVSI AC-1,000400 ;SETUP DVSR
8475 040467 170 06 0 00 000005 FDV AC,AC-1 ;FLOATING DIVIDE
8476 040470 265 04 0 00 040471 JSP AC-2,.+1 ;GET PC FLAGS
8477 040471 603 04 0 00 000100 TLNE AC-2,FXU ;UNDERFLOW SHOULD BE 0
8478 040472 013 04 0 00 010101 ER13 AC-2,10101 ;ERROR
8479 040473 321 10 0 00 040463 JUMPL AC+2,P10100 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 34
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0235
8480 ;TEST FDVM
8481 ;AR=577775000000,577774000000
8482 ;BR=577777000000
8483 ;QUOT=577777000000
8484
8485 000005 AC=5
8486 SAVEAC (1,1)^
8487 040474 201 07 0 00 040474 MOVEI AC+2,.
8488 040475 202 07 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
8489 040476 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8490 040477 202 07 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8491 010200 SN=10200
8492 577776 ZZ=577776
8493
8494 P10200: REPEAT ^D2, ;TEST FDVM
8495 <SN=SN+1
8496 ZZ=ZZ-1
8497 MOVSI AC-2,577777 ;SETUP FOR COMPARISON
8498 MOVSI AC,ZZ ;SETUP AC
8499 MOVSI AC-1,577777 ;SETUP BR
8500 FDVM AC,AC-1 ;C(AC)/C(E)
8501 CAME AC-1,AC-2 ;TEST QUOT
8502 ER5 AC-1,SN ;FDVM FAILED
8503 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
8504 >
8505 010201 SN=SN+1
8506 577775 ZZ=ZZ-1
8507 040500 205 03 0 00 577777 MOVSI AC-2,577777 ;SETUP FOR COMPARISON
8508 040501 205 05 0 00 577775 MOVSI AC,ZZ ;SETUP AC
8509 040502 205 04 0 00 577777 MOVSI AC-1,577777 ;SETUP BR
8510 040503 172 05 0 00 000004 FDVM AC,AC-1 ;C(AC)/C(E)
8511 040504 312 04 0 00 000003 CAME AC-1,AC-2 ;TEST QUOT
8512 040505 005 04 0 00 010201 ER5 AC-1,SN ;FDVM FAILED
8513 040506 321 07 0 00 040500 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
8514
8515 010202 SN=SN+1
8516 577774 ZZ=ZZ-1
8517 040507 205 03 0 00 577777 MOVSI AC-2,577777 ;SETUP FOR COMPARISON
8518 040510 205 05 0 00 577774 MOVSI AC,ZZ ;SETUP AC
8519 040511 205 04 0 00 577777 MOVSI AC-1,577777 ;SETUP BR
8520 040512 172 05 0 00 000004 FDVM AC,AC-1 ;C(AC)/C(E)
8521 040513 312 04 0 00 000003 CAME AC-1,AC-2 ;TEST QUOT
8522 040514 005 04 0 00 010202 ER5 AC-1,SN ;FDVM FAILED
8523 040515 321 07 0 00 040507 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
8524
8525 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 34-1
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0236
8526 ;TEST FDVM
8527 ;AR=210777777777
8528 ;BR=170750000000
8529 ;QUOT=221414456123
8530
8531 000014 AC=14
8532 SAVEAC (1,1)^
8533 040516 201 16 0 00 040516 MOVEI AC+2,.
8534 040517 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
8535 040520 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8536 040521 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8537
8538 040522 505 12 0 00 221414 P10300: HRLI AC-2,221414 ;SETUP AC-2
8539 040523 541 12 0 00 456123 HRRI AC-2,456123 ;FOR COMPARISON
8540 040524 505 14 0 00 210777 HRLI AC,210777 ;SETUP
8541 040525 541 14 0 00 777777 HRRI AC,-1 ;AC
8542 040526 205 13 0 00 170750 MOVSI AC-1,170750 ;SETUP BR
8543 040527 172 14 0 00 000013 FDVM AC,AC-1 ;C(AC)/C(E)
8544 040530 312 14 0 00 070652 CAME AC,[210777,,-1] ;EXAMINE C(AC)
8545 040531 003 14 0 00 010301 ER3 AC,10301 ;C(AC) WAS CLOBBERED
8546 040532 312 13 0 00 000012 CAME AC-1,AC-2 ;TEST QUOT
8547 040533 005 13 0 00 010301 ER5 AC-1,10301 ;FDVM FAILED
8548 040534 321 16 0 00 040522 JUMPL AC+2,P10300 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 35
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0237
8549 ;TEST FDVB
8550 ;AR=210777777777
8551 ;BR=170555000000
8552 ;QUOT=221547063714
8553
8554 000014 AC=14
8555 SAVEAC (1,1)^
8556 040535 201 16 0 00 040535 MOVEI AC+2,.
8557 040536 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
8558 040537 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8559 040540 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8560
8561 040541 505 12 0 00 221547 P10400: HRLI AC-2,221547 ;SETUP AC-2
8562 040542 541 12 0 00 063714 HRRI AC-2,63714 ;FOR COMPARISON
8563 040543 505 14 0 00 210777 HRLI AC,210777 ;SETUP
8564 040544 541 14 0 00 777777 HRRI AC,-1 ;AC
8565 040545 205 13 0 00 170555 MOVSI AC-1,170555 ;SETUP BR
8566 040546 173 14 0 00 000013 FDVB AC,AC-1 ;C(AC)/C(E)
8567 040547 312 14 0 00 000012 CAME AC,AC-2 ;TEST QUOT(AC)
8568 040550 003 14 0 00 010401 ER3 AC,10401 ;C(AC) FAILED
8569 040551 312 13 0 00 000012 CAME AC-1,AC-2 ;TEST QUOT(E)
8570 040552 005 13 0 00 010401 ER5 AC-1,10401 ;FDVB FAILED
8571 040553 321 16 0 00 040541 JUMPL AC+2,P10400 ;LOOP ON ERROR SWITCH
8572
8573 ;TEST FDVB
8574 ;AR=577000555555
8575 ;BR=200400000000
8576 ;QUOT=576000555555
8577
8578 000013 AC=13
8579 SAVEAC (1,1)^
8580 040554 201 15 0 00 040554 MOVEI AC+2,.
8581 040555 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
8582 040556 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8583 040557 202 15 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8584
8585 040560 505 11 0 00 576000 P10500: HRLI AC-2,576000 ;SETUP AC-2
8586 040561 541 11 0 00 555555 HRRI AC-2,555555 ;FOR COMPARISON
8587 040562 505 13 0 00 577000 HRLI AC,577000 ;SETUP
8588 040563 541 13 0 00 555555 HRRI AC,555555 ;AC
8589 040564 205 12 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
8590 040565 173 13 0 00 000012 FDVB AC,AC-1 ;C(AC)/C(E)
8591 040566 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT(AC)
8592 040567 003 13 0 00 010501 ER3 AC,10501 ;C(AC) FAILED
8593 040570 312 12 0 00 000011 CAME AC-1,AC-2 ;TEST QUOT(E)
8594 040571 005 12 0 00 010501 ER5 AC-1,10501 ;FDVB FAILED
8595 040572 321 15 0 00 040560 JUMPL AC+2,P10500 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 36
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0238
8596 ;TEST FDVR
8597 ;AR=200777777777
8598 ;BR=200777777776,200777777774
8599 ;QUOT=201400000001,201400000002
8600
8601 000006 AC=6
8602 SAVEAC (1,1)^
8603 040573 201 10 0 00 040573 MOVEI AC+2,.
8604 040574 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
8605 040575 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8606 040576 202 10 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8607
8608 011200 SN=11200
8609 000000 XX=0
8610 000002 ZZ=2
8611
8612 P11200: REPEAT ^D2, ;TEST FDVR
8613 <SN=SN+1
8614 XX=XX+1
8615 ZZ=ZZ-2
8616 IFE ZZ,<ZZ=-2>
8617 HRLI AC-2,201400 ;SETUP AC-2
8618 HRRI AC-2,XX ;FOR COMPARISON
8619 HRLI AC,200777 ;SETUP
8620 HRRI AC,-1 ;AC
8621 HRLI AC-1,200777 ;SETUP
8622 HRRI AC-1,ZZ ;BR
8623 FDVR AC,AC-1 ;C(AC)/C(E)
8624 CAME AC,AC-2 ;TEST QUOT
8625 ER3 AC,SN ;FDVR FAILED
8626 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8627 >
8628 011201 SN=SN+1
8629 000001 XX=XX+1
8630 000000 ZZ=ZZ-2
8631 777777 777776 IFE ZZ,<ZZ=-2>
8632 040577 505 04 0 00 201400 HRLI AC-2,201400 ;SETUP AC-2
8633 040600 541 04 0 00 000001 HRRI AC-2,XX ;FOR COMPARISON
8634 040601 505 06 0 00 200777 HRLI AC,200777 ;SETUP
8635 040602 541 06 0 00 777777 HRRI AC,-1 ;AC
8636 040603 505 05 0 00 200777 HRLI AC-1,200777 ;SETUP
8637 040604 541 05 0 00 777776 HRRI AC-1,ZZ ;BR
8638 040605 174 06 0 00 000005 FDVR AC,AC-1 ;C(AC)/C(E)
8639 040606 312 06 0 00 000004 CAME AC,AC-2 ;TEST QUOT
8640 040607 003 06 0 00 011201 ER3 AC,SN ;FDVR FAILED
8641 040610 321 10 0 00 040577 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8642
8643 011202 SN=SN+1
8644 000002 XX=XX+1
8645 777777 777774 ZZ=ZZ-2
8646 IFE ZZ,<ZZ=-2>
8647 040611 505 04 0 00 201400 HRLI AC-2,201400 ;SETUP AC-2
8648 040612 541 04 0 00 000002 HRRI AC-2,XX ;FOR COMPARISON
8649 040613 505 06 0 00 200777 HRLI AC,200777 ;SETUP
8650 040614 541 06 0 00 777777 HRRI AC,-1 ;AC
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 36-1
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0239
8651 040615 505 05 0 00 200777 HRLI AC-1,200777 ;SETUP
8652 040616 541 05 0 00 777774 HRRI AC-1,ZZ ;BR
8653 040617 174 06 0 00 000005 FDVR AC,AC-1 ;C(AC)/C(E)
8654 040620 312 06 0 00 000004 CAME AC,AC-2 ;TEST QUOT
8655 040621 003 06 0 00 011202 ER3 AC,SN ;FDVR FAILED
8656 040622 321 10 0 00 040611 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8657
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 37
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0240
8658 ;TEST FDVR
8659 ;AR=210777777777
8660 ;BR=170555000000
8661 ;QUOT=221547063715
8662
8663 000005 AC=5
8664 SAVEAC (1,1)^
8665 040623 201 07 0 00 040623 MOVEI AC+2,.
8666 040624 202 07 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
8667 040625 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8668 040626 202 07 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8669
8670 040627 505 03 0 00 221547 P11300: HRLI AC-2,221547 ;SETUP AC-2
8671 040630 541 03 0 00 063715 HRRI AC-2,63715 ;FOR COMPARISON
8672 040631 505 05 0 00 210777 HRLI AC,210777 ;SETUP
8673 040632 541 05 0 00 777777 HRRI AC,-1 ;AC
8674 040633 205 04 0 00 170555 MOVSI AC-1,170555 ;SETUP BR
8675 040634 174 05 0 00 000004 FDVR AC,AC-1 ;C(AC)/C(E)
8676 040635 312 05 0 00 000003 CAME AC,AC-2 ;TEST QUOT
8677 040636 003 05 0 00 011301 ER3 AC,11301 ;FDVR FAILED
8678 040637 321 07 0 00 040627 JUMPL AC+2,P11300 ;LOOP ON ERROR SWITCH
8679
8680 ;TEST FDVR
8681 ;AR=210777777776
8682 ;BR=170555000000
8683 ;QUOT=221547063714(NOT ROUND)
8684
8685 000014 AC=14
8686 SAVEAC (1,1)^
8687 040640 201 16 0 00 040640 MOVEI AC+2,.
8688 040641 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
8689 040642 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8690 040643 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8691
8692 040644 505 12 0 00 221547 P11400: HRLI AC-2,221547 ;SETUP AC-2
8693 040645 541 12 0 00 063714 HRRI AC-2,63714 ;FOR COMPARISON
8694 040646 505 14 0 00 210777 HRLI AC,210777 ;SETUP
8695 040647 541 14 0 00 777776 HRRI AC,-2 ;AC
8696 040650 205 13 0 00 170555 MOVSI AC-1,170555 ;SETUP BR
8697 040651 174 14 0 00 000013 FDVR AC,AC-1 ;C(AC)/C(E)
8698 040652 312 14 0 00 000012 CAME AC,AC-2 ;TEST QUOT
8699 040653 003 14 0 00 011401 ER3 AC,11401 ;FDVR FAILED
8700 040654 321 16 0 00 040644 JUMPL AC+2,P11400 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 38
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0241
8701 ;TEST FDVR
8702 ;AR=210777777777
8703 ;BR=170555600000
8704 ;QUOT=221546272703
8705
8706 000014 AC=14
8707 SAVEAC (1,1)^
8708 040655 201 16 0 00 040655 MOVEI AC+2,.
8709 040656 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
8710 040657 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8711 040660 202 16 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8712
8713 040661 505 12 0 00 221546 P11500: HRLI AC-2,221546 ;SETUP AC-2
8714 040662 541 12 0 00 272703 HRRI AC-2,272703 ;FOR COMPARISON
8715 040663 505 14 0 00 210777 HRLI AC,210777 ;SETUP
8716 040664 541 14 0 00 777777 HRRI AC,-1 ;AC
8717 040665 505 13 0 00 170555 HRLI AC-1,170555 ;SETUP
8718 040666 541 13 0 00 600000 HRRI AC-1,600000 ;BR
8719 040667 174 14 0 00 000013 FDVR AC,AC-1 ;C(AC)/C(E)
8720 040670 312 14 0 00 000012 CAME AC,AC-2 ;TEST QUOT
8721 040671 003 14 0 00 011501 ER3 AC,11501 ;FDVR FAILED
8722 040672 312 13 0 00 070653 CAME AC-1,[170555,,600000] ;EXAMINE C(E)
8723 040673 005 13 0 00 011501 ER5 AC-1,11501 ;C(E) WAS CLOBBERED
8724 040674 321 16 0 00 040661 JUMPL AC+2,P11500 ;LOOP ON ERROR SWITCH
8725
8726 ;TEST FDVRM
8727 ;AR=210777777777
8728 ;BR=170557000000
8729 ;QUOT=221545111741
8730
8731 000013 AC=13
8732 SAVEAC (1,1)^
8733 040675 201 15 0 00 040675 MOVEI AC+2,.
8734 040676 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
8735 040677 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8736 040700 202 15 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8737
8738 040701 505 11 0 00 221545 P11600: HRLI AC-2,221545 ;SETUP AC-2
8739 040702 541 11 0 00 111741 HRRI AC-2,111741 ;FOR COMPARISON
8740 040703 505 13 0 00 210777 HRLI AC,210777 ;SETUP
8741 040704 541 13 0 00 777777 HRRI AC,-1 ;AC
8742 040705 205 12 0 00 170557 MOVSI AC-1,170557 ;SETUP BR
8743 040706 176 13 0 00 000012 FDVRM AC,AC-1 ;C(AC)/C(E)
8744 040707 312 12 0 00 000011 CAME AC-1,AC-2 ;TEST QUOT
8745 040710 005 12 0 00 011601 ER5 AC-1,11601 ;FDVRM FAILED
8746 040711 321 15 0 00 040701 JUMPL AC+2,P11600 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 39
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0242
8747 ;TEST FDVRM
8748 ;AR=210777777777
8749 ;BR=170560000000
8750 ;QUOT=221544131026
8751
8752 000012 AC=12
8753 SAVEAC (1,1)^
8754 040712 201 14 0 00 040712 MOVEI AC+2,.
8755 040713 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
8756 040714 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8757 040715 202 14 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8758
8759 040716 505 10 0 00 221544 P11700: HRLI AC-2,221544 ;SETUP AC-2
8760 040717 541 10 0 00 131026 HRRI AC-2,131026 ;FOR COMPARISON
8761 040720 505 12 0 00 210777 HRLI AC,210777 ;SETUP
8762 040721 541 12 0 00 777777 HRRI AC,-1 ;AC
8763 040722 205 11 0 00 170560 MOVSI AC-1,170560 ;SETUP BR
8764 040723 176 12 0 00 000011 FDVRM AC,AC-1 ;C(AC)/C(E)
8765 040724 312 12 0 00 070652 CAME AC,[210777,,-1] ;EXAMINE C(AC)
8766 040725 003 12 0 00 011701 ER3 AC,11701 ;C(AC) WAS CLOBBERED
8767 040726 312 11 0 00 000010 CAME AC-1,AC-2 ;TEST QUOT
8768 040727 005 11 0 00 011701 ER5 AC-1,11701 ;FDVRM FAILED
8769 040730 321 14 0 00 040716 JUMPL AC+2,P11700 ;LOOP ON ERROR SWITCH
8770
8771 ;TEST FDVRB
8772 ;AR=377400000000
8773 ;BR=100777000000
8774 ;QUOT=077400400401
8775
8776 000011 AC=11
8777 SAVEAC (1,1)^
8778 040731 201 13 0 00 040731 MOVEI AC+2,.
8779 040732 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
8780 040733 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8781 040734 202 13 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8782
8783 040735 505 07 0 00 077400 P12000: HRLI AC-2,77400 ;SETUP AC-2
8784 040736 541 07 0 00 400401 HRRI AC-2,400401 ;FOR COMPARISON
8785 040737 205 11 0 00 377400 MOVSI AC,377400 ;SETUP AC
8786 040740 205 10 0 00 100777 MOVSI AC-1,100777 ;SETUP BR
8787 040741 177 11 0 00 000010 FDVRB AC,AC-1 ;C(AC(/C(E)
8788 040742 316 11 0 00 000007 CAMN AC,AC-2 ;TEST QUOT(AC)
8789 040743 312 10 0 00 000007 CAME AC-1,AC-2 ;TEST QUOT(E)
8790 040744 005 10 0 00 012001 ER5 AC-1,12001 ;FDVRB FAILED
8791 040745 321 13 0 00 040735 JUMPL AC+2,P12000 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 40
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0243
8792 ;TEST FDVRB
8793 ;AR=376.4,375.4,374.4,373.4,372.4
8794 ;BR=100777000000
8795 ;QUOT=076,075,074,073,072:400400401
8796
8797 000010 AC=10
8798 SAVEAC (1,1)^
8799 040746 201 12 0 00 040746 MOVEI AC+2,.
8800 040747 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
8801 040750 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8802 040751 202 12 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8803
8804 012100 SN=12100
8805 077400 XX=77400
8806 377400 ZZ=377400
8807
8808 P12100: REPEAT ^D5, ;TEST FDVRB
8809 <SN=SN+1
8810 XX=XX-1000
8811 ZZ=ZZ-1000
8812 HRLI AC-2,XX ;SETUP AC-2
8813 HRRI AC-2,400401 ;FOR COMPARISON
8814 MOVSI AC,ZZ ;SETUP AC
8815 MOVSI AC-1,100777 ;SETUP BR
8816 FDVRB AC,AC-1 ;C(AC)/C(E)
8817 CAME AC,AC-2 ;TEST QUOT(AC)
8818 ER3 AC,SN ;C(AC) FAILED
8819 CAME AC-1,AC-2 ;TEST QUOT(E)
8820 ER5 AC-1,SN ;FDVRB FAILED
8821 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8822 >
8823 012101 SN=SN+1
8824 076400 XX=XX-1000
8825 376400 ZZ=ZZ-1000
8826 040752 505 06 0 00 076400 HRLI AC-2,XX ;SETUP AC-2
8827 040753 541 06 0 00 400401 HRRI AC-2,400401 ;FOR COMPARISON
8828 040754 205 10 0 00 376400 MOVSI AC,ZZ ;SETUP AC
8829 040755 205 07 0 00 100777 MOVSI AC-1,100777 ;SETUP BR
8830 040756 177 10 0 00 000007 FDVRB AC,AC-1 ;C(AC)/C(E)
8831 040757 312 10 0 00 000006 CAME AC,AC-2 ;TEST QUOT(AC)
8832 040760 003 10 0 00 012101 ER3 AC,SN ;C(AC) FAILED
8833 040761 312 07 0 00 000006 CAME AC-1,AC-2 ;TEST QUOT(E)
8834 040762 005 07 0 00 012101 ER5 AC-1,SN ;FDVRB FAILED
8835 040763 321 12 0 00 040752 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8836
8837 012102 SN=SN+1
8838 075400 XX=XX-1000
8839 375400 ZZ=ZZ-1000
8840 040764 505 06 0 00 075400 HRLI AC-2,XX ;SETUP AC-2
8841 040765 541 06 0 00 400401 HRRI AC-2,400401 ;FOR COMPARISON
8842 040766 205 10 0 00 375400 MOVSI AC,ZZ ;SETUP AC
8843 040767 205 07 0 00 100777 MOVSI AC-1,100777 ;SETUP BR
8844 040770 177 10 0 00 000007 FDVRB AC,AC-1 ;C(AC)/C(E)
8845 040771 312 10 0 00 000006 CAME AC,AC-2 ;TEST QUOT(AC)
8846 040772 003 10 0 00 012102 ER3 AC,SN ;C(AC) FAILED
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 40-1
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0244
8847 040773 312 07 0 00 000006 CAME AC-1,AC-2 ;TEST QUOT(E)
8848 040774 005 07 0 00 012102 ER5 AC-1,SN ;FDVRB FAILED
8849 040775 321 12 0 00 040764 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8850
8851 012103 SN=SN+1
8852 074400 XX=XX-1000
8853 374400 ZZ=ZZ-1000
8854 040776 505 06 0 00 074400 HRLI AC-2,XX ;SETUP AC-2
8855 040777 541 06 0 00 400401 HRRI AC-2,400401 ;FOR COMPARISON
8856 041000 205 10 0 00 374400 MOVSI AC,ZZ ;SETUP AC
8857 041001 205 07 0 00 100777 MOVSI AC-1,100777 ;SETUP BR
8858 041002 177 10 0 00 000007 FDVRB AC,AC-1 ;C(AC)/C(E)
8859 041003 312 10 0 00 000006 CAME AC,AC-2 ;TEST QUOT(AC)
8860 041004 003 10 0 00 012103 ER3 AC,SN ;C(AC) FAILED
8861 041005 312 07 0 00 000006 CAME AC-1,AC-2 ;TEST QUOT(E)
8862 041006 005 07 0 00 012103 ER5 AC-1,SN ;FDVRB FAILED
8863 041007 321 12 0 00 040776 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8864
8865 012104 SN=SN+1
8866 073400 XX=XX-1000
8867 373400 ZZ=ZZ-1000
8868 041010 505 06 0 00 073400 HRLI AC-2,XX ;SETUP AC-2
8869 041011 541 06 0 00 400401 HRRI AC-2,400401 ;FOR COMPARISON
8870 041012 205 10 0 00 373400 MOVSI AC,ZZ ;SETUP AC
8871 041013 205 07 0 00 100777 MOVSI AC-1,100777 ;SETUP BR
8872 041014 177 10 0 00 000007 FDVRB AC,AC-1 ;C(AC)/C(E)
8873 041015 312 10 0 00 000006 CAME AC,AC-2 ;TEST QUOT(AC)
8874 041016 003 10 0 00 012104 ER3 AC,SN ;C(AC) FAILED
8875 041017 312 07 0 00 000006 CAME AC-1,AC-2 ;TEST QUOT(E)
8876 041020 005 07 0 00 012104 ER5 AC-1,SN ;FDVRB FAILED
8877 041021 321 12 0 00 041010 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8878
8879 012105 SN=SN+1
8880 072400 XX=XX-1000
8881 372400 ZZ=ZZ-1000
8882 041022 505 06 0 00 072400 HRLI AC-2,XX ;SETUP AC-2
8883 041023 541 06 0 00 400401 HRRI AC-2,400401 ;FOR COMPARISON
8884 041024 205 10 0 00 372400 MOVSI AC,ZZ ;SETUP AC
8885 041025 205 07 0 00 100777 MOVSI AC-1,100777 ;SETUP BR
8886 041026 177 10 0 00 000007 FDVRB AC,AC-1 ;C(AC)/C(E)
8887 041027 312 10 0 00 000006 CAME AC,AC-2 ;TEST QUOT(AC)
8888 041030 003 10 0 00 012105 ER3 AC,SN ;C(AC) FAILED
8889 041031 312 07 0 00 000006 CAME AC-1,AC-2 ;TEST QUOT(E)
8890 041032 005 07 0 00 012105 ER5 AC-1,SN ;FDVRB FAILED
8891 041033 321 12 0 00 041022 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
8892
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 41
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0245
8893 ;TEST FDVRI
8894 ;AR=210777000000
8895 ;E=210777
8896 ;QUOT=201400000000
8897
8898 000007 AC=7
8899 SAVEAC (1,1)^
8900 041034 201 11 0 00 041034 MOVEI AC+2,.
8901 041035 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
8902 041036 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8903 041037 202 11 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8904
8905 041040 205 05 0 00 201400 P12200: MOVSI AC-2,201400 ;SETUP FOR COMPARISON
8906 041041 205 07 0 00 210777 MOVSI AC,210777 ;SETUP AC
8907 041042 175 07 0 00 210777 FDVRI AC,210777 ;C(AC)/E
8908 041043 312 07 0 00 000005 CAME AC,AC-2 ;TEST QUOT
8909 041044 003 07 0 00 012201 ER3 AC,12201 ;FDVRI FAILED
8910 041045 321 11 0 00 041040 JUMPL AC+2,P12200 ;LOOP ON ERROR SWITCH
8911
8912 ;TEST FDVRI
8913 ;AR=200400000000
8914 ;E=210777
8915 ;QUOT=170400400401
8916
8917 000006 AC=6
8918 SAVEAC (1,1)^
8919 041046 201 10 0 00 041046 MOVEI AC+2,.
8920 041047 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
8921 041050 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8922 041051 202 10 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8923
8924 041052 505 04 0 00 170400 P12300: HRLI AC-2,170400 ;SETUP AC-2
8925 041053 541 04 0 00 400401 HRRI AC-2,400401 ;FOR COMPARISON
8926 041054 205 06 0 00 200400 MOVSI AC,200400 ;SETUP AC
8927 041055 175 06 0 00 210777 FDVRI AC,210777 ;C(AC)/E
8928 041056 312 06 0 00 000004 CAME AC,AC-2 ;TEST QUOT
8929 041057 003 06 0 00 012301 ER3 AC,12301 ;FDVRI FAILED
8930 041060 321 10 0 00 041052 JUMPL AC+2,P12300 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 42
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0246
8931 ;TEST FDVRI
8932 ;AR=371.4,370.4,367.4
8933 ;E=100777
8934 ;QUOT=071,070,067:400400401
8935
8936 000005 AC=5
8937 SAVEAC (1,1)^
8938 041061 201 07 0 00 041061 MOVEI AC+2,.
8939 041062 202 07 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
8940 041063 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8941 041064 202 07 0 00 073775 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8942
8943 012400 SN=12400
8944 072400 XX=72400
8945 372400 ZZ=372400
8946
8947 P12400: REPEAT ^D3, ;TEST FDVRI
8948 <SN=SN+1
8949 XX=XX-1000
8950 ZZ=ZZ-1000
8951 HRLI AC-2,XX ;SETUP AC-2
8952 HRRI AC-2,400401 ;FOR COMPARISON
8953 MOVSI AC,ZZ ;SETUP AC
8954 FDVRI AC,100777 ;C(AC)/E
8955 CAME AC,AC-2 ;TEST QUOT
8956 ER3 AC,SN ;FDVRI FAILED
8957 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
8958 >
8959 012401 SN=SN+1
8960 071400 XX=XX-1000
8961 371400 ZZ=ZZ-1000
8962 041065 505 03 0 00 071400 HRLI AC-2,XX ;SETUP AC-2
8963 041066 541 03 0 00 400401 HRRI AC-2,400401 ;FOR COMPARISON
8964 041067 205 05 0 00 371400 MOVSI AC,ZZ ;SETUP AC
8965 041070 175 05 0 00 100777 FDVRI AC,100777 ;C(AC)/E
8966 041071 312 05 0 00 000003 CAME AC,AC-2 ;TEST QUOT
8967 041072 003 05 0 00 012401 ER3 AC,SN ;FDVRI FAILED
8968 041073 321 07 0 00 041065 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
8969
8970 012402 SN=SN+1
8971 070400 XX=XX-1000
8972 370400 ZZ=ZZ-1000
8973 041074 505 03 0 00 070400 HRLI AC-2,XX ;SETUP AC-2
8974 041075 541 03 0 00 400401 HRRI AC-2,400401 ;FOR COMPARISON
8975 041076 205 05 0 00 370400 MOVSI AC,ZZ ;SETUP AC
8976 041077 175 05 0 00 100777 FDVRI AC,100777 ;C(AC)/E
8977 041100 312 05 0 00 000003 CAME AC,AC-2 ;TEST QUOT
8978 041101 003 05 0 00 012402 ER3 AC,SN ;FDVRI FAILED
8979 041102 321 07 0 00 041074 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
8980
8981 012403 SN=SN+1
8982 067400 XX=XX-1000
8983 367400 ZZ=ZZ-1000
8984 041103 505 03 0 00 067400 HRLI AC-2,XX ;SETUP AC-2
8985 041104 541 03 0 00 400401 HRRI AC-2,400401 ;FOR COMPARISON
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 42-1
DFKCA2 MAC 3-Oct-80 13:56 PART IIIB-GEN TEST-FMP,FDV SEQ 0247
8986 041105 205 05 0 00 367400 MOVSI AC,ZZ ;SETUP AC
8987 041106 175 05 0 00 100777 FDVRI AC,100777 ;C(AC)/E
8988 041107 312 05 0 00 000003 CAME AC,AC-2 ;TEST QUOT
8989 041110 003 05 0 00 012403 ER3 AC,SN ;FDVRI FAILED
8990 041111 321 07 0 00 041103 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
8991
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - CONVERSION OF 0 SEQ 0248
8992 SUBTTL DIAGNOSTIC SECTION - FIX - CONVERSION OF 0
8993
8994 DEFINE SAVEAC (A,B)<
8995 MOVEI SAC,.
8996 MOVEM SAC,TESTPC ;SETUP SUBTEST PC
8997 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH
8998 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION>
8999
9000 ;CHECK THAT 'FIX AC,E' DOES NOT MODIFY C(E)
9001 000004 CC00: AC=4
9002 000010 SAC=<AC+4>&17
9003 SAVEAC (1,1)^
9004 041112 201 10 0 00 041112 MOVEI SAC,.
9005 041113 202 10 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC
9006 041114 201 10 0 00 000010 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH
9007 041115 202 10 0 00 073775 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^
9008
9009 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION DOES NOT DESTROY C(E)
9010
9011 041116 200 02 0 00 070654 Q10: MOVE AC-2,[233525,,252525] ;LOAD 'E' WITH DATA
9012 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN E TO FIX PT AND STORE IN AC
9013 041117 122 04 0 00 000002
9014 041120 312 02 0 00 070654 CAME AC-2,[233525,,252525] ;WAS FLT PT NBR MODIFIED
9015 041121 005 02 0 00 000011 ER5 AC-2,11 ;C(E) WAS CLOBBERED
9016 041122 321 10 0 00 041116 JUMPL SAC,Q10 ;LOOP ON ERROR SWITCH
9017
9018 ;CONVERT A FLOAT POINT NO. OF ZEROS TO FIXED PT
9019
9020 000004 AC=4
9021 000010 SAC=<AC+4>&17
9022 SAVEAC (1,1)^
9023 041123 201 10 0 00 041123 MOVEI SAC,.
9024 041124 202 10 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC
9025 041125 201 10 0 00 000010 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH
9026 041126 202 10 0 00 073775 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^
9027
9028 ;THIS TEST VERIFIES THAT A FLT PT NO. OF 0 CONVERTED TO FIX PT BY
9029 ;FIX, REMAINS 0.
9030
9031 041127 402 00 0 00 000002 Q100: SETZM AC-2 ;INITIALIZE FLT PT NBR IN 'E'
9032 041130 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO OF 0 TO FIX PT
9033 041131 302 04 0 00 000000 CAIE AC,0 ;WAS FLT PT 0 CONVERTED CORRECTLY?
9034 041132 003 04 0 00 000101 ER3 AC,101 ;FIX PT NBR IS INCORRECT
9035 041133 321 10 0 00 041127 JUMPL SAC,Q100 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0249
9036 SUBTTL DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES
9037
9038 000200 SN=200
9039 200400 XX=200400
9040 000000 YY=0
9041
9042 Q200: REPEAT ^D18,<
9043 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9044 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9045 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9046
9047 SN=SN+1
9048 XX=XX+1000
9049 YY=YY+YY
9050 IFE YY,<YY=1>
9051 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9052 HRRZI AC-1,YY ;RESULT FOR COMPARISON
9053 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9054 AC
9055 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9056 ER3 AC,SN ;FIX PT NBR INCORRECT
9057 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9058 >
9059
9060 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9061 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9062 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9063
9064 000201 SN=SN+1
9065 201400 XX=XX+1000
9066 000000 YY=YY+YY
9067 000001 IFE YY,<YY=1>
9068 041134 205 02 0 00 201400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9069 041135 551 03 0 00 000001 HRRZI AC-1,YY ;RESULT FOR COMPARISON
9070 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9071 041136 122 04 0 00 000002 AC
9072 041137 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9073 041140 003 04 0 00 000201 ER3 AC,SN ;FIX PT NBR INCORRECT
9074 041141 321 10 0 00 041134 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9075
9076
9077 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9078 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9079 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9080
9081 000202 SN=SN+1
9082 202400 XX=XX+1000
9083 000002 YY=YY+YY
9084 IFE YY,<YY=1>
9085 041142 205 02 0 00 202400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9086 041143 551 03 0 00 000002 HRRZI AC-1,YY ;RESULT FOR COMPARISON
9087 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9088 041144 122 04 0 00 000002 AC
9089 041145 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9090 041146 003 04 0 00 000202 ER3 AC,SN ;FIX PT NBR INCORRECT
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-1
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0250
9091 041147 321 10 0 00 041142 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9092
9093
9094 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9095 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9096 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9097
9098 000203 SN=SN+1
9099 203400 XX=XX+1000
9100 000004 YY=YY+YY
9101 IFE YY,<YY=1>
9102 041150 205 02 0 00 203400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9103 041151 551 03 0 00 000004 HRRZI AC-1,YY ;RESULT FOR COMPARISON
9104 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9105 041152 122 04 0 00 000002 AC
9106 041153 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9107 041154 003 04 0 00 000203 ER3 AC,SN ;FIX PT NBR INCORRECT
9108 041155 321 10 0 00 041150 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9109
9110
9111 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9112 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9113 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9114
9115 000204 SN=SN+1
9116 204400 XX=XX+1000
9117 000010 YY=YY+YY
9118 IFE YY,<YY=1>
9119 041156 205 02 0 00 204400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9120 041157 551 03 0 00 000010 HRRZI AC-1,YY ;RESULT FOR COMPARISON
9121 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9122 041160 122 04 0 00 000002 AC
9123 041161 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9124 041162 003 04 0 00 000204 ER3 AC,SN ;FIX PT NBR INCORRECT
9125 041163 321 10 0 00 041156 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9126
9127
9128 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9129 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9130 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9131
9132 000205 SN=SN+1
9133 205400 XX=XX+1000
9134 000020 YY=YY+YY
9135 IFE YY,<YY=1>
9136 041164 205 02 0 00 205400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9137 041165 551 03 0 00 000020 HRRZI AC-1,YY ;RESULT FOR COMPARISON
9138 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9139 041166 122 04 0 00 000002 AC
9140 041167 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9141 041170 003 04 0 00 000205 ER3 AC,SN ;FIX PT NBR INCORRECT
9142 041171 321 10 0 00 041164 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9143
9144
9145 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-2
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0251
9146 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9147 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9148
9149 000206 SN=SN+1
9150 206400 XX=XX+1000
9151 000040 YY=YY+YY
9152 IFE YY,<YY=1>
9153 041172 205 02 0 00 206400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9154 041173 551 03 0 00 000040 HRRZI AC-1,YY ;RESULT FOR COMPARISON
9155 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9156 041174 122 04 0 00 000002 AC
9157 041175 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9158 041176 003 04 0 00 000206 ER3 AC,SN ;FIX PT NBR INCORRECT
9159 041177 321 10 0 00 041172 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9160
9161
9162 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9163 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9164 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9165
9166 000207 SN=SN+1
9167 207400 XX=XX+1000
9168 000100 YY=YY+YY
9169 IFE YY,<YY=1>
9170 041200 205 02 0 00 207400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9171 041201 551 03 0 00 000100 HRRZI AC-1,YY ;RESULT FOR COMPARISON
9172 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9173 041202 122 04 0 00 000002 AC
9174 041203 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9175 041204 003 04 0 00 000207 ER3 AC,SN ;FIX PT NBR INCORRECT
9176 041205 321 10 0 00 041200 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9177
9178
9179 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9180 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9181 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9182
9183 000210 SN=SN+1
9184 210400 XX=XX+1000
9185 000200 YY=YY+YY
9186 IFE YY,<YY=1>
9187 041206 205 02 0 00 210400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9188 041207 551 03 0 00 000200 HRRZI AC-1,YY ;RESULT FOR COMPARISON
9189 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9190 041210 122 04 0 00 000002 AC
9191 041211 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9192 041212 003 04 0 00 000210 ER3 AC,SN ;FIX PT NBR INCORRECT
9193 041213 321 10 0 00 041206 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9194
9195
9196 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9197 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9198 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9199
9200 000211 SN=SN+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-3
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0252
9201 211400 XX=XX+1000
9202 000400 YY=YY+YY
9203 IFE YY,<YY=1>
9204 041214 205 02 0 00 211400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9205 041215 551 03 0 00 000400 HRRZI AC-1,YY ;RESULT FOR COMPARISON
9206 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9207 041216 122 04 0 00 000002 AC
9208 041217 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9209 041220 003 04 0 00 000211 ER3 AC,SN ;FIX PT NBR INCORRECT
9210 041221 321 10 0 00 041214 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9211
9212
9213 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9214 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9215 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9216
9217 000212 SN=SN+1
9218 212400 XX=XX+1000
9219 001000 YY=YY+YY
9220 IFE YY,<YY=1>
9221 041222 205 02 0 00 212400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9222 041223 551 03 0 00 001000 HRRZI AC-1,YY ;RESULT FOR COMPARISON
9223 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9224 041224 122 04 0 00 000002 AC
9225 041225 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9226 041226 003 04 0 00 000212 ER3 AC,SN ;FIX PT NBR INCORRECT
9227 041227 321 10 0 00 041222 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9228
9229
9230 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9231 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9232 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9233
9234 000213 SN=SN+1
9235 213400 XX=XX+1000
9236 002000 YY=YY+YY
9237 IFE YY,<YY=1>
9238 041230 205 02 0 00 213400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9239 041231 551 03 0 00 002000 HRRZI AC-1,YY ;RESULT FOR COMPARISON
9240 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9241 041232 122 04 0 00 000002 AC
9242 041233 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9243 041234 003 04 0 00 000213 ER3 AC,SN ;FIX PT NBR INCORRECT
9244 041235 321 10 0 00 041230 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9245
9246
9247 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9248 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9249 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9250
9251 000214 SN=SN+1
9252 214400 XX=XX+1000
9253 004000 YY=YY+YY
9254 IFE YY,<YY=1>
9255 041236 205 02 0 00 214400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-4
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0253
9256 041237 551 03 0 00 004000 HRRZI AC-1,YY ;RESULT FOR COMPARISON
9257 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9258 041240 122 04 0 00 000002 AC
9259 041241 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9260 041242 003 04 0 00 000214 ER3 AC,SN ;FIX PT NBR INCORRECT
9261 041243 321 10 0 00 041236 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9262
9263
9264 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9265 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9266 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9267
9268 000215 SN=SN+1
9269 215400 XX=XX+1000
9270 010000 YY=YY+YY
9271 IFE YY,<YY=1>
9272 041244 205 02 0 00 215400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9273 041245 551 03 0 00 010000 HRRZI AC-1,YY ;RESULT FOR COMPARISON
9274 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9275 041246 122 04 0 00 000002 AC
9276 041247 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9277 041250 003 04 0 00 000215 ER3 AC,SN ;FIX PT NBR INCORRECT
9278 041251 321 10 0 00 041244 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9279
9280
9281 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9282 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9283 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9284
9285 000216 SN=SN+1
9286 216400 XX=XX+1000
9287 020000 YY=YY+YY
9288 IFE YY,<YY=1>
9289 041252 205 02 0 00 216400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9290 041253 551 03 0 00 020000 HRRZI AC-1,YY ;RESULT FOR COMPARISON
9291 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9292 041254 122 04 0 00 000002 AC
9293 041255 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9294 041256 003 04 0 00 000216 ER3 AC,SN ;FIX PT NBR INCORRECT
9295 041257 321 10 0 00 041252 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9296
9297
9298 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9299 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9300 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9301
9302 000217 SN=SN+1
9303 217400 XX=XX+1000
9304 040000 YY=YY+YY
9305 IFE YY,<YY=1>
9306 041260 205 02 0 00 217400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9307 041261 551 03 0 00 040000 HRRZI AC-1,YY ;RESULT FOR COMPARISON
9308 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9309 041262 122 04 0 00 000002 AC
9310 041263 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-5
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0254
9311 041264 003 04 0 00 000217 ER3 AC,SN ;FIX PT NBR INCORRECT
9312 041265 321 10 0 00 041260 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9313
9314
9315 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9316 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9317 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9318
9319 000220 SN=SN+1
9320 220400 XX=XX+1000
9321 100000 YY=YY+YY
9322 IFE YY,<YY=1>
9323 041266 205 02 0 00 220400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9324 041267 551 03 0 00 100000 HRRZI AC-1,YY ;RESULT FOR COMPARISON
9325 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9326 041270 122 04 0 00 000002 AC
9327 041271 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9328 041272 003 04 0 00 000220 ER3 AC,SN ;FIX PT NBR INCORRECT
9329 041273 321 10 0 00 041266 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9330
9331
9332 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9333 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9334 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9335
9336 000221 SN=SN+1
9337 221400 XX=XX+1000
9338 200000 YY=YY+YY
9339 IFE YY,<YY=1>
9340 041274 205 02 0 00 221400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9341 041275 551 03 0 00 200000 HRRZI AC-1,YY ;RESULT FOR COMPARISON
9342 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9343 041276 122 04 0 00 000002 AC
9344 041277 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9345 041300 003 04 0 00 000221 ER3 AC,SN ;FIX PT NBR INCORRECT
9346 041301 321 10 0 00 041274 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9347
9348
9349 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9350 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9351 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9352
9353 000222 SN=SN+1
9354 222400 XX=XX+1000
9355 400000 YY=YY+YY
9356 IFE YY,<YY=1>
9357 041302 205 02 0 00 222400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9358 041303 551 03 0 00 400000 HRRZI AC-1,YY ;RESULT FOR COMPARISON
9359 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9360 041304 122 04 0 00 000002 AC
9361 041305 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9362 041306 003 04 0 00 000222 ER3 AC,SN ;FIX PT NBR INCORRECT
9363 041307 321 10 0 00 041302 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9364
9365 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-6
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0255
9366 000300 SN=300
9367 000000 YY=0
9368
9369 Q300: REPEAT ^D17,<
9370 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9371 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9372 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9373
9374 SN=SN+1
9375 XX=XX+1000
9376 YY=YY+YY
9377 IFE YY,<YY=1>
9378 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9379 MOVSI AC-1,YY ;RESULT FOR COMPARISON
9380 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9381 AC
9382 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9383 ER3 AC,SN ;FIX PT NBR INCORRECT
9384 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9385 >
9386
9387 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9388 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9389 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9390
9391 000301 SN=SN+1
9392 223400 XX=XX+1000
9393 000000 YY=YY+YY
9394 000001 IFE YY,<YY=1>
9395 041310 205 02 0 00 223400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9396 041311 205 03 0 00 000001 MOVSI AC-1,YY ;RESULT FOR COMPARISON
9397 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9398 041312 122 04 0 00 000002 AC
9399 041313 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9400 041314 003 04 0 00 000301 ER3 AC,SN ;FIX PT NBR INCORRECT
9401 041315 321 10 0 00 041310 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9402
9403
9404 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9405 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9406 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9407
9408 000302 SN=SN+1
9409 224400 XX=XX+1000
9410 000002 YY=YY+YY
9411 IFE YY,<YY=1>
9412 041316 205 02 0 00 224400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9413 041317 205 03 0 00 000002 MOVSI AC-1,YY ;RESULT FOR COMPARISON
9414 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9415 041320 122 04 0 00 000002 AC
9416 041321 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9417 041322 003 04 0 00 000302 ER3 AC,SN ;FIX PT NBR INCORRECT
9418 041323 321 10 0 00 041316 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9419
9420
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-7
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0256
9421 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9422 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9423 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9424
9425 000303 SN=SN+1
9426 225400 XX=XX+1000
9427 000004 YY=YY+YY
9428 IFE YY,<YY=1>
9429 041324 205 02 0 00 225400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9430 041325 205 03 0 00 000004 MOVSI AC-1,YY ;RESULT FOR COMPARISON
9431 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9432 041326 122 04 0 00 000002 AC
9433 041327 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9434 041330 003 04 0 00 000303 ER3 AC,SN ;FIX PT NBR INCORRECT
9435 041331 321 10 0 00 041324 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9436
9437
9438 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9439 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9440 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9441
9442 000304 SN=SN+1
9443 226400 XX=XX+1000
9444 000010 YY=YY+YY
9445 IFE YY,<YY=1>
9446 041332 205 02 0 00 226400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9447 041333 205 03 0 00 000010 MOVSI AC-1,YY ;RESULT FOR COMPARISON
9448 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9449 041334 122 04 0 00 000002 AC
9450 041335 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9451 041336 003 04 0 00 000304 ER3 AC,SN ;FIX PT NBR INCORRECT
9452 041337 321 10 0 00 041332 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9453
9454
9455 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9456 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9457 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9458
9459 000305 SN=SN+1
9460 227400 XX=XX+1000
9461 000020 YY=YY+YY
9462 IFE YY,<YY=1>
9463 041340 205 02 0 00 227400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9464 041341 205 03 0 00 000020 MOVSI AC-1,YY ;RESULT FOR COMPARISON
9465 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9466 041342 122 04 0 00 000002 AC
9467 041343 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9468 041344 003 04 0 00 000305 ER3 AC,SN ;FIX PT NBR INCORRECT
9469 041345 321 10 0 00 041340 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9470
9471
9472 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9473 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9474 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9475
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-8
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0257
9476 000306 SN=SN+1
9477 230400 XX=XX+1000
9478 000040 YY=YY+YY
9479 IFE YY,<YY=1>
9480 041346 205 02 0 00 230400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9481 041347 205 03 0 00 000040 MOVSI AC-1,YY ;RESULT FOR COMPARISON
9482 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9483 041350 122 04 0 00 000002 AC
9484 041351 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9485 041352 003 04 0 00 000306 ER3 AC,SN ;FIX PT NBR INCORRECT
9486 041353 321 10 0 00 041346 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9487
9488
9489 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9490 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9491 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9492
9493 000307 SN=SN+1
9494 231400 XX=XX+1000
9495 000100 YY=YY+YY
9496 IFE YY,<YY=1>
9497 041354 205 02 0 00 231400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9498 041355 205 03 0 00 000100 MOVSI AC-1,YY ;RESULT FOR COMPARISON
9499 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9500 041356 122 04 0 00 000002 AC
9501 041357 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9502 041360 003 04 0 00 000307 ER3 AC,SN ;FIX PT NBR INCORRECT
9503 041361 321 10 0 00 041354 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9504
9505
9506 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9507 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9508 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9509
9510 000310 SN=SN+1
9511 232400 XX=XX+1000
9512 000200 YY=YY+YY
9513 IFE YY,<YY=1>
9514 041362 205 02 0 00 232400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9515 041363 205 03 0 00 000200 MOVSI AC-1,YY ;RESULT FOR COMPARISON
9516 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9517 041364 122 04 0 00 000002 AC
9518 041365 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9519 041366 003 04 0 00 000310 ER3 AC,SN ;FIX PT NBR INCORRECT
9520 041367 321 10 0 00 041362 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9521
9522
9523 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9524 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9525 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9526
9527 000311 SN=SN+1
9528 233400 XX=XX+1000
9529 000400 YY=YY+YY
9530 IFE YY,<YY=1>
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-9
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0258
9531 041370 205 02 0 00 233400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9532 041371 205 03 0 00 000400 MOVSI AC-1,YY ;RESULT FOR COMPARISON
9533 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9534 041372 122 04 0 00 000002 AC
9535 041373 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9536 041374 003 04 0 00 000311 ER3 AC,SN ;FIX PT NBR INCORRECT
9537 041375 321 10 0 00 041370 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9538
9539
9540 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9541 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9542 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9543
9544 000312 SN=SN+1
9545 234400 XX=XX+1000
9546 001000 YY=YY+YY
9547 IFE YY,<YY=1>
9548 041376 205 02 0 00 234400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9549 041377 205 03 0 00 001000 MOVSI AC-1,YY ;RESULT FOR COMPARISON
9550 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9551 041400 122 04 0 00 000002 AC
9552 041401 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9553 041402 003 04 0 00 000312 ER3 AC,SN ;FIX PT NBR INCORRECT
9554 041403 321 10 0 00 041376 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9555
9556
9557 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9558 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9559 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9560
9561 000313 SN=SN+1
9562 235400 XX=XX+1000
9563 002000 YY=YY+YY
9564 IFE YY,<YY=1>
9565 041404 205 02 0 00 235400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9566 041405 205 03 0 00 002000 MOVSI AC-1,YY ;RESULT FOR COMPARISON
9567 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9568 041406 122 04 0 00 000002 AC
9569 041407 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9570 041410 003 04 0 00 000313 ER3 AC,SN ;FIX PT NBR INCORRECT
9571 041411 321 10 0 00 041404 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9572
9573
9574 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9575 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9576 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9577
9578 000314 SN=SN+1
9579 236400 XX=XX+1000
9580 004000 YY=YY+YY
9581 IFE YY,<YY=1>
9582 041412 205 02 0 00 236400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9583 041413 205 03 0 00 004000 MOVSI AC-1,YY ;RESULT FOR COMPARISON
9584 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9585 041414 122 04 0 00 000002 AC
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-10
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0259
9586 041415 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9587 041416 003 04 0 00 000314 ER3 AC,SN ;FIX PT NBR INCORRECT
9588 041417 321 10 0 00 041412 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9589
9590
9591 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9592 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9593 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9594
9595 000315 SN=SN+1
9596 237400 XX=XX+1000
9597 010000 YY=YY+YY
9598 IFE YY,<YY=1>
9599 041420 205 02 0 00 237400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9600 041421 205 03 0 00 010000 MOVSI AC-1,YY ;RESULT FOR COMPARISON
9601 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9602 041422 122 04 0 00 000002 AC
9603 041423 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9604 041424 003 04 0 00 000315 ER3 AC,SN ;FIX PT NBR INCORRECT
9605 041425 321 10 0 00 041420 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9606
9607
9608 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9609 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9610 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9611
9612 000316 SN=SN+1
9613 240400 XX=XX+1000
9614 020000 YY=YY+YY
9615 IFE YY,<YY=1>
9616 041426 205 02 0 00 240400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9617 041427 205 03 0 00 020000 MOVSI AC-1,YY ;RESULT FOR COMPARISON
9618 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9619 041430 122 04 0 00 000002 AC
9620 041431 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9621 041432 003 04 0 00 000316 ER3 AC,SN ;FIX PT NBR INCORRECT
9622 041433 321 10 0 00 041426 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9623
9624
9625 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9626 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9627 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9628
9629 000317 SN=SN+1
9630 241400 XX=XX+1000
9631 040000 YY=YY+YY
9632 IFE YY,<YY=1>
9633 041434 205 02 0 00 241400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9634 041435 205 03 0 00 040000 MOVSI AC-1,YY ;RESULT FOR COMPARISON
9635 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9636 041436 122 04 0 00 000002 AC
9637 041437 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9638 041440 003 04 0 00 000317 ER3 AC,SN ;FIX PT NBR INCORRECT
9639 041441 321 10 0 00 041434 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9640
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-11
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0260
9641
9642 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9643 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9644 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9645
9646 000320 SN=SN+1
9647 242400 XX=XX+1000
9648 100000 YY=YY+YY
9649 IFE YY,<YY=1>
9650 041442 205 02 0 00 242400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9651 041443 205 03 0 00 100000 MOVSI AC-1,YY ;RESULT FOR COMPARISON
9652 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9653 041444 122 04 0 00 000002 AC
9654 041445 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9655 041446 003 04 0 00 000320 ER3 AC,SN ;FIX PT NBR INCORRECT
9656 041447 321 10 0 00 041442 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9657
9658
9659 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9660 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9661 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
9662
9663 000321 SN=SN+1
9664 243400 XX=XX+1000
9665 200000 YY=YY+YY
9666 IFE YY,<YY=1>
9667 041450 205 02 0 00 243400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9668 041451 205 03 0 00 200000 MOVSI AC-1,YY ;RESULT FOR COMPARISON
9669 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN
9670 041452 122 04 0 00 000002 AC
9671 041453 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
9672 041454 003 04 0 00 000321 ER3 AC,SN ;FIX PT NBR INCORRECT
9673 041455 321 10 0 00 041450 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9674
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1 SEQ 0261
9675 SUBTTL DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1
9676
9677 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
9678
9679 000500 SN=500
9680 200000 XX=200000
9681 001000 YY=1000
9682
9683 Q500: REPEAT ^D9,<
9684 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9685 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9686 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
9687
9688 SN=SN+1
9689 XX=XX+1000
9690 YY=YY/2
9691 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9692 TLO AC-2,YY ;RESULT FOR COMPARISON
9693 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN
9694 AC
9695 CAIE AC,1 ;IS RESULT IN AC = 1?
9696 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
9697 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9698 >
9699
9700 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9701 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9702 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
9703
9704 000501 SN=SN+1
9705 201000 XX=XX+1000
9706 000400 YY=YY/2
9707 041456 205 02 0 00 201000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9708 041457 661 02 0 00 000400 TLO AC-2,YY ;RESULT FOR COMPARISON
9709 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN
9710 041460 122 04 0 00 000002 AC
9711 041461 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
9712 041462 003 04 0 00 000501 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
9713 041463 321 10 0 00 041456 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9714
9715
9716 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9717 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9718 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
9719
9720 000502 SN=SN+1
9721 202000 XX=XX+1000
9722 000200 YY=YY/2
9723 041464 205 02 0 00 202000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9724 041465 661 02 0 00 000200 TLO AC-2,YY ;RESULT FOR COMPARISON
9725 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN
9726 041466 122 04 0 00 000002 AC
9727 041467 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
9728 041470 003 04 0 00 000502 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
9729 041471 321 10 0 00 041464 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-1
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1 SEQ 0262
9730
9731
9732 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9733 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9734 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
9735
9736 000503 SN=SN+1
9737 203000 XX=XX+1000
9738 000100 YY=YY/2
9739 041472 205 02 0 00 203000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9740 041473 661 02 0 00 000100 TLO AC-2,YY ;RESULT FOR COMPARISON
9741 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN
9742 041474 122 04 0 00 000002 AC
9743 041475 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
9744 041476 003 04 0 00 000503 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
9745 041477 321 10 0 00 041472 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9746
9747
9748 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9749 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9750 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
9751
9752 000504 SN=SN+1
9753 204000 XX=XX+1000
9754 000040 YY=YY/2
9755 041500 205 02 0 00 204000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9756 041501 661 02 0 00 000040 TLO AC-2,YY ;RESULT FOR COMPARISON
9757 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN
9758 041502 122 04 0 00 000002 AC
9759 041503 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
9760 041504 003 04 0 00 000504 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
9761 041505 321 10 0 00 041500 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9762
9763
9764 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9765 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9766 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
9767
9768 000505 SN=SN+1
9769 205000 XX=XX+1000
9770 000020 YY=YY/2
9771 041506 205 02 0 00 205000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9772 041507 661 02 0 00 000020 TLO AC-2,YY ;RESULT FOR COMPARISON
9773 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN
9774 041510 122 04 0 00 000002 AC
9775 041511 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
9776 041512 003 04 0 00 000505 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
9777 041513 321 10 0 00 041506 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9778
9779
9780 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9781 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9782 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
9783
9784 000506 SN=SN+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-2
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1 SEQ 0263
9785 206000 XX=XX+1000
9786 000010 YY=YY/2
9787 041514 205 02 0 00 206000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9788 041515 661 02 0 00 000010 TLO AC-2,YY ;RESULT FOR COMPARISON
9789 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN
9790 041516 122 04 0 00 000002 AC
9791 041517 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
9792 041520 003 04 0 00 000506 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
9793 041521 321 10 0 00 041514 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9794
9795
9796 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9797 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9798 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
9799
9800 000507 SN=SN+1
9801 207000 XX=XX+1000
9802 000004 YY=YY/2
9803 041522 205 02 0 00 207000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9804 041523 661 02 0 00 000004 TLO AC-2,YY ;RESULT FOR COMPARISON
9805 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN
9806 041524 122 04 0 00 000002 AC
9807 041525 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
9808 041526 003 04 0 00 000507 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
9809 041527 321 10 0 00 041522 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9810
9811
9812 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9813 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9814 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
9815
9816 000510 SN=SN+1
9817 210000 XX=XX+1000
9818 000002 YY=YY/2
9819 041530 205 02 0 00 210000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9820 041531 661 02 0 00 000002 TLO AC-2,YY ;RESULT FOR COMPARISON
9821 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN
9822 041532 122 04 0 00 000002 AC
9823 041533 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
9824 041534 003 04 0 00 000510 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
9825 041535 321 10 0 00 041530 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9826
9827
9828 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9829 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9830 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
9831
9832 000511 SN=SN+1
9833 211000 XX=XX+1000
9834 000001 YY=YY/2
9835 041536 205 02 0 00 211000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9836 041537 661 02 0 00 000001 TLO AC-2,YY ;RESULT FOR COMPARISON
9837 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN
9838 041540 122 04 0 00 000002 AC
9839 041541 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-3
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1 SEQ 0264
9840 041542 003 04 0 00 000511 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
9841 041543 321 10 0 00 041536 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9842
9843 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-4
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1 SEQ 0265
9844 000600 SN=600
9845 000000 YY=0
9846
9847 Q600: REPEAT ^D18,<
9848 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9849 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9850 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
9851
9852 SN=SN+1
9853 XX=XX+1000
9854 YY=YY/2
9855 IFE YY,<YY=400000>
9856 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9857 HRRI AC-2,YY
9858 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN
9859 AC
9860 CAIE AC,1 ;IS RESULT IN AC = 1?
9861 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
9862 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9863 >
9864
9865 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9866 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9867 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
9868
9869 000601 SN=SN+1
9870 212000 XX=XX+1000
9871 000000 YY=YY/2
9872 400000 IFE YY,<YY=400000>
9873 041544 205 02 0 00 212000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9874 041545 541 02 0 00 400000 HRRI AC-2,YY
9875 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN
9876 041546 122 04 0 00 000002 AC
9877 041547 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
9878 041550 003 04 0 00 000601 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
9879 041551 321 10 0 00 041544 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9880
9881
9882 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9883 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9884 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
9885
9886 000602 SN=SN+1
9887 213000 XX=XX+1000
9888 200000 YY=YY/2
9889 IFE YY,<YY=400000>
9890 041552 205 02 0 00 213000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9891 041553 541 02 0 00 200000 HRRI AC-2,YY
9892 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN
9893 041554 122 04 0 00 000002 AC
9894 041555 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
9895 041556 003 04 0 00 000602 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
9896 041557 321 10 0 00 041552 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9897
9898
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-5
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1 SEQ 0266
9899 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9900 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9901 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
9902
9903 000603 SN=SN+1
9904 214000 XX=XX+1000
9905 100000 YY=YY/2
9906 IFE YY,<YY=400000>
9907 041560 205 02 0 00 214000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9908 041561 541 02 0 00 100000 HRRI AC-2,YY
9909 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN
9910 041562 122 04 0 00 000002 AC
9911 041563 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
9912 041564 003 04 0 00 000603 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
9913 041565 321 10 0 00 041560 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9914
9915
9916 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9917 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9918 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
9919
9920 000604 SN=SN+1
9921 215000 XX=XX+1000
9922 040000 YY=YY/2
9923 IFE YY,<YY=400000>
9924 041566 205 02 0 00 215000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9925 041567 541 02 0 00 040000 HRRI AC-2,YY
9926 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN
9927 041570 122 04 0 00 000002 AC
9928 041571 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
9929 041572 003 04 0 00 000604 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
9930 041573 321 10 0 00 041566 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9931
9932
9933 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9934 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9935 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
9936
9937 000605 SN=SN+1
9938 216000 XX=XX+1000
9939 020000 YY=YY/2
9940 IFE YY,<YY=400000>
9941 041574 205 02 0 00 216000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9942 041575 541 02 0 00 020000 HRRI AC-2,YY
9943 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN
9944 041576 122 04 0 00 000002 AC
9945 041577 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
9946 041600 003 04 0 00 000605 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
9947 041601 321 10 0 00 041574 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9948
9949
9950 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9951 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9952 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
9953
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-6
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1 SEQ 0267
9954 000606 SN=SN+1
9955 217000 XX=XX+1000
9956 010000 YY=YY/2
9957 IFE YY,<YY=400000>
9958 041602 205 02 0 00 217000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9959 041603 541 02 0 00 010000 HRRI AC-2,YY
9960 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN
9961 041604 122 04 0 00 000002 AC
9962 041605 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
9963 041606 003 04 0 00 000606 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
9964 041607 321 10 0 00 041602 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9965
9966
9967 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9968 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9969 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
9970
9971 000607 SN=SN+1
9972 220000 XX=XX+1000
9973 004000 YY=YY/2
9974 IFE YY,<YY=400000>
9975 041610 205 02 0 00 220000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9976 041611 541 02 0 00 004000 HRRI AC-2,YY
9977 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN
9978 041612 122 04 0 00 000002 AC
9979 041613 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
9980 041614 003 04 0 00 000607 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
9981 041615 321 10 0 00 041610 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9982
9983
9984 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
9985 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
9986 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
9987
9988 000610 SN=SN+1
9989 221000 XX=XX+1000
9990 002000 YY=YY/2
9991 IFE YY,<YY=400000>
9992 041616 205 02 0 00 221000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
9993 041617 541 02 0 00 002000 HRRI AC-2,YY
9994 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN
9995 041620 122 04 0 00 000002 AC
9996 041621 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
9997 041622 003 04 0 00 000610 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
9998 041623 321 10 0 00 041616 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
9999
10000
10001 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10002 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10003 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
10004
10005 000611 SN=SN+1
10006 222000 XX=XX+1000
10007 001000 YY=YY/2
10008 IFE YY,<YY=400000>
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-7
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1 SEQ 0268
10009 041624 205 02 0 00 222000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10010 041625 541 02 0 00 001000 HRRI AC-2,YY
10011 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN
10012 041626 122 04 0 00 000002 AC
10013 041627 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
10014 041630 003 04 0 00 000611 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
10015 041631 321 10 0 00 041624 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
10016
10017
10018 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10019 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10020 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
10021
10022 000612 SN=SN+1
10023 223000 XX=XX+1000
10024 000400 YY=YY/2
10025 IFE YY,<YY=400000>
10026 041632 205 02 0 00 223000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10027 041633 541 02 0 00 000400 HRRI AC-2,YY
10028 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN
10029 041634 122 04 0 00 000002 AC
10030 041635 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
10031 041636 003 04 0 00 000612 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
10032 041637 321 10 0 00 041632 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
10033
10034
10035 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10036 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10037 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
10038
10039 000613 SN=SN+1
10040 224000 XX=XX+1000
10041 000200 YY=YY/2
10042 IFE YY,<YY=400000>
10043 041640 205 02 0 00 224000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10044 041641 541 02 0 00 000200 HRRI AC-2,YY
10045 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN
10046 041642 122 04 0 00 000002 AC
10047 041643 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
10048 041644 003 04 0 00 000613 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
10049 041645 321 10 0 00 041640 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
10050
10051
10052 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10053 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10054 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
10055
10056 000614 SN=SN+1
10057 225000 XX=XX+1000
10058 000100 YY=YY/2
10059 IFE YY,<YY=400000>
10060 041646 205 02 0 00 225000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10061 041647 541 02 0 00 000100 HRRI AC-2,YY
10062 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN
10063 041650 122 04 0 00 000002 AC
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-8
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1 SEQ 0269
10064 041651 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
10065 041652 003 04 0 00 000614 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
10066 041653 321 10 0 00 041646 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
10067
10068
10069 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10070 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10071 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
10072
10073 000615 SN=SN+1
10074 226000 XX=XX+1000
10075 000040 YY=YY/2
10076 IFE YY,<YY=400000>
10077 041654 205 02 0 00 226000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10078 041655 541 02 0 00 000040 HRRI AC-2,YY
10079 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN
10080 041656 122 04 0 00 000002 AC
10081 041657 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
10082 041660 003 04 0 00 000615 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
10083 041661 321 10 0 00 041654 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
10084
10085
10086 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10087 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10088 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
10089
10090 000616 SN=SN+1
10091 227000 XX=XX+1000
10092 000020 YY=YY/2
10093 IFE YY,<YY=400000>
10094 041662 205 02 0 00 227000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10095 041663 541 02 0 00 000020 HRRI AC-2,YY
10096 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN
10097 041664 122 04 0 00 000002 AC
10098 041665 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
10099 041666 003 04 0 00 000616 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
10100 041667 321 10 0 00 041662 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
10101
10102
10103 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10104 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10105 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
10106
10107 000617 SN=SN+1
10108 230000 XX=XX+1000
10109 000010 YY=YY/2
10110 IFE YY,<YY=400000>
10111 041670 205 02 0 00 230000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10112 041671 541 02 0 00 000010 HRRI AC-2,YY
10113 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN
10114 041672 122 04 0 00 000002 AC
10115 041673 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
10116 041674 003 04 0 00 000617 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
10117 041675 321 10 0 00 041670 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
10118
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-9
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1 SEQ 0270
10119
10120 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10121 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10122 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
10123
10124 000620 SN=SN+1
10125 231000 XX=XX+1000
10126 000004 YY=YY/2
10127 IFE YY,<YY=400000>
10128 041676 205 02 0 00 231000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10129 041677 541 02 0 00 000004 HRRI AC-2,YY
10130 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN
10131 041700 122 04 0 00 000002 AC
10132 041701 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
10133 041702 003 04 0 00 000620 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
10134 041703 321 10 0 00 041676 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
10135
10136
10137 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10138 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10139 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
10140
10141 000621 SN=SN+1
10142 232000 XX=XX+1000
10143 000002 YY=YY/2
10144 IFE YY,<YY=400000>
10145 041704 205 02 0 00 232000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10146 041705 541 02 0 00 000002 HRRI AC-2,YY
10147 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN
10148 041706 122 04 0 00 000002 AC
10149 041707 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
10150 041710 003 04 0 00 000621 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
10151 041711 321 10 0 00 041704 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
10152
10153
10154 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10155 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10156 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
10157
10158 000622 SN=SN+1
10159 233000 XX=XX+1000
10160 000001 YY=YY/2
10161 IFE YY,<YY=400000>
10162 041712 205 02 0 00 233000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10163 041713 541 02 0 00 000001 HRRI AC-2,YY
10164 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN
10165 041714 122 04 0 00 000002 AC
10166 041715 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
10167 041716 003 04 0 00 000622 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
10168 041717 321 10 0 00 041712 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
10169
10170
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0271
10171 SUBTTL DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS
10172
10173 000700 SN=700
10174 577000 XX=577000
10175 000000 ZZ=0
10176
10177 Q700: REPEAT ^D2,<
10178 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10179 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10180 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10181
10182 SN=SN+1
10183 XX=XX-1000
10184 ZZ=<ZZ+ZZ>&777777
10185 IFE ZZ,<ZZ=777777>
10186 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10187 TLO AC-2,400
10188 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
10189 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
10190 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10191 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10192 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10193 >
10194
10195 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10196 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10197 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10198
10199 000701 SN=SN+1
10200 576000 XX=XX-1000
10201 000000 ZZ=<ZZ+ZZ>&777777
10202 777777 IFE ZZ,<ZZ=777777>
10203 041720 205 02 0 00 576000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10204 041721 661 02 0 00 000400 TLO AC-2,400
10205 041722 561 03 0 00 777777 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
10206 041723 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
10207 041724 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10208 041725 003 04 0 00 000701 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10209 041726 321 10 0 00 041720 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10210
10211
10212 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10213 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10214 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10215
10216 000702 SN=SN+1
10217 575000 XX=XX-1000
10218 777776 ZZ=<ZZ+ZZ>&777777
10219 IFE ZZ,<ZZ=777777>
10220 041727 205 02 0 00 575000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10221 041730 661 02 0 00 000400 TLO AC-2,400
10222 041731 561 03 0 00 777776 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
10223 041732 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
10224 041733 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10225 041734 003 04 0 00 000702 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5-1
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0272
10226 041735 321 10 0 00 041727 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10227
10228 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5-2
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0273
10229 001000 SN=1000
10230 576000 XX=576000
10231 000000 YY=0
10232 777776 ZZ=777776
10233
10234 Q1000: REPEAT ^D8,<
10235 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10236 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10237 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10238
10239 SN=SN+1
10240 XX=XX-1000
10241 YY=YY!<YY/2>
10242 ZZ=<ZZ+ZZ+1>&777777
10243 IFE YY,<YY=200>
10244 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10245 TLO AC-2,YY
10246 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
10247 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
10248 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10249 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10250 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10251 >
10252
10253 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10254 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10255 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10256
10257 001001 SN=SN+1
10258 575000 XX=XX-1000
10259 000000 YY=YY!<YY/2>
10260 777775 ZZ=<ZZ+ZZ+1>&777777
10261 000200 IFE YY,<YY=200>
10262 041736 205 02 0 00 575000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10263 041737 661 02 0 00 000200 TLO AC-2,YY
10264 041740 561 03 0 00 777775 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
10265 041741 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
10266 041742 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10267 041743 003 04 0 00 001001 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10268 041744 321 10 0 00 041736 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10269
10270
10271 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10272 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10273 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10274
10275 001002 SN=SN+1
10276 574000 XX=XX-1000
10277 000300 YY=YY!<YY/2>
10278 777773 ZZ=<ZZ+ZZ+1>&777777
10279 IFE YY,<YY=200>
10280 041745 205 02 0 00 574000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10281 041746 661 02 0 00 000300 TLO AC-2,YY
10282 041747 561 03 0 00 777773 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
10283 041750 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5-3
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0274
10284 041751 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10285 041752 003 04 0 00 001002 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10286 041753 321 10 0 00 041745 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10287
10288
10289 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10290 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10291 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10292
10293 001003 SN=SN+1
10294 573000 XX=XX-1000
10295 000340 YY=YY!<YY/2>
10296 777767 ZZ=<ZZ+ZZ+1>&777777
10297 IFE YY,<YY=200>
10298 041754 205 02 0 00 573000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10299 041755 661 02 0 00 000340 TLO AC-2,YY
10300 041756 561 03 0 00 777767 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
10301 041757 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
10302 041760 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10303 041761 003 04 0 00 001003 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10304 041762 321 10 0 00 041754 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10305
10306
10307 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10308 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10309 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10310
10311 001004 SN=SN+1
10312 572000 XX=XX-1000
10313 000360 YY=YY!<YY/2>
10314 777757 ZZ=<ZZ+ZZ+1>&777777
10315 IFE YY,<YY=200>
10316 041763 205 02 0 00 572000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10317 041764 661 02 0 00 000360 TLO AC-2,YY
10318 041765 561 03 0 00 777757 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
10319 041766 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
10320 041767 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10321 041770 003 04 0 00 001004 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10322 041771 321 10 0 00 041763 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10323
10324
10325 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10326 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10327 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10328
10329 001005 SN=SN+1
10330 571000 XX=XX-1000
10331 000370 YY=YY!<YY/2>
10332 777737 ZZ=<ZZ+ZZ+1>&777777
10333 IFE YY,<YY=200>
10334 041772 205 02 0 00 571000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10335 041773 661 02 0 00 000370 TLO AC-2,YY
10336 041774 561 03 0 00 777737 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
10337 041775 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
10338 041776 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5-4
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0275
10339 041777 003 04 0 00 001005 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10340 042000 321 10 0 00 041772 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10341
10342
10343 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10344 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10345 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10346
10347 001006 SN=SN+1
10348 570000 XX=XX-1000
10349 000374 YY=YY!<YY/2>
10350 777677 ZZ=<ZZ+ZZ+1>&777777
10351 IFE YY,<YY=200>
10352 042001 205 02 0 00 570000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10353 042002 661 02 0 00 000374 TLO AC-2,YY
10354 042003 561 03 0 00 777677 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
10355 042004 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
10356 042005 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10357 042006 003 04 0 00 001006 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10358 042007 321 10 0 00 042001 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10359
10360
10361 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10362 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10363 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10364
10365 001007 SN=SN+1
10366 567000 XX=XX-1000
10367 000376 YY=YY!<YY/2>
10368 777577 ZZ=<ZZ+ZZ+1>&777777
10369 IFE YY,<YY=200>
10370 042010 205 02 0 00 567000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10371 042011 661 02 0 00 000376 TLO AC-2,YY
10372 042012 561 03 0 00 777577 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
10373 042013 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
10374 042014 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10375 042015 003 04 0 00 001007 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10376 042016 321 10 0 00 042010 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10377
10378
10379 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10380 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10381 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10382
10383 001010 SN=SN+1
10384 566000 XX=XX-1000
10385 000377 YY=YY!<YY/2>
10386 777377 ZZ=<ZZ+ZZ+1>&777777
10387 IFE YY,<YY=200>
10388 042017 205 02 0 00 566000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10389 042020 661 02 0 00 000377 TLO AC-2,YY
10390 042021 561 03 0 00 777377 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
10391 042022 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
10392 042023 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10393 042024 003 04 0 00 001010 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5-5
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0276
10394 042025 321 10 0 00 042017 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10395
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0277
10396 001100 SN=1100
10397 566377 XX=566377
10398 000000 YY=0
10399 777377 ZZ=777377
10400
10401 Q1100: REPEAT ^D9,<
10402 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10403 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10404 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10405
10406 SN=SN+1
10407 XX=XX-1000
10408 YY=YY!<YY/2>
10409 ZZ=<ZZ+ZZ+1>&777777
10410 IFE YY,<YY=400000>
10411 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10412 HRRI AC-2,YY
10413 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
10414 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' T0 FIX PT
10415 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10416 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10417 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10418 >
10419
10420 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10421 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10422 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10423
10424 001101 SN=SN+1
10425 565377 XX=XX-1000
10426 000000 YY=YY!<YY/2>
10427 776777 ZZ=<ZZ+ZZ+1>&777777
10428 400000 IFE YY,<YY=400000>
10429 042026 205 02 0 00 565377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10430 042027 541 02 0 00 400000 HRRI AC-2,YY
10431 042030 561 03 0 00 776777 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
10432 042031 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' T0 FIX PT
10433 042032 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10434 042033 003 04 0 00 001101 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10435 042034 321 10 0 00 042026 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10436
10437
10438 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10439 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10440 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10441
10442 001102 SN=SN+1
10443 564377 XX=XX-1000
10444 600000 YY=YY!<YY/2>
10445 775777 ZZ=<ZZ+ZZ+1>&777777
10446 IFE YY,<YY=400000>
10447 042035 205 02 0 00 564377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10448 042036 541 02 0 00 600000 HRRI AC-2,YY
10449 042037 561 03 0 00 775777 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
10450 042040 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' T0 FIX PT
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6-1
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0278
10451 042041 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10452 042042 003 04 0 00 001102 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10453 042043 321 10 0 00 042035 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10454
10455
10456 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10457 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10458 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10459
10460 001103 SN=SN+1
10461 563377 XX=XX-1000
10462 700000 YY=YY!<YY/2>
10463 773777 ZZ=<ZZ+ZZ+1>&777777
10464 IFE YY,<YY=400000>
10465 042044 205 02 0 00 563377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10466 042045 541 02 0 00 700000 HRRI AC-2,YY
10467 042046 561 03 0 00 773777 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
10468 042047 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' T0 FIX PT
10469 042050 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10470 042051 003 04 0 00 001103 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10471 042052 321 10 0 00 042044 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10472
10473
10474 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10475 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10476 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10477
10478 001104 SN=SN+1
10479 562377 XX=XX-1000
10480 740000 YY=YY!<YY/2>
10481 767777 ZZ=<ZZ+ZZ+1>&777777
10482 IFE YY,<YY=400000>
10483 042053 205 02 0 00 562377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10484 042054 541 02 0 00 740000 HRRI AC-2,YY
10485 042055 561 03 0 00 767777 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
10486 042056 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' T0 FIX PT
10487 042057 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10488 042060 003 04 0 00 001104 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10489 042061 321 10 0 00 042053 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10490
10491
10492 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10493 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10494 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10495
10496 001105 SN=SN+1
10497 561377 XX=XX-1000
10498 760000 YY=YY!<YY/2>
10499 757777 ZZ=<ZZ+ZZ+1>&777777
10500 IFE YY,<YY=400000>
10501 042062 205 02 0 00 561377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10502 042063 541 02 0 00 760000 HRRI AC-2,YY
10503 042064 561 03 0 00 757777 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
10504 042065 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' T0 FIX PT
10505 042066 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6-2
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0279
10506 042067 003 04 0 00 001105 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10507 042070 321 10 0 00 042062 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10508
10509
10510 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10511 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10512 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10513
10514 001106 SN=SN+1
10515 560377 XX=XX-1000
10516 770000 YY=YY!<YY/2>
10517 737777 ZZ=<ZZ+ZZ+1>&777777
10518 IFE YY,<YY=400000>
10519 042071 205 02 0 00 560377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10520 042072 541 02 0 00 770000 HRRI AC-2,YY
10521 042073 561 03 0 00 737777 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
10522 042074 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' T0 FIX PT
10523 042075 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10524 042076 003 04 0 00 001106 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10525 042077 321 10 0 00 042071 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10526
10527
10528 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10529 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10530 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10531
10532 001107 SN=SN+1
10533 557377 XX=XX-1000
10534 774000 YY=YY!<YY/2>
10535 677777 ZZ=<ZZ+ZZ+1>&777777
10536 IFE YY,<YY=400000>
10537 042100 205 02 0 00 557377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10538 042101 541 02 0 00 774000 HRRI AC-2,YY
10539 042102 561 03 0 00 677777 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
10540 042103 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' T0 FIX PT
10541 042104 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10542 042105 003 04 0 00 001107 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10543 042106 321 10 0 00 042100 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10544
10545
10546 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10547 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10548 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10549
10550 001110 SN=SN+1
10551 556377 XX=XX-1000
10552 776000 YY=YY!<YY/2>
10553 577777 ZZ=<ZZ+ZZ+1>&777777
10554 IFE YY,<YY=400000>
10555 042107 205 02 0 00 556377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10556 042110 541 02 0 00 776000 HRRI AC-2,YY
10557 042111 561 03 0 00 577777 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
10558 042112 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' T0 FIX PT
10559 042113 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10560 042114 003 04 0 00 001110 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6-3
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0280
10561 042115 321 10 0 00 042107 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10562
10563
10564 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10565 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10566 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10567
10568 001111 SN=SN+1
10569 555377 XX=XX-1000
10570 777000 YY=YY!<YY/2>
10571 377777 ZZ=<ZZ+ZZ+1>&777777
10572 IFE YY,<YY=400000>
10573 042116 205 02 0 00 555377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10574 042117 541 02 0 00 777000 HRRI AC-2,YY
10575 042120 561 03 0 00 377777 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
10576 042121 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' T0 FIX PT
10577 042122 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10578 042123 003 04 0 00 001111 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10579 042124 321 10 0 00 042116 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10580
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0281
10581
10582
10583 001200 SN=1200
10584 000000 ZZ=0
10585
10586 Q1200: REPEAT ^D9,<
10587 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10588 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10589 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10590
10591 SN=SN+1
10592 XX=XX-1000
10593 YY=YY!<YY/2>
10594 ZZ=<ZZ+ZZ+1>&777777
10595 IFE <ZZ-1>,<ZZ=777776>
10596 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10597 HRRI AC-2,YY ;RESULT FOR COMPARISON
10598 HRLOI AC-1,ZZ
10599 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
10600 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10601 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10602 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10603 >
10604
10605 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10606 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10607 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10608
10609 001201 SN=SN+1
10610 554377 XX=XX-1000
10611 777400 YY=YY!<YY/2>
10612 000001 ZZ=<ZZ+ZZ+1>&777777
10613 777776 IFE <ZZ-1>,<ZZ=777776>
10614 042125 205 02 0 00 554377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10615 042126 541 02 0 00 777400 HRRI AC-2,YY ;RESULT FOR COMPARISON
10616 042127 525 03 0 00 777776 HRLOI AC-1,ZZ
10617 042130 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
10618 042131 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10619 042132 003 04 0 00 001201 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10620 042133 321 10 0 00 042125 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10621
10622
10623 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10624 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10625 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10626
10627 001202 SN=SN+1
10628 553377 XX=XX-1000
10629 777600 YY=YY!<YY/2>
10630 777775 ZZ=<ZZ+ZZ+1>&777777
10631 IFE <ZZ-1>,<ZZ=777776>
10632 042134 205 02 0 00 553377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10633 042135 541 02 0 00 777600 HRRI AC-2,YY ;RESULT FOR COMPARISON
10634 042136 525 03 0 00 777775 HRLOI AC-1,ZZ
10635 042137 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-1
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0282
10636 042140 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10637 042141 003 04 0 00 001202 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10638 042142 321 10 0 00 042134 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10639
10640
10641 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10642 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10643 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10644
10645 001203 SN=SN+1
10646 552377 XX=XX-1000
10647 777700 YY=YY!<YY/2>
10648 777773 ZZ=<ZZ+ZZ+1>&777777
10649 IFE <ZZ-1>,<ZZ=777776>
10650 042143 205 02 0 00 552377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10651 042144 541 02 0 00 777700 HRRI AC-2,YY ;RESULT FOR COMPARISON
10652 042145 525 03 0 00 777773 HRLOI AC-1,ZZ
10653 042146 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
10654 042147 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10655 042150 003 04 0 00 001203 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10656 042151 321 10 0 00 042143 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10657
10658
10659 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10660 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10661 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10662
10663 001204 SN=SN+1
10664 551377 XX=XX-1000
10665 777740 YY=YY!<YY/2>
10666 777767 ZZ=<ZZ+ZZ+1>&777777
10667 IFE <ZZ-1>,<ZZ=777776>
10668 042152 205 02 0 00 551377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10669 042153 541 02 0 00 777740 HRRI AC-2,YY ;RESULT FOR COMPARISON
10670 042154 525 03 0 00 777767 HRLOI AC-1,ZZ
10671 042155 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
10672 042156 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10673 042157 003 04 0 00 001204 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10674 042160 321 10 0 00 042152 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10675
10676
10677 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10678 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10679 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10680
10681 001205 SN=SN+1
10682 550377 XX=XX-1000
10683 777760 YY=YY!<YY/2>
10684 777757 ZZ=<ZZ+ZZ+1>&777777
10685 IFE <ZZ-1>,<ZZ=777776>
10686 042161 205 02 0 00 550377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10687 042162 541 02 0 00 777760 HRRI AC-2,YY ;RESULT FOR COMPARISON
10688 042163 525 03 0 00 777757 HRLOI AC-1,ZZ
10689 042164 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
10690 042165 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-2
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0283
10691 042166 003 04 0 00 001205 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10692 042167 321 10 0 00 042161 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10693
10694
10695 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10696 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10697 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10698
10699 001206 SN=SN+1
10700 547377 XX=XX-1000
10701 777770 YY=YY!<YY/2>
10702 777737 ZZ=<ZZ+ZZ+1>&777777
10703 IFE <ZZ-1>,<ZZ=777776>
10704 042170 205 02 0 00 547377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10705 042171 541 02 0 00 777770 HRRI AC-2,YY ;RESULT FOR COMPARISON
10706 042172 525 03 0 00 777737 HRLOI AC-1,ZZ
10707 042173 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
10708 042174 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10709 042175 003 04 0 00 001206 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10710 042176 321 10 0 00 042170 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10711
10712
10713 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10714 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10715 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10716
10717 001207 SN=SN+1
10718 546377 XX=XX-1000
10719 777774 YY=YY!<YY/2>
10720 777677 ZZ=<ZZ+ZZ+1>&777777
10721 IFE <ZZ-1>,<ZZ=777776>
10722 042177 205 02 0 00 546377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10723 042200 541 02 0 00 777774 HRRI AC-2,YY ;RESULT FOR COMPARISON
10724 042201 525 03 0 00 777677 HRLOI AC-1,ZZ
10725 042202 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
10726 042203 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10727 042204 003 04 0 00 001207 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10728 042205 321 10 0 00 042177 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10729
10730
10731 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10732 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10733 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10734
10735 001210 SN=SN+1
10736 545377 XX=XX-1000
10737 777776 YY=YY!<YY/2>
10738 777577 ZZ=<ZZ+ZZ+1>&777777
10739 IFE <ZZ-1>,<ZZ=777776>
10740 042206 205 02 0 00 545377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10741 042207 541 02 0 00 777776 HRRI AC-2,YY ;RESULT FOR COMPARISON
10742 042210 525 03 0 00 777577 HRLOI AC-1,ZZ
10743 042211 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
10744 042212 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10745 042213 003 04 0 00 001210 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-3
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0284
10746 042214 321 10 0 00 042206 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10747
10748
10749 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10750 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10751 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10752
10753 001211 SN=SN+1
10754 544377 XX=XX-1000
10755 777777 YY=YY!<YY/2>
10756 777377 ZZ=<ZZ+ZZ+1>&777777
10757 IFE <ZZ-1>,<ZZ=777776>
10758 042215 205 02 0 00 544377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
10759 042216 541 02 0 00 777777 HRRI AC-2,YY ;RESULT FOR COMPARISON
10760 042217 525 03 0 00 777377 HRLOI AC-1,ZZ
10761 042220 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
10762 042221 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10763 042222 003 04 0 00 001211 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10764 042223 321 10 0 00 042215 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10765
10766 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-4
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0285
10767 001300 SN=1300
10768 544377 XX=544377
10769 777377 ZZ=777377
10770 777777 WW=777777
10771
10772 Q1300: REPEAT ^D8,<
10773 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10774 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10775 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10776
10777 SN=SN+1
10778 XX=XX-1000
10779 ZZ=<ZZ+ZZ+1>&777777
10780 WW=<WW+WW>&777777
10781 HRLOI AC-2,XX ;INITIALIZE FLT PT NBR
10782 HRLI AC-1,ZZ ;RESULT FOR COMPARISON
10783 HRRI AC-1,WW
10784 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
10785 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10786 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10787 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10788 >
10789
10790 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10791 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10792 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10793
10794 001301 SN=SN+1
10795 543377 XX=XX-1000
10796 776777 ZZ=<ZZ+ZZ+1>&777777
10797 777776 WW=<WW+WW>&777777
10798 042224 525 02 0 00 543377 HRLOI AC-2,XX ;INITIALIZE FLT PT NBR
10799 042225 505 03 0 00 776777 HRLI AC-1,ZZ ;RESULT FOR COMPARISON
10800 042226 541 03 0 00 777776 HRRI AC-1,WW
10801 042227 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
10802 042230 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10803 042231 003 04 0 00 001301 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10804 042232 321 10 0 00 042224 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10805
10806
10807 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10808 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10809 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10810
10811 001302 SN=SN+1
10812 542377 XX=XX-1000
10813 775777 ZZ=<ZZ+ZZ+1>&777777
10814 777774 WW=<WW+WW>&777777
10815 042233 525 02 0 00 542377 HRLOI AC-2,XX ;INITIALIZE FLT PT NBR
10816 042234 505 03 0 00 775777 HRLI AC-1,ZZ ;RESULT FOR COMPARISON
10817 042235 541 03 0 00 777774 HRRI AC-1,WW
10818 042236 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
10819 042237 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10820 042240 003 04 0 00 001302 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10821 042241 321 10 0 00 042233 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-5
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0286
10822
10823
10824 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10825 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10826 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10827
10828 001303 SN=SN+1
10829 541377 XX=XX-1000
10830 773777 ZZ=<ZZ+ZZ+1>&777777
10831 777770 WW=<WW+WW>&777777
10832 042242 525 02 0 00 541377 HRLOI AC-2,XX ;INITIALIZE FLT PT NBR
10833 042243 505 03 0 00 773777 HRLI AC-1,ZZ ;RESULT FOR COMPARISON
10834 042244 541 03 0 00 777770 HRRI AC-1,WW
10835 042245 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
10836 042246 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10837 042247 003 04 0 00 001303 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10838 042250 321 10 0 00 042242 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10839
10840
10841 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10842 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10843 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10844
10845 001304 SN=SN+1
10846 540377 XX=XX-1000
10847 767777 ZZ=<ZZ+ZZ+1>&777777
10848 777760 WW=<WW+WW>&777777
10849 042251 525 02 0 00 540377 HRLOI AC-2,XX ;INITIALIZE FLT PT NBR
10850 042252 505 03 0 00 767777 HRLI AC-1,ZZ ;RESULT FOR COMPARISON
10851 042253 541 03 0 00 777760 HRRI AC-1,WW
10852 042254 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
10853 042255 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10854 042256 003 04 0 00 001304 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10855 042257 321 10 0 00 042251 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10856
10857
10858 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10859 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10860 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10861
10862 001305 SN=SN+1
10863 537377 XX=XX-1000
10864 757777 ZZ=<ZZ+ZZ+1>&777777
10865 777740 WW=<WW+WW>&777777
10866 042260 525 02 0 00 537377 HRLOI AC-2,XX ;INITIALIZE FLT PT NBR
10867 042261 505 03 0 00 757777 HRLI AC-1,ZZ ;RESULT FOR COMPARISON
10868 042262 541 03 0 00 777740 HRRI AC-1,WW
10869 042263 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
10870 042264 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10871 042265 003 04 0 00 001305 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10872 042266 321 10 0 00 042260 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10873
10874
10875 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10876 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-6
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0287
10877 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10878
10879 001306 SN=SN+1
10880 536377 XX=XX-1000
10881 737777 ZZ=<ZZ+ZZ+1>&777777
10882 777700 WW=<WW+WW>&777777
10883 042267 525 02 0 00 536377 HRLOI AC-2,XX ;INITIALIZE FLT PT NBR
10884 042270 505 03 0 00 737777 HRLI AC-1,ZZ ;RESULT FOR COMPARISON
10885 042271 541 03 0 00 777700 HRRI AC-1,WW
10886 042272 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
10887 042273 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10888 042274 003 04 0 00 001306 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10889 042275 321 10 0 00 042267 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10890
10891
10892 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10893 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10894 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10895
10896 001307 SN=SN+1
10897 535377 XX=XX-1000
10898 677777 ZZ=<ZZ+ZZ+1>&777777
10899 777600 WW=<WW+WW>&777777
10900 042276 525 02 0 00 535377 HRLOI AC-2,XX ;INITIALIZE FLT PT NBR
10901 042277 505 03 0 00 677777 HRLI AC-1,ZZ ;RESULT FOR COMPARISON
10902 042300 541 03 0 00 777600 HRRI AC-1,WW
10903 042301 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
10904 042302 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10905 042303 003 04 0 00 001307 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10906 042304 321 10 0 00 042276 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10907
10908
10909 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10910 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10911 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10912
10913 001310 SN=SN+1
10914 534377 XX=XX-1000
10915 577777 ZZ=<ZZ+ZZ+1>&777777
10916 777400 WW=<WW+WW>&777777
10917 042305 525 02 0 00 534377 HRLOI AC-2,XX ;INITIALIZE FLT PT NBR
10918 042306 505 03 0 00 577777 HRLI AC-1,ZZ ;RESULT FOR COMPARISON
10919 042307 541 03 0 00 777400 HRRI AC-1,WW
10920 042310 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
10921 042311 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10922 042312 003 04 0 00 001310 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
10923 042313 321 10 0 00 042305 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
10924
10925 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-7
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0288
10926 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
10927 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
10928 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
10929
10930 042314 525 02 0 00 243777 Q1400: HRLOI AC-2,243777 ;INITIALIZE FLT PT NBR
10931 042315 505 03 0 00 377777 HRLI AC-1,377777 ;RESULT FOR COMPARISON
10932 042316 541 03 0 00 777400 HRRI AC-1,777400
10933 042317 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
10934 042320 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
10935 042321 003 04 0 00 001401 ER3 AC,1401 ;FAILURE IF TESTED BIT IS NOT CLEAR
10936 042322 321 10 0 00 042314 JUMPL SAC,Q1400 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - TRUNCATION SEQ 0289
10937 SUBTTL DIAGNOSTIC SECTION - FIX - TRUNCATION
10938
10939 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
10940 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
10941 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
10942 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
10943 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
10944 ;CONVERTED.
10945
10946 042323 205 02 0 00 576000 Q1500: MOVSI AC-2,576000 ;SET-UP FLT PT NBR
10947 042324 541 02 0 00 000001 HRRI AC-2,1
10948 042325 476 00 0 00 000003 SETOM AC-1 ;SET-UP EXPECTED RESULT
10949 042326 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
10950 ;TRUNCATE RESULT, AND PLACE IN AC
10951 042327 312 04 0 00 000003 CAME AC,AC-1 ;IS RESULT TRUNCATED?
10952 042330 003 04 0 00 001501 ER3 AC,1501 ;TRUNCATION FAILED IN CONVERSION
10953 042331 321 10 0 00 042323 JUMPL SAC,Q1500 ;LOOP ON ERROR SWITCH
10954
10955 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
10956 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
10957 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
10958 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
10959 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
10960 ;CONVERTED.
10961
10962 042332 515 02 0 00 576200 Q1600: HRLZI AC-2,576200 ;SET-UP FLT PT NBR
10963 042333 476 00 0 00 000003 SETOM AC-1 ;SET-UP EXPECTED RESULT
10964 042334 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
10965 ;TRUNCATE RESULT, AND PLACE IN AC
10966 042335 312 04 0 00 000003 CAME AC,AC-1 ;IS RESULT TRUNCATED?
10967 042336 003 04 0 00 001601 ER3 AC,1601 ;TRUNCATION FAILED IN CONVERSION
10968 042337 321 10 0 00 042332 JUMPL SAC,Q1600 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 9
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - TRUNCATION SEQ 0290
10969 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
10970 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
10971 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
10972 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
10973 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
10974 ;CONVERTED.
10975
10976 042340 205 02 0 00 576200 Q1700: MOVSI AC-2,576200 ;SET-UP FLT PT NBR
10977 042341 541 02 0 00 000001 HRRI AC-2,1
10978 042342 476 00 0 00 000003 SETOM AC-1 ;SET-UP EXPECTED RESULT
10979 042343 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
10980 ;TRUNCATE RESULT, AND PLACE IN AC
10981 042344 312 04 0 00 000003 CAME AC,AC-1 ;IS RESULT TRUNCATED?
10982 042345 003 04 0 00 001701 ER3 AC,1701 ;TRUNCATION FAILED IN CONVERSION
10983 042346 321 10 0 00 042340 JUMPL SAC,Q1700 ;LOOP ON ERROR SWITCH
10984
10985 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
10986 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
10987 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
10988 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
10989 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
10990 ;CONVERTED.
10991
10992 042347 205 02 0 00 577000 Q2000: MOVSI AC-2,577000 ;SET-UP FLT PT NBR
10993 042350 541 02 0 00 000001 HRRI AC-2,1 ;SET-UP EXPECTED RESULT
10994 042351 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
10995 ;TRUNCATE RESULT, AND PLACE IN AC
10996 042352 302 04 0 00 000000 CAIE AC,0 ;IS RESULT TRUNCATED?
10997 042353 003 04 0 00 002001 ER3 AC,2001 ;TRUNCATION FAILED IN CONVERSION
10998 042354 321 10 0 00 042347 JUMPL SAC,Q2000 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 10
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - TRUNCATION SEQ 0291
10999 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
11000 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
11001 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
11002 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
11003 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
11004 ;CONVERTED.
11005
11006 042355 205 02 0 00 577400 Q2100: MOVSI AC-2,577400 ;SET-UP FLT PT NBR
11007 042356 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
11008 ;TRUNCATE RESULT, AND PLACE IN AC
11009 042357 302 04 0 00 000000 CAIE AC,0 ;IS RESULT TRUNCATED?
11010 042360 003 04 0 00 002101 ER3 AC,2101 ;TRUNCATION FAILED IN CONVERSION
11011 042361 321 10 0 00 042355 JUMPL SAC,Q2100 ;LOOP ON ERROR SWITCH
11012
11013 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
11014 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
11015 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
11016 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
11017 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
11018 ;CONVERTED.
11019
11020 042362 205 02 0 00 600000 Q2200: MOVSI AC-2,600000 ;SET-UP FLT PT NBR
11021 042363 541 02 0 00 000001 HRRI AC-2,1
11022 042364 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
11023 ;TRUNCATE RESULT, AND PLACE IN AC
11024 042365 302 04 0 00 000000 CAIE AC,0 ;IS RESULT TRUNCATED?
11025 042366 003 04 0 00 002201 ER3 AC,2201 ;TRUNCATION FAILED IN CONVERSION
11026 042367 321 10 0 00 042362 JUMPL SAC,Q2200 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 11
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - TRUNCATION SEQ 0292
11027 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
11028 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
11029 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
11030 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
11031 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
11032 ;CONVERTED.
11033
11034 042370 525 02 0 00 177777 Q2300: HRLOI AC-2,177777 ;SET-UP FLT PT NBR
11035 042371 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
11036 ;TRUNCATE RESULT, AND PLACE IN AC
11037 042372 302 04 0 00 000000 CAIE AC,0 ;IS RESULT TRUNCATED?
11038 042373 003 04 0 00 002301 ER3 AC,2301 ;TRUNCATION FAILED IN CONVERSION
11039 042374 321 10 0 00 042370 JUMPL SAC,Q2300 ;LOOP ON ERROR SWITCH
11040
11041 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
11042 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
11043 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
11044 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
11045 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
11046 ;CONVERTED.
11047
11048 042375 205 02 0 00 200400 Q2400: MOVSI AC-2,200400 ;SET-UP FLT PT NBR
11049 042376 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
11050 ;TRUNCATE RESULT, AND PLACE IN AC
11051 042377 302 04 0 00 000000 CAIE AC,0 ;IS RESULT TRUNCATED?
11052 042400 003 04 0 00 002401 ER3 AC,2401 ;TRUNCATION FAILED IN CONVERSION
11053 042401 321 10 0 00 042375 JUMPL SAC,Q2400 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 12
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - TRUNCATION SEQ 0293
11054 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
11055 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
11056 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
11057 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
11058 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
11059 ;CONVERTED.
11060
11061 042402 525 02 0 00 200777 Q2500: HRLOI AC-2,200777 ;SET-UP FLT PT NBR
11062 042403 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
11063 ;TRUNCATE RESULT, AND PLACE IN AC
11064 042404 302 04 0 00 000000 CAIE AC,0 ;IS RESULT TRUNCATED?
11065 042405 003 04 0 00 002501 ER3 AC,2501 ;TRUNCATION FAILED IN CONVERSION
11066 042406 321 10 0 00 042402 JUMPL SAC,Q2500 ;LOOP ON ERROR SWITCH
11067
11068 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
11069 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
11070 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
11071 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
11072 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
11073 ;CONVERTED.
11074
11075 042407 525 02 0 00 201577 Q2600: HRLOI AC-2,201577 ;SET-UP FLT PT NBR
11076 042410 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
11077 ;TRUNCATE RESULT, AND PLACE IN AC
11078 042411 302 04 0 00 000001 CAIE AC,1 ;IS RESULT TRUNCATED?
11079 042412 003 04 0 00 002601 ER3 AC,2601 ;TRUNCATION FAILED IN CONVERSION
11080 042413 321 10 0 00 042407 JUMPL SAC,Q2600 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 13
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - TRUNCATION SEQ 0294
11081 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
11082 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
11083 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
11084 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
11085 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
11086 ;CONVERTED.
11087
11088 042414 205 02 0 00 201600 Q2700: MOVSI AC-2,201600 ;SET-UP FLT PT NBR
11089 042415 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
11090 ;TRUNCATE RESULT, AND PLACE IN AC
11091 042416 302 04 0 00 000001 CAIE AC,1 ;IS RESULT TRUNCATED?
11092 042417 003 04 0 00 002701 ER3 AC,2701 ;TRUNCATION FAILED IN CONVERSION
11093 042420 321 10 0 00 042414 JUMPL SAC,Q2700 ;LOOP ON ERROR SWITCH
11094
11095 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
11096 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
11097 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
11098 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
11099 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
11100 ;CONVERTED.
11101
11102 042421 525 02 0 00 201777 Q3000: HRLOI AC-2,201777 ;SET-UP FLT PT NBR
11103 042422 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
11104 ;TRUNCATE RESULT, AND PLACE IN AC
11105 042423 302 04 0 00 000001 CAIE AC,1 ;IS RESULT TRUNCATED?
11106 042424 003 04 0 00 003001 ER3 AC,3001 ;TRUNCATION FAILED IN CONVERSION
11107 042425 321 10 0 00 042421 JUMPL SAC,Q3000 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 14
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - NON-AC RANGE ADDRESS SEQ 0295
11108 SUBTTL DIAGNOSTIC SECTION - FIX - NON-AC RANGE ADDRESS
11109
11110 ;VERIFY THAT 'FIX AC,E' OPERATES FOR 'E' BEYOND THE 'AC' RANGE
11111
11112 SAVEAC^
11113 042426 201 10 0 00 042426 MOVEI SAC,.
11114 042427 202 10 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC
11115 042430 201 10 0 00 000010 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH
11116 042431 202 10 0 00 073775 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^
11117 042432 515 02 0 00 576200 Q3010: HRLZI AC-2,576200
11118 042433 202 02 0 00 070346 MOVEM AC-2,TSTWD ;LOAD 'E' WITH DATA
11119 042434 476 00 0 00 000003 SETOM AC-1 ;RESULT FOR COMPARISON
11120 FIX AC,TSTWD ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND STORE IN
11121 042435 122 04 0 00 070346 AC
11122 042436 312 04 0 00 000003 CAME AC,AC-1 ;DID 'FIX' GET CORRECT C(E)?
11123 042437 003 04 0 00 003011 ER3 AC,3011 ;FAILURE TO GET C(E)
11124 042440 321 10 0 00 042432 JUMPL SAC,Q3010 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 15
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIXR - ROUNDING SEQ 0296
11125 SUBTTL DIAGNOSTIC SECTION - FIXR - ROUNDING
11126
11127 ;CHECK THAT 'FIXR AC,E' DOES NOT MODIFY C(E)
11128
11129 042441 200 02 0 00 070654 Q3050: MOVE AC-2,[233525,,252525] ;LOAD 'E' WITH DATA
11130 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND STORE IN
11131 042442 126 04 0 00 000002 AC
11132 042443 312 02 0 00 070654 CAME AC-2,[233525,,252525] ;WAS FLT PT NO. MODIFIED?
11133 042444 005 02 0 00 003051 ER5 AC-2,3051 ;C(E) WAS CLOBBERED
11134 042445 321 10 0 00 042441 JUMPL SAC,Q3050 ;LOOP ON ERROR SWITCH
11135
11136 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
11137 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
11138 ;THE RESULT IS ROUNDED DOWN TO 'N'
11139 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
11140 ;THE RESULT IS ROUNDED UP TO "N+1"
11141 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
11142 ;BEING CONVERTED
11143
11144 042446 205 02 0 00 576000 Q3100: MOVSI AC-2,576000 ;SET-UP FLT PT NBR
11145 042447 541 02 0 00 000001 HRRI AC-2,1
11146 042450 561 03 0 00 777776 HRROI AC-1,-2 ;SET-UP EXPECTED RESULT
11147 042451 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
11148 ;ROUND RESULT, AND PLACE IN AC
11149 042452 312 04 0 00 000003 CAME AC,AC-1 ;IS RESULT ROUNDED?
11150 042453 003 04 0 00 003101 ER3 AC,3101 ;ROUNDING FAILED IN CONVERSION
11151 042454 321 10 0 00 042446 JUMPL SAC,Q3100 ;LOOP ON ERROR SWITCH
11152
11153 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
11154 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
11155 ;THE RESULT IS ROUNDED DOWN TO 'N'
11156 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
11157 ;THE RESULT IS ROUNDED UP TO "N+1"
11158 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
11159 ;BEING CONVERTED
11160
11161 042455 205 02 0 00 576200 Q3200: MOVSI AC-2,576200 ;SET-UP FLT PT NBR
11162 042456 476 00 0 00 000003 SETOM AC-1 ;SET-UP EXPECTED RESULT
11163 042457 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
11164 ;ROUND RESULT, AND PLACE IN AC
11165 042460 312 04 0 00 000003 CAME AC,AC-1 ;IS RESULT ROUNDED?
11166 042461 003 04 0 00 003201 ER3 AC,3201 ;ROUNDING FAILED IN CONVERSION
11167 042462 321 10 0 00 042455 JUMPL SAC,Q3200 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 16
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIXR - ROUNDING SEQ 0297
11168 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
11169 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
11170 ;THE RESULT IS ROUNDED DOWN TO 'N'
11171 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
11172 ;THE RESULT IS ROUNDED UP TO "N+1"
11173 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
11174 ;BEING CONVERTED
11175
11176 042463 205 02 0 00 576200 Q3300: MOVSI AC-2,576200 ;SET-UP FLT PT NBR
11177 042464 541 02 0 00 000001 HRRI AC-2,1
11178 042465 476 00 0 00 000003 SETOM AC-1 ;SET-UP EXPECTED RESULT
11179 042466 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
11180 ;ROUND RESULT, AND PLACE IN AC
11181 042467 312 04 0 00 000003 CAME AC,AC-1 ;IS RESULT ROUNDED?
11182 042470 003 04 0 00 003301 ER3 AC,3301 ;ROUNDING FAILED IN CONVERSION
11183 042471 321 10 0 00 042463 JUMPL SAC,Q3300 ;LOOP ON ERROR SWITCH
11184
11185 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
11186 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
11187 ;THE RESULT IS ROUNDED DOWN TO 'N'
11188 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
11189 ;THE RESULT IS ROUNDED UP TO "N+1"
11190 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
11191 ;BEING CONVERTED
11192
11193 042472 205 02 0 00 577000 Q3400: MOVSI AC-2,577000 ;SET-UP FLT PT NBR
11194 042473 541 02 0 00 000001 HRRI AC-2,1
11195 042474 476 00 0 00 000003 SETOM AC-1 ;SET-UP EXPECTED RESULT
11196 042475 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
11197 ;ROUND RESULT, AND PLACE IN AC
11198 042476 312 04 0 00 000003 CAME AC,AC-1 ;IS RESULT ROUNDED?
11199 042477 003 04 0 00 003401 ER3 AC,3401 ;ROUNDING FAILED IN CONVERSION
11200 042500 321 10 0 00 042472 JUMPL SAC,Q3400 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 17
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIXR - ROUNDING SEQ 0298
11201 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
11202 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
11203 ;THE RESULT IS ROUNDED DOWN TO 'N'
11204 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
11205 ;THE RESULT IS ROUNDED UP TO "N+1"
11206 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
11207 ;BEING CONVERTED
11208
11209 042501 205 02 0 00 577400 Q3500: MOVSI AC-2,577400 ;SET-UP FLT PT NBR
11210 042502 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
11211 ;ROUND RESULT, AND PLACE IN AC
11212 042503 302 04 0 00 000000 CAIE AC,0 ;IS RESULT ROUNDED?
11213 042504 003 04 0 00 003501 ER3 AC,3501 ;ROUNDING FAILED IN CONVERSION
11214 042505 321 10 0 00 042501 JUMPL SAC,Q3500 ;LOOP ON ERROR SWITCH
11215
11216 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
11217 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
11218 ;THE RESULT IS ROUNDED DOWN TO 'N'
11219 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
11220 ;THE RESULT IS ROUNDED UP TO "N+1"
11221 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
11222 ;BEING CONVERTED
11223
11224 042506 205 02 0 00 600000 Q3600: MOVSI AC-2,600000 ;SET-UP FLT PT NBR
11225 042507 541 02 0 00 000001 HRRI AC-2,1
11226 042510 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
11227 ;ROUND RESULT, AND PLACE IN AC
11228 042511 302 04 0 00 000000 CAIE AC,0 ;IS RESULT ROUNDED?
11229 042512 003 04 0 00 003601 ER3 AC,3601 ;ROUNDING FAILED IN CONVERSION
11230 042513 321 10 0 00 042506 JUMPL SAC,Q3600 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 18
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIXR - ROUNDING SEQ 0299
11231 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
11232 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
11233 ;THE RESULT IS ROUNDED DOWN TO 'N'
11234 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
11235 ;THE RESULT IS ROUNDED UP TO "N+1"
11236 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
11237 ;BEING CONVERTED
11238
11239 042514 525 02 0 00 177777 Q3700: HRLOI AC-2,177777 ;SET-UP FLT PT NBR
11240 042515 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
11241 ;ROUND RESULT, AND PLACE IN AC
11242 042516 302 04 0 00 000000 CAIE AC,0 ;IS RESULT ROUNDED?
11243 042517 003 04 0 00 003701 ER3 AC,3701 ;ROUNDING FAILED IN CONVERSION
11244 042520 321 10 0 00 042514 JUMPL SAC,Q3700 ;LOOP ON ERROR SWITCH
11245
11246 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
11247 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
11248 ;THE RESULT IS ROUNDED DOWN TO 'N'
11249 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
11250 ;THE RESULT IS ROUNDED UP TO "N+1"
11251 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
11252 ;BEING CONVERTED
11253
11254 042521 205 02 0 00 200400 Q4000: MOVSI AC-2,200400 ;SET-UP FLT PT NBR
11255 042522 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
11256 ;ROUND RESULT, AND PLACE IN AC
11257 042523 302 04 0 00 000001 CAIE AC,1 ;IS RESULT ROUNDED?
11258 042524 003 04 0 00 004001 ER3 AC,4001 ;ROUNDING FAILED IN CONVERSION
11259 042525 321 10 0 00 042521 JUMPL SAC,Q4000 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 19
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIXR - ROUNDING SEQ 0300
11260 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
11261 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
11262 ;THE RESULT IS ROUNDED DOWN TO 'N'
11263 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
11264 ;THE RESULT IS ROUNDED UP TO "N+1"
11265 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
11266 ;BEING CONVERTED
11267
11268 042526 525 02 0 00 200777 Q4100: HRLOI AC-2,200777 ;SET-UP FLT PT NBR
11269 042527 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
11270 ;ROUND RESULT, AND PLACE IN AC
11271 042530 302 04 0 00 000001 CAIE AC,1 ;IS RESULT ROUNDED?
11272 042531 003 04 0 00 004101 ER3 AC,4101 ;ROUNDING FAILED IN CONVERSION
11273 042532 321 10 0 00 042526 JUMPL SAC,Q4100 ;LOOP ON ERROR SWITCH
11274
11275 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
11276 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
11277 ;THE RESULT IS ROUNDED DOWN TO 'N'
11278 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
11279 ;THE RESULT IS ROUNDED UP TO "N+1"
11280 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
11281 ;BEING CONVERTED
11282
11283 042533 525 02 0 00 201577 Q4200: HRLOI AC-2,201577 ;SET-UP FLT PT NBR
11284 042534 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
11285 ;ROUND RESULT, AND PLACE IN AC
11286 042535 302 04 0 00 000001 CAIE AC,1 ;IS RESULT ROUNDED?
11287 042536 003 04 0 00 004201 ER3 AC,4201 ;ROUNDING FAILED IN CONVERSION
11288 042537 321 10 0 00 042533 JUMPL SAC,Q4200 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 20
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIXR - ROUNDING SEQ 0301
11289 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
11290 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
11291 ;THE RESULT IS ROUNDED DOWN TO 'N'
11292 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
11293 ;THE RESULT IS ROUNDED UP TO "N+1"
11294 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
11295 ;BEING CONVERTED
11296
11297 042540 205 02 0 00 201600 Q4300: MOVSI AC-2,201600 ;SET-UP FLT PT NBR
11298 042541 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
11299 ;ROUND RESULT, AND PLACE IN AC
11300 042542 302 04 0 00 000002 CAIE AC,2 ;IS RESULT ROUNDED?
11301 042543 003 04 0 00 004301 ER3 AC,4301 ;ROUNDING FAILED IN CONVERSION
11302 042544 321 10 0 00 042540 JUMPL SAC,Q4300 ;LOOP ON ERROR SWITCH
11303
11304 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
11305 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
11306 ;THE RESULT IS ROUNDED DOWN TO 'N'
11307 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
11308 ;THE RESULT IS ROUNDED UP TO "N+1"
11309 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
11310 ;BEING CONVERTED
11311
11312 042545 525 02 0 00 201777 Q4400: HRLOI AC-2,201777 ;SET-UP FLT PT NBR
11313 042546 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
11314 ;ROUND RESULT, AND PLACE IN AC
11315 042547 302 04 0 00 000002 CAIE AC,2 ;IS RESULT ROUNDED?
11316 042550 003 04 0 00 004401 ER3 AC,4401 ;ROUNDING FAILED IN CONVERSION
11317 042551 321 10 0 00 042545 JUMPL SAC,Q4400 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 21
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIXR - NON-AC RANGE ADDRESS SEQ 0302
11318 SUBTTL DIAGNOSTIC SECTION - FIXR - NON-AC RANGE ADDRESS
11319
11320 ;CHECK THAT 'FIXR AC,E' OPERATES FOR 'E' BEYOND AC RANGE
11321
11322 042552 205 02 0 00 576000 Q4410: MOVSI AC-2,576000 ;LOAD 'E' WITH DATA
11323 042553 541 02 0 00 000001 HRRI AC-2,1
11324 042554 202 02 0 00 070346 MOVEM AC-2,TSTWD
11325 042555 561 03 0 00 777776 HRROI AC-1,-2 ;RESULT FOR COMPARISON
11326 FIXR AC,TSTWD ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND STORE IN
11327 042556 126 04 0 00 070346 AC
11328 042557 312 04 0 00 000003 CAME AC,AC-1 ;DID FIXR GET CORRECT C(E)?
11329 042560 003 04 0 00 004411 ER3 AC,4411 ;FAILURE TO GET C(E)
11330 042561 321 10 0 00 042552 JUMPL SAC,Q4410 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 22
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - ARITHMETIC OVERFLOW SEQ 0303
11331 SUBTTL DIAGNOSTIC SECTION - FIX - ARITHMETIC OVERFLOW
11332
11333 ;CHECK THAT ARITH OVFL FLG REMAINS CLEAR WHEN THE ABSOLUTE VALUE
11334 ;OF 'N' IS LESS THAN 2 RAISED THE 35TH POWER.
11335
11336 ;CHECK ABILITY TO CLEAR AROV BEFORE TESTING INTERACTION WITH 'FIX'
11337
11338 042562 255 10 0 00 042563 Q4500: JOV .+1 ;CLEAR ARITH OVFL FLG
11339 042563 265 04 0 00 042564 JSP AC,.+1 ;READ FLAGS
11340 042564 255 10 0 00 042566 JOV .+2 ;TEST AROV FLAG
11341 042565 254 00 0 00 042567 JRST .+2 ;SKIP ERROR CALL IF FLAG IS OK
11342 042566 013 04 0 00 004501 ER13 AC,4501 ;ARITH OVFL FLG SET
11343 042567 321 10 0 00 042562 JUMPL SAC,Q4500 ;LOOP ON ERROR SWITCH
11344
11345 ;CHECK THAT ARITH OVFL FLG REMAINS CLEAR WHEN THE ABSOLUTE VALUE
11346 ;OF 'N' IS LESS THAN 2 RAISED THE 35TH POWER.
11347
11348 042570 255 10 0 00 042571 Q4600: JOV .+1 ;CLEAR ARITH OVFL FLG
11349 042571 205 02 0 00 244400 MOVSI AC-2,244400 ;INITIALIZE FLOATING PT WORD
11350 042572 477 04 0 00 000003 SETOB AC,AC-1 ;SET-UP RESULT
11351 042573 122 04 0 00 000002 FIX AC,AC-2 ;*FIX SHOULD SET AROV
11352 042574 312 04 0 00 000003 CAME AC,AC-1 ;TEST AC
11353 042575 003 04 0 00 004601 ER3 AC,4601 ;C(AC) WAS MODIFIED
11354 042576 265 05 0 00 042577 JSP AC+1,.+1 ;READ FLAGS
11355 042577 255 10 0 00 042601 JOV .+2 ;TEST ARITH OVFL FLG
11356 042600 013 05 0 00 004601 ER13 AC+1,4601 ;ARITH OVFL FLAG CLEAR
11357 042601 321 10 0 00 042570 JUMPL SAC,Q4600 ;LOOP ON ERROR SWITCH
11358
11359 ;CHECK THAT ARITH OVFL FLG REMAINS CLEAR WHEN THE ABSOLUTE VALUE
11360 ;OF 'N' IS LESS THAN 2 RAISED THE 35TH POWER.
11361
11362 042602 255 10 0 00 042603 Q4700: JOV .+1 ;CLEAR ARITH OVFL FLG
11363 042603 525 02 0 00 243777 HRLOI AC-2,243777 ;INITIALIZE FLT. PT. WORD
11364 042604 561 03 0 00 777400 HRROI AC-1,777400 ;SET UP RESULT
11365 042605 621 03 0 00 400000 TLZ AC-1,AROV
11366 042606 122 04 0 00 000002 FIX AC,AC-2 ;*FIX SHOULD NOT SET AROV
11367 042607 312 04 0 00 000003 CAME AC,AC-1 ;TEST AC
11368 042610 003 04 0 00 004701 ER3 AC,4701 ;C(AC) INCORRECT
11369 042611 265 05 0 00 042612 JSP AC+1,.+1 ;READ FLAGS
11370 042612 255 10 0 00 042614 JOV .+2 ;TEST ARITH OVFL FLG
11371 042613 254 00 0 00 042615 JRST .+2 ;SKIP ERROR CALL IF AROV IS CLEAR
11372 042614 013 05 0 00 004701 ER13 AC+1,4701 ;ARITH OVFL FLAG SET
11373 042615 321 10 0 00 042602 JUMPL SAC,Q4700 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 23
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FIX - ARITHMETIC OVERFLOW SEQ 0304
11374 ;CHECK THAT ARITH OVFL FLG REMAINS CLEAR WHEN THE ABSOLUTE VALUE
11375 ;OF 'N' IS LESS THAN 2 RAISED THE 35TH POWER.
11376
11377 042616 255 10 0 00 042617 Q5000: JOV .+1 ;CLEAR ARITH OVFL FLG
11378 042617 205 02 0 00 533400 MOVSI AC-2,533400 ;INIT FLT. PT. WORD
11379 042620 477 04 0 00 000003 SETOB AC,AC-1 ;SET-UP RESULT
11380 042621 122 04 0 00 000002 FIX AC,AC-2 ;*FIX SHOULD SET AROV
11381 042622 312 04 0 00 000003 CAME AC,AC-1 ;TEST AC
11382 042623 003 04 0 00 005001 ER3 AC,5001 ;C(AC) WAS MODIFIED
11383 042624 265 05 0 00 042625 JSP AC+1,.+1 ;READ FLAGS
11384 042625 255 10 0 00 042627 JOV .+2 ;TEST ARITH OVFL FLG
11385 042626 013 05 0 00 005001 ER13 AC+1,5001 ;ARITH OVFL FLG CLEAR
11386 042627 321 10 0 00 042616 JUMPL SAC,Q5000 ;LOOP ON ERROR SWITCH
11387
11388 ;CHECK THAT ARITH OVFL FLG REMAINS CLEAR WHEN THE ABSOLUTE VALUE
11389 ;OF 'N' IS LESS THAN 2 RAISED THE 35TH POWER.
11390
11391 042630 255 10 0 00 042631 Q5100: JOV .+1 ;CLEAR ARITH OVFL FLG
11392 042631 205 02 0 00 534000 MOVSI AC-2,534000 ;INITIALIZE FLT. PT. WORD
11393 042632 660 02 0 00 000001 TRO AC-2,1
11394 042633 551 03 0 00 000400 HRRZI AC-1,400 ;SET-UP RESULT
11395 042634 661 03 0 00 400000 TLO AC-1,AROV
11396 042635 122 04 0 00 000002 FIX AC,AC-2 ;*FIX SHOULD NOT SET AROV
11397 042636 312 04 0 00 000003 CAME AC,AC-1 ;TEST AC
11398 042637 003 04 0 00 005101 ER3 AC,5101 ;C(AC) INCORRECT
11399 042640 265 05 0 00 042641 JSP AC+1,.+1 ;READ FLAGS
11400 042641 255 10 0 00 042643 JOV .+2 ;TEST ARITH OVFL FLG
11401 042642 254 00 0 00 042644 JRST .+2 ;SKIP ERROR CALL IF AROV IS CLEAR
11402 042643 013 05 0 00 005101 ER13 AC+1,5101 ;ARITH OVFL FLG SET
11403 042644 321 10 0 00 042630 JUMPL SAC,Q5100 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 24
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0305
11404 SUBTTL DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS
11405
11406 ;CHECK THAT 'FLTR AC,E' DOES NOT MODIFY C(E)
11407
11408 042645 200 02 0 00 070655 Q5150: MOVE AC-2,[252525,,252525] ;LOAD 'E' WITH DATA
11409 042646 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11410 042647 312 02 0 00 070655 CAME AC-2,[252525,,252525] ;WAS FIX PT NO. MODIFIED?
11411 042650 005 02 0 00 005151 ER5 AC-2,5151 ;C(E) WAS CLOBBERED
11412 042651 321 10 0 00 042645 JUMPL SAC,Q5150 ;LOOP ON ERROR SWITCH
11413
11414 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11415
11416 005200 SN=5200
11417 400000 XX=400000
11418 244400 YY=244400
11419
11420 Q5200: REPEAT ^D17,<
11421 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11422 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11423 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11424
11425 SN=SN+1
11426 XX=XX/2
11427 YY=YY-1000
11428 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
11429 MOVSI AC-1,YY ;SET-UP RESULT
11430 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11431 CAME AC,AC-1 ;TEST EXPONENT
11432 ER3 AC,SN ;INCORRECT EXPONENT
11433 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
11434 >
11435
11436 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11437 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11438 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11439
11440 005201 SN=SN+1
11441 200000 XX=XX/2
11442 243400 YY=YY-1000
11443 042652 205 02 0 00 200000 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
11444 042653 205 03 0 00 243400 MOVSI AC-1,YY ;SET-UP RESULT
11445 042654 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11446 042655 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11447 042656 003 04 0 00 005201 ER3 AC,SN ;INCORRECT EXPONENT
11448 042657 321 10 0 00 042652 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
11449
11450
11451 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11452 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11453 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11454
11455 005202 SN=SN+1
11456 100000 XX=XX/2
11457 242400 YY=YY-1000
11458 042660 205 02 0 00 100000 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 24-1
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0306
11459 042661 205 03 0 00 242400 MOVSI AC-1,YY ;SET-UP RESULT
11460 042662 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11461 042663 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11462 042664 003 04 0 00 005202 ER3 AC,SN ;INCORRECT EXPONENT
11463 042665 321 10 0 00 042660 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
11464
11465
11466 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11467 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11468 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11469
11470 005203 SN=SN+1
11471 040000 XX=XX/2
11472 241400 YY=YY-1000
11473 042666 205 02 0 00 040000 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
11474 042667 205 03 0 00 241400 MOVSI AC-1,YY ;SET-UP RESULT
11475 042670 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11476 042671 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11477 042672 003 04 0 00 005203 ER3 AC,SN ;INCORRECT EXPONENT
11478 042673 321 10 0 00 042666 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
11479
11480
11481 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11482 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11483 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11484
11485 005204 SN=SN+1
11486 020000 XX=XX/2
11487 240400 YY=YY-1000
11488 042674 205 02 0 00 020000 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
11489 042675 205 03 0 00 240400 MOVSI AC-1,YY ;SET-UP RESULT
11490 042676 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11491 042677 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11492 042700 003 04 0 00 005204 ER3 AC,SN ;INCORRECT EXPONENT
11493 042701 321 10 0 00 042674 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
11494
11495
11496 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11497 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11498 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11499
11500 005205 SN=SN+1
11501 010000 XX=XX/2
11502 237400 YY=YY-1000
11503 042702 205 02 0 00 010000 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
11504 042703 205 03 0 00 237400 MOVSI AC-1,YY ;SET-UP RESULT
11505 042704 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11506 042705 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11507 042706 003 04 0 00 005205 ER3 AC,SN ;INCORRECT EXPONENT
11508 042707 321 10 0 00 042702 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
11509
11510
11511 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11512 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11513 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 24-2
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0307
11514
11515 005206 SN=SN+1
11516 004000 XX=XX/2
11517 236400 YY=YY-1000
11518 042710 205 02 0 00 004000 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
11519 042711 205 03 0 00 236400 MOVSI AC-1,YY ;SET-UP RESULT
11520 042712 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11521 042713 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11522 042714 003 04 0 00 005206 ER3 AC,SN ;INCORRECT EXPONENT
11523 042715 321 10 0 00 042710 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
11524
11525
11526 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11527 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11528 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11529
11530 005207 SN=SN+1
11531 002000 XX=XX/2
11532 235400 YY=YY-1000
11533 042716 205 02 0 00 002000 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
11534 042717 205 03 0 00 235400 MOVSI AC-1,YY ;SET-UP RESULT
11535 042720 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11536 042721 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11537 042722 003 04 0 00 005207 ER3 AC,SN ;INCORRECT EXPONENT
11538 042723 321 10 0 00 042716 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
11539
11540
11541 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11542 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11543 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11544
11545 005210 SN=SN+1
11546 001000 XX=XX/2
11547 234400 YY=YY-1000
11548 042724 205 02 0 00 001000 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
11549 042725 205 03 0 00 234400 MOVSI AC-1,YY ;SET-UP RESULT
11550 042726 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11551 042727 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11552 042730 003 04 0 00 005210 ER3 AC,SN ;INCORRECT EXPONENT
11553 042731 321 10 0 00 042724 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
11554
11555
11556 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11557 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11558 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11559
11560 005211 SN=SN+1
11561 000400 XX=XX/2
11562 233400 YY=YY-1000
11563 042732 205 02 0 00 000400 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
11564 042733 205 03 0 00 233400 MOVSI AC-1,YY ;SET-UP RESULT
11565 042734 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11566 042735 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11567 042736 003 04 0 00 005211 ER3 AC,SN ;INCORRECT EXPONENT
11568 042737 321 10 0 00 042732 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 24-3
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0308
11569
11570
11571 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11572 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11573 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11574
11575 005212 SN=SN+1
11576 000200 XX=XX/2
11577 232400 YY=YY-1000
11578 042740 205 02 0 00 000200 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
11579 042741 205 03 0 00 232400 MOVSI AC-1,YY ;SET-UP RESULT
11580 042742 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11581 042743 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11582 042744 003 04 0 00 005212 ER3 AC,SN ;INCORRECT EXPONENT
11583 042745 321 10 0 00 042740 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
11584
11585
11586 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11587 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11588 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11589
11590 005213 SN=SN+1
11591 000100 XX=XX/2
11592 231400 YY=YY-1000
11593 042746 205 02 0 00 000100 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
11594 042747 205 03 0 00 231400 MOVSI AC-1,YY ;SET-UP RESULT
11595 042750 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11596 042751 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11597 042752 003 04 0 00 005213 ER3 AC,SN ;INCORRECT EXPONENT
11598 042753 321 10 0 00 042746 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
11599
11600
11601 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11602 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11603 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11604
11605 005214 SN=SN+1
11606 000040 XX=XX/2
11607 230400 YY=YY-1000
11608 042754 205 02 0 00 000040 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
11609 042755 205 03 0 00 230400 MOVSI AC-1,YY ;SET-UP RESULT
11610 042756 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11611 042757 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11612 042760 003 04 0 00 005214 ER3 AC,SN ;INCORRECT EXPONENT
11613 042761 321 10 0 00 042754 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
11614
11615
11616 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11617 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11618 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11619
11620 005215 SN=SN+1
11621 000020 XX=XX/2
11622 227400 YY=YY-1000
11623 042762 205 02 0 00 000020 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 24-4
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0309
11624 042763 205 03 0 00 227400 MOVSI AC-1,YY ;SET-UP RESULT
11625 042764 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11626 042765 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11627 042766 003 04 0 00 005215 ER3 AC,SN ;INCORRECT EXPONENT
11628 042767 321 10 0 00 042762 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
11629
11630
11631 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11632 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11633 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11634
11635 005216 SN=SN+1
11636 000010 XX=XX/2
11637 226400 YY=YY-1000
11638 042770 205 02 0 00 000010 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
11639 042771 205 03 0 00 226400 MOVSI AC-1,YY ;SET-UP RESULT
11640 042772 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11641 042773 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11642 042774 003 04 0 00 005216 ER3 AC,SN ;INCORRECT EXPONENT
11643 042775 321 10 0 00 042770 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
11644
11645
11646 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11647 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11648 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11649
11650 005217 SN=SN+1
11651 000004 XX=XX/2
11652 225400 YY=YY-1000
11653 042776 205 02 0 00 000004 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
11654 042777 205 03 0 00 225400 MOVSI AC-1,YY ;SET-UP RESULT
11655 043000 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11656 043001 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11657 043002 003 04 0 00 005217 ER3 AC,SN ;INCORRECT EXPONENT
11658 043003 321 10 0 00 042776 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
11659
11660
11661 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11662 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11663 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11664
11665 005220 SN=SN+1
11666 000002 XX=XX/2
11667 224400 YY=YY-1000
11668 043004 205 02 0 00 000002 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
11669 043005 205 03 0 00 224400 MOVSI AC-1,YY ;SET-UP RESULT
11670 043006 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11671 043007 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11672 043010 003 04 0 00 005220 ER3 AC,SN ;INCORRECT EXPONENT
11673 043011 321 10 0 00 043004 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
11674
11675
11676 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11677 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11678 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 24-5
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0310
11679
11680 005221 SN=SN+1
11681 000001 XX=XX/2
11682 223400 YY=YY-1000
11683 043012 205 02 0 00 000001 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
11684 043013 205 03 0 00 223400 MOVSI AC-1,YY ;SET-UP RESULT
11685 043014 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11686 043015 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11687 043016 003 04 0 00 005221 ER3 AC,SN ;INCORRECT EXPONENT
11688 043017 321 10 0 00 043012 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
11689
11690 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 24-6
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0311
11691 005300 SN=5300
11692 000000 XX=0
11693 223400 YY=223400
11694
11695 Q5300: REPEAT ^D18,<
11696 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11697 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11698 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11699
11700 SN=SN+1
11701 XX=XX/2
11702 YY=YY-1000
11703 IFE XX,<XX=400000>
11704 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
11705 MOVSI AC-1,YY ;SET-UP RESULT
11706 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11707 CAME AC,AC-1 ;TEST EXPONENT
11708 ER3 AC,SN ;INCORRECT EXPONENT
11709 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
11710 >
11711
11712 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11713 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11714 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11715
11716 005301 SN=SN+1
11717 000000 XX=XX/2
11718 222400 YY=YY-1000
11719 400000 IFE XX,<XX=400000>
11720 043020 551 02 0 00 400000 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
11721 043021 205 03 0 00 222400 MOVSI AC-1,YY ;SET-UP RESULT
11722 043022 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11723 043023 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11724 043024 003 04 0 00 005301 ER3 AC,SN ;INCORRECT EXPONENT
11725 043025 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
11726
11727
11728 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11729 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11730 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11731
11732 005302 SN=SN+1
11733 200000 XX=XX/2
11734 221400 YY=YY-1000
11735 IFE XX,<XX=400000>
11736 043026 551 02 0 00 200000 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
11737 043027 205 03 0 00 221400 MOVSI AC-1,YY ;SET-UP RESULT
11738 043030 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11739 043031 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11740 043032 003 04 0 00 005302 ER3 AC,SN ;INCORRECT EXPONENT
11741 043033 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
11742
11743
11744 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11745 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 24-7
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0312
11746 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11747
11748 005303 SN=SN+1
11749 100000 XX=XX/2
11750 220400 YY=YY-1000
11751 IFE XX,<XX=400000>
11752 043034 551 02 0 00 100000 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
11753 043035 205 03 0 00 220400 MOVSI AC-1,YY ;SET-UP RESULT
11754 043036 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11755 043037 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11756 043040 003 04 0 00 005303 ER3 AC,SN ;INCORRECT EXPONENT
11757 043041 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
11758
11759
11760 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11761 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11762 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11763
11764 005304 SN=SN+1
11765 040000 XX=XX/2
11766 217400 YY=YY-1000
11767 IFE XX,<XX=400000>
11768 043042 551 02 0 00 040000 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
11769 043043 205 03 0 00 217400 MOVSI AC-1,YY ;SET-UP RESULT
11770 043044 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11771 043045 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11772 043046 003 04 0 00 005304 ER3 AC,SN ;INCORRECT EXPONENT
11773 043047 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
11774
11775
11776 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11777 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11778 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11779
11780 005305 SN=SN+1
11781 020000 XX=XX/2
11782 216400 YY=YY-1000
11783 IFE XX,<XX=400000>
11784 043050 551 02 0 00 020000 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
11785 043051 205 03 0 00 216400 MOVSI AC-1,YY ;SET-UP RESULT
11786 043052 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11787 043053 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11788 043054 003 04 0 00 005305 ER3 AC,SN ;INCORRECT EXPONENT
11789 043055 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
11790
11791
11792 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11793 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11794 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11795
11796 005306 SN=SN+1
11797 010000 XX=XX/2
11798 215400 YY=YY-1000
11799 IFE XX,<XX=400000>
11800 043056 551 02 0 00 010000 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 24-8
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0313
11801 043057 205 03 0 00 215400 MOVSI AC-1,YY ;SET-UP RESULT
11802 043060 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11803 043061 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11804 043062 003 04 0 00 005306 ER3 AC,SN ;INCORRECT EXPONENT
11805 043063 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
11806
11807
11808 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11809 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11810 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11811
11812 005307 SN=SN+1
11813 004000 XX=XX/2
11814 214400 YY=YY-1000
11815 IFE XX,<XX=400000>
11816 043064 551 02 0 00 004000 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
11817 043065 205 03 0 00 214400 MOVSI AC-1,YY ;SET-UP RESULT
11818 043066 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11819 043067 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11820 043070 003 04 0 00 005307 ER3 AC,SN ;INCORRECT EXPONENT
11821 043071 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
11822
11823
11824 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11825 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11826 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11827
11828 005310 SN=SN+1
11829 002000 XX=XX/2
11830 213400 YY=YY-1000
11831 IFE XX,<XX=400000>
11832 043072 551 02 0 00 002000 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
11833 043073 205 03 0 00 213400 MOVSI AC-1,YY ;SET-UP RESULT
11834 043074 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11835 043075 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11836 043076 003 04 0 00 005310 ER3 AC,SN ;INCORRECT EXPONENT
11837 043077 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
11838
11839
11840 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11841 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11842 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11843
11844 005311 SN=SN+1
11845 001000 XX=XX/2
11846 212400 YY=YY-1000
11847 IFE XX,<XX=400000>
11848 043100 551 02 0 00 001000 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
11849 043101 205 03 0 00 212400 MOVSI AC-1,YY ;SET-UP RESULT
11850 043102 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11851 043103 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11852 043104 003 04 0 00 005311 ER3 AC,SN ;INCORRECT EXPONENT
11853 043105 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
11854
11855
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 24-9
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0314
11856 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11857 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11858 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11859
11860 005312 SN=SN+1
11861 000400 XX=XX/2
11862 211400 YY=YY-1000
11863 IFE XX,<XX=400000>
11864 043106 551 02 0 00 000400 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
11865 043107 205 03 0 00 211400 MOVSI AC-1,YY ;SET-UP RESULT
11866 043110 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11867 043111 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11868 043112 003 04 0 00 005312 ER3 AC,SN ;INCORRECT EXPONENT
11869 043113 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
11870
11871
11872 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11873 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11874 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11875
11876 005313 SN=SN+1
11877 000200 XX=XX/2
11878 210400 YY=YY-1000
11879 IFE XX,<XX=400000>
11880 043114 551 02 0 00 000200 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
11881 043115 205 03 0 00 210400 MOVSI AC-1,YY ;SET-UP RESULT
11882 043116 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11883 043117 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11884 043120 003 04 0 00 005313 ER3 AC,SN ;INCORRECT EXPONENT
11885 043121 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
11886
11887
11888 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11889 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11890 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11891
11892 005314 SN=SN+1
11893 000100 XX=XX/2
11894 207400 YY=YY-1000
11895 IFE XX,<XX=400000>
11896 043122 551 02 0 00 000100 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
11897 043123 205 03 0 00 207400 MOVSI AC-1,YY ;SET-UP RESULT
11898 043124 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11899 043125 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11900 043126 003 04 0 00 005314 ER3 AC,SN ;INCORRECT EXPONENT
11901 043127 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
11902
11903
11904 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11905 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11906 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11907
11908 005315 SN=SN+1
11909 000040 XX=XX/2
11910 206400 YY=YY-1000
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 24-10
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0315
11911 IFE XX,<XX=400000>
11912 043130 551 02 0 00 000040 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
11913 043131 205 03 0 00 206400 MOVSI AC-1,YY ;SET-UP RESULT
11914 043132 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11915 043133 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11916 043134 003 04 0 00 005315 ER3 AC,SN ;INCORRECT EXPONENT
11917 043135 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
11918
11919
11920 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11921 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11922 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11923
11924 005316 SN=SN+1
11925 000020 XX=XX/2
11926 205400 YY=YY-1000
11927 IFE XX,<XX=400000>
11928 043136 551 02 0 00 000020 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
11929 043137 205 03 0 00 205400 MOVSI AC-1,YY ;SET-UP RESULT
11930 043140 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11931 043141 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11932 043142 003 04 0 00 005316 ER3 AC,SN ;INCORRECT EXPONENT
11933 043143 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
11934
11935
11936 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11937 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11938 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11939
11940 005317 SN=SN+1
11941 000010 XX=XX/2
11942 204400 YY=YY-1000
11943 IFE XX,<XX=400000>
11944 043144 551 02 0 00 000010 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
11945 043145 205 03 0 00 204400 MOVSI AC-1,YY ;SET-UP RESULT
11946 043146 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11947 043147 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11948 043150 003 04 0 00 005317 ER3 AC,SN ;INCORRECT EXPONENT
11949 043151 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
11950
11951
11952 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11953 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11954 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11955
11956 005320 SN=SN+1
11957 000004 XX=XX/2
11958 203400 YY=YY-1000
11959 IFE XX,<XX=400000>
11960 043152 551 02 0 00 000004 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
11961 043153 205 03 0 00 203400 MOVSI AC-1,YY ;SET-UP RESULT
11962 043154 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11963 043155 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11964 043156 003 04 0 00 005320 ER3 AC,SN ;INCORRECT EXPONENT
11965 043157 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 24-11
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0316
11966
11967
11968 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11969 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11970 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11971
11972 005321 SN=SN+1
11973 000002 XX=XX/2
11974 202400 YY=YY-1000
11975 IFE XX,<XX=400000>
11976 043160 551 02 0 00 000002 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
11977 043161 205 03 0 00 202400 MOVSI AC-1,YY ;SET-UP RESULT
11978 043162 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11979 043163 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11980 043164 003 04 0 00 005321 ER3 AC,SN ;INCORRECT EXPONENT
11981 043165 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
11982
11983
11984 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
11985 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
11986 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
11987
11988 005322 SN=SN+1
11989 000001 XX=XX/2
11990 201400 YY=YY-1000
11991 IFE XX,<XX=400000>
11992 043166 551 02 0 00 000001 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
11993 043167 205 03 0 00 201400 MOVSI AC-1,YY ;SET-UP RESULT
11994 043170 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
11995 043171 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
11996 043172 003 04 0 00 005322 ER3 AC,SN ;INCORRECT EXPONENT
11997 043173 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
11998
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 25
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0317
11999 SUBTTL DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS
12000
12001 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12002
12003 005400 SN=5400
12004 000000 XX=0
12005 532400 YY=532400
12006
12007 Q5400: REPEAT ^D18,<
12008 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12009 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12010 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12011
12012 SN=SN+1
12013 XX=XX!<XX/2>
12014 YY=YY+1000
12015 IFE XX,<XX=400000>
12016 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
12017 MOVSI AC-1,YY ;SET-UP RESULT
12018 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12019 CAME AC,AC-1 ;TEST EXPONENT
12020 ER3 AC,SN ;INCORRECT EXPONENT
12021 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12022 >
12023
12024 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12025 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12026 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12027
12028 005401 SN=SN+1
12029 000000 XX=XX!<XX/2>
12030 533400 YY=YY+1000
12031 400000 IFE XX,<XX=400000>
12032 043174 205 02 0 00 400000 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
12033 043175 205 03 0 00 533400 MOVSI AC-1,YY ;SET-UP RESULT
12034 043176 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12035 043177 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12036 043200 003 04 0 00 005401 ER3 AC,SN ;INCORRECT EXPONENT
12037 043201 321 10 0 00 043174 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12038
12039
12040 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12041 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12042 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12043
12044 005402 SN=SN+1
12045 600000 XX=XX!<XX/2>
12046 534400 YY=YY+1000
12047 IFE XX,<XX=400000>
12048 043202 205 02 0 00 600000 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
12049 043203 205 03 0 00 534400 MOVSI AC-1,YY ;SET-UP RESULT
12050 043204 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12051 043205 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12052 043206 003 04 0 00 005402 ER3 AC,SN ;INCORRECT EXPONENT
12053 043207 321 10 0 00 043202 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 25-1
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0318
12054
12055
12056 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12057 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12058 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12059
12060 005403 SN=SN+1
12061 700000 XX=XX!<XX/2>
12062 535400 YY=YY+1000
12063 IFE XX,<XX=400000>
12064 043210 205 02 0 00 700000 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
12065 043211 205 03 0 00 535400 MOVSI AC-1,YY ;SET-UP RESULT
12066 043212 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12067 043213 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12068 043214 003 04 0 00 005403 ER3 AC,SN ;INCORRECT EXPONENT
12069 043215 321 10 0 00 043210 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12070
12071
12072 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12073 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12074 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12075
12076 005404 SN=SN+1
12077 740000 XX=XX!<XX/2>
12078 536400 YY=YY+1000
12079 IFE XX,<XX=400000>
12080 043216 205 02 0 00 740000 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
12081 043217 205 03 0 00 536400 MOVSI AC-1,YY ;SET-UP RESULT
12082 043220 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12083 043221 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12084 043222 003 04 0 00 005404 ER3 AC,SN ;INCORRECT EXPONENT
12085 043223 321 10 0 00 043216 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12086
12087
12088 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12089 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12090 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12091
12092 005405 SN=SN+1
12093 760000 XX=XX!<XX/2>
12094 537400 YY=YY+1000
12095 IFE XX,<XX=400000>
12096 043224 205 02 0 00 760000 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
12097 043225 205 03 0 00 537400 MOVSI AC-1,YY ;SET-UP RESULT
12098 043226 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12099 043227 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12100 043230 003 04 0 00 005405 ER3 AC,SN ;INCORRECT EXPONENT
12101 043231 321 10 0 00 043224 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12102
12103
12104 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12105 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12106 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12107
12108 005406 SN=SN+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 25-2
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0319
12109 770000 XX=XX!<XX/2>
12110 540400 YY=YY+1000
12111 IFE XX,<XX=400000>
12112 043232 205 02 0 00 770000 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
12113 043233 205 03 0 00 540400 MOVSI AC-1,YY ;SET-UP RESULT
12114 043234 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12115 043235 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12116 043236 003 04 0 00 005406 ER3 AC,SN ;INCORRECT EXPONENT
12117 043237 321 10 0 00 043232 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12118
12119
12120 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12121 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12122 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12123
12124 005407 SN=SN+1
12125 774000 XX=XX!<XX/2>
12126 541400 YY=YY+1000
12127 IFE XX,<XX=400000>
12128 043240 205 02 0 00 774000 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
12129 043241 205 03 0 00 541400 MOVSI AC-1,YY ;SET-UP RESULT
12130 043242 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12131 043243 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12132 043244 003 04 0 00 005407 ER3 AC,SN ;INCORRECT EXPONENT
12133 043245 321 10 0 00 043240 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12134
12135
12136 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12137 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12138 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12139
12140 005410 SN=SN+1
12141 776000 XX=XX!<XX/2>
12142 542400 YY=YY+1000
12143 IFE XX,<XX=400000>
12144 043246 205 02 0 00 776000 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
12145 043247 205 03 0 00 542400 MOVSI AC-1,YY ;SET-UP RESULT
12146 043250 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12147 043251 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12148 043252 003 04 0 00 005410 ER3 AC,SN ;INCORRECT EXPONENT
12149 043253 321 10 0 00 043246 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12150
12151
12152 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12153 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12154 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12155
12156 005411 SN=SN+1
12157 777000 XX=XX!<XX/2>
12158 543400 YY=YY+1000
12159 IFE XX,<XX=400000>
12160 043254 205 02 0 00 777000 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
12161 043255 205 03 0 00 543400 MOVSI AC-1,YY ;SET-UP RESULT
12162 043256 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12163 043257 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 25-3
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0320
12164 043260 003 04 0 00 005411 ER3 AC,SN ;INCORRECT EXPONENT
12165 043261 321 10 0 00 043254 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12166
12167
12168 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12169 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12170 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12171
12172 005412 SN=SN+1
12173 777400 XX=XX!<XX/2>
12174 544400 YY=YY+1000
12175 IFE XX,<XX=400000>
12176 043262 205 02 0 00 777400 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
12177 043263 205 03 0 00 544400 MOVSI AC-1,YY ;SET-UP RESULT
12178 043264 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12179 043265 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12180 043266 003 04 0 00 005412 ER3 AC,SN ;INCORRECT EXPONENT
12181 043267 321 10 0 00 043262 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12182
12183
12184 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12185 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12186 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12187
12188 005413 SN=SN+1
12189 777600 XX=XX!<XX/2>
12190 545400 YY=YY+1000
12191 IFE XX,<XX=400000>
12192 043270 205 02 0 00 777600 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
12193 043271 205 03 0 00 545400 MOVSI AC-1,YY ;SET-UP RESULT
12194 043272 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12195 043273 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12196 043274 003 04 0 00 005413 ER3 AC,SN ;INCORRECT EXPONENT
12197 043275 321 10 0 00 043270 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12198
12199
12200 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12201 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12202 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12203
12204 005414 SN=SN+1
12205 777700 XX=XX!<XX/2>
12206 546400 YY=YY+1000
12207 IFE XX,<XX=400000>
12208 043276 205 02 0 00 777700 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
12209 043277 205 03 0 00 546400 MOVSI AC-1,YY ;SET-UP RESULT
12210 043300 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12211 043301 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12212 043302 003 04 0 00 005414 ER3 AC,SN ;INCORRECT EXPONENT
12213 043303 321 10 0 00 043276 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12214
12215
12216 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12217 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12218 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 25-4
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0321
12219
12220 005415 SN=SN+1
12221 777740 XX=XX!<XX/2>
12222 547400 YY=YY+1000
12223 IFE XX,<XX=400000>
12224 043304 205 02 0 00 777740 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
12225 043305 205 03 0 00 547400 MOVSI AC-1,YY ;SET-UP RESULT
12226 043306 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12227 043307 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12228 043310 003 04 0 00 005415 ER3 AC,SN ;INCORRECT EXPONENT
12229 043311 321 10 0 00 043304 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12230
12231
12232 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12233 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12234 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12235
12236 005416 SN=SN+1
12237 777760 XX=XX!<XX/2>
12238 550400 YY=YY+1000
12239 IFE XX,<XX=400000>
12240 043312 205 02 0 00 777760 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
12241 043313 205 03 0 00 550400 MOVSI AC-1,YY ;SET-UP RESULT
12242 043314 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12243 043315 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12244 043316 003 04 0 00 005416 ER3 AC,SN ;INCORRECT EXPONENT
12245 043317 321 10 0 00 043312 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12246
12247
12248 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12249 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12250 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12251
12252 005417 SN=SN+1
12253 777770 XX=XX!<XX/2>
12254 551400 YY=YY+1000
12255 IFE XX,<XX=400000>
12256 043320 205 02 0 00 777770 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
12257 043321 205 03 0 00 551400 MOVSI AC-1,YY ;SET-UP RESULT
12258 043322 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12259 043323 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12260 043324 003 04 0 00 005417 ER3 AC,SN ;INCORRECT EXPONENT
12261 043325 321 10 0 00 043320 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12262
12263
12264 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12265 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12266 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12267
12268 005420 SN=SN+1
12269 777774 XX=XX!<XX/2>
12270 552400 YY=YY+1000
12271 IFE XX,<XX=400000>
12272 043326 205 02 0 00 777774 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
12273 043327 205 03 0 00 552400 MOVSI AC-1,YY ;SET-UP RESULT
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 25-5
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0322
12274 043330 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12275 043331 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12276 043332 003 04 0 00 005420 ER3 AC,SN ;INCORRECT EXPONENT
12277 043333 321 10 0 00 043326 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12278
12279
12280 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12281 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12282 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12283
12284 005421 SN=SN+1
12285 777776 XX=XX!<XX/2>
12286 553400 YY=YY+1000
12287 IFE XX,<XX=400000>
12288 043334 205 02 0 00 777776 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
12289 043335 205 03 0 00 553400 MOVSI AC-1,YY ;SET-UP RESULT
12290 043336 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12291 043337 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12292 043340 003 04 0 00 005421 ER3 AC,SN ;INCORRECT EXPONENT
12293 043341 321 10 0 00 043334 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12294
12295
12296 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12297 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12298 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12299
12300 005422 SN=SN+1
12301 777777 XX=XX!<XX/2>
12302 554400 YY=YY+1000
12303 IFE XX,<XX=400000>
12304 043342 205 02 0 00 777777 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
12305 043343 205 03 0 00 554400 MOVSI AC-1,YY ;SET-UP RESULT
12306 043344 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12307 043345 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12308 043346 003 04 0 00 005422 ER3 AC,SN ;INCORRECT EXPONENT
12309 043347 321 10 0 00 043342 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12310
12311 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 25-6
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0323
12312 005500 SN=5500
12313 000000 XX=0
12314 554000 YY=554000
12315
12316 Q5500: REPEAT ^D18,<
12317 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12318 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12319 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12320
12321 SN=SN+1
12322 XX=XX!<XX/2>
12323 YY=YY+1000
12324 IFE XX,<XX=400000>
12325 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
12326 MOVSI AC-1,YY+400 ;SET-UP RESULT
12327 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12328 CAME AC,AC-1 ;TEST EXPONENT
12329 ER3 AC,SN ;INCORRECT EXPONENT
12330 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12331 >
12332
12333 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12334 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12335 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12336
12337 005501 SN=SN+1
12338 000000 XX=XX!<XX/2>
12339 555000 YY=YY+1000
12340 400000 IFE XX,<XX=400000>
12341 043350 561 02 0 00 400000 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
12342 043351 205 03 0 00 555400 MOVSI AC-1,YY+400 ;SET-UP RESULT
12343 043352 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12344 043353 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12345 043354 003 04 0 00 005501 ER3 AC,SN ;INCORRECT EXPONENT
12346 043355 321 10 0 00 043350 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12347
12348
12349 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12350 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12351 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12352
12353 005502 SN=SN+1
12354 600000 XX=XX!<XX/2>
12355 556000 YY=YY+1000
12356 IFE XX,<XX=400000>
12357 043356 561 02 0 00 600000 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
12358 043357 205 03 0 00 556400 MOVSI AC-1,YY+400 ;SET-UP RESULT
12359 043360 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12360 043361 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12361 043362 003 04 0 00 005502 ER3 AC,SN ;INCORRECT EXPONENT
12362 043363 321 10 0 00 043356 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12363
12364
12365 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12366 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 25-7
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0324
12367 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12368
12369 005503 SN=SN+1
12370 700000 XX=XX!<XX/2>
12371 557000 YY=YY+1000
12372 IFE XX,<XX=400000>
12373 043364 561 02 0 00 700000 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
12374 043365 205 03 0 00 557400 MOVSI AC-1,YY+400 ;SET-UP RESULT
12375 043366 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12376 043367 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12377 043370 003 04 0 00 005503 ER3 AC,SN ;INCORRECT EXPONENT
12378 043371 321 10 0 00 043364 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12379
12380
12381 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12382 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12383 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12384
12385 005504 SN=SN+1
12386 740000 XX=XX!<XX/2>
12387 560000 YY=YY+1000
12388 IFE XX,<XX=400000>
12389 043372 561 02 0 00 740000 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
12390 043373 205 03 0 00 560400 MOVSI AC-1,YY+400 ;SET-UP RESULT
12391 043374 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12392 043375 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12393 043376 003 04 0 00 005504 ER3 AC,SN ;INCORRECT EXPONENT
12394 043377 321 10 0 00 043372 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12395
12396
12397 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12398 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12399 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12400
12401 005505 SN=SN+1
12402 760000 XX=XX!<XX/2>
12403 561000 YY=YY+1000
12404 IFE XX,<XX=400000>
12405 043400 561 02 0 00 760000 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
12406 043401 205 03 0 00 561400 MOVSI AC-1,YY+400 ;SET-UP RESULT
12407 043402 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12408 043403 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12409 043404 003 04 0 00 005505 ER3 AC,SN ;INCORRECT EXPONENT
12410 043405 321 10 0 00 043400 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12411
12412
12413 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12414 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12415 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12416
12417 005506 SN=SN+1
12418 770000 XX=XX!<XX/2>
12419 562000 YY=YY+1000
12420 IFE XX,<XX=400000>
12421 043406 561 02 0 00 770000 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 25-8
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0325
12422 043407 205 03 0 00 562400 MOVSI AC-1,YY+400 ;SET-UP RESULT
12423 043410 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12424 043411 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12425 043412 003 04 0 00 005506 ER3 AC,SN ;INCORRECT EXPONENT
12426 043413 321 10 0 00 043406 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12427
12428
12429 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12430 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12431 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12432
12433 005507 SN=SN+1
12434 774000 XX=XX!<XX/2>
12435 563000 YY=YY+1000
12436 IFE XX,<XX=400000>
12437 043414 561 02 0 00 774000 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
12438 043415 205 03 0 00 563400 MOVSI AC-1,YY+400 ;SET-UP RESULT
12439 043416 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12440 043417 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12441 043420 003 04 0 00 005507 ER3 AC,SN ;INCORRECT EXPONENT
12442 043421 321 10 0 00 043414 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12443
12444
12445 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12446 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12447 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12448
12449 005510 SN=SN+1
12450 776000 XX=XX!<XX/2>
12451 564000 YY=YY+1000
12452 IFE XX,<XX=400000>
12453 043422 561 02 0 00 776000 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
12454 043423 205 03 0 00 564400 MOVSI AC-1,YY+400 ;SET-UP RESULT
12455 043424 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12456 043425 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12457 043426 003 04 0 00 005510 ER3 AC,SN ;INCORRECT EXPONENT
12458 043427 321 10 0 00 043422 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12459
12460
12461 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12462 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12463 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12464
12465 005511 SN=SN+1
12466 777000 XX=XX!<XX/2>
12467 565000 YY=YY+1000
12468 IFE XX,<XX=400000>
12469 043430 561 02 0 00 777000 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
12470 043431 205 03 0 00 565400 MOVSI AC-1,YY+400 ;SET-UP RESULT
12471 043432 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12472 043433 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12473 043434 003 04 0 00 005511 ER3 AC,SN ;INCORRECT EXPONENT
12474 043435 321 10 0 00 043430 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12475
12476
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 25-9
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0326
12477 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12478 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12479 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12480
12481 005512 SN=SN+1
12482 777400 XX=XX!<XX/2>
12483 566000 YY=YY+1000
12484 IFE XX,<XX=400000>
12485 043436 561 02 0 00 777400 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
12486 043437 205 03 0 00 566400 MOVSI AC-1,YY+400 ;SET-UP RESULT
12487 043440 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12488 043441 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12489 043442 003 04 0 00 005512 ER3 AC,SN ;INCORRECT EXPONENT
12490 043443 321 10 0 00 043436 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12491
12492
12493 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12494 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12495 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12496
12497 005513 SN=SN+1
12498 777600 XX=XX!<XX/2>
12499 567000 YY=YY+1000
12500 IFE XX,<XX=400000>
12501 043444 561 02 0 00 777600 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
12502 043445 205 03 0 00 567400 MOVSI AC-1,YY+400 ;SET-UP RESULT
12503 043446 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12504 043447 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12505 043450 003 04 0 00 005513 ER3 AC,SN ;INCORRECT EXPONENT
12506 043451 321 10 0 00 043444 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12507
12508
12509 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12510 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12511 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12512
12513 005514 SN=SN+1
12514 777700 XX=XX!<XX/2>
12515 570000 YY=YY+1000
12516 IFE XX,<XX=400000>
12517 043452 561 02 0 00 777700 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
12518 043453 205 03 0 00 570400 MOVSI AC-1,YY+400 ;SET-UP RESULT
12519 043454 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12520 043455 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12521 043456 003 04 0 00 005514 ER3 AC,SN ;INCORRECT EXPONENT
12522 043457 321 10 0 00 043452 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12523
12524
12525 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12526 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12527 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12528
12529 005515 SN=SN+1
12530 777740 XX=XX!<XX/2>
12531 571000 YY=YY+1000
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 25-10
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0327
12532 IFE XX,<XX=400000>
12533 043460 561 02 0 00 777740 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
12534 043461 205 03 0 00 571400 MOVSI AC-1,YY+400 ;SET-UP RESULT
12535 043462 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12536 043463 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12537 043464 003 04 0 00 005515 ER3 AC,SN ;INCORRECT EXPONENT
12538 043465 321 10 0 00 043460 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12539
12540
12541 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12542 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12543 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12544
12545 005516 SN=SN+1
12546 777760 XX=XX!<XX/2>
12547 572000 YY=YY+1000
12548 IFE XX,<XX=400000>
12549 043466 561 02 0 00 777760 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
12550 043467 205 03 0 00 572400 MOVSI AC-1,YY+400 ;SET-UP RESULT
12551 043470 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12552 043471 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12553 043472 003 04 0 00 005516 ER3 AC,SN ;INCORRECT EXPONENT
12554 043473 321 10 0 00 043466 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12555
12556
12557 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12558 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12559 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12560
12561 005517 SN=SN+1
12562 777770 XX=XX!<XX/2>
12563 573000 YY=YY+1000
12564 IFE XX,<XX=400000>
12565 043474 561 02 0 00 777770 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
12566 043475 205 03 0 00 573400 MOVSI AC-1,YY+400 ;SET-UP RESULT
12567 043476 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12568 043477 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12569 043500 003 04 0 00 005517 ER3 AC,SN ;INCORRECT EXPONENT
12570 043501 321 10 0 00 043474 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12571
12572
12573 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12574 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12575 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12576
12577 005520 SN=SN+1
12578 777774 XX=XX!<XX/2>
12579 574000 YY=YY+1000
12580 IFE XX,<XX=400000>
12581 043502 561 02 0 00 777774 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
12582 043503 205 03 0 00 574400 MOVSI AC-1,YY+400 ;SET-UP RESULT
12583 043504 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12584 043505 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12585 043506 003 04 0 00 005520 ER3 AC,SN ;INCORRECT EXPONENT
12586 043507 321 10 0 00 043502 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 25-11
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0328
12587
12588
12589 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12590 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12591 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12592
12593 005521 SN=SN+1
12594 777776 XX=XX!<XX/2>
12595 575000 YY=YY+1000
12596 IFE XX,<XX=400000>
12597 043510 561 02 0 00 777776 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
12598 043511 205 03 0 00 575400 MOVSI AC-1,YY+400 ;SET-UP RESULT
12599 043512 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12600 043513 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12601 043514 003 04 0 00 005521 ER3 AC,SN ;INCORRECT EXPONENT
12602 043515 321 10 0 00 043510 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12603
12604
12605 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12606 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12607 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
12608
12609 005522 SN=SN+1
12610 777777 XX=XX!<XX/2>
12611 576000 YY=YY+1000
12612 IFE XX,<XX=400000>
12613 043516 561 02 0 00 777777 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
12614 043517 205 03 0 00 576400 MOVSI AC-1,YY+400 ;SET-UP RESULT
12615 043520 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12616 043521 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
12617 043522 003 04 0 00 005522 ER3 AC,SN ;INCORRECT EXPONENT
12618 043523 321 10 0 00 043516 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
12619
12620 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 25-12
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0329
12621 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 0
12622 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12623 ;FLOAT A WORD OF ALL ZEROS
12624
12625 043524 403 02 0 00 000003 Q5600: SETZB AC-2,AC-1 ;INITIALIZE FIXED POINT WORD
12626 043525 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. 0 IN 'E' TO FLT PT
12627 043526 312 04 0 00 000003 CAME AC,AC-1 ;EXAMINE RESULT FOR 0
12628 043527 003 04 0 00 005601 ER3 AC,5601 ;CONVERSION FAILED
12629 043530 321 10 0 00 043524 JUMPL SAC,Q5600 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 26
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS SEQ 0330
12630 SUBTTL DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS
12631
12632 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12633 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12634 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
12635
12636 043531 201 02 0 00 777400 Q5700: MOVEI AC-2,777400 ;INITIALIZE FIX PT WORD
12637 043532 505 02 0 00 377777 HRLI AC-2,377777
12638 043533 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP RESULT
12639 043534 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12640 043535 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
12641 043536 003 04 0 00 005701 ER3 AC,5701 ;FRACTION NOT ALL ONES
12642 043537 321 10 0 00 043531 JUMPL SAC,Q5700 ;LOOP ON ERROR SWITCH
12643
12644 006000 SN=6000
12645 777200 XX=777200
12646 000000 YY=0
12647
12648 Q6000: REPEAT ^D10,<
12649 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12650 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12651 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
12652
12653 SN=SN+1
12654 XX=<XX+XX+400>&777777
12655 YY=<YY+YY+1>&777777
12656 IFE <YY-1>,<YY=777776>
12657 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR.
12658 TLZ AC-2,1B18
12659 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7
12660 HRRI AC-1,YY
12661 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12662 CAME AC,AC-1 ;TEST FRACTION
12663 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
12664 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
12665 >
12666
12667 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12668 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12669 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
12670
12671 006001 SN=SN+1
12672 777000 XX=<XX+XX+400>&777777
12673 000001 YY=<YY+YY+1>&777777
12674 777776 IFE <YY-1>,<YY=777776>
12675 043540 561 02 0 00 777000 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR.
12676 043541 621 02 0 00 400000 TLZ AC-2,1B18
12677 043542 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7
12678 043543 541 03 0 00 777776 HRRI AC-1,YY
12679 043544 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12680 043545 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
12681 043546 003 04 0 00 006001 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
12682 043547 321 10 0 00 043540 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
12683
12684
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 26-1
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS SEQ 0331
12685 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12686 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12687 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
12688
12689 006002 SN=SN+1
12690 776400 XX=<XX+XX+400>&777777
12691 777775 YY=<YY+YY+1>&777777
12692 IFE <YY-1>,<YY=777776>
12693 043550 561 02 0 00 776400 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR.
12694 043551 621 02 0 00 400000 TLZ AC-2,1B18
12695 043552 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7
12696 043553 541 03 0 00 777775 HRRI AC-1,YY
12697 043554 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12698 043555 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
12699 043556 003 04 0 00 006002 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
12700 043557 321 10 0 00 043550 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
12701
12702
12703 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12704 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12705 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
12706
12707 006003 SN=SN+1
12708 775400 XX=<XX+XX+400>&777777
12709 777773 YY=<YY+YY+1>&777777
12710 IFE <YY-1>,<YY=777776>
12711 043560 561 02 0 00 775400 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR.
12712 043561 621 02 0 00 400000 TLZ AC-2,1B18
12713 043562 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7
12714 043563 541 03 0 00 777773 HRRI AC-1,YY
12715 043564 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12716 043565 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
12717 043566 003 04 0 00 006003 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
12718 043567 321 10 0 00 043560 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
12719
12720
12721 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12722 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12723 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
12724
12725 006004 SN=SN+1
12726 773400 XX=<XX+XX+400>&777777
12727 777767 YY=<YY+YY+1>&777777
12728 IFE <YY-1>,<YY=777776>
12729 043570 561 02 0 00 773400 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR.
12730 043571 621 02 0 00 400000 TLZ AC-2,1B18
12731 043572 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7
12732 043573 541 03 0 00 777767 HRRI AC-1,YY
12733 043574 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12734 043575 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
12735 043576 003 04 0 00 006004 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
12736 043577 321 10 0 00 043570 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
12737
12738
12739 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 26-2
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS SEQ 0332
12740 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12741 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
12742
12743 006005 SN=SN+1
12744 767400 XX=<XX+XX+400>&777777
12745 777757 YY=<YY+YY+1>&777777
12746 IFE <YY-1>,<YY=777776>
12747 043600 561 02 0 00 767400 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR.
12748 043601 621 02 0 00 400000 TLZ AC-2,1B18
12749 043602 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7
12750 043603 541 03 0 00 777757 HRRI AC-1,YY
12751 043604 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12752 043605 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
12753 043606 003 04 0 00 006005 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
12754 043607 321 10 0 00 043600 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
12755
12756
12757 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12758 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12759 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
12760
12761 006006 SN=SN+1
12762 757400 XX=<XX+XX+400>&777777
12763 777737 YY=<YY+YY+1>&777777
12764 IFE <YY-1>,<YY=777776>
12765 043610 561 02 0 00 757400 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR.
12766 043611 621 02 0 00 400000 TLZ AC-2,1B18
12767 043612 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7
12768 043613 541 03 0 00 777737 HRRI AC-1,YY
12769 043614 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12770 043615 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
12771 043616 003 04 0 00 006006 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
12772 043617 321 10 0 00 043610 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
12773
12774
12775 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12776 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12777 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
12778
12779 006007 SN=SN+1
12780 737400 XX=<XX+XX+400>&777777
12781 777677 YY=<YY+YY+1>&777777
12782 IFE <YY-1>,<YY=777776>
12783 043620 561 02 0 00 737400 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR.
12784 043621 621 02 0 00 400000 TLZ AC-2,1B18
12785 043622 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7
12786 043623 541 03 0 00 777677 HRRI AC-1,YY
12787 043624 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12788 043625 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
12789 043626 003 04 0 00 006007 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
12790 043627 321 10 0 00 043620 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
12791
12792
12793 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12794 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 26-3
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS SEQ 0333
12795 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
12796
12797 006010 SN=SN+1
12798 677400 XX=<XX+XX+400>&777777
12799 777577 YY=<YY+YY+1>&777777
12800 IFE <YY-1>,<YY=777776>
12801 043630 561 02 0 00 677400 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR.
12802 043631 621 02 0 00 400000 TLZ AC-2,1B18
12803 043632 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7
12804 043633 541 03 0 00 777577 HRRI AC-1,YY
12805 043634 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12806 043635 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
12807 043636 003 04 0 00 006010 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
12808 043637 321 10 0 00 043630 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
12809
12810
12811 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12812 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12813 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
12814
12815 006011 SN=SN+1
12816 577400 XX=<XX+XX+400>&777777
12817 777377 YY=<YY+YY+1>&777777
12818 IFE <YY-1>,<YY=777776>
12819 043640 561 02 0 00 577400 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR.
12820 043641 621 02 0 00 400000 TLZ AC-2,1B18
12821 043642 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7
12822 043643 541 03 0 00 777377 HRRI AC-1,YY
12823 043644 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12824 043645 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
12825 043646 003 04 0 00 006011 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
12826 043647 321 10 0 00 043640 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
12827
12828
12829 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12830 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12831 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
12832
12833 006012 SN=SN+1
12834 377400 XX=<XX+XX+400>&777777
12835 776777 YY=<YY+YY+1>&777777
12836 IFE <YY-1>,<YY=777776>
12837 043650 561 02 0 00 377400 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR.
12838 043651 621 02 0 00 400000 TLZ AC-2,1B18
12839 043652 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7
12840 043653 541 03 0 00 776777 HRRI AC-1,YY
12841 043654 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12842 043655 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
12843 043656 003 04 0 00 006012 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
12844 043657 321 10 0 00 043650 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
12845
12846 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 26-4
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS SEQ 0334
12847 006100 SN=6100
12848 000000 XX=0
12849 776777 YY=776777
12850 Q6100: REPEAT ^D8,<
12851 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12852 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12853 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
12854
12855 SN=SN+1
12856 XX=<XX+XX+1>&377777
12857 YY=<YY+YY+1>&777777
12858 IFE <XX-1>,<XX=377776>
12859 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
12860 HRRI AC-2,777400
12861 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT
12862 HRRI AC-1,YY
12863 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12864 CAME AC,AC-1 ;TEST FRACTION
12865 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
12866 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
12867 >
12868
12869 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12870 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12871 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
12872
12873 006101 SN=SN+1
12874 000001 XX=<XX+XX+1>&377777
12875 775777 YY=<YY+YY+1>&777777
12876 377776 IFE <XX-1>,<XX=377776>
12877 043660 525 02 0 00 377776 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
12878 043661 541 02 0 00 777400 HRRI AC-2,777400
12879 043662 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT
12880 043663 541 03 0 00 775777 HRRI AC-1,YY
12881 043664 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12882 043665 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
12883 043666 003 04 0 00 006101 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
12884 043667 321 10 0 00 043660 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
12885
12886
12887 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12888 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12889 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
12890
12891 006102 SN=SN+1
12892 377775 XX=<XX+XX+1>&377777
12893 773777 YY=<YY+YY+1>&777777
12894 IFE <XX-1>,<XX=377776>
12895 043670 525 02 0 00 377775 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
12896 043671 541 02 0 00 777400 HRRI AC-2,777400
12897 043672 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT
12898 043673 541 03 0 00 773777 HRRI AC-1,YY
12899 043674 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12900 043675 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
12901 043676 003 04 0 00 006102 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 26-5
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS SEQ 0335
12902 043677 321 10 0 00 043670 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
12903
12904
12905 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12906 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12907 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
12908
12909 006103 SN=SN+1
12910 377773 XX=<XX+XX+1>&377777
12911 767777 YY=<YY+YY+1>&777777
12912 IFE <XX-1>,<XX=377776>
12913 043700 525 02 0 00 377773 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
12914 043701 541 02 0 00 777400 HRRI AC-2,777400
12915 043702 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT
12916 043703 541 03 0 00 767777 HRRI AC-1,YY
12917 043704 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12918 043705 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
12919 043706 003 04 0 00 006103 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
12920 043707 321 10 0 00 043700 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
12921
12922
12923 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12924 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12925 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
12926
12927 006104 SN=SN+1
12928 377767 XX=<XX+XX+1>&377777
12929 757777 YY=<YY+YY+1>&777777
12930 IFE <XX-1>,<XX=377776>
12931 043710 525 02 0 00 377767 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
12932 043711 541 02 0 00 777400 HRRI AC-2,777400
12933 043712 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT
12934 043713 541 03 0 00 757777 HRRI AC-1,YY
12935 043714 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12936 043715 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
12937 043716 003 04 0 00 006104 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
12938 043717 321 10 0 00 043710 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
12939
12940
12941 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12942 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12943 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
12944
12945 006105 SN=SN+1
12946 377757 XX=<XX+XX+1>&377777
12947 737777 YY=<YY+YY+1>&777777
12948 IFE <XX-1>,<XX=377776>
12949 043720 525 02 0 00 377757 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
12950 043721 541 02 0 00 777400 HRRI AC-2,777400
12951 043722 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT
12952 043723 541 03 0 00 737777 HRRI AC-1,YY
12953 043724 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12954 043725 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
12955 043726 003 04 0 00 006105 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
12956 043727 321 10 0 00 043720 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 26-6
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS SEQ 0336
12957
12958
12959 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12960 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12961 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
12962
12963 006106 SN=SN+1
12964 377737 XX=<XX+XX+1>&377777
12965 677777 YY=<YY+YY+1>&777777
12966 IFE <XX-1>,<XX=377776>
12967 043730 525 02 0 00 377737 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
12968 043731 541 02 0 00 777400 HRRI AC-2,777400
12969 043732 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT
12970 043733 541 03 0 00 677777 HRRI AC-1,YY
12971 043734 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12972 043735 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
12973 043736 003 04 0 00 006106 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
12974 043737 321 10 0 00 043730 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
12975
12976
12977 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12978 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12979 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
12980
12981 006107 SN=SN+1
12982 377677 XX=<XX+XX+1>&377777
12983 577777 YY=<YY+YY+1>&777777
12984 IFE <XX-1>,<XX=377776>
12985 043740 525 02 0 00 377677 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
12986 043741 541 02 0 00 777400 HRRI AC-2,777400
12987 043742 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT
12988 043743 541 03 0 00 577777 HRRI AC-1,YY
12989 043744 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
12990 043745 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
12991 043746 003 04 0 00 006107 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
12992 043747 321 10 0 00 043740 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
12993
12994
12995 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
12996 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
12997 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
12998
12999 006110 SN=SN+1
13000 377577 XX=<XX+XX+1>&377777
13001 377777 YY=<YY+YY+1>&777777
13002 IFE <XX-1>,<XX=377776>
13003 043750 525 02 0 00 377577 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
13004 043751 541 02 0 00 777400 HRRI AC-2,777400
13005 043752 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT
13006 043753 541 03 0 00 377777 HRRI AC-1,YY
13007 043754 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
13008 043755 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13009 043756 003 04 0 00 006110 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
13010 043757 321 10 0 00 043750 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
13011
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 27
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS SEQ 0337
13012 006200 SN=6200
13013 377577 XX=377577
13014 000000 YY=0
13015
13016 Q6200: REPEAT ^D8,<
13017 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13018 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13019 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
13020
13021 SN=SN+1
13022 XX=<XX+XX+1>&377777
13023 YY=<YY+YY+1>&777
13024 IFE <YY-1>,<YY=776>
13025 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
13026 HRRI AC-2,777400
13027 HRLOI AC-1,243000+YY ;SET-UP EXPECTED RESULT
13028 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
13029 CAME AC,AC-1 ;TEST FRACTION
13030 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
13031 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
13032 >
13033
13034 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13035 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13036 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
13037
13038 006201 SN=SN+1
13039 377377 XX=<XX+XX+1>&377777
13040 000001 YY=<YY+YY+1>&777
13041 000776 IFE <YY-1>,<YY=776>
13042 043760 525 02 0 00 377377 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
13043 043761 541 02 0 00 777400 HRRI AC-2,777400
13044 043762 525 03 0 00 243776 HRLOI AC-1,243000+YY ;SET-UP EXPECTED RESULT
13045 043763 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
13046 043764 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13047 043765 003 04 0 00 006201 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
13048 043766 321 10 0 00 043760 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
13049
13050
13051 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13052 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13053 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
13054
13055 006202 SN=SN+1
13056 376777 XX=<XX+XX+1>&377777
13057 000775 YY=<YY+YY+1>&777
13058 IFE <YY-1>,<YY=776>
13059 043767 525 02 0 00 376777 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
13060 043770 541 02 0 00 777400 HRRI AC-2,777400
13061 043771 525 03 0 00 243775 HRLOI AC-1,243000+YY ;SET-UP EXPECTED RESULT
13062 043772 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
13063 043773 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13064 043774 003 04 0 00 006202 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
13065 043775 321 10 0 00 043767 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
13066
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 27-1
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS SEQ 0338
13067
13068 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13069 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13070 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
13071
13072 006203 SN=SN+1
13073 375777 XX=<XX+XX+1>&377777
13074 000773 YY=<YY+YY+1>&777
13075 IFE <YY-1>,<YY=776>
13076 043776 525 02 0 00 375777 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
13077 043777 541 02 0 00 777400 HRRI AC-2,777400
13078 044000 525 03 0 00 243773 HRLOI AC-1,243000+YY ;SET-UP EXPECTED RESULT
13079 044001 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
13080 044002 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13081 044003 003 04 0 00 006203 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
13082 044004 321 10 0 00 043776 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
13083
13084
13085 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13086 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13087 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
13088
13089 006204 SN=SN+1
13090 373777 XX=<XX+XX+1>&377777
13091 000767 YY=<YY+YY+1>&777
13092 IFE <YY-1>,<YY=776>
13093 044005 525 02 0 00 373777 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
13094 044006 541 02 0 00 777400 HRRI AC-2,777400
13095 044007 525 03 0 00 243767 HRLOI AC-1,243000+YY ;SET-UP EXPECTED RESULT
13096 044010 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
13097 044011 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13098 044012 003 04 0 00 006204 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
13099 044013 321 10 0 00 044005 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
13100
13101
13102 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13103 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13104 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
13105
13106 006205 SN=SN+1
13107 367777 XX=<XX+XX+1>&377777
13108 000757 YY=<YY+YY+1>&777
13109 IFE <YY-1>,<YY=776>
13110 044014 525 02 0 00 367777 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
13111 044015 541 02 0 00 777400 HRRI AC-2,777400
13112 044016 525 03 0 00 243757 HRLOI AC-1,243000+YY ;SET-UP EXPECTED RESULT
13113 044017 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
13114 044020 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13115 044021 003 04 0 00 006205 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
13116 044022 321 10 0 00 044014 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
13117
13118
13119 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13120 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13121 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 27-2
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS SEQ 0339
13122
13123 006206 SN=SN+1
13124 357777 XX=<XX+XX+1>&377777
13125 000737 YY=<YY+YY+1>&777
13126 IFE <YY-1>,<YY=776>
13127 044023 525 02 0 00 357777 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
13128 044024 541 02 0 00 777400 HRRI AC-2,777400
13129 044025 525 03 0 00 243737 HRLOI AC-1,243000+YY ;SET-UP EXPECTED RESULT
13130 044026 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
13131 044027 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13132 044030 003 04 0 00 006206 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
13133 044031 321 10 0 00 044023 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
13134
13135
13136 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13137 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13138 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
13139
13140 006207 SN=SN+1
13141 337777 XX=<XX+XX+1>&377777
13142 000677 YY=<YY+YY+1>&777
13143 IFE <YY-1>,<YY=776>
13144 044032 525 02 0 00 337777 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
13145 044033 541 02 0 00 777400 HRRI AC-2,777400
13146 044034 525 03 0 00 243677 HRLOI AC-1,243000+YY ;SET-UP EXPECTED RESULT
13147 044035 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
13148 044036 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13149 044037 003 04 0 00 006207 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
13150 044040 321 10 0 00 044032 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
13151
13152
13153 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13154 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13155 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
13156
13157 006210 SN=SN+1
13158 277777 XX=<XX+XX+1>&377777
13159 000577 YY=<YY+YY+1>&777
13160 IFE <YY-1>,<YY=776>
13161 044041 525 02 0 00 277777 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
13162 044042 541 02 0 00 777400 HRRI AC-2,777400
13163 044043 525 03 0 00 243577 HRLOI AC-1,243000+YY ;SET-UP EXPECTED RESULT
13164 044044 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
13165 044045 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13166 044046 003 04 0 00 006210 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
13167 044047 321 10 0 00 044041 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
13168
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 28
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES SEQ 0340
13169 SUBTTL DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES
13170
13171 ;RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS
13172
13173 006300 SN=6300
13174 000200 XX=200
13175 000000 YY=0
13176
13177 Q6300: REPEAT ^D10,<
13178 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13179 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13180 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
13181
13182 SN=SN+1
13183 XX=XX+XX
13184 YY=YY+YY
13185 IFE YY,<YY=1>
13186 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR.
13187 HRRI AC-2,XX
13188 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT
13189 HRRI AC-1,YY
13190 FLTR AC,AC-2 ;CONVERT TO FLT PT
13191 CAME AC,AC-1 ;TEST FRACTION
13192 ER3 AC,SN ;FAILURE
13193 JUMPL SAC,.-7 ;LOOP ON ERROR
13194 >
13195
13196 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13197 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13198 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
13199
13200 006301 SN=SN+1
13201 000400 XX=XX+XX
13202 000000 YY=YY+YY
13203 000001 IFE YY,<YY=1>
13204 044050 205 02 0 00 200000 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR.
13205 044051 541 02 0 00 000400 HRRI AC-2,XX
13206 044052 205 03 0 00 243400 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT
13207 044053 541 03 0 00 000001 HRRI AC-1,YY
13208 044054 127 04 0 00 000002 FLTR AC,AC-2 ;CONVERT TO FLT PT
13209 044055 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13210 044056 003 04 0 00 006301 ER3 AC,SN ;FAILURE
13211 044057 321 10 0 00 044050 JUMPL SAC,.-7 ;LOOP ON ERROR
13212
13213
13214 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13215 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13216 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
13217
13218 006302 SN=SN+1
13219 001000 XX=XX+XX
13220 000002 YY=YY+YY
13221 IFE YY,<YY=1>
13222 044060 205 02 0 00 200000 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR.
13223 044061 541 02 0 00 001000 HRRI AC-2,XX
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 28-1
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES SEQ 0341
13224 044062 205 03 0 00 243400 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT
13225 044063 541 03 0 00 000002 HRRI AC-1,YY
13226 044064 127 04 0 00 000002 FLTR AC,AC-2 ;CONVERT TO FLT PT
13227 044065 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13228 044066 003 04 0 00 006302 ER3 AC,SN ;FAILURE
13229 044067 321 10 0 00 044060 JUMPL SAC,.-7 ;LOOP ON ERROR
13230
13231
13232 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13233 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13234 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
13235
13236 006303 SN=SN+1
13237 002000 XX=XX+XX
13238 000004 YY=YY+YY
13239 IFE YY,<YY=1>
13240 044070 205 02 0 00 200000 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR.
13241 044071 541 02 0 00 002000 HRRI AC-2,XX
13242 044072 205 03 0 00 243400 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT
13243 044073 541 03 0 00 000004 HRRI AC-1,YY
13244 044074 127 04 0 00 000002 FLTR AC,AC-2 ;CONVERT TO FLT PT
13245 044075 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13246 044076 003 04 0 00 006303 ER3 AC,SN ;FAILURE
13247 044077 321 10 0 00 044070 JUMPL SAC,.-7 ;LOOP ON ERROR
13248
13249
13250 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13251 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13252 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
13253
13254 006304 SN=SN+1
13255 004000 XX=XX+XX
13256 000010 YY=YY+YY
13257 IFE YY,<YY=1>
13258 044100 205 02 0 00 200000 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR.
13259 044101 541 02 0 00 004000 HRRI AC-2,XX
13260 044102 205 03 0 00 243400 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT
13261 044103 541 03 0 00 000010 HRRI AC-1,YY
13262 044104 127 04 0 00 000002 FLTR AC,AC-2 ;CONVERT TO FLT PT
13263 044105 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13264 044106 003 04 0 00 006304 ER3 AC,SN ;FAILURE
13265 044107 321 10 0 00 044100 JUMPL SAC,.-7 ;LOOP ON ERROR
13266
13267
13268 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13269 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13270 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
13271
13272 006305 SN=SN+1
13273 010000 XX=XX+XX
13274 000020 YY=YY+YY
13275 IFE YY,<YY=1>
13276 044110 205 02 0 00 200000 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR.
13277 044111 541 02 0 00 010000 HRRI AC-2,XX
13278 044112 205 03 0 00 243400 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 28-2
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES SEQ 0342
13279 044113 541 03 0 00 000020 HRRI AC-1,YY
13280 044114 127 04 0 00 000002 FLTR AC,AC-2 ;CONVERT TO FLT PT
13281 044115 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13282 044116 003 04 0 00 006305 ER3 AC,SN ;FAILURE
13283 044117 321 10 0 00 044110 JUMPL SAC,.-7 ;LOOP ON ERROR
13284
13285
13286 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13287 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13288 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
13289
13290 006306 SN=SN+1
13291 020000 XX=XX+XX
13292 000040 YY=YY+YY
13293 IFE YY,<YY=1>
13294 044120 205 02 0 00 200000 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR.
13295 044121 541 02 0 00 020000 HRRI AC-2,XX
13296 044122 205 03 0 00 243400 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT
13297 044123 541 03 0 00 000040 HRRI AC-1,YY
13298 044124 127 04 0 00 000002 FLTR AC,AC-2 ;CONVERT TO FLT PT
13299 044125 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13300 044126 003 04 0 00 006306 ER3 AC,SN ;FAILURE
13301 044127 321 10 0 00 044120 JUMPL SAC,.-7 ;LOOP ON ERROR
13302
13303
13304 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13305 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13306 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
13307
13308 006307 SN=SN+1
13309 040000 XX=XX+XX
13310 000100 YY=YY+YY
13311 IFE YY,<YY=1>
13312 044130 205 02 0 00 200000 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR.
13313 044131 541 02 0 00 040000 HRRI AC-2,XX
13314 044132 205 03 0 00 243400 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT
13315 044133 541 03 0 00 000100 HRRI AC-1,YY
13316 044134 127 04 0 00 000002 FLTR AC,AC-2 ;CONVERT TO FLT PT
13317 044135 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13318 044136 003 04 0 00 006307 ER3 AC,SN ;FAILURE
13319 044137 321 10 0 00 044130 JUMPL SAC,.-7 ;LOOP ON ERROR
13320
13321
13322 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13323 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13324 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
13325
13326 006310 SN=SN+1
13327 100000 XX=XX+XX
13328 000200 YY=YY+YY
13329 IFE YY,<YY=1>
13330 044140 205 02 0 00 200000 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR.
13331 044141 541 02 0 00 100000 HRRI AC-2,XX
13332 044142 205 03 0 00 243400 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT
13333 044143 541 03 0 00 000200 HRRI AC-1,YY
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 28-3
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES SEQ 0343
13334 044144 127 04 0 00 000002 FLTR AC,AC-2 ;CONVERT TO FLT PT
13335 044145 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13336 044146 003 04 0 00 006310 ER3 AC,SN ;FAILURE
13337 044147 321 10 0 00 044140 JUMPL SAC,.-7 ;LOOP ON ERROR
13338
13339
13340 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13341 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13342 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
13343
13344 006311 SN=SN+1
13345 200000 XX=XX+XX
13346 000400 YY=YY+YY
13347 IFE YY,<YY=1>
13348 044150 205 02 0 00 200000 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR.
13349 044151 541 02 0 00 200000 HRRI AC-2,XX
13350 044152 205 03 0 00 243400 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT
13351 044153 541 03 0 00 000400 HRRI AC-1,YY
13352 044154 127 04 0 00 000002 FLTR AC,AC-2 ;CONVERT TO FLT PT
13353 044155 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13354 044156 003 04 0 00 006311 ER3 AC,SN ;FAILURE
13355 044157 321 10 0 00 044150 JUMPL SAC,.-7 ;LOOP ON ERROR
13356
13357
13358 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13359 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13360 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
13361
13362 006312 SN=SN+1
13363 400000 XX=XX+XX
13364 001000 YY=YY+YY
13365 IFE YY,<YY=1>
13366 044160 205 02 0 00 200000 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR.
13367 044161 541 02 0 00 400000 HRRI AC-2,XX
13368 044162 205 03 0 00 243400 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT
13369 044163 541 03 0 00 001000 HRRI AC-1,YY
13370 044164 127 04 0 00 000002 FLTR AC,AC-2 ;CONVERT TO FLT PT
13371 044165 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13372 044166 003 04 0 00 006312 ER3 AC,SN ;FAILURE
13373 044167 321 10 0 00 044160 JUMPL SAC,.-7 ;LOOP ON ERROR
13374
13375 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 28-4
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES SEQ 0344
13376 006400 SN=6400
13377 000000 XX=0
13378 001000 YY=1000
13379
13380 Q6400: REPEAT ^D8,<
13381 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT
13382 ;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13383 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
13384
13385 SN=SN+1
13386 XX=XX+XX
13387 YY=YY+YY
13388 IFE XX,<XX=1>
13389 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
13390 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT
13391 HRRI AC-1,YY
13392 FLTR AC,AC-2 ;*FIXED TO FLOAT
13393 CAME AC,AC-1 ;TEST FRACTION
13394 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13395 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
13396 >
13397
13398 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT
13399 ;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13400 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
13401
13402 006401 SN=SN+1
13403 000000 XX=XX+XX
13404 002000 YY=YY+YY
13405 000001 IFE XX,<XX=1>
13406 044170 205 02 0 00 200001 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
13407 044171 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT
13408 044172 541 03 0 00 002000 HRRI AC-1,YY
13409 044173 127 04 0 00 000002 FLTR AC,AC-2 ;*FIXED TO FLOAT
13410 044174 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13411 044175 003 04 0 00 006401 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13412 044176 321 10 0 00 044170 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
13413
13414
13415 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT
13416 ;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13417 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
13418
13419 006402 SN=SN+1
13420 000002 XX=XX+XX
13421 004000 YY=YY+YY
13422 IFE XX,<XX=1>
13423 044177 205 02 0 00 200002 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
13424 044200 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT
13425 044201 541 03 0 00 004000 HRRI AC-1,YY
13426 044202 127 04 0 00 000002 FLTR AC,AC-2 ;*FIXED TO FLOAT
13427 044203 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13428 044204 003 04 0 00 006402 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13429 044205 321 10 0 00 044177 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
13430
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 28-5
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES SEQ 0345
13431
13432 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT
13433 ;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13434 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
13435
13436 006403 SN=SN+1
13437 000004 XX=XX+XX
13438 010000 YY=YY+YY
13439 IFE XX,<XX=1>
13440 044206 205 02 0 00 200004 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
13441 044207 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT
13442 044210 541 03 0 00 010000 HRRI AC-1,YY
13443 044211 127 04 0 00 000002 FLTR AC,AC-2 ;*FIXED TO FLOAT
13444 044212 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13445 044213 003 04 0 00 006403 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13446 044214 321 10 0 00 044206 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
13447
13448
13449 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT
13450 ;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13451 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
13452
13453 006404 SN=SN+1
13454 000010 XX=XX+XX
13455 020000 YY=YY+YY
13456 IFE XX,<XX=1>
13457 044215 205 02 0 00 200010 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
13458 044216 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT
13459 044217 541 03 0 00 020000 HRRI AC-1,YY
13460 044220 127 04 0 00 000002 FLTR AC,AC-2 ;*FIXED TO FLOAT
13461 044221 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13462 044222 003 04 0 00 006404 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13463 044223 321 10 0 00 044215 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
13464
13465
13466 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT
13467 ;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13468 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
13469
13470 006405 SN=SN+1
13471 000020 XX=XX+XX
13472 040000 YY=YY+YY
13473 IFE XX,<XX=1>
13474 044224 205 02 0 00 200020 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
13475 044225 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT
13476 044226 541 03 0 00 040000 HRRI AC-1,YY
13477 044227 127 04 0 00 000002 FLTR AC,AC-2 ;*FIXED TO FLOAT
13478 044230 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13479 044231 003 04 0 00 006405 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13480 044232 321 10 0 00 044224 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
13481
13482
13483 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT
13484 ;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13485 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 28-6
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES SEQ 0346
13486
13487 006406 SN=SN+1
13488 000040 XX=XX+XX
13489 100000 YY=YY+YY
13490 IFE XX,<XX=1>
13491 044233 205 02 0 00 200040 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
13492 044234 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT
13493 044235 541 03 0 00 100000 HRRI AC-1,YY
13494 044236 127 04 0 00 000002 FLTR AC,AC-2 ;*FIXED TO FLOAT
13495 044237 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13496 044240 003 04 0 00 006406 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13497 044241 321 10 0 00 044233 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
13498
13499
13500 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT
13501 ;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13502 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
13503
13504 006407 SN=SN+1
13505 000100 XX=XX+XX
13506 200000 YY=YY+YY
13507 IFE XX,<XX=1>
13508 044242 205 02 0 00 200100 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
13509 044243 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT
13510 044244 541 03 0 00 200000 HRRI AC-1,YY
13511 044245 127 04 0 00 000002 FLTR AC,AC-2 ;*FIXED TO FLOAT
13512 044246 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13513 044247 003 04 0 00 006407 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13514 044250 321 10 0 00 044242 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
13515
13516
13517 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT
13518 ;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13519 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
13520
13521 006410 SN=SN+1
13522 000200 XX=XX+XX
13523 400000 YY=YY+YY
13524 IFE XX,<XX=1>
13525 044251 205 02 0 00 200200 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
13526 044252 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT
13527 044253 541 03 0 00 400000 HRRI AC-1,YY
13528 044254 127 04 0 00 000002 FLTR AC,AC-2 ;*FIXED TO FLOAT
13529 044255 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13530 044256 003 04 0 00 006410 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13531 044257 321 10 0 00 044251 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
13532
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 29
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES SEQ 0347
13533 006500 SN=6500
13534 000200 XX=200
13535 000000 YY=0
13536
13537 Q6500: REPEAT ^D8,<
13538 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13539 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13540 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
13541
13542 SN=SN+1
13543 XX=XX+XX
13544 YY=YY+YY
13545 IFE YY,<YY=1>
13546 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
13547 MOVSI AC-1,243400+YY ;SET-UP EXPECTED RESULT
13548 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
13549 RESULT IN AC
13550 CAME AC,AC-1 ;TEST FRACTION
13551 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13552 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
13553 >
13554
13555 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13556 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13557 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
13558
13559 006501 SN=SN+1
13560 000400 XX=XX+XX
13561 000000 YY=YY+YY
13562 000001 IFE YY,<YY=1>
13563 044260 205 02 0 00 200400 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
13564 044261 205 03 0 00 243401 MOVSI AC-1,243400+YY ;SET-UP EXPECTED RESULT
13565 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
13566 044262 127 04 0 00 000002 RESULT IN AC
13567 044263 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13568 044264 003 04 0 00 006501 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13569 044265 321 10 0 00 044260 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
13570
13571
13572 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13573 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13574 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
13575
13576 006502 SN=SN+1
13577 001000 XX=XX+XX
13578 000002 YY=YY+YY
13579 IFE YY,<YY=1>
13580 044266 205 02 0 00 201000 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
13581 044267 205 03 0 00 243402 MOVSI AC-1,243400+YY ;SET-UP EXPECTED RESULT
13582 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
13583 044270 127 04 0 00 000002 RESULT IN AC
13584 044271 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13585 044272 003 04 0 00 006502 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13586 044273 321 10 0 00 044266 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
13587
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 29-1
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES SEQ 0348
13588
13589 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13590 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13591 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
13592
13593 006503 SN=SN+1
13594 002000 XX=XX+XX
13595 000004 YY=YY+YY
13596 IFE YY,<YY=1>
13597 044274 205 02 0 00 202000 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
13598 044275 205 03 0 00 243404 MOVSI AC-1,243400+YY ;SET-UP EXPECTED RESULT
13599 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
13600 044276 127 04 0 00 000002 RESULT IN AC
13601 044277 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13602 044300 003 04 0 00 006503 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13603 044301 321 10 0 00 044274 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
13604
13605
13606 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13607 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13608 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
13609
13610 006504 SN=SN+1
13611 004000 XX=XX+XX
13612 000010 YY=YY+YY
13613 IFE YY,<YY=1>
13614 044302 205 02 0 00 204000 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
13615 044303 205 03 0 00 243410 MOVSI AC-1,243400+YY ;SET-UP EXPECTED RESULT
13616 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
13617 044304 127 04 0 00 000002 RESULT IN AC
13618 044305 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13619 044306 003 04 0 00 006504 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13620 044307 321 10 0 00 044302 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
13621
13622
13623 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13624 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13625 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
13626
13627 006505 SN=SN+1
13628 010000 XX=XX+XX
13629 000020 YY=YY+YY
13630 IFE YY,<YY=1>
13631 044310 205 02 0 00 210000 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
13632 044311 205 03 0 00 243420 MOVSI AC-1,243400+YY ;SET-UP EXPECTED RESULT
13633 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
13634 044312 127 04 0 00 000002 RESULT IN AC
13635 044313 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13636 044314 003 04 0 00 006505 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13637 044315 321 10 0 00 044310 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
13638
13639
13640 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13641 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13642 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 29-2
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES SEQ 0349
13643
13644 006506 SN=SN+1
13645 020000 XX=XX+XX
13646 000040 YY=YY+YY
13647 IFE YY,<YY=1>
13648 044316 205 02 0 00 220000 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
13649 044317 205 03 0 00 243440 MOVSI AC-1,243400+YY ;SET-UP EXPECTED RESULT
13650 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
13651 044320 127 04 0 00 000002 RESULT IN AC
13652 044321 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13653 044322 003 04 0 00 006506 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13654 044323 321 10 0 00 044316 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
13655
13656
13657 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13658 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13659 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
13660
13661 006507 SN=SN+1
13662 040000 XX=XX+XX
13663 000100 YY=YY+YY
13664 IFE YY,<YY=1>
13665 044324 205 02 0 00 240000 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
13666 044325 205 03 0 00 243500 MOVSI AC-1,243400+YY ;SET-UP EXPECTED RESULT
13667 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
13668 044326 127 04 0 00 000002 RESULT IN AC
13669 044327 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13670 044330 003 04 0 00 006507 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13671 044331 321 10 0 00 044324 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
13672
13673
13674 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13675 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13676 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
13677
13678 006510 SN=SN+1
13679 100000 XX=XX+XX
13680 000200 YY=YY+YY
13681 IFE YY,<YY=1>
13682 044332 205 02 0 00 300000 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
13683 044333 205 03 0 00 243600 MOVSI AC-1,243400+YY ;SET-UP EXPECTED RESULT
13684 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
13685 044334 127 04 0 00 000002 RESULT IN AC
13686 044335 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13687 044336 003 04 0 00 006510 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13688 044337 321 10 0 00 044332 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
13689
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 30
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0350
13690 SUBTTL DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES
13691
13692 ;RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS
13693
13694 006600 SN=6600
13695 000200 XX=200
13696 000000 YY=0
13697
13698 Q6600: REPEAT ^D10,<
13699 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13700 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13701 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
13702
13703 SN=SN+1
13704 XX=XX+XX
13705 YY=YY+YY
13706 IFE YY,<YY=1>
13707 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR.
13708 HRRI AC-2,XX
13709 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
13710 HRRI AC-1,YY
13711 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
13712 CAME AC,AC-1 ;TEST FRACTION
13713 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13714 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
13715 >
13716
13717 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13718 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13719 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
13720
13721 006601 SN=SN+1
13722 000400 XX=XX+XX
13723 000000 YY=YY+YY
13724 000001 IFE YY,<YY=1>
13725 044340 205 02 0 00 400000 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR.
13726 044341 541 02 0 00 000400 HRRI AC-2,XX
13727 044342 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
13728 044343 541 03 0 00 000001 HRRI AC-1,YY
13729 044344 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
13730 044345 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13731 044346 003 04 0 00 006601 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13732 044347 321 10 0 00 044340 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
13733
13734
13735 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13736 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13737 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
13738
13739 006602 SN=SN+1
13740 001000 XX=XX+XX
13741 000002 YY=YY+YY
13742 IFE YY,<YY=1>
13743 044350 205 02 0 00 400000 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR.
13744 044351 541 02 0 00 001000 HRRI AC-2,XX
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 30-1
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0351
13745 044352 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
13746 044353 541 03 0 00 000002 HRRI AC-1,YY
13747 044354 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
13748 044355 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13749 044356 003 04 0 00 006602 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13750 044357 321 10 0 00 044350 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
13751
13752
13753 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13754 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13755 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
13756
13757 006603 SN=SN+1
13758 002000 XX=XX+XX
13759 000004 YY=YY+YY
13760 IFE YY,<YY=1>
13761 044360 205 02 0 00 400000 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR.
13762 044361 541 02 0 00 002000 HRRI AC-2,XX
13763 044362 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
13764 044363 541 03 0 00 000004 HRRI AC-1,YY
13765 044364 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
13766 044365 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13767 044366 003 04 0 00 006603 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13768 044367 321 10 0 00 044360 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
13769
13770
13771 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13772 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13773 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
13774
13775 006604 SN=SN+1
13776 004000 XX=XX+XX
13777 000010 YY=YY+YY
13778 IFE YY,<YY=1>
13779 044370 205 02 0 00 400000 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR.
13780 044371 541 02 0 00 004000 HRRI AC-2,XX
13781 044372 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
13782 044373 541 03 0 00 000010 HRRI AC-1,YY
13783 044374 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
13784 044375 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13785 044376 003 04 0 00 006604 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13786 044377 321 10 0 00 044370 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
13787
13788
13789 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13790 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13791 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
13792
13793 006605 SN=SN+1
13794 010000 XX=XX+XX
13795 000020 YY=YY+YY
13796 IFE YY,<YY=1>
13797 044400 205 02 0 00 400000 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR.
13798 044401 541 02 0 00 010000 HRRI AC-2,XX
13799 044402 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 30-2
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0352
13800 044403 541 03 0 00 000020 HRRI AC-1,YY
13801 044404 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
13802 044405 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13803 044406 003 04 0 00 006605 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13804 044407 321 10 0 00 044400 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
13805
13806
13807 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13808 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13809 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
13810
13811 006606 SN=SN+1
13812 020000 XX=XX+XX
13813 000040 YY=YY+YY
13814 IFE YY,<YY=1>
13815 044410 205 02 0 00 400000 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR.
13816 044411 541 02 0 00 020000 HRRI AC-2,XX
13817 044412 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
13818 044413 541 03 0 00 000040 HRRI AC-1,YY
13819 044414 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
13820 044415 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13821 044416 003 04 0 00 006606 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13822 044417 321 10 0 00 044410 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
13823
13824
13825 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13826 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13827 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
13828
13829 006607 SN=SN+1
13830 040000 XX=XX+XX
13831 000100 YY=YY+YY
13832 IFE YY,<YY=1>
13833 044420 205 02 0 00 400000 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR.
13834 044421 541 02 0 00 040000 HRRI AC-2,XX
13835 044422 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
13836 044423 541 03 0 00 000100 HRRI AC-1,YY
13837 044424 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
13838 044425 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13839 044426 003 04 0 00 006607 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13840 044427 321 10 0 00 044420 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
13841
13842
13843 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13844 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13845 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
13846
13847 006610 SN=SN+1
13848 100000 XX=XX+XX
13849 000200 YY=YY+YY
13850 IFE YY,<YY=1>
13851 044430 205 02 0 00 400000 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR.
13852 044431 541 02 0 00 100000 HRRI AC-2,XX
13853 044432 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
13854 044433 541 03 0 00 000200 HRRI AC-1,YY
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 30-3
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0353
13855 044434 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
13856 044435 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13857 044436 003 04 0 00 006610 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13858 044437 321 10 0 00 044430 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
13859
13860
13861 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13862 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13863 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
13864
13865 006611 SN=SN+1
13866 200000 XX=XX+XX
13867 000400 YY=YY+YY
13868 IFE YY,<YY=1>
13869 044440 205 02 0 00 400000 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR.
13870 044441 541 02 0 00 200000 HRRI AC-2,XX
13871 044442 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
13872 044443 541 03 0 00 000400 HRRI AC-1,YY
13873 044444 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
13874 044445 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13875 044446 003 04 0 00 006611 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13876 044447 321 10 0 00 044440 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
13877
13878
13879 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13880 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13881 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
13882
13883 006612 SN=SN+1
13884 400000 XX=XX+XX
13885 001000 YY=YY+YY
13886 IFE YY,<YY=1>
13887 044450 205 02 0 00 400000 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR.
13888 044451 541 02 0 00 400000 HRRI AC-2,XX
13889 044452 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
13890 044453 541 03 0 00 001000 HRRI AC-1,YY
13891 044454 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
13892 044455 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13893 044456 003 04 0 00 006612 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13894 044457 321 10 0 00 044450 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
13895
13896 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 30-4
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0354
13897 006700 SN=6700
13898 000000 XX=0
13899 001000 YY=1000
13900
13901 Q6700: REPEAT ^D8,<
13902 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13903 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13904 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
13905
13906 SN=SN+1
13907 XX=XX+XX
13908 YY=YY+YY
13909 IFE XX,<XX=1>
13910 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
13911 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
13912 HRRI AC-1,YY
13913 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
13914 RESULT IN AC
13915 CAME AC,AC-1 ;TEST FRACTION
13916 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13917 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
13918 >
13919
13920 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13921 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13922 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
13923
13924 006701 SN=SN+1
13925 000000 XX=XX+XX
13926 002000 YY=YY+YY
13927 000001 IFE XX,<XX=1>
13928 044460 205 02 0 00 400001 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
13929 044461 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
13930 044462 541 03 0 00 002000 HRRI AC-1,YY
13931 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
13932 044463 127 04 0 00 000002 RESULT IN AC
13933 044464 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13934 044465 003 04 0 00 006701 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13935 044466 321 10 0 00 044460 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
13936
13937
13938 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13939 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13940 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
13941
13942 006702 SN=SN+1
13943 000002 XX=XX+XX
13944 004000 YY=YY+YY
13945 IFE XX,<XX=1>
13946 044467 205 02 0 00 400002 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
13947 044470 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
13948 044471 541 03 0 00 004000 HRRI AC-1,YY
13949 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
13950 044472 127 04 0 00 000002 RESULT IN AC
13951 044473 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 30-5
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0355
13952 044474 003 04 0 00 006702 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13953 044475 321 10 0 00 044467 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
13954
13955
13956 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13957 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13958 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
13959
13960 006703 SN=SN+1
13961 000004 XX=XX+XX
13962 010000 YY=YY+YY
13963 IFE XX,<XX=1>
13964 044476 205 02 0 00 400004 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
13965 044477 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
13966 044500 541 03 0 00 010000 HRRI AC-1,YY
13967 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
13968 044501 127 04 0 00 000002 RESULT IN AC
13969 044502 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13970 044503 003 04 0 00 006703 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13971 044504 321 10 0 00 044476 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
13972
13973
13974 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13975 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13976 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
13977
13978 006704 SN=SN+1
13979 000010 XX=XX+XX
13980 020000 YY=YY+YY
13981 IFE XX,<XX=1>
13982 044505 205 02 0 00 400010 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
13983 044506 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
13984 044507 541 03 0 00 020000 HRRI AC-1,YY
13985 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
13986 044510 127 04 0 00 000002 RESULT IN AC
13987 044511 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
13988 044512 003 04 0 00 006704 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
13989 044513 321 10 0 00 044505 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
13990
13991
13992 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
13993 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
13994 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
13995
13996 006705 SN=SN+1
13997 000020 XX=XX+XX
13998 040000 YY=YY+YY
13999 IFE XX,<XX=1>
14000 044514 205 02 0 00 400020 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14001 044515 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
14002 044516 541 03 0 00 040000 HRRI AC-1,YY
14003 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14004 044517 127 04 0 00 000002 RESULT IN AC
14005 044520 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14006 044521 003 04 0 00 006705 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 30-6
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0356
14007 044522 321 10 0 00 044514 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
14008
14009
14010 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14011 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14012 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
14013
14014 006706 SN=SN+1
14015 000040 XX=XX+XX
14016 100000 YY=YY+YY
14017 IFE XX,<XX=1>
14018 044523 205 02 0 00 400040 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14019 044524 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
14020 044525 541 03 0 00 100000 HRRI AC-1,YY
14021 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14022 044526 127 04 0 00 000002 RESULT IN AC
14023 044527 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14024 044530 003 04 0 00 006706 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
14025 044531 321 10 0 00 044523 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
14026
14027
14028 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14029 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14030 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
14031
14032 006707 SN=SN+1
14033 000100 XX=XX+XX
14034 200000 YY=YY+YY
14035 IFE XX,<XX=1>
14036 044532 205 02 0 00 400100 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14037 044533 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
14038 044534 541 03 0 00 200000 HRRI AC-1,YY
14039 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14040 044535 127 04 0 00 000002 RESULT IN AC
14041 044536 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14042 044537 003 04 0 00 006707 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
14043 044540 321 10 0 00 044532 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
14044
14045
14046 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14047 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14048 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
14049
14050 006710 SN=SN+1
14051 000200 XX=XX+XX
14052 400000 YY=YY+YY
14053 IFE XX,<XX=1>
14054 044541 205 02 0 00 400200 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14055 044542 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
14056 044543 541 03 0 00 400000 HRRI AC-1,YY
14057 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14058 044544 127 04 0 00 000002 RESULT IN AC
14059 044545 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14060 044546 003 04 0 00 006710 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
14061 044547 321 10 0 00 044541 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 30-7
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0357
14062
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 31
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0358
14063 007000 SN=7000
14064 000200 XX=200
14065 000000 YY=0
14066
14067 Q7000: REPEAT ^D8,<
14068 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14069 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14070 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
14071
14072 SN=SN+1
14073 XX=XX+XX
14074 YY=YY+YY
14075 IFE YY,<YY=1>
14076 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14077 MOVSI AC-1,534000+YY ;SET-UP EXPECTED RESULT
14078 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14079 RESULT IN AC
14080 CAME AC,AC-1 ;TEST FRACTION
14081 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
14082 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
14083 >
14084
14085 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14086 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14087 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
14088
14089 007001 SN=SN+1
14090 000400 XX=XX+XX
14091 000000 YY=YY+YY
14092 000001 IFE YY,<YY=1>
14093 044550 205 02 0 00 400400 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14094 044551 205 03 0 00 534001 MOVSI AC-1,534000+YY ;SET-UP EXPECTED RESULT
14095 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14096 044552 127 04 0 00 000002 RESULT IN AC
14097 044553 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14098 044554 003 04 0 00 007001 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
14099 044555 321 10 0 00 044550 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
14100
14101
14102 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14103 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14104 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
14105
14106 007002 SN=SN+1
14107 001000 XX=XX+XX
14108 000002 YY=YY+YY
14109 IFE YY,<YY=1>
14110 044556 205 02 0 00 401000 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14111 044557 205 03 0 00 534002 MOVSI AC-1,534000+YY ;SET-UP EXPECTED RESULT
14112 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14113 044560 127 04 0 00 000002 RESULT IN AC
14114 044561 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14115 044562 003 04 0 00 007002 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
14116 044563 321 10 0 00 044556 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
14117
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 31-1
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0359
14118
14119 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14120 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14121 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
14122
14123 007003 SN=SN+1
14124 002000 XX=XX+XX
14125 000004 YY=YY+YY
14126 IFE YY,<YY=1>
14127 044564 205 02 0 00 402000 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14128 044565 205 03 0 00 534004 MOVSI AC-1,534000+YY ;SET-UP EXPECTED RESULT
14129 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14130 044566 127 04 0 00 000002 RESULT IN AC
14131 044567 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14132 044570 003 04 0 00 007003 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
14133 044571 321 10 0 00 044564 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
14134
14135
14136 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14137 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14138 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
14139
14140 007004 SN=SN+1
14141 004000 XX=XX+XX
14142 000010 YY=YY+YY
14143 IFE YY,<YY=1>
14144 044572 205 02 0 00 404000 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14145 044573 205 03 0 00 534010 MOVSI AC-1,534000+YY ;SET-UP EXPECTED RESULT
14146 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14147 044574 127 04 0 00 000002 RESULT IN AC
14148 044575 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14149 044576 003 04 0 00 007004 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
14150 044577 321 10 0 00 044572 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
14151
14152
14153 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14154 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14155 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
14156
14157 007005 SN=SN+1
14158 010000 XX=XX+XX
14159 000020 YY=YY+YY
14160 IFE YY,<YY=1>
14161 044600 205 02 0 00 410000 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14162 044601 205 03 0 00 534020 MOVSI AC-1,534000+YY ;SET-UP EXPECTED RESULT
14163 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14164 044602 127 04 0 00 000002 RESULT IN AC
14165 044603 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14166 044604 003 04 0 00 007005 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
14167 044605 321 10 0 00 044600 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
14168
14169
14170 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14171 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14172 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 31-2
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0360
14173
14174 007006 SN=SN+1
14175 020000 XX=XX+XX
14176 000040 YY=YY+YY
14177 IFE YY,<YY=1>
14178 044606 205 02 0 00 420000 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14179 044607 205 03 0 00 534040 MOVSI AC-1,534000+YY ;SET-UP EXPECTED RESULT
14180 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14181 044610 127 04 0 00 000002 RESULT IN AC
14182 044611 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14183 044612 003 04 0 00 007006 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
14184 044613 321 10 0 00 044606 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
14185
14186
14187 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14188 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14189 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
14190
14191 007007 SN=SN+1
14192 040000 XX=XX+XX
14193 000100 YY=YY+YY
14194 IFE YY,<YY=1>
14195 044614 205 02 0 00 440000 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14196 044615 205 03 0 00 534100 MOVSI AC-1,534000+YY ;SET-UP EXPECTED RESULT
14197 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14198 044616 127 04 0 00 000002 RESULT IN AC
14199 044617 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14200 044620 003 04 0 00 007007 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
14201 044621 321 10 0 00 044614 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
14202
14203
14204 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14205 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14206 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
14207
14208 007010 SN=SN+1
14209 100000 XX=XX+XX
14210 000200 YY=YY+YY
14211 IFE YY,<YY=1>
14212 044622 205 02 0 00 500000 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14213 044623 205 03 0 00 534200 MOVSI AC-1,534000+YY ;SET-UP EXPECTED RESULT
14214 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14215 044624 127 04 0 00 000002 RESULT IN AC
14216 044625 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14217 044626 003 04 0 00 007010 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
14218 044627 321 10 0 00 044622 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
14219
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 32
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0361
14220 SUBTTL DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS
14221
14222 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14223 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14224 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
14225
14226 044630 205 02 0 00 577777 Q7100: MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR.
14227 044631 541 02 0 00 777400 HRRI AC-2,777400
14228 044632 525 03 0 00 534377 HRLOI AC-1,534377 ;SET-UP EXPECTED RESULT
14229 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14230 044633 127 04 0 00 000002 RESULT IN AC
14231 044634 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14232 044635 003 04 0 00 007101 ER3 AC,7101 ;FAILURE IF TESTED BIT IS NOT CLEAR
14233 044636 321 10 0 00 044630 JUMPL SAC,Q7100 ;LOOP ON ERROR SWITCH
14234
14235 007200 SN=7200
14236 777200 XX=777200
14237 000000 YY=0
14238
14239 Q7200: REPEAT ^D10,<
14240 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14241 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14242 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
14243
14244 SN=SN+1
14245 XX=<XX+XX+400>&777777
14246 YY=<YY+YY+1>&777777
14247 IFE <YY-1>,<YY=777776>
14248 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR.
14249 HRRI AC-2,XX
14250 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
14251 HRRI AC-1,YY
14252 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14253 RESULT IN AC
14254 CAME AC,AC-1 ;TEST FRACTION
14255 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
14256 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
14257 >
14258
14259 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14260 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14261 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
14262
14263 007201 SN=SN+1
14264 777000 XX=<XX+XX+400>&777777
14265 000001 YY=<YY+YY+1>&777777
14266 777776 IFE <YY-1>,<YY=777776>
14267 044637 205 02 0 00 577777 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR.
14268 044640 541 02 0 00 777000 HRRI AC-2,XX
14269 044641 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
14270 044642 541 03 0 00 777776 HRRI AC-1,YY
14271 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14272 044643 127 04 0 00 000002 RESULT IN AC
14273 044644 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14274 044645 003 04 0 00 007201 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 32-1
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0362
14275 044646 321 10 0 00 044637 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
14276
14277
14278 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14279 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14280 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
14281
14282 007202 SN=SN+1
14283 776400 XX=<XX+XX+400>&777777
14284 777775 YY=<YY+YY+1>&777777
14285 IFE <YY-1>,<YY=777776>
14286 044647 205 02 0 00 577777 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR.
14287 044650 541 02 0 00 776400 HRRI AC-2,XX
14288 044651 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
14289 044652 541 03 0 00 777775 HRRI AC-1,YY
14290 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14291 044653 127 04 0 00 000002 RESULT IN AC
14292 044654 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14293 044655 003 04 0 00 007202 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
14294 044656 321 10 0 00 044647 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
14295
14296
14297 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14298 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14299 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
14300
14301 007203 SN=SN+1
14302 775400 XX=<XX+XX+400>&777777
14303 777773 YY=<YY+YY+1>&777777
14304 IFE <YY-1>,<YY=777776>
14305 044657 205 02 0 00 577777 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR.
14306 044660 541 02 0 00 775400 HRRI AC-2,XX
14307 044661 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
14308 044662 541 03 0 00 777773 HRRI AC-1,YY
14309 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14310 044663 127 04 0 00 000002 RESULT IN AC
14311 044664 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14312 044665 003 04 0 00 007203 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
14313 044666 321 10 0 00 044657 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
14314
14315
14316 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14317 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14318 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
14319
14320 007204 SN=SN+1
14321 773400 XX=<XX+XX+400>&777777
14322 777767 YY=<YY+YY+1>&777777
14323 IFE <YY-1>,<YY=777776>
14324 044667 205 02 0 00 577777 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR.
14325 044670 541 02 0 00 773400 HRRI AC-2,XX
14326 044671 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
14327 044672 541 03 0 00 777767 HRRI AC-1,YY
14328 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14329 044673 127 04 0 00 000002 RESULT IN AC
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 32-2
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0363
14330 044674 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14331 044675 003 04 0 00 007204 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
14332 044676 321 10 0 00 044667 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
14333
14334
14335 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14336 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14337 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
14338
14339 007205 SN=SN+1
14340 767400 XX=<XX+XX+400>&777777
14341 777757 YY=<YY+YY+1>&777777
14342 IFE <YY-1>,<YY=777776>
14343 044677 205 02 0 00 577777 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR.
14344 044700 541 02 0 00 767400 HRRI AC-2,XX
14345 044701 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
14346 044702 541 03 0 00 777757 HRRI AC-1,YY
14347 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14348 044703 127 04 0 00 000002 RESULT IN AC
14349 044704 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14350 044705 003 04 0 00 007205 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
14351 044706 321 10 0 00 044677 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
14352
14353
14354 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14355 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14356 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
14357
14358 007206 SN=SN+1
14359 757400 XX=<XX+XX+400>&777777
14360 777737 YY=<YY+YY+1>&777777
14361 IFE <YY-1>,<YY=777776>
14362 044707 205 02 0 00 577777 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR.
14363 044710 541 02 0 00 757400 HRRI AC-2,XX
14364 044711 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
14365 044712 541 03 0 00 777737 HRRI AC-1,YY
14366 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14367 044713 127 04 0 00 000002 RESULT IN AC
14368 044714 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14369 044715 003 04 0 00 007206 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
14370 044716 321 10 0 00 044707 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
14371
14372
14373 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14374 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14375 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
14376
14377 007207 SN=SN+1
14378 737400 XX=<XX+XX+400>&777777
14379 777677 YY=<YY+YY+1>&777777
14380 IFE <YY-1>,<YY=777776>
14381 044717 205 02 0 00 577777 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR.
14382 044720 541 02 0 00 737400 HRRI AC-2,XX
14383 044721 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
14384 044722 541 03 0 00 777677 HRRI AC-1,YY
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 32-3
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0364
14385 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14386 044723 127 04 0 00 000002 RESULT IN AC
14387 044724 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14388 044725 003 04 0 00 007207 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
14389 044726 321 10 0 00 044717 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
14390
14391
14392 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14393 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14394 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
14395
14396 007210 SN=SN+1
14397 677400 XX=<XX+XX+400>&777777
14398 777577 YY=<YY+YY+1>&777777
14399 IFE <YY-1>,<YY=777776>
14400 044727 205 02 0 00 577777 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR.
14401 044730 541 02 0 00 677400 HRRI AC-2,XX
14402 044731 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
14403 044732 541 03 0 00 777577 HRRI AC-1,YY
14404 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14405 044733 127 04 0 00 000002 RESULT IN AC
14406 044734 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14407 044735 003 04 0 00 007210 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
14408 044736 321 10 0 00 044727 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
14409
14410
14411 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14412 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14413 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
14414
14415 007211 SN=SN+1
14416 577400 XX=<XX+XX+400>&777777
14417 777377 YY=<YY+YY+1>&777777
14418 IFE <YY-1>,<YY=777776>
14419 044737 205 02 0 00 577777 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR.
14420 044740 541 02 0 00 577400 HRRI AC-2,XX
14421 044741 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
14422 044742 541 03 0 00 777377 HRRI AC-1,YY
14423 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14424 044743 127 04 0 00 000002 RESULT IN AC
14425 044744 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14426 044745 003 04 0 00 007211 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
14427 044746 321 10 0 00 044737 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
14428
14429
14430 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14431 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14432 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
14433
14434 007212 SN=SN+1
14435 377400 XX=<XX+XX+400>&777777
14436 776777 YY=<YY+YY+1>&777777
14437 IFE <YY-1>,<YY=777776>
14438 044747 205 02 0 00 577777 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR.
14439 044750 541 02 0 00 377400 HRRI AC-2,XX
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 32-4
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0365
14440 044751 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
14441 044752 541 03 0 00 776777 HRRI AC-1,YY
14442 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14443 044753 127 04 0 00 000002 RESULT IN AC
14444 044754 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14445 044755 003 04 0 00 007212 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
14446 044756 321 10 0 00 044747 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
14447
14448 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 32-5
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0366
14449 007300 SN=7300
14450 000000 XX=0
14451 776777 YY=776777
14452
14453 Q7300: REPEAT ^D8,<
14454 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14455 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14456 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
14457
14458 SN=SN+1
14459 XX=<XX+XX+1>&177777
14460 YY=<YY+YY+1>&777777
14461 IFE <XX-1>,<XX=177776>
14462 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14463 HRRI AC-2,777400
14464 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
14465 HRRI AC-1,YY
14466 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14467 RESULT IN AC
14468 CAME AC,AC-1 ;TEST FRACTION
14469 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
14470 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
14471 >
14472
14473 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14474 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14475 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
14476
14477 007301 SN=SN+1
14478 000001 XX=<XX+XX+1>&177777
14479 775777 YY=<YY+YY+1>&777777
14480 177776 IFE <XX-1>,<XX=177776>
14481 044757 205 02 0 00 577776 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14482 044760 541 02 0 00 777400 HRRI AC-2,777400
14483 044761 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
14484 044762 541 03 0 00 775777 HRRI AC-1,YY
14485 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14486 044763 127 04 0 00 000002 RESULT IN AC
14487 044764 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14488 044765 003 04 0 00 007301 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
14489 044766 321 10 0 00 044757 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
14490
14491
14492 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14493 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14494 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
14495
14496 007302 SN=SN+1
14497 177775 XX=<XX+XX+1>&177777
14498 773777 YY=<YY+YY+1>&777777
14499 IFE <XX-1>,<XX=177776>
14500 044767 205 02 0 00 577775 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14501 044770 541 02 0 00 777400 HRRI AC-2,777400
14502 044771 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
14503 044772 541 03 0 00 773777 HRRI AC-1,YY
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 32-6
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0367
14504 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14505 044773 127 04 0 00 000002 RESULT IN AC
14506 044774 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14507 044775 003 04 0 00 007302 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
14508 044776 321 10 0 00 044767 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
14509
14510
14511 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14512 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14513 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
14514
14515 007303 SN=SN+1
14516 177773 XX=<XX+XX+1>&177777
14517 767777 YY=<YY+YY+1>&777777
14518 IFE <XX-1>,<XX=177776>
14519 044777 205 02 0 00 577773 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14520 045000 541 02 0 00 777400 HRRI AC-2,777400
14521 045001 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
14522 045002 541 03 0 00 767777 HRRI AC-1,YY
14523 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14524 045003 127 04 0 00 000002 RESULT IN AC
14525 045004 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14526 045005 003 04 0 00 007303 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
14527 045006 321 10 0 00 044777 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
14528
14529
14530 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14531 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14532 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
14533
14534 007304 SN=SN+1
14535 177767 XX=<XX+XX+1>&177777
14536 757777 YY=<YY+YY+1>&777777
14537 IFE <XX-1>,<XX=177776>
14538 045007 205 02 0 00 577767 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14539 045010 541 02 0 00 777400 HRRI AC-2,777400
14540 045011 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
14541 045012 541 03 0 00 757777 HRRI AC-1,YY
14542 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14543 045013 127 04 0 00 000002 RESULT IN AC
14544 045014 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14545 045015 003 04 0 00 007304 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
14546 045016 321 10 0 00 045007 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
14547
14548
14549 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14550 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14551 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
14552
14553 007305 SN=SN+1
14554 177757 XX=<XX+XX+1>&177777
14555 737777 YY=<YY+YY+1>&777777
14556 IFE <XX-1>,<XX=177776>
14557 045017 205 02 0 00 577757 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14558 045020 541 02 0 00 777400 HRRI AC-2,777400
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 32-7
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0368
14559 045021 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
14560 045022 541 03 0 00 737777 HRRI AC-1,YY
14561 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14562 045023 127 04 0 00 000002 RESULT IN AC
14563 045024 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14564 045025 003 04 0 00 007305 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
14565 045026 321 10 0 00 045017 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
14566
14567
14568 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14569 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14570 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
14571
14572 007306 SN=SN+1
14573 177737 XX=<XX+XX+1>&177777
14574 677777 YY=<YY+YY+1>&777777
14575 IFE <XX-1>,<XX=177776>
14576 045027 205 02 0 00 577737 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14577 045030 541 02 0 00 777400 HRRI AC-2,777400
14578 045031 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
14579 045032 541 03 0 00 677777 HRRI AC-1,YY
14580 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14581 045033 127 04 0 00 000002 RESULT IN AC
14582 045034 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14583 045035 003 04 0 00 007306 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
14584 045036 321 10 0 00 045027 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
14585
14586
14587 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14588 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14589 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
14590
14591 007307 SN=SN+1
14592 177677 XX=<XX+XX+1>&177777
14593 577777 YY=<YY+YY+1>&777777
14594 IFE <XX-1>,<XX=177776>
14595 045037 205 02 0 00 577677 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14596 045040 541 02 0 00 777400 HRRI AC-2,777400
14597 045041 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
14598 045042 541 03 0 00 577777 HRRI AC-1,YY
14599 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14600 045043 127 04 0 00 000002 RESULT IN AC
14601 045044 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14602 045045 003 04 0 00 007307 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
14603 045046 321 10 0 00 045037 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
14604
14605
14606 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14607 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14608 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
14609
14610 007310 SN=SN+1
14611 177577 XX=<XX+XX+1>&177777
14612 377777 YY=<YY+YY+1>&777777
14613 IFE <XX-1>,<XX=177776>
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 32-8
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0369
14614 045047 205 02 0 00 577577 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14615 045050 541 02 0 00 777400 HRRI AC-2,777400
14616 045051 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
14617 045052 541 03 0 00 377777 HRRI AC-1,YY
14618 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE
14619 045053 127 04 0 00 000002 RESULT IN AC
14620 045054 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14621 045055 003 04 0 00 007310 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
14622 045056 321 10 0 00 045047 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
14623
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 33
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0370
14624
14625 007400 SN=7400
14626 177577 XX=177577
14627 000000 YY=0
14628
14629 Q7400: REPEAT ^D8,<
14630 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14631 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14632 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
14633
14634 SN=SN+1
14635 XX=<XX+XX+1>&177777
14636 YY=<YY+YY+1>&377
14637 IFE <YY-1>,<YY=376>
14638 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14639 HRRI AC-2,777400
14640 HRLOI AC-1,534000+YY ;SET-UP EXPECTED RESULT
14641 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
14642 CAME AC,AC-1 ;TEST FRACTION
14643 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
14644 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
14645 >
14646
14647 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14648 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14649 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
14650
14651 007401 SN=SN+1
14652 177377 XX=<XX+XX+1>&177777
14653 000001 YY=<YY+YY+1>&377
14654 000376 IFE <YY-1>,<YY=376>
14655 045057 205 02 0 00 577377 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14656 045060 541 02 0 00 777400 HRRI AC-2,777400
14657 045061 525 03 0 00 534376 HRLOI AC-1,534000+YY ;SET-UP EXPECTED RESULT
14658 045062 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
14659 045063 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14660 045064 003 04 0 00 007401 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
14661 045065 321 10 0 00 045057 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
14662
14663
14664 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14665 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14666 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
14667
14668 007402 SN=SN+1
14669 176777 XX=<XX+XX+1>&177777
14670 000375 YY=<YY+YY+1>&377
14671 IFE <YY-1>,<YY=376>
14672 045066 205 02 0 00 576777 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14673 045067 541 02 0 00 777400 HRRI AC-2,777400
14674 045070 525 03 0 00 534375 HRLOI AC-1,534000+YY ;SET-UP EXPECTED RESULT
14675 045071 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
14676 045072 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14677 045073 003 04 0 00 007402 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
14678 045074 321 10 0 00 045066 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 33-1
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0371
14679
14680
14681 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14682 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14683 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
14684
14685 007403 SN=SN+1
14686 175777 XX=<XX+XX+1>&177777
14687 000373 YY=<YY+YY+1>&377
14688 IFE <YY-1>,<YY=376>
14689 045075 205 02 0 00 575777 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14690 045076 541 02 0 00 777400 HRRI AC-2,777400
14691 045077 525 03 0 00 534373 HRLOI AC-1,534000+YY ;SET-UP EXPECTED RESULT
14692 045100 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
14693 045101 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14694 045102 003 04 0 00 007403 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
14695 045103 321 10 0 00 045075 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
14696
14697
14698 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14699 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14700 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
14701
14702 007404 SN=SN+1
14703 173777 XX=<XX+XX+1>&177777
14704 000367 YY=<YY+YY+1>&377
14705 IFE <YY-1>,<YY=376>
14706 045104 205 02 0 00 573777 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14707 045105 541 02 0 00 777400 HRRI AC-2,777400
14708 045106 525 03 0 00 534367 HRLOI AC-1,534000+YY ;SET-UP EXPECTED RESULT
14709 045107 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
14710 045110 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14711 045111 003 04 0 00 007404 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
14712 045112 321 10 0 00 045104 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
14713
14714
14715 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14716 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14717 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
14718
14719 007405 SN=SN+1
14720 167777 XX=<XX+XX+1>&177777
14721 000357 YY=<YY+YY+1>&377
14722 IFE <YY-1>,<YY=376>
14723 045113 205 02 0 00 567777 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14724 045114 541 02 0 00 777400 HRRI AC-2,777400
14725 045115 525 03 0 00 534357 HRLOI AC-1,534000+YY ;SET-UP EXPECTED RESULT
14726 045116 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
14727 045117 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14728 045120 003 04 0 00 007405 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
14729 045121 321 10 0 00 045113 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
14730
14731
14732 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14733 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 33-2
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0372
14734 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
14735
14736 007406 SN=SN+1
14737 157777 XX=<XX+XX+1>&177777
14738 000337 YY=<YY+YY+1>&377
14739 IFE <YY-1>,<YY=376>
14740 045122 205 02 0 00 557777 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14741 045123 541 02 0 00 777400 HRRI AC-2,777400
14742 045124 525 03 0 00 534337 HRLOI AC-1,534000+YY ;SET-UP EXPECTED RESULT
14743 045125 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
14744 045126 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14745 045127 003 04 0 00 007406 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
14746 045130 321 10 0 00 045122 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
14747
14748
14749 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14750 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14751 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
14752
14753 007407 SN=SN+1
14754 137777 XX=<XX+XX+1>&177777
14755 000277 YY=<YY+YY+1>&377
14756 IFE <YY-1>,<YY=376>
14757 045131 205 02 0 00 537777 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14758 045132 541 02 0 00 777400 HRRI AC-2,777400
14759 045133 525 03 0 00 534277 HRLOI AC-1,534000+YY ;SET-UP EXPECTED RESULT
14760 045134 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
14761 045135 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14762 045136 003 04 0 00 007407 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
14763 045137 321 10 0 00 045131 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
14764
14765
14766 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
14767 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
14768 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
14769
14770 007410 SN=SN+1
14771 077777 XX=<XX+XX+1>&177777
14772 000177 YY=<YY+YY+1>&377
14773 IFE <YY-1>,<YY=376>
14774 045140 205 02 0 00 477777 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
14775 045141 541 02 0 00 777400 HRRI AC-2,777400
14776 045142 525 03 0 00 534177 HRLOI AC-1,534000+YY ;SET-UP EXPECTED RESULT
14777 045143 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
14778 045144 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
14779 045145 003 04 0 00 007410 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
14780 045146 321 10 0 00 045140 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
14781
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 34
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - ROUNDING SEQ 0373
14782 SUBTTL DIAGNOSTIC SECTION - FLTR - ROUNDING
14783
14784 ;TEST FOR ROUNDING
14785 ;CHECK THAT FLTR ROUNDS THE RESULTING FRACTION AWAY FROM 0 SUCH THAT
14786 ;IF THE PART OF THE FRACTION BEING DROPPED IS GREATER THAN OR EQUAL TO
14787 ;1/2 LSB OF THE FRACTION RETAINED, THE FRACTION IS INCREASED BY ONE LSB;
14788 ;OTHERWISE, THE FRACTION IS DECREASED BY THE PART BEING DROPPED.
14789
14790
14791 045147 205 02 0 00 200000 Q7500: MOVSI AC-2,1B19 ;INITIALIZE FIX PT. NBR.
14792 045150 541 02 0 00 000177 HRRI AC-2,177
14793 045151 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT
14794 045152 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX PT NO. IN 'E' TO FLT PT,
14795 ;ROUND RESULT, AND PLACE IN AC.
14796 045153 312 04 0 00 000003 CAME AC,AC-1 ;WAS FRACTION ROUNDED DOWN?
14797 045154 003 04 0 00 007501 ER3 AC,7501 ;RESULT DID NOT ROUND DOWN
14798 045155 321 10 0 00 045147 JUMPL SAC,Q7500 ;LOOP ON ERROR SWITCH
14799
14800 ;TEST FOR ROUNDING
14801 ;CHECK THAT FLTR ROUNDS THE RESULTING FRACTION AWAY FROM 0 SUCH THAT
14802 ;IF THE PART OF THE FRACTION BEING DROPPED IS GREATER THAN OR EQUAL TO
14803 ;1/2 LSB OF THE FRACTION RETAINED, THE FRACTION IS INCREASED BY ONE LSB;
14804 ;OTHERWISE, THE FRACTION IS DECREASED BY THE PART BEING DROPPED.
14805 045156 205 02 0 00 200000 Q7600: MOVSI AC-2,1B19 ;INITIALIZE FIX PT. NBR.
14806 045157 541 02 0 00 000200 HRRI AC-2,200
14807 045160 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT
14808 045161 541 03 0 00 000001 HRRI AC-1,1
14809 045162 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX PT NO. IN 'E' TO FLT PT,
14810 ;ROUND RESULT, AND PLACE IN AC.
14811 045163 312 04 0 00 000003 CAME AC,AC-1 ;WAS FRACTION ROUNDED UP?
14812 045164 003 04 0 00 007601 ER3 AC,7601 ;RESULT DID NOT ROUND UP
14813 045165 321 10 0 00 045156 JUMPL SAC,Q7600 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 35
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - ROUNDING SEQ 0374
14814 ;TEST FOR ROUNDING
14815 ;CHECK THAT FLTR ROUNDS THE RESULTING FRACTION AWAY FROM 0 SUCH THAT
14816 ;IF THE PART OF THE FRACTION BEING DROPPED IS GREATER THAN OR EQUAL TO
14817 ;1/2 LSB OF THE FRACTION RETAINED, THE FRACTION IS INCREASED BY ONE LSB;
14818 ;OTHERWISE, THE FRACTION IS DECREASED BY THE PART BEING DROPPED.
14819 045166 561 02 0 00 777600 Q7700: HRROI AC-2,777600 ;INITIALIZE FIX PT. NBR.
14820 045167 621 02 0 00 200000 TLZ AC-2,1B19
14821 045170 525 03 0 00 534377 HRLOI AC-1,534377 ;SET-UP EXPECTED RESULT
14822 045171 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX PT NO. IN 'E' TO FLT PT,
14823 ;ROUND RESULT, AND PLACE IN AC.
14824 045172 312 04 0 00 000003 CAME AC,AC-1 ;WAS FRACTION ROUNDED DOWN?
14825 045173 003 04 0 00 007701 ER3 AC,7701 ;RESULT DID NOT ROUND DOWN
14826 045174 321 10 0 00 045166 JUMPL SAC,Q7700 ;LOOP ON ERROR SWITCH
14827
14828 ;TEST FOR ROUNDING
14829 ;CHECK THAT FLTR ROUNDS THE RESULTING FRACTION AWAY FROM 0 SUCH THAT
14830 ;IF THE PART OF THE FRACTION BEING DROPPED IS GREATER THAN OR EQUAL TO
14831 ;1/2 LSB OF THE FRACTION RETAINED, THE FRACTION IS INCREASED BY ONE LSB;
14832 ;OTHERWISE, THE FRACTION IS DECREASED BY THE PART BEING DROPPED.
14833 045175 561 02 0 00 777601 Q10000: HRROI AC-2,777601 ;INITIALIZE FIX PT. NBR.
14834 045176 621 02 0 00 200000 TLZ AC-2,1B19
14835 045177 515 03 0 00 534400 HRLZI AC-1,534400 ;SET-UP EXPECTED RESULT
14836 045200 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX PT NO. IN 'E' TO FLT PT,
14837 ;ROUND RESULT, AND PLACE IN AC.
14838 045201 312 04 0 00 000003 CAME AC,AC-1 ;WAS FRACTION ROUNDED UP?
14839 045202 003 04 0 00 010001 ER3 AC,10001 ;RESULT DID NOT ROUND UP
14840 045203 321 10 0 00 045175 JUMPL SAC,Q10000 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 36
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - FLTR - NON-AC RANGE ADDRESS SEQ 0375
14841 SUBTTL DIAGNOSTIC SECTION - FLTR - NON-AC RANGE ADDRESS
14842
14843 ;VERIFY THAT 'FLTR AC,E' OPERATES FOR 'E' BEYOND 'AC' RANGE
14844
14845 045204 205 02 0 00 200000 Q10010: MOVSI AC-2,1B19 ;INITIALIZE FIX PT NO.
14846 045205 541 02 0 00 000177 HRRI AC-2,177
14847 045206 202 02 0 00 070346 MOVEM AC-2,TSTWD
14848 045207 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT
14849 FLTR AC,TSTWD ;*CONVERT FIX PT NO. IN 'E' TO FLT PT AND STORE IN
14850 045210 127 04 0 00 070346 AC
14851 045211 312 04 0 00 000003 CAME AC,AC-1 ;DID FLTR GET CORRECT C(E)?
14852 045212 003 04 0 00 010011 ER3 AC,10011 ;FAILURE TO GET C(E)
14853 045213 321 10 0 00 045204 JUMPL SAC,Q10010 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 37
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVE - GENERAL DATA PATTERNS SEQ 0376
14854 SUBTTL DIAGNOSTIC SECTION - DMOVE - GENERAL DATA PATTERNS
14855
14856 ;CHECK THAT 'DMOVE AC,E' DOES NOT CLOBBER C(E) OR C(E+1)
14857
14858 045214 200 02 0 00 070656 Q10050: MOVE AC-2,[631463,,146314] ;INITIALIZE C(E), C(E+1)
14859 045215 200 03 0 00 070657 MOVE AC-1,[424242,,131313]
14860 045216 120 04 0 00 000002 DMOVE AC,AC-2 ;*MOVE DOUBLE WORD FROM E, E+1 TO AC, AC+1
14861 045217 312 02 0 00 070656 CAME AC-2,[631463,,146314] ;WAS C(E) MODIFIED?
14862 045220 005 02 0 00 010051 ER5 AC-2,10051 ;C(E) WAS CLOBBERED
14863 045221 312 03 0 00 070657 CAME AC-1,[424242,,131313] ;WAS C(E+1) MODIFIED?
14864 045222 006 03 0 00 010051 ER6 AC-1,10051 ;C(E+1) WAS CLOBBERED
14865 045223 321 10 0 00 045214 JUMPL SAC,Q10050
14866 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 37-1
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVE - GENERAL DATA PATTERNS SEQ 0377
14867 DMVE 1010,0,0,0,0^
14868 ;THIS MACRO TESTS THE DMOVE INSTRUCTION
14869 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
14870 ;THEN, THE DATA SPECIFIED BY [XWD 0,0] AND [XWD 0,0] IS MOVED
14871 ;FROM MEMORY TO AC, AC+1 VIA THE DMOVE INSTRUCTION.
14872 ;0(AC) AND 0(AC+1) ARE THEN COMPARED WITH THE TEST WORDS
14873 ;[XWD 0,0] AND [XWD 0,0], RESPECTIVELY. THE TEST PASSES IF THESE
14874 ;COMPARISONS AGREE.
14875
14876 045224 200 11 0 00 070660 Q10100: MOVE AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS
14877 045225 200 12 0 00 070660 MOVE AC+6,[XWD 0,0] ;FOR COMPARISON
14878 045226 200 04 0 00 070661 MOVE AC,[XWD 707070,707070]
14879 045227 200 05 0 00 070662 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1
14880 DMOVE AC,[XWD 0,0 ;*MOVE DOUBLE WORD 0,0 ; 0,0
14881 045230 120 04 0 00 070663 XWD 0,0] ;FROM MEMORY TO AC, AC+1
14882 045231 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
14883 045232 003 04 0 00 010101 ER3 AC,10101 ;FAIL IF CONTENTS(AC) NOT = 0,0
14884 045233 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
14885 045234 004 05 0 00 010102 ER4 AC+1,10102 ;FAIL IF CONTENTS(AC+1) NOT = 0,0
14886 045235 321 10 0 00 045224 JUMPL SAC,Q10100 ;LOOP ON ERROR SWITCH^
14887
14888 DMVE 1020,-1,-1,-1,-1^
14889 ;THIS MACRO TESTS THE DMOVE INSTRUCTION
14890 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
14891 ;THEN, THE DATA SPECIFIED BY [XWD -1,-1] AND [XWD -1,-1] IS MOVED
14892 ;FROM MEMORY TO AC, AC+1 VIA THE DMOVE INSTRUCTION.
14893 ;-1(AC) AND -1(AC+1) ARE THEN COMPARED WITH THE TEST WORDS
14894 ;[XWD -1,-1] AND [XWD -1,-1], RESPECTIVELY. THE TEST PASSES IF THESE
14895 ;COMPARISONS AGREE.
14896
14897 045236 200 11 0 00 070665 Q10200: MOVE AC+5,[XWD -1,-1] ;INITIALIZE TEST WORDS
14898 045237 200 12 0 00 070665 MOVE AC+6,[XWD -1,-1] ;FOR COMPARISON
14899 045240 200 04 0 00 070661 MOVE AC,[XWD 707070,707070]
14900 045241 200 05 0 00 070662 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1
14901 DMOVE AC,[XWD -1,-1 ;*MOVE DOUBLE WORD -1,-1 ; -1,-1
14902 045242 120 04 0 00 070665 XWD -1,-1] ;FROM MEMORY TO AC, AC+1
14903 045243 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
14904 045244 003 04 0 00 010201 ER3 AC,10201 ;FAIL IF CONTENTS(AC) NOT = -1,-1
14905 045245 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
14906 045246 004 05 0 00 010202 ER4 AC+1,10202 ;FAIL IF CONTENTS(AC+1) NOT = -1,-1
14907 045247 321 10 0 00 045236 JUMPL SAC,Q10200 ;LOOP ON ERROR SWITCH^
14908 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 37-2
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVE - GENERAL DATA PATTERNS SEQ 0378
14909 DMVE 1030,0,0,-1,-1^
14910 ;THIS MACRO TESTS THE DMOVE INSTRUCTION
14911 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
14912 ;THEN, THE DATA SPECIFIED BY [XWD 0,0] AND [XWD -1,-1] IS MOVED
14913 ;FROM MEMORY TO AC, AC+1 VIA THE DMOVE INSTRUCTION.
14914 ;-1(AC) AND -1(AC+1) ARE THEN COMPARED WITH THE TEST WORDS
14915 ;[XWD 0,0] AND [XWD -1,-1], RESPECTIVELY. THE TEST PASSES IF THESE
14916 ;COMPARISONS AGREE.
14917
14918 045250 200 11 0 00 070660 Q10300: MOVE AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS
14919 045251 200 12 0 00 070665 MOVE AC+6,[XWD -1,-1] ;FOR COMPARISON
14920 045252 200 04 0 00 070661 MOVE AC,[XWD 707070,707070]
14921 045253 200 05 0 00 070662 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1
14922 DMOVE AC,[XWD 0,0 ;*MOVE DOUBLE WORD 0,0 ; -1,-1
14923 045254 120 04 0 00 070664 XWD -1,-1] ;FROM MEMORY TO AC, AC+1
14924 045255 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
14925 045256 003 04 0 00 010301 ER3 AC,10301 ;FAIL IF CONTENTS(AC) NOT = 0,0
14926 045257 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
14927 045260 004 05 0 00 010302 ER4 AC+1,10302 ;FAIL IF CONTENTS(AC+1) NOT = -1,-1
14928 045261 321 10 0 00 045250 JUMPL SAC,Q10300 ;LOOP ON ERROR SWITCH^
14929
14930 DMVE 1040,-1,-1,0,0^
14931 ;THIS MACRO TESTS THE DMOVE INSTRUCTION
14932 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
14933 ;THEN, THE DATA SPECIFIED BY [XWD -1,-1] AND [XWD 0,0] IS MOVED
14934 ;FROM MEMORY TO AC, AC+1 VIA THE DMOVE INSTRUCTION.
14935 ;0(AC) AND 0(AC+1) ARE THEN COMPARED WITH THE TEST WORDS
14936 ;[XWD -1,-1] AND [XWD 0,0], RESPECTIVELY. THE TEST PASSES IF THESE
14937 ;COMPARISONS AGREE.
14938
14939 045262 200 11 0 00 070665 Q10400: MOVE AC+5,[XWD -1,-1] ;INITIALIZE TEST WORDS
14940 045263 200 12 0 00 070660 MOVE AC+6,[XWD 0,0] ;FOR COMPARISON
14941 045264 200 04 0 00 070661 MOVE AC,[XWD 707070,707070]
14942 045265 200 05 0 00 070662 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1
14943 DMOVE AC,[XWD -1,-1 ;*MOVE DOUBLE WORD -1,-1 ; 0,0
14944 045266 120 04 0 00 070666 XWD 0,0] ;FROM MEMORY TO AC, AC+1
14945 045267 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
14946 045270 003 04 0 00 010401 ER3 AC,10401 ;FAIL IF CONTENTS(AC) NOT = -1,-1
14947 045271 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
14948 045272 004 05 0 00 010402 ER4 AC+1,10402 ;FAIL IF CONTENTS(AC+1) NOT = 0,0
14949 045273 321 10 0 00 045262 JUMPL SAC,Q10400 ;LOOP ON ERROR SWITCH^
14950 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 37-3
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVE - GENERAL DATA PATTERNS SEQ 0379
14951 DMVE 1050,252525,252525,525252,525252^
14952 ;THIS MACRO TESTS THE DMOVE INSTRUCTION
14953 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
14954 ;THEN, THE DATA SPECIFIED BY [XWD 252525,252525] AND [XWD 525252,525252] IS MOVED
14955 ;FROM MEMORY TO AC, AC+1 VIA THE DMOVE INSTRUCTION.
14956 ;525252(AC) AND 525252(AC+1) ARE THEN COMPARED WITH THE TEST WORDS
14957 ;[XWD 252525,252525] AND [XWD 525252,525252], RESPECTIVELY. THE TEST PASSES IF THESE
14958 ;COMPARISONS AGREE.
14959
14960 045274 200 11 0 00 070655 Q10500: MOVE AC+5,[XWD 252525,252525] ;INITIALIZE TEST WORDS
14961 045275 200 12 0 00 070670 MOVE AC+6,[XWD 525252,525252] ;FOR COMPARISON
14962 045276 200 04 0 00 070661 MOVE AC,[XWD 707070,707070]
14963 045277 200 05 0 00 070662 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1
14964 DMOVE AC,[XWD 252525,252525 ;*MOVE DOUBLE WORD 252525,252525 ; 525252,5
14965 25252
14966 045300 120 04 0 00 070671 XWD 525252,525252] ;FROM MEMORY TO AC, AC+1
14967 045301 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
14968 045302 003 04 0 00 010501 ER3 AC,10501 ;FAIL IF CONTENTS(AC) NOT = 252525,252525
14969 045303 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
14970 045304 004 05 0 00 010502 ER4 AC+1,10502 ;FAIL IF CONTENTS(AC+1) NOT = 525252,525252
14971 045305 321 10 0 00 045274 JUMPL SAC,Q10500 ;LOOP ON ERROR SWITCH^
14972
14973 DMVE 1060,525252,525252,252525,252525^
14974 ;THIS MACRO TESTS THE DMOVE INSTRUCTION
14975 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
14976 ;THEN, THE DATA SPECIFIED BY [XWD 525252,525252] AND [XWD 252525,252525] IS MOVED
14977 ;FROM MEMORY TO AC, AC+1 VIA THE DMOVE INSTRUCTION.
14978 ;252525(AC) AND 252525(AC+1) ARE THEN COMPARED WITH THE TEST WORDS
14979 ;[XWD 525252,525252] AND [XWD 252525,252525], RESPECTIVELY. THE TEST PASSES IF THESE
14980 ;COMPARISONS AGREE.
14981
14982 045306 200 11 0 00 070670 Q10600: MOVE AC+5,[XWD 525252,525252] ;INITIALIZE TEST WORDS
14983 045307 200 12 0 00 070655 MOVE AC+6,[XWD 252525,252525] ;FOR COMPARISON
14984 045310 200 04 0 00 070661 MOVE AC,[XWD 707070,707070]
14985 045311 200 05 0 00 070662 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1
14986 DMOVE AC,[XWD 525252,525252 ;*MOVE DOUBLE WORD 525252,525252 ; 252525,2
14987 52525
14988 045312 120 04 0 00 070670 XWD 252525,252525] ;FROM MEMORY TO AC, AC+1
14989 045313 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
14990 045314 003 04 0 00 010601 ER3 AC,10601 ;FAIL IF CONTENTS(AC) NOT = 525252,525252
14991 045315 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
14992 045316 004 05 0 00 010602 ER4 AC+1,10602 ;FAIL IF CONTENTS(AC+1) NOT = 252525,252525
14993 045317 321 10 0 00 045306 JUMPL SAC,Q10600 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 38
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVE - AC=17, AC+1=0 SEQ 0380
14994 SUBTTL DIAGNOSTIC SECTION - DMOVE - AC=17, AC+1=0
14995
14996 ;CHECK DMOVE FOR AC=17 AND AC+1=0
14997
14998 000017 AC=17
14999 000003 SAC=<AC+4>&17
15000 SAVEAC (1,1)^
15001 045320 201 03 0 00 045320 MOVEI SAC,.
15002 045321 202 03 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC
15003 045322 201 03 0 00 000003 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH
15004 045323 202 03 0 00 073775 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^
15005
15006 DMVE17 1070,1071,-1,-1,-1,-1^
15007 ;THIS MACRO TESTS THE DMOVE INSTRUCTION
15008 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
15009 ;THEN, THE DATA SPECIFIED BY [XWD -1,-1] AND [XWD -1,-1] IS MOVED
15010 ;FROM MEMORY TO AC, AC+1 VIA THE DMOVE INSTRUCTION.
15011 ;-1(AC) AND -1(AC+1) ARE THEN COMPARED WITH THE TEST
15012 ;WORDS [XWD -1,-1] AND [XWD -1,-1], RESPECTIVELY.
15013 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
15014
15015 045324 202 17 0 00 074005 Q10710: MOVEM AC,%SV17# ;SAVE AC17
15016 045325 200 04 0 00 070665 Q10700: MOVE AC+5,[XWD -1,-1] ;INITIALIZE TEST WORDS
15017 045326 200 05 0 00 070665 MOVE AC+6,[XWD -1,-1] ;FOR COMPARISON
15018 045327 200 17 0 00 070661 MOVE AC,[XWD 707070,707070]
15019 045330 200 00 0 00 070662 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1
15020 DMOVE AC,[XWD -1,-1 ;*MOVE DOUBLE WORD -1,-1 ; -1,-1
15021 045331 120 17 0 00 070665 XWD -1,-1] ;FROM MEMORY TO AC, AC+1
15022 045332 316 17 0 00 000004 Q10713: CAMN AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
15023 045333 254 00 0 00 045337 JRST .+4 ;HERE IF NO ERROR
15024 045334 202 17 0 00 000016 MOVEM AC,AC-1 ;STORE INCORRECT RESLUTS
15025 045335 200 17 0 00 074005 MOVE AC,%SV17 ;RESTORE P
15026 045336 003 16 0 00 010701 ER3 AC-1,10701 ;FAIL IF CONTENTS(AC) NOT = -1,-1
15027 045337 316 00 0 00 000005 CAMN AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
15028 045340 254 00 0 00 045344 JRST .+4 ;HERE IF NO ERROR
15029 045341 202 00 0 00 000016 MOVEM AC+1,AC-1 ;STORE INCORRECT WORD
15030 045342 200 17 0 00 074005 MOVE AC,%SV17 ;RESTORE P
15031 045343 004 16 0 00 010702 ER4 AC-1,10702
15032 045344 200 17 0 00 074005 MOVE AC,%SV17 ;RESTORE AC UNCONDITIONALLY
15033 045345 321 03 0 00 045324 JUMPL SAC,Q10710 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 39
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVE - AC RANGE ADDRESS SEQ 0381
15034 SUBTTL DIAGNOSTIC SECTION - DMOVE - AC RANGE ADDRESS
15035
15036 ;CHECK DMOVE WHERE 'E' IS WITHIN THE 'AC' RANGE
15037
15038 000004 AC=4
15039 000010 SAC=<AC+4>&17
15040 SAVEAC(1,1)^
15041 045346 201 10 0 00 045346 MOVEI SAC,.
15042 045347 202 10 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC
15043 045350 201 10 0 00 000010 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH
15044 045351 202 10 0 00 073775 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^
15045 000002 E=AC-2
15046
15047 011000 SN=11000
15048 000001 E=<E-1>&17
15049
15050 Q11000: REPEAT ^D5,
15051 <SN=SN+1
15052 E=<E+1>&17
15053 SETZB AC,AC+1 ;INITIALIZE AC,AC+1
15054 SETOB E,E+1 ;INITIALIZE E,E+1
15055 HRRZI E+1,-1
15056 SETOB AC+5,<AC+6>&17 ;INITIALIZE TEST WORDS FOR COMPARISON
15057 HRRZI AC+6,-1
15058 DMOVE AC,E ;*MOVE DOUBLE WORD FROM E, E+1 TO AC, AC+1
15059 CAME AC,<AC+5>&17 ;DID DMOVE GET CORRECT C(E)?
15060 ER3 AC,SN ;FAIL IF C(AC) NOT = -1,-1
15061 CAME AC+1,<AC+6>&17 ;DID DMOVE GET CORRECT C(E+1)?
15062 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 0,-1
15063 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH
15064 >
15065 011001 SN=SN+1
15066 000002 E=<E+1>&17
15067 045352 403 04 0 00 000005 SETZB AC,AC+1 ;INITIALIZE AC,AC+1
15068 045353 477 02 0 00 000003 SETOB E,E+1 ;INITIALIZE E,E+1
15069 045354 551 03 0 00 777777 HRRZI E+1,-1
15070 045355 477 11 0 00 000012 SETOB AC+5,<AC+6>&17 ;INITIALIZE TEST WORDS FOR COMPARISON
15071 045356 551 12 0 00 777777 HRRZI AC+6,-1
15072 045357 120 04 0 00 000002 DMOVE AC,E ;*MOVE DOUBLE WORD FROM E, E+1 TO AC, AC+1
15073 045360 312 04 0 00 000011 CAME AC,<AC+5>&17 ;DID DMOVE GET CORRECT C(E)?
15074 045361 003 04 0 00 011001 ER3 AC,SN ;FAIL IF C(AC) NOT = -1,-1
15075 045362 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;DID DMOVE GET CORRECT C(E+1)?
15076 045363 004 05 0 00 011001 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 0,-1
15077 045364 321 10 0 00 045354 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH
15078
15079 011002 SN=SN+1
15080 000003 E=<E+1>&17
15081 045365 403 04 0 00 000005 SETZB AC,AC+1 ;INITIALIZE AC,AC+1
15082 045366 477 03 0 00 000004 SETOB E,E+1 ;INITIALIZE E,E+1
15083 045367 551 04 0 00 777777 HRRZI E+1,-1
15084 045370 477 11 0 00 000012 SETOB AC+5,<AC+6>&17 ;INITIALIZE TEST WORDS FOR COMPARISON
15085 045371 551 12 0 00 777777 HRRZI AC+6,-1
15086 045372 120 04 0 00 000003 DMOVE AC,E ;*MOVE DOUBLE WORD FROM E, E+1 TO AC, AC+1
15087 045373 312 04 0 00 000011 CAME AC,<AC+5>&17 ;DID DMOVE GET CORRECT C(E)?
15088 045374 003 04 0 00 011002 ER3 AC,SN ;FAIL IF C(AC) NOT = -1,-1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 39-1
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVE - AC RANGE ADDRESS SEQ 0382
15089 045375 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;DID DMOVE GET CORRECT C(E+1)?
15090 045376 004 05 0 00 011002 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 0,-1
15091 045377 321 10 0 00 045367 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH
15092
15093 011003 SN=SN+1
15094 000004 E=<E+1>&17
15095 045400 403 04 0 00 000005 SETZB AC,AC+1 ;INITIALIZE AC,AC+1
15096 045401 477 04 0 00 000005 SETOB E,E+1 ;INITIALIZE E,E+1
15097 045402 551 05 0 00 777777 HRRZI E+1,-1
15098 045403 477 11 0 00 000012 SETOB AC+5,<AC+6>&17 ;INITIALIZE TEST WORDS FOR COMPARISON
15099 045404 551 12 0 00 777777 HRRZI AC+6,-1
15100 045405 120 04 0 00 000004 DMOVE AC,E ;*MOVE DOUBLE WORD FROM E, E+1 TO AC, AC+1
15101 045406 312 04 0 00 000011 CAME AC,<AC+5>&17 ;DID DMOVE GET CORRECT C(E)?
15102 045407 003 04 0 00 011003 ER3 AC,SN ;FAIL IF C(AC) NOT = -1,-1
15103 045410 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;DID DMOVE GET CORRECT C(E+1)?
15104 045411 004 05 0 00 011003 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 0,-1
15105 045412 321 10 0 00 045402 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH
15106
15107 011004 SN=SN+1
15108 000005 E=<E+1>&17
15109 045413 403 04 0 00 000005 SETZB AC,AC+1 ;INITIALIZE AC,AC+1
15110 045414 477 05 0 00 000006 SETOB E,E+1 ;INITIALIZE E,E+1
15111 045415 551 06 0 00 777777 HRRZI E+1,-1
15112 045416 477 11 0 00 000012 SETOB AC+5,<AC+6>&17 ;INITIALIZE TEST WORDS FOR COMPARISON
15113 045417 551 12 0 00 777777 HRRZI AC+6,-1
15114 045420 120 04 0 00 000005 DMOVE AC,E ;*MOVE DOUBLE WORD FROM E, E+1 TO AC, AC+1
15115 045421 312 04 0 00 000011 CAME AC,<AC+5>&17 ;DID DMOVE GET CORRECT C(E)?
15116 045422 003 04 0 00 011004 ER3 AC,SN ;FAIL IF C(AC) NOT = -1,-1
15117 045423 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;DID DMOVE GET CORRECT C(E+1)?
15118 045424 004 05 0 00 011004 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 0,-1
15119 045425 321 10 0 00 045415 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH
15120
15121 011005 SN=SN+1
15122 000006 E=<E+1>&17
15123 045426 403 04 0 00 000005 SETZB AC,AC+1 ;INITIALIZE AC,AC+1
15124 045427 477 06 0 00 000007 SETOB E,E+1 ;INITIALIZE E,E+1
15125 045430 551 07 0 00 777777 HRRZI E+1,-1
15126 045431 477 11 0 00 000012 SETOB AC+5,<AC+6>&17 ;INITIALIZE TEST WORDS FOR COMPARISON
15127 045432 551 12 0 00 777777 HRRZI AC+6,-1
15128 045433 120 04 0 00 000006 DMOVE AC,E ;*MOVE DOUBLE WORD FROM E, E+1 TO AC, AC+1
15129 045434 312 04 0 00 000011 CAME AC,<AC+5>&17 ;DID DMOVE GET CORRECT C(E)?
15130 045435 003 04 0 00 011005 ER3 AC,SN ;FAIL IF C(AC) NOT = -1,-1
15131 045436 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;DID DMOVE GET CORRECT C(E+1)?
15132 045437 004 05 0 00 011005 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 0,-1
15133 045440 321 10 0 00 045430 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH
15134
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 40
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS SEQ 0383
15135 SUBTTL DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS
15136
15137 ;CHECK THAT 'DMOVN AC,E' DOES NOT CLOBBER C(E) OR C(E+1)
15138
15139 Q11050: DMOVE AC-2,[631463,,146314 ;INITIALIZE C(E), C(E+1)
15140 045441 120 02 0 00 070656 424242,,131313]
15141 DMOVN AC,AC-2 ;*MOVE NEGATIVE OF DOUBLE WORD FROM E, E+1 TO AC, A
15142 045442 121 04 0 00 000002 C+1
15143 045443 312 02 0 00 070656 CAME AC-2,[631463,,146314] ;WAS C(E) MODIFIED?
15144 045444 005 02 0 00 011051 ER5 AC-2,11051 ;C(E) WAS CLOBBERED
15145 045445 312 03 0 00 070657 CAME AC-1,[424242,,131313] ;WAS C(E+1) MODIFIED?
15146 045446 006 03 0 00 011052 ER6 AC-1,11052 ;C(E+1) WAS CLOBBERED
15147 045447 321 10 0 00 045441 JUMPL SAC,Q11050 ;LOOP ON ERROR SWITCH
15148 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 40-1
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS SEQ 0384
15149 DMVN 1110,0,0,0,0^
15150 ;THIS MACRO TESTS THE DMOVN INSTRUCTION
15151 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
15152 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
15153 ;[XWD 0,0] AND [XWD 0,0] IS MOVED FROM MEMORY TO AC, AC+1 VIA
15154 ;THE DMOVN INSTRUCTION. 0(AC) AND 0(AC+1) ARE THEN COMPARED
15155 ;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST
15156 ;WORDS [XWD 0,0] AND [XWD 0,0], RESPECTIVELY.
15157 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
15158
15159 Q11100: DMOVE AC,[XWD 707070,707070
15160 045450 120 04 0 00 070661 XWD 070707,070707] ;INITIALIZE AC,AC+1
15161 045451 460 11 0 00 070660 SETCM AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS FOR COMPARISON
15162 IFIDN <0,0><0,0>,<
15163 045452 400 12 0 00 000000 SETZ AC+6,
15164 045453 271 11 0 00 000001 ADDI AC+5,1 >
15165 IFIDN <0,0><400000,0>,<
15166 SETZ AC+6,
15167 ADDI AC+5,1 >
15168 IFDIF <0,0><0,0>,<
15169 IFDIF <0,0><400000,0>,<
15170 MOVN AC+6,[XWD 0,0]
15171 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >>
15172 DMOVN AC,[XWD 0,0 ;*MOVE NEGATIVE OF DOUBLE WORD 0,0 ;
15173 045454 121 04 0 00 070663 XWD 0,0] ;0,0 FROM MEMORY TO AC, AC+1
15174 045455 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
15175 ER3 AC,11101 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 0
15176 045456 003 04 0 00 011101 ,0
15177 045457 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
15178 045460 004 05 0 00 011102 ER4 AC+1,11102 ;FAIL IF CONTENTS(AC+1) NOT = MINUS 0,0
15179 045461 321 10 0 00 045450 JUMPL SAC,Q11100 ;LOOP ON ERROR SWITCH^
15180 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 40-2
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS SEQ 0385
15181 DMVN 1120,0,0,0,1^
15182 ;THIS MACRO TESTS THE DMOVN INSTRUCTION
15183 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
15184 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
15185 ;[XWD 0,0] AND [XWD 0,1] IS MOVED FROM MEMORY TO AC, AC+1 VIA
15186 ;THE DMOVN INSTRUCTION. 0(AC) AND 0(AC+1) ARE THEN COMPARED
15187 ;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST
15188 ;WORDS [XWD 0,0] AND [XWD 0,1], RESPECTIVELY.
15189 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
15190
15191 Q11200: DMOVE AC,[XWD 707070,707070
15192 045462 120 04 0 00 070661 XWD 070707,070707] ;INITIALIZE AC,AC+1
15193 045463 460 11 0 00 070660 SETCM AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS FOR COMPARISON
15194 IFIDN <0,1><0,0>,<
15195 SETZ AC+6,
15196 ADDI AC+5,1 >
15197 IFIDN <0,1><400000,0>,<
15198 SETZ AC+6,
15199 ADDI AC+5,1 >
15200 IFDIF <0,1><0,0>,<
15201 IFDIF <0,1><400000,0>,<
15202 045464 210 12 0 00 070673 MOVN AC+6,[XWD 0,1]
15203 045465 621 12 0 00 400000 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >>
15204 DMOVN AC,[XWD 0,0 ;*MOVE NEGATIVE OF DOUBLE WORD 0,0 ;
15205 045466 121 04 0 00 070674 XWD 0,1] ;0,1 FROM MEMORY TO AC, AC+1
15206 045467 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
15207 ER3 AC,11201 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 0
15208 045470 003 04 0 00 011201 ,0
15209 045471 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
15210 045472 004 05 0 00 011202 ER4 AC+1,11202 ;FAIL IF CONTENTS(AC+1) NOT = MINUS 0,1
15211 045473 321 10 0 00 045462 JUMPL SAC,Q11200 ;LOOP ON ERROR SWITCH^
15212 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 40-3
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS SEQ 0386
15213 DMVN 1130,-1,-1,0,1^
15214 ;THIS MACRO TESTS THE DMOVN INSTRUCTION
15215 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
15216 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
15217 ;[XWD -1,-1] AND [XWD 0,1] IS MOVED FROM MEMORY TO AC, AC+1 VIA
15218 ;THE DMOVN INSTRUCTION. 0(AC) AND 0(AC+1) ARE THEN COMPARED
15219 ;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST
15220 ;WORDS [XWD -1,-1] AND [XWD 0,1], RESPECTIVELY.
15221 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
15222
15223 Q11300: DMOVE AC,[XWD 707070,707070
15224 045474 120 04 0 00 070661 XWD 070707,070707] ;INITIALIZE AC,AC+1
15225 045475 460 11 0 00 070665 SETCM AC+5,[XWD -1,-1] ;INITIALIZE TEST WORDS FOR COMPARISON
15226 IFIDN <0,1><0,0>,<
15227 SETZ AC+6,
15228 ADDI AC+5,1 >
15229 IFIDN <0,1><400000,0>,<
15230 SETZ AC+6,
15231 ADDI AC+5,1 >
15232 IFDIF <0,1><0,0>,<
15233 IFDIF <0,1><400000,0>,<
15234 045476 210 12 0 00 070673 MOVN AC+6,[XWD 0,1]
15235 045477 621 12 0 00 400000 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >>
15236 DMOVN AC,[XWD -1,-1 ;*MOVE NEGATIVE OF DOUBLE WORD -1,-1 ;
15237 045500 121 04 0 00 070676 XWD 0,1] ;0,1 FROM MEMORY TO AC, AC+1
15238 045501 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
15239 ER3 AC,11301 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF -
15240 045502 003 04 0 00 011301 1,-1
15241 045503 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
15242 045504 004 05 0 00 011302 ER4 AC+1,11302 ;FAIL IF CONTENTS(AC+1) NOT = MINUS 0,1
15243 045505 321 10 0 00 045474 JUMPL SAC,Q11300 ;LOOP ON ERROR SWITCH^
15244 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 40-4
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS SEQ 0387
15245 DMVN 1140,0,1,0,0^
15246 ;THIS MACRO TESTS THE DMOVN INSTRUCTION
15247 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
15248 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
15249 ;[XWD 0,1] AND [XWD 0,0] IS MOVED FROM MEMORY TO AC, AC+1 VIA
15250 ;THE DMOVN INSTRUCTION. 0(AC) AND 0(AC+1) ARE THEN COMPARED
15251 ;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST
15252 ;WORDS [XWD 0,1] AND [XWD 0,0], RESPECTIVELY.
15253 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
15254
15255 Q11400: DMOVE AC,[XWD 707070,707070
15256 045506 120 04 0 00 070661 XWD 070707,070707] ;INITIALIZE AC,AC+1
15257 045507 460 11 0 00 070673 SETCM AC+5,[XWD 0,1] ;INITIALIZE TEST WORDS FOR COMPARISON
15258 IFIDN <0,0><0,0>,<
15259 045510 400 12 0 00 000000 SETZ AC+6,
15260 045511 271 11 0 00 000001 ADDI AC+5,1 >
15261 IFIDN <0,0><400000,0>,<
15262 SETZ AC+6,
15263 ADDI AC+5,1 >
15264 IFDIF <0,0><0,0>,<
15265 IFDIF <0,0><400000,0>,<
15266 MOVN AC+6,[XWD 0,0]
15267 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >>
15268 DMOVN AC,[XWD 0,1 ;*MOVE NEGATIVE OF DOUBLE WORD 0,1 ;
15269 045512 121 04 0 00 070673 XWD 0,0] ;0,0 FROM MEMORY TO AC, AC+1
15270 045513 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
15271 ER3 AC,11401 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 0
15272 045514 003 04 0 00 011401 ,1
15273 045515 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
15274 045516 004 05 0 00 011402 ER4 AC+1,11402 ;FAIL IF CONTENTS(AC+1) NOT = MINUS 0,0
15275 045517 321 10 0 00 045506 JUMPL SAC,Q11400 ;LOOP ON ERROR SWITCH^
15276 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 40-5
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS SEQ 0388
15277 DMVN 1150,525252,525252,252525,252526^
15278 ;THIS MACRO TESTS THE DMOVN INSTRUCTION
15279 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
15280 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
15281 ;[XWD 525252,525252] AND [XWD 252525,252526] IS MOVED FROM MEMORY TO AC, AC+1 VIA
15282 ;THE DMOVN INSTRUCTION. 252525(AC) AND 252525(AC+1) ARE THEN COMPARED
15283 ;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST
15284 ;WORDS [XWD 525252,525252] AND [XWD 252525,252526], RESPECTIVELY.
15285 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
15286
15287 Q11500: DMOVE AC,[XWD 707070,707070
15288 045520 120 04 0 00 070661 XWD 070707,070707] ;INITIALIZE AC,AC+1
15289 SETCM AC+5,[XWD 525252,525252] ;INITIALIZE TEST WORDS FOR COMPARIS
15290 045521 460 11 0 00 070670 ON
15291 IFIDN <252525,252526><0,0>,<
15292 SETZ AC+6,
15293 ADDI AC+5,1 >
15294 IFIDN <252525,252526><400000,0>,<
15295 SETZ AC+6,
15296 ADDI AC+5,1 >
15297 IFDIF <252525,252526><0,0>,<
15298 IFDIF <252525,252526><400000,0>,<
15299 045522 210 12 0 00 070700 MOVN AC+6,[XWD 252525,252526]
15300 045523 621 12 0 00 400000 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >>
15301 DMOVN AC,[XWD 525252,525252 ;*MOVE NEGATIVE OF DOUBLE WORD 525252,52525
15302 2 ;
15303 045524 121 04 0 00 070701 XWD 252525,252526] ;252525,252526 FROM MEMORY TO AC, AC+1
15304 045525 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
15305 ER3 AC,11501 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 5
15306 045526 003 04 0 00 011501 25252,525252
15307 045527 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
15308 045530 004 05 0 00 011502 ER4 AC+1,11502 ;FAIL IF CONTENTS(AC+1) NOT = MINUS 252525,252526
15309 045531 321 10 0 00 045520 JUMPL SAC,Q11500 ;LOOP ON ERROR SWITCH^
15310 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 40-6
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS SEQ 0389
15311 DMVN 1160,252525,252525,525252,525253^
15312 ;THIS MACRO TESTS THE DMOVN INSTRUCTION
15313 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
15314 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
15315 ;[XWD 252525,252525] AND [XWD 525252,525253] IS MOVED FROM MEMORY TO AC, AC+1 VIA
15316 ;THE DMOVN INSTRUCTION. 525252(AC) AND 525252(AC+1) ARE THEN COMPARED
15317 ;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST
15318 ;WORDS [XWD 252525,252525] AND [XWD 525252,525253], RESPECTIVELY.
15319 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
15320
15321 Q11600: DMOVE AC,[XWD 707070,707070
15322 045532 120 04 0 00 070661 XWD 070707,070707] ;INITIALIZE AC,AC+1
15323 SETCM AC+5,[XWD 252525,252525] ;INITIALIZE TEST WORDS FOR COMPARIS
15324 045533 460 11 0 00 070655 ON
15325 IFIDN <525252,525253><0,0>,<
15326 SETZ AC+6,
15327 ADDI AC+5,1 >
15328 IFIDN <525252,525253><400000,0>,<
15329 SETZ AC+6,
15330 ADDI AC+5,1 >
15331 IFDIF <525252,525253><0,0>,<
15332 IFDIF <525252,525253><400000,0>,<
15333 045534 210 12 0 00 070703 MOVN AC+6,[XWD 525252,525253]
15334 045535 621 12 0 00 400000 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >>
15335 DMOVN AC,[XWD 252525,252525 ;*MOVE NEGATIVE OF DOUBLE WORD 252525,25252
15336 5 ;
15337 045536 121 04 0 00 070704 XWD 525252,525253] ;525252,525253 FROM MEMORY TO AC, AC+1
15338 045537 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
15339 ER3 AC,11601 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 2
15340 045540 003 04 0 00 011601 52525,252525
15341 045541 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
15342 045542 004 05 0 00 011602 ER4 AC+1,11602 ;FAIL IF CONTENTS(AC+1) NOT = MINUS 525252,525253
15343 045543 321 10 0 00 045532 JUMPL SAC,Q11600 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 41
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVN - AC=17, AC+1=0 SEQ 0390
15344 SUBTTL DIAGNOSTIC SECTION - DMOVN - AC=17, AC+1=0
15345
15346 ;CHECK DMOVN FOR AC=17 AND AC+1=0
15347
15348 000017 AC=17
15349 000003 SAC=<AC+4>&17
15350 SAVEAC (1,1)^
15351 045544 201 03 0 00 045544 MOVEI SAC,.
15352 045545 202 03 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC
15353 045546 201 03 0 00 000003 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH
15354 045547 202 03 0 00 073775 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^
15355
15356 DMVN17 1170,0,0,0,1^
15357 ;THIS MACRO TESTS THE DMOVN INSTRUCTION
15358 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
15359 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
15360 ;[XWD 0,0] AND [XWD 0,1] IS MOVED FROM MEMORY TO AC, AC+1 VIA
15361 ;THE DMOVN INSTRUCTION. 0(AC) AND 0(AC+1) ARE THEN COMPARED
15362 ;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST
15363 ;WORDS [XWD 0,0] AND [XWD 0,1], RESPECTIVELY.
15364 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
15365
15366 045550 202 17 0 00 074005 Q11700: MOVEM AC,%SV17 ;SAVE P
15367 DMOVE AC,[XWD 707070,707070
15368 045551 120 17 0 00 070661 XWD 070707,070707] ;INITIALIZE AC,AC+1
15369 045552 460 04 0 00 070660 SETCM AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS FOR COMPARISON
15370 IFIDN <0,1><0,0>,<
15371 SETZ AC+6,
15372 ADDI AC+5,1 >
15373 IFIDN <0,1><400000,0>,<
15374 SETZ AC+6,
15375 ADDI AC+5,1 >
15376 IFDIF <0,1><0,0>,<
15377 IFDIF <0,1><400000,0>,<
15378 045553 210 05 0 00 070673 MOVN AC+6,[XWD 0,1]
15379 045554 621 05 0 00 400000 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >>
15380 DMOVN AC,[XWD 0,0 ;*MOVE NEGATIVE OF DOUBLE WORD 0,0 ;
15381 045555 121 17 0 00 070674 XWD 0,1] ;0,1 FROM MEMORY TO AC, AC+1
15382 045556 316 17 0 00 000004 CAMN AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
15383 045557 254 00 0 00 045563 JRST .+4 ;HERE IF TESTS OK
15384 045560 202 17 0 00 000016 MOVEM AC,AC-1 ;SAVE BAD WORD
15385 045561 200 17 0 00 074005 MOVE AC,%SV17 ;RESTORE P
15386 045562 003 16 0 00 011701 ER3 AC-1,11701 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 0,0
15387 045563 316 00 0 00 000005 CAMN AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
15388 045564 254 00 0 00 045570 JRST .+4 ;HERE IF TESTS OK
15389 045565 202 17 0 00 000016 MOVEM AC,AC-1
15390 045566 200 17 0 00 074005 MOVE AC,%SV17 ;RESTORE P
15391 045567 004 00 0 00 011702 ER4 AC+1,11702 ;FAIL IF CONTENTS(AC+1) NOT = MINUS 0,1
15392 045570 200 17 0 00 074005 MOVE AC,%SV17 ;RESTORE P UNCODITIONALLY
15393 045571 321 03 0 00 045550 JUMPL SAC,Q11700 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 42
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVN - AC RANGE ADDRESS SEQ 0391
15394 SUBTTL DIAGNOSTIC SECTION - DMOVN - AC RANGE ADDRESS
15395
15396 ;CHECK DMOVN WHERE 'E' IS WITHIN THE 'AC' RANGE
15397
15398 000004 AC=4
15399 000010 SAC=<AC+4>&17
15400 SAVEAC (1,1)^
15401 045572 201 10 0 00 045572 MOVEI SAC,.
15402 045573 202 10 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC
15403 045574 201 10 0 00 000010 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH
15404 045575 202 10 0 00 073775 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^
15405 000002 E=AC-2
15406
15407 012000 SN=12000
15408 000001 E=<E-1>&17
15409
15410 Q12000: REPEAT ^D5,
15411 <SN=SN+1
15412 E=<E+1>&17
15413 DMOVE AC,[XWD 707070,707070
15414 XWD 070707,070707] ;INITIALIZE AC,AC+1
15415 SETCM AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS
15416 MOVN AC+6,[XWD 0,-1] ;FOR COMPARISON
15417 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD
15418 DMOVE E,[XWD 0,0
15419 XWD 0,-1] ;INITIALIZE E,E+1
15420 DMOVN AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM E, E+1 TO AC, A
15421 C+1
15422 CAME AC,<AC+5>&17 ;DID DMOVN GET CORRECT C(E)?
15423 ER3 AC,SN ;FAIL IF C(AC) NOT = 2'S COMPL OF C(E)
15424 CAME AC+1,<AC+6>&17 ;DID DMOVN GET CORRECT C(E+1)?
15425 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 2'S COMPL OF C(E+1)
15426 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH
15427 >
15428 012001 SN=SN+1
15429 000002 E=<E+1>&17
15430 DMOVE AC,[XWD 707070,707070
15431 045576 120 04 0 00 070661 XWD 070707,070707] ;INITIALIZE AC,AC+1
15432 045577 460 11 0 00 070660 SETCM AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS
15433 045600 210 12 0 00 070706 MOVN AC+6,[XWD 0,-1] ;FOR COMPARISON
15434 045601 621 12 0 00 400000 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD
15435 DMOVE E,[XWD 0,0
15436 045602 120 02 0 00 070707 XWD 0,-1] ;INITIALIZE E,E+1
15437 DMOVN AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM E, E+1 TO AC, A
15438 045603 121 04 0 00 000002 C+1
15439 045604 312 04 0 00 000011 CAME AC,<AC+5>&17 ;DID DMOVN GET CORRECT C(E)?
15440 045605 003 04 0 00 012001 ER3 AC,SN ;FAIL IF C(AC) NOT = 2'S COMPL OF C(E)
15441 045606 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;DID DMOVN GET CORRECT C(E+1)?
15442 045607 004 05 0 00 012001 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 2'S COMPL OF C(E+1)
15443 045610 321 10 0 00 045600 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH
15444
15445 012002 SN=SN+1
15446 000003 E=<E+1>&17
15447 DMOVE AC,[XWD 707070,707070
15448 045611 120 04 0 00 070661 XWD 070707,070707] ;INITIALIZE AC,AC+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 42-1
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVN - AC RANGE ADDRESS SEQ 0392
15449 045612 460 11 0 00 070660 SETCM AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS
15450 045613 210 12 0 00 070706 MOVN AC+6,[XWD 0,-1] ;FOR COMPARISON
15451 045614 621 12 0 00 400000 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD
15452 DMOVE E,[XWD 0,0
15453 045615 120 03 0 00 070707 XWD 0,-1] ;INITIALIZE E,E+1
15454 DMOVN AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM E, E+1 TO AC, A
15455 045616 121 04 0 00 000003 C+1
15456 045617 312 04 0 00 000011 CAME AC,<AC+5>&17 ;DID DMOVN GET CORRECT C(E)?
15457 045620 003 04 0 00 012002 ER3 AC,SN ;FAIL IF C(AC) NOT = 2'S COMPL OF C(E)
15458 045621 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;DID DMOVN GET CORRECT C(E+1)?
15459 045622 004 05 0 00 012002 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 2'S COMPL OF C(E+1)
15460 045623 321 10 0 00 045613 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH
15461
15462 012003 SN=SN+1
15463 000004 E=<E+1>&17
15464 DMOVE AC,[XWD 707070,707070
15465 045624 120 04 0 00 070661 XWD 070707,070707] ;INITIALIZE AC,AC+1
15466 045625 460 11 0 00 070660 SETCM AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS
15467 045626 210 12 0 00 070706 MOVN AC+6,[XWD 0,-1] ;FOR COMPARISON
15468 045627 621 12 0 00 400000 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD
15469 DMOVE E,[XWD 0,0
15470 045630 120 04 0 00 070707 XWD 0,-1] ;INITIALIZE E,E+1
15471 DMOVN AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM E, E+1 TO AC, A
15472 045631 121 04 0 00 000004 C+1
15473 045632 312 04 0 00 000011 CAME AC,<AC+5>&17 ;DID DMOVN GET CORRECT C(E)?
15474 045633 003 04 0 00 012003 ER3 AC,SN ;FAIL IF C(AC) NOT = 2'S COMPL OF C(E)
15475 045634 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;DID DMOVN GET CORRECT C(E+1)?
15476 045635 004 05 0 00 012003 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 2'S COMPL OF C(E+1)
15477 045636 321 10 0 00 045626 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH
15478
15479 012004 SN=SN+1
15480 000005 E=<E+1>&17
15481 DMOVE AC,[XWD 707070,707070
15482 045637 120 04 0 00 070661 XWD 070707,070707] ;INITIALIZE AC,AC+1
15483 045640 460 11 0 00 070660 SETCM AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS
15484 045641 210 12 0 00 070706 MOVN AC+6,[XWD 0,-1] ;FOR COMPARISON
15485 045642 621 12 0 00 400000 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD
15486 DMOVE E,[XWD 0,0
15487 045643 120 05 0 00 070707 XWD 0,-1] ;INITIALIZE E,E+1
15488 DMOVN AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM E, E+1 TO AC, A
15489 045644 121 04 0 00 000005 C+1
15490 045645 312 04 0 00 000011 CAME AC,<AC+5>&17 ;DID DMOVN GET CORRECT C(E)?
15491 045646 003 04 0 00 012004 ER3 AC,SN ;FAIL IF C(AC) NOT = 2'S COMPL OF C(E)
15492 045647 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;DID DMOVN GET CORRECT C(E+1)?
15493 045650 004 05 0 00 012004 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 2'S COMPL OF C(E+1)
15494 045651 321 10 0 00 045641 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH
15495
15496 012005 SN=SN+1
15497 000006 E=<E+1>&17
15498 DMOVE AC,[XWD 707070,707070
15499 045652 120 04 0 00 070661 XWD 070707,070707] ;INITIALIZE AC,AC+1
15500 045653 460 11 0 00 070660 SETCM AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS
15501 045654 210 12 0 00 070706 MOVN AC+6,[XWD 0,-1] ;FOR COMPARISON
15502 045655 621 12 0 00 400000 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD
15503 DMOVE E,[XWD 0,0
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 42-2
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVN - AC RANGE ADDRESS SEQ 0393
15504 045656 120 06 0 00 070707 XWD 0,-1] ;INITIALIZE E,E+1
15505 DMOVN AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM E, E+1 TO AC, A
15506 045657 121 04 0 00 000006 C+1
15507 045660 312 04 0 00 000011 CAME AC,<AC+5>&17 ;DID DMOVN GET CORRECT C(E)?
15508 045661 003 04 0 00 012005 ER3 AC,SN ;FAIL IF C(AC) NOT = 2'S COMPL OF C(E)
15509 045662 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;DID DMOVN GET CORRECT C(E+1)?
15510 045663 004 05 0 00 012005 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 2'S COMPL OF C(E+1)
15511 045664 321 10 0 00 045654 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH
15512
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 43
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS SEQ 0394
15513 SUBTTL DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS
15514
15515 DMVN 1210,400000,0,0,0^
15516 ;THIS MACRO TESTS THE DMOVN INSTRUCTION
15517 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
15518 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
15519 ;[XWD 400000,0] AND [XWD 0,0] IS MOVED FROM MEMORY TO AC, AC+1 VIA
15520 ;THE DMOVN INSTRUCTION. 0(AC) AND 0(AC+1) ARE THEN COMPARED
15521 ;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST
15522 ;WORDS [XWD 400000,0] AND [XWD 0,0], RESPECTIVELY.
15523 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
15524
15525 Q12100: DMOVE AC,[XWD 707070,707070
15526 045665 120 04 0 00 070661 XWD 070707,070707] ;INITIALIZE AC,AC+1
15527 045666 460 11 0 00 070711 SETCM AC+5,[XWD 400000,0] ;INITIALIZE TEST WORDS FOR COMPARISON
15528 IFIDN <0,0><0,0>,<
15529 045667 400 12 0 00 000000 SETZ AC+6,
15530 045670 271 11 0 00 000001 ADDI AC+5,1 >
15531 IFIDN <0,0><400000,0>,<
15532 SETZ AC+6,
15533 ADDI AC+5,1 >
15534 IFDIF <0,0><0,0>,<
15535 IFDIF <0,0><400000,0>,<
15536 MOVN AC+6,[XWD 0,0]
15537 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >>
15538 DMOVN AC,[XWD 400000,0 ;*MOVE NEGATIVE OF DOUBLE WORD 400000,0 ;
15539 045671 121 04 0 00 070711 XWD 0,0] ;0,0 FROM MEMORY TO AC, AC+1
15540 045672 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
15541 ER3 AC,12101 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 4
15542 045673 003 04 0 00 012101 00000,0
15543 045674 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
15544 045675 004 05 0 00 012102 ER4 AC+1,12102 ;FAIL IF CONTENTS(AC+1) NOT = MINUS 0,0
15545 045676 321 10 0 00 045665 JUMPL SAC,Q12100 ;LOOP ON ERROR SWITCH^
15546 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 43-1
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS SEQ 0395
15547 DMVN 1220,0,0,400000,0^
15548 ;THIS MACRO TESTS THE DMOVN INSTRUCTION
15549 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
15550 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
15551 ;[XWD 0,0] AND [XWD 400000,0] IS MOVED FROM MEMORY TO AC, AC+1 VIA
15552 ;THE DMOVN INSTRUCTION. 400000(AC) AND 400000(AC+1) ARE THEN COMPARED
15553 ;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST
15554 ;WORDS [XWD 0,0] AND [XWD 400000,0], RESPECTIVELY.
15555 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
15556
15557 Q12200: DMOVE AC,[XWD 707070,707070
15558 045677 120 04 0 00 070661 XWD 070707,070707] ;INITIALIZE AC,AC+1
15559 045700 460 11 0 00 070660 SETCM AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS FOR COMPARISON
15560 IFIDN <400000,0><0,0>,<
15561 SETZ AC+6,
15562 ADDI AC+5,1 >
15563 IFIDN <400000,0><400000,0>,<
15564 045701 400 12 0 00 000000 SETZ AC+6,
15565 045702 271 11 0 00 000001 ADDI AC+5,1 >
15566 IFDIF <400000,0><0,0>,<
15567 IFDIF <400000,0><400000,0>,<
15568 MOVN AC+6,[XWD 400000,0]
15569 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >>
15570 DMOVN AC,[XWD 0,0 ;*MOVE NEGATIVE OF DOUBLE WORD 0,0 ;
15571 045703 121 04 0 00 070712 XWD 400000,0] ;400000,0 FROM MEMORY TO AC, AC+1
15572 045704 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
15573 ER3 AC,12201 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 0
15574 045705 003 04 0 00 012201 ,0
15575 045706 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
15576 045707 004 05 0 00 012202 ER4 AC+1,12202 ;FAIL IF CONTENTS(AC+1) NOT = MINUS 400000,0
15577 045710 321 10 0 00 045677 JUMPL SAC,Q12200 ;LOOP ON ERROR SWITCH^
15578 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 43-2
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS SEQ 0396
15579 DMVN 1230,400000,0,400000,0^
15580 ;THIS MACRO TESTS THE DMOVN INSTRUCTION
15581 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
15582 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
15583 ;[XWD 400000,0] AND [XWD 400000,0] IS MOVED FROM MEMORY TO AC, AC+1 VIA
15584 ;THE DMOVN INSTRUCTION. 400000(AC) AND 400000(AC+1) ARE THEN COMPARED
15585 ;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST
15586 ;WORDS [XWD 400000,0] AND [XWD 400000,0], RESPECTIVELY.
15587 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
15588
15589 Q12300: DMOVE AC,[XWD 707070,707070
15590 045711 120 04 0 00 070661 XWD 070707,070707] ;INITIALIZE AC,AC+1
15591 045712 460 11 0 00 070711 SETCM AC+5,[XWD 400000,0] ;INITIALIZE TEST WORDS FOR COMPARISON
15592 IFIDN <400000,0><0,0>,<
15593 SETZ AC+6,
15594 ADDI AC+5,1 >
15595 IFIDN <400000,0><400000,0>,<
15596 045713 400 12 0 00 000000 SETZ AC+6,
15597 045714 271 11 0 00 000001 ADDI AC+5,1 >
15598 IFDIF <400000,0><0,0>,<
15599 IFDIF <400000,0><400000,0>,<
15600 MOVN AC+6,[XWD 400000,0]
15601 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >>
15602 DMOVN AC,[XWD 400000,0 ;*MOVE NEGATIVE OF DOUBLE WORD 400000,0 ;
15603 045715 121 04 0 00 070713 XWD 400000,0] ;400000,0 FROM MEMORY TO AC, AC+1
15604 045716 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
15605 ER3 AC,12301 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 4
15606 045717 003 04 0 00 012301 00000,0
15607 045720 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
15608 045721 004 05 0 00 012302 ER4 AC+1,12302 ;FAIL IF CONTENTS(AC+1) NOT = MINUS 400000,0
15609 045722 321 10 0 00 045711 JUMPL SAC,Q12300 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 44
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVN - OVERFLOW AND CARRY FLAGS SEQ 0397
15610 SUBTTL DIAGNOSTIC SECTION - DMOVN - OVERFLOW AND CARRY FLAGS
15611
15612 ;CHECK ABILITY TO CLEAR OVFL AND CRY FLAGS BEFORE TESTING INTERACTION WITH DMOVN
15613
15614 045723 255 17 0 00 045724 Q12400: JFCL 17,.+1 ;CLEAR OVFL AND CRY FLAGS
15615 045724 265 04 0 00 045725 JSP AC,.+1 ;READ FLAGS
15616 045725 603 04 0 00 700000 TLNE AC,7B20 ;TEST OVFL AND CRY FLAGS
15617 045726 013 04 0 00 012401 ER13 AC,12401 ;FAIL IF OVFL OR CRY FLG SET
15618 045727 321 10 0 00 045723 JUMPL SAC,Q12400 ;LOOP ON ERROR SWITCH
15619
15620 DMVNF 1250,0,0,0,0,300000,310000,300000,310000^
15621 ;**KI10**
15622 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES NOT SET OVERFLOW
15623 ;OR CARRY FLAGS ON THE KI10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
15624 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
15625 ;IF ANY OF THESE FLAGS ARE SET, THE TEST FAILS.
15626
15627 ;**KL10**
15628 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
15629 ;OR CARRY FLAGS ON THE KL10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
15630 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
15631 ;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
15632
15633 045730 255 17 0 00 045731 Q12500: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS
15634 DMOVN AC+1,[XWD 0,0 ;*DMOVN TEST
15635 045731 121 05 0 00 070663 XWD 0,0]
15636 045732 265 04 0 00 045733 JSP AC,.+1 ;READ FLAGS
15637 045733 621 04 0 00 027777 Q12501: TLZ AC,027777 ;CLEAR EXTRA JUNK
15638 045734 603 04 0 00 010000 TLNE AC,USERF ;IN USER MODE ?
15639 045735 254 00 0 00 045747 JRST Q12504 ;YES
15640 045736 332 00 0 00 030041 SKIPE KLFLG ;KL10 ?
15641 045737 254 00 0 00 045744 JRST Q12503 ;YES
15642 ;KI10 EXEC MODE
15643 045740 312 04 0 00 070715 CAME AC,[300000,,Q12501]
15644 045741 013 04 0 00 012501 ER13 AC,12501 ;FAIL IF OVFL OR CRY0,1 FLG SET
15645 045742 321 10 0 00 045730 Q12502: JUMPL SAC,Q12500 ;LOOP ON ERROR SWITCH
15646 045743 254 00 0 00 045757 JRST Q12506
15647 ;KL10 EXEC MODE
15648 045744 312 04 0 00 070715 Q12503: CAME AC,[300000,,Q12501]
15649 045745 013 04 0 00 012501 ER13 AC,12501 ;FAIL IF FLAGS NOT SET
15650 045746 254 00 0 00 045742 JRST Q12502
15651 ;KL10/KI10 USER MODE
15652 045747 332 00 0 00 030041 Q12504: SKIPE KLFLG ;KL10 ?
15653 045750 254 00 0 00 045754 JRST Q12505 ;YES
15654 ;KI10 USER MODE
15655 045751 312 04 0 00 070716 CAME AC,[310000,,Q12501]
15656 045752 013 04 0 00 012501 ER13 AC,12501 ;FAIL IF ANY FLAGS SET
15657 045753 254 00 0 00 045742 JRST Q12502
15658 ;KL10 USER MODE
15659 045754 312 04 0 00 070716 Q12505: CAME AC,[310000,,Q12501]
15660 045755 013 04 0 00 012501 ER13 AC,12501 ;FAIL IF FLAGS NOT SET
15661 045756 254 00 0 00 045742 JRST Q12502
15662
15663 045757 254 00 0 00 045760 Q12506: JRST .+1^
15664 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 44-1
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVN - OVERFLOW AND CARRY FLAGS SEQ 0398
15665 DMVNF 1260,400000,0,0,0,500000,510000,100000,510000^
15666 ;**KI10**
15667 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES NOT SET OVERFLOW
15668 ;OR CARRY FLAGS ON THE KI10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
15669 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
15670 ;IF ANY OF THESE FLAGS ARE SET, THE TEST FAILS.
15671
15672 ;**KL10**
15673 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
15674 ;OR CARRY FLAGS ON THE KL10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
15675 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
15676 ;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
15677
15678 045760 255 17 0 00 045761 Q12600: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS
15679 DMOVN AC+1,[XWD 400000,0 ;*DMOVN TEST
15680 045761 121 05 0 00 070711 XWD 0,0]
15681 045762 265 04 0 00 045763 JSP AC,.+1 ;READ FLAGS
15682 045763 621 04 0 00 027777 Q12601: TLZ AC,027777 ;CLEAR EXTRA JUNK
15683 045764 603 04 0 00 010000 TLNE AC,USERF ;IN USER MODE ?
15684 045765 254 00 0 00 045777 JRST Q12604 ;YES
15685 045766 332 00 0 00 030041 SKIPE KLFLG ;KL10 ?
15686 045767 254 00 0 00 045774 JRST Q12603 ;YES
15687 ;KI10 EXEC MODE
15688 045770 312 04 0 00 070717 CAME AC,[500000,,Q12601]
15689 045771 013 04 0 00 012601 ER13 AC,12601 ;FAIL IF OVFL OR CRY0,1 FLG SET
15690 045772 321 10 0 00 045760 Q12602: JUMPL SAC,Q12600 ;LOOP ON ERROR SWITCH
15691 045773 254 00 0 00 046007 JRST Q12606
15692 ;KL10 EXEC MODE
15693 045774 312 04 0 00 070720 Q12603: CAME AC,[100000,,Q12601]
15694 045775 013 04 0 00 012601 ER13 AC,12601 ;FAIL IF FLAGS NOT SET
15695 045776 254 00 0 00 045772 JRST Q12602
15696 ;KL10/KI10 USER MODE
15697 045777 332 00 0 00 030041 Q12604: SKIPE KLFLG ;KL10 ?
15698 046000 254 00 0 00 046004 JRST Q12605 ;YES
15699 ;KI10 USER MODE
15700 046001 312 04 0 00 070721 CAME AC,[510000,,Q12601]
15701 046002 013 04 0 00 012601 ER13 AC,12601 ;FAIL IF ANY FLAGS SET
15702 046003 254 00 0 00 045772 JRST Q12602
15703 ;KL10 USER MODE
15704 046004 312 04 0 00 070721 Q12605: CAME AC,[510000,,Q12601]
15705 046005 013 04 0 00 012601 ER13 AC,12601 ;FAIL IF FLAGS NOT SET
15706 046006 254 00 0 00 045772 JRST Q12602
15707
15708 046007 254 00 0 00 046010 Q12606: JRST .+1^
15709 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 44-2
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVN - OVERFLOW AND CARRY FLAGS SEQ 0399
15710 DMVNF 1270,0,0,400000,0,300000,310000,300000,310000^
15711 ;**KI10**
15712 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES NOT SET OVERFLOW
15713 ;OR CARRY FLAGS ON THE KI10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
15714 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
15715 ;IF ANY OF THESE FLAGS ARE SET, THE TEST FAILS.
15716
15717 ;**KL10**
15718 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
15719 ;OR CARRY FLAGS ON THE KL10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
15720 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
15721 ;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
15722
15723 046010 255 17 0 00 046011 Q12700: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS
15724 DMOVN AC+1,[XWD 0,0 ;*DMOVN TEST
15725 046011 121 05 0 00 070712 XWD 400000,0]
15726 046012 265 04 0 00 046013 JSP AC,.+1 ;READ FLAGS
15727 046013 621 04 0 00 027777 Q12701: TLZ AC,027777 ;CLEAR EXTRA JUNK
15728 046014 603 04 0 00 010000 TLNE AC,USERF ;IN USER MODE ?
15729 046015 254 00 0 00 046027 JRST Q12704 ;YES
15730 046016 332 00 0 00 030041 SKIPE KLFLG ;KL10 ?
15731 046017 254 00 0 00 046024 JRST Q12703 ;YES
15732 ;KI10 EXEC MODE
15733 046020 312 04 0 00 070722 CAME AC,[300000,,Q12701]
15734 046021 013 04 0 00 012701 ER13 AC,12701 ;FAIL IF OVFL OR CRY0,1 FLG SET
15735 046022 321 10 0 00 046010 Q12702: JUMPL SAC,Q12700 ;LOOP ON ERROR SWITCH
15736 046023 254 00 0 00 046037 JRST Q12706
15737 ;KL10 EXEC MODE
15738 046024 312 04 0 00 070722 Q12703: CAME AC,[300000,,Q12701]
15739 046025 013 04 0 00 012701 ER13 AC,12701 ;FAIL IF FLAGS NOT SET
15740 046026 254 00 0 00 046022 JRST Q12702
15741 ;KL10/KI10 USER MODE
15742 046027 332 00 0 00 030041 Q12704: SKIPE KLFLG ;KL10 ?
15743 046030 254 00 0 00 046034 JRST Q12705 ;YES
15744 ;KI10 USER MODE
15745 046031 312 04 0 00 070723 CAME AC,[310000,,Q12701]
15746 046032 013 04 0 00 012701 ER13 AC,12701 ;FAIL IF ANY FLAGS SET
15747 046033 254 00 0 00 046022 JRST Q12702
15748 ;KL10 USER MODE
15749 046034 312 04 0 00 070723 Q12705: CAME AC,[310000,,Q12701]
15750 046035 013 04 0 00 012701 ER13 AC,12701 ;FAIL IF FLAGS NOT SET
15751 046036 254 00 0 00 046022 JRST Q12702
15752
15753 046037 254 00 0 00 046040 Q12706: JRST .+1^
15754 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 44-3
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVN - OVERFLOW AND CARRY FLAGS SEQ 0400
15755 DMVNF 1300,400000,0,400000,0,500000,510000,100000,510000^
15756 ;**KI10**
15757 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES NOT SET OVERFLOW
15758 ;OR CARRY FLAGS ON THE KI10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
15759 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
15760 ;IF ANY OF THESE FLAGS ARE SET, THE TEST FAILS.
15761
15762 ;**KL10**
15763 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
15764 ;OR CARRY FLAGS ON THE KL10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
15765 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
15766 ;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
15767
15768 046040 255 17 0 00 046041 Q13000: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS
15769 DMOVN AC+1,[XWD 400000,0 ;*DMOVN TEST
15770 046041 121 05 0 00 070713 XWD 400000,0]
15771 046042 265 04 0 00 046043 JSP AC,.+1 ;READ FLAGS
15772 046043 621 04 0 00 027777 Q13001: TLZ AC,027777 ;CLEAR EXTRA JUNK
15773 046044 603 04 0 00 010000 TLNE AC,USERF ;IN USER MODE ?
15774 046045 254 00 0 00 046057 JRST Q13004 ;YES
15775 046046 332 00 0 00 030041 SKIPE KLFLG ;KL10 ?
15776 046047 254 00 0 00 046054 JRST Q13003 ;YES
15777 ;KI10 EXEC MODE
15778 046050 312 04 0 00 070724 CAME AC,[500000,,Q13001]
15779 046051 013 04 0 00 013001 ER13 AC,13001 ;FAIL IF OVFL OR CRY0,1 FLG SET
15780 046052 321 10 0 00 046040 Q13002: JUMPL SAC,Q13000 ;LOOP ON ERROR SWITCH
15781 046053 254 00 0 00 046067 JRST Q13006
15782 ;KL10 EXEC MODE
15783 046054 312 04 0 00 070725 Q13003: CAME AC,[100000,,Q13001]
15784 046055 013 04 0 00 013001 ER13 AC,13001 ;FAIL IF FLAGS NOT SET
15785 046056 254 00 0 00 046052 JRST Q13002
15786 ;KL10/KI10 USER MODE
15787 046057 332 00 0 00 030041 Q13004: SKIPE KLFLG ;KL10 ?
15788 046060 254 00 0 00 046064 JRST Q13005 ;YES
15789 ;KI10 USER MODE
15790 046061 312 04 0 00 070726 CAME AC,[510000,,Q13001]
15791 046062 013 04 0 00 013001 ER13 AC,13001 ;FAIL IF ANY FLAGS SET
15792 046063 254 00 0 00 046052 JRST Q13002
15793 ;KL10 USER MODE
15794 046064 312 04 0 00 070726 Q13005: CAME AC,[510000,,Q13001]
15795 046065 013 04 0 00 013001 ER13 AC,13001 ;FAIL IF FLAGS NOT SET
15796 046066 254 00 0 00 046052 JRST Q13002
15797
15798 046067 254 00 0 00 046070 Q13006: JRST .+1^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 45
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVEM - GENERAL DATA PATTERNS SEQ 0401
15799 SUBTTL DIAGNOSTIC SECTION - DMOVEM - GENERAL DATA PATTERNS
15800
15801 ;CHECK THAT 'DMOVEM AC,E' DOES NOT CLOBBER C(AC) OR C(AC+1)
15802
15803 Q13050: DMOVE AC,[631463,,146314 ;INITIALIZE C(AC), C(AC+1)
15804 046070 120 04 0 00 070656 424242,,131313]
15805 046071 124 04 0 00 000002 DMOVEM AC,AC-2 ;*MOVE DOUBLE WORD FROM AC, AC+1 TO MEMORY
15806 046072 312 04 0 00 070656 CAME AC,[631463,,146314] ;WAS C(AC) MODIFIED?
15807 046073 003 04 0 00 013051 ER3 AC,13051 ;C(AC) WAS CLOBBERED
15808 046074 312 05 0 00 070657 CAME AC+1,[424242,,131313] ;WAS C(AC+1) MODIFIED?
15809 046075 004 05 0 00 013051 ER4 AC+1,13051 ;C(AC+1) WAS CLOBBERED
15810 046076 321 10 0 00 046070 JUMPL SAC,Q13050 ;LOOP ON ERROR SWITCH
15811 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 45-1
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVEM - GENERAL DATA PATTERNS SEQ 0402
15812 DMVM 1310,0,0,0,0^
15813 ;THIS MACRO TESTS THE DMOVEM INSTRUCTION
15814 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
15815 ;TEST WORDS AND AC,AC+1 ARE LOADED WITH THE TEST WORDS.
15816 ;THEN, THE DATA SPECIFIED BY [XWD 0,0] AND [XWD 0,0] IS MOVED
15817 ;FROM AC, AC+1 TO MEMORY (TSTWD, TSTWD+1) VIA
15818 ;THE DMOVEM INSTRUCTION. 0(TSTWD) AND 0(TSTWD+1) ARE THEN
15819 ;COMPARED WITH THE TEST WORDS [XWD 0,0] AND [XWD 0,0], RESPECTIVELY.
15820 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
15821
15822 Q13100: DMOVE AC,[XWD 707070,707070
15823 046077 120 04 0 00 070661 XWD 070707,070707] ;INITIALIZE TEST WORDS
15824 046100 202 04 0 00 070346 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST
15825 046101 202 05 0 00 070347 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM
15826 DMOVE AC,[XWD 0,0
15827 046102 120 04 0 00 070663 XWD 0,0] ;INITIALIZE AC,AC+1
15828 046103 124 04 0 00 070346 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1
15829 ;TO MEMORY (TSTWD, TSTWD+1)
15830 046104 120 04 0 00 070346 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON
15831 046105 312 04 0 00 070660 CAME AC,[XWD 0,0] ;WAS TSTWD LOADED CORRECTLY?
15832 046106 005 04 0 00 013101 ER5 AC,13101 ;FAIL IF CONTENTS(TSTWD) NOT = 0,0
15833 046107 312 05 0 00 070660 CAME AC+1,[XWD 0,0] ;WAS TSTWD+1 LOADED CORRECTLY?
15834 046110 006 05 0 00 013102 ER6 AC+1,13102 ;FAIL IF CONTENTS(TSTWD+1) NOT = 0,0
15835 046111 321 10 0 00 046077 JUMPL SAC,Q13100 ;LOOP ON ERROR SWITCH^
15836
15837 DMVM 1320,-1,-1,-1,-1^
15838 ;THIS MACRO TESTS THE DMOVEM INSTRUCTION
15839 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
15840 ;TEST WORDS AND AC,AC+1 ARE LOADED WITH THE TEST WORDS.
15841 ;THEN, THE DATA SPECIFIED BY [XWD -1,-1] AND [XWD -1,-1] IS MOVED
15842 ;FROM AC, AC+1 TO MEMORY (TSTWD, TSTWD+1) VIA
15843 ;THE DMOVEM INSTRUCTION. -1(TSTWD) AND -1(TSTWD+1) ARE THEN
15844 ;COMPARED WITH THE TEST WORDS [XWD -1,-1] AND [XWD -1,-1], RESPECTIVELY.
15845 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
15846
15847 Q13200: DMOVE AC,[XWD 707070,707070
15848 046112 120 04 0 00 070661 XWD 070707,070707] ;INITIALIZE TEST WORDS
15849 046113 202 04 0 00 070346 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST
15850 046114 202 05 0 00 070347 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM
15851 DMOVE AC,[XWD -1,-1
15852 046115 120 04 0 00 070665 XWD -1,-1] ;INITIALIZE AC,AC+1
15853 046116 124 04 0 00 070346 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1
15854 ;TO MEMORY (TSTWD, TSTWD+1)
15855 046117 120 04 0 00 070346 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON
15856 046120 312 04 0 00 070665 CAME AC,[XWD -1,-1] ;WAS TSTWD LOADED CORRECTLY?
15857 046121 005 04 0 00 013201 ER5 AC,13201 ;FAIL IF CONTENTS(TSTWD) NOT = -1,-1
15858 046122 312 05 0 00 070665 CAME AC+1,[XWD -1,-1] ;WAS TSTWD+1 LOADED CORRECTLY?
15859 046123 006 05 0 00 013202 ER6 AC+1,13202 ;FAIL IF CONTENTS(TSTWD+1) NOT = -1,-1
15860 046124 321 10 0 00 046112 JUMPL SAC,Q13200 ;LOOP ON ERROR SWITCH^
15861 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 45-2
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVEM - GENERAL DATA PATTERNS SEQ 0403
15862 DMVM 1330,0,0,-1,-1^
15863 ;THIS MACRO TESTS THE DMOVEM INSTRUCTION
15864 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
15865 ;TEST WORDS AND AC,AC+1 ARE LOADED WITH THE TEST WORDS.
15866 ;THEN, THE DATA SPECIFIED BY [XWD 0,0] AND [XWD -1,-1] IS MOVED
15867 ;FROM AC, AC+1 TO MEMORY (TSTWD, TSTWD+1) VIA
15868 ;THE DMOVEM INSTRUCTION. -1(TSTWD) AND -1(TSTWD+1) ARE THEN
15869 ;COMPARED WITH THE TEST WORDS [XWD 0,0] AND [XWD -1,-1], RESPECTIVELY.
15870 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
15871
15872 Q13300: DMOVE AC,[XWD 707070,707070
15873 046125 120 04 0 00 070661 XWD 070707,070707] ;INITIALIZE TEST WORDS
15874 046126 202 04 0 00 070346 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST
15875 046127 202 05 0 00 070347 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM
15876 DMOVE AC,[XWD 0,0
15877 046130 120 04 0 00 070664 XWD -1,-1] ;INITIALIZE AC,AC+1
15878 046131 124 04 0 00 070346 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1
15879 ;TO MEMORY (TSTWD, TSTWD+1)
15880 046132 120 04 0 00 070346 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON
15881 046133 312 04 0 00 070660 CAME AC,[XWD 0,0] ;WAS TSTWD LOADED CORRECTLY?
15882 046134 005 04 0 00 013301 ER5 AC,13301 ;FAIL IF CONTENTS(TSTWD) NOT = 0,0
15883 046135 312 05 0 00 070665 CAME AC+1,[XWD -1,-1] ;WAS TSTWD+1 LOADED CORRECTLY?
15884 046136 006 05 0 00 013302 ER6 AC+1,13302 ;FAIL IF CONTENTS(TSTWD+1) NOT = -1,-1
15885 046137 321 10 0 00 046125 JUMPL SAC,Q13300 ;LOOP ON ERROR SWITCH^
15886
15887 DMVM 1340,-1,-1,0,0^
15888 ;THIS MACRO TESTS THE DMOVEM INSTRUCTION
15889 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
15890 ;TEST WORDS AND AC,AC+1 ARE LOADED WITH THE TEST WORDS.
15891 ;THEN, THE DATA SPECIFIED BY [XWD -1,-1] AND [XWD 0,0] IS MOVED
15892 ;FROM AC, AC+1 TO MEMORY (TSTWD, TSTWD+1) VIA
15893 ;THE DMOVEM INSTRUCTION. 0(TSTWD) AND 0(TSTWD+1) ARE THEN
15894 ;COMPARED WITH THE TEST WORDS [XWD -1,-1] AND [XWD 0,0], RESPECTIVELY.
15895 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
15896
15897 Q13400: DMOVE AC,[XWD 707070,707070
15898 046140 120 04 0 00 070661 XWD 070707,070707] ;INITIALIZE TEST WORDS
15899 046141 202 04 0 00 070346 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST
15900 046142 202 05 0 00 070347 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM
15901 DMOVE AC,[XWD -1,-1
15902 046143 120 04 0 00 070666 XWD 0,0] ;INITIALIZE AC,AC+1
15903 046144 124 04 0 00 070346 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1
15904 ;TO MEMORY (TSTWD, TSTWD+1)
15905 046145 120 04 0 00 070346 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON
15906 046146 312 04 0 00 070665 CAME AC,[XWD -1,-1] ;WAS TSTWD LOADED CORRECTLY?
15907 046147 005 04 0 00 013401 ER5 AC,13401 ;FAIL IF CONTENTS(TSTWD) NOT = -1,-1
15908 046150 312 05 0 00 070660 CAME AC+1,[XWD 0,0] ;WAS TSTWD+1 LOADED CORRECTLY?
15909 046151 006 05 0 00 013402 ER6 AC+1,13402 ;FAIL IF CONTENTS(TSTWD+1) NOT = 0,0
15910 046152 321 10 0 00 046140 JUMPL SAC,Q13400 ;LOOP ON ERROR SWITCH^
15911 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 45-3
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVEM - GENERAL DATA PATTERNS SEQ 0404
15912 DMVM 1350,252525,252525,525252,525252^
15913 ;THIS MACRO TESTS THE DMOVEM INSTRUCTION
15914 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
15915 ;TEST WORDS AND AC,AC+1 ARE LOADED WITH THE TEST WORDS.
15916 ;THEN, THE DATA SPECIFIED BY [XWD 252525,252525] AND [XWD 525252,525252] IS MOVED
15917 ;FROM AC, AC+1 TO MEMORY (TSTWD, TSTWD+1) VIA
15918 ;THE DMOVEM INSTRUCTION. 525252(TSTWD) AND 525252(TSTWD+1) ARE THEN
15919 ;COMPARED WITH THE TEST WORDS [XWD 252525,252525] AND [XWD 525252,525252], RESPECTIVELY.
15920 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
15921
15922 Q13500: DMOVE AC,[XWD 707070,707070
15923 046153 120 04 0 00 070661 XWD 070707,070707] ;INITIALIZE TEST WORDS
15924 046154 202 04 0 00 070346 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST
15925 046155 202 05 0 00 070347 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM
15926 DMOVE AC,[XWD 252525,252525
15927 046156 120 04 0 00 070671 XWD 525252,525252] ;INITIALIZE AC,AC+1
15928 046157 124 04 0 00 070346 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1
15929 ;TO MEMORY (TSTWD, TSTWD+1)
15930 046160 120 04 0 00 070346 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON
15931 046161 312 04 0 00 070655 CAME AC,[XWD 252525,252525] ;WAS TSTWD LOADED CORRECTLY?
15932 ER5 AC,13501 ;FAIL IF CONTENTS(TSTWD) NOT = 252525,25252
15933 046162 005 04 0 00 013501 5
15934 046163 312 05 0 00 070670 CAME AC+1,[XWD 525252,525252] ;WAS TSTWD+1 LOADED CORRECTLY?
15935 046164 006 05 0 00 013502 ER6 AC+1,13502 ;FAIL IF CONTENTS(TSTWD+1) NOT = 525252,525252
15936 046165 321 10 0 00 046153 JUMPL SAC,Q13500 ;LOOP ON ERROR SWITCH^
15937
15938 DMVM 1360,525252,525252,252525,252525^
15939 ;THIS MACRO TESTS THE DMOVEM INSTRUCTION
15940 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
15941 ;TEST WORDS AND AC,AC+1 ARE LOADED WITH THE TEST WORDS.
15942 ;THEN, THE DATA SPECIFIED BY [XWD 525252,525252] AND [XWD 252525,252525] IS MOVED
15943 ;FROM AC, AC+1 TO MEMORY (TSTWD, TSTWD+1) VIA
15944 ;THE DMOVEM INSTRUCTION. 252525(TSTWD) AND 252525(TSTWD+1) ARE THEN
15945 ;COMPARED WITH THE TEST WORDS [XWD 525252,525252] AND [XWD 252525,252525], RESPECTIVELY.
15946 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
15947
15948 Q13600: DMOVE AC,[XWD 707070,707070
15949 046166 120 04 0 00 070661 XWD 070707,070707] ;INITIALIZE TEST WORDS
15950 046167 202 04 0 00 070346 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST
15951 046170 202 05 0 00 070347 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM
15952 DMOVE AC,[XWD 525252,525252
15953 046171 120 04 0 00 070670 XWD 252525,252525] ;INITIALIZE AC,AC+1
15954 046172 124 04 0 00 070346 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1
15955 ;TO MEMORY (TSTWD, TSTWD+1)
15956 046173 120 04 0 00 070346 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON
15957 046174 312 04 0 00 070670 CAME AC,[XWD 525252,525252] ;WAS TSTWD LOADED CORRECTLY?
15958 ER5 AC,13601 ;FAIL IF CONTENTS(TSTWD) NOT = 525252,52525
15959 046175 005 04 0 00 013601 2
15960 046176 312 05 0 00 070655 CAME AC+1,[XWD 252525,252525] ;WAS TSTWD+1 LOADED CORRECTLY?
15961 046177 006 05 0 00 013602 ER6 AC+1,13602 ;FAIL IF CONTENTS(TSTWD+1) NOT = 252525,252525
15962 046200 321 10 0 00 046166 JUMPL SAC,Q13600 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 46
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVEM - AC=17, AC+1=0 SEQ 0405
15963 SUBTTL DIAGNOSTIC SECTION - DMOVEM - AC=17, AC+1=0
15964
15965 ;CHECK DMOVEM FOR AC=17 AND AC+1=0
15966
15967 000017 AC=17
15968 000003 SAC=<AC+4>&17
15969 SAVEAC (1,1)^
15970 046201 201 03 0 00 046201 MOVEI SAC,.
15971 046202 202 03 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC
15972 046203 201 03 0 00 000003 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH
15973 046204 202 03 0 00 073775 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^
15974
15975 DMVM17 1370,-1,-1,-1,-1^
15976 ;THIS MACRO TESTS THE DMOVEM INSTRUCTION
15977 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
15978 ;TEST WORDS AND AC,AC+1 ARE LOADED WITH THE TEST WORDS.
15979 ;THEN, THE DATA SPECIFIED BY [XWD -1,-1] AND [XWD -1,-1] IS MOVED
15980 ;FROM AC, AC+1 TO MEMORY (TSTWD, TSTWD+1) VIA THE DMOVEM INSTRUCTION.
15981 ;-1(TSTWD) AND -1(TSTWD+1) ARE THEN COMPARED WITH THE TEST
15982 ;WORDS [XWD -1,-1] AND [XWD -1,-1], RESPECTIVELY.
15983 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
15984
15985 046205 202 17 0 00 074005 Q13700: MOVEM AC,%SV17 ;SAVE AC17 CAUSE IT HAS PDP
15986 DMOVE AC,[XWD 707070,707070
15987 046206 120 17 0 00 070661 XWD 070707,070707] ;INITIALIZE TEST WORDS
15988 046207 202 17 0 00 070346 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST
15989 046210 202 00 0 00 070347 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM
15990 DMOVE AC,[XWD -1,-1
15991 046211 120 17 0 00 070665 XWD -1,-1] ;INITIALIZE AC,AC+1
15992 046212 124 17 0 00 070346 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1
15993 ;TO MEMORY (TSTWD, TSTWD+1)
15994 046213 120 17 0 00 070346 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON
15995 046214 316 17 0 00 070665 CAMN AC,[XWD -1,-1] ;WAS TSTWD LOADED CORRECTLY?
15996 046215 254 00 0 00 046221 JRST .+4 ;HERE IF TESTS OK
15997 046216 202 17 0 00 000016 MOVEM AC,AC-1 ;SAVE BAD WORD
15998 046217 200 17 0 00 074005 MOVE AC,%SV17 ;RESTORE P
15999 046220 005 16 0 00 013701 ER5 AC-1,13701 ;FAIL IF CONTENTS(TSTWD) NOT = -1,-1
16000 046221 316 00 0 00 070665 CAMN AC+1,[XWD -1,-1] ;WAS TSTWD+1 LOADED CORRECTLY?
16001 046222 254 00 0 00 046226 JRST .+4 ;HERE IF TESTS OK
16002 046223 202 17 0 00 000016 MOVEM AC,AC-1 ;SAVE BAD WORD
16003 046224 200 17 0 00 074005 MOVE AC,%SV17 ;RESTORE P
16004 046225 006 00 0 00 013702 ER6 AC+1,13702 ;FAIL IF CONTENTS(TSTWD+1) NOT = -1,-1
16005 046226 200 17 0 00 074005 MOVE AC,%SV17 ;RESTORE AC UNCONDITIONALLY
16006 046227 321 03 0 00 046205 JUMPL SAC,Q13700 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 47
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVEM - AC RANGE ADDRESS SEQ 0406
16007 SUBTTL DIAGNOSTIC SECTION - DMOVEM - AC RANGE ADDRESS
16008
16009 ;CHECK DMOVEM WHERE 'E' IS WITHIN THE 'AC' RANGE
16010
16011 000004 AC=4
16012 000010 SAC=<AC+4>&17
16013 SAVEAC (1,1)^
16014 046230 201 10 0 00 046230 MOVEI SAC,.
16015 046231 202 10 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC
16016 046232 201 10 0 00 000010 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH
16017 046233 202 10 0 00 073775 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^
16018 000002 E=<AC-2>&17
16019
16020 014000 SN=14000
16021 000001 E=<E-1>&17
16022
16023 Q14000: REPEAT ^D5,<
16024 ;CHECK DMOVEM WHERE 'E' IS WITHIN THE AC RANGE
16025
16026 SN=SN+1
16027 E=<E+1>&17
16028 DMOVE E,[XWD 707070,707070
16029 XWD 070707,070707] ;INITIALIZE E,E+1
16030 DMOVE AC,[XWD -1,-1 ;INITIALIZE AC, AC+1
16031 XWD 0,-1]
16032 DMOVEM AC,E ;*MOVE DOUBLE WORD FROM AC, AC+1 TO MEMORY
16033 CAME E,[XWD -1,-1] ;WAS 'E' UPDATED CORRECTLY?
16034 ER5 E,SN ;FAIL IF C(E) IS NOT = TO -1,-1
16035 IFN <E-<AC+1>>,<
16036 CAME E+1,[XWD 0,-1] ;FAIL IF C(E+1) IS NOT = 0,-1>
16037 IFE <E-<AC+1>>,<
16038 GO Q14001 ;THIS CASE DIFFERENT KI/KL>
16039 ER6 E+1,SN ;'E+1' WAS NOT UPDATED CORRECTLY
16040 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
16041 >
16042
16043 ;CHECK DMOVEM WHERE 'E' IS WITHIN THE AC RANGE
16044
16045 014001 SN=SN+1
16046 000002 E=<E+1>&17
16047 DMOVE E,[XWD 707070,707070
16048 046234 120 02 0 00 070661 XWD 070707,070707] ;INITIALIZE E,E+1
16049 DMOVE AC,[XWD -1,-1 ;INITIALIZE AC, AC+1
16050 046235 120 04 0 00 070727 XWD 0,-1]
16051 046236 124 04 0 00 000002 DMOVEM AC,E ;*MOVE DOUBLE WORD FROM AC, AC+1 TO MEMORY
16052 046237 312 02 0 00 070665 CAME E,[XWD -1,-1] ;WAS 'E' UPDATED CORRECTLY?
16053 046240 005 02 0 00 014001 ER5 E,SN ;FAIL IF C(E) IS NOT = TO -1,-1
16054 IFN <E-<AC+1>>,<
16055 046241 312 03 0 00 070706 CAME E+1,[XWD 0,-1] ;FAIL IF C(E+1) IS NOT = 0,-1>
16056 IFE <E-<AC+1>>,<
16057 GO Q14001 ;THIS CASE DIFFERENT KI/KL>
16058 046242 006 03 0 00 014001 ER6 E+1,SN ;'E+1' WAS NOT UPDATED CORRECTLY
16059 046243 321 10 0 00 046234 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
16060
16061
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 47-1
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVEM - AC RANGE ADDRESS SEQ 0407
16062 ;CHECK DMOVEM WHERE 'E' IS WITHIN THE AC RANGE
16063
16064 014002 SN=SN+1
16065 000003 E=<E+1>&17
16066 DMOVE E,[XWD 707070,707070
16067 046244 120 03 0 00 070661 XWD 070707,070707] ;INITIALIZE E,E+1
16068 DMOVE AC,[XWD -1,-1 ;INITIALIZE AC, AC+1
16069 046245 120 04 0 00 070727 XWD 0,-1]
16070 046246 124 04 0 00 000003 DMOVEM AC,E ;*MOVE DOUBLE WORD FROM AC, AC+1 TO MEMORY
16071 046247 312 03 0 00 070665 CAME E,[XWD -1,-1] ;WAS 'E' UPDATED CORRECTLY?
16072 046250 005 03 0 00 014002 ER5 E,SN ;FAIL IF C(E) IS NOT = TO -1,-1
16073 IFN <E-<AC+1>>,<
16074 046251 312 04 0 00 070706 CAME E+1,[XWD 0,-1] ;FAIL IF C(E+1) IS NOT = 0,-1>
16075 IFE <E-<AC+1>>,<
16076 GO Q14001 ;THIS CASE DIFFERENT KI/KL>
16077 046252 006 04 0 00 014002 ER6 E+1,SN ;'E+1' WAS NOT UPDATED CORRECTLY
16078 046253 321 10 0 00 046244 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
16079
16080
16081 ;CHECK DMOVEM WHERE 'E' IS WITHIN THE AC RANGE
16082
16083 014003 SN=SN+1
16084 000004 E=<E+1>&17
16085 DMOVE E,[XWD 707070,707070
16086 046254 120 04 0 00 070661 XWD 070707,070707] ;INITIALIZE E,E+1
16087 DMOVE AC,[XWD -1,-1 ;INITIALIZE AC, AC+1
16088 046255 120 04 0 00 070727 XWD 0,-1]
16089 046256 124 04 0 00 000004 DMOVEM AC,E ;*MOVE DOUBLE WORD FROM AC, AC+1 TO MEMORY
16090 046257 312 04 0 00 070665 CAME E,[XWD -1,-1] ;WAS 'E' UPDATED CORRECTLY?
16091 046260 005 04 0 00 014003 ER5 E,SN ;FAIL IF C(E) IS NOT = TO -1,-1
16092 IFN <E-<AC+1>>,<
16093 046261 312 05 0 00 070706 CAME E+1,[XWD 0,-1] ;FAIL IF C(E+1) IS NOT = 0,-1>
16094 IFE <E-<AC+1>>,<
16095 GO Q14001 ;THIS CASE DIFFERENT KI/KL>
16096 046262 006 05 0 00 014003 ER6 E+1,SN ;'E+1' WAS NOT UPDATED CORRECTLY
16097 046263 321 10 0 00 046254 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
16098
16099
16100 ;CHECK DMOVEM WHERE 'E' IS WITHIN THE AC RANGE
16101
16102 014004 SN=SN+1
16103 000005 E=<E+1>&17
16104 DMOVE E,[XWD 707070,707070
16105 046264 120 05 0 00 070661 XWD 070707,070707] ;INITIALIZE E,E+1
16106 DMOVE AC,[XWD -1,-1 ;INITIALIZE AC, AC+1
16107 046265 120 04 0 00 070727 XWD 0,-1]
16108 046266 124 04 0 00 000005 DMOVEM AC,E ;*MOVE DOUBLE WORD FROM AC, AC+1 TO MEMORY
16109 046267 312 05 0 00 070665 CAME E,[XWD -1,-1] ;WAS 'E' UPDATED CORRECTLY?
16110 046270 005 05 0 00 014004 ER5 E,SN ;FAIL IF C(E) IS NOT = TO -1,-1
16111 IFN <E-<AC+1>>,<
16112 CAME E+1,[XWD 0,-1] ;FAIL IF C(E+1) IS NOT = 0,-1>
16113 IFE <E-<AC+1>>,<
16114 046271 260 17 0 00 046305 GO Q14001 ;THIS CASE DIFFERENT KI/KL>
16115 046272 006 06 0 00 014004 ER6 E+1,SN ;'E+1' WAS NOT UPDATED CORRECTLY
16116 046273 321 10 0 00 046264 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 47-2
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVEM - AC RANGE ADDRESS SEQ 0408
16117
16118
16119 ;CHECK DMOVEM WHERE 'E' IS WITHIN THE AC RANGE
16120
16121 014005 SN=SN+1
16122 000006 E=<E+1>&17
16123 DMOVE E,[XWD 707070,707070
16124 046274 120 06 0 00 070661 XWD 070707,070707] ;INITIALIZE E,E+1
16125 DMOVE AC,[XWD -1,-1 ;INITIALIZE AC, AC+1
16126 046275 120 04 0 00 070727 XWD 0,-1]
16127 046276 124 04 0 00 000006 DMOVEM AC,E ;*MOVE DOUBLE WORD FROM AC, AC+1 TO MEMORY
16128 046277 312 06 0 00 070665 CAME E,[XWD -1,-1] ;WAS 'E' UPDATED CORRECTLY?
16129 046300 005 06 0 00 014005 ER5 E,SN ;FAIL IF C(E) IS NOT = TO -1,-1
16130 IFN <E-<AC+1>>,<
16131 046301 312 07 0 00 070706 CAME E+1,[XWD 0,-1] ;FAIL IF C(E+1) IS NOT = 0,-1>
16132 IFE <E-<AC+1>>,<
16133 GO Q14001 ;THIS CASE DIFFERENT KI/KL>
16134 046302 006 07 0 00 014005 ER6 E+1,SN ;'E+1' WAS NOT UPDATED CORRECTLY
16135 046303 321 10 0 00 046274 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
16136
16137 046304 254 00 0 00 046315 JRST Q14021
16138
16139 046305 332 00 0 00 030041 Q14001: SKIPE KLFLG ;KL10 ?
16140 046306 254 00 0 00 046312 JRST Q14003 ;YES
16141
16142 046307 316 06 0 00 070665 Q14002: CAMN 6,[-1,,-1] ;KI10
16143 046310 350 00 0 17 000000 AOS (P) ;PASSED, SKIP RETURN OVER ERROR
16144 046311 263 17 0 00 000000 RTN
16145
16146 046312 316 06 0 00 070706 Q14003: CAMN 6,[0,,-1] ;KL10
16147 046313 350 00 0 17 000000 AOS (P) ;PASSED, SKIP RETURN OVER ERROR
16148 046314 263 17 0 00 000000 RTN
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 48
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVEM - BIS FLAG SEQ 0409
16149 SUBTTL DIAGNOSTIC SECTION - DMOVEM - BIS FLAG
16150
16151 046315 332 00 0 00 030041 Q14021: SKIPE KLFLG ;KL10 ?
16152 046316 254 00 0 00 046340 JRST Q14050 ;YES
16153
16154 ;**KI10 ONLY TEST**
16155 ;VERIFY THAT C(E) IS NOT MODIFIED BY "DMOVEM AC,E" IF 'BIS'
16156 ;FLAG IS SET; AND THAT THE SECOND PART OF "DMOVEM" CLEARS 'BIS'.
16157
16158 000004 AC=4
16159 000010 SAC=<AC+4>&17
16160 SAVEAC (1,1)^
16161 046317 201 10 0 00 046317 MOVEI SAC,.
16162 046320 202 10 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC
16163 046321 201 10 0 00 000010 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH
16164 046322 202 10 0 00 073775 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^
16165 000002 E=<AC-2>&17
16166
16167 Q14020: DMOVE AC,[631463,,146314
16168 046323 120 04 0 00 070656 424242,,131313] ;INITIALIZE AC,AC+1
16169 046324 477 02 0 00 000003 SETOB E,<E+1>&17 ;INITIALIZE E,E+1
16170 046325 254 02 1 00 046326 JRSTF @.+1 ;SET 'BIS' FLAG
16171 046326 020000 046327 XWD BIS,.+1
16172 DMOVEM AC,E ;*DMOVEM SHOULD MODIFY ONLY 'E+1' AND CLEAR BIS FLA
16173 046327 124 04 0 00 000002 G
16174 046330 312 02 0 00 070665 CAME E,[-1,,-1] ;WAS C(E) MODIFIED?
16175 046331 005 02 0 00 014021 ER5 E,14021 ;YES, C(E) WAS MODIFIED
16176 046332 312 03 0 00 000005 CAME E+1,<AC+1>&17 ;WAS C(E+1) MODIFIED?
16177 046333 006 03 0 00 014021 ER6 E+1,14021 ;NO, C(E+1) WAS NOT MODIFIED
16178 046334 265 06 0 00 046335 JSP AC+2,.+1 ;READ FLAGS
16179 046335 603 06 0 00 020000 TLNE AC+2,BIS ;IS 'BIS' FLAG CLEAR
16180 046336 013 06 0 00 014021 ER13 AC+2,14021 ;NO
16181 046337 321 10 0 00 046323 JUMPL SAC,Q14020 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 49
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS SEQ 0410
16182 SUBTTL DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS
16183
16184 ;CHECK THAT 'DMOVNM AC,E' DOES NOT CLOBBER C(AC) OR C(AC+1)
16185
16186 Q14050: DMOVE AC,[631463,,146314 ;INITIALIZE AC, AC+1
16187 046340 120 04 0 00 070656 424242,,131313]
16188 DMOVNM AC,AC-2 ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 TO MEM
16189 046341 125 04 0 00 000002 ORY
16190 046342 312 04 0 00 070656 CAME AC,[631463,,146314] ;WAS C(AC) MODIFIED?
16191 046343 003 04 0 00 014051 ER3 AC,14051 ;C(AC) WAS CLOBBERED
16192 046344 312 05 0 00 070657 CAME AC+1,[424242,,131313] ;WAS C(AC+1) MODIFIED?
16193 046345 004 05 0 00 014051 ER4 AC+1,14051 ;C(AC+1) WAS CLOBBERED
16194 046346 321 10 0 00 046340 JUMPL SAC,Q14050 ;LOOP ON ERROR
16195 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 49-1
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS SEQ 0411
16196 DMVNM 1410,0,0,0,0^
16197 ;THIS MACRO TESTS THE DMOVNM INSTRUCTION
16198 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
16199 ;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS.
16200 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
16201 ;[XWD 0,0] AND [XWD 0,0] IS MOVED FROM AC, AC+1 TO MEMORY
16202 ;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION.
16203 ;0(TSTWD) AND 0(TSTWD+1) ARE THEN COMPARED WITH THE
16204 ;NEGATIVE (TWOS COMPLEMENT) OF THE TEST
16205 ;WORDS [XWD 0,0] AND [XWD 0,0], RESPECTIVELY.
16206 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
16207
16208 Q14100: DMOVE AC,[XWD 707070,707070
16209 046347 120 04 0 00 070661 XWD 070707,070707]
16210 046350 124 04 0 00 070346 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS
16211 DMOVE AC,[XWD 0,0
16212 046351 120 04 0 00 070663 XWD 0,0] ;INITIALIZE AC,AC+1
16213 DMOVN AC+5,[XWD 0,0
16214 046352 121 11 0 00 070663 XWD 0,0] ;SET-UP TO CHECK RESULTS
16215 046353 125 04 0 00 070346 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
16216 ;TO MEMORY (TSTWD, TSTWD+1)
16217 046354 120 04 0 00 070346 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1
16218 046355 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS TSTWD LOADED CORRECTLY?
16219 ER5 AC,14101 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT O
16220 046356 005 04 0 00 014101 F 0,0
16221 046357 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS TSTWD+1 LOADED CORRECTLY?
16222 046360 006 05 0 00 014102 ER6 AC+1,14102 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS 0,0
16223 046361 321 10 0 00 046347 JUMPL SAC,Q14100 ;LOOP ON ERROR SWITCH^
16224 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 49-2
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS SEQ 0412
16225 DMVNM 1420,0,0,0,1^
16226 ;THIS MACRO TESTS THE DMOVNM INSTRUCTION
16227 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
16228 ;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS.
16229 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
16230 ;[XWD 0,0] AND [XWD 0,1] IS MOVED FROM AC, AC+1 TO MEMORY
16231 ;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION.
16232 ;0(TSTWD) AND 0(TSTWD+1) ARE THEN COMPARED WITH THE
16233 ;NEGATIVE (TWOS COMPLEMENT) OF THE TEST
16234 ;WORDS [XWD 0,0] AND [XWD 0,1], RESPECTIVELY.
16235 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
16236
16237 Q14200: DMOVE AC,[XWD 707070,707070
16238 046362 120 04 0 00 070661 XWD 070707,070707]
16239 046363 124 04 0 00 070346 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS
16240 DMOVE AC,[XWD 0,0
16241 046364 120 04 0 00 070674 XWD 0,1] ;INITIALIZE AC,AC+1
16242 DMOVN AC+5,[XWD 0,0
16243 046365 121 11 0 00 070674 XWD 0,1] ;SET-UP TO CHECK RESULTS
16244 046366 125 04 0 00 070346 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
16245 ;TO MEMORY (TSTWD, TSTWD+1)
16246 046367 120 04 0 00 070346 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1
16247 046370 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS TSTWD LOADED CORRECTLY?
16248 ER5 AC,14201 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT O
16249 046371 005 04 0 00 014201 F 0,0
16250 046372 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS TSTWD+1 LOADED CORRECTLY?
16251 046373 006 05 0 00 014202 ER6 AC+1,14202 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS 0,1
16252 046374 321 10 0 00 046362 JUMPL SAC,Q14200 ;LOOP ON ERROR SWITCH^
16253 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 49-3
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS SEQ 0413
16254 DMVNM 1430,-1,-1,0,1^
16255 ;THIS MACRO TESTS THE DMOVNM INSTRUCTION
16256 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
16257 ;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS.
16258 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
16259 ;[XWD -1,-1] AND [XWD 0,1] IS MOVED FROM AC, AC+1 TO MEMORY
16260 ;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION.
16261 ;0(TSTWD) AND 0(TSTWD+1) ARE THEN COMPARED WITH THE
16262 ;NEGATIVE (TWOS COMPLEMENT) OF THE TEST
16263 ;WORDS [XWD -1,-1] AND [XWD 0,1], RESPECTIVELY.
16264 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
16265
16266 Q14300: DMOVE AC,[XWD 707070,707070
16267 046375 120 04 0 00 070661 XWD 070707,070707]
16268 046376 124 04 0 00 070346 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS
16269 DMOVE AC,[XWD -1,-1
16270 046377 120 04 0 00 070676 XWD 0,1] ;INITIALIZE AC,AC+1
16271 DMOVN AC+5,[XWD -1,-1
16272 046400 121 11 0 00 070676 XWD 0,1] ;SET-UP TO CHECK RESULTS
16273 046401 125 04 0 00 070346 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
16274 ;TO MEMORY (TSTWD, TSTWD+1)
16275 046402 120 04 0 00 070346 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1
16276 046403 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS TSTWD LOADED CORRECTLY?
16277 ER5 AC,14301 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT O
16278 046404 005 04 0 00 014301 F -1,-1
16279 046405 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS TSTWD+1 LOADED CORRECTLY?
16280 046406 006 05 0 00 014302 ER6 AC+1,14302 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS 0,1
16281 046407 321 10 0 00 046375 JUMPL SAC,Q14300 ;LOOP ON ERROR SWITCH^
16282 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 49-4
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS SEQ 0414
16283 DMVNM 1440,0,1,0,0^
16284 ;THIS MACRO TESTS THE DMOVNM INSTRUCTION
16285 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
16286 ;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS.
16287 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
16288 ;[XWD 0,1] AND [XWD 0,0] IS MOVED FROM AC, AC+1 TO MEMORY
16289 ;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION.
16290 ;0(TSTWD) AND 0(TSTWD+1) ARE THEN COMPARED WITH THE
16291 ;NEGATIVE (TWOS COMPLEMENT) OF THE TEST
16292 ;WORDS [XWD 0,1] AND [XWD 0,0], RESPECTIVELY.
16293 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
16294
16295 Q14400: DMOVE AC,[XWD 707070,707070
16296 046410 120 04 0 00 070661 XWD 070707,070707]
16297 046411 124 04 0 00 070346 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS
16298 DMOVE AC,[XWD 0,1
16299 046412 120 04 0 00 070673 XWD 0,0] ;INITIALIZE AC,AC+1
16300 DMOVN AC+5,[XWD 0,1
16301 046413 121 11 0 00 070673 XWD 0,0] ;SET-UP TO CHECK RESULTS
16302 046414 125 04 0 00 070346 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
16303 ;TO MEMORY (TSTWD, TSTWD+1)
16304 046415 120 04 0 00 070346 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1
16305 046416 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS TSTWD LOADED CORRECTLY?
16306 ER5 AC,14401 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT O
16307 046417 005 04 0 00 014401 F 0,1
16308 046420 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS TSTWD+1 LOADED CORRECTLY?
16309 046421 006 05 0 00 014402 ER6 AC+1,14402 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS 0,0
16310 046422 321 10 0 00 046410 JUMPL SAC,Q14400 ;LOOP ON ERROR SWITCH^
16311 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 49-5
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS SEQ 0415
16312 DMVNM 1450,525252,525252,252525,252526^
16313 ;THIS MACRO TESTS THE DMOVNM INSTRUCTION
16314 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
16315 ;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS.
16316 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
16317 ;[XWD 525252,525252] AND [XWD 252525,252526] IS MOVED FROM AC, AC+1 TO MEMORY
16318 ;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION.
16319 ;252525(TSTWD) AND 252525(TSTWD+1) ARE THEN COMPARED WITH THE
16320 ;NEGATIVE (TWOS COMPLEMENT) OF THE TEST
16321 ;WORDS [XWD 525252,525252] AND [XWD 252525,252526], RESPECTIVELY.
16322 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
16323
16324 Q14500: DMOVE AC,[XWD 707070,707070
16325 046423 120 04 0 00 070661 XWD 070707,070707]
16326 046424 124 04 0 00 070346 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS
16327 DMOVE AC,[XWD 525252,525252
16328 046425 120 04 0 00 070701 XWD 252525,252526] ;INITIALIZE AC,AC+1
16329 DMOVN AC+5,[XWD 525252,525252
16330 046426 121 11 0 00 070701 XWD 252525,252526] ;SET-UP TO CHECK RESULTS
16331 046427 125 04 0 00 070346 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
16332 ;TO MEMORY (TSTWD, TSTWD+1)
16333 046430 120 04 0 00 070346 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1
16334 046431 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS TSTWD LOADED CORRECTLY?
16335 ER5 AC,14501 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT O
16336 046432 005 04 0 00 014501 F 525252,525252
16337 046433 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS TSTWD+1 LOADED CORRECTLY?
16338 046434 006 05 0 00 014502 ER6 AC+1,14502 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS 252525,252526
16339 046435 321 10 0 00 046423 JUMPL SAC,Q14500 ;LOOP ON ERROR SWITCH^
16340 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 49-6
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS SEQ 0416
16341 DMVNM 1460,252525,252525,525252,525253^
16342 ;THIS MACRO TESTS THE DMOVNM INSTRUCTION
16343 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
16344 ;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS.
16345 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
16346 ;[XWD 252525,252525] AND [XWD 525252,525253] IS MOVED FROM AC, AC+1 TO MEMORY
16347 ;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION.
16348 ;525252(TSTWD) AND 525252(TSTWD+1) ARE THEN COMPARED WITH THE
16349 ;NEGATIVE (TWOS COMPLEMENT) OF THE TEST
16350 ;WORDS [XWD 252525,252525] AND [XWD 525252,525253], RESPECTIVELY.
16351 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
16352
16353 Q14600: DMOVE AC,[XWD 707070,707070
16354 046436 120 04 0 00 070661 XWD 070707,070707]
16355 046437 124 04 0 00 070346 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS
16356 DMOVE AC,[XWD 252525,252525
16357 046440 120 04 0 00 070704 XWD 525252,525253] ;INITIALIZE AC,AC+1
16358 DMOVN AC+5,[XWD 252525,252525
16359 046441 121 11 0 00 070704 XWD 525252,525253] ;SET-UP TO CHECK RESULTS
16360 046442 125 04 0 00 070346 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
16361 ;TO MEMORY (TSTWD, TSTWD+1)
16362 046443 120 04 0 00 070346 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1
16363 046444 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS TSTWD LOADED CORRECTLY?
16364 ER5 AC,14601 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT O
16365 046445 005 04 0 00 014601 F 252525,252525
16366 046446 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS TSTWD+1 LOADED CORRECTLY?
16367 046447 006 05 0 00 014602 ER6 AC+1,14602 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS 525252,525253
16368 046450 321 10 0 00 046436 JUMPL SAC,Q14600 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 50
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVNM - AC=17, AC+1=0 SEQ 0417
16369 SUBTTL DIAGNOSTIC SECTION - DMOVNM - AC=17, AC+1=0
16370
16371 ;CHECK DMOVNM FOR AC=17 AND AC+1=0
16372
16373 000017 AC=17
16374 000003 SAC=<AC+4>&17
16375 SAVEAC (1,1)^
16376 046451 201 03 0 00 046451 MOVEI SAC,.
16377 046452 202 03 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC
16378 046453 201 03 0 00 000003 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH
16379 046454 202 03 0 00 073775 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^
16380
16381 DMVNM17 1470,0,0,0,1^
16382 ;THIS MACRO TESTS THE DMOVNM INSTRUCTION
16383 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
16384 ;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS.
16385 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
16386 ;[XWD 0,0] AND [XWD 0,1] IS MOVED FROM AC, AC+1 TO MEMORY
16387 ;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION.
16388 ;0(TSTWD) AND 0(TSTWD+1) ARE THEN COMPARED WITH THE
16389 ;NEGATIVE (TWOS COMPLEMENT) OF THE TEST
16390 ;WORDS [XWD 0,0] AND [XWD 0,1], RESPECTIVELY.
16391 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
16392
16393 Q14700: DMOVE AC,[XWD 707070,707070
16394 046455 120 17 0 00 070661 XWD 070707,070707]
16395 046456 124 17 0 00 070346 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS
16396 DMOVE AC,[XWD 0,0
16397 046457 120 17 0 00 070674 XWD 0,1] ;INITIALIZE AC,AC+1
16398 DMOVN AC+5,[XWD 0,0
16399 046460 121 04 0 00 070674 XWD 0,1] ;SET-UP TO CHECK RESULTS
16400 046461 125 17 0 00 070346 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
16401 ;TO MEMORY (TSTWD, TSTWD+1)
16402
16403 046462 120 17 0 00 070346 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1
16404 046463 316 17 0 00 000004 CAMN AC,<AC+5>&17 ;WAS TSTWD LOADED CORRECTLY?
16405 046464 254 00 0 00 046470 JRST .+4
16406 046465 202 17 0 00 000016 MOVEM AC,AC-1 ;SAVE BAD WORD
16407 046466 200 17 0 00 074005 MOVE AC,%SV17 ;RESTORE P
16408 046467 005 16 0 00 014701 ER5 AC-1,14701 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF 0,0
16409 046470 316 00 0 00 000005 CAMN AC+1,<AC+6>&17 ;WAS TSTWD+1 LOADED CORRECTLY?
16410 046471 254 00 0 00 046475 JRST .+4 ;HERE IF TESTS OK
16411 046472 202 17 0 00 000016 MOVEM AC,AC-1 ;SAVE BAD WORD
16412 046473 200 17 0 00 074005 MOVE AC,%SV17
16413 046474 006 00 0 00 014702 ER6 AC+1,14702 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS 0,1
16414 046475 200 17 0 00 074005 MOVE AC,%SV17
16415 046476 321 03 0 00 046455 JUMPL SAC,Q14700 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 51
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVNM - AC RANGE ADDRESS SEQ 0418
16416 SUBTTL DIAGNOSTIC SECTION - DMOVNM - AC RANGE ADDRESS
16417
16418 ;CHECK DMOVNM WHERE 'E' IS WITHIN THE 'AC' RANGE
16419
16420 000004 AC=4
16421 000010 SAC=<AC+4>&17
16422 SAVEAC (1,1)^
16423 046477 201 10 0 00 046477 MOVEI SAC,.
16424 046500 202 10 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC
16425 046501 201 10 0 00 000010 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH
16426 046502 202 10 0 00 073775 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^
16427 000002 E=AC-2
16428
16429 015000 SN=15000
16430 000001 E=<E-1>&17
16431
16432 Q15000: REPEAT ^D5,<
16433 ;CHECK DMOVNM WHERE 'E' IS WITHIN THE 'AC' RANGE
16434
16435 SN=SN+1
16436 E=<E+1>&17
16437 DMOVE E,[XWD 707070,707070
16438 XWD 070707,070707] ;INITIALIZE E,E+1
16439 DMOVE AC,[XWD 0,0
16440 XWD 0,-1] ;INITIALIZE AC,AC+1
16441 DMOVN AC+5,AC ;INITIALIZE TEST RESULTS
16442 IFE <E-<AC+1>>,<
16443 SKIPN KLFLG ;DON'T DO NEXT INST IF KL10
16444 MOVNM AC+5,<AC+6>&17>
16445 DMOVNM AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 TO MEM
16446 ORY
16447 CAME E,AC+5 ;WAS 'E' UPDATED CORRECTLY?
16448 ER5 E,SN ;FAIL IF C(E) IS NOT = TO COMPLEMENT C(AC)
16449 CAME E+1,AC+6 ;WAS 'E+1' UPDATED CORRECTLY?
16450 ER6 E+1,SN ;FAIL IF C(E+1) IS NOT = NEGATIVE C(AC+1)
16451 IFN <E-<AC+1>>,<
16452 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH>
16453 IFE <E-<AC+1>>,<
16454 JUMPL SAC,.-^D10 ;LOOP ON ERROR SWITCH>
16455 >
16456
16457 ;CHECK DMOVNM WHERE 'E' IS WITHIN THE 'AC' RANGE
16458
16459 015001 SN=SN+1
16460 000002 E=<E+1>&17
16461 DMOVE E,[XWD 707070,707070
16462 046503 120 02 0 00 070661 XWD 070707,070707] ;INITIALIZE E,E+1
16463 DMOVE AC,[XWD 0,0
16464 046504 120 04 0 00 070707 XWD 0,-1] ;INITIALIZE AC,AC+1
16465 046505 121 11 0 00 000004 DMOVN AC+5,AC ;INITIALIZE TEST RESULTS
16466 IFE <E-<AC+1>>,<
16467 SKIPN KLFLG ;DON'T DO NEXT INST IF KL10
16468 MOVNM AC+5,<AC+6>&17>
16469 DMOVNM AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 TO MEM
16470 046506 125 04 0 00 000002 ORY
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 51-1
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVNM - AC RANGE ADDRESS SEQ 0419
16471 046507 312 02 0 00 000011 CAME E,AC+5 ;WAS 'E' UPDATED CORRECTLY?
16472 046510 005 02 0 00 015001 ER5 E,SN ;FAIL IF C(E) IS NOT = TO COMPLEMENT C(AC)
16473 046511 312 03 0 00 000012 CAME E+1,AC+6 ;WAS 'E+1' UPDATED CORRECTLY?
16474 046512 006 03 0 00 015001 ER6 E+1,SN ;FAIL IF C(E+1) IS NOT = NEGATIVE C(AC+1)
16475 IFN <E-<AC+1>>,<
16476 046513 321 10 0 00 046503 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH>
16477 IFE <E-<AC+1>>,<
16478 JUMPL SAC,.-^D10 ;LOOP ON ERROR SWITCH>
16479
16480
16481 ;CHECK DMOVNM WHERE 'E' IS WITHIN THE 'AC' RANGE
16482
16483 015002 SN=SN+1
16484 000003 E=<E+1>&17
16485 DMOVE E,[XWD 707070,707070
16486 046514 120 03 0 00 070661 XWD 070707,070707] ;INITIALIZE E,E+1
16487 DMOVE AC,[XWD 0,0
16488 046515 120 04 0 00 070707 XWD 0,-1] ;INITIALIZE AC,AC+1
16489 046516 121 11 0 00 000004 DMOVN AC+5,AC ;INITIALIZE TEST RESULTS
16490 IFE <E-<AC+1>>,<
16491 SKIPN KLFLG ;DON'T DO NEXT INST IF KL10
16492 MOVNM AC+5,<AC+6>&17>
16493 DMOVNM AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 TO MEM
16494 046517 125 04 0 00 000003 ORY
16495 046520 312 03 0 00 000011 CAME E,AC+5 ;WAS 'E' UPDATED CORRECTLY?
16496 046521 005 03 0 00 015002 ER5 E,SN ;FAIL IF C(E) IS NOT = TO COMPLEMENT C(AC)
16497 046522 312 04 0 00 000012 CAME E+1,AC+6 ;WAS 'E+1' UPDATED CORRECTLY?
16498 046523 006 04 0 00 015002 ER6 E+1,SN ;FAIL IF C(E+1) IS NOT = NEGATIVE C(AC+1)
16499 IFN <E-<AC+1>>,<
16500 046524 321 10 0 00 046514 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH>
16501 IFE <E-<AC+1>>,<
16502 JUMPL SAC,.-^D10 ;LOOP ON ERROR SWITCH>
16503
16504
16505 ;CHECK DMOVNM WHERE 'E' IS WITHIN THE 'AC' RANGE
16506
16507 015003 SN=SN+1
16508 000004 E=<E+1>&17
16509 DMOVE E,[XWD 707070,707070
16510 046525 120 04 0 00 070661 XWD 070707,070707] ;INITIALIZE E,E+1
16511 DMOVE AC,[XWD 0,0
16512 046526 120 04 0 00 070707 XWD 0,-1] ;INITIALIZE AC,AC+1
16513 046527 121 11 0 00 000004 DMOVN AC+5,AC ;INITIALIZE TEST RESULTS
16514 IFE <E-<AC+1>>,<
16515 SKIPN KLFLG ;DON'T DO NEXT INST IF KL10
16516 MOVNM AC+5,<AC+6>&17>
16517 DMOVNM AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 TO MEM
16518 046530 125 04 0 00 000004 ORY
16519 046531 312 04 0 00 000011 CAME E,AC+5 ;WAS 'E' UPDATED CORRECTLY?
16520 046532 005 04 0 00 015003 ER5 E,SN ;FAIL IF C(E) IS NOT = TO COMPLEMENT C(AC)
16521 046533 312 05 0 00 000012 CAME E+1,AC+6 ;WAS 'E+1' UPDATED CORRECTLY?
16522 046534 006 05 0 00 015003 ER6 E+1,SN ;FAIL IF C(E+1) IS NOT = NEGATIVE C(AC+1)
16523 IFN <E-<AC+1>>,<
16524 046535 321 10 0 00 046525 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH>
16525 IFE <E-<AC+1>>,<
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 51-2
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVNM - AC RANGE ADDRESS SEQ 0420
16526 JUMPL SAC,.-^D10 ;LOOP ON ERROR SWITCH>
16527
16528
16529 ;CHECK DMOVNM WHERE 'E' IS WITHIN THE 'AC' RANGE
16530
16531 015004 SN=SN+1
16532 000005 E=<E+1>&17
16533 DMOVE E,[XWD 707070,707070
16534 046536 120 05 0 00 070661 XWD 070707,070707] ;INITIALIZE E,E+1
16535 DMOVE AC,[XWD 0,0
16536 046537 120 04 0 00 070707 XWD 0,-1] ;INITIALIZE AC,AC+1
16537 046540 121 11 0 00 000004 DMOVN AC+5,AC ;INITIALIZE TEST RESULTS
16538 IFE <E-<AC+1>>,<
16539 046541 336 00 0 00 030041 SKIPN KLFLG ;DON'T DO NEXT INST IF KL10
16540 046542 212 11 0 00 000012 MOVNM AC+5,<AC+6>&17>
16541 DMOVNM AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 TO MEM
16542 046543 125 04 0 00 000005 ORY
16543 046544 312 05 0 00 000011 CAME E,AC+5 ;WAS 'E' UPDATED CORRECTLY?
16544 046545 005 05 0 00 015004 ER5 E,SN ;FAIL IF C(E) IS NOT = TO COMPLEMENT C(AC)
16545 046546 312 06 0 00 000012 CAME E+1,AC+6 ;WAS 'E+1' UPDATED CORRECTLY?
16546 046547 006 06 0 00 015004 ER6 E+1,SN ;FAIL IF C(E+1) IS NOT = NEGATIVE C(AC+1)
16547 IFN <E-<AC+1>>,<
16548 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH>
16549 IFE <E-<AC+1>>,<
16550 046550 321 10 0 00 046536 JUMPL SAC,.-^D10 ;LOOP ON ERROR SWITCH>
16551
16552
16553 ;CHECK DMOVNM WHERE 'E' IS WITHIN THE 'AC' RANGE
16554
16555 015005 SN=SN+1
16556 000006 E=<E+1>&17
16557 DMOVE E,[XWD 707070,707070
16558 046551 120 06 0 00 070661 XWD 070707,070707] ;INITIALIZE E,E+1
16559 DMOVE AC,[XWD 0,0
16560 046552 120 04 0 00 070707 XWD 0,-1] ;INITIALIZE AC,AC+1
16561 046553 121 11 0 00 000004 DMOVN AC+5,AC ;INITIALIZE TEST RESULTS
16562 IFE <E-<AC+1>>,<
16563 SKIPN KLFLG ;DON'T DO NEXT INST IF KL10
16564 MOVNM AC+5,<AC+6>&17>
16565 DMOVNM AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 TO MEM
16566 046554 125 04 0 00 000006 ORY
16567 046555 312 06 0 00 000011 CAME E,AC+5 ;WAS 'E' UPDATED CORRECTLY?
16568 046556 005 06 0 00 015005 ER5 E,SN ;FAIL IF C(E) IS NOT = TO COMPLEMENT C(AC)
16569 046557 312 07 0 00 000012 CAME E+1,AC+6 ;WAS 'E+1' UPDATED CORRECTLY?
16570 046560 006 07 0 00 015005 ER6 E+1,SN ;FAIL IF C(E+1) IS NOT = NEGATIVE C(AC+1)
16571 IFN <E-<AC+1>>,<
16572 046561 321 10 0 00 046551 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH>
16573 IFE <E-<AC+1>>,<
16574 JUMPL SAC,.-^D10 ;LOOP ON ERROR SWITCH>
16575
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 52
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS SEQ 0421
16576 SUBTTL DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS
16577
16578 DMVNM 1510,400000,0,0,0^
16579 ;THIS MACRO TESTS THE DMOVNM INSTRUCTION
16580 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
16581 ;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS.
16582 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
16583 ;[XWD 400000,0] AND [XWD 0,0] IS MOVED FROM AC, AC+1 TO MEMORY
16584 ;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION.
16585 ;0(TSTWD) AND 0(TSTWD+1) ARE THEN COMPARED WITH THE
16586 ;NEGATIVE (TWOS COMPLEMENT) OF THE TEST
16587 ;WORDS [XWD 400000,0] AND [XWD 0,0], RESPECTIVELY.
16588 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
16589
16590 Q15100: DMOVE AC,[XWD 707070,707070
16591 046562 120 04 0 00 070661 XWD 070707,070707]
16592 046563 124 04 0 00 070346 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS
16593 DMOVE AC,[XWD 400000,0
16594 046564 120 04 0 00 070711 XWD 0,0] ;INITIALIZE AC,AC+1
16595 DMOVN AC+5,[XWD 400000,0
16596 046565 121 11 0 00 070711 XWD 0,0] ;SET-UP TO CHECK RESULTS
16597 046566 125 04 0 00 070346 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
16598 ;TO MEMORY (TSTWD, TSTWD+1)
16599 046567 120 04 0 00 070346 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1
16600 046570 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS TSTWD LOADED CORRECTLY?
16601 ER5 AC,15101 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT O
16602 046571 005 04 0 00 015101 F 400000,0
16603 046572 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS TSTWD+1 LOADED CORRECTLY?
16604 046573 006 05 0 00 015102 ER6 AC+1,15102 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS 0,0
16605 046574 321 10 0 00 046562 JUMPL SAC,Q15100 ;LOOP ON ERROR SWITCH^
16606 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 52-1
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS SEQ 0422
16607 DMVNM 1520,0,0,400000,0^
16608 ;THIS MACRO TESTS THE DMOVNM INSTRUCTION
16609 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
16610 ;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS.
16611 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
16612 ;[XWD 0,0] AND [XWD 400000,0] IS MOVED FROM AC, AC+1 TO MEMORY
16613 ;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION.
16614 ;400000(TSTWD) AND 400000(TSTWD+1) ARE THEN COMPARED WITH THE
16615 ;NEGATIVE (TWOS COMPLEMENT) OF THE TEST
16616 ;WORDS [XWD 0,0] AND [XWD 400000,0], RESPECTIVELY.
16617 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
16618
16619 Q15200: DMOVE AC,[XWD 707070,707070
16620 046575 120 04 0 00 070661 XWD 070707,070707]
16621 046576 124 04 0 00 070346 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS
16622 DMOVE AC,[XWD 0,0
16623 046577 120 04 0 00 070712 XWD 400000,0] ;INITIALIZE AC,AC+1
16624 DMOVN AC+5,[XWD 0,0
16625 046600 121 11 0 00 070712 XWD 400000,0] ;SET-UP TO CHECK RESULTS
16626 046601 125 04 0 00 070346 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
16627 ;TO MEMORY (TSTWD, TSTWD+1)
16628 046602 120 04 0 00 070346 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1
16629 046603 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS TSTWD LOADED CORRECTLY?
16630 ER5 AC,15201 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT O
16631 046604 005 04 0 00 015201 F 0,0
16632 046605 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS TSTWD+1 LOADED CORRECTLY?
16633 046606 006 05 0 00 015202 ER6 AC+1,15202 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS 400000,0
16634 046607 321 10 0 00 046575 JUMPL SAC,Q15200 ;LOOP ON ERROR SWITCH^
16635 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 52-2
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS SEQ 0423
16636 DMVNM 1530,400000,0,400000,0^
16637 ;THIS MACRO TESTS THE DMOVNM INSTRUCTION
16638 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
16639 ;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS.
16640 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
16641 ;[XWD 400000,0] AND [XWD 400000,0] IS MOVED FROM AC, AC+1 TO MEMORY
16642 ;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION.
16643 ;400000(TSTWD) AND 400000(TSTWD+1) ARE THEN COMPARED WITH THE
16644 ;NEGATIVE (TWOS COMPLEMENT) OF THE TEST
16645 ;WORDS [XWD 400000,0] AND [XWD 400000,0], RESPECTIVELY.
16646 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
16647
16648 Q15300: DMOVE AC,[XWD 707070,707070
16649 046610 120 04 0 00 070661 XWD 070707,070707]
16650 046611 124 04 0 00 070346 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS
16651 DMOVE AC,[XWD 400000,0
16652 046612 120 04 0 00 070713 XWD 400000,0] ;INITIALIZE AC,AC+1
16653 DMOVN AC+5,[XWD 400000,0
16654 046613 121 11 0 00 070713 XWD 400000,0] ;SET-UP TO CHECK RESULTS
16655 046614 125 04 0 00 070346 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
16656 ;TO MEMORY (TSTWD, TSTWD+1)
16657 046615 120 04 0 00 070346 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1
16658 046616 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS TSTWD LOADED CORRECTLY?
16659 ER5 AC,15301 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT O
16660 046617 005 04 0 00 015301 F 400000,0
16661 046620 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS TSTWD+1 LOADED CORRECTLY?
16662 046621 006 05 0 00 015302 ER6 AC+1,15302 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS 400000,0
16663 046622 321 10 0 00 046610 JUMPL SAC,Q15300 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 53
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVNM - OVERFLOW AND CARRY FLAGS SEQ 0424
16664 SUBTTL DIAGNOSTIC SECTION - DMOVNM - OVERFLOW AND CARRY FLAGS
16665
16666 DMVNMF 1540,0,0,0,0,300000,310000,300000,310000^
16667 ;**KI10**
16668 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES NOT SET OVERFLOW
16669 ;OR CARRY FLAGS ON THE KI10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
16670 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
16671 ;IF ANY OF THESE FLAGS ARE SET, THE TEST FAILS.
16672
16673 ;**KL10**
16674 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
16675 ;OR CARRY FLAGS ON THE KL10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
16676 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
16677 ;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
16678
16679 046623 255 17 0 00 046624 Q15400: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS
16680 DMOVE AC,[XWD 0,0
16681 046624 120 04 0 00 070663 XWD 0,0] ;SETUP INITIAL
16682 046625 125 04 0 00 070346 DMOVNM AC,TSTWD ;*DMOVNM TEST
16683 046626 265 04 0 00 046627 JSP AC,.+1 ;READ FLAGS
16684 046627 621 04 0 00 027777 Q15401: TLZ AC,027777 ;CLEAR EXTRA JUNK
16685 046630 603 04 0 00 010000 TLNE AC,USERF ;IN USER MODE ?
16686 046631 254 00 0 00 046643 JRST Q15404 ;YES
16687 046632 332 00 0 00 030041 SKIPE KLFLG ;KL10 ?
16688 046633 254 00 0 00 046640 JRST Q15403 ;YES
16689 ;KI10 EXEC MODE
16690 046634 312 04 0 00 070731 CAME AC,[300000,,Q15401]
16691 046635 013 04 0 00 015401 ER13 AC,15401 ;FAIL IF OVFL OR CRY0,1 FLG SET
16692 046636 321 10 0 00 046623 Q15402: JUMPL SAC,Q15400 ;LOOP ON ERROR SWITCH
16693 046637 254 00 0 00 046653 JRST Q15406
16694 ;KL10 EXEC MODE
16695 046640 312 04 0 00 070731 Q15403: CAME AC,[300000,,Q15401]
16696 046641 013 04 0 00 015401 ER13 AC,15401 ;FAIL IF FLAGS NOT SET
16697 046642 254 00 0 00 046636 JRST Q15402
16698 ;KL10/KI10 USER MODE
16699 046643 332 00 0 00 030041 Q15404: SKIPE KLFLG ;KL10 ?
16700 046644 254 00 0 00 046650 JRST Q15405 ;YES
16701 ;KI10 USER MODE
16702 046645 312 04 0 00 070732 CAME AC,[310000,,Q15401]
16703 046646 013 04 0 00 015401 ER13 AC,15401 ;FAIL IF ANY FLAGS SET
16704 046647 254 00 0 00 046636 JRST Q15402
16705 ;KL10 USER MODE
16706 046650 312 04 0 00 070732 Q15405: CAME AC,[310000,,Q15401]
16707 046651 013 04 0 00 015401 ER13 AC,15401 ;FAIL IF FLAGS NOT SET
16708 046652 254 00 0 00 046636 JRST Q15402
16709
16710 046653 254 00 0 00 046654 Q15406: JRST .+1^
16711 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 53-1
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVNM - OVERFLOW AND CARRY FLAGS SEQ 0425
16712 DMVNMF 1550,400000,0,0,0,500000,510000,100000,510000^
16713 ;**KI10**
16714 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES NOT SET OVERFLOW
16715 ;OR CARRY FLAGS ON THE KI10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
16716 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
16717 ;IF ANY OF THESE FLAGS ARE SET, THE TEST FAILS.
16718
16719 ;**KL10**
16720 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
16721 ;OR CARRY FLAGS ON THE KL10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
16722 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
16723 ;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
16724
16725 046654 255 17 0 00 046655 Q15500: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS
16726 DMOVE AC,[XWD 400000,0
16727 046655 120 04 0 00 070711 XWD 0,0] ;SETUP INITIAL
16728 046656 125 04 0 00 070346 DMOVNM AC,TSTWD ;*DMOVNM TEST
16729 046657 265 04 0 00 046660 JSP AC,.+1 ;READ FLAGS
16730 046660 621 04 0 00 027777 Q15501: TLZ AC,027777 ;CLEAR EXTRA JUNK
16731 046661 603 04 0 00 010000 TLNE AC,USERF ;IN USER MODE ?
16732 046662 254 00 0 00 046674 JRST Q15504 ;YES
16733 046663 332 00 0 00 030041 SKIPE KLFLG ;KL10 ?
16734 046664 254 00 0 00 046671 JRST Q15503 ;YES
16735 ;KI10 EXEC MODE
16736 046665 312 04 0 00 070733 CAME AC,[500000,,Q15501]
16737 046666 013 04 0 00 015501 ER13 AC,15501 ;FAIL IF OVFL OR CRY0,1 FLG SET
16738 046667 321 10 0 00 046654 Q15502: JUMPL SAC,Q15500 ;LOOP ON ERROR SWITCH
16739 046670 254 00 0 00 046704 JRST Q15506
16740 ;KL10 EXEC MODE
16741 046671 312 04 0 00 070734 Q15503: CAME AC,[100000,,Q15501]
16742 046672 013 04 0 00 015501 ER13 AC,15501 ;FAIL IF FLAGS NOT SET
16743 046673 254 00 0 00 046667 JRST Q15502
16744 ;KL10/KI10 USER MODE
16745 046674 332 00 0 00 030041 Q15504: SKIPE KLFLG ;KL10 ?
16746 046675 254 00 0 00 046701 JRST Q15505 ;YES
16747 ;KI10 USER MODE
16748 046676 312 04 0 00 070735 CAME AC,[510000,,Q15501]
16749 046677 013 04 0 00 015501 ER13 AC,15501 ;FAIL IF ANY FLAGS SET
16750 046700 254 00 0 00 046667 JRST Q15502
16751 ;KL10 USER MODE
16752 046701 312 04 0 00 070735 Q15505: CAME AC,[510000,,Q15501]
16753 046702 013 04 0 00 015501 ER13 AC,15501 ;FAIL IF FLAGS NOT SET
16754 046703 254 00 0 00 046667 JRST Q15502
16755
16756 046704 254 00 0 00 046705 Q15506: JRST .+1^
16757 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 53-2
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVNM - OVERFLOW AND CARRY FLAGS SEQ 0426
16758 DMVNMF 1560,0,0,400000,0,300000,310000,300000,310000^
16759 ;**KI10**
16760 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES NOT SET OVERFLOW
16761 ;OR CARRY FLAGS ON THE KI10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
16762 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
16763 ;IF ANY OF THESE FLAGS ARE SET, THE TEST FAILS.
16764
16765 ;**KL10**
16766 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
16767 ;OR CARRY FLAGS ON THE KL10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
16768 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
16769 ;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
16770
16771 046705 255 17 0 00 046706 Q15600: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS
16772 DMOVE AC,[XWD 0,0
16773 046706 120 04 0 00 070712 XWD 400000,0] ;SETUP INITIAL
16774 046707 125 04 0 00 070346 DMOVNM AC,TSTWD ;*DMOVNM TEST
16775 046710 265 04 0 00 046711 JSP AC,.+1 ;READ FLAGS
16776 046711 621 04 0 00 027777 Q15601: TLZ AC,027777 ;CLEAR EXTRA JUNK
16777 046712 603 04 0 00 010000 TLNE AC,USERF ;IN USER MODE ?
16778 046713 254 00 0 00 046725 JRST Q15604 ;YES
16779 046714 332 00 0 00 030041 SKIPE KLFLG ;KL10 ?
16780 046715 254 00 0 00 046722 JRST Q15603 ;YES
16781 ;KI10 EXEC MODE
16782 046716 312 04 0 00 070736 CAME AC,[300000,,Q15601]
16783 046717 013 04 0 00 015601 ER13 AC,15601 ;FAIL IF OVFL OR CRY0,1 FLG SET
16784 046720 321 10 0 00 046705 Q15602: JUMPL SAC,Q15600 ;LOOP ON ERROR SWITCH
16785 046721 254 00 0 00 046735 JRST Q15606
16786 ;KL10 EXEC MODE
16787 046722 312 04 0 00 070736 Q15603: CAME AC,[300000,,Q15601]
16788 046723 013 04 0 00 015601 ER13 AC,15601 ;FAIL IF FLAGS NOT SET
16789 046724 254 00 0 00 046720 JRST Q15602
16790 ;KL10/KI10 USER MODE
16791 046725 332 00 0 00 030041 Q15604: SKIPE KLFLG ;KL10 ?
16792 046726 254 00 0 00 046732 JRST Q15605 ;YES
16793 ;KI10 USER MODE
16794 046727 312 04 0 00 070737 CAME AC,[310000,,Q15601]
16795 046730 013 04 0 00 015601 ER13 AC,15601 ;FAIL IF ANY FLAGS SET
16796 046731 254 00 0 00 046720 JRST Q15602
16797 ;KL10 USER MODE
16798 046732 312 04 0 00 070737 Q15605: CAME AC,[310000,,Q15601]
16799 046733 013 04 0 00 015601 ER13 AC,15601 ;FAIL IF FLAGS NOT SET
16800 046734 254 00 0 00 046720 JRST Q15602
16801
16802 046735 254 00 0 00 046736 Q15606: JRST .+1^
16803 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 53-3
DFKCA3 MAC 3-Oct-80 13:56 DIAGNOSTIC SECTION - DMOVNM - OVERFLOW AND CARRY FLAGS SEQ 0427
16804 DMVNMF 1570,400000,0,400000,0,500000,510000,100000,510000^
16805 ;**KI10**
16806 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES NOT SET OVERFLOW
16807 ;OR CARRY FLAGS ON THE KI10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
16808 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
16809 ;IF ANY OF THESE FLAGS ARE SET, THE TEST FAILS.
16810
16811 ;**KL10**
16812 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
16813 ;OR CARRY FLAGS ON THE KL10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
16814 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
16815 ;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
16816
16817 046736 255 17 0 00 046737 Q15700: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS
16818 DMOVE AC,[XWD 400000,0
16819 046737 120 04 0 00 070713 XWD 400000,0] ;SETUP INITIAL
16820 046740 125 04 0 00 070346 DMOVNM AC,TSTWD ;*DMOVNM TEST
16821 046741 265 04 0 00 046742 JSP AC,.+1 ;READ FLAGS
16822 046742 621 04 0 00 027777 Q15701: TLZ AC,027777 ;CLEAR EXTRA JUNK
16823 046743 603 04 0 00 010000 TLNE AC,USERF ;IN USER MODE ?
16824 046744 254 00 0 00 046756 JRST Q15704 ;YES
16825 046745 332 00 0 00 030041 SKIPE KLFLG ;KL10 ?
16826 046746 254 00 0 00 046753 JRST Q15703 ;YES
16827 ;KI10 EXEC MODE
16828 046747 312 04 0 00 070740 CAME AC,[500000,,Q15701]
16829 046750 013 04 0 00 015701 ER13 AC,15701 ;FAIL IF OVFL OR CRY0,1 FLG SET
16830 046751 321 10 0 00 046736 Q15702: JUMPL SAC,Q15700 ;LOOP ON ERROR SWITCH
16831 046752 254 00 0 00 046766 JRST Q15706
16832 ;KL10 EXEC MODE
16833 046753 312 04 0 00 070741 Q15703: CAME AC,[100000,,Q15701]
16834 046754 013 04 0 00 015701 ER13 AC,15701 ;FAIL IF FLAGS NOT SET
16835 046755 254 00 0 00 046751 JRST Q15702
16836 ;KL10/KI10 USER MODE
16837 046756 332 00 0 00 030041 Q15704: SKIPE KLFLG ;KL10 ?
16838 046757 254 00 0 00 046763 JRST Q15705 ;YES
16839 ;KI10 USER MODE
16840 046760 312 04 0 00 070742 CAME AC,[510000,,Q15701]
16841 046761 013 04 0 00 015701 ER13 AC,15701 ;FAIL IF ANY FLAGS SET
16842 046762 254 00 0 00 046751 JRST Q15702
16843 ;KL10 USER MODE
16844 046763 312 04 0 00 070742 Q15705: CAME AC,[510000,,Q15701]
16845 046764 013 04 0 00 015701 ER13 AC,15701 ;FAIL IF FLAGS NOT SET
16846 046765 254 00 0 00 046751 JRST Q15702
16847
16848 046766 254 00 0 00 046767 Q15706: JRST .+1^
16849
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0428
16850 SUBTTL TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS
16851
16852 DEFINE SAVEAC (A,B)<
16853 MOVEI AC+4,.
16854 MOVEM AC+4,TESTPC ;SETUP SUBTEST PC
16855 MOVEI AC+4,<AC+4>&17 ;INFORM ERROR ROUTINE WHICH
16856 MOVEM AC+4,ERRLOP# ;AC IS USED FOR ITERATION>
16857
16858 000004 AC=4
16859 046767 CD00: SAVEAC (1,1)^
16860 046767 201 10 0 00 046767 MOVEI AC+4,.
16861 046770 202 10 0 00 030051 MOVEM AC+4,TESTPC ;SETUP SUBTEST PC
16862 046771 201 10 0 00 000010 MOVEI AC+4,<AC+4>&17 ;INFORM ERROR ROUTINE WHICH
16863 046772 202 10 0 00 073775 MOVEM AC+4,ERRLOP# ;AC IS USED FOR ITERATION^
16864
16865 ;ADD A WORD OF ALL ZEROS TO A WORD OF ALL ZEROS
16866 DFA 1,0,0,0,0,0,0,0,0,0,0,0,0^
16867 R100: DMOVE AC,[0,,0
16868 046773 120 04 0 00 070663 0,,0]
16869 DFAD AC,[0,,0
16870 046774 110 04 0 00 070663 0,,0]
16871 046775 312 04 0 00 070660 CAME AC,[0,,0]
16872 046776 003 04 0 00 000101 ER3 AC,101
16873 046777 312 05 0 00 070660 CAME AC+1,[0,,0]
16874 047000 004 05 0 00 000101 ER4 AC+1,101
16875 047001 321 10 0 00 046773 JUMPL AC+4,R100 ;LOOP ON ERROR SWITCH^
16876 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-1
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0429
16877 ;RIPPLE ONES TESTS (TO A WORD OF ALL ZEROS, ADD A RIPPLED ONE)
16878 000200 T=200
16879 001000 XX=1000
16880 201400 ZZ=201400
16881
16882 R200: REPEAT ^D9,
16883 <T=T+1
16884 XX=XX/2
16885 ZZ=ZZ-1000
16886 DFARP T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0
16887 >
16888 000201 T=T+1
16889 000400 XX=XX/2
16890 200400 ZZ=ZZ-1000
16891 DFARP T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
16892 DMOVE AC,[200000,,0
16893 047002 120 04 0 00 070743 0,,0]
16894 DFAD AC,[200000+XX,,0
16895 047003 110 04 0 00 070745 0,,0]
16896 047004 312 04 0 00 070614 CAME AC,[ZZ,,0]
16897 047005 003 04 0 00 000201 ER3 AC,T
16898 047006 312 05 0 00 070660 CAME AC+1,[0,,0]
16899 047007 004 05 0 00 000201 ER4 AC+1,T
16900 047010 321 10 0 00 047002 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
16901
16902 000202 T=T+1
16903 000200 XX=XX/2
16904 177400 ZZ=ZZ-1000
16905 DFARP T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
16906 DMOVE AC,[200000,,0
16907 047011 120 04 0 00 070743 0,,0]
16908 DFAD AC,[200000+XX,,0
16909 047012 110 04 0 00 070747 0,,0]
16910 047013 312 04 0 00 070636 CAME AC,[ZZ,,0]
16911 047014 003 04 0 00 000202 ER3 AC,T
16912 047015 312 05 0 00 070660 CAME AC+1,[0,,0]
16913 047016 004 05 0 00 000202 ER4 AC+1,T
16914 047017 321 10 0 00 047011 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
16915
16916 000203 T=T+1
16917 000100 XX=XX/2
16918 176400 ZZ=ZZ-1000
16919 DFARP T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
16920 DMOVE AC,[200000,,0
16921 047020 120 04 0 00 070743 0,,0]
16922 DFAD AC,[200000+XX,,0
16923 047021 110 04 0 00 070751 0,,0]
16924 047022 312 04 0 00 070753 CAME AC,[ZZ,,0]
16925 047023 003 04 0 00 000203 ER3 AC,T
16926 047024 312 05 0 00 070660 CAME AC+1,[0,,0]
16927 047025 004 05 0 00 000203 ER4 AC+1,T
16928 047026 321 10 0 00 047020 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
16929
16930 000204 T=T+1
16931 000040 XX=XX/2
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-2
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0430
16932 175400 ZZ=ZZ-1000
16933 DFARP T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
16934 DMOVE AC,[200000,,0
16935 047027 120 04 0 00 070743 0,,0]
16936 DFAD AC,[200000+XX,,0
16937 047030 110 04 0 00 070754 0,,0]
16938 047031 312 04 0 00 070756 CAME AC,[ZZ,,0]
16939 047032 003 04 0 00 000204 ER3 AC,T
16940 047033 312 05 0 00 070660 CAME AC+1,[0,,0]
16941 047034 004 05 0 00 000204 ER4 AC+1,T
16942 047035 321 10 0 00 047027 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
16943
16944 000205 T=T+1
16945 000020 XX=XX/2
16946 174400 ZZ=ZZ-1000
16947 DFARP T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
16948 DMOVE AC,[200000,,0
16949 047036 120 04 0 00 070743 0,,0]
16950 DFAD AC,[200000+XX,,0
16951 047037 110 04 0 00 070757 0,,0]
16952 047040 312 04 0 00 070761 CAME AC,[ZZ,,0]
16953 047041 003 04 0 00 000205 ER3 AC,T
16954 047042 312 05 0 00 070660 CAME AC+1,[0,,0]
16955 047043 004 05 0 00 000205 ER4 AC+1,T
16956 047044 321 10 0 00 047036 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
16957
16958 000206 T=T+1
16959 000010 XX=XX/2
16960 173400 ZZ=ZZ-1000
16961 DFARP T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
16962 DMOVE AC,[200000,,0
16963 047045 120 04 0 00 070743 0,,0]
16964 DFAD AC,[200000+XX,,0
16965 047046 110 04 0 00 070762 0,,0]
16966 047047 312 04 0 00 070764 CAME AC,[ZZ,,0]
16967 047050 003 04 0 00 000206 ER3 AC,T
16968 047051 312 05 0 00 070660 CAME AC+1,[0,,0]
16969 047052 004 05 0 00 000206 ER4 AC+1,T
16970 047053 321 10 0 00 047045 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
16971
16972 000207 T=T+1
16973 000004 XX=XX/2
16974 172400 ZZ=ZZ-1000
16975 DFARP T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
16976 DMOVE AC,[200000,,0
16977 047054 120 04 0 00 070743 0,,0]
16978 DFAD AC,[200000+XX,,0
16979 047055 110 04 0 00 070765 0,,0]
16980 047056 312 04 0 00 070767 CAME AC,[ZZ,,0]
16981 047057 003 04 0 00 000207 ER3 AC,T
16982 047060 312 05 0 00 070660 CAME AC+1,[0,,0]
16983 047061 004 05 0 00 000207 ER4 AC+1,T
16984 047062 321 10 0 00 047054 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
16985
16986 000210 T=T+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-3
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0431
16987 000002 XX=XX/2
16988 171400 ZZ=ZZ-1000
16989 DFARP T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
16990 DMOVE AC,[200000,,0
16991 047063 120 04 0 00 070743 0,,0]
16992 DFAD AC,[200000+XX,,0
16993 047064 110 04 0 00 070770 0,,0]
16994 047065 312 04 0 00 070772 CAME AC,[ZZ,,0]
16995 047066 003 04 0 00 000210 ER3 AC,T
16996 047067 312 05 0 00 070660 CAME AC+1,[0,,0]
16997 047070 004 05 0 00 000210 ER4 AC+1,T
16998 047071 321 10 0 00 047063 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
16999
17000 000211 T=T+1
17001 000001 XX=XX/2
17002 170400 ZZ=ZZ-1000
17003 DFARP T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
17004 DMOVE AC,[200000,,0
17005 047072 120 04 0 00 070743 0,,0]
17006 DFAD AC,[200000+XX,,0
17007 047073 110 04 0 00 070773 0,,0]
17008 047074 312 04 0 00 070775 CAME AC,[ZZ,,0]
17009 047075 003 04 0 00 000211 ER3 AC,T
17010 047076 312 05 0 00 070660 CAME AC+1,[0,,0]
17011 047077 004 05 0 00 000211 ER4 AC+1,T
17012 047100 321 10 0 00 047072 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17013
17014
17015 000001 000000 XX=1000000
17016
17017 REPEAT ^D18,
17018 <T=T+1
17019 XX=XX/2
17020 ZZ=ZZ-1000
17021 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0
17022 >
17023 000212 T=T+1
17024 400000 XX=XX/2
17025 167400 ZZ=ZZ-1000
17026 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
17027 DMOVE AC,[200000,,0
17028 047101 120 04 0 00 070743 0,,0]
17029 DFAD AC,[200000,,XX
17030 047102 110 04 0 00 070776 0,,0]
17031 047103 312 04 0 00 071000 CAME AC,[ZZ,,0]
17032 047104 003 04 0 00 000212 ER3 AC,T
17033 047105 312 05 0 00 070660 CAME AC+1,[0,,0]
17034 047106 004 05 0 00 000212 ER4 AC+1,T
17035 047107 321 10 0 00 047101 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17036
17037 000213 T=T+1
17038 200000 XX=XX/2
17039 166400 ZZ=ZZ-1000
17040 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
17041 DMOVE AC,[200000,,0
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-4
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0432
17042 047110 120 04 0 00 070743 0,,0]
17043 DFAD AC,[200000,,XX
17044 047111 110 04 0 00 071001 0,,0]
17045 047112 312 04 0 00 071003 CAME AC,[ZZ,,0]
17046 047113 003 04 0 00 000213 ER3 AC,T
17047 047114 312 05 0 00 070660 CAME AC+1,[0,,0]
17048 047115 004 05 0 00 000213 ER4 AC+1,T
17049 047116 321 10 0 00 047110 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17050
17051 000214 T=T+1
17052 100000 XX=XX/2
17053 165400 ZZ=ZZ-1000
17054 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
17055 DMOVE AC,[200000,,0
17056 047117 120 04 0 00 070743 0,,0]
17057 DFAD AC,[200000,,XX
17058 047120 110 04 0 00 071004 0,,0]
17059 047121 312 04 0 00 071006 CAME AC,[ZZ,,0]
17060 047122 003 04 0 00 000214 ER3 AC,T
17061 047123 312 05 0 00 070660 CAME AC+1,[0,,0]
17062 047124 004 05 0 00 000214 ER4 AC+1,T
17063 047125 321 10 0 00 047117 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17064
17065 000215 T=T+1
17066 040000 XX=XX/2
17067 164400 ZZ=ZZ-1000
17068 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
17069 DMOVE AC,[200000,,0
17070 047126 120 04 0 00 070743 0,,0]
17071 DFAD AC,[200000,,XX
17072 047127 110 04 0 00 071007 0,,0]
17073 047130 312 04 0 00 071011 CAME AC,[ZZ,,0]
17074 047131 003 04 0 00 000215 ER3 AC,T
17075 047132 312 05 0 00 070660 CAME AC+1,[0,,0]
17076 047133 004 05 0 00 000215 ER4 AC+1,T
17077 047134 321 10 0 00 047126 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17078
17079 000216 T=T+1
17080 020000 XX=XX/2
17081 163400 ZZ=ZZ-1000
17082 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
17083 DMOVE AC,[200000,,0
17084 047135 120 04 0 00 070743 0,,0]
17085 DFAD AC,[200000,,XX
17086 047136 110 04 0 00 071012 0,,0]
17087 047137 312 04 0 00 071014 CAME AC,[ZZ,,0]
17088 047140 003 04 0 00 000216 ER3 AC,T
17089 047141 312 05 0 00 070660 CAME AC+1,[0,,0]
17090 047142 004 05 0 00 000216 ER4 AC+1,T
17091 047143 321 10 0 00 047135 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17092
17093 000217 T=T+1
17094 010000 XX=XX/2
17095 162400 ZZ=ZZ-1000
17096 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-5
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0433
17097 DMOVE AC,[200000,,0
17098 047144 120 04 0 00 070743 0,,0]
17099 DFAD AC,[200000,,XX
17100 047145 110 04 0 00 071015 0,,0]
17101 047146 312 04 0 00 071017 CAME AC,[ZZ,,0]
17102 047147 003 04 0 00 000217 ER3 AC,T
17103 047150 312 05 0 00 070660 CAME AC+1,[0,,0]
17104 047151 004 05 0 00 000217 ER4 AC+1,T
17105 047152 321 10 0 00 047144 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17106
17107 000220 T=T+1
17108 004000 XX=XX/2
17109 161400 ZZ=ZZ-1000
17110 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
17111 DMOVE AC,[200000,,0
17112 047153 120 04 0 00 070743 0,,0]
17113 DFAD AC,[200000,,XX
17114 047154 110 04 0 00 071020 0,,0]
17115 047155 312 04 0 00 071022 CAME AC,[ZZ,,0]
17116 047156 003 04 0 00 000220 ER3 AC,T
17117 047157 312 05 0 00 070660 CAME AC+1,[0,,0]
17118 047160 004 05 0 00 000220 ER4 AC+1,T
17119 047161 321 10 0 00 047153 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17120
17121 000221 T=T+1
17122 002000 XX=XX/2
17123 160400 ZZ=ZZ-1000
17124 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
17125 DMOVE AC,[200000,,0
17126 047162 120 04 0 00 070743 0,,0]
17127 DFAD AC,[200000,,XX
17128 047163 110 04 0 00 071023 0,,0]
17129 047164 312 04 0 00 071025 CAME AC,[ZZ,,0]
17130 047165 003 04 0 00 000221 ER3 AC,T
17131 047166 312 05 0 00 070660 CAME AC+1,[0,,0]
17132 047167 004 05 0 00 000221 ER4 AC+1,T
17133 047170 321 10 0 00 047162 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17134
17135 000222 T=T+1
17136 001000 XX=XX/2
17137 157400 ZZ=ZZ-1000
17138 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
17139 DMOVE AC,[200000,,0
17140 047171 120 04 0 00 070743 0,,0]
17141 DFAD AC,[200000,,XX
17142 047172 110 04 0 00 071026 0,,0]
17143 047173 312 04 0 00 071030 CAME AC,[ZZ,,0]
17144 047174 003 04 0 00 000222 ER3 AC,T
17145 047175 312 05 0 00 070660 CAME AC+1,[0,,0]
17146 047176 004 05 0 00 000222 ER4 AC+1,T
17147 047177 321 10 0 00 047171 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17148
17149 000223 T=T+1
17150 000400 XX=XX/2
17151 156400 ZZ=ZZ-1000
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-6
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0434
17152 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
17153 DMOVE AC,[200000,,0
17154 047200 120 04 0 00 070743 0,,0]
17155 DFAD AC,[200000,,XX
17156 047201 110 04 0 00 071031 0,,0]
17157 047202 312 04 0 00 071033 CAME AC,[ZZ,,0]
17158 047203 003 04 0 00 000223 ER3 AC,T
17159 047204 312 05 0 00 070660 CAME AC+1,[0,,0]
17160 047205 004 05 0 00 000223 ER4 AC+1,T
17161 047206 321 10 0 00 047200 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17162
17163 000224 T=T+1
17164 000200 XX=XX/2
17165 155400 ZZ=ZZ-1000
17166 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
17167 DMOVE AC,[200000,,0
17168 047207 120 04 0 00 070743 0,,0]
17169 DFAD AC,[200000,,XX
17170 047210 110 04 0 00 071034 0,,0]
17171 047211 312 04 0 00 071036 CAME AC,[ZZ,,0]
17172 047212 003 04 0 00 000224 ER3 AC,T
17173 047213 312 05 0 00 070660 CAME AC+1,[0,,0]
17174 047214 004 05 0 00 000224 ER4 AC+1,T
17175 047215 321 10 0 00 047207 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17176
17177 000225 T=T+1
17178 000100 XX=XX/2
17179 154400 ZZ=ZZ-1000
17180 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
17181 DMOVE AC,[200000,,0
17182 047216 120 04 0 00 070743 0,,0]
17183 DFAD AC,[200000,,XX
17184 047217 110 04 0 00 071037 0,,0]
17185 047220 312 04 0 00 071041 CAME AC,[ZZ,,0]
17186 047221 003 04 0 00 000225 ER3 AC,T
17187 047222 312 05 0 00 070660 CAME AC+1,[0,,0]
17188 047223 004 05 0 00 000225 ER4 AC+1,T
17189 047224 321 10 0 00 047216 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17190
17191 000226 T=T+1
17192 000040 XX=XX/2
17193 153400 ZZ=ZZ-1000
17194 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
17195 DMOVE AC,[200000,,0
17196 047225 120 04 0 00 070743 0,,0]
17197 DFAD AC,[200000,,XX
17198 047226 110 04 0 00 071042 0,,0]
17199 047227 312 04 0 00 071044 CAME AC,[ZZ,,0]
17200 047230 003 04 0 00 000226 ER3 AC,T
17201 047231 312 05 0 00 070660 CAME AC+1,[0,,0]
17202 047232 004 05 0 00 000226 ER4 AC+1,T
17203 047233 321 10 0 00 047225 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17204
17205 000227 T=T+1
17206 000020 XX=XX/2
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-7
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0435
17207 152400 ZZ=ZZ-1000
17208 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
17209 DMOVE AC,[200000,,0
17210 047234 120 04 0 00 070743 0,,0]
17211 DFAD AC,[200000,,XX
17212 047235 110 04 0 00 071045 0,,0]
17213 047236 312 04 0 00 071047 CAME AC,[ZZ,,0]
17214 047237 003 04 0 00 000227 ER3 AC,T
17215 047240 312 05 0 00 070660 CAME AC+1,[0,,0]
17216 047241 004 05 0 00 000227 ER4 AC+1,T
17217 047242 321 10 0 00 047234 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17218
17219 000230 T=T+1
17220 000010 XX=XX/2
17221 151400 ZZ=ZZ-1000
17222 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
17223 DMOVE AC,[200000,,0
17224 047243 120 04 0 00 070743 0,,0]
17225 DFAD AC,[200000,,XX
17226 047244 110 04 0 00 071050 0,,0]
17227 047245 312 04 0 00 071052 CAME AC,[ZZ,,0]
17228 047246 003 04 0 00 000230 ER3 AC,T
17229 047247 312 05 0 00 070660 CAME AC+1,[0,,0]
17230 047250 004 05 0 00 000230 ER4 AC+1,T
17231 047251 321 10 0 00 047243 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17232
17233 000231 T=T+1
17234 000004 XX=XX/2
17235 150400 ZZ=ZZ-1000
17236 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
17237 DMOVE AC,[200000,,0
17238 047252 120 04 0 00 070743 0,,0]
17239 DFAD AC,[200000,,XX
17240 047253 110 04 0 00 071053 0,,0]
17241 047254 312 04 0 00 071055 CAME AC,[ZZ,,0]
17242 047255 003 04 0 00 000231 ER3 AC,T
17243 047256 312 05 0 00 070660 CAME AC+1,[0,,0]
17244 047257 004 05 0 00 000231 ER4 AC+1,T
17245 047260 321 10 0 00 047252 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17246
17247 000232 T=T+1
17248 000002 XX=XX/2
17249 147400 ZZ=ZZ-1000
17250 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
17251 DMOVE AC,[200000,,0
17252 047261 120 04 0 00 070743 0,,0]
17253 DFAD AC,[200000,,XX
17254 047262 110 04 0 00 071056 0,,0]
17255 047263 312 04 0 00 071060 CAME AC,[ZZ,,0]
17256 047264 003 04 0 00 000232 ER3 AC,T
17257 047265 312 05 0 00 070660 CAME AC+1,[0,,0]
17258 047266 004 05 0 00 000232 ER4 AC+1,T
17259 047267 321 10 0 00 047261 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17260
17261 000233 T=T+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-8
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0436
17262 000001 XX=XX/2
17263 146400 ZZ=ZZ-1000
17264 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
17265 DMOVE AC,[200000,,0
17266 047270 120 04 0 00 070743 0,,0]
17267 DFAD AC,[200000,,XX
17268 047271 110 04 0 00 071061 0,,0]
17269 047272 312 04 0 00 071063 CAME AC,[ZZ,,0]
17270 047273 003 04 0 00 000233 ER3 AC,T
17271 047274 312 05 0 00 070660 CAME AC+1,[0,,0]
17272 047275 004 05 0 00 000233 ER4 AC+1,T
17273 047276 321 10 0 00 047270 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17274
17275
17276 400000 XX=400000
17277
17278 000234 T=T+1
17279 DFARP T,200000,0,0,0,200000,0,XX,0,0,0,0,0^
17280 DMOVE AC,[200000,,0
17281 047277 120 04 0 00 070743 0,,0]
17282 DFAD AC,[200000,,0
17283 047300 110 04 0 00 071064 XX,,0]
17284 047301 312 04 0 00 070660 CAME AC,[0,,0]
17285 047302 003 04 0 00 000234 ER3 AC,T
17286 047303 312 05 0 00 070660 CAME AC+1,[0,,0]
17287 047304 004 05 0 00 000234 ER4 AC+1,T
17288 047305 321 10 0 00 047277 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17289
17290 REPEAT ^D17,
17291 <T=T+1
17292 XX=XX/2
17293 ZZ=ZZ-1000
17294 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0
17295 >
17296 000235 T=T+1
17297 200000 XX=XX/2
17298 145400 ZZ=ZZ-1000
17299 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
17300 DMOVE AC,[200000,,0
17301 047306 120 04 0 00 070743 0,,0]
17302 DFAD AC,[200000,,0
17303 047307 110 04 0 00 071066 XX,,0]
17304 047310 312 04 0 00 071070 CAME AC,[ZZ,,0]
17305 047311 003 04 0 00 000235 ER3 AC,T
17306 047312 312 05 0 00 070660 CAME AC+1,[0,,0]
17307 047313 004 05 0 00 000235 ER4 AC+1,T
17308 047314 321 10 0 00 047306 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17309
17310 000236 T=T+1
17311 100000 XX=XX/2
17312 144400 ZZ=ZZ-1000
17313 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
17314 DMOVE AC,[200000,,0
17315 047315 120 04 0 00 070743 0,,0]
17316 DFAD AC,[200000,,0
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-9
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0437
17317 047316 110 04 0 00 071071 XX,,0]
17318 047317 312 04 0 00 071073 CAME AC,[ZZ,,0]
17319 047320 003 04 0 00 000236 ER3 AC,T
17320 047321 312 05 0 00 070660 CAME AC+1,[0,,0]
17321 047322 004 05 0 00 000236 ER4 AC+1,T
17322 047323 321 10 0 00 047315 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17323
17324 000237 T=T+1
17325 040000 XX=XX/2
17326 143400 ZZ=ZZ-1000
17327 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
17328 DMOVE AC,[200000,,0
17329 047324 120 04 0 00 070743 0,,0]
17330 DFAD AC,[200000,,0
17331 047325 110 04 0 00 071074 XX,,0]
17332 047326 312 04 0 00 071076 CAME AC,[ZZ,,0]
17333 047327 003 04 0 00 000237 ER3 AC,T
17334 047330 312 05 0 00 070660 CAME AC+1,[0,,0]
17335 047331 004 05 0 00 000237 ER4 AC+1,T
17336 047332 321 10 0 00 047324 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17337
17338 000240 T=T+1
17339 020000 XX=XX/2
17340 142400 ZZ=ZZ-1000
17341 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
17342 DMOVE AC,[200000,,0
17343 047333 120 04 0 00 070743 0,,0]
17344 DFAD AC,[200000,,0
17345 047334 110 04 0 00 071077 XX,,0]
17346 047335 312 04 0 00 071101 CAME AC,[ZZ,,0]
17347 047336 003 04 0 00 000240 ER3 AC,T
17348 047337 312 05 0 00 070660 CAME AC+1,[0,,0]
17349 047340 004 05 0 00 000240 ER4 AC+1,T
17350 047341 321 10 0 00 047333 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17351
17352 000241 T=T+1
17353 010000 XX=XX/2
17354 141400 ZZ=ZZ-1000
17355 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
17356 DMOVE AC,[200000,,0
17357 047342 120 04 0 00 070743 0,,0]
17358 DFAD AC,[200000,,0
17359 047343 110 04 0 00 071102 XX,,0]
17360 047344 312 04 0 00 071104 CAME AC,[ZZ,,0]
17361 047345 003 04 0 00 000241 ER3 AC,T
17362 047346 312 05 0 00 070660 CAME AC+1,[0,,0]
17363 047347 004 05 0 00 000241 ER4 AC+1,T
17364 047350 321 10 0 00 047342 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17365
17366 000242 T=T+1
17367 004000 XX=XX/2
17368 140400 ZZ=ZZ-1000
17369 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
17370 DMOVE AC,[200000,,0
17371 047351 120 04 0 00 070743 0,,0]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-10
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0438
17372 DFAD AC,[200000,,0
17373 047352 110 04 0 00 071105 XX,,0]
17374 047353 312 04 0 00 071107 CAME AC,[ZZ,,0]
17375 047354 003 04 0 00 000242 ER3 AC,T
17376 047355 312 05 0 00 070660 CAME AC+1,[0,,0]
17377 047356 004 05 0 00 000242 ER4 AC+1,T
17378 047357 321 10 0 00 047351 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17379
17380 000243 T=T+1
17381 002000 XX=XX/2
17382 137400 ZZ=ZZ-1000
17383 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
17384 DMOVE AC,[200000,,0
17385 047360 120 04 0 00 070743 0,,0]
17386 DFAD AC,[200000,,0
17387 047361 110 04 0 00 071110 XX,,0]
17388 047362 312 04 0 00 071112 CAME AC,[ZZ,,0]
17389 047363 003 04 0 00 000243 ER3 AC,T
17390 047364 312 05 0 00 070660 CAME AC+1,[0,,0]
17391 047365 004 05 0 00 000243 ER4 AC+1,T
17392 047366 321 10 0 00 047360 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17393
17394 000244 T=T+1
17395 001000 XX=XX/2
17396 136400 ZZ=ZZ-1000
17397 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
17398 DMOVE AC,[200000,,0
17399 047367 120 04 0 00 070743 0,,0]
17400 DFAD AC,[200000,,0
17401 047370 110 04 0 00 071113 XX,,0]
17402 047371 312 04 0 00 071115 CAME AC,[ZZ,,0]
17403 047372 003 04 0 00 000244 ER3 AC,T
17404 047373 312 05 0 00 070660 CAME AC+1,[0,,0]
17405 047374 004 05 0 00 000244 ER4 AC+1,T
17406 047375 321 10 0 00 047367 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17407
17408 000245 T=T+1
17409 000400 XX=XX/2
17410 135400 ZZ=ZZ-1000
17411 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
17412 DMOVE AC,[200000,,0
17413 047376 120 04 0 00 070743 0,,0]
17414 DFAD AC,[200000,,0
17415 047377 110 04 0 00 071116 XX,,0]
17416 047400 312 04 0 00 071120 CAME AC,[ZZ,,0]
17417 047401 003 04 0 00 000245 ER3 AC,T
17418 047402 312 05 0 00 070660 CAME AC+1,[0,,0]
17419 047403 004 05 0 00 000245 ER4 AC+1,T
17420 047404 321 10 0 00 047376 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17421
17422 000246 T=T+1
17423 000200 XX=XX/2
17424 134400 ZZ=ZZ-1000
17425 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
17426 DMOVE AC,[200000,,0
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-11
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0439
17427 047405 120 04 0 00 070743 0,,0]
17428 DFAD AC,[200000,,0
17429 047406 110 04 0 00 071121 XX,,0]
17430 047407 312 04 0 00 071123 CAME AC,[ZZ,,0]
17431 047410 003 04 0 00 000246 ER3 AC,T
17432 047411 312 05 0 00 070660 CAME AC+1,[0,,0]
17433 047412 004 05 0 00 000246 ER4 AC+1,T
17434 047413 321 10 0 00 047405 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17435
17436 000247 T=T+1
17437 000100 XX=XX/2
17438 133400 ZZ=ZZ-1000
17439 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
17440 DMOVE AC,[200000,,0
17441 047414 120 04 0 00 070743 0,,0]
17442 DFAD AC,[200000,,0
17443 047415 110 04 0 00 071124 XX,,0]
17444 047416 312 04 0 00 071126 CAME AC,[ZZ,,0]
17445 047417 003 04 0 00 000247 ER3 AC,T
17446 047420 312 05 0 00 070660 CAME AC+1,[0,,0]
17447 047421 004 05 0 00 000247 ER4 AC+1,T
17448 047422 321 10 0 00 047414 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17449
17450 000250 T=T+1
17451 000040 XX=XX/2
17452 132400 ZZ=ZZ-1000
17453 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
17454 DMOVE AC,[200000,,0
17455 047423 120 04 0 00 070743 0,,0]
17456 DFAD AC,[200000,,0
17457 047424 110 04 0 00 071127 XX,,0]
17458 047425 312 04 0 00 071131 CAME AC,[ZZ,,0]
17459 047426 003 04 0 00 000250 ER3 AC,T
17460 047427 312 05 0 00 070660 CAME AC+1,[0,,0]
17461 047430 004 05 0 00 000250 ER4 AC+1,T
17462 047431 321 10 0 00 047423 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17463
17464 000251 T=T+1
17465 000020 XX=XX/2
17466 131400 ZZ=ZZ-1000
17467 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
17468 DMOVE AC,[200000,,0
17469 047432 120 04 0 00 070743 0,,0]
17470 DFAD AC,[200000,,0
17471 047433 110 04 0 00 071132 XX,,0]
17472 047434 312 04 0 00 071134 CAME AC,[ZZ,,0]
17473 047435 003 04 0 00 000251 ER3 AC,T
17474 047436 312 05 0 00 070660 CAME AC+1,[0,,0]
17475 047437 004 05 0 00 000251 ER4 AC+1,T
17476 047440 321 10 0 00 047432 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17477
17478 000252 T=T+1
17479 000010 XX=XX/2
17480 130400 ZZ=ZZ-1000
17481 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-12
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0440
17482 DMOVE AC,[200000,,0
17483 047441 120 04 0 00 070743 0,,0]
17484 DFAD AC,[200000,,0
17485 047442 110 04 0 00 071135 XX,,0]
17486 047443 312 04 0 00 071137 CAME AC,[ZZ,,0]
17487 047444 003 04 0 00 000252 ER3 AC,T
17488 047445 312 05 0 00 070660 CAME AC+1,[0,,0]
17489 047446 004 05 0 00 000252 ER4 AC+1,T
17490 047447 321 10 0 00 047441 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17491
17492 000253 T=T+1
17493 000004 XX=XX/2
17494 127400 ZZ=ZZ-1000
17495 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
17496 DMOVE AC,[200000,,0
17497 047450 120 04 0 00 070743 0,,0]
17498 DFAD AC,[200000,,0
17499 047451 110 04 0 00 071140 XX,,0]
17500 047452 312 04 0 00 071142 CAME AC,[ZZ,,0]
17501 047453 003 04 0 00 000253 ER3 AC,T
17502 047454 312 05 0 00 070660 CAME AC+1,[0,,0]
17503 047455 004 05 0 00 000253 ER4 AC+1,T
17504 047456 321 10 0 00 047450 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17505
17506 000254 T=T+1
17507 000002 XX=XX/2
17508 126400 ZZ=ZZ-1000
17509 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
17510 DMOVE AC,[200000,,0
17511 047457 120 04 0 00 070743 0,,0]
17512 DFAD AC,[200000,,0
17513 047460 110 04 0 00 071143 XX,,0]
17514 047461 312 04 0 00 071145 CAME AC,[ZZ,,0]
17515 047462 003 04 0 00 000254 ER3 AC,T
17516 047463 312 05 0 00 070660 CAME AC+1,[0,,0]
17517 047464 004 05 0 00 000254 ER4 AC+1,T
17518 047465 321 10 0 00 047457 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17519
17520 000255 T=T+1
17521 000001 XX=XX/2
17522 125400 ZZ=ZZ-1000
17523 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
17524 DMOVE AC,[200000,,0
17525 047466 120 04 0 00 070743 0,,0]
17526 DFAD AC,[200000,,0
17527 047467 110 04 0 00 071146 XX,,0]
17528 047470 312 04 0 00 071150 CAME AC,[ZZ,,0]
17529 047471 003 04 0 00 000255 ER3 AC,T
17530 047472 312 05 0 00 070660 CAME AC+1,[0,,0]
17531 047473 004 05 0 00 000255 ER4 AC+1,T
17532 047474 321 10 0 00 047466 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17533
17534
17535 000001 000000 XX=1000000
17536
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-13
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0441
17537 REPEAT ^D18,
17538 <T=T+1
17539 XX=XX/2
17540 ZZ=ZZ-1000
17541 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0
17542 >
17543 000256 T=T+1
17544 400000 XX=XX/2
17545 124400 ZZ=ZZ-1000
17546 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
17547 DMOVE AC,[200000,,0
17548 047475 120 04 0 00 070743 0,,0]
17549 DFAD AC,[200000,,0
17550 047476 110 04 0 00 071151 0,,XX]
17551 047477 312 04 0 00 071153 CAME AC,[ZZ,,0]
17552 047500 003 04 0 00 000256 ER3 AC,T
17553 047501 312 05 0 00 070660 CAME AC+1,[0,,0]
17554 047502 004 05 0 00 000256 ER4 AC+1,T
17555 047503 321 10 0 00 047475 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17556
17557 000257 T=T+1
17558 200000 XX=XX/2
17559 123400 ZZ=ZZ-1000
17560 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
17561 DMOVE AC,[200000,,0
17562 047504 120 04 0 00 070743 0,,0]
17563 DFAD AC,[200000,,0
17564 047505 110 04 0 00 071154 0,,XX]
17565 047506 312 04 0 00 071156 CAME AC,[ZZ,,0]
17566 047507 003 04 0 00 000257 ER3 AC,T
17567 047510 312 05 0 00 070660 CAME AC+1,[0,,0]
17568 047511 004 05 0 00 000257 ER4 AC+1,T
17569 047512 321 10 0 00 047504 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17570
17571 000260 T=T+1
17572 100000 XX=XX/2
17573 122400 ZZ=ZZ-1000
17574 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
17575 DMOVE AC,[200000,,0
17576 047513 120 04 0 00 070743 0,,0]
17577 DFAD AC,[200000,,0
17578 047514 110 04 0 00 071157 0,,XX]
17579 047515 312 04 0 00 071161 CAME AC,[ZZ,,0]
17580 047516 003 04 0 00 000260 ER3 AC,T
17581 047517 312 05 0 00 070660 CAME AC+1,[0,,0]
17582 047520 004 05 0 00 000260 ER4 AC+1,T
17583 047521 321 10 0 00 047513 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17584
17585 000261 T=T+1
17586 040000 XX=XX/2
17587 121400 ZZ=ZZ-1000
17588 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
17589 DMOVE AC,[200000,,0
17590 047522 120 04 0 00 070743 0,,0]
17591 DFAD AC,[200000,,0
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-14
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0442
17592 047523 110 04 0 00 071162 0,,XX]
17593 047524 312 04 0 00 071164 CAME AC,[ZZ,,0]
17594 047525 003 04 0 00 000261 ER3 AC,T
17595 047526 312 05 0 00 070660 CAME AC+1,[0,,0]
17596 047527 004 05 0 00 000261 ER4 AC+1,T
17597 047530 321 10 0 00 047522 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17598
17599 000262 T=T+1
17600 020000 XX=XX/2
17601 120400 ZZ=ZZ-1000
17602 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
17603 DMOVE AC,[200000,,0
17604 047531 120 04 0 00 070743 0,,0]
17605 DFAD AC,[200000,,0
17606 047532 110 04 0 00 071165 0,,XX]
17607 047533 312 04 0 00 071167 CAME AC,[ZZ,,0]
17608 047534 003 04 0 00 000262 ER3 AC,T
17609 047535 312 05 0 00 070660 CAME AC+1,[0,,0]
17610 047536 004 05 0 00 000262 ER4 AC+1,T
17611 047537 321 10 0 00 047531 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17612
17613 000263 T=T+1
17614 010000 XX=XX/2
17615 117400 ZZ=ZZ-1000
17616 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
17617 DMOVE AC,[200000,,0
17618 047540 120 04 0 00 070743 0,,0]
17619 DFAD AC,[200000,,0
17620 047541 110 04 0 00 071170 0,,XX]
17621 047542 312 04 0 00 071172 CAME AC,[ZZ,,0]
17622 047543 003 04 0 00 000263 ER3 AC,T
17623 047544 312 05 0 00 070660 CAME AC+1,[0,,0]
17624 047545 004 05 0 00 000263 ER4 AC+1,T
17625 047546 321 10 0 00 047540 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17626
17627 000264 T=T+1
17628 004000 XX=XX/2
17629 116400 ZZ=ZZ-1000
17630 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
17631 DMOVE AC,[200000,,0
17632 047547 120 04 0 00 070743 0,,0]
17633 DFAD AC,[200000,,0
17634 047550 110 04 0 00 071173 0,,XX]
17635 047551 312 04 0 00 071175 CAME AC,[ZZ,,0]
17636 047552 003 04 0 00 000264 ER3 AC,T
17637 047553 312 05 0 00 070660 CAME AC+1,[0,,0]
17638 047554 004 05 0 00 000264 ER4 AC+1,T
17639 047555 321 10 0 00 047547 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17640
17641 000265 T=T+1
17642 002000 XX=XX/2
17643 115400 ZZ=ZZ-1000
17644 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
17645 DMOVE AC,[200000,,0
17646 047556 120 04 0 00 070743 0,,0]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-15
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0443
17647 DFAD AC,[200000,,0
17648 047557 110 04 0 00 071176 0,,XX]
17649 047560 312 04 0 00 071200 CAME AC,[ZZ,,0]
17650 047561 003 04 0 00 000265 ER3 AC,T
17651 047562 312 05 0 00 070660 CAME AC+1,[0,,0]
17652 047563 004 05 0 00 000265 ER4 AC+1,T
17653 047564 321 10 0 00 047556 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17654
17655 000266 T=T+1
17656 001000 XX=XX/2
17657 114400 ZZ=ZZ-1000
17658 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
17659 DMOVE AC,[200000,,0
17660 047565 120 04 0 00 070743 0,,0]
17661 DFAD AC,[200000,,0
17662 047566 110 04 0 00 071201 0,,XX]
17663 047567 312 04 0 00 071203 CAME AC,[ZZ,,0]
17664 047570 003 04 0 00 000266 ER3 AC,T
17665 047571 312 05 0 00 070660 CAME AC+1,[0,,0]
17666 047572 004 05 0 00 000266 ER4 AC+1,T
17667 047573 321 10 0 00 047565 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17668
17669 000267 T=T+1
17670 000400 XX=XX/2
17671 113400 ZZ=ZZ-1000
17672 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
17673 DMOVE AC,[200000,,0
17674 047574 120 04 0 00 070743 0,,0]
17675 DFAD AC,[200000,,0
17676 047575 110 04 0 00 071204 0,,XX]
17677 047576 312 04 0 00 071206 CAME AC,[ZZ,,0]
17678 047577 003 04 0 00 000267 ER3 AC,T
17679 047600 312 05 0 00 070660 CAME AC+1,[0,,0]
17680 047601 004 05 0 00 000267 ER4 AC+1,T
17681 047602 321 10 0 00 047574 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17682
17683 000270 T=T+1
17684 000200 XX=XX/2
17685 112400 ZZ=ZZ-1000
17686 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
17687 DMOVE AC,[200000,,0
17688 047603 120 04 0 00 070743 0,,0]
17689 DFAD AC,[200000,,0
17690 047604 110 04 0 00 071207 0,,XX]
17691 047605 312 04 0 00 071211 CAME AC,[ZZ,,0]
17692 047606 003 04 0 00 000270 ER3 AC,T
17693 047607 312 05 0 00 070660 CAME AC+1,[0,,0]
17694 047610 004 05 0 00 000270 ER4 AC+1,T
17695 047611 321 10 0 00 047603 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17696
17697 000271 T=T+1
17698 000100 XX=XX/2
17699 111400 ZZ=ZZ-1000
17700 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
17701 DMOVE AC,[200000,,0
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-16
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0444
17702 047612 120 04 0 00 070743 0,,0]
17703 DFAD AC,[200000,,0
17704 047613 110 04 0 00 071212 0,,XX]
17705 047614 312 04 0 00 071214 CAME AC,[ZZ,,0]
17706 047615 003 04 0 00 000271 ER3 AC,T
17707 047616 312 05 0 00 070660 CAME AC+1,[0,,0]
17708 047617 004 05 0 00 000271 ER4 AC+1,T
17709 047620 321 10 0 00 047612 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17710
17711 000272 T=T+1
17712 000040 XX=XX/2
17713 110400 ZZ=ZZ-1000
17714 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
17715 DMOVE AC,[200000,,0
17716 047621 120 04 0 00 070743 0,,0]
17717 DFAD AC,[200000,,0
17718 047622 110 04 0 00 071215 0,,XX]
17719 047623 312 04 0 00 071217 CAME AC,[ZZ,,0]
17720 047624 003 04 0 00 000272 ER3 AC,T
17721 047625 312 05 0 00 070660 CAME AC+1,[0,,0]
17722 047626 004 05 0 00 000272 ER4 AC+1,T
17723 047627 321 10 0 00 047621 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17724
17725 000273 T=T+1
17726 000020 XX=XX/2
17727 107400 ZZ=ZZ-1000
17728 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
17729 DMOVE AC,[200000,,0
17730 047630 120 04 0 00 070743 0,,0]
17731 DFAD AC,[200000,,0
17732 047631 110 04 0 00 071220 0,,XX]
17733 047632 312 04 0 00 071222 CAME AC,[ZZ,,0]
17734 047633 003 04 0 00 000273 ER3 AC,T
17735 047634 312 05 0 00 070660 CAME AC+1,[0,,0]
17736 047635 004 05 0 00 000273 ER4 AC+1,T
17737 047636 321 10 0 00 047630 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17738
17739 000274 T=T+1
17740 000010 XX=XX/2
17741 106400 ZZ=ZZ-1000
17742 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
17743 DMOVE AC,[200000,,0
17744 047637 120 04 0 00 070743 0,,0]
17745 DFAD AC,[200000,,0
17746 047640 110 04 0 00 071223 0,,XX]
17747 047641 312 04 0 00 071225 CAME AC,[ZZ,,0]
17748 047642 003 04 0 00 000274 ER3 AC,T
17749 047643 312 05 0 00 070660 CAME AC+1,[0,,0]
17750 047644 004 05 0 00 000274 ER4 AC+1,T
17751 047645 321 10 0 00 047637 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17752
17753 000275 T=T+1
17754 000004 XX=XX/2
17755 105400 ZZ=ZZ-1000
17756 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-17
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0445
17757 DMOVE AC,[200000,,0
17758 047646 120 04 0 00 070743 0,,0]
17759 DFAD AC,[200000,,0
17760 047647 110 04 0 00 071226 0,,XX]
17761 047650 312 04 0 00 071230 CAME AC,[ZZ,,0]
17762 047651 003 04 0 00 000275 ER3 AC,T
17763 047652 312 05 0 00 070660 CAME AC+1,[0,,0]
17764 047653 004 05 0 00 000275 ER4 AC+1,T
17765 047654 321 10 0 00 047646 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17766
17767 000276 T=T+1
17768 000002 XX=XX/2
17769 104400 ZZ=ZZ-1000
17770 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
17771 DMOVE AC,[200000,,0
17772 047655 120 04 0 00 070743 0,,0]
17773 DFAD AC,[200000,,0
17774 047656 110 04 0 00 071231 0,,XX]
17775 047657 312 04 0 00 071233 CAME AC,[ZZ,,0]
17776 047660 003 04 0 00 000276 ER3 AC,T
17777 047661 312 05 0 00 070660 CAME AC+1,[0,,0]
17778 047662 004 05 0 00 000276 ER4 AC+1,T
17779 047663 321 10 0 00 047655 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17780
17781 000277 T=T+1
17782 000001 XX=XX/2
17783 103400 ZZ=ZZ-1000
17784 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
17785 DMOVE AC,[200000,,0
17786 047664 120 04 0 00 070743 0,,0]
17787 DFAD AC,[200000,,0
17788 047665 110 04 0 00 071234 0,,XX]
17789 047666 312 04 0 00 071236 CAME AC,[ZZ,,0]
17790 047667 003 04 0 00 000277 ER3 AC,T
17791 047670 312 05 0 00 070660 CAME AC+1,[0,,0]
17792 047671 004 05 0 00 000277 ER4 AC+1,T
17793 047672 321 10 0 00 047664 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17794
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0446
17795 ;RIPPLE ONES TEST (TO A RIPPLED ONE, ADD A WORD OF ALL ZEROS)
17796 000300 T=300
17797 001000 XX=1000
17798 201400 ZZ=201400
17799
17800 R300: REPEAT ^D9,
17801 <T=T+1
17802 XX=XX/2
17803 ZZ=ZZ-1000
17804 DFARP T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0
17805 >
17806 000301 T=T+1
17807 000400 XX=XX/2
17808 200400 ZZ=ZZ-1000
17809 DFARP T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^
17810 DMOVE AC,[200000+XX,,0
17811 047673 120 04 0 00 070745 0,,0]
17812 DFAD AC,[200000,,0
17813 047674 110 04 0 00 070743 0,,0]
17814 047675 312 04 0 00 070614 CAME AC,[ZZ,,0]
17815 047676 003 04 0 00 000301 ER3 AC,T
17816 047677 312 05 0 00 070660 CAME AC+1,[0,,0]
17817 047700 004 05 0 00 000301 ER4 AC+1,T
17818 047701 321 10 0 00 047673 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17819
17820 000302 T=T+1
17821 000200 XX=XX/2
17822 177400 ZZ=ZZ-1000
17823 DFARP T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^
17824 DMOVE AC,[200000+XX,,0
17825 047702 120 04 0 00 070747 0,,0]
17826 DFAD AC,[200000,,0
17827 047703 110 04 0 00 070743 0,,0]
17828 047704 312 04 0 00 070636 CAME AC,[ZZ,,0]
17829 047705 003 04 0 00 000302 ER3 AC,T
17830 047706 312 05 0 00 070660 CAME AC+1,[0,,0]
17831 047707 004 05 0 00 000302 ER4 AC+1,T
17832 047710 321 10 0 00 047702 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17833
17834 000303 T=T+1
17835 000100 XX=XX/2
17836 176400 ZZ=ZZ-1000
17837 DFARP T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^
17838 DMOVE AC,[200000+XX,,0
17839 047711 120 04 0 00 070751 0,,0]
17840 DFAD AC,[200000,,0
17841 047712 110 04 0 00 070743 0,,0]
17842 047713 312 04 0 00 070753 CAME AC,[ZZ,,0]
17843 047714 003 04 0 00 000303 ER3 AC,T
17844 047715 312 05 0 00 070660 CAME AC+1,[0,,0]
17845 047716 004 05 0 00 000303 ER4 AC+1,T
17846 047717 321 10 0 00 047711 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17847
17848 000304 T=T+1
17849 000040 XX=XX/2
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-1
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0447
17850 175400 ZZ=ZZ-1000
17851 DFARP T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^
17852 DMOVE AC,[200000+XX,,0
17853 047720 120 04 0 00 070754 0,,0]
17854 DFAD AC,[200000,,0
17855 047721 110 04 0 00 070743 0,,0]
17856 047722 312 04 0 00 070756 CAME AC,[ZZ,,0]
17857 047723 003 04 0 00 000304 ER3 AC,T
17858 047724 312 05 0 00 070660 CAME AC+1,[0,,0]
17859 047725 004 05 0 00 000304 ER4 AC+1,T
17860 047726 321 10 0 00 047720 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17861
17862 000305 T=T+1
17863 000020 XX=XX/2
17864 174400 ZZ=ZZ-1000
17865 DFARP T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^
17866 DMOVE AC,[200000+XX,,0
17867 047727 120 04 0 00 070757 0,,0]
17868 DFAD AC,[200000,,0
17869 047730 110 04 0 00 070743 0,,0]
17870 047731 312 04 0 00 070761 CAME AC,[ZZ,,0]
17871 047732 003 04 0 00 000305 ER3 AC,T
17872 047733 312 05 0 00 070660 CAME AC+1,[0,,0]
17873 047734 004 05 0 00 000305 ER4 AC+1,T
17874 047735 321 10 0 00 047727 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17875
17876 000306 T=T+1
17877 000010 XX=XX/2
17878 173400 ZZ=ZZ-1000
17879 DFARP T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^
17880 DMOVE AC,[200000+XX,,0
17881 047736 120 04 0 00 070762 0,,0]
17882 DFAD AC,[200000,,0
17883 047737 110 04 0 00 070743 0,,0]
17884 047740 312 04 0 00 070764 CAME AC,[ZZ,,0]
17885 047741 003 04 0 00 000306 ER3 AC,T
17886 047742 312 05 0 00 070660 CAME AC+1,[0,,0]
17887 047743 004 05 0 00 000306 ER4 AC+1,T
17888 047744 321 10 0 00 047736 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17889
17890 000307 T=T+1
17891 000004 XX=XX/2
17892 172400 ZZ=ZZ-1000
17893 DFARP T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^
17894 DMOVE AC,[200000+XX,,0
17895 047745 120 04 0 00 070765 0,,0]
17896 DFAD AC,[200000,,0
17897 047746 110 04 0 00 070743 0,,0]
17898 047747 312 04 0 00 070767 CAME AC,[ZZ,,0]
17899 047750 003 04 0 00 000307 ER3 AC,T
17900 047751 312 05 0 00 070660 CAME AC+1,[0,,0]
17901 047752 004 05 0 00 000307 ER4 AC+1,T
17902 047753 321 10 0 00 047745 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17903
17904 000310 T=T+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-2
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0448
17905 000002 XX=XX/2
17906 171400 ZZ=ZZ-1000
17907 DFARP T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^
17908 DMOVE AC,[200000+XX,,0
17909 047754 120 04 0 00 070770 0,,0]
17910 DFAD AC,[200000,,0
17911 047755 110 04 0 00 070743 0,,0]
17912 047756 312 04 0 00 070772 CAME AC,[ZZ,,0]
17913 047757 003 04 0 00 000310 ER3 AC,T
17914 047760 312 05 0 00 070660 CAME AC+1,[0,,0]
17915 047761 004 05 0 00 000310 ER4 AC+1,T
17916 047762 321 10 0 00 047754 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17917
17918 000311 T=T+1
17919 000001 XX=XX/2
17920 170400 ZZ=ZZ-1000
17921 DFARP T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^
17922 DMOVE AC,[200000+XX,,0
17923 047763 120 04 0 00 070773 0,,0]
17924 DFAD AC,[200000,,0
17925 047764 110 04 0 00 070743 0,,0]
17926 047765 312 04 0 00 070775 CAME AC,[ZZ,,0]
17927 047766 003 04 0 00 000311 ER3 AC,T
17928 047767 312 05 0 00 070660 CAME AC+1,[0,,0]
17929 047770 004 05 0 00 000311 ER4 AC+1,T
17930 047771 321 10 0 00 047763 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17931
17932
17933 000001 000000 XX=1000000
17934
17935 REPEAT ^D18,
17936 <T=T+1
17937 XX=XX/2
17938 ZZ=ZZ-1000
17939 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0
17940 >
17941 000312 T=T+1
17942 400000 XX=XX/2
17943 167400 ZZ=ZZ-1000
17944 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
17945 DMOVE AC,[200000,,XX
17946 047772 120 04 0 00 070776 0,,0]
17947 DFAD AC,[200000,,0
17948 047773 110 04 0 00 070743 0,,0]
17949 047774 312 04 0 00 071000 CAME AC,[ZZ,,0]
17950 047775 003 04 0 00 000312 ER3 AC,T
17951 047776 312 05 0 00 070660 CAME AC+1,[0,,0]
17952 047777 004 05 0 00 000312 ER4 AC+1,T
17953 050000 321 10 0 00 047772 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17954
17955 000313 T=T+1
17956 200000 XX=XX/2
17957 166400 ZZ=ZZ-1000
17958 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
17959 DMOVE AC,[200000,,XX
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-3
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0449
17960 050001 120 04 0 00 071001 0,,0]
17961 DFAD AC,[200000,,0
17962 050002 110 04 0 00 070743 0,,0]
17963 050003 312 04 0 00 071003 CAME AC,[ZZ,,0]
17964 050004 003 04 0 00 000313 ER3 AC,T
17965 050005 312 05 0 00 070660 CAME AC+1,[0,,0]
17966 050006 004 05 0 00 000313 ER4 AC+1,T
17967 050007 321 10 0 00 050001 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17968
17969 000314 T=T+1
17970 100000 XX=XX/2
17971 165400 ZZ=ZZ-1000
17972 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
17973 DMOVE AC,[200000,,XX
17974 050010 120 04 0 00 071004 0,,0]
17975 DFAD AC,[200000,,0
17976 050011 110 04 0 00 070743 0,,0]
17977 050012 312 04 0 00 071006 CAME AC,[ZZ,,0]
17978 050013 003 04 0 00 000314 ER3 AC,T
17979 050014 312 05 0 00 070660 CAME AC+1,[0,,0]
17980 050015 004 05 0 00 000314 ER4 AC+1,T
17981 050016 321 10 0 00 050010 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17982
17983 000315 T=T+1
17984 040000 XX=XX/2
17985 164400 ZZ=ZZ-1000
17986 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
17987 DMOVE AC,[200000,,XX
17988 050017 120 04 0 00 071007 0,,0]
17989 DFAD AC,[200000,,0
17990 050020 110 04 0 00 070743 0,,0]
17991 050021 312 04 0 00 071011 CAME AC,[ZZ,,0]
17992 050022 003 04 0 00 000315 ER3 AC,T
17993 050023 312 05 0 00 070660 CAME AC+1,[0,,0]
17994 050024 004 05 0 00 000315 ER4 AC+1,T
17995 050025 321 10 0 00 050017 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
17996
17997 000316 T=T+1
17998 020000 XX=XX/2
17999 163400 ZZ=ZZ-1000
18000 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
18001 DMOVE AC,[200000,,XX
18002 050026 120 04 0 00 071012 0,,0]
18003 DFAD AC,[200000,,0
18004 050027 110 04 0 00 070743 0,,0]
18005 050030 312 04 0 00 071014 CAME AC,[ZZ,,0]
18006 050031 003 04 0 00 000316 ER3 AC,T
18007 050032 312 05 0 00 070660 CAME AC+1,[0,,0]
18008 050033 004 05 0 00 000316 ER4 AC+1,T
18009 050034 321 10 0 00 050026 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18010
18011 000317 T=T+1
18012 010000 XX=XX/2
18013 162400 ZZ=ZZ-1000
18014 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-4
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0450
18015 DMOVE AC,[200000,,XX
18016 050035 120 04 0 00 071015 0,,0]
18017 DFAD AC,[200000,,0
18018 050036 110 04 0 00 070743 0,,0]
18019 050037 312 04 0 00 071017 CAME AC,[ZZ,,0]
18020 050040 003 04 0 00 000317 ER3 AC,T
18021 050041 312 05 0 00 070660 CAME AC+1,[0,,0]
18022 050042 004 05 0 00 000317 ER4 AC+1,T
18023 050043 321 10 0 00 050035 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18024
18025 000320 T=T+1
18026 004000 XX=XX/2
18027 161400 ZZ=ZZ-1000
18028 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
18029 DMOVE AC,[200000,,XX
18030 050044 120 04 0 00 071020 0,,0]
18031 DFAD AC,[200000,,0
18032 050045 110 04 0 00 070743 0,,0]
18033 050046 312 04 0 00 071022 CAME AC,[ZZ,,0]
18034 050047 003 04 0 00 000320 ER3 AC,T
18035 050050 312 05 0 00 070660 CAME AC+1,[0,,0]
18036 050051 004 05 0 00 000320 ER4 AC+1,T
18037 050052 321 10 0 00 050044 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18038
18039 000321 T=T+1
18040 002000 XX=XX/2
18041 160400 ZZ=ZZ-1000
18042 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
18043 DMOVE AC,[200000,,XX
18044 050053 120 04 0 00 071023 0,,0]
18045 DFAD AC,[200000,,0
18046 050054 110 04 0 00 070743 0,,0]
18047 050055 312 04 0 00 071025 CAME AC,[ZZ,,0]
18048 050056 003 04 0 00 000321 ER3 AC,T
18049 050057 312 05 0 00 070660 CAME AC+1,[0,,0]
18050 050060 004 05 0 00 000321 ER4 AC+1,T
18051 050061 321 10 0 00 050053 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18052
18053 000322 T=T+1
18054 001000 XX=XX/2
18055 157400 ZZ=ZZ-1000
18056 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
18057 DMOVE AC,[200000,,XX
18058 050062 120 04 0 00 071026 0,,0]
18059 DFAD AC,[200000,,0
18060 050063 110 04 0 00 070743 0,,0]
18061 050064 312 04 0 00 071030 CAME AC,[ZZ,,0]
18062 050065 003 04 0 00 000322 ER3 AC,T
18063 050066 312 05 0 00 070660 CAME AC+1,[0,,0]
18064 050067 004 05 0 00 000322 ER4 AC+1,T
18065 050070 321 10 0 00 050062 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18066
18067 000323 T=T+1
18068 000400 XX=XX/2
18069 156400 ZZ=ZZ-1000
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-5
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0451
18070 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
18071 DMOVE AC,[200000,,XX
18072 050071 120 04 0 00 071031 0,,0]
18073 DFAD AC,[200000,,0
18074 050072 110 04 0 00 070743 0,,0]
18075 050073 312 04 0 00 071033 CAME AC,[ZZ,,0]
18076 050074 003 04 0 00 000323 ER3 AC,T
18077 050075 312 05 0 00 070660 CAME AC+1,[0,,0]
18078 050076 004 05 0 00 000323 ER4 AC+1,T
18079 050077 321 10 0 00 050071 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18080
18081 000324 T=T+1
18082 000200 XX=XX/2
18083 155400 ZZ=ZZ-1000
18084 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
18085 DMOVE AC,[200000,,XX
18086 050100 120 04 0 00 071034 0,,0]
18087 DFAD AC,[200000,,0
18088 050101 110 04 0 00 070743 0,,0]
18089 050102 312 04 0 00 071036 CAME AC,[ZZ,,0]
18090 050103 003 04 0 00 000324 ER3 AC,T
18091 050104 312 05 0 00 070660 CAME AC+1,[0,,0]
18092 050105 004 05 0 00 000324 ER4 AC+1,T
18093 050106 321 10 0 00 050100 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18094
18095 000325 T=T+1
18096 000100 XX=XX/2
18097 154400 ZZ=ZZ-1000
18098 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
18099 DMOVE AC,[200000,,XX
18100 050107 120 04 0 00 071037 0,,0]
18101 DFAD AC,[200000,,0
18102 050110 110 04 0 00 070743 0,,0]
18103 050111 312 04 0 00 071041 CAME AC,[ZZ,,0]
18104 050112 003 04 0 00 000325 ER3 AC,T
18105 050113 312 05 0 00 070660 CAME AC+1,[0,,0]
18106 050114 004 05 0 00 000325 ER4 AC+1,T
18107 050115 321 10 0 00 050107 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18108
18109 000326 T=T+1
18110 000040 XX=XX/2
18111 153400 ZZ=ZZ-1000
18112 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
18113 DMOVE AC,[200000,,XX
18114 050116 120 04 0 00 071042 0,,0]
18115 DFAD AC,[200000,,0
18116 050117 110 04 0 00 070743 0,,0]
18117 050120 312 04 0 00 071044 CAME AC,[ZZ,,0]
18118 050121 003 04 0 00 000326 ER3 AC,T
18119 050122 312 05 0 00 070660 CAME AC+1,[0,,0]
18120 050123 004 05 0 00 000326 ER4 AC+1,T
18121 050124 321 10 0 00 050116 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18122
18123 000327 T=T+1
18124 000020 XX=XX/2
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-6
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0452
18125 152400 ZZ=ZZ-1000
18126 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
18127 DMOVE AC,[200000,,XX
18128 050125 120 04 0 00 071045 0,,0]
18129 DFAD AC,[200000,,0
18130 050126 110 04 0 00 070743 0,,0]
18131 050127 312 04 0 00 071047 CAME AC,[ZZ,,0]
18132 050130 003 04 0 00 000327 ER3 AC,T
18133 050131 312 05 0 00 070660 CAME AC+1,[0,,0]
18134 050132 004 05 0 00 000327 ER4 AC+1,T
18135 050133 321 10 0 00 050125 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18136
18137 000330 T=T+1
18138 000010 XX=XX/2
18139 151400 ZZ=ZZ-1000
18140 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
18141 DMOVE AC,[200000,,XX
18142 050134 120 04 0 00 071050 0,,0]
18143 DFAD AC,[200000,,0
18144 050135 110 04 0 00 070743 0,,0]
18145 050136 312 04 0 00 071052 CAME AC,[ZZ,,0]
18146 050137 003 04 0 00 000330 ER3 AC,T
18147 050140 312 05 0 00 070660 CAME AC+1,[0,,0]
18148 050141 004 05 0 00 000330 ER4 AC+1,T
18149 050142 321 10 0 00 050134 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18150
18151 000331 T=T+1
18152 000004 XX=XX/2
18153 150400 ZZ=ZZ-1000
18154 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
18155 DMOVE AC,[200000,,XX
18156 050143 120 04 0 00 071053 0,,0]
18157 DFAD AC,[200000,,0
18158 050144 110 04 0 00 070743 0,,0]
18159 050145 312 04 0 00 071055 CAME AC,[ZZ,,0]
18160 050146 003 04 0 00 000331 ER3 AC,T
18161 050147 312 05 0 00 070660 CAME AC+1,[0,,0]
18162 050150 004 05 0 00 000331 ER4 AC+1,T
18163 050151 321 10 0 00 050143 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18164
18165 000332 T=T+1
18166 000002 XX=XX/2
18167 147400 ZZ=ZZ-1000
18168 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
18169 DMOVE AC,[200000,,XX
18170 050152 120 04 0 00 071056 0,,0]
18171 DFAD AC,[200000,,0
18172 050153 110 04 0 00 070743 0,,0]
18173 050154 312 04 0 00 071060 CAME AC,[ZZ,,0]
18174 050155 003 04 0 00 000332 ER3 AC,T
18175 050156 312 05 0 00 070660 CAME AC+1,[0,,0]
18176 050157 004 05 0 00 000332 ER4 AC+1,T
18177 050160 321 10 0 00 050152 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18178
18179 000333 T=T+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-7
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0453
18180 000001 XX=XX/2
18181 146400 ZZ=ZZ-1000
18182 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
18183 DMOVE AC,[200000,,XX
18184 050161 120 04 0 00 071061 0,,0]
18185 DFAD AC,[200000,,0
18186 050162 110 04 0 00 070743 0,,0]
18187 050163 312 04 0 00 071063 CAME AC,[ZZ,,0]
18188 050164 003 04 0 00 000333 ER3 AC,T
18189 050165 312 05 0 00 070660 CAME AC+1,[0,,0]
18190 050166 004 05 0 00 000333 ER4 AC+1,T
18191 050167 321 10 0 00 050161 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18192
18193
18194 400000 XX=400000
18195
18196 000334 T=T+1
18197 DFARP T,200000,0,XX,0,200000,0,0,0,0,0,0,0^
18198 DMOVE AC,[200000,,0
18199 050170 120 04 0 00 071064 XX,,0]
18200 DFAD AC,[200000,,0
18201 050171 110 04 0 00 070743 0,,0]
18202 050172 312 04 0 00 070660 CAME AC,[0,,0]
18203 050173 003 04 0 00 000334 ER3 AC,T
18204 050174 312 05 0 00 070660 CAME AC+1,[0,,0]
18205 050175 004 05 0 00 000334 ER4 AC+1,T
18206 050176 321 10 0 00 050170 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18207
18208 REPEAT ^D17,
18209 <T=T+1
18210 XX=XX/2
18211 ZZ=ZZ-1000
18212 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0
18213
18214 >
18215 000335 T=T+1
18216 200000 XX=XX/2
18217 145400 ZZ=ZZ-1000
18218 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
18219 DMOVE AC,[200000,,0
18220 050177 120 04 0 00 071066 XX,,0]
18221 DFAD AC,[200000,,0
18222 050200 110 04 0 00 070743 0,,0]
18223 050201 312 04 0 00 071070 CAME AC,[ZZ,,0]
18224 050202 003 04 0 00 000335 ER3 AC,T
18225 050203 312 05 0 00 070660 CAME AC+1,[0,,0]
18226 050204 004 05 0 00 000335 ER4 AC+1,T
18227 050205 321 10 0 00 050177 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18228
18229
18230 000336 T=T+1
18231 100000 XX=XX/2
18232 144400 ZZ=ZZ-1000
18233 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
18234 DMOVE AC,[200000,,0
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-8
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0454
18235 050206 120 04 0 00 071071 XX,,0]
18236 DFAD AC,[200000,,0
18237 050207 110 04 0 00 070743 0,,0]
18238 050210 312 04 0 00 071073 CAME AC,[ZZ,,0]
18239 050211 003 04 0 00 000336 ER3 AC,T
18240 050212 312 05 0 00 070660 CAME AC+1,[0,,0]
18241 050213 004 05 0 00 000336 ER4 AC+1,T
18242 050214 321 10 0 00 050206 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18243
18244
18245 000337 T=T+1
18246 040000 XX=XX/2
18247 143400 ZZ=ZZ-1000
18248 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
18249 DMOVE AC,[200000,,0
18250 050215 120 04 0 00 071074 XX,,0]
18251 DFAD AC,[200000,,0
18252 050216 110 04 0 00 070743 0,,0]
18253 050217 312 04 0 00 071076 CAME AC,[ZZ,,0]
18254 050220 003 04 0 00 000337 ER3 AC,T
18255 050221 312 05 0 00 070660 CAME AC+1,[0,,0]
18256 050222 004 05 0 00 000337 ER4 AC+1,T
18257 050223 321 10 0 00 050215 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18258
18259
18260 000340 T=T+1
18261 020000 XX=XX/2
18262 142400 ZZ=ZZ-1000
18263 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
18264 DMOVE AC,[200000,,0
18265 050224 120 04 0 00 071077 XX,,0]
18266 DFAD AC,[200000,,0
18267 050225 110 04 0 00 070743 0,,0]
18268 050226 312 04 0 00 071101 CAME AC,[ZZ,,0]
18269 050227 003 04 0 00 000340 ER3 AC,T
18270 050230 312 05 0 00 070660 CAME AC+1,[0,,0]
18271 050231 004 05 0 00 000340 ER4 AC+1,T
18272 050232 321 10 0 00 050224 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18273
18274
18275 000341 T=T+1
18276 010000 XX=XX/2
18277 141400 ZZ=ZZ-1000
18278 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
18279 DMOVE AC,[200000,,0
18280 050233 120 04 0 00 071102 XX,,0]
18281 DFAD AC,[200000,,0
18282 050234 110 04 0 00 070743 0,,0]
18283 050235 312 04 0 00 071104 CAME AC,[ZZ,,0]
18284 050236 003 04 0 00 000341 ER3 AC,T
18285 050237 312 05 0 00 070660 CAME AC+1,[0,,0]
18286 050240 004 05 0 00 000341 ER4 AC+1,T
18287 050241 321 10 0 00 050233 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18288
18289
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-9
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0455
18290 000342 T=T+1
18291 004000 XX=XX/2
18292 140400 ZZ=ZZ-1000
18293 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
18294 DMOVE AC,[200000,,0
18295 050242 120 04 0 00 071105 XX,,0]
18296 DFAD AC,[200000,,0
18297 050243 110 04 0 00 070743 0,,0]
18298 050244 312 04 0 00 071107 CAME AC,[ZZ,,0]
18299 050245 003 04 0 00 000342 ER3 AC,T
18300 050246 312 05 0 00 070660 CAME AC+1,[0,,0]
18301 050247 004 05 0 00 000342 ER4 AC+1,T
18302 050250 321 10 0 00 050242 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18303
18304
18305 000343 T=T+1
18306 002000 XX=XX/2
18307 137400 ZZ=ZZ-1000
18308 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
18309 DMOVE AC,[200000,,0
18310 050251 120 04 0 00 071110 XX,,0]
18311 DFAD AC,[200000,,0
18312 050252 110 04 0 00 070743 0,,0]
18313 050253 312 04 0 00 071112 CAME AC,[ZZ,,0]
18314 050254 003 04 0 00 000343 ER3 AC,T
18315 050255 312 05 0 00 070660 CAME AC+1,[0,,0]
18316 050256 004 05 0 00 000343 ER4 AC+1,T
18317 050257 321 10 0 00 050251 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18318
18319
18320 000344 T=T+1
18321 001000 XX=XX/2
18322 136400 ZZ=ZZ-1000
18323 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
18324 DMOVE AC,[200000,,0
18325 050260 120 04 0 00 071113 XX,,0]
18326 DFAD AC,[200000,,0
18327 050261 110 04 0 00 070743 0,,0]
18328 050262 312 04 0 00 071115 CAME AC,[ZZ,,0]
18329 050263 003 04 0 00 000344 ER3 AC,T
18330 050264 312 05 0 00 070660 CAME AC+1,[0,,0]
18331 050265 004 05 0 00 000344 ER4 AC+1,T
18332 050266 321 10 0 00 050260 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18333
18334
18335 000345 T=T+1
18336 000400 XX=XX/2
18337 135400 ZZ=ZZ-1000
18338 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
18339 DMOVE AC,[200000,,0
18340 050267 120 04 0 00 071116 XX,,0]
18341 DFAD AC,[200000,,0
18342 050270 110 04 0 00 070743 0,,0]
18343 050271 312 04 0 00 071120 CAME AC,[ZZ,,0]
18344 050272 003 04 0 00 000345 ER3 AC,T
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-10
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0456
18345 050273 312 05 0 00 070660 CAME AC+1,[0,,0]
18346 050274 004 05 0 00 000345 ER4 AC+1,T
18347 050275 321 10 0 00 050267 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18348
18349
18350 000346 T=T+1
18351 000200 XX=XX/2
18352 134400 ZZ=ZZ-1000
18353 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
18354 DMOVE AC,[200000,,0
18355 050276 120 04 0 00 071121 XX,,0]
18356 DFAD AC,[200000,,0
18357 050277 110 04 0 00 070743 0,,0]
18358 050300 312 04 0 00 071123 CAME AC,[ZZ,,0]
18359 050301 003 04 0 00 000346 ER3 AC,T
18360 050302 312 05 0 00 070660 CAME AC+1,[0,,0]
18361 050303 004 05 0 00 000346 ER4 AC+1,T
18362 050304 321 10 0 00 050276 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18363
18364
18365 000347 T=T+1
18366 000100 XX=XX/2
18367 133400 ZZ=ZZ-1000
18368 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
18369 DMOVE AC,[200000,,0
18370 050305 120 04 0 00 071124 XX,,0]
18371 DFAD AC,[200000,,0
18372 050306 110 04 0 00 070743 0,,0]
18373 050307 312 04 0 00 071126 CAME AC,[ZZ,,0]
18374 050310 003 04 0 00 000347 ER3 AC,T
18375 050311 312 05 0 00 070660 CAME AC+1,[0,,0]
18376 050312 004 05 0 00 000347 ER4 AC+1,T
18377 050313 321 10 0 00 050305 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18378
18379
18380 000350 T=T+1
18381 000040 XX=XX/2
18382 132400 ZZ=ZZ-1000
18383 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
18384 DMOVE AC,[200000,,0
18385 050314 120 04 0 00 071127 XX,,0]
18386 DFAD AC,[200000,,0
18387 050315 110 04 0 00 070743 0,,0]
18388 050316 312 04 0 00 071131 CAME AC,[ZZ,,0]
18389 050317 003 04 0 00 000350 ER3 AC,T
18390 050320 312 05 0 00 070660 CAME AC+1,[0,,0]
18391 050321 004 05 0 00 000350 ER4 AC+1,T
18392 050322 321 10 0 00 050314 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18393
18394
18395 000351 T=T+1
18396 000020 XX=XX/2
18397 131400 ZZ=ZZ-1000
18398 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
18399 DMOVE AC,[200000,,0
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-11
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0457
18400 050323 120 04 0 00 071132 XX,,0]
18401 DFAD AC,[200000,,0
18402 050324 110 04 0 00 070743 0,,0]
18403 050325 312 04 0 00 071134 CAME AC,[ZZ,,0]
18404 050326 003 04 0 00 000351 ER3 AC,T
18405 050327 312 05 0 00 070660 CAME AC+1,[0,,0]
18406 050330 004 05 0 00 000351 ER4 AC+1,T
18407 050331 321 10 0 00 050323 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18408
18409
18410 000352 T=T+1
18411 000010 XX=XX/2
18412 130400 ZZ=ZZ-1000
18413 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
18414 DMOVE AC,[200000,,0
18415 050332 120 04 0 00 071135 XX,,0]
18416 DFAD AC,[200000,,0
18417 050333 110 04 0 00 070743 0,,0]
18418 050334 312 04 0 00 071137 CAME AC,[ZZ,,0]
18419 050335 003 04 0 00 000352 ER3 AC,T
18420 050336 312 05 0 00 070660 CAME AC+1,[0,,0]
18421 050337 004 05 0 00 000352 ER4 AC+1,T
18422 050340 321 10 0 00 050332 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18423
18424
18425 000353 T=T+1
18426 000004 XX=XX/2
18427 127400 ZZ=ZZ-1000
18428 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
18429 DMOVE AC,[200000,,0
18430 050341 120 04 0 00 071140 XX,,0]
18431 DFAD AC,[200000,,0
18432 050342 110 04 0 00 070743 0,,0]
18433 050343 312 04 0 00 071142 CAME AC,[ZZ,,0]
18434 050344 003 04 0 00 000353 ER3 AC,T
18435 050345 312 05 0 00 070660 CAME AC+1,[0,,0]
18436 050346 004 05 0 00 000353 ER4 AC+1,T
18437 050347 321 10 0 00 050341 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18438
18439
18440 000354 T=T+1
18441 000002 XX=XX/2
18442 126400 ZZ=ZZ-1000
18443 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
18444 DMOVE AC,[200000,,0
18445 050350 120 04 0 00 071143 XX,,0]
18446 DFAD AC,[200000,,0
18447 050351 110 04 0 00 070743 0,,0]
18448 050352 312 04 0 00 071145 CAME AC,[ZZ,,0]
18449 050353 003 04 0 00 000354 ER3 AC,T
18450 050354 312 05 0 00 070660 CAME AC+1,[0,,0]
18451 050355 004 05 0 00 000354 ER4 AC+1,T
18452 050356 321 10 0 00 050350 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18453
18454
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-12
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0458
18455 000355 T=T+1
18456 000001 XX=XX/2
18457 125400 ZZ=ZZ-1000
18458 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
18459 DMOVE AC,[200000,,0
18460 050357 120 04 0 00 071146 XX,,0]
18461 DFAD AC,[200000,,0
18462 050360 110 04 0 00 070743 0,,0]
18463 050361 312 04 0 00 071150 CAME AC,[ZZ,,0]
18464 050362 003 04 0 00 000355 ER3 AC,T
18465 050363 312 05 0 00 070660 CAME AC+1,[0,,0]
18466 050364 004 05 0 00 000355 ER4 AC+1,T
18467 050365 321 10 0 00 050357 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18468
18469
18470
18471 000001 000000 XX=1000000
18472
18473 REPEAT ^D18,
18474 <T=T+1
18475 XX=XX/2
18476 ZZ=ZZ-1000
18477 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0
18478 >
18479 000356 T=T+1
18480 400000 XX=XX/2
18481 124400 ZZ=ZZ-1000
18482 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
18483 DMOVE AC,[200000,,0
18484 050366 120 04 0 00 071151 0,,XX]
18485 DFAD AC,[200000,,0
18486 050367 110 04 0 00 070743 0,,0]
18487 050370 312 04 0 00 071153 CAME AC,[ZZ,,0]
18488 050371 003 04 0 00 000356 ER3 AC,T
18489 050372 312 05 0 00 070660 CAME AC+1,[0,,0]
18490 050373 004 05 0 00 000356 ER4 AC+1,T
18491 050374 321 10 0 00 050366 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18492
18493 000357 T=T+1
18494 200000 XX=XX/2
18495 123400 ZZ=ZZ-1000
18496 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
18497 DMOVE AC,[200000,,0
18498 050375 120 04 0 00 071154 0,,XX]
18499 DFAD AC,[200000,,0
18500 050376 110 04 0 00 070743 0,,0]
18501 050377 312 04 0 00 071156 CAME AC,[ZZ,,0]
18502 050400 003 04 0 00 000357 ER3 AC,T
18503 050401 312 05 0 00 070660 CAME AC+1,[0,,0]
18504 050402 004 05 0 00 000357 ER4 AC+1,T
18505 050403 321 10 0 00 050375 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18506
18507 000360 T=T+1
18508 100000 XX=XX/2
18509 122400 ZZ=ZZ-1000
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-13
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0459
18510 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
18511 DMOVE AC,[200000,,0
18512 050404 120 04 0 00 071157 0,,XX]
18513 DFAD AC,[200000,,0
18514 050405 110 04 0 00 070743 0,,0]
18515 050406 312 04 0 00 071161 CAME AC,[ZZ,,0]
18516 050407 003 04 0 00 000360 ER3 AC,T
18517 050410 312 05 0 00 070660 CAME AC+1,[0,,0]
18518 050411 004 05 0 00 000360 ER4 AC+1,T
18519 050412 321 10 0 00 050404 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18520
18521 000361 T=T+1
18522 040000 XX=XX/2
18523 121400 ZZ=ZZ-1000
18524 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
18525 DMOVE AC,[200000,,0
18526 050413 120 04 0 00 071162 0,,XX]
18527 DFAD AC,[200000,,0
18528 050414 110 04 0 00 070743 0,,0]
18529 050415 312 04 0 00 071164 CAME AC,[ZZ,,0]
18530 050416 003 04 0 00 000361 ER3 AC,T
18531 050417 312 05 0 00 070660 CAME AC+1,[0,,0]
18532 050420 004 05 0 00 000361 ER4 AC+1,T
18533 050421 321 10 0 00 050413 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18534
18535 000362 T=T+1
18536 020000 XX=XX/2
18537 120400 ZZ=ZZ-1000
18538 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
18539 DMOVE AC,[200000,,0
18540 050422 120 04 0 00 071165 0,,XX]
18541 DFAD AC,[200000,,0
18542 050423 110 04 0 00 070743 0,,0]
18543 050424 312 04 0 00 071167 CAME AC,[ZZ,,0]
18544 050425 003 04 0 00 000362 ER3 AC,T
18545 050426 312 05 0 00 070660 CAME AC+1,[0,,0]
18546 050427 004 05 0 00 000362 ER4 AC+1,T
18547 050430 321 10 0 00 050422 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18548
18549 000363 T=T+1
18550 010000 XX=XX/2
18551 117400 ZZ=ZZ-1000
18552 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
18553 DMOVE AC,[200000,,0
18554 050431 120 04 0 00 071170 0,,XX]
18555 DFAD AC,[200000,,0
18556 050432 110 04 0 00 070743 0,,0]
18557 050433 312 04 0 00 071172 CAME AC,[ZZ,,0]
18558 050434 003 04 0 00 000363 ER3 AC,T
18559 050435 312 05 0 00 070660 CAME AC+1,[0,,0]
18560 050436 004 05 0 00 000363 ER4 AC+1,T
18561 050437 321 10 0 00 050431 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18562
18563 000364 T=T+1
18564 004000 XX=XX/2
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-14
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0460
18565 116400 ZZ=ZZ-1000
18566 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
18567 DMOVE AC,[200000,,0
18568 050440 120 04 0 00 071173 0,,XX]
18569 DFAD AC,[200000,,0
18570 050441 110 04 0 00 070743 0,,0]
18571 050442 312 04 0 00 071175 CAME AC,[ZZ,,0]
18572 050443 003 04 0 00 000364 ER3 AC,T
18573 050444 312 05 0 00 070660 CAME AC+1,[0,,0]
18574 050445 004 05 0 00 000364 ER4 AC+1,T
18575 050446 321 10 0 00 050440 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18576
18577 000365 T=T+1
18578 002000 XX=XX/2
18579 115400 ZZ=ZZ-1000
18580 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
18581 DMOVE AC,[200000,,0
18582 050447 120 04 0 00 071176 0,,XX]
18583 DFAD AC,[200000,,0
18584 050450 110 04 0 00 070743 0,,0]
18585 050451 312 04 0 00 071200 CAME AC,[ZZ,,0]
18586 050452 003 04 0 00 000365 ER3 AC,T
18587 050453 312 05 0 00 070660 CAME AC+1,[0,,0]
18588 050454 004 05 0 00 000365 ER4 AC+1,T
18589 050455 321 10 0 00 050447 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18590
18591 000366 T=T+1
18592 001000 XX=XX/2
18593 114400 ZZ=ZZ-1000
18594 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
18595 DMOVE AC,[200000,,0
18596 050456 120 04 0 00 071201 0,,XX]
18597 DFAD AC,[200000,,0
18598 050457 110 04 0 00 070743 0,,0]
18599 050460 312 04 0 00 071203 CAME AC,[ZZ,,0]
18600 050461 003 04 0 00 000366 ER3 AC,T
18601 050462 312 05 0 00 070660 CAME AC+1,[0,,0]
18602 050463 004 05 0 00 000366 ER4 AC+1,T
18603 050464 321 10 0 00 050456 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18604
18605 000367 T=T+1
18606 000400 XX=XX/2
18607 113400 ZZ=ZZ-1000
18608 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
18609 DMOVE AC,[200000,,0
18610 050465 120 04 0 00 071204 0,,XX]
18611 DFAD AC,[200000,,0
18612 050466 110 04 0 00 070743 0,,0]
18613 050467 312 04 0 00 071206 CAME AC,[ZZ,,0]
18614 050470 003 04 0 00 000367 ER3 AC,T
18615 050471 312 05 0 00 070660 CAME AC+1,[0,,0]
18616 050472 004 05 0 00 000367 ER4 AC+1,T
18617 050473 321 10 0 00 050465 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18618
18619 000370 T=T+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-15
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0461
18620 000200 XX=XX/2
18621 112400 ZZ=ZZ-1000
18622 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
18623 DMOVE AC,[200000,,0
18624 050474 120 04 0 00 071207 0,,XX]
18625 DFAD AC,[200000,,0
18626 050475 110 04 0 00 070743 0,,0]
18627 050476 312 04 0 00 071211 CAME AC,[ZZ,,0]
18628 050477 003 04 0 00 000370 ER3 AC,T
18629 050500 312 05 0 00 070660 CAME AC+1,[0,,0]
18630 050501 004 05 0 00 000370 ER4 AC+1,T
18631 050502 321 10 0 00 050474 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18632
18633 000371 T=T+1
18634 000100 XX=XX/2
18635 111400 ZZ=ZZ-1000
18636 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
18637 DMOVE AC,[200000,,0
18638 050503 120 04 0 00 071212 0,,XX]
18639 DFAD AC,[200000,,0
18640 050504 110 04 0 00 070743 0,,0]
18641 050505 312 04 0 00 071214 CAME AC,[ZZ,,0]
18642 050506 003 04 0 00 000371 ER3 AC,T
18643 050507 312 05 0 00 070660 CAME AC+1,[0,,0]
18644 050510 004 05 0 00 000371 ER4 AC+1,T
18645 050511 321 10 0 00 050503 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18646
18647 000372 T=T+1
18648 000040 XX=XX/2
18649 110400 ZZ=ZZ-1000
18650 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
18651 DMOVE AC,[200000,,0
18652 050512 120 04 0 00 071215 0,,XX]
18653 DFAD AC,[200000,,0
18654 050513 110 04 0 00 070743 0,,0]
18655 050514 312 04 0 00 071217 CAME AC,[ZZ,,0]
18656 050515 003 04 0 00 000372 ER3 AC,T
18657 050516 312 05 0 00 070660 CAME AC+1,[0,,0]
18658 050517 004 05 0 00 000372 ER4 AC+1,T
18659 050520 321 10 0 00 050512 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18660
18661 000373 T=T+1
18662 000020 XX=XX/2
18663 107400 ZZ=ZZ-1000
18664 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
18665 DMOVE AC,[200000,,0
18666 050521 120 04 0 00 071220 0,,XX]
18667 DFAD AC,[200000,,0
18668 050522 110 04 0 00 070743 0,,0]
18669 050523 312 04 0 00 071222 CAME AC,[ZZ,,0]
18670 050524 003 04 0 00 000373 ER3 AC,T
18671 050525 312 05 0 00 070660 CAME AC+1,[0,,0]
18672 050526 004 05 0 00 000373 ER4 AC+1,T
18673 050527 321 10 0 00 050521 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18674
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-16
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0462
18675 000374 T=T+1
18676 000010 XX=XX/2
18677 106400 ZZ=ZZ-1000
18678 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
18679 DMOVE AC,[200000,,0
18680 050530 120 04 0 00 071223 0,,XX]
18681 DFAD AC,[200000,,0
18682 050531 110 04 0 00 070743 0,,0]
18683 050532 312 04 0 00 071225 CAME AC,[ZZ,,0]
18684 050533 003 04 0 00 000374 ER3 AC,T
18685 050534 312 05 0 00 070660 CAME AC+1,[0,,0]
18686 050535 004 05 0 00 000374 ER4 AC+1,T
18687 050536 321 10 0 00 050530 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18688
18689 000375 T=T+1
18690 000004 XX=XX/2
18691 105400 ZZ=ZZ-1000
18692 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
18693 DMOVE AC,[200000,,0
18694 050537 120 04 0 00 071226 0,,XX]
18695 DFAD AC,[200000,,0
18696 050540 110 04 0 00 070743 0,,0]
18697 050541 312 04 0 00 071230 CAME AC,[ZZ,,0]
18698 050542 003 04 0 00 000375 ER3 AC,T
18699 050543 312 05 0 00 070660 CAME AC+1,[0,,0]
18700 050544 004 05 0 00 000375 ER4 AC+1,T
18701 050545 321 10 0 00 050537 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18702
18703 000376 T=T+1
18704 000002 XX=XX/2
18705 104400 ZZ=ZZ-1000
18706 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
18707 DMOVE AC,[200000,,0
18708 050546 120 04 0 00 071231 0,,XX]
18709 DFAD AC,[200000,,0
18710 050547 110 04 0 00 070743 0,,0]
18711 050550 312 04 0 00 071233 CAME AC,[ZZ,,0]
18712 050551 003 04 0 00 000376 ER3 AC,T
18713 050552 312 05 0 00 070660 CAME AC+1,[0,,0]
18714 050553 004 05 0 00 000376 ER4 AC+1,T
18715 050554 321 10 0 00 050546 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18716
18717 000377 T=T+1
18718 000001 XX=XX/2
18719 103400 ZZ=ZZ-1000
18720 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
18721 DMOVE AC,[200000,,0
18722 050555 120 04 0 00 071234 0,,XX]
18723 DFAD AC,[200000,,0
18724 050556 110 04 0 00 070743 0,,0]
18725 050557 312 04 0 00 071236 CAME AC,[ZZ,,0]
18726 050560 003 04 0 00 000377 ER3 AC,T
18727 050561 312 05 0 00 070660 CAME AC+1,[0,,0]
18728 050562 004 05 0 00 000377 ER4 AC+1,T
18729 050563 321 10 0 00 050555 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-17
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0463
18730
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0464
18731
18732 ;ADD A FRACTION OF ALL ONES TO A FRACTION OF ALL ZEROS
18733
18734 DFA 4,0,0,0,0,777,-1,-1,-1,777,-1,377777,-1^
18735 R400: DMOVE AC,[0,,0
18736 050564 120 04 0 00 070663 0,,0]
18737 DFAD AC,[777,,-1
18738 050565 110 04 0 00 071237 -1,,-1]
18739 050566 312 04 0 00 071237 CAME AC,[777,,-1]
18740 050567 003 04 0 00 000401 ER3 AC,401
18741 050570 312 05 0 00 071241 CAME AC+1,[377777,,-1]
18742 050571 004 05 0 00 000401 ER4 AC+1,401
18743 050572 321 10 0 00 050564 JUMPL AC+4,R400 ;LOOP ON ERROR SWITCH^
18744
18745 ;ADD A FRACTION OF ALL ZEROS TO A FRACTION OF ALL ONES
18746
18747 DFA 5,777,-1,-1,-1,0,0,0,0,777,-1,377777,-1^
18748 R500: DMOVE AC,[777,,-1
18749 050573 120 04 0 00 071237 -1,,-1]
18750 DFAD AC,[0,,0
18751 050574 110 04 0 00 070663 0,,0]
18752 050575 312 04 0 00 071237 CAME AC,[777,,-1]
18753 050576 003 04 0 00 000501 ER3 AC,501
18754 050577 312 05 0 00 071241 CAME AC+1,[377777,,-1]
18755 050600 004 05 0 00 000501 ER4 AC+1,501
18756 050601 321 10 0 00 050573 JUMPL AC+4,R500 ;LOOP ON ERROR SWITCH^
18757 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-1
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0465
18758 ;RIPPLE ZEROS TESTS (TO A FRACTION OF ALL ZEROS, ADD A RIPPLED ZERO)
18759
18760 000600 T=600
18761 000000 ZZ=0
18762
18763 R600: REPEAT ^D18,
18764 <T=T+1
18765 ZZ=ZZ+ZZ+1
18766 IFE <ZZ-1>,<ZZ=-2>
18767 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ
18768 >
18769 000601 T=T+1
18770 000001 ZZ=ZZ+ZZ+1
18771 777777 777776 IFE <ZZ-1>,<ZZ=-2>
18772 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
18773 DMOVE AC,[0,,0
18774 050602 120 04 0 00 070663 0,,0]
18775 DFAD AC,[777,,-1
18776 050603 110 04 0 00 071242 -1,,ZZ]
18777 050604 312 04 0 00 071237 CAME AC,[777,,-1]
18778 050605 003 04 0 00 000601 ER3 AC,T
18779 050606 312 05 0 00 071244 CAME AC+1,[377777,,ZZ]
18780 050607 004 05 0 00 000601 ER4 AC+1,T
18781 050610 321 10 0 00 050602 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18782
18783 000602 T=T+1
18784 777777 777775 ZZ=ZZ+ZZ+1
18785 IFE <ZZ-1>,<ZZ=-2>
18786 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
18787 DMOVE AC,[0,,0
18788 050611 120 04 0 00 070663 0,,0]
18789 DFAD AC,[777,,-1
18790 050612 110 04 0 00 071245 -1,,ZZ]
18791 050613 312 04 0 00 071237 CAME AC,[777,,-1]
18792 050614 003 04 0 00 000602 ER3 AC,T
18793 050615 312 05 0 00 071247 CAME AC+1,[377777,,ZZ]
18794 050616 004 05 0 00 000602 ER4 AC+1,T
18795 050617 321 10 0 00 050611 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18796
18797 000603 T=T+1
18798 777777 777773 ZZ=ZZ+ZZ+1
18799 IFE <ZZ-1>,<ZZ=-2>
18800 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
18801 DMOVE AC,[0,,0
18802 050620 120 04 0 00 070663 0,,0]
18803 DFAD AC,[777,,-1
18804 050621 110 04 0 00 071250 -1,,ZZ]
18805 050622 312 04 0 00 071237 CAME AC,[777,,-1]
18806 050623 003 04 0 00 000603 ER3 AC,T
18807 050624 312 05 0 00 071252 CAME AC+1,[377777,,ZZ]
18808 050625 004 05 0 00 000603 ER4 AC+1,T
18809 050626 321 10 0 00 050620 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18810
18811 000604 T=T+1
18812 777777 777767 ZZ=ZZ+ZZ+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-2
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0466
18813 IFE <ZZ-1>,<ZZ=-2>
18814 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
18815 DMOVE AC,[0,,0
18816 050627 120 04 0 00 070663 0,,0]
18817 DFAD AC,[777,,-1
18818 050630 110 04 0 00 071253 -1,,ZZ]
18819 050631 312 04 0 00 071237 CAME AC,[777,,-1]
18820 050632 003 04 0 00 000604 ER3 AC,T
18821 050633 312 05 0 00 071255 CAME AC+1,[377777,,ZZ]
18822 050634 004 05 0 00 000604 ER4 AC+1,T
18823 050635 321 10 0 00 050627 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18824
18825 000605 T=T+1
18826 777777 777757 ZZ=ZZ+ZZ+1
18827 IFE <ZZ-1>,<ZZ=-2>
18828 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
18829 DMOVE AC,[0,,0
18830 050636 120 04 0 00 070663 0,,0]
18831 DFAD AC,[777,,-1
18832 050637 110 04 0 00 071256 -1,,ZZ]
18833 050640 312 04 0 00 071237 CAME AC,[777,,-1]
18834 050641 003 04 0 00 000605 ER3 AC,T
18835 050642 312 05 0 00 071260 CAME AC+1,[377777,,ZZ]
18836 050643 004 05 0 00 000605 ER4 AC+1,T
18837 050644 321 10 0 00 050636 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18838
18839 000606 T=T+1
18840 777777 777737 ZZ=ZZ+ZZ+1
18841 IFE <ZZ-1>,<ZZ=-2>
18842 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
18843 DMOVE AC,[0,,0
18844 050645 120 04 0 00 070663 0,,0]
18845 DFAD AC,[777,,-1
18846 050646 110 04 0 00 071261 -1,,ZZ]
18847 050647 312 04 0 00 071237 CAME AC,[777,,-1]
18848 050650 003 04 0 00 000606 ER3 AC,T
18849 050651 312 05 0 00 071263 CAME AC+1,[377777,,ZZ]
18850 050652 004 05 0 00 000606 ER4 AC+1,T
18851 050653 321 10 0 00 050645 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18852
18853 000607 T=T+1
18854 777777 777677 ZZ=ZZ+ZZ+1
18855 IFE <ZZ-1>,<ZZ=-2>
18856 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
18857 DMOVE AC,[0,,0
18858 050654 120 04 0 00 070663 0,,0]
18859 DFAD AC,[777,,-1
18860 050655 110 04 0 00 071264 -1,,ZZ]
18861 050656 312 04 0 00 071237 CAME AC,[777,,-1]
18862 050657 003 04 0 00 000607 ER3 AC,T
18863 050660 312 05 0 00 071266 CAME AC+1,[377777,,ZZ]
18864 050661 004 05 0 00 000607 ER4 AC+1,T
18865 050662 321 10 0 00 050654 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18866
18867 000610 T=T+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-3
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0467
18868 777777 777577 ZZ=ZZ+ZZ+1
18869 IFE <ZZ-1>,<ZZ=-2>
18870 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
18871 DMOVE AC,[0,,0
18872 050663 120 04 0 00 070663 0,,0]
18873 DFAD AC,[777,,-1
18874 050664 110 04 0 00 071267 -1,,ZZ]
18875 050665 312 04 0 00 071237 CAME AC,[777,,-1]
18876 050666 003 04 0 00 000610 ER3 AC,T
18877 050667 312 05 0 00 071271 CAME AC+1,[377777,,ZZ]
18878 050670 004 05 0 00 000610 ER4 AC+1,T
18879 050671 321 10 0 00 050663 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18880
18881 000611 T=T+1
18882 777777 777377 ZZ=ZZ+ZZ+1
18883 IFE <ZZ-1>,<ZZ=-2>
18884 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
18885 DMOVE AC,[0,,0
18886 050672 120 04 0 00 070663 0,,0]
18887 DFAD AC,[777,,-1
18888 050673 110 04 0 00 071272 -1,,ZZ]
18889 050674 312 04 0 00 071237 CAME AC,[777,,-1]
18890 050675 003 04 0 00 000611 ER3 AC,T
18891 050676 312 05 0 00 071274 CAME AC+1,[377777,,ZZ]
18892 050677 004 05 0 00 000611 ER4 AC+1,T
18893 050700 321 10 0 00 050672 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18894
18895 000612 T=T+1
18896 777777 776777 ZZ=ZZ+ZZ+1
18897 IFE <ZZ-1>,<ZZ=-2>
18898 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
18899 DMOVE AC,[0,,0
18900 050701 120 04 0 00 070663 0,,0]
18901 DFAD AC,[777,,-1
18902 050702 110 04 0 00 071275 -1,,ZZ]
18903 050703 312 04 0 00 071237 CAME AC,[777,,-1]
18904 050704 003 04 0 00 000612 ER3 AC,T
18905 050705 312 05 0 00 071277 CAME AC+1,[377777,,ZZ]
18906 050706 004 05 0 00 000612 ER4 AC+1,T
18907 050707 321 10 0 00 050701 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18908
18909 000613 T=T+1
18910 777777 775777 ZZ=ZZ+ZZ+1
18911 IFE <ZZ-1>,<ZZ=-2>
18912 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
18913 DMOVE AC,[0,,0
18914 050710 120 04 0 00 070663 0,,0]
18915 DFAD AC,[777,,-1
18916 050711 110 04 0 00 071300 -1,,ZZ]
18917 050712 312 04 0 00 071237 CAME AC,[777,,-1]
18918 050713 003 04 0 00 000613 ER3 AC,T
18919 050714 312 05 0 00 071302 CAME AC+1,[377777,,ZZ]
18920 050715 004 05 0 00 000613 ER4 AC+1,T
18921 050716 321 10 0 00 050710 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18922
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-4
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0468
18923 000614 T=T+1
18924 777777 773777 ZZ=ZZ+ZZ+1
18925 IFE <ZZ-1>,<ZZ=-2>
18926 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
18927 DMOVE AC,[0,,0
18928 050717 120 04 0 00 070663 0,,0]
18929 DFAD AC,[777,,-1
18930 050720 110 04 0 00 071303 -1,,ZZ]
18931 050721 312 04 0 00 071237 CAME AC,[777,,-1]
18932 050722 003 04 0 00 000614 ER3 AC,T
18933 050723 312 05 0 00 071305 CAME AC+1,[377777,,ZZ]
18934 050724 004 05 0 00 000614 ER4 AC+1,T
18935 050725 321 10 0 00 050717 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18936
18937 000615 T=T+1
18938 777777 767777 ZZ=ZZ+ZZ+1
18939 IFE <ZZ-1>,<ZZ=-2>
18940 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
18941 DMOVE AC,[0,,0
18942 050726 120 04 0 00 070663 0,,0]
18943 DFAD AC,[777,,-1
18944 050727 110 04 0 00 071306 -1,,ZZ]
18945 050730 312 04 0 00 071237 CAME AC,[777,,-1]
18946 050731 003 04 0 00 000615 ER3 AC,T
18947 050732 312 05 0 00 071310 CAME AC+1,[377777,,ZZ]
18948 050733 004 05 0 00 000615 ER4 AC+1,T
18949 050734 321 10 0 00 050726 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18950
18951 000616 T=T+1
18952 777777 757777 ZZ=ZZ+ZZ+1
18953 IFE <ZZ-1>,<ZZ=-2>
18954 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
18955 DMOVE AC,[0,,0
18956 050735 120 04 0 00 070663 0,,0]
18957 DFAD AC,[777,,-1
18958 050736 110 04 0 00 071311 -1,,ZZ]
18959 050737 312 04 0 00 071237 CAME AC,[777,,-1]
18960 050740 003 04 0 00 000616 ER3 AC,T
18961 050741 312 05 0 00 071313 CAME AC+1,[377777,,ZZ]
18962 050742 004 05 0 00 000616 ER4 AC+1,T
18963 050743 321 10 0 00 050735 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18964
18965 000617 T=T+1
18966 777777 737777 ZZ=ZZ+ZZ+1
18967 IFE <ZZ-1>,<ZZ=-2>
18968 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
18969 DMOVE AC,[0,,0
18970 050744 120 04 0 00 070663 0,,0]
18971 DFAD AC,[777,,-1
18972 050745 110 04 0 00 071314 -1,,ZZ]
18973 050746 312 04 0 00 071237 CAME AC,[777,,-1]
18974 050747 003 04 0 00 000617 ER3 AC,T
18975 050750 312 05 0 00 071316 CAME AC+1,[377777,,ZZ]
18976 050751 004 05 0 00 000617 ER4 AC+1,T
18977 050752 321 10 0 00 050744 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-5
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0469
18978
18979 000620 T=T+1
18980 777777 677777 ZZ=ZZ+ZZ+1
18981 IFE <ZZ-1>,<ZZ=-2>
18982 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
18983 DMOVE AC,[0,,0
18984 050753 120 04 0 00 070663 0,,0]
18985 DFAD AC,[777,,-1
18986 050754 110 04 0 00 071317 -1,,ZZ]
18987 050755 312 04 0 00 071237 CAME AC,[777,,-1]
18988 050756 003 04 0 00 000620 ER3 AC,T
18989 050757 312 05 0 00 071321 CAME AC+1,[377777,,ZZ]
18990 050760 004 05 0 00 000620 ER4 AC+1,T
18991 050761 321 10 0 00 050753 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
18992
18993 000621 T=T+1
18994 777777 577777 ZZ=ZZ+ZZ+1
18995 IFE <ZZ-1>,<ZZ=-2>
18996 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
18997 DMOVE AC,[0,,0
18998 050762 120 04 0 00 070663 0,,0]
18999 DFAD AC,[777,,-1
19000 050763 110 04 0 00 071322 -1,,ZZ]
19001 050764 312 04 0 00 071237 CAME AC,[777,,-1]
19002 050765 003 04 0 00 000621 ER3 AC,T
19003 050766 312 05 0 00 071324 CAME AC+1,[377777,,ZZ]
19004 050767 004 05 0 00 000621 ER4 AC+1,T
19005 050770 321 10 0 00 050762 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19006
19007 000622 T=T+1
19008 777777 377777 ZZ=ZZ+ZZ+1
19009 IFE <ZZ-1>,<ZZ=-2>
19010 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
19011 DMOVE AC,[0,,0
19012 050771 120 04 0 00 070663 0,,0]
19013 DFAD AC,[777,,-1
19014 050772 110 04 0 00 071325 -1,,ZZ]
19015 050773 312 04 0 00 071237 CAME AC,[777,,-1]
19016 050774 003 04 0 00 000622 ER3 AC,T
19017 050775 312 05 0 00 071327 CAME AC+1,[377777,,ZZ]
19018 050776 004 05 0 00 000622 ER4 AC+1,T
19019 050777 321 10 0 00 050771 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19020
19021
19022 000000 ZZ=0
19023
19024 REPEAT ^D18,
19025 <T=T+1
19026 ZZ=ZZ+ZZ+1
19027 IFE <ZZ-1>,<ZZ=-2>
19028 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1
19029 >
19030 000623 T=T+1
19031 000001 ZZ=ZZ+ZZ+1
19032 777777 777776 IFE <ZZ-1>,<ZZ=-2>
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-6
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0470
19033 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
19034 DMOVE AC,[0,,0
19035 051000 120 04 0 00 070663 0,,0]
19036 DFAD AC,[777,,-1
19037 051001 110 04 0 00 071330 ZZ,,-1]
19038 051002 312 04 0 00 071237 CAME AC,[777,,-1]
19039 051003 003 04 0 00 000623 ER3 AC,T
19040 051004 312 05 0 00 071332 CAME AC+1,[ZZ&377777,,-1]
19041 051005 004 05 0 00 000623 ER4 AC+1,T
19042 051006 321 10 0 00 051000 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19043
19044 000624 T=T+1
19045 777777 777775 ZZ=ZZ+ZZ+1
19046 IFE <ZZ-1>,<ZZ=-2>
19047 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
19048 DMOVE AC,[0,,0
19049 051007 120 04 0 00 070663 0,,0]
19050 DFAD AC,[777,,-1
19051 051010 110 04 0 00 071333 ZZ,,-1]
19052 051011 312 04 0 00 071237 CAME AC,[777,,-1]
19053 051012 003 04 0 00 000624 ER3 AC,T
19054 051013 312 05 0 00 071335 CAME AC+1,[ZZ&377777,,-1]
19055 051014 004 05 0 00 000624 ER4 AC+1,T
19056 051015 321 10 0 00 051007 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19057
19058 000625 T=T+1
19059 777777 777773 ZZ=ZZ+ZZ+1
19060 IFE <ZZ-1>,<ZZ=-2>
19061 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
19062 DMOVE AC,[0,,0
19063 051016 120 04 0 00 070663 0,,0]
19064 DFAD AC,[777,,-1
19065 051017 110 04 0 00 071336 ZZ,,-1]
19066 051020 312 04 0 00 071237 CAME AC,[777,,-1]
19067 051021 003 04 0 00 000625 ER3 AC,T
19068 051022 312 05 0 00 071340 CAME AC+1,[ZZ&377777,,-1]
19069 051023 004 05 0 00 000625 ER4 AC+1,T
19070 051024 321 10 0 00 051016 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19071
19072 000626 T=T+1
19073 777777 777767 ZZ=ZZ+ZZ+1
19074 IFE <ZZ-1>,<ZZ=-2>
19075 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
19076 DMOVE AC,[0,,0
19077 051025 120 04 0 00 070663 0,,0]
19078 DFAD AC,[777,,-1
19079 051026 110 04 0 00 071341 ZZ,,-1]
19080 051027 312 04 0 00 071237 CAME AC,[777,,-1]
19081 051030 003 04 0 00 000626 ER3 AC,T
19082 051031 312 05 0 00 071343 CAME AC+1,[ZZ&377777,,-1]
19083 051032 004 05 0 00 000626 ER4 AC+1,T
19084 051033 321 10 0 00 051025 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19085
19086 000627 T=T+1
19087 777777 777757 ZZ=ZZ+ZZ+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-7
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0471
19088 IFE <ZZ-1>,<ZZ=-2>
19089 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
19090 DMOVE AC,[0,,0
19091 051034 120 04 0 00 070663 0,,0]
19092 DFAD AC,[777,,-1
19093 051035 110 04 0 00 071344 ZZ,,-1]
19094 051036 312 04 0 00 071237 CAME AC,[777,,-1]
19095 051037 003 04 0 00 000627 ER3 AC,T
19096 051040 312 05 0 00 071346 CAME AC+1,[ZZ&377777,,-1]
19097 051041 004 05 0 00 000627 ER4 AC+1,T
19098 051042 321 10 0 00 051034 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19099
19100 000630 T=T+1
19101 777777 777737 ZZ=ZZ+ZZ+1
19102 IFE <ZZ-1>,<ZZ=-2>
19103 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
19104 DMOVE AC,[0,,0
19105 051043 120 04 0 00 070663 0,,0]
19106 DFAD AC,[777,,-1
19107 051044 110 04 0 00 071347 ZZ,,-1]
19108 051045 312 04 0 00 071237 CAME AC,[777,,-1]
19109 051046 003 04 0 00 000630 ER3 AC,T
19110 051047 312 05 0 00 071351 CAME AC+1,[ZZ&377777,,-1]
19111 051050 004 05 0 00 000630 ER4 AC+1,T
19112 051051 321 10 0 00 051043 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19113
19114 000631 T=T+1
19115 777777 777677 ZZ=ZZ+ZZ+1
19116 IFE <ZZ-1>,<ZZ=-2>
19117 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
19118 DMOVE AC,[0,,0
19119 051052 120 04 0 00 070663 0,,0]
19120 DFAD AC,[777,,-1
19121 051053 110 04 0 00 071352 ZZ,,-1]
19122 051054 312 04 0 00 071237 CAME AC,[777,,-1]
19123 051055 003 04 0 00 000631 ER3 AC,T
19124 051056 312 05 0 00 071354 CAME AC+1,[ZZ&377777,,-1]
19125 051057 004 05 0 00 000631 ER4 AC+1,T
19126 051060 321 10 0 00 051052 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19127
19128 000632 T=T+1
19129 777777 777577 ZZ=ZZ+ZZ+1
19130 IFE <ZZ-1>,<ZZ=-2>
19131 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
19132 DMOVE AC,[0,,0
19133 051061 120 04 0 00 070663 0,,0]
19134 DFAD AC,[777,,-1
19135 051062 110 04 0 00 071355 ZZ,,-1]
19136 051063 312 04 0 00 071237 CAME AC,[777,,-1]
19137 051064 003 04 0 00 000632 ER3 AC,T
19138 051065 312 05 0 00 071357 CAME AC+1,[ZZ&377777,,-1]
19139 051066 004 05 0 00 000632 ER4 AC+1,T
19140 051067 321 10 0 00 051061 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19141
19142 000633 T=T+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-8
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0472
19143 777777 777377 ZZ=ZZ+ZZ+1
19144 IFE <ZZ-1>,<ZZ=-2>
19145 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
19146 DMOVE AC,[0,,0
19147 051070 120 04 0 00 070663 0,,0]
19148 DFAD AC,[777,,-1
19149 051071 110 04 0 00 071360 ZZ,,-1]
19150 051072 312 04 0 00 071237 CAME AC,[777,,-1]
19151 051073 003 04 0 00 000633 ER3 AC,T
19152 051074 312 05 0 00 071362 CAME AC+1,[ZZ&377777,,-1]
19153 051075 004 05 0 00 000633 ER4 AC+1,T
19154 051076 321 10 0 00 051070 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19155
19156 000634 T=T+1
19157 777777 776777 ZZ=ZZ+ZZ+1
19158 IFE <ZZ-1>,<ZZ=-2>
19159 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
19160 DMOVE AC,[0,,0
19161 051077 120 04 0 00 070663 0,,0]
19162 DFAD AC,[777,,-1
19163 051100 110 04 0 00 071363 ZZ,,-1]
19164 051101 312 04 0 00 071237 CAME AC,[777,,-1]
19165 051102 003 04 0 00 000634 ER3 AC,T
19166 051103 312 05 0 00 071365 CAME AC+1,[ZZ&377777,,-1]
19167 051104 004 05 0 00 000634 ER4 AC+1,T
19168 051105 321 10 0 00 051077 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19169
19170 000635 T=T+1
19171 777777 775777 ZZ=ZZ+ZZ+1
19172 IFE <ZZ-1>,<ZZ=-2>
19173 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
19174 DMOVE AC,[0,,0
19175 051106 120 04 0 00 070663 0,,0]
19176 DFAD AC,[777,,-1
19177 051107 110 04 0 00 071366 ZZ,,-1]
19178 051110 312 04 0 00 071237 CAME AC,[777,,-1]
19179 051111 003 04 0 00 000635 ER3 AC,T
19180 051112 312 05 0 00 071370 CAME AC+1,[ZZ&377777,,-1]
19181 051113 004 05 0 00 000635 ER4 AC+1,T
19182 051114 321 10 0 00 051106 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19183
19184 000636 T=T+1
19185 777777 773777 ZZ=ZZ+ZZ+1
19186 IFE <ZZ-1>,<ZZ=-2>
19187 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
19188 DMOVE AC,[0,,0
19189 051115 120 04 0 00 070663 0,,0]
19190 DFAD AC,[777,,-1
19191 051116 110 04 0 00 071371 ZZ,,-1]
19192 051117 312 04 0 00 071237 CAME AC,[777,,-1]
19193 051120 003 04 0 00 000636 ER3 AC,T
19194 051121 312 05 0 00 071373 CAME AC+1,[ZZ&377777,,-1]
19195 051122 004 05 0 00 000636 ER4 AC+1,T
19196 051123 321 10 0 00 051115 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19197
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-9
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0473
19198 000637 T=T+1
19199 777777 767777 ZZ=ZZ+ZZ+1
19200 IFE <ZZ-1>,<ZZ=-2>
19201 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
19202 DMOVE AC,[0,,0
19203 051124 120 04 0 00 070663 0,,0]
19204 DFAD AC,[777,,-1
19205 051125 110 04 0 00 071374 ZZ,,-1]
19206 051126 312 04 0 00 071237 CAME AC,[777,,-1]
19207 051127 003 04 0 00 000637 ER3 AC,T
19208 051130 312 05 0 00 071376 CAME AC+1,[ZZ&377777,,-1]
19209 051131 004 05 0 00 000637 ER4 AC+1,T
19210 051132 321 10 0 00 051124 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19211
19212 000640 T=T+1
19213 777777 757777 ZZ=ZZ+ZZ+1
19214 IFE <ZZ-1>,<ZZ=-2>
19215 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
19216 DMOVE AC,[0,,0
19217 051133 120 04 0 00 070663 0,,0]
19218 DFAD AC,[777,,-1
19219 051134 110 04 0 00 071377 ZZ,,-1]
19220 051135 312 04 0 00 071237 CAME AC,[777,,-1]
19221 051136 003 04 0 00 000640 ER3 AC,T
19222 051137 312 05 0 00 071401 CAME AC+1,[ZZ&377777,,-1]
19223 051140 004 05 0 00 000640 ER4 AC+1,T
19224 051141 321 10 0 00 051133 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19225
19226 000641 T=T+1
19227 777777 737777 ZZ=ZZ+ZZ+1
19228 IFE <ZZ-1>,<ZZ=-2>
19229 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
19230 DMOVE AC,[0,,0
19231 051142 120 04 0 00 070663 0,,0]
19232 DFAD AC,[777,,-1
19233 051143 110 04 0 00 071402 ZZ,,-1]
19234 051144 312 04 0 00 071237 CAME AC,[777,,-1]
19235 051145 003 04 0 00 000641 ER3 AC,T
19236 051146 312 05 0 00 071404 CAME AC+1,[ZZ&377777,,-1]
19237 051147 004 05 0 00 000641 ER4 AC+1,T
19238 051150 321 10 0 00 051142 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19239
19240 000642 T=T+1
19241 777777 677777 ZZ=ZZ+ZZ+1
19242 IFE <ZZ-1>,<ZZ=-2>
19243 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
19244 DMOVE AC,[0,,0
19245 051151 120 04 0 00 070663 0,,0]
19246 DFAD AC,[777,,-1
19247 051152 110 04 0 00 071405 ZZ,,-1]
19248 051153 312 04 0 00 071237 CAME AC,[777,,-1]
19249 051154 003 04 0 00 000642 ER3 AC,T
19250 051155 312 05 0 00 071407 CAME AC+1,[ZZ&377777,,-1]
19251 051156 004 05 0 00 000642 ER4 AC+1,T
19252 051157 321 10 0 00 051151 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-10
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0474
19253
19254 000643 T=T+1
19255 777777 577777 ZZ=ZZ+ZZ+1
19256 IFE <ZZ-1>,<ZZ=-2>
19257 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
19258 DMOVE AC,[0,,0
19259 051160 120 04 0 00 070663 0,,0]
19260 DFAD AC,[777,,-1
19261 051161 110 04 0 00 071410 ZZ,,-1]
19262 051162 312 04 0 00 071237 CAME AC,[777,,-1]
19263 051163 003 04 0 00 000643 ER3 AC,T
19264 051164 312 05 0 00 071412 CAME AC+1,[ZZ&377777,,-1]
19265 051165 004 05 0 00 000643 ER4 AC+1,T
19266 051166 321 10 0 00 051160 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19267
19268 000644 T=T+1
19269 777777 377777 ZZ=ZZ+ZZ+1
19270 IFE <ZZ-1>,<ZZ=-2>
19271 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
19272 DMOVE AC,[0,,0
19273 051167 120 04 0 00 070663 0,,0]
19274 DFAD AC,[777,,-1
19275 051170 110 04 0 00 071413 ZZ,,-1]
19276 051171 312 04 0 00 071237 CAME AC,[777,,-1]
19277 051172 003 04 0 00 000644 ER3 AC,T
19278 051173 312 05 0 00 071241 CAME AC+1,[ZZ&377777,,-1]
19279 051174 004 05 0 00 000644 ER4 AC+1,T
19280 051175 321 10 0 00 051167 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19281
19282
19283 000000 ZZ=0
19284
19285 REPEAT ^D18,
19286 <T=T+1
19287 ZZ=ZZ+ZZ+1
19288 IFE <ZZ-1>,<ZZ=-2>
19289 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1
19290 >
19291 000645 T=T+1
19292 000001 ZZ=ZZ+ZZ+1
19293 777777 777776 IFE <ZZ-1>,<ZZ=-2>
19294 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
19295 DMOVE AC,[0,,0
19296 051176 120 04 0 00 070663 0,,0]
19297 DFAD AC,[777,,ZZ
19298 051177 110 04 0 00 071415 -1,,-1]
19299 051200 312 04 0 00 071415 CAME AC,[777,,ZZ]
19300 051201 003 04 0 00 000645 ER3 AC,T
19301 051202 312 05 0 00 071241 CAME AC+1,[377777,,-1]
19302 051203 004 05 0 00 000645 ER4 AC+1,T
19303 051204 321 10 0 00 051176 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19304
19305 000646 T=T+1
19306 777777 777775 ZZ=ZZ+ZZ+1
19307 IFE <ZZ-1>,<ZZ=-2>
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-11
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0475
19308 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
19309 DMOVE AC,[0,,0
19310 051205 120 04 0 00 070663 0,,0]
19311 DFAD AC,[777,,ZZ
19312 051206 110 04 0 00 071417 -1,,-1]
19313 051207 312 04 0 00 071417 CAME AC,[777,,ZZ]
19314 051210 003 04 0 00 000646 ER3 AC,T
19315 051211 312 05 0 00 071241 CAME AC+1,[377777,,-1]
19316 051212 004 05 0 00 000646 ER4 AC+1,T
19317 051213 321 10 0 00 051205 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19318
19319 000647 T=T+1
19320 777777 777773 ZZ=ZZ+ZZ+1
19321 IFE <ZZ-1>,<ZZ=-2>
19322 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
19323 DMOVE AC,[0,,0
19324 051214 120 04 0 00 070663 0,,0]
19325 DFAD AC,[777,,ZZ
19326 051215 110 04 0 00 071421 -1,,-1]
19327 051216 312 04 0 00 071421 CAME AC,[777,,ZZ]
19328 051217 003 04 0 00 000647 ER3 AC,T
19329 051220 312 05 0 00 071241 CAME AC+1,[377777,,-1]
19330 051221 004 05 0 00 000647 ER4 AC+1,T
19331 051222 321 10 0 00 051214 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19332
19333 000650 T=T+1
19334 777777 777767 ZZ=ZZ+ZZ+1
19335 IFE <ZZ-1>,<ZZ=-2>
19336 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
19337 DMOVE AC,[0,,0
19338 051223 120 04 0 00 070663 0,,0]
19339 DFAD AC,[777,,ZZ
19340 051224 110 04 0 00 071423 -1,,-1]
19341 051225 312 04 0 00 071423 CAME AC,[777,,ZZ]
19342 051226 003 04 0 00 000650 ER3 AC,T
19343 051227 312 05 0 00 071241 CAME AC+1,[377777,,-1]
19344 051230 004 05 0 00 000650 ER4 AC+1,T
19345 051231 321 10 0 00 051223 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19346
19347 000651 T=T+1
19348 777777 777757 ZZ=ZZ+ZZ+1
19349 IFE <ZZ-1>,<ZZ=-2>
19350 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
19351 DMOVE AC,[0,,0
19352 051232 120 04 0 00 070663 0,,0]
19353 DFAD AC,[777,,ZZ
19354 051233 110 04 0 00 071425 -1,,-1]
19355 051234 312 04 0 00 071425 CAME AC,[777,,ZZ]
19356 051235 003 04 0 00 000651 ER3 AC,T
19357 051236 312 05 0 00 071241 CAME AC+1,[377777,,-1]
19358 051237 004 05 0 00 000651 ER4 AC+1,T
19359 051240 321 10 0 00 051232 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19360
19361 000652 T=T+1
19362 777777 777737 ZZ=ZZ+ZZ+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-12
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0476
19363 IFE <ZZ-1>,<ZZ=-2>
19364 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
19365 DMOVE AC,[0,,0
19366 051241 120 04 0 00 070663 0,,0]
19367 DFAD AC,[777,,ZZ
19368 051242 110 04 0 00 071427 -1,,-1]
19369 051243 312 04 0 00 071427 CAME AC,[777,,ZZ]
19370 051244 003 04 0 00 000652 ER3 AC,T
19371 051245 312 05 0 00 071241 CAME AC+1,[377777,,-1]
19372 051246 004 05 0 00 000652 ER4 AC+1,T
19373 051247 321 10 0 00 051241 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19374
19375 000653 T=T+1
19376 777777 777677 ZZ=ZZ+ZZ+1
19377 IFE <ZZ-1>,<ZZ=-2>
19378 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
19379 DMOVE AC,[0,,0
19380 051250 120 04 0 00 070663 0,,0]
19381 DFAD AC,[777,,ZZ
19382 051251 110 04 0 00 071431 -1,,-1]
19383 051252 312 04 0 00 071431 CAME AC,[777,,ZZ]
19384 051253 003 04 0 00 000653 ER3 AC,T
19385 051254 312 05 0 00 071241 CAME AC+1,[377777,,-1]
19386 051255 004 05 0 00 000653 ER4 AC+1,T
19387 051256 321 10 0 00 051250 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19388
19389 000654 T=T+1
19390 777777 777577 ZZ=ZZ+ZZ+1
19391 IFE <ZZ-1>,<ZZ=-2>
19392 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
19393 DMOVE AC,[0,,0
19394 051257 120 04 0 00 070663 0,,0]
19395 DFAD AC,[777,,ZZ
19396 051260 110 04 0 00 071433 -1,,-1]
19397 051261 312 04 0 00 071433 CAME AC,[777,,ZZ]
19398 051262 003 04 0 00 000654 ER3 AC,T
19399 051263 312 05 0 00 071241 CAME AC+1,[377777,,-1]
19400 051264 004 05 0 00 000654 ER4 AC+1,T
19401 051265 321 10 0 00 051257 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19402
19403 000655 T=T+1
19404 777777 777377 ZZ=ZZ+ZZ+1
19405 IFE <ZZ-1>,<ZZ=-2>
19406 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
19407 DMOVE AC,[0,,0
19408 051266 120 04 0 00 070663 0,,0]
19409 DFAD AC,[777,,ZZ
19410 051267 110 04 0 00 071435 -1,,-1]
19411 051270 312 04 0 00 071435 CAME AC,[777,,ZZ]
19412 051271 003 04 0 00 000655 ER3 AC,T
19413 051272 312 05 0 00 071241 CAME AC+1,[377777,,-1]
19414 051273 004 05 0 00 000655 ER4 AC+1,T
19415 051274 321 10 0 00 051266 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19416
19417 000656 T=T+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-13
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0477
19418 777777 776777 ZZ=ZZ+ZZ+1
19419 IFE <ZZ-1>,<ZZ=-2>
19420 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
19421 DMOVE AC,[0,,0
19422 051275 120 04 0 00 070663 0,,0]
19423 DFAD AC,[777,,ZZ
19424 051276 110 04 0 00 071437 -1,,-1]
19425 051277 312 04 0 00 071437 CAME AC,[777,,ZZ]
19426 051300 003 04 0 00 000656 ER3 AC,T
19427 051301 312 05 0 00 071241 CAME AC+1,[377777,,-1]
19428 051302 004 05 0 00 000656 ER4 AC+1,T
19429 051303 321 10 0 00 051275 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19430
19431 000657 T=T+1
19432 777777 775777 ZZ=ZZ+ZZ+1
19433 IFE <ZZ-1>,<ZZ=-2>
19434 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
19435 DMOVE AC,[0,,0
19436 051304 120 04 0 00 070663 0,,0]
19437 DFAD AC,[777,,ZZ
19438 051305 110 04 0 00 071441 -1,,-1]
19439 051306 312 04 0 00 071441 CAME AC,[777,,ZZ]
19440 051307 003 04 0 00 000657 ER3 AC,T
19441 051310 312 05 0 00 071241 CAME AC+1,[377777,,-1]
19442 051311 004 05 0 00 000657 ER4 AC+1,T
19443 051312 321 10 0 00 051304 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19444
19445 000660 T=T+1
19446 777777 773777 ZZ=ZZ+ZZ+1
19447 IFE <ZZ-1>,<ZZ=-2>
19448 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
19449 DMOVE AC,[0,,0
19450 051313 120 04 0 00 070663 0,,0]
19451 DFAD AC,[777,,ZZ
19452 051314 110 04 0 00 071443 -1,,-1]
19453 051315 312 04 0 00 071443 CAME AC,[777,,ZZ]
19454 051316 003 04 0 00 000660 ER3 AC,T
19455 051317 312 05 0 00 071241 CAME AC+1,[377777,,-1]
19456 051320 004 05 0 00 000660 ER4 AC+1,T
19457 051321 321 10 0 00 051313 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19458
19459 000661 T=T+1
19460 777777 767777 ZZ=ZZ+ZZ+1
19461 IFE <ZZ-1>,<ZZ=-2>
19462 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
19463 DMOVE AC,[0,,0
19464 051322 120 04 0 00 070663 0,,0]
19465 DFAD AC,[777,,ZZ
19466 051323 110 04 0 00 071445 -1,,-1]
19467 051324 312 04 0 00 071445 CAME AC,[777,,ZZ]
19468 051325 003 04 0 00 000661 ER3 AC,T
19469 051326 312 05 0 00 071241 CAME AC+1,[377777,,-1]
19470 051327 004 05 0 00 000661 ER4 AC+1,T
19471 051330 321 10 0 00 051322 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19472
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-14
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0478
19473 000662 T=T+1
19474 777777 757777 ZZ=ZZ+ZZ+1
19475 IFE <ZZ-1>,<ZZ=-2>
19476 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
19477 DMOVE AC,[0,,0
19478 051331 120 04 0 00 070663 0,,0]
19479 DFAD AC,[777,,ZZ
19480 051332 110 04 0 00 071447 -1,,-1]
19481 051333 312 04 0 00 071447 CAME AC,[777,,ZZ]
19482 051334 003 04 0 00 000662 ER3 AC,T
19483 051335 312 05 0 00 071241 CAME AC+1,[377777,,-1]
19484 051336 004 05 0 00 000662 ER4 AC+1,T
19485 051337 321 10 0 00 051331 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19486
19487 000663 T=T+1
19488 777777 737777 ZZ=ZZ+ZZ+1
19489 IFE <ZZ-1>,<ZZ=-2>
19490 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
19491 DMOVE AC,[0,,0
19492 051340 120 04 0 00 070663 0,,0]
19493 DFAD AC,[777,,ZZ
19494 051341 110 04 0 00 071451 -1,,-1]
19495 051342 312 04 0 00 071451 CAME AC,[777,,ZZ]
19496 051343 003 04 0 00 000663 ER3 AC,T
19497 051344 312 05 0 00 071241 CAME AC+1,[377777,,-1]
19498 051345 004 05 0 00 000663 ER4 AC+1,T
19499 051346 321 10 0 00 051340 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19500
19501 000664 T=T+1
19502 777777 677777 ZZ=ZZ+ZZ+1
19503 IFE <ZZ-1>,<ZZ=-2>
19504 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
19505 DMOVE AC,[0,,0
19506 051347 120 04 0 00 070663 0,,0]
19507 DFAD AC,[777,,ZZ
19508 051350 110 04 0 00 071453 -1,,-1]
19509 051351 312 04 0 00 071453 CAME AC,[777,,ZZ]
19510 051352 003 04 0 00 000664 ER3 AC,T
19511 051353 312 05 0 00 071241 CAME AC+1,[377777,,-1]
19512 051354 004 05 0 00 000664 ER4 AC+1,T
19513 051355 321 10 0 00 051347 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19514
19515 000665 T=T+1
19516 777777 577777 ZZ=ZZ+ZZ+1
19517 IFE <ZZ-1>,<ZZ=-2>
19518 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
19519 DMOVE AC,[0,,0
19520 051356 120 04 0 00 070663 0,,0]
19521 DFAD AC,[777,,ZZ
19522 051357 110 04 0 00 071455 -1,,-1]
19523 051360 312 04 0 00 071455 CAME AC,[777,,ZZ]
19524 051361 003 04 0 00 000665 ER3 AC,T
19525 051362 312 05 0 00 071241 CAME AC+1,[377777,,-1]
19526 051363 004 05 0 00 000665 ER4 AC+1,T
19527 051364 321 10 0 00 051356 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-15
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0479
19528
19529 000666 T=T+1
19530 777777 377777 ZZ=ZZ+ZZ+1
19531 IFE <ZZ-1>,<ZZ=-2>
19532 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
19533 DMOVE AC,[0,,0
19534 051365 120 04 0 00 070663 0,,0]
19535 DFAD AC,[777,,ZZ
19536 051366 110 04 0 00 071457 -1,,-1]
19537 051367 312 04 0 00 071457 CAME AC,[777,,ZZ]
19538 051370 003 04 0 00 000666 ER3 AC,T
19539 051371 312 05 0 00 071241 CAME AC+1,[377777,,-1]
19540 051372 004 05 0 00 000666 ER4 AC+1,T
19541 051373 321 10 0 00 051365 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19542
19543
19544 000000 ZZ=0
19545
19546 REPEAT ^D8,
19547 <T=T+1
19548 ZZ=ZZ+ZZ+1
19549 IFE <ZZ-1>,<ZZ=-2>
19550 DFARP T,0,0,0,0,ZZ&777,-1,-1,-1,ZZ&777,-1,377777,-1
19551 >
19552
19553 000667 T=T+1
19554 000001 ZZ=ZZ+ZZ+1
19555 777777 777776 IFE <ZZ-1>,<ZZ=-2>
19556 DFARP T,0,0,0,0,ZZ&777,-1,-1,-1,ZZ&777,-1,377777,-1^
19557 DMOVE AC,[0,,0
19558 051374 120 04 0 00 070663 0,,0]
19559 DFAD AC,[ZZ&777,,-1
19560 051375 110 04 0 00 071461 -1,,-1]
19561 051376 312 04 0 00 071461 CAME AC,[ZZ&777,,-1]
19562 051377 003 04 0 00 000667 ER3 AC,T
19563 051400 312 05 0 00 071241 CAME AC+1,[377777,,-1]
19564 051401 004 05 0 00 000667 ER4 AC+1,T
19565 051402 321 10 0 00 051374 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19566
19567 000670 T=T+1
19568 777777 777775 ZZ=ZZ+ZZ+1
19569 IFE <ZZ-1>,<ZZ=-2>
19570 DFARP T,0,0,0,0,ZZ&777,-1,-1,-1,ZZ&777,-1,377777,-1^
19571 DMOVE AC,[0,,0
19572 051403 120 04 0 00 070663 0,,0]
19573 DFAD AC,[ZZ&777,,-1
19574 051404 110 04 0 00 071463 -1,,-1]
19575 051405 312 04 0 00 071463 CAME AC,[ZZ&777,,-1]
19576 051406 003 04 0 00 000670 ER3 AC,T
19577 051407 312 05 0 00 071241 CAME AC+1,[377777,,-1]
19578 051410 004 05 0 00 000670 ER4 AC+1,T
19579 051411 321 10 0 00 051403 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19580
19581 000671 T=T+1
19582 777777 777773 ZZ=ZZ+ZZ+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-16
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0480
19583 IFE <ZZ-1>,<ZZ=-2>
19584 DFARP T,0,0,0,0,ZZ&777,-1,-1,-1,ZZ&777,-1,377777,-1^
19585 DMOVE AC,[0,,0
19586 051412 120 04 0 00 070663 0,,0]
19587 DFAD AC,[ZZ&777,,-1
19588 051413 110 04 0 00 071465 -1,,-1]
19589 051414 312 04 0 00 071465 CAME AC,[ZZ&777,,-1]
19590 051415 003 04 0 00 000671 ER3 AC,T
19591 051416 312 05 0 00 071241 CAME AC+1,[377777,,-1]
19592 051417 004 05 0 00 000671 ER4 AC+1,T
19593 051420 321 10 0 00 051412 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19594
19595 000672 T=T+1
19596 777777 777767 ZZ=ZZ+ZZ+1
19597 IFE <ZZ-1>,<ZZ=-2>
19598 DFARP T,0,0,0,0,ZZ&777,-1,-1,-1,ZZ&777,-1,377777,-1^
19599 DMOVE AC,[0,,0
19600 051421 120 04 0 00 070663 0,,0]
19601 DFAD AC,[ZZ&777,,-1
19602 051422 110 04 0 00 071467 -1,,-1]
19603 051423 312 04 0 00 071467 CAME AC,[ZZ&777,,-1]
19604 051424 003 04 0 00 000672 ER3 AC,T
19605 051425 312 05 0 00 071241 CAME AC+1,[377777,,-1]
19606 051426 004 05 0 00 000672 ER4 AC+1,T
19607 051427 321 10 0 00 051421 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19608
19609 000673 T=T+1
19610 777777 777757 ZZ=ZZ+ZZ+1
19611 IFE <ZZ-1>,<ZZ=-2>
19612 DFARP T,0,0,0,0,ZZ&777,-1,-1,-1,ZZ&777,-1,377777,-1^
19613 DMOVE AC,[0,,0
19614 051430 120 04 0 00 070663 0,,0]
19615 DFAD AC,[ZZ&777,,-1
19616 051431 110 04 0 00 071471 -1,,-1]
19617 051432 312 04 0 00 071471 CAME AC,[ZZ&777,,-1]
19618 051433 003 04 0 00 000673 ER3 AC,T
19619 051434 312 05 0 00 071241 CAME AC+1,[377777,,-1]
19620 051435 004 05 0 00 000673 ER4 AC+1,T
19621 051436 321 10 0 00 051430 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19622
19623 000674 T=T+1
19624 777777 777737 ZZ=ZZ+ZZ+1
19625 IFE <ZZ-1>,<ZZ=-2>
19626 DFARP T,0,0,0,0,ZZ&777,-1,-1,-1,ZZ&777,-1,377777,-1^
19627 DMOVE AC,[0,,0
19628 051437 120 04 0 00 070663 0,,0]
19629 DFAD AC,[ZZ&777,,-1
19630 051440 110 04 0 00 071473 -1,,-1]
19631 051441 312 04 0 00 071473 CAME AC,[ZZ&777,,-1]
19632 051442 003 04 0 00 000674 ER3 AC,T
19633 051443 312 05 0 00 071241 CAME AC+1,[377777,,-1]
19634 051444 004 05 0 00 000674 ER4 AC+1,T
19635 051445 321 10 0 00 051437 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19636
19637 000675 T=T+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-17
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0481
19638 777777 777677 ZZ=ZZ+ZZ+1
19639 IFE <ZZ-1>,<ZZ=-2>
19640 DFARP T,0,0,0,0,ZZ&777,-1,-1,-1,ZZ&777,-1,377777,-1^
19641 DMOVE AC,[0,,0
19642 051446 120 04 0 00 070663 0,,0]
19643 DFAD AC,[ZZ&777,,-1
19644 051447 110 04 0 00 071475 -1,,-1]
19645 051450 312 04 0 00 071475 CAME AC,[ZZ&777,,-1]
19646 051451 003 04 0 00 000675 ER3 AC,T
19647 051452 312 05 0 00 071241 CAME AC+1,[377777,,-1]
19648 051453 004 05 0 00 000675 ER4 AC+1,T
19649 051454 321 10 0 00 051446 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19650
19651 000676 T=T+1
19652 777777 777577 ZZ=ZZ+ZZ+1
19653 IFE <ZZ-1>,<ZZ=-2>
19654 DFARP T,0,0,0,0,ZZ&777,-1,-1,-1,ZZ&777,-1,377777,-1^
19655 DMOVE AC,[0,,0
19656 051455 120 04 0 00 070663 0,,0]
19657 DFAD AC,[ZZ&777,,-1
19658 051456 110 04 0 00 071477 -1,,-1]
19659 051457 312 04 0 00 071477 CAME AC,[ZZ&777,,-1]
19660 051460 003 04 0 00 000676 ER3 AC,T
19661 051461 312 05 0 00 071241 CAME AC+1,[377777,,-1]
19662 051462 004 05 0 00 000676 ER4 AC+1,T
19663 051463 321 10 0 00 051455 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19664
19665
19666 000677 T=T+1
19667 DFARP T,0,0,0,0,1377,-1,-1,-1,777,-1,377777,-2^
19668 DMOVE AC,[0,,0
19669 051464 120 04 0 00 070663 0,,0]
19670 DFAD AC,[1377,,-1
19671 051465 110 04 0 00 071501 -1,,-1]
19672 051466 312 04 0 00 071237 CAME AC,[777,,-1]
19673 051467 003 04 0 00 000677 ER3 AC,T
19674 051470 312 05 0 00 071244 CAME AC+1,[377777,,-2]
19675 051471 004 05 0 00 000677 ER4 AC+1,T
19676 051472 321 10 0 00 051464 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0482
19677 ;RIPPLE ZEROS TEST (TO A RIPPLED ZERO, ADD A FRACTION OF ALL ZEROS)
19678
19679 000700 T=700
19680 000000 ZZ=0
19681
19682 R700: REPEAT ^D18,
19683 <T=T+1
19684 ZZ=ZZ+ZZ+1
19685 IFE <ZZ-1>,<ZZ=-2>
19686 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ
19687 >
19688 000701 T=T+1
19689 000001 ZZ=ZZ+ZZ+1
19690 777777 777776 IFE <ZZ-1>,<ZZ=-2>
19691 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
19692 DMOVE AC,[777,,-1
19693 051473 120 04 0 00 071242 -1,,ZZ]
19694 DFAD AC,[0,,0
19695 051474 110 04 0 00 070663 0,,0]
19696 051475 312 04 0 00 071237 CAME AC,[777,,-1]
19697 051476 003 04 0 00 000701 ER3 AC,T
19698 051477 312 05 0 00 071244 CAME AC+1,[377777,,ZZ]
19699 051500 004 05 0 00 000701 ER4 AC+1,T
19700 051501 321 10 0 00 051473 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19701
19702 000702 T=T+1
19703 777777 777775 ZZ=ZZ+ZZ+1
19704 IFE <ZZ-1>,<ZZ=-2>
19705 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
19706 DMOVE AC,[777,,-1
19707 051502 120 04 0 00 071245 -1,,ZZ]
19708 DFAD AC,[0,,0
19709 051503 110 04 0 00 070663 0,,0]
19710 051504 312 04 0 00 071237 CAME AC,[777,,-1]
19711 051505 003 04 0 00 000702 ER3 AC,T
19712 051506 312 05 0 00 071247 CAME AC+1,[377777,,ZZ]
19713 051507 004 05 0 00 000702 ER4 AC+1,T
19714 051510 321 10 0 00 051502 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19715
19716 000703 T=T+1
19717 777777 777773 ZZ=ZZ+ZZ+1
19718 IFE <ZZ-1>,<ZZ=-2>
19719 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
19720 DMOVE AC,[777,,-1
19721 051511 120 04 0 00 071250 -1,,ZZ]
19722 DFAD AC,[0,,0
19723 051512 110 04 0 00 070663 0,,0]
19724 051513 312 04 0 00 071237 CAME AC,[777,,-1]
19725 051514 003 04 0 00 000703 ER3 AC,T
19726 051515 312 05 0 00 071252 CAME AC+1,[377777,,ZZ]
19727 051516 004 05 0 00 000703 ER4 AC+1,T
19728 051517 321 10 0 00 051511 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19729
19730 000704 T=T+1
19731 777777 777767 ZZ=ZZ+ZZ+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5-1
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0483
19732 IFE <ZZ-1>,<ZZ=-2>
19733 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
19734 DMOVE AC,[777,,-1
19735 051520 120 04 0 00 071253 -1,,ZZ]
19736 DFAD AC,[0,,0
19737 051521 110 04 0 00 070663 0,,0]
19738 051522 312 04 0 00 071237 CAME AC,[777,,-1]
19739 051523 003 04 0 00 000704 ER3 AC,T
19740 051524 312 05 0 00 071255 CAME AC+1,[377777,,ZZ]
19741 051525 004 05 0 00 000704 ER4 AC+1,T
19742 051526 321 10 0 00 051520 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19743
19744 000705 T=T+1
19745 777777 777757 ZZ=ZZ+ZZ+1
19746 IFE <ZZ-1>,<ZZ=-2>
19747 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
19748 DMOVE AC,[777,,-1
19749 051527 120 04 0 00 071256 -1,,ZZ]
19750 DFAD AC,[0,,0
19751 051530 110 04 0 00 070663 0,,0]
19752 051531 312 04 0 00 071237 CAME AC,[777,,-1]
19753 051532 003 04 0 00 000705 ER3 AC,T
19754 051533 312 05 0 00 071260 CAME AC+1,[377777,,ZZ]
19755 051534 004 05 0 00 000705 ER4 AC+1,T
19756 051535 321 10 0 00 051527 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19757
19758 000706 T=T+1
19759 777777 777737 ZZ=ZZ+ZZ+1
19760 IFE <ZZ-1>,<ZZ=-2>
19761 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
19762 DMOVE AC,[777,,-1
19763 051536 120 04 0 00 071261 -1,,ZZ]
19764 DFAD AC,[0,,0
19765 051537 110 04 0 00 070663 0,,0]
19766 051540 312 04 0 00 071237 CAME AC,[777,,-1]
19767 051541 003 04 0 00 000706 ER3 AC,T
19768 051542 312 05 0 00 071263 CAME AC+1,[377777,,ZZ]
19769 051543 004 05 0 00 000706 ER4 AC+1,T
19770 051544 321 10 0 00 051536 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19771
19772 000707 T=T+1
19773 777777 777677 ZZ=ZZ+ZZ+1
19774 IFE <ZZ-1>,<ZZ=-2>
19775 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
19776 DMOVE AC,[777,,-1
19777 051545 120 04 0 00 071264 -1,,ZZ]
19778 DFAD AC,[0,,0
19779 051546 110 04 0 00 070663 0,,0]
19780 051547 312 04 0 00 071237 CAME AC,[777,,-1]
19781 051550 003 04 0 00 000707 ER3 AC,T
19782 051551 312 05 0 00 071266 CAME AC+1,[377777,,ZZ]
19783 051552 004 05 0 00 000707 ER4 AC+1,T
19784 051553 321 10 0 00 051545 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19785
19786 000710 T=T+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5-2
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0484
19787 777777 777577 ZZ=ZZ+ZZ+1
19788 IFE <ZZ-1>,<ZZ=-2>
19789 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
19790 DMOVE AC,[777,,-1
19791 051554 120 04 0 00 071267 -1,,ZZ]
19792 DFAD AC,[0,,0
19793 051555 110 04 0 00 070663 0,,0]
19794 051556 312 04 0 00 071237 CAME AC,[777,,-1]
19795 051557 003 04 0 00 000710 ER3 AC,T
19796 051560 312 05 0 00 071271 CAME AC+1,[377777,,ZZ]
19797 051561 004 05 0 00 000710 ER4 AC+1,T
19798 051562 321 10 0 00 051554 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19799
19800 000711 T=T+1
19801 777777 777377 ZZ=ZZ+ZZ+1
19802 IFE <ZZ-1>,<ZZ=-2>
19803 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
19804 DMOVE AC,[777,,-1
19805 051563 120 04 0 00 071272 -1,,ZZ]
19806 DFAD AC,[0,,0
19807 051564 110 04 0 00 070663 0,,0]
19808 051565 312 04 0 00 071237 CAME AC,[777,,-1]
19809 051566 003 04 0 00 000711 ER3 AC,T
19810 051567 312 05 0 00 071274 CAME AC+1,[377777,,ZZ]
19811 051570 004 05 0 00 000711 ER4 AC+1,T
19812 051571 321 10 0 00 051563 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19813
19814 000712 T=T+1
19815 777777 776777 ZZ=ZZ+ZZ+1
19816 IFE <ZZ-1>,<ZZ=-2>
19817 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
19818 DMOVE AC,[777,,-1
19819 051572 120 04 0 00 071275 -1,,ZZ]
19820 DFAD AC,[0,,0
19821 051573 110 04 0 00 070663 0,,0]
19822 051574 312 04 0 00 071237 CAME AC,[777,,-1]
19823 051575 003 04 0 00 000712 ER3 AC,T
19824 051576 312 05 0 00 071277 CAME AC+1,[377777,,ZZ]
19825 051577 004 05 0 00 000712 ER4 AC+1,T
19826 051600 321 10 0 00 051572 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19827
19828 000713 T=T+1
19829 777777 775777 ZZ=ZZ+ZZ+1
19830 IFE <ZZ-1>,<ZZ=-2>
19831 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
19832 DMOVE AC,[777,,-1
19833 051601 120 04 0 00 071300 -1,,ZZ]
19834 DFAD AC,[0,,0
19835 051602 110 04 0 00 070663 0,,0]
19836 051603 312 04 0 00 071237 CAME AC,[777,,-1]
19837 051604 003 04 0 00 000713 ER3 AC,T
19838 051605 312 05 0 00 071302 CAME AC+1,[377777,,ZZ]
19839 051606 004 05 0 00 000713 ER4 AC+1,T
19840 051607 321 10 0 00 051601 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19841
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5-3
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0485
19842 000714 T=T+1
19843 777777 773777 ZZ=ZZ+ZZ+1
19844 IFE <ZZ-1>,<ZZ=-2>
19845 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
19846 DMOVE AC,[777,,-1
19847 051610 120 04 0 00 071303 -1,,ZZ]
19848 DFAD AC,[0,,0
19849 051611 110 04 0 00 070663 0,,0]
19850 051612 312 04 0 00 071237 CAME AC,[777,,-1]
19851 051613 003 04 0 00 000714 ER3 AC,T
19852 051614 312 05 0 00 071305 CAME AC+1,[377777,,ZZ]
19853 051615 004 05 0 00 000714 ER4 AC+1,T
19854 051616 321 10 0 00 051610 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19855
19856 000715 T=T+1
19857 777777 767777 ZZ=ZZ+ZZ+1
19858 IFE <ZZ-1>,<ZZ=-2>
19859 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
19860 DMOVE AC,[777,,-1
19861 051617 120 04 0 00 071306 -1,,ZZ]
19862 DFAD AC,[0,,0
19863 051620 110 04 0 00 070663 0,,0]
19864 051621 312 04 0 00 071237 CAME AC,[777,,-1]
19865 051622 003 04 0 00 000715 ER3 AC,T
19866 051623 312 05 0 00 071310 CAME AC+1,[377777,,ZZ]
19867 051624 004 05 0 00 000715 ER4 AC+1,T
19868 051625 321 10 0 00 051617 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19869
19870 000716 T=T+1
19871 777777 757777 ZZ=ZZ+ZZ+1
19872 IFE <ZZ-1>,<ZZ=-2>
19873 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
19874 DMOVE AC,[777,,-1
19875 051626 120 04 0 00 071311 -1,,ZZ]
19876 DFAD AC,[0,,0
19877 051627 110 04 0 00 070663 0,,0]
19878 051630 312 04 0 00 071237 CAME AC,[777,,-1]
19879 051631 003 04 0 00 000716 ER3 AC,T
19880 051632 312 05 0 00 071313 CAME AC+1,[377777,,ZZ]
19881 051633 004 05 0 00 000716 ER4 AC+1,T
19882 051634 321 10 0 00 051626 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19883
19884 000717 T=T+1
19885 777777 737777 ZZ=ZZ+ZZ+1
19886 IFE <ZZ-1>,<ZZ=-2>
19887 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
19888 DMOVE AC,[777,,-1
19889 051635 120 04 0 00 071314 -1,,ZZ]
19890 DFAD AC,[0,,0
19891 051636 110 04 0 00 070663 0,,0]
19892 051637 312 04 0 00 071237 CAME AC,[777,,-1]
19893 051640 003 04 0 00 000717 ER3 AC,T
19894 051641 312 05 0 00 071316 CAME AC+1,[377777,,ZZ]
19895 051642 004 05 0 00 000717 ER4 AC+1,T
19896 051643 321 10 0 00 051635 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5-4
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0486
19897
19898 000720 T=T+1
19899 777777 677777 ZZ=ZZ+ZZ+1
19900 IFE <ZZ-1>,<ZZ=-2>
19901 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
19902 DMOVE AC,[777,,-1
19903 051644 120 04 0 00 071317 -1,,ZZ]
19904 DFAD AC,[0,,0
19905 051645 110 04 0 00 070663 0,,0]
19906 051646 312 04 0 00 071237 CAME AC,[777,,-1]
19907 051647 003 04 0 00 000720 ER3 AC,T
19908 051650 312 05 0 00 071321 CAME AC+1,[377777,,ZZ]
19909 051651 004 05 0 00 000720 ER4 AC+1,T
19910 051652 321 10 0 00 051644 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19911
19912 000721 T=T+1
19913 777777 577777 ZZ=ZZ+ZZ+1
19914 IFE <ZZ-1>,<ZZ=-2>
19915 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
19916 DMOVE AC,[777,,-1
19917 051653 120 04 0 00 071322 -1,,ZZ]
19918 DFAD AC,[0,,0
19919 051654 110 04 0 00 070663 0,,0]
19920 051655 312 04 0 00 071237 CAME AC,[777,,-1]
19921 051656 003 04 0 00 000721 ER3 AC,T
19922 051657 312 05 0 00 071324 CAME AC+1,[377777,,ZZ]
19923 051660 004 05 0 00 000721 ER4 AC+1,T
19924 051661 321 10 0 00 051653 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19925
19926 000722 T=T+1
19927 777777 377777 ZZ=ZZ+ZZ+1
19928 IFE <ZZ-1>,<ZZ=-2>
19929 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
19930 DMOVE AC,[777,,-1
19931 051662 120 04 0 00 071325 -1,,ZZ]
19932 DFAD AC,[0,,0
19933 051663 110 04 0 00 070663 0,,0]
19934 051664 312 04 0 00 071237 CAME AC,[777,,-1]
19935 051665 003 04 0 00 000722 ER3 AC,T
19936 051666 312 05 0 00 071327 CAME AC+1,[377777,,ZZ]
19937 051667 004 05 0 00 000722 ER4 AC+1,T
19938 051670 321 10 0 00 051662 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19939
19940
19941 000000 ZZ=0
19942
19943 REPEAT ^D18,
19944 <T=T+1
19945 ZZ=ZZ+ZZ+1
19946 IFE <ZZ-1>,<ZZ=-2>
19947 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1
19948 >
19949 000723 T=T+1
19950 000001 ZZ=ZZ+ZZ+1
19951 777777 777776 IFE <ZZ-1>,<ZZ=-2>
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5-5
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0487
19952 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
19953 DMOVE AC,[777,,-1
19954 051671 120 04 0 00 071330 ZZ,,-1]
19955 DFAD AC,[0,,0
19956 051672 110 04 0 00 070663 0,,0]
19957 051673 312 04 0 00 071237 CAME AC,[777,,-1]
19958 051674 003 04 0 00 000723 ER3 AC,T
19959 051675 312 05 0 00 071332 CAME AC+1,[ZZ&377777,,-1]
19960 051676 004 05 0 00 000723 ER4 AC+1,T
19961 051677 321 10 0 00 051671 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19962
19963 000724 T=T+1
19964 777777 777775 ZZ=ZZ+ZZ+1
19965 IFE <ZZ-1>,<ZZ=-2>
19966 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
19967 DMOVE AC,[777,,-1
19968 051700 120 04 0 00 071333 ZZ,,-1]
19969 DFAD AC,[0,,0
19970 051701 110 04 0 00 070663 0,,0]
19971 051702 312 04 0 00 071237 CAME AC,[777,,-1]
19972 051703 003 04 0 00 000724 ER3 AC,T
19973 051704 312 05 0 00 071335 CAME AC+1,[ZZ&377777,,-1]
19974 051705 004 05 0 00 000724 ER4 AC+1,T
19975 051706 321 10 0 00 051700 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19976
19977 000725 T=T+1
19978 777777 777773 ZZ=ZZ+ZZ+1
19979 IFE <ZZ-1>,<ZZ=-2>
19980 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
19981 DMOVE AC,[777,,-1
19982 051707 120 04 0 00 071336 ZZ,,-1]
19983 DFAD AC,[0,,0
19984 051710 110 04 0 00 070663 0,,0]
19985 051711 312 04 0 00 071237 CAME AC,[777,,-1]
19986 051712 003 04 0 00 000725 ER3 AC,T
19987 051713 312 05 0 00 071340 CAME AC+1,[ZZ&377777,,-1]
19988 051714 004 05 0 00 000725 ER4 AC+1,T
19989 051715 321 10 0 00 051707 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
19990
19991 000726 T=T+1
19992 777777 777767 ZZ=ZZ+ZZ+1
19993 IFE <ZZ-1>,<ZZ=-2>
19994 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
19995 DMOVE AC,[777,,-1
19996 051716 120 04 0 00 071341 ZZ,,-1]
19997 DFAD AC,[0,,0
19998 051717 110 04 0 00 070663 0,,0]
19999 051720 312 04 0 00 071237 CAME AC,[777,,-1]
20000 051721 003 04 0 00 000726 ER3 AC,T
20001 051722 312 05 0 00 071343 CAME AC+1,[ZZ&377777,,-1]
20002 051723 004 05 0 00 000726 ER4 AC+1,T
20003 051724 321 10 0 00 051716 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20004
20005 000727 T=T+1
20006 777777 777757 ZZ=ZZ+ZZ+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5-6
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0488
20007 IFE <ZZ-1>,<ZZ=-2>
20008 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
20009 DMOVE AC,[777,,-1
20010 051725 120 04 0 00 071344 ZZ,,-1]
20011 DFAD AC,[0,,0
20012 051726 110 04 0 00 070663 0,,0]
20013 051727 312 04 0 00 071237 CAME AC,[777,,-1]
20014 051730 003 04 0 00 000727 ER3 AC,T
20015 051731 312 05 0 00 071346 CAME AC+1,[ZZ&377777,,-1]
20016 051732 004 05 0 00 000727 ER4 AC+1,T
20017 051733 321 10 0 00 051725 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20018
20019 000730 T=T+1
20020 777777 777737 ZZ=ZZ+ZZ+1
20021 IFE <ZZ-1>,<ZZ=-2>
20022 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
20023 DMOVE AC,[777,,-1
20024 051734 120 04 0 00 071347 ZZ,,-1]
20025 DFAD AC,[0,,0
20026 051735 110 04 0 00 070663 0,,0]
20027 051736 312 04 0 00 071237 CAME AC,[777,,-1]
20028 051737 003 04 0 00 000730 ER3 AC,T
20029 051740 312 05 0 00 071351 CAME AC+1,[ZZ&377777,,-1]
20030 051741 004 05 0 00 000730 ER4 AC+1,T
20031 051742 321 10 0 00 051734 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20032
20033 000731 T=T+1
20034 777777 777677 ZZ=ZZ+ZZ+1
20035 IFE <ZZ-1>,<ZZ=-2>
20036 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
20037 DMOVE AC,[777,,-1
20038 051743 120 04 0 00 071352 ZZ,,-1]
20039 DFAD AC,[0,,0
20040 051744 110 04 0 00 070663 0,,0]
20041 051745 312 04 0 00 071237 CAME AC,[777,,-1]
20042 051746 003 04 0 00 000731 ER3 AC,T
20043 051747 312 05 0 00 071354 CAME AC+1,[ZZ&377777,,-1]
20044 051750 004 05 0 00 000731 ER4 AC+1,T
20045 051751 321 10 0 00 051743 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20046
20047 000732 T=T+1
20048 777777 777577 ZZ=ZZ+ZZ+1
20049 IFE <ZZ-1>,<ZZ=-2>
20050 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
20051 DMOVE AC,[777,,-1
20052 051752 120 04 0 00 071355 ZZ,,-1]
20053 DFAD AC,[0,,0
20054 051753 110 04 0 00 070663 0,,0]
20055 051754 312 04 0 00 071237 CAME AC,[777,,-1]
20056 051755 003 04 0 00 000732 ER3 AC,T
20057 051756 312 05 0 00 071357 CAME AC+1,[ZZ&377777,,-1]
20058 051757 004 05 0 00 000732 ER4 AC+1,T
20059 051760 321 10 0 00 051752 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20060
20061 000733 T=T+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5-7
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0489
20062 777777 777377 ZZ=ZZ+ZZ+1
20063 IFE <ZZ-1>,<ZZ=-2>
20064 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
20065 DMOVE AC,[777,,-1
20066 051761 120 04 0 00 071360 ZZ,,-1]
20067 DFAD AC,[0,,0
20068 051762 110 04 0 00 070663 0,,0]
20069 051763 312 04 0 00 071237 CAME AC,[777,,-1]
20070 051764 003 04 0 00 000733 ER3 AC,T
20071 051765 312 05 0 00 071362 CAME AC+1,[ZZ&377777,,-1]
20072 051766 004 05 0 00 000733 ER4 AC+1,T
20073 051767 321 10 0 00 051761 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20074
20075 000734 T=T+1
20076 777777 776777 ZZ=ZZ+ZZ+1
20077 IFE <ZZ-1>,<ZZ=-2>
20078 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
20079 DMOVE AC,[777,,-1
20080 051770 120 04 0 00 071363 ZZ,,-1]
20081 DFAD AC,[0,,0
20082 051771 110 04 0 00 070663 0,,0]
20083 051772 312 04 0 00 071237 CAME AC,[777,,-1]
20084 051773 003 04 0 00 000734 ER3 AC,T
20085 051774 312 05 0 00 071365 CAME AC+1,[ZZ&377777,,-1]
20086 051775 004 05 0 00 000734 ER4 AC+1,T
20087 051776 321 10 0 00 051770 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20088
20089 000735 T=T+1
20090 777777 775777 ZZ=ZZ+ZZ+1
20091 IFE <ZZ-1>,<ZZ=-2>
20092 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
20093 DMOVE AC,[777,,-1
20094 051777 120 04 0 00 071366 ZZ,,-1]
20095 DFAD AC,[0,,0
20096 052000 110 04 0 00 070663 0,,0]
20097 052001 312 04 0 00 071237 CAME AC,[777,,-1]
20098 052002 003 04 0 00 000735 ER3 AC,T
20099 052003 312 05 0 00 071370 CAME AC+1,[ZZ&377777,,-1]
20100 052004 004 05 0 00 000735 ER4 AC+1,T
20101 052005 321 10 0 00 051777 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20102
20103 000736 T=T+1
20104 777777 773777 ZZ=ZZ+ZZ+1
20105 IFE <ZZ-1>,<ZZ=-2>
20106 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
20107 DMOVE AC,[777,,-1
20108 052006 120 04 0 00 071371 ZZ,,-1]
20109 DFAD AC,[0,,0
20110 052007 110 04 0 00 070663 0,,0]
20111 052010 312 04 0 00 071237 CAME AC,[777,,-1]
20112 052011 003 04 0 00 000736 ER3 AC,T
20113 052012 312 05 0 00 071373 CAME AC+1,[ZZ&377777,,-1]
20114 052013 004 05 0 00 000736 ER4 AC+1,T
20115 052014 321 10 0 00 052006 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20116
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5-8
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0490
20117 000737 T=T+1
20118 777777 767777 ZZ=ZZ+ZZ+1
20119 IFE <ZZ-1>,<ZZ=-2>
20120 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
20121 DMOVE AC,[777,,-1
20122 052015 120 04 0 00 071374 ZZ,,-1]
20123 DFAD AC,[0,,0
20124 052016 110 04 0 00 070663 0,,0]
20125 052017 312 04 0 00 071237 CAME AC,[777,,-1]
20126 052020 003 04 0 00 000737 ER3 AC,T
20127 052021 312 05 0 00 071376 CAME AC+1,[ZZ&377777,,-1]
20128 052022 004 05 0 00 000737 ER4 AC+1,T
20129 052023 321 10 0 00 052015 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20130
20131 000740 T=T+1
20132 777777 757777 ZZ=ZZ+ZZ+1
20133 IFE <ZZ-1>,<ZZ=-2>
20134 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
20135 DMOVE AC,[777,,-1
20136 052024 120 04 0 00 071377 ZZ,,-1]
20137 DFAD AC,[0,,0
20138 052025 110 04 0 00 070663 0,,0]
20139 052026 312 04 0 00 071237 CAME AC,[777,,-1]
20140 052027 003 04 0 00 000740 ER3 AC,T
20141 052030 312 05 0 00 071401 CAME AC+1,[ZZ&377777,,-1]
20142 052031 004 05 0 00 000740 ER4 AC+1,T
20143 052032 321 10 0 00 052024 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20144
20145 000741 T=T+1
20146 777777 737777 ZZ=ZZ+ZZ+1
20147 IFE <ZZ-1>,<ZZ=-2>
20148 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
20149 DMOVE AC,[777,,-1
20150 052033 120 04 0 00 071402 ZZ,,-1]
20151 DFAD AC,[0,,0
20152 052034 110 04 0 00 070663 0,,0]
20153 052035 312 04 0 00 071237 CAME AC,[777,,-1]
20154 052036 003 04 0 00 000741 ER3 AC,T
20155 052037 312 05 0 00 071404 CAME AC+1,[ZZ&377777,,-1]
20156 052040 004 05 0 00 000741 ER4 AC+1,T
20157 052041 321 10 0 00 052033 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20158
20159 000742 T=T+1
20160 777777 677777 ZZ=ZZ+ZZ+1
20161 IFE <ZZ-1>,<ZZ=-2>
20162 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
20163 DMOVE AC,[777,,-1
20164 052042 120 04 0 00 071405 ZZ,,-1]
20165 DFAD AC,[0,,0
20166 052043 110 04 0 00 070663 0,,0]
20167 052044 312 04 0 00 071237 CAME AC,[777,,-1]
20168 052045 003 04 0 00 000742 ER3 AC,T
20169 052046 312 05 0 00 071407 CAME AC+1,[ZZ&377777,,-1]
20170 052047 004 05 0 00 000742 ER4 AC+1,T
20171 052050 321 10 0 00 052042 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5-9
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0491
20172
20173 000743 T=T+1
20174 777777 577777 ZZ=ZZ+ZZ+1
20175 IFE <ZZ-1>,<ZZ=-2>
20176 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
20177 DMOVE AC,[777,,-1
20178 052051 120 04 0 00 071410 ZZ,,-1]
20179 DFAD AC,[0,,0
20180 052052 110 04 0 00 070663 0,,0]
20181 052053 312 04 0 00 071237 CAME AC,[777,,-1]
20182 052054 003 04 0 00 000743 ER3 AC,T
20183 052055 312 05 0 00 071412 CAME AC+1,[ZZ&377777,,-1]
20184 052056 004 05 0 00 000743 ER4 AC+1,T
20185 052057 321 10 0 00 052051 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20186
20187 000744 T=T+1
20188 777777 377777 ZZ=ZZ+ZZ+1
20189 IFE <ZZ-1>,<ZZ=-2>
20190 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
20191 DMOVE AC,[777,,-1
20192 052060 120 04 0 00 071413 ZZ,,-1]
20193 DFAD AC,[0,,0
20194 052061 110 04 0 00 070663 0,,0]
20195 052062 312 04 0 00 071237 CAME AC,[777,,-1]
20196 052063 003 04 0 00 000744 ER3 AC,T
20197 052064 312 05 0 00 071241 CAME AC+1,[ZZ&377777,,-1]
20198 052065 004 05 0 00 000744 ER4 AC+1,T
20199 052066 321 10 0 00 052060 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20200
20201
20202 000000 ZZ=0
20203
20204 REPEAT ^D18,
20205 <T=T+1
20206 ZZ=ZZ+ZZ+1
20207 IFE <ZZ-1>,<ZZ=-2>
20208 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1
20209 >
20210 000745 T=T+1
20211 000001 ZZ=ZZ+ZZ+1
20212 777777 777776 IFE <ZZ-1>,<ZZ=-2>
20213 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
20214 DMOVE AC,[777,,ZZ
20215 052067 120 04 0 00 071415 -1,,-1]
20216 DFAD AC,[0,,0
20217 052070 110 04 0 00 070663 0,,0]
20218 052071 312 04 0 00 071415 CAME AC,[777,,ZZ]
20219 052072 003 04 0 00 000745 ER3 AC,T
20220 052073 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20221 052074 004 05 0 00 000745 ER4 AC+1,T
20222 052075 321 10 0 00 052067 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20223
20224 000746 T=T+1
20225 777777 777775 ZZ=ZZ+ZZ+1
20226 IFE <ZZ-1>,<ZZ=-2>
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5-10
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0492
20227 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
20228 DMOVE AC,[777,,ZZ
20229 052076 120 04 0 00 071417 -1,,-1]
20230 DFAD AC,[0,,0
20231 052077 110 04 0 00 070663 0,,0]
20232 052100 312 04 0 00 071417 CAME AC,[777,,ZZ]
20233 052101 003 04 0 00 000746 ER3 AC,T
20234 052102 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20235 052103 004 05 0 00 000746 ER4 AC+1,T
20236 052104 321 10 0 00 052076 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20237
20238 000747 T=T+1
20239 777777 777773 ZZ=ZZ+ZZ+1
20240 IFE <ZZ-1>,<ZZ=-2>
20241 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
20242 DMOVE AC,[777,,ZZ
20243 052105 120 04 0 00 071421 -1,,-1]
20244 DFAD AC,[0,,0
20245 052106 110 04 0 00 070663 0,,0]
20246 052107 312 04 0 00 071421 CAME AC,[777,,ZZ]
20247 052110 003 04 0 00 000747 ER3 AC,T
20248 052111 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20249 052112 004 05 0 00 000747 ER4 AC+1,T
20250 052113 321 10 0 00 052105 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20251
20252 000750 T=T+1
20253 777777 777767 ZZ=ZZ+ZZ+1
20254 IFE <ZZ-1>,<ZZ=-2>
20255 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
20256 DMOVE AC,[777,,ZZ
20257 052114 120 04 0 00 071423 -1,,-1]
20258 DFAD AC,[0,,0
20259 052115 110 04 0 00 070663 0,,0]
20260 052116 312 04 0 00 071423 CAME AC,[777,,ZZ]
20261 052117 003 04 0 00 000750 ER3 AC,T
20262 052120 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20263 052121 004 05 0 00 000750 ER4 AC+1,T
20264 052122 321 10 0 00 052114 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20265
20266 000751 T=T+1
20267 777777 777757 ZZ=ZZ+ZZ+1
20268 IFE <ZZ-1>,<ZZ=-2>
20269 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
20270 DMOVE AC,[777,,ZZ
20271 052123 120 04 0 00 071425 -1,,-1]
20272 DFAD AC,[0,,0
20273 052124 110 04 0 00 070663 0,,0]
20274 052125 312 04 0 00 071425 CAME AC,[777,,ZZ]
20275 052126 003 04 0 00 000751 ER3 AC,T
20276 052127 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20277 052130 004 05 0 00 000751 ER4 AC+1,T
20278 052131 321 10 0 00 052123 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20279
20280 000752 T=T+1
20281 777777 777737 ZZ=ZZ+ZZ+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5-11
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0493
20282 IFE <ZZ-1>,<ZZ=-2>
20283 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
20284 DMOVE AC,[777,,ZZ
20285 052132 120 04 0 00 071427 -1,,-1]
20286 DFAD AC,[0,,0
20287 052133 110 04 0 00 070663 0,,0]
20288 052134 312 04 0 00 071427 CAME AC,[777,,ZZ]
20289 052135 003 04 0 00 000752 ER3 AC,T
20290 052136 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20291 052137 004 05 0 00 000752 ER4 AC+1,T
20292 052140 321 10 0 00 052132 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20293
20294 000753 T=T+1
20295 777777 777677 ZZ=ZZ+ZZ+1
20296 IFE <ZZ-1>,<ZZ=-2>
20297 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
20298 DMOVE AC,[777,,ZZ
20299 052141 120 04 0 00 071431 -1,,-1]
20300 DFAD AC,[0,,0
20301 052142 110 04 0 00 070663 0,,0]
20302 052143 312 04 0 00 071431 CAME AC,[777,,ZZ]
20303 052144 003 04 0 00 000753 ER3 AC,T
20304 052145 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20305 052146 004 05 0 00 000753 ER4 AC+1,T
20306 052147 321 10 0 00 052141 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20307
20308 000754 T=T+1
20309 777777 777577 ZZ=ZZ+ZZ+1
20310 IFE <ZZ-1>,<ZZ=-2>
20311 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
20312 DMOVE AC,[777,,ZZ
20313 052150 120 04 0 00 071433 -1,,-1]
20314 DFAD AC,[0,,0
20315 052151 110 04 0 00 070663 0,,0]
20316 052152 312 04 0 00 071433 CAME AC,[777,,ZZ]
20317 052153 003 04 0 00 000754 ER3 AC,T
20318 052154 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20319 052155 004 05 0 00 000754 ER4 AC+1,T
20320 052156 321 10 0 00 052150 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20321
20322 000755 T=T+1
20323 777777 777377 ZZ=ZZ+ZZ+1
20324 IFE <ZZ-1>,<ZZ=-2>
20325 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
20326 DMOVE AC,[777,,ZZ
20327 052157 120 04 0 00 071435 -1,,-1]
20328 DFAD AC,[0,,0
20329 052160 110 04 0 00 070663 0,,0]
20330 052161 312 04 0 00 071435 CAME AC,[777,,ZZ]
20331 052162 003 04 0 00 000755 ER3 AC,T
20332 052163 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20333 052164 004 05 0 00 000755 ER4 AC+1,T
20334 052165 321 10 0 00 052157 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20335
20336 000756 T=T+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5-12
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0494
20337 777777 776777 ZZ=ZZ+ZZ+1
20338 IFE <ZZ-1>,<ZZ=-2>
20339 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
20340 DMOVE AC,[777,,ZZ
20341 052166 120 04 0 00 071437 -1,,-1]
20342 DFAD AC,[0,,0
20343 052167 110 04 0 00 070663 0,,0]
20344 052170 312 04 0 00 071437 CAME AC,[777,,ZZ]
20345 052171 003 04 0 00 000756 ER3 AC,T
20346 052172 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20347 052173 004 05 0 00 000756 ER4 AC+1,T
20348 052174 321 10 0 00 052166 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20349
20350 000757 T=T+1
20351 777777 775777 ZZ=ZZ+ZZ+1
20352 IFE <ZZ-1>,<ZZ=-2>
20353 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
20354 DMOVE AC,[777,,ZZ
20355 052175 120 04 0 00 071441 -1,,-1]
20356 DFAD AC,[0,,0
20357 052176 110 04 0 00 070663 0,,0]
20358 052177 312 04 0 00 071441 CAME AC,[777,,ZZ]
20359 052200 003 04 0 00 000757 ER3 AC,T
20360 052201 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20361 052202 004 05 0 00 000757 ER4 AC+1,T
20362 052203 321 10 0 00 052175 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20363
20364 000760 T=T+1
20365 777777 773777 ZZ=ZZ+ZZ+1
20366 IFE <ZZ-1>,<ZZ=-2>
20367 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
20368 DMOVE AC,[777,,ZZ
20369 052204 120 04 0 00 071443 -1,,-1]
20370 DFAD AC,[0,,0
20371 052205 110 04 0 00 070663 0,,0]
20372 052206 312 04 0 00 071443 CAME AC,[777,,ZZ]
20373 052207 003 04 0 00 000760 ER3 AC,T
20374 052210 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20375 052211 004 05 0 00 000760 ER4 AC+1,T
20376 052212 321 10 0 00 052204 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20377
20378 000761 T=T+1
20379 777777 767777 ZZ=ZZ+ZZ+1
20380 IFE <ZZ-1>,<ZZ=-2>
20381 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
20382 DMOVE AC,[777,,ZZ
20383 052213 120 04 0 00 071445 -1,,-1]
20384 DFAD AC,[0,,0
20385 052214 110 04 0 00 070663 0,,0]
20386 052215 312 04 0 00 071445 CAME AC,[777,,ZZ]
20387 052216 003 04 0 00 000761 ER3 AC,T
20388 052217 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20389 052220 004 05 0 00 000761 ER4 AC+1,T
20390 052221 321 10 0 00 052213 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20391
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5-13
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0495
20392 000762 T=T+1
20393 777777 757777 ZZ=ZZ+ZZ+1
20394 IFE <ZZ-1>,<ZZ=-2>
20395 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
20396 DMOVE AC,[777,,ZZ
20397 052222 120 04 0 00 071447 -1,,-1]
20398 DFAD AC,[0,,0
20399 052223 110 04 0 00 070663 0,,0]
20400 052224 312 04 0 00 071447 CAME AC,[777,,ZZ]
20401 052225 003 04 0 00 000762 ER3 AC,T
20402 052226 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20403 052227 004 05 0 00 000762 ER4 AC+1,T
20404 052230 321 10 0 00 052222 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20405
20406 000763 T=T+1
20407 777777 737777 ZZ=ZZ+ZZ+1
20408 IFE <ZZ-1>,<ZZ=-2>
20409 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
20410 DMOVE AC,[777,,ZZ
20411 052231 120 04 0 00 071451 -1,,-1]
20412 DFAD AC,[0,,0
20413 052232 110 04 0 00 070663 0,,0]
20414 052233 312 04 0 00 071451 CAME AC,[777,,ZZ]
20415 052234 003 04 0 00 000763 ER3 AC,T
20416 052235 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20417 052236 004 05 0 00 000763 ER4 AC+1,T
20418 052237 321 10 0 00 052231 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20419
20420 000764 T=T+1
20421 777777 677777 ZZ=ZZ+ZZ+1
20422 IFE <ZZ-1>,<ZZ=-2>
20423 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
20424 DMOVE AC,[777,,ZZ
20425 052240 120 04 0 00 071453 -1,,-1]
20426 DFAD AC,[0,,0
20427 052241 110 04 0 00 070663 0,,0]
20428 052242 312 04 0 00 071453 CAME AC,[777,,ZZ]
20429 052243 003 04 0 00 000764 ER3 AC,T
20430 052244 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20431 052245 004 05 0 00 000764 ER4 AC+1,T
20432 052246 321 10 0 00 052240 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20433
20434 000765 T=T+1
20435 777777 577777 ZZ=ZZ+ZZ+1
20436 IFE <ZZ-1>,<ZZ=-2>
20437 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
20438 DMOVE AC,[777,,ZZ
20439 052247 120 04 0 00 071455 -1,,-1]
20440 DFAD AC,[0,,0
20441 052250 110 04 0 00 070663 0,,0]
20442 052251 312 04 0 00 071455 CAME AC,[777,,ZZ]
20443 052252 003 04 0 00 000765 ER3 AC,T
20444 052253 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20445 052254 004 05 0 00 000765 ER4 AC+1,T
20446 052255 321 10 0 00 052247 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5-14
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0496
20447
20448 000766 T=T+1
20449 777777 377777 ZZ=ZZ+ZZ+1
20450 IFE <ZZ-1>,<ZZ=-2>
20451 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
20452 DMOVE AC,[777,,ZZ
20453 052256 120 04 0 00 071457 -1,,-1]
20454 DFAD AC,[0,,0
20455 052257 110 04 0 00 070663 0,,0]
20456 052260 312 04 0 00 071457 CAME AC,[777,,ZZ]
20457 052261 003 04 0 00 000766 ER3 AC,T
20458 052262 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20459 052263 004 05 0 00 000766 ER4 AC+1,T
20460 052264 321 10 0 00 052256 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20461
20462
20463 000000 ZZ=0
20464
20465 REPEAT ^D8,
20466 <T=T+1
20467 ZZ=ZZ+ZZ+1
20468 IFE <ZZ-1>,<ZZ=-2>
20469 DFARP T,ZZ&777,-1,-1,-1,0,0,0,0,ZZ&777,-1,377777,-1
20470 >
20471 000767 T=T+1
20472 000001 ZZ=ZZ+ZZ+1
20473 777777 777776 IFE <ZZ-1>,<ZZ=-2>
20474 DFARP T,ZZ&777,-1,-1,-1,0,0,0,0,ZZ&777,-1,377777,-1^
20475 DMOVE AC,[ZZ&777,,-1
20476 052265 120 04 0 00 071461 -1,,-1]
20477 DFAD AC,[0,,0
20478 052266 110 04 0 00 070663 0,,0]
20479 052267 312 04 0 00 071461 CAME AC,[ZZ&777,,-1]
20480 052270 003 04 0 00 000767 ER3 AC,T
20481 052271 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20482 052272 004 05 0 00 000767 ER4 AC+1,T
20483 052273 321 10 0 00 052265 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20484
20485 000770 T=T+1
20486 777777 777775 ZZ=ZZ+ZZ+1
20487 IFE <ZZ-1>,<ZZ=-2>
20488 DFARP T,ZZ&777,-1,-1,-1,0,0,0,0,ZZ&777,-1,377777,-1^
20489 DMOVE AC,[ZZ&777,,-1
20490 052274 120 04 0 00 071463 -1,,-1]
20491 DFAD AC,[0,,0
20492 052275 110 04 0 00 070663 0,,0]
20493 052276 312 04 0 00 071463 CAME AC,[ZZ&777,,-1]
20494 052277 003 04 0 00 000770 ER3 AC,T
20495 052300 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20496 052301 004 05 0 00 000770 ER4 AC+1,T
20497 052302 321 10 0 00 052274 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20498
20499 000771 T=T+1
20500 777777 777773 ZZ=ZZ+ZZ+1
20501 IFE <ZZ-1>,<ZZ=-2>
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5-15
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0497
20502 DFARP T,ZZ&777,-1,-1,-1,0,0,0,0,ZZ&777,-1,377777,-1^
20503 DMOVE AC,[ZZ&777,,-1
20504 052303 120 04 0 00 071465 -1,,-1]
20505 DFAD AC,[0,,0
20506 052304 110 04 0 00 070663 0,,0]
20507 052305 312 04 0 00 071465 CAME AC,[ZZ&777,,-1]
20508 052306 003 04 0 00 000771 ER3 AC,T
20509 052307 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20510 052310 004 05 0 00 000771 ER4 AC+1,T
20511 052311 321 10 0 00 052303 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20512
20513 000772 T=T+1
20514 777777 777767 ZZ=ZZ+ZZ+1
20515 IFE <ZZ-1>,<ZZ=-2>
20516 DFARP T,ZZ&777,-1,-1,-1,0,0,0,0,ZZ&777,-1,377777,-1^
20517 DMOVE AC,[ZZ&777,,-1
20518 052312 120 04 0 00 071467 -1,,-1]
20519 DFAD AC,[0,,0
20520 052313 110 04 0 00 070663 0,,0]
20521 052314 312 04 0 00 071467 CAME AC,[ZZ&777,,-1]
20522 052315 003 04 0 00 000772 ER3 AC,T
20523 052316 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20524 052317 004 05 0 00 000772 ER4 AC+1,T
20525 052320 321 10 0 00 052312 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20526
20527 000773 T=T+1
20528 777777 777757 ZZ=ZZ+ZZ+1
20529 IFE <ZZ-1>,<ZZ=-2>
20530 DFARP T,ZZ&777,-1,-1,-1,0,0,0,0,ZZ&777,-1,377777,-1^
20531 DMOVE AC,[ZZ&777,,-1
20532 052321 120 04 0 00 071471 -1,,-1]
20533 DFAD AC,[0,,0
20534 052322 110 04 0 00 070663 0,,0]
20535 052323 312 04 0 00 071471 CAME AC,[ZZ&777,,-1]
20536 052324 003 04 0 00 000773 ER3 AC,T
20537 052325 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20538 052326 004 05 0 00 000773 ER4 AC+1,T
20539 052327 321 10 0 00 052321 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20540
20541 000774 T=T+1
20542 777777 777737 ZZ=ZZ+ZZ+1
20543 IFE <ZZ-1>,<ZZ=-2>
20544 DFARP T,ZZ&777,-1,-1,-1,0,0,0,0,ZZ&777,-1,377777,-1^
20545 DMOVE AC,[ZZ&777,,-1
20546 052330 120 04 0 00 071473 -1,,-1]
20547 DFAD AC,[0,,0
20548 052331 110 04 0 00 070663 0,,0]
20549 052332 312 04 0 00 071473 CAME AC,[ZZ&777,,-1]
20550 052333 003 04 0 00 000774 ER3 AC,T
20551 052334 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20552 052335 004 05 0 00 000774 ER4 AC+1,T
20553 052336 321 10 0 00 052330 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20554
20555 000775 T=T+1
20556 777777 777677 ZZ=ZZ+ZZ+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5-16
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0498
20557 IFE <ZZ-1>,<ZZ=-2>
20558 DFARP T,ZZ&777,-1,-1,-1,0,0,0,0,ZZ&777,-1,377777,-1^
20559 DMOVE AC,[ZZ&777,,-1
20560 052337 120 04 0 00 071475 -1,,-1]
20561 DFAD AC,[0,,0
20562 052340 110 04 0 00 070663 0,,0]
20563 052341 312 04 0 00 071475 CAME AC,[ZZ&777,,-1]
20564 052342 003 04 0 00 000775 ER3 AC,T
20565 052343 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20566 052344 004 05 0 00 000775 ER4 AC+1,T
20567 052345 321 10 0 00 052337 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20568
20569 000776 T=T+1
20570 777777 777577 ZZ=ZZ+ZZ+1
20571 IFE <ZZ-1>,<ZZ=-2>
20572 DFARP T,ZZ&777,-1,-1,-1,0,0,0,0,ZZ&777,-1,377777,-1^
20573 DMOVE AC,[ZZ&777,,-1
20574 052346 120 04 0 00 071477 -1,,-1]
20575 DFAD AC,[0,,0
20576 052347 110 04 0 00 070663 0,,0]
20577 052350 312 04 0 00 071477 CAME AC,[ZZ&777,,-1]
20578 052351 003 04 0 00 000776 ER3 AC,T
20579 052352 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20580 052353 004 05 0 00 000776 ER4 AC+1,T
20581 052354 321 10 0 00 052346 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20582
20583
20584 000777 T=T+1
20585 DFARP T,0,0,0,0,1377,-1,-1,-1,777,-1,377777,-2^
20586 DMOVE AC,[0,,0
20587 052355 120 04 0 00 070663 0,,0]
20588 DFAD AC,[1377,,-1
20589 052356 110 04 0 00 071501 -1,,-1]
20590 052357 312 04 0 00 071237 CAME AC,[777,,-1]
20591 052360 003 04 0 00 000777 ER3 AC,T
20592 052361 312 05 0 00 071244 CAME AC+1,[377777,,-2]
20593 052362 004 05 0 00 000777 ER4 AC+1,T
20594 052363 321 10 0 00 052355 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0499
20595 ;RIPPLE ZEROS - RIPPLE ONES COMBINED (ADD A RIPPLED ONE TO A RIPPLED ZERO)
20596
20597 001000 T=1000
20598 000000 XX=0
20599 000000 ZZ=0
20600
20601 R1000: REPEAT ^D18,
20602 <T=T+1
20603 XX=XX+XX+1
20604 IFE <XX-1>,<XX=-2>
20605 ZZ=ZZ+ZZ
20606 IFE ZZ,<ZZ=1>
20607 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1
20608 >
20609 001001 T=T+1
20610 000001 XX=XX+XX+1
20611 777777 777776 IFE <XX-1>,<XX=-2>
20612 000000 ZZ=ZZ+ZZ
20613 000001 IFE ZZ,<ZZ=1>
20614 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
20615 DMOVE AC,[777,,-1
20616 052364 120 04 0 00 071242 -1,,XX]
20617 DFAD AC,[0,,0
20618 052365 110 04 0 00 070674 0,,ZZ]
20619 052366 312 04 0 00 071237 CAME AC,[777,,-1]
20620 052367 003 04 0 00 001001 ER3 AC,T
20621 052370 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20622 052371 004 05 0 00 001001 ER4 AC+1,T
20623 052372 321 10 0 00 052364 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20624
20625 001002 T=T+1
20626 777777 777775 XX=XX+XX+1
20627 IFE <XX-1>,<XX=-2>
20628 000002 ZZ=ZZ+ZZ
20629 IFE ZZ,<ZZ=1>
20630 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
20631 DMOVE AC,[777,,-1
20632 052373 120 04 0 00 071245 -1,,XX]
20633 DFAD AC,[0,,0
20634 052374 110 04 0 00 071503 0,,ZZ]
20635 052375 312 04 0 00 071237 CAME AC,[777,,-1]
20636 052376 003 04 0 00 001002 ER3 AC,T
20637 052377 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20638 052400 004 05 0 00 001002 ER4 AC+1,T
20639 052401 321 10 0 00 052373 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20640
20641 001003 T=T+1
20642 777777 777773 XX=XX+XX+1
20643 IFE <XX-1>,<XX=-2>
20644 000004 ZZ=ZZ+ZZ
20645 IFE ZZ,<ZZ=1>
20646 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
20647 DMOVE AC,[777,,-1
20648 052402 120 04 0 00 071250 -1,,XX]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6-1
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0500
20649 DFAD AC,[0,,0
20650 052403 110 04 0 00 071505 0,,ZZ]
20651 052404 312 04 0 00 071237 CAME AC,[777,,-1]
20652 052405 003 04 0 00 001003 ER3 AC,T
20653 052406 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20654 052407 004 05 0 00 001003 ER4 AC+1,T
20655 052410 321 10 0 00 052402 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20656
20657 001004 T=T+1
20658 777777 777767 XX=XX+XX+1
20659 IFE <XX-1>,<XX=-2>
20660 000010 ZZ=ZZ+ZZ
20661 IFE ZZ,<ZZ=1>
20662 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
20663 DMOVE AC,[777,,-1
20664 052411 120 04 0 00 071253 -1,,XX]
20665 DFAD AC,[0,,0
20666 052412 110 04 0 00 071507 0,,ZZ]
20667 052413 312 04 0 00 071237 CAME AC,[777,,-1]
20668 052414 003 04 0 00 001004 ER3 AC,T
20669 052415 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20670 052416 004 05 0 00 001004 ER4 AC+1,T
20671 052417 321 10 0 00 052411 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20672
20673 001005 T=T+1
20674 777777 777757 XX=XX+XX+1
20675 IFE <XX-1>,<XX=-2>
20676 000020 ZZ=ZZ+ZZ
20677 IFE ZZ,<ZZ=1>
20678 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
20679 DMOVE AC,[777,,-1
20680 052420 120 04 0 00 071256 -1,,XX]
20681 DFAD AC,[0,,0
20682 052421 110 04 0 00 071511 0,,ZZ]
20683 052422 312 04 0 00 071237 CAME AC,[777,,-1]
20684 052423 003 04 0 00 001005 ER3 AC,T
20685 052424 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20686 052425 004 05 0 00 001005 ER4 AC+1,T
20687 052426 321 10 0 00 052420 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20688
20689 001006 T=T+1
20690 777777 777737 XX=XX+XX+1
20691 IFE <XX-1>,<XX=-2>
20692 000040 ZZ=ZZ+ZZ
20693 IFE ZZ,<ZZ=1>
20694 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
20695 DMOVE AC,[777,,-1
20696 052427 120 04 0 00 071261 -1,,XX]
20697 DFAD AC,[0,,0
20698 052430 110 04 0 00 071513 0,,ZZ]
20699 052431 312 04 0 00 071237 CAME AC,[777,,-1]
20700 052432 003 04 0 00 001006 ER3 AC,T
20701 052433 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20702 052434 004 05 0 00 001006 ER4 AC+1,T
20703 052435 321 10 0 00 052427 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6-2
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0501
20704
20705 001007 T=T+1
20706 777777 777677 XX=XX+XX+1
20707 IFE <XX-1>,<XX=-2>
20708 000100 ZZ=ZZ+ZZ
20709 IFE ZZ,<ZZ=1>
20710 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
20711 DMOVE AC,[777,,-1
20712 052436 120 04 0 00 071264 -1,,XX]
20713 DFAD AC,[0,,0
20714 052437 110 04 0 00 071515 0,,ZZ]
20715 052440 312 04 0 00 071237 CAME AC,[777,,-1]
20716 052441 003 04 0 00 001007 ER3 AC,T
20717 052442 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20718 052443 004 05 0 00 001007 ER4 AC+1,T
20719 052444 321 10 0 00 052436 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20720
20721 001010 T=T+1
20722 777777 777577 XX=XX+XX+1
20723 IFE <XX-1>,<XX=-2>
20724 000200 ZZ=ZZ+ZZ
20725 IFE ZZ,<ZZ=1>
20726 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
20727 DMOVE AC,[777,,-1
20728 052445 120 04 0 00 071267 -1,,XX]
20729 DFAD AC,[0,,0
20730 052446 110 04 0 00 071517 0,,ZZ]
20731 052447 312 04 0 00 071237 CAME AC,[777,,-1]
20732 052450 003 04 0 00 001010 ER3 AC,T
20733 052451 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20734 052452 004 05 0 00 001010 ER4 AC+1,T
20735 052453 321 10 0 00 052445 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20736
20737 001011 T=T+1
20738 777777 777377 XX=XX+XX+1
20739 IFE <XX-1>,<XX=-2>
20740 000400 ZZ=ZZ+ZZ
20741 IFE ZZ,<ZZ=1>
20742 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
20743 DMOVE AC,[777,,-1
20744 052454 120 04 0 00 071272 -1,,XX]
20745 DFAD AC,[0,,0
20746 052455 110 04 0 00 071521 0,,ZZ]
20747 052456 312 04 0 00 071237 CAME AC,[777,,-1]
20748 052457 003 04 0 00 001011 ER3 AC,T
20749 052460 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20750 052461 004 05 0 00 001011 ER4 AC+1,T
20751 052462 321 10 0 00 052454 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20752
20753 001012 T=T+1
20754 777777 776777 XX=XX+XX+1
20755 IFE <XX-1>,<XX=-2>
20756 001000 ZZ=ZZ+ZZ
20757 IFE ZZ,<ZZ=1>
20758 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6-3
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0502
20759 DMOVE AC,[777,,-1
20760 052463 120 04 0 00 071275 -1,,XX]
20761 DFAD AC,[0,,0
20762 052464 110 04 0 00 071523 0,,ZZ]
20763 052465 312 04 0 00 071237 CAME AC,[777,,-1]
20764 052466 003 04 0 00 001012 ER3 AC,T
20765 052467 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20766 052470 004 05 0 00 001012 ER4 AC+1,T
20767 052471 321 10 0 00 052463 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20768
20769 001013 T=T+1
20770 777777 775777 XX=XX+XX+1
20771 IFE <XX-1>,<XX=-2>
20772 002000 ZZ=ZZ+ZZ
20773 IFE ZZ,<ZZ=1>
20774 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
20775 DMOVE AC,[777,,-1
20776 052472 120 04 0 00 071300 -1,,XX]
20777 DFAD AC,[0,,0
20778 052473 110 04 0 00 071525 0,,ZZ]
20779 052474 312 04 0 00 071237 CAME AC,[777,,-1]
20780 052475 003 04 0 00 001013 ER3 AC,T
20781 052476 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20782 052477 004 05 0 00 001013 ER4 AC+1,T
20783 052500 321 10 0 00 052472 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20784
20785 001014 T=T+1
20786 777777 773777 XX=XX+XX+1
20787 IFE <XX-1>,<XX=-2>
20788 004000 ZZ=ZZ+ZZ
20789 IFE ZZ,<ZZ=1>
20790 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
20791 DMOVE AC,[777,,-1
20792 052501 120 04 0 00 071303 -1,,XX]
20793 DFAD AC,[0,,0
20794 052502 110 04 0 00 071527 0,,ZZ]
20795 052503 312 04 0 00 071237 CAME AC,[777,,-1]
20796 052504 003 04 0 00 001014 ER3 AC,T
20797 052505 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20798 052506 004 05 0 00 001014 ER4 AC+1,T
20799 052507 321 10 0 00 052501 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20800
20801 001015 T=T+1
20802 777777 767777 XX=XX+XX+1
20803 IFE <XX-1>,<XX=-2>
20804 010000 ZZ=ZZ+ZZ
20805 IFE ZZ,<ZZ=1>
20806 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
20807 DMOVE AC,[777,,-1
20808 052510 120 04 0 00 071306 -1,,XX]
20809 DFAD AC,[0,,0
20810 052511 110 04 0 00 071531 0,,ZZ]
20811 052512 312 04 0 00 071237 CAME AC,[777,,-1]
20812 052513 003 04 0 00 001015 ER3 AC,T
20813 052514 312 05 0 00 071241 CAME AC+1,[377777,,-1]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6-4
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0503
20814 052515 004 05 0 00 001015 ER4 AC+1,T
20815 052516 321 10 0 00 052510 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20816
20817 001016 T=T+1
20818 777777 757777 XX=XX+XX+1
20819 IFE <XX-1>,<XX=-2>
20820 020000 ZZ=ZZ+ZZ
20821 IFE ZZ,<ZZ=1>
20822 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
20823 DMOVE AC,[777,,-1
20824 052517 120 04 0 00 071311 -1,,XX]
20825 DFAD AC,[0,,0
20826 052520 110 04 0 00 071533 0,,ZZ]
20827 052521 312 04 0 00 071237 CAME AC,[777,,-1]
20828 052522 003 04 0 00 001016 ER3 AC,T
20829 052523 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20830 052524 004 05 0 00 001016 ER4 AC+1,T
20831 052525 321 10 0 00 052517 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20832
20833 001017 T=T+1
20834 777777 737777 XX=XX+XX+1
20835 IFE <XX-1>,<XX=-2>
20836 040000 ZZ=ZZ+ZZ
20837 IFE ZZ,<ZZ=1>
20838 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
20839 DMOVE AC,[777,,-1
20840 052526 120 04 0 00 071314 -1,,XX]
20841 DFAD AC,[0,,0
20842 052527 110 04 0 00 071535 0,,ZZ]
20843 052530 312 04 0 00 071237 CAME AC,[777,,-1]
20844 052531 003 04 0 00 001017 ER3 AC,T
20845 052532 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20846 052533 004 05 0 00 001017 ER4 AC+1,T
20847 052534 321 10 0 00 052526 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20848
20849 001020 T=T+1
20850 777777 677777 XX=XX+XX+1
20851 IFE <XX-1>,<XX=-2>
20852 100000 ZZ=ZZ+ZZ
20853 IFE ZZ,<ZZ=1>
20854 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
20855 DMOVE AC,[777,,-1
20856 052535 120 04 0 00 071317 -1,,XX]
20857 DFAD AC,[0,,0
20858 052536 110 04 0 00 071537 0,,ZZ]
20859 052537 312 04 0 00 071237 CAME AC,[777,,-1]
20860 052540 003 04 0 00 001020 ER3 AC,T
20861 052541 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20862 052542 004 05 0 00 001020 ER4 AC+1,T
20863 052543 321 10 0 00 052535 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20864
20865 001021 T=T+1
20866 777777 577777 XX=XX+XX+1
20867 IFE <XX-1>,<XX=-2>
20868 200000 ZZ=ZZ+ZZ
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6-5
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0504
20869 IFE ZZ,<ZZ=1>
20870 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
20871 DMOVE AC,[777,,-1
20872 052544 120 04 0 00 071322 -1,,XX]
20873 DFAD AC,[0,,0
20874 052545 110 04 0 00 071541 0,,ZZ]
20875 052546 312 04 0 00 071237 CAME AC,[777,,-1]
20876 052547 003 04 0 00 001021 ER3 AC,T
20877 052550 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20878 052551 004 05 0 00 001021 ER4 AC+1,T
20879 052552 321 10 0 00 052544 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20880
20881 001022 T=T+1
20882 777777 377777 XX=XX+XX+1
20883 IFE <XX-1>,<XX=-2>
20884 400000 ZZ=ZZ+ZZ
20885 IFE ZZ,<ZZ=1>
20886 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
20887 DMOVE AC,[777,,-1
20888 052553 120 04 0 00 071325 -1,,XX]
20889 DFAD AC,[0,,0
20890 052554 110 04 0 00 071543 0,,ZZ]
20891 052555 312 04 0 00 071237 CAME AC,[777,,-1]
20892 052556 003 04 0 00 001022 ER3 AC,T
20893 052557 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20894 052560 004 05 0 00 001022 ER4 AC+1,T
20895 052561 321 10 0 00 052553 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20896
20897
20898 000000 XX=0
20899 000000 ZZ=0
20900
20901 REPEAT ^D18,
20902 <T=T+1
20903 XX=XX+XX+1
20904 IFE <XX-1>,<XX=-2>
20905 ZZ=ZZ+ZZ
20906 IFE ZZ,<ZZ=1>
20907 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1
20908 >
20909 001023 T=T+1
20910 000001 XX=XX+XX+1
20911 777777 777776 IFE <XX-1>,<XX=-2>
20912 000000 ZZ=ZZ+ZZ
20913 000001 IFE ZZ,<ZZ=1>
20914 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
20915 DMOVE AC,[777,,-1
20916 052562 120 04 0 00 071330 XX,,-1]
20917 DFAD AC,[0,,0
20918 052563 110 04 0 00 071545 ZZ,,0]
20919 052564 312 04 0 00 071237 CAME AC,[777,,-1]
20920 052565 003 04 0 00 001023 ER3 AC,T
20921 052566 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20922 052567 004 05 0 00 001023 ER4 AC+1,T
20923 052570 321 10 0 00 052562 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6-6
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0505
20924
20925 001024 T=T+1
20926 777777 777775 XX=XX+XX+1
20927 IFE <XX-1>,<XX=-2>
20928 000002 ZZ=ZZ+ZZ
20929 IFE ZZ,<ZZ=1>
20930 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
20931 DMOVE AC,[777,,-1
20932 052571 120 04 0 00 071333 XX,,-1]
20933 DFAD AC,[0,,0
20934 052572 110 04 0 00 071547 ZZ,,0]
20935 052573 312 04 0 00 071237 CAME AC,[777,,-1]
20936 052574 003 04 0 00 001024 ER3 AC,T
20937 052575 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20938 052576 004 05 0 00 001024 ER4 AC+1,T
20939 052577 321 10 0 00 052571 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20940
20941 001025 T=T+1
20942 777777 777773 XX=XX+XX+1
20943 IFE <XX-1>,<XX=-2>
20944 000004 ZZ=ZZ+ZZ
20945 IFE ZZ,<ZZ=1>
20946 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
20947 DMOVE AC,[777,,-1
20948 052600 120 04 0 00 071336 XX,,-1]
20949 DFAD AC,[0,,0
20950 052601 110 04 0 00 071551 ZZ,,0]
20951 052602 312 04 0 00 071237 CAME AC,[777,,-1]
20952 052603 003 04 0 00 001025 ER3 AC,T
20953 052604 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20954 052605 004 05 0 00 001025 ER4 AC+1,T
20955 052606 321 10 0 00 052600 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20956
20957 001026 T=T+1
20958 777777 777767 XX=XX+XX+1
20959 IFE <XX-1>,<XX=-2>
20960 000010 ZZ=ZZ+ZZ
20961 IFE ZZ,<ZZ=1>
20962 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
20963 DMOVE AC,[777,,-1
20964 052607 120 04 0 00 071341 XX,,-1]
20965 DFAD AC,[0,,0
20966 052610 110 04 0 00 071553 ZZ,,0]
20967 052611 312 04 0 00 071237 CAME AC,[777,,-1]
20968 052612 003 04 0 00 001026 ER3 AC,T
20969 052613 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20970 052614 004 05 0 00 001026 ER4 AC+1,T
20971 052615 321 10 0 00 052607 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20972
20973 001027 T=T+1
20974 777777 777757 XX=XX+XX+1
20975 IFE <XX-1>,<XX=-2>
20976 000020 ZZ=ZZ+ZZ
20977 IFE ZZ,<ZZ=1>
20978 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6-7
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0506
20979 DMOVE AC,[777,,-1
20980 052616 120 04 0 00 071344 XX,,-1]
20981 DFAD AC,[0,,0
20982 052617 110 04 0 00 071555 ZZ,,0]
20983 052620 312 04 0 00 071237 CAME AC,[777,,-1]
20984 052621 003 04 0 00 001027 ER3 AC,T
20985 052622 312 05 0 00 071241 CAME AC+1,[377777,,-1]
20986 052623 004 05 0 00 001027 ER4 AC+1,T
20987 052624 321 10 0 00 052616 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
20988
20989 001030 T=T+1
20990 777777 777737 XX=XX+XX+1
20991 IFE <XX-1>,<XX=-2>
20992 000040 ZZ=ZZ+ZZ
20993 IFE ZZ,<ZZ=1>
20994 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
20995 DMOVE AC,[777,,-1
20996 052625 120 04 0 00 071347 XX,,-1]
20997 DFAD AC,[0,,0
20998 052626 110 04 0 00 071557 ZZ,,0]
20999 052627 312 04 0 00 071237 CAME AC,[777,,-1]
21000 052630 003 04 0 00 001030 ER3 AC,T
21001 052631 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21002 052632 004 05 0 00 001030 ER4 AC+1,T
21003 052633 321 10 0 00 052625 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21004
21005 001031 T=T+1
21006 777777 777677 XX=XX+XX+1
21007 IFE <XX-1>,<XX=-2>
21008 000100 ZZ=ZZ+ZZ
21009 IFE ZZ,<ZZ=1>
21010 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
21011 DMOVE AC,[777,,-1
21012 052634 120 04 0 00 071352 XX,,-1]
21013 DFAD AC,[0,,0
21014 052635 110 04 0 00 071561 ZZ,,0]
21015 052636 312 04 0 00 071237 CAME AC,[777,,-1]
21016 052637 003 04 0 00 001031 ER3 AC,T
21017 052640 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21018 052641 004 05 0 00 001031 ER4 AC+1,T
21019 052642 321 10 0 00 052634 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21020
21021 001032 T=T+1
21022 777777 777577 XX=XX+XX+1
21023 IFE <XX-1>,<XX=-2>
21024 000200 ZZ=ZZ+ZZ
21025 IFE ZZ,<ZZ=1>
21026 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
21027 DMOVE AC,[777,,-1
21028 052643 120 04 0 00 071355 XX,,-1]
21029 DFAD AC,[0,,0
21030 052644 110 04 0 00 071563 ZZ,,0]
21031 052645 312 04 0 00 071237 CAME AC,[777,,-1]
21032 052646 003 04 0 00 001032 ER3 AC,T
21033 052647 312 05 0 00 071241 CAME AC+1,[377777,,-1]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6-8
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0507
21034 052650 004 05 0 00 001032 ER4 AC+1,T
21035 052651 321 10 0 00 052643 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21036
21037 001033 T=T+1
21038 777777 777377 XX=XX+XX+1
21039 IFE <XX-1>,<XX=-2>
21040 000400 ZZ=ZZ+ZZ
21041 IFE ZZ,<ZZ=1>
21042 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
21043 DMOVE AC,[777,,-1
21044 052652 120 04 0 00 071360 XX,,-1]
21045 DFAD AC,[0,,0
21046 052653 110 04 0 00 071565 ZZ,,0]
21047 052654 312 04 0 00 071237 CAME AC,[777,,-1]
21048 052655 003 04 0 00 001033 ER3 AC,T
21049 052656 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21050 052657 004 05 0 00 001033 ER4 AC+1,T
21051 052660 321 10 0 00 052652 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21052
21053 001034 T=T+1
21054 777777 776777 XX=XX+XX+1
21055 IFE <XX-1>,<XX=-2>
21056 001000 ZZ=ZZ+ZZ
21057 IFE ZZ,<ZZ=1>
21058 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
21059 DMOVE AC,[777,,-1
21060 052661 120 04 0 00 071363 XX,,-1]
21061 DFAD AC,[0,,0
21062 052662 110 04 0 00 071567 ZZ,,0]
21063 052663 312 04 0 00 071237 CAME AC,[777,,-1]
21064 052664 003 04 0 00 001034 ER3 AC,T
21065 052665 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21066 052666 004 05 0 00 001034 ER4 AC+1,T
21067 052667 321 10 0 00 052661 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21068
21069 001035 T=T+1
21070 777777 775777 XX=XX+XX+1
21071 IFE <XX-1>,<XX=-2>
21072 002000 ZZ=ZZ+ZZ
21073 IFE ZZ,<ZZ=1>
21074 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
21075 DMOVE AC,[777,,-1
21076 052670 120 04 0 00 071366 XX,,-1]
21077 DFAD AC,[0,,0
21078 052671 110 04 0 00 071571 ZZ,,0]
21079 052672 312 04 0 00 071237 CAME AC,[777,,-1]
21080 052673 003 04 0 00 001035 ER3 AC,T
21081 052674 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21082 052675 004 05 0 00 001035 ER4 AC+1,T
21083 052676 321 10 0 00 052670 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21084
21085 001036 T=T+1
21086 777777 773777 XX=XX+XX+1
21087 IFE <XX-1>,<XX=-2>
21088 004000 ZZ=ZZ+ZZ
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6-9
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0508
21089 IFE ZZ,<ZZ=1>
21090 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
21091 DMOVE AC,[777,,-1
21092 052677 120 04 0 00 071371 XX,,-1]
21093 DFAD AC,[0,,0
21094 052700 110 04 0 00 071573 ZZ,,0]
21095 052701 312 04 0 00 071237 CAME AC,[777,,-1]
21096 052702 003 04 0 00 001036 ER3 AC,T
21097 052703 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21098 052704 004 05 0 00 001036 ER4 AC+1,T
21099 052705 321 10 0 00 052677 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21100
21101 001037 T=T+1
21102 777777 767777 XX=XX+XX+1
21103 IFE <XX-1>,<XX=-2>
21104 010000 ZZ=ZZ+ZZ
21105 IFE ZZ,<ZZ=1>
21106 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
21107 DMOVE AC,[777,,-1
21108 052706 120 04 0 00 071374 XX,,-1]
21109 DFAD AC,[0,,0
21110 052707 110 04 0 00 071575 ZZ,,0]
21111 052710 312 04 0 00 071237 CAME AC,[777,,-1]
21112 052711 003 04 0 00 001037 ER3 AC,T
21113 052712 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21114 052713 004 05 0 00 001037 ER4 AC+1,T
21115 052714 321 10 0 00 052706 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21116
21117 001040 T=T+1
21118 777777 757777 XX=XX+XX+1
21119 IFE <XX-1>,<XX=-2>
21120 020000 ZZ=ZZ+ZZ
21121 IFE ZZ,<ZZ=1>
21122 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
21123 DMOVE AC,[777,,-1
21124 052715 120 04 0 00 071377 XX,,-1]
21125 DFAD AC,[0,,0
21126 052716 110 04 0 00 071577 ZZ,,0]
21127 052717 312 04 0 00 071237 CAME AC,[777,,-1]
21128 052720 003 04 0 00 001040 ER3 AC,T
21129 052721 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21130 052722 004 05 0 00 001040 ER4 AC+1,T
21131 052723 321 10 0 00 052715 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21132
21133 001041 T=T+1
21134 777777 737777 XX=XX+XX+1
21135 IFE <XX-1>,<XX=-2>
21136 040000 ZZ=ZZ+ZZ
21137 IFE ZZ,<ZZ=1>
21138 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
21139 DMOVE AC,[777,,-1
21140 052724 120 04 0 00 071402 XX,,-1]
21141 DFAD AC,[0,,0
21142 052725 110 04 0 00 071601 ZZ,,0]
21143 052726 312 04 0 00 071237 CAME AC,[777,,-1]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6-10
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0509
21144 052727 003 04 0 00 001041 ER3 AC,T
21145 052730 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21146 052731 004 05 0 00 001041 ER4 AC+1,T
21147 052732 321 10 0 00 052724 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21148
21149 001042 T=T+1
21150 777777 677777 XX=XX+XX+1
21151 IFE <XX-1>,<XX=-2>
21152 100000 ZZ=ZZ+ZZ
21153 IFE ZZ,<ZZ=1>
21154 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
21155 DMOVE AC,[777,,-1
21156 052733 120 04 0 00 071405 XX,,-1]
21157 DFAD AC,[0,,0
21158 052734 110 04 0 00 071603 ZZ,,0]
21159 052735 312 04 0 00 071237 CAME AC,[777,,-1]
21160 052736 003 04 0 00 001042 ER3 AC,T
21161 052737 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21162 052740 004 05 0 00 001042 ER4 AC+1,T
21163 052741 321 10 0 00 052733 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21164
21165 001043 T=T+1
21166 777777 577777 XX=XX+XX+1
21167 IFE <XX-1>,<XX=-2>
21168 200000 ZZ=ZZ+ZZ
21169 IFE ZZ,<ZZ=1>
21170 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
21171 DMOVE AC,[777,,-1
21172 052742 120 04 0 00 071410 XX,,-1]
21173 DFAD AC,[0,,0
21174 052743 110 04 0 00 071605 ZZ,,0]
21175 052744 312 04 0 00 071237 CAME AC,[777,,-1]
21176 052745 003 04 0 00 001043 ER3 AC,T
21177 052746 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21178 052747 004 05 0 00 001043 ER4 AC+1,T
21179 052750 321 10 0 00 052742 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21180
21181 001044 T=T+1
21182 777777 377777 XX=XX+XX+1
21183 IFE <XX-1>,<XX=-2>
21184 400000 ZZ=ZZ+ZZ
21185 IFE ZZ,<ZZ=1>
21186 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
21187 DMOVE AC,[777,,-1
21188 052751 120 04 0 00 071413 XX,,-1]
21189 DFAD AC,[0,,0
21190 052752 110 04 0 00 070712 ZZ,,0]
21191 052753 312 04 0 00 071237 CAME AC,[777,,-1]
21192 052754 003 04 0 00 001044 ER3 AC,T
21193 052755 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21194 052756 004 05 0 00 001044 ER4 AC+1,T
21195 052757 321 10 0 00 052751 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21196
21197
21198 000000 XX=0
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6-11
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0510
21199 000000 ZZ=0
21200
21201 REPEAT ^D18,
21202 <T=T+1
21203 XX=XX+XX+1
21204 IFE <XX-1>,<XX=-2>
21205 ZZ=ZZ+ZZ
21206 IFE ZZ,<ZZ=1>
21207 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1
21208 >
21209 001045 T=T+1
21210 000001 XX=XX+XX+1
21211 777777 777776 IFE <XX-1>,<XX=-2>
21212 000000 ZZ=ZZ+ZZ
21213 000001 IFE ZZ,<ZZ=1>
21214 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
21215 DMOVE AC,[777,,XX
21216 052760 120 04 0 00 071415 -1,,-1]
21217 DFAD AC,[0,,ZZ
21218 052761 110 04 0 00 070673 0,,0]
21219 052762 312 04 0 00 071237 CAME AC,[777,,-1]
21220 052763 003 04 0 00 001045 ER3 AC,T
21221 052764 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21222 052765 004 05 0 00 001045 ER4 AC+1,T
21223 052766 321 10 0 00 052760 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21224
21225 001046 T=T+1
21226 777777 777775 XX=XX+XX+1
21227 IFE <XX-1>,<XX=-2>
21228 000002 ZZ=ZZ+ZZ
21229 IFE ZZ,<ZZ=1>
21230 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
21231 DMOVE AC,[777,,XX
21232 052767 120 04 0 00 071417 -1,,-1]
21233 DFAD AC,[0,,ZZ
21234 052770 110 04 0 00 071504 0,,0]
21235 052771 312 04 0 00 071237 CAME AC,[777,,-1]
21236 052772 003 04 0 00 001046 ER3 AC,T
21237 052773 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21238 052774 004 05 0 00 001046 ER4 AC+1,T
21239 052775 321 10 0 00 052767 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21240
21241 001047 T=T+1
21242 777777 777773 XX=XX+XX+1
21243 IFE <XX-1>,<XX=-2>
21244 000004 ZZ=ZZ+ZZ
21245 IFE ZZ,<ZZ=1>
21246 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
21247 DMOVE AC,[777,,XX
21248 052776 120 04 0 00 071421 -1,,-1]
21249 DFAD AC,[0,,ZZ
21250 052777 110 04 0 00 071506 0,,0]
21251 053000 312 04 0 00 071237 CAME AC,[777,,-1]
21252 053001 003 04 0 00 001047 ER3 AC,T
21253 053002 312 05 0 00 071241 CAME AC+1,[377777,,-1]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6-12
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0511
21254 053003 004 05 0 00 001047 ER4 AC+1,T
21255 053004 321 10 0 00 052776 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21256
21257 001050 T=T+1
21258 777777 777767 XX=XX+XX+1
21259 IFE <XX-1>,<XX=-2>
21260 000010 ZZ=ZZ+ZZ
21261 IFE ZZ,<ZZ=1>
21262 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
21263 DMOVE AC,[777,,XX
21264 053005 120 04 0 00 071423 -1,,-1]
21265 DFAD AC,[0,,ZZ
21266 053006 110 04 0 00 071510 0,,0]
21267 053007 312 04 0 00 071237 CAME AC,[777,,-1]
21268 053010 003 04 0 00 001050 ER3 AC,T
21269 053011 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21270 053012 004 05 0 00 001050 ER4 AC+1,T
21271 053013 321 10 0 00 053005 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21272
21273 001051 T=T+1
21274 777777 777757 XX=XX+XX+1
21275 IFE <XX-1>,<XX=-2>
21276 000020 ZZ=ZZ+ZZ
21277 IFE ZZ,<ZZ=1>
21278 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
21279 DMOVE AC,[777,,XX
21280 053014 120 04 0 00 071425 -1,,-1]
21281 DFAD AC,[0,,ZZ
21282 053015 110 04 0 00 071512 0,,0]
21283 053016 312 04 0 00 071237 CAME AC,[777,,-1]
21284 053017 003 04 0 00 001051 ER3 AC,T
21285 053020 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21286 053021 004 05 0 00 001051 ER4 AC+1,T
21287 053022 321 10 0 00 053014 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21288
21289 001052 T=T+1
21290 777777 777737 XX=XX+XX+1
21291 IFE <XX-1>,<XX=-2>
21292 000040 ZZ=ZZ+ZZ
21293 IFE ZZ,<ZZ=1>
21294 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
21295 DMOVE AC,[777,,XX
21296 053023 120 04 0 00 071427 -1,,-1]
21297 DFAD AC,[0,,ZZ
21298 053024 110 04 0 00 071514 0,,0]
21299 053025 312 04 0 00 071237 CAME AC,[777,,-1]
21300 053026 003 04 0 00 001052 ER3 AC,T
21301 053027 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21302 053030 004 05 0 00 001052 ER4 AC+1,T
21303 053031 321 10 0 00 053023 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21304
21305 001053 T=T+1
21306 777777 777677 XX=XX+XX+1
21307 IFE <XX-1>,<XX=-2>
21308 000100 ZZ=ZZ+ZZ
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6-13
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0512
21309 IFE ZZ,<ZZ=1>
21310 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
21311 DMOVE AC,[777,,XX
21312 053032 120 04 0 00 071431 -1,,-1]
21313 DFAD AC,[0,,ZZ
21314 053033 110 04 0 00 071516 0,,0]
21315 053034 312 04 0 00 071237 CAME AC,[777,,-1]
21316 053035 003 04 0 00 001053 ER3 AC,T
21317 053036 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21318 053037 004 05 0 00 001053 ER4 AC+1,T
21319 053040 321 10 0 00 053032 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21320
21321 001054 T=T+1
21322 777777 777577 XX=XX+XX+1
21323 IFE <XX-1>,<XX=-2>
21324 000200 ZZ=ZZ+ZZ
21325 IFE ZZ,<ZZ=1>
21326 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
21327 DMOVE AC,[777,,XX
21328 053041 120 04 0 00 071433 -1,,-1]
21329 DFAD AC,[0,,ZZ
21330 053042 110 04 0 00 071520 0,,0]
21331 053043 312 04 0 00 071237 CAME AC,[777,,-1]
21332 053044 003 04 0 00 001054 ER3 AC,T
21333 053045 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21334 053046 004 05 0 00 001054 ER4 AC+1,T
21335 053047 321 10 0 00 053041 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21336
21337 001055 T=T+1
21338 777777 777377 XX=XX+XX+1
21339 IFE <XX-1>,<XX=-2>
21340 000400 ZZ=ZZ+ZZ
21341 IFE ZZ,<ZZ=1>
21342 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
21343 DMOVE AC,[777,,XX
21344 053050 120 04 0 00 071435 -1,,-1]
21345 DFAD AC,[0,,ZZ
21346 053051 110 04 0 00 071522 0,,0]
21347 053052 312 04 0 00 071237 CAME AC,[777,,-1]
21348 053053 003 04 0 00 001055 ER3 AC,T
21349 053054 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21350 053055 004 05 0 00 001055 ER4 AC+1,T
21351 053056 321 10 0 00 053050 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21352
21353 001056 T=T+1
21354 777777 776777 XX=XX+XX+1
21355 IFE <XX-1>,<XX=-2>
21356 001000 ZZ=ZZ+ZZ
21357 IFE ZZ,<ZZ=1>
21358 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
21359 DMOVE AC,[777,,XX
21360 053057 120 04 0 00 071437 -1,,-1]
21361 DFAD AC,[0,,ZZ
21362 053060 110 04 0 00 071524 0,,0]
21363 053061 312 04 0 00 071237 CAME AC,[777,,-1]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6-14
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0513
21364 053062 003 04 0 00 001056 ER3 AC,T
21365 053063 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21366 053064 004 05 0 00 001056 ER4 AC+1,T
21367 053065 321 10 0 00 053057 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21368
21369 001057 T=T+1
21370 777777 775777 XX=XX+XX+1
21371 IFE <XX-1>,<XX=-2>
21372 002000 ZZ=ZZ+ZZ
21373 IFE ZZ,<ZZ=1>
21374 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
21375 DMOVE AC,[777,,XX
21376 053066 120 04 0 00 071441 -1,,-1]
21377 DFAD AC,[0,,ZZ
21378 053067 110 04 0 00 071526 0,,0]
21379 053070 312 04 0 00 071237 CAME AC,[777,,-1]
21380 053071 003 04 0 00 001057 ER3 AC,T
21381 053072 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21382 053073 004 05 0 00 001057 ER4 AC+1,T
21383 053074 321 10 0 00 053066 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21384
21385 001060 T=T+1
21386 777777 773777 XX=XX+XX+1
21387 IFE <XX-1>,<XX=-2>
21388 004000 ZZ=ZZ+ZZ
21389 IFE ZZ,<ZZ=1>
21390 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
21391 DMOVE AC,[777,,XX
21392 053075 120 04 0 00 071443 -1,,-1]
21393 DFAD AC,[0,,ZZ
21394 053076 110 04 0 00 071530 0,,0]
21395 053077 312 04 0 00 071237 CAME AC,[777,,-1]
21396 053100 003 04 0 00 001060 ER3 AC,T
21397 053101 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21398 053102 004 05 0 00 001060 ER4 AC+1,T
21399 053103 321 10 0 00 053075 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21400
21401 001061 T=T+1
21402 777777 767777 XX=XX+XX+1
21403 IFE <XX-1>,<XX=-2>
21404 010000 ZZ=ZZ+ZZ
21405 IFE ZZ,<ZZ=1>
21406 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
21407 DMOVE AC,[777,,XX
21408 053104 120 04 0 00 071445 -1,,-1]
21409 DFAD AC,[0,,ZZ
21410 053105 110 04 0 00 071532 0,,0]
21411 053106 312 04 0 00 071237 CAME AC,[777,,-1]
21412 053107 003 04 0 00 001061 ER3 AC,T
21413 053110 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21414 053111 004 05 0 00 001061 ER4 AC+1,T
21415 053112 321 10 0 00 053104 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21416
21417 001062 T=T+1
21418 777777 757777 XX=XX+XX+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6-15
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0514
21419 IFE <XX-1>,<XX=-2>
21420 020000 ZZ=ZZ+ZZ
21421 IFE ZZ,<ZZ=1>
21422 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
21423 DMOVE AC,[777,,XX
21424 053113 120 04 0 00 071447 -1,,-1]
21425 DFAD AC,[0,,ZZ
21426 053114 110 04 0 00 071534 0,,0]
21427 053115 312 04 0 00 071237 CAME AC,[777,,-1]
21428 053116 003 04 0 00 001062 ER3 AC,T
21429 053117 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21430 053120 004 05 0 00 001062 ER4 AC+1,T
21431 053121 321 10 0 00 053113 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21432
21433 001063 T=T+1
21434 777777 737777 XX=XX+XX+1
21435 IFE <XX-1>,<XX=-2>
21436 040000 ZZ=ZZ+ZZ
21437 IFE ZZ,<ZZ=1>
21438 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
21439 DMOVE AC,[777,,XX
21440 053122 120 04 0 00 071451 -1,,-1]
21441 DFAD AC,[0,,ZZ
21442 053123 110 04 0 00 071536 0,,0]
21443 053124 312 04 0 00 071237 CAME AC,[777,,-1]
21444 053125 003 04 0 00 001063 ER3 AC,T
21445 053126 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21446 053127 004 05 0 00 001063 ER4 AC+1,T
21447 053130 321 10 0 00 053122 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21448
21449 001064 T=T+1
21450 777777 677777 XX=XX+XX+1
21451 IFE <XX-1>,<XX=-2>
21452 100000 ZZ=ZZ+ZZ
21453 IFE ZZ,<ZZ=1>
21454 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
21455 DMOVE AC,[777,,XX
21456 053131 120 04 0 00 071453 -1,,-1]
21457 DFAD AC,[0,,ZZ
21458 053132 110 04 0 00 071540 0,,0]
21459 053133 312 04 0 00 071237 CAME AC,[777,,-1]
21460 053134 003 04 0 00 001064 ER3 AC,T
21461 053135 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21462 053136 004 05 0 00 001064 ER4 AC+1,T
21463 053137 321 10 0 00 053131 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21464
21465 001065 T=T+1
21466 777777 577777 XX=XX+XX+1
21467 IFE <XX-1>,<XX=-2>
21468 200000 ZZ=ZZ+ZZ
21469 IFE ZZ,<ZZ=1>
21470 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
21471 DMOVE AC,[777,,XX
21472 053140 120 04 0 00 071455 -1,,-1]
21473 DFAD AC,[0,,ZZ
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6-16
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0515
21474 053141 110 04 0 00 071542 0,,0]
21475 053142 312 04 0 00 071237 CAME AC,[777,,-1]
21476 053143 003 04 0 00 001065 ER3 AC,T
21477 053144 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21478 053145 004 05 0 00 001065 ER4 AC+1,T
21479 053146 321 10 0 00 053140 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21480
21481 001066 T=T+1
21482 777777 377777 XX=XX+XX+1
21483 IFE <XX-1>,<XX=-2>
21484 400000 ZZ=ZZ+ZZ
21485 IFE ZZ,<ZZ=1>
21486 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
21487 DMOVE AC,[777,,XX
21488 053147 120 04 0 00 071457 -1,,-1]
21489 DFAD AC,[0,,ZZ
21490 053150 110 04 0 00 071544 0,,0]
21491 053151 312 04 0 00 071237 CAME AC,[777,,-1]
21492 053152 003 04 0 00 001066 ER3 AC,T
21493 053153 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21494 053154 004 05 0 00 001066 ER4 AC+1,T
21495 053155 321 10 0 00 053147 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21496
21497
21498 000000 XX=0
21499 000000 ZZ=0
21500
21501 REPEAT ^D9,
21502 <T=T+1
21503 XX=XX+XX+1
21504 IFE <XX-1>,<XX=-2>
21505 ZZ=ZZ+ZZ
21506 IFE ZZ,<ZZ=1>
21507 DFARP T,XX&777,-1,-1,-1,ZZ,0,0,0,777,-1,377777,-1
21508 >
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0516
21509 001067 T=T+1
21510 000001 XX=XX+XX+1
21511 777777 777776 IFE <XX-1>,<XX=-2>
21512 000000 ZZ=ZZ+ZZ
21513 000001 IFE ZZ,<ZZ=1>
21514 DFARP T,XX&777,-1,-1,-1,ZZ,0,0,0,777,-1,377777,-1^
21515 DMOVE AC,[XX&777,,-1
21516 053156 120 04 0 00 071461 -1,,-1]
21517 DFAD AC,[ZZ,,0
21518 053157 110 04 0 00 071546 0,,0]
21519 053160 312 04 0 00 071237 CAME AC,[777,,-1]
21520 053161 003 04 0 00 001067 ER3 AC,T
21521 053162 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21522 053163 004 05 0 00 001067 ER4 AC+1,T
21523 053164 321 10 0 00 053156 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21524
21525 001070 T=T+1
21526 777777 777775 XX=XX+XX+1
21527 IFE <XX-1>,<XX=-2>
21528 000002 ZZ=ZZ+ZZ
21529 IFE ZZ,<ZZ=1>
21530 DFARP T,XX&777,-1,-1,-1,ZZ,0,0,0,777,-1,377777,-1^
21531 DMOVE AC,[XX&777,,-1
21532 053165 120 04 0 00 071463 -1,,-1]
21533 DFAD AC,[ZZ,,0
21534 053166 110 04 0 00 071550 0,,0]
21535 053167 312 04 0 00 071237 CAME AC,[777,,-1]
21536 053170 003 04 0 00 001070 ER3 AC,T
21537 053171 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21538 053172 004 05 0 00 001070 ER4 AC+1,T
21539 053173 321 10 0 00 053165 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21540
21541 001071 T=T+1
21542 777777 777773 XX=XX+XX+1
21543 IFE <XX-1>,<XX=-2>
21544 000004 ZZ=ZZ+ZZ
21545 IFE ZZ,<ZZ=1>
21546 DFARP T,XX&777,-1,-1,-1,ZZ,0,0,0,777,-1,377777,-1^
21547 DMOVE AC,[XX&777,,-1
21548 053174 120 04 0 00 071465 -1,,-1]
21549 DFAD AC,[ZZ,,0
21550 053175 110 04 0 00 071552 0,,0]
21551 053176 312 04 0 00 071237 CAME AC,[777,,-1]
21552 053177 003 04 0 00 001071 ER3 AC,T
21553 053200 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21554 053201 004 05 0 00 001071 ER4 AC+1,T
21555 053202 321 10 0 00 053174 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21556
21557 001072 T=T+1
21558 777777 777767 XX=XX+XX+1
21559 IFE <XX-1>,<XX=-2>
21560 000010 ZZ=ZZ+ZZ
21561 IFE ZZ,<ZZ=1>
21562 DFARP T,XX&777,-1,-1,-1,ZZ,0,0,0,777,-1,377777,-1^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-1
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0517
21563 DMOVE AC,[XX&777,,-1
21564 053203 120 04 0 00 071467 -1,,-1]
21565 DFAD AC,[ZZ,,0
21566 053204 110 04 0 00 071554 0,,0]
21567 053205 312 04 0 00 071237 CAME AC,[777,,-1]
21568 053206 003 04 0 00 001072 ER3 AC,T
21569 053207 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21570 053210 004 05 0 00 001072 ER4 AC+1,T
21571 053211 321 10 0 00 053203 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21572
21573 001073 T=T+1
21574 777777 777757 XX=XX+XX+1
21575 IFE <XX-1>,<XX=-2>
21576 000020 ZZ=ZZ+ZZ
21577 IFE ZZ,<ZZ=1>
21578 DFARP T,XX&777,-1,-1,-1,ZZ,0,0,0,777,-1,377777,-1^
21579 DMOVE AC,[XX&777,,-1
21580 053212 120 04 0 00 071471 -1,,-1]
21581 DFAD AC,[ZZ,,0
21582 053213 110 04 0 00 071556 0,,0]
21583 053214 312 04 0 00 071237 CAME AC,[777,,-1]
21584 053215 003 04 0 00 001073 ER3 AC,T
21585 053216 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21586 053217 004 05 0 00 001073 ER4 AC+1,T
21587 053220 321 10 0 00 053212 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21588
21589 001074 T=T+1
21590 777777 777737 XX=XX+XX+1
21591 IFE <XX-1>,<XX=-2>
21592 000040 ZZ=ZZ+ZZ
21593 IFE ZZ,<ZZ=1>
21594 DFARP T,XX&777,-1,-1,-1,ZZ,0,0,0,777,-1,377777,-1^
21595 DMOVE AC,[XX&777,,-1
21596 053221 120 04 0 00 071473 -1,,-1]
21597 DFAD AC,[ZZ,,0
21598 053222 110 04 0 00 071560 0,,0]
21599 053223 312 04 0 00 071237 CAME AC,[777,,-1]
21600 053224 003 04 0 00 001074 ER3 AC,T
21601 053225 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21602 053226 004 05 0 00 001074 ER4 AC+1,T
21603 053227 321 10 0 00 053221 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21604
21605 001075 T=T+1
21606 777777 777677 XX=XX+XX+1
21607 IFE <XX-1>,<XX=-2>
21608 000100 ZZ=ZZ+ZZ
21609 IFE ZZ,<ZZ=1>
21610 DFARP T,XX&777,-1,-1,-1,ZZ,0,0,0,777,-1,377777,-1^
21611 DMOVE AC,[XX&777,,-1
21612 053230 120 04 0 00 071475 -1,,-1]
21613 DFAD AC,[ZZ,,0
21614 053231 110 04 0 00 071562 0,,0]
21615 053232 312 04 0 00 071237 CAME AC,[777,,-1]
21616 053233 003 04 0 00 001075 ER3 AC,T
21617 053234 312 05 0 00 071241 CAME AC+1,[377777,,-1]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-2
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0518
21618 053235 004 05 0 00 001075 ER4 AC+1,T
21619 053236 321 10 0 00 053230 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21620
21621 001076 T=T+1
21622 777777 777577 XX=XX+XX+1
21623 IFE <XX-1>,<XX=-2>
21624 000200 ZZ=ZZ+ZZ
21625 IFE ZZ,<ZZ=1>
21626 DFARP T,XX&777,-1,-1,-1,ZZ,0,0,0,777,-1,377777,-1^
21627 DMOVE AC,[XX&777,,-1
21628 053237 120 04 0 00 071477 -1,,-1]
21629 DFAD AC,[ZZ,,0
21630 053240 110 04 0 00 071564 0,,0]
21631 053241 312 04 0 00 071237 CAME AC,[777,,-1]
21632 053242 003 04 0 00 001076 ER3 AC,T
21633 053243 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21634 053244 004 05 0 00 001076 ER4 AC+1,T
21635 053245 321 10 0 00 053237 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21636
21637 001077 T=T+1
21638 777777 777377 XX=XX+XX+1
21639 IFE <XX-1>,<XX=-2>
21640 000400 ZZ=ZZ+ZZ
21641 IFE ZZ,<ZZ=1>
21642 DFARP T,XX&777,-1,-1,-1,ZZ,0,0,0,777,-1,377777,-1^
21643 DMOVE AC,[XX&777,,-1
21644 053246 120 04 0 00 071607 -1,,-1]
21645 DFAD AC,[ZZ,,0
21646 053247 110 04 0 00 071566 0,,0]
21647 053250 312 04 0 00 071237 CAME AC,[777,,-1]
21648 053251 003 04 0 00 001077 ER3 AC,T
21649 053252 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21650 053253 004 05 0 00 001077 ER4 AC+1,T
21651 053254 321 10 0 00 053246 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21652
21653 ;RIPPLE ZEROS - RIPPLE ONES COMBINED (ADD A RIPPLED ZERO TO A RIPPLED ONE)
21654
21655 001100 T=1100
21656 000000 XX=0
21657 000000 ZZ=0
21658
21659 R1100: REPEAT ^D18,
21660 <T=T+1
21661 XX=XX+XX
21662 IFE XX,<XX=1>
21663 ZZ=ZZ+ZZ+1
21664 IFE <ZZ-1>,<ZZ=-2>
21665 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1
21666 >
21667 001101 T=T+1
21668 000000 XX=XX+XX
21669 000001 IFE XX,<XX=1>
21670 000001 ZZ=ZZ+ZZ+1
21671 777777 777776 IFE <ZZ-1>,<ZZ=-2>
21672 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-3
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0519
21673 DMOVE AC,[0,,0
21674 053255 120 04 0 00 070674 0,,XX]
21675 DFAD AC,[777,,-1
21676 053256 110 04 0 00 071242 -1,,ZZ]
21677 053257 312 04 0 00 071237 CAME AC,[777,,-1]
21678 053260 003 04 0 00 001101 ER3 AC,T
21679 053261 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21680 053262 004 05 0 00 001101 ER4 AC+1,T
21681 053263 321 10 0 00 053255 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21682
21683 001102 T=T+1
21684 000002 XX=XX+XX
21685 IFE XX,<XX=1>
21686 777777 777775 ZZ=ZZ+ZZ+1
21687 IFE <ZZ-1>,<ZZ=-2>
21688 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
21689 DMOVE AC,[0,,0
21690 053264 120 04 0 00 071503 0,,XX]
21691 DFAD AC,[777,,-1
21692 053265 110 04 0 00 071245 -1,,ZZ]
21693 053266 312 04 0 00 071237 CAME AC,[777,,-1]
21694 053267 003 04 0 00 001102 ER3 AC,T
21695 053270 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21696 053271 004 05 0 00 001102 ER4 AC+1,T
21697 053272 321 10 0 00 053264 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21698
21699 001103 T=T+1
21700 000004 XX=XX+XX
21701 IFE XX,<XX=1>
21702 777777 777773 ZZ=ZZ+ZZ+1
21703 IFE <ZZ-1>,<ZZ=-2>
21704 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
21705 DMOVE AC,[0,,0
21706 053273 120 04 0 00 071505 0,,XX]
21707 DFAD AC,[777,,-1
21708 053274 110 04 0 00 071250 -1,,ZZ]
21709 053275 312 04 0 00 071237 CAME AC,[777,,-1]
21710 053276 003 04 0 00 001103 ER3 AC,T
21711 053277 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21712 053300 004 05 0 00 001103 ER4 AC+1,T
21713 053301 321 10 0 00 053273 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21714
21715 001104 T=T+1
21716 000010 XX=XX+XX
21717 IFE XX,<XX=1>
21718 777777 777767 ZZ=ZZ+ZZ+1
21719 IFE <ZZ-1>,<ZZ=-2>
21720 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
21721 DMOVE AC,[0,,0
21722 053302 120 04 0 00 071507 0,,XX]
21723 DFAD AC,[777,,-1
21724 053303 110 04 0 00 071253 -1,,ZZ]
21725 053304 312 04 0 00 071237 CAME AC,[777,,-1]
21726 053305 003 04 0 00 001104 ER3 AC,T
21727 053306 312 05 0 00 071241 CAME AC+1,[377777,,-1]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-4
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0520
21728 053307 004 05 0 00 001104 ER4 AC+1,T
21729 053310 321 10 0 00 053302 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21730
21731 001105 T=T+1
21732 000020 XX=XX+XX
21733 IFE XX,<XX=1>
21734 777777 777757 ZZ=ZZ+ZZ+1
21735 IFE <ZZ-1>,<ZZ=-2>
21736 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
21737 DMOVE AC,[0,,0
21738 053311 120 04 0 00 071511 0,,XX]
21739 DFAD AC,[777,,-1
21740 053312 110 04 0 00 071256 -1,,ZZ]
21741 053313 312 04 0 00 071237 CAME AC,[777,,-1]
21742 053314 003 04 0 00 001105 ER3 AC,T
21743 053315 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21744 053316 004 05 0 00 001105 ER4 AC+1,T
21745 053317 321 10 0 00 053311 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21746
21747 001106 T=T+1
21748 000040 XX=XX+XX
21749 IFE XX,<XX=1>
21750 777777 777737 ZZ=ZZ+ZZ+1
21751 IFE <ZZ-1>,<ZZ=-2>
21752 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
21753 DMOVE AC,[0,,0
21754 053320 120 04 0 00 071513 0,,XX]
21755 DFAD AC,[777,,-1
21756 053321 110 04 0 00 071261 -1,,ZZ]
21757 053322 312 04 0 00 071237 CAME AC,[777,,-1]
21758 053323 003 04 0 00 001106 ER3 AC,T
21759 053324 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21760 053325 004 05 0 00 001106 ER4 AC+1,T
21761 053326 321 10 0 00 053320 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21762
21763 001107 T=T+1
21764 000100 XX=XX+XX
21765 IFE XX,<XX=1>
21766 777777 777677 ZZ=ZZ+ZZ+1
21767 IFE <ZZ-1>,<ZZ=-2>
21768 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
21769 DMOVE AC,[0,,0
21770 053327 120 04 0 00 071515 0,,XX]
21771 DFAD AC,[777,,-1
21772 053330 110 04 0 00 071264 -1,,ZZ]
21773 053331 312 04 0 00 071237 CAME AC,[777,,-1]
21774 053332 003 04 0 00 001107 ER3 AC,T
21775 053333 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21776 053334 004 05 0 00 001107 ER4 AC+1,T
21777 053335 321 10 0 00 053327 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21778
21779 001110 T=T+1
21780 000200 XX=XX+XX
21781 IFE XX,<XX=1>
21782 777777 777577 ZZ=ZZ+ZZ+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-5
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0521
21783 IFE <ZZ-1>,<ZZ=-2>
21784 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
21785 DMOVE AC,[0,,0
21786 053336 120 04 0 00 071517 0,,XX]
21787 DFAD AC,[777,,-1
21788 053337 110 04 0 00 071267 -1,,ZZ]
21789 053340 312 04 0 00 071237 CAME AC,[777,,-1]
21790 053341 003 04 0 00 001110 ER3 AC,T
21791 053342 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21792 053343 004 05 0 00 001110 ER4 AC+1,T
21793 053344 321 10 0 00 053336 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21794
21795 001111 T=T+1
21796 000400 XX=XX+XX
21797 IFE XX,<XX=1>
21798 777777 777377 ZZ=ZZ+ZZ+1
21799 IFE <ZZ-1>,<ZZ=-2>
21800 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
21801 DMOVE AC,[0,,0
21802 053345 120 04 0 00 071521 0,,XX]
21803 DFAD AC,[777,,-1
21804 053346 110 04 0 00 071272 -1,,ZZ]
21805 053347 312 04 0 00 071237 CAME AC,[777,,-1]
21806 053350 003 04 0 00 001111 ER3 AC,T
21807 053351 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21808 053352 004 05 0 00 001111 ER4 AC+1,T
21809 053353 321 10 0 00 053345 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21810
21811 001112 T=T+1
21812 001000 XX=XX+XX
21813 IFE XX,<XX=1>
21814 777777 776777 ZZ=ZZ+ZZ+1
21815 IFE <ZZ-1>,<ZZ=-2>
21816 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
21817 DMOVE AC,[0,,0
21818 053354 120 04 0 00 071523 0,,XX]
21819 DFAD AC,[777,,-1
21820 053355 110 04 0 00 071275 -1,,ZZ]
21821 053356 312 04 0 00 071237 CAME AC,[777,,-1]
21822 053357 003 04 0 00 001112 ER3 AC,T
21823 053360 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21824 053361 004 05 0 00 001112 ER4 AC+1,T
21825 053362 321 10 0 00 053354 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21826
21827 001113 T=T+1
21828 002000 XX=XX+XX
21829 IFE XX,<XX=1>
21830 777777 775777 ZZ=ZZ+ZZ+1
21831 IFE <ZZ-1>,<ZZ=-2>
21832 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
21833 DMOVE AC,[0,,0
21834 053363 120 04 0 00 071525 0,,XX]
21835 DFAD AC,[777,,-1
21836 053364 110 04 0 00 071300 -1,,ZZ]
21837 053365 312 04 0 00 071237 CAME AC,[777,,-1]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-6
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0522
21838 053366 003 04 0 00 001113 ER3 AC,T
21839 053367 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21840 053370 004 05 0 00 001113 ER4 AC+1,T
21841 053371 321 10 0 00 053363 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21842
21843 001114 T=T+1
21844 004000 XX=XX+XX
21845 IFE XX,<XX=1>
21846 777777 773777 ZZ=ZZ+ZZ+1
21847 IFE <ZZ-1>,<ZZ=-2>
21848 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
21849 DMOVE AC,[0,,0
21850 053372 120 04 0 00 071527 0,,XX]
21851 DFAD AC,[777,,-1
21852 053373 110 04 0 00 071303 -1,,ZZ]
21853 053374 312 04 0 00 071237 CAME AC,[777,,-1]
21854 053375 003 04 0 00 001114 ER3 AC,T
21855 053376 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21856 053377 004 05 0 00 001114 ER4 AC+1,T
21857 053400 321 10 0 00 053372 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21858
21859 001115 T=T+1
21860 010000 XX=XX+XX
21861 IFE XX,<XX=1>
21862 777777 767777 ZZ=ZZ+ZZ+1
21863 IFE <ZZ-1>,<ZZ=-2>
21864 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
21865 DMOVE AC,[0,,0
21866 053401 120 04 0 00 071531 0,,XX]
21867 DFAD AC,[777,,-1
21868 053402 110 04 0 00 071306 -1,,ZZ]
21869 053403 312 04 0 00 071237 CAME AC,[777,,-1]
21870 053404 003 04 0 00 001115 ER3 AC,T
21871 053405 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21872 053406 004 05 0 00 001115 ER4 AC+1,T
21873 053407 321 10 0 00 053401 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21874
21875 001116 T=T+1
21876 020000 XX=XX+XX
21877 IFE XX,<XX=1>
21878 777777 757777 ZZ=ZZ+ZZ+1
21879 IFE <ZZ-1>,<ZZ=-2>
21880 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
21881 DMOVE AC,[0,,0
21882 053410 120 04 0 00 071533 0,,XX]
21883 DFAD AC,[777,,-1
21884 053411 110 04 0 00 071311 -1,,ZZ]
21885 053412 312 04 0 00 071237 CAME AC,[777,,-1]
21886 053413 003 04 0 00 001116 ER3 AC,T
21887 053414 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21888 053415 004 05 0 00 001116 ER4 AC+1,T
21889 053416 321 10 0 00 053410 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21890
21891 001117 T=T+1
21892 040000 XX=XX+XX
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-7
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0523
21893 IFE XX,<XX=1>
21894 777777 737777 ZZ=ZZ+ZZ+1
21895 IFE <ZZ-1>,<ZZ=-2>
21896 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
21897 DMOVE AC,[0,,0
21898 053417 120 04 0 00 071535 0,,XX]
21899 DFAD AC,[777,,-1
21900 053420 110 04 0 00 071314 -1,,ZZ]
21901 053421 312 04 0 00 071237 CAME AC,[777,,-1]
21902 053422 003 04 0 00 001117 ER3 AC,T
21903 053423 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21904 053424 004 05 0 00 001117 ER4 AC+1,T
21905 053425 321 10 0 00 053417 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21906
21907 001120 T=T+1
21908 100000 XX=XX+XX
21909 IFE XX,<XX=1>
21910 777777 677777 ZZ=ZZ+ZZ+1
21911 IFE <ZZ-1>,<ZZ=-2>
21912 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
21913 DMOVE AC,[0,,0
21914 053426 120 04 0 00 071537 0,,XX]
21915 DFAD AC,[777,,-1
21916 053427 110 04 0 00 071317 -1,,ZZ]
21917 053430 312 04 0 00 071237 CAME AC,[777,,-1]
21918 053431 003 04 0 00 001120 ER3 AC,T
21919 053432 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21920 053433 004 05 0 00 001120 ER4 AC+1,T
21921 053434 321 10 0 00 053426 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21922
21923 001121 T=T+1
21924 200000 XX=XX+XX
21925 IFE XX,<XX=1>
21926 777777 577777 ZZ=ZZ+ZZ+1
21927 IFE <ZZ-1>,<ZZ=-2>
21928 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
21929 DMOVE AC,[0,,0
21930 053435 120 04 0 00 071541 0,,XX]
21931 DFAD AC,[777,,-1
21932 053436 110 04 0 00 071322 -1,,ZZ]
21933 053437 312 04 0 00 071237 CAME AC,[777,,-1]
21934 053440 003 04 0 00 001121 ER3 AC,T
21935 053441 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21936 053442 004 05 0 00 001121 ER4 AC+1,T
21937 053443 321 10 0 00 053435 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21938
21939 001122 T=T+1
21940 400000 XX=XX+XX
21941 IFE XX,<XX=1>
21942 777777 377777 ZZ=ZZ+ZZ+1
21943 IFE <ZZ-1>,<ZZ=-2>
21944 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
21945 DMOVE AC,[0,,0
21946 053444 120 04 0 00 071543 0,,XX]
21947 DFAD AC,[777,,-1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-8
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0524
21948 053445 110 04 0 00 071325 -1,,ZZ]
21949 053446 312 04 0 00 071237 CAME AC,[777,,-1]
21950 053447 003 04 0 00 001122 ER3 AC,T
21951 053450 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21952 053451 004 05 0 00 001122 ER4 AC+1,T
21953 053452 321 10 0 00 053444 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21954
21955
21956 000000 XX=0
21957 000000 ZZ=0
21958
21959 REPEAT ^D18,
21960 <T=T+1
21961 XX=XX+XX
21962 IFE XX,<XX=1>
21963 ZZ=ZZ+ZZ+1
21964 IFE <ZZ-1>,<ZZ=-2>
21965 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1
21966 >
21967 001123 T=T+1
21968 000000 XX=XX+XX
21969 000001 IFE XX,<XX=1>
21970 000001 ZZ=ZZ+ZZ+1
21971 777777 777776 IFE <ZZ-1>,<ZZ=-2>
21972 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
21973 DMOVE AC,[0,,0
21974 053453 120 04 0 00 071545 XX,,0]
21975 DFAD AC,[777,,-1
21976 053454 110 04 0 00 071330 ZZ,,-1]
21977 053455 312 04 0 00 071237 CAME AC,[777,,-1]
21978 053456 003 04 0 00 001123 ER3 AC,T
21979 053457 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21980 053460 004 05 0 00 001123 ER4 AC+1,T
21981 053461 321 10 0 00 053453 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21982
21983 001124 T=T+1
21984 000002 XX=XX+XX
21985 IFE XX,<XX=1>
21986 777777 777775 ZZ=ZZ+ZZ+1
21987 IFE <ZZ-1>,<ZZ=-2>
21988 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
21989 DMOVE AC,[0,,0
21990 053462 120 04 0 00 071547 XX,,0]
21991 DFAD AC,[777,,-1
21992 053463 110 04 0 00 071333 ZZ,,-1]
21993 053464 312 04 0 00 071237 CAME AC,[777,,-1]
21994 053465 003 04 0 00 001124 ER3 AC,T
21995 053466 312 05 0 00 071241 CAME AC+1,[377777,,-1]
21996 053467 004 05 0 00 001124 ER4 AC+1,T
21997 053470 321 10 0 00 053462 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
21998
21999 001125 T=T+1
22000 000004 XX=XX+XX
22001 IFE XX,<XX=1>
22002 777777 777773 ZZ=ZZ+ZZ+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-9
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0525
22003 IFE <ZZ-1>,<ZZ=-2>
22004 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
22005 DMOVE AC,[0,,0
22006 053471 120 04 0 00 071551 XX,,0]
22007 DFAD AC,[777,,-1
22008 053472 110 04 0 00 071336 ZZ,,-1]
22009 053473 312 04 0 00 071237 CAME AC,[777,,-1]
22010 053474 003 04 0 00 001125 ER3 AC,T
22011 053475 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22012 053476 004 05 0 00 001125 ER4 AC+1,T
22013 053477 321 10 0 00 053471 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22014
22015 001126 T=T+1
22016 000010 XX=XX+XX
22017 IFE XX,<XX=1>
22018 777777 777767 ZZ=ZZ+ZZ+1
22019 IFE <ZZ-1>,<ZZ=-2>
22020 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
22021 DMOVE AC,[0,,0
22022 053500 120 04 0 00 071553 XX,,0]
22023 DFAD AC,[777,,-1
22024 053501 110 04 0 00 071341 ZZ,,-1]
22025 053502 312 04 0 00 071237 CAME AC,[777,,-1]
22026 053503 003 04 0 00 001126 ER3 AC,T
22027 053504 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22028 053505 004 05 0 00 001126 ER4 AC+1,T
22029 053506 321 10 0 00 053500 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22030
22031 001127 T=T+1
22032 000020 XX=XX+XX
22033 IFE XX,<XX=1>
22034 777777 777757 ZZ=ZZ+ZZ+1
22035 IFE <ZZ-1>,<ZZ=-2>
22036 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
22037 DMOVE AC,[0,,0
22038 053507 120 04 0 00 071555 XX,,0]
22039 DFAD AC,[777,,-1
22040 053510 110 04 0 00 071344 ZZ,,-1]
22041 053511 312 04 0 00 071237 CAME AC,[777,,-1]
22042 053512 003 04 0 00 001127 ER3 AC,T
22043 053513 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22044 053514 004 05 0 00 001127 ER4 AC+1,T
22045 053515 321 10 0 00 053507 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22046
22047 001130 T=T+1
22048 000040 XX=XX+XX
22049 IFE XX,<XX=1>
22050 777777 777737 ZZ=ZZ+ZZ+1
22051 IFE <ZZ-1>,<ZZ=-2>
22052 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
22053 DMOVE AC,[0,,0
22054 053516 120 04 0 00 071557 XX,,0]
22055 DFAD AC,[777,,-1
22056 053517 110 04 0 00 071347 ZZ,,-1]
22057 053520 312 04 0 00 071237 CAME AC,[777,,-1]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-10
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0526
22058 053521 003 04 0 00 001130 ER3 AC,T
22059 053522 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22060 053523 004 05 0 00 001130 ER4 AC+1,T
22061 053524 321 10 0 00 053516 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22062
22063 001131 T=T+1
22064 000100 XX=XX+XX
22065 IFE XX,<XX=1>
22066 777777 777677 ZZ=ZZ+ZZ+1
22067 IFE <ZZ-1>,<ZZ=-2>
22068 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
22069 DMOVE AC,[0,,0
22070 053525 120 04 0 00 071561 XX,,0]
22071 DFAD AC,[777,,-1
22072 053526 110 04 0 00 071352 ZZ,,-1]
22073 053527 312 04 0 00 071237 CAME AC,[777,,-1]
22074 053530 003 04 0 00 001131 ER3 AC,T
22075 053531 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22076 053532 004 05 0 00 001131 ER4 AC+1,T
22077 053533 321 10 0 00 053525 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22078
22079 001132 T=T+1
22080 000200 XX=XX+XX
22081 IFE XX,<XX=1>
22082 777777 777577 ZZ=ZZ+ZZ+1
22083 IFE <ZZ-1>,<ZZ=-2>
22084 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
22085 DMOVE AC,[0,,0
22086 053534 120 04 0 00 071563 XX,,0]
22087 DFAD AC,[777,,-1
22088 053535 110 04 0 00 071355 ZZ,,-1]
22089 053536 312 04 0 00 071237 CAME AC,[777,,-1]
22090 053537 003 04 0 00 001132 ER3 AC,T
22091 053540 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22092 053541 004 05 0 00 001132 ER4 AC+1,T
22093 053542 321 10 0 00 053534 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22094
22095 001133 T=T+1
22096 000400 XX=XX+XX
22097 IFE XX,<XX=1>
22098 777777 777377 ZZ=ZZ+ZZ+1
22099 IFE <ZZ-1>,<ZZ=-2>
22100 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
22101 DMOVE AC,[0,,0
22102 053543 120 04 0 00 071565 XX,,0]
22103 DFAD AC,[777,,-1
22104 053544 110 04 0 00 071360 ZZ,,-1]
22105 053545 312 04 0 00 071237 CAME AC,[777,,-1]
22106 053546 003 04 0 00 001133 ER3 AC,T
22107 053547 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22108 053550 004 05 0 00 001133 ER4 AC+1,T
22109 053551 321 10 0 00 053543 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22110
22111 001134 T=T+1
22112 001000 XX=XX+XX
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-11
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0527
22113 IFE XX,<XX=1>
22114 777777 776777 ZZ=ZZ+ZZ+1
22115 IFE <ZZ-1>,<ZZ=-2>
22116 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
22117 DMOVE AC,[0,,0
22118 053552 120 04 0 00 071567 XX,,0]
22119 DFAD AC,[777,,-1
22120 053553 110 04 0 00 071363 ZZ,,-1]
22121 053554 312 04 0 00 071237 CAME AC,[777,,-1]
22122 053555 003 04 0 00 001134 ER3 AC,T
22123 053556 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22124 053557 004 05 0 00 001134 ER4 AC+1,T
22125 053560 321 10 0 00 053552 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22126
22127 001135 T=T+1
22128 002000 XX=XX+XX
22129 IFE XX,<XX=1>
22130 777777 775777 ZZ=ZZ+ZZ+1
22131 IFE <ZZ-1>,<ZZ=-2>
22132 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
22133 DMOVE AC,[0,,0
22134 053561 120 04 0 00 071571 XX,,0]
22135 DFAD AC,[777,,-1
22136 053562 110 04 0 00 071366 ZZ,,-1]
22137 053563 312 04 0 00 071237 CAME AC,[777,,-1]
22138 053564 003 04 0 00 001135 ER3 AC,T
22139 053565 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22140 053566 004 05 0 00 001135 ER4 AC+1,T
22141 053567 321 10 0 00 053561 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22142
22143 001136 T=T+1
22144 004000 XX=XX+XX
22145 IFE XX,<XX=1>
22146 777777 773777 ZZ=ZZ+ZZ+1
22147 IFE <ZZ-1>,<ZZ=-2>
22148 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
22149 DMOVE AC,[0,,0
22150 053570 120 04 0 00 071573 XX,,0]
22151 DFAD AC,[777,,-1
22152 053571 110 04 0 00 071371 ZZ,,-1]
22153 053572 312 04 0 00 071237 CAME AC,[777,,-1]
22154 053573 003 04 0 00 001136 ER3 AC,T
22155 053574 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22156 053575 004 05 0 00 001136 ER4 AC+1,T
22157 053576 321 10 0 00 053570 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22158
22159 001137 T=T+1
22160 010000 XX=XX+XX
22161 IFE XX,<XX=1>
22162 777777 767777 ZZ=ZZ+ZZ+1
22163 IFE <ZZ-1>,<ZZ=-2>
22164 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
22165 DMOVE AC,[0,,0
22166 053577 120 04 0 00 071575 XX,,0]
22167 DFAD AC,[777,,-1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-12
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0528
22168 053600 110 04 0 00 071374 ZZ,,-1]
22169 053601 312 04 0 00 071237 CAME AC,[777,,-1]
22170 053602 003 04 0 00 001137 ER3 AC,T
22171 053603 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22172 053604 004 05 0 00 001137 ER4 AC+1,T
22173 053605 321 10 0 00 053577 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22174
22175 001140 T=T+1
22176 020000 XX=XX+XX
22177 IFE XX,<XX=1>
22178 777777 757777 ZZ=ZZ+ZZ+1
22179 IFE <ZZ-1>,<ZZ=-2>
22180 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
22181 DMOVE AC,[0,,0
22182 053606 120 04 0 00 071577 XX,,0]
22183 DFAD AC,[777,,-1
22184 053607 110 04 0 00 071377 ZZ,,-1]
22185 053610 312 04 0 00 071237 CAME AC,[777,,-1]
22186 053611 003 04 0 00 001140 ER3 AC,T
22187 053612 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22188 053613 004 05 0 00 001140 ER4 AC+1,T
22189 053614 321 10 0 00 053606 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22190
22191 001141 T=T+1
22192 040000 XX=XX+XX
22193 IFE XX,<XX=1>
22194 777777 737777 ZZ=ZZ+ZZ+1
22195 IFE <ZZ-1>,<ZZ=-2>
22196 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
22197 DMOVE AC,[0,,0
22198 053615 120 04 0 00 071601 XX,,0]
22199 DFAD AC,[777,,-1
22200 053616 110 04 0 00 071402 ZZ,,-1]
22201 053617 312 04 0 00 071237 CAME AC,[777,,-1]
22202 053620 003 04 0 00 001141 ER3 AC,T
22203 053621 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22204 053622 004 05 0 00 001141 ER4 AC+1,T
22205 053623 321 10 0 00 053615 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22206
22207 001142 T=T+1
22208 100000 XX=XX+XX
22209 IFE XX,<XX=1>
22210 777777 677777 ZZ=ZZ+ZZ+1
22211 IFE <ZZ-1>,<ZZ=-2>
22212 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
22213 DMOVE AC,[0,,0
22214 053624 120 04 0 00 071603 XX,,0]
22215 DFAD AC,[777,,-1
22216 053625 110 04 0 00 071405 ZZ,,-1]
22217 053626 312 04 0 00 071237 CAME AC,[777,,-1]
22218 053627 003 04 0 00 001142 ER3 AC,T
22219 053630 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22220 053631 004 05 0 00 001142 ER4 AC+1,T
22221 053632 321 10 0 00 053624 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22222
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-13
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0529
22223 001143 T=T+1
22224 200000 XX=XX+XX
22225 IFE XX,<XX=1>
22226 777777 577777 ZZ=ZZ+ZZ+1
22227 IFE <ZZ-1>,<ZZ=-2>
22228 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
22229 DMOVE AC,[0,,0
22230 053633 120 04 0 00 071605 XX,,0]
22231 DFAD AC,[777,,-1
22232 053634 110 04 0 00 071410 ZZ,,-1]
22233 053635 312 04 0 00 071237 CAME AC,[777,,-1]
22234 053636 003 04 0 00 001143 ER3 AC,T
22235 053637 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22236 053640 004 05 0 00 001143 ER4 AC+1,T
22237 053641 321 10 0 00 053633 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22238
22239 001144 T=T+1
22240 400000 XX=XX+XX
22241 IFE XX,<XX=1>
22242 777777 377777 ZZ=ZZ+ZZ+1
22243 IFE <ZZ-1>,<ZZ=-2>
22244 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
22245 DMOVE AC,[0,,0
22246 053642 120 04 0 00 070712 XX,,0]
22247 DFAD AC,[777,,-1
22248 053643 110 04 0 00 071413 ZZ,,-1]
22249 053644 312 04 0 00 071237 CAME AC,[777,,-1]
22250 053645 003 04 0 00 001144 ER3 AC,T
22251 053646 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22252 053647 004 05 0 00 001144 ER4 AC+1,T
22253 053650 321 10 0 00 053642 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22254
22255
22256 000000 XX=0
22257 000000 ZZ=0
22258
22259 REPEAT ^D18,
22260 <T=T+1
22261 XX=XX+XX
22262 IFE XX,<XX=1>
22263 ZZ=ZZ+ZZ+1
22264 IFE <ZZ-1>,<ZZ=-2>
22265 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1
22266 >
22267 001145 T=T+1
22268 000000 XX=XX+XX
22269 000001 IFE XX,<XX=1>
22270 000001 ZZ=ZZ+ZZ+1
22271 777777 777776 IFE <ZZ-1>,<ZZ=-2>
22272 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
22273 DMOVE AC,[0,,XX
22274 053651 120 04 0 00 070673 0,,0]
22275 DFAD AC,[777,,ZZ
22276 053652 110 04 0 00 071415 -1,,-1]
22277 053653 312 04 0 00 071237 CAME AC,[777,,-1]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-14
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0530
22278 053654 003 04 0 00 001145 ER3 AC,T
22279 053655 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22280 053656 004 05 0 00 001145 ER4 AC+1,T
22281 053657 321 10 0 00 053651 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22282
22283 001146 T=T+1
22284 000002 XX=XX+XX
22285 IFE XX,<XX=1>
22286 777777 777775 ZZ=ZZ+ZZ+1
22287 IFE <ZZ-1>,<ZZ=-2>
22288 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
22289 DMOVE AC,[0,,XX
22290 053660 120 04 0 00 071504 0,,0]
22291 DFAD AC,[777,,ZZ
22292 053661 110 04 0 00 071417 -1,,-1]
22293 053662 312 04 0 00 071237 CAME AC,[777,,-1]
22294 053663 003 04 0 00 001146 ER3 AC,T
22295 053664 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22296 053665 004 05 0 00 001146 ER4 AC+1,T
22297 053666 321 10 0 00 053660 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22298
22299 001147 T=T+1
22300 000004 XX=XX+XX
22301 IFE XX,<XX=1>
22302 777777 777773 ZZ=ZZ+ZZ+1
22303 IFE <ZZ-1>,<ZZ=-2>
22304 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
22305 DMOVE AC,[0,,XX
22306 053667 120 04 0 00 071506 0,,0]
22307 DFAD AC,[777,,ZZ
22308 053670 110 04 0 00 071421 -1,,-1]
22309 053671 312 04 0 00 071237 CAME AC,[777,,-1]
22310 053672 003 04 0 00 001147 ER3 AC,T
22311 053673 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22312 053674 004 05 0 00 001147 ER4 AC+1,T
22313 053675 321 10 0 00 053667 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22314
22315 001150 T=T+1
22316 000010 XX=XX+XX
22317 IFE XX,<XX=1>
22318 777777 777767 ZZ=ZZ+ZZ+1
22319 IFE <ZZ-1>,<ZZ=-2>
22320 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
22321 DMOVE AC,[0,,XX
22322 053676 120 04 0 00 071510 0,,0]
22323 DFAD AC,[777,,ZZ
22324 053677 110 04 0 00 071423 -1,,-1]
22325 053700 312 04 0 00 071237 CAME AC,[777,,-1]
22326 053701 003 04 0 00 001150 ER3 AC,T
22327 053702 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22328 053703 004 05 0 00 001150 ER4 AC+1,T
22329 053704 321 10 0 00 053676 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22330
22331 001151 T=T+1
22332 000020 XX=XX+XX
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-15
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0531
22333 IFE XX,<XX=1>
22334 777777 777757 ZZ=ZZ+ZZ+1
22335 IFE <ZZ-1>,<ZZ=-2>
22336 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
22337 DMOVE AC,[0,,XX
22338 053705 120 04 0 00 071512 0,,0]
22339 DFAD AC,[777,,ZZ
22340 053706 110 04 0 00 071425 -1,,-1]
22341 053707 312 04 0 00 071237 CAME AC,[777,,-1]
22342 053710 003 04 0 00 001151 ER3 AC,T
22343 053711 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22344 053712 004 05 0 00 001151 ER4 AC+1,T
22345 053713 321 10 0 00 053705 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22346
22347 001152 T=T+1
22348 000040 XX=XX+XX
22349 IFE XX,<XX=1>
22350 777777 777737 ZZ=ZZ+ZZ+1
22351 IFE <ZZ-1>,<ZZ=-2>
22352 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
22353 DMOVE AC,[0,,XX
22354 053714 120 04 0 00 071514 0,,0]
22355 DFAD AC,[777,,ZZ
22356 053715 110 04 0 00 071427 -1,,-1]
22357 053716 312 04 0 00 071237 CAME AC,[777,,-1]
22358 053717 003 04 0 00 001152 ER3 AC,T
22359 053720 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22360 053721 004 05 0 00 001152 ER4 AC+1,T
22361 053722 321 10 0 00 053714 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22362
22363 001153 T=T+1
22364 000100 XX=XX+XX
22365 IFE XX,<XX=1>
22366 777777 777677 ZZ=ZZ+ZZ+1
22367 IFE <ZZ-1>,<ZZ=-2>
22368 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
22369 DMOVE AC,[0,,XX
22370 053723 120 04 0 00 071516 0,,0]
22371 DFAD AC,[777,,ZZ
22372 053724 110 04 0 00 071431 -1,,-1]
22373 053725 312 04 0 00 071237 CAME AC,[777,,-1]
22374 053726 003 04 0 00 001153 ER3 AC,T
22375 053727 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22376 053730 004 05 0 00 001153 ER4 AC+1,T
22377 053731 321 10 0 00 053723 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22378
22379 001154 T=T+1
22380 000200 XX=XX+XX
22381 IFE XX,<XX=1>
22382 777777 777577 ZZ=ZZ+ZZ+1
22383 IFE <ZZ-1>,<ZZ=-2>
22384 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
22385 DMOVE AC,[0,,XX
22386 053732 120 04 0 00 071520 0,,0]
22387 DFAD AC,[777,,ZZ
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-16
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0532
22388 053733 110 04 0 00 071433 -1,,-1]
22389 053734 312 04 0 00 071237 CAME AC,[777,,-1]
22390 053735 003 04 0 00 001154 ER3 AC,T
22391 053736 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22392 053737 004 05 0 00 001154 ER4 AC+1,T
22393 053740 321 10 0 00 053732 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22394
22395 001155 T=T+1
22396 000400 XX=XX+XX
22397 IFE XX,<XX=1>
22398 777777 777377 ZZ=ZZ+ZZ+1
22399 IFE <ZZ-1>,<ZZ=-2>
22400 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
22401 DMOVE AC,[0,,XX
22402 053741 120 04 0 00 071522 0,,0]
22403 DFAD AC,[777,,ZZ
22404 053742 110 04 0 00 071435 -1,,-1]
22405 053743 312 04 0 00 071237 CAME AC,[777,,-1]
22406 053744 003 04 0 00 001155 ER3 AC,T
22407 053745 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22408 053746 004 05 0 00 001155 ER4 AC+1,T
22409 053747 321 10 0 00 053741 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22410
22411 001156 T=T+1
22412 001000 XX=XX+XX
22413 IFE XX,<XX=1>
22414 777777 776777 ZZ=ZZ+ZZ+1
22415 IFE <ZZ-1>,<ZZ=-2>
22416 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
22417 DMOVE AC,[0,,XX
22418 053750 120 04 0 00 071524 0,,0]
22419 DFAD AC,[777,,ZZ
22420 053751 110 04 0 00 071437 -1,,-1]
22421 053752 312 04 0 00 071237 CAME AC,[777,,-1]
22422 053753 003 04 0 00 001156 ER3 AC,T
22423 053754 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22424 053755 004 05 0 00 001156 ER4 AC+1,T
22425 053756 321 10 0 00 053750 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22426
22427 001157 T=T+1
22428 002000 XX=XX+XX
22429 IFE XX,<XX=1>
22430 777777 775777 ZZ=ZZ+ZZ+1
22431 IFE <ZZ-1>,<ZZ=-2>
22432 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
22433 DMOVE AC,[0,,XX
22434 053757 120 04 0 00 071526 0,,0]
22435 DFAD AC,[777,,ZZ
22436 053760 110 04 0 00 071441 -1,,-1]
22437 053761 312 04 0 00 071237 CAME AC,[777,,-1]
22438 053762 003 04 0 00 001157 ER3 AC,T
22439 053763 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22440 053764 004 05 0 00 001157 ER4 AC+1,T
22441 053765 321 10 0 00 053757 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22442
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-17
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0533
22443 001160 T=T+1
22444 004000 XX=XX+XX
22445 IFE XX,<XX=1>
22446 777777 773777 ZZ=ZZ+ZZ+1
22447 IFE <ZZ-1>,<ZZ=-2>
22448 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
22449 DMOVE AC,[0,,XX
22450 053766 120 04 0 00 071530 0,,0]
22451 DFAD AC,[777,,ZZ
22452 053767 110 04 0 00 071443 -1,,-1]
22453 053770 312 04 0 00 071237 CAME AC,[777,,-1]
22454 053771 003 04 0 00 001160 ER3 AC,T
22455 053772 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22456 053773 004 05 0 00 001160 ER4 AC+1,T
22457 053774 321 10 0 00 053766 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22458
22459 001161 T=T+1
22460 010000 XX=XX+XX
22461 IFE XX,<XX=1>
22462 777777 767777 ZZ=ZZ+ZZ+1
22463 IFE <ZZ-1>,<ZZ=-2>
22464 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
22465 DMOVE AC,[0,,XX
22466 053775 120 04 0 00 071532 0,,0]
22467 DFAD AC,[777,,ZZ
22468 053776 110 04 0 00 071445 -1,,-1]
22469 053777 312 04 0 00 071237 CAME AC,[777,,-1]
22470 054000 003 04 0 00 001161 ER3 AC,T
22471 054001 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22472 054002 004 05 0 00 001161 ER4 AC+1,T
22473 054003 321 10 0 00 053775 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22474
22475 001162 T=T+1
22476 020000 XX=XX+XX
22477 IFE XX,<XX=1>
22478 777777 757777 ZZ=ZZ+ZZ+1
22479 IFE <ZZ-1>,<ZZ=-2>
22480 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
22481 DMOVE AC,[0,,XX
22482 054004 120 04 0 00 071534 0,,0]
22483 DFAD AC,[777,,ZZ
22484 054005 110 04 0 00 071447 -1,,-1]
22485 054006 312 04 0 00 071237 CAME AC,[777,,-1]
22486 054007 003 04 0 00 001162 ER3 AC,T
22487 054010 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22488 054011 004 05 0 00 001162 ER4 AC+1,T
22489 054012 321 10 0 00 054004 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22490
22491 001163 T=T+1
22492 040000 XX=XX+XX
22493 IFE XX,<XX=1>
22494 777777 737777 ZZ=ZZ+ZZ+1
22495 IFE <ZZ-1>,<ZZ=-2>
22496 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
22497 DMOVE AC,[0,,XX
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-18
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0534
22498 054013 120 04 0 00 071536 0,,0]
22499 DFAD AC,[777,,ZZ
22500 054014 110 04 0 00 071451 -1,,-1]
22501 054015 312 04 0 00 071237 CAME AC,[777,,-1]
22502 054016 003 04 0 00 001163 ER3 AC,T
22503 054017 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22504 054020 004 05 0 00 001163 ER4 AC+1,T
22505 054021 321 10 0 00 054013 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22506
22507 001164 T=T+1
22508 100000 XX=XX+XX
22509 IFE XX,<XX=1>
22510 777777 677777 ZZ=ZZ+ZZ+1
22511 IFE <ZZ-1>,<ZZ=-2>
22512 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
22513 DMOVE AC,[0,,XX
22514 054022 120 04 0 00 071540 0,,0]
22515 DFAD AC,[777,,ZZ
22516 054023 110 04 0 00 071453 -1,,-1]
22517 054024 312 04 0 00 071237 CAME AC,[777,,-1]
22518 054025 003 04 0 00 001164 ER3 AC,T
22519 054026 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22520 054027 004 05 0 00 001164 ER4 AC+1,T
22521 054030 321 10 0 00 054022 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22522
22523 001165 T=T+1
22524 200000 XX=XX+XX
22525 IFE XX,<XX=1>
22526 777777 577777 ZZ=ZZ+ZZ+1
22527 IFE <ZZ-1>,<ZZ=-2>
22528 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
22529 DMOVE AC,[0,,XX
22530 054031 120 04 0 00 071542 0,,0]
22531 DFAD AC,[777,,ZZ
22532 054032 110 04 0 00 071455 -1,,-1]
22533 054033 312 04 0 00 071237 CAME AC,[777,,-1]
22534 054034 003 04 0 00 001165 ER3 AC,T
22535 054035 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22536 054036 004 05 0 00 001165 ER4 AC+1,T
22537 054037 321 10 0 00 054031 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22538
22539 001166 T=T+1
22540 400000 XX=XX+XX
22541 IFE XX,<XX=1>
22542 777777 377777 ZZ=ZZ+ZZ+1
22543 IFE <ZZ-1>,<ZZ=-2>
22544 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
22545 DMOVE AC,[0,,XX
22546 054040 120 04 0 00 071544 0,,0]
22547 DFAD AC,[777,,ZZ
22548 054041 110 04 0 00 071457 -1,,-1]
22549 054042 312 04 0 00 071237 CAME AC,[777,,-1]
22550 054043 003 04 0 00 001166 ER3 AC,T
22551 054044 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22552 054045 004 05 0 00 001166 ER4 AC+1,T
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-19
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0535
22553 054046 321 10 0 00 054040 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22554
22555
22556 000000 XX=0
22557 000000 ZZ=0
22558
22559 REPEAT ^D9,
22560 <T=T+1
22561 XX=XX+XX
22562 IFE XX,<XX=1>
22563 ZZ=ZZ+ZZ+1
22564 IFE <ZZ-1>,<ZZ=-2>
22565 DFARP T,XX,0,0,0,ZZ&777,-1,-1,-1,777,-1,377777,-1
22566 >
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0536
22567 001167 T=T+1
22568 000000 XX=XX+XX
22569 000001 IFE XX,<XX=1>
22570 000001 ZZ=ZZ+ZZ+1
22571 777777 777776 IFE <ZZ-1>,<ZZ=-2>
22572 DFARP T,XX,0,0,0,ZZ&777,-1,-1,-1,777,-1,377777,-1^
22573 DMOVE AC,[XX,,0
22574 054047 120 04 0 00 071546 0,,0]
22575 DFAD AC,[ZZ&777,,-1
22576 054050 110 04 0 00 071461 -1,,-1]
22577 054051 312 04 0 00 071237 CAME AC,[777,,-1]
22578 054052 003 04 0 00 001167 ER3 AC,T
22579 054053 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22580 054054 004 05 0 00 001167 ER4 AC+1,T
22581 054055 321 10 0 00 054047 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22582
22583 001170 T=T+1
22584 000002 XX=XX+XX
22585 IFE XX,<XX=1>
22586 777777 777775 ZZ=ZZ+ZZ+1
22587 IFE <ZZ-1>,<ZZ=-2>
22588 DFARP T,XX,0,0,0,ZZ&777,-1,-1,-1,777,-1,377777,-1^
22589 DMOVE AC,[XX,,0
22590 054056 120 04 0 00 071550 0,,0]
22591 DFAD AC,[ZZ&777,,-1
22592 054057 110 04 0 00 071463 -1,,-1]
22593 054060 312 04 0 00 071237 CAME AC,[777,,-1]
22594 054061 003 04 0 00 001170 ER3 AC,T
22595 054062 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22596 054063 004 05 0 00 001170 ER4 AC+1,T
22597 054064 321 10 0 00 054056 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22598
22599 001171 T=T+1
22600 000004 XX=XX+XX
22601 IFE XX,<XX=1>
22602 777777 777773 ZZ=ZZ+ZZ+1
22603 IFE <ZZ-1>,<ZZ=-2>
22604 DFARP T,XX,0,0,0,ZZ&777,-1,-1,-1,777,-1,377777,-1^
22605 DMOVE AC,[XX,,0
22606 054065 120 04 0 00 071552 0,,0]
22607 DFAD AC,[ZZ&777,,-1
22608 054066 110 04 0 00 071465 -1,,-1]
22609 054067 312 04 0 00 071237 CAME AC,[777,,-1]
22610 054070 003 04 0 00 001171 ER3 AC,T
22611 054071 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22612 054072 004 05 0 00 001171 ER4 AC+1,T
22613 054073 321 10 0 00 054065 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22614
22615 001172 T=T+1
22616 000010 XX=XX+XX
22617 IFE XX,<XX=1>
22618 777777 777767 ZZ=ZZ+ZZ+1
22619 IFE <ZZ-1>,<ZZ=-2>
22620 DFARP T,XX,0,0,0,ZZ&777,-1,-1,-1,777,-1,377777,-1^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8-1
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0537
22621 DMOVE AC,[XX,,0
22622 054074 120 04 0 00 071554 0,,0]
22623 DFAD AC,[ZZ&777,,-1
22624 054075 110 04 0 00 071467 -1,,-1]
22625 054076 312 04 0 00 071237 CAME AC,[777,,-1]
22626 054077 003 04 0 00 001172 ER3 AC,T
22627 054100 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22628 054101 004 05 0 00 001172 ER4 AC+1,T
22629 054102 321 10 0 00 054074 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22630
22631 001173 T=T+1
22632 000020 XX=XX+XX
22633 IFE XX,<XX=1>
22634 777777 777757 ZZ=ZZ+ZZ+1
22635 IFE <ZZ-1>,<ZZ=-2>
22636 DFARP T,XX,0,0,0,ZZ&777,-1,-1,-1,777,-1,377777,-1^
22637 DMOVE AC,[XX,,0
22638 054103 120 04 0 00 071556 0,,0]
22639 DFAD AC,[ZZ&777,,-1
22640 054104 110 04 0 00 071471 -1,,-1]
22641 054105 312 04 0 00 071237 CAME AC,[777,,-1]
22642 054106 003 04 0 00 001173 ER3 AC,T
22643 054107 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22644 054110 004 05 0 00 001173 ER4 AC+1,T
22645 054111 321 10 0 00 054103 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22646
22647 001174 T=T+1
22648 000040 XX=XX+XX
22649 IFE XX,<XX=1>
22650 777777 777737 ZZ=ZZ+ZZ+1
22651 IFE <ZZ-1>,<ZZ=-2>
22652 DFARP T,XX,0,0,0,ZZ&777,-1,-1,-1,777,-1,377777,-1^
22653 DMOVE AC,[XX,,0
22654 054112 120 04 0 00 071560 0,,0]
22655 DFAD AC,[ZZ&777,,-1
22656 054113 110 04 0 00 071473 -1,,-1]
22657 054114 312 04 0 00 071237 CAME AC,[777,,-1]
22658 054115 003 04 0 00 001174 ER3 AC,T
22659 054116 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22660 054117 004 05 0 00 001174 ER4 AC+1,T
22661 054120 321 10 0 00 054112 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22662
22663 001175 T=T+1
22664 000100 XX=XX+XX
22665 IFE XX,<XX=1>
22666 777777 777677 ZZ=ZZ+ZZ+1
22667 IFE <ZZ-1>,<ZZ=-2>
22668 DFARP T,XX,0,0,0,ZZ&777,-1,-1,-1,777,-1,377777,-1^
22669 DMOVE AC,[XX,,0
22670 054121 120 04 0 00 071562 0,,0]
22671 DFAD AC,[ZZ&777,,-1
22672 054122 110 04 0 00 071475 -1,,-1]
22673 054123 312 04 0 00 071237 CAME AC,[777,,-1]
22674 054124 003 04 0 00 001175 ER3 AC,T
22675 054125 312 05 0 00 071241 CAME AC+1,[377777,,-1]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8-2
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0538
22676 054126 004 05 0 00 001175 ER4 AC+1,T
22677 054127 321 10 0 00 054121 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22678
22679 001176 T=T+1
22680 000200 XX=XX+XX
22681 IFE XX,<XX=1>
22682 777777 777577 ZZ=ZZ+ZZ+1
22683 IFE <ZZ-1>,<ZZ=-2>
22684 DFARP T,XX,0,0,0,ZZ&777,-1,-1,-1,777,-1,377777,-1^
22685 DMOVE AC,[XX,,0
22686 054130 120 04 0 00 071564 0,,0]
22687 DFAD AC,[ZZ&777,,-1
22688 054131 110 04 0 00 071477 -1,,-1]
22689 054132 312 04 0 00 071237 CAME AC,[777,,-1]
22690 054133 003 04 0 00 001176 ER3 AC,T
22691 054134 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22692 054135 004 05 0 00 001176 ER4 AC+1,T
22693 054136 321 10 0 00 054130 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22694
22695 001177 T=T+1
22696 000400 XX=XX+XX
22697 IFE XX,<XX=1>
22698 777777 777377 ZZ=ZZ+ZZ+1
22699 IFE <ZZ-1>,<ZZ=-2>
22700 DFARP T,XX,0,0,0,ZZ&777,-1,-1,-1,777,-1,377777,-1^
22701 DMOVE AC,[XX,,0
22702 054137 120 04 0 00 071566 0,,0]
22703 DFAD AC,[ZZ&777,,-1
22704 054140 110 04 0 00 071607 -1,,-1]
22705 054141 312 04 0 00 071237 CAME AC,[777,,-1]
22706 054142 003 04 0 00 001177 ER3 AC,T
22707 054143 312 05 0 00 071241 CAME AC+1,[377777,,-1]
22708 054144 004 05 0 00 001177 ER4 AC+1,T
22709 054145 321 10 0 00 054137 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22710
22711 ;RIPPLE ONES (TO A FRACTION OF ALL ONES, ADD A RIPPLED ONE)
22712
22713 001200 T=1200
22714
22715 000000 XX=0
22716
22717 R1200: REPEAT ^D18,
22718 <T=T+1
22719 ZZ=XX
22720 XX=XX+XX
22721 IFE XX,<XX=1>
22722 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ
22723 >
22724 001201 T=T+1
22725 000000 ZZ=XX
22726 000000 XX=XX+XX
22727 000001 IFE XX,<XX=1>
22728 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
22729 DMOVE AC,[200777,,-1
22730 054146 120 04 0 00 071611 -1,,-1]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8-3
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0539
22731 DFAD AC,[200000,,0
22732 054147 110 04 0 00 071234 0,,XX]
22733 054150 312 04 0 00 071613 CAME AC,[201400,,0]
22734 054151 003 04 0 00 001201 ER3 AC,T
22735 054152 312 05 0 00 070660 CAME AC+1,[0,,ZZ]
22736 054153 004 05 0 00 001201 ER4 AC+1,T
22737 054154 321 10 0 00 054146 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22738
22739 001202 T=T+1
22740 000001 ZZ=XX
22741 000002 XX=XX+XX
22742 IFE XX,<XX=1>
22743 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
22744 DMOVE AC,[200777,,-1
22745 054155 120 04 0 00 071611 -1,,-1]
22746 DFAD AC,[200000,,0
22747 054156 110 04 0 00 071231 0,,XX]
22748 054157 312 04 0 00 071613 CAME AC,[201400,,0]
22749 054160 003 04 0 00 001202 ER3 AC,T
22750 054161 312 05 0 00 070673 CAME AC+1,[0,,ZZ]
22751 054162 004 05 0 00 001202 ER4 AC+1,T
22752 054163 321 10 0 00 054155 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22753
22754 001203 T=T+1
22755 000002 ZZ=XX
22756 000004 XX=XX+XX
22757 IFE XX,<XX=1>
22758 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
22759 DMOVE AC,[200777,,-1
22760 054164 120 04 0 00 071611 -1,,-1]
22761 DFAD AC,[200000,,0
22762 054165 110 04 0 00 071226 0,,XX]
22763 054166 312 04 0 00 071613 CAME AC,[201400,,0]
22764 054167 003 04 0 00 001203 ER3 AC,T
22765 054170 312 05 0 00 071232 CAME AC+1,[0,,ZZ]
22766 054171 004 05 0 00 001203 ER4 AC+1,T
22767 054172 321 10 0 00 054164 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22768
22769 001204 T=T+1
22770 000004 ZZ=XX
22771 000010 XX=XX+XX
22772 IFE XX,<XX=1>
22773 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
22774 DMOVE AC,[200777,,-1
22775 054173 120 04 0 00 071611 -1,,-1]
22776 DFAD AC,[200000,,0
22777 054174 110 04 0 00 071223 0,,XX]
22778 054175 312 04 0 00 071613 CAME AC,[201400,,0]
22779 054176 003 04 0 00 001204 ER3 AC,T
22780 054177 312 05 0 00 071227 CAME AC+1,[0,,ZZ]
22781 054200 004 05 0 00 001204 ER4 AC+1,T
22782 054201 321 10 0 00 054173 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22783
22784 001205 T=T+1
22785 000010 ZZ=XX
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8-4
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0540
22786 000020 XX=XX+XX
22787 IFE XX,<XX=1>
22788 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
22789 DMOVE AC,[200777,,-1
22790 054202 120 04 0 00 071611 -1,,-1]
22791 DFAD AC,[200000,,0
22792 054203 110 04 0 00 071220 0,,XX]
22793 054204 312 04 0 00 071613 CAME AC,[201400,,0]
22794 054205 003 04 0 00 001205 ER3 AC,T
22795 054206 312 05 0 00 071224 CAME AC+1,[0,,ZZ]
22796 054207 004 05 0 00 001205 ER4 AC+1,T
22797 054210 321 10 0 00 054202 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22798
22799 001206 T=T+1
22800 000020 ZZ=XX
22801 000040 XX=XX+XX
22802 IFE XX,<XX=1>
22803 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
22804 DMOVE AC,[200777,,-1
22805 054211 120 04 0 00 071611 -1,,-1]
22806 DFAD AC,[200000,,0
22807 054212 110 04 0 00 071215 0,,XX]
22808 054213 312 04 0 00 071613 CAME AC,[201400,,0]
22809 054214 003 04 0 00 001206 ER3 AC,T
22810 054215 312 05 0 00 071221 CAME AC+1,[0,,ZZ]
22811 054216 004 05 0 00 001206 ER4 AC+1,T
22812 054217 321 10 0 00 054211 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22813
22814 001207 T=T+1
22815 000040 ZZ=XX
22816 000100 XX=XX+XX
22817 IFE XX,<XX=1>
22818 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
22819 DMOVE AC,[200777,,-1
22820 054220 120 04 0 00 071611 -1,,-1]
22821 DFAD AC,[200000,,0
22822 054221 110 04 0 00 071212 0,,XX]
22823 054222 312 04 0 00 071613 CAME AC,[201400,,0]
22824 054223 003 04 0 00 001207 ER3 AC,T
22825 054224 312 05 0 00 071216 CAME AC+1,[0,,ZZ]
22826 054225 004 05 0 00 001207 ER4 AC+1,T
22827 054226 321 10 0 00 054220 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22828
22829 001210 T=T+1
22830 000100 ZZ=XX
22831 000200 XX=XX+XX
22832 IFE XX,<XX=1>
22833 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
22834 DMOVE AC,[200777,,-1
22835 054227 120 04 0 00 071611 -1,,-1]
22836 DFAD AC,[200000,,0
22837 054230 110 04 0 00 071207 0,,XX]
22838 054231 312 04 0 00 071613 CAME AC,[201400,,0]
22839 054232 003 04 0 00 001210 ER3 AC,T
22840 054233 312 05 0 00 071213 CAME AC+1,[0,,ZZ]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8-5
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0541
22841 054234 004 05 0 00 001210 ER4 AC+1,T
22842 054235 321 10 0 00 054227 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22843
22844 001211 T=T+1
22845 000200 ZZ=XX
22846 000400 XX=XX+XX
22847 IFE XX,<XX=1>
22848 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
22849 DMOVE AC,[200777,,-1
22850 054236 120 04 0 00 071611 -1,,-1]
22851 DFAD AC,[200000,,0
22852 054237 110 04 0 00 071204 0,,XX]
22853 054240 312 04 0 00 071613 CAME AC,[201400,,0]
22854 054241 003 04 0 00 001211 ER3 AC,T
22855 054242 312 05 0 00 071210 CAME AC+1,[0,,ZZ]
22856 054243 004 05 0 00 001211 ER4 AC+1,T
22857 054244 321 10 0 00 054236 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22858
22859 001212 T=T+1
22860 000400 ZZ=XX
22861 001000 XX=XX+XX
22862 IFE XX,<XX=1>
22863 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
22864 DMOVE AC,[200777,,-1
22865 054245 120 04 0 00 071611 -1,,-1]
22866 DFAD AC,[200000,,0
22867 054246 110 04 0 00 071201 0,,XX]
22868 054247 312 04 0 00 071613 CAME AC,[201400,,0]
22869 054250 003 04 0 00 001212 ER3 AC,T
22870 054251 312 05 0 00 071205 CAME AC+1,[0,,ZZ]
22871 054252 004 05 0 00 001212 ER4 AC+1,T
22872 054253 321 10 0 00 054245 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22873
22874 001213 T=T+1
22875 001000 ZZ=XX
22876 002000 XX=XX+XX
22877 IFE XX,<XX=1>
22878 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
22879 DMOVE AC,[200777,,-1
22880 054254 120 04 0 00 071611 -1,,-1]
22881 DFAD AC,[200000,,0
22882 054255 110 04 0 00 071176 0,,XX]
22883 054256 312 04 0 00 071613 CAME AC,[201400,,0]
22884 054257 003 04 0 00 001213 ER3 AC,T
22885 054260 312 05 0 00 071202 CAME AC+1,[0,,ZZ]
22886 054261 004 05 0 00 001213 ER4 AC+1,T
22887 054262 321 10 0 00 054254 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22888
22889 001214 T=T+1
22890 002000 ZZ=XX
22891 004000 XX=XX+XX
22892 IFE XX,<XX=1>
22893 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
22894 DMOVE AC,[200777,,-1
22895 054263 120 04 0 00 071611 -1,,-1]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8-6
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0542
22896 DFAD AC,[200000,,0
22897 054264 110 04 0 00 071173 0,,XX]
22898 054265 312 04 0 00 071613 CAME AC,[201400,,0]
22899 054266 003 04 0 00 001214 ER3 AC,T
22900 054267 312 05 0 00 071177 CAME AC+1,[0,,ZZ]
22901 054270 004 05 0 00 001214 ER4 AC+1,T
22902 054271 321 10 0 00 054263 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22903
22904 001215 T=T+1
22905 004000 ZZ=XX
22906 010000 XX=XX+XX
22907 IFE XX,<XX=1>
22908 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
22909 DMOVE AC,[200777,,-1
22910 054272 120 04 0 00 071611 -1,,-1]
22911 DFAD AC,[200000,,0
22912 054273 110 04 0 00 071170 0,,XX]
22913 054274 312 04 0 00 071613 CAME AC,[201400,,0]
22914 054275 003 04 0 00 001215 ER3 AC,T
22915 054276 312 05 0 00 071174 CAME AC+1,[0,,ZZ]
22916 054277 004 05 0 00 001215 ER4 AC+1,T
22917 054300 321 10 0 00 054272 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22918
22919 001216 T=T+1
22920 010000 ZZ=XX
22921 020000 XX=XX+XX
22922 IFE XX,<XX=1>
22923 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
22924 DMOVE AC,[200777,,-1
22925 054301 120 04 0 00 071611 -1,,-1]
22926 DFAD AC,[200000,,0
22927 054302 110 04 0 00 071165 0,,XX]
22928 054303 312 04 0 00 071613 CAME AC,[201400,,0]
22929 054304 003 04 0 00 001216 ER3 AC,T
22930 054305 312 05 0 00 071171 CAME AC+1,[0,,ZZ]
22931 054306 004 05 0 00 001216 ER4 AC+1,T
22932 054307 321 10 0 00 054301 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22933
22934 001217 T=T+1
22935 020000 ZZ=XX
22936 040000 XX=XX+XX
22937 IFE XX,<XX=1>
22938 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
22939 DMOVE AC,[200777,,-1
22940 054310 120 04 0 00 071611 -1,,-1]
22941 DFAD AC,[200000,,0
22942 054311 110 04 0 00 071162 0,,XX]
22943 054312 312 04 0 00 071613 CAME AC,[201400,,0]
22944 054313 003 04 0 00 001217 ER3 AC,T
22945 054314 312 05 0 00 071166 CAME AC+1,[0,,ZZ]
22946 054315 004 05 0 00 001217 ER4 AC+1,T
22947 054316 321 10 0 00 054310 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22948
22949 001220 T=T+1
22950 040000 ZZ=XX
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8-7
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0543
22951 100000 XX=XX+XX
22952 IFE XX,<XX=1>
22953 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
22954 DMOVE AC,[200777,,-1
22955 054317 120 04 0 00 071611 -1,,-1]
22956 DFAD AC,[200000,,0
22957 054320 110 04 0 00 071157 0,,XX]
22958 054321 312 04 0 00 071613 CAME AC,[201400,,0]
22959 054322 003 04 0 00 001220 ER3 AC,T
22960 054323 312 05 0 00 071163 CAME AC+1,[0,,ZZ]
22961 054324 004 05 0 00 001220 ER4 AC+1,T
22962 054325 321 10 0 00 054317 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22963
22964 001221 T=T+1
22965 100000 ZZ=XX
22966 200000 XX=XX+XX
22967 IFE XX,<XX=1>
22968 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
22969 DMOVE AC,[200777,,-1
22970 054326 120 04 0 00 071611 -1,,-1]
22971 DFAD AC,[200000,,0
22972 054327 110 04 0 00 071154 0,,XX]
22973 054330 312 04 0 00 071613 CAME AC,[201400,,0]
22974 054331 003 04 0 00 001221 ER3 AC,T
22975 054332 312 05 0 00 071160 CAME AC+1,[0,,ZZ]
22976 054333 004 05 0 00 001221 ER4 AC+1,T
22977 054334 321 10 0 00 054326 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22978
22979 001222 T=T+1
22980 200000 ZZ=XX
22981 400000 XX=XX+XX
22982 IFE XX,<XX=1>
22983 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
22984 DMOVE AC,[200777,,-1
22985 054335 120 04 0 00 071611 -1,,-1]
22986 DFAD AC,[200000,,0
22987 054336 110 04 0 00 071151 0,,XX]
22988 054337 312 04 0 00 071613 CAME AC,[201400,,0]
22989 054340 003 04 0 00 001222 ER3 AC,T
22990 054341 312 05 0 00 071155 CAME AC+1,[0,,ZZ]
22991 054342 004 05 0 00 001222 ER4 AC+1,T
22992 054343 321 10 0 00 054335 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
22993
22994
22995 400000 ZZ=XX
22996 000001 XX=1
22997
22998 001223 T=T+1
22999 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,0,ZZ^
23000 DMOVE AC,[200777,,-1
23001 054344 120 04 0 00 071611 -1,,-1]
23002 DFAD AC,[200000,,0
23003 054345 110 04 0 00 071146 XX,,0]
23004 054346 312 04 0 00 071613 CAME AC,[201400,,0]
23005 054347 003 04 0 00 001223 ER3 AC,T
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8-8
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0544
23006 054350 312 05 0 00 071152 CAME AC+1,[0,,ZZ]
23007 054351 004 05 0 00 001223 ER4 AC+1,T
23008 054352 321 10 0 00 054344 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23009
23010
23011 REPEAT ^D16,
23012 <T=T+1
23013 ZZ=XX
23014 XX=XX+XX
23015 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0
23016 >
23017 001224 T=T+1
23018 000001 ZZ=XX
23019 000002 XX=XX+XX
23020 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
23021 DMOVE AC,[200777,,-1
23022 054353 120 04 0 00 071611 -1,,-1]
23023 DFAD AC,[200000,,0
23024 054354 110 04 0 00 071143 XX,,0]
23025 054355 312 04 0 00 071613 CAME AC,[201400,,0]
23026 054356 003 04 0 00 001224 ER3 AC,T
23027 054357 312 05 0 00 071147 CAME AC+1,[ZZ,,0]
23028 054360 004 05 0 00 001224 ER4 AC+1,T
23029 054361 321 10 0 00 054353 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23030
23031 001225 T=T+1
23032 000002 ZZ=XX
23033 000004 XX=XX+XX
23034 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
23035 DMOVE AC,[200777,,-1
23036 054362 120 04 0 00 071611 -1,,-1]
23037 DFAD AC,[200000,,0
23038 054363 110 04 0 00 071140 XX,,0]
23039 054364 312 04 0 00 071613 CAME AC,[201400,,0]
23040 054365 003 04 0 00 001225 ER3 AC,T
23041 054366 312 05 0 00 071144 CAME AC+1,[ZZ,,0]
23042 054367 004 05 0 00 001225 ER4 AC+1,T
23043 054370 321 10 0 00 054362 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23044
23045 001226 T=T+1
23046 000004 ZZ=XX
23047 000010 XX=XX+XX
23048 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
23049 DMOVE AC,[200777,,-1
23050 054371 120 04 0 00 071611 -1,,-1]
23051 DFAD AC,[200000,,0
23052 054372 110 04 0 00 071135 XX,,0]
23053 054373 312 04 0 00 071613 CAME AC,[201400,,0]
23054 054374 003 04 0 00 001226 ER3 AC,T
23055 054375 312 05 0 00 071141 CAME AC+1,[ZZ,,0]
23056 054376 004 05 0 00 001226 ER4 AC+1,T
23057 054377 321 10 0 00 054371 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23058
23059 001227 T=T+1
23060 000010 ZZ=XX
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8-9
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0545
23061 000020 XX=XX+XX
23062 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
23063 DMOVE AC,[200777,,-1
23064 054400 120 04 0 00 071611 -1,,-1]
23065 DFAD AC,[200000,,0
23066 054401 110 04 0 00 071132 XX,,0]
23067 054402 312 04 0 00 071613 CAME AC,[201400,,0]
23068 054403 003 04 0 00 001227 ER3 AC,T
23069 054404 312 05 0 00 071136 CAME AC+1,[ZZ,,0]
23070 054405 004 05 0 00 001227 ER4 AC+1,T
23071 054406 321 10 0 00 054400 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23072
23073 001230 T=T+1
23074 000020 ZZ=XX
23075 000040 XX=XX+XX
23076 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
23077 DMOVE AC,[200777,,-1
23078 054407 120 04 0 00 071611 -1,,-1]
23079 DFAD AC,[200000,,0
23080 054410 110 04 0 00 071127 XX,,0]
23081 054411 312 04 0 00 071613 CAME AC,[201400,,0]
23082 054412 003 04 0 00 001230 ER3 AC,T
23083 054413 312 05 0 00 071133 CAME AC+1,[ZZ,,0]
23084 054414 004 05 0 00 001230 ER4 AC+1,T
23085 054415 321 10 0 00 054407 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23086
23087 001231 T=T+1
23088 000040 ZZ=XX
23089 000100 XX=XX+XX
23090 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
23091 DMOVE AC,[200777,,-1
23092 054416 120 04 0 00 071611 -1,,-1]
23093 DFAD AC,[200000,,0
23094 054417 110 04 0 00 071124 XX,,0]
23095 054420 312 04 0 00 071613 CAME AC,[201400,,0]
23096 054421 003 04 0 00 001231 ER3 AC,T
23097 054422 312 05 0 00 071130 CAME AC+1,[ZZ,,0]
23098 054423 004 05 0 00 001231 ER4 AC+1,T
23099 054424 321 10 0 00 054416 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23100
23101 001232 T=T+1
23102 000100 ZZ=XX
23103 000200 XX=XX+XX
23104 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
23105 DMOVE AC,[200777,,-1
23106 054425 120 04 0 00 071611 -1,,-1]
23107 DFAD AC,[200000,,0
23108 054426 110 04 0 00 071121 XX,,0]
23109 054427 312 04 0 00 071613 CAME AC,[201400,,0]
23110 054430 003 04 0 00 001232 ER3 AC,T
23111 054431 312 05 0 00 071125 CAME AC+1,[ZZ,,0]
23112 054432 004 05 0 00 001232 ER4 AC+1,T
23113 054433 321 10 0 00 054425 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23114
23115 001233 T=T+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8-10
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0546
23116 000200 ZZ=XX
23117 000400 XX=XX+XX
23118 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
23119 DMOVE AC,[200777,,-1
23120 054434 120 04 0 00 071611 -1,,-1]
23121 DFAD AC,[200000,,0
23122 054435 110 04 0 00 071116 XX,,0]
23123 054436 312 04 0 00 071613 CAME AC,[201400,,0]
23124 054437 003 04 0 00 001233 ER3 AC,T
23125 054440 312 05 0 00 071122 CAME AC+1,[ZZ,,0]
23126 054441 004 05 0 00 001233 ER4 AC+1,T
23127 054442 321 10 0 00 054434 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23128
23129 001234 T=T+1
23130 000400 ZZ=XX
23131 001000 XX=XX+XX
23132 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
23133 DMOVE AC,[200777,,-1
23134 054443 120 04 0 00 071611 -1,,-1]
23135 DFAD AC,[200000,,0
23136 054444 110 04 0 00 071113 XX,,0]
23137 054445 312 04 0 00 071613 CAME AC,[201400,,0]
23138 054446 003 04 0 00 001234 ER3 AC,T
23139 054447 312 05 0 00 071117 CAME AC+1,[ZZ,,0]
23140 054450 004 05 0 00 001234 ER4 AC+1,T
23141 054451 321 10 0 00 054443 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23142
23143 001235 T=T+1
23144 001000 ZZ=XX
23145 002000 XX=XX+XX
23146 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
23147 DMOVE AC,[200777,,-1
23148 054452 120 04 0 00 071611 -1,,-1]
23149 DFAD AC,[200000,,0
23150 054453 110 04 0 00 071110 XX,,0]
23151 054454 312 04 0 00 071613 CAME AC,[201400,,0]
23152 054455 003 04 0 00 001235 ER3 AC,T
23153 054456 312 05 0 00 071114 CAME AC+1,[ZZ,,0]
23154 054457 004 05 0 00 001235 ER4 AC+1,T
23155 054460 321 10 0 00 054452 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23156
23157 001236 T=T+1
23158 002000 ZZ=XX
23159 004000 XX=XX+XX
23160 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
23161 DMOVE AC,[200777,,-1
23162 054461 120 04 0 00 071611 -1,,-1]
23163 DFAD AC,[200000,,0
23164 054462 110 04 0 00 071105 XX,,0]
23165 054463 312 04 0 00 071613 CAME AC,[201400,,0]
23166 054464 003 04 0 00 001236 ER3 AC,T
23167 054465 312 05 0 00 071111 CAME AC+1,[ZZ,,0]
23168 054466 004 05 0 00 001236 ER4 AC+1,T
23169 054467 321 10 0 00 054461 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23170
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8-11
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0547
23171 001237 T=T+1
23172 004000 ZZ=XX
23173 010000 XX=XX+XX
23174 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
23175 DMOVE AC,[200777,,-1
23176 054470 120 04 0 00 071611 -1,,-1]
23177 DFAD AC,[200000,,0
23178 054471 110 04 0 00 071102 XX,,0]
23179 054472 312 04 0 00 071613 CAME AC,[201400,,0]
23180 054473 003 04 0 00 001237 ER3 AC,T
23181 054474 312 05 0 00 071106 CAME AC+1,[ZZ,,0]
23182 054475 004 05 0 00 001237 ER4 AC+1,T
23183 054476 321 10 0 00 054470 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23184
23185 001240 T=T+1
23186 010000 ZZ=XX
23187 020000 XX=XX+XX
23188 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
23189 DMOVE AC,[200777,,-1
23190 054477 120 04 0 00 071611 -1,,-1]
23191 DFAD AC,[200000,,0
23192 054500 110 04 0 00 071077 XX,,0]
23193 054501 312 04 0 00 071613 CAME AC,[201400,,0]
23194 054502 003 04 0 00 001240 ER3 AC,T
23195 054503 312 05 0 00 071103 CAME AC+1,[ZZ,,0]
23196 054504 004 05 0 00 001240 ER4 AC+1,T
23197 054505 321 10 0 00 054477 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23198
23199 001241 T=T+1
23200 020000 ZZ=XX
23201 040000 XX=XX+XX
23202 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
23203 DMOVE AC,[200777,,-1
23204 054506 120 04 0 00 071611 -1,,-1]
23205 DFAD AC,[200000,,0
23206 054507 110 04 0 00 071074 XX,,0]
23207 054510 312 04 0 00 071613 CAME AC,[201400,,0]
23208 054511 003 04 0 00 001241 ER3 AC,T
23209 054512 312 05 0 00 071100 CAME AC+1,[ZZ,,0]
23210 054513 004 05 0 00 001241 ER4 AC+1,T
23211 054514 321 10 0 00 054506 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23212
23213 001242 T=T+1
23214 040000 ZZ=XX
23215 100000 XX=XX+XX
23216 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
23217 DMOVE AC,[200777,,-1
23218 054515 120 04 0 00 071611 -1,,-1]
23219 DFAD AC,[200000,,0
23220 054516 110 04 0 00 071071 XX,,0]
23221 054517 312 04 0 00 071613 CAME AC,[201400,,0]
23222 054520 003 04 0 00 001242 ER3 AC,T
23223 054521 312 05 0 00 071075 CAME AC+1,[ZZ,,0]
23224 054522 004 05 0 00 001242 ER4 AC+1,T
23225 054523 321 10 0 00 054515 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8-12
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0548
23226
23227 001243 T=T+1
23228 100000 ZZ=XX
23229 200000 XX=XX+XX
23230 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
23231 DMOVE AC,[200777,,-1
23232 054524 120 04 0 00 071611 -1,,-1]
23233 DFAD AC,[200000,,0
23234 054525 110 04 0 00 071066 XX,,0]
23235 054526 312 04 0 00 071613 CAME AC,[201400,,0]
23236 054527 003 04 0 00 001243 ER3 AC,T
23237 054530 312 05 0 00 071072 CAME AC+1,[ZZ,,0]
23238 054531 004 05 0 00 001243 ER4 AC+1,T
23239 054532 321 10 0 00 054524 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23240
23241
23242 200000 ZZ=XX
23243 400000 XX=XX+XX
23244
23245 001244 T=T+1
23246 DFARP T,200777,-1,-1,-1,200000,0,XX,0,200777,-1,377777,-1^
23247 DMOVE AC,[200777,,-1
23248 054533 120 04 0 00 071611 -1,,-1]
23249 DFAD AC,[200000,,0
23250 054534 110 04 0 00 071064 XX,,0]
23251 054535 312 04 0 00 071611 CAME AC,[200777,,-1]
23252 054536 003 04 0 00 001244 ER3 AC,T
23253 054537 312 05 0 00 071241 CAME AC+1,[377777,,-1]
23254 054540 004 05 0 00 001244 ER4 AC+1,T
23255 054541 321 10 0 00 054533 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23256
23257 001245 T=T+1
23258 000001 XX=1
23259 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,0,ZZ,0^
23260 DMOVE AC,[200777,,-1
23261 054542 120 04 0 00 071611 -1,,-1]
23262 DFAD AC,[200000,,XX
23263 054543 110 04 0 00 071061 0,,0]
23264 054544 312 04 0 00 071613 CAME AC,[201400,,0]
23265 054545 003 04 0 00 001245 ER3 AC,T
23266 054546 312 05 0 00 070743 CAME AC+1,[ZZ,,0]
23267 054547 004 05 0 00 001245 ER4 AC+1,T
23268 054550 321 10 0 00 054542 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23269
23270 REPEAT ^D17,
23271 <T=T+1
23272 ZZ=XX
23273 XX=XX+XX
23274 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0
23275 >
23276
23277 001246 T=T+1
23278 000001 ZZ=XX
23279 000002 XX=XX+XX
23280 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8-13
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0549
23281 DMOVE AC,[200777,,-1
23282 054551 120 04 0 00 071611 -1,,-1]
23283 DFAD AC,[200000,,XX
23284 054552 110 04 0 00 071056 0,,0]
23285 054553 312 04 0 00 071614 CAME AC,[201400,,ZZ]
23286 054554 003 04 0 00 001246 ER3 AC,T
23287 054555 312 05 0 00 070660 CAME AC+1,[0,,0]
23288 054556 004 05 0 00 001246 ER4 AC+1,T
23289 054557 321 10 0 00 054551 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23290
23291 001247 T=T+1
23292 000002 ZZ=XX
23293 000004 XX=XX+XX
23294 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
23295 DMOVE AC,[200777,,-1
23296 054560 120 04 0 00 071611 -1,,-1]
23297 DFAD AC,[200000,,XX
23298 054561 110 04 0 00 071053 0,,0]
23299 054562 312 04 0 00 071615 CAME AC,[201400,,ZZ]
23300 054563 003 04 0 00 001247 ER3 AC,T
23301 054564 312 05 0 00 070660 CAME AC+1,[0,,0]
23302 054565 004 05 0 00 001247 ER4 AC+1,T
23303 054566 321 10 0 00 054560 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23304
23305 001250 T=T+1
23306 000004 ZZ=XX
23307 000010 XX=XX+XX
23308 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
23309 DMOVE AC,[200777,,-1
23310 054567 120 04 0 00 071611 -1,,-1]
23311 DFAD AC,[200000,,XX
23312 054570 110 04 0 00 071050 0,,0]
23313 054571 312 04 0 00 071616 CAME AC,[201400,,ZZ]
23314 054572 003 04 0 00 001250 ER3 AC,T
23315 054573 312 05 0 00 070660 CAME AC+1,[0,,0]
23316 054574 004 05 0 00 001250 ER4 AC+1,T
23317 054575 321 10 0 00 054567 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23318
23319 001251 T=T+1
23320 000010 ZZ=XX
23321 000020 XX=XX+XX
23322 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
23323 DMOVE AC,[200777,,-1
23324 054576 120 04 0 00 071611 -1,,-1]
23325 DFAD AC,[200000,,XX
23326 054577 110 04 0 00 071045 0,,0]
23327 054600 312 04 0 00 071617 CAME AC,[201400,,ZZ]
23328 054601 003 04 0 00 001251 ER3 AC,T
23329 054602 312 05 0 00 070660 CAME AC+1,[0,,0]
23330 054603 004 05 0 00 001251 ER4 AC+1,T
23331 054604 321 10 0 00 054576 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23332
23333 001252 T=T+1
23334 000020 ZZ=XX
23335 000040 XX=XX+XX
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8-14
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0550
23336 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
23337 DMOVE AC,[200777,,-1
23338 054605 120 04 0 00 071611 -1,,-1]
23339 DFAD AC,[200000,,XX
23340 054606 110 04 0 00 071042 0,,0]
23341 054607 312 04 0 00 071620 CAME AC,[201400,,ZZ]
23342 054610 003 04 0 00 001252 ER3 AC,T
23343 054611 312 05 0 00 070660 CAME AC+1,[0,,0]
23344 054612 004 05 0 00 001252 ER4 AC+1,T
23345 054613 321 10 0 00 054605 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23346
23347 001253 T=T+1
23348 000040 ZZ=XX
23349 000100 XX=XX+XX
23350 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
23351 DMOVE AC,[200777,,-1
23352 054614 120 04 0 00 071611 -1,,-1]
23353 DFAD AC,[200000,,XX
23354 054615 110 04 0 00 071037 0,,0]
23355 054616 312 04 0 00 071621 CAME AC,[201400,,ZZ]
23356 054617 003 04 0 00 001253 ER3 AC,T
23357 054620 312 05 0 00 070660 CAME AC+1,[0,,0]
23358 054621 004 05 0 00 001253 ER4 AC+1,T
23359 054622 321 10 0 00 054614 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23360
23361 001254 T=T+1
23362 000100 ZZ=XX
23363 000200 XX=XX+XX
23364 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
23365 DMOVE AC,[200777,,-1
23366 054623 120 04 0 00 071611 -1,,-1]
23367 DFAD AC,[200000,,XX
23368 054624 110 04 0 00 071034 0,,0]
23369 054625 312 04 0 00 071622 CAME AC,[201400,,ZZ]
23370 054626 003 04 0 00 001254 ER3 AC,T
23371 054627 312 05 0 00 070660 CAME AC+1,[0,,0]
23372 054630 004 05 0 00 001254 ER4 AC+1,T
23373 054631 321 10 0 00 054623 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23374
23375 001255 T=T+1
23376 000200 ZZ=XX
23377 000400 XX=XX+XX
23378 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
23379 DMOVE AC,[200777,,-1
23380 054632 120 04 0 00 071611 -1,,-1]
23381 DFAD AC,[200000,,XX
23382 054633 110 04 0 00 071031 0,,0]
23383 054634 312 04 0 00 071623 CAME AC,[201400,,ZZ]
23384 054635 003 04 0 00 001255 ER3 AC,T
23385 054636 312 05 0 00 070660 CAME AC+1,[0,,0]
23386 054637 004 05 0 00 001255 ER4 AC+1,T
23387 054640 321 10 0 00 054632 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23388
23389 001256 T=T+1
23390 000400 ZZ=XX
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8-15
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0551
23391 001000 XX=XX+XX
23392 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
23393 DMOVE AC,[200777,,-1
23394 054641 120 04 0 00 071611 -1,,-1]
23395 DFAD AC,[200000,,XX
23396 054642 110 04 0 00 071026 0,,0]
23397 054643 312 04 0 00 071624 CAME AC,[201400,,ZZ]
23398 054644 003 04 0 00 001256 ER3 AC,T
23399 054645 312 05 0 00 070660 CAME AC+1,[0,,0]
23400 054646 004 05 0 00 001256 ER4 AC+1,T
23401 054647 321 10 0 00 054641 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23402
23403 001257 T=T+1
23404 001000 ZZ=XX
23405 002000 XX=XX+XX
23406 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
23407 DMOVE AC,[200777,,-1
23408 054650 120 04 0 00 071611 -1,,-1]
23409 DFAD AC,[200000,,XX
23410 054651 110 04 0 00 071023 0,,0]
23411 054652 312 04 0 00 071625 CAME AC,[201400,,ZZ]
23412 054653 003 04 0 00 001257 ER3 AC,T
23413 054654 312 05 0 00 070660 CAME AC+1,[0,,0]
23414 054655 004 05 0 00 001257 ER4 AC+1,T
23415 054656 321 10 0 00 054650 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23416
23417 001260 T=T+1
23418 002000 ZZ=XX
23419 004000 XX=XX+XX
23420 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
23421 DMOVE AC,[200777,,-1
23422 054657 120 04 0 00 071611 -1,,-1]
23423 DFAD AC,[200000,,XX
23424 054660 110 04 0 00 071020 0,,0]
23425 054661 312 04 0 00 071626 CAME AC,[201400,,ZZ]
23426 054662 003 04 0 00 001260 ER3 AC,T
23427 054663 312 05 0 00 070660 CAME AC+1,[0,,0]
23428 054664 004 05 0 00 001260 ER4 AC+1,T
23429 054665 321 10 0 00 054657 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23430
23431 001261 T=T+1
23432 004000 ZZ=XX
23433 010000 XX=XX+XX
23434 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
23435 DMOVE AC,[200777,,-1
23436 054666 120 04 0 00 071611 -1,,-1]
23437 DFAD AC,[200000,,XX
23438 054667 110 04 0 00 071015 0,,0]
23439 054670 312 04 0 00 071627 CAME AC,[201400,,ZZ]
23440 054671 003 04 0 00 001261 ER3 AC,T
23441 054672 312 05 0 00 070660 CAME AC+1,[0,,0]
23442 054673 004 05 0 00 001261 ER4 AC+1,T
23443 054674 321 10 0 00 054666 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23444
23445 001262 T=T+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8-16
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0552
23446 010000 ZZ=XX
23447 020000 XX=XX+XX
23448 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
23449 DMOVE AC,[200777,,-1
23450 054675 120 04 0 00 071611 -1,,-1]
23451 DFAD AC,[200000,,XX
23452 054676 110 04 0 00 071012 0,,0]
23453 054677 312 04 0 00 071630 CAME AC,[201400,,ZZ]
23454 054700 003 04 0 00 001262 ER3 AC,T
23455 054701 312 05 0 00 070660 CAME AC+1,[0,,0]
23456 054702 004 05 0 00 001262 ER4 AC+1,T
23457 054703 321 10 0 00 054675 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23458
23459 001263 T=T+1
23460 020000 ZZ=XX
23461 040000 XX=XX+XX
23462 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
23463 DMOVE AC,[200777,,-1
23464 054704 120 04 0 00 071611 -1,,-1]
23465 DFAD AC,[200000,,XX
23466 054705 110 04 0 00 071007 0,,0]
23467 054706 312 04 0 00 071631 CAME AC,[201400,,ZZ]
23468 054707 003 04 0 00 001263 ER3 AC,T
23469 054710 312 05 0 00 070660 CAME AC+1,[0,,0]
23470 054711 004 05 0 00 001263 ER4 AC+1,T
23471 054712 321 10 0 00 054704 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23472
23473 001264 T=T+1
23474 040000 ZZ=XX
23475 100000 XX=XX+XX
23476 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
23477 DMOVE AC,[200777,,-1
23478 054713 120 04 0 00 071611 -1,,-1]
23479 DFAD AC,[200000,,XX
23480 054714 110 04 0 00 071004 0,,0]
23481 054715 312 04 0 00 071632 CAME AC,[201400,,ZZ]
23482 054716 003 04 0 00 001264 ER3 AC,T
23483 054717 312 05 0 00 070660 CAME AC+1,[0,,0]
23484 054720 004 05 0 00 001264 ER4 AC+1,T
23485 054721 321 10 0 00 054713 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23486
23487 001265 T=T+1
23488 100000 ZZ=XX
23489 200000 XX=XX+XX
23490 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
23491 DMOVE AC,[200777,,-1
23492 054722 120 04 0 00 071611 -1,,-1]
23493 DFAD AC,[200000,,XX
23494 054723 110 04 0 00 071001 0,,0]
23495 054724 312 04 0 00 071633 CAME AC,[201400,,ZZ]
23496 054725 003 04 0 00 001265 ER3 AC,T
23497 054726 312 05 0 00 070660 CAME AC+1,[0,,0]
23498 054727 004 05 0 00 001265 ER4 AC+1,T
23499 054730 321 10 0 00 054722 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23500
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8-17
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0553
23501 001266 T=T+1
23502 200000 ZZ=XX
23503 400000 XX=XX+XX
23504 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
23505 DMOVE AC,[200777,,-1
23506 054731 120 04 0 00 071611 -1,,-1]
23507 DFAD AC,[200000,,XX
23508 054732 110 04 0 00 070776 0,,0]
23509 054733 312 04 0 00 071634 CAME AC,[201400,,ZZ]
23510 054734 003 04 0 00 001266 ER3 AC,T
23511 054735 312 05 0 00 070660 CAME AC+1,[0,,0]
23512 054736 004 05 0 00 001266 ER4 AC+1,T
23513 054737 321 10 0 00 054731 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23514
23515
23516
23517 001267 T=T+1
23518 400000 ZZ=XX
23519 000001 XX=1
23520 DFARP T,200777,-1,-1,-1,200000+XX,0,0,0,201400,ZZ,0,0^
23521 DMOVE AC,[200777,,-1
23522 054740 120 04 0 00 071611 -1,,-1]
23523 DFAD AC,[200000+XX,,0
23524 054741 110 04 0 00 070773 0,,0]
23525 054742 312 04 0 00 071635 CAME AC,[201400,,ZZ]
23526 054743 003 04 0 00 001267 ER3 AC,T
23527 054744 312 05 0 00 070660 CAME AC+1,[0,,0]
23528 054745 004 05 0 00 001267 ER4 AC+1,T
23529 054746 321 10 0 00 054740 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23530
23531 REPEAT ^D8,
23532 <T=T+1
23533 ZZ=XX
23534 XX=XX+XX
23535 DFARP T,200777,-1,-1,-1,200000+XX,0,0,0,201400+ZZ,0,0,0
23536 >
23537 001270 T=T+1
23538 000001 ZZ=XX
23539 000002 XX=XX+XX
23540 DFARP T,200777,-1,-1,-1,200000+XX,0,0,0,201400+ZZ,0,0,0^
23541 DMOVE AC,[200777,,-1
23542 054747 120 04 0 00 071611 -1,,-1]
23543 DFAD AC,[200000+XX,,0
23544 054750 110 04 0 00 070770 0,,0]
23545 054751 312 04 0 00 071636 CAME AC,[201400+ZZ,,0]
23546 054752 003 04 0 00 001270 ER3 AC,T
23547 054753 312 05 0 00 070660 CAME AC+1,[0,,0]
23548 054754 004 05 0 00 001270 ER4 AC+1,T
23549 054755 321 10 0 00 054747 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23550
23551 001271 T=T+1
23552 000002 ZZ=XX
23553 000004 XX=XX+XX
23554 DFARP T,200777,-1,-1,-1,200000+XX,0,0,0,201400+ZZ,0,0,0^
23555 DMOVE AC,[200777,,-1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8-18
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0554
23556 054756 120 04 0 00 071611 -1,,-1]
23557 DFAD AC,[200000+XX,,0
23558 054757 110 04 0 00 070765 0,,0]
23559 054760 312 04 0 00 071637 CAME AC,[201400+ZZ,,0]
23560 054761 003 04 0 00 001271 ER3 AC,T
23561 054762 312 05 0 00 070660 CAME AC+1,[0,,0]
23562 054763 004 05 0 00 001271 ER4 AC+1,T
23563 054764 321 10 0 00 054756 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23564
23565 001272 T=T+1
23566 000004 ZZ=XX
23567 000010 XX=XX+XX
23568 DFARP T,200777,-1,-1,-1,200000+XX,0,0,0,201400+ZZ,0,0,0^
23569 DMOVE AC,[200777,,-1
23570 054765 120 04 0 00 071611 -1,,-1]
23571 DFAD AC,[200000+XX,,0
23572 054766 110 04 0 00 070762 0,,0]
23573 054767 312 04 0 00 071640 CAME AC,[201400+ZZ,,0]
23574 054770 003 04 0 00 001272 ER3 AC,T
23575 054771 312 05 0 00 070660 CAME AC+1,[0,,0]
23576 054772 004 05 0 00 001272 ER4 AC+1,T
23577 054773 321 10 0 00 054765 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23578
23579 001273 T=T+1
23580 000010 ZZ=XX
23581 000020 XX=XX+XX
23582 DFARP T,200777,-1,-1,-1,200000+XX,0,0,0,201400+ZZ,0,0,0^
23583 DMOVE AC,[200777,,-1
23584 054774 120 04 0 00 071611 -1,,-1]
23585 DFAD AC,[200000+XX,,0
23586 054775 110 04 0 00 070757 0,,0]
23587 054776 312 04 0 00 071641 CAME AC,[201400+ZZ,,0]
23588 054777 003 04 0 00 001273 ER3 AC,T
23589 055000 312 05 0 00 070660 CAME AC+1,[0,,0]
23590 055001 004 05 0 00 001273 ER4 AC+1,T
23591 055002 321 10 0 00 054774 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23592
23593 001274 T=T+1
23594 000020 ZZ=XX
23595 000040 XX=XX+XX
23596 DFARP T,200777,-1,-1,-1,200000+XX,0,0,0,201400+ZZ,0,0,0^
23597 DMOVE AC,[200777,,-1
23598 055003 120 04 0 00 071611 -1,,-1]
23599 DFAD AC,[200000+XX,,0
23600 055004 110 04 0 00 070754 0,,0]
23601 055005 312 04 0 00 071642 CAME AC,[201400+ZZ,,0]
23602 055006 003 04 0 00 001274 ER3 AC,T
23603 055007 312 05 0 00 070660 CAME AC+1,[0,,0]
23604 055010 004 05 0 00 001274 ER4 AC+1,T
23605 055011 321 10 0 00 055003 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23606
23607 001275 T=T+1
23608 000040 ZZ=XX
23609 000100 XX=XX+XX
23610 DFARP T,200777,-1,-1,-1,200000+XX,0,0,0,201400+ZZ,0,0,0^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8-19
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0555
23611 DMOVE AC,[200777,,-1
23612 055012 120 04 0 00 071611 -1,,-1]
23613 DFAD AC,[200000+XX,,0
23614 055013 110 04 0 00 070751 0,,0]
23615 055014 312 04 0 00 071643 CAME AC,[201400+ZZ,,0]
23616 055015 003 04 0 00 001275 ER3 AC,T
23617 055016 312 05 0 00 070660 CAME AC+1,[0,,0]
23618 055017 004 05 0 00 001275 ER4 AC+1,T
23619 055020 321 10 0 00 055012 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23620
23621 001276 T=T+1
23622 000100 ZZ=XX
23623 000200 XX=XX+XX
23624 DFARP T,200777,-1,-1,-1,200000+XX,0,0,0,201400+ZZ,0,0,0^
23625 DMOVE AC,[200777,,-1
23626 055021 120 04 0 00 071611 -1,,-1]
23627 DFAD AC,[200000+XX,,0
23628 055022 110 04 0 00 070747 0,,0]
23629 055023 312 04 0 00 071644 CAME AC,[201400+ZZ,,0]
23630 055024 003 04 0 00 001276 ER3 AC,T
23631 055025 312 05 0 00 070660 CAME AC+1,[0,,0]
23632 055026 004 05 0 00 001276 ER4 AC+1,T
23633 055027 321 10 0 00 055021 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23634
23635 001277 T=T+1
23636 000200 ZZ=XX
23637 000400 XX=XX+XX
23638 DFARP T,200777,-1,-1,-1,200000+XX,0,0,0,201400+ZZ,0,0,0^
23639 DMOVE AC,[200777,,-1
23640 055030 120 04 0 00 071611 -1,,-1]
23641 DFAD AC,[200000+XX,,0
23642 055031 110 04 0 00 070745 0,,0]
23643 055032 312 04 0 00 071645 CAME AC,[201400+ZZ,,0]
23644 055033 003 04 0 00 001277 ER3 AC,T
23645 055034 312 05 0 00 070660 CAME AC+1,[0,,0]
23646 055035 004 05 0 00 001277 ER4 AC+1,T
23647 055036 321 10 0 00 055030 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23648
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 9
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0556
23649 ;RIPPLE ONES (TO A RIPPLED ONE, ADD A FRACTION OF ALL ONES)
23650
23651 001300 T=1300
23652
23653 000000 XX=0
23654
23655 R1300: REPEAT ^D18,
23656 <T=T+1
23657 ZZ=XX
23658 XX=XX+XX
23659 IFE XX,<XX=1>
23660 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ
23661 >
23662 001301 T=T+1
23663 000000 ZZ=XX
23664 000000 XX=XX+XX
23665 000001 IFE XX,<XX=1>
23666 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
23667 DMOVE AC,[200000,,0
23668 055037 120 04 0 00 071234 0,,XX]
23669 DFAD AC,[200777,,-1
23670 055040 110 04 0 00 071611 -1,,-1]
23671 055041 312 04 0 00 071613 CAME AC,[201400,,0]
23672 055042 003 04 0 00 001301 ER3 AC,T
23673 055043 312 05 0 00 070660 CAME AC+1,[0,,ZZ]
23674 055044 004 05 0 00 001301 ER4 AC+1,T
23675 055045 321 10 0 00 055037 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23676
23677 001302 T=T+1
23678 000001 ZZ=XX
23679 000002 XX=XX+XX
23680 IFE XX,<XX=1>
23681 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
23682 DMOVE AC,[200000,,0
23683 055046 120 04 0 00 071231 0,,XX]
23684 DFAD AC,[200777,,-1
23685 055047 110 04 0 00 071611 -1,,-1]
23686 055050 312 04 0 00 071613 CAME AC,[201400,,0]
23687 055051 003 04 0 00 001302 ER3 AC,T
23688 055052 312 05 0 00 070673 CAME AC+1,[0,,ZZ]
23689 055053 004 05 0 00 001302 ER4 AC+1,T
23690 055054 321 10 0 00 055046 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23691
23692 001303 T=T+1
23693 000002 ZZ=XX
23694 000004 XX=XX+XX
23695 IFE XX,<XX=1>
23696 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
23697 DMOVE AC,[200000,,0
23698 055055 120 04 0 00 071226 0,,XX]
23699 DFAD AC,[200777,,-1
23700 055056 110 04 0 00 071611 -1,,-1]
23701 055057 312 04 0 00 071613 CAME AC,[201400,,0]
23702 055060 003 04 0 00 001303 ER3 AC,T
23703 055061 312 05 0 00 071232 CAME AC+1,[0,,ZZ]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 9-1
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0557
23704 055062 004 05 0 00 001303 ER4 AC+1,T
23705 055063 321 10 0 00 055055 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23706
23707 001304 T=T+1
23708 000004 ZZ=XX
23709 000010 XX=XX+XX
23710 IFE XX,<XX=1>
23711 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
23712 DMOVE AC,[200000,,0
23713 055064 120 04 0 00 071223 0,,XX]
23714 DFAD AC,[200777,,-1
23715 055065 110 04 0 00 071611 -1,,-1]
23716 055066 312 04 0 00 071613 CAME AC,[201400,,0]
23717 055067 003 04 0 00 001304 ER3 AC,T
23718 055070 312 05 0 00 071227 CAME AC+1,[0,,ZZ]
23719 055071 004 05 0 00 001304 ER4 AC+1,T
23720 055072 321 10 0 00 055064 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23721
23722 001305 T=T+1
23723 000010 ZZ=XX
23724 000020 XX=XX+XX
23725 IFE XX,<XX=1>
23726 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
23727 DMOVE AC,[200000,,0
23728 055073 120 04 0 00 071220 0,,XX]
23729 DFAD AC,[200777,,-1
23730 055074 110 04 0 00 071611 -1,,-1]
23731 055075 312 04 0 00 071613 CAME AC,[201400,,0]
23732 055076 003 04 0 00 001305 ER3 AC,T
23733 055077 312 05 0 00 071224 CAME AC+1,[0,,ZZ]
23734 055100 004 05 0 00 001305 ER4 AC+1,T
23735 055101 321 10 0 00 055073 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23736
23737 001306 T=T+1
23738 000020 ZZ=XX
23739 000040 XX=XX+XX
23740 IFE XX,<XX=1>
23741 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
23742 DMOVE AC,[200000,,0
23743 055102 120 04 0 00 071215 0,,XX]
23744 DFAD AC,[200777,,-1
23745 055103 110 04 0 00 071611 -1,,-1]
23746 055104 312 04 0 00 071613 CAME AC,[201400,,0]
23747 055105 003 04 0 00 001306 ER3 AC,T
23748 055106 312 05 0 00 071221 CAME AC+1,[0,,ZZ]
23749 055107 004 05 0 00 001306 ER4 AC+1,T
23750 055110 321 10 0 00 055102 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23751
23752 001307 T=T+1
23753 000040 ZZ=XX
23754 000100 XX=XX+XX
23755 IFE XX,<XX=1>
23756 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
23757 DMOVE AC,[200000,,0
23758 055111 120 04 0 00 071212 0,,XX]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 9-2
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0558
23759 DFAD AC,[200777,,-1
23760 055112 110 04 0 00 071611 -1,,-1]
23761 055113 312 04 0 00 071613 CAME AC,[201400,,0]
23762 055114 003 04 0 00 001307 ER3 AC,T
23763 055115 312 05 0 00 071216 CAME AC+1,[0,,ZZ]
23764 055116 004 05 0 00 001307 ER4 AC+1,T
23765 055117 321 10 0 00 055111 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23766
23767 001310 T=T+1
23768 000100 ZZ=XX
23769 000200 XX=XX+XX
23770 IFE XX,<XX=1>
23771 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
23772 DMOVE AC,[200000,,0
23773 055120 120 04 0 00 071207 0,,XX]
23774 DFAD AC,[200777,,-1
23775 055121 110 04 0 00 071611 -1,,-1]
23776 055122 312 04 0 00 071613 CAME AC,[201400,,0]
23777 055123 003 04 0 00 001310 ER3 AC,T
23778 055124 312 05 0 00 071213 CAME AC+1,[0,,ZZ]
23779 055125 004 05 0 00 001310 ER4 AC+1,T
23780 055126 321 10 0 00 055120 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23781
23782 001311 T=T+1
23783 000200 ZZ=XX
23784 000400 XX=XX+XX
23785 IFE XX,<XX=1>
23786 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
23787 DMOVE AC,[200000,,0
23788 055127 120 04 0 00 071204 0,,XX]
23789 DFAD AC,[200777,,-1
23790 055130 110 04 0 00 071611 -1,,-1]
23791 055131 312 04 0 00 071613 CAME AC,[201400,,0]
23792 055132 003 04 0 00 001311 ER3 AC,T
23793 055133 312 05 0 00 071210 CAME AC+1,[0,,ZZ]
23794 055134 004 05 0 00 001311 ER4 AC+1,T
23795 055135 321 10 0 00 055127 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23796
23797 001312 T=T+1
23798 000400 ZZ=XX
23799 001000 XX=XX+XX
23800 IFE XX,<XX=1>
23801 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
23802 DMOVE AC,[200000,,0
23803 055136 120 04 0 00 071201 0,,XX]
23804 DFAD AC,[200777,,-1
23805 055137 110 04 0 00 071611 -1,,-1]
23806 055140 312 04 0 00 071613 CAME AC,[201400,,0]
23807 055141 003 04 0 00 001312 ER3 AC,T
23808 055142 312 05 0 00 071205 CAME AC+1,[0,,ZZ]
23809 055143 004 05 0 00 001312 ER4 AC+1,T
23810 055144 321 10 0 00 055136 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23811
23812 001313 T=T+1
23813 001000 ZZ=XX
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 9-3
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0559
23814 002000 XX=XX+XX
23815 IFE XX,<XX=1>
23816 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
23817 DMOVE AC,[200000,,0
23818 055145 120 04 0 00 071176 0,,XX]
23819 DFAD AC,[200777,,-1
23820 055146 110 04 0 00 071611 -1,,-1]
23821 055147 312 04 0 00 071613 CAME AC,[201400,,0]
23822 055150 003 04 0 00 001313 ER3 AC,T
23823 055151 312 05 0 00 071202 CAME AC+1,[0,,ZZ]
23824 055152 004 05 0 00 001313 ER4 AC+1,T
23825 055153 321 10 0 00 055145 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23826
23827 001314 T=T+1
23828 002000 ZZ=XX
23829 004000 XX=XX+XX
23830 IFE XX,<XX=1>
23831 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
23832 DMOVE AC,[200000,,0
23833 055154 120 04 0 00 071173 0,,XX]
23834 DFAD AC,[200777,,-1
23835 055155 110 04 0 00 071611 -1,,-1]
23836 055156 312 04 0 00 071613 CAME AC,[201400,,0]
23837 055157 003 04 0 00 001314 ER3 AC,T
23838 055160 312 05 0 00 071177 CAME AC+1,[0,,ZZ]
23839 055161 004 05 0 00 001314 ER4 AC+1,T
23840 055162 321 10 0 00 055154 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23841
23842 001315 T=T+1
23843 004000 ZZ=XX
23844 010000 XX=XX+XX
23845 IFE XX,<XX=1>
23846 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
23847 DMOVE AC,[200000,,0
23848 055163 120 04 0 00 071170 0,,XX]
23849 DFAD AC,[200777,,-1
23850 055164 110 04 0 00 071611 -1,,-1]
23851 055165 312 04 0 00 071613 CAME AC,[201400,,0]
23852 055166 003 04 0 00 001315 ER3 AC,T
23853 055167 312 05 0 00 071174 CAME AC+1,[0,,ZZ]
23854 055170 004 05 0 00 001315 ER4 AC+1,T
23855 055171 321 10 0 00 055163 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23856
23857 001316 T=T+1
23858 010000 ZZ=XX
23859 020000 XX=XX+XX
23860 IFE XX,<XX=1>
23861 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
23862 DMOVE AC,[200000,,0
23863 055172 120 04 0 00 071165 0,,XX]
23864 DFAD AC,[200777,,-1
23865 055173 110 04 0 00 071611 -1,,-1]
23866 055174 312 04 0 00 071613 CAME AC,[201400,,0]
23867 055175 003 04 0 00 001316 ER3 AC,T
23868 055176 312 05 0 00 071171 CAME AC+1,[0,,ZZ]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 9-4
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0560
23869 055177 004 05 0 00 001316 ER4 AC+1,T
23870 055200 321 10 0 00 055172 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23871
23872 001317 T=T+1
23873 020000 ZZ=XX
23874 040000 XX=XX+XX
23875 IFE XX,<XX=1>
23876 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
23877 DMOVE AC,[200000,,0
23878 055201 120 04 0 00 071162 0,,XX]
23879 DFAD AC,[200777,,-1
23880 055202 110 04 0 00 071611 -1,,-1]
23881 055203 312 04 0 00 071613 CAME AC,[201400,,0]
23882 055204 003 04 0 00 001317 ER3 AC,T
23883 055205 312 05 0 00 071166 CAME AC+1,[0,,ZZ]
23884 055206 004 05 0 00 001317 ER4 AC+1,T
23885 055207 321 10 0 00 055201 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23886
23887 001320 T=T+1
23888 040000 ZZ=XX
23889 100000 XX=XX+XX
23890 IFE XX,<XX=1>
23891 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
23892 DMOVE AC,[200000,,0
23893 055210 120 04 0 00 071157 0,,XX]
23894 DFAD AC,[200777,,-1
23895 055211 110 04 0 00 071611 -1,,-1]
23896 055212 312 04 0 00 071613 CAME AC,[201400,,0]
23897 055213 003 04 0 00 001320 ER3 AC,T
23898 055214 312 05 0 00 071163 CAME AC+1,[0,,ZZ]
23899 055215 004 05 0 00 001320 ER4 AC+1,T
23900 055216 321 10 0 00 055210 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23901
23902 001321 T=T+1
23903 100000 ZZ=XX
23904 200000 XX=XX+XX
23905 IFE XX,<XX=1>
23906 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
23907 DMOVE AC,[200000,,0
23908 055217 120 04 0 00 071154 0,,XX]
23909 DFAD AC,[200777,,-1
23910 055220 110 04 0 00 071611 -1,,-1]
23911 055221 312 04 0 00 071613 CAME AC,[201400,,0]
23912 055222 003 04 0 00 001321 ER3 AC,T
23913 055223 312 05 0 00 071160 CAME AC+1,[0,,ZZ]
23914 055224 004 05 0 00 001321 ER4 AC+1,T
23915 055225 321 10 0 00 055217 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23916
23917 001322 T=T+1
23918 200000 ZZ=XX
23919 400000 XX=XX+XX
23920 IFE XX,<XX=1>
23921 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
23922 DMOVE AC,[200000,,0
23923 055226 120 04 0 00 071151 0,,XX]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 9-5
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0561
23924 DFAD AC,[200777,,-1
23925 055227 110 04 0 00 071611 -1,,-1]
23926 055230 312 04 0 00 071613 CAME AC,[201400,,0]
23927 055231 003 04 0 00 001322 ER3 AC,T
23928 055232 312 05 0 00 071155 CAME AC+1,[0,,ZZ]
23929 055233 004 05 0 00 001322 ER4 AC+1,T
23930 055234 321 10 0 00 055226 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23931
23932
23933 400000 ZZ=XX
23934 000001 XX=1
23935
23936 001323 T=T+1
23937 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,0,ZZ^
23938 DMOVE AC,[200000,,0
23939 055235 120 04 0 00 071146 XX,,0]
23940 DFAD AC,[200777,,-1
23941 055236 110 04 0 00 071611 -1,,-1]
23942 055237 312 04 0 00 071613 CAME AC,[201400,,0]
23943 055240 003 04 0 00 001323 ER3 AC,T
23944 055241 312 05 0 00 071152 CAME AC+1,[0,,ZZ]
23945 055242 004 05 0 00 001323 ER4 AC+1,T
23946 055243 321 10 0 00 055235 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23947
23948
23949 REPEAT ^D16,
23950 <T=T+1
23951 ZZ=XX
23952 XX=XX+XX
23953 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0
23954 >
23955 001324 T=T+1
23956 000001 ZZ=XX
23957 000002 XX=XX+XX
23958 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
23959 DMOVE AC,[200000,,0
23960 055244 120 04 0 00 071143 XX,,0]
23961 DFAD AC,[200777,,-1
23962 055245 110 04 0 00 071611 -1,,-1]
23963 055246 312 04 0 00 071613 CAME AC,[201400,,0]
23964 055247 003 04 0 00 001324 ER3 AC,T
23965 055250 312 05 0 00 071147 CAME AC+1,[ZZ,,0]
23966 055251 004 05 0 00 001324 ER4 AC+1,T
23967 055252 321 10 0 00 055244 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23968
23969 001325 T=T+1
23970 000002 ZZ=XX
23971 000004 XX=XX+XX
23972 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
23973 DMOVE AC,[200000,,0
23974 055253 120 04 0 00 071140 XX,,0]
23975 DFAD AC,[200777,,-1
23976 055254 110 04 0 00 071611 -1,,-1]
23977 055255 312 04 0 00 071613 CAME AC,[201400,,0]
23978 055256 003 04 0 00 001325 ER3 AC,T
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 9-6
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0562
23979 055257 312 05 0 00 071144 CAME AC+1,[ZZ,,0]
23980 055260 004 05 0 00 001325 ER4 AC+1,T
23981 055261 321 10 0 00 055253 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23982
23983 001326 T=T+1
23984 000004 ZZ=XX
23985 000010 XX=XX+XX
23986 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
23987 DMOVE AC,[200000,,0
23988 055262 120 04 0 00 071135 XX,,0]
23989 DFAD AC,[200777,,-1
23990 055263 110 04 0 00 071611 -1,,-1]
23991 055264 312 04 0 00 071613 CAME AC,[201400,,0]
23992 055265 003 04 0 00 001326 ER3 AC,T
23993 055266 312 05 0 00 071141 CAME AC+1,[ZZ,,0]
23994 055267 004 05 0 00 001326 ER4 AC+1,T
23995 055270 321 10 0 00 055262 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
23996
23997 001327 T=T+1
23998 000010 ZZ=XX
23999 000020 XX=XX+XX
24000 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
24001 DMOVE AC,[200000,,0
24002 055271 120 04 0 00 071132 XX,,0]
24003 DFAD AC,[200777,,-1
24004 055272 110 04 0 00 071611 -1,,-1]
24005 055273 312 04 0 00 071613 CAME AC,[201400,,0]
24006 055274 003 04 0 00 001327 ER3 AC,T
24007 055275 312 05 0 00 071136 CAME AC+1,[ZZ,,0]
24008 055276 004 05 0 00 001327 ER4 AC+1,T
24009 055277 321 10 0 00 055271 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24010
24011 001330 T=T+1
24012 000020 ZZ=XX
24013 000040 XX=XX+XX
24014 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
24015 DMOVE AC,[200000,,0
24016 055300 120 04 0 00 071127 XX,,0]
24017 DFAD AC,[200777,,-1
24018 055301 110 04 0 00 071611 -1,,-1]
24019 055302 312 04 0 00 071613 CAME AC,[201400,,0]
24020 055303 003 04 0 00 001330 ER3 AC,T
24021 055304 312 05 0 00 071133 CAME AC+1,[ZZ,,0]
24022 055305 004 05 0 00 001330 ER4 AC+1,T
24023 055306 321 10 0 00 055300 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24024
24025 001331 T=T+1
24026 000040 ZZ=XX
24027 000100 XX=XX+XX
24028 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
24029 DMOVE AC,[200000,,0
24030 055307 120 04 0 00 071124 XX,,0]
24031 DFAD AC,[200777,,-1
24032 055310 110 04 0 00 071611 -1,,-1]
24033 055311 312 04 0 00 071613 CAME AC,[201400,,0]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 9-7
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0563
24034 055312 003 04 0 00 001331 ER3 AC,T
24035 055313 312 05 0 00 071130 CAME AC+1,[ZZ,,0]
24036 055314 004 05 0 00 001331 ER4 AC+1,T
24037 055315 321 10 0 00 055307 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24038
24039 001332 T=T+1
24040 000100 ZZ=XX
24041 000200 XX=XX+XX
24042 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
24043 DMOVE AC,[200000,,0
24044 055316 120 04 0 00 071121 XX,,0]
24045 DFAD AC,[200777,,-1
24046 055317 110 04 0 00 071611 -1,,-1]
24047 055320 312 04 0 00 071613 CAME AC,[201400,,0]
24048 055321 003 04 0 00 001332 ER3 AC,T
24049 055322 312 05 0 00 071125 CAME AC+1,[ZZ,,0]
24050 055323 004 05 0 00 001332 ER4 AC+1,T
24051 055324 321 10 0 00 055316 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24052
24053 001333 T=T+1
24054 000200 ZZ=XX
24055 000400 XX=XX+XX
24056 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
24057 DMOVE AC,[200000,,0
24058 055325 120 04 0 00 071116 XX,,0]
24059 DFAD AC,[200777,,-1
24060 055326 110 04 0 00 071611 -1,,-1]
24061 055327 312 04 0 00 071613 CAME AC,[201400,,0]
24062 055330 003 04 0 00 001333 ER3 AC,T
24063 055331 312 05 0 00 071122 CAME AC+1,[ZZ,,0]
24064 055332 004 05 0 00 001333 ER4 AC+1,T
24065 055333 321 10 0 00 055325 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24066
24067 001334 T=T+1
24068 000400 ZZ=XX
24069 001000 XX=XX+XX
24070 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
24071 DMOVE AC,[200000,,0
24072 055334 120 04 0 00 071113 XX,,0]
24073 DFAD AC,[200777,,-1
24074 055335 110 04 0 00 071611 -1,,-1]
24075 055336 312 04 0 00 071613 CAME AC,[201400,,0]
24076 055337 003 04 0 00 001334 ER3 AC,T
24077 055340 312 05 0 00 071117 CAME AC+1,[ZZ,,0]
24078 055341 004 05 0 00 001334 ER4 AC+1,T
24079 055342 321 10 0 00 055334 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24080
24081 001335 T=T+1
24082 001000 ZZ=XX
24083 002000 XX=XX+XX
24084 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
24085 DMOVE AC,[200000,,0
24086 055343 120 04 0 00 071110 XX,,0]
24087 DFAD AC,[200777,,-1
24088 055344 110 04 0 00 071611 -1,,-1]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 9-8
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0564
24089 055345 312 04 0 00 071613 CAME AC,[201400,,0]
24090 055346 003 04 0 00 001335 ER3 AC,T
24091 055347 312 05 0 00 071114 CAME AC+1,[ZZ,,0]
24092 055350 004 05 0 00 001335 ER4 AC+1,T
24093 055351 321 10 0 00 055343 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24094
24095 001336 T=T+1
24096 002000 ZZ=XX
24097 004000 XX=XX+XX
24098 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
24099 DMOVE AC,[200000,,0
24100 055352 120 04 0 00 071105 XX,,0]
24101 DFAD AC,[200777,,-1
24102 055353 110 04 0 00 071611 -1,,-1]
24103 055354 312 04 0 00 071613 CAME AC,[201400,,0]
24104 055355 003 04 0 00 001336 ER3 AC,T
24105 055356 312 05 0 00 071111 CAME AC+1,[ZZ,,0]
24106 055357 004 05 0 00 001336 ER4 AC+1,T
24107 055360 321 10 0 00 055352 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24108
24109 001337 T=T+1
24110 004000 ZZ=XX
24111 010000 XX=XX+XX
24112 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
24113 DMOVE AC,[200000,,0
24114 055361 120 04 0 00 071102 XX,,0]
24115 DFAD AC,[200777,,-1
24116 055362 110 04 0 00 071611 -1,,-1]
24117 055363 312 04 0 00 071613 CAME AC,[201400,,0]
24118 055364 003 04 0 00 001337 ER3 AC,T
24119 055365 312 05 0 00 071106 CAME AC+1,[ZZ,,0]
24120 055366 004 05 0 00 001337 ER4 AC+1,T
24121 055367 321 10 0 00 055361 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24122
24123 001340 T=T+1
24124 010000 ZZ=XX
24125 020000 XX=XX+XX
24126 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
24127 DMOVE AC,[200000,,0
24128 055370 120 04 0 00 071077 XX,,0]
24129 DFAD AC,[200777,,-1
24130 055371 110 04 0 00 071611 -1,,-1]
24131 055372 312 04 0 00 071613 CAME AC,[201400,,0]
24132 055373 003 04 0 00 001340 ER3 AC,T
24133 055374 312 05 0 00 071103 CAME AC+1,[ZZ,,0]
24134 055375 004 05 0 00 001340 ER4 AC+1,T
24135 055376 321 10 0 00 055370 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24136
24137 001341 T=T+1
24138 020000 ZZ=XX
24139 040000 XX=XX+XX
24140 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
24141 DMOVE AC,[200000,,0
24142 055377 120 04 0 00 071074 XX,,0]
24143 DFAD AC,[200777,,-1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 9-9
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0565
24144 055400 110 04 0 00 071611 -1,,-1]
24145 055401 312 04 0 00 071613 CAME AC,[201400,,0]
24146 055402 003 04 0 00 001341 ER3 AC,T
24147 055403 312 05 0 00 071100 CAME AC+1,[ZZ,,0]
24148 055404 004 05 0 00 001341 ER4 AC+1,T
24149 055405 321 10 0 00 055377 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24150
24151 001342 T=T+1
24152 040000 ZZ=XX
24153 100000 XX=XX+XX
24154 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
24155 DMOVE AC,[200000,,0
24156 055406 120 04 0 00 071071 XX,,0]
24157 DFAD AC,[200777,,-1
24158 055407 110 04 0 00 071611 -1,,-1]
24159 055410 312 04 0 00 071613 CAME AC,[201400,,0]
24160 055411 003 04 0 00 001342 ER3 AC,T
24161 055412 312 05 0 00 071075 CAME AC+1,[ZZ,,0]
24162 055413 004 05 0 00 001342 ER4 AC+1,T
24163 055414 321 10 0 00 055406 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24164
24165 001343 T=T+1
24166 100000 ZZ=XX
24167 200000 XX=XX+XX
24168 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
24169 DMOVE AC,[200000,,0
24170 055415 120 04 0 00 071066 XX,,0]
24171 DFAD AC,[200777,,-1
24172 055416 110 04 0 00 071611 -1,,-1]
24173 055417 312 04 0 00 071613 CAME AC,[201400,,0]
24174 055420 003 04 0 00 001343 ER3 AC,T
24175 055421 312 05 0 00 071072 CAME AC+1,[ZZ,,0]
24176 055422 004 05 0 00 001343 ER4 AC+1,T
24177 055423 321 10 0 00 055415 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24178
24179
24180
24181 200000 ZZ=XX
24182 400000 XX=XX+XX
24183 001344 T=T+1
24184 DFARP T,200000,0,XX,0,200777,-1,-1,-1,200777,-1,377777,-1^
24185 DMOVE AC,[200000,,0
24186 055424 120 04 0 00 071064 XX,,0]
24187 DFAD AC,[200777,,-1
24188 055425 110 04 0 00 071611 -1,,-1]
24189 055426 312 04 0 00 071611 CAME AC,[200777,,-1]
24190 055427 003 04 0 00 001344 ER3 AC,T
24191 055430 312 05 0 00 071241 CAME AC+1,[377777,,-1]
24192 055431 004 05 0 00 001344 ER4 AC+1,T
24193 055432 321 10 0 00 055424 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24194
24195
24196 000001 XX=1
24197 001345 T=T+1
24198 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,0,ZZ,0^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 9-10
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0566
24199 DMOVE AC,[200000,,XX
24200 055433 120 04 0 00 071061 0,,0]
24201 DFAD AC,[200777,,-1
24202 055434 110 04 0 00 071611 -1,,-1]
24203 055435 312 04 0 00 071613 CAME AC,[201400,,0]
24204 055436 003 04 0 00 001345 ER3 AC,T
24205 055437 312 05 0 00 070743 CAME AC+1,[ZZ,,0]
24206 055440 004 05 0 00 001345 ER4 AC+1,T
24207 055441 321 10 0 00 055433 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24208 REPEAT ^D17,
24209 <T=T+1
24210 ZZ=XX
24211 XX=XX+XX
24212 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0
24213 >
24214 001346 T=T+1
24215 000001 ZZ=XX
24216 000002 XX=XX+XX
24217 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
24218 DMOVE AC,[200000,,XX
24219 055442 120 04 0 00 071056 0,,0]
24220 DFAD AC,[200777,,-1
24221 055443 110 04 0 00 071611 -1,,-1]
24222 055444 312 04 0 00 071614 CAME AC,[201400,,ZZ]
24223 055445 003 04 0 00 001346 ER3 AC,T
24224 055446 312 05 0 00 070660 CAME AC+1,[0,,0]
24225 055447 004 05 0 00 001346 ER4 AC+1,T
24226 055450 321 10 0 00 055442 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24227
24228 001347 T=T+1
24229 000002 ZZ=XX
24230 000004 XX=XX+XX
24231 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
24232 DMOVE AC,[200000,,XX
24233 055451 120 04 0 00 071053 0,,0]
24234 DFAD AC,[200777,,-1
24235 055452 110 04 0 00 071611 -1,,-1]
24236 055453 312 04 0 00 071615 CAME AC,[201400,,ZZ]
24237 055454 003 04 0 00 001347 ER3 AC,T
24238 055455 312 05 0 00 070660 CAME AC+1,[0,,0]
24239 055456 004 05 0 00 001347 ER4 AC+1,T
24240 055457 321 10 0 00 055451 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24241
24242 001350 T=T+1
24243 000004 ZZ=XX
24244 000010 XX=XX+XX
24245 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
24246 DMOVE AC,[200000,,XX
24247 055460 120 04 0 00 071050 0,,0]
24248 DFAD AC,[200777,,-1
24249 055461 110 04 0 00 071611 -1,,-1]
24250 055462 312 04 0 00 071616 CAME AC,[201400,,ZZ]
24251 055463 003 04 0 00 001350 ER3 AC,T
24252 055464 312 05 0 00 070660 CAME AC+1,[0,,0]
24253 055465 004 05 0 00 001350 ER4 AC+1,T
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 9-11
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0567
24254 055466 321 10 0 00 055460 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24255
24256 001351 T=T+1
24257 000010 ZZ=XX
24258 000020 XX=XX+XX
24259 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
24260 DMOVE AC,[200000,,XX
24261 055467 120 04 0 00 071045 0,,0]
24262 DFAD AC,[200777,,-1
24263 055470 110 04 0 00 071611 -1,,-1]
24264 055471 312 04 0 00 071617 CAME AC,[201400,,ZZ]
24265 055472 003 04 0 00 001351 ER3 AC,T
24266 055473 312 05 0 00 070660 CAME AC+1,[0,,0]
24267 055474 004 05 0 00 001351 ER4 AC+1,T
24268 055475 321 10 0 00 055467 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24269
24270 001352 T=T+1
24271 000020 ZZ=XX
24272 000040 XX=XX+XX
24273 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
24274 DMOVE AC,[200000,,XX
24275 055476 120 04 0 00 071042 0,,0]
24276 DFAD AC,[200777,,-1
24277 055477 110 04 0 00 071611 -1,,-1]
24278 055500 312 04 0 00 071620 CAME AC,[201400,,ZZ]
24279 055501 003 04 0 00 001352 ER3 AC,T
24280 055502 312 05 0 00 070660 CAME AC+1,[0,,0]
24281 055503 004 05 0 00 001352 ER4 AC+1,T
24282 055504 321 10 0 00 055476 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24283
24284 001353 T=T+1
24285 000040 ZZ=XX
24286 000100 XX=XX+XX
24287 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
24288 DMOVE AC,[200000,,XX
24289 055505 120 04 0 00 071037 0,,0]
24290 DFAD AC,[200777,,-1
24291 055506 110 04 0 00 071611 -1,,-1]
24292 055507 312 04 0 00 071621 CAME AC,[201400,,ZZ]
24293 055510 003 04 0 00 001353 ER3 AC,T
24294 055511 312 05 0 00 070660 CAME AC+1,[0,,0]
24295 055512 004 05 0 00 001353 ER4 AC+1,T
24296 055513 321 10 0 00 055505 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24297
24298 001354 T=T+1
24299 000100 ZZ=XX
24300 000200 XX=XX+XX
24301 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
24302 DMOVE AC,[200000,,XX
24303 055514 120 04 0 00 071034 0,,0]
24304 DFAD AC,[200777,,-1
24305 055515 110 04 0 00 071611 -1,,-1]
24306 055516 312 04 0 00 071622 CAME AC,[201400,,ZZ]
24307 055517 003 04 0 00 001354 ER3 AC,T
24308 055520 312 05 0 00 070660 CAME AC+1,[0,,0]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 9-12
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0568
24309 055521 004 05 0 00 001354 ER4 AC+1,T
24310 055522 321 10 0 00 055514 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24311
24312 001355 T=T+1
24313 000200 ZZ=XX
24314 000400 XX=XX+XX
24315 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
24316 DMOVE AC,[200000,,XX
24317 055523 120 04 0 00 071031 0,,0]
24318 DFAD AC,[200777,,-1
24319 055524 110 04 0 00 071611 -1,,-1]
24320 055525 312 04 0 00 071623 CAME AC,[201400,,ZZ]
24321 055526 003 04 0 00 001355 ER3 AC,T
24322 055527 312 05 0 00 070660 CAME AC+1,[0,,0]
24323 055530 004 05 0 00 001355 ER4 AC+1,T
24324 055531 321 10 0 00 055523 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24325
24326 001356 T=T+1
24327 000400 ZZ=XX
24328 001000 XX=XX+XX
24329 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
24330 DMOVE AC,[200000,,XX
24331 055532 120 04 0 00 071026 0,,0]
24332 DFAD AC,[200777,,-1
24333 055533 110 04 0 00 071611 -1,,-1]
24334 055534 312 04 0 00 071624 CAME AC,[201400,,ZZ]
24335 055535 003 04 0 00 001356 ER3 AC,T
24336 055536 312 05 0 00 070660 CAME AC+1,[0,,0]
24337 055537 004 05 0 00 001356 ER4 AC+1,T
24338 055540 321 10 0 00 055532 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24339
24340 001357 T=T+1
24341 001000 ZZ=XX
24342 002000 XX=XX+XX
24343 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
24344 DMOVE AC,[200000,,XX
24345 055541 120 04 0 00 071023 0,,0]
24346 DFAD AC,[200777,,-1
24347 055542 110 04 0 00 071611 -1,,-1]
24348 055543 312 04 0 00 071625 CAME AC,[201400,,ZZ]
24349 055544 003 04 0 00 001357 ER3 AC,T
24350 055545 312 05 0 00 070660 CAME AC+1,[0,,0]
24351 055546 004 05 0 00 001357 ER4 AC+1,T
24352 055547 321 10 0 00 055541 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24353
24354 001360 T=T+1
24355 002000 ZZ=XX
24356 004000 XX=XX+XX
24357 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
24358 DMOVE AC,[200000,,XX
24359 055550 120 04 0 00 071020 0,,0]
24360 DFAD AC,[200777,,-1
24361 055551 110 04 0 00 071611 -1,,-1]
24362 055552 312 04 0 00 071626 CAME AC,[201400,,ZZ]
24363 055553 003 04 0 00 001360 ER3 AC,T
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 9-13
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0569
24364 055554 312 05 0 00 070660 CAME AC+1,[0,,0]
24365 055555 004 05 0 00 001360 ER4 AC+1,T
24366 055556 321 10 0 00 055550 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24367
24368 001361 T=T+1
24369 004000 ZZ=XX
24370 010000 XX=XX+XX
24371 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
24372 DMOVE AC,[200000,,XX
24373 055557 120 04 0 00 071015 0,,0]
24374 DFAD AC,[200777,,-1
24375 055560 110 04 0 00 071611 -1,,-1]
24376 055561 312 04 0 00 071627 CAME AC,[201400,,ZZ]
24377 055562 003 04 0 00 001361 ER3 AC,T
24378 055563 312 05 0 00 070660 CAME AC+1,[0,,0]
24379 055564 004 05 0 00 001361 ER4 AC+1,T
24380 055565 321 10 0 00 055557 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24381
24382 001362 T=T+1
24383 010000 ZZ=XX
24384 020000 XX=XX+XX
24385 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
24386 DMOVE AC,[200000,,XX
24387 055566 120 04 0 00 071012 0,,0]
24388 DFAD AC,[200777,,-1
24389 055567 110 04 0 00 071611 -1,,-1]
24390 055570 312 04 0 00 071630 CAME AC,[201400,,ZZ]
24391 055571 003 04 0 00 001362 ER3 AC,T
24392 055572 312 05 0 00 070660 CAME AC+1,[0,,0]
24393 055573 004 05 0 00 001362 ER4 AC+1,T
24394 055574 321 10 0 00 055566 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24395
24396 001363 T=T+1
24397 020000 ZZ=XX
24398 040000 XX=XX+XX
24399 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
24400 DMOVE AC,[200000,,XX
24401 055575 120 04 0 00 071007 0,,0]
24402 DFAD AC,[200777,,-1
24403 055576 110 04 0 00 071611 -1,,-1]
24404 055577 312 04 0 00 071631 CAME AC,[201400,,ZZ]
24405 055600 003 04 0 00 001363 ER3 AC,T
24406 055601 312 05 0 00 070660 CAME AC+1,[0,,0]
24407 055602 004 05 0 00 001363 ER4 AC+1,T
24408 055603 321 10 0 00 055575 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24409
24410 001364 T=T+1
24411 040000 ZZ=XX
24412 100000 XX=XX+XX
24413 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
24414 DMOVE AC,[200000,,XX
24415 055604 120 04 0 00 071004 0,,0]
24416 DFAD AC,[200777,,-1
24417 055605 110 04 0 00 071611 -1,,-1]
24418 055606 312 04 0 00 071632 CAME AC,[201400,,ZZ]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 9-14
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0570
24419 055607 003 04 0 00 001364 ER3 AC,T
24420 055610 312 05 0 00 070660 CAME AC+1,[0,,0]
24421 055611 004 05 0 00 001364 ER4 AC+1,T
24422 055612 321 10 0 00 055604 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24423
24424 001365 T=T+1
24425 100000 ZZ=XX
24426 200000 XX=XX+XX
24427 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
24428 DMOVE AC,[200000,,XX
24429 055613 120 04 0 00 071001 0,,0]
24430 DFAD AC,[200777,,-1
24431 055614 110 04 0 00 071611 -1,,-1]
24432 055615 312 04 0 00 071633 CAME AC,[201400,,ZZ]
24433 055616 003 04 0 00 001365 ER3 AC,T
24434 055617 312 05 0 00 070660 CAME AC+1,[0,,0]
24435 055620 004 05 0 00 001365 ER4 AC+1,T
24436 055621 321 10 0 00 055613 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24437
24438 001366 T=T+1
24439 200000 ZZ=XX
24440 400000 XX=XX+XX
24441 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
24442 DMOVE AC,[200000,,XX
24443 055622 120 04 0 00 070776 0,,0]
24444 DFAD AC,[200777,,-1
24445 055623 110 04 0 00 071611 -1,,-1]
24446 055624 312 04 0 00 071634 CAME AC,[201400,,ZZ]
24447 055625 003 04 0 00 001366 ER3 AC,T
24448 055626 312 05 0 00 070660 CAME AC+1,[0,,0]
24449 055627 004 05 0 00 001366 ER4 AC+1,T
24450 055630 321 10 0 00 055622 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24451
24452
24453 001367 T=T+1
24454 400000 ZZ=XX
24455 000001 XX=1
24456 DFARP T,200000+XX,0,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
24457 DMOVE AC,[200000+XX,,0
24458 055631 120 04 0 00 070773 0,,0]
24459 DFAD AC,[200777,,-1
24460 055632 110 04 0 00 071611 -1,,-1]
24461 055633 312 04 0 00 071635 CAME AC,[201400,,ZZ]
24462 055634 003 04 0 00 001367 ER3 AC,T
24463 055635 312 05 0 00 070660 CAME AC+1,[0,,0]
24464 055636 004 05 0 00 001367 ER4 AC+1,T
24465 055637 321 10 0 00 055631 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24466 REPEAT ^D8,
24467 <T=T+1
24468 ZZ=XX
24469 XX=XX+XX
24470 DFARP T,200000+XX,0,0,0,200777,-1,-1,-1,201400+ZZ,0,0,0
24471 >
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 10
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0571
24472 001370 T=T+1
24473 000001 ZZ=XX
24474 000002 XX=XX+XX
24475 DFARP T,200000+XX,0,0,0,200777,-1,-1,-1,201400+ZZ,0,0,0^
24476 DMOVE AC,[200000+XX,,0
24477 055640 120 04 0 00 070770 0,,0]
24478 DFAD AC,[200777,,-1
24479 055641 110 04 0 00 071611 -1,,-1]
24480 055642 312 04 0 00 071636 CAME AC,[201400+ZZ,,0]
24481 055643 003 04 0 00 001370 ER3 AC,T
24482 055644 312 05 0 00 070660 CAME AC+1,[0,,0]
24483 055645 004 05 0 00 001370 ER4 AC+1,T
24484 055646 321 10 0 00 055640 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24485
24486 001371 T=T+1
24487 000002 ZZ=XX
24488 000004 XX=XX+XX
24489 DFARP T,200000+XX,0,0,0,200777,-1,-1,-1,201400+ZZ,0,0,0^
24490 DMOVE AC,[200000+XX,,0
24491 055647 120 04 0 00 070765 0,,0]
24492 DFAD AC,[200777,,-1
24493 055650 110 04 0 00 071611 -1,,-1]
24494 055651 312 04 0 00 071637 CAME AC,[201400+ZZ,,0]
24495 055652 003 04 0 00 001371 ER3 AC,T
24496 055653 312 05 0 00 070660 CAME AC+1,[0,,0]
24497 055654 004 05 0 00 001371 ER4 AC+1,T
24498 055655 321 10 0 00 055647 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24499
24500 001372 T=T+1
24501 000004 ZZ=XX
24502 000010 XX=XX+XX
24503 DFARP T,200000+XX,0,0,0,200777,-1,-1,-1,201400+ZZ,0,0,0^
24504 DMOVE AC,[200000+XX,,0
24505 055656 120 04 0 00 070762 0,,0]
24506 DFAD AC,[200777,,-1
24507 055657 110 04 0 00 071611 -1,,-1]
24508 055660 312 04 0 00 071640 CAME AC,[201400+ZZ,,0]
24509 055661 003 04 0 00 001372 ER3 AC,T
24510 055662 312 05 0 00 070660 CAME AC+1,[0,,0]
24511 055663 004 05 0 00 001372 ER4 AC+1,T
24512 055664 321 10 0 00 055656 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24513
24514 001373 T=T+1
24515 000010 ZZ=XX
24516 000020 XX=XX+XX
24517 DFARP T,200000+XX,0,0,0,200777,-1,-1,-1,201400+ZZ,0,0,0^
24518 DMOVE AC,[200000+XX,,0
24519 055665 120 04 0 00 070757 0,,0]
24520 DFAD AC,[200777,,-1
24521 055666 110 04 0 00 071611 -1,,-1]
24522 055667 312 04 0 00 071641 CAME AC,[201400+ZZ,,0]
24523 055670 003 04 0 00 001373 ER3 AC,T
24524 055671 312 05 0 00 070660 CAME AC+1,[0,,0]
24525 055672 004 05 0 00 001373 ER4 AC+1,T
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 10-1
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0572
24526 055673 321 10 0 00 055665 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24527
24528 001374 T=T+1
24529 000020 ZZ=XX
24530 000040 XX=XX+XX
24531 DFARP T,200000+XX,0,0,0,200777,-1,-1,-1,201400+ZZ,0,0,0^
24532 DMOVE AC,[200000+XX,,0
24533 055674 120 04 0 00 070754 0,,0]
24534 DFAD AC,[200777,,-1
24535 055675 110 04 0 00 071611 -1,,-1]
24536 055676 312 04 0 00 071642 CAME AC,[201400+ZZ,,0]
24537 055677 003 04 0 00 001374 ER3 AC,T
24538 055700 312 05 0 00 070660 CAME AC+1,[0,,0]
24539 055701 004 05 0 00 001374 ER4 AC+1,T
24540 055702 321 10 0 00 055674 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24541
24542 001375 T=T+1
24543 000040 ZZ=XX
24544 000100 XX=XX+XX
24545 DFARP T,200000+XX,0,0,0,200777,-1,-1,-1,201400+ZZ,0,0,0^
24546 DMOVE AC,[200000+XX,,0
24547 055703 120 04 0 00 070751 0,,0]
24548 DFAD AC,[200777,,-1
24549 055704 110 04 0 00 071611 -1,,-1]
24550 055705 312 04 0 00 071643 CAME AC,[201400+ZZ,,0]
24551 055706 003 04 0 00 001375 ER3 AC,T
24552 055707 312 05 0 00 070660 CAME AC+1,[0,,0]
24553 055710 004 05 0 00 001375 ER4 AC+1,T
24554 055711 321 10 0 00 055703 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24555
24556 001376 T=T+1
24557 000100 ZZ=XX
24558 000200 XX=XX+XX
24559 DFARP T,200000+XX,0,0,0,200777,-1,-1,-1,201400+ZZ,0,0,0^
24560 DMOVE AC,[200000+XX,,0
24561 055712 120 04 0 00 070747 0,,0]
24562 DFAD AC,[200777,,-1
24563 055713 110 04 0 00 071611 -1,,-1]
24564 055714 312 04 0 00 071644 CAME AC,[201400+ZZ,,0]
24565 055715 003 04 0 00 001376 ER3 AC,T
24566 055716 312 05 0 00 070660 CAME AC+1,[0,,0]
24567 055717 004 05 0 00 001376 ER4 AC+1,T
24568 055720 321 10 0 00 055712 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24569
24570 001377 T=T+1
24571 000200 ZZ=XX
24572 000400 XX=XX+XX
24573 DFARP T,200000+XX,0,0,0,200777,-1,-1,-1,201400+ZZ,0,0,0^
24574 DMOVE AC,[200000+XX,,0
24575 055721 120 04 0 00 070745 0,,0]
24576 DFAD AC,[200777,,-1
24577 055722 110 04 0 00 071611 -1,,-1]
24578 055723 312 04 0 00 071645 CAME AC,[201400+ZZ,,0]
24579 055724 003 04 0 00 001377 ER3 AC,T
24580 055725 312 05 0 00 070660 CAME AC+1,[0,,0]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 10-2
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0573
24581 055726 004 05 0 00 001377 ER4 AC+1,T
24582 055727 321 10 0 00 055721 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24583
24584
24585 ;RIPPLE ZEROS TESTS (TO A FRACTION OF ALL ONES, ADD A RIPPLED ZERO)
24586
24587 001400 T=1400
24588
24589 000000 XX=0
24590
24591 R1400: REPEAT ^D18,
24592 <T=T+1
24593 ZZ=XX
24594 IFE ZZ,<ZZ=-1>
24595 XX=XX+XX+1
24596 IFE <XX-1>,<XX=-2>
24597 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ
24598 >
24599 001401 T=T+1
24600 000000 ZZ=XX
24601 777777 777777 IFE ZZ,<ZZ=-1>
24602 000001 XX=XX+XX+1
24603 777777 777776 IFE <XX-1>,<XX=-2>
24604 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
24605 DMOVE AC,[200777,,-1
24606 055730 120 04 0 00 071611 -1,,-1]
24607 DFAD AC,[200777,,-1
24608 055731 110 04 0 00 071646 -1,,XX]
24609 055732 312 04 0 00 071650 CAME AC,[201777,,-1]
24610 055733 003 04 0 00 001401 ER3 AC,T
24611 055734 312 05 0 00 071241 CAME AC+1,[377777,,ZZ]
24612 055735 004 05 0 00 001401 ER4 AC+1,T
24613 055736 321 10 0 00 055730 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24614
24615 001402 T=T+1
24616 777777 777776 ZZ=XX
24617 IFE ZZ,<ZZ=-1>
24618 777777 777775 XX=XX+XX+1
24619 IFE <XX-1>,<XX=-2>
24620 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
24621 DMOVE AC,[200777,,-1
24622 055737 120 04 0 00 071611 -1,,-1]
24623 DFAD AC,[200777,,-1
24624 055740 110 04 0 00 071651 -1,,XX]
24625 055741 312 04 0 00 071650 CAME AC,[201777,,-1]
24626 055742 003 04 0 00 001402 ER3 AC,T
24627 055743 312 05 0 00 071244 CAME AC+1,[377777,,ZZ]
24628 055744 004 05 0 00 001402 ER4 AC+1,T
24629 055745 321 10 0 00 055737 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24630
24631 001403 T=T+1
24632 777777 777775 ZZ=XX
24633 IFE ZZ,<ZZ=-1>
24634 777777 777773 XX=XX+XX+1
24635 IFE <XX-1>,<XX=-2>
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 10-3
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0574
24636 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
24637 DMOVE AC,[200777,,-1
24638 055746 120 04 0 00 071611 -1,,-1]
24639 DFAD AC,[200777,,-1
24640 055747 110 04 0 00 071653 -1,,XX]
24641 055750 312 04 0 00 071650 CAME AC,[201777,,-1]
24642 055751 003 04 0 00 001403 ER3 AC,T
24643 055752 312 05 0 00 071247 CAME AC+1,[377777,,ZZ]
24644 055753 004 05 0 00 001403 ER4 AC+1,T
24645 055754 321 10 0 00 055746 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24646
24647 001404 T=T+1
24648 777777 777773 ZZ=XX
24649 IFE ZZ,<ZZ=-1>
24650 777777 777767 XX=XX+XX+1
24651 IFE <XX-1>,<XX=-2>
24652 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
24653 DMOVE AC,[200777,,-1
24654 055755 120 04 0 00 071611 -1,,-1]
24655 DFAD AC,[200777,,-1
24656 055756 110 04 0 00 071655 -1,,XX]
24657 055757 312 04 0 00 071650 CAME AC,[201777,,-1]
24658 055760 003 04 0 00 001404 ER3 AC,T
24659 055761 312 05 0 00 071252 CAME AC+1,[377777,,ZZ]
24660 055762 004 05 0 00 001404 ER4 AC+1,T
24661 055763 321 10 0 00 055755 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24662
24663 001405 T=T+1
24664 777777 777767 ZZ=XX
24665 IFE ZZ,<ZZ=-1>
24666 777777 777757 XX=XX+XX+1
24667 IFE <XX-1>,<XX=-2>
24668 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
24669 DMOVE AC,[200777,,-1
24670 055764 120 04 0 00 071611 -1,,-1]
24671 DFAD AC,[200777,,-1
24672 055765 110 04 0 00 071657 -1,,XX]
24673 055766 312 04 0 00 071650 CAME AC,[201777,,-1]
24674 055767 003 04 0 00 001405 ER3 AC,T
24675 055770 312 05 0 00 071255 CAME AC+1,[377777,,ZZ]
24676 055771 004 05 0 00 001405 ER4 AC+1,T
24677 055772 321 10 0 00 055764 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24678
24679 001406 T=T+1
24680 777777 777757 ZZ=XX
24681 IFE ZZ,<ZZ=-1>
24682 777777 777737 XX=XX+XX+1
24683 IFE <XX-1>,<XX=-2>
24684 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
24685 DMOVE AC,[200777,,-1
24686 055773 120 04 0 00 071611 -1,,-1]
24687 DFAD AC,[200777,,-1
24688 055774 110 04 0 00 071661 -1,,XX]
24689 055775 312 04 0 00 071650 CAME AC,[201777,,-1]
24690 055776 003 04 0 00 001406 ER3 AC,T
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 10-4
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0575
24691 055777 312 05 0 00 071260 CAME AC+1,[377777,,ZZ]
24692 056000 004 05 0 00 001406 ER4 AC+1,T
24693 056001 321 10 0 00 055773 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24694
24695 001407 T=T+1
24696 777777 777737 ZZ=XX
24697 IFE ZZ,<ZZ=-1>
24698 777777 777677 XX=XX+XX+1
24699 IFE <XX-1>,<XX=-2>
24700 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
24701 DMOVE AC,[200777,,-1
24702 056002 120 04 0 00 071611 -1,,-1]
24703 DFAD AC,[200777,,-1
24704 056003 110 04 0 00 071663 -1,,XX]
24705 056004 312 04 0 00 071650 CAME AC,[201777,,-1]
24706 056005 003 04 0 00 001407 ER3 AC,T
24707 056006 312 05 0 00 071263 CAME AC+1,[377777,,ZZ]
24708 056007 004 05 0 00 001407 ER4 AC+1,T
24709 056010 321 10 0 00 056002 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24710
24711 001410 T=T+1
24712 777777 777677 ZZ=XX
24713 IFE ZZ,<ZZ=-1>
24714 777777 777577 XX=XX+XX+1
24715 IFE <XX-1>,<XX=-2>
24716 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
24717 DMOVE AC,[200777,,-1
24718 056011 120 04 0 00 071611 -1,,-1]
24719 DFAD AC,[200777,,-1
24720 056012 110 04 0 00 071665 -1,,XX]
24721 056013 312 04 0 00 071650 CAME AC,[201777,,-1]
24722 056014 003 04 0 00 001410 ER3 AC,T
24723 056015 312 05 0 00 071266 CAME AC+1,[377777,,ZZ]
24724 056016 004 05 0 00 001410 ER4 AC+1,T
24725 056017 321 10 0 00 056011 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24726
24727 001411 T=T+1
24728 777777 777577 ZZ=XX
24729 IFE ZZ,<ZZ=-1>
24730 777777 777377 XX=XX+XX+1
24731 IFE <XX-1>,<XX=-2>
24732 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
24733 DMOVE AC,[200777,,-1
24734 056020 120 04 0 00 071611 -1,,-1]
24735 DFAD AC,[200777,,-1
24736 056021 110 04 0 00 071667 -1,,XX]
24737 056022 312 04 0 00 071650 CAME AC,[201777,,-1]
24738 056023 003 04 0 00 001411 ER3 AC,T
24739 056024 312 05 0 00 071271 CAME AC+1,[377777,,ZZ]
24740 056025 004 05 0 00 001411 ER4 AC+1,T
24741 056026 321 10 0 00 056020 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24742
24743 001412 T=T+1
24744 777777 777377 ZZ=XX
24745 IFE ZZ,<ZZ=-1>
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 10-5
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0576
24746 777777 776777 XX=XX+XX+1
24747 IFE <XX-1>,<XX=-2>
24748 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
24749 DMOVE AC,[200777,,-1
24750 056027 120 04 0 00 071611 -1,,-1]
24751 DFAD AC,[200777,,-1
24752 056030 110 04 0 00 071671 -1,,XX]
24753 056031 312 04 0 00 071650 CAME AC,[201777,,-1]
24754 056032 003 04 0 00 001412 ER3 AC,T
24755 056033 312 05 0 00 071274 CAME AC+1,[377777,,ZZ]
24756 056034 004 05 0 00 001412 ER4 AC+1,T
24757 056035 321 10 0 00 056027 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24758
24759 001413 T=T+1
24760 777777 776777 ZZ=XX
24761 IFE ZZ,<ZZ=-1>
24762 777777 775777 XX=XX+XX+1
24763 IFE <XX-1>,<XX=-2>
24764 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
24765 DMOVE AC,[200777,,-1
24766 056036 120 04 0 00 071611 -1,,-1]
24767 DFAD AC,[200777,,-1
24768 056037 110 04 0 00 071673 -1,,XX]
24769 056040 312 04 0 00 071650 CAME AC,[201777,,-1]
24770 056041 003 04 0 00 001413 ER3 AC,T
24771 056042 312 05 0 00 071277 CAME AC+1,[377777,,ZZ]
24772 056043 004 05 0 00 001413 ER4 AC+1,T
24773 056044 321 10 0 00 056036 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24774
24775 001414 T=T+1
24776 777777 775777 ZZ=XX
24777 IFE ZZ,<ZZ=-1>
24778 777777 773777 XX=XX+XX+1
24779 IFE <XX-1>,<XX=-2>
24780 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
24781 DMOVE AC,[200777,,-1
24782 056045 120 04 0 00 071611 -1,,-1]
24783 DFAD AC,[200777,,-1
24784 056046 110 04 0 00 071675 -1,,XX]
24785 056047 312 04 0 00 071650 CAME AC,[201777,,-1]
24786 056050 003 04 0 00 001414 ER3 AC,T
24787 056051 312 05 0 00 071302 CAME AC+1,[377777,,ZZ]
24788 056052 004 05 0 00 001414 ER4 AC+1,T
24789 056053 321 10 0 00 056045 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24790
24791 001415 T=T+1
24792 777777 773777 ZZ=XX
24793 IFE ZZ,<ZZ=-1>
24794 777777 767777 XX=XX+XX+1
24795 IFE <XX-1>,<XX=-2>
24796 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
24797 DMOVE AC,[200777,,-1
24798 056054 120 04 0 00 071611 -1,,-1]
24799 DFAD AC,[200777,,-1
24800 056055 110 04 0 00 071677 -1,,XX]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 10-6
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0577
24801 056056 312 04 0 00 071650 CAME AC,[201777,,-1]
24802 056057 003 04 0 00 001415 ER3 AC,T
24803 056060 312 05 0 00 071305 CAME AC+1,[377777,,ZZ]
24804 056061 004 05 0 00 001415 ER4 AC+1,T
24805 056062 321 10 0 00 056054 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24806
24807 001416 T=T+1
24808 777777 767777 ZZ=XX
24809 IFE ZZ,<ZZ=-1>
24810 777777 757777 XX=XX+XX+1
24811 IFE <XX-1>,<XX=-2>
24812 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
24813 DMOVE AC,[200777,,-1
24814 056063 120 04 0 00 071611 -1,,-1]
24815 DFAD AC,[200777,,-1
24816 056064 110 04 0 00 071701 -1,,XX]
24817 056065 312 04 0 00 071650 CAME AC,[201777,,-1]
24818 056066 003 04 0 00 001416 ER3 AC,T
24819 056067 312 05 0 00 071310 CAME AC+1,[377777,,ZZ]
24820 056070 004 05 0 00 001416 ER4 AC+1,T
24821 056071 321 10 0 00 056063 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24822
24823 001417 T=T+1
24824 777777 757777 ZZ=XX
24825 IFE ZZ,<ZZ=-1>
24826 777777 737777 XX=XX+XX+1
24827 IFE <XX-1>,<XX=-2>
24828 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
24829 DMOVE AC,[200777,,-1
24830 056072 120 04 0 00 071611 -1,,-1]
24831 DFAD AC,[200777,,-1
24832 056073 110 04 0 00 071703 -1,,XX]
24833 056074 312 04 0 00 071650 CAME AC,[201777,,-1]
24834 056075 003 04 0 00 001417 ER3 AC,T
24835 056076 312 05 0 00 071313 CAME AC+1,[377777,,ZZ]
24836 056077 004 05 0 00 001417 ER4 AC+1,T
24837 056100 321 10 0 00 056072 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24838
24839 001420 T=T+1
24840 777777 737777 ZZ=XX
24841 IFE ZZ,<ZZ=-1>
24842 777777 677777 XX=XX+XX+1
24843 IFE <XX-1>,<XX=-2>
24844 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
24845 DMOVE AC,[200777,,-1
24846 056101 120 04 0 00 071611 -1,,-1]
24847 DFAD AC,[200777,,-1
24848 056102 110 04 0 00 071705 -1,,XX]
24849 056103 312 04 0 00 071650 CAME AC,[201777,,-1]
24850 056104 003 04 0 00 001420 ER3 AC,T
24851 056105 312 05 0 00 071316 CAME AC+1,[377777,,ZZ]
24852 056106 004 05 0 00 001420 ER4 AC+1,T
24853 056107 321 10 0 00 056101 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24854
24855 001421 T=T+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 10-7
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0578
24856 777777 677777 ZZ=XX
24857 IFE ZZ,<ZZ=-1>
24858 777777 577777 XX=XX+XX+1
24859 IFE <XX-1>,<XX=-2>
24860 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
24861 DMOVE AC,[200777,,-1
24862 056110 120 04 0 00 071611 -1,,-1]
24863 DFAD AC,[200777,,-1
24864 056111 110 04 0 00 071707 -1,,XX]
24865 056112 312 04 0 00 071650 CAME AC,[201777,,-1]
24866 056113 003 04 0 00 001421 ER3 AC,T
24867 056114 312 05 0 00 071321 CAME AC+1,[377777,,ZZ]
24868 056115 004 05 0 00 001421 ER4 AC+1,T
24869 056116 321 10 0 00 056110 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24870
24871 001422 T=T+1
24872 777777 577777 ZZ=XX
24873 IFE ZZ,<ZZ=-1>
24874 777777 377777 XX=XX+XX+1
24875 IFE <XX-1>,<XX=-2>
24876 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
24877 DMOVE AC,[200777,,-1
24878 056117 120 04 0 00 071611 -1,,-1]
24879 DFAD AC,[200777,,-1
24880 056120 110 04 0 00 071711 -1,,XX]
24881 056121 312 04 0 00 071650 CAME AC,[201777,,-1]
24882 056122 003 04 0 00 001422 ER3 AC,T
24883 056123 312 05 0 00 071324 CAME AC+1,[377777,,ZZ]
24884 056124 004 05 0 00 001422 ER4 AC+1,T
24885 056125 321 10 0 00 056117 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24886
24887
24888 001423 T=T+1
24889 777777 377777 ZZ=XX
24890 777777 777776 XX=-2
24891 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,377777,ZZ^
24892 DMOVE AC,[200777,,-1
24893 056126 120 04 0 00 071611 -1,,-1]
24894 DFAD AC,[200777,,-1
24895 056127 110 04 0 00 071713 XX,,-1]
24896 056130 312 04 0 00 071650 CAME AC,[201777,,-1]
24897 056131 003 04 0 00 001423 ER3 AC,T
24898 056132 312 05 0 00 071327 CAME AC+1,[377777,,ZZ]
24899 056133 004 05 0 00 001423 ER4 AC+1,T
24900 056134 321 10 0 00 056126 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24901
24902 REPEAT ^D16,
24903 <T=T+1
24904 ZZ=XX
24905 XX=XX+XX+1
24906 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1
24907 >
24908 001424 T=T+1
24909 777777 777776 ZZ=XX
24910 777777 777775 XX=XX+XX+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 10-8
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0579
24911 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
24912 DMOVE AC,[200777,,-1
24913 056135 120 04 0 00 071611 -1,,-1]
24914 DFAD AC,[200777,,-1
24915 056136 110 04 0 00 071715 XX,,-1]
24916 056137 312 04 0 00 071650 CAME AC,[201777,,-1]
24917 056140 003 04 0 00 001424 ER3 AC,T
24918 056141 312 05 0 00 071332 CAME AC+1,[ZZ&377777,,-1]
24919 056142 004 05 0 00 001424 ER4 AC+1,T
24920 056143 321 10 0 00 056135 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24921
24922 001425 T=T+1
24923 777777 777775 ZZ=XX
24924 777777 777773 XX=XX+XX+1
24925 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
24926 DMOVE AC,[200777,,-1
24927 056144 120 04 0 00 071611 -1,,-1]
24928 DFAD AC,[200777,,-1
24929 056145 110 04 0 00 071717 XX,,-1]
24930 056146 312 04 0 00 071650 CAME AC,[201777,,-1]
24931 056147 003 04 0 00 001425 ER3 AC,T
24932 056150 312 05 0 00 071335 CAME AC+1,[ZZ&377777,,-1]
24933 056151 004 05 0 00 001425 ER4 AC+1,T
24934 056152 321 10 0 00 056144 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24935
24936 001426 T=T+1
24937 777777 777773 ZZ=XX
24938 777777 777767 XX=XX+XX+1
24939 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
24940 DMOVE AC,[200777,,-1
24941 056153 120 04 0 00 071611 -1,,-1]
24942 DFAD AC,[200777,,-1
24943 056154 110 04 0 00 071721 XX,,-1]
24944 056155 312 04 0 00 071650 CAME AC,[201777,,-1]
24945 056156 003 04 0 00 001426 ER3 AC,T
24946 056157 312 05 0 00 071340 CAME AC+1,[ZZ&377777,,-1]
24947 056160 004 05 0 00 001426 ER4 AC+1,T
24948 056161 321 10 0 00 056153 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24949
24950 001427 T=T+1
24951 777777 777767 ZZ=XX
24952 777777 777757 XX=XX+XX+1
24953 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
24954 DMOVE AC,[200777,,-1
24955 056162 120 04 0 00 071611 -1,,-1]
24956 DFAD AC,[200777,,-1
24957 056163 110 04 0 00 071723 XX,,-1]
24958 056164 312 04 0 00 071650 CAME AC,[201777,,-1]
24959 056165 003 04 0 00 001427 ER3 AC,T
24960 056166 312 05 0 00 071343 CAME AC+1,[ZZ&377777,,-1]
24961 056167 004 05 0 00 001427 ER4 AC+1,T
24962 056170 321 10 0 00 056162 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24963
24964 001430 T=T+1
24965 777777 777757 ZZ=XX
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 10-9
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0580
24966 777777 777737 XX=XX+XX+1
24967 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
24968 DMOVE AC,[200777,,-1
24969 056171 120 04 0 00 071611 -1,,-1]
24970 DFAD AC,[200777,,-1
24971 056172 110 04 0 00 071725 XX,,-1]
24972 056173 312 04 0 00 071650 CAME AC,[201777,,-1]
24973 056174 003 04 0 00 001430 ER3 AC,T
24974 056175 312 05 0 00 071346 CAME AC+1,[ZZ&377777,,-1]
24975 056176 004 05 0 00 001430 ER4 AC+1,T
24976 056177 321 10 0 00 056171 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24977
24978 001431 T=T+1
24979 777777 777737 ZZ=XX
24980 777777 777677 XX=XX+XX+1
24981 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
24982 DMOVE AC,[200777,,-1
24983 056200 120 04 0 00 071611 -1,,-1]
24984 DFAD AC,[200777,,-1
24985 056201 110 04 0 00 071727 XX,,-1]
24986 056202 312 04 0 00 071650 CAME AC,[201777,,-1]
24987 056203 003 04 0 00 001431 ER3 AC,T
24988 056204 312 05 0 00 071351 CAME AC+1,[ZZ&377777,,-1]
24989 056205 004 05 0 00 001431 ER4 AC+1,T
24990 056206 321 10 0 00 056200 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
24991
24992 001432 T=T+1
24993 777777 777677 ZZ=XX
24994 777777 777577 XX=XX+XX+1
24995 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
24996 DMOVE AC,[200777,,-1
24997 056207 120 04 0 00 071611 -1,,-1]
24998 DFAD AC,[200777,,-1
24999 056210 110 04 0 00 071731 XX,,-1]
25000 056211 312 04 0 00 071650 CAME AC,[201777,,-1]
25001 056212 003 04 0 00 001432 ER3 AC,T
25002 056213 312 05 0 00 071354 CAME AC+1,[ZZ&377777,,-1]
25003 056214 004 05 0 00 001432 ER4 AC+1,T
25004 056215 321 10 0 00 056207 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25005
25006 001433 T=T+1
25007 777777 777577 ZZ=XX
25008 777777 777377 XX=XX+XX+1
25009 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
25010 DMOVE AC,[200777,,-1
25011 056216 120 04 0 00 071611 -1,,-1]
25012 DFAD AC,[200777,,-1
25013 056217 110 04 0 00 071733 XX,,-1]
25014 056220 312 04 0 00 071650 CAME AC,[201777,,-1]
25015 056221 003 04 0 00 001433 ER3 AC,T
25016 056222 312 05 0 00 071357 CAME AC+1,[ZZ&377777,,-1]
25017 056223 004 05 0 00 001433 ER4 AC+1,T
25018 056224 321 10 0 00 056216 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25019
25020 001434 T=T+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 10-10
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0581
25021 777777 777377 ZZ=XX
25022 777777 776777 XX=XX+XX+1
25023 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
25024 DMOVE AC,[200777,,-1
25025 056225 120 04 0 00 071611 -1,,-1]
25026 DFAD AC,[200777,,-1
25027 056226 110 04 0 00 071735 XX,,-1]
25028 056227 312 04 0 00 071650 CAME AC,[201777,,-1]
25029 056230 003 04 0 00 001434 ER3 AC,T
25030 056231 312 05 0 00 071362 CAME AC+1,[ZZ&377777,,-1]
25031 056232 004 05 0 00 001434 ER4 AC+1,T
25032 056233 321 10 0 00 056225 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25033
25034 001435 T=T+1
25035 777777 776777 ZZ=XX
25036 777777 775777 XX=XX+XX+1
25037 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
25038 DMOVE AC,[200777,,-1
25039 056234 120 04 0 00 071611 -1,,-1]
25040 DFAD AC,[200777,,-1
25041 056235 110 04 0 00 071737 XX,,-1]
25042 056236 312 04 0 00 071650 CAME AC,[201777,,-1]
25043 056237 003 04 0 00 001435 ER3 AC,T
25044 056240 312 05 0 00 071365 CAME AC+1,[ZZ&377777,,-1]
25045 056241 004 05 0 00 001435 ER4 AC+1,T
25046 056242 321 10 0 00 056234 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25047
25048 001436 T=T+1
25049 777777 775777 ZZ=XX
25050 777777 773777 XX=XX+XX+1
25051 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
25052 DMOVE AC,[200777,,-1
25053 056243 120 04 0 00 071611 -1,,-1]
25054 DFAD AC,[200777,,-1
25055 056244 110 04 0 00 071741 XX,,-1]
25056 056245 312 04 0 00 071650 CAME AC,[201777,,-1]
25057 056246 003 04 0 00 001436 ER3 AC,T
25058 056247 312 05 0 00 071370 CAME AC+1,[ZZ&377777,,-1]
25059 056250 004 05 0 00 001436 ER4 AC+1,T
25060 056251 321 10 0 00 056243 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25061
25062 001437 T=T+1
25063 777777 773777 ZZ=XX
25064 777777 767777 XX=XX+XX+1
25065 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
25066 DMOVE AC,[200777,,-1
25067 056252 120 04 0 00 071611 -1,,-1]
25068 DFAD AC,[200777,,-1
25069 056253 110 04 0 00 071743 XX,,-1]
25070 056254 312 04 0 00 071650 CAME AC,[201777,,-1]
25071 056255 003 04 0 00 001437 ER3 AC,T
25072 056256 312 05 0 00 071373 CAME AC+1,[ZZ&377777,,-1]
25073 056257 004 05 0 00 001437 ER4 AC+1,T
25074 056260 321 10 0 00 056252 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25075
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 10-11
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0582
25076 001440 T=T+1
25077 777777 767777 ZZ=XX
25078 777777 757777 XX=XX+XX+1
25079 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
25080 DMOVE AC,[200777,,-1
25081 056261 120 04 0 00 071611 -1,,-1]
25082 DFAD AC,[200777,,-1
25083 056262 110 04 0 00 071745 XX,,-1]
25084 056263 312 04 0 00 071650 CAME AC,[201777,,-1]
25085 056264 003 04 0 00 001440 ER3 AC,T
25086 056265 312 05 0 00 071376 CAME AC+1,[ZZ&377777,,-1]
25087 056266 004 05 0 00 001440 ER4 AC+1,T
25088 056267 321 10 0 00 056261 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25089
25090 001441 T=T+1
25091 777777 757777 ZZ=XX
25092 777777 737777 XX=XX+XX+1
25093 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
25094 DMOVE AC,[200777,,-1
25095 056270 120 04 0 00 071611 -1,,-1]
25096 DFAD AC,[200777,,-1
25097 056271 110 04 0 00 071747 XX,,-1]
25098 056272 312 04 0 00 071650 CAME AC,[201777,,-1]
25099 056273 003 04 0 00 001441 ER3 AC,T
25100 056274 312 05 0 00 071401 CAME AC+1,[ZZ&377777,,-1]
25101 056275 004 05 0 00 001441 ER4 AC+1,T
25102 056276 321 10 0 00 056270 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25103
25104 001442 T=T+1
25105 777777 737777 ZZ=XX
25106 777777 677777 XX=XX+XX+1
25107 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
25108 DMOVE AC,[200777,,-1
25109 056277 120 04 0 00 071611 -1,,-1]
25110 DFAD AC,[200777,,-1
25111 056300 110 04 0 00 071751 XX,,-1]
25112 056301 312 04 0 00 071650 CAME AC,[201777,,-1]
25113 056302 003 04 0 00 001442 ER3 AC,T
25114 056303 312 05 0 00 071404 CAME AC+1,[ZZ&377777,,-1]
25115 056304 004 05 0 00 001442 ER4 AC+1,T
25116 056305 321 10 0 00 056277 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25117
25118 001443 T=T+1
25119 777777 677777 ZZ=XX
25120 777777 577777 XX=XX+XX+1
25121 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
25122 DMOVE AC,[200777,,-1
25123 056306 120 04 0 00 071611 -1,,-1]
25124 DFAD AC,[200777,,-1
25125 056307 110 04 0 00 071753 XX,,-1]
25126 056310 312 04 0 00 071650 CAME AC,[201777,,-1]
25127 056311 003 04 0 00 001443 ER3 AC,T
25128 056312 312 05 0 00 071407 CAME AC+1,[ZZ&377777,,-1]
25129 056313 004 05 0 00 001443 ER4 AC+1,T
25130 056314 321 10 0 00 056306 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 10-12
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0583
25131
25132
25133 001444 T=T+1
25134 777777 377777 XX=XX+XX+1
25135 777777 377777 ZZ=XX
25136 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ,-1^
25137 DMOVE AC,[200777,,-1
25138 056315 120 04 0 00 071611 -1,,-1]
25139 DFAD AC,[200777,,-1
25140 056316 110 04 0 00 071755 XX,,-1]
25141 056317 312 04 0 00 071650 CAME AC,[201777,,-1]
25142 056320 003 04 0 00 001444 ER3 AC,T
25143 056321 312 05 0 00 071241 CAME AC+1,[ZZ,,-1]
25144 056322 004 05 0 00 001444 ER4 AC+1,T
25145 056323 321 10 0 00 056315 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25146
25147 001445 T=T+1
25148 177777 ZZ=XX&177777
25149 777777 777776 XX=-2
25150 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,-1,ZZ,-1^
25151 DMOVE AC,[200777,,-1
25152 056324 120 04 0 00 071611 -1,,-1]
25153 DFAD AC,[200777,,XX
25154 056325 110 04 0 00 071757 -1,,-1]
25155 056326 312 04 0 00 071650 CAME AC,[201777,,-1]
25156 056327 003 04 0 00 001445 ER3 AC,T
25157 056330 312 05 0 00 071412 CAME AC+1,[ZZ,,-1]
25158 056331 004 05 0 00 001445 ER4 AC+1,T
25159 056332 321 10 0 00 056324 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25160
25161 REPEAT ^D17,
25162 <T=T+1
25163 ZZ=XX
25164 XX=XX+XX+1
25165 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1
25166 >
25167 001446 T=T+1
25168 777777 777776 ZZ=XX
25169 777777 777775 XX=XX+XX+1
25170 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
25171 DMOVE AC,[200777,,-1
25172 056333 120 04 0 00 071611 -1,,-1]
25173 DFAD AC,[200777,,XX
25174 056334 110 04 0 00 071761 -1,,-1]
25175 056335 312 04 0 00 071763 CAME AC,[201777,,ZZ]
25176 056336 003 04 0 00 001446 ER3 AC,T
25177 056337 312 05 0 00 071241 CAME AC+1,[377777,,-1]
25178 056340 004 05 0 00 001446 ER4 AC+1,T
25179 056341 321 10 0 00 056333 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25180
25181 001447 T=T+1
25182 777777 777775 ZZ=XX
25183 777777 777773 XX=XX+XX+1
25184 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
25185 DMOVE AC,[200777,,-1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 10-13
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0584
25186 056342 120 04 0 00 071611 -1,,-1]
25187 DFAD AC,[200777,,XX
25188 056343 110 04 0 00 071764 -1,,-1]
25189 056344 312 04 0 00 071766 CAME AC,[201777,,ZZ]
25190 056345 003 04 0 00 001447 ER3 AC,T
25191 056346 312 05 0 00 071241 CAME AC+1,[377777,,-1]
25192 056347 004 05 0 00 001447 ER4 AC+1,T
25193 056350 321 10 0 00 056342 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25194
25195 001450 T=T+1
25196 777777 777773 ZZ=XX
25197 777777 777767 XX=XX+XX+1
25198 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
25199 DMOVE AC,[200777,,-1
25200 056351 120 04 0 00 071611 -1,,-1]
25201 DFAD AC,[200777,,XX
25202 056352 110 04 0 00 071767 -1,,-1]
25203 056353 312 04 0 00 071771 CAME AC,[201777,,ZZ]
25204 056354 003 04 0 00 001450 ER3 AC,T
25205 056355 312 05 0 00 071241 CAME AC+1,[377777,,-1]
25206 056356 004 05 0 00 001450 ER4 AC+1,T
25207 056357 321 10 0 00 056351 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25208
25209 001451 T=T+1
25210 777777 777767 ZZ=XX
25211 777777 777757 XX=XX+XX+1
25212 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
25213 DMOVE AC,[200777,,-1
25214 056360 120 04 0 00 071611 -1,,-1]
25215 DFAD AC,[200777,,XX
25216 056361 110 04 0 00 071772 -1,,-1]
25217 056362 312 04 0 00 071774 CAME AC,[201777,,ZZ]
25218 056363 003 04 0 00 001451 ER3 AC,T
25219 056364 312 05 0 00 071241 CAME AC+1,[377777,,-1]
25220 056365 004 05 0 00 001451 ER4 AC+1,T
25221 056366 321 10 0 00 056360 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25222
25223 001452 T=T+1
25224 777777 777757 ZZ=XX
25225 777777 777737 XX=XX+XX+1
25226 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
25227 DMOVE AC,[200777,,-1
25228 056367 120 04 0 00 071611 -1,,-1]
25229 DFAD AC,[200777,,XX
25230 056370 110 04 0 00 071775 -1,,-1]
25231 056371 312 04 0 00 071777 CAME AC,[201777,,ZZ]
25232 056372 003 04 0 00 001452 ER3 AC,T
25233 056373 312 05 0 00 071241 CAME AC+1,[377777,,-1]
25234 056374 004 05 0 00 001452 ER4 AC+1,T
25235 056375 321 10 0 00 056367 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25236
25237 001453 T=T+1
25238 777777 777737 ZZ=XX
25239 777777 777677 XX=XX+XX+1
25240 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 10-14
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0585
25241 DMOVE AC,[200777,,-1
25242 056376 120 04 0 00 071611 -1,,-1]
25243 DFAD AC,[200777,,XX
25244 056377 110 04 0 00 072000 -1,,-1]
25245 056400 312 04 0 00 072002 CAME AC,[201777,,ZZ]
25246 056401 003 04 0 00 001453 ER3 AC,T
25247 056402 312 05 0 00 071241 CAME AC+1,[377777,,-1]
25248 056403 004 05 0 00 001453 ER4 AC+1,T
25249 056404 321 10 0 00 056376 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25250
25251 001454 T=T+1
25252 777777 777677 ZZ=XX
25253 777777 777577 XX=XX+XX+1
25254 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
25255 DMOVE AC,[200777,,-1
25256 056405 120 04 0 00 071611 -1,,-1]
25257 DFAD AC,[200777,,XX
25258 056406 110 04 0 00 072003 -1,,-1]
25259 056407 312 04 0 00 072005 CAME AC,[201777,,ZZ]
25260 056410 003 04 0 00 001454 ER3 AC,T
25261 056411 312 05 0 00 071241 CAME AC+1,[377777,,-1]
25262 056412 004 05 0 00 001454 ER4 AC+1,T
25263 056413 321 10 0 00 056405 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25264
25265 001455 T=T+1
25266 777777 777577 ZZ=XX
25267 777777 777377 XX=XX+XX+1
25268 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
25269 DMOVE AC,[200777,,-1
25270 056414 120 04 0 00 071611 -1,,-1]
25271 DFAD AC,[200777,,XX
25272 056415 110 04 0 00 072006 -1,,-1]
25273 056416 312 04 0 00 072010 CAME AC,[201777,,ZZ]
25274 056417 003 04 0 00 001455 ER3 AC,T
25275 056420 312 05 0 00 071241 CAME AC+1,[377777,,-1]
25276 056421 004 05 0 00 001455 ER4 AC+1,T
25277 056422 321 10 0 00 056414 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25278
25279 001456 T=T+1
25280 777777 777377 ZZ=XX
25281 777777 776777 XX=XX+XX+1
25282 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
25283 DMOVE AC,[200777,,-1
25284 056423 120 04 0 00 071611 -1,,-1]
25285 DFAD AC,[200777,,XX
25286 056424 110 04 0 00 072011 -1,,-1]
25287 056425 312 04 0 00 072013 CAME AC,[201777,,ZZ]
25288 056426 003 04 0 00 001456 ER3 AC,T
25289 056427 312 05 0 00 071241 CAME AC+1,[377777,,-1]
25290 056430 004 05 0 00 001456 ER4 AC+1,T
25291 056431 321 10 0 00 056423 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25292
25293 001457 T=T+1
25294 777777 776777 ZZ=XX
25295 777777 775777 XX=XX+XX+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 10-15
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0586
25296 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
25297 DMOVE AC,[200777,,-1
25298 056432 120 04 0 00 071611 -1,,-1]
25299 DFAD AC,[200777,,XX
25300 056433 110 04 0 00 072014 -1,,-1]
25301 056434 312 04 0 00 072016 CAME AC,[201777,,ZZ]
25302 056435 003 04 0 00 001457 ER3 AC,T
25303 056436 312 05 0 00 071241 CAME AC+1,[377777,,-1]
25304 056437 004 05 0 00 001457 ER4 AC+1,T
25305 056440 321 10 0 00 056432 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25306
25307 001460 T=T+1
25308 777777 775777 ZZ=XX
25309 777777 773777 XX=XX+XX+1
25310 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
25311 DMOVE AC,[200777,,-1
25312 056441 120 04 0 00 071611 -1,,-1]
25313 DFAD AC,[200777,,XX
25314 056442 110 04 0 00 072017 -1,,-1]
25315 056443 312 04 0 00 072021 CAME AC,[201777,,ZZ]
25316 056444 003 04 0 00 001460 ER3 AC,T
25317 056445 312 05 0 00 071241 CAME AC+1,[377777,,-1]
25318 056446 004 05 0 00 001460 ER4 AC+1,T
25319 056447 321 10 0 00 056441 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25320
25321 001461 T=T+1
25322 777777 773777 ZZ=XX
25323 777777 767777 XX=XX+XX+1
25324 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
25325 DMOVE AC,[200777,,-1
25326 056450 120 04 0 00 071611 -1,,-1]
25327 DFAD AC,[200777,,XX
25328 056451 110 04 0 00 072022 -1,,-1]
25329 056452 312 04 0 00 072024 CAME AC,[201777,,ZZ]
25330 056453 003 04 0 00 001461 ER3 AC,T
25331 056454 312 05 0 00 071241 CAME AC+1,[377777,,-1]
25332 056455 004 05 0 00 001461 ER4 AC+1,T
25333 056456 321 10 0 00 056450 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25334
25335 001462 T=T+1
25336 777777 767777 ZZ=XX
25337 777777 757777 XX=XX+XX+1
25338 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
25339 DMOVE AC,[200777,,-1
25340 056457 120 04 0 00 071611 -1,,-1]
25341 DFAD AC,[200777,,XX
25342 056460 110 04 0 00 072025 -1,,-1]
25343 056461 312 04 0 00 072027 CAME AC,[201777,,ZZ]
25344 056462 003 04 0 00 001462 ER3 AC,T
25345 056463 312 05 0 00 071241 CAME AC+1,[377777,,-1]
25346 056464 004 05 0 00 001462 ER4 AC+1,T
25347 056465 321 10 0 00 056457 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25348
25349 001463 T=T+1
25350 777777 757777 ZZ=XX
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 10-16
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0587
25351 777777 737777 XX=XX+XX+1
25352 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
25353 DMOVE AC,[200777,,-1
25354 056466 120 04 0 00 071611 -1,,-1]
25355 DFAD AC,[200777,,XX
25356 056467 110 04 0 00 072030 -1,,-1]
25357 056470 312 04 0 00 072032 CAME AC,[201777,,ZZ]
25358 056471 003 04 0 00 001463 ER3 AC,T
25359 056472 312 05 0 00 071241 CAME AC+1,[377777,,-1]
25360 056473 004 05 0 00 001463 ER4 AC+1,T
25361 056474 321 10 0 00 056466 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25362
25363 001464 T=T+1
25364 777777 737777 ZZ=XX
25365 777777 677777 XX=XX+XX+1
25366 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
25367 DMOVE AC,[200777,,-1
25368 056475 120 04 0 00 071611 -1,,-1]
25369 DFAD AC,[200777,,XX
25370 056476 110 04 0 00 072033 -1,,-1]
25371 056477 312 04 0 00 072035 CAME AC,[201777,,ZZ]
25372 056500 003 04 0 00 001464 ER3 AC,T
25373 056501 312 05 0 00 071241 CAME AC+1,[377777,,-1]
25374 056502 004 05 0 00 001464 ER4 AC+1,T
25375 056503 321 10 0 00 056475 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25376
25377 001465 T=T+1
25378 777777 677777 ZZ=XX
25379 777777 577777 XX=XX+XX+1
25380 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
25381 DMOVE AC,[200777,,-1
25382 056504 120 04 0 00 071611 -1,,-1]
25383 DFAD AC,[200777,,XX
25384 056505 110 04 0 00 072036 -1,,-1]
25385 056506 312 04 0 00 072040 CAME AC,[201777,,ZZ]
25386 056507 003 04 0 00 001465 ER3 AC,T
25387 056510 312 05 0 00 071241 CAME AC+1,[377777,,-1]
25388 056511 004 05 0 00 001465 ER4 AC+1,T
25389 056512 321 10 0 00 056504 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25390
25391 001466 T=T+1
25392 777777 577777 ZZ=XX
25393 777777 377777 XX=XX+XX+1
25394 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
25395 DMOVE AC,[200777,,-1
25396 056513 120 04 0 00 071611 -1,,-1]
25397 DFAD AC,[200777,,XX
25398 056514 110 04 0 00 072041 -1,,-1]
25399 056515 312 04 0 00 072043 CAME AC,[201777,,ZZ]
25400 056516 003 04 0 00 001466 ER3 AC,T
25401 056517 312 05 0 00 071241 CAME AC+1,[377777,,-1]
25402 056520 004 05 0 00 001466 ER4 AC+1,T
25403 056521 321 10 0 00 056513 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25404
25405
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 10-17
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0588
25406 001467 T=T+1
25407 777777 377777 ZZ=XX
25408 777777 777776 XX=-2
25409 DFARP T,200777,-1,-1,-1,200777&XX,-1,-1,-1,201777,ZZ,377777,-1^
25410 DMOVE AC,[200777,,-1
25411 056522 120 04 0 00 071611 -1,,-1]
25412 DFAD AC,[200777&XX,,-1
25413 056523 110 04 0 00 072044 -1,,-1]
25414 056524 312 04 0 00 072046 CAME AC,[201777,,ZZ]
25415 056525 003 04 0 00 001467 ER3 AC,T
25416 056526 312 05 0 00 071241 CAME AC+1,[377777,,-1]
25417 056527 004 05 0 00 001467 ER4 AC+1,T
25418 056530 321 10 0 00 056522 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25419
25420 REPEAT ^D8,
25421 <T=T+1
25422 ZZ=XX
25423 XX=XX+XX+1
25424 DFARP T,200777,-1,-1,-1,200777&XX,-1,-1,-1,201777&ZZ,-1,377777,-1
25425 >
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 11
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0589
25426 001470 T=T+1
25427 777777 777776 ZZ=XX
25428 777777 777775 XX=XX+XX+1
25429 DFARP T,200777,-1,-1,-1,200777&XX,-1,-1,-1,201777&ZZ,-1,377777,-1^
25430 DMOVE AC,[200777,,-1
25431 056531 120 04 0 00 071611 -1,,-1]
25432 DFAD AC,[200777&XX,,-1
25433 056532 110 04 0 00 072047 -1,,-1]
25434 056533 312 04 0 00 072051 CAME AC,[201777&ZZ,,-1]
25435 056534 003 04 0 00 001470 ER3 AC,T
25436 056535 312 05 0 00 071241 CAME AC+1,[377777,,-1]
25437 056536 004 05 0 00 001470 ER4 AC+1,T
25438 056537 321 10 0 00 056531 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25439
25440 001471 T=T+1
25441 777777 777775 ZZ=XX
25442 777777 777773 XX=XX+XX+1
25443 DFARP T,200777,-1,-1,-1,200777&XX,-1,-1,-1,201777&ZZ,-1,377777,-1^
25444 DMOVE AC,[200777,,-1
25445 056540 120 04 0 00 071611 -1,,-1]
25446 DFAD AC,[200777&XX,,-1
25447 056541 110 04 0 00 072052 -1,,-1]
25448 056542 312 04 0 00 072054 CAME AC,[201777&ZZ,,-1]
25449 056543 003 04 0 00 001471 ER3 AC,T
25450 056544 312 05 0 00 071241 CAME AC+1,[377777,,-1]
25451 056545 004 05 0 00 001471 ER4 AC+1,T
25452 056546 321 10 0 00 056540 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25453
25454 001472 T=T+1
25455 777777 777773 ZZ=XX
25456 777777 777767 XX=XX+XX+1
25457 DFARP T,200777,-1,-1,-1,200777&XX,-1,-1,-1,201777&ZZ,-1,377777,-1^
25458 DMOVE AC,[200777,,-1
25459 056547 120 04 0 00 071611 -1,,-1]
25460 DFAD AC,[200777&XX,,-1
25461 056550 110 04 0 00 072055 -1,,-1]
25462 056551 312 04 0 00 072057 CAME AC,[201777&ZZ,,-1]
25463 056552 003 04 0 00 001472 ER3 AC,T
25464 056553 312 05 0 00 071241 CAME AC+1,[377777,,-1]
25465 056554 004 05 0 00 001472 ER4 AC+1,T
25466 056555 321 10 0 00 056547 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25467
25468 001473 T=T+1
25469 777777 777767 ZZ=XX
25470 777777 777757 XX=XX+XX+1
25471 DFARP T,200777,-1,-1,-1,200777&XX,-1,-1,-1,201777&ZZ,-1,377777,-1^
25472 DMOVE AC,[200777,,-1
25473 056556 120 04 0 00 071611 -1,,-1]
25474 DFAD AC,[200777&XX,,-1
25475 056557 110 04 0 00 072060 -1,,-1]
25476 056560 312 04 0 00 072062 CAME AC,[201777&ZZ,,-1]
25477 056561 003 04 0 00 001473 ER3 AC,T
25478 056562 312 05 0 00 071241 CAME AC+1,[377777,,-1]
25479 056563 004 05 0 00 001473 ER4 AC+1,T
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 11-1
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0590
25480 056564 321 10 0 00 056556 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25481
25482 001474 T=T+1
25483 777777 777757 ZZ=XX
25484 777777 777737 XX=XX+XX+1
25485 DFARP T,200777,-1,-1,-1,200777&XX,-1,-1,-1,201777&ZZ,-1,377777,-1^
25486 DMOVE AC,[200777,,-1
25487 056565 120 04 0 00 071611 -1,,-1]
25488 DFAD AC,[200777&XX,,-1
25489 056566 110 04 0 00 072063 -1,,-1]
25490 056567 312 04 0 00 072065 CAME AC,[201777&ZZ,,-1]
25491 056570 003 04 0 00 001474 ER3 AC,T
25492 056571 312 05 0 00 071241 CAME AC+1,[377777,,-1]
25493 056572 004 05 0 00 001474 ER4 AC+1,T
25494 056573 321 10 0 00 056565 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25495
25496 001475 T=T+1
25497 777777 777737 ZZ=XX
25498 777777 777677 XX=XX+XX+1
25499 DFARP T,200777,-1,-1,-1,200777&XX,-1,-1,-1,201777&ZZ,-1,377777,-1^
25500 DMOVE AC,[200777,,-1
25501 056574 120 04 0 00 071611 -1,,-1]
25502 DFAD AC,[200777&XX,,-1
25503 056575 110 04 0 00 072066 -1,,-1]
25504 056576 312 04 0 00 072070 CAME AC,[201777&ZZ,,-1]
25505 056577 003 04 0 00 001475 ER3 AC,T
25506 056600 312 05 0 00 071241 CAME AC+1,[377777,,-1]
25507 056601 004 05 0 00 001475 ER4 AC+1,T
25508 056602 321 10 0 00 056574 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25509
25510 001476 T=T+1
25511 777777 777677 ZZ=XX
25512 777777 777577 XX=XX+XX+1
25513 DFARP T,200777,-1,-1,-1,200777&XX,-1,-1,-1,201777&ZZ,-1,377777,-1^
25514 DMOVE AC,[200777,,-1
25515 056603 120 04 0 00 071611 -1,,-1]
25516 DFAD AC,[200777&XX,,-1
25517 056604 110 04 0 00 072071 -1,,-1]
25518 056605 312 04 0 00 072073 CAME AC,[201777&ZZ,,-1]
25519 056606 003 04 0 00 001476 ER3 AC,T
25520 056607 312 05 0 00 071241 CAME AC+1,[377777,,-1]
25521 056610 004 05 0 00 001476 ER4 AC+1,T
25522 056611 321 10 0 00 056603 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25523
25524 001477 T=T+1
25525 777777 777577 ZZ=XX
25526 777777 777377 XX=XX+XX+1
25527 DFARP T,200777,-1,-1,-1,200777&XX,-1,-1,-1,201777&ZZ,-1,377777,-1^
25528 DMOVE AC,[200777,,-1
25529 056612 120 04 0 00 071611 -1,,-1]
25530 DFAD AC,[200777&XX,,-1
25531 056613 110 04 0 00 072074 -1,,-1]
25532 056614 312 04 0 00 072076 CAME AC,[201777&ZZ,,-1]
25533 056615 003 04 0 00 001477 ER3 AC,T
25534 056616 312 05 0 00 071241 CAME AC+1,[377777,,-1]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 11-2
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0591
25535 056617 004 05 0 00 001477 ER4 AC+1,T
25536 056620 321 10 0 00 056612 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25537
25538 ;RIPPLE ZEROS TESTS (TO A RIPPLED ZERO, ADD A FRACTION OF ALL ONES)
25539
25540 001500 T=1500
25541
25542 000000 XX=0
25543
25544 R1500: REPEAT ^D18,
25545 <T=T+1
25546 ZZ=XX
25547 IFE ZZ,<ZZ=-1>
25548 XX=XX+XX+1
25549 IFE <XX-1>,<XX=-2>
25550 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ
25551 >
25552 001501 T=T+1
25553 000000 ZZ=XX
25554 777777 777777 IFE ZZ,<ZZ=-1>
25555 000001 XX=XX+XX+1
25556 777777 777776 IFE <XX-1>,<XX=-2>
25557 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
25558 DMOVE AC,[200777,,-1
25559 056621 120 04 0 00 071646 -1,,XX]
25560 DFAD AC,[200777,,-1
25561 056622 110 04 0 00 071611 -1,,-1]
25562 056623 312 04 0 00 071650 CAME AC,[201777,,-1]
25563 056624 003 04 0 00 001501 ER3 AC,T
25564 056625 312 05 0 00 071241 CAME AC+1,[377777,,ZZ]
25565 056626 004 05 0 00 001501 ER4 AC+1,T
25566 056627 321 10 0 00 056621 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25567
25568 001502 T=T+1
25569 777777 777776 ZZ=XX
25570 IFE ZZ,<ZZ=-1>
25571 777777 777775 XX=XX+XX+1
25572 IFE <XX-1>,<XX=-2>
25573 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
25574 DMOVE AC,[200777,,-1
25575 056630 120 04 0 00 071651 -1,,XX]
25576 DFAD AC,[200777,,-1
25577 056631 110 04 0 00 071611 -1,,-1]
25578 056632 312 04 0 00 071650 CAME AC,[201777,,-1]
25579 056633 003 04 0 00 001502 ER3 AC,T
25580 056634 312 05 0 00 071244 CAME AC+1,[377777,,ZZ]
25581 056635 004 05 0 00 001502 ER4 AC+1,T
25582 056636 321 10 0 00 056630 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25583
25584 001503 T=T+1
25585 777777 777775 ZZ=XX
25586 IFE ZZ,<ZZ=-1>
25587 777777 777773 XX=XX+XX+1
25588 IFE <XX-1>,<XX=-2>
25589 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 11-3
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0592
25590 DMOVE AC,[200777,,-1
25591 056637 120 04 0 00 071653 -1,,XX]
25592 DFAD AC,[200777,,-1
25593 056640 110 04 0 00 071611 -1,,-1]
25594 056641 312 04 0 00 071650 CAME AC,[201777,,-1]
25595 056642 003 04 0 00 001503 ER3 AC,T
25596 056643 312 05 0 00 071247 CAME AC+1,[377777,,ZZ]
25597 056644 004 05 0 00 001503 ER4 AC+1,T
25598 056645 321 10 0 00 056637 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25599
25600 001504 T=T+1
25601 777777 777773 ZZ=XX
25602 IFE ZZ,<ZZ=-1>
25603 777777 777767 XX=XX+XX+1
25604 IFE <XX-1>,<XX=-2>
25605 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
25606 DMOVE AC,[200777,,-1
25607 056646 120 04 0 00 071655 -1,,XX]
25608 DFAD AC,[200777,,-1
25609 056647 110 04 0 00 071611 -1,,-1]
25610 056650 312 04 0 00 071650 CAME AC,[201777,,-1]
25611 056651 003 04 0 00 001504 ER3 AC,T
25612 056652 312 05 0 00 071252 CAME AC+1,[377777,,ZZ]
25613 056653 004 05 0 00 001504 ER4 AC+1,T
25614 056654 321 10 0 00 056646 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25615
25616 001505 T=T+1
25617 777777 777767 ZZ=XX
25618 IFE ZZ,<ZZ=-1>
25619 777777 777757 XX=XX+XX+1
25620 IFE <XX-1>,<XX=-2>
25621 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
25622 DMOVE AC,[200777,,-1
25623 056655 120 04 0 00 071657 -1,,XX]
25624 DFAD AC,[200777,,-1
25625 056656 110 04 0 00 071611 -1,,-1]
25626 056657 312 04 0 00 071650 CAME AC,[201777,,-1]
25627 056660 003 04 0 00 001505 ER3 AC,T
25628 056661 312 05 0 00 071255 CAME AC+1,[377777,,ZZ]
25629 056662 004 05 0 00 001505 ER4 AC+1,T
25630 056663 321 10 0 00 056655 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25631
25632 001506 T=T+1
25633 777777 777757 ZZ=XX
25634 IFE ZZ,<ZZ=-1>
25635 777777 777737 XX=XX+XX+1
25636 IFE <XX-1>,<XX=-2>
25637 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
25638 DMOVE AC,[200777,,-1
25639 056664 120 04 0 00 071661 -1,,XX]
25640 DFAD AC,[200777,,-1
25641 056665 110 04 0 00 071611 -1,,-1]
25642 056666 312 04 0 00 071650 CAME AC,[201777,,-1]
25643 056667 003 04 0 00 001506 ER3 AC,T
25644 056670 312 05 0 00 071260 CAME AC+1,[377777,,ZZ]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 11-4
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0593
25645 056671 004 05 0 00 001506 ER4 AC+1,T
25646 056672 321 10 0 00 056664 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25647
25648 001507 T=T+1
25649 777777 777737 ZZ=XX
25650 IFE ZZ,<ZZ=-1>
25651 777777 777677 XX=XX+XX+1
25652 IFE <XX-1>,<XX=-2>
25653 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
25654 DMOVE AC,[200777,,-1
25655 056673 120 04 0 00 071663 -1,,XX]
25656 DFAD AC,[200777,,-1
25657 056674 110 04 0 00 071611 -1,,-1]
25658 056675 312 04 0 00 071650 CAME AC,[201777,,-1]
25659 056676 003 04 0 00 001507 ER3 AC,T
25660 056677 312 05 0 00 071263 CAME AC+1,[377777,,ZZ]
25661 056700 004 05 0 00 001507 ER4 AC+1,T
25662 056701 321 10 0 00 056673 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25663
25664 001510 T=T+1
25665 777777 777677 ZZ=XX
25666 IFE ZZ,<ZZ=-1>
25667 777777 777577 XX=XX+XX+1
25668 IFE <XX-1>,<XX=-2>
25669 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
25670 DMOVE AC,[200777,,-1
25671 056702 120 04 0 00 071665 -1,,XX]
25672 DFAD AC,[200777,,-1
25673 056703 110 04 0 00 071611 -1,,-1]
25674 056704 312 04 0 00 071650 CAME AC,[201777,,-1]
25675 056705 003 04 0 00 001510 ER3 AC,T
25676 056706 312 05 0 00 071266 CAME AC+1,[377777,,ZZ]
25677 056707 004 05 0 00 001510 ER4 AC+1,T
25678 056710 321 10 0 00 056702 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25679
25680 001511 T=T+1
25681 777777 777577 ZZ=XX
25682 IFE ZZ,<ZZ=-1>
25683 777777 777377 XX=XX+XX+1
25684 IFE <XX-1>,<XX=-2>
25685 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
25686 DMOVE AC,[200777,,-1
25687 056711 120 04 0 00 071667 -1,,XX]
25688 DFAD AC,[200777,,-1
25689 056712 110 04 0 00 071611 -1,,-1]
25690 056713 312 04 0 00 071650 CAME AC,[201777,,-1]
25691 056714 003 04 0 00 001511 ER3 AC,T
25692 056715 312 05 0 00 071271 CAME AC+1,[377777,,ZZ]
25693 056716 004 05 0 00 001511 ER4 AC+1,T
25694 056717 321 10 0 00 056711 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25695
25696 001512 T=T+1
25697 777777 777377 ZZ=XX
25698 IFE ZZ,<ZZ=-1>
25699 777777 776777 XX=XX+XX+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 11-5
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0594
25700 IFE <XX-1>,<XX=-2>
25701 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
25702 DMOVE AC,[200777,,-1
25703 056720 120 04 0 00 071671 -1,,XX]
25704 DFAD AC,[200777,,-1
25705 056721 110 04 0 00 071611 -1,,-1]
25706 056722 312 04 0 00 071650 CAME AC,[201777,,-1]
25707 056723 003 04 0 00 001512 ER3 AC,T
25708 056724 312 05 0 00 071274 CAME AC+1,[377777,,ZZ]
25709 056725 004 05 0 00 001512 ER4 AC+1,T
25710 056726 321 10 0 00 056720 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25711
25712 001513 T=T+1
25713 777777 776777 ZZ=XX
25714 IFE ZZ,<ZZ=-1>
25715 777777 775777 XX=XX+XX+1
25716 IFE <XX-1>,<XX=-2>
25717 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
25718 DMOVE AC,[200777,,-1
25719 056727 120 04 0 00 071673 -1,,XX]
25720 DFAD AC,[200777,,-1
25721 056730 110 04 0 00 071611 -1,,-1]
25722 056731 312 04 0 00 071650 CAME AC,[201777,,-1]
25723 056732 003 04 0 00 001513 ER3 AC,T
25724 056733 312 05 0 00 071277 CAME AC+1,[377777,,ZZ]
25725 056734 004 05 0 00 001513 ER4 AC+1,T
25726 056735 321 10 0 00 056727 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25727
25728 001514 T=T+1
25729 777777 775777 ZZ=XX
25730 IFE ZZ,<ZZ=-1>
25731 777777 773777 XX=XX+XX+1
25732 IFE <XX-1>,<XX=-2>
25733 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
25734 DMOVE AC,[200777,,-1
25735 056736 120 04 0 00 071675 -1,,XX]
25736 DFAD AC,[200777,,-1
25737 056737 110 04 0 00 071611 -1,,-1]
25738 056740 312 04 0 00 071650 CAME AC,[201777,,-1]
25739 056741 003 04 0 00 001514 ER3 AC,T
25740 056742 312 05 0 00 071302 CAME AC+1,[377777,,ZZ]
25741 056743 004 05 0 00 001514 ER4 AC+1,T
25742 056744 321 10 0 00 056736 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25743
25744 001515 T=T+1
25745 777777 773777 ZZ=XX
25746 IFE ZZ,<ZZ=-1>
25747 777777 767777 XX=XX+XX+1
25748 IFE <XX-1>,<XX=-2>
25749 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
25750 DMOVE AC,[200777,,-1
25751 056745 120 04 0 00 071677 -1,,XX]
25752 DFAD AC,[200777,,-1
25753 056746 110 04 0 00 071611 -1,,-1]
25754 056747 312 04 0 00 071650 CAME AC,[201777,,-1]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 11-6
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0595
25755 056750 003 04 0 00 001515 ER3 AC,T
25756 056751 312 05 0 00 071305 CAME AC+1,[377777,,ZZ]
25757 056752 004 05 0 00 001515 ER4 AC+1,T
25758 056753 321 10 0 00 056745 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25759
25760 001516 T=T+1
25761 777777 767777 ZZ=XX
25762 IFE ZZ,<ZZ=-1>
25763 777777 757777 XX=XX+XX+1
25764 IFE <XX-1>,<XX=-2>
25765 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
25766 DMOVE AC,[200777,,-1
25767 056754 120 04 0 00 071701 -1,,XX]
25768 DFAD AC,[200777,,-1
25769 056755 110 04 0 00 071611 -1,,-1]
25770 056756 312 04 0 00 071650 CAME AC,[201777,,-1]
25771 056757 003 04 0 00 001516 ER3 AC,T
25772 056760 312 05 0 00 071310 CAME AC+1,[377777,,ZZ]
25773 056761 004 05 0 00 001516 ER4 AC+1,T
25774 056762 321 10 0 00 056754 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25775
25776 001517 T=T+1
25777 777777 757777 ZZ=XX
25778 IFE ZZ,<ZZ=-1>
25779 777777 737777 XX=XX+XX+1
25780 IFE <XX-1>,<XX=-2>
25781 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
25782 DMOVE AC,[200777,,-1
25783 056763 120 04 0 00 071703 -1,,XX]
25784 DFAD AC,[200777,,-1
25785 056764 110 04 0 00 071611 -1,,-1]
25786 056765 312 04 0 00 071650 CAME AC,[201777,,-1]
25787 056766 003 04 0 00 001517 ER3 AC,T
25788 056767 312 05 0 00 071313 CAME AC+1,[377777,,ZZ]
25789 056770 004 05 0 00 001517 ER4 AC+1,T
25790 056771 321 10 0 00 056763 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25791
25792 001520 T=T+1
25793 777777 737777 ZZ=XX
25794 IFE ZZ,<ZZ=-1>
25795 777777 677777 XX=XX+XX+1
25796 IFE <XX-1>,<XX=-2>
25797 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
25798 DMOVE AC,[200777,,-1
25799 056772 120 04 0 00 071705 -1,,XX]
25800 DFAD AC,[200777,,-1
25801 056773 110 04 0 00 071611 -1,,-1]
25802 056774 312 04 0 00 071650 CAME AC,[201777,,-1]
25803 056775 003 04 0 00 001520 ER3 AC,T
25804 056776 312 05 0 00 071316 CAME AC+1,[377777,,ZZ]
25805 056777 004 05 0 00 001520 ER4 AC+1,T
25806 057000 321 10 0 00 056772 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25807
25808 001521 T=T+1
25809 777777 677777 ZZ=XX
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 11-7
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0596
25810 IFE ZZ,<ZZ=-1>
25811 777777 577777 XX=XX+XX+1
25812 IFE <XX-1>,<XX=-2>
25813 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
25814 DMOVE AC,[200777,,-1
25815 057001 120 04 0 00 071707 -1,,XX]
25816 DFAD AC,[200777,,-1
25817 057002 110 04 0 00 071611 -1,,-1]
25818 057003 312 04 0 00 071650 CAME AC,[201777,,-1]
25819 057004 003 04 0 00 001521 ER3 AC,T
25820 057005 312 05 0 00 071321 CAME AC+1,[377777,,ZZ]
25821 057006 004 05 0 00 001521 ER4 AC+1,T
25822 057007 321 10 0 00 057001 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25823
25824 001522 T=T+1
25825 777777 577777 ZZ=XX
25826 IFE ZZ,<ZZ=-1>
25827 777777 377777 XX=XX+XX+1
25828 IFE <XX-1>,<XX=-2>
25829 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
25830 DMOVE AC,[200777,,-1
25831 057010 120 04 0 00 071711 -1,,XX]
25832 DFAD AC,[200777,,-1
25833 057011 110 04 0 00 071611 -1,,-1]
25834 057012 312 04 0 00 071650 CAME AC,[201777,,-1]
25835 057013 003 04 0 00 001522 ER3 AC,T
25836 057014 312 05 0 00 071324 CAME AC+1,[377777,,ZZ]
25837 057015 004 05 0 00 001522 ER4 AC+1,T
25838 057016 321 10 0 00 057010 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25839
25840
25841 001523 T=T+1
25842 777777 377777 ZZ=XX
25843 777777 777776 XX=-2
25844 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,377777,ZZ^
25845 DMOVE AC,[200777,,-1
25846 057017 120 04 0 00 071713 XX,,-1]
25847 DFAD AC,[200777,,-1
25848 057020 110 04 0 00 071611 -1,,-1]
25849 057021 312 04 0 00 071650 CAME AC,[201777,,-1]
25850 057022 003 04 0 00 001523 ER3 AC,T
25851 057023 312 05 0 00 071327 CAME AC+1,[377777,,ZZ]
25852 057024 004 05 0 00 001523 ER4 AC+1,T
25853 057025 321 10 0 00 057017 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25854
25855 REPEAT ^D16,
25856 <T=T+1
25857 ZZ=XX
25858 XX=XX+XX+1
25859 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1
25860 >
25861 001524 T=T+1
25862 777777 777776 ZZ=XX
25863 777777 777775 XX=XX+XX+1
25864 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 11-8
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0597
25865 DMOVE AC,[200777,,-1
25866 057026 120 04 0 00 071715 XX,,-1]
25867 DFAD AC,[200777,,-1
25868 057027 110 04 0 00 071611 -1,,-1]
25869 057030 312 04 0 00 071650 CAME AC,[201777,,-1]
25870 057031 003 04 0 00 001524 ER3 AC,T
25871 057032 312 05 0 00 071332 CAME AC+1,[ZZ&377777,,-1]
25872 057033 004 05 0 00 001524 ER4 AC+1,T
25873 057034 321 10 0 00 057026 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25874
25875 001525 T=T+1
25876 777777 777775 ZZ=XX
25877 777777 777773 XX=XX+XX+1
25878 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
25879 DMOVE AC,[200777,,-1
25880 057035 120 04 0 00 071717 XX,,-1]
25881 DFAD AC,[200777,,-1
25882 057036 110 04 0 00 071611 -1,,-1]
25883 057037 312 04 0 00 071650 CAME AC,[201777,,-1]
25884 057040 003 04 0 00 001525 ER3 AC,T
25885 057041 312 05 0 00 071335 CAME AC+1,[ZZ&377777,,-1]
25886 057042 004 05 0 00 001525 ER4 AC+1,T
25887 057043 321 10 0 00 057035 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25888
25889 001526 T=T+1
25890 777777 777773 ZZ=XX
25891 777777 777767 XX=XX+XX+1
25892 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
25893 DMOVE AC,[200777,,-1
25894 057044 120 04 0 00 071721 XX,,-1]
25895 DFAD AC,[200777,,-1
25896 057045 110 04 0 00 071611 -1,,-1]
25897 057046 312 04 0 00 071650 CAME AC,[201777,,-1]
25898 057047 003 04 0 00 001526 ER3 AC,T
25899 057050 312 05 0 00 071340 CAME AC+1,[ZZ&377777,,-1]
25900 057051 004 05 0 00 001526 ER4 AC+1,T
25901 057052 321 10 0 00 057044 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25902
25903 001527 T=T+1
25904 777777 777767 ZZ=XX
25905 777777 777757 XX=XX+XX+1
25906 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
25907 DMOVE AC,[200777,,-1
25908 057053 120 04 0 00 071723 XX,,-1]
25909 DFAD AC,[200777,,-1
25910 057054 110 04 0 00 071611 -1,,-1]
25911 057055 312 04 0 00 071650 CAME AC,[201777,,-1]
25912 057056 003 04 0 00 001527 ER3 AC,T
25913 057057 312 05 0 00 071343 CAME AC+1,[ZZ&377777,,-1]
25914 057060 004 05 0 00 001527 ER4 AC+1,T
25915 057061 321 10 0 00 057053 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25916
25917 001530 T=T+1
25918 777777 777757 ZZ=XX
25919 777777 777737 XX=XX+XX+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 11-9
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0598
25920 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
25921 DMOVE AC,[200777,,-1
25922 057062 120 04 0 00 071725 XX,,-1]
25923 DFAD AC,[200777,,-1
25924 057063 110 04 0 00 071611 -1,,-1]
25925 057064 312 04 0 00 071650 CAME AC,[201777,,-1]
25926 057065 003 04 0 00 001530 ER3 AC,T
25927 057066 312 05 0 00 071346 CAME AC+1,[ZZ&377777,,-1]
25928 057067 004 05 0 00 001530 ER4 AC+1,T
25929 057070 321 10 0 00 057062 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25930
25931 001531 T=T+1
25932 777777 777737 ZZ=XX
25933 777777 777677 XX=XX+XX+1
25934 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
25935 DMOVE AC,[200777,,-1
25936 057071 120 04 0 00 071727 XX,,-1]
25937 DFAD AC,[200777,,-1
25938 057072 110 04 0 00 071611 -1,,-1]
25939 057073 312 04 0 00 071650 CAME AC,[201777,,-1]
25940 057074 003 04 0 00 001531 ER3 AC,T
25941 057075 312 05 0 00 071351 CAME AC+1,[ZZ&377777,,-1]
25942 057076 004 05 0 00 001531 ER4 AC+1,T
25943 057077 321 10 0 00 057071 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25944
25945 001532 T=T+1
25946 777777 777677 ZZ=XX
25947 777777 777577 XX=XX+XX+1
25948 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
25949 DMOVE AC,[200777,,-1
25950 057100 120 04 0 00 071731 XX,,-1]
25951 DFAD AC,[200777,,-1
25952 057101 110 04 0 00 071611 -1,,-1]
25953 057102 312 04 0 00 071650 CAME AC,[201777,,-1]
25954 057103 003 04 0 00 001532 ER3 AC,T
25955 057104 312 05 0 00 071354 CAME AC+1,[ZZ&377777,,-1]
25956 057105 004 05 0 00 001532 ER4 AC+1,T
25957 057106 321 10 0 00 057100 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25958
25959 001533 T=T+1
25960 777777 777577 ZZ=XX
25961 777777 777377 XX=XX+XX+1
25962 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
25963 DMOVE AC,[200777,,-1
25964 057107 120 04 0 00 071733 XX,,-1]
25965 DFAD AC,[200777,,-1
25966 057110 110 04 0 00 071611 -1,,-1]
25967 057111 312 04 0 00 071650 CAME AC,[201777,,-1]
25968 057112 003 04 0 00 001533 ER3 AC,T
25969 057113 312 05 0 00 071357 CAME AC+1,[ZZ&377777,,-1]
25970 057114 004 05 0 00 001533 ER4 AC+1,T
25971 057115 321 10 0 00 057107 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25972
25973 001534 T=T+1
25974 777777 777377 ZZ=XX
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 11-10
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0599
25975 777777 776777 XX=XX+XX+1
25976 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
25977 DMOVE AC,[200777,,-1
25978 057116 120 04 0 00 071735 XX,,-1]
25979 DFAD AC,[200777,,-1
25980 057117 110 04 0 00 071611 -1,,-1]
25981 057120 312 04 0 00 071650 CAME AC,[201777,,-1]
25982 057121 003 04 0 00 001534 ER3 AC,T
25983 057122 312 05 0 00 071362 CAME AC+1,[ZZ&377777,,-1]
25984 057123 004 05 0 00 001534 ER4 AC+1,T
25985 057124 321 10 0 00 057116 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
25986
25987 001535 T=T+1
25988 777777 776777 ZZ=XX
25989 777777 775777 XX=XX+XX+1
25990 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
25991 DMOVE AC,[200777,,-1
25992 057125 120 04 0 00 071737 XX,,-1]
25993 DFAD AC,[200777,,-1
25994 057126 110 04 0 00 071611 -1,,-1]
25995 057127 312 04 0 00 071650 CAME AC,[201777,,-1]
25996 057130 003 04 0 00 001535 ER3 AC,T
25997 057131 312 05 0 00 071365 CAME AC+1,[ZZ&377777,,-1]
25998 057132 004 05 0 00 001535 ER4 AC+1,T
25999 057133 321 10 0 00 057125 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26000
26001 001536 T=T+1
26002 777777 775777 ZZ=XX
26003 777777 773777 XX=XX+XX+1
26004 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
26005 DMOVE AC,[200777,,-1
26006 057134 120 04 0 00 071741 XX,,-1]
26007 DFAD AC,[200777,,-1
26008 057135 110 04 0 00 071611 -1,,-1]
26009 057136 312 04 0 00 071650 CAME AC,[201777,,-1]
26010 057137 003 04 0 00 001536 ER3 AC,T
26011 057140 312 05 0 00 071370 CAME AC+1,[ZZ&377777,,-1]
26012 057141 004 05 0 00 001536 ER4 AC+1,T
26013 057142 321 10 0 00 057134 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26014
26015 001537 T=T+1
26016 777777 773777 ZZ=XX
26017 777777 767777 XX=XX+XX+1
26018 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
26019 DMOVE AC,[200777,,-1
26020 057143 120 04 0 00 071743 XX,,-1]
26021 DFAD AC,[200777,,-1
26022 057144 110 04 0 00 071611 -1,,-1]
26023 057145 312 04 0 00 071650 CAME AC,[201777,,-1]
26024 057146 003 04 0 00 001537 ER3 AC,T
26025 057147 312 05 0 00 071373 CAME AC+1,[ZZ&377777,,-1]
26026 057150 004 05 0 00 001537 ER4 AC+1,T
26027 057151 321 10 0 00 057143 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26028
26029 001540 T=T+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 11-11
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0600
26030 777777 767777 ZZ=XX
26031 777777 757777 XX=XX+XX+1
26032 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
26033 DMOVE AC,[200777,,-1
26034 057152 120 04 0 00 071745 XX,,-1]
26035 DFAD AC,[200777,,-1
26036 057153 110 04 0 00 071611 -1,,-1]
26037 057154 312 04 0 00 071650 CAME AC,[201777,,-1]
26038 057155 003 04 0 00 001540 ER3 AC,T
26039 057156 312 05 0 00 071376 CAME AC+1,[ZZ&377777,,-1]
26040 057157 004 05 0 00 001540 ER4 AC+1,T
26041 057160 321 10 0 00 057152 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26042
26043 001541 T=T+1
26044 777777 757777 ZZ=XX
26045 777777 737777 XX=XX+XX+1
26046 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
26047 DMOVE AC,[200777,,-1
26048 057161 120 04 0 00 071747 XX,,-1]
26049 DFAD AC,[200777,,-1
26050 057162 110 04 0 00 071611 -1,,-1]
26051 057163 312 04 0 00 071650 CAME AC,[201777,,-1]
26052 057164 003 04 0 00 001541 ER3 AC,T
26053 057165 312 05 0 00 071401 CAME AC+1,[ZZ&377777,,-1]
26054 057166 004 05 0 00 001541 ER4 AC+1,T
26055 057167 321 10 0 00 057161 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26056
26057 001542 T=T+1
26058 777777 737777 ZZ=XX
26059 777777 677777 XX=XX+XX+1
26060 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
26061 DMOVE AC,[200777,,-1
26062 057170 120 04 0 00 071751 XX,,-1]
26063 DFAD AC,[200777,,-1
26064 057171 110 04 0 00 071611 -1,,-1]
26065 057172 312 04 0 00 071650 CAME AC,[201777,,-1]
26066 057173 003 04 0 00 001542 ER3 AC,T
26067 057174 312 05 0 00 071404 CAME AC+1,[ZZ&377777,,-1]
26068 057175 004 05 0 00 001542 ER4 AC+1,T
26069 057176 321 10 0 00 057170 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26070
26071 001543 T=T+1
26072 777777 677777 ZZ=XX
26073 777777 577777 XX=XX+XX+1
26074 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
26075 DMOVE AC,[200777,,-1
26076 057177 120 04 0 00 071753 XX,,-1]
26077 DFAD AC,[200777,,-1
26078 057200 110 04 0 00 071611 -1,,-1]
26079 057201 312 04 0 00 071650 CAME AC,[201777,,-1]
26080 057202 003 04 0 00 001543 ER3 AC,T
26081 057203 312 05 0 00 071407 CAME AC+1,[ZZ&377777,,-1]
26082 057204 004 05 0 00 001543 ER4 AC+1,T
26083 057205 321 10 0 00 057177 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26084
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 11-12
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0601
26085
26086 001544 T=T+1
26087 777777 377777 XX=XX+XX+1
26088 777777 377777 ZZ=XX
26089 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ,-1^
26090 DMOVE AC,[200777,,-1
26091 057206 120 04 0 00 071755 XX,,-1]
26092 DFAD AC,[200777,,-1
26093 057207 110 04 0 00 071611 -1,,-1]
26094 057210 312 04 0 00 071650 CAME AC,[201777,,-1]
26095 057211 003 04 0 00 001544 ER3 AC,T
26096 057212 312 05 0 00 071241 CAME AC+1,[ZZ,,-1]
26097 057213 004 05 0 00 001544 ER4 AC+1,T
26098 057214 321 10 0 00 057206 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26099
26100 001545 T=T+1
26101 177777 ZZ=XX&177777
26102 777777 777776 XX=-2
26103 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,-1,ZZ,-1^
26104 DMOVE AC,[200777,,XX
26105 057215 120 04 0 00 071757 -1,,-1]
26106 DFAD AC,[200777,,-1
26107 057216 110 04 0 00 071611 -1,,-1]
26108 057217 312 04 0 00 071650 CAME AC,[201777,,-1]
26109 057220 003 04 0 00 001545 ER3 AC,T
26110 057221 312 05 0 00 071412 CAME AC+1,[ZZ,,-1]
26111 057222 004 05 0 00 001545 ER4 AC+1,T
26112 057223 321 10 0 00 057215 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26113
26114 REPEAT ^D17,
26115 <T=T+1
26116 ZZ=XX
26117 XX=XX+XX+1
26118 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1
26119 >
26120 001546 T=T+1
26121 777777 777776 ZZ=XX
26122 777777 777775 XX=XX+XX+1
26123 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
26124 DMOVE AC,[200777,,XX
26125 057224 120 04 0 00 071761 -1,,-1]
26126 DFAD AC,[200777,,-1
26127 057225 110 04 0 00 071611 -1,,-1]
26128 057226 312 04 0 00 071763 CAME AC,[201777,,ZZ]
26129 057227 003 04 0 00 001546 ER3 AC,T
26130 057230 312 05 0 00 071241 CAME AC+1,[377777,,-1]
26131 057231 004 05 0 00 001546 ER4 AC+1,T
26132 057232 321 10 0 00 057224 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26133
26134 001547 T=T+1
26135 777777 777775 ZZ=XX
26136 777777 777773 XX=XX+XX+1
26137 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
26138 DMOVE AC,[200777,,XX
26139 057233 120 04 0 00 071764 -1,,-1]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 11-13
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0602
26140 DFAD AC,[200777,,-1
26141 057234 110 04 0 00 071611 -1,,-1]
26142 057235 312 04 0 00 071766 CAME AC,[201777,,ZZ]
26143 057236 003 04 0 00 001547 ER3 AC,T
26144 057237 312 05 0 00 071241 CAME AC+1,[377777,,-1]
26145 057240 004 05 0 00 001547 ER4 AC+1,T
26146 057241 321 10 0 00 057233 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26147
26148 001550 T=T+1
26149 777777 777773 ZZ=XX
26150 777777 777767 XX=XX+XX+1
26151 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
26152 DMOVE AC,[200777,,XX
26153 057242 120 04 0 00 071767 -1,,-1]
26154 DFAD AC,[200777,,-1
26155 057243 110 04 0 00 071611 -1,,-1]
26156 057244 312 04 0 00 071771 CAME AC,[201777,,ZZ]
26157 057245 003 04 0 00 001550 ER3 AC,T
26158 057246 312 05 0 00 071241 CAME AC+1,[377777,,-1]
26159 057247 004 05 0 00 001550 ER4 AC+1,T
26160 057250 321 10 0 00 057242 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26161
26162 001551 T=T+1
26163 777777 777767 ZZ=XX
26164 777777 777757 XX=XX+XX+1
26165 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
26166 DMOVE AC,[200777,,XX
26167 057251 120 04 0 00 071772 -1,,-1]
26168 DFAD AC,[200777,,-1
26169 057252 110 04 0 00 071611 -1,,-1]
26170 057253 312 04 0 00 071774 CAME AC,[201777,,ZZ]
26171 057254 003 04 0 00 001551 ER3 AC,T
26172 057255 312 05 0 00 071241 CAME AC+1,[377777,,-1]
26173 057256 004 05 0 00 001551 ER4 AC+1,T
26174 057257 321 10 0 00 057251 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26175
26176 001552 T=T+1
26177 777777 777757 ZZ=XX
26178 777777 777737 XX=XX+XX+1
26179 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
26180 DMOVE AC,[200777,,XX
26181 057260 120 04 0 00 071775 -1,,-1]
26182 DFAD AC,[200777,,-1
26183 057261 110 04 0 00 071611 -1,,-1]
26184 057262 312 04 0 00 071777 CAME AC,[201777,,ZZ]
26185 057263 003 04 0 00 001552 ER3 AC,T
26186 057264 312 05 0 00 071241 CAME AC+1,[377777,,-1]
26187 057265 004 05 0 00 001552 ER4 AC+1,T
26188 057266 321 10 0 00 057260 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26189
26190 001553 T=T+1
26191 777777 777737 ZZ=XX
26192 777777 777677 XX=XX+XX+1
26193 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
26194 DMOVE AC,[200777,,XX
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 11-14
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0603
26195 057267 120 04 0 00 072000 -1,,-1]
26196 DFAD AC,[200777,,-1
26197 057270 110 04 0 00 071611 -1,,-1]
26198 057271 312 04 0 00 072002 CAME AC,[201777,,ZZ]
26199 057272 003 04 0 00 001553 ER3 AC,T
26200 057273 312 05 0 00 071241 CAME AC+1,[377777,,-1]
26201 057274 004 05 0 00 001553 ER4 AC+1,T
26202 057275 321 10 0 00 057267 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26203
26204 001554 T=T+1
26205 777777 777677 ZZ=XX
26206 777777 777577 XX=XX+XX+1
26207 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
26208 DMOVE AC,[200777,,XX
26209 057276 120 04 0 00 072003 -1,,-1]
26210 DFAD AC,[200777,,-1
26211 057277 110 04 0 00 071611 -1,,-1]
26212 057300 312 04 0 00 072005 CAME AC,[201777,,ZZ]
26213 057301 003 04 0 00 001554 ER3 AC,T
26214 057302 312 05 0 00 071241 CAME AC+1,[377777,,-1]
26215 057303 004 05 0 00 001554 ER4 AC+1,T
26216 057304 321 10 0 00 057276 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26217
26218 001555 T=T+1
26219 777777 777577 ZZ=XX
26220 777777 777377 XX=XX+XX+1
26221 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
26222 DMOVE AC,[200777,,XX
26223 057305 120 04 0 00 072006 -1,,-1]
26224 DFAD AC,[200777,,-1
26225 057306 110 04 0 00 071611 -1,,-1]
26226 057307 312 04 0 00 072010 CAME AC,[201777,,ZZ]
26227 057310 003 04 0 00 001555 ER3 AC,T
26228 057311 312 05 0 00 071241 CAME AC+1,[377777,,-1]
26229 057312 004 05 0 00 001555 ER4 AC+1,T
26230 057313 321 10 0 00 057305 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26231
26232 001556 T=T+1
26233 777777 777377 ZZ=XX
26234 777777 776777 XX=XX+XX+1
26235 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
26236 DMOVE AC,[200777,,XX
26237 057314 120 04 0 00 072011 -1,,-1]
26238 DFAD AC,[200777,,-1
26239 057315 110 04 0 00 071611 -1,,-1]
26240 057316 312 04 0 00 072013 CAME AC,[201777,,ZZ]
26241 057317 003 04 0 00 001556 ER3 AC,T
26242 057320 312 05 0 00 071241 CAME AC+1,[377777,,-1]
26243 057321 004 05 0 00 001556 ER4 AC+1,T
26244 057322 321 10 0 00 057314 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26245
26246 001557 T=T+1
26247 777777 776777 ZZ=XX
26248 777777 775777 XX=XX+XX+1
26249 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 11-15
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0604
26250 DMOVE AC,[200777,,XX
26251 057323 120 04 0 00 072014 -1,,-1]
26252 DFAD AC,[200777,,-1
26253 057324 110 04 0 00 071611 -1,,-1]
26254 057325 312 04 0 00 072016 CAME AC,[201777,,ZZ]
26255 057326 003 04 0 00 001557 ER3 AC,T
26256 057327 312 05 0 00 071241 CAME AC+1,[377777,,-1]
26257 057330 004 05 0 00 001557 ER4 AC+1,T
26258 057331 321 10 0 00 057323 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26259
26260 001560 T=T+1
26261 777777 775777 ZZ=XX
26262 777777 773777 XX=XX+XX+1
26263 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
26264 DMOVE AC,[200777,,XX
26265 057332 120 04 0 00 072017 -1,,-1]
26266 DFAD AC,[200777,,-1
26267 057333 110 04 0 00 071611 -1,,-1]
26268 057334 312 04 0 00 072021 CAME AC,[201777,,ZZ]
26269 057335 003 04 0 00 001560 ER3 AC,T
26270 057336 312 05 0 00 071241 CAME AC+1,[377777,,-1]
26271 057337 004 05 0 00 001560 ER4 AC+1,T
26272 057340 321 10 0 00 057332 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26273
26274 001561 T=T+1
26275 777777 773777 ZZ=XX
26276 777777 767777 XX=XX+XX+1
26277 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
26278 DMOVE AC,[200777,,XX
26279 057341 120 04 0 00 072022 -1,,-1]
26280 DFAD AC,[200777,,-1
26281 057342 110 04 0 00 071611 -1,,-1]
26282 057343 312 04 0 00 072024 CAME AC,[201777,,ZZ]
26283 057344 003 04 0 00 001561 ER3 AC,T
26284 057345 312 05 0 00 071241 CAME AC+1,[377777,,-1]
26285 057346 004 05 0 00 001561 ER4 AC+1,T
26286 057347 321 10 0 00 057341 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26287
26288 001562 T=T+1
26289 777777 767777 ZZ=XX
26290 777777 757777 XX=XX+XX+1
26291 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
26292 DMOVE AC,[200777,,XX
26293 057350 120 04 0 00 072025 -1,,-1]
26294 DFAD AC,[200777,,-1
26295 057351 110 04 0 00 071611 -1,,-1]
26296 057352 312 04 0 00 072027 CAME AC,[201777,,ZZ]
26297 057353 003 04 0 00 001562 ER3 AC,T
26298 057354 312 05 0 00 071241 CAME AC+1,[377777,,-1]
26299 057355 004 05 0 00 001562 ER4 AC+1,T
26300 057356 321 10 0 00 057350 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26301
26302 001563 T=T+1
26303 777777 757777 ZZ=XX
26304 777777 737777 XX=XX+XX+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 11-16
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0605
26305 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
26306 DMOVE AC,[200777,,XX
26307 057357 120 04 0 00 072030 -1,,-1]
26308 DFAD AC,[200777,,-1
26309 057360 110 04 0 00 071611 -1,,-1]
26310 057361 312 04 0 00 072032 CAME AC,[201777,,ZZ]
26311 057362 003 04 0 00 001563 ER3 AC,T
26312 057363 312 05 0 00 071241 CAME AC+1,[377777,,-1]
26313 057364 004 05 0 00 001563 ER4 AC+1,T
26314 057365 321 10 0 00 057357 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26315
26316 001564 T=T+1
26317 777777 737777 ZZ=XX
26318 777777 677777 XX=XX+XX+1
26319 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
26320 DMOVE AC,[200777,,XX
26321 057366 120 04 0 00 072033 -1,,-1]
26322 DFAD AC,[200777,,-1
26323 057367 110 04 0 00 071611 -1,,-1]
26324 057370 312 04 0 00 072035 CAME AC,[201777,,ZZ]
26325 057371 003 04 0 00 001564 ER3 AC,T
26326 057372 312 05 0 00 071241 CAME AC+1,[377777,,-1]
26327 057373 004 05 0 00 001564 ER4 AC+1,T
26328 057374 321 10 0 00 057366 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26329
26330 001565 T=T+1
26331 777777 677777 ZZ=XX
26332 777777 577777 XX=XX+XX+1
26333 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
26334 DMOVE AC,[200777,,XX
26335 057375 120 04 0 00 072036 -1,,-1]
26336 DFAD AC,[200777,,-1
26337 057376 110 04 0 00 071611 -1,,-1]
26338 057377 312 04 0 00 072040 CAME AC,[201777,,ZZ]
26339 057400 003 04 0 00 001565 ER3 AC,T
26340 057401 312 05 0 00 071241 CAME AC+1,[377777,,-1]
26341 057402 004 05 0 00 001565 ER4 AC+1,T
26342 057403 321 10 0 00 057375 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26343
26344 001566 T=T+1
26345 777777 577777 ZZ=XX
26346 777777 377777 XX=XX+XX+1
26347 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
26348 DMOVE AC,[200777,,XX
26349 057404 120 04 0 00 072041 -1,,-1]
26350 DFAD AC,[200777,,-1
26351 057405 110 04 0 00 071611 -1,,-1]
26352 057406 312 04 0 00 072043 CAME AC,[201777,,ZZ]
26353 057407 003 04 0 00 001566 ER3 AC,T
26354 057410 312 05 0 00 071241 CAME AC+1,[377777,,-1]
26355 057411 004 05 0 00 001566 ER4 AC+1,T
26356 057412 321 10 0 00 057404 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26357
26358
26359 001567 T=T+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 11-17
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0606
26360 777777 377777 ZZ=XX
26361 777777 777776 XX=-2
26362 DFARP T,200777&XX,-1,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
26363 DMOVE AC,[200777&XX,,-1
26364 057413 120 04 0 00 072044 -1,,-1]
26365 DFAD AC,[200777,,-1
26366 057414 110 04 0 00 071611 -1,,-1]
26367 057415 312 04 0 00 072046 CAME AC,[201777,,ZZ]
26368 057416 003 04 0 00 001567 ER3 AC,T
26369 057417 312 05 0 00 071241 CAME AC+1,[377777,,-1]
26370 057420 004 05 0 00 001567 ER4 AC+1,T
26371 057421 321 10 0 00 057413 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26372
26373 REPEAT ^D8,
26374 <T=T+1
26375 ZZ=XX
26376 XX=XX+XX+1
26377 DFARP T,200777&XX,-1,-1,-1,200777,-1,-1,-1,201777&ZZ,-1,377777,-1
26378 >
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 12
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0607
26379 001570 T=T+1
26380 777777 777776 ZZ=XX
26381 777777 777775 XX=XX+XX+1
26382 DFARP T,200777&XX,-1,-1,-1,200777,-1,-1,-1,201777&ZZ,-1,377777,-1^
26383 DMOVE AC,[200777&XX,,-1
26384 057422 120 04 0 00 072047 -1,,-1]
26385 DFAD AC,[200777,,-1
26386 057423 110 04 0 00 071611 -1,,-1]
26387 057424 312 04 0 00 072051 CAME AC,[201777&ZZ,,-1]
26388 057425 003 04 0 00 001570 ER3 AC,T
26389 057426 312 05 0 00 071241 CAME AC+1,[377777,,-1]
26390 057427 004 05 0 00 001570 ER4 AC+1,T
26391 057430 321 10 0 00 057422 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26392
26393 001571 T=T+1
26394 777777 777775 ZZ=XX
26395 777777 777773 XX=XX+XX+1
26396 DFARP T,200777&XX,-1,-1,-1,200777,-1,-1,-1,201777&ZZ,-1,377777,-1^
26397 DMOVE AC,[200777&XX,,-1
26398 057431 120 04 0 00 072052 -1,,-1]
26399 DFAD AC,[200777,,-1
26400 057432 110 04 0 00 071611 -1,,-1]
26401 057433 312 04 0 00 072054 CAME AC,[201777&ZZ,,-1]
26402 057434 003 04 0 00 001571 ER3 AC,T
26403 057435 312 05 0 00 071241 CAME AC+1,[377777,,-1]
26404 057436 004 05 0 00 001571 ER4 AC+1,T
26405 057437 321 10 0 00 057431 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26406
26407 001572 T=T+1
26408 777777 777773 ZZ=XX
26409 777777 777767 XX=XX+XX+1
26410 DFARP T,200777&XX,-1,-1,-1,200777,-1,-1,-1,201777&ZZ,-1,377777,-1^
26411 DMOVE AC,[200777&XX,,-1
26412 057440 120 04 0 00 072055 -1,,-1]
26413 DFAD AC,[200777,,-1
26414 057441 110 04 0 00 071611 -1,,-1]
26415 057442 312 04 0 00 072057 CAME AC,[201777&ZZ,,-1]
26416 057443 003 04 0 00 001572 ER3 AC,T
26417 057444 312 05 0 00 071241 CAME AC+1,[377777,,-1]
26418 057445 004 05 0 00 001572 ER4 AC+1,T
26419 057446 321 10 0 00 057440 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26420
26421 001573 T=T+1
26422 777777 777767 ZZ=XX
26423 777777 777757 XX=XX+XX+1
26424 DFARP T,200777&XX,-1,-1,-1,200777,-1,-1,-1,201777&ZZ,-1,377777,-1^
26425 DMOVE AC,[200777&XX,,-1
26426 057447 120 04 0 00 072060 -1,,-1]
26427 DFAD AC,[200777,,-1
26428 057450 110 04 0 00 071611 -1,,-1]
26429 057451 312 04 0 00 072062 CAME AC,[201777&ZZ,,-1]
26430 057452 003 04 0 00 001573 ER3 AC,T
26431 057453 312 05 0 00 071241 CAME AC+1,[377777,,-1]
26432 057454 004 05 0 00 001573 ER4 AC+1,T
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 12-1
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0608
26433 057455 321 10 0 00 057447 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26434
26435 001574 T=T+1
26436 777777 777757 ZZ=XX
26437 777777 777737 XX=XX+XX+1
26438 DFARP T,200777&XX,-1,-1,-1,200777,-1,-1,-1,201777&ZZ,-1,377777,-1^
26439 DMOVE AC,[200777&XX,,-1
26440 057456 120 04 0 00 072063 -1,,-1]
26441 DFAD AC,[200777,,-1
26442 057457 110 04 0 00 071611 -1,,-1]
26443 057460 312 04 0 00 072065 CAME AC,[201777&ZZ,,-1]
26444 057461 003 04 0 00 001574 ER3 AC,T
26445 057462 312 05 0 00 071241 CAME AC+1,[377777,,-1]
26446 057463 004 05 0 00 001574 ER4 AC+1,T
26447 057464 321 10 0 00 057456 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26448
26449 001575 T=T+1
26450 777777 777737 ZZ=XX
26451 777777 777677 XX=XX+XX+1
26452 DFARP T,200777&XX,-1,-1,-1,200777,-1,-1,-1,201777&ZZ,-1,377777,-1^
26453 DMOVE AC,[200777&XX,,-1
26454 057465 120 04 0 00 072066 -1,,-1]
26455 DFAD AC,[200777,,-1
26456 057466 110 04 0 00 071611 -1,,-1]
26457 057467 312 04 0 00 072070 CAME AC,[201777&ZZ,,-1]
26458 057470 003 04 0 00 001575 ER3 AC,T
26459 057471 312 05 0 00 071241 CAME AC+1,[377777,,-1]
26460 057472 004 05 0 00 001575 ER4 AC+1,T
26461 057473 321 10 0 00 057465 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26462
26463 001576 T=T+1
26464 777777 777677 ZZ=XX
26465 777777 777577 XX=XX+XX+1
26466 DFARP T,200777&XX,-1,-1,-1,200777,-1,-1,-1,201777&ZZ,-1,377777,-1^
26467 DMOVE AC,[200777&XX,,-1
26468 057474 120 04 0 00 072071 -1,,-1]
26469 DFAD AC,[200777,,-1
26470 057475 110 04 0 00 071611 -1,,-1]
26471 057476 312 04 0 00 072073 CAME AC,[201777&ZZ,,-1]
26472 057477 003 04 0 00 001576 ER3 AC,T
26473 057500 312 05 0 00 071241 CAME AC+1,[377777,,-1]
26474 057501 004 05 0 00 001576 ER4 AC+1,T
26475 057502 321 10 0 00 057474 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26476
26477 001577 T=T+1
26478 777777 777577 ZZ=XX
26479 777777 777377 XX=XX+XX+1
26480 DFARP T,200777&XX,-1,-1,-1,200777,-1,-1,-1,201777&ZZ,-1,377777,-1^
26481 DMOVE AC,[200777&XX,,-1
26482 057503 120 04 0 00 072074 -1,,-1]
26483 DFAD AC,[200777,,-1
26484 057504 110 04 0 00 071611 -1,,-1]
26485 057505 312 04 0 00 072076 CAME AC,[201777&ZZ,,-1]
26486 057506 003 04 0 00 001577 ER3 AC,T
26487 057507 312 05 0 00 071241 CAME AC+1,[377777,,-1]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 12-2
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0609
26488 057510 004 05 0 00 001577 ER4 AC+1,T
26489 057511 321 10 0 00 057503 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26490
26491
26492 ;RIPPLE ONES TESTS (ADD A FRACTION OF A RIPPLED ONE TO SAME)
26493
26494 001600 T=1600
26495 000000 XX=0
26496 103400 ZZ=103400
26497
26498 R1600: REPEAT ^D18,
26499 <T=T+1
26500 XX=XX+XX
26501 IFE XX,<XX=1>
26502 ZZ=ZZ+1000
26503 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0
26504 >
26505 001601 T=T+1
26506 000000 XX=XX+XX
26507 000001 IFE XX,<XX=1>
26508 104400 ZZ=ZZ+1000
26509 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
26510 DMOVE AC,[200000,,0
26511 057512 120 04 0 00 071234 0,,XX]
26512 DFAD AC,[200000,,0
26513 057513 110 04 0 00 071234 0,,XX]
26514 057514 312 04 0 00 071233 CAME AC,[ZZ,,0]
26515 057515 003 04 0 00 001601 ER3 AC,T
26516 057516 312 05 0 00 070660 CAME AC+1,[0,,0]
26517 057517 004 05 0 00 001601 ER4 AC+1,T
26518 057520 321 10 0 00 057512 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26519
26520 001602 T=T+1
26521 000002 XX=XX+XX
26522 IFE XX,<XX=1>
26523 105400 ZZ=ZZ+1000
26524 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
26525 DMOVE AC,[200000,,0
26526 057521 120 04 0 00 071231 0,,XX]
26527 DFAD AC,[200000,,0
26528 057522 110 04 0 00 071231 0,,XX]
26529 057523 312 04 0 00 071230 CAME AC,[ZZ,,0]
26530 057524 003 04 0 00 001602 ER3 AC,T
26531 057525 312 05 0 00 070660 CAME AC+1,[0,,0]
26532 057526 004 05 0 00 001602 ER4 AC+1,T
26533 057527 321 10 0 00 057521 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26534
26535 001603 T=T+1
26536 000004 XX=XX+XX
26537 IFE XX,<XX=1>
26538 106400 ZZ=ZZ+1000
26539 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
26540 DMOVE AC,[200000,,0
26541 057530 120 04 0 00 071226 0,,XX]
26542 DFAD AC,[200000,,0
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 12-3
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0610
26543 057531 110 04 0 00 071226 0,,XX]
26544 057532 312 04 0 00 071225 CAME AC,[ZZ,,0]
26545 057533 003 04 0 00 001603 ER3 AC,T
26546 057534 312 05 0 00 070660 CAME AC+1,[0,,0]
26547 057535 004 05 0 00 001603 ER4 AC+1,T
26548 057536 321 10 0 00 057530 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26549
26550 001604 T=T+1
26551 000010 XX=XX+XX
26552 IFE XX,<XX=1>
26553 107400 ZZ=ZZ+1000
26554 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
26555 DMOVE AC,[200000,,0
26556 057537 120 04 0 00 071223 0,,XX]
26557 DFAD AC,[200000,,0
26558 057540 110 04 0 00 071223 0,,XX]
26559 057541 312 04 0 00 071222 CAME AC,[ZZ,,0]
26560 057542 003 04 0 00 001604 ER3 AC,T
26561 057543 312 05 0 00 070660 CAME AC+1,[0,,0]
26562 057544 004 05 0 00 001604 ER4 AC+1,T
26563 057545 321 10 0 00 057537 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26564
26565 001605 T=T+1
26566 000020 XX=XX+XX
26567 IFE XX,<XX=1>
26568 110400 ZZ=ZZ+1000
26569 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
26570 DMOVE AC,[200000,,0
26571 057546 120 04 0 00 071220 0,,XX]
26572 DFAD AC,[200000,,0
26573 057547 110 04 0 00 071220 0,,XX]
26574 057550 312 04 0 00 071217 CAME AC,[ZZ,,0]
26575 057551 003 04 0 00 001605 ER3 AC,T
26576 057552 312 05 0 00 070660 CAME AC+1,[0,,0]
26577 057553 004 05 0 00 001605 ER4 AC+1,T
26578 057554 321 10 0 00 057546 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26579
26580 001606 T=T+1
26581 000040 XX=XX+XX
26582 IFE XX,<XX=1>
26583 111400 ZZ=ZZ+1000
26584 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
26585 DMOVE AC,[200000,,0
26586 057555 120 04 0 00 071215 0,,XX]
26587 DFAD AC,[200000,,0
26588 057556 110 04 0 00 071215 0,,XX]
26589 057557 312 04 0 00 071214 CAME AC,[ZZ,,0]
26590 057560 003 04 0 00 001606 ER3 AC,T
26591 057561 312 05 0 00 070660 CAME AC+1,[0,,0]
26592 057562 004 05 0 00 001606 ER4 AC+1,T
26593 057563 321 10 0 00 057555 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26594
26595 001607 T=T+1
26596 000100 XX=XX+XX
26597 IFE XX,<XX=1>
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 12-4
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0611
26598 112400 ZZ=ZZ+1000
26599 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
26600 DMOVE AC,[200000,,0
26601 057564 120 04 0 00 071212 0,,XX]
26602 DFAD AC,[200000,,0
26603 057565 110 04 0 00 071212 0,,XX]
26604 057566 312 04 0 00 071211 CAME AC,[ZZ,,0]
26605 057567 003 04 0 00 001607 ER3 AC,T
26606 057570 312 05 0 00 070660 CAME AC+1,[0,,0]
26607 057571 004 05 0 00 001607 ER4 AC+1,T
26608 057572 321 10 0 00 057564 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26609
26610 001610 T=T+1
26611 000200 XX=XX+XX
26612 IFE XX,<XX=1>
26613 113400 ZZ=ZZ+1000
26614 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
26615 DMOVE AC,[200000,,0
26616 057573 120 04 0 00 071207 0,,XX]
26617 DFAD AC,[200000,,0
26618 057574 110 04 0 00 071207 0,,XX]
26619 057575 312 04 0 00 071206 CAME AC,[ZZ,,0]
26620 057576 003 04 0 00 001610 ER3 AC,T
26621 057577 312 05 0 00 070660 CAME AC+1,[0,,0]
26622 057600 004 05 0 00 001610 ER4 AC+1,T
26623 057601 321 10 0 00 057573 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26624
26625 001611 T=T+1
26626 000400 XX=XX+XX
26627 IFE XX,<XX=1>
26628 114400 ZZ=ZZ+1000
26629 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
26630 DMOVE AC,[200000,,0
26631 057602 120 04 0 00 071204 0,,XX]
26632 DFAD AC,[200000,,0
26633 057603 110 04 0 00 071204 0,,XX]
26634 057604 312 04 0 00 071203 CAME AC,[ZZ,,0]
26635 057605 003 04 0 00 001611 ER3 AC,T
26636 057606 312 05 0 00 070660 CAME AC+1,[0,,0]
26637 057607 004 05 0 00 001611 ER4 AC+1,T
26638 057610 321 10 0 00 057602 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26639
26640 001612 T=T+1
26641 001000 XX=XX+XX
26642 IFE XX,<XX=1>
26643 115400 ZZ=ZZ+1000
26644 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
26645 DMOVE AC,[200000,,0
26646 057611 120 04 0 00 071201 0,,XX]
26647 DFAD AC,[200000,,0
26648 057612 110 04 0 00 071201 0,,XX]
26649 057613 312 04 0 00 071200 CAME AC,[ZZ,,0]
26650 057614 003 04 0 00 001612 ER3 AC,T
26651 057615 312 05 0 00 070660 CAME AC+1,[0,,0]
26652 057616 004 05 0 00 001612 ER4 AC+1,T
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 12-5
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0612
26653 057617 321 10 0 00 057611 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26654
26655 001613 T=T+1
26656 002000 XX=XX+XX
26657 IFE XX,<XX=1>
26658 116400 ZZ=ZZ+1000
26659 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
26660 DMOVE AC,[200000,,0
26661 057620 120 04 0 00 071176 0,,XX]
26662 DFAD AC,[200000,,0
26663 057621 110 04 0 00 071176 0,,XX]
26664 057622 312 04 0 00 071175 CAME AC,[ZZ,,0]
26665 057623 003 04 0 00 001613 ER3 AC,T
26666 057624 312 05 0 00 070660 CAME AC+1,[0,,0]
26667 057625 004 05 0 00 001613 ER4 AC+1,T
26668 057626 321 10 0 00 057620 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26669
26670 001614 T=T+1
26671 004000 XX=XX+XX
26672 IFE XX,<XX=1>
26673 117400 ZZ=ZZ+1000
26674 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
26675 DMOVE AC,[200000,,0
26676 057627 120 04 0 00 071173 0,,XX]
26677 DFAD AC,[200000,,0
26678 057630 110 04 0 00 071173 0,,XX]
26679 057631 312 04 0 00 071172 CAME AC,[ZZ,,0]
26680 057632 003 04 0 00 001614 ER3 AC,T
26681 057633 312 05 0 00 070660 CAME AC+1,[0,,0]
26682 057634 004 05 0 00 001614 ER4 AC+1,T
26683 057635 321 10 0 00 057627 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26684
26685 001615 T=T+1
26686 010000 XX=XX+XX
26687 IFE XX,<XX=1>
26688 120400 ZZ=ZZ+1000
26689 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
26690 DMOVE AC,[200000,,0
26691 057636 120 04 0 00 071170 0,,XX]
26692 DFAD AC,[200000,,0
26693 057637 110 04 0 00 071170 0,,XX]
26694 057640 312 04 0 00 071167 CAME AC,[ZZ,,0]
26695 057641 003 04 0 00 001615 ER3 AC,T
26696 057642 312 05 0 00 070660 CAME AC+1,[0,,0]
26697 057643 004 05 0 00 001615 ER4 AC+1,T
26698 057644 321 10 0 00 057636 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26699
26700 001616 T=T+1
26701 020000 XX=XX+XX
26702 IFE XX,<XX=1>
26703 121400 ZZ=ZZ+1000
26704 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
26705 DMOVE AC,[200000,,0
26706 057645 120 04 0 00 071165 0,,XX]
26707 DFAD AC,[200000,,0
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 12-6
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0613
26708 057646 110 04 0 00 071165 0,,XX]
26709 057647 312 04 0 00 071164 CAME AC,[ZZ,,0]
26710 057650 003 04 0 00 001616 ER3 AC,T
26711 057651 312 05 0 00 070660 CAME AC+1,[0,,0]
26712 057652 004 05 0 00 001616 ER4 AC+1,T
26713 057653 321 10 0 00 057645 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26714
26715 001617 T=T+1
26716 040000 XX=XX+XX
26717 IFE XX,<XX=1>
26718 122400 ZZ=ZZ+1000
26719 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
26720 DMOVE AC,[200000,,0
26721 057654 120 04 0 00 071162 0,,XX]
26722 DFAD AC,[200000,,0
26723 057655 110 04 0 00 071162 0,,XX]
26724 057656 312 04 0 00 071161 CAME AC,[ZZ,,0]
26725 057657 003 04 0 00 001617 ER3 AC,T
26726 057660 312 05 0 00 070660 CAME AC+1,[0,,0]
26727 057661 004 05 0 00 001617 ER4 AC+1,T
26728 057662 321 10 0 00 057654 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26729
26730 001620 T=T+1
26731 100000 XX=XX+XX
26732 IFE XX,<XX=1>
26733 123400 ZZ=ZZ+1000
26734 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
26735 DMOVE AC,[200000,,0
26736 057663 120 04 0 00 071157 0,,XX]
26737 DFAD AC,[200000,,0
26738 057664 110 04 0 00 071157 0,,XX]
26739 057665 312 04 0 00 071156 CAME AC,[ZZ,,0]
26740 057666 003 04 0 00 001620 ER3 AC,T
26741 057667 312 05 0 00 070660 CAME AC+1,[0,,0]
26742 057670 004 05 0 00 001620 ER4 AC+1,T
26743 057671 321 10 0 00 057663 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26744
26745 001621 T=T+1
26746 200000 XX=XX+XX
26747 IFE XX,<XX=1>
26748 124400 ZZ=ZZ+1000
26749 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
26750 DMOVE AC,[200000,,0
26751 057672 120 04 0 00 071154 0,,XX]
26752 DFAD AC,[200000,,0
26753 057673 110 04 0 00 071154 0,,XX]
26754 057674 312 04 0 00 071153 CAME AC,[ZZ,,0]
26755 057675 003 04 0 00 001621 ER3 AC,T
26756 057676 312 05 0 00 070660 CAME AC+1,[0,,0]
26757 057677 004 05 0 00 001621 ER4 AC+1,T
26758 057700 321 10 0 00 057672 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26759
26760 001622 T=T+1
26761 400000 XX=XX+XX
26762 IFE XX,<XX=1>
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 12-7
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0614
26763 125400 ZZ=ZZ+1000
26764 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
26765 DMOVE AC,[200000,,0
26766 057701 120 04 0 00 071151 0,,XX]
26767 DFAD AC,[200000,,0
26768 057702 110 04 0 00 071151 0,,XX]
26769 057703 312 04 0 00 071150 CAME AC,[ZZ,,0]
26770 057704 003 04 0 00 001622 ER3 AC,T
26771 057705 312 05 0 00 070660 CAME AC+1,[0,,0]
26772 057706 004 05 0 00 001622 ER4 AC+1,T
26773 057707 321 10 0 00 057701 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26774
26775
26776 000000 XX=0
26777
26778 REPEAT ^D17,
26779 <T=T+1
26780 XX=XX+XX
26781 IFE XX,<XX=1>
26782 ZZ=ZZ+1000
26783 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0
26784 >
26785 001623 T=T+1
26786 000000 XX=XX+XX
26787 000001 IFE XX,<XX=1>
26788 126400 ZZ=ZZ+1000
26789 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
26790 DMOVE AC,[200000,,0
26791 057710 120 04 0 00 071146 XX,,0]
26792 DFAD AC,[200000,,0
26793 057711 110 04 0 00 071146 XX,,0]
26794 057712 312 04 0 00 071145 CAME AC,[ZZ,,0]
26795 057713 003 04 0 00 001623 ER3 AC,T
26796 057714 312 05 0 00 070660 CAME AC+1,[0,,0]
26797 057715 004 05 0 00 001623 ER4 AC+1,T
26798 057716 321 10 0 00 057710 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26799
26800 001624 T=T+1
26801 000002 XX=XX+XX
26802 IFE XX,<XX=1>
26803 127400 ZZ=ZZ+1000
26804 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
26805 DMOVE AC,[200000,,0
26806 057717 120 04 0 00 071143 XX,,0]
26807 DFAD AC,[200000,,0
26808 057720 110 04 0 00 071143 XX,,0]
26809 057721 312 04 0 00 071142 CAME AC,[ZZ,,0]
26810 057722 003 04 0 00 001624 ER3 AC,T
26811 057723 312 05 0 00 070660 CAME AC+1,[0,,0]
26812 057724 004 05 0 00 001624 ER4 AC+1,T
26813 057725 321 10 0 00 057717 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26814
26815 001625 T=T+1
26816 000004 XX=XX+XX
26817 IFE XX,<XX=1>
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 12-8
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0615
26818 130400 ZZ=ZZ+1000
26819 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
26820 DMOVE AC,[200000,,0
26821 057726 120 04 0 00 071140 XX,,0]
26822 DFAD AC,[200000,,0
26823 057727 110 04 0 00 071140 XX,,0]
26824 057730 312 04 0 00 071137 CAME AC,[ZZ,,0]
26825 057731 003 04 0 00 001625 ER3 AC,T
26826 057732 312 05 0 00 070660 CAME AC+1,[0,,0]
26827 057733 004 05 0 00 001625 ER4 AC+1,T
26828 057734 321 10 0 00 057726 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26829
26830 001626 T=T+1
26831 000010 XX=XX+XX
26832 IFE XX,<XX=1>
26833 131400 ZZ=ZZ+1000
26834 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
26835 DMOVE AC,[200000,,0
26836 057735 120 04 0 00 071135 XX,,0]
26837 DFAD AC,[200000,,0
26838 057736 110 04 0 00 071135 XX,,0]
26839 057737 312 04 0 00 071134 CAME AC,[ZZ,,0]
26840 057740 003 04 0 00 001626 ER3 AC,T
26841 057741 312 05 0 00 070660 CAME AC+1,[0,,0]
26842 057742 004 05 0 00 001626 ER4 AC+1,T
26843 057743 321 10 0 00 057735 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26844
26845 001627 T=T+1
26846 000020 XX=XX+XX
26847 IFE XX,<XX=1>
26848 132400 ZZ=ZZ+1000
26849 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
26850 DMOVE AC,[200000,,0
26851 057744 120 04 0 00 071132 XX,,0]
26852 DFAD AC,[200000,,0
26853 057745 110 04 0 00 071132 XX,,0]
26854 057746 312 04 0 00 071131 CAME AC,[ZZ,,0]
26855 057747 003 04 0 00 001627 ER3 AC,T
26856 057750 312 05 0 00 070660 CAME AC+1,[0,,0]
26857 057751 004 05 0 00 001627 ER4 AC+1,T
26858 057752 321 10 0 00 057744 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26859
26860 001630 T=T+1
26861 000040 XX=XX+XX
26862 IFE XX,<XX=1>
26863 133400 ZZ=ZZ+1000
26864 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
26865 DMOVE AC,[200000,,0
26866 057753 120 04 0 00 071127 XX,,0]
26867 DFAD AC,[200000,,0
26868 057754 110 04 0 00 071127 XX,,0]
26869 057755 312 04 0 00 071126 CAME AC,[ZZ,,0]
26870 057756 003 04 0 00 001630 ER3 AC,T
26871 057757 312 05 0 00 070660 CAME AC+1,[0,,0]
26872 057760 004 05 0 00 001630 ER4 AC+1,T
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 12-9
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0616
26873 057761 321 10 0 00 057753 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26874
26875 001631 T=T+1
26876 000100 XX=XX+XX
26877 IFE XX,<XX=1>
26878 134400 ZZ=ZZ+1000
26879 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
26880 DMOVE AC,[200000,,0
26881 057762 120 04 0 00 071124 XX,,0]
26882 DFAD AC,[200000,,0
26883 057763 110 04 0 00 071124 XX,,0]
26884 057764 312 04 0 00 071123 CAME AC,[ZZ,,0]
26885 057765 003 04 0 00 001631 ER3 AC,T
26886 057766 312 05 0 00 070660 CAME AC+1,[0,,0]
26887 057767 004 05 0 00 001631 ER4 AC+1,T
26888 057770 321 10 0 00 057762 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26889
26890 001632 T=T+1
26891 000200 XX=XX+XX
26892 IFE XX,<XX=1>
26893 135400 ZZ=ZZ+1000
26894 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
26895 DMOVE AC,[200000,,0
26896 057771 120 04 0 00 071121 XX,,0]
26897 DFAD AC,[200000,,0
26898 057772 110 04 0 00 071121 XX,,0]
26899 057773 312 04 0 00 071120 CAME AC,[ZZ,,0]
26900 057774 003 04 0 00 001632 ER3 AC,T
26901 057775 312 05 0 00 070660 CAME AC+1,[0,,0]
26902 057776 004 05 0 00 001632 ER4 AC+1,T
26903 057777 321 10 0 00 057771 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26904
26905 001633 T=T+1
26906 000400 XX=XX+XX
26907 IFE XX,<XX=1>
26908 136400 ZZ=ZZ+1000
26909 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
26910 DMOVE AC,[200000,,0
26911 060000 120 04 0 00 071116 XX,,0]
26912 DFAD AC,[200000,,0
26913 060001 110 04 0 00 071116 XX,,0]
26914 060002 312 04 0 00 071115 CAME AC,[ZZ,,0]
26915 060003 003 04 0 00 001633 ER3 AC,T
26916 060004 312 05 0 00 070660 CAME AC+1,[0,,0]
26917 060005 004 05 0 00 001633 ER4 AC+1,T
26918 060006 321 10 0 00 060000 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26919
26920 001634 T=T+1
26921 001000 XX=XX+XX
26922 IFE XX,<XX=1>
26923 137400 ZZ=ZZ+1000
26924 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
26925 DMOVE AC,[200000,,0
26926 060007 120 04 0 00 071113 XX,,0]
26927 DFAD AC,[200000,,0
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 12-10
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0617
26928 060010 110 04 0 00 071113 XX,,0]
26929 060011 312 04 0 00 071112 CAME AC,[ZZ,,0]
26930 060012 003 04 0 00 001634 ER3 AC,T
26931 060013 312 05 0 00 070660 CAME AC+1,[0,,0]
26932 060014 004 05 0 00 001634 ER4 AC+1,T
26933 060015 321 10 0 00 060007 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26934
26935 001635 T=T+1
26936 002000 XX=XX+XX
26937 IFE XX,<XX=1>
26938 140400 ZZ=ZZ+1000
26939 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
26940 DMOVE AC,[200000,,0
26941 060016 120 04 0 00 071110 XX,,0]
26942 DFAD AC,[200000,,0
26943 060017 110 04 0 00 071110 XX,,0]
26944 060020 312 04 0 00 071107 CAME AC,[ZZ,,0]
26945 060021 003 04 0 00 001635 ER3 AC,T
26946 060022 312 05 0 00 070660 CAME AC+1,[0,,0]
26947 060023 004 05 0 00 001635 ER4 AC+1,T
26948 060024 321 10 0 00 060016 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26949
26950 001636 T=T+1
26951 004000 XX=XX+XX
26952 IFE XX,<XX=1>
26953 141400 ZZ=ZZ+1000
26954 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
26955 DMOVE AC,[200000,,0
26956 060025 120 04 0 00 071105 XX,,0]
26957 DFAD AC,[200000,,0
26958 060026 110 04 0 00 071105 XX,,0]
26959 060027 312 04 0 00 071104 CAME AC,[ZZ,,0]
26960 060030 003 04 0 00 001636 ER3 AC,T
26961 060031 312 05 0 00 070660 CAME AC+1,[0,,0]
26962 060032 004 05 0 00 001636 ER4 AC+1,T
26963 060033 321 10 0 00 060025 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26964
26965 001637 T=T+1
26966 010000 XX=XX+XX
26967 IFE XX,<XX=1>
26968 142400 ZZ=ZZ+1000
26969 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
26970 DMOVE AC,[200000,,0
26971 060034 120 04 0 00 071102 XX,,0]
26972 DFAD AC,[200000,,0
26973 060035 110 04 0 00 071102 XX,,0]
26974 060036 312 04 0 00 071101 CAME AC,[ZZ,,0]
26975 060037 003 04 0 00 001637 ER3 AC,T
26976 060040 312 05 0 00 070660 CAME AC+1,[0,,0]
26977 060041 004 05 0 00 001637 ER4 AC+1,T
26978 060042 321 10 0 00 060034 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26979
26980 001640 T=T+1
26981 020000 XX=XX+XX
26982 IFE XX,<XX=1>
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 12-11
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0618
26983 143400 ZZ=ZZ+1000
26984 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
26985 DMOVE AC,[200000,,0
26986 060043 120 04 0 00 071077 XX,,0]
26987 DFAD AC,[200000,,0
26988 060044 110 04 0 00 071077 XX,,0]
26989 060045 312 04 0 00 071076 CAME AC,[ZZ,,0]
26990 060046 003 04 0 00 001640 ER3 AC,T
26991 060047 312 05 0 00 070660 CAME AC+1,[0,,0]
26992 060050 004 05 0 00 001640 ER4 AC+1,T
26993 060051 321 10 0 00 060043 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
26994
26995 001641 T=T+1
26996 040000 XX=XX+XX
26997 IFE XX,<XX=1>
26998 144400 ZZ=ZZ+1000
26999 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
27000 DMOVE AC,[200000,,0
27001 060052 120 04 0 00 071074 XX,,0]
27002 DFAD AC,[200000,,0
27003 060053 110 04 0 00 071074 XX,,0]
27004 060054 312 04 0 00 071073 CAME AC,[ZZ,,0]
27005 060055 003 04 0 00 001641 ER3 AC,T
27006 060056 312 05 0 00 070660 CAME AC+1,[0,,0]
27007 060057 004 05 0 00 001641 ER4 AC+1,T
27008 060060 321 10 0 00 060052 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27009
27010 001642 T=T+1
27011 100000 XX=XX+XX
27012 IFE XX,<XX=1>
27013 145400 ZZ=ZZ+1000
27014 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
27015 DMOVE AC,[200000,,0
27016 060061 120 04 0 00 071071 XX,,0]
27017 DFAD AC,[200000,,0
27018 060062 110 04 0 00 071071 XX,,0]
27019 060063 312 04 0 00 071070 CAME AC,[ZZ,,0]
27020 060064 003 04 0 00 001642 ER3 AC,T
27021 060065 312 05 0 00 070660 CAME AC+1,[0,,0]
27022 060066 004 05 0 00 001642 ER4 AC+1,T
27023 060067 321 10 0 00 060061 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27024
27025 001643 T=T+1
27026 200000 XX=XX+XX
27027 IFE XX,<XX=1>
27028 146400 ZZ=ZZ+1000
27029 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
27030 DMOVE AC,[200000,,0
27031 060070 120 04 0 00 071066 XX,,0]
27032 DFAD AC,[200000,,0
27033 060071 110 04 0 00 071066 XX,,0]
27034 060072 312 04 0 00 071063 CAME AC,[ZZ,,0]
27035 060073 003 04 0 00 001643 ER3 AC,T
27036 060074 312 05 0 00 070660 CAME AC+1,[0,,0]
27037 060075 004 05 0 00 001643 ER4 AC+1,T
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 12-12
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0619
27038 060076 321 10 0 00 060070 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27039
27040 001644 T=T+1
27041 400000 XX=XX+XX
27042 DFARP T,200000,0,XX,0,200000,0,XX,0,0,0,0,0^
27043 DMOVE AC,[200000,,0
27044 060077 120 04 0 00 071064 XX,,0]
27045 DFAD AC,[200000,,0
27046 060100 110 04 0 00 071064 XX,,0]
27047 060101 312 04 0 00 070660 CAME AC,[0,,0]
27048 060102 003 04 0 00 001644 ER3 AC,T
27049 060103 312 05 0 00 070660 CAME AC+1,[0,,0]
27050 060104 004 05 0 00 001644 ER4 AC+1,T
27051 060105 321 10 0 00 060077 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27052
27053 000000 XX=0
27054
27055 REPEAT ^D18,
27056 <T=T+1
27057 XX=XX+XX
27058 IFE XX,<XX=1>
27059 ZZ=ZZ+1000
27060 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0
27061 >
27062 001645 T=T+1
27063 000000 XX=XX+XX
27064 000001 IFE XX,<XX=1>
27065 147400 ZZ=ZZ+1000
27066 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
27067 DMOVE AC,[200000,,XX
27068 060106 120 04 0 00 071061 0,,0]
27069 DFAD AC,[200000,,XX
27070 060107 110 04 0 00 071061 0,,0]
27071 060110 312 04 0 00 071060 CAME AC,[ZZ,,0]
27072 060111 003 04 0 00 001645 ER3 AC,T
27073 060112 312 05 0 00 070660 CAME AC+1,[0,,0]
27074 060113 004 05 0 00 001645 ER4 AC+1,T
27075 060114 321 10 0 00 060106 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27076
27077 001646 T=T+1
27078 000002 XX=XX+XX
27079 IFE XX,<XX=1>
27080 150400 ZZ=ZZ+1000
27081 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
27082 DMOVE AC,[200000,,XX
27083 060115 120 04 0 00 071056 0,,0]
27084 DFAD AC,[200000,,XX
27085 060116 110 04 0 00 071056 0,,0]
27086 060117 312 04 0 00 071055 CAME AC,[ZZ,,0]
27087 060120 003 04 0 00 001646 ER3 AC,T
27088 060121 312 05 0 00 070660 CAME AC+1,[0,,0]
27089 060122 004 05 0 00 001646 ER4 AC+1,T
27090 060123 321 10 0 00 060115 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27091
27092 001647 T=T+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 12-13
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0620
27093 000004 XX=XX+XX
27094 IFE XX,<XX=1>
27095 151400 ZZ=ZZ+1000
27096 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
27097 DMOVE AC,[200000,,XX
27098 060124 120 04 0 00 071053 0,,0]
27099 DFAD AC,[200000,,XX
27100 060125 110 04 0 00 071053 0,,0]
27101 060126 312 04 0 00 071052 CAME AC,[ZZ,,0]
27102 060127 003 04 0 00 001647 ER3 AC,T
27103 060130 312 05 0 00 070660 CAME AC+1,[0,,0]
27104 060131 004 05 0 00 001647 ER4 AC+1,T
27105 060132 321 10 0 00 060124 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27106
27107 001650 T=T+1
27108 000010 XX=XX+XX
27109 IFE XX,<XX=1>
27110 152400 ZZ=ZZ+1000
27111 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
27112 DMOVE AC,[200000,,XX
27113 060133 120 04 0 00 071050 0,,0]
27114 DFAD AC,[200000,,XX
27115 060134 110 04 0 00 071050 0,,0]
27116 060135 312 04 0 00 071047 CAME AC,[ZZ,,0]
27117 060136 003 04 0 00 001650 ER3 AC,T
27118 060137 312 05 0 00 070660 CAME AC+1,[0,,0]
27119 060140 004 05 0 00 001650 ER4 AC+1,T
27120 060141 321 10 0 00 060133 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27121
27122 001651 T=T+1
27123 000020 XX=XX+XX
27124 IFE XX,<XX=1>
27125 153400 ZZ=ZZ+1000
27126 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
27127 DMOVE AC,[200000,,XX
27128 060142 120 04 0 00 071045 0,,0]
27129 DFAD AC,[200000,,XX
27130 060143 110 04 0 00 071045 0,,0]
27131 060144 312 04 0 00 071044 CAME AC,[ZZ,,0]
27132 060145 003 04 0 00 001651 ER3 AC,T
27133 060146 312 05 0 00 070660 CAME AC+1,[0,,0]
27134 060147 004 05 0 00 001651 ER4 AC+1,T
27135 060150 321 10 0 00 060142 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27136
27137 001652 T=T+1
27138 000040 XX=XX+XX
27139 IFE XX,<XX=1>
27140 154400 ZZ=ZZ+1000
27141 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
27142 DMOVE AC,[200000,,XX
27143 060151 120 04 0 00 071042 0,,0]
27144 DFAD AC,[200000,,XX
27145 060152 110 04 0 00 071042 0,,0]
27146 060153 312 04 0 00 071041 CAME AC,[ZZ,,0]
27147 060154 003 04 0 00 001652 ER3 AC,T
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 12-14
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0621
27148 060155 312 05 0 00 070660 CAME AC+1,[0,,0]
27149 060156 004 05 0 00 001652 ER4 AC+1,T
27150 060157 321 10 0 00 060151 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27151
27152 001653 T=T+1
27153 000100 XX=XX+XX
27154 IFE XX,<XX=1>
27155 155400 ZZ=ZZ+1000
27156 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
27157 DMOVE AC,[200000,,XX
27158 060160 120 04 0 00 071037 0,,0]
27159 DFAD AC,[200000,,XX
27160 060161 110 04 0 00 071037 0,,0]
27161 060162 312 04 0 00 071036 CAME AC,[ZZ,,0]
27162 060163 003 04 0 00 001653 ER3 AC,T
27163 060164 312 05 0 00 070660 CAME AC+1,[0,,0]
27164 060165 004 05 0 00 001653 ER4 AC+1,T
27165 060166 321 10 0 00 060160 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27166
27167 001654 T=T+1
27168 000200 XX=XX+XX
27169 IFE XX,<XX=1>
27170 156400 ZZ=ZZ+1000
27171 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
27172 DMOVE AC,[200000,,XX
27173 060167 120 04 0 00 071034 0,,0]
27174 DFAD AC,[200000,,XX
27175 060170 110 04 0 00 071034 0,,0]
27176 060171 312 04 0 00 071033 CAME AC,[ZZ,,0]
27177 060172 003 04 0 00 001654 ER3 AC,T
27178 060173 312 05 0 00 070660 CAME AC+1,[0,,0]
27179 060174 004 05 0 00 001654 ER4 AC+1,T
27180 060175 321 10 0 00 060167 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27181
27182 001655 T=T+1
27183 000400 XX=XX+XX
27184 IFE XX,<XX=1>
27185 157400 ZZ=ZZ+1000
27186 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
27187 DMOVE AC,[200000,,XX
27188 060176 120 04 0 00 071031 0,,0]
27189 DFAD AC,[200000,,XX
27190 060177 110 04 0 00 071031 0,,0]
27191 060200 312 04 0 00 071030 CAME AC,[ZZ,,0]
27192 060201 003 04 0 00 001655 ER3 AC,T
27193 060202 312 05 0 00 070660 CAME AC+1,[0,,0]
27194 060203 004 05 0 00 001655 ER4 AC+1,T
27195 060204 321 10 0 00 060176 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27196
27197 001656 T=T+1
27198 001000 XX=XX+XX
27199 IFE XX,<XX=1>
27200 160400 ZZ=ZZ+1000
27201 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
27202 DMOVE AC,[200000,,XX
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 12-15
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0622
27203 060205 120 04 0 00 071026 0,,0]
27204 DFAD AC,[200000,,XX
27205 060206 110 04 0 00 071026 0,,0]
27206 060207 312 04 0 00 071025 CAME AC,[ZZ,,0]
27207 060210 003 04 0 00 001656 ER3 AC,T
27208 060211 312 05 0 00 070660 CAME AC+1,[0,,0]
27209 060212 004 05 0 00 001656 ER4 AC+1,T
27210 060213 321 10 0 00 060205 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27211
27212 001657 T=T+1
27213 002000 XX=XX+XX
27214 IFE XX,<XX=1>
27215 161400 ZZ=ZZ+1000
27216 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
27217 DMOVE AC,[200000,,XX
27218 060214 120 04 0 00 071023 0,,0]
27219 DFAD AC,[200000,,XX
27220 060215 110 04 0 00 071023 0,,0]
27221 060216 312 04 0 00 071022 CAME AC,[ZZ,,0]
27222 060217 003 04 0 00 001657 ER3 AC,T
27223 060220 312 05 0 00 070660 CAME AC+1,[0,,0]
27224 060221 004 05 0 00 001657 ER4 AC+1,T
27225 060222 321 10 0 00 060214 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27226
27227 001660 T=T+1
27228 004000 XX=XX+XX
27229 IFE XX,<XX=1>
27230 162400 ZZ=ZZ+1000
27231 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
27232 DMOVE AC,[200000,,XX
27233 060223 120 04 0 00 071020 0,,0]
27234 DFAD AC,[200000,,XX
27235 060224 110 04 0 00 071020 0,,0]
27236 060225 312 04 0 00 071017 CAME AC,[ZZ,,0]
27237 060226 003 04 0 00 001660 ER3 AC,T
27238 060227 312 05 0 00 070660 CAME AC+1,[0,,0]
27239 060230 004 05 0 00 001660 ER4 AC+1,T
27240 060231 321 10 0 00 060223 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27241
27242 001661 T=T+1
27243 010000 XX=XX+XX
27244 IFE XX,<XX=1>
27245 163400 ZZ=ZZ+1000
27246 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
27247 DMOVE AC,[200000,,XX
27248 060232 120 04 0 00 071015 0,,0]
27249 DFAD AC,[200000,,XX
27250 060233 110 04 0 00 071015 0,,0]
27251 060234 312 04 0 00 071014 CAME AC,[ZZ,,0]
27252 060235 003 04 0 00 001661 ER3 AC,T
27253 060236 312 05 0 00 070660 CAME AC+1,[0,,0]
27254 060237 004 05 0 00 001661 ER4 AC+1,T
27255 060240 321 10 0 00 060232 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27256
27257 001662 T=T+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 12-16
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0623
27258 020000 XX=XX+XX
27259 IFE XX,<XX=1>
27260 164400 ZZ=ZZ+1000
27261 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
27262 DMOVE AC,[200000,,XX
27263 060241 120 04 0 00 071012 0,,0]
27264 DFAD AC,[200000,,XX
27265 060242 110 04 0 00 071012 0,,0]
27266 060243 312 04 0 00 071011 CAME AC,[ZZ,,0]
27267 060244 003 04 0 00 001662 ER3 AC,T
27268 060245 312 05 0 00 070660 CAME AC+1,[0,,0]
27269 060246 004 05 0 00 001662 ER4 AC+1,T
27270 060247 321 10 0 00 060241 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27271
27272 001663 T=T+1
27273 040000 XX=XX+XX
27274 IFE XX,<XX=1>
27275 165400 ZZ=ZZ+1000
27276 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
27277 DMOVE AC,[200000,,XX
27278 060250 120 04 0 00 071007 0,,0]
27279 DFAD AC,[200000,,XX
27280 060251 110 04 0 00 071007 0,,0]
27281 060252 312 04 0 00 071006 CAME AC,[ZZ,,0]
27282 060253 003 04 0 00 001663 ER3 AC,T
27283 060254 312 05 0 00 070660 CAME AC+1,[0,,0]
27284 060255 004 05 0 00 001663 ER4 AC+1,T
27285 060256 321 10 0 00 060250 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27286
27287 001664 T=T+1
27288 100000 XX=XX+XX
27289 IFE XX,<XX=1>
27290 166400 ZZ=ZZ+1000
27291 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
27292 DMOVE AC,[200000,,XX
27293 060257 120 04 0 00 071004 0,,0]
27294 DFAD AC,[200000,,XX
27295 060260 110 04 0 00 071004 0,,0]
27296 060261 312 04 0 00 071003 CAME AC,[ZZ,,0]
27297 060262 003 04 0 00 001664 ER3 AC,T
27298 060263 312 05 0 00 070660 CAME AC+1,[0,,0]
27299 060264 004 05 0 00 001664 ER4 AC+1,T
27300 060265 321 10 0 00 060257 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27301
27302 001665 T=T+1
27303 200000 XX=XX+XX
27304 IFE XX,<XX=1>
27305 167400 ZZ=ZZ+1000
27306 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
27307 DMOVE AC,[200000,,XX
27308 060266 120 04 0 00 071001 0,,0]
27309 DFAD AC,[200000,,XX
27310 060267 110 04 0 00 071001 0,,0]
27311 060270 312 04 0 00 071000 CAME AC,[ZZ,,0]
27312 060271 003 04 0 00 001665 ER3 AC,T
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 12-17
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0624
27313 060272 312 05 0 00 070660 CAME AC+1,[0,,0]
27314 060273 004 05 0 00 001665 ER4 AC+1,T
27315 060274 321 10 0 00 060266 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27316
27317 001666 T=T+1
27318 400000 XX=XX+XX
27319 IFE XX,<XX=1>
27320 170400 ZZ=ZZ+1000
27321 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
27322 DMOVE AC,[200000,,XX
27323 060275 120 04 0 00 070776 0,,0]
27324 DFAD AC,[200000,,XX
27325 060276 110 04 0 00 070776 0,,0]
27326 060277 312 04 0 00 070775 CAME AC,[ZZ,,0]
27327 060300 003 04 0 00 001666 ER3 AC,T
27328 060301 312 05 0 00 070660 CAME AC+1,[0,,0]
27329 060302 004 05 0 00 001666 ER4 AC+1,T
27330 060303 321 10 0 00 060275 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27331
27332
27333 000000 XX=0
27334
27335 REPEAT ^D9,
27336 <T=T+1
27337 XX=XX+XX
27338 IFE XX,<XX=1>
27339 ZZ=ZZ+1000
27340 DFARP T,200000+XX,0,0,0,200000+XX,0,0,0,ZZ,0,0,0
27341 >
27342 001667 T=T+1
27343 000000 XX=XX+XX
27344 000001 IFE XX,<XX=1>
27345 171400 ZZ=ZZ+1000
27346 DFARP T,200000+XX,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
27347 DMOVE AC,[200000+XX,,0
27348 060304 120 04 0 00 070773 0,,0]
27349 DFAD AC,[200000+XX,,0
27350 060305 110 04 0 00 070773 0,,0]
27351 060306 312 04 0 00 070772 CAME AC,[ZZ,,0]
27352 060307 003 04 0 00 001667 ER3 AC,T
27353 060310 312 05 0 00 070660 CAME AC+1,[0,,0]
27354 060311 004 05 0 00 001667 ER4 AC+1,T
27355 060312 321 10 0 00 060304 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27356
27357 001670 T=T+1
27358 000002 XX=XX+XX
27359 IFE XX,<XX=1>
27360 172400 ZZ=ZZ+1000
27361 DFARP T,200000+XX,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
27362 DMOVE AC,[200000+XX,,0
27363 060313 120 04 0 00 070770 0,,0]
27364 DFAD AC,[200000+XX,,0
27365 060314 110 04 0 00 070770 0,,0]
27366 060315 312 04 0 00 070767 CAME AC,[ZZ,,0]
27367 060316 003 04 0 00 001670 ER3 AC,T
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 12-18
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0625
27368 060317 312 05 0 00 070660 CAME AC+1,[0,,0]
27369 060320 004 05 0 00 001670 ER4 AC+1,T
27370 060321 321 10 0 00 060313 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27371
27372 001671 T=T+1
27373 000004 XX=XX+XX
27374 IFE XX,<XX=1>
27375 173400 ZZ=ZZ+1000
27376 DFARP T,200000+XX,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
27377 DMOVE AC,[200000+XX,,0
27378 060322 120 04 0 00 070765 0,,0]
27379 DFAD AC,[200000+XX,,0
27380 060323 110 04 0 00 070765 0,,0]
27381 060324 312 04 0 00 070764 CAME AC,[ZZ,,0]
27382 060325 003 04 0 00 001671 ER3 AC,T
27383 060326 312 05 0 00 070660 CAME AC+1,[0,,0]
27384 060327 004 05 0 00 001671 ER4 AC+1,T
27385 060330 321 10 0 00 060322 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27386
27387 001672 T=T+1
27388 000010 XX=XX+XX
27389 IFE XX,<XX=1>
27390 174400 ZZ=ZZ+1000
27391 DFARP T,200000+XX,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
27392 DMOVE AC,[200000+XX,,0
27393 060331 120 04 0 00 070762 0,,0]
27394 DFAD AC,[200000+XX,,0
27395 060332 110 04 0 00 070762 0,,0]
27396 060333 312 04 0 00 070761 CAME AC,[ZZ,,0]
27397 060334 003 04 0 00 001672 ER3 AC,T
27398 060335 312 05 0 00 070660 CAME AC+1,[0,,0]
27399 060336 004 05 0 00 001672 ER4 AC+1,T
27400 060337 321 10 0 00 060331 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27401
27402 001673 T=T+1
27403 000020 XX=XX+XX
27404 IFE XX,<XX=1>
27405 175400 ZZ=ZZ+1000
27406 DFARP T,200000+XX,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
27407 DMOVE AC,[200000+XX,,0
27408 060340 120 04 0 00 070757 0,,0]
27409 DFAD AC,[200000+XX,,0
27410 060341 110 04 0 00 070757 0,,0]
27411 060342 312 04 0 00 070756 CAME AC,[ZZ,,0]
27412 060343 003 04 0 00 001673 ER3 AC,T
27413 060344 312 05 0 00 070660 CAME AC+1,[0,,0]
27414 060345 004 05 0 00 001673 ER4 AC+1,T
27415 060346 321 10 0 00 060340 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27416
27417 001674 T=T+1
27418 000040 XX=XX+XX
27419 IFE XX,<XX=1>
27420 176400 ZZ=ZZ+1000
27421 DFARP T,200000+XX,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
27422 DMOVE AC,[200000+XX,,0
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 12-19
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0626
27423 060347 120 04 0 00 070754 0,,0]
27424 DFAD AC,[200000+XX,,0
27425 060350 110 04 0 00 070754 0,,0]
27426 060351 312 04 0 00 070753 CAME AC,[ZZ,,0]
27427 060352 003 04 0 00 001674 ER3 AC,T
27428 060353 312 05 0 00 070660 CAME AC+1,[0,,0]
27429 060354 004 05 0 00 001674 ER4 AC+1,T
27430 060355 321 10 0 00 060347 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27431
27432 001675 T=T+1
27433 000100 XX=XX+XX
27434 IFE XX,<XX=1>
27435 177400 ZZ=ZZ+1000
27436 DFARP T,200000+XX,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
27437 DMOVE AC,[200000+XX,,0
27438 060356 120 04 0 00 070751 0,,0]
27439 DFAD AC,[200000+XX,,0
27440 060357 110 04 0 00 070751 0,,0]
27441 060360 312 04 0 00 070636 CAME AC,[ZZ,,0]
27442 060361 003 04 0 00 001675 ER3 AC,T
27443 060362 312 05 0 00 070660 CAME AC+1,[0,,0]
27444 060363 004 05 0 00 001675 ER4 AC+1,T
27445 060364 321 10 0 00 060356 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27446
27447 001676 T=T+1
27448 000200 XX=XX+XX
27449 IFE XX,<XX=1>
27450 200400 ZZ=ZZ+1000
27451 DFARP T,200000+XX,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
27452 DMOVE AC,[200000+XX,,0
27453 060365 120 04 0 00 070747 0,,0]
27454 DFAD AC,[200000+XX,,0
27455 060366 110 04 0 00 070747 0,,0]
27456 060367 312 04 0 00 070614 CAME AC,[ZZ,,0]
27457 060370 003 04 0 00 001676 ER3 AC,T
27458 060371 312 05 0 00 070660 CAME AC+1,[0,,0]
27459 060372 004 05 0 00 001676 ER4 AC+1,T
27460 060373 321 10 0 00 060365 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27461
27462 001677 T=T+1
27463 000400 XX=XX+XX
27464 IFE XX,<XX=1>
27465 201400 ZZ=ZZ+1000
27466 DFARP T,200000+XX,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
27467 DMOVE AC,[200000+XX,,0
27468 060374 120 04 0 00 070745 0,,0]
27469 DFAD AC,[200000+XX,,0
27470 060375 110 04 0 00 070745 0,,0]
27471 060376 312 04 0 00 071613 CAME AC,[ZZ,,0]
27472 060377 003 04 0 00 001677 ER3 AC,T
27473 060400 312 05 0 00 070660 CAME AC+1,[0,,0]
27474 060401 004 05 0 00 001677 ER4 AC+1,T
27475 060402 321 10 0 00 060374 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27476
27477
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 13
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0627
27478 ;RIPPLE ZEROS TESTS (ADD A FRACTION OF A RIPPLED ZERO TO SAME)
27479
27480 001700 T=1700
27481
27482 000000 XX=0
27483
27484 R1700: REPEAT ^D18,
27485 <T=T+1
27486 XX=XX+XX+1
27487 IFE <XX-1>,<XX=-2>
27488 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX
27489 >
27490 001701 T=T+1
27491 000001 XX=XX+XX+1
27492 777777 777776 IFE <XX-1>,<XX=-2>
27493 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
27494 DMOVE AC,[777,,-1
27495 060403 120 04 0 00 071242 -1,,XX]
27496 DFAD AC,[777,,-1
27497 060404 110 04 0 00 071242 -1,,XX]
27498 060405 312 04 0 00 072077 CAME AC,[1777,,-1]
27499 060406 003 04 0 00 001701 ER3 AC,T
27500 060407 312 05 0 00 071244 CAME AC+1,[377777,,XX]
27501 060410 004 05 0 00 001701 ER4 AC+1,T
27502 060411 321 10 0 00 060403 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27503
27504 001702 T=T+1
27505 777777 777775 XX=XX+XX+1
27506 IFE <XX-1>,<XX=-2>
27507 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
27508 DMOVE AC,[777,,-1
27509 060412 120 04 0 00 071245 -1,,XX]
27510 DFAD AC,[777,,-1
27511 060413 110 04 0 00 071245 -1,,XX]
27512 060414 312 04 0 00 072077 CAME AC,[1777,,-1]
27513 060415 003 04 0 00 001702 ER3 AC,T
27514 060416 312 05 0 00 071247 CAME AC+1,[377777,,XX]
27515 060417 004 05 0 00 001702 ER4 AC+1,T
27516 060420 321 10 0 00 060412 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27517
27518 001703 T=T+1
27519 777777 777773 XX=XX+XX+1
27520 IFE <XX-1>,<XX=-2>
27521 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
27522 DMOVE AC,[777,,-1
27523 060421 120 04 0 00 071250 -1,,XX]
27524 DFAD AC,[777,,-1
27525 060422 110 04 0 00 071250 -1,,XX]
27526 060423 312 04 0 00 072077 CAME AC,[1777,,-1]
27527 060424 003 04 0 00 001703 ER3 AC,T
27528 060425 312 05 0 00 071252 CAME AC+1,[377777,,XX]
27529 060426 004 05 0 00 001703 ER4 AC+1,T
27530 060427 321 10 0 00 060421 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27531
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 13-1
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0628
27532 001704 T=T+1
27533 777777 777767 XX=XX+XX+1
27534 IFE <XX-1>,<XX=-2>
27535 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
27536 DMOVE AC,[777,,-1
27537 060430 120 04 0 00 071253 -1,,XX]
27538 DFAD AC,[777,,-1
27539 060431 110 04 0 00 071253 -1,,XX]
27540 060432 312 04 0 00 072077 CAME AC,[1777,,-1]
27541 060433 003 04 0 00 001704 ER3 AC,T
27542 060434 312 05 0 00 071255 CAME AC+1,[377777,,XX]
27543 060435 004 05 0 00 001704 ER4 AC+1,T
27544 060436 321 10 0 00 060430 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27545
27546 001705 T=T+1
27547 777777 777757 XX=XX+XX+1
27548 IFE <XX-1>,<XX=-2>
27549 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
27550 DMOVE AC,[777,,-1
27551 060437 120 04 0 00 071256 -1,,XX]
27552 DFAD AC,[777,,-1
27553 060440 110 04 0 00 071256 -1,,XX]
27554 060441 312 04 0 00 072077 CAME AC,[1777,,-1]
27555 060442 003 04 0 00 001705 ER3 AC,T
27556 060443 312 05 0 00 071260 CAME AC+1,[377777,,XX]
27557 060444 004 05 0 00 001705 ER4 AC+1,T
27558 060445 321 10 0 00 060437 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27559
27560 001706 T=T+1
27561 777777 777737 XX=XX+XX+1
27562 IFE <XX-1>,<XX=-2>
27563 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
27564 DMOVE AC,[777,,-1
27565 060446 120 04 0 00 071261 -1,,XX]
27566 DFAD AC,[777,,-1
27567 060447 110 04 0 00 071261 -1,,XX]
27568 060450 312 04 0 00 072077 CAME AC,[1777,,-1]
27569 060451 003 04 0 00 001706 ER3 AC,T
27570 060452 312 05 0 00 071263 CAME AC+1,[377777,,XX]
27571 060453 004 05 0 00 001706 ER4 AC+1,T
27572 060454 321 10 0 00 060446 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27573
27574 001707 T=T+1
27575 777777 777677 XX=XX+XX+1
27576 IFE <XX-1>,<XX=-2>
27577 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
27578 DMOVE AC,[777,,-1
27579 060455 120 04 0 00 071264 -1,,XX]
27580 DFAD AC,[777,,-1
27581 060456 110 04 0 00 071264 -1,,XX]
27582 060457 312 04 0 00 072077 CAME AC,[1777,,-1]
27583 060460 003 04 0 00 001707 ER3 AC,T
27584 060461 312 05 0 00 071266 CAME AC+1,[377777,,XX]
27585 060462 004 05 0 00 001707 ER4 AC+1,T
27586 060463 321 10 0 00 060455 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 13-2
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0629
27587
27588 001710 T=T+1
27589 777777 777577 XX=XX+XX+1
27590 IFE <XX-1>,<XX=-2>
27591 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
27592 DMOVE AC,[777,,-1
27593 060464 120 04 0 00 071267 -1,,XX]
27594 DFAD AC,[777,,-1
27595 060465 110 04 0 00 071267 -1,,XX]
27596 060466 312 04 0 00 072077 CAME AC,[1777,,-1]
27597 060467 003 04 0 00 001710 ER3 AC,T
27598 060470 312 05 0 00 071271 CAME AC+1,[377777,,XX]
27599 060471 004 05 0 00 001710 ER4 AC+1,T
27600 060472 321 10 0 00 060464 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27601
27602 001711 T=T+1
27603 777777 777377 XX=XX+XX+1
27604 IFE <XX-1>,<XX=-2>
27605 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
27606 DMOVE AC,[777,,-1
27607 060473 120 04 0 00 071272 -1,,XX]
27608 DFAD AC,[777,,-1
27609 060474 110 04 0 00 071272 -1,,XX]
27610 060475 312 04 0 00 072077 CAME AC,[1777,,-1]
27611 060476 003 04 0 00 001711 ER3 AC,T
27612 060477 312 05 0 00 071274 CAME AC+1,[377777,,XX]
27613 060500 004 05 0 00 001711 ER4 AC+1,T
27614 060501 321 10 0 00 060473 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27615
27616 001712 T=T+1
27617 777777 776777 XX=XX+XX+1
27618 IFE <XX-1>,<XX=-2>
27619 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
27620 DMOVE AC,[777,,-1
27621 060502 120 04 0 00 071275 -1,,XX]
27622 DFAD AC,[777,,-1
27623 060503 110 04 0 00 071275 -1,,XX]
27624 060504 312 04 0 00 072077 CAME AC,[1777,,-1]
27625 060505 003 04 0 00 001712 ER3 AC,T
27626 060506 312 05 0 00 071277 CAME AC+1,[377777,,XX]
27627 060507 004 05 0 00 001712 ER4 AC+1,T
27628 060510 321 10 0 00 060502 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27629
27630 001713 T=T+1
27631 777777 775777 XX=XX+XX+1
27632 IFE <XX-1>,<XX=-2>
27633 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
27634 DMOVE AC,[777,,-1
27635 060511 120 04 0 00 071300 -1,,XX]
27636 DFAD AC,[777,,-1
27637 060512 110 04 0 00 071300 -1,,XX]
27638 060513 312 04 0 00 072077 CAME AC,[1777,,-1]
27639 060514 003 04 0 00 001713 ER3 AC,T
27640 060515 312 05 0 00 071302 CAME AC+1,[377777,,XX]
27641 060516 004 05 0 00 001713 ER4 AC+1,T
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 13-3
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0630
27642 060517 321 10 0 00 060511 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27643
27644 001714 T=T+1
27645 777777 773777 XX=XX+XX+1
27646 IFE <XX-1>,<XX=-2>
27647 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
27648 DMOVE AC,[777,,-1
27649 060520 120 04 0 00 071303 -1,,XX]
27650 DFAD AC,[777,,-1
27651 060521 110 04 0 00 071303 -1,,XX]
27652 060522 312 04 0 00 072077 CAME AC,[1777,,-1]
27653 060523 003 04 0 00 001714 ER3 AC,T
27654 060524 312 05 0 00 071305 CAME AC+1,[377777,,XX]
27655 060525 004 05 0 00 001714 ER4 AC+1,T
27656 060526 321 10 0 00 060520 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27657
27658 001715 T=T+1
27659 777777 767777 XX=XX+XX+1
27660 IFE <XX-1>,<XX=-2>
27661 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
27662 DMOVE AC,[777,,-1
27663 060527 120 04 0 00 071306 -1,,XX]
27664 DFAD AC,[777,,-1
27665 060530 110 04 0 00 071306 -1,,XX]
27666 060531 312 04 0 00 072077 CAME AC,[1777,,-1]
27667 060532 003 04 0 00 001715 ER3 AC,T
27668 060533 312 05 0 00 071310 CAME AC+1,[377777,,XX]
27669 060534 004 05 0 00 001715 ER4 AC+1,T
27670 060535 321 10 0 00 060527 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27671
27672 001716 T=T+1
27673 777777 757777 XX=XX+XX+1
27674 IFE <XX-1>,<XX=-2>
27675 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
27676 DMOVE AC,[777,,-1
27677 060536 120 04 0 00 071311 -1,,XX]
27678 DFAD AC,[777,,-1
27679 060537 110 04 0 00 071311 -1,,XX]
27680 060540 312 04 0 00 072077 CAME AC,[1777,,-1]
27681 060541 003 04 0 00 001716 ER3 AC,T
27682 060542 312 05 0 00 071313 CAME AC+1,[377777,,XX]
27683 060543 004 05 0 00 001716 ER4 AC+1,T
27684 060544 321 10 0 00 060536 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27685
27686 001717 T=T+1
27687 777777 737777 XX=XX+XX+1
27688 IFE <XX-1>,<XX=-2>
27689 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
27690 DMOVE AC,[777,,-1
27691 060545 120 04 0 00 071314 -1,,XX]
27692 DFAD AC,[777,,-1
27693 060546 110 04 0 00 071314 -1,,XX]
27694 060547 312 04 0 00 072077 CAME AC,[1777,,-1]
27695 060550 003 04 0 00 001717 ER3 AC,T
27696 060551 312 05 0 00 071316 CAME AC+1,[377777,,XX]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 13-4
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0631
27697 060552 004 05 0 00 001717 ER4 AC+1,T
27698 060553 321 10 0 00 060545 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27699
27700 001720 T=T+1
27701 777777 677777 XX=XX+XX+1
27702 IFE <XX-1>,<XX=-2>
27703 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
27704 DMOVE AC,[777,,-1
27705 060554 120 04 0 00 071317 -1,,XX]
27706 DFAD AC,[777,,-1
27707 060555 110 04 0 00 071317 -1,,XX]
27708 060556 312 04 0 00 072077 CAME AC,[1777,,-1]
27709 060557 003 04 0 00 001720 ER3 AC,T
27710 060560 312 05 0 00 071321 CAME AC+1,[377777,,XX]
27711 060561 004 05 0 00 001720 ER4 AC+1,T
27712 060562 321 10 0 00 060554 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27713
27714 001721 T=T+1
27715 777777 577777 XX=XX+XX+1
27716 IFE <XX-1>,<XX=-2>
27717 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
27718 DMOVE AC,[777,,-1
27719 060563 120 04 0 00 071322 -1,,XX]
27720 DFAD AC,[777,,-1
27721 060564 110 04 0 00 071322 -1,,XX]
27722 060565 312 04 0 00 072077 CAME AC,[1777,,-1]
27723 060566 003 04 0 00 001721 ER3 AC,T
27724 060567 312 05 0 00 071324 CAME AC+1,[377777,,XX]
27725 060570 004 05 0 00 001721 ER4 AC+1,T
27726 060571 321 10 0 00 060563 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27727
27728 001722 T=T+1
27729 777777 377777 XX=XX+XX+1
27730 IFE <XX-1>,<XX=-2>
27731 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
27732 DMOVE AC,[777,,-1
27733 060572 120 04 0 00 071325 -1,,XX]
27734 DFAD AC,[777,,-1
27735 060573 110 04 0 00 071325 -1,,XX]
27736 060574 312 04 0 00 072077 CAME AC,[1777,,-1]
27737 060575 003 04 0 00 001722 ER3 AC,T
27738 060576 312 05 0 00 071327 CAME AC+1,[377777,,XX]
27739 060577 004 05 0 00 001722 ER4 AC+1,T
27740 060600 321 10 0 00 060572 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27741
27742
27743 000000 XX=0
27744
27745 REPEAT ^D18,
27746 <T=T+1
27747 XX=XX+XX+1
27748 IFE <XX-1>,<XX=-2>
27749 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1
27750 >
27751 001723 T=T+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 13-5
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0632
27752 000001 XX=XX+XX+1
27753 777777 777776 IFE <XX-1>,<XX=-2>
27754 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
27755 DMOVE AC,[777,,-1
27756 060601 120 04 0 00 071330 XX,,-1]
27757 DFAD AC,[777,,-1
27758 060602 110 04 0 00 071330 XX,,-1]
27759 060603 312 04 0 00 072077 CAME AC,[1777,,-1]
27760 060604 003 04 0 00 001723 ER3 AC,T
27761 060605 312 05 0 00 071332 CAME AC+1,[XX&377777,,-1]
27762 060606 004 05 0 00 001723 ER4 AC+1,T
27763 060607 321 10 0 00 060601 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27764
27765 001724 T=T+1
27766 777777 777775 XX=XX+XX+1
27767 IFE <XX-1>,<XX=-2>
27768 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
27769 DMOVE AC,[777,,-1
27770 060610 120 04 0 00 071333 XX,,-1]
27771 DFAD AC,[777,,-1
27772 060611 110 04 0 00 071333 XX,,-1]
27773 060612 312 04 0 00 072077 CAME AC,[1777,,-1]
27774 060613 003 04 0 00 001724 ER3 AC,T
27775 060614 312 05 0 00 071335 CAME AC+1,[XX&377777,,-1]
27776 060615 004 05 0 00 001724 ER4 AC+1,T
27777 060616 321 10 0 00 060610 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27778
27779 001725 T=T+1
27780 777777 777773 XX=XX+XX+1
27781 IFE <XX-1>,<XX=-2>
27782 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
27783 DMOVE AC,[777,,-1
27784 060617 120 04 0 00 071336 XX,,-1]
27785 DFAD AC,[777,,-1
27786 060620 110 04 0 00 071336 XX,,-1]
27787 060621 312 04 0 00 072077 CAME AC,[1777,,-1]
27788 060622 003 04 0 00 001725 ER3 AC,T
27789 060623 312 05 0 00 071340 CAME AC+1,[XX&377777,,-1]
27790 060624 004 05 0 00 001725 ER4 AC+1,T
27791 060625 321 10 0 00 060617 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27792
27793 001726 T=T+1
27794 777777 777767 XX=XX+XX+1
27795 IFE <XX-1>,<XX=-2>
27796 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
27797 DMOVE AC,[777,,-1
27798 060626 120 04 0 00 071341 XX,,-1]
27799 DFAD AC,[777,,-1
27800 060627 110 04 0 00 071341 XX,,-1]
27801 060630 312 04 0 00 072077 CAME AC,[1777,,-1]
27802 060631 003 04 0 00 001726 ER3 AC,T
27803 060632 312 05 0 00 071343 CAME AC+1,[XX&377777,,-1]
27804 060633 004 05 0 00 001726 ER4 AC+1,T
27805 060634 321 10 0 00 060626 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27806
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 13-6
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0633
27807 001727 T=T+1
27808 777777 777757 XX=XX+XX+1
27809 IFE <XX-1>,<XX=-2>
27810 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
27811 DMOVE AC,[777,,-1
27812 060635 120 04 0 00 071344 XX,,-1]
27813 DFAD AC,[777,,-1
27814 060636 110 04 0 00 071344 XX,,-1]
27815 060637 312 04 0 00 072077 CAME AC,[1777,,-1]
27816 060640 003 04 0 00 001727 ER3 AC,T
27817 060641 312 05 0 00 071346 CAME AC+1,[XX&377777,,-1]
27818 060642 004 05 0 00 001727 ER4 AC+1,T
27819 060643 321 10 0 00 060635 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27820
27821 001730 T=T+1
27822 777777 777737 XX=XX+XX+1
27823 IFE <XX-1>,<XX=-2>
27824 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
27825 DMOVE AC,[777,,-1
27826 060644 120 04 0 00 071347 XX,,-1]
27827 DFAD AC,[777,,-1
27828 060645 110 04 0 00 071347 XX,,-1]
27829 060646 312 04 0 00 072077 CAME AC,[1777,,-1]
27830 060647 003 04 0 00 001730 ER3 AC,T
27831 060650 312 05 0 00 071351 CAME AC+1,[XX&377777,,-1]
27832 060651 004 05 0 00 001730 ER4 AC+1,T
27833 060652 321 10 0 00 060644 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27834
27835 001731 T=T+1
27836 777777 777677 XX=XX+XX+1
27837 IFE <XX-1>,<XX=-2>
27838 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
27839 DMOVE AC,[777,,-1
27840 060653 120 04 0 00 071352 XX,,-1]
27841 DFAD AC,[777,,-1
27842 060654 110 04 0 00 071352 XX,,-1]
27843 060655 312 04 0 00 072077 CAME AC,[1777,,-1]
27844 060656 003 04 0 00 001731 ER3 AC,T
27845 060657 312 05 0 00 071354 CAME AC+1,[XX&377777,,-1]
27846 060660 004 05 0 00 001731 ER4 AC+1,T
27847 060661 321 10 0 00 060653 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27848
27849 001732 T=T+1
27850 777777 777577 XX=XX+XX+1
27851 IFE <XX-1>,<XX=-2>
27852 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
27853 DMOVE AC,[777,,-1
27854 060662 120 04 0 00 071355 XX,,-1]
27855 DFAD AC,[777,,-1
27856 060663 110 04 0 00 071355 XX,,-1]
27857 060664 312 04 0 00 072077 CAME AC,[1777,,-1]
27858 060665 003 04 0 00 001732 ER3 AC,T
27859 060666 312 05 0 00 071357 CAME AC+1,[XX&377777,,-1]
27860 060667 004 05 0 00 001732 ER4 AC+1,T
27861 060670 321 10 0 00 060662 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 13-7
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0634
27862
27863 001733 T=T+1
27864 777777 777377 XX=XX+XX+1
27865 IFE <XX-1>,<XX=-2>
27866 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
27867 DMOVE AC,[777,,-1
27868 060671 120 04 0 00 071360 XX,,-1]
27869 DFAD AC,[777,,-1
27870 060672 110 04 0 00 071360 XX,,-1]
27871 060673 312 04 0 00 072077 CAME AC,[1777,,-1]
27872 060674 003 04 0 00 001733 ER3 AC,T
27873 060675 312 05 0 00 071362 CAME AC+1,[XX&377777,,-1]
27874 060676 004 05 0 00 001733 ER4 AC+1,T
27875 060677 321 10 0 00 060671 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27876
27877 001734 T=T+1
27878 777777 776777 XX=XX+XX+1
27879 IFE <XX-1>,<XX=-2>
27880 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
27881 DMOVE AC,[777,,-1
27882 060700 120 04 0 00 071363 XX,,-1]
27883 DFAD AC,[777,,-1
27884 060701 110 04 0 00 071363 XX,,-1]
27885 060702 312 04 0 00 072077 CAME AC,[1777,,-1]
27886 060703 003 04 0 00 001734 ER3 AC,T
27887 060704 312 05 0 00 071365 CAME AC+1,[XX&377777,,-1]
27888 060705 004 05 0 00 001734 ER4 AC+1,T
27889 060706 321 10 0 00 060700 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27890
27891 001735 T=T+1
27892 777777 775777 XX=XX+XX+1
27893 IFE <XX-1>,<XX=-2>
27894 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
27895 DMOVE AC,[777,,-1
27896 060707 120 04 0 00 071366 XX,,-1]
27897 DFAD AC,[777,,-1
27898 060710 110 04 0 00 071366 XX,,-1]
27899 060711 312 04 0 00 072077 CAME AC,[1777,,-1]
27900 060712 003 04 0 00 001735 ER3 AC,T
27901 060713 312 05 0 00 071370 CAME AC+1,[XX&377777,,-1]
27902 060714 004 05 0 00 001735 ER4 AC+1,T
27903 060715 321 10 0 00 060707 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27904
27905 001736 T=T+1
27906 777777 773777 XX=XX+XX+1
27907 IFE <XX-1>,<XX=-2>
27908 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
27909 DMOVE AC,[777,,-1
27910 060716 120 04 0 00 071371 XX,,-1]
27911 DFAD AC,[777,,-1
27912 060717 110 04 0 00 071371 XX,,-1]
27913 060720 312 04 0 00 072077 CAME AC,[1777,,-1]
27914 060721 003 04 0 00 001736 ER3 AC,T
27915 060722 312 05 0 00 071373 CAME AC+1,[XX&377777,,-1]
27916 060723 004 05 0 00 001736 ER4 AC+1,T
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 13-8
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0635
27917 060724 321 10 0 00 060716 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27918
27919 001737 T=T+1
27920 777777 767777 XX=XX+XX+1
27921 IFE <XX-1>,<XX=-2>
27922 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
27923 DMOVE AC,[777,,-1
27924 060725 120 04 0 00 071374 XX,,-1]
27925 DFAD AC,[777,,-1
27926 060726 110 04 0 00 071374 XX,,-1]
27927 060727 312 04 0 00 072077 CAME AC,[1777,,-1]
27928 060730 003 04 0 00 001737 ER3 AC,T
27929 060731 312 05 0 00 071376 CAME AC+1,[XX&377777,,-1]
27930 060732 004 05 0 00 001737 ER4 AC+1,T
27931 060733 321 10 0 00 060725 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27932
27933 001740 T=T+1
27934 777777 757777 XX=XX+XX+1
27935 IFE <XX-1>,<XX=-2>
27936 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
27937 DMOVE AC,[777,,-1
27938 060734 120 04 0 00 071377 XX,,-1]
27939 DFAD AC,[777,,-1
27940 060735 110 04 0 00 071377 XX,,-1]
27941 060736 312 04 0 00 072077 CAME AC,[1777,,-1]
27942 060737 003 04 0 00 001740 ER3 AC,T
27943 060740 312 05 0 00 071401 CAME AC+1,[XX&377777,,-1]
27944 060741 004 05 0 00 001740 ER4 AC+1,T
27945 060742 321 10 0 00 060734 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27946
27947 001741 T=T+1
27948 777777 737777 XX=XX+XX+1
27949 IFE <XX-1>,<XX=-2>
27950 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
27951 DMOVE AC,[777,,-1
27952 060743 120 04 0 00 071402 XX,,-1]
27953 DFAD AC,[777,,-1
27954 060744 110 04 0 00 071402 XX,,-1]
27955 060745 312 04 0 00 072077 CAME AC,[1777,,-1]
27956 060746 003 04 0 00 001741 ER3 AC,T
27957 060747 312 05 0 00 071404 CAME AC+1,[XX&377777,,-1]
27958 060750 004 05 0 00 001741 ER4 AC+1,T
27959 060751 321 10 0 00 060743 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27960
27961 001742 T=T+1
27962 777777 677777 XX=XX+XX+1
27963 IFE <XX-1>,<XX=-2>
27964 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
27965 DMOVE AC,[777,,-1
27966 060752 120 04 0 00 071405 XX,,-1]
27967 DFAD AC,[777,,-1
27968 060753 110 04 0 00 071405 XX,,-1]
27969 060754 312 04 0 00 072077 CAME AC,[1777,,-1]
27970 060755 003 04 0 00 001742 ER3 AC,T
27971 060756 312 05 0 00 071407 CAME AC+1,[XX&377777,,-1]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 13-9
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0636
27972 060757 004 05 0 00 001742 ER4 AC+1,T
27973 060760 321 10 0 00 060752 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27974
27975 001743 T=T+1
27976 777777 577777 XX=XX+XX+1
27977 IFE <XX-1>,<XX=-2>
27978 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
27979 DMOVE AC,[777,,-1
27980 060761 120 04 0 00 071410 XX,,-1]
27981 DFAD AC,[777,,-1
27982 060762 110 04 0 00 071410 XX,,-1]
27983 060763 312 04 0 00 072077 CAME AC,[1777,,-1]
27984 060764 003 04 0 00 001743 ER3 AC,T
27985 060765 312 05 0 00 071412 CAME AC+1,[XX&377777,,-1]
27986 060766 004 05 0 00 001743 ER4 AC+1,T
27987 060767 321 10 0 00 060761 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
27988
27989 001744 T=T+1
27990 777777 377777 XX=XX+XX+1
27991 IFE <XX-1>,<XX=-2>
27992 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
27993 DMOVE AC,[777,,-1
27994 060770 120 04 0 00 071413 XX,,-1]
27995 DFAD AC,[777,,-1
27996 060771 110 04 0 00 071413 XX,,-1]
27997 060772 312 04 0 00 072077 CAME AC,[1777,,-1]
27998 060773 003 04 0 00 001744 ER3 AC,T
27999 060774 312 05 0 00 071241 CAME AC+1,[XX&377777,,-1]
28000 060775 004 05 0 00 001744 ER4 AC+1,T
28001 060776 321 10 0 00 060770 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28002
28003
28004 000000 XX=0
28005
28006 REPEAT ^D18,
28007 <T=T+1
28008 XX=XX+XX+1
28009 IFE <XX-1>,<XX=-2>
28010 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1
28011 >
28012 001745 T=T+1
28013 000001 XX=XX+XX+1
28014 777777 777776 IFE <XX-1>,<XX=-2>
28015 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
28016 DMOVE AC,[777,,XX
28017 060777 120 04 0 00 071415 -1,,-1]
28018 DFAD AC,[777,,XX
28019 061000 110 04 0 00 071415 -1,,-1]
28020 061001 312 04 0 00 072100 CAME AC,[1777,,XX]
28021 061002 003 04 0 00 001745 ER3 AC,T
28022 061003 312 05 0 00 071241 CAME AC+1,[377777,,-1]
28023 061004 004 05 0 00 001745 ER4 AC+1,T
28024 061005 321 10 0 00 060777 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28025
28026 001746 T=T+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 13-10
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0637
28027 777777 777775 XX=XX+XX+1
28028 IFE <XX-1>,<XX=-2>
28029 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
28030 DMOVE AC,[777,,XX
28031 061006 120 04 0 00 071417 -1,,-1]
28032 DFAD AC,[777,,XX
28033 061007 110 04 0 00 071417 -1,,-1]
28034 061010 312 04 0 00 072101 CAME AC,[1777,,XX]
28035 061011 003 04 0 00 001746 ER3 AC,T
28036 061012 312 05 0 00 071241 CAME AC+1,[377777,,-1]
28037 061013 004 05 0 00 001746 ER4 AC+1,T
28038 061014 321 10 0 00 061006 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28039
28040 001747 T=T+1
28041 777777 777773 XX=XX+XX+1
28042 IFE <XX-1>,<XX=-2>
28043 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
28044 DMOVE AC,[777,,XX
28045 061015 120 04 0 00 071421 -1,,-1]
28046 DFAD AC,[777,,XX
28047 061016 110 04 0 00 071421 -1,,-1]
28048 061017 312 04 0 00 072102 CAME AC,[1777,,XX]
28049 061020 003 04 0 00 001747 ER3 AC,T
28050 061021 312 05 0 00 071241 CAME AC+1,[377777,,-1]
28051 061022 004 05 0 00 001747 ER4 AC+1,T
28052 061023 321 10 0 00 061015 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28053
28054 001750 T=T+1
28055 777777 777767 XX=XX+XX+1
28056 IFE <XX-1>,<XX=-2>
28057 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
28058 DMOVE AC,[777,,XX
28059 061024 120 04 0 00 071423 -1,,-1]
28060 DFAD AC,[777,,XX
28061 061025 110 04 0 00 071423 -1,,-1]
28062 061026 312 04 0 00 072103 CAME AC,[1777,,XX]
28063 061027 003 04 0 00 001750 ER3 AC,T
28064 061030 312 05 0 00 071241 CAME AC+1,[377777,,-1]
28065 061031 004 05 0 00 001750 ER4 AC+1,T
28066 061032 321 10 0 00 061024 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28067
28068 001751 T=T+1
28069 777777 777757 XX=XX+XX+1
28070 IFE <XX-1>,<XX=-2>
28071 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
28072 DMOVE AC,[777,,XX
28073 061033 120 04 0 00 071425 -1,,-1]
28074 DFAD AC,[777,,XX
28075 061034 110 04 0 00 071425 -1,,-1]
28076 061035 312 04 0 00 072104 CAME AC,[1777,,XX]
28077 061036 003 04 0 00 001751 ER3 AC,T
28078 061037 312 05 0 00 071241 CAME AC+1,[377777,,-1]
28079 061040 004 05 0 00 001751 ER4 AC+1,T
28080 061041 321 10 0 00 061033 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28081
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 13-11
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0638
28082 001752 T=T+1
28083 777777 777737 XX=XX+XX+1
28084 IFE <XX-1>,<XX=-2>
28085 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
28086 DMOVE AC,[777,,XX
28087 061042 120 04 0 00 071427 -1,,-1]
28088 DFAD AC,[777,,XX
28089 061043 110 04 0 00 071427 -1,,-1]
28090 061044 312 04 0 00 072105 CAME AC,[1777,,XX]
28091 061045 003 04 0 00 001752 ER3 AC,T
28092 061046 312 05 0 00 071241 CAME AC+1,[377777,,-1]
28093 061047 004 05 0 00 001752 ER4 AC+1,T
28094 061050 321 10 0 00 061042 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28095
28096 001753 T=T+1
28097 777777 777677 XX=XX+XX+1
28098 IFE <XX-1>,<XX=-2>
28099 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
28100 DMOVE AC,[777,,XX
28101 061051 120 04 0 00 071431 -1,,-1]
28102 DFAD AC,[777,,XX
28103 061052 110 04 0 00 071431 -1,,-1]
28104 061053 312 04 0 00 072106 CAME AC,[1777,,XX]
28105 061054 003 04 0 00 001753 ER3 AC,T
28106 061055 312 05 0 00 071241 CAME AC+1,[377777,,-1]
28107 061056 004 05 0 00 001753 ER4 AC+1,T
28108 061057 321 10 0 00 061051 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28109
28110 001754 T=T+1
28111 777777 777577 XX=XX+XX+1
28112 IFE <XX-1>,<XX=-2>
28113 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
28114 DMOVE AC,[777,,XX
28115 061060 120 04 0 00 071433 -1,,-1]
28116 DFAD AC,[777,,XX
28117 061061 110 04 0 00 071433 -1,,-1]
28118 061062 312 04 0 00 072107 CAME AC,[1777,,XX]
28119 061063 003 04 0 00 001754 ER3 AC,T
28120 061064 312 05 0 00 071241 CAME AC+1,[377777,,-1]
28121 061065 004 05 0 00 001754 ER4 AC+1,T
28122 061066 321 10 0 00 061060 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28123
28124 001755 T=T+1
28125 777777 777377 XX=XX+XX+1
28126 IFE <XX-1>,<XX=-2>
28127 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
28128 DMOVE AC,[777,,XX
28129 061067 120 04 0 00 071435 -1,,-1]
28130 DFAD AC,[777,,XX
28131 061070 110 04 0 00 071435 -1,,-1]
28132 061071 312 04 0 00 072110 CAME AC,[1777,,XX]
28133 061072 003 04 0 00 001755 ER3 AC,T
28134 061073 312 05 0 00 071241 CAME AC+1,[377777,,-1]
28135 061074 004 05 0 00 001755 ER4 AC+1,T
28136 061075 321 10 0 00 061067 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 13-12
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0639
28137
28138 001756 T=T+1
28139 777777 776777 XX=XX+XX+1
28140 IFE <XX-1>,<XX=-2>
28141 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
28142 DMOVE AC,[777,,XX
28143 061076 120 04 0 00 071437 -1,,-1]
28144 DFAD AC,[777,,XX
28145 061077 110 04 0 00 071437 -1,,-1]
28146 061100 312 04 0 00 072111 CAME AC,[1777,,XX]
28147 061101 003 04 0 00 001756 ER3 AC,T
28148 061102 312 05 0 00 071241 CAME AC+1,[377777,,-1]
28149 061103 004 05 0 00 001756 ER4 AC+1,T
28150 061104 321 10 0 00 061076 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28151
28152 001757 T=T+1
28153 777777 775777 XX=XX+XX+1
28154 IFE <XX-1>,<XX=-2>
28155 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
28156 DMOVE AC,[777,,XX
28157 061105 120 04 0 00 071441 -1,,-1]
28158 DFAD AC,[777,,XX
28159 061106 110 04 0 00 071441 -1,,-1]
28160 061107 312 04 0 00 072112 CAME AC,[1777,,XX]
28161 061110 003 04 0 00 001757 ER3 AC,T
28162 061111 312 05 0 00 071241 CAME AC+1,[377777,,-1]
28163 061112 004 05 0 00 001757 ER4 AC+1,T
28164 061113 321 10 0 00 061105 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28165
28166 001760 T=T+1
28167 777777 773777 XX=XX+XX+1
28168 IFE <XX-1>,<XX=-2>
28169 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
28170 DMOVE AC,[777,,XX
28171 061114 120 04 0 00 071443 -1,,-1]
28172 DFAD AC,[777,,XX
28173 061115 110 04 0 00 071443 -1,,-1]
28174 061116 312 04 0 00 072113 CAME AC,[1777,,XX]
28175 061117 003 04 0 00 001760 ER3 AC,T
28176 061120 312 05 0 00 071241 CAME AC+1,[377777,,-1]
28177 061121 004 05 0 00 001760 ER4 AC+1,T
28178 061122 321 10 0 00 061114 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28179
28180 001761 T=T+1
28181 777777 767777 XX=XX+XX+1
28182 IFE <XX-1>,<XX=-2>
28183 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
28184 DMOVE AC,[777,,XX
28185 061123 120 04 0 00 071445 -1,,-1]
28186 DFAD AC,[777,,XX
28187 061124 110 04 0 00 071445 -1,,-1]
28188 061125 312 04 0 00 072114 CAME AC,[1777,,XX]
28189 061126 003 04 0 00 001761 ER3 AC,T
28190 061127 312 05 0 00 071241 CAME AC+1,[377777,,-1]
28191 061130 004 05 0 00 001761 ER4 AC+1,T
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 13-13
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0640
28192 061131 321 10 0 00 061123 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28193
28194 001762 T=T+1
28195 777777 757777 XX=XX+XX+1
28196 IFE <XX-1>,<XX=-2>
28197 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
28198 DMOVE AC,[777,,XX
28199 061132 120 04 0 00 071447 -1,,-1]
28200 DFAD AC,[777,,XX
28201 061133 110 04 0 00 071447 -1,,-1]
28202 061134 312 04 0 00 072115 CAME AC,[1777,,XX]
28203 061135 003 04 0 00 001762 ER3 AC,T
28204 061136 312 05 0 00 071241 CAME AC+1,[377777,,-1]
28205 061137 004 05 0 00 001762 ER4 AC+1,T
28206 061140 321 10 0 00 061132 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28207
28208 001763 T=T+1
28209 777777 737777 XX=XX+XX+1
28210 IFE <XX-1>,<XX=-2>
28211 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
28212 DMOVE AC,[777,,XX
28213 061141 120 04 0 00 071451 -1,,-1]
28214 DFAD AC,[777,,XX
28215 061142 110 04 0 00 071451 -1,,-1]
28216 061143 312 04 0 00 072116 CAME AC,[1777,,XX]
28217 061144 003 04 0 00 001763 ER3 AC,T
28218 061145 312 05 0 00 071241 CAME AC+1,[377777,,-1]
28219 061146 004 05 0 00 001763 ER4 AC+1,T
28220 061147 321 10 0 00 061141 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28221
28222 001764 T=T+1
28223 777777 677777 XX=XX+XX+1
28224 IFE <XX-1>,<XX=-2>
28225 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
28226 DMOVE AC,[777,,XX
28227 061150 120 04 0 00 071453 -1,,-1]
28228 DFAD AC,[777,,XX
28229 061151 110 04 0 00 071453 -1,,-1]
28230 061152 312 04 0 00 072117 CAME AC,[1777,,XX]
28231 061153 003 04 0 00 001764 ER3 AC,T
28232 061154 312 05 0 00 071241 CAME AC+1,[377777,,-1]
28233 061155 004 05 0 00 001764 ER4 AC+1,T
28234 061156 321 10 0 00 061150 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28235
28236 001765 T=T+1
28237 777777 577777 XX=XX+XX+1
28238 IFE <XX-1>,<XX=-2>
28239 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
28240 DMOVE AC,[777,,XX
28241 061157 120 04 0 00 071455 -1,,-1]
28242 DFAD AC,[777,,XX
28243 061160 110 04 0 00 071455 -1,,-1]
28244 061161 312 04 0 00 072120 CAME AC,[1777,,XX]
28245 061162 003 04 0 00 001765 ER3 AC,T
28246 061163 312 05 0 00 071241 CAME AC+1,[377777,,-1]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 13-14
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0641
28247 061164 004 05 0 00 001765 ER4 AC+1,T
28248 061165 321 10 0 00 061157 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28249
28250 001766 T=T+1
28251 777777 377777 XX=XX+XX+1
28252 IFE <XX-1>,<XX=-2>
28253 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
28254 DMOVE AC,[777,,XX
28255 061166 120 04 0 00 071457 -1,,-1]
28256 DFAD AC,[777,,XX
28257 061167 110 04 0 00 071457 -1,,-1]
28258 061170 312 04 0 00 072121 CAME AC,[1777,,XX]
28259 061171 003 04 0 00 001766 ER3 AC,T
28260 061172 312 05 0 00 071241 CAME AC+1,[377777,,-1]
28261 061173 004 05 0 00 001766 ER4 AC+1,T
28262 061174 321 10 0 00 061166 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28263
28264
28265 000000 ZZ=0
28266
28267 REPEAT ^D8,
28268 <T=T+1
28269 XX=XX+XX+1
28270 IFE <XX-1>,<XX=-2>
28271 DFARP T,XX&777,-1,-1,-1,XX&777,-1,-1,-1,1000+XX&777,-1,377777,-1
28272 >
28273 001767 T=T+1
28274 777776 777777 XX=XX+XX+1
28275 IFE <XX-1>,<XX=-2>
28276 DFARP T,XX&777,-1,-1,-1,XX&777,-1,-1,-1,1000+XX&777,-1,377777,-1^
28277 DMOVE AC,[XX&777,,-1
28278 061175 120 04 0 00 071237 -1,,-1]
28279 DFAD AC,[XX&777,,-1
28280 061176 110 04 0 00 071237 -1,,-1]
28281 061177 312 04 0 00 072077 CAME AC,[1000+XX&777,,-1]
28282 061200 003 04 0 00 001767 ER3 AC,T
28283 061201 312 05 0 00 071241 CAME AC+1,[377777,,-1]
28284 061202 004 05 0 00 001767 ER4 AC+1,T
28285 061203 321 10 0 00 061175 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28286
28287 001770 T=T+1
28288 777775 777777 XX=XX+XX+1
28289 IFE <XX-1>,<XX=-2>
28290 DFARP T,XX&777,-1,-1,-1,XX&777,-1,-1,-1,1000+XX&777,-1,377777,-1^
28291 DMOVE AC,[XX&777,,-1
28292 061204 120 04 0 00 071237 -1,,-1]
28293 DFAD AC,[XX&777,,-1
28294 061205 110 04 0 00 071237 -1,,-1]
28295 061206 312 04 0 00 072077 CAME AC,[1000+XX&777,,-1]
28296 061207 003 04 0 00 001770 ER3 AC,T
28297 061210 312 05 0 00 071241 CAME AC+1,[377777,,-1]
28298 061211 004 05 0 00 001770 ER4 AC+1,T
28299 061212 321 10 0 00 061204 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28300
28301 001771 T=T+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 13-15
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0642
28302 777773 777777 XX=XX+XX+1
28303 IFE <XX-1>,<XX=-2>
28304 DFARP T,XX&777,-1,-1,-1,XX&777,-1,-1,-1,1000+XX&777,-1,377777,-1^
28305 DMOVE AC,[XX&777,,-1
28306 061213 120 04 0 00 071237 -1,,-1]
28307 DFAD AC,[XX&777,,-1
28308 061214 110 04 0 00 071237 -1,,-1]
28309 061215 312 04 0 00 072077 CAME AC,[1000+XX&777,,-1]
28310 061216 003 04 0 00 001771 ER3 AC,T
28311 061217 312 05 0 00 071241 CAME AC+1,[377777,,-1]
28312 061220 004 05 0 00 001771 ER4 AC+1,T
28313 061221 321 10 0 00 061213 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28314
28315 001772 T=T+1
28316 777767 777777 XX=XX+XX+1
28317 IFE <XX-1>,<XX=-2>
28318 DFARP T,XX&777,-1,-1,-1,XX&777,-1,-1,-1,1000+XX&777,-1,377777,-1^
28319 DMOVE AC,[XX&777,,-1
28320 061222 120 04 0 00 071237 -1,,-1]
28321 DFAD AC,[XX&777,,-1
28322 061223 110 04 0 00 071237 -1,,-1]
28323 061224 312 04 0 00 072077 CAME AC,[1000+XX&777,,-1]
28324 061225 003 04 0 00 001772 ER3 AC,T
28325 061226 312 05 0 00 071241 CAME AC+1,[377777,,-1]
28326 061227 004 05 0 00 001772 ER4 AC+1,T
28327 061230 321 10 0 00 061222 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28328
28329 001773 T=T+1
28330 777757 777777 XX=XX+XX+1
28331 IFE <XX-1>,<XX=-2>
28332 DFARP T,XX&777,-1,-1,-1,XX&777,-1,-1,-1,1000+XX&777,-1,377777,-1^
28333 DMOVE AC,[XX&777,,-1
28334 061231 120 04 0 00 071237 -1,,-1]
28335 DFAD AC,[XX&777,,-1
28336 061232 110 04 0 00 071237 -1,,-1]
28337 061233 312 04 0 00 072077 CAME AC,[1000+XX&777,,-1]
28338 061234 003 04 0 00 001773 ER3 AC,T
28339 061235 312 05 0 00 071241 CAME AC+1,[377777,,-1]
28340 061236 004 05 0 00 001773 ER4 AC+1,T
28341 061237 321 10 0 00 061231 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28342
28343 001774 T=T+1
28344 777737 777777 XX=XX+XX+1
28345 IFE <XX-1>,<XX=-2>
28346 DFARP T,XX&777,-1,-1,-1,XX&777,-1,-1,-1,1000+XX&777,-1,377777,-1^
28347 DMOVE AC,[XX&777,,-1
28348 061240 120 04 0 00 071237 -1,,-1]
28349 DFAD AC,[XX&777,,-1
28350 061241 110 04 0 00 071237 -1,,-1]
28351 061242 312 04 0 00 072077 CAME AC,[1000+XX&777,,-1]
28352 061243 003 04 0 00 001774 ER3 AC,T
28353 061244 312 05 0 00 071241 CAME AC+1,[377777,,-1]
28354 061245 004 05 0 00 001774 ER4 AC+1,T
28355 061246 321 10 0 00 061240 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28356
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 13-16
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0643
28357 001775 T=T+1
28358 777677 777777 XX=XX+XX+1
28359 IFE <XX-1>,<XX=-2>
28360 DFARP T,XX&777,-1,-1,-1,XX&777,-1,-1,-1,1000+XX&777,-1,377777,-1^
28361 DMOVE AC,[XX&777,,-1
28362 061247 120 04 0 00 071237 -1,,-1]
28363 DFAD AC,[XX&777,,-1
28364 061250 110 04 0 00 071237 -1,,-1]
28365 061251 312 04 0 00 072077 CAME AC,[1000+XX&777,,-1]
28366 061252 003 04 0 00 001775 ER3 AC,T
28367 061253 312 05 0 00 071241 CAME AC+1,[377777,,-1]
28368 061254 004 05 0 00 001775 ER4 AC+1,T
28369 061255 321 10 0 00 061247 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28370
28371 001776 T=T+1
28372 777577 777777 XX=XX+XX+1
28373 IFE <XX-1>,<XX=-2>
28374 DFARP T,XX&777,-1,-1,-1,XX&777,-1,-1,-1,1000+XX&777,-1,377777,-1^
28375 DMOVE AC,[XX&777,,-1
28376 061256 120 04 0 00 071237 -1,,-1]
28377 DFAD AC,[XX&777,,-1
28378 061257 110 04 0 00 071237 -1,,-1]
28379 061260 312 04 0 00 072077 CAME AC,[1000+XX&777,,-1]
28380 061261 003 04 0 00 001776 ER3 AC,T
28381 061262 312 05 0 00 071241 CAME AC+1,[377777,,-1]
28382 061263 004 05 0 00 001776 ER4 AC+1,T
28383 061264 321 10 0 00 061256 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28384
28385
28386 001777 T=T+1
28387 000777 XX=<XX+XX+1>&777
28388 DFARP T,XX,-1,-1,-1,XX,-1,-1,-1,XX+XX+1,-1,377777,-1^
28389 DMOVE AC,[XX,,-1
28390 061265 120 04 0 00 071237 -1,,-1]
28391 DFAD AC,[XX,,-1
28392 061266 110 04 0 00 071237 -1,,-1]
28393 061267 312 04 0 00 072077 CAME AC,[XX+XX+1,,-1]
28394 061270 003 04 0 00 001777 ER3 AC,T
28395 061271 312 05 0 00 071241 CAME AC+1,[377777,,-1]
28396 061272 004 05 0 00 001777 ER4 AC+1,T
28397 061273 321 10 0 00 061265 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28398 PAGE
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 13-17
DFKCA4 MAC 3-Oct-80 13:57 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0644
28399 ;ADD A FRACTION OF ALL ONES TO SAME
28400 DFA 20,777,-1,-1,-1,777,-1,-1,-1,1777,-1,377777,-1^
28401 R2000: DMOVE AC,[777,,-1
28402 061274 120 04 0 00 071237 -1,,-1]
28403 DFAD AC,[777,,-1
28404 061275 110 04 0 00 071237 -1,,-1]
28405 061276 312 04 0 00 072077 CAME AC,[1777,,-1]
28406 061277 003 04 0 00 002001 ER3 AC,2001
28407 061300 312 05 0 00 071241 CAME AC+1,[377777,,-1]
28408 061301 004 05 0 00 002001 ER4 AC+1,2001
28409 061302 321 10 0 00 061274 JUMPL AC+4,R2000 ;LOOP ON ERROR SWITCH^
28410
28411
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0645
28412 SUBTTL CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS
28413
28414 000004 AC=4
28415 061303 CE00: SAVEAC (1,1)^
28416 061303 201 10 0 00 061303 MOVEI AC+4,.
28417 061304 202 10 0 00 030051 MOVEM AC+4,TESTPC ;SETUP SUBTEST PC
28418 061305 201 10 0 00 000010 MOVEI AC+4,<AC+4>&17 ;INFORM ERROR ROUTINE WHICH
28419 061306 202 10 0 00 073775 MOVEM AC+4,ERRLOP# ;AC IS USED FOR ITERATION^
28420 061307 254 02 1 00 072122 JRSTF @[.+1] ;CLEAR ALL FLAGS
28421
28422 000101 T=101
28423 061310 S100: SDFARP T,201400,0,0,0,577400,0,0,0,200400,0,0,0^
28424 DMOVE AC,[201400,,0
28425 061310 120 04 0 00 072123 0,,0]
28426 DFAD AC,[577400,,0
28427 061311 110 04 0 00 072125 0,,0]
28428 061312 312 04 0 00 070614 CAME AC,[200400,,0]
28429 061313 003 04 0 00 000101 ER3 AC,T
28430 061314 312 05 0 00 070660 CAME AC+1,[0,,0]
28431 061315 004 05 0 00 000101 ER4 AC+1,T
28432 061316 321 10 0 00 061310 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28433
28434 000400 XX=400
28435 200400 ZZ=200400
28436
28437 REPEAT ^D8,
28438 <T=T+1
28439 XX=XX/2
28440 ZZ=ZZ-1000
28441 SDFARP T,200400+XX,0,0,0,577400,0,0,0,ZZ,0,0,0
28442 >
28443 000102 T=T+1
28444 000200 XX=XX/2
28445 177400 ZZ=ZZ-1000
28446 SDFARP T,200400+XX,0,0,0,577400,0,0,0,ZZ,0,0,0^
28447 DMOVE AC,[200400+XX,,0
28448 061317 120 04 0 00 072127 0,,0]
28449 DFAD AC,[577400,,0
28450 061320 110 04 0 00 072125 0,,0]
28451 061321 312 04 0 00 070636 CAME AC,[ZZ,,0]
28452 061322 003 04 0 00 000102 ER3 AC,T
28453 061323 312 05 0 00 070660 CAME AC+1,[0,,0]
28454 061324 004 05 0 00 000102 ER4 AC+1,T
28455 061325 321 10 0 00 061317 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28456
28457 000103 T=T+1
28458 000100 XX=XX/2
28459 176400 ZZ=ZZ-1000
28460 SDFARP T,200400+XX,0,0,0,577400,0,0,0,ZZ,0,0,0^
28461 DMOVE AC,[200400+XX,,0
28462 061326 120 04 0 00 072131 0,,0]
28463 DFAD AC,[577400,,0
28464 061327 110 04 0 00 072125 0,,0]
28465 061330 312 04 0 00 070753 CAME AC,[ZZ,,0]
28466 061331 003 04 0 00 000103 ER3 AC,T
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-1
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0646
28467 061332 312 05 0 00 070660 CAME AC+1,[0,,0]
28468 061333 004 05 0 00 000103 ER4 AC+1,T
28469 061334 321 10 0 00 061326 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28470
28471 000104 T=T+1
28472 000040 XX=XX/2
28473 175400 ZZ=ZZ-1000
28474 SDFARP T,200400+XX,0,0,0,577400,0,0,0,ZZ,0,0,0^
28475 DMOVE AC,[200400+XX,,0
28476 061335 120 04 0 00 072133 0,,0]
28477 DFAD AC,[577400,,0
28478 061336 110 04 0 00 072125 0,,0]
28479 061337 312 04 0 00 070756 CAME AC,[ZZ,,0]
28480 061340 003 04 0 00 000104 ER3 AC,T
28481 061341 312 05 0 00 070660 CAME AC+1,[0,,0]
28482 061342 004 05 0 00 000104 ER4 AC+1,T
28483 061343 321 10 0 00 061335 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28484
28485 000105 T=T+1
28486 000020 XX=XX/2
28487 174400 ZZ=ZZ-1000
28488 SDFARP T,200400+XX,0,0,0,577400,0,0,0,ZZ,0,0,0^
28489 DMOVE AC,[200400+XX,,0
28490 061344 120 04 0 00 072135 0,,0]
28491 DFAD AC,[577400,,0
28492 061345 110 04 0 00 072125 0,,0]
28493 061346 312 04 0 00 070761 CAME AC,[ZZ,,0]
28494 061347 003 04 0 00 000105 ER3 AC,T
28495 061350 312 05 0 00 070660 CAME AC+1,[0,,0]
28496 061351 004 05 0 00 000105 ER4 AC+1,T
28497 061352 321 10 0 00 061344 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28498
28499 000106 T=T+1
28500 000010 XX=XX/2
28501 173400 ZZ=ZZ-1000
28502 SDFARP T,200400+XX,0,0,0,577400,0,0,0,ZZ,0,0,0^
28503 DMOVE AC,[200400+XX,,0
28504 061353 120 04 0 00 072137 0,,0]
28505 DFAD AC,[577400,,0
28506 061354 110 04 0 00 072125 0,,0]
28507 061355 312 04 0 00 070764 CAME AC,[ZZ,,0]
28508 061356 003 04 0 00 000106 ER3 AC,T
28509 061357 312 05 0 00 070660 CAME AC+1,[0,,0]
28510 061360 004 05 0 00 000106 ER4 AC+1,T
28511 061361 321 10 0 00 061353 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28512
28513 000107 T=T+1
28514 000004 XX=XX/2
28515 172400 ZZ=ZZ-1000
28516 SDFARP T,200400+XX,0,0,0,577400,0,0,0,ZZ,0,0,0^
28517 DMOVE AC,[200400+XX,,0
28518 061362 120 04 0 00 072141 0,,0]
28519 DFAD AC,[577400,,0
28520 061363 110 04 0 00 072125 0,,0]
28521 061364 312 04 0 00 070767 CAME AC,[ZZ,,0]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-2
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0647
28522 061365 003 04 0 00 000107 ER3 AC,T
28523 061366 312 05 0 00 070660 CAME AC+1,[0,,0]
28524 061367 004 05 0 00 000107 ER4 AC+1,T
28525 061370 321 10 0 00 061362 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28526
28527 000110 T=T+1
28528 000002 XX=XX/2
28529 171400 ZZ=ZZ-1000
28530 SDFARP T,200400+XX,0,0,0,577400,0,0,0,ZZ,0,0,0^
28531 DMOVE AC,[200400+XX,,0
28532 061371 120 04 0 00 072143 0,,0]
28533 DFAD AC,[577400,,0
28534 061372 110 04 0 00 072125 0,,0]
28535 061373 312 04 0 00 070772 CAME AC,[ZZ,,0]
28536 061374 003 04 0 00 000110 ER3 AC,T
28537 061375 312 05 0 00 070660 CAME AC+1,[0,,0]
28538 061376 004 05 0 00 000110 ER4 AC+1,T
28539 061377 321 10 0 00 061371 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28540
28541 000111 T=T+1
28542 000001 XX=XX/2
28543 170400 ZZ=ZZ-1000
28544 SDFARP T,200400+XX,0,0,0,577400,0,0,0,ZZ,0,0,0^
28545 DMOVE AC,[200400+XX,,0
28546 061400 120 04 0 00 072145 0,,0]
28547 DFAD AC,[577400,,0
28548 061401 110 04 0 00 072125 0,,0]
28549 061402 312 04 0 00 070775 CAME AC,[ZZ,,0]
28550 061403 003 04 0 00 000111 ER3 AC,T
28551 061404 312 05 0 00 070660 CAME AC+1,[0,,0]
28552 061405 004 05 0 00 000111 ER4 AC+1,T
28553 061406 321 10 0 00 061400 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28554
28555
28556 000001 000000 XX=1000000
28557
28558 REPEAT ^D18,
28559 <T=T+1
28560 XX=XX/2
28561 ZZ=ZZ-1000
28562 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0
28563 >
28564 000112 T=T+1
28565 400000 XX=XX/2
28566 167400 ZZ=ZZ-1000
28567 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
28568 DMOVE AC,[200400,,XX
28569 061407 120 04 0 00 072147 0,,0]
28570 DFAD AC,[577400,,0
28571 061410 110 04 0 00 072125 0,,0]
28572 061411 312 04 0 00 071000 CAME AC,[ZZ,,0]
28573 061412 003 04 0 00 000112 ER3 AC,T
28574 061413 312 05 0 00 070660 CAME AC+1,[0,,0]
28575 061414 004 05 0 00 000112 ER4 AC+1,T
28576 061415 321 10 0 00 061407 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-3
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0648
28577
28578 000113 T=T+1
28579 200000 XX=XX/2
28580 166400 ZZ=ZZ-1000
28581 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
28582 DMOVE AC,[200400,,XX
28583 061416 120 04 0 00 072151 0,,0]
28584 DFAD AC,[577400,,0
28585 061417 110 04 0 00 072125 0,,0]
28586 061420 312 04 0 00 071003 CAME AC,[ZZ,,0]
28587 061421 003 04 0 00 000113 ER3 AC,T
28588 061422 312 05 0 00 070660 CAME AC+1,[0,,0]
28589 061423 004 05 0 00 000113 ER4 AC+1,T
28590 061424 321 10 0 00 061416 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28591
28592 000114 T=T+1
28593 100000 XX=XX/2
28594 165400 ZZ=ZZ-1000
28595 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
28596 DMOVE AC,[200400,,XX
28597 061425 120 04 0 00 072153 0,,0]
28598 DFAD AC,[577400,,0
28599 061426 110 04 0 00 072125 0,,0]
28600 061427 312 04 0 00 071006 CAME AC,[ZZ,,0]
28601 061430 003 04 0 00 000114 ER3 AC,T
28602 061431 312 05 0 00 070660 CAME AC+1,[0,,0]
28603 061432 004 05 0 00 000114 ER4 AC+1,T
28604 061433 321 10 0 00 061425 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28605
28606 000115 T=T+1
28607 040000 XX=XX/2
28608 164400 ZZ=ZZ-1000
28609 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
28610 DMOVE AC,[200400,,XX
28611 061434 120 04 0 00 072155 0,,0]
28612 DFAD AC,[577400,,0
28613 061435 110 04 0 00 072125 0,,0]
28614 061436 312 04 0 00 071011 CAME AC,[ZZ,,0]
28615 061437 003 04 0 00 000115 ER3 AC,T
28616 061440 312 05 0 00 070660 CAME AC+1,[0,,0]
28617 061441 004 05 0 00 000115 ER4 AC+1,T
28618 061442 321 10 0 00 061434 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28619
28620 000116 T=T+1
28621 020000 XX=XX/2
28622 163400 ZZ=ZZ-1000
28623 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
28624 DMOVE AC,[200400,,XX
28625 061443 120 04 0 00 072157 0,,0]
28626 DFAD AC,[577400,,0
28627 061444 110 04 0 00 072125 0,,0]
28628 061445 312 04 0 00 071014 CAME AC,[ZZ,,0]
28629 061446 003 04 0 00 000116 ER3 AC,T
28630 061447 312 05 0 00 070660 CAME AC+1,[0,,0]
28631 061450 004 05 0 00 000116 ER4 AC+1,T
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-4
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0649
28632 061451 321 10 0 00 061443 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28633
28634 000117 T=T+1
28635 010000 XX=XX/2
28636 162400 ZZ=ZZ-1000
28637 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
28638 DMOVE AC,[200400,,XX
28639 061452 120 04 0 00 072161 0,,0]
28640 DFAD AC,[577400,,0
28641 061453 110 04 0 00 072125 0,,0]
28642 061454 312 04 0 00 071017 CAME AC,[ZZ,,0]
28643 061455 003 04 0 00 000117 ER3 AC,T
28644 061456 312 05 0 00 070660 CAME AC+1,[0,,0]
28645 061457 004 05 0 00 000117 ER4 AC+1,T
28646 061460 321 10 0 00 061452 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28647
28648 000120 T=T+1
28649 004000 XX=XX/2
28650 161400 ZZ=ZZ-1000
28651 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
28652 DMOVE AC,[200400,,XX
28653 061461 120 04 0 00 072163 0,,0]
28654 DFAD AC,[577400,,0
28655 061462 110 04 0 00 072125 0,,0]
28656 061463 312 04 0 00 071022 CAME AC,[ZZ,,0]
28657 061464 003 04 0 00 000120 ER3 AC,T
28658 061465 312 05 0 00 070660 CAME AC+1,[0,,0]
28659 061466 004 05 0 00 000120 ER4 AC+1,T
28660 061467 321 10 0 00 061461 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28661
28662 000121 T=T+1
28663 002000 XX=XX/2
28664 160400 ZZ=ZZ-1000
28665 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
28666 DMOVE AC,[200400,,XX
28667 061470 120 04 0 00 072165 0,,0]
28668 DFAD AC,[577400,,0
28669 061471 110 04 0 00 072125 0,,0]
28670 061472 312 04 0 00 071025 CAME AC,[ZZ,,0]
28671 061473 003 04 0 00 000121 ER3 AC,T
28672 061474 312 05 0 00 070660 CAME AC+1,[0,,0]
28673 061475 004 05 0 00 000121 ER4 AC+1,T
28674 061476 321 10 0 00 061470 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28675
28676 000122 T=T+1
28677 001000 XX=XX/2
28678 157400 ZZ=ZZ-1000
28679 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
28680 DMOVE AC,[200400,,XX
28681 061477 120 04 0 00 072167 0,,0]
28682 DFAD AC,[577400,,0
28683 061500 110 04 0 00 072125 0,,0]
28684 061501 312 04 0 00 071030 CAME AC,[ZZ,,0]
28685 061502 003 04 0 00 000122 ER3 AC,T
28686 061503 312 05 0 00 070660 CAME AC+1,[0,,0]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-5
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0650
28687 061504 004 05 0 00 000122 ER4 AC+1,T
28688 061505 321 10 0 00 061477 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28689
28690 000123 T=T+1
28691 000400 XX=XX/2
28692 156400 ZZ=ZZ-1000
28693 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
28694 DMOVE AC,[200400,,XX
28695 061506 120 04 0 00 072171 0,,0]
28696 DFAD AC,[577400,,0
28697 061507 110 04 0 00 072125 0,,0]
28698 061510 312 04 0 00 071033 CAME AC,[ZZ,,0]
28699 061511 003 04 0 00 000123 ER3 AC,T
28700 061512 312 05 0 00 070660 CAME AC+1,[0,,0]
28701 061513 004 05 0 00 000123 ER4 AC+1,T
28702 061514 321 10 0 00 061506 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28703
28704 000124 T=T+1
28705 000200 XX=XX/2
28706 155400 ZZ=ZZ-1000
28707 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
28708 DMOVE AC,[200400,,XX
28709 061515 120 04 0 00 072173 0,,0]
28710 DFAD AC,[577400,,0
28711 061516 110 04 0 00 072125 0,,0]
28712 061517 312 04 0 00 071036 CAME AC,[ZZ,,0]
28713 061520 003 04 0 00 000124 ER3 AC,T
28714 061521 312 05 0 00 070660 CAME AC+1,[0,,0]
28715 061522 004 05 0 00 000124 ER4 AC+1,T
28716 061523 321 10 0 00 061515 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28717
28718 000125 T=T+1
28719 000100 XX=XX/2
28720 154400 ZZ=ZZ-1000
28721 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
28722 DMOVE AC,[200400,,XX
28723 061524 120 04 0 00 072175 0,,0]
28724 DFAD AC,[577400,,0
28725 061525 110 04 0 00 072125 0,,0]
28726 061526 312 04 0 00 071041 CAME AC,[ZZ,,0]
28727 061527 003 04 0 00 000125 ER3 AC,T
28728 061530 312 05 0 00 070660 CAME AC+1,[0,,0]
28729 061531 004 05 0 00 000125 ER4 AC+1,T
28730 061532 321 10 0 00 061524 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28731
28732 000126 T=T+1
28733 000040 XX=XX/2
28734 153400 ZZ=ZZ-1000
28735 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
28736 DMOVE AC,[200400,,XX
28737 061533 120 04 0 00 072177 0,,0]
28738 DFAD AC,[577400,,0
28739 061534 110 04 0 00 072125 0,,0]
28740 061535 312 04 0 00 071044 CAME AC,[ZZ,,0]
28741 061536 003 04 0 00 000126 ER3 AC,T
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-6
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0651
28742 061537 312 05 0 00 070660 CAME AC+1,[0,,0]
28743 061540 004 05 0 00 000126 ER4 AC+1,T
28744 061541 321 10 0 00 061533 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28745
28746 000127 T=T+1
28747 000020 XX=XX/2
28748 152400 ZZ=ZZ-1000
28749 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
28750 DMOVE AC,[200400,,XX
28751 061542 120 04 0 00 072201 0,,0]
28752 DFAD AC,[577400,,0
28753 061543 110 04 0 00 072125 0,,0]
28754 061544 312 04 0 00 071047 CAME AC,[ZZ,,0]
28755 061545 003 04 0 00 000127 ER3 AC,T
28756 061546 312 05 0 00 070660 CAME AC+1,[0,,0]
28757 061547 004 05 0 00 000127 ER4 AC+1,T
28758 061550 321 10 0 00 061542 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28759
28760 000130 T=T+1
28761 000010 XX=XX/2
28762 151400 ZZ=ZZ-1000
28763 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
28764 DMOVE AC,[200400,,XX
28765 061551 120 04 0 00 072203 0,,0]
28766 DFAD AC,[577400,,0
28767 061552 110 04 0 00 072125 0,,0]
28768 061553 312 04 0 00 071052 CAME AC,[ZZ,,0]
28769 061554 003 04 0 00 000130 ER3 AC,T
28770 061555 312 05 0 00 070660 CAME AC+1,[0,,0]
28771 061556 004 05 0 00 000130 ER4 AC+1,T
28772 061557 321 10 0 00 061551 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28773
28774 000131 T=T+1
28775 000004 XX=XX/2
28776 150400 ZZ=ZZ-1000
28777 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
28778 DMOVE AC,[200400,,XX
28779 061560 120 04 0 00 072205 0,,0]
28780 DFAD AC,[577400,,0
28781 061561 110 04 0 00 072125 0,,0]
28782 061562 312 04 0 00 071055 CAME AC,[ZZ,,0]
28783 061563 003 04 0 00 000131 ER3 AC,T
28784 061564 312 05 0 00 070660 CAME AC+1,[0,,0]
28785 061565 004 05 0 00 000131 ER4 AC+1,T
28786 061566 321 10 0 00 061560 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28787
28788 000132 T=T+1
28789 000002 XX=XX/2
28790 147400 ZZ=ZZ-1000
28791 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
28792 DMOVE AC,[200400,,XX
28793 061567 120 04 0 00 072207 0,,0]
28794 DFAD AC,[577400,,0
28795 061570 110 04 0 00 072125 0,,0]
28796 061571 312 04 0 00 071060 CAME AC,[ZZ,,0]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-7
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0652
28797 061572 003 04 0 00 000132 ER3 AC,T
28798 061573 312 05 0 00 070660 CAME AC+1,[0,,0]
28799 061574 004 05 0 00 000132 ER4 AC+1,T
28800 061575 321 10 0 00 061567 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28801
28802 000133 T=T+1
28803 000001 XX=XX/2
28804 146400 ZZ=ZZ-1000
28805 SDFARP T,200400,XX,0,0,577400,0,0,0,ZZ,0,0,0^
28806 DMOVE AC,[200400,,XX
28807 061576 120 04 0 00 072211 0,,0]
28808 DFAD AC,[577400,,0
28809 061577 110 04 0 00 072125 0,,0]
28810 061600 312 04 0 00 071063 CAME AC,[ZZ,,0]
28811 061601 003 04 0 00 000133 ER3 AC,T
28812 061602 312 05 0 00 070660 CAME AC+1,[0,,0]
28813 061603 004 05 0 00 000133 ER4 AC+1,T
28814 061604 321 10 0 00 061576 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28815
28816
28817 400000 XX=400000
28818
28819 REPEAT ^D17,
28820 <T=T+1
28821 XX=XX/2
28822 ZZ=ZZ-1000
28823 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0
28824 >
28825 000134 T=T+1
28826 200000 XX=XX/2
28827 145400 ZZ=ZZ-1000
28828 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
28829 DMOVE AC,[200400,,0
28830 061605 120 04 0 00 072213 XX,,0]
28831 DFAD AC,[577400,,0
28832 061606 110 04 0 00 072125 0,,0]
28833 061607 312 04 0 00 071070 CAME AC,[ZZ,,0]
28834 061610 003 04 0 00 000134 ER3 AC,T
28835 061611 312 05 0 00 070660 CAME AC+1,[0,,0]
28836 061612 004 05 0 00 000134 ER4 AC+1,T
28837 061613 321 10 0 00 061605 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28838
28839 000135 T=T+1
28840 100000 XX=XX/2
28841 144400 ZZ=ZZ-1000
28842 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
28843 DMOVE AC,[200400,,0
28844 061614 120 04 0 00 072215 XX,,0]
28845 DFAD AC,[577400,,0
28846 061615 110 04 0 00 072125 0,,0]
28847 061616 312 04 0 00 071073 CAME AC,[ZZ,,0]
28848 061617 003 04 0 00 000135 ER3 AC,T
28849 061620 312 05 0 00 070660 CAME AC+1,[0,,0]
28850 061621 004 05 0 00 000135 ER4 AC+1,T
28851 061622 321 10 0 00 061614 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-8
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0653
28852
28853 000136 T=T+1
28854 040000 XX=XX/2
28855 143400 ZZ=ZZ-1000
28856 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
28857 DMOVE AC,[200400,,0
28858 061623 120 04 0 00 072217 XX,,0]
28859 DFAD AC,[577400,,0
28860 061624 110 04 0 00 072125 0,,0]
28861 061625 312 04 0 00 071076 CAME AC,[ZZ,,0]
28862 061626 003 04 0 00 000136 ER3 AC,T
28863 061627 312 05 0 00 070660 CAME AC+1,[0,,0]
28864 061630 004 05 0 00 000136 ER4 AC+1,T
28865 061631 321 10 0 00 061623 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28866
28867 000137 T=T+1
28868 020000 XX=XX/2
28869 142400 ZZ=ZZ-1000
28870 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
28871 DMOVE AC,[200400,,0
28872 061632 120 04 0 00 072221 XX,,0]
28873 DFAD AC,[577400,,0
28874 061633 110 04 0 00 072125 0,,0]
28875 061634 312 04 0 00 071101 CAME AC,[ZZ,,0]
28876 061635 003 04 0 00 000137 ER3 AC,T
28877 061636 312 05 0 00 070660 CAME AC+1,[0,,0]
28878 061637 004 05 0 00 000137 ER4 AC+1,T
28879 061640 321 10 0 00 061632 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28880
28881 000140 T=T+1
28882 010000 XX=XX/2
28883 141400 ZZ=ZZ-1000
28884 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
28885 DMOVE AC,[200400,,0
28886 061641 120 04 0 00 072223 XX,,0]
28887 DFAD AC,[577400,,0
28888 061642 110 04 0 00 072125 0,,0]
28889 061643 312 04 0 00 071104 CAME AC,[ZZ,,0]
28890 061644 003 04 0 00 000140 ER3 AC,T
28891 061645 312 05 0 00 070660 CAME AC+1,[0,,0]
28892 061646 004 05 0 00 000140 ER4 AC+1,T
28893 061647 321 10 0 00 061641 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28894
28895 000141 T=T+1
28896 004000 XX=XX/2
28897 140400 ZZ=ZZ-1000
28898 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
28899 DMOVE AC,[200400,,0
28900 061650 120 04 0 00 072225 XX,,0]
28901 DFAD AC,[577400,,0
28902 061651 110 04 0 00 072125 0,,0]
28903 061652 312 04 0 00 071107 CAME AC,[ZZ,,0]
28904 061653 003 04 0 00 000141 ER3 AC,T
28905 061654 312 05 0 00 070660 CAME AC+1,[0,,0]
28906 061655 004 05 0 00 000141 ER4 AC+1,T
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-9
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0654
28907 061656 321 10 0 00 061650 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28908
28909 000142 T=T+1
28910 002000 XX=XX/2
28911 137400 ZZ=ZZ-1000
28912 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
28913 DMOVE AC,[200400,,0
28914 061657 120 04 0 00 072227 XX,,0]
28915 DFAD AC,[577400,,0
28916 061660 110 04 0 00 072125 0,,0]
28917 061661 312 04 0 00 071112 CAME AC,[ZZ,,0]
28918 061662 003 04 0 00 000142 ER3 AC,T
28919 061663 312 05 0 00 070660 CAME AC+1,[0,,0]
28920 061664 004 05 0 00 000142 ER4 AC+1,T
28921 061665 321 10 0 00 061657 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28922
28923 000143 T=T+1
28924 001000 XX=XX/2
28925 136400 ZZ=ZZ-1000
28926 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
28927 DMOVE AC,[200400,,0
28928 061666 120 04 0 00 072231 XX,,0]
28929 DFAD AC,[577400,,0
28930 061667 110 04 0 00 072125 0,,0]
28931 061670 312 04 0 00 071115 CAME AC,[ZZ,,0]
28932 061671 003 04 0 00 000143 ER3 AC,T
28933 061672 312 05 0 00 070660 CAME AC+1,[0,,0]
28934 061673 004 05 0 00 000143 ER4 AC+1,T
28935 061674 321 10 0 00 061666 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28936
28937 000144 T=T+1
28938 000400 XX=XX/2
28939 135400 ZZ=ZZ-1000
28940 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
28941 DMOVE AC,[200400,,0
28942 061675 120 04 0 00 072233 XX,,0]
28943 DFAD AC,[577400,,0
28944 061676 110 04 0 00 072125 0,,0]
28945 061677 312 04 0 00 071120 CAME AC,[ZZ,,0]
28946 061700 003 04 0 00 000144 ER3 AC,T
28947 061701 312 05 0 00 070660 CAME AC+1,[0,,0]
28948 061702 004 05 0 00 000144 ER4 AC+1,T
28949 061703 321 10 0 00 061675 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28950
28951 000145 T=T+1
28952 000200 XX=XX/2
28953 134400 ZZ=ZZ-1000
28954 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
28955 DMOVE AC,[200400,,0
28956 061704 120 04 0 00 072235 XX,,0]
28957 DFAD AC,[577400,,0
28958 061705 110 04 0 00 072125 0,,0]
28959 061706 312 04 0 00 071123 CAME AC,[ZZ,,0]
28960 061707 003 04 0 00 000145 ER3 AC,T
28961 061710 312 05 0 00 070660 CAME AC+1,[0,,0]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-10
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0655
28962 061711 004 05 0 00 000145 ER4 AC+1,T
28963 061712 321 10 0 00 061704 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28964
28965 000146 T=T+1
28966 000100 XX=XX/2
28967 133400 ZZ=ZZ-1000
28968 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
28969 DMOVE AC,[200400,,0
28970 061713 120 04 0 00 072237 XX,,0]
28971 DFAD AC,[577400,,0
28972 061714 110 04 0 00 072125 0,,0]
28973 061715 312 04 0 00 071126 CAME AC,[ZZ,,0]
28974 061716 003 04 0 00 000146 ER3 AC,T
28975 061717 312 05 0 00 070660 CAME AC+1,[0,,0]
28976 061720 004 05 0 00 000146 ER4 AC+1,T
28977 061721 321 10 0 00 061713 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28978
28979 000147 T=T+1
28980 000040 XX=XX/2
28981 132400 ZZ=ZZ-1000
28982 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
28983 DMOVE AC,[200400,,0
28984 061722 120 04 0 00 072241 XX,,0]
28985 DFAD AC,[577400,,0
28986 061723 110 04 0 00 072125 0,,0]
28987 061724 312 04 0 00 071131 CAME AC,[ZZ,,0]
28988 061725 003 04 0 00 000147 ER3 AC,T
28989 061726 312 05 0 00 070660 CAME AC+1,[0,,0]
28990 061727 004 05 0 00 000147 ER4 AC+1,T
28991 061730 321 10 0 00 061722 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
28992
28993 000150 T=T+1
28994 000020 XX=XX/2
28995 131400 ZZ=ZZ-1000
28996 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
28997 DMOVE AC,[200400,,0
28998 061731 120 04 0 00 072243 XX,,0]
28999 DFAD AC,[577400,,0
29000 061732 110 04 0 00 072125 0,,0]
29001 061733 312 04 0 00 071134 CAME AC,[ZZ,,0]
29002 061734 003 04 0 00 000150 ER3 AC,T
29003 061735 312 05 0 00 070660 CAME AC+1,[0,,0]
29004 061736 004 05 0 00 000150 ER4 AC+1,T
29005 061737 321 10 0 00 061731 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29006
29007 000151 T=T+1
29008 000010 XX=XX/2
29009 130400 ZZ=ZZ-1000
29010 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
29011 DMOVE AC,[200400,,0
29012 061740 120 04 0 00 072245 XX,,0]
29013 DFAD AC,[577400,,0
29014 061741 110 04 0 00 072125 0,,0]
29015 061742 312 04 0 00 071137 CAME AC,[ZZ,,0]
29016 061743 003 04 0 00 000151 ER3 AC,T
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-11
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0656
29017 061744 312 05 0 00 070660 CAME AC+1,[0,,0]
29018 061745 004 05 0 00 000151 ER4 AC+1,T
29019 061746 321 10 0 00 061740 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29020
29021 000152 T=T+1
29022 000004 XX=XX/2
29023 127400 ZZ=ZZ-1000
29024 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
29025 DMOVE AC,[200400,,0
29026 061747 120 04 0 00 072247 XX,,0]
29027 DFAD AC,[577400,,0
29028 061750 110 04 0 00 072125 0,,0]
29029 061751 312 04 0 00 071142 CAME AC,[ZZ,,0]
29030 061752 003 04 0 00 000152 ER3 AC,T
29031 061753 312 05 0 00 070660 CAME AC+1,[0,,0]
29032 061754 004 05 0 00 000152 ER4 AC+1,T
29033 061755 321 10 0 00 061747 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29034
29035 000153 T=T+1
29036 000002 XX=XX/2
29037 126400 ZZ=ZZ-1000
29038 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
29039 DMOVE AC,[200400,,0
29040 061756 120 04 0 00 072251 XX,,0]
29041 DFAD AC,[577400,,0
29042 061757 110 04 0 00 072125 0,,0]
29043 061760 312 04 0 00 071145 CAME AC,[ZZ,,0]
29044 061761 003 04 0 00 000153 ER3 AC,T
29045 061762 312 05 0 00 070660 CAME AC+1,[0,,0]
29046 061763 004 05 0 00 000153 ER4 AC+1,T
29047 061764 321 10 0 00 061756 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29048
29049 000154 T=T+1
29050 000001 XX=XX/2
29051 125400 ZZ=ZZ-1000
29052 SDFARP T,200400,0,XX,0,577400,0,0,0,ZZ,0,0,0^
29053 DMOVE AC,[200400,,0
29054 061765 120 04 0 00 072253 XX,,0]
29055 DFAD AC,[577400,,0
29056 061766 110 04 0 00 072125 0,,0]
29057 061767 312 04 0 00 071150 CAME AC,[ZZ,,0]
29058 061770 003 04 0 00 000154 ER3 AC,T
29059 061771 312 05 0 00 070660 CAME AC+1,[0,,0]
29060 061772 004 05 0 00 000154 ER4 AC+1,T
29061 061773 321 10 0 00 061765 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29062
29063
29064 000001 000000 XX=1000000
29065
29066 REPEAT ^D18,
29067 <T=T+1
29068 XX=XX/2
29069 ZZ=ZZ-1000
29070 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0
29071 >
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-12
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0657
29072 000155 T=T+1
29073 400000 XX=XX/2
29074 124400 ZZ=ZZ-1000
29075 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
29076 DMOVE AC,[200400,,0
29077 061774 120 04 0 00 072255 0,,XX]
29078 DFAD AC,[577400,,0
29079 061775 110 04 0 00 072125 0,,0]
29080 061776 312 04 0 00 071153 CAME AC,[ZZ,,0]
29081 061777 003 04 0 00 000155 ER3 AC,T
29082 062000 312 05 0 00 070660 CAME AC+1,[0,,0]
29083 062001 004 05 0 00 000155 ER4 AC+1,T
29084 062002 321 10 0 00 061774 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29085
29086 000156 T=T+1
29087 200000 XX=XX/2
29088 123400 ZZ=ZZ-1000
29089 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
29090 DMOVE AC,[200400,,0
29091 062003 120 04 0 00 072257 0,,XX]
29092 DFAD AC,[577400,,0
29093 062004 110 04 0 00 072125 0,,0]
29094 062005 312 04 0 00 071156 CAME AC,[ZZ,,0]
29095 062006 003 04 0 00 000156 ER3 AC,T
29096 062007 312 05 0 00 070660 CAME AC+1,[0,,0]
29097 062010 004 05 0 00 000156 ER4 AC+1,T
29098 062011 321 10 0 00 062003 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29099
29100 000157 T=T+1
29101 100000 XX=XX/2
29102 122400 ZZ=ZZ-1000
29103 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
29104 DMOVE AC,[200400,,0
29105 062012 120 04 0 00 072261 0,,XX]
29106 DFAD AC,[577400,,0
29107 062013 110 04 0 00 072125 0,,0]
29108 062014 312 04 0 00 071161 CAME AC,[ZZ,,0]
29109 062015 003 04 0 00 000157 ER3 AC,T
29110 062016 312 05 0 00 070660 CAME AC+1,[0,,0]
29111 062017 004 05 0 00 000157 ER4 AC+1,T
29112 062020 321 10 0 00 062012 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29113
29114 000160 T=T+1
29115 040000 XX=XX/2
29116 121400 ZZ=ZZ-1000
29117 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
29118 DMOVE AC,[200400,,0
29119 062021 120 04 0 00 072263 0,,XX]
29120 DFAD AC,[577400,,0
29121 062022 110 04 0 00 072125 0,,0]
29122 062023 312 04 0 00 071164 CAME AC,[ZZ,,0]
29123 062024 003 04 0 00 000160 ER3 AC,T
29124 062025 312 05 0 00 070660 CAME AC+1,[0,,0]
29125 062026 004 05 0 00 000160 ER4 AC+1,T
29126 062027 321 10 0 00 062021 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-13
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0658
29127
29128 000161 T=T+1
29129 020000 XX=XX/2
29130 120400 ZZ=ZZ-1000
29131 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
29132 DMOVE AC,[200400,,0
29133 062030 120 04 0 00 072265 0,,XX]
29134 DFAD AC,[577400,,0
29135 062031 110 04 0 00 072125 0,,0]
29136 062032 312 04 0 00 071167 CAME AC,[ZZ,,0]
29137 062033 003 04 0 00 000161 ER3 AC,T
29138 062034 312 05 0 00 070660 CAME AC+1,[0,,0]
29139 062035 004 05 0 00 000161 ER4 AC+1,T
29140 062036 321 10 0 00 062030 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29141
29142 000162 T=T+1
29143 010000 XX=XX/2
29144 117400 ZZ=ZZ-1000
29145 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
29146 DMOVE AC,[200400,,0
29147 062037 120 04 0 00 072267 0,,XX]
29148 DFAD AC,[577400,,0
29149 062040 110 04 0 00 072125 0,,0]
29150 062041 312 04 0 00 071172 CAME AC,[ZZ,,0]
29151 062042 003 04 0 00 000162 ER3 AC,T
29152 062043 312 05 0 00 070660 CAME AC+1,[0,,0]
29153 062044 004 05 0 00 000162 ER4 AC+1,T
29154 062045 321 10 0 00 062037 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29155
29156 000163 T=T+1
29157 004000 XX=XX/2
29158 116400 ZZ=ZZ-1000
29159 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
29160 DMOVE AC,[200400,,0
29161 062046 120 04 0 00 072271 0,,XX]
29162 DFAD AC,[577400,,0
29163 062047 110 04 0 00 072125 0,,0]
29164 062050 312 04 0 00 071175 CAME AC,[ZZ,,0]
29165 062051 003 04 0 00 000163 ER3 AC,T
29166 062052 312 05 0 00 070660 CAME AC+1,[0,,0]
29167 062053 004 05 0 00 000163 ER4 AC+1,T
29168 062054 321 10 0 00 062046 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29169
29170 000164 T=T+1
29171 002000 XX=XX/2
29172 115400 ZZ=ZZ-1000
29173 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
29174 DMOVE AC,[200400,,0
29175 062055 120 04 0 00 072273 0,,XX]
29176 DFAD AC,[577400,,0
29177 062056 110 04 0 00 072125 0,,0]
29178 062057 312 04 0 00 071200 CAME AC,[ZZ,,0]
29179 062060 003 04 0 00 000164 ER3 AC,T
29180 062061 312 05 0 00 070660 CAME AC+1,[0,,0]
29181 062062 004 05 0 00 000164 ER4 AC+1,T
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-14
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0659
29182 062063 321 10 0 00 062055 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29183
29184 000165 T=T+1
29185 001000 XX=XX/2
29186 114400 ZZ=ZZ-1000
29187 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
29188 DMOVE AC,[200400,,0
29189 062064 120 04 0 00 072275 0,,XX]
29190 DFAD AC,[577400,,0
29191 062065 110 04 0 00 072125 0,,0]
29192 062066 312 04 0 00 071203 CAME AC,[ZZ,,0]
29193 062067 003 04 0 00 000165 ER3 AC,T
29194 062070 312 05 0 00 070660 CAME AC+1,[0,,0]
29195 062071 004 05 0 00 000165 ER4 AC+1,T
29196 062072 321 10 0 00 062064 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29197
29198 000166 T=T+1
29199 000400 XX=XX/2
29200 113400 ZZ=ZZ-1000
29201 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
29202 DMOVE AC,[200400,,0
29203 062073 120 04 0 00 072277 0,,XX]
29204 DFAD AC,[577400,,0
29205 062074 110 04 0 00 072125 0,,0]
29206 062075 312 04 0 00 071206 CAME AC,[ZZ,,0]
29207 062076 003 04 0 00 000166 ER3 AC,T
29208 062077 312 05 0 00 070660 CAME AC+1,[0,,0]
29209 062100 004 05 0 00 000166 ER4 AC+1,T
29210 062101 321 10 0 00 062073 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29211
29212 000167 T=T+1
29213 000200 XX=XX/2
29214 112400 ZZ=ZZ-1000
29215 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
29216 DMOVE AC,[200400,,0
29217 062102 120 04 0 00 072301 0,,XX]
29218 DFAD AC,[577400,,0
29219 062103 110 04 0 00 072125 0,,0]
29220 062104 312 04 0 00 071211 CAME AC,[ZZ,,0]
29221 062105 003 04 0 00 000167 ER3 AC,T
29222 062106 312 05 0 00 070660 CAME AC+1,[0,,0]
29223 062107 004 05 0 00 000167 ER4 AC+1,T
29224 062110 321 10 0 00 062102 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29225
29226 000170 T=T+1
29227 000100 XX=XX/2
29228 111400 ZZ=ZZ-1000
29229 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
29230 DMOVE AC,[200400,,0
29231 062111 120 04 0 00 072303 0,,XX]
29232 DFAD AC,[577400,,0
29233 062112 110 04 0 00 072125 0,,0]
29234 062113 312 04 0 00 071214 CAME AC,[ZZ,,0]
29235 062114 003 04 0 00 000170 ER3 AC,T
29236 062115 312 05 0 00 070660 CAME AC+1,[0,,0]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-15
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0660
29237 062116 004 05 0 00 000170 ER4 AC+1,T
29238 062117 321 10 0 00 062111 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29239
29240 000171 T=T+1
29241 000040 XX=XX/2
29242 110400 ZZ=ZZ-1000
29243 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
29244 DMOVE AC,[200400,,0
29245 062120 120 04 0 00 072305 0,,XX]
29246 DFAD AC,[577400,,0
29247 062121 110 04 0 00 072125 0,,0]
29248 062122 312 04 0 00 071217 CAME AC,[ZZ,,0]
29249 062123 003 04 0 00 000171 ER3 AC,T
29250 062124 312 05 0 00 070660 CAME AC+1,[0,,0]
29251 062125 004 05 0 00 000171 ER4 AC+1,T
29252 062126 321 10 0 00 062120 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29253
29254 000172 T=T+1
29255 000020 XX=XX/2
29256 107400 ZZ=ZZ-1000
29257 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
29258 DMOVE AC,[200400,,0
29259 062127 120 04 0 00 072307 0,,XX]
29260 DFAD AC,[577400,,0
29261 062130 110 04 0 00 072125 0,,0]
29262 062131 312 04 0 00 071222 CAME AC,[ZZ,,0]
29263 062132 003 04 0 00 000172 ER3 AC,T
29264 062133 312 05 0 00 070660 CAME AC+1,[0,,0]
29265 062134 004 05 0 00 000172 ER4 AC+1,T
29266 062135 321 10 0 00 062127 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29267
29268 000173 T=T+1
29269 000010 XX=XX/2
29270 106400 ZZ=ZZ-1000
29271 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
29272 DMOVE AC,[200400,,0
29273 062136 120 04 0 00 072311 0,,XX]
29274 DFAD AC,[577400,,0
29275 062137 110 04 0 00 072125 0,,0]
29276 062140 312 04 0 00 071225 CAME AC,[ZZ,,0]
29277 062141 003 04 0 00 000173 ER3 AC,T
29278 062142 312 05 0 00 070660 CAME AC+1,[0,,0]
29279 062143 004 05 0 00 000173 ER4 AC+1,T
29280 062144 321 10 0 00 062136 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29281
29282 000174 T=T+1
29283 000004 XX=XX/2
29284 105400 ZZ=ZZ-1000
29285 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
29286 DMOVE AC,[200400,,0
29287 062145 120 04 0 00 072313 0,,XX]
29288 DFAD AC,[577400,,0
29289 062146 110 04 0 00 072125 0,,0]
29290 062147 312 04 0 00 071230 CAME AC,[ZZ,,0]
29291 062150 003 04 0 00 000174 ER3 AC,T
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2-16
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0661
29292 062151 312 05 0 00 070660 CAME AC+1,[0,,0]
29293 062152 004 05 0 00 000174 ER4 AC+1,T
29294 062153 321 10 0 00 062145 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29295
29296 000175 T=T+1
29297 000002 XX=XX/2
29298 104400 ZZ=ZZ-1000
29299 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
29300 DMOVE AC,[200400,,0
29301 062154 120 04 0 00 072315 0,,XX]
29302 DFAD AC,[577400,,0
29303 062155 110 04 0 00 072125 0,,0]
29304 062156 312 04 0 00 071233 CAME AC,[ZZ,,0]
29305 062157 003 04 0 00 000175 ER3 AC,T
29306 062160 312 05 0 00 070660 CAME AC+1,[0,,0]
29307 062161 004 05 0 00 000175 ER4 AC+1,T
29308 062162 321 10 0 00 062154 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29309
29310 000176 T=T+1
29311 000001 XX=XX/2
29312 103400 ZZ=ZZ-1000
29313 SDFARP T,200400,0,0,XX,577400,0,0,0,ZZ,0,0,0^
29314 DMOVE AC,[200400,,0
29315 062163 120 04 0 00 072317 0,,XX]
29316 DFAD AC,[577400,,0
29317 062164 110 04 0 00 072125 0,,0]
29318 062165 312 04 0 00 071236 CAME AC,[ZZ,,0]
29319 062166 003 04 0 00 000176 ER3 AC,T
29320 062167 312 05 0 00 070660 CAME AC+1,[0,,0]
29321 062170 004 05 0 00 000176 ER4 AC+1,T
29322 062171 321 10 0 00 062163 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29323
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0662
29324 000200 T=200
29325 776777 XX=776777
29326 577377 YY=577377
29327 000000 ZZ=0
29328
29329 S200: REPEAT ^D9,
29330 <T=T+1
29331 XX=<XX-1>/2
29332 YY=YY+1000
29333 ZZ=ZZ+ZZ
29334 IFE ZZ,<ZZ=-1>
29335 SDFARP T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ
29336 >
29337 000201 T=T+1
29338 377377 XX=<XX-1>/2
29339 600377 YY=YY+1000
29340 000000 ZZ=ZZ+ZZ
29341 777777 777777 IFE ZZ,<ZZ=-1>
29342 SDFARP T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
29343 DMOVE AC,[600000+XX&777,,-1
29344 062172 120 04 0 00 072321 -1,,-1]
29345 DFAD AC,[0,,0
29346 062173 110 04 0 00 070663 0,,0]
29347 062174 312 04 0 00 072321 CAME AC,[YY,,-1]
29348 062175 003 04 0 00 000201 ER3 AC,T
29349 062176 312 05 0 00 071241 CAME AC+1,[377777,,ZZ]
29350 062177 004 05 0 00 000201 ER4 AC+1,T
29351 062200 321 10 0 00 062172 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29352
29353 000202 T=T+1
29354 177577 XX=<XX-1>/2
29355 601377 YY=YY+1000
29356 777777 777776 ZZ=ZZ+ZZ
29357 IFE ZZ,<ZZ=-1>
29358 SDFARP T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
29359 DMOVE AC,[600000+XX&777,,-1
29360 062201 120 04 0 00 072323 -1,,-1]
29361 DFAD AC,[0,,0
29362 062202 110 04 0 00 070663 0,,0]
29363 062203 312 04 0 00 072325 CAME AC,[YY,,-1]
29364 062204 003 04 0 00 000202 ER3 AC,T
29365 062205 312 05 0 00 071244 CAME AC+1,[377777,,ZZ]
29366 062206 004 05 0 00 000202 ER4 AC+1,T
29367 062207 321 10 0 00 062201 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29368
29369 000203 T=T+1
29370 077677 XX=<XX-1>/2
29371 602377 YY=YY+1000
29372 777777 777774 ZZ=ZZ+ZZ
29373 IFE ZZ,<ZZ=-1>
29374 SDFARP T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
29375 DMOVE AC,[600000+XX&777,,-1
29376 062210 120 04 0 00 072326 -1,,-1]
29377 DFAD AC,[0,,0
29378 062211 110 04 0 00 070663 0,,0]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-1
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0663
29379 062212 312 04 0 00 072330 CAME AC,[YY,,-1]
29380 062213 003 04 0 00 000203 ER3 AC,T
29381 062214 312 05 0 00 072331 CAME AC+1,[377777,,ZZ]
29382 062215 004 05 0 00 000203 ER4 AC+1,T
29383 062216 321 10 0 00 062210 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29384
29385 000204 T=T+1
29386 037737 XX=<XX-1>/2
29387 603377 YY=YY+1000
29388 777777 777770 ZZ=ZZ+ZZ
29389 IFE ZZ,<ZZ=-1>
29390 SDFARP T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
29391 DMOVE AC,[600000+XX&777,,-1
29392 062217 120 04 0 00 072332 -1,,-1]
29393 DFAD AC,[0,,0
29394 062220 110 04 0 00 070663 0,,0]
29395 062221 312 04 0 00 072334 CAME AC,[YY,,-1]
29396 062222 003 04 0 00 000204 ER3 AC,T
29397 062223 312 05 0 00 072335 CAME AC+1,[377777,,ZZ]
29398 062224 004 05 0 00 000204 ER4 AC+1,T
29399 062225 321 10 0 00 062217 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29400
29401 000205 T=T+1
29402 017757 XX=<XX-1>/2
29403 604377 YY=YY+1000
29404 777777 777760 ZZ=ZZ+ZZ
29405 IFE ZZ,<ZZ=-1>
29406 SDFARP T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
29407 DMOVE AC,[600000+XX&777,,-1
29408 062226 120 04 0 00 072336 -1,,-1]
29409 DFAD AC,[0,,0
29410 062227 110 04 0 00 070663 0,,0]
29411 062230 312 04 0 00 072340 CAME AC,[YY,,-1]
29412 062231 003 04 0 00 000205 ER3 AC,T
29413 062232 312 05 0 00 072341 CAME AC+1,[377777,,ZZ]
29414 062233 004 05 0 00 000205 ER4 AC+1,T
29415 062234 321 10 0 00 062226 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29416
29417 000206 T=T+1
29418 007767 XX=<XX-1>/2
29419 605377 YY=YY+1000
29420 777777 777740 ZZ=ZZ+ZZ
29421 IFE ZZ,<ZZ=-1>
29422 SDFARP T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
29423 DMOVE AC,[600000+XX&777,,-1
29424 062235 120 04 0 00 072342 -1,,-1]
29425 DFAD AC,[0,,0
29426 062236 110 04 0 00 070663 0,,0]
29427 062237 312 04 0 00 072344 CAME AC,[YY,,-1]
29428 062240 003 04 0 00 000206 ER3 AC,T
29429 062241 312 05 0 00 072345 CAME AC+1,[377777,,ZZ]
29430 062242 004 05 0 00 000206 ER4 AC+1,T
29431 062243 321 10 0 00 062235 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29432
29433 000207 T=T+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-2
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0664
29434 003773 XX=<XX-1>/2
29435 606377 YY=YY+1000
29436 777777 777700 ZZ=ZZ+ZZ
29437 IFE ZZ,<ZZ=-1>
29438 SDFARP T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
29439 DMOVE AC,[600000+XX&777,,-1
29440 062244 120 04 0 00 072346 -1,,-1]
29441 DFAD AC,[0,,0
29442 062245 110 04 0 00 070663 0,,0]
29443 062246 312 04 0 00 072350 CAME AC,[YY,,-1]
29444 062247 003 04 0 00 000207 ER3 AC,T
29445 062250 312 05 0 00 072351 CAME AC+1,[377777,,ZZ]
29446 062251 004 05 0 00 000207 ER4 AC+1,T
29447 062252 321 10 0 00 062244 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29448
29449 000210 T=T+1
29450 001775 XX=<XX-1>/2
29451 607377 YY=YY+1000
29452 777777 777600 ZZ=ZZ+ZZ
29453 IFE ZZ,<ZZ=-1>
29454 SDFARP T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
29455 DMOVE AC,[600000+XX&777,,-1
29456 062253 120 04 0 00 072352 -1,,-1]
29457 DFAD AC,[0,,0
29458 062254 110 04 0 00 070663 0,,0]
29459 062255 312 04 0 00 072354 CAME AC,[YY,,-1]
29460 062256 003 04 0 00 000210 ER3 AC,T
29461 062257 312 05 0 00 072355 CAME AC+1,[377777,,ZZ]
29462 062260 004 05 0 00 000210 ER4 AC+1,T
29463 062261 321 10 0 00 062253 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29464
29465 000211 T=T+1
29466 000776 XX=<XX-1>/2
29467 610377 YY=YY+1000
29468 777777 777400 ZZ=ZZ+ZZ
29469 IFE ZZ,<ZZ=-1>
29470 SDFARP T,600000+XX&777,-1,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
29471 DMOVE AC,[600000+XX&777,,-1
29472 062262 120 04 0 00 072356 -1,,-1]
29473 DFAD AC,[0,,0
29474 062263 110 04 0 00 070663 0,,0]
29475 062264 312 04 0 00 072360 CAME AC,[YY,,-1]
29476 062265 003 04 0 00 000211 ER3 AC,T
29477 062266 312 05 0 00 072361 CAME AC+1,[377777,,ZZ]
29478 062267 004 05 0 00 000211 ER4 AC+1,T
29479 062270 321 10 0 00 062262 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29480
29481
29482 777776 777777 XX=777776777777
29483
29484 REPEAT ^D10,
29485 <T=T+1
29486 XX=<XX-1>/2
29487 YY=YY+1000
29488 ZZ=ZZ+ZZ
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-3
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0665
29489 SDFARP T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ
29490 >
29491 000212 T=T+1
29492 777777 377777 XX=<XX-1>/2
29493 611377 YY=YY+1000
29494 777777 777000 ZZ=ZZ+ZZ
29495 SDFARP T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
29496 DMOVE AC,[600777,,XX&777777
29497 062271 120 04 0 00 072362 -1,,-1]
29498 DFAD AC,[0,,0
29499 062272 110 04 0 00 070663 0,,0]
29500 062273 312 04 0 00 072364 CAME AC,[YY,,-1]
29501 062274 003 04 0 00 000212 ER3 AC,T
29502 062275 312 05 0 00 072365 CAME AC+1,[377777,,ZZ]
29503 062276 004 05 0 00 000212 ER4 AC+1,T
29504 062277 321 10 0 00 062271 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29505
29506 000213 T=T+1
29507 777777 577777 XX=<XX-1>/2
29508 612377 YY=YY+1000
29509 777777 776000 ZZ=ZZ+ZZ
29510 SDFARP T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
29511 DMOVE AC,[600777,,XX&777777
29512 062300 120 04 0 00 072366 -1,,-1]
29513 DFAD AC,[0,,0
29514 062301 110 04 0 00 070663 0,,0]
29515 062302 312 04 0 00 072370 CAME AC,[YY,,-1]
29516 062303 003 04 0 00 000213 ER3 AC,T
29517 062304 312 05 0 00 072371 CAME AC+1,[377777,,ZZ]
29518 062305 004 05 0 00 000213 ER4 AC+1,T
29519 062306 321 10 0 00 062300 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29520
29521 000214 T=T+1
29522 777777 677777 XX=<XX-1>/2
29523 613377 YY=YY+1000
29524 777777 774000 ZZ=ZZ+ZZ
29525 SDFARP T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
29526 DMOVE AC,[600777,,XX&777777
29527 062307 120 04 0 00 072372 -1,,-1]
29528 DFAD AC,[0,,0
29529 062310 110 04 0 00 070663 0,,0]
29530 062311 312 04 0 00 072374 CAME AC,[YY,,-1]
29531 062312 003 04 0 00 000214 ER3 AC,T
29532 062313 312 05 0 00 072375 CAME AC+1,[377777,,ZZ]
29533 062314 004 05 0 00 000214 ER4 AC+1,T
29534 062315 321 10 0 00 062307 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29535
29536 000215 T=T+1
29537 777777 737777 XX=<XX-1>/2
29538 614377 YY=YY+1000
29539 777777 770000 ZZ=ZZ+ZZ
29540 SDFARP T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
29541 DMOVE AC,[600777,,XX&777777
29542 062316 120 04 0 00 072376 -1,,-1]
29543 DFAD AC,[0,,0
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-4
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0666
29544 062317 110 04 0 00 070663 0,,0]
29545 062320 312 04 0 00 072400 CAME AC,[YY,,-1]
29546 062321 003 04 0 00 000215 ER3 AC,T
29547 062322 312 05 0 00 072401 CAME AC+1,[377777,,ZZ]
29548 062323 004 05 0 00 000215 ER4 AC+1,T
29549 062324 321 10 0 00 062316 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29550
29551 000216 T=T+1
29552 777777 757777 XX=<XX-1>/2
29553 615377 YY=YY+1000
29554 777777 760000 ZZ=ZZ+ZZ
29555 SDFARP T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
29556 DMOVE AC,[600777,,XX&777777
29557 062325 120 04 0 00 072402 -1,,-1]
29558 DFAD AC,[0,,0
29559 062326 110 04 0 00 070663 0,,0]
29560 062327 312 04 0 00 072404 CAME AC,[YY,,-1]
29561 062330 003 04 0 00 000216 ER3 AC,T
29562 062331 312 05 0 00 072405 CAME AC+1,[377777,,ZZ]
29563 062332 004 05 0 00 000216 ER4 AC+1,T
29564 062333 321 10 0 00 062325 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29565
29566 000217 T=T+1
29567 777777 767777 XX=<XX-1>/2
29568 616377 YY=YY+1000
29569 777777 740000 ZZ=ZZ+ZZ
29570 SDFARP T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
29571 DMOVE AC,[600777,,XX&777777
29572 062334 120 04 0 00 072406 -1,,-1]
29573 DFAD AC,[0,,0
29574 062335 110 04 0 00 070663 0,,0]
29575 062336 312 04 0 00 072410 CAME AC,[YY,,-1]
29576 062337 003 04 0 00 000217 ER3 AC,T
29577 062340 312 05 0 00 072411 CAME AC+1,[377777,,ZZ]
29578 062341 004 05 0 00 000217 ER4 AC+1,T
29579 062342 321 10 0 00 062334 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29580
29581 000220 T=T+1
29582 777777 773777 XX=<XX-1>/2
29583 617377 YY=YY+1000
29584 777777 700000 ZZ=ZZ+ZZ
29585 SDFARP T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
29586 DMOVE AC,[600777,,XX&777777
29587 062343 120 04 0 00 072412 -1,,-1]
29588 DFAD AC,[0,,0
29589 062344 110 04 0 00 070663 0,,0]
29590 062345 312 04 0 00 072414 CAME AC,[YY,,-1]
29591 062346 003 04 0 00 000220 ER3 AC,T
29592 062347 312 05 0 00 072415 CAME AC+1,[377777,,ZZ]
29593 062350 004 05 0 00 000220 ER4 AC+1,T
29594 062351 321 10 0 00 062343 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29595
29596 000221 T=T+1
29597 777777 775777 XX=<XX-1>/2
29598 620377 YY=YY+1000
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-5
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0667
29599 777777 600000 ZZ=ZZ+ZZ
29600 SDFARP T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
29601 DMOVE AC,[600777,,XX&777777
29602 062352 120 04 0 00 072416 -1,,-1]
29603 DFAD AC,[0,,0
29604 062353 110 04 0 00 070663 0,,0]
29605 062354 312 04 0 00 072420 CAME AC,[YY,,-1]
29606 062355 003 04 0 00 000221 ER3 AC,T
29607 062356 312 05 0 00 072421 CAME AC+1,[377777,,ZZ]
29608 062357 004 05 0 00 000221 ER4 AC+1,T
29609 062360 321 10 0 00 062352 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29610
29611 000222 T=T+1
29612 777777 776777 XX=<XX-1>/2
29613 621377 YY=YY+1000
29614 777777 400000 ZZ=ZZ+ZZ
29615 SDFARP T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
29616 DMOVE AC,[600777,,XX&777777
29617 062361 120 04 0 00 072422 -1,,-1]
29618 DFAD AC,[0,,0
29619 062362 110 04 0 00 070663 0,,0]
29620 062363 312 04 0 00 072424 CAME AC,[YY,,-1]
29621 062364 003 04 0 00 000222 ER3 AC,T
29622 062365 312 05 0 00 072425 CAME AC+1,[377777,,ZZ]
29623 062366 004 05 0 00 000222 ER4 AC+1,T
29624 062367 321 10 0 00 062361 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29625
29626 000223 T=T+1
29627 777777 777377 XX=<XX-1>/2
29628 622377 YY=YY+1000
29629 777777 000000 ZZ=ZZ+ZZ
29630 SDFARP T,600777,XX&777777,-1,-1,0,0,0,0,YY,-1,377777,ZZ^
29631 DMOVE AC,[600777,,XX&777777
29632 062370 120 04 0 00 072426 -1,,-1]
29633 DFAD AC,[0,,0
29634 062371 110 04 0 00 070663 0,,0]
29635 062372 312 04 0 00 072430 CAME AC,[YY,,-1]
29636 062373 003 04 0 00 000223 ER3 AC,T
29637 062374 312 05 0 00 072431 CAME AC+1,[377777,,ZZ]
29638 062375 004 05 0 00 000223 ER4 AC+1,T
29639 062376 321 10 0 00 062370 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29640
29641
29642 777777 777777 ZZ=-1
29643
29644 REPEAT ^D8,
29645 <T=T+1
29646 XX=<XX-1>/2
29647 YY=YY+1000
29648 ZZ=ZZ+ZZ
29649 SDFARP T,600777,XX,-1,-1,0,0,0,0,YY,-1,ZZ&377777,0
29650 >
29651 000224 T=T+1
29652 777777 777577 XX=<XX-1>/2
29653 623377 YY=YY+1000
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-6
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0668
29654 777777 777776 ZZ=ZZ+ZZ
29655 SDFARP T,600777,XX,-1,-1,0,0,0,0,YY,-1,ZZ&377777,0^
29656 DMOVE AC,[600777,,XX
29657 062377 120 04 0 00 072432 -1,,-1]
29658 DFAD AC,[0,,0
29659 062400 110 04 0 00 070663 0,,0]
29660 062401 312 04 0 00 072434 CAME AC,[YY,,-1]
29661 062402 003 04 0 00 000224 ER3 AC,T
29662 062403 312 05 0 00 072435 CAME AC+1,[ZZ&377777,,0]
29663 062404 004 05 0 00 000224 ER4 AC+1,T
29664 062405 321 10 0 00 062377 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29665
29666 000225 T=T+1
29667 777777 777677 XX=<XX-1>/2
29668 624377 YY=YY+1000
29669 777777 777774 ZZ=ZZ+ZZ
29670 SDFARP T,600777,XX,-1,-1,0,0,0,0,YY,-1,ZZ&377777,0^
29671 DMOVE AC,[600777,,XX
29672 062406 120 04 0 00 072436 -1,,-1]
29673 DFAD AC,[0,,0
29674 062407 110 04 0 00 070663 0,,0]
29675 062410 312 04 0 00 072440 CAME AC,[YY,,-1]
29676 062411 003 04 0 00 000225 ER3 AC,T
29677 062412 312 05 0 00 072441 CAME AC+1,[ZZ&377777,,0]
29678 062413 004 05 0 00 000225 ER4 AC+1,T
29679 062414 321 10 0 00 062406 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29680
29681 000226 T=T+1
29682 777777 777737 XX=<XX-1>/2
29683 625377 YY=YY+1000
29684 777777 777770 ZZ=ZZ+ZZ
29685 SDFARP T,600777,XX,-1,-1,0,0,0,0,YY,-1,ZZ&377777,0^
29686 DMOVE AC,[600777,,XX
29687 062415 120 04 0 00 072442 -1,,-1]
29688 DFAD AC,[0,,0
29689 062416 110 04 0 00 070663 0,,0]
29690 062417 312 04 0 00 072444 CAME AC,[YY,,-1]
29691 062420 003 04 0 00 000226 ER3 AC,T
29692 062421 312 05 0 00 072445 CAME AC+1,[ZZ&377777,,0]
29693 062422 004 05 0 00 000226 ER4 AC+1,T
29694 062423 321 10 0 00 062415 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29695
29696 000227 T=T+1
29697 777777 777757 XX=<XX-1>/2
29698 626377 YY=YY+1000
29699 777777 777760 ZZ=ZZ+ZZ
29700 SDFARP T,600777,XX,-1,-1,0,0,0,0,YY,-1,ZZ&377777,0^
29701 DMOVE AC,[600777,,XX
29702 062424 120 04 0 00 072446 -1,,-1]
29703 DFAD AC,[0,,0
29704 062425 110 04 0 00 070663 0,,0]
29705 062426 312 04 0 00 072450 CAME AC,[YY,,-1]
29706 062427 003 04 0 00 000227 ER3 AC,T
29707 062430 312 05 0 00 072451 CAME AC+1,[ZZ&377777,,0]
29708 062431 004 05 0 00 000227 ER4 AC+1,T
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-7
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0669
29709 062432 321 10 0 00 062424 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29710
29711 000230 T=T+1
29712 777777 777767 XX=<XX-1>/2
29713 627377 YY=YY+1000
29714 777777 777740 ZZ=ZZ+ZZ
29715 SDFARP T,600777,XX,-1,-1,0,0,0,0,YY,-1,ZZ&377777,0^
29716 DMOVE AC,[600777,,XX
29717 062433 120 04 0 00 072452 -1,,-1]
29718 DFAD AC,[0,,0
29719 062434 110 04 0 00 070663 0,,0]
29720 062435 312 04 0 00 072454 CAME AC,[YY,,-1]
29721 062436 003 04 0 00 000230 ER3 AC,T
29722 062437 312 05 0 00 072455 CAME AC+1,[ZZ&377777,,0]
29723 062440 004 05 0 00 000230 ER4 AC+1,T
29724 062441 321 10 0 00 062433 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29725
29726 000231 T=T+1
29727 777777 777773 XX=<XX-1>/2
29728 630377 YY=YY+1000
29729 777777 777700 ZZ=ZZ+ZZ
29730 SDFARP T,600777,XX,-1,-1,0,0,0,0,YY,-1,ZZ&377777,0^
29731 DMOVE AC,[600777,,XX
29732 062442 120 04 0 00 072456 -1,,-1]
29733 DFAD AC,[0,,0
29734 062443 110 04 0 00 070663 0,,0]
29735 062444 312 04 0 00 072460 CAME AC,[YY,,-1]
29736 062445 003 04 0 00 000231 ER3 AC,T
29737 062446 312 05 0 00 072461 CAME AC+1,[ZZ&377777,,0]
29738 062447 004 05 0 00 000231 ER4 AC+1,T
29739 062450 321 10 0 00 062442 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29740
29741 000232 T=T+1
29742 777777 777775 XX=<XX-1>/2
29743 631377 YY=YY+1000
29744 777777 777600 ZZ=ZZ+ZZ
29745 SDFARP T,600777,XX,-1,-1,0,0,0,0,YY,-1,ZZ&377777,0^
29746 DMOVE AC,[600777,,XX
29747 062451 120 04 0 00 072462 -1,,-1]
29748 DFAD AC,[0,,0
29749 062452 110 04 0 00 070663 0,,0]
29750 062453 312 04 0 00 072464 CAME AC,[YY,,-1]
29751 062454 003 04 0 00 000232 ER3 AC,T
29752 062455 312 05 0 00 072465 CAME AC+1,[ZZ&377777,,0]
29753 062456 004 05 0 00 000232 ER4 AC+1,T
29754 062457 321 10 0 00 062451 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29755
29756 000233 T=T+1
29757 777777 777776 XX=<XX-1>/2
29758 632377 YY=YY+1000
29759 777777 777400 ZZ=ZZ+ZZ
29760 SDFARP T,600777,XX,-1,-1,0,0,0,0,YY,-1,ZZ&377777,0^
29761 DMOVE AC,[600777,,XX
29762 062460 120 04 0 00 072466 -1,,-1]
29763 DFAD AC,[0,,0
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3-8
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0670
29764 062461 110 04 0 00 070663 0,,0]
29765 062462 312 04 0 00 072470 CAME AC,[YY,,-1]
29766 062463 003 04 0 00 000233 ER3 AC,T
29767 062464 312 05 0 00 072471 CAME AC+1,[ZZ&377777,,0]
29768 062465 004 05 0 00 000233 ER4 AC+1,T
29769 062466 321 10 0 00 062460 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29770
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0671
29771 777777 377777 XX=777777377777
29772
29773 REPEAT ^D9,
29774 <T=T+1
29775 XX=<XX-1>/2
29776 YY=YY+1000
29777 ZZ=ZZ+ZZ
29778 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0
29779 >
29780 000234 T=T+1
29781 777777 577777 XX=<XX-1>/2
29782 633377 YY=YY+1000
29783 777777 777000 ZZ=ZZ+ZZ
29784 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0^
29785 DMOVE AC,[600777,,-1
29786 062467 120 04 0 00 072472 XX,,-1]
29787 DFAD AC,[0,,0
29788 062470 110 04 0 00 070663 0,,0]
29789 062471 312 04 0 00 072474 CAME AC,[YY,,-1]
29790 062472 003 04 0 00 000234 ER3 AC,T
29791 062473 312 05 0 00 072475 CAME AC+1,[ZZ&377777,,0]
29792 062474 004 05 0 00 000234 ER4 AC+1,T
29793 062475 321 10 0 00 062467 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29794
29795 000235 T=T+1
29796 777777 677777 XX=<XX-1>/2
29797 634377 YY=YY+1000
29798 777777 776000 ZZ=ZZ+ZZ
29799 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0^
29800 DMOVE AC,[600777,,-1
29801 062476 120 04 0 00 072476 XX,,-1]
29802 DFAD AC,[0,,0
29803 062477 110 04 0 00 070663 0,,0]
29804 062500 312 04 0 00 072500 CAME AC,[YY,,-1]
29805 062501 003 04 0 00 000235 ER3 AC,T
29806 062502 312 05 0 00 072501 CAME AC+1,[ZZ&377777,,0]
29807 062503 004 05 0 00 000235 ER4 AC+1,T
29808 062504 321 10 0 00 062476 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29809
29810 000236 T=T+1
29811 777777 737777 XX=<XX-1>/2
29812 635377 YY=YY+1000
29813 777777 774000 ZZ=ZZ+ZZ
29814 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0^
29815 DMOVE AC,[600777,,-1
29816 062505 120 04 0 00 072502 XX,,-1]
29817 DFAD AC,[0,,0
29818 062506 110 04 0 00 070663 0,,0]
29819 062507 312 04 0 00 072504 CAME AC,[YY,,-1]
29820 062510 003 04 0 00 000236 ER3 AC,T
29821 062511 312 05 0 00 072505 CAME AC+1,[ZZ&377777,,0]
29822 062512 004 05 0 00 000236 ER4 AC+1,T
29823 062513 321 10 0 00 062505 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29824
29825 000237 T=T+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-1
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0672
29826 777777 757777 XX=<XX-1>/2
29827 636377 YY=YY+1000
29828 777777 770000 ZZ=ZZ+ZZ
29829 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0^
29830 DMOVE AC,[600777,,-1
29831 062514 120 04 0 00 072506 XX,,-1]
29832 DFAD AC,[0,,0
29833 062515 110 04 0 00 070663 0,,0]
29834 062516 312 04 0 00 072510 CAME AC,[YY,,-1]
29835 062517 003 04 0 00 000237 ER3 AC,T
29836 062520 312 05 0 00 072511 CAME AC+1,[ZZ&377777,,0]
29837 062521 004 05 0 00 000237 ER4 AC+1,T
29838 062522 321 10 0 00 062514 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29839
29840 000240 T=T+1
29841 777777 767777 XX=<XX-1>/2
29842 637377 YY=YY+1000
29843 777777 760000 ZZ=ZZ+ZZ
29844 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0^
29845 DMOVE AC,[600777,,-1
29846 062523 120 04 0 00 072512 XX,,-1]
29847 DFAD AC,[0,,0
29848 062524 110 04 0 00 070663 0,,0]
29849 062525 312 04 0 00 072514 CAME AC,[YY,,-1]
29850 062526 003 04 0 00 000240 ER3 AC,T
29851 062527 312 05 0 00 072515 CAME AC+1,[ZZ&377777,,0]
29852 062530 004 05 0 00 000240 ER4 AC+1,T
29853 062531 321 10 0 00 062523 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29854
29855 000241 T=T+1
29856 777777 773777 XX=<XX-1>/2
29857 640377 YY=YY+1000
29858 777777 740000 ZZ=ZZ+ZZ
29859 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0^
29860 DMOVE AC,[600777,,-1
29861 062532 120 04 0 00 072516 XX,,-1]
29862 DFAD AC,[0,,0
29863 062533 110 04 0 00 070663 0,,0]
29864 062534 312 04 0 00 072520 CAME AC,[YY,,-1]
29865 062535 003 04 0 00 000241 ER3 AC,T
29866 062536 312 05 0 00 072521 CAME AC+1,[ZZ&377777,,0]
29867 062537 004 05 0 00 000241 ER4 AC+1,T
29868 062540 321 10 0 00 062532 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29869
29870 000242 T=T+1
29871 777777 775777 XX=<XX-1>/2
29872 641377 YY=YY+1000
29873 777777 700000 ZZ=ZZ+ZZ
29874 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0^
29875 DMOVE AC,[600777,,-1
29876 062541 120 04 0 00 072522 XX,,-1]
29877 DFAD AC,[0,,0
29878 062542 110 04 0 00 070663 0,,0]
29879 062543 312 04 0 00 072524 CAME AC,[YY,,-1]
29880 062544 003 04 0 00 000242 ER3 AC,T
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-2
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0673
29881 062545 312 05 0 00 072525 CAME AC+1,[ZZ&377777,,0]
29882 062546 004 05 0 00 000242 ER4 AC+1,T
29883 062547 321 10 0 00 062541 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29884
29885 000243 T=T+1
29886 777777 776777 XX=<XX-1>/2
29887 642377 YY=YY+1000
29888 777777 600000 ZZ=ZZ+ZZ
29889 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0^
29890 DMOVE AC,[600777,,-1
29891 062550 120 04 0 00 072526 XX,,-1]
29892 DFAD AC,[0,,0
29893 062551 110 04 0 00 070663 0,,0]
29894 062552 312 04 0 00 072530 CAME AC,[YY,,-1]
29895 062553 003 04 0 00 000243 ER3 AC,T
29896 062554 312 05 0 00 070743 CAME AC+1,[ZZ&377777,,0]
29897 062555 004 05 0 00 000243 ER4 AC+1,T
29898 062556 321 10 0 00 062550 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29899
29900 000244 T=T+1
29901 777777 777377 XX=<XX-1>/2
29902 643377 YY=YY+1000
29903 777777 400000 ZZ=ZZ+ZZ
29904 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,-1,ZZ&377777,0^
29905 DMOVE AC,[600777,,-1
29906 062557 120 04 0 00 072531 XX,,-1]
29907 DFAD AC,[0,,0
29908 062560 110 04 0 00 070663 0,,0]
29909 062561 312 04 0 00 072533 CAME AC,[YY,,-1]
29910 062562 003 04 0 00 000244 ER3 AC,T
29911 062563 312 05 0 00 070660 CAME AC+1,[ZZ&377777,,0]
29912 062564 004 05 0 00 000244 ER4 AC+1,T
29913 062565 321 10 0 00 062557 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29914
29915
29916 777777 777777 ZZ=-1
29917
29918 REPEAT ^D8,
29919 <T=T+1
29920 XX=<XX-1>/2
29921 YY=YY+1000
29922 ZZ=ZZ+ZZ
29923 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,ZZ,0,0
29924 >
29925 000245 T=T+1
29926 777777 777577 XX=<XX-1>/2
29927 644377 YY=YY+1000
29928 777777 777776 ZZ=ZZ+ZZ
29929 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,ZZ,0,0^
29930 DMOVE AC,[600777,,-1
29931 062566 120 04 0 00 072534 XX,,-1]
29932 DFAD AC,[0,,0
29933 062567 110 04 0 00 070663 0,,0]
29934 062570 312 04 0 00 072536 CAME AC,[YY,,ZZ]
29935 062571 003 04 0 00 000245 ER3 AC,T
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-3
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0674
29936 062572 312 05 0 00 070660 CAME AC+1,[0,,0]
29937 062573 004 05 0 00 000245 ER4 AC+1,T
29938 062574 321 10 0 00 062566 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29939
29940 000246 T=T+1
29941 777777 777677 XX=<XX-1>/2
29942 645377 YY=YY+1000
29943 777777 777774 ZZ=ZZ+ZZ
29944 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,ZZ,0,0^
29945 DMOVE AC,[600777,,-1
29946 062575 120 04 0 00 072537 XX,,-1]
29947 DFAD AC,[0,,0
29948 062576 110 04 0 00 070663 0,,0]
29949 062577 312 04 0 00 072541 CAME AC,[YY,,ZZ]
29950 062600 003 04 0 00 000246 ER3 AC,T
29951 062601 312 05 0 00 070660 CAME AC+1,[0,,0]
29952 062602 004 05 0 00 000246 ER4 AC+1,T
29953 062603 321 10 0 00 062575 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29954
29955 000247 T=T+1
29956 777777 777737 XX=<XX-1>/2
29957 646377 YY=YY+1000
29958 777777 777770 ZZ=ZZ+ZZ
29959 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,ZZ,0,0^
29960 DMOVE AC,[600777,,-1
29961 062604 120 04 0 00 072542 XX,,-1]
29962 DFAD AC,[0,,0
29963 062605 110 04 0 00 070663 0,,0]
29964 062606 312 04 0 00 072544 CAME AC,[YY,,ZZ]
29965 062607 003 04 0 00 000247 ER3 AC,T
29966 062610 312 05 0 00 070660 CAME AC+1,[0,,0]
29967 062611 004 05 0 00 000247 ER4 AC+1,T
29968 062612 321 10 0 00 062604 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29969
29970 000250 T=T+1
29971 777777 777757 XX=<XX-1>/2
29972 647377 YY=YY+1000
29973 777777 777760 ZZ=ZZ+ZZ
29974 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,ZZ,0,0^
29975 DMOVE AC,[600777,,-1
29976 062613 120 04 0 00 072545 XX,,-1]
29977 DFAD AC,[0,,0
29978 062614 110 04 0 00 070663 0,,0]
29979 062615 312 04 0 00 072547 CAME AC,[YY,,ZZ]
29980 062616 003 04 0 00 000250 ER3 AC,T
29981 062617 312 05 0 00 070660 CAME AC+1,[0,,0]
29982 062620 004 05 0 00 000250 ER4 AC+1,T
29983 062621 321 10 0 00 062613 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29984
29985 000251 T=T+1
29986 777777 777767 XX=<XX-1>/2
29987 650377 YY=YY+1000
29988 777777 777740 ZZ=ZZ+ZZ
29989 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,ZZ,0,0^
29990 DMOVE AC,[600777,,-1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-4
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0675
29991 062622 120 04 0 00 072550 XX,,-1]
29992 DFAD AC,[0,,0
29993 062623 110 04 0 00 070663 0,,0]
29994 062624 312 04 0 00 072552 CAME AC,[YY,,ZZ]
29995 062625 003 04 0 00 000251 ER3 AC,T
29996 062626 312 05 0 00 070660 CAME AC+1,[0,,0]
29997 062627 004 05 0 00 000251 ER4 AC+1,T
29998 062630 321 10 0 00 062622 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
29999
30000 000252 T=T+1
30001 777777 777773 XX=<XX-1>/2
30002 651377 YY=YY+1000
30003 777777 777700 ZZ=ZZ+ZZ
30004 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,ZZ,0,0^
30005 DMOVE AC,[600777,,-1
30006 062631 120 04 0 00 072553 XX,,-1]
30007 DFAD AC,[0,,0
30008 062632 110 04 0 00 070663 0,,0]
30009 062633 312 04 0 00 072555 CAME AC,[YY,,ZZ]
30010 062634 003 04 0 00 000252 ER3 AC,T
30011 062635 312 05 0 00 070660 CAME AC+1,[0,,0]
30012 062636 004 05 0 00 000252 ER4 AC+1,T
30013 062637 321 10 0 00 062631 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
30014
30015 000253 T=T+1
30016 777777 777775 XX=<XX-1>/2
30017 652377 YY=YY+1000
30018 777777 777600 ZZ=ZZ+ZZ
30019 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,ZZ,0,0^
30020 DMOVE AC,[600777,,-1
30021 062640 120 04 0 00 072556 XX,,-1]
30022 DFAD AC,[0,,0
30023 062641 110 04 0 00 070663 0,,0]
30024 062642 312 04 0 00 072560 CAME AC,[YY,,ZZ]
30025 062643 003 04 0 00 000253 ER3 AC,T
30026 062644 312 05 0 00 070660 CAME AC+1,[0,,0]
30027 062645 004 05 0 00 000253 ER4 AC+1,T
30028 062646 321 10 0 00 062640 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
30029
30030 000254 T=T+1
30031 777777 777776 XX=<XX-1>/2
30032 653377 YY=YY+1000
30033 777777 777400 ZZ=ZZ+ZZ
30034 SDFARP T,600777,-1,XX,-1,0,0,0,0,YY,ZZ,0,0^
30035 DMOVE AC,[600777,,-1
30036 062647 120 04 0 00 072561 XX,,-1]
30037 DFAD AC,[0,,0
30038 062650 110 04 0 00 070663 0,,0]
30039 062651 312 04 0 00 072563 CAME AC,[YY,,ZZ]
30040 062652 003 04 0 00 000254 ER3 AC,T
30041 062653 312 05 0 00 070660 CAME AC+1,[0,,0]
30042 062654 004 05 0 00 000254 ER4 AC+1,T
30043 062655 321 10 0 00 062647 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
30044
30045
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-5
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0676
30046 777776 777777 XX=777776777777
30047
30048 REPEAT ^D10,
30049 <T=T+1
30050 XX=<XX-1>/2
30051 YY=YY+1000
30052 ZZ=ZZ+ZZ
30053 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0
30054 >
30055 000255 T=T+1
30056 777777 377777 XX=<XX-1>/2
30057 654377 YY=YY+1000
30058 777777 777000 ZZ=ZZ+ZZ
30059 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0^
30060 DMOVE AC,[600777,,-1
30061 062656 120 04 0 00 072564 -1,,XX]
30062 DFAD AC,[0,,0
30063 062657 110 04 0 00 070663 0,,0]
30064 062660 312 04 0 00 072566 CAME AC,[YY,,ZZ]
30065 062661 003 04 0 00 000255 ER3 AC,T
30066 062662 312 05 0 00 070660 CAME AC+1,[0,,0]
30067 062663 004 05 0 00 000255 ER4 AC+1,T
30068 062664 321 10 0 00 062656 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
30069
30070 000256 T=T+1
30071 777777 577777 XX=<XX-1>/2
30072 655377 YY=YY+1000
30073 777777 776000 ZZ=ZZ+ZZ
30074 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0^
30075 DMOVE AC,[600777,,-1
30076 062665 120 04 0 00 072567 -1,,XX]
30077 DFAD AC,[0,,0
30078 062666 110 04 0 00 070663 0,,0]
30079 062667 312 04 0 00 072571 CAME AC,[YY,,ZZ]
30080 062670 003 04 0 00 000256 ER3 AC,T
30081 062671 312 05 0 00 070660 CAME AC+1,[0,,0]
30082 062672 004 05 0 00 000256 ER4 AC+1,T
30083 062673 321 10 0 00 062665 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
30084
30085 000257 T=T+1
30086 777777 677777 XX=<XX-1>/2
30087 656377 YY=YY+1000
30088 777777 774000 ZZ=ZZ+ZZ
30089 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0^
30090 DMOVE AC,[600777,,-1
30091 062674 120 04 0 00 072572 -1,,XX]
30092 DFAD AC,[0,,0
30093 062675 110 04 0 00 070663 0,,0]
30094 062676 312 04 0 00 072574 CAME AC,[YY,,ZZ]
30095 062677 003 04 0 00 000257 ER3 AC,T
30096 062700 312 05 0 00 070660 CAME AC+1,[0,,0]
30097 062701 004 05 0 00 000257 ER4 AC+1,T
30098 062702 321 10 0 00 062674 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
30099
30100 000260 T=T+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-6
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0677
30101 777777 737777 XX=<XX-1>/2
30102 657377 YY=YY+1000
30103 777777 770000 ZZ=ZZ+ZZ
30104 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0^
30105 DMOVE AC,[600777,,-1
30106 062703 120 04 0 00 072575 -1,,XX]
30107 DFAD AC,[0,,0
30108 062704 110 04 0 00 070663 0,,0]
30109 062705 312 04 0 00 072577 CAME AC,[YY,,ZZ]
30110 062706 003 04 0 00 000260 ER3 AC,T
30111 062707 312 05 0 00 070660 CAME AC+1,[0,,0]
30112 062710 004 05 0 00 000260 ER4 AC+1,T
30113 062711 321 10 0 00 062703 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
30114
30115 000261 T=T+1
30116 777777 757777 XX=<XX-1>/2
30117 660377 YY=YY+1000
30118 777777 760000 ZZ=ZZ+ZZ
30119 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0^
30120 DMOVE AC,[600777,,-1
30121 062712 120 04 0 00 072600 -1,,XX]
30122 DFAD AC,[0,,0
30123 062713 110 04 0 00 070663 0,,0]
30124 062714 312 04 0 00 072602 CAME AC,[YY,,ZZ]
30125 062715 003 04 0 00 000261 ER3 AC,T
30126 062716 312 05 0 00 070660 CAME AC+1,[0,,0]
30127 062717 004 05 0 00 000261 ER4 AC+1,T
30128 062720 321 10 0 00 062712 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
30129
30130 000262 T=T+1
30131 777777 767777 XX=<XX-1>/2
30132 661377 YY=YY+1000
30133 777777 740000 ZZ=ZZ+ZZ
30134 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0^
30135 DMOVE AC,[600777,,-1
30136 062721 120 04 0 00 072603 -1,,XX]
30137 DFAD AC,[0,,0
30138 062722 110 04 0 00 070663 0,,0]
30139 062723 312 04 0 00 072605 CAME AC,[YY,,ZZ]
30140 062724 003 04 0 00 000262 ER3 AC,T
30141 062725 312 05 0 00 070660 CAME AC+1,[0,,0]
30142 062726 004 05 0 00 000262 ER4 AC+1,T
30143 062727 321 10 0 00 062721 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
30144
30145 000263 T=T+1
30146 777777 773777 XX=<XX-1>/2
30147 662377 YY=YY+1000
30148 777777 700000 ZZ=ZZ+ZZ
30149 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0^
30150 DMOVE AC,[600777,,-1
30151 062730 120 04 0 00 072606 -1,,XX]
30152 DFAD AC,[0,,0
30153 062731 110 04 0 00 070663 0,,0]
30154 062732 312 04 0 00 072610 CAME AC,[YY,,ZZ]
30155 062733 003 04 0 00 000263 ER3 AC,T
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-7
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0678
30156 062734 312 05 0 00 070660 CAME AC+1,[0,,0]
30157 062735 004 05 0 00 000263 ER4 AC+1,T
30158 062736 321 10 0 00 062730 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
30159
30160 000264 T=T+1
30161 777777 775777 XX=<XX-1>/2
30162 663377 YY=YY+1000
30163 777777 600000 ZZ=ZZ+ZZ
30164 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0^
30165 DMOVE AC,[600777,,-1
30166 062737 120 04 0 00 072611 -1,,XX]
30167 DFAD AC,[0,,0
30168 062740 110 04 0 00 070663 0,,0]
30169 062741 312 04 0 00 072613 CAME AC,[YY,,ZZ]
30170 062742 003 04 0 00 000264 ER3 AC,T
30171 062743 312 05 0 00 070660 CAME AC+1,[0,,0]
30172 062744 004 05 0 00 000264 ER4 AC+1,T
30173 062745 321 10 0 00 062737 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
30174
30175 000265 T=T+1
30176 777777 776777 XX=<XX-1>/2
30177 664377 YY=YY+1000
30178 777777 400000 ZZ=ZZ+ZZ
30179 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0^
30180 DMOVE AC,[600777,,-1
30181 062746 120 04 0 00 072614 -1,,XX]
30182 DFAD AC,[0,,0
30183 062747 110 04 0 00 070663 0,,0]
30184 062750 312 04 0 00 072616 CAME AC,[YY,,ZZ]
30185 062751 003 04 0 00 000265 ER3 AC,T
30186 062752 312 05 0 00 070660 CAME AC+1,[0,,0]
30187 062753 004 05 0 00 000265 ER4 AC+1,T
30188 062754 321 10 0 00 062746 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
30189
30190 000266 T=T+1
30191 777777 777377 XX=<XX-1>/2
30192 665377 YY=YY+1000
30193 777777 000000 ZZ=ZZ+ZZ
30194 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY,ZZ,0,0^
30195 DMOVE AC,[600777,,-1
30196 062755 120 04 0 00 072617 -1,,XX]
30197 DFAD AC,[0,,0
30198 062756 110 04 0 00 070663 0,,0]
30199 062757 312 04 0 00 072621 CAME AC,[YY,,ZZ]
30200 062760 003 04 0 00 000266 ER3 AC,T
30201 062761 312 05 0 00 070660 CAME AC+1,[0,,0]
30202 062762 004 05 0 00 000266 ER4 AC+1,T
30203 062763 321 10 0 00 062755 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
30204
30205
30206 665000 YY=YY-377
30207 777777 777777 ZZ=-1
30208
30209 REPEAT ^D7,
30210 <T=T+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-8
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0679
30211 XX=<XX-1>/2
30212 YY=YY+1000
30213 ZZ=ZZ+ZZ
30214 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY+ZZ&377,0,0,0
30215 >
30216 000267 T=T+1
30217 777777 777577 XX=<XX-1>/2
30218 666000 YY=YY+1000
30219 777777 777776 ZZ=ZZ+ZZ
30220 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY+ZZ&377,0,0,0^
30221 DMOVE AC,[600777,,-1
30222 062764 120 04 0 00 072622 -1,,XX]
30223 DFAD AC,[0,,0
30224 062765 110 04 0 00 070663 0,,0]
30225 062766 312 04 0 00 072624 CAME AC,[YY+ZZ&377,,0]
30226 062767 003 04 0 00 000267 ER3 AC,T
30227 062770 312 05 0 00 070660 CAME AC+1,[0,,0]
30228 062771 004 05 0 00 000267 ER4 AC+1,T
30229 062772 321 10 0 00 062764 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
30230
30231 000270 T=T+1
30232 777777 777677 XX=<XX-1>/2
30233 667000 YY=YY+1000
30234 777777 777774 ZZ=ZZ+ZZ
30235 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY+ZZ&377,0,0,0^
30236 DMOVE AC,[600777,,-1
30237 062773 120 04 0 00 072625 -1,,XX]
30238 DFAD AC,[0,,0
30239 062774 110 04 0 00 070663 0,,0]
30240 062775 312 04 0 00 072627 CAME AC,[YY+ZZ&377,,0]
30241 062776 003 04 0 00 000270 ER3 AC,T
30242 062777 312 05 0 00 070660 CAME AC+1,[0,,0]
30243 063000 004 05 0 00 000270 ER4 AC+1,T
30244 063001 321 10 0 00 062773 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
30245
30246 000271 T=T+1
30247 777777 777737 XX=<XX-1>/2
30248 670000 YY=YY+1000
30249 777777 777770 ZZ=ZZ+ZZ
30250 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY+ZZ&377,0,0,0^
30251 DMOVE AC,[600777,,-1
30252 063002 120 04 0 00 072630 -1,,XX]
30253 DFAD AC,[0,,0
30254 063003 110 04 0 00 070663 0,,0]
30255 063004 312 04 0 00 072632 CAME AC,[YY+ZZ&377,,0]
30256 063005 003 04 0 00 000271 ER3 AC,T
30257 063006 312 05 0 00 070660 CAME AC+1,[0,,0]
30258 063007 004 05 0 00 000271 ER4 AC+1,T
30259 063010 321 10 0 00 063002 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
30260
30261 000272 T=T+1
30262 777777 777757 XX=<XX-1>/2
30263 671000 YY=YY+1000
30264 777777 777760 ZZ=ZZ+ZZ
30265 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY+ZZ&377,0,0,0^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-9
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0680
30266 DMOVE AC,[600777,,-1
30267 063011 120 04 0 00 072633 -1,,XX]
30268 DFAD AC,[0,,0
30269 063012 110 04 0 00 070663 0,,0]
30270 063013 312 04 0 00 072635 CAME AC,[YY+ZZ&377,,0]
30271 063014 003 04 0 00 000272 ER3 AC,T
30272 063015 312 05 0 00 070660 CAME AC+1,[0,,0]
30273 063016 004 05 0 00 000272 ER4 AC+1,T
30274 063017 321 10 0 00 063011 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
30275
30276 000273 T=T+1
30277 777777 777767 XX=<XX-1>/2
30278 672000 YY=YY+1000
30279 777777 777740 ZZ=ZZ+ZZ
30280 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY+ZZ&377,0,0,0^
30281 DMOVE AC,[600777,,-1
30282 063020 120 04 0 00 072636 -1,,XX]
30283 DFAD AC,[0,,0
30284 063021 110 04 0 00 070663 0,,0]
30285 063022 312 04 0 00 072640 CAME AC,[YY+ZZ&377,,0]
30286 063023 003 04 0 00 000273 ER3 AC,T
30287 063024 312 05 0 00 070660 CAME AC+1,[0,,0]
30288 063025 004 05 0 00 000273 ER4 AC+1,T
30289 063026 321 10 0 00 063020 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
30290
30291 000274 T=T+1
30292 777777 777773 XX=<XX-1>/2
30293 673000 YY=YY+1000
30294 777777 777700 ZZ=ZZ+ZZ
30295 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY+ZZ&377,0,0,0^
30296 DMOVE AC,[600777,,-1
30297 063027 120 04 0 00 072641 -1,,XX]
30298 DFAD AC,[0,,0
30299 063030 110 04 0 00 070663 0,,0]
30300 063031 312 04 0 00 072643 CAME AC,[YY+ZZ&377,,0]
30301 063032 003 04 0 00 000274 ER3 AC,T
30302 063033 312 05 0 00 070660 CAME AC+1,[0,,0]
30303 063034 004 05 0 00 000274 ER4 AC+1,T
30304 063035 321 10 0 00 063027 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
30305
30306 000275 T=T+1
30307 777777 777775 XX=<XX-1>/2
30308 674000 YY=YY+1000
30309 777777 777600 ZZ=ZZ+ZZ
30310 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY+ZZ&377,0,0,0^
30311 DMOVE AC,[600777,,-1
30312 063036 120 04 0 00 072644 -1,,XX]
30313 DFAD AC,[0,,0
30314 063037 110 04 0 00 070663 0,,0]
30315 063040 312 04 0 00 072646 CAME AC,[YY+ZZ&377,,0]
30316 063041 003 04 0 00 000275 ER3 AC,T
30317 063042 312 05 0 00 070660 CAME AC+1,[0,,0]
30318 063043 004 05 0 00 000275 ER4 AC+1,T
30319 063044 321 10 0 00 063036 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
30320
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 4-10
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0681
30321
30322 000276 T=T+1
30323 777777 777776 XX=<XX-1>/2
30324 777777 777400 ZZ=ZZ+ZZ
30325 SDFARP T,600777,-1,-1,XX,0,0,0,0,YY+ZZ&777,0,0,0^
30326 DMOVE AC,[600777,,-1
30327 063045 120 04 0 00 072647 -1,,XX]
30328 DFAD AC,[0,,0
30329 063046 110 04 0 00 070663 0,,0]
30330 063047 312 04 0 00 072651 CAME AC,[YY+ZZ&777,,0]
30331 063050 003 04 0 00 000276 ER3 AC,T
30332 063051 312 05 0 00 070660 CAME AC+1,[0,,0]
30333 063052 004 05 0 00 000276 ER4 AC+1,T
30334 063053 321 10 0 00 063045 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5
DFKCA5 MAC 3-Oct-80 13:57 CHECK NORMALIZATION FOR DOUBLE PRECISION FLOATING POINT NUMBERS SEQ 0682
30335
30336 SUBTTL DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND
30337
30338 ;CHECK THAT DFAD AC,E DOES NOT ALTER C(E) OR C(E+1)
30339
30340 S10100: DMOVE AC,[200777,,-1
30341 063054 120 04 0 00 071611 -1,,-1]
30342 DMOVE AC+2,[200000,,0
30343 063055 120 06 0 00 072652 400000,,-1]
30344 063056 110 04 0 00 000006 DFAD AC,AC+2
30345 063057 312 06 0 00 070743 CAME AC+2,[200000,,0]
30346 063060 005 06 0 00 010101 ER5 AC+2,10101 ;C(E) WAS ALTERED
30347 063061 312 07 0 00 072653 CAME AC+3,[400000,,-1]
30348 063062 006 07 0 00 010101 ER6 AC+3,10101 ;C(E+1) WAS ALTERED
30349 063063 321 10 0 00 063054 JUMPL AC+4,S10100 ;LOOP ON ERROR SWITCH
30350
30351 SDFA 102,600,0,0,0,400,0,0,0,1500,0,0,0^
30352 S10200: DMOVE AC,[600,,0
30353 063064 120 04 0 00 072654 0,,0]
30354 DFAD AC,[400,,0
30355 063065 110 04 0 00 071566 0,,0]
30356 063066 312 04 0 00 072656 CAME AC,[1500,,0]
30357 063067 003 04 0 00 010201 ER3 AC,10201
30358 063070 312 05 0 00 070660 CAME AC+1,[0,,0]
30359 063071 004 05 0 00 010201 ER4 AC+1,10201
30360 063072 321 10 0 00 063064 JUMPL AC+4,S10200 ;LOOP ON ERROR SWITCH^
30361
30362 SDFA 103,377000,0,0,0,377600,0,0,0,377600,0,0,0^
30363 S10300: DMOVE AC,[377000,,0
30364 063073 120 04 0 00 072657 0,,0]
30365 DFAD AC,[377600,,0
30366 063074 110 04 0 00 072661 0,,0]
30367 063075 312 04 0 00 072465 CAME AC,[377600,,0]
30368 063076 003 04 0 00 010301 ER3 AC,10301
30369 063077 312 05 0 00 070660 CAME AC+1,[0,,0]
30370 063100 004 05 0 00 010301 ER4 AC+1,10301
30371 063101 321 10 0 00 063073 JUMPL AC+4,S10300 ;LOOP ON ERROR SWITCH^
30372
30373 SDFA 104,600400,0,0,0,177400,0,0,0,0,0,0,0^
30374 S10400: DMOVE AC,[600400,,0
30375 063102 120 04 0 00 072663 0,,0]
30376 DFAD AC,[177400,,0
30377 063103 110 04 0 00 072665 0,,0]
30378 063104 312 04 0 00 070660 CAME AC,[0,,0]
30379 063105 003 04 0 00 010401 ER3 AC,10401
30380 063106 312 05 0 00 070660 CAME AC+1,[0,,0]
30381 063107 004 05 0 00 010401 ER4 AC+1,10401
30382 063110 321 10 0 00 063102 JUMPL AC+4,S10400 ;LOOP ON ERROR SWITCH^
30383
30384 SDFA 105,200400,0,0,0,205400,0,0,0,205410,0,0,0^
30385 S10500: DMOVE AC,[200400,,0
30386 063111 120 04 0 00 070745 0,,0]
30387 DFAD AC,[205400,,0
30388 063112 110 04 0 00 072667 0,,0]
30389 063113 312 04 0 00 072671 CAME AC,[205410,,0]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5-1
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0683
30390 063114 003 04 0 00 010501 ER3 AC,10501
30391 063115 312 05 0 00 070660 CAME AC+1,[0,,0]
30392 063116 004 05 0 00 010501 ER4 AC+1,10501
30393 063117 321 10 0 00 063111 JUMPL AC+4,S10500 ;LOOP ON ERROR SWITCH^
30394
30395 SDFA 106,200400,0,0,0,205600,0,0,0,205610,0,0,0^
30396 S10600: DMOVE AC,[200400,,0
30397 063120 120 04 0 00 070745 0,,0]
30398 DFAD AC,[205600,,0
30399 063121 110 04 0 00 072672 0,,0]
30400 063122 312 04 0 00 072674 CAME AC,[205610,,0]
30401 063123 003 04 0 00 010601 ER3 AC,10601
30402 063124 312 05 0 00 070660 CAME AC+1,[0,,0]
30403 063125 004 05 0 00 010601 ER4 AC+1,10601
30404 063126 321 10 0 00 063120 JUMPL AC+4,S10600 ;LOOP ON ERROR SWITCH^
30405
30406 SDFA 107,600,0,0,0,200400,0,0,0,200400,0,0,0^
30407 S10700: DMOVE AC,[600,,0
30408 063127 120 04 0 00 072654 0,,0]
30409 DFAD AC,[200400,,0
30410 063130 110 04 0 00 070745 0,,0]
30411 063131 312 04 0 00 070614 CAME AC,[200400,,0]
30412 063132 003 04 0 00 010701 ER3 AC,10701
30413 063133 312 05 0 00 070660 CAME AC+1,[0,,0]
30414 063134 004 05 0 00 010701 ER4 AC+1,10701
30415 063135 321 10 0 00 063127 JUMPL AC+4,S10700 ;LOOP ON ERROR SWITCH^
30416
30417 SDFA 110,200700,0,0,0,0,0,0,0,200700,0,0,0^
30418 S11000: DMOVE AC,[200700,,0
30419 063136 120 04 0 00 072675 0,,0]
30420 DFAD AC,[0,,0
30421 063137 110 04 0 00 070663 0,,0]
30422 063140 312 04 0 00 070646 CAME AC,[200700,,0]
30423 063141 003 04 0 00 011001 ER3 AC,11001
30424 063142 312 05 0 00 070660 CAME AC+1,[0,,0]
30425 063143 004 05 0 00 011001 ER4 AC+1,11001
30426 063144 321 10 0 00 063136 JUMPL AC+4,S11000 ;LOOP ON ERROR SWITCH^
30427
30428 SDFA 111,201400,0,0,0,200400,0,0,0,201600,0,0,0^
30429 S11100: DMOVE AC,[201400,,0
30430 063145 120 04 0 00 072123 0,,0]
30431 DFAD AC,[200400,,0
30432 063146 110 04 0 00 070745 0,,0]
30433 063147 312 04 0 00 071645 CAME AC,[201600,,0]
30434 063150 003 04 0 00 011101 ER3 AC,11101
30435 063151 312 05 0 00 070660 CAME AC+1,[0,,0]
30436 063152 004 05 0 00 011101 ER4 AC+1,11101
30437 063153 321 10 0 00 063145 JUMPL AC+4,S11100 ;LOOP ON ERROR SWITCH^
30438
30439 SDFA 112,202400,0,0,0,200400,0,0,0,202500,0,0,0^
30440 S11200: DMOVE AC,[202400,,0
30441 063154 120 04 0 00 072677 0,,0]
30442 DFAD AC,[200400,,0
30443 063155 110 04 0 00 070745 0,,0]
30444 063156 312 04 0 00 072701 CAME AC,[202500,,0]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5-2
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0684
30445 063157 003 04 0 00 011201 ER3 AC,11201
30446 063160 312 05 0 00 070660 CAME AC+1,[0,,0]
30447 063161 004 05 0 00 011201 ER4 AC+1,11201
30448 063162 321 10 0 00 063154 JUMPL AC+4,S11200 ;LOOP ON ERROR SWITCH^
30449
30450 SDFA 113,204400,0,0,0,200400,0,0,0,204420,0,0,0^
30451 S11300: DMOVE AC,[204400,,0
30452 063163 120 04 0 00 072702 0,,0]
30453 DFAD AC,[200400,,0
30454 063164 110 04 0 00 070745 0,,0]
30455 063165 312 04 0 00 072704 CAME AC,[204420,,0]
30456 063166 003 04 0 00 011301 ER3 AC,11301
30457 063167 312 05 0 00 070660 CAME AC+1,[0,,0]
30458 063170 004 05 0 00 011301 ER4 AC+1,11301
30459 063171 321 10 0 00 063163 JUMPL AC+4,S11300 ;LOOP ON ERROR SWITCH^
30460
30461 SDFA 114,210400,0,0,0,200400,0,0,0,210401,0,0,0^
30462 S11400: DMOVE AC,[210400,,0
30463 063172 120 04 0 00 072705 0,,0]
30464 DFAD AC,[200400,,0
30465 063173 110 04 0 00 070745 0,,0]
30466 063174 312 04 0 00 072707 CAME AC,[210401,,0]
30467 063175 003 04 0 00 011401 ER3 AC,11401
30468 063176 312 05 0 00 070660 CAME AC+1,[0,,0]
30469 063177 004 05 0 00 011401 ER4 AC+1,11401
30470 063200 321 10 0 00 063172 JUMPL AC+4,S11400 ;LOOP ON ERROR SWITCH^
30471
30472 SDFA 115,220400,0,0,0,200400,0,0,0,220400,2000,0,0^
30473 S11500: DMOVE AC,[220400,,0
30474 063201 120 04 0 00 072710 0,,0]
30475 DFAD AC,[200400,,0
30476 063202 110 04 0 00 070745 0,,0]
30477 063203 312 04 0 00 072712 CAME AC,[220400,,2000]
30478 063204 003 04 0 00 011501 ER3 AC,11501
30479 063205 312 05 0 00 070660 CAME AC+1,[0,,0]
30480 063206 004 05 0 00 011501 ER4 AC+1,11501
30481 063207 321 10 0 00 063201 JUMPL AC+4,S11500 ;LOOP ON ERROR SWITCH^
30482
30483 SDFA 116,240400,0,0,0,200400,0,0,0,240400,0,4000,0^
30484 S11600: DMOVE AC,[240400,,0
30485 063210 120 04 0 00 072713 0,,0]
30486 DFAD AC,[200400,,0
30487 063211 110 04 0 00 070745 0,,0]
30488 063212 312 04 0 00 072713 CAME AC,[240400,,0]
30489 063213 003 04 0 00 011601 ER3 AC,11601
30490 063214 312 05 0 00 071106 CAME AC+1,[4000,,0]
30491 063215 004 05 0 00 011601 ER4 AC+1,11601
30492 063216 321 10 0 00 063210 JUMPL AC+4,S11600 ;LOOP ON ERROR SWITCH^
30493
30494 SDFA 117,300400,0,0,0,200400,0,0,0,300400,0,0,0^
30495 S11700: DMOVE AC,[300400,,0
30496 063217 120 04 0 00 072715 0,,0]
30497 DFAD AC,[200400,,0
30498 063220 110 04 0 00 070745 0,,0]
30499 063221 312 04 0 00 072715 CAME AC,[300400,,0]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5-3
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0685
30500 063222 003 04 0 00 011701 ER3 AC,11701
30501 063223 312 05 0 00 070660 CAME AC+1,[0,,0]
30502 063224 004 05 0 00 011701 ER4 AC+1,11701
30503 063225 321 10 0 00 063217 JUMPL AC+4,S11700 ;LOOP ON ERROR SWITCH^
30504
30505 SDFA 120,600400,0,0,0,600400,0,0,0,577400,0,0,0^
30506 S12000: DMOVE AC,[600400,,0
30507 063226 120 04 0 00 072663 0,,0]
30508 DFAD AC,[600400,,0
30509 063227 110 04 0 00 072663 0,,0]
30510 063230 312 04 0 00 072125 CAME AC,[577400,,0]
30511 063231 003 04 0 00 012001 ER3 AC,12001
30512 063232 312 05 0 00 070660 CAME AC+1,[0,,0]
30513 063233 004 05 0 00 012001 ER4 AC+1,12001
30514 063234 321 10 0 00 063226 JUMPL AC+4,S12000 ;LOOP ON ERROR SWITCH^
30515
30516 SDFA 121,0,0,0,0,205400,0,0,0,205400,0,0,0^
30517 S12100: DMOVE AC,[0,,0
30518 063235 120 04 0 00 070663 0,,0]
30519 DFAD AC,[205400,,0
30520 063236 110 04 0 00 072667 0,,0]
30521 063237 312 04 0 00 070620 CAME AC,[205400,,0]
30522 063240 003 04 0 00 012101 ER3 AC,12101
30523 063241 312 05 0 00 070660 CAME AC+1,[0,,0]
30524 063242 004 05 0 00 012101 ER4 AC+1,12101
30525 063243 321 10 0 00 063235 JUMPL AC+4,S12100 ;LOOP ON ERROR SWITCH^
30526
30527 SDFA 122,200400,0,0,0,200400,0,0,0,201400,0,0,0^
30528 S12200: DMOVE AC,[200400,,0
30529 063244 120 04 0 00 070745 0,,0]
30530 DFAD AC,[200400,,0
30531 063245 110 04 0 00 070745 0,,0]
30532 063246 312 04 0 00 071613 CAME AC,[201400,,0]
30533 063247 003 04 0 00 012201 ER3 AC,12201
30534 063250 312 05 0 00 070660 CAME AC+1,[0,,0]
30535 063251 004 05 0 00 012201 ER4 AC+1,12201
30536 063252 321 10 0 00 063244 JUMPL AC+4,S12200 ;LOOP ON ERROR SWITCH^
30537
30538 SDFA 123,577400,0,0,0,577400,0,0,0,576400,0,0,0^
30539 S12300: DMOVE AC,[577400,,0
30540 063253 120 04 0 00 072125 0,,0]
30541 DFAD AC,[577400,,0
30542 063254 110 04 0 00 072125 0,,0]
30543 063255 312 04 0 00 070637 CAME AC,[576400,,0]
30544 063256 003 04 0 00 012301 ER3 AC,12301
30545 063257 312 05 0 00 070660 CAME AC+1,[0,,0]
30546 063260 004 05 0 00 012301 ER4 AC+1,12301
30547 063261 321 10 0 00 063253 JUMPL AC+4,S12300 ;LOOP ON ERROR SWITCH^
30548
30549 SDFA 124,205600,0,0,0,177400,0,0,0,205604,0,0,0^
30550 S12400: DMOVE AC,[205600,,0
30551 063262 120 04 0 00 072672 0,,0]
30552 DFAD AC,[177400,,0
30553 063263 110 04 0 00 072665 0,,0]
30554 063264 312 04 0 00 072717 CAME AC,[205604,,0]
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 5-4
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0686
30555 063265 003 04 0 00 012401 ER3 AC,12401
30556 063266 312 05 0 00 070660 CAME AC+1,[0,,0]
30557 063267 004 05 0 00 012401 ER4 AC+1,12401
30558 063270 321 10 0 00 063262 JUMPL AC+4,S12400 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0687
30559
30560 SDFA 125,201000,0,0,0,202000,0,0,0,0,0,0,0^
30561 S12500: DMOVE AC,[201000,,0
30562 063271 120 04 0 00 072720 0,,0]
30563 DFAD AC,[202000,,0
30564 063272 110 04 0 00 072722 0,,0]
30565 063273 312 04 0 00 070660 CAME AC,[0,,0]
30566 063274 003 04 0 00 012501 ER3 AC,12501
30567 063275 312 05 0 00 070660 CAME AC+1,[0,,0]
30568 063276 004 05 0 00 012501 ER4 AC+1,12501
30569 063277 321 10 0 00 063271 JUMPL AC+4,S12500 ;LOOP ON ERROR SWITCH^
30570
30571 SDFA 126,202000,0,0,0,204000,0,0,0,0,0,0,0^
30572 S12600: DMOVE AC,[202000,,0
30573 063300 120 04 0 00 072722 0,,0]
30574 DFAD AC,[204000,,0
30575 063301 110 04 0 00 072724 0,,0]
30576 063302 312 04 0 00 070660 CAME AC,[0,,0]
30577 063303 003 04 0 00 012601 ER3 AC,12601
30578 063304 312 05 0 00 070660 CAME AC+1,[0,,0]
30579 063305 004 05 0 00 012601 ER4 AC+1,12601
30580 063306 321 10 0 00 063300 JUMPL AC+4,S12600 ;LOOP ON ERROR SWITCH^
30581
30582 SDFA 127,204000,0,0,0,207000,0,0,0,0,0,0,0^
30583 S12700: DMOVE AC,[204000,,0
30584 063307 120 04 0 00 072724 0,,0]
30585 DFAD AC,[207000,,0
30586 063310 110 04 0 00 072726 0,,0]
30587 063311 312 04 0 00 070660 CAME AC,[0,,0]
30588 063312 003 04 0 00 012701 ER3 AC,12701
30589 063313 312 05 0 00 070660 CAME AC+1,[0,,0]
30590 063314 004 05 0 00 012701 ER4 AC+1,12701
30591 063315 321 10 0 00 063307 JUMPL AC+4,S12700 ;LOOP ON ERROR SWITCH^
30592
30593 SDFA 130,210000,0,0,0,214000,0,0,0,0,0,0,0^
30594 S13000: DMOVE AC,[210000,,0
30595 063316 120 04 0 00 072730 0,,0]
30596 DFAD AC,[214000,,0
30597 063317 110 04 0 00 072732 0,,0]
30598 063320 312 04 0 00 070660 CAME AC,[0,,0]
30599 063321 003 04 0 00 013001 ER3 AC,13001
30600 063322 312 05 0 00 070660 CAME AC+1,[0,,0]
30601 063323 004 05 0 00 013001 ER4 AC+1,13001
30602 063324 321 10 0 00 063316 JUMPL AC+4,S13000 ;LOOP ON ERROR SWITCH^
30603
30604 SDFA 131,220000,0,0,0,225000,0,0,0,0,0,0,0^
30605 S13100: DMOVE AC,[220000,,0
30606 063325 120 04 0 00 072734 0,,0]
30607 DFAD AC,[225000,,0
30608 063326 110 04 0 00 072736 0,,0]
30609 063327 312 04 0 00 070660 CAME AC,[0,,0]
30610 063330 003 04 0 00 013101 ER3 AC,13101
30611 063331 312 05 0 00 070660 CAME AC+1,[0,,0]
30612 063332 004 05 0 00 013101 ER4 AC+1,13101
30613 063333 321 10 0 00 063325 JUMPL AC+4,S13100 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6-1
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0688
30614
30615 SDFA 132,240000,0,0,0,246000,0,0,0,0,0,0,0^
30616 S13200: DMOVE AC,[240000,,0
30617 063334 120 04 0 00 072740 0,,0]
30618 DFAD AC,[246000,,0
30619 063335 110 04 0 00 072742 0,,0]
30620 063336 312 04 0 00 070660 CAME AC,[0,,0]
30621 063337 003 04 0 00 013201 ER3 AC,13201
30622 063340 312 05 0 00 070660 CAME AC+1,[0,,0]
30623 063341 004 05 0 00 013201 ER4 AC+1,13201
30624 063342 321 10 0 00 063334 JUMPL AC+4,S13200 ;LOOP ON ERROR SWITCH^
30625
30626 SDFA 133,300000,0,0,0,307000,0,0,0,0,0,0,0^
30627 S13300: DMOVE AC,[300000,,0
30628 063343 120 04 0 00 072744 0,,0]
30629 DFAD AC,[307000,,0
30630 063344 110 04 0 00 072746 0,,0]
30631 063345 312 04 0 00 070660 CAME AC,[0,,0]
30632 063346 003 04 0 00 013301 ER3 AC,13301
30633 063347 312 05 0 00 070660 CAME AC+1,[0,,0]
30634 063350 004 05 0 00 013301 ER4 AC+1,13301
30635 063351 321 10 0 00 063343 JUMPL AC+4,S13300 ;LOOP ON ERROR SWITCH^
30636
30637 SDFA 134,200000,0,0,0,600400,0,0,0,600400,0,0,0^
30638 S13400: DMOVE AC,[200000,,0
30639 063352 120 04 0 00 070743 0,,0]
30640 DFAD AC,[600400,,0
30641 063353 110 04 0 00 072663 0,,0]
30642 063354 312 04 0 00 072663 CAME AC,[600400,,0]
30643 063355 003 04 0 00 013401 ER3 AC,13401
30644 063356 312 05 0 00 070660 CAME AC+1,[0,,0]
30645 063357 004 05 0 00 013401 ER4 AC+1,13401
30646 063360 321 10 0 00 063352 JUMPL AC+4,S13400 ;LOOP ON ERROR SWITCH^
30647
30648 SDFA 135,201000,0,0,0,600400,0,0,0,600400,0,0,0^
30649 S13500: DMOVE AC,[201000,,0
30650 063361 120 04 0 00 072720 0,,0]
30651 DFAD AC,[600400,,0
30652 063362 110 04 0 00 072663 0,,0]
30653 063363 312 04 0 00 072663 CAME AC,[600400,,0]
30654 063364 003 04 0 00 013501 ER3 AC,13501
30655 063365 312 05 0 00 070660 CAME AC+1,[0,,0]
30656 063366 004 05 0 00 013501 ER4 AC+1,13501
30657 063367 321 10 0 00 063361 JUMPL AC+4,S13500 ;LOOP ON ERROR SWITCH^
30658
30659 SDFA 136,202000,0,0,0,600400,0,0,0,600400,0,0,0^
30660 S13600: DMOVE AC,[202000,,0
30661 063370 120 04 0 00 072722 0,,0]
30662 DFAD AC,[600400,,0
30663 063371 110 04 0 00 072663 0,,0]
30664 063372 312 04 0 00 072663 CAME AC,[600400,,0]
30665 063373 003 04 0 00 013601 ER3 AC,13601
30666 063374 312 05 0 00 070660 CAME AC+1,[0,,0]
30667 063375 004 05 0 00 013601 ER4 AC+1,13601
30668 063376 321 10 0 00 063370 JUMPL AC+4,S13600 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6-2
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0689
30669
30670 SDFA 137,203000,0,0,0,600400,0,0,0,600400,0,0,0^
30671 S13700: DMOVE AC,[203000,,0
30672 063377 120 04 0 00 072750 0,,0]
30673 DFAD AC,[600400,,0
30674 063400 110 04 0 00 072663 0,,0]
30675 063401 312 04 0 00 072663 CAME AC,[600400,,0]
30676 063402 003 04 0 00 013701 ER3 AC,13701
30677 063403 312 05 0 00 070660 CAME AC+1,[0,,0]
30678 063404 004 05 0 00 013701 ER4 AC+1,13701
30679 063405 321 10 0 00 063377 JUMPL AC+4,S13700 ;LOOP ON ERROR SWITCH^
30680
30681 SDFA 140,204000,0,0,0,600400,0,0,0,600400,0,0,0^
30682 S14000: DMOVE AC,[204000,,0
30683 063406 120 04 0 00 072724 0,,0]
30684 DFAD AC,[600400,,0
30685 063407 110 04 0 00 072663 0,,0]
30686 063410 312 04 0 00 072663 CAME AC,[600400,,0]
30687 063411 003 04 0 00 014001 ER3 AC,14001
30688 063412 312 05 0 00 070660 CAME AC+1,[0,,0]
30689 063413 004 05 0 00 014001 ER4 AC+1,14001
30690 063414 321 10 0 00 063406 JUMPL AC+4,S14000 ;LOOP ON ERROR SWITCH^
30691
30692 SDFA 141,206000,0,0,0,600400,0,0,0,600400,0,0,0^
30693 S14100: DMOVE AC,[206000,,0
30694 063415 120 04 0 00 072752 0,,0]
30695 DFAD AC,[600400,,0
30696 063416 110 04 0 00 072663 0,,0]
30697 063417 312 04 0 00 072663 CAME AC,[600400,,0]
30698 063420 003 04 0 00 014101 ER3 AC,14101
30699 063421 312 05 0 00 070660 CAME AC+1,[0,,0]
30700 063422 004 05 0 00 014101 ER4 AC+1,14101
30701 063423 321 10 0 00 063415 JUMPL AC+4,S14100 ;LOOP ON ERROR SWITCH^
30702
30703 SDFA 142,207000,0,0,0,600400,0,0,0,600400,0,0,0^
30704 S14200: DMOVE AC,[207000,,0
30705 063424 120 04 0 00 072726 0,,0]
30706 DFAD AC,[600400,,0
30707 063425 110 04 0 00 072663 0,,0]
30708 063426 312 04 0 00 072663 CAME AC,[600400,,0]
30709 063427 003 04 0 00 014201 ER3 AC,14201
30710 063430 312 05 0 00 070660 CAME AC+1,[0,,0]
30711 063431 004 05 0 00 014201 ER4 AC+1,14201
30712 063432 321 10 0 00 063424 JUMPL AC+4,S14200 ;LOOP ON ERROR SWITCH^
30713
30714 SDFA 143,400200,0,0,0,377400,0,0,0,401400,0,0,0^
30715 S14300: DMOVE AC,[400200,,0
30716 063433 120 04 0 00 072754 0,,0]
30717 DFAD AC,[377400,,0
30718 063434 110 04 0 00 072756 0,,0]
30719 063435 312 04 0 00 072760 CAME AC,[401400,,0]
30720 063436 003 04 0 00 014301 ER3 AC,14301
30721 063437 312 05 0 00 070660 CAME AC+1,[0,,0]
30722 063440 004 05 0 00 014301 ER4 AC+1,14301
30723 063441 321 10 0 00 063433 JUMPL AC+4,S14300 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6-3
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0690
30724
30725 SDFA 144,377400,0,0,0,400200,0,0,0,401400,0,0,0^
30726 S14400: DMOVE AC,[377400,,0
30727 063442 120 04 0 00 072756 0,,0]
30728 DFAD AC,[400200,,0
30729 063443 110 04 0 00 072754 0,,0]
30730 063444 312 04 0 00 072760 CAME AC,[401400,,0]
30731 063445 003 04 0 00 014401 ER3 AC,14401
30732 063446 312 05 0 00 070660 CAME AC+1,[0,,0]
30733 063447 004 05 0 00 014401 ER4 AC+1,14401
30734 063450 321 10 0 00 063442 JUMPL AC+4,S14400 ;LOOP ON ERROR SWITCH^
30735
30736 SDFA 145,200400,0,0,0,600400,0,0,0,177400,0,0,0^
30737 S14500: DMOVE AC,[200400,,0
30738 063451 120 04 0 00 070745 0,,0]
30739 DFAD AC,[600400,,0
30740 063452 110 04 0 00 072663 0,,0]
30741 063453 312 04 0 00 070636 CAME AC,[177400,,0]
30742 063454 003 04 0 00 014501 ER3 AC,14501
30743 063455 312 05 0 00 070660 CAME AC+1,[0,,0]
30744 063456 004 05 0 00 014501 ER4 AC+1,14501
30745 063457 321 10 0 00 063451 JUMPL AC+4,S14500 ;LOOP ON ERROR SWITCH^
30746
30747 SDFA 146,200600,0,0,0,201400,0,0,0,201700,0,0,0^
30748 S14600: DMOVE AC,[200600,,0
30749 063460 120 04 0 00 072127 0,,0]
30750 DFAD AC,[201400,,0
30751 063461 110 04 0 00 072123 0,,0]
30752 063462 312 04 0 00 072761 CAME AC,[201700,,0]
30753 063463 003 04 0 00 014601 ER3 AC,14601
30754 063464 312 05 0 00 070660 CAME AC+1,[0,,0]
30755 063465 004 05 0 00 014601 ER4 AC+1,14601
30756 063466 321 10 0 00 063460 JUMPL AC+4,S14600 ;LOOP ON ERROR SWITCH^
30757
30758 SDFA 147,577600,0,0,0,200400,0,0,0,177400,0,0,0^
30759 S14700: DMOVE AC,[577600,,0
30760 063467 120 04 0 00 072762 0,,0]
30761 DFAD AC,[200400,,0
30762 063470 110 04 0 00 070745 0,,0]
30763 063471 312 04 0 00 070636 CAME AC,[177400,,0]
30764 063472 003 04 0 00 014701 ER3 AC,14701
30765 063473 312 05 0 00 070660 CAME AC+1,[0,,0]
30766 063474 004 05 0 00 014701 ER4 AC+1,14701
30767 063475 321 10 0 00 063467 JUMPL AC+4,S14700 ;LOOP ON ERROR SWITCH^
30768
30769 SDFA 150,600400,0,0,0,577200,0,0,0,576400,0,0,0^
30770 S15000: DMOVE AC,[600400,,0
30771 063476 120 04 0 00 072663 0,,0]
30772 DFAD AC,[577200,,0
30773 063477 110 04 0 00 072764 0,,0]
30774 063500 312 04 0 00 070637 CAME AC,[576400,,0]
30775 063501 003 04 0 00 015001 ER3 AC,15001
30776 063502 312 05 0 00 070660 CAME AC+1,[0,,0]
30777 063503 004 05 0 00 015001 ER4 AC+1,15001
30778 063504 321 10 0 00 063476 JUMPL AC+4,S15000 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6-4
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0691
30779
30780 SDFA 151,576400,0,0,0,200400,0,0,0,577400,0,0,0^
30781 S15100: DMOVE AC,[576400,,0
30782 063505 120 04 0 00 072766 0,,0]
30783 DFAD AC,[200400,,0
30784 063506 110 04 0 00 070745 0,,0]
30785 063507 312 04 0 00 072125 CAME AC,[577400,,0]
30786 063510 003 04 0 00 015101 ER3 AC,15101
30787 063511 312 05 0 00 070660 CAME AC+1,[0,,0]
30788 063512 004 05 0 00 015101 ER4 AC+1,15101
30789 063513 321 10 0 00 063505 JUMPL AC+4,S15100 ;LOOP ON ERROR SWITCH^
30790
30791 SDFA 152,200440,0,0,0,200400,0,0,0,201420,0,0,0^
30792 S15200: DMOVE AC,[200440,,0
30793 063514 120 04 0 00 072133 0,,0]
30794 DFAD AC,[200400,,0
30795 063515 110 04 0 00 070745 0,,0]
30796 063516 312 04 0 00 071642 CAME AC,[201420,,0]
30797 063517 003 04 0 00 015201 ER3 AC,15201
30798 063520 312 05 0 00 070660 CAME AC+1,[0,,0]
30799 063521 004 05 0 00 015201 ER4 AC+1,15201
30800 063522 321 10 0 00 063514 JUMPL AC+4,S15200 ;LOOP ON ERROR SWITCH^
30801
30802 SDFA 153,577400,0,0,0,577400,0,0,0,576400,0,0,0^
30803 S15300: DMOVE AC,[577400,,0
30804 063523 120 04 0 00 072125 0,,0]
30805 DFAD AC,[577400,,0
30806 063524 110 04 0 00 072125 0,,0]
30807 063525 312 04 0 00 070637 CAME AC,[576400,,0]
30808 063526 003 04 0 00 015301 ER3 AC,15301
30809 063527 312 05 0 00 070660 CAME AC+1,[0,,0]
30810 063530 004 05 0 00 015301 ER4 AC+1,15301
30811 063531 321 10 0 00 063523 JUMPL AC+4,S15300 ;LOOP ON ERROR SWITCH^
30812
30813 SDFA 154,200400,77,0,0,206400,0,0,0,206404,0,374000,0^
30814 S15400: DMOVE AC,[200400,,77
30815 063532 120 04 0 00 072770 0,,0]
30816 DFAD AC,[206400,,0
30817 063533 110 04 0 00 072772 0,,0]
30818 063534 312 04 0 00 072774 CAME AC,[206404,,0]
30819 063535 003 04 0 00 015401 ER3 AC,15401
30820 063536 312 05 0 00 072505 CAME AC+1,[374000,,0]
30821 063537 004 05 0 00 015401 ER4 AC+1,15401
30822 063540 321 10 0 00 063532 JUMPL AC+4,S15400 ;LOOP ON ERROR SWITCH^
30823
30824 SDFA 155,30400,3,0,0,32400,0,0,0,32500,0,300000,0^
30825 S15500: DMOVE AC,[30400,,3
30826 063541 120 04 0 00 072775 0,,0]
30827 DFAD AC,[32400,,0
30828 063542 110 04 0 00 072777 0,,0]
30829 063543 312 04 0 00 073001 CAME AC,[32500,,0]
30830 063544 003 04 0 00 015501 ER3 AC,15501
30831 063545 312 05 0 00 072525 CAME AC+1,[300000,,0]
30832 063546 004 05 0 00 015501 ER4 AC+1,15501
30833 063547 321 10 0 00 063541 JUMPL AC+4,S15500 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 6-5
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0692
30834
30835 SDFA 156,200400,1,0,0,201600,0,0,0,202400,0,100000,0^
30836 S15600: DMOVE AC,[200400,,1
30837 063550 120 04 0 00 072211 0,,0]
30838 DFAD AC,[201600,,0
30839 063551 110 04 0 00 073002 0,,0]
30840 063552 312 04 0 00 070615 CAME AC,[202400,,0]
30841 063553 003 04 0 00 015601 ER3 AC,15601
30842 063554 312 05 0 00 071072 CAME AC+1,[100000,,0]
30843 063555 004 05 0 00 015601 ER4 AC+1,15601
30844 063556 321 10 0 00 063550 JUMPL AC+4,S15600 ;LOOP ON ERROR SWITCH^
30845
30846 SDFA 157,577400,3,0,0,202400,0,0,0,201600,1,200000,0^
30847 S15700: DMOVE AC,[577400,,3
30848 063557 120 04 0 00 073004 0,,0]
30849 DFAD AC,[202400,,0
30850 063560 110 04 0 00 072677 0,,0]
30851 063561 312 04 0 00 073006 CAME AC,[201600,,1]
30852 063562 003 04 0 00 015701 ER3 AC,15701
30853 063563 312 05 0 00 070743 CAME AC+1,[200000,,0]
30854 063564 004 05 0 00 015701 ER4 AC+1,15701
30855 063565 321 10 0 00 063557 JUMPL AC+4,S15700 ;LOOP ON ERROR SWITCH^
30856
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0693
30857
30858 SDFA 160,200400,3,0,0,202400,0,0,0,202500,0,300000,0^
30859 S16000: DMOVE AC,[200400,,3
30860 063566 120 04 0 00 073007 0,,0]
30861 DFAD AC,[202400,,0
30862 063567 110 04 0 00 072677 0,,0]
30863 063570 312 04 0 00 072701 CAME AC,[202500,,0]
30864 063571 003 04 0 00 016001 ER3 AC,16001
30865 063572 312 05 0 00 072525 CAME AC+1,[300000,,0]
30866 063573 004 05 0 00 016001 ER4 AC+1,16001
30867 063574 321 10 0 00 063566 JUMPL AC+4,S16000 ;LOOP ON ERROR SWITCH^
30868
30869 SDFA 161,200400,-1,0,0,202400,0,0,0,202500,177777,300000,0^
30870 S16100: DMOVE AC,[200400,,-1
30871 063575 120 04 0 00 073011 0,,0]
30872 DFAD AC,[202400,,0
30873 063576 110 04 0 00 072677 0,,0]
30874 063577 312 04 0 00 073013 CAME AC,[202500,,177777]
30875 063600 003 04 0 00 016101 ER3 AC,16101
30876 063601 312 05 0 00 072525 CAME AC+1,[300000,,0]
30877 063602 004 05 0 00 016101 ER4 AC+1,16101
30878 063603 321 10 0 00 063575 JUMPL AC+4,S16100 ;LOOP ON ERROR SWITCH^
30879
30880 SDFA 162,200200,1,0,0,200200,1,0,0,200400,2,0,0^
30881 S16200: DMOVE AC,[200200,,1
30882 063604 120 04 0 00 073014 0,,0]
30883 DFAD AC,[200200,,1
30884 063605 110 04 0 00 073014 0,,0]
30885 063606 312 04 0 00 072207 CAME AC,[200400,,2]
30886 063607 003 04 0 00 016201 ER3 AC,16201
30887 063610 312 05 0 00 070660 CAME AC+1,[0,,0]
30888 063611 004 05 0 00 016201 ER4 AC+1,16201
30889 063612 321 10 0 00 063604 JUMPL AC+4,S16200 ;LOOP ON ERROR SWITCH^
30890
30891 SDFA 163,200200,2,0,0,200200,2,0,0,200400,4,0,0^
30892 S16300: DMOVE AC,[200200,,2
30893 063613 120 04 0 00 073016 0,,0]
30894 DFAD AC,[200200,,2
30895 063614 110 04 0 00 073016 0,,0]
30896 063615 312 04 0 00 072205 CAME AC,[200400,,4]
30897 063616 003 04 0 00 016301 ER3 AC,16301
30898 063617 312 05 0 00 070660 CAME AC+1,[0,,0]
30899 063620 004 05 0 00 016301 ER4 AC+1,16301
30900 063621 321 10 0 00 063613 JUMPL AC+4,S16300 ;LOOP ON ERROR SWITCH^
30901
30902 SDFA 164,200200,4,0,0,200200,4,0,0,200400,10,0,0^
30903 S16400: DMOVE AC,[200200,,4
30904 063622 120 04 0 00 073020 0,,0]
30905 DFAD AC,[200200,,4
30906 063623 110 04 0 00 073020 0,,0]
30907 063624 312 04 0 00 072203 CAME AC,[200400,,10]
30908 063625 003 04 0 00 016401 ER3 AC,16401
30909 063626 312 05 0 00 070660 CAME AC+1,[0,,0]
30910 063627 004 05 0 00 016401 ER4 AC+1,16401
30911 063630 321 10 0 00 063622 JUMPL AC+4,S16400 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-1
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0694
30912
30913 SDFA 165,200200,10,0,0,200200,10,0,0,200400,20,0,0^
30914 S16500: DMOVE AC,[200200,,10
30915 063631 120 04 0 00 073022 0,,0]
30916 DFAD AC,[200200,,10
30917 063632 110 04 0 00 073022 0,,0]
30918 063633 312 04 0 00 072201 CAME AC,[200400,,20]
30919 063634 003 04 0 00 016501 ER3 AC,16501
30920 063635 312 05 0 00 070660 CAME AC+1,[0,,0]
30921 063636 004 05 0 00 016501 ER4 AC+1,16501
30922 063637 321 10 0 00 063631 JUMPL AC+4,S16500 ;LOOP ON ERROR SWITCH^
30923
30924 SDFA 166,200200,20,0,0,200200,20,0,0,200400,40,0,0^
30925 S16600: DMOVE AC,[200200,,20
30926 063640 120 04 0 00 073024 0,,0]
30927 DFAD AC,[200200,,20
30928 063641 110 04 0 00 073024 0,,0]
30929 063642 312 04 0 00 072177 CAME AC,[200400,,40]
30930 063643 003 04 0 00 016601 ER3 AC,16601
30931 063644 312 05 0 00 070660 CAME AC+1,[0,,0]
30932 063645 004 05 0 00 016601 ER4 AC+1,16601
30933 063646 321 10 0 00 063640 JUMPL AC+4,S16600 ;LOOP ON ERROR SWITCH^
30934
30935 SDFA 167,200200,40,0,0,200200,40,0,0,200400,100,0,0^
30936 S16700: DMOVE AC,[200200,,40
30937 063647 120 04 0 00 073026 0,,0]
30938 DFAD AC,[200200,,40
30939 063650 110 04 0 00 073026 0,,0]
30940 063651 312 04 0 00 072175 CAME AC,[200400,,100]
30941 063652 003 04 0 00 016701 ER3 AC,16701
30942 063653 312 05 0 00 070660 CAME AC+1,[0,,0]
30943 063654 004 05 0 00 016701 ER4 AC+1,16701
30944 063655 321 10 0 00 063647 JUMPL AC+4,S16700 ;LOOP ON ERROR SWITCH^
30945
30946 SDFA 170,200200,100,0,0,200200,100,0,0,200400,200,0,0^
30947 S17000: DMOVE AC,[200200,,100
30948 063656 120 04 0 00 073030 0,,0]
30949 DFAD AC,[200200,,100
30950 063657 110 04 0 00 073030 0,,0]
30951 063660 312 04 0 00 072173 CAME AC,[200400,,200]
30952 063661 003 04 0 00 017001 ER3 AC,17001
30953 063662 312 05 0 00 070660 CAME AC+1,[0,,0]
30954 063663 004 05 0 00 017001 ER4 AC+1,17001
30955 063664 321 10 0 00 063656 JUMPL AC+4,S17000 ;LOOP ON ERROR SWITCH^
30956
30957 SDFA 171,200200,200,0,0,200200,200,0,0,200400,400,0,0^
30958 S17100: DMOVE AC,[200200,,200
30959 063665 120 04 0 00 073032 0,,0]
30960 DFAD AC,[200200,,200
30961 063666 110 04 0 00 073032 0,,0]
30962 063667 312 04 0 00 072171 CAME AC,[200400,,400]
30963 063670 003 04 0 00 017101 ER3 AC,17101
30964 063671 312 05 0 00 070660 CAME AC+1,[0,,0]
30965 063672 004 05 0 00 017101 ER4 AC+1,17101
30966 063673 321 10 0 00 063665 JUMPL AC+4,S17100 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-2
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0695
30967
30968 SDFA 172,200200,400,0,0,200200,400,0,0,200400,1000,0,0^
30969 S17200: DMOVE AC,[200200,,400
30970 063674 120 04 0 00 073034 0,,0]
30971 DFAD AC,[200200,,400
30972 063675 110 04 0 00 073034 0,,0]
30973 063676 312 04 0 00 072167 CAME AC,[200400,,1000]
30974 063677 003 04 0 00 017201 ER3 AC,17201
30975 063700 312 05 0 00 070660 CAME AC+1,[0,,0]
30976 063701 004 05 0 00 017201 ER4 AC+1,17201
30977 063702 321 10 0 00 063674 JUMPL AC+4,S17200 ;LOOP ON ERROR SWITCH^
30978
30979 SDFA 173,200200,1000,0,0,200200,1000,0,0,200400,2000,0,0^
30980 S17300: DMOVE AC,[200200,,1000
30981 063703 120 04 0 00 073036 0,,0]
30982 DFAD AC,[200200,,1000
30983 063704 110 04 0 00 073036 0,,0]
30984 063705 312 04 0 00 072165 CAME AC,[200400,,2000]
30985 063706 003 04 0 00 017301 ER3 AC,17301
30986 063707 312 05 0 00 070660 CAME AC+1,[0,,0]
30987 063710 004 05 0 00 017301 ER4 AC+1,17301
30988 063711 321 10 0 00 063703 JUMPL AC+4,S17300 ;LOOP ON ERROR SWITCH^
30989
30990 SDFA 174,172400,0,0,0,201400,0,0,0,201402,0,0,0^
30991 S17400: DMOVE AC,[172400,,0
30992 063712 120 04 0 00 073040 0,,0]
30993 DFAD AC,[201400,,0
30994 063713 110 04 0 00 072123 0,,0]
30995 063714 312 04 0 00 071637 CAME AC,[201402,,0]
30996 063715 003 04 0 00 017401 ER3 AC,17401
30997 063716 312 05 0 00 070660 CAME AC+1,[0,,0]
30998 063717 004 05 0 00 017401 ER4 AC+1,17401
30999 063720 321 10 0 00 063712 JUMPL AC+4,S17400 ;LOOP ON ERROR SWITCH^
31000
31001 SDFA 175,173400,0,0,0,201400,0,0,0,201404,0,0,0^
31002 S17500: DMOVE AC,[173400,,0
31003 063721 120 04 0 00 073042 0,,0]
31004 DFAD AC,[201400,,0
31005 063722 110 04 0 00 072123 0,,0]
31006 063723 312 04 0 00 071640 CAME AC,[201404,,0]
31007 063724 003 04 0 00 017501 ER3 AC,17501
31008 063725 312 05 0 00 070660 CAME AC+1,[0,,0]
31009 063726 004 05 0 00 017501 ER4 AC+1,17501
31010 063727 321 10 0 00 063721 JUMPL AC+4,S17500 ;LOOP ON ERROR SWITCH^
31011
31012 SDFA 176,174400,0,0,0,201400,0,0,0,201410,0,0,0^
31013 S17600: DMOVE AC,[174400,,0
31014 063730 120 04 0 00 073044 0,,0]
31015 DFAD AC,[201400,,0
31016 063731 110 04 0 00 072123 0,,0]
31017 063732 312 04 0 00 071641 CAME AC,[201410,,0]
31018 063733 003 04 0 00 017601 ER3 AC,17601
31019 063734 312 05 0 00 070660 CAME AC+1,[0,,0]
31020 063735 004 05 0 00 017601 ER4 AC+1,17601
31021 063736 321 10 0 00 063730 JUMPL AC+4,S17600 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-3
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0696
31022
31023 SDFA 177,175400,0,0,0,201400,0,0,0,201420,0,0,0^
31024 S17700: DMOVE AC,[175400,,0
31025 063737 120 04 0 00 073046 0,,0]
31026 DFAD AC,[201400,,0
31027 063740 110 04 0 00 072123 0,,0]
31028 063741 312 04 0 00 071642 CAME AC,[201420,,0]
31029 063742 003 04 0 00 017701 ER3 AC,17701
31030 063743 312 05 0 00 070660 CAME AC+1,[0,,0]
31031 063744 004 05 0 00 017701 ER4 AC+1,17701
31032 063745 321 10 0 00 063737 JUMPL AC+4,S17700 ;LOOP ON ERROR SWITCH^
31033
31034 SDFA 200,176400,0,0,0,201400,0,0,0,201440,0,0,0^
31035 S20000: DMOVE AC,[176400,,0
31036 063746 120 04 0 00 073050 0,,0]
31037 DFAD AC,[201400,,0
31038 063747 110 04 0 00 072123 0,,0]
31039 063750 312 04 0 00 071643 CAME AC,[201440,,0]
31040 063751 003 04 0 00 020001 ER3 AC,20001
31041 063752 312 05 0 00 070660 CAME AC+1,[0,,0]
31042 063753 004 05 0 00 020001 ER4 AC+1,20001
31043 063754 321 10 0 00 063746 JUMPL AC+4,S20000 ;LOOP ON ERROR SWITCH^
31044
31045 SDFA 201,177400,0,0,0,201400,0,0,0,201500,0,0,0^
31046 S20100: DMOVE AC,[177400,,0
31047 063755 120 04 0 00 072665 0,,0]
31048 DFAD AC,[201400,,0
31049 063756 110 04 0 00 072123 0,,0]
31050 063757 312 04 0 00 071644 CAME AC,[201500,,0]
31051 063760 003 04 0 00 020101 ER3 AC,20101
31052 063761 312 05 0 00 070660 CAME AC+1,[0,,0]
31053 063762 004 05 0 00 020101 ER4 AC+1,20101
31054 063763 321 10 0 00 063755 JUMPL AC+4,S20100 ;LOOP ON ERROR SWITCH^
31055
31056 SDFA 202,202600,0,0,0,200400,0,0,0,202700,0,0,0^
31057 S20200: DMOVE AC,[202600,,0
31058 063764 120 04 0 00 073052 0,,0]
31059 DFAD AC,[200400,,0
31060 063765 110 04 0 00 070745 0,,0]
31061 063766 312 04 0 00 073054 CAME AC,[202700,,0]
31062 063767 003 04 0 00 020201 ER3 AC,20201
31063 063770 312 05 0 00 070660 CAME AC+1,[0,,0]
31064 063771 004 05 0 00 020201 ER4 AC+1,20201
31065 063772 321 10 0 00 063764 JUMPL AC+4,S20200 ;LOOP ON ERROR SWITCH^
31066
31067 SDFA 203,400,0,0,0,200400,0,0,0,200400,0,0,0^
31068 S20300: DMOVE AC,[400,,0
31069 063773 120 04 0 00 071566 0,,0]
31070 DFAD AC,[200400,,0
31071 063774 110 04 0 00 070745 0,,0]
31072 063775 312 04 0 00 070614 CAME AC,[200400,,0]
31073 063776 003 04 0 00 020301 ER3 AC,20301
31074 063777 312 05 0 00 070660 CAME AC+1,[0,,0]
31075 064000 004 05 0 00 020301 ER4 AC+1,20301
31076 064001 321 10 0 00 063773 JUMPL AC+4,S20300 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-4
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0697
31077
31078 SDFA 204,400,0,0,0,201400,0,0,0,201400,0,0,0^
31079 S20400: DMOVE AC,[400,,0
31080 064002 120 04 0 00 071566 0,,0]
31081 DFAD AC,[201400,,0
31082 064003 110 04 0 00 072123 0,,0]
31083 064004 312 04 0 00 071613 CAME AC,[201400,,0]
31084 064005 003 04 0 00 020401 ER3 AC,20401
31085 064006 312 05 0 00 070660 CAME AC+1,[0,,0]
31086 064007 004 05 0 00 020401 ER4 AC+1,20401
31087 064010 321 10 0 00 064002 JUMPL AC+4,S20400 ;LOOP ON ERROR SWITCH^
31088
31089 SDFA 205,400,0,0,0,202400,0,0,0,202400,0,0,0^
31090 S20500: DMOVE AC,[400,,0
31091 064011 120 04 0 00 071566 0,,0]
31092 DFAD AC,[202400,,0
31093 064012 110 04 0 00 072677 0,,0]
31094 064013 312 04 0 00 070615 CAME AC,[202400,,0]
31095 064014 003 04 0 00 020501 ER3 AC,20501
31096 064015 312 05 0 00 070660 CAME AC+1,[0,,0]
31097 064016 004 05 0 00 020501 ER4 AC+1,20501
31098 064017 321 10 0 00 064011 JUMPL AC+4,S20500 ;LOOP ON ERROR SWITCH^
31099
31100 SDFA 206,200000,0,0,0,201000,0,0,0,0,0,0,0^
31101 S20600: DMOVE AC,[200000,,0
31102 064020 120 04 0 00 070743 0,,0]
31103 DFAD AC,[201000,,0
31104 064021 110 04 0 00 072720 0,,0]
31105 064022 312 04 0 00 070660 CAME AC,[0,,0]
31106 064023 003 04 0 00 020601 ER3 AC,20601
31107 064024 312 05 0 00 070660 CAME AC+1,[0,,0]
31108 064025 004 05 0 00 020601 ER4 AC+1,20601
31109 064026 321 10 0 00 064020 JUMPL AC+4,S20600 ;LOOP ON ERROR SWITCH^
31110
31111 SDFA 207,200000,0,0,0,202000,0,0,0,0,0,0,0^
31112 S20700: DMOVE AC,[200000,,0
31113 064027 120 04 0 00 070743 0,,0]
31114 DFAD AC,[202000,,0
31115 064030 110 04 0 00 072722 0,,0]
31116 064031 312 04 0 00 070660 CAME AC,[0,,0]
31117 064032 003 04 0 00 020701 ER3 AC,20701
31118 064033 312 05 0 00 070660 CAME AC+1,[0,,0]
31119 064034 004 05 0 00 020701 ER4 AC+1,20701
31120 064035 321 10 0 00 064027 JUMPL AC+4,S20700 ;LOOP ON ERROR SWITCH^
31121
31122 SDFA 210,200000,0,0,0,203000,0,0,0,0,0,0,0^
31123 S21000: DMOVE AC,[200000,,0
31124 064036 120 04 0 00 070743 0,,0]
31125 DFAD AC,[203000,,0
31126 064037 110 04 0 00 072750 0,,0]
31127 064040 312 04 0 00 070660 CAME AC,[0,,0]
31128 064041 003 04 0 00 021001 ER3 AC,21001
31129 064042 312 05 0 00 070660 CAME AC+1,[0,,0]
31130 064043 004 05 0 00 021001 ER4 AC+1,21001
31131 064044 321 10 0 00 064036 JUMPL AC+4,S21000 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 7-5
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0698
31132
31133 SDFA 211,200400,0,0,0,200400,0,0,0,201400,0,0,0^
31134 S21100: DMOVE AC,[200400,,0
31135 064045 120 04 0 00 070745 0,,0]
31136 DFAD AC,[200400,,0
31137 064046 110 04 0 00 070745 0,,0]
31138 064047 312 04 0 00 071613 CAME AC,[201400,,0]
31139 064050 003 04 0 00 021101 ER3 AC,21101
31140 064051 312 05 0 00 070660 CAME AC+1,[0,,0]
31141 064052 004 05 0 00 021101 ER4 AC+1,21101
31142 064053 321 10 0 00 064045 JUMPL AC+4,S21100 ;LOOP ON ERROR SWITCH^
31143
31144 SDFA 212,201400,0,0,0,201400,0,0,0,202400,0,0,0^
31145 S21200: DMOVE AC,[201400,,0
31146 064054 120 04 0 00 072123 0,,0]
31147 DFAD AC,[201400,,0
31148 064055 110 04 0 00 072123 0,,0]
31149 064056 312 04 0 00 070615 CAME AC,[202400,,0]
31150 064057 003 04 0 00 021201 ER3 AC,21201
31151 064060 312 05 0 00 070660 CAME AC+1,[0,,0]
31152 064061 004 05 0 00 021201 ER4 AC+1,21201
31153 064062 321 10 0 00 064054 JUMPL AC+4,S21200 ;LOOP ON ERROR SWITCH^
31154
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0699
31155
31156 SDFA 213,202400,0,0,0,202400,0,0,0,203400,0,0,0^
31157 S21300: DMOVE AC,[202400,,0
31158 064063 120 04 0 00 072677 0,,0]
31159 DFAD AC,[202400,,0
31160 064064 110 04 0 00 072677 0,,0]
31161 064065 312 04 0 00 070616 CAME AC,[203400,,0]
31162 064066 003 04 0 00 021301 ER3 AC,21301
31163 064067 312 05 0 00 070660 CAME AC+1,[0,,0]
31164 064070 004 05 0 00 021301 ER4 AC+1,21301
31165 064071 321 10 0 00 064063 JUMPL AC+4,S21300 ;LOOP ON ERROR SWITCH^
31166
31167 SDFA 214,200100,0,0,0,200100,0,0,0,177400,0,0,0^
31168 S21400: DMOVE AC,[200100,,0
31169 064072 120 04 0 00 070751 0,,0]
31170 DFAD AC,[200100,,0
31171 064073 110 04 0 00 070751 0,,0]
31172 064074 312 04 0 00 070636 CAME AC,[177400,,0]
31173 064075 003 04 0 00 021401 ER3 AC,21401
31174 064076 312 05 0 00 070660 CAME AC+1,[0,,0]
31175 064077 004 05 0 00 021401 ER4 AC+1,21401
31176 064100 321 10 0 00 064072 JUMPL AC+4,S21400 ;LOOP ON ERROR SWITCH^
31177
31178 SDFA 215,200040,0,0,0,200040,0,0,0,176400,0,0,0^
31179 S21500: DMOVE AC,[200040,,0
31180 064101 120 04 0 00 070754 0,,0]
31181 DFAD AC,[200040,,0
31182 064102 110 04 0 00 070754 0,,0]
31183 064103 312 04 0 00 070753 CAME AC,[176400,,0]
31184 064104 003 04 0 00 021501 ER3 AC,21501
31185 064105 312 05 0 00 070660 CAME AC+1,[0,,0]
31186 064106 004 05 0 00 021501 ER4 AC+1,21501
31187 064107 321 10 0 00 064101 JUMPL AC+4,S21500 ;LOOP ON ERROR SWITCH^
31188
31189 SDFA 216,200020,0,0,0,200020,0,0,0,175400,0,0,0^
31190 S21600: DMOVE AC,[200020,,0
31191 064110 120 04 0 00 070757 0,,0]
31192 DFAD AC,[200020,,0
31193 064111 110 04 0 00 070757 0,,0]
31194 064112 312 04 0 00 070756 CAME AC,[175400,,0]
31195 064113 003 04 0 00 021601 ER3 AC,21601
31196 064114 312 05 0 00 070660 CAME AC+1,[0,,0]
31197 064115 004 05 0 00 021601 ER4 AC+1,21601
31198 064116 321 10 0 00 064110 JUMPL AC+4,S21600 ;LOOP ON ERROR SWITCH^
31199
31200 SDFA 217,577400,0,0,0,576400,0,0,0,576200,0,0,0^
31201 S21700: DMOVE AC,[577400,,0
31202 064117 120 04 0 00 072125 0,,0]
31203 DFAD AC,[576400,,0
31204 064120 110 04 0 00 072766 0,,0]
31205 064121 312 04 0 00 073055 CAME AC,[576200,,0]
31206 064122 003 04 0 00 021701 ER3 AC,21701
31207 064123 312 05 0 00 070660 CAME AC+1,[0,,0]
31208 064124 004 05 0 00 021701 ER4 AC+1,21701
31209 064125 321 10 0 00 064117 JUMPL AC+4,S21700 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8-1
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0700
31210
31211 SDFA 220,600400,0,0,0,576400,0,0,0,576300,0,0,0^
31212 S22000: DMOVE AC,[600400,,0
31213 064126 120 04 0 00 072663 0,,0]
31214 DFAD AC,[576400,,0
31215 064127 110 04 0 00 072766 0,,0]
31216 064130 312 04 0 00 073056 CAME AC,[576300,,0]
31217 064131 003 04 0 00 022001 ER3 AC,22001
31218 064132 312 05 0 00 070660 CAME AC+1,[0,,0]
31219 064133 004 05 0 00 022001 ER4 AC+1,22001
31220 064134 321 10 0 00 064126 JUMPL AC+4,S22000 ;LOOP ON ERROR SWITCH^
31221
31222 SDFA 221,601400,0,0,0,576400,0,0,0,576340,0,0,0^
31223 S22100: DMOVE AC,[601400,,0
31224 064135 120 04 0 00 073057 0,,0]
31225 DFAD AC,[576400,,0
31226 064136 110 04 0 00 072766 0,,0]
31227 064137 312 04 0 00 073061 CAME AC,[576340,,0]
31228 064140 003 04 0 00 022101 ER3 AC,22101
31229 064141 312 05 0 00 070660 CAME AC+1,[0,,0]
31230 064142 004 05 0 00 022101 ER4 AC+1,22101
31231 064143 321 10 0 00 064135 JUMPL AC+4,S22100 ;LOOP ON ERROR SWITCH^
31232
31233 SDFA 222,576400,0,0,0,577400,0,0,0,576200,0,0,0^
31234 S22200: DMOVE AC,[576400,,0
31235 064144 120 04 0 00 072766 0,,0]
31236 DFAD AC,[577400,,0
31237 064145 110 04 0 00 072125 0,,0]
31238 064146 312 04 0 00 073055 CAME AC,[576200,,0]
31239 064147 003 04 0 00 022201 ER3 AC,22201
31240 064150 312 05 0 00 070660 CAME AC+1,[0,,0]
31241 064151 004 05 0 00 022201 ER4 AC+1,22201
31242 064152 321 10 0 00 064144 JUMPL AC+4,S22200 ;LOOP ON ERROR SWITCH^
31243
31244 SDFA 223,576400,0,0,0,600400,0,0,0,576300,0,0,0^
31245 S22300: DMOVE AC,[576400,,0
31246 064153 120 04 0 00 072766 0,,0]
31247 DFAD AC,[600400,,0
31248 064154 110 04 0 00 072663 0,,0]
31249 064155 312 04 0 00 073056 CAME AC,[576300,,0]
31250 064156 003 04 0 00 022301 ER3 AC,22301
31251 064157 312 05 0 00 070660 CAME AC+1,[0,,0]
31252 064160 004 05 0 00 022301 ER4 AC+1,22301
31253 064161 321 10 0 00 064153 JUMPL AC+4,S22300 ;LOOP ON ERROR SWITCH^
31254
31255 SDFA 224,576400,0,0,0,601400,0,0,0,576340,0,0,0^
31256 S22400: DMOVE AC,[576400,,0
31257 064162 120 04 0 00 072766 0,,0]
31258 DFAD AC,[601400,,0
31259 064163 110 04 0 00 073057 0,,0]
31260 064164 312 04 0 00 073061 CAME AC,[576340,,0]
31261 064165 003 04 0 00 022401 ER3 AC,22401
31262 064166 312 05 0 00 070660 CAME AC+1,[0,,0]
31263 064167 004 05 0 00 022401 ER4 AC+1,22401
31264 064170 321 10 0 00 064162 JUMPL AC+4,S22400 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8-2
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0701
31265
31266 SDFA 225,577400,0,0,0,577400,0,0,0,576400,0,0,0^
31267 S22500: DMOVE AC,[577400,,0
31268 064171 120 04 0 00 072125 0,,0]
31269 DFAD AC,[577400,,0
31270 064172 110 04 0 00 072125 0,,0]
31271 064173 312 04 0 00 070637 CAME AC,[576400,,0]
31272 064174 003 04 0 00 022501 ER3 AC,22501
31273 064175 312 05 0 00 070660 CAME AC+1,[0,,0]
31274 064176 004 05 0 00 022501 ER4 AC+1,22501
31275 064177 321 10 0 00 064171 JUMPL AC+4,S22500 ;LOOP ON ERROR SWITCH^
31276
31277 SDFA 226,601400,0,0,0,601400,0,0,0,600400,0,0,0^
31278 S22600: DMOVE AC,[601400,,0
31279 064200 120 04 0 00 073057 0,,0]
31280 DFAD AC,[601400,,0
31281 064201 110 04 0 00 073057 0,,0]
31282 064202 312 04 0 00 072663 CAME AC,[600400,,0]
31283 064203 003 04 0 00 022601 ER3 AC,22601
31284 064204 312 05 0 00 070660 CAME AC+1,[0,,0]
31285 064205 004 05 0 00 022601 ER4 AC+1,22601
31286 064206 321 10 0 00 064200 JUMPL AC+4,S22600 ;LOOP ON ERROR SWITCH^
31287
31288 SDFA 227,201400,0,0,0,577400,0,0,0,200400,0,0,0^
31289 S22700: DMOVE AC,[201400,,0
31290 064207 120 04 0 00 072123 0,,0]
31291 DFAD AC,[577400,,0
31292 064210 110 04 0 00 072125 0,,0]
31293 064211 312 04 0 00 070614 CAME AC,[200400,,0]
31294 064212 003 04 0 00 022701 ER3 AC,22701
31295 064213 312 05 0 00 070660 CAME AC+1,[0,,0]
31296 064214 004 05 0 00 022701 ER4 AC+1,22701
31297 064215 321 10 0 00 064207 JUMPL AC+4,S22700 ;LOOP ON ERROR SWITCH^
31298
31299 SDFA 230,201400,0,0,0,600400,0,0,0,200600,0,0,0^
31300 S23000: DMOVE AC,[201400,,0
31301 064216 120 04 0 00 072123 0,,0]
31302 DFAD AC,[600400,,0
31303 064217 110 04 0 00 072663 0,,0]
31304 064220 312 04 0 00 072127 CAME AC,[200600,,0]
31305 064221 003 04 0 00 023001 ER3 AC,23001
31306 064222 312 05 0 00 070660 CAME AC+1,[0,,0]
31307 064223 004 05 0 00 023001 ER4 AC+1,23001
31308 064224 321 10 0 00 064216 JUMPL AC+4,S23000 ;LOOP ON ERROR SWITCH^
31309
31310 SDFA 231,201400,0,0,0,601400,0,0,0,200700,0,0,0^
31311 S23100: DMOVE AC,[201400,,0
31312 064225 120 04 0 00 072123 0,,0]
31313 DFAD AC,[601400,,0
31314 064226 110 04 0 00 073057 0,,0]
31315 064227 312 04 0 00 070646 CAME AC,[200700,,0]
31316 064230 003 04 0 00 023101 ER3 AC,23101
31317 064231 312 05 0 00 070660 CAME AC+1,[0,,0]
31318 064232 004 05 0 00 023101 ER4 AC+1,23101
31319 064233 321 10 0 00 064225 JUMPL AC+4,S23100 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8-3
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0702
31320
31321 SDFA 232,200000,0,0,0,200000,1,0,0,146400,0,0,0^
31322 S23200: DMOVE AC,[200000,,0
31323 064234 120 04 0 00 070743 0,,0]
31324 DFAD AC,[200000,,1
31325 064235 110 04 0 00 071061 0,,0]
31326 064236 312 04 0 00 071063 CAME AC,[146400,,0]
31327 064237 003 04 0 00 023201 ER3 AC,23201
31328 064240 312 05 0 00 070660 CAME AC+1,[0,,0]
31329 064241 004 05 0 00 023201 ER4 AC+1,23201
31330 064242 321 10 0 00 064234 JUMPL AC+4,S23200 ;LOOP ON ERROR SWITCH^
31331
31332 SDFA 233,200000,0,0,0,200000,2,0,0,147400,0,0,0^
31333 S23300: DMOVE AC,[200000,,0
31334 064243 120 04 0 00 070743 0,,0]
31335 DFAD AC,[200000,,2
31336 064244 110 04 0 00 071056 0,,0]
31337 064245 312 04 0 00 071060 CAME AC,[147400,,0]
31338 064246 003 04 0 00 023301 ER3 AC,23301
31339 064247 312 05 0 00 070660 CAME AC+1,[0,,0]
31340 064250 004 05 0 00 023301 ER4 AC+1,23301
31341 064251 321 10 0 00 064243 JUMPL AC+4,S23300 ;LOOP ON ERROR SWITCH^
31342
31343 SDFA 234,200000,0,0,0,200000,4,0,0,150400,0,0,0^
31344 S23400: DMOVE AC,[200000,,0
31345 064252 120 04 0 00 070743 0,,0]
31346 DFAD AC,[200000,,4
31347 064253 110 04 0 00 071053 0,,0]
31348 064254 312 04 0 00 071055 CAME AC,[150400,,0]
31349 064255 003 04 0 00 023401 ER3 AC,23401
31350 064256 312 05 0 00 070660 CAME AC+1,[0,,0]
31351 064257 004 05 0 00 023401 ER4 AC+1,23401
31352 064260 321 10 0 00 064252 JUMPL AC+4,S23400 ;LOOP ON ERROR SWITCH^
31353
31354 SDFA 235,200000,0,0,0,200000,10,0,0,151400,0,0,0^
31355 S23500: DMOVE AC,[200000,,0
31356 064261 120 04 0 00 070743 0,,0]
31357 DFAD AC,[200000,,10
31358 064262 110 04 0 00 071050 0,,0]
31359 064263 312 04 0 00 071052 CAME AC,[151400,,0]
31360 064264 003 04 0 00 023501 ER3 AC,23501
31361 064265 312 05 0 00 070660 CAME AC+1,[0,,0]
31362 064266 004 05 0 00 023501 ER4 AC+1,23501
31363 064267 321 10 0 00 064261 JUMPL AC+4,S23500 ;LOOP ON ERROR SWITCH^
31364
31365 SDFA 236,200000,0,0,0,200000,20,0,0,152400,0,0,0^
31366 S23600: DMOVE AC,[200000,,0
31367 064270 120 04 0 00 070743 0,,0]
31368 DFAD AC,[200000,,20
31369 064271 110 04 0 00 071045 0,,0]
31370 064272 312 04 0 00 071047 CAME AC,[152400,,0]
31371 064273 003 04 0 00 023601 ER3 AC,23601
31372 064274 312 05 0 00 070660 CAME AC+1,[0,,0]
31373 064275 004 05 0 00 023601 ER4 AC+1,23601
31374 064276 321 10 0 00 064270 JUMPL AC+4,S23600 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8-4
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0703
31375
31376 SDFA 237,200000,0,0,0,200000,40,0,0,153400,0,0,0^
31377 S23700: DMOVE AC,[200000,,0
31378 064277 120 04 0 00 070743 0,,0]
31379 DFAD AC,[200000,,40
31380 064300 110 04 0 00 071042 0,,0]
31381 064301 312 04 0 00 071044 CAME AC,[153400,,0]
31382 064302 003 04 0 00 023701 ER3 AC,23701
31383 064303 312 05 0 00 070660 CAME AC+1,[0,,0]
31384 064304 004 05 0 00 023701 ER4 AC+1,23701
31385 064305 321 10 0 00 064277 JUMPL AC+4,S23700 ;LOOP ON ERROR SWITCH^
31386
31387 SDFA 240,200000,0,0,0,200000,100,0,0,154400,0,0,0^
31388 S24000: DMOVE AC,[200000,,0
31389 064306 120 04 0 00 070743 0,,0]
31390 DFAD AC,[200000,,100
31391 064307 110 04 0 00 071037 0,,0]
31392 064310 312 04 0 00 071041 CAME AC,[154400,,0]
31393 064311 003 04 0 00 024001 ER3 AC,24001
31394 064312 312 05 0 00 070660 CAME AC+1,[0,,0]
31395 064313 004 05 0 00 024001 ER4 AC+1,24001
31396 064314 321 10 0 00 064306 JUMPL AC+4,S24000 ;LOOP ON ERROR SWITCH^
31397
31398 SDFA 241,200000,0,0,0,200000,200,0,0,155400,0,0,0^
31399 S24100: DMOVE AC,[200000,,0
31400 064315 120 04 0 00 070743 0,,0]
31401 DFAD AC,[200000,,200
31402 064316 110 04 0 00 071034 0,,0]
31403 064317 312 04 0 00 071036 CAME AC,[155400,,0]
31404 064320 003 04 0 00 024101 ER3 AC,24101
31405 064321 312 05 0 00 070660 CAME AC+1,[0,,0]
31406 064322 004 05 0 00 024101 ER4 AC+1,24101
31407 064323 321 10 0 00 064315 JUMPL AC+4,S24100 ;LOOP ON ERROR SWITCH^
31408
31409 SDFA 242,200000,0,0,0,200000,400,0,0,156400,0,0,0^
31410 S24200: DMOVE AC,[200000,,0
31411 064324 120 04 0 00 070743 0,,0]
31412 DFAD AC,[200000,,400
31413 064325 110 04 0 00 071031 0,,0]
31414 064326 312 04 0 00 071033 CAME AC,[156400,,0]
31415 064327 003 04 0 00 024201 ER3 AC,24201
31416 064330 312 05 0 00 070660 CAME AC+1,[0,,0]
31417 064331 004 05 0 00 024201 ER4 AC+1,24201
31418 064332 321 10 0 00 064324 JUMPL AC+4,S24200 ;LOOP ON ERROR SWITCH^
31419
31420 SDFA 243,200000,0,0,0,200000,1000,0,0,157400,0,0,0^
31421 S24300: DMOVE AC,[200000,,0
31422 064333 120 04 0 00 070743 0,,0]
31423 DFAD AC,[200000,,1000
31424 064334 110 04 0 00 071026 0,,0]
31425 064335 312 04 0 00 071030 CAME AC,[157400,,0]
31426 064336 003 04 0 00 024301 ER3 AC,24301
31427 064337 312 05 0 00 070660 CAME AC+1,[0,,0]
31428 064340 004 05 0 00 024301 ER4 AC+1,24301
31429 064341 321 10 0 00 064333 JUMPL AC+4,S24300 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8-5
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0704
31430
31431 SDFA 244,200000,0,0,0,200000,2000,0,0,160400,0,0,0^
31432 S24400: DMOVE AC,[200000,,0
31433 064342 120 04 0 00 070743 0,,0]
31434 DFAD AC,[200000,,2000
31435 064343 110 04 0 00 071023 0,,0]
31436 064344 312 04 0 00 071025 CAME AC,[160400,,0]
31437 064345 003 04 0 00 024401 ER3 AC,24401
31438 064346 312 05 0 00 070660 CAME AC+1,[0,,0]
31439 064347 004 05 0 00 024401 ER4 AC+1,24401
31440 064350 321 10 0 00 064342 JUMPL AC+4,S24400 ;LOOP ON ERROR SWITCH^
31441
31442 SDFA 245,200000,0,0,0,200000,4000,0,0,161400,0,0,0^
31443 S24500: DMOVE AC,[200000,,0
31444 064351 120 04 0 00 070743 0,,0]
31445 DFAD AC,[200000,,4000
31446 064352 110 04 0 00 071020 0,,0]
31447 064353 312 04 0 00 071022 CAME AC,[161400,,0]
31448 064354 003 04 0 00 024501 ER3 AC,24501
31449 064355 312 05 0 00 070660 CAME AC+1,[0,,0]
31450 064356 004 05 0 00 024501 ER4 AC+1,24501
31451 064357 321 10 0 00 064351 JUMPL AC+4,S24500 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 9
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0705
31452
31453 SDFA 246,200000,0,0,0,200000,10000,0,0,162400,0,0,0^
31454 S24600: DMOVE AC,[200000,,0
31455 064360 120 04 0 00 070743 0,,0]
31456 DFAD AC,[200000,,10000
31457 064361 110 04 0 00 071015 0,,0]
31458 064362 312 04 0 00 071017 CAME AC,[162400,,0]
31459 064363 003 04 0 00 024601 ER3 AC,24601
31460 064364 312 05 0 00 070660 CAME AC+1,[0,,0]
31461 064365 004 05 0 00 024601 ER4 AC+1,24601
31462 064366 321 10 0 00 064360 JUMPL AC+4,S24600 ;LOOP ON ERROR SWITCH^
31463
31464 SDFA 247,200000,0,0,0,200000,20000,0,0,163400,0,0,0^
31465 S24700: DMOVE AC,[200000,,0
31466 064367 120 04 0 00 070743 0,,0]
31467 DFAD AC,[200000,,20000
31468 064370 110 04 0 00 071012 0,,0]
31469 064371 312 04 0 00 071014 CAME AC,[163400,,0]
31470 064372 003 04 0 00 024701 ER3 AC,24701
31471 064373 312 05 0 00 070660 CAME AC+1,[0,,0]
31472 064374 004 05 0 00 024701 ER4 AC+1,24701
31473 064375 321 10 0 00 064367 JUMPL AC+4,S24700 ;LOOP ON ERROR SWITCH^
31474
31475 SDFA 250,200000,0,0,0,200000,40000,0,0,164400,0,0,0^
31476 S25000: DMOVE AC,[200000,,0
31477 064376 120 04 0 00 070743 0,,0]
31478 DFAD AC,[200000,,40000
31479 064377 110 04 0 00 071007 0,,0]
31480 064400 312 04 0 00 071011 CAME AC,[164400,,0]
31481 064401 003 04 0 00 025001 ER3 AC,25001
31482 064402 312 05 0 00 070660 CAME AC+1,[0,,0]
31483 064403 004 05 0 00 025001 ER4 AC+1,25001
31484 064404 321 10 0 00 064376 JUMPL AC+4,S25000 ;LOOP ON ERROR SWITCH^
31485
31486 SDFA 251,200000,0,0,0,200000,100000,0,0,165400,0,0,0^
31487 S25100: DMOVE AC,[200000,,0
31488 064405 120 04 0 00 070743 0,,0]
31489 DFAD AC,[200000,,100000
31490 064406 110 04 0 00 071004 0,,0]
31491 064407 312 04 0 00 071006 CAME AC,[165400,,0]
31492 064410 003 04 0 00 025101 ER3 AC,25101
31493 064411 312 05 0 00 070660 CAME AC+1,[0,,0]
31494 064412 004 05 0 00 025101 ER4 AC+1,25101
31495 064413 321 10 0 00 064405 JUMPL AC+4,S25100 ;LOOP ON ERROR SWITCH^
31496
31497 SDFA 252,200000,0,0,0,200000,200000,0,0,166400,0,0,0^
31498 S25200: DMOVE AC,[200000,,0
31499 064414 120 04 0 00 070743 0,,0]
31500 DFAD AC,[200000,,200000
31501 064415 110 04 0 00 071001 0,,0]
31502 064416 312 04 0 00 071003 CAME AC,[166400,,0]
31503 064417 003 04 0 00 025201 ER3 AC,25201
31504 064420 312 05 0 00 070660 CAME AC+1,[0,,0]
31505 064421 004 05 0 00 025201 ER4 AC+1,25201
31506 064422 321 10 0 00 064414 JUMPL AC+4,S25200 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 9-1
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0706
31507
31508 SDFA 253,200000,0,0,0,200000,400000,0,0,167400,0,0,0^
31509 S25300: DMOVE AC,[200000,,0
31510 064423 120 04 0 00 070743 0,,0]
31511 DFAD AC,[200000,,400000
31512 064424 110 04 0 00 070776 0,,0]
31513 064425 312 04 0 00 071000 CAME AC,[167400,,0]
31514 064426 003 04 0 00 025301 ER3 AC,25301
31515 064427 312 05 0 00 070660 CAME AC+1,[0,,0]
31516 064430 004 05 0 00 025301 ER4 AC+1,25301
31517 064431 321 10 0 00 064423 JUMPL AC+4,S25300 ;LOOP ON ERROR SWITCH^
31518
31519 SDFA 254,200000,0,0,0,200001,0,0,0,170400,0,0,0^
31520 S25400: DMOVE AC,[200000,,0
31521 064432 120 04 0 00 070743 0,,0]
31522 DFAD AC,[200001,,0
31523 064433 110 04 0 00 070773 0,,0]
31524 064434 312 04 0 00 070775 CAME AC,[170400,,0]
31525 064435 003 04 0 00 025401 ER3 AC,25401
31526 064436 312 05 0 00 070660 CAME AC+1,[0,,0]
31527 064437 004 05 0 00 025401 ER4 AC+1,25401
31528 064440 321 10 0 00 064432 JUMPL AC+4,S25400 ;LOOP ON ERROR SWITCH^
31529
31530 SDFA 255,200000,0,0,0,200002,0,0,0,171400,0,0,0^
31531 S25500: DMOVE AC,[200000,,0
31532 064441 120 04 0 00 070743 0,,0]
31533 DFAD AC,[200002,,0
31534 064442 110 04 0 00 070770 0,,0]
31535 064443 312 04 0 00 070772 CAME AC,[171400,,0]
31536 064444 003 04 0 00 025501 ER3 AC,25501
31537 064445 312 05 0 00 070660 CAME AC+1,[0,,0]
31538 064446 004 05 0 00 025501 ER4 AC+1,25501
31539 064447 321 10 0 00 064441 JUMPL AC+4,S25500 ;LOOP ON ERROR SWITCH^
31540
31541 SDFA 256,200000,0,0,0,200004,0,0,0,172400,0,0,0^
31542 S25600: DMOVE AC,[200000,,0
31543 064450 120 04 0 00 070743 0,,0]
31544 DFAD AC,[200004,,0
31545 064451 110 04 0 00 070765 0,,0]
31546 064452 312 04 0 00 070767 CAME AC,[172400,,0]
31547 064453 003 04 0 00 025601 ER3 AC,25601
31548 064454 312 05 0 00 070660 CAME AC+1,[0,,0]
31549 064455 004 05 0 00 025601 ER4 AC+1,25601
31550 064456 321 10 0 00 064450 JUMPL AC+4,S25600 ;LOOP ON ERROR SWITCH^
31551
31552 SDFA 257,200000,0,0,0,200010,0,0,0,173400,0,0,0^
31553 S25700: DMOVE AC,[200000,,0
31554 064457 120 04 0 00 070743 0,,0]
31555 DFAD AC,[200010,,0
31556 064460 110 04 0 00 070762 0,,0]
31557 064461 312 04 0 00 070764 CAME AC,[173400,,0]
31558 064462 003 04 0 00 025701 ER3 AC,25701
31559 064463 312 05 0 00 070660 CAME AC+1,[0,,0]
31560 064464 004 05 0 00 025701 ER4 AC+1,25701
31561 064465 321 10 0 00 064457 JUMPL AC+4,S25700 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 9-2
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0707
31562
31563 SDFA 260,200000,0,0,0,200020,0,0,0,174400,0,0,0^
31564 S26000: DMOVE AC,[200000,,0
31565 064466 120 04 0 00 070743 0,,0]
31566 DFAD AC,[200020,,0
31567 064467 110 04 0 00 070757 0,,0]
31568 064470 312 04 0 00 070761 CAME AC,[174400,,0]
31569 064471 003 04 0 00 026001 ER3 AC,26001
31570 064472 312 05 0 00 070660 CAME AC+1,[0,,0]
31571 064473 004 05 0 00 026001 ER4 AC+1,26001
31572 064474 321 10 0 00 064466 JUMPL AC+4,S26000 ;LOOP ON ERROR SWITCH^
31573
31574 SDFA 261,200000,0,0,0,200040,0,0,0,175400,0,0,0^
31575 S26100: DMOVE AC,[200000,,0
31576 064475 120 04 0 00 070743 0,,0]
31577 DFAD AC,[200040,,0
31578 064476 110 04 0 00 070754 0,,0]
31579 064477 312 04 0 00 070756 CAME AC,[175400,,0]
31580 064500 003 04 0 00 026101 ER3 AC,26101
31581 064501 312 05 0 00 070660 CAME AC+1,[0,,0]
31582 064502 004 05 0 00 026101 ER4 AC+1,26101
31583 064503 321 10 0 00 064475 JUMPL AC+4,S26100 ;LOOP ON ERROR SWITCH^
31584
31585 SDFA 262,200000,0,0,0,200100,0,0,0,176400,0,0,0^
31586 S26200: DMOVE AC,[200000,,0
31587 064504 120 04 0 00 070743 0,,0]
31588 DFAD AC,[200100,,0
31589 064505 110 04 0 00 070751 0,,0]
31590 064506 312 04 0 00 070753 CAME AC,[176400,,0]
31591 064507 003 04 0 00 026201 ER3 AC,26201
31592 064510 312 05 0 00 070660 CAME AC+1,[0,,0]
31593 064511 004 05 0 00 026201 ER4 AC+1,26201
31594 064512 321 10 0 00 064504 JUMPL AC+4,S26200 ;LOOP ON ERROR SWITCH^
31595
31596 SDFA 263,377400,0,0,0,377400,0,0,0,400,0,0,0^
31597 S26300: DMOVE AC,[377400,,0
31598 064513 120 04 0 00 072756 0,,0]
31599 DFAD AC,[377400,,0
31600 064514 110 04 0 00 072756 0,,0]
31601 064515 312 04 0 00 071117 CAME AC,[400,,0]
31602 064516 003 04 0 00 026301 ER3 AC,26301
31603 064517 312 05 0 00 070660 CAME AC+1,[0,,0]
31604 064520 004 05 0 00 026301 ER4 AC+1,26301
31605 064521 321 10 0 00 064513 JUMPL AC+4,S26300 ;LOOP ON ERROR SWITCH^
31606
31607 SDFA 264,777700,0,0,0,777700,0,0,0,400400,0,0,0^
31608 S26400: DMOVE AC,[777700,,0
31609 064522 120 04 0 00 073062 0,,0]
31610 DFAD AC,[777700,,0
31611 064523 110 04 0 00 073062 0,,0]
31612 064524 312 04 0 00 073064 CAME AC,[400400,,0]
31613 064525 003 04 0 00 026401 ER3 AC,26401
31614 064526 312 05 0 00 070660 CAME AC+1,[0,,0]
31615 064527 004 05 0 00 026401 ER4 AC+1,26401
31616 064530 321 10 0 00 064522 JUMPL AC+4,S26400 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 9-3
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0708
31617
31618 SDFA 265,200000,0,0,0,200777,-1,0,0,200777,-1,0,0^
31619 S26500: DMOVE AC,[200000,,0
31620 064531 120 04 0 00 070743 0,,0]
31621 DFAD AC,[200777,,-1
31622 064532 110 04 0 00 073065 0,,0]
31623 064533 312 04 0 00 071611 CAME AC,[200777,,-1]
31624 064534 003 04 0 00 026501 ER3 AC,26501
31625 064535 312 05 0 00 070660 CAME AC+1,[0,,0]
31626 064536 004 05 0 00 026501 ER4 AC+1,26501
31627 064537 321 10 0 00 064531 JUMPL AC+4,S26500 ;LOOP ON ERROR SWITCH^
31628
31629 SDFA 266,200000,1,0,0,201400,0,0,0,201400,0,200000,0^
31630 S26600: DMOVE AC,[200000,,1
31631 064540 120 04 0 00 071061 0,,0]
31632 DFAD AC,[201400,,0
31633 064541 110 04 0 00 072123 0,,0]
31634 064542 312 04 0 00 071613 CAME AC,[201400,,0]
31635 064543 003 04 0 00 026601 ER3 AC,26601
31636 064544 312 05 0 00 070743 CAME AC+1,[200000,,0]
31637 064545 004 05 0 00 026601 ER4 AC+1,26601
31638 064546 321 10 0 00 064540 JUMPL AC+4,S26600 ;LOOP ON ERROR SWITCH^
31639
31640 SDFA 267,200000,2,0,0,202400,0,0,0,202400,0,200000,0^
31641 S26700: DMOVE AC,[200000,,2
31642 064547 120 04 0 00 071056 0,,0]
31643 DFAD AC,[202400,,0
31644 064550 110 04 0 00 072677 0,,0]
31645 064551 312 04 0 00 070615 CAME AC,[202400,,0]
31646 064552 003 04 0 00 026701 ER3 AC,26701
31647 064553 312 05 0 00 070743 CAME AC+1,[200000,,0]
31648 064554 004 05 0 00 026701 ER4 AC+1,26701
31649 064555 321 10 0 00 064547 JUMPL AC+4,S26700 ;LOOP ON ERROR SWITCH^
31650
31651 SDFA 270,200000,4,0,0,203400,0,0,0,203400,0,200000,0^
31652 S27000: DMOVE AC,[200000,,4
31653 064556 120 04 0 00 071053 0,,0]
31654 DFAD AC,[203400,,0
31655 064557 110 04 0 00 073067 0,,0]
31656 064560 312 04 0 00 070616 CAME AC,[203400,,0]
31657 064561 003 04 0 00 027001 ER3 AC,27001
31658 064562 312 05 0 00 070743 CAME AC+1,[200000,,0]
31659 064563 004 05 0 00 027001 ER4 AC+1,27001
31660 064564 321 10 0 00 064556 JUMPL AC+4,S27000 ;LOOP ON ERROR SWITCH^
31661
31662 SDFA 271,200000,10,0,0,204400,0,0,0,204400,0,200000,0^
31663 S27100: DMOVE AC,[200000,,10
31664 064565 120 04 0 00 071050 0,,0]
31665 DFAD AC,[204400,,0
31666 064566 110 04 0 00 072702 0,,0]
31667 064567 312 04 0 00 070617 CAME AC,[204400,,0]
31668 064570 003 04 0 00 027101 ER3 AC,27101
31669 064571 312 05 0 00 070743 CAME AC+1,[200000,,0]
31670 064572 004 05 0 00 027101 ER4 AC+1,27101
31671 064573 321 10 0 00 064565 JUMPL AC+4,S27100 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 9-4
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0709
31672
31673 SDFA 272,200000,20,0,0,205400,0,0,0,205400,0,200000,0^
31674 S27200: DMOVE AC,[200000,,20
31675 064574 120 04 0 00 071045 0,,0]
31676 DFAD AC,[205400,,0
31677 064575 110 04 0 00 072667 0,,0]
31678 064576 312 04 0 00 070620 CAME AC,[205400,,0]
31679 064577 003 04 0 00 027201 ER3 AC,27201
31680 064600 312 05 0 00 070743 CAME AC+1,[200000,,0]
31681 064601 004 05 0 00 027201 ER4 AC+1,27201
31682 064602 321 10 0 00 064574 JUMPL AC+4,S27200 ;LOOP ON ERROR SWITCH^
31683
31684 SDFA 273,200000,40,0,0,206400,0,0,0,206400,0,200000,0^
31685 S27300: DMOVE AC,[200000,,40
31686 064603 120 04 0 00 071042 0,,0]
31687 DFAD AC,[206400,,0
31688 064604 110 04 0 00 072772 0,,0]
31689 064605 312 04 0 00 070621 CAME AC,[206400,,0]
31690 064606 003 04 0 00 027301 ER3 AC,27301
31691 064607 312 05 0 00 070743 CAME AC+1,[200000,,0]
31692 064610 004 05 0 00 027301 ER4 AC+1,27301
31693 064611 321 10 0 00 064603 JUMPL AC+4,S27300 ;LOOP ON ERROR SWITCH^
31694
31695 SDFA 274,200000,100,0,0,207400,0,0,0,207400,0,200000,0^
31696 S27400: DMOVE AC,[200000,,100
31697 064612 120 04 0 00 071037 0,,0]
31698 DFAD AC,[207400,,0
31699 064613 110 04 0 00 073071 0,,0]
31700 064614 312 04 0 00 070622 CAME AC,[207400,,0]
31701 064615 003 04 0 00 027401 ER3 AC,27401
31702 064616 312 05 0 00 070743 CAME AC+1,[200000,,0]
31703 064617 004 05 0 00 027401 ER4 AC+1,27401
31704 064620 321 10 0 00 064612 JUMPL AC+4,S27400 ;LOOP ON ERROR SWITCH^
31705
31706 SDFA 275,200000,200,0,0,210400,0,0,0,210400,0,200000,0^
31707 S27500: DMOVE AC,[200000,,200
31708 064621 120 04 0 00 071034 0,,0]
31709 DFAD AC,[210400,,0
31710 064622 110 04 0 00 072705 0,,0]
31711 064623 312 04 0 00 070623 CAME AC,[210400,,0]
31712 064624 003 04 0 00 027501 ER3 AC,27501
31713 064625 312 05 0 00 070743 CAME AC+1,[200000,,0]
31714 064626 004 05 0 00 027501 ER4 AC+1,27501
31715 064627 321 10 0 00 064621 JUMPL AC+4,S27500 ;LOOP ON ERROR SWITCH^
31716
31717 SDFA 276,200000,400,0,0,211400,0,0,0,211400,0,200000,0^
31718 S27600: DMOVE AC,[200000,,400
31719 064630 120 04 0 00 071031 0,,0]
31720 DFAD AC,[211400,,0
31721 064631 110 04 0 00 073073 0,,0]
31722 064632 312 04 0 00 070624 CAME AC,[211400,,0]
31723 064633 003 04 0 00 027601 ER3 AC,27601
31724 064634 312 05 0 00 070743 CAME AC+1,[200000,,0]
31725 064635 004 05 0 00 027601 ER4 AC+1,27601
31726 064636 321 10 0 00 064630 JUMPL AC+4,S27600 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 9-5
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0710
31727
31728 SDFA 277,200000,1000,0,0,212400,0,0,0,212400,0,200000,0^
31729 S27700: DMOVE AC,[200000,,1000
31730 064637 120 04 0 00 071026 0,,0]
31731 DFAD AC,[212400,,0
31732 064640 110 04 0 00 073075 0,,0]
31733 064641 312 04 0 00 070625 CAME AC,[212400,,0]
31734 064642 003 04 0 00 027701 ER3 AC,27701
31735 064643 312 05 0 00 070743 CAME AC+1,[200000,,0]
31736 064644 004 05 0 00 027701 ER4 AC+1,27701
31737 064645 321 10 0 00 064637 JUMPL AC+4,S27700 ;LOOP ON ERROR SWITCH^
31738
31739 SDFA 300,200000,2000,0,0,213400,0,0,0,213400,0,200000,0^
31740 S30000: DMOVE AC,[200000,,2000
31741 064646 120 04 0 00 071023 0,,0]
31742 DFAD AC,[213400,,0
31743 064647 110 04 0 00 073077 0,,0]
31744 064650 312 04 0 00 070626 CAME AC,[213400,,0]
31745 064651 003 04 0 00 030001 ER3 AC,30001
31746 064652 312 05 0 00 070743 CAME AC+1,[200000,,0]
31747 064653 004 05 0 00 030001 ER4 AC+1,30001
31748 064654 321 10 0 00 064646 JUMPL AC+4,S30000 ;LOOP ON ERROR SWITCH^
31749
31750 SDFA 301,200000,4000,0,0,214400,0,0,0,214400,0,200000,0^
31751 S30100: DMOVE AC,[200000,,4000
31752 064655 120 04 0 00 071020 0,,0]
31753 DFAD AC,[214400,,0
31754 064656 110 04 0 00 073101 0,,0]
31755 064657 312 04 0 00 070627 CAME AC,[214400,,0]
31756 064660 003 04 0 00 030101 ER3 AC,30101
31757 064661 312 05 0 00 070743 CAME AC+1,[200000,,0]
31758 064662 004 05 0 00 030101 ER4 AC+1,30101
31759 064663 321 10 0 00 064655 JUMPL AC+4,S30100 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 10
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0711
31760
31761 SDFA 302,200000,10000,0,0,215400,0,0,0,215400,0,200000,0^
31762 S30200: DMOVE AC,[200000,,10000
31763 064664 120 04 0 00 071015 0,,0]
31764 DFAD AC,[215400,,0
31765 064665 110 04 0 00 073103 0,,0]
31766 064666 312 04 0 00 070630 CAME AC,[215400,,0]
31767 064667 003 04 0 00 030201 ER3 AC,30201
31768 064670 312 05 0 00 070743 CAME AC+1,[200000,,0]
31769 064671 004 05 0 00 030201 ER4 AC+1,30201
31770 064672 321 10 0 00 064664 JUMPL AC+4,S30200 ;LOOP ON ERROR SWITCH^
31771
31772 SDFA 303,200000,20000,0,0,216400,0,0,0,216400,0,200000,0^
31773 S30300: DMOVE AC,[200000,,20000
31774 064673 120 04 0 00 071012 0,,0]
31775 DFAD AC,[216400,,0
31776 064674 110 04 0 00 073105 0,,0]
31777 064675 312 04 0 00 070631 CAME AC,[216400,,0]
31778 064676 003 04 0 00 030301 ER3 AC,30301
31779 064677 312 05 0 00 070743 CAME AC+1,[200000,,0]
31780 064700 004 05 0 00 030301 ER4 AC+1,30301
31781 064701 321 10 0 00 064673 JUMPL AC+4,S30300 ;LOOP ON ERROR SWITCH^
31782
31783 SDFA 304,200000,40000,0,0,217400,0,0,0,217400,0,200000,0^
31784 S30400: DMOVE AC,[200000,,40000
31785 064702 120 04 0 00 071007 0,,0]
31786 DFAD AC,[217400,,0
31787 064703 110 04 0 00 073107 0,,0]
31788 064704 312 04 0 00 070632 CAME AC,[217400,,0]
31789 064705 003 04 0 00 030401 ER3 AC,30401
31790 064706 312 05 0 00 070743 CAME AC+1,[200000,,0]
31791 064707 004 05 0 00 030401 ER4 AC+1,30401
31792 064710 321 10 0 00 064702 JUMPL AC+4,S30400 ;LOOP ON ERROR SWITCH^
31793
31794 SDFA 305,200000,100000,0,0,220400,0,0,0,220400,0,200000,0^
31795 S30500: DMOVE AC,[200000,,100000
31796 064711 120 04 0 00 071004 0,,0]
31797 DFAD AC,[220400,,0
31798 064712 110 04 0 00 072710 0,,0]
31799 064713 312 04 0 00 070633 CAME AC,[220400,,0]
31800 064714 003 04 0 00 030501 ER3 AC,30501
31801 064715 312 05 0 00 070743 CAME AC+1,[200000,,0]
31802 064716 004 05 0 00 030501 ER4 AC+1,30501
31803 064717 321 10 0 00 064711 JUMPL AC+4,S30500 ;LOOP ON ERROR SWITCH^
31804
31805 SDFA 306,200000,200000,0,0,221400,0,0,0,221400,0,200000,0^
31806 S30600: DMOVE AC,[200000,,200000
31807 064720 120 04 0 00 071001 0,,0]
31808 DFAD AC,[221400,,0
31809 064721 110 04 0 00 073111 0,,0]
31810 064722 312 04 0 00 070634 CAME AC,[221400,,0]
31811 064723 003 04 0 00 030601 ER3 AC,30601
31812 064724 312 05 0 00 070743 CAME AC+1,[200000,,0]
31813 064725 004 05 0 00 030601 ER4 AC+1,30601
31814 064726 321 10 0 00 064720 JUMPL AC+4,S30600 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 10-1
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0712
31815
31816 SDFA 307,200000,400000,0,0,222400,0,0,0,222400,0,200000,0^
31817 S30700: DMOVE AC,[200000,,400000
31818 064727 120 04 0 00 070776 0,,0]
31819 DFAD AC,[222400,,0
31820 064730 110 04 0 00 073113 0,,0]
31821 064731 312 04 0 00 070635 CAME AC,[222400,,0]
31822 064732 003 04 0 00 030701 ER3 AC,30701
31823 064733 312 05 0 00 070743 CAME AC+1,[200000,,0]
31824 064734 004 05 0 00 030701 ER4 AC+1,30701
31825 064735 321 10 0 00 064727 JUMPL AC+4,S30700 ;LOOP ON ERROR SWITCH^
31826
31827 SDFA 310,200001,0,0,0,223400,0,0,0,223400,0,200000,0^
31828 S31000: DMOVE AC,[200001,,0
31829 064736 120 04 0 00 070773 0,,0]
31830 DFAD AC,[223400,,0
31831 064737 110 04 0 00 073115 0,,0]
31832 064740 312 04 0 00 073115 CAME AC,[223400,,0]
31833 064741 003 04 0 00 031001 ER3 AC,31001
31834 064742 312 05 0 00 070743 CAME AC+1,[200000,,0]
31835 064743 004 05 0 00 031001 ER4 AC+1,31001
31836 064744 321 10 0 00 064736 JUMPL AC+4,S31000 ;LOOP ON ERROR SWITCH^
31837
31838 SDFA 311,200002,0,0,0,224400,0,0,0,224400,0,200000,0^
31839 S31100: DMOVE AC,[200002,,0
31840 064745 120 04 0 00 070770 0,,0]
31841 DFAD AC,[224400,,0
31842 064746 110 04 0 00 073117 0,,0]
31843 064747 312 04 0 00 073117 CAME AC,[224400,,0]
31844 064750 003 04 0 00 031101 ER3 AC,31101
31845 064751 312 05 0 00 070743 CAME AC+1,[200000,,0]
31846 064752 004 05 0 00 031101 ER4 AC+1,31101
31847 064753 321 10 0 00 064745 JUMPL AC+4,S31100 ;LOOP ON ERROR SWITCH^
31848
31849 SDFA 312,200004,0,0,0,225400,0,0,0,225400,0,200000,0^
31850 S31200: DMOVE AC,[200004,,0
31851 064754 120 04 0 00 070765 0,,0]
31852 DFAD AC,[225400,,0
31853 064755 110 04 0 00 073121 0,,0]
31854 064756 312 04 0 00 073121 CAME AC,[225400,,0]
31855 064757 003 04 0 00 031201 ER3 AC,31201
31856 064760 312 05 0 00 070743 CAME AC+1,[200000,,0]
31857 064761 004 05 0 00 031201 ER4 AC+1,31201
31858 064762 321 10 0 00 064754 JUMPL AC+4,S31200 ;LOOP ON ERROR SWITCH^
31859
31860 SDFA 313,200010,0,0,0,226400,0,0,0,226400,0,200000,0^
31861 S31300: DMOVE AC,[200010,,0
31862 064763 120 04 0 00 070762 0,,0]
31863 DFAD AC,[226400,,0
31864 064764 110 04 0 00 073123 0,,0]
31865 064765 312 04 0 00 073123 CAME AC,[226400,,0]
31866 064766 003 04 0 00 031301 ER3 AC,31301
31867 064767 312 05 0 00 070743 CAME AC+1,[200000,,0]
31868 064770 004 05 0 00 031301 ER4 AC+1,31301
31869 064771 321 10 0 00 064763 JUMPL AC+4,S31300 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 10-2
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0713
31870
31871 SDFA 314,200020,0,0,0,227400,0,0,0,227400,0,200000,0^
31872 S31400: DMOVE AC,[200020,,0
31873 064772 120 04 0 00 070757 0,,0]
31874 DFAD AC,[227400,,0
31875 064773 110 04 0 00 073125 0,,0]
31876 064774 312 04 0 00 073125 CAME AC,[227400,,0]
31877 064775 003 04 0 00 031401 ER3 AC,31401
31878 064776 312 05 0 00 070743 CAME AC+1,[200000,,0]
31879 064777 004 05 0 00 031401 ER4 AC+1,31401
31880 065000 321 10 0 00 064772 JUMPL AC+4,S31400 ;LOOP ON ERROR SWITCH^
31881
31882 SDFA 315,200040,0,0,0,230400,0,0,0,230400,0,200000,0^
31883 S31500: DMOVE AC,[200040,,0
31884 065001 120 04 0 00 070754 0,,0]
31885 DFAD AC,[230400,,0
31886 065002 110 04 0 00 073127 0,,0]
31887 065003 312 04 0 00 073127 CAME AC,[230400,,0]
31888 065004 003 04 0 00 031501 ER3 AC,31501
31889 065005 312 05 0 00 070743 CAME AC+1,[200000,,0]
31890 065006 004 05 0 00 031501 ER4 AC+1,31501
31891 065007 321 10 0 00 065001 JUMPL AC+4,S31500 ;LOOP ON ERROR SWITCH^
31892
31893 SDFA 316,200100,0,0,0,231400,0,0,0,231400,0,200000,0^
31894 S31600: DMOVE AC,[200100,,0
31895 065010 120 04 0 00 070751 0,,0]
31896 DFAD AC,[231400,,0
31897 065011 110 04 0 00 073131 0,,0]
31898 065012 312 04 0 00 073131 CAME AC,[231400,,0]
31899 065013 003 04 0 00 031601 ER3 AC,31601
31900 065014 312 05 0 00 070743 CAME AC+1,[200000,,0]
31901 065015 004 05 0 00 031601 ER4 AC+1,31601
31902 065016 321 10 0 00 065010 JUMPL AC+4,S31600 ;LOOP ON ERROR SWITCH^
31903
31904 SDFA 317,200200,0,0,0,232400,0,0,0,232400,0,200000,0^
31905 S31700: DMOVE AC,[200200,,0
31906 065017 120 04 0 00 070747 0,,0]
31907 DFAD AC,[232400,,0
31908 065020 110 04 0 00 073133 0,,0]
31909 065021 312 04 0 00 073133 CAME AC,[232400,,0]
31910 065022 003 04 0 00 031701 ER3 AC,31701
31911 065023 312 05 0 00 070743 CAME AC+1,[200000,,0]
31912 065024 004 05 0 00 031701 ER4 AC+1,31701
31913 065025 321 10 0 00 065017 JUMPL AC+4,S31700 ;LOOP ON ERROR SWITCH^
31914
31915 SDFA 320,200400,0,0,0,233400,0,0,0,233400,0,200000,0^
31916 S32000: DMOVE AC,[200400,,0
31917 065026 120 04 0 00 070745 0,,0]
31918 DFAD AC,[233400,,0
31919 065027 110 04 0 00 073135 0,,0]
31920 065030 312 04 0 00 073135 CAME AC,[233400,,0]
31921 065031 003 04 0 00 032001 ER3 AC,32001
31922 065032 312 05 0 00 070743 CAME AC+1,[200000,,0]
31923 065033 004 05 0 00 032001 ER4 AC+1,32001
31924 065034 321 10 0 00 065026 JUMPL AC+4,S32000 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 10-3
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0714
31925
31926 SDFA 321,200400,0,0,0,200400,1,0,0,201400,0,200000,0^
31927 S32100: DMOVE AC,[200400,,0
31928 065035 120 04 0 00 070745 0,,0]
31929 DFAD AC,[200400,,1
31930 065036 110 04 0 00 072211 0,,0]
31931 065037 312 04 0 00 071613 CAME AC,[201400,,0]
31932 065040 003 04 0 00 032101 ER3 AC,32101
31933 065041 312 05 0 00 070743 CAME AC+1,[200000,,0]
31934 065042 004 05 0 00 032101 ER4 AC+1,32101
31935 065043 321 10 0 00 065035 JUMPL AC+4,S32100 ;LOOP ON ERROR SWITCH^
31936
31937 SDFA 322,200400,0,0,0,201400,0,0,0,201600,0,0,0^
31938 S32200: DMOVE AC,[200400,,0
31939 065044 120 04 0 00 070745 0,,0]
31940 DFAD AC,[201400,,0
31941 065045 110 04 0 00 072123 0,,0]
31942 065046 312 04 0 00 071645 CAME AC,[201600,,0]
31943 065047 003 04 0 00 032201 ER3 AC,32201
31944 065050 312 05 0 00 070660 CAME AC+1,[0,,0]
31945 065051 004 05 0 00 032201 ER4 AC+1,32201
31946 065052 321 10 0 00 065044 JUMPL AC+4,S32200 ;LOOP ON ERROR SWITCH^
31947
31948 SDFA 323,200000,3,0,0,202400,0,0,0,202400,0,300000,0^
31949 S32300: DMOVE AC,[200000,,3
31950 065053 120 04 0 00 073137 0,,0]
31951 DFAD AC,[202400,,0
31952 065054 110 04 0 00 072677 0,,0]
31953 065055 312 04 0 00 070615 CAME AC,[202400,,0]
31954 065056 003 04 0 00 032301 ER3 AC,32301
31955 065057 312 05 0 00 072525 CAME AC+1,[300000,,0]
31956 065060 004 05 0 00 032301 ER4 AC+1,32301
31957 065061 321 10 0 00 065053 JUMPL AC+4,S32300 ;LOOP ON ERROR SWITCH^
31958
31959 SDFA 324,200000,5,0,0,203400,0,0,0,203400,0,240000,0^
31960 S32400: DMOVE AC,[200000,,5
31961 065062 120 04 0 00 073141 0,,0]
31962 DFAD AC,[203400,,0
31963 065063 110 04 0 00 073067 0,,0]
31964 065064 312 04 0 00 070616 CAME AC,[203400,,0]
31965 065065 003 04 0 00 032401 ER3 AC,32401
31966 065066 312 05 0 00 072740 CAME AC+1,[240000,,0]
31967 065067 004 05 0 00 032401 ER4 AC+1,32401
31968 065070 321 10 0 00 065062 JUMPL AC+4,S32400 ;LOOP ON ERROR SWITCH^
31969
31970 SDFA 325,200000,11,0,0,204400,0,0,0,204400,0,220000,0^
31971 S32500: DMOVE AC,[200000,,11
31972 065071 120 04 0 00 073143 0,,0]
31973 DFAD AC,[204400,,0
31974 065072 110 04 0 00 072702 0,,0]
31975 065073 312 04 0 00 070617 CAME AC,[204400,,0]
31976 065074 003 04 0 00 032501 ER3 AC,32501
31977 065075 312 05 0 00 072734 CAME AC+1,[220000,,0]
31978 065076 004 05 0 00 032501 ER4 AC+1,32501
31979 065077 321 10 0 00 065071 JUMPL AC+4,S32500 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 10-4
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0715
31980
31981 SDFA 326,200000,21,0,0,205400,0,0,0,205400,0,210000,0^
31982 S32600: DMOVE AC,[200000,,21
31983 065100 120 04 0 00 073145 0,,0]
31984 DFAD AC,[205400,,0
31985 065101 110 04 0 00 072667 0,,0]
31986 065102 312 04 0 00 070620 CAME AC,[205400,,0]
31987 065103 003 04 0 00 032601 ER3 AC,32601
31988 065104 312 05 0 00 072730 CAME AC+1,[210000,,0]
31989 065105 004 05 0 00 032601 ER4 AC+1,32601
31990 065106 321 10 0 00 065100 JUMPL AC+4,S32600 ;LOOP ON ERROR SWITCH^
31991
31992 SDFA 327,200000,41,0,0,206400,0,0,0,206400,0,204000,0^
31993 S32700: DMOVE AC,[200000,,41
31994 065107 120 04 0 00 073147 0,,0]
31995 DFAD AC,[206400,,0
31996 065110 110 04 0 00 072772 0,,0]
31997 065111 312 04 0 00 070621 CAME AC,[206400,,0]
31998 065112 003 04 0 00 032701 ER3 AC,32701
31999 065113 312 05 0 00 072724 CAME AC+1,[204000,,0]
32000 065114 004 05 0 00 032701 ER4 AC+1,32701
32001 065115 321 10 0 00 065107 JUMPL AC+4,S32700 ;LOOP ON ERROR SWITCH^
32002
32003 SDFA 330,200000,101,0,0,207400,0,0,0,207400,0,202000,0^
32004 S33000: DMOVE AC,[200000,,101
32005 065116 120 04 0 00 073151 0,,0]
32006 DFAD AC,[207400,,0
32007 065117 110 04 0 00 073071 0,,0]
32008 065120 312 04 0 00 070622 CAME AC,[207400,,0]
32009 065121 003 04 0 00 033001 ER3 AC,33001
32010 065122 312 05 0 00 072722 CAME AC+1,[202000,,0]
32011 065123 004 05 0 00 033001 ER4 AC+1,33001
32012 065124 321 10 0 00 065116 JUMPL AC+4,S33000 ;LOOP ON ERROR SWITCH^
32013
32014 SDFA 331,200000,201,0,0,210400,0,0,0,210400,0,201000,0^
32015 S33100: DMOVE AC,[200000,,201
32016 065125 120 04 0 00 073153 0,,0]
32017 DFAD AC,[210400,,0
32018 065126 110 04 0 00 072705 0,,0]
32019 065127 312 04 0 00 070623 CAME AC,[210400,,0]
32020 065130 003 04 0 00 033101 ER3 AC,33101
32021 065131 312 05 0 00 072720 CAME AC+1,[201000,,0]
32022 065132 004 05 0 00 033101 ER4 AC+1,33101
32023 065133 321 10 0 00 065125 JUMPL AC+4,S33100 ;LOOP ON ERROR SWITCH^
32024
32025 SDFA 332,200000,401,0,0,211400,0,0,0,211400,0,200400,0^
32026 S33200: DMOVE AC,[200000,,401
32027 065134 120 04 0 00 073155 0,,0]
32028 DFAD AC,[211400,,0
32029 065135 110 04 0 00 073073 0,,0]
32030 065136 312 04 0 00 070624 CAME AC,[211400,,0]
32031 065137 003 04 0 00 033201 ER3 AC,33201
32032 065140 312 05 0 00 070614 CAME AC+1,[200400,,0]
32033 065141 004 05 0 00 033201 ER4 AC+1,33201
32034 065142 321 10 0 00 065134 JUMPL AC+4,S33200 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 10-5
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0716
32035
32036 SDFA 333,200000,1001,0,0,212400,0,0,0,212400,0,200200,0^
32037 S33300: DMOVE AC,[200000,,1001
32038 065143 120 04 0 00 073157 0,,0]
32039 DFAD AC,[212400,,0
32040 065144 110 04 0 00 073075 0,,0]
32041 065145 312 04 0 00 070625 CAME AC,[212400,,0]
32042 065146 003 04 0 00 033301 ER3 AC,33301
32043 065147 312 05 0 00 070747 CAME AC+1,[200200,,0]
32044 065150 004 05 0 00 033301 ER4 AC+1,33301
32045 065151 321 10 0 00 065143 JUMPL AC+4,S33300 ;LOOP ON ERROR SWITCH^
32046
32047 SDFA 334,200000,2001,0,0,213400,0,0,0,213400,0,200100,0^
32048 S33400: DMOVE AC,[200000,,2001
32049 065152 120 04 0 00 073161 0,,0]
32050 DFAD AC,[213400,,0
32051 065153 110 04 0 00 073077 0,,0]
32052 065154 312 04 0 00 070626 CAME AC,[213400,,0]
32053 065155 003 04 0 00 033401 ER3 AC,33401
32054 065156 312 05 0 00 070612 CAME AC+1,[200100,,0]
32055 065157 004 05 0 00 033401 ER4 AC+1,33401
32056 065160 321 10 0 00 065152 JUMPL AC+4,S33400 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 11
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0717
32057
32058 SDFA 335,200000,4001,0,0,214400,0,0,0,214400,0,200040,0^
32059 S33500: DMOVE AC,[200000,,4001
32060 065161 120 04 0 00 073163 0,,0]
32061 DFAD AC,[214400,,0
32062 065162 110 04 0 00 073101 0,,0]
32063 065163 312 04 0 00 070627 CAME AC,[214400,,0]
32064 065164 003 04 0 00 033501 ER3 AC,33501
32065 065165 312 05 0 00 070611 CAME AC+1,[200040,,0]
32066 065166 004 05 0 00 033501 ER4 AC+1,33501
32067 065167 321 10 0 00 065161 JUMPL AC+4,S33500 ;LOOP ON ERROR SWITCH^
32068
32069 SDFA 336,200000,10001,0,0,215400,0,0,0,215400,0,200020,0^
32070 S33600: DMOVE AC,[200000,,10001
32071 065170 120 04 0 00 073165 0,,0]
32072 DFAD AC,[215400,,0
32073 065171 110 04 0 00 073103 0,,0]
32074 065172 312 04 0 00 070630 CAME AC,[215400,,0]
32075 065173 003 04 0 00 033601 ER3 AC,33601
32076 065174 312 05 0 00 070610 CAME AC+1,[200020,,0]
32077 065175 004 05 0 00 033601 ER4 AC+1,33601
32078 065176 321 10 0 00 065170 JUMPL AC+4,S33600 ;LOOP ON ERROR SWITCH^
32079
32080 SDFA 337,200000,20001,0,0,216400,0,0,0,216400,0,200010,0^
32081 S33700: DMOVE AC,[200000,,20001
32082 065177 120 04 0 00 073167 0,,0]
32083 DFAD AC,[216400,,0
32084 065200 110 04 0 00 073105 0,,0]
32085 065201 312 04 0 00 070631 CAME AC,[216400,,0]
32086 065202 003 04 0 00 033701 ER3 AC,33701
32087 065203 312 05 0 00 070607 CAME AC+1,[200010,,0]
32088 065204 004 05 0 00 033701 ER4 AC+1,33701
32089 065205 321 10 0 00 065177 JUMPL AC+4,S33700 ;LOOP ON ERROR SWITCH^
32090
32091 SDFA 340,200000,40001,0,0,217400,0,0,0,217400,0,200004,0^
32092 S34000: DMOVE AC,[200000,,40001
32093 065206 120 04 0 00 073171 0,,0]
32094 DFAD AC,[217400,,0
32095 065207 110 04 0 00 073107 0,,0]
32096 065210 312 04 0 00 070632 CAME AC,[217400,,0]
32097 065211 003 04 0 00 034001 ER3 AC,34001
32098 065212 312 05 0 00 070606 CAME AC+1,[200004,,0]
32099 065213 004 05 0 00 034001 ER4 AC+1,34001
32100 065214 321 10 0 00 065206 JUMPL AC+4,S34000 ;LOOP ON ERROR SWITCH^
32101
32102 SDFA 341,200000,100001,0,0,220400,0,0,0,220400,0,200002,0^
32103 S34100: DMOVE AC,[200000,,100001
32104 065215 120 04 0 00 073173 0,,0]
32105 DFAD AC,[220400,,0
32106 065216 110 04 0 00 072710 0,,0]
32107 065217 312 04 0 00 070633 CAME AC,[220400,,0]
32108 065220 003 04 0 00 034101 ER3 AC,34101
32109 065221 312 05 0 00 070605 CAME AC+1,[200002,,0]
32110 065222 004 05 0 00 034101 ER4 AC+1,34101
32111 065223 321 10 0 00 065215 JUMPL AC+4,S34100 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 11-1
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0718
32112
32113 SDFA 342,200000,200001,0,0,221400,0,0,0,221400,0,200001,0^
32114 S34200: DMOVE AC,[200000,,200001
32115 065224 120 04 0 00 073175 0,,0]
32116 DFAD AC,[221400,,0
32117 065225 110 04 0 00 073111 0,,0]
32118 065226 312 04 0 00 070634 CAME AC,[221400,,0]
32119 065227 003 04 0 00 034201 ER3 AC,34201
32120 065230 312 05 0 00 070604 CAME AC+1,[200001,,0]
32121 065231 004 05 0 00 034201 ER4 AC+1,34201
32122 065232 321 10 0 00 065224 JUMPL AC+4,S34200 ;LOOP ON ERROR SWITCH^
32123
32124 SDFA 343,200000,400001,0,0,222400,0,0,0,222400,0,200000,400000^
32125 S34300: DMOVE AC,[200000,,400001
32126 065233 120 04 0 00 073177 0,,0]
32127 DFAD AC,[222400,,0
32128 065234 110 04 0 00 073113 0,,0]
32129 065235 312 04 0 00 070635 CAME AC,[222400,,0]
32130 065236 003 04 0 00 034301 ER3 AC,34301
32131 065237 312 05 0 00 070603 CAME AC+1,[200000,,400000]
32132 065240 004 05 0 00 034301 ER4 AC+1,34301
32133 065241 321 10 0 00 065233 JUMPL AC+4,S34300 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 12
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0719
32134 ;TEST AROV, FOV AND FXU FLAGS - DFAD
32135
32136 000004 AC=4
32137 SAVEAC (1,1)^
32138 065242 201 10 0 00 065242 MOVEI AC+4,.
32139 065243 202 10 0 00 030051 MOVEM AC+4,TESTPC ;SETUP SUBTEST PC
32140 065244 201 10 0 00 000010 MOVEI AC+4,<AC+4>&17 ;INFORM ERROR ROUTINE WHICH
32141 065245 202 10 0 00 073775 MOVEM AC+4,ERRLOP# ;AC IS USED FOR ITERATION^
32142
32143 065246 254 02 1 00 073201 S34400: JRSTF @[.+1] ;CLEAR ALL FLAGS
32144 DMOVE AC,[377400,,0
32145 065247 120 04 0 00 072756 0,,0]
32146 DFAD AC,[376777,,-1
32147 065250 110 04 0 00 073202 -1,,-2] ;EXPECT AROV, FOV, FXU=0,0,0
32148 065251 265 03 0 00 065252 JSP AC-1,.+1 ;SAVE FLAGS
32149 065252 312 04 0 00 071241 CAME AC,[377777,,-1]
32150 065253 003 04 0 00 034401 ER3 AC,34401 ;C(AC) FAILED
32151 065254 312 05 0 00 071241 CAME AC+1,[377777,,-1]
32152 065255 004 05 0 00 034401 ER4 AC+1,34401 ;C(AC+1) FAILED
32153 065256 255 10 0 00 065260 JOV .+2
32154 065257 254 00 0 00 065261 JRST .+2
32155 065260 013 03 0 00 034401 ER13 AC-1,34401 ;AROV WAS SET
32156 065261 255 01 0 00 065263 JFOV .+2
32157 065262 254 00 0 00 065264 JRST .+2
32158 065263 013 03 0 00 034401 ER13 AC-1,34401 ;FOV WAS SET
32159 065264 603 03 0 00 000100 TLNE AC-1,FXU
32160 065265 013 03 0 00 034401 ER13 AC-1,34401 ;FXU WAS SET
32161 065266 321 10 0 00 065246 JUMPL AC+4,S34400 ;LOOP ON ERROR SWITCH
32162
32163 065267 254 02 1 00 073204 S34500: JRSTF @[.+1] ;CLEAR ALL FLAGS
32164 DMOVE AC,[377400,,0
32165 065270 120 04 0 00 072756 0,,0]
32166 DFAD AC,[377400,,0
32167 065271 110 04 0 00 072756 0,,0] ;EXPECT AROV, FOV, FXU=1,1,0
32168 065272 265 03 0 00 065273 JSP AC-1,.+1 ;SAVE FLAGS
32169 065273 312 04 0 00 071117 CAME AC,[400,,0]
32170 065274 003 04 0 00 034501 ER3 AC,34501 ;C(AC) FAILED
32171 065275 312 05 0 00 070660 CAME AC+1,[0,,0]
32172 065276 004 05 0 00 034501 ER4 AC+1,34501 ;C(AC+1) FAILED
32173 065277 255 10 0 00 065301 JOV .+2
32174 065300 013 03 0 00 034501 ER13 AC-1,34501 ;AROV WAS CLEAR
32175 065301 255 01 0 00 065303 JFOV .+2
32176 065302 013 03 0 00 034501 ER13 AC-1,34501 ;FOV WAS CLEAR
32177 065303 603 03 0 00 000100 TLNE AC-1,FXU
32178 065304 013 03 0 00 034501 ER13 AC-1,34501 ;FXU WAS SET
32179 065305 321 10 0 00 065267 JUMPL AC+4,S34500 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 13
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0720
32180 065306 254 02 1 00 073205 S34600: JRSTF @[.+1] ;CLEAR ALL FLAGS
32181 DMOVE AC,[200,,0
32182 065307 120 04 0 00 071564 0,,0]
32183 DFAD AC,[200,,0
32184 065310 110 04 0 00 071564 0,,0] ;EXPECT AROV, FOV, FXU=0,0,0
32185 065311 265 03 0 00 065312 JSP AC-1,.+1 ;SAVE FLAGS
32186 065312 312 04 0 00 071117 CAME AC,[400,,0]
32187 065313 003 04 0 00 034601 ER3 AC,34601 ;C(AC) FAILED
32188 065314 312 05 0 00 070660 CAME AC+1,[0,,0]
32189 065315 004 05 0 00 034601 ER4 AC+1,34601 ;C(AC+1) FAILED
32190 065316 255 10 0 00 065320 JOV .+2
32191 065317 254 00 0 00 065321 JRST .+2
32192 065320 013 03 0 00 034601 ER13 AC-1,34601 ;AROV WAS SET
32193 065321 255 01 0 00 065323 JFOV .+2
32194 065322 254 00 0 00 065324 JRST .+2
32195 065323 013 03 0 00 034601 ER13 AC-1,34601 ;FOV WAS SET
32196 065324 603 03 0 00 000100 TLNE AC-1,FXU
32197 065325 013 03 0 00 034601 ER13 AC-1,34601 ;FXU WAS SET
32198 065326 321 10 0 00 065306 JUMPL AC+4,S34600 ;LOOP ON ERROR SWITCH
32199
32200 065327 254 02 1 00 073206 S34700: JRSTF @[.+1] ;CLEAR ALL FLAGS
32201 DMOVE AC,[200,,0
32202 065330 120 04 0 00 071564 0,,0]
32203 DFAD AC,[177,,-1
32204 065331 110 04 0 00 073207 -1,,-1] ;EXPECT AROV,FOV,FXU=1,1,1
32205 065332 265 03 0 00 065333 JSP AC-1,.+1 ;SAVE FLAGS
32206 065333 312 04 0 00 071241 CAME AC,[377777,,-1]
32207 065334 003 04 0 00 034701 ER3 AC,34701 ;C(AC) FAILED
32208 065335 312 05 0 00 071244 CAME AC+1,[377777,,-2]
32209 065336 004 05 0 00 034701 ER4 AC+1,34701 ;C(AC+1) FAILED
32210 065337 255 10 0 00 065341 JOV .+2
32211 065340 013 03 0 00 034701 ER13 AC-1,34701 ;AROV WAS CLEAR
32212 065341 255 01 0 00 065343 JFOV .+2
32213 065342 013 03 0 00 034701 ER13 AC-1,34701 ;FOV WAS CLEAR
32214 065343 607 03 0 00 000100 TLNN AC-1,FXU
32215 065344 013 03 0 00 034701 ER13 AC-1,34701 ;FXU WAS CLEAR
32216 065345 321 10 0 00 065327 JUMPL AC+4,S34700 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 14
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0721
32217 065346 254 02 1 00 073211 S35000: JRSTF @[.+1] ;CLEAR ALL FLAGS
32218 DMOVE AC,[400400,,0
32219 065347 120 04 0 00 073212 0,,0]
32220 DFAD AC,[401000,,0
32221 065350 110 04 0 00 073214 0,,2] ;EXPECT AROV, FOV, FXU = 0,0,0
32222 065351 265 03 0 00 065352 JSP AC-1,.+1 ;SAVE FLAGS
32223 065352 312 04 0 00 070711 CAME AC,[400000,,0]
32224 065353 003 04 0 00 035001 ER3 AC,35001 ;C(AC) FAILED
32225 065354 312 05 0 00 070673 CAME AC+1,[0,,1]
32226 065355 004 05 0 00 035001 ER4 AC+1,35001 ;C(AC+1) FAILED
32227 065356 255 10 0 00 065360 JOV .+2
32228 065357 254 00 0 00 065361 JRST .+2
32229 065360 013 03 0 00 035001 ER13 AC-1,35001 ;AROV WAS SET
32230 065361 255 01 0 00 065363 JFOV .+2
32231 065362 254 00 0 00 065364 JRST .+2
32232 065363 013 03 0 00 035001 ER13 AC-1,35001 ;FOV WAS SET
32233 065364 603 03 0 00 000100 TLNE AC-1,FXU
32234 065365 013 03 0 00 035001 ER13 AC-1,35001 ;FXU WAS SET
32235 065366 321 10 0 00 065346 JUMPL AC+4,S35000 ;LOOP ON ERROR SWITCH
32236
32237 065367 254 02 1 00 073216 S35100: JRSTF @[.+1] ;CLEAR ALL FLAGS
32238 DMOVE AC,[400400,,0
32239 065370 120 04 0 00 073212 0,,0]
32240 DFAD AC,[400400,,0
32241 065371 110 04 0 00 073212 0,,0] ;EXPECT AROV, FOV, FXU=1,1,0
32242 065372 265 03 0 00 065373 JSP AC-1,.+1 ;SAVE FLAGS
32243 065373 312 04 0 00 070650 CAME AC,[777400,,0]
32244 065374 003 04 0 00 035101 ER3 AC,35101 ;C(AC) FAILED
32245 065375 312 05 0 00 070660 CAME AC+1,[0,,0]
32246 065376 004 05 0 00 035101 ER4 AC+1,35101 ;C(AC+1) FAILED
32247 065377 255 10 0 00 065401 JOV .+2
32248 065400 013 03 0 00 035101 ER13 AC-1,35101 ;AROV WAS CLEAR
32249 065401 255 01 0 00 065403 JFOV .+2
32250 065402 013 03 0 00 035101 ER13 AC-1,35101 ;FOV WAS CLEAR
32251 065403 603 03 0 00 000100 TLNE AC-1,FXU
32252 065404 013 03 0 00 035101 ER13 AC-1,35101 ;FXU WAS SET
32253 065405 321 10 0 00 065367 JUMPL AC+4,S35100 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 15
DFKCA5 MAC 3-Oct-80 13:57 DFAD TEST-DOUBLE FLOATING POINT ADD AND ROUND SEQ 0722
32254 065406 254 02 1 00 073217 S35200: JRSTF @[.+1] ;CLEAR ALL FLAGS
32255 DMOVE AC,[777600,,0
32256 065407 120 04 0 00 073220 0,,0]
32257 DFAD AC,[777600,,0
32258 065410 110 04 0 00 073220 0,,0] ;EXPECT AROV,FOV,FXV=0,0,0
32259 065411 265 03 0 00 065412 JSP AC-1,.+1 ;SAVE FLAGS
32260 065412 312 04 0 00 070650 CAME AC,[777400,,0]
32261 065413 003 04 0 00 035201 ER3 AC,35201 ;C(AC) FAILED
32262 065414 312 05 0 00 070660 CAME AC+1,[0,,0]
32263 065415 004 05 0 00 035201 ER4 AC+1,35201 ;C(AC+1) FAILED
32264 065416 255 10 0 00 065420 JOV .+2
32265 065417 254 00 0 00 065421 JRST .+2
32266 065420 013 03 0 00 035201 ER13 AC-1,35201 ;AROV WAS SET
32267 065421 255 01 0 00 065423 JFOV .+2
32268 065422 254 00 0 00 065424 JRST .+2
32269 065423 013 03 0 00 035201 ER13 AC-1,35201 ;FOV WAS SET
32270 065424 603 03 0 00 000100 TLNE AC-1,FXU
32271 065425 013 03 0 00 035201 ER13 AC-1,35201 ;FXU WAS SET
32272 065426 321 10 0 00 065406 JUMPL AC+4,S35200 ;LOOP ON ERROR SWITCH
32273
32274 065427 254 02 1 00 073222 S35300: JRSTF @[.+1] ;CLEAR ALL FLAGS
32275 DMOVE AC,[777600,,0
32276 065430 120 04 0 00 073220 0,,0]
32277 DFAD AC,[777600,,0
32278 065431 110 04 0 00 073223 0,,1] ;EXPECT AROV,FOV,FXU=1,1,1
32279 065432 265 03 0 00 065433 JSP AC-1,.+1 ;SAVE FLAGS
32280 065433 312 04 0 00 070711 CAME AC,[400000,,0]
32281 065434 003 04 0 00 035301 ER3 AC,35301 ;C(AC) FAILED
32282 065435 312 05 0 00 071232 CAME AC+1,[0,,2]
32283 065436 004 05 0 00 035301 ER4 AC+1,35301 ;C(AC+1) FAILED
32284 065437 255 10 0 00 065441 JOV .+2
32285 065440 013 03 0 00 035301 ER13 AC-1,35301 ;AROV WAS CLEAR
32286 065441 255 01 0 00 065443 JFOV .+2
32287 065442 013 03 0 00 035301 ER13 AC-1,35301 ;FOV WAS CLEAR
32288 065443 607 03 0 00 000100 TLNN AC-1,FXU
32289 065444 013 03 0 00 035301 ER13 AC-1,35301 ;FXU WAS CLEAR
32290 065445 321 10 0 00 065427 JUMPL AC+4,S35300 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 16
DFKCA5 MAC 3-Oct-80 13:57 DFSB TEST-DOUBLE FLOATING POINT SUBTRACT AND ROUND SEQ 0723
32291 SUBTTL DFSB TEST-DOUBLE FLOATING POINT SUBTRACT AND ROUND
32292
32293 000004 AC=4
32294 SAVEAC (1,1)^
32295 065446 201 10 0 00 065446 MOVEI AC+4,.
32296 065447 202 10 0 00 030051 MOVEM AC+4,TESTPC ;SETUP SUBTEST PC
32297 065450 201 10 0 00 000010 MOVEI AC+4,<AC+4>&17 ;INFORM ERROR ROUTINE WHICH
32298 065451 202 10 0 00 073775 MOVEM AC+4,ERRLOP# ;AC IS USED FOR ITERATION^
32299 065452 254 02 1 00 073225 JRSTF @[.+1] ;CLEAR ALL FLAGS
32300
32301 ;CHECK THAT DFSB AC,E DOES NOT ALTER C(E) OR C(E+1)
32302 S40100: DMOVE AC,[200777,,-1
32303 065453 120 04 0 00 071611 -1,,-1]
32304 DMOVE AC+2,[200000,,0
32305 065454 120 06 0 00 072652 400000,,-1]
32306 065455 111 04 0 00 000006 DFSB AC,AC+2
32307 065456 312 06 0 00 070743 CAME AC+2,[200000,,0]
32308 065457 005 06 0 00 040101 ER5 AC+2,40101 ;C(E) WAS ALTERED
32309 065460 312 07 0 00 072653 CAME AC+3,[400000,,-1]
32310 065461 006 07 0 00 040101 ER6 AC+3,40101 ;C(E+1) WAS ALTERED
32311 065462 321 10 0 00 065453 JUMPL AC+4,S40100 ;LOOP ON ERROR SWITCH
32312
32313 SDFS 402,205400,0,0,0,177400,0,0,0,204770,0,0,0^
32314 S40200: DMOVE AC,[205400,,0
32315 065463 120 04 0 00 072667 0,,0]
32316 DFSB AC,[177400,,0
32317 065464 111 04 0 00 072665 0,,0]
32318 065465 312 04 0 00 073226 CAME AC,[204770,,0]
32319 065466 003 04 0 00 040201 ER3 AC,40201
32320 065467 312 05 0 00 070660 CAME AC+1,[0,,0]
32321 065470 004 05 0 00 040201 ER4 AC+1,40201
32322 065471 321 10 0 00 065463 JUMPL AC+4,S40200 ;LOOP ON ERROR SWITCH^
32323
32324 SDFS 403,200400,0,0,0,177400,0,0,0,177400,0,0,0^
32325 S40300: DMOVE AC,[200400,,0
32326 065472 120 04 0 00 070745 0,,0]
32327 DFSB AC,[177400,,0
32328 065473 111 04 0 00 072665 0,,0]
32329 065474 312 04 0 00 070636 CAME AC,[177400,,0]
32330 065475 003 04 0 00 040301 ER3 AC,40301
32331 065476 312 05 0 00 070660 CAME AC+1,[0,,0]
32332 065477 004 05 0 00 040301 ER4 AC+1,40301
32333 065500 321 10 0 00 065472 JUMPL AC+4,S40300 ;LOOP ON ERROR SWITCH^
32334
32335 SDFS 404,200400,0,0,0,200400,0,0,0,0,0,0,0^
32336 S40400: DMOVE AC,[200400,,0
32337 065501 120 04 0 00 070745 0,,0]
32338 DFSB AC,[200400,,0
32339 065502 111 04 0 00 070745 0,,0]
32340 065503 312 04 0 00 070660 CAME AC,[0,,0]
32341 065504 003 04 0 00 040401 ER3 AC,40401
32342 065505 312 05 0 00 070660 CAME AC+1,[0,,0]
32343 065506 004 05 0 00 040401 ER4 AC+1,40401
32344 065507 321 10 0 00 065501 JUMPL AC+4,S40400 ;LOOP ON ERROR SWITCH^
32345
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 16-1
DFKCA5 MAC 3-Oct-80 13:57 DFSB TEST-DOUBLE FLOATING POINT SUBTRACT AND ROUND SEQ 0724
32346 SDFS 405,201400,0,0,0,177400,0,0,0,200600,0,0,0^
32347 S40500: DMOVE AC,[201400,,0
32348 065510 120 04 0 00 072123 0,,0]
32349 DFSB AC,[177400,,0
32350 065511 111 04 0 00 072665 0,,0]
32351 065512 312 04 0 00 072127 CAME AC,[200600,,0]
32352 065513 003 04 0 00 040501 ER3 AC,40501
32353 065514 312 05 0 00 070660 CAME AC+1,[0,,0]
32354 065515 004 05 0 00 040501 ER4 AC+1,40501
32355 065516 321 10 0 00 065510 JUMPL AC+4,S40500 ;LOOP ON ERROR SWITCH^
32356
32357 SDFS 406,576400,0,0,0,600400,0,0,0,577200,0,0,0^
32358 S40600: DMOVE AC,[576400,,0
32359 065517 120 04 0 00 072766 0,,0]
32360 DFSB AC,[600400,,0
32361 065520 111 04 0 00 072663 0,,0]
32362 065521 312 04 0 00 072764 CAME AC,[577200,,0]
32363 065522 003 04 0 00 040601 ER3 AC,40601
32364 065523 312 05 0 00 070660 CAME AC+1,[0,,0]
32365 065524 004 05 0 00 040601 ER4 AC+1,40601
32366 065525 321 10 0 00 065517 JUMPL AC+4,S40600 ;LOOP ON ERROR SWITCH^
32367
32368 SDFS 407,201400,0,0,0,577400,0,0,0,201600,0,0,0^
32369 S40700: DMOVE AC,[201400,,0
32370 065526 120 04 0 00 072123 0,,0]
32371 DFSB AC,[577400,,0
32372 065527 111 04 0 00 072125 0,,0]
32373 065530 312 04 0 00 071645 CAME AC,[201600,,0]
32374 065531 003 04 0 00 040701 ER3 AC,40701
32375 065532 312 05 0 00 070660 CAME AC+1,[0,,0]
32376 065533 004 05 0 00 040701 ER4 AC+1,40701
32377 065534 321 10 0 00 065526 JUMPL AC+4,S40700 ;LOOP ON ERROR SWITCH^
32378
32379 SDFS 410,203400,0,0,0,200477,777775,0,0,202660,0,300000,0^
32380 S41000: DMOVE AC,[203400,,0
32381 065535 120 04 0 00 073067 0,,0]
32382 DFSB AC,[200477,,777775
32383 065536 111 04 0 00 073227 0,,0]
32384 065537 312 04 0 00 073231 CAME AC,[202660,,0]
32385 065540 003 04 0 00 041001 ER3 AC,41001
32386 065541 312 05 0 00 072525 CAME AC+1,[300000,,0]
32387 065542 004 05 0 00 041001 ER4 AC+1,41001
32388 065543 321 10 0 00 065535 JUMPL AC+4,S41000 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 17
DFKCA5 MAC 3-Oct-80 13:57 DFSB TEST-DOUBLE FLOATING POINT SUBTRACT AND ROUND SEQ 0725
32389 ;TEST AROV, FOV AND FXU FLAGS - DFSB
32390
32391 000004 AC=4
32392 SAVEAC (1,1)^
32393 065544 201 10 0 00 065544 MOVEI AC+4,.
32394 065545 202 10 0 00 030051 MOVEM AC+4,TESTPC ;SETUP SUBTEST PC
32395 065546 201 10 0 00 000010 MOVEI AC+4,<AC+4>&17 ;INFORM ERROR ROUTINE WHICH
32396 065547 202 10 0 00 073775 MOVEM AC+4,ERRLOP# ;AC IS USED FOR ITERATION^
32397
32398 065550 254 02 1 00 073232 S41100: JRSTF @[.+1] ;CLEAR ALL FLAGS
32399 DMOVE AC,[377400,,0
32400 065551 120 04 0 00 072756 0,,0]
32401 DFSB AC,[400400,,0
32402 065552 111 04 0 00 073233 0,,1] ;EXPECT AROV,FOV,FXU=0,0,0
32403 065553 265 03 0 00 065554 JSP AC-1,.+1 ;SAVE FLAGS
32404 065554 312 04 0 00 071241 CAME AC,[377777,,-1]
32405 065555 003 04 0 00 041101 ER3 AC,41101 ;C(AC) FAILED
32406 065556 312 05 0 00 071241 CAME AC+1,[377777,,-1]
32407 065557 004 05 0 00 041101 ER4 AC+1,41101 ;C(AC+1) FAILED
32408 065560 255 10 0 00 065562 JOV .+2
32409 065561 254 00 0 00 065563 JRST .+2
32410 065562 013 03 0 00 041101 ER13 AC-1,41101 ;AROV WAS SET
32411 065563 255 01 0 00 065565 JFOV .+2
32412 065564 254 00 0 00 065566 JRST .+2
32413 065565 013 03 0 00 041101 ER13 AC-1,41101 ;FOV WAS SET
32414 065566 603 03 0 00 000100 TLNE AC-1,FXU
32415 065567 013 03 0 00 041101 ER13 AC-1,41101 ;FXU WAS SET
32416 065570 321 10 0 00 065550 JUMPL AC+4,S41100 ;LOOP ON ERROR SWITCH
32417
32418 065571 254 02 1 00 073235 S41200: JRSTF @[.+1] ;CLEAR ALL FLAGS
32419 DMOVE AC,[377400,,0
32420 065572 120 04 0 00 072756 0,,0]
32421 DFSB AC,[400400,,0
32422 065573 111 04 0 00 073212 0,,0] ;EXPECT AROV,FOV,FXU=1,1,0
32423 065574 265 03 0 00 065575 JSP AC-1,.+1 ;SAVE FLAGS
32424 065575 312 04 0 00 071117 CAME AC,[400,,0]
32425 065576 003 04 0 00 041201 ER3 AC,41201 ;C(AC) FAILED
32426 065577 312 05 0 00 070660 CAME AC+1,[0,,0]
32427 065600 004 05 0 00 041201 ER4 AC+1,41201 ;C(AC+1)FAILED
32428 065601 255 10 0 00 065603 JOV .+2
32429 065602 013 03 0 00 041201 ER13 AC-1,41201 ;AROV WAS CLEAR
32430 065603 255 01 0 00 065605 JFOV .+2
32431 065604 013 03 0 00 041201 ER13 AC-1,41201 ;FOV WAS CLEAR
32432 065605 603 03 0 00 000100 TLNE AC-1,FXU
32433 065606 013 03 0 00 041201 ER13 AC-1,41201 ;FXU WAS SET
32434 065607 321 10 0 00 065571 JUMPL AC+4,S41200 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 18
DFKCA5 MAC 3-Oct-80 13:57 DFSB TEST-DOUBLE FLOATING POINT SUBTRACT AND ROUND SEQ 0726
32435 065610 254 02 1 00 073236 S41300: JRSTF @[.+1] ;CLEAR ALL FLAGS
32436 DMOVE AC,[777,,-1
32437 065611 120 04 0 00 071237 -1,,-1]
32438 DFSB AC,[377,,-1
32439 065612 111 04 0 00 071607 -1,,-1] ;EXPECT AROV,FOV,FXU=0,0,0
32440 065613 265 03 0 00 065614 JSP AC-1,.+1 ;SAVE FLAGS
32441 065614 312 04 0 00 071117 CAME AC,[400,,0]
32442 065615 003 04 0 00 041301 ER3 AC,41301 ;C(AC) FAILED
32443 065616 312 05 0 00 070660 CAME AC+1,[0,,0]
32444 065617 004 05 0 00 041301 ER4 AC+1,41301 ;C(AC+1) FAILED
32445 065620 255 10 0 00 065622 JOV .+2
32446 065621 254 00 0 00 065623 JRST .+2
32447 065622 013 03 0 00 041301 ER13 AC-1,41301 ;AROV WAS SET
32448 065623 255 01 0 00 065625 JFOV .+2
32449 065624 254 00 0 00 065626 JRST .+2
32450 065625 013 03 0 00 041301 ER13 AC-1,41301 ;FOV WAS SET
32451 065626 603 03 0 00 000100 TLNE AC-1,FXU
32452 065627 013 03 0 00 041301 ER13 AC-1,41301 ;FXU WAS SET
32453 065630 321 10 0 00 065610 JUMPL AC+4,S41300 ;LOOP ON ERROR SWITCH
32454
32455 065631 254 02 1 00 073237 S41400: JRSTF @[.+1] ;CLEAR ALL FLAGS
32456 DMOVE AC,[777,,-1
32457 065632 120 04 0 00 071237 -1,,-1]
32458 DFSB AC,[400,,0
32459 065633 111 04 0 00 071566 0,,0] ;EXPECT AROV,FOV,FXU=1,1,1
32460 065634 265 03 0 00 065635 JSP AC-1,.+1 ;SAVE FLAGS
32461 065635 312 04 0 00 071241 CAME AC,[377777,,-1]
32462 065636 003 04 0 00 041401 ER3 AC,41401 ;C(AC) FAILED
32463 065637 312 05 0 00 071244 CAME AC+1,[377777,,-2]
32464 065640 004 05 0 00 041401 ER4 AC+1,41401 ;C(AC+1) FAILED
32465 065641 255 10 0 00 065643 JOV .+2
32466 065642 013 03 0 00 041401 ER13 AC-1,41401 ;AROV WAS CLEAR
32467 065643 255 01 0 00 065645 JFOV .+2
32468 065644 013 03 0 00 041401 ER13 AC-1,41401 ;FOV WAS CLEAR
32469 065645 607 03 0 00 000100 TLNN AC-1,FXU
32470 065646 013 03 0 00 041401 ER13 AC-1,41401 ;FXU WAS CLEAR
32471 065647 321 10 0 00 065631 JUMPL AC+4,S41400 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 19
DFKCA5 MAC 3-Oct-80 13:57 DFSB TEST-DOUBLE FLOATING POINT SUBTRACT AND ROUND SEQ 0727
32472 065650 254 02 1 00 073240 S41500: JRSTF @[.+1] ;CLEAR ALL FLAGS
32473 DMOVE AC,[400400,,0
32474 065651 120 04 0 00 073212 0,,0]
32475 DFSB AC,[377377,,-1
32476 065652 111 04 0 00 073241 -1,,-1] ;EXPECT AROV,FOV,FXU=0,0,0
32477 065653 265 03 0 00 065654 JSP AC-1,.+1 ;SAVE FLAGS
32478 065654 312 04 0 00 070711 CAME AC,[400000,,0]
32479 065655 003 04 0 00 041501 ER3 AC,41501 ;C(AC) FAILED
32480 065656 312 05 0 00 070673 CAME AC+1,[0,,1]
32481 065657 004 05 0 00 041501 ER4 AC+1,41501 ;C(AC+1) FAILED
32482 065660 255 10 0 00 065662 JOV .+2
32483 065661 254 00 0 00 065663 JRST .+2
32484 065662 013 03 0 00 041501 ER13 AC-1,41501 ;AROV WAS SET
32485 065663 255 01 0 00 065665 JFOV .+2
32486 065664 254 00 0 00 065666 JRST .+2
32487 065665 013 03 0 00 041501 ER13 AC-1,41501 ;FOV WAS SET
32488 065666 603 03 0 00 000100 TLNE AC-1,FXU
32489 065667 013 03 0 00 041501 ER13 AC-1,41501 ;FXU WAS SET
32490 065670 321 10 0 00 065650 JUMPL AC+4,S41500 ;LOOP ON ERROR SWITCH
32491
32492 065671 254 02 1 00 073243 S41600: JRSTF @[.+1] ;CLEAR ALL FLAGS
32493 DMOVE AC,[400400,,0
32494 065672 120 04 0 00 073212 0,,0]
32495 DFSB AC,[377400,,0
32496 065673 111 04 0 00 072756 0,,0] ;EXPECT AROV,FOV,FXU=1,1,0
32497 065674 265 03 0 00 065675 JSP AC-1,.+1 ;SAVE FLAGS
32498 065675 312 04 0 00 070650 CAME AC,[777400,,0]
32499 065676 003 04 0 00 041601 ER3 AC,41601 ;C(AC) FAILED
32500 065677 312 05 0 00 070660 CAME AC+1,[0,,0]
32501 065700 004 05 0 00 041601 ER4 AC+1,41601 ;C(AC+1) FAILED
32502 065701 255 10 0 00 065703 JOV .+2
32503 065702 013 03 0 00 041601 ER13 AC-1,41601 ;AROV WAS CLEAR
32504 065703 255 01 0 00 065705 JFOV .+2
32505 065704 013 03 0 00 041601 ER13 AC-1,41601 ;FOV WAS CLEAR
32506 065705 603 03 0 00 000100 TLNE AC-1,FXU
32507 065706 013 03 0 00 041601 ER13 AC-1,41601 ;FXU WAS SET
32508 065707 321 10 0 00 065671 JUMPL AC+4,S41600 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 20
DFKCA5 MAC 3-Oct-80 13:57 DFSB TEST-DOUBLE FLOATING POINT SUBTRACT AND ROUND SEQ 0728
32509 065710 254 02 1 00 073244 S41700: JRSTF @[.+1] ;CLEAR ALL FLAGS
32510 DMOVE AC,[777000,,0
32511 065711 120 04 0 00 073245 0,,0]
32512 DFSB AC,[777400,,0
32513 065712 111 04 0 00 073247 0,,0] ;EXPECT AROV,FOV,FXU=0,0,0
32514 065713 265 03 0 00 065714 JSP AC-1,.+1 ;SAVE FLAGS
32515 065714 312 04 0 00 070650 CAME AC,[777400,,0]
32516 065715 003 04 0 00 041701 ER3 AC,41701 ;C(AC) FAILED
32517 065716 312 05 0 00 070660 CAME AC+1,[0,,0]
32518 065717 004 05 0 00 041701 ER4 AC+1,41701 ;C(AC+1) FAILED
32519 065720 255 10 0 00 065722 JOV .+2
32520 065721 254 00 0 00 065723 JRST .+2
32521 065722 013 03 0 00 041701 ER13 AC-1,41701 ;AROV WAS SET
32522 065723 255 01 0 00 065725 JFOV .+2
32523 065724 254 00 0 00 065726 JRST .+2
32524 065725 013 03 0 00 041701 ER13 AC-1,41701 ;FOV WAS SET
32525 065726 603 03 0 00 000100 TLNE AC-1,FXU
32526 065727 013 03 0 00 041701 ER13 AC-1,41701 ;FXU WAS SET
32527 065730 321 10 0 00 065710 JUMPL AC+4,S41700 ;LOOP ON ERROR SWITCH
32528
32529 065731 254 02 1 00 073251 S42000: JRSTF @[.+1] ;CLEAR ALL FLAGS
32530 DMOVE AC,[777000,,0
32531 065732 120 04 0 00 073252 0,,1]
32532 DFSB AC,[777400,,0
32533 065733 111 04 0 00 073247 0,,0] ;EXPECT AROV,FOV,FXU=1,1,1
32534 065734 265 03 0 00 065735 JSP AC-1,.+1 ;SAVE FLAGS
32535 065735 312 04 0 00 070711 CAME AC,[400000,,0]
32536 065736 003 04 0 00 042001 ER3 AC,42001 ;C(AC) FAILED
32537 065737 312 05 0 00 071232 CAME AC+1,[0,,2]
32538 065740 004 05 0 00 042001 ER4 AC+1,42001 ;C(AC+1) FAILED
32539 065741 255 10 0 00 065743 JOV .+2
32540 065742 013 03 0 00 042001 ER13 AC-1,42001 ;AROV WAS CLEAR
32541 065743 255 01 0 00 065745 JFOV .+2
32542 065744 013 03 0 00 042001 ER13 AC-1,42001 ;FOV WAS CLEAR
32543 065745 607 03 0 00 000100 TLNN AC-1,FXU
32544 065746 013 03 0 00 042001 ER13 AC-1,42001 ;FXU WAS CLEAR
32545 065747 321 10 0 00 065731 JUMPL AC+4,S42000 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 21
DFKCA5 MAC 3-Oct-80 13:57 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0729
32546 SUBTTL DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND
32547
32548 000004 AC=4
32549 SAVEAC (1,1)^
32550 065750 201 10 0 00 065750 MOVEI AC+4,.
32551 065751 202 10 0 00 030051 MOVEM AC+4,TESTPC ;SETUP SUBTEST PC
32552 065752 201 10 0 00 000010 MOVEI AC+4,<AC+4>&17 ;INFORM ERROR ROUTINE WHICH
32553 065753 202 10 0 00 073775 MOVEM AC+4,ERRLOP# ;AC IS USED FOR ITERATION^
32554 065754 254 02 1 00 073254 JRSTF @[.+1] ;CLEAR ALL FLAGS
32555
32556 ;CHECK THAT DFMP AC,E DOES NOT ALTER C(E) OR C(E+1)
32557 S50100: DMOVE AC,[200777,,-1
32558 065755 120 04 0 00 071611 -1,,-1]
32559 DMOVE AC+2,[201400,,0
32560 065756 120 06 0 00 073255 400000,,-1]
32561 065757 112 04 0 00 000006 DFMP AC,AC+2
32562 065760 312 06 0 00 071613 CAME AC+2,[201400,,0]
32563 065761 005 06 0 00 050101 ER5 AC+2,50101 ;C(E) WAS ALTERED
32564 065762 312 07 0 00 072653 CAME AC+3,[400000,,-1]
32565 065763 006 07 0 00 050101 ER6 AC+3,50101 ;C(E+1) WAS ALTERED
32566 065764 321 10 0 00 065755 JUMPL AC+4,S50100 ;LOOP ON ERROR SWITCH
32567
32568 SDFM 502,200400,0,0,0,0,0,0,0,0,0,0,0^
32569 S50200: DMOVE AC,[200400,,0
32570 065765 120 04 0 00 070745 0,,0]
32571 DFMP AC,[0,,0
32572 065766 112 04 0 00 070663 0,,0]
32573 065767 312 04 0 00 070660 CAME AC,[0,,0]
32574 065770 003 04 0 00 050201 ER3 AC,50201
32575 065771 312 05 0 00 070660 CAME AC+1,[0,,0]
32576 065772 004 05 0 00 050201 ER4 AC+1,50201
32577 065773 321 10 0 00 065765 JUMPL AC+4,S50200 ;LOOP ON ERROR SWITCH^
32578
32579 SDFM 503,200400,0,0,0,200400,0,0,0,177400,0,0,0^
32580 S50300: DMOVE AC,[200400,,0
32581 065774 120 04 0 00 070745 0,,0]
32582 DFMP AC,[200400,,0
32583 065775 112 04 0 00 070745 0,,0]
32584 065776 312 04 0 00 070636 CAME AC,[177400,,0]
32585 065777 003 04 0 00 050301 ER3 AC,50301
32586 066000 312 05 0 00 070660 CAME AC+1,[0,,0]
32587 066001 004 05 0 00 050301 ER4 AC+1,50301
32588 066002 321 10 0 00 065774 JUMPL AC+4,S50300 ;LOOP ON ERROR SWITCH^
32589
32590 SDFM 504,400,0,0,0,400,0,0,0,177400,0,0,0^
32591 S50400: DMOVE AC,[400,,0
32592 066003 120 04 0 00 071566 0,,0]
32593 DFMP AC,[400,,0
32594 066004 112 04 0 00 071566 0,,0]
32595 066005 312 04 0 00 070636 CAME AC,[177400,,0]
32596 066006 003 04 0 00 050401 ER3 AC,50401
32597 066007 312 05 0 00 070660 CAME AC+1,[0,,0]
32598 066010 004 05 0 00 050401 ER4 AC+1,50401
32599 066011 321 10 0 00 066003 JUMPL AC+4,S50400 ;LOOP ON ERROR SWITCH^
32600
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 21-1
DFKCA5 MAC 3-Oct-80 13:57 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0730
32601 SDFM 505,200400,0,0,0,400,0,0,0,377400,0,0,0^
32602 S50500: DMOVE AC,[200400,,0
32603 066012 120 04 0 00 070745 0,,0]
32604 DFMP AC,[400,,0
32605 066013 112 04 0 00 071566 0,,0]
32606 066014 312 04 0 00 072471 CAME AC,[377400,,0]
32607 066015 003 04 0 00 050501 ER3 AC,50501
32608 066016 312 05 0 00 070660 CAME AC+1,[0,,0]
32609 066017 004 05 0 00 050501 ER4 AC+1,50501
32610 066020 321 10 0 00 066012 JUMPL AC+4,S50500 ;LOOP ON ERROR SWITCH^
32611
32612 SDFM 506,177400,0,0,0,400,0,0,0,376400,0,0,0^
32613 S50600: DMOVE AC,[177400,,0
32614 066021 120 04 0 00 072665 0,,0]
32615 DFMP AC,[400,,0
32616 066022 112 04 0 00 071566 0,,0]
32617 066023 312 04 0 00 073257 CAME AC,[376400,,0]
32618 066024 003 04 0 00 050601 ER3 AC,50601
32619 066025 312 05 0 00 070660 CAME AC+1,[0,,0]
32620 066026 004 05 0 00 050601 ER4 AC+1,50601
32621 066027 321 10 0 00 066021 JUMPL AC+4,S50600 ;LOOP ON ERROR SWITCH^
32622
32623 SDFM 507,377400,0,0,0,400,0,0,0,176400,0,0,0^
32624 S50700: DMOVE AC,[377400,,0
32625 066030 120 04 0 00 072756 0,,0]
32626 DFMP AC,[400,,0
32627 066031 112 04 0 00 071566 0,,0]
32628 066032 312 04 0 00 070753 CAME AC,[176400,,0]
32629 066033 003 04 0 00 050701 ER3 AC,50701
32630 066034 312 05 0 00 070660 CAME AC+1,[0,,0]
32631 066035 004 05 0 00 050701 ER4 AC+1,50701
32632 066036 321 10 0 00 066030 JUMPL AC+4,S50700 ;LOOP ON ERROR SWITCH^
32633
32634 SDFM 510,577400,0,0,0,400,0,0,0,400400,0,0,0^
32635 S51000: DMOVE AC,[577400,,0
32636 066037 120 04 0 00 072125 0,,0]
32637 DFMP AC,[400,,0
32638 066040 112 04 0 00 071566 0,,0]
32639 066041 312 04 0 00 073064 CAME AC,[400400,,0]
32640 066042 003 04 0 00 051001 ER3 AC,51001
32641 066043 312 05 0 00 070660 CAME AC+1,[0,,0]
32642 066044 004 05 0 00 051001 ER4 AC+1,51001
32643 066045 321 10 0 00 066037 JUMPL AC+4,S51000 ;LOOP ON ERROR SWITCH^
32644
32645 SDFM 511,400,0,0,0,200400,0,0,0,377400,0,0,0^
32646 S51100: DMOVE AC,[400,,0
32647 066046 120 04 0 00 071566 0,,0]
32648 DFMP AC,[200400,,0
32649 066047 112 04 0 00 070745 0,,0]
32650 066050 312 04 0 00 072471 CAME AC,[377400,,0]
32651 066051 003 04 0 00 051101 ER3 AC,51101
32652 066052 312 05 0 00 070660 CAME AC+1,[0,,0]
32653 066053 004 05 0 00 051101 ER4 AC+1,51101
32654 066054 321 10 0 00 066046 JUMPL AC+4,S51100 ;LOOP ON ERROR SWITCH^
32655
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 21-2
DFKCA5 MAC 3-Oct-80 13:57 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0731
32656 SDFM 512,200400,0,0,0,577400,0,0,0,600400,0,0,0^
32657 S51200: DMOVE AC,[200400,,0
32658 066055 120 04 0 00 070745 0,,0]
32659 DFMP AC,[577400,,0
32660 066056 112 04 0 00 072125 0,,0]
32661 066057 312 04 0 00 072663 CAME AC,[600400,,0]
32662 066060 003 04 0 00 051201 ER3 AC,51201
32663 066061 312 05 0 00 070660 CAME AC+1,[0,,0]
32664 066062 004 05 0 00 051201 ER4 AC+1,51201
32665 066063 321 10 0 00 066055 JUMPL AC+4,S51200 ;LOOP ON ERROR SWITCH^
32666
32667 SDFM 513,200400,0,0,0,205400,0,0,0,204400,0,0,0^
32668 S51300: DMOVE AC,[200400,,0
32669 066064 120 04 0 00 070745 0,,0]
32670 DFMP AC,[205400,,0
32671 066065 112 04 0 00 072667 0,,0]
32672 066066 312 04 0 00 070617 CAME AC,[204400,,0]
32673 066067 003 04 0 00 051301 ER3 AC,51301
32674 066070 312 05 0 00 070660 CAME AC+1,[0,,0]
32675 066071 004 05 0 00 051301 ER4 AC+1,51301
32676 066072 321 10 0 00 066064 JUMPL AC+4,S51300 ;LOOP ON ERROR SWITCH^
32677
32678 SDFM 514,0,0,0,0,577400,0,0,0,0,0,0,0^
32679 S51400: DMOVE AC,[0,,0
32680 066073 120 04 0 00 070663 0,,0]
32681 DFMP AC,[577400,,0
32682 066074 112 04 0 00 072125 0,,0]
32683 066075 312 04 0 00 070660 CAME AC,[0,,0]
32684 066076 003 04 0 00 051401 ER3 AC,51401
32685 066077 312 05 0 00 070660 CAME AC+1,[0,,0]
32686 066100 004 05 0 00 051401 ER4 AC+1,51401
32687 066101 321 10 0 00 066073 JUMPL AC+4,S51400 ;LOOP ON ERROR SWITCH^
32688
32689 SDFM 515,200400,0,0,0,201400,0,0,0,200400,0,0,0^
32690 S51500: DMOVE AC,[200400,,0
32691 066102 120 04 0 00 070745 0,,0]
32692 DFMP AC,[201400,,0
32693 066103 112 04 0 00 072123 0,,0]
32694 066104 312 04 0 00 070614 CAME AC,[200400,,0]
32695 066105 003 04 0 00 051501 ER3 AC,51501
32696 066106 312 05 0 00 070660 CAME AC+1,[0,,0]
32697 066107 004 05 0 00 051501 ER4 AC+1,51501
32698 066110 321 10 0 00 066102 JUMPL AC+4,S51500 ;LOOP ON ERROR SWITCH^
32699
32700 SDFM 516,200400,0,0,0,202400,0,0,0,201400,0,0,0^
32701 S51600: DMOVE AC,[200400,,0
32702 066111 120 04 0 00 070745 0,,0]
32703 DFMP AC,[202400,,0
32704 066112 112 04 0 00 072677 0,,0]
32705 066113 312 04 0 00 071613 CAME AC,[201400,,0]
32706 066114 003 04 0 00 051601 ER3 AC,51601
32707 066115 312 05 0 00 070660 CAME AC+1,[0,,0]
32708 066116 004 05 0 00 051601 ER4 AC+1,51601
32709 066117 321 10 0 00 066111 JUMPL AC+4,S51600 ;LOOP ON ERROR SWITCH^
32710
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 21-3
DFKCA5 MAC 3-Oct-80 13:57 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0732
32711 SDFM 517,200400,0,0,0,204400,0,0,0,203400,0,0,0^
32712 S51700: DMOVE AC,[200400,,0
32713 066120 120 04 0 00 070745 0,,0]
32714 DFMP AC,[204400,,0
32715 066121 112 04 0 00 072702 0,,0]
32716 066122 312 04 0 00 070616 CAME AC,[203400,,0]
32717 066123 003 04 0 00 051701 ER3 AC,51701
32718 066124 312 05 0 00 070660 CAME AC+1,[0,,0]
32719 066125 004 05 0 00 051701 ER4 AC+1,51701
32720 066126 321 10 0 00 066120 JUMPL AC+4,S51700 ;LOOP ON ERROR SWITCH^
32721
32722 SDFM 520,200400,0,0,0,210400,0,0,0,207400,0,0,0^
32723 S52000: DMOVE AC,[200400,,0
32724 066127 120 04 0 00 070745 0,,0]
32725 DFMP AC,[210400,,0
32726 066130 112 04 0 00 072705 0,,0]
32727 066131 312 04 0 00 070622 CAME AC,[207400,,0]
32728 066132 003 04 0 00 052001 ER3 AC,52001
32729 066133 312 05 0 00 070660 CAME AC+1,[0,,0]
32730 066134 004 05 0 00 052001 ER4 AC+1,52001
32731 066135 321 10 0 00 066127 JUMPL AC+4,S52000 ;LOOP ON ERROR SWITCH^
32732
32733 SDFM 521,200400,0,0,0,220400,0,0,0,217400,0,0,0^
32734 S52100: DMOVE AC,[200400,,0
32735 066136 120 04 0 00 070745 0,,0]
32736 DFMP AC,[220400,,0
32737 066137 112 04 0 00 072710 0,,0]
32738 066140 312 04 0 00 070632 CAME AC,[217400,,0]
32739 066141 003 04 0 00 052101 ER3 AC,52101
32740 066142 312 05 0 00 070660 CAME AC+1,[0,,0]
32741 066143 004 05 0 00 052101 ER4 AC+1,52101
32742 066144 321 10 0 00 066136 JUMPL AC+4,S52100 ;LOOP ON ERROR SWITCH^
32743
32744 SDFM 522,200400,0,0,0,240400,0,0,0,237400,0,0,0^
32745 S52200: DMOVE AC,[200400,,0
32746 066145 120 04 0 00 070745 0,,0]
32747 DFMP AC,[240400,,0
32748 066146 112 04 0 00 072713 0,,0]
32749 066147 312 04 0 00 073260 CAME AC,[237400,,0]
32750 066150 003 04 0 00 052201 ER3 AC,52201
32751 066151 312 05 0 00 070660 CAME AC+1,[0,,0]
32752 066152 004 05 0 00 052201 ER4 AC+1,52201
32753 066153 321 10 0 00 066145 JUMPL AC+4,S52200 ;LOOP ON ERROR SWITCH^
32754
32755 SDFM 523,200400,0,0,0,300400,0,0,0,277400,0,0,0^
32756 S52300: DMOVE AC,[200400,,0
32757 066154 120 04 0 00 070745 0,,0]
32758 DFMP AC,[300400,,0
32759 066155 112 04 0 00 072715 0,,0]
32760 066156 312 04 0 00 073261 CAME AC,[277400,,0]
32761 066157 003 04 0 00 052301 ER3 AC,52301
32762 066160 312 05 0 00 070660 CAME AC+1,[0,,0]
32763 066161 004 05 0 00 052301 ER4 AC+1,52301
32764 066162 321 10 0 00 066154 JUMPL AC+4,S52300 ;LOOP ON ERROR SWITCH^
32765
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 21-4
DFKCA5 MAC 3-Oct-80 13:57 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0733
32766 SDFM 524,201400,0,0,0,200400,0,0,0,200400,0,0,0^
32767 S52400: DMOVE AC,[201400,,0
32768 066163 120 04 0 00 072123 0,,0]
32769 DFMP AC,[200400,,0
32770 066164 112 04 0 00 070745 0,,0]
32771 066165 312 04 0 00 070614 CAME AC,[200400,,0]
32772 066166 003 04 0 00 052401 ER3 AC,52401
32773 066167 312 05 0 00 070660 CAME AC+1,[0,,0]
32774 066170 004 05 0 00 052401 ER4 AC+1,52401
32775 066171 321 10 0 00 066163 JUMPL AC+4,S52400 ;LOOP ON ERROR SWITCH^
32776
32777 SDFM 525,202400,0,0,0,200400,0,0,0,201400,0,0,0^
32778 S52500: DMOVE AC,[202400,,0
32779 066172 120 04 0 00 072677 0,,0]
32780 DFMP AC,[200400,,0
32781 066173 112 04 0 00 070745 0,,0]
32782 066174 312 04 0 00 071613 CAME AC,[201400,,0]
32783 066175 003 04 0 00 052501 ER3 AC,52501
32784 066176 312 05 0 00 070660 CAME AC+1,[0,,0]
32785 066177 004 05 0 00 052501 ER4 AC+1,52501
32786 066200 321 10 0 00 066172 JUMPL AC+4,S52500 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 22
DFKCA5 MAC 3-Oct-80 13:57 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0734
32787
32788
32789 SDFM 526,204400,0,0,0,200400,0,0,0,203400,0,0,0^
32790 S52600: DMOVE AC,[204400,,0
32791 066201 120 04 0 00 072702 0,,0]
32792 DFMP AC,[200400,,0
32793 066202 112 04 0 00 070745 0,,0]
32794 066203 312 04 0 00 070616 CAME AC,[203400,,0]
32795 066204 003 04 0 00 052601 ER3 AC,52601
32796 066205 312 05 0 00 070660 CAME AC+1,[0,,0]
32797 066206 004 05 0 00 052601 ER4 AC+1,52601
32798 066207 321 10 0 00 066201 JUMPL AC+4,S52600 ;LOOP ON ERROR SWITCH^
32799
32800 SDFM 527,210400,0,0,0,200400,0,0,0,207400,0,0,0^
32801 S52700: DMOVE AC,[210400,,0
32802 066210 120 04 0 00 072705 0,,0]
32803 DFMP AC,[200400,,0
32804 066211 112 04 0 00 070745 0,,0]
32805 066212 312 04 0 00 070622 CAME AC,[207400,,0]
32806 066213 003 04 0 00 052701 ER3 AC,52701
32807 066214 312 05 0 00 070660 CAME AC+1,[0,,0]
32808 066215 004 05 0 00 052701 ER4 AC+1,52701
32809 066216 321 10 0 00 066210 JUMPL AC+4,S52700 ;LOOP ON ERROR SWITCH^
32810
32811 SDFM 530,220400,0,0,0,200400,0,0,0,217400,0,0,0^
32812 S53000: DMOVE AC,[220400,,0
32813 066217 120 04 0 00 072710 0,,0]
32814 DFMP AC,[200400,,0
32815 066220 112 04 0 00 070745 0,,0]
32816 066221 312 04 0 00 070632 CAME AC,[217400,,0]
32817 066222 003 04 0 00 053001 ER3 AC,53001
32818 066223 312 05 0 00 070660 CAME AC+1,[0,,0]
32819 066224 004 05 0 00 053001 ER4 AC+1,53001
32820 066225 321 10 0 00 066217 JUMPL AC+4,S53000 ;LOOP ON ERROR SWITCH^
32821
32822 SDFM 531,240400,0,0,0,200400,0,0,0,237400,0,0,0^
32823 S53100: DMOVE AC,[240400,,0
32824 066226 120 04 0 00 072713 0,,0]
32825 DFMP AC,[200400,,0
32826 066227 112 04 0 00 070745 0,,0]
32827 066230 312 04 0 00 073260 CAME AC,[237400,,0]
32828 066231 003 04 0 00 053101 ER3 AC,53101
32829 066232 312 05 0 00 070660 CAME AC+1,[0,,0]
32830 066233 004 05 0 00 053101 ER4 AC+1,53101
32831 066234 321 10 0 00 066226 JUMPL AC+4,S53100 ;LOOP ON ERROR SWITCH^
32832
32833 SDFM 532,300400,0,0,0,200400,0,0,0,277400,0,0,0^
32834 S53200: DMOVE AC,[300400,,0
32835 066235 120 04 0 00 072715 0,,0]
32836 DFMP AC,[200400,,0
32837 066236 112 04 0 00 070745 0,,0]
32838 066237 312 04 0 00 073261 CAME AC,[277400,,0]
32839 066240 003 04 0 00 053201 ER3 AC,53201
32840 066241 312 05 0 00 070660 CAME AC+1,[0,,0]
32841 066242 004 05 0 00 053201 ER4 AC+1,53201
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 22-1
DFKCA5 MAC 3-Oct-80 13:57 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0735
32842 066243 321 10 0 00 066235 JUMPL AC+4,S53200 ;LOOP ON ERROR SWITCH^
32843
32844 SDFM 533,200400,0,0,0,576400,0,0,0,577400,0,0,0^
32845 S53300: DMOVE AC,[200400,,0
32846 066244 120 04 0 00 070745 0,,0]
32847 DFMP AC,[576400,,0
32848 066245 112 04 0 00 072766 0,,0]
32849 066246 312 04 0 00 072125 CAME AC,[577400,,0]
32850 066247 003 04 0 00 053301 ER3 AC,53301
32851 066250 312 05 0 00 070660 CAME AC+1,[0,,0]
32852 066251 004 05 0 00 053301 ER4 AC+1,53301
32853 066252 321 10 0 00 066244 JUMPL AC+4,S53300 ;LOOP ON ERROR SWITCH^
32854
32855 SDFM 534,200400,0,0,0,575400,0,0,0,576400,0,0,0^
32856 S53400: DMOVE AC,[200400,,0
32857 066253 120 04 0 00 070745 0,,0]
32858 DFMP AC,[575400,,0
32859 066254 112 04 0 00 073262 0,,0]
32860 066255 312 04 0 00 070637 CAME AC,[576400,,0]
32861 066256 003 04 0 00 053401 ER3 AC,53401
32862 066257 312 05 0 00 070660 CAME AC+1,[0,,0]
32863 066260 004 05 0 00 053401 ER4 AC+1,53401
32864 066261 321 10 0 00 066253 JUMPL AC+4,S53400 ;LOOP ON ERROR SWITCH^
32865
32866 SDFM 535,200777,-1,0,0,200400,0,0,0,177777,-1,0,0^
32867 S53500: DMOVE AC,[200777,,-1
32868 066262 120 04 0 00 073065 0,,0]
32869 DFMP AC,[200400,,0
32870 066263 112 04 0 00 070745 0,,0]
32871 066264 312 04 0 00 071412 CAME AC,[177777,,-1]
32872 066265 003 04 0 00 053501 ER3 AC,53501
32873 066266 312 05 0 00 070660 CAME AC+1,[0,,0]
32874 066267 004 05 0 00 053501 ER4 AC+1,53501
32875 066270 321 10 0 00 066262 JUMPL AC+4,S53500 ;LOOP ON ERROR SWITCH^
32876
32877 SDFM 536,200777,-2,0,0,200400,0,0,0,177777,-2,0,0^
32878 S53600: DMOVE AC,[200777,,-2
32879 066271 120 04 0 00 073264 0,,0]
32880 DFMP AC,[200400,,0
32881 066272 112 04 0 00 070745 0,,0]
32882 066273 312 04 0 00 073266 CAME AC,[177777,,-2]
32883 066274 003 04 0 00 053601 ER3 AC,53601
32884 066275 312 05 0 00 070660 CAME AC+1,[0,,0]
32885 066276 004 05 0 00 053601 ER4 AC+1,53601
32886 066277 321 10 0 00 066271 JUMPL AC+4,S53600 ;LOOP ON ERROR SWITCH^
32887
32888 SDFM 537,200777,-3,0,0,200400,0,0,0,177777,-3,0,0^
32889 S53700: DMOVE AC,[200777,,-3
32890 066300 120 04 0 00 073267 0,,0]
32891 DFMP AC,[200400,,0
32892 066301 112 04 0 00 070745 0,,0]
32893 066302 312 04 0 00 073271 CAME AC,[177777,,-3]
32894 066303 003 04 0 00 053701 ER3 AC,53701
32895 066304 312 05 0 00 070660 CAME AC+1,[0,,0]
32896 066305 004 05 0 00 053701 ER4 AC+1,53701
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 22-2
DFKCA5 MAC 3-Oct-80 13:57 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0736
32897 066306 321 10 0 00 066300 JUMPL AC+4,S53700 ;LOOP ON ERROR SWITCH^
32898
32899 SDFM 540,200777,-4,0,0,200400,0,0,0,177777,-4,0,0^
32900 S54000: DMOVE AC,[200777,,-4
32901 066307 120 04 0 00 073272 0,,0]
32902 DFMP AC,[200400,,0
32903 066310 112 04 0 00 070745 0,,0]
32904 066311 312 04 0 00 073274 CAME AC,[177777,,-4]
32905 066312 003 04 0 00 054001 ER3 AC,54001
32906 066313 312 05 0 00 070660 CAME AC+1,[0,,0]
32907 066314 004 05 0 00 054001 ER4 AC+1,54001
32908 066315 321 10 0 00 066307 JUMPL AC+4,S54000 ;LOOP ON ERROR SWITCH^
32909
32910 SDFM 541,0,0,0,0,200400,0,0,0,0,0,0,0^
32911 S54100: DMOVE AC,[0,,0
32912 066316 120 04 0 00 070663 0,,0]
32913 DFMP AC,[200400,,0
32914 066317 112 04 0 00 070745 0,,0]
32915 066320 312 04 0 00 070660 CAME AC,[0,,0]
32916 066321 003 04 0 00 054101 ER3 AC,54101
32917 066322 312 05 0 00 070660 CAME AC+1,[0,,0]
32918 066323 004 05 0 00 054101 ER4 AC+1,54101
32919 066324 321 10 0 00 066316 JUMPL AC+4,S54100 ;LOOP ON ERROR SWITCH^
32920
32921 SDFM 542,577400,0,0,0,200400,0,0,0,600400,0,0,0^
32922 S54200: DMOVE AC,[577400,,0
32923 066325 120 04 0 00 072125 0,,0]
32924 DFMP AC,[200400,,0
32925 066326 112 04 0 00 070745 0,,0]
32926 066327 312 04 0 00 072663 CAME AC,[600400,,0]
32927 066330 003 04 0 00 054201 ER3 AC,54201
32928 066331 312 05 0 00 070660 CAME AC+1,[0,,0]
32929 066332 004 05 0 00 054201 ER4 AC+1,54201
32930 066333 321 10 0 00 066325 JUMPL AC+4,S54200 ;LOOP ON ERROR SWITCH^
32931
32932 SDFMKL 543,501700,0,0,0,500400,0,0,0,374100,0,0,0,372400,0,0,0^
32933 S54300: DMOVE AC,[501700,,0
32934 066334 120 04 0 00 073275 0,,0]
32935 DFMP AC,[500400,,0
32936 066335 112 04 0 00 073277 0,,0]
32937 066336 332 00 0 00 030041 SKIPE KLFLG
32938 066337 254 00 0 00 066346 JRST S54305
32939 066340 312 04 0 00 073301 CAME AC,[374100,,0]
32940 066341 003 04 0 00 054301 ER3 AC,54301
32941 066342 312 05 0 00 070660 CAME AC+1,[0,,0]
32942 066343 004 05 0 00 054301 ER4 AC+1,54301
32943 066344 321 10 0 00 066334 S54306: JUMPL AC+4,S54300 ;LOOP ON ERROR SWITCH
32944 066345 254 00 0 00 066353 JRST S54307
32945
32946 066346 312 04 0 00 073302 S54305: CAME AC,[372400,,0]
32947 066347 003 04 0 00 054301 ER3 AC,54301
32948 066350 312 05 0 00 070660 CAME AC+1,[0,,0]
32949 066351 004 05 0 00 054301 ER4 AC+1,54301
32950 066352 254 00 0 00 066344 JRST S54306
32951
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 22-3
DFKCA5 MAC 3-Oct-80 13:57 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0737
32952 066353 254 00 0 00 066354 S54307: JRST .+1 ^
32953
32954 SDFMKL 544,502700,0,0,0,500400,0,0,0,373100,0,0,0,371400,0,0,0^
32955 S54400: DMOVE AC,[502700,,0
32956 066354 120 04 0 00 073303 0,,0]
32957 DFMP AC,[500400,,0
32958 066355 112 04 0 00 073277 0,,0]
32959 066356 332 00 0 00 030041 SKIPE KLFLG
32960 066357 254 00 0 00 066366 JRST S54405
32961 066360 312 04 0 00 073305 CAME AC,[373100,,0]
32962 066361 003 04 0 00 054401 ER3 AC,54401
32963 066362 312 05 0 00 070660 CAME AC+1,[0,,0]
32964 066363 004 05 0 00 054401 ER4 AC+1,54401
32965 066364 321 10 0 00 066354 S54406: JUMPL AC+4,S54400 ;LOOP ON ERROR SWITCH
32966 066365 254 00 0 00 066373 JRST S54407
32967
32968 066366 312 04 0 00 073306 S54405: CAME AC,[371400,,0]
32969 066367 003 04 0 00 054401 ER3 AC,54401
32970 066370 312 05 0 00 070660 CAME AC+1,[0,,0]
32971 066371 004 05 0 00 054401 ER4 AC+1,54401
32972 066372 254 00 0 00 066364 JRST S54406
32973
32974 066373 254 00 0 00 066374 S54407: JRST .+1 ^
32975
32976 SDFMKL 545,503700,0,0,0,500400,0,0,0,372100,0,0,0,370400,0,0,0^
32977 S54500: DMOVE AC,[503700,,0
32978 066374 120 04 0 00 073307 0,,0]
32979 DFMP AC,[500400,,0
32980 066375 112 04 0 00 073277 0,,0]
32981 066376 332 00 0 00 030041 SKIPE KLFLG
32982 066377 254 00 0 00 066406 JRST S54505
32983 066400 312 04 0 00 073311 CAME AC,[372100,,0]
32984 066401 003 04 0 00 054501 ER3 AC,54501
32985 066402 312 05 0 00 070660 CAME AC+1,[0,,0]
32986 066403 004 05 0 00 054501 ER4 AC+1,54501
32987 066404 321 10 0 00 066374 S54506: JUMPL AC+4,S54500 ;LOOP ON ERROR SWITCH
32988 066405 254 00 0 00 066413 JRST S54507
32989
32990 066406 312 04 0 00 073312 S54505: CAME AC,[370400,,0]
32991 066407 003 04 0 00 054501 ER3 AC,54501
32992 066410 312 05 0 00 070660 CAME AC+1,[0,,0]
32993 066411 004 05 0 00 054501 ER4 AC+1,54501
32994 066412 254 00 0 00 066404 JRST S54506
32995
32996 066413 254 00 0 00 066414 S54507: JRST .+1 ^
32997
32998 SDFMKL 546,504700,0,0,0,500400,0,0,0,371100,0,0,0,367400,0,0,0^
32999 S54600: DMOVE AC,[504700,,0
33000 066414 120 04 0 00 073313 0,,0]
33001 DFMP AC,[500400,,0
33002 066415 112 04 0 00 073277 0,,0]
33003 066416 332 00 0 00 030041 SKIPE KLFLG
33004 066417 254 00 0 00 066426 JRST S54605
33005 066420 312 04 0 00 073315 CAME AC,[371100,,0]
33006 066421 003 04 0 00 054601 ER3 AC,54601
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 22-4
DFKCA5 MAC 3-Oct-80 13:57 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0738
33007 066422 312 05 0 00 070660 CAME AC+1,[0,,0]
33008 066423 004 05 0 00 054601 ER4 AC+1,54601
33009 066424 321 10 0 00 066414 S54606: JUMPL AC+4,S54600 ;LOOP ON ERROR SWITCH
33010 066425 254 00 0 00 066433 JRST S54607
33011
33012 066426 312 04 0 00 073316 S54605: CAME AC,[367400,,0]
33013 066427 003 04 0 00 054601 ER3 AC,54601
33014 066430 312 05 0 00 070660 CAME AC+1,[0,,0]
33015 066431 004 05 0 00 054601 ER4 AC+1,54601
33016 066432 254 00 0 00 066424 JRST S54606
33017
33018 066433 254 00 0 00 066434 S54607: JRST .+1 ^
33019
33020 SDFMKL 547,505700,0,0,0,500400,0,0,0,370100,0,0,0,366400,0,0,0^
33021 S54700: DMOVE AC,[505700,,0
33022 066434 120 04 0 00 073317 0,,0]
33023 DFMP AC,[500400,,0
33024 066435 112 04 0 00 073277 0,,0]
33025 066436 332 00 0 00 030041 SKIPE KLFLG
33026 066437 254 00 0 00 066446 JRST S54705
33027 066440 312 04 0 00 073321 CAME AC,[370100,,0]
33028 066441 003 04 0 00 054701 ER3 AC,54701
33029 066442 312 05 0 00 070660 CAME AC+1,[0,,0]
33030 066443 004 05 0 00 054701 ER4 AC+1,54701
33031 066444 321 10 0 00 066434 S54706: JUMPL AC+4,S54700 ;LOOP ON ERROR SWITCH
33032 066445 254 00 0 00 066453 JRST S54707
33033
33034 066446 312 04 0 00 073322 S54705: CAME AC,[366400,,0]
33035 066447 003 04 0 00 054701 ER3 AC,54701
33036 066450 312 05 0 00 070660 CAME AC+1,[0,,0]
33037 066451 004 05 0 00 054701 ER4 AC+1,54701
33038 066452 254 00 0 00 066444 JRST S54706
33039
33040 066453 254 00 0 00 066454 S54707: JRST .+1 ^
33041
33042 SDFMKL 550,200200,0,0,0,200400,0,0,0,177200,0,0,0,176400,0,0,0^
33043 S55000: DMOVE AC,[200200,,0
33044 066454 120 04 0 00 070747 0,,0]
33045 DFMP AC,[200400,,0
33046 066455 112 04 0 00 070745 0,,0]
33047 066456 332 00 0 00 030041 SKIPE KLFLG
33048 066457 254 00 0 00 066466 JRST S55005
33049 066460 312 04 0 00 073323 CAME AC,[177200,,0]
33050 066461 003 04 0 00 055001 ER3 AC,55001
33051 066462 312 05 0 00 070660 CAME AC+1,[0,,0]
33052 066463 004 05 0 00 055001 ER4 AC+1,55001
33053 066464 321 10 0 00 066454 S55006: JUMPL AC+4,S55000 ;LOOP ON ERROR SWITCH
33054 066465 254 00 0 00 066473 JRST S55007
33055
33056 066466 312 04 0 00 070753 S55005: CAME AC,[176400,,0]
33057 066467 003 04 0 00 055001 ER3 AC,55001
33058 066470 312 05 0 00 070660 CAME AC+1,[0,,0]
33059 066471 004 05 0 00 055001 ER4 AC+1,55001
33060 066472 254 00 0 00 066464 JRST S55006
33061
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 22-5
DFKCA5 MAC 3-Oct-80 13:57 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0739
33062 066473 254 00 0 00 066474 S55007: JRST .+1 ^
33063
33064 SDFMKL 551,200100,0,0,0,200400,0,0,0,177100,0,0,0,175400,0,0,0^
33065 S55100: DMOVE AC,[200100,,0
33066 066474 120 04 0 00 070751 0,,0]
33067 DFMP AC,[200400,,0
33068 066475 112 04 0 00 070745 0,,0]
33069 066476 332 00 0 00 030041 SKIPE KLFLG
33070 066477 254 00 0 00 066506 JRST S55105
33071 066500 312 04 0 00 073324 CAME AC,[177100,,0]
33072 066501 003 04 0 00 055101 ER3 AC,55101
33073 066502 312 05 0 00 070660 CAME AC+1,[0,,0]
33074 066503 004 05 0 00 055101 ER4 AC+1,55101
33075 066504 321 10 0 00 066474 S55106: JUMPL AC+4,S55100 ;LOOP ON ERROR SWITCH
33076 066505 254 00 0 00 066513 JRST S55107
33077
33078 066506 312 04 0 00 070756 S55105: CAME AC,[175400,,0]
33079 066507 003 04 0 00 055101 ER3 AC,55101
33080 066510 312 05 0 00 070660 CAME AC+1,[0,,0]
33081 066511 004 05 0 00 055101 ER4 AC+1,55101
33082 066512 254 00 0 00 066504 JRST S55106
33083
33084 066513 254 00 0 00 066514 S55107: JRST .+1 ^
33085
33086 SDFMKL 552,200040,0,0,0,200400,0,0,0,177040,0,0,0,174400,0,0,0^
33087 S55200: DMOVE AC,[200040,,0
33088 066514 120 04 0 00 070754 0,,0]
33089 DFMP AC,[200400,,0
33090 066515 112 04 0 00 070745 0,,0]
33091 066516 332 00 0 00 030041 SKIPE KLFLG
33092 066517 254 00 0 00 066526 JRST S55205
33093 066520 312 04 0 00 073325 CAME AC,[177040,,0]
33094 066521 003 04 0 00 055201 ER3 AC,55201
33095 066522 312 05 0 00 070660 CAME AC+1,[0,,0]
33096 066523 004 05 0 00 055201 ER4 AC+1,55201
33097 066524 321 10 0 00 066514 S55206: JUMPL AC+4,S55200 ;LOOP ON ERROR SWITCH
33098 066525 254 00 0 00 066533 JRST S55207
33099
33100 066526 312 04 0 00 070761 S55205: CAME AC,[174400,,0]
33101 066527 003 04 0 00 055201 ER3 AC,55201
33102 066530 312 05 0 00 070660 CAME AC+1,[0,,0]
33103 066531 004 05 0 00 055201 ER4 AC+1,55201
33104 066532 254 00 0 00 066524 JRST S55206
33105
33106 066533 254 00 0 00 066534 S55207: JRST .+1 ^
33107
33108 SDFMKL 553,200020,0,0,0,200400,0,0,0,177020,0,0,0,173400,0,0,0^
33109 S55300: DMOVE AC,[200020,,0
33110 066534 120 04 0 00 070757 0,,0]
33111 DFMP AC,[200400,,0
33112 066535 112 04 0 00 070745 0,,0]
33113 066536 332 00 0 00 030041 SKIPE KLFLG
33114 066537 254 00 0 00 066546 JRST S55305
33115 066540 312 04 0 00 073326 CAME AC,[177020,,0]
33116 066541 003 04 0 00 055301 ER3 AC,55301
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 22-6
DFKCA5 MAC 3-Oct-80 13:57 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0740
33117 066542 312 05 0 00 070660 CAME AC+1,[0,,0]
33118 066543 004 05 0 00 055301 ER4 AC+1,55301
33119 066544 321 10 0 00 066534 S55306: JUMPL AC+4,S55300 ;LOOP ON ERROR SWITCH
33120 066545 254 00 0 00 066553 JRST S55307
33121
33122 066546 312 04 0 00 070764 S55305: CAME AC,[173400,,0]
33123 066547 003 04 0 00 055301 ER3 AC,55301
33124 066550 312 05 0 00 070660 CAME AC+1,[0,,0]
33125 066551 004 05 0 00 055301 ER4 AC+1,55301
33126 066552 254 00 0 00 066544 JRST S55306
33127
33128 066553 254 00 0 00 066554 S55307: JRST .+1 ^
33129
33130 SDFMKL 554,200010,0,0,0,200400,0,0,0,177010,0,0,0,172400,0,0,0^
33131 S55400: DMOVE AC,[200010,,0
33132 066554 120 04 0 00 070762 0,,0]
33133 DFMP AC,[200400,,0
33134 066555 112 04 0 00 070745 0,,0]
33135 066556 332 00 0 00 030041 SKIPE KLFLG
33136 066557 254 00 0 00 066566 JRST S55405
33137 066560 312 04 0 00 073327 CAME AC,[177010,,0]
33138 066561 003 04 0 00 055401 ER3 AC,55401
33139 066562 312 05 0 00 070660 CAME AC+1,[0,,0]
33140 066563 004 05 0 00 055401 ER4 AC+1,55401
33141 066564 321 10 0 00 066554 S55406: JUMPL AC+4,S55400 ;LOOP ON ERROR SWITCH
33142 066565 254 00 0 00 066573 JRST S55407
33143
33144 066566 312 04 0 00 070767 S55405: CAME AC,[172400,,0]
33145 066567 003 04 0 00 055401 ER3 AC,55401
33146 066570 312 05 0 00 070660 CAME AC+1,[0,,0]
33147 066571 004 05 0 00 055401 ER4 AC+1,55401
33148 066572 254 00 0 00 066564 JRST S55406
33149
33150 066573 254 00 0 00 066574 S55407: JRST .+1 ^
33151
33152 SDFMKL 555,200004,0,0,0,200400,0,0,0,177004,0,0,0,171400,0,0,0^
33153 S55500: DMOVE AC,[200004,,0
33154 066574 120 04 0 00 070765 0,,0]
33155 DFMP AC,[200400,,0
33156 066575 112 04 0 00 070745 0,,0]
33157 066576 332 00 0 00 030041 SKIPE KLFLG
33158 066577 254 00 0 00 066606 JRST S55505
33159 066600 312 04 0 00 073330 CAME AC,[177004,,0]
33160 066601 003 04 0 00 055501 ER3 AC,55501
33161 066602 312 05 0 00 070660 CAME AC+1,[0,,0]
33162 066603 004 05 0 00 055501 ER4 AC+1,55501
33163 066604 321 10 0 00 066574 S55506: JUMPL AC+4,S55500 ;LOOP ON ERROR SWITCH
33164 066605 254 00 0 00 066613 JRST S55507
33165
33166 066606 312 04 0 00 070772 S55505: CAME AC,[171400,,0]
33167 066607 003 04 0 00 055501 ER3 AC,55501
33168 066610 312 05 0 00 070660 CAME AC+1,[0,,0]
33169 066611 004 05 0 00 055501 ER4 AC+1,55501
33170 066612 254 00 0 00 066604 JRST S55506
33171
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 22-7
DFKCA5 MAC 3-Oct-80 13:57 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0741
33172 066613 254 00 0 00 066614 S55507: JRST .+1 ^
33173
33174 SDFMKL 556,200002,0,0,0,200400,0,0,0,177002,0,0,0,170400,0,0,0^
33175 S55600: DMOVE AC,[200002,,0
33176 066614 120 04 0 00 070770 0,,0]
33177 DFMP AC,[200400,,0
33178 066615 112 04 0 00 070745 0,,0]
33179 066616 332 00 0 00 030041 SKIPE KLFLG
33180 066617 254 00 0 00 066626 JRST S55605
33181 066620 312 04 0 00 073331 CAME AC,[177002,,0]
33182 066621 003 04 0 00 055601 ER3 AC,55601
33183 066622 312 05 0 00 070660 CAME AC+1,[0,,0]
33184 066623 004 05 0 00 055601 ER4 AC+1,55601
33185 066624 321 10 0 00 066614 S55606: JUMPL AC+4,S55600 ;LOOP ON ERROR SWITCH
33186 066625 254 00 0 00 066633 JRST S55607
33187
33188 066626 312 04 0 00 070775 S55605: CAME AC,[170400,,0]
33189 066627 003 04 0 00 055601 ER3 AC,55601
33190 066630 312 05 0 00 070660 CAME AC+1,[0,,0]
33191 066631 004 05 0 00 055601 ER4 AC+1,55601
33192 066632 254 00 0 00 066624 JRST S55606
33193
33194 066633 254 00 0 00 066634 S55607: JRST .+1 ^
33195
33196 SDFMKL 557,500700,0,0,0,200400,0,0,0,501700,0,0,0,503400,0,0,0^
33197 S55700: DMOVE AC,[500700,,0
33198 066634 120 04 0 00 073332 0,,0]
33199 DFMP AC,[200400,,0
33200 066635 112 04 0 00 070745 0,,0]
33201 066636 332 00 0 00 030041 SKIPE KLFLG
33202 066637 254 00 0 00 066646 JRST S55705
33203 066640 312 04 0 00 073275 CAME AC,[501700,,0]
33204 066641 003 04 0 00 055701 ER3 AC,55701
33205 066642 312 05 0 00 070660 CAME AC+1,[0,,0]
33206 066643 004 05 0 00 055701 ER4 AC+1,55701
33207 066644 321 10 0 00 066634 S55706: JUMPL AC+4,S55700 ;LOOP ON ERROR SWITCH
33208 066645 254 00 0 00 066653 JRST S55707
33209
33210 066646 312 04 0 00 073334 S55705: CAME AC,[503400,,0]
33211 066647 003 04 0 00 055701 ER3 AC,55701
33212 066650 312 05 0 00 070660 CAME AC+1,[0,,0]
33213 066651 004 05 0 00 055701 ER4 AC+1,55701
33214 066652 254 00 0 00 066644 JRST S55706
33215
33216 066653 254 00 0 00 066654 S55707: JRST .+1 ^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 23
DFKCA5 MAC 3-Oct-80 13:57 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0742
33217
33218 SDFMKL 560,500770,0,0,0,200400,0,0,0,501770,0,0,0,506400,0,0,0^
33219 S56000: DMOVE AC,[500770,,0
33220 066654 120 04 0 00 073335 0,,0]
33221 DFMP AC,[200400,,0
33222 066655 112 04 0 00 070745 0,,0]
33223 066656 332 00 0 00 030041 SKIPE KLFLG
33224 066657 254 00 0 00 066666 JRST S56005
33225 066660 312 04 0 00 073337 CAME AC,[501770,,0]
33226 066661 003 04 0 00 056001 ER3 AC,56001
33227 066662 312 05 0 00 070660 CAME AC+1,[0,,0]
33228 066663 004 05 0 00 056001 ER4 AC+1,56001
33229 066664 321 10 0 00 066654 S56006: JUMPL AC+4,S56000 ;LOOP ON ERROR SWITCH
33230 066665 254 00 0 00 066673 JRST S56007
33231
33232 066666 312 04 0 00 073340 S56005: CAME AC,[506400,,0]
33233 066667 003 04 0 00 056001 ER3 AC,56001
33234 066670 312 05 0 00 070660 CAME AC+1,[0,,0]
33235 066671 004 05 0 00 056001 ER4 AC+1,56001
33236 066672 254 00 0 00 066664 JRST S56006
33237
33238 066673 254 00 0 00 066674 S56007: JRST .+1 ^
33239
33240 SDFM 561,200775,0,0,0,200775,0,0,0,200772,11000,0,0^
33241 S56100: DMOVE AC,[200775,,0
33242 066674 120 04 0 00 073341 0,,0]
33243 DFMP AC,[200775,,0
33244 066675 112 04 0 00 073341 0,,0]
33245 066676 312 04 0 00 073343 CAME AC,[200772,,11000]
33246 066677 003 04 0 00 056101 ER3 AC,56101
33247 066700 312 05 0 00 070660 CAME AC+1,[0,,0]
33248 066701 004 05 0 00 056101 ER4 AC+1,56101
33249 066702 321 10 0 00 066674 JUMPL AC+4,S56100 ;LOOP ON ERROR SWITCH^
33250
33251 SDFM 562,200774,0,0,0,200774,0,0,0,200770,20000,0,0^
33252 S56200: DMOVE AC,[200774,,0
33253 066703 120 04 0 00 073344 0,,0]
33254 DFMP AC,[200774,,0
33255 066704 112 04 0 00 073344 0,,0]
33256 066705 312 04 0 00 073346 CAME AC,[200770,,20000]
33257 066706 003 04 0 00 056201 ER3 AC,56201
33258 066707 312 05 0 00 070660 CAME AC+1,[0,,0]
33259 066710 004 05 0 00 056201 ER4 AC+1,56201
33260 066711 321 10 0 00 066703 JUMPL AC+4,S56200 ;LOOP ON ERROR SWITCH^
33261
33262 SDFM 563,200773,0,0,0,200773,0,0,0,200766,31000,0,0^
33263 S56300: DMOVE AC,[200773,,0
33264 066712 120 04 0 00 073347 0,,0]
33265 DFMP AC,[200773,,0
33266 066713 112 04 0 00 073347 0,,0]
33267 066714 312 04 0 00 073351 CAME AC,[200766,,31000]
33268 066715 003 04 0 00 056301 ER3 AC,56301
33269 066716 312 05 0 00 070660 CAME AC+1,[0,,0]
33270 066717 004 05 0 00 056301 ER4 AC+1,56301
33271 066720 321 10 0 00 066712 JUMPL AC+4,S56300 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 23-1
DFKCA5 MAC 3-Oct-80 13:57 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0743
33272
33273 SDFM 564,177477,0,0,0,200700,0,0,0,177427,100000,0,0^
33274 S56400: DMOVE AC,[177477,,0
33275 066721 120 04 0 00 073352 0,,0]
33276 DFMP AC,[200700,,0
33277 066722 112 04 0 00 072675 0,,0]
33278 066723 312 04 0 00 073354 CAME AC,[177427,,100000]
33279 066724 003 04 0 00 056401 ER3 AC,56401
33280 066725 312 05 0 00 070660 CAME AC+1,[0,,0]
33281 066726 004 05 0 00 056401 ER4 AC+1,56401
33282 066727 321 10 0 00 066721 JUMPL AC+4,S56400 ;LOOP ON ERROR SWITCH^
33283
33284 SDFM 565,200777,-1,0,0,200777,-1,0,0,200777,-2,0,400^
33285 S56500: DMOVE AC,[200777,,-1
33286 066730 120 04 0 00 073065 0,,0]
33287 DFMP AC,[200777,,-1
33288 066731 112 04 0 00 073065 0,,0]
33289 066732 312 04 0 00 071757 CAME AC,[200777,,-2]
33290 066733 003 04 0 00 056501 ER3 AC,56501
33291 066734 312 05 0 00 071205 CAME AC+1,[0,,400]
33292 066735 004 05 0 00 056501 ER4 AC+1,56501
33293 066736 321 10 0 00 066730 JUMPL AC+4,S56500 ;LOOP ON ERROR SWITCH^
33294
33295 SDFM 566,200777,-2,0,0,200777,-1,0,0,200777,-3,0,1000^
33296 S56600: DMOVE AC,[200777,,-2
33297 066737 120 04 0 00 073264 0,,0]
33298 DFMP AC,[200777,,-1
33299 066740 112 04 0 00 073065 0,,0]
33300 066741 312 04 0 00 071761 CAME AC,[200777,,-3]
33301 066742 003 04 0 00 056601 ER3 AC,56601
33302 066743 312 05 0 00 071202 CAME AC+1,[0,,1000]
33303 066744 004 05 0 00 056601 ER4 AC+1,56601
33304 066745 321 10 0 00 066737 JUMPL AC+4,S56600 ;LOOP ON ERROR SWITCH^
33305
33306 SDFM 567,200777,-3,0,0,200777,-1,0,0,200777,-4,0,1400^
33307 S56700: DMOVE AC,[200777,,-3
33308 066746 120 04 0 00 073267 0,,0]
33309 DFMP AC,[200777,,-1
33310 066747 112 04 0 00 073065 0,,0]
33311 066750 312 04 0 00 073272 CAME AC,[200777,,-4]
33312 066751 003 04 0 00 056701 ER3 AC,56701
33313 066752 312 05 0 00 073355 CAME AC+1,[0,,1400]
33314 066753 004 05 0 00 056701 ER4 AC+1,56701
33315 066754 321 10 0 00 066746 JUMPL AC+4,S56700 ;LOOP ON ERROR SWITCH^
33316
33317 SDFM 570,200777,-4,0,0,200777,-1,0,0,200777,-5,0,2000^
33318 S57000: DMOVE AC,[200777,,-4
33319 066755 120 04 0 00 073272 0,,0]
33320 DFMP AC,[200777,,-1
33321 066756 112 04 0 00 073065 0,,0]
33322 066757 312 04 0 00 071764 CAME AC,[200777,,-5]
33323 066760 003 04 0 00 057001 ER3 AC,57001
33324 066761 312 05 0 00 071177 CAME AC+1,[0,,2000]
33325 066762 004 05 0 00 057001 ER4 AC+1,57001
33326 066763 321 10 0 00 066755 JUMPL AC+4,S57000 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 23-2
DFKCA5 MAC 3-Oct-80 13:57 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0744
33327
33328 SDFM 571,200777,-5,0,0,200777,-1,0,0,200777,-6,0,2400^
33329 S57100: DMOVE AC,[200777,,-5
33330 066764 120 04 0 00 073356 0,,0]
33331 DFMP AC,[200777,,-1
33332 066765 112 04 0 00 073065 0,,0]
33333 066766 312 04 0 00 073360 CAME AC,[200777,,-6]
33334 066767 003 04 0 00 057101 ER3 AC,57101
33335 066770 312 05 0 00 073361 CAME AC+1,[0,,2400]
33336 066771 004 05 0 00 057101 ER4 AC+1,57101
33337 066772 321 10 0 00 066764 JUMPL AC+4,S57100 ;LOOP ON ERROR SWITCH^
33338
33339 SDFM 572,500000,-1,0,0,200777,0,0,0,500001,776777,400,0^
33340 S57200: DMOVE AC,[500000,,-1
33341 066773 120 04 0 00 073362 0,,0]
33342 DFMP AC,[200777,,0
33343 066774 112 04 0 00 073364 0,,0]
33344 066775 312 04 0 00 073366 CAME AC,[500001,,776777]
33345 066776 003 04 0 00 057201 ER3 AC,57201
33346 066777 312 05 0 00 071117 CAME AC+1,[400,,0]
33347 067000 004 05 0 00 057201 ER4 AC+1,57201
33348 067001 321 10 0 00 066773 JUMPL AC+4,S57200 ;LOOP ON ERROR SWITCH^
33349
33350 SDFM 573,500000,777770,0,0,200777,0,0,0,500001,776770,4000,0^
33351 S57300: DMOVE AC,[500000,,777770
33352 067002 120 04 0 00 073367 0,,0]
33353 DFMP AC,[200777,,0
33354 067003 112 04 0 00 073364 0,,0]
33355 067004 312 04 0 00 073371 CAME AC,[500001,,776770]
33356 067005 003 04 0 00 057301 ER3 AC,57301
33357 067006 312 05 0 00 071106 CAME AC+1,[4000,,0]
33358 067007 004 05 0 00 057301 ER4 AC+1,57301
33359 067010 321 10 0 00 067002 JUMPL AC+4,S57300 ;LOOP ON ERROR SWITCH^
33360
33361 SDFM 574,500000,-1,0,0,500000,-1,0,0,376776,1001,377000,400^
33362 S57400: DMOVE AC,[500000,,-1
33363 067011 120 04 0 00 073362 0,,0]
33364 DFMP AC,[500000,,-1
33365 067012 112 04 0 00 073362 0,,0]
33366 067013 312 04 0 00 073372 CAME AC,[376776,,1001]
33367 067014 003 04 0 00 057401 ER3 AC,57401
33368 067015 312 05 0 00 073373 CAME AC+1,[377000,,400]
33369 067016 004 05 0 00 057401 ER4 AC+1,57401
33370 067017 321 10 0 00 067011 JUMPL AC+4,S57400 ;LOOP ON ERROR SWITCH^
33371
33372 SDFM 575,500000,-2,0,0,500000,-2,0,0,376776,1003,376000,2000^
33373 S57500: DMOVE AC,[500000,,-2
33374 067020 120 04 0 00 073374 0,,0]
33375 DFMP AC,[500000,,-2
33376 067021 112 04 0 00 073374 0,,0]
33377 067022 312 04 0 00 073376 CAME AC,[376776,,1003]
33378 067023 003 04 0 00 057501 ER3 AC,57501
33379 067024 312 05 0 00 073377 CAME AC+1,[376000,,2000]
33380 067025 004 05 0 00 057501 ER4 AC+1,57501
33381 067026 321 10 0 00 067020 JUMPL AC+4,S57500 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 23-3
DFKCA5 MAC 3-Oct-80 13:57 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0745
33382
33383 SDFMKL 576,200777,-1,0,0,200000,2,0,0,177000,3,377777,776000,146777,-1,0,0^
33384 S57600: DMOVE AC,[200777,,-1
33385 067027 120 04 0 00 073065 0,,0]
33386 DFMP AC,[200000,,2
33387 067030 112 04 0 00 071056 0,,0]
33388 067031 332 00 0 00 030041 SKIPE KLFLG
33389 067032 254 00 0 00 067041 JRST S57605
33390 067033 312 04 0 00 073400 CAME AC,[177000,,3]
33391 067034 003 04 0 00 057601 ER3 AC,57601
33392 067035 312 05 0 00 072371 CAME AC+1,[377777,,776000]
33393 067036 004 05 0 00 057601 ER4 AC+1,57601
33394 067037 321 10 0 00 067027 S57606: JUMPL AC+4,S57600 ;LOOP ON ERROR SWITCH
33395 067040 254 00 0 00 067046 JRST S57607
33396
33397 067041 312 04 0 00 073401 S57605: CAME AC,[146777,,-1]
33398 067042 003 04 0 00 057601 ER3 AC,57601
33399 067043 312 05 0 00 070660 CAME AC+1,[0,,0]
33400 067044 004 05 0 00 057601 ER4 AC+1,57601
33401 067045 254 00 0 00 067037 JRST S57606
33402
33403 067046 254 00 0 00 067047 S57607: JRST .+1 ^
33404
33405 SDFM 577,200700,0,0,0,200400,77,0,0,177700,156,100000,0^
33406 S57700: DMOVE AC,[200700,,0
33407 067047 120 04 0 00 072675 0,,0]
33408 DFMP AC,[200400,,77
33409 067050 112 04 0 00 072770 0,,0]
33410 067051 312 04 0 00 073402 CAME AC,[177700,,156]
33411 067052 003 04 0 00 057701 ER3 AC,57701
33412 067053 312 05 0 00 071072 CAME AC+1,[100000,,0]
33413 067054 004 05 0 00 057701 ER4 AC+1,57701
33414 067055 321 10 0 00 067047 JUMPL AC+4,S57700 ;LOOP ON ERROR SWITCH^
33415
33416 SDFM 600,200700,0,0,0,200400,76,0,0,177700,154,200000,0^
33417 S60000: DMOVE AC,[200700,,0
33418 067056 120 04 0 00 072675 0,,0]
33419 DFMP AC,[200400,,76
33420 067057 112 04 0 00 073403 0,,0]
33421 067060 312 04 0 00 073405 CAME AC,[177700,,154]
33422 067061 003 04 0 00 060001 ER3 AC,60001
33423 067062 312 05 0 00 070743 CAME AC+1,[200000,,0]
33424 067063 004 05 0 00 060001 ER4 AC+1,60001
33425 067064 321 10 0 00 067056 JUMPL AC+4,S60000 ;LOOP ON ERROR SWITCH^
33426
33427 SDFM 601,200700,0,0,0,200400,75,0,0,177700,152,300000,0^
33428 S60100: DMOVE AC,[200700,,0
33429 067065 120 04 0 00 072675 0,,0]
33430 DFMP AC,[200400,,75
33431 067066 112 04 0 00 073406 0,,0]
33432 067067 312 04 0 00 073410 CAME AC,[177700,,152]
33433 067070 003 04 0 00 060101 ER3 AC,60101
33434 067071 312 05 0 00 072525 CAME AC+1,[300000,,0]
33435 067072 004 05 0 00 060101 ER4 AC+1,60101
33436 067073 321 10 0 00 067065 JUMPL AC+4,S60100 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 23-4
DFKCA5 MAC 3-Oct-80 13:57 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0746
33437
33438 SDFM 602,577400,0,0,0,600400,0,0,0,176400,0,0,0^
33439 S60200: DMOVE AC,[577400,,0
33440 067074 120 04 0 00 072125 0,,0]
33441 DFMP AC,[600400,,0
33442 067075 112 04 0 00 072663 0,,0]
33443 067076 312 04 0 00 070753 CAME AC,[176400,,0]
33444 067077 003 04 0 00 060201 ER3 AC,60201
33445 067100 312 05 0 00 070660 CAME AC+1,[0,,0]
33446 067101 004 05 0 00 060201 ER4 AC+1,60201
33447 067102 321 10 0 00 067074 JUMPL AC+4,S60200 ;LOOP ON ERROR SWITCH^
33448
33449 SDFM 603,600400,77,0,0,177660,0,0,0,602120,152,120000,0^
33450 S60300: DMOVE AC,[600400,,77
33451 067103 120 04 0 00 073411 0,,0]
33452 DFMP AC,[177660,,0
33453 067104 112 04 0 00 073413 0,,0]
33454 067105 312 04 0 00 073415 CAME AC,[602120,,152]
33455 067106 003 04 0 00 060301 ER3 AC,60301
33456 067107 312 05 0 00 073416 CAME AC+1,[120000,,0]
33457 067110 004 05 0 00 060301 ER4 AC+1,60301
33458 067111 321 10 0 00 067103 JUMPL AC+4,S60300 ;LOOP ON ERROR SWITCH^
33459
33460 SDFM 604,600400,76,0,0,177600,0,0,0,602200,135,0,0^
33461 S60400: DMOVE AC,[600400,,76
33462 067112 120 04 0 00 073417 0,,0]
33463 DFMP AC,[177600,,0
33464 067113 112 04 0 00 073421 0,,0]
33465 067114 312 04 0 00 073423 CAME AC,[602200,,135]
33466 067115 003 04 0 00 060401 ER3 AC,60401
33467 067116 312 05 0 00 070660 CAME AC+1,[0,,0]
33468 067117 004 05 0 00 060401 ER4 AC+1,60401
33469 067120 321 10 0 00 067112 JUMPL AC+4,S60400 ;LOOP ON ERROR SWITCH^
33470
33471 SDFM 605,600400,0,0,0,576400,0,0,0,177400,0,0,0^
33472 S60500: DMOVE AC,[600400,,0
33473 067121 120 04 0 00 072663 0,,0]
33474 DFMP AC,[576400,,0
33475 067122 112 04 0 00 072766 0,,0]
33476 067123 312 04 0 00 070636 CAME AC,[177400,,0]
33477 067124 003 04 0 00 060501 ER3 AC,60501
33478 067125 312 05 0 00 070660 CAME AC+1,[0,,0]
33479 067126 004 05 0 00 060501 ER4 AC+1,60501
33480 067127 321 10 0 00 067121 JUMPL AC+4,S60500 ;LOOP ON ERROR SWITCH^
33481
33482 SDFM 606,600400,0,0,0,575400,0,0,0,200400,0,0,0^
33483 S60600: DMOVE AC,[600400,,0
33484 067130 120 04 0 00 072663 0,,0]
33485 DFMP AC,[575400,,0
33486 067131 112 04 0 00 073262 0,,0]
33487 067132 312 04 0 00 070614 CAME AC,[200400,,0]
33488 067133 003 04 0 00 060601 ER3 AC,60601
33489 067134 312 05 0 00 070660 CAME AC+1,[0,,0]
33490 067135 004 05 0 00 060601 ER4 AC+1,60601
33491 067136 321 10 0 00 067130 JUMPL AC+4,S60600 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 23-5
DFKCA5 MAC 3-Oct-80 13:57 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0747
33492
33493 SDFM 607,400000,1,0,0,201400,0,0,0,400000,1,0,0^
33494 S60700: DMOVE AC,[400000,,1
33495 067137 120 04 0 00 073424 0,,0]
33496 DFMP AC,[201400,,0
33497 067140 112 04 0 00 072123 0,,0]
33498 067141 312 04 0 00 070647 CAME AC,[400000,,1]
33499 067142 003 04 0 00 060701 ER3 AC,60701
33500 067143 312 05 0 00 070660 CAME AC+1,[0,,0]
33501 067144 004 05 0 00 060701 ER4 AC+1,60701
33502 067145 321 10 0 00 067137 JUMPL AC+4,S60700 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 24
DFKCA5 MAC 3-Oct-80 13:57 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0748
33503 ;TEST AROV, FOV AND FXU FLAGS - DFMP
33504
33505 000004 AC=4
33506 SAVEAC (1,1)^
33507 067146 201 10 0 00 067146 MOVEI AC+4,.
33508 067147 202 10 0 00 030051 MOVEM AC+4,TESTPC ;SETUP SUBTEST PC
33509 067150 201 10 0 00 000010 MOVEI AC+4,<AC+4>&17 ;INFORM ERROR ROUTINE WHICH
33510 067151 202 10 0 00 073775 MOVEM AC+4,ERRLOP# ;AC IS USED FOR ITERATION^
33511
33512 067152 254 02 1 00 073426 S61000: JRSTF @[.+1] ;CLEAR ALL FLAGS
33513 DMOVE AC,[377400,,0
33514 067153 120 04 0 00 072756 0,,0]
33515 DFMP AC,[201777,,-1
33516 067154 112 04 0 00 073427 -1,,-1] ;EXPECT AROV,FOV,FXU=0,0,0
33517 067155 265 03 0 00 067156 JSP AC-1,.+1 ;SAVE FLAGS
33518 067156 312 04 0 00 071241 CAME AC,[377777,,-1]
33519 067157 003 04 0 00 061001 ER3 AC,61001 ;C(AC) FAILED
33520 067160 312 05 0 00 071241 CAME AC+1,[377777,,-1]
33521 067161 004 05 0 00 061001 ER4 AC+1,61001 ;C(AC+1) FAILED
33522 067162 255 10 0 00 067164 JOV .+2
33523 067163 254 00 0 00 067165 JRST .+2
33524 067164 013 03 0 00 061001 ER13 AC-1,61001 ;AROV WAS SET
33525 067165 255 01 0 00 067167 JFOV .+2
33526 067166 254 00 0 00 067170 JRST .+2
33527 067167 013 03 0 00 061001 ER13 AC-1,61001 ;FOV WAS SET
33528 067170 603 03 0 00 000100 TLNE AC-1,FXU
33529 067171 013 03 0 00 061001 ER13 AC-1,61001 ;FXU WAS SET
33530 067172 321 10 0 00 067152 JUMPL AC+4,S61000 ;LOOP ON ERROR SWITCH
33531
33532 067173 254 02 1 00 073431 S61100: JRSTF @[.+1] ;CLEAR ALL FLAGS
33533 DMOVE AC,[377400,,0
33534 067174 120 04 0 00 072756 0,,0]
33535 DFMP AC,[202400,,0
33536 067175 112 04 0 00 072677 0,,0] ;EXPECT AROV,FOV,FXU=1,1,0
33537 067176 265 03 0 00 067177 JSP AC-1,.+1 ;SAVE FLAGS
33538 067177 312 04 0 00 071117 CAME AC,[400,,0]
33539 067200 003 04 0 00 061101 ER3 AC,61101 ;C(AC) FAILED
33540 067201 312 05 0 00 070660 CAME AC+1,[0,,0]
33541 067202 004 05 0 00 061101 ER4 AC+1,61101 ;C(AC+1) FAILED
33542 067203 255 10 0 00 067205 JOV .+2
33543 067204 013 03 0 00 061101 ER13 AC-1,61101 ;AROV WAS CLEAR
33544 067205 255 01 0 00 067207 JFOV .+2
33545 067206 013 03 0 00 061101 ER13 AC-1,61101 ;FOV WAS CLEAR
33546 067207 603 03 0 00 000100 TLNE AC-1,FXU
33547 067210 013 03 0 00 061101 ER13 AC-1,61101 ;FXU WAS SET
33548 067211 321 10 0 00 067173 JUMPL AC+4,S61100 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 25
DFKCA5 MAC 3-Oct-80 13:57 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0749
33549 067212 254 02 1 00 073432 S61200: JRSTF @[.+1] ;CLEAR ALL FLAGS
33550 DMOVE AC,[1400,,0
33551 067213 120 04 0 00 073433 0,,0]
33552 DFMP AC,[200400,,0
33553 067214 112 04 0 00 070745 0,,0] ;EXPECT AROV,FOV,FXU=0,0,0
33554 067215 265 03 0 00 067216 JSP AC-1,.+1 ;SAVE FLAGS
33555 067216 312 04 0 00 071117 CAME AC,[400,,0]
33556 067217 003 04 0 00 061201 ER3 AC,61201 ;C(AC) FAILED
33557 067220 312 05 0 00 070660 CAME AC+1,[0,,0]
33558 067221 004 05 0 00 061201 ER4 AC+1,61201 ;C(AC+1) FAILED
33559 067222 255 10 0 00 067224 JOV .+2
33560 067223 254 00 0 00 067225 JRST .+2
33561 067224 013 03 0 00 061201 ER13 AC-1,61201 ;AROV WAS SET
33562 067225 255 01 0 00 067227 JFOV .+2
33563 067226 254 00 0 00 067230 JRST .+2
33564 067227 013 03 0 00 061201 ER13 AC-1,61201 ;FOV WAS SET
33565 067230 603 03 0 00 000100 TLNE AC-1,FXU
33566 067231 013 03 0 00 061201 ER13 AC-1,61201 ;FXU WAS SET
33567 067232 321 10 0 00 067212 JUMPL AC+4,S61200 ;LOOP ON ERROR SWITCH
33568
33569 067233 254 02 1 00 073435 S61300: JRSTF @[.+1] ;CLEAR ALL FLAGS
33570 DMOVE AC,[777,,-1
33571 067234 120 04 0 00 071237 -1,,-1]
33572 DFMP AC,[200400,,0
33573 067235 112 04 0 00 070745 0,,0] ;EXPECT AROV,FOV,FXU=1,1,1
33574 067236 265 03 0 00 067237 JSP AC-1,.+1 ;SAVE FLAGS
33575 067237 312 04 0 00 071241 CAME AC,[377777,,-1]
33576 067240 003 04 0 00 061301 ER3 AC,61301 ;C(AC) FAILED
33577 067241 312 05 0 00 071241 CAME AC+1,[377777,,-1]
33578 067242 004 05 0 00 061301 ER4 AC+1,61301 ;C(AC+1) FAILED
33579 067243 255 10 0 00 067245 JOV .+2
33580 067244 013 03 0 00 061301 ER13 AC-1,61301 ;AROV WAS CLEAR
33581 067245 255 01 0 00 067247 JFOV .+2
33582 067246 013 03 0 00 061301 ER13 AC-1,61301 ;FOV WAS CLEAR
33583 067247 607 03 0 00 000100 TLNN AC-1,FXU
33584 067250 013 03 0 00 061301 ER13 AC-1,61301 ;FXU WAS CLEAR
33585 067251 321 10 0 00 067233 JUMPL AC+4,S61300 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 26
DFKCA5 MAC 3-Oct-80 13:57 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0750
33586 067252 254 02 1 00 073436 S61400: JRSTF @[.+1] ;CLEAR ALL FLAGS
33587 DMOVE AC,[400400,,0
33588 067253 120 04 0 00 073212 0,,0]
33589 DFMP AC,[576000,,00
33590 067254 112 04 0 00 073437 0,,1] ;EXPECT AROV,FOV,FXU=0,0,0
33591 067255 265 03 0 00 067256 JSP AC-1,.+1 ;SAVE FLAGS
33592 067256 312 04 0 00 071241 CAME AC,[377777,,-1]
33593 067257 003 04 0 00 061401 ER3 AC,61401 ;C(AC) FAILED
33594 067260 312 05 0 00 071241 CAME AC+1,[377777,,-1]
33595 067261 004 05 0 00 061401 ER4 AC+1,61401 ;C(AC+1) FAILED
33596 067262 255 10 0 00 067264 JOV .+2
33597 067263 254 00 0 00 067265 JRST .+2
33598 067264 013 03 0 00 061401 ER13 AC-1,61401 ;AROV WAS SET
33599 067265 255 01 0 00 067267 JFOV .+2
33600 067266 254 00 0 00 067270 JRST .+2
33601 067267 013 03 0 00 061401 ER13 AC-1,61401 ;FOV WAS SET
33602 067270 603 03 0 00 000100 TLNE AC-1,FXU
33603 067271 013 03 0 00 061401 ER13 AC-1,61401 ;FXU WAS SET
33604 067272 321 10 0 00 067252 JUMPL AC+4,S61400 ;LOOP ON ERROR SWITCH
33605
33606 067273 254 02 1 00 073441 S61500: JRSTF @[.+1] ;CLEAR ALL FLAGS
33607 DMOVE AC,[400400,,0
33608 067274 120 04 0 00 073212 0,,0]
33609 DFMP AC,[575400,,0
33610 067275 112 04 0 00 073262 0,,0] ;EXPECT AROV,FOV,FXU=1,1,0
33611 067276 265 03 0 00 067277 JSP AC-1,.+1 ;SAVE FLAGS
33612 067277 312 04 0 00 071117 CAME AC,[400,,0]
33613 067300 003 04 0 00 061501 ER3 AC,61501 ;C(AC) FAILED
33614 067301 312 05 0 00 070660 CAME AC+1,[0,,0]
33615 067302 004 05 0 00 061501 ER4 AC+1,61501 ;C(AC+1) FAILED
33616 067303 255 10 0 00 067305 JOV .+2
33617 067304 013 03 0 00 061501 ER13 AC-1,61501 ;AROV WAS CLEAR
33618 067305 255 01 0 00 067307 JFOV .+2
33619 067306 013 03 0 00 061501 ER13 AC-1,61501 ;FOV WAS CLEAR
33620 067307 603 03 0 00 000100 TLNE AC-1,FXU
33621 067310 013 03 0 00 061501 ER13 AC-1,61501 ;FXU WAS SET
33622 067311 321 10 0 00 067273 JUMPL AC+4,S61500 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 27
DFKCA5 MAC 3-Oct-80 13:57 DFMP TEST-DOUBLE FLOATING POINT MULTIPLY AND ROUND SEQ 0751
33623 067312 254 02 1 00 073442 S61600: JRSTF @[.+1] ;CLEAR ALL FLAGS
33624 DMOVE AC,[776400,,0
33625 067313 120 04 0 00 073443 0,,0]
33626 DFMP AC,[577400,,0
33627 067314 112 04 0 00 072125 0,,0] ;EXPECT AROV,FOV,FXU=0,0,0
33628 067315 265 03 0 00 067316 JSP AC-1,.+1 ;SAVE FLAGS
33629 067316 312 04 0 00 071117 CAME AC,[400,,0]
33630 067317 003 04 0 00 061601 ER3 AC,61601 ;C(AC) FAILED
33631 067320 312 05 0 00 070660 CAME AC+1,[0,,0]
33632 067321 004 05 0 00 061601 ER4 AC+1,61601 ;C(AC+1) FAILED
33633 067322 255 10 0 00 067324 JOV .+2
33634 067323 254 00 0 00 067325 JRST .+2
33635 067324 013 03 0 00 061601 ER13 AC-1,61601 ;AROV WAS SET
33636 067325 255 01 0 00 067327 JFOV .+2
33637 067326 254 00 0 00 067330 JRST .+2
33638 067327 013 03 0 00 061601 ER13 AC-1,61601 ;FOV WAS SET
33639 067330 603 03 0 00 000100 TLNE AC-1,FXU
33640 067331 013 03 0 00 061601 ER13 AC-1,61601 ;FXU WAS SET
33641 067332 321 10 0 00 067312 JUMPL AC+4,S61600 ;LOOP ON ERROR SWITCH
33642
33643 067333 254 02 1 00 073445 S61700: JRSTF @[.+1] ;CLEAR ALL FLAGS
33644 DMOVE AC,[777000,,0
33645 067334 120 04 0 00 073252 0,,1]
33646 DFMP AC,[577400,,0
33647 067335 112 04 0 00 072125 0,,0] ;EXPECT AROV,FOV,FXU=1,1,1
33648 067336 265 03 0 00 067337 JSP AC-1,.+1 ;SAVE FLAGS
33649 067337 312 04 0 00 071241 CAME AC,[377777,,-1]
33650 067340 003 04 0 00 061701 ER3 AC,61701 ;C(AC) FAILED
33651 067341 312 05 0 00 071241 CAME AC+1,[377777,,-1]
33652 067342 004 05 0 00 061701 ER4 AC+1,61701 ;C(AC+1) FAILED
33653 067343 255 10 0 00 067345 JOV .+2
33654 067344 013 03 0 00 061701 ER13 AC-1,61701 ;AROV WAS CLEAR
33655 067345 255 01 0 00 067347 JFOV .+2
33656 067346 013 03 0 00 061701 ER13 AC-1,61701 ;FOV WAS CLEAR
33657 067347 607 03 0 00 000100 TLNN AC-1,FXU
33658 067350 013 03 0 00 061701 ER13 AC-1,61701 ;FXU WAS CLEAR
33659 067351 321 10 0 00 067333 JUMPL AC+4,S61700 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 28
DFKCA5 MAC 3-Oct-80 13:57 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0752
33660 SUBTTL DFDV TEST-DOUBLE FLOATING POINT DIVIDE
33661
33662 000004 AC=4
33663 SAVEAC (1,1)^
33664 067352 201 10 0 00 067352 MOVEI AC+4,.
33665 067353 202 10 0 00 030051 MOVEM AC+4,TESTPC ;SETUP SUBTEST PC
33666 067354 201 10 0 00 000010 MOVEI AC+4,<AC+4>&17 ;INFORM ERROR ROUTINE WHICH
33667 067355 202 10 0 00 073775 MOVEM AC+4,ERRLOP# ;AC IS USED FOR ITERATION^
33668 067356 254 02 1 00 073446 JRSTF @[.+1] ;CLEAR ALL FLAGS
33669
33670 ;CHECK THAT DFDV AC,E DOES NOT ALTER C(E) OR C(E+1)
33671 S70100: DMOVE AC,[200777,,-1
33672 067357 120 04 0 00 071611 -1,,-1]
33673 DMOVE AC+2,[200400,,0
33674 067360 120 06 0 00 073447 400000,,-1]
33675 067361 113 04 0 00 000006 DFDV AC,AC+2
33676 067362 312 06 0 00 070614 CAME AC+2,[200400,,0]
33677 067363 005 06 0 00 070101 ER5 AC+2,70101 ;C(E) WAS ALTERED
33678 067364 312 07 0 00 072653 CAME AC+3,[400000,,-1]
33679 067365 006 07 0 00 070101 ER6 AC+3,70101 ;C(E+1) WAS ALTERED
33680 067366 321 10 0 00 067357 JUMPL AC+4,S70100 ;LOOP ON ERROR SWITCH
33681
33682 SDFD 702,200400,0,0,0,200400,0,0,0,201400,0,0,0^
33683 S70200: DMOVE AC,[200400,,0
33684 067367 120 04 0 00 070745 0,,0]
33685 DFDV AC,[200400,,0
33686 067370 113 04 0 00 070745 0,,0]
33687 067371 312 04 0 00 071613 CAME AC,[201400,,0]
33688 067372 003 04 0 00 070201 ER3 AC,70201
33689 067373 312 05 0 00 070660 CAME AC+1,[0,,0]
33690 067374 004 05 0 00 070201 ER4 AC+1,70201
33691 067375 321 10 0 00 067367 JUMPL AC+4,S70200 ;LOOP ON ERROR SWITCH^
33692
33693 SDFD 703,201400,0,0,0,201400,0,0,0,201400,0,0,0^
33694 S70300: DMOVE AC,[201400,,0
33695 067376 120 04 0 00 072123 0,,0]
33696 DFDV AC,[201400,,0
33697 067377 113 04 0 00 072123 0,,0]
33698 067400 312 04 0 00 071613 CAME AC,[201400,,0]
33699 067401 003 04 0 00 070301 ER3 AC,70301
33700 067402 312 05 0 00 070660 CAME AC+1,[0,,0]
33701 067403 004 05 0 00 070301 ER4 AC+1,70301
33702 067404 321 10 0 00 067376 JUMPL AC+4,S70300 ;LOOP ON ERROR SWITCH^
33703
33704 SDFD 704,202400,0,0,0,202400,0,0,0,201400,0,0,0^
33705 S70400: DMOVE AC,[202400,,0
33706 067405 120 04 0 00 072677 0,,0]
33707 DFDV AC,[202400,,0
33708 067406 113 04 0 00 072677 0,,0]
33709 067407 312 04 0 00 071613 CAME AC,[201400,,0]
33710 067410 003 04 0 00 070401 ER3 AC,70401
33711 067411 312 05 0 00 070660 CAME AC+1,[0,,0]
33712 067412 004 05 0 00 070401 ER4 AC+1,70401
33713 067413 321 10 0 00 067405 JUMPL AC+4,S70400 ;LOOP ON ERROR SWITCH^
33714
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 28-1
DFKCA5 MAC 3-Oct-80 13:57 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0753
33715 SDFD 705,201400,0,0,0,200400,0,0,0,202400,0,0,0^
33716 S70500: DMOVE AC,[201400,,0
33717 067414 120 04 0 00 072123 0,,0]
33718 DFDV AC,[200400,,0
33719 067415 113 04 0 00 070745 0,,0]
33720 067416 312 04 0 00 070615 CAME AC,[202400,,0]
33721 067417 003 04 0 00 070501 ER3 AC,70501
33722 067420 312 05 0 00 070660 CAME AC+1,[0,,0]
33723 067421 004 05 0 00 070501 ER4 AC+1,70501
33724 067422 321 10 0 00 067414 JUMPL AC+4,S70500 ;LOOP ON ERROR SWITCH^
33725
33726 SDFD 706,202400,0,0,0,202400,0,0,0,201400,0,0,0^
33727 S70600: DMOVE AC,[202400,,0
33728 067423 120 04 0 00 072677 0,,0]
33729 DFDV AC,[202400,,0
33730 067424 113 04 0 00 072677 0,,0]
33731 067425 312 04 0 00 071613 CAME AC,[201400,,0]
33732 067426 003 04 0 00 070601 ER3 AC,70601
33733 067427 312 05 0 00 070660 CAME AC+1,[0,,0]
33734 067430 004 05 0 00 070601 ER4 AC+1,70601
33735 067431 321 10 0 00 067423 JUMPL AC+4,S70600 ;LOOP ON ERROR SWITCH^
33736
33737 SDFD 707,203400,0,0,0,200400,0,0,0,204400,0,0,0^
33738 S70700: DMOVE AC,[203400,,0
33739 067432 120 04 0 00 073067 0,,0]
33740 DFDV AC,[200400,,0
33741 067433 113 04 0 00 070745 0,,0]
33742 067434 312 04 0 00 070617 CAME AC,[204400,,0]
33743 067435 003 04 0 00 070701 ER3 AC,70701
33744 067436 312 05 0 00 070660 CAME AC+1,[0,,0]
33745 067437 004 05 0 00 070701 ER4 AC+1,70701
33746 067440 321 10 0 00 067432 JUMPL AC+4,S70700 ;LOOP ON ERROR SWITCH^
33747
33748 SDFD 710,200600,0,0,0,200400,0,0,0,201600,0,0,0^
33749 S71000: DMOVE AC,[200600,,0
33750 067441 120 04 0 00 072127 0,,0]
33751 DFDV AC,[200400,,0
33752 067442 113 04 0 00 070745 0,,0]
33753 067443 312 04 0 00 071645 CAME AC,[201600,,0]
33754 067444 003 04 0 00 071001 ER3 AC,71001
33755 067445 312 05 0 00 070660 CAME AC+1,[0,,0]
33756 067446 004 05 0 00 071001 ER4 AC+1,71001
33757 067447 321 10 0 00 067441 JUMPL AC+4,S71000 ;LOOP ON ERROR SWITCH^
33758
33759 SDFD 711,200700,0,0,0,200400,0,0,0,201700,0,0,0^
33760 S71100: DMOVE AC,[200700,,0
33761 067450 120 04 0 00 072675 0,,0]
33762 DFDV AC,[200400,,0
33763 067451 113 04 0 00 070745 0,,0]
33764 067452 312 04 0 00 072761 CAME AC,[201700,,0]
33765 067453 003 04 0 00 071101 ER3 AC,71101
33766 067454 312 05 0 00 070660 CAME AC+1,[0,,0]
33767 067455 004 05 0 00 071101 ER4 AC+1,71101
33768 067456 321 10 0 00 067450 JUMPL AC+4,S71100 ;LOOP ON ERROR SWITCH^
33769
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 28-2
DFKCA5 MAC 3-Oct-80 13:57 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0754
33770 SDFD 712,200740,0,0,0,200400,0,0,0,201740,0,0,0^
33771 S71200: DMOVE AC,[200740,,0
33772 067457 120 04 0 00 073451 0,,0]
33773 DFDV AC,[200400,,0
33774 067460 113 04 0 00 070745 0,,0]
33775 067461 312 04 0 00 073453 CAME AC,[201740,,0]
33776 067462 003 04 0 00 071201 ER3 AC,71201
33777 067463 312 05 0 00 070660 CAME AC+1,[0,,0]
33778 067464 004 05 0 00 071201 ER4 AC+1,71201
33779 067465 321 10 0 00 067457 JUMPL AC+4,S71200 ;LOOP ON ERROR SWITCH^
33780
33781 SDFD 713,200400,0,0,0,577400,0,0,0,576400,0,0,0^
33782 S71300: DMOVE AC,[200400,,0
33783 067466 120 04 0 00 070745 0,,0]
33784 DFDV AC,[577400,,0
33785 067467 113 04 0 00 072125 0,,0]
33786 067470 312 04 0 00 070637 CAME AC,[576400,,0]
33787 067471 003 04 0 00 071301 ER3 AC,71301
33788 067472 312 05 0 00 070660 CAME AC+1,[0,,0]
33789 067473 004 05 0 00 071301 ER4 AC+1,71301
33790 067474 321 10 0 00 067466 JUMPL AC+4,S71300 ;LOOP ON ERROR SWITCH^
33791
33792 SDFD 714,200600,0,0,0,577400,0,0,0,576200,0,0,0^
33793 S71400: DMOVE AC,[200600,,0
33794 067475 120 04 0 00 072127 0,,0]
33795 DFDV AC,[577400,,0
33796 067476 113 04 0 00 072125 0,,0]
33797 067477 312 04 0 00 073055 CAME AC,[576200,,0]
33798 067500 003 04 0 00 071401 ER3 AC,71401
33799 067501 312 05 0 00 070660 CAME AC+1,[0,,0]
33800 067502 004 05 0 00 071401 ER4 AC+1,71401
33801 067503 321 10 0 00 067475 JUMPL AC+4,S71400 ;LOOP ON ERROR SWITCH^
33802
33803 SDFD 715,177400,0,0,0,204400,0,0,0,174400,0,0,0^
33804 S71500: DMOVE AC,[177400,,0
33805 067504 120 04 0 00 072665 0,,0]
33806 DFDV AC,[204400,,0
33807 067505 113 04 0 00 072702 0,,0]
33808 067506 312 04 0 00 070761 CAME AC,[174400,,0]
33809 067507 003 04 0 00 071501 ER3 AC,71501
33810 067510 312 05 0 00 070660 CAME AC+1,[0,,0]
33811 067511 004 05 0 00 071501 ER4 AC+1,71501
33812 067512 321 10 0 00 067504 JUMPL AC+4,S71500 ;LOOP ON ERROR SWITCH^
33813
33814 SDFD 716,576400,0,0,0,200600,0,0,0,576252,525252,252525,252525^
33815 S71600: DMOVE AC,[576400,,0
33816 067513 120 04 0 00 072766 0,,0]
33817 DFDV AC,[200600,,0
33818 067514 113 04 0 00 072127 0,,0]
33819 067515 312 04 0 00 073454 CAME AC,[576252,,525252]
33820 067516 003 04 0 00 071601 ER3 AC,71601
33821 067517 312 05 0 00 070655 CAME AC+1,[252525,,252525]
33822 067520 004 05 0 00 071601 ER4 AC+1,71601
33823 067521 321 10 0 00 067513 JUMPL AC+4,S71600 ;LOOP ON ERROR SWITCH^
33824
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 28-3
DFKCA5 MAC 3-Oct-80 13:57 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0755
33825 SDFD 717,600600,0,0,0,577400,0,0,0,177400,0,0,0^
33826 S71700: DMOVE AC,[600600,,0
33827 067522 120 04 0 00 073455 0,,0]
33828 DFDV AC,[577400,,0
33829 067523 113 04 0 00 072125 0,,0]
33830 067524 312 04 0 00 070636 CAME AC,[177400,,0]
33831 067525 003 04 0 00 071701 ER3 AC,71701
33832 067526 312 05 0 00 070660 CAME AC+1,[0,,0]
33833 067527 004 05 0 00 071701 ER4 AC+1,71701
33834 067530 321 10 0 00 067522 JUMPL AC+4,S71700 ;LOOP ON ERROR SWITCH^
33835
33836 SDFD 720,600400,0,0,0,577400,0,0,0,200400,0,0,0^
33837 S72000: DMOVE AC,[600400,,0
33838 067531 120 04 0 00 072663 0,,0]
33839 DFDV AC,[577400,,0
33840 067532 113 04 0 00 072125 0,,0]
33841 067533 312 04 0 00 070614 CAME AC,[200400,,0]
33842 067534 003 04 0 00 072001 ER3 AC,72001
33843 067535 312 05 0 00 070660 CAME AC+1,[0,,0]
33844 067536 004 05 0 00 072001 ER4 AC+1,72001
33845 067537 321 10 0 00 067531 JUMPL AC+4,S72000 ;LOOP ON ERROR SWITCH^
33846
33847 SDFD 721,377400,-1,0,0,577400,-1,0,0,777375,773771,373773,776004^
33848 S72100: DMOVE AC,[377400,,-1
33849 067540 120 04 0 00 073457 0,,0]
33850 DFDV AC,[577400,,-1
33851 067541 113 04 0 00 073461 0,,0]
33852 067542 312 04 0 00 073463 CAME AC,[777375,,773771]
33853 067543 003 04 0 00 072101 ER3 AC,72101
33854 067544 312 05 0 00 073464 CAME AC+1,[373773,,776004]
33855 067545 004 05 0 00 072101 ER4 AC+1,72101
33856 067546 321 10 0 00 067540 JUMPL AC+4,S72100 ;LOOP ON ERROR SWITCH^
33857
33858 SDFD 722,201400,0,0,0,0,0,0,0,201400,0,0,0^
33859 S72200: DMOVE AC,[201400,,0
33860 067547 120 04 0 00 072123 0,,0]
33861 DFDV AC,[0,,0
33862 067550 113 04 0 00 070663 0,,0]
33863 067551 312 04 0 00 071613 CAME AC,[201400,,0]
33864 067552 003 04 0 00 072201 ER3 AC,72201
33865 067553 312 05 0 00 070660 CAME AC+1,[0,,0]
33866 067554 004 05 0 00 072201 ER4 AC+1,72201
33867 067555 321 10 0 00 067547 JUMPL AC+4,S72200 ;LOOP ON ERROR SWITCH^
33868
33869 SDFD 723,377400,0,0,0,400,0,0,0,200400,0,0,0^
33870 S72300: DMOVE AC,[377400,,0
33871 067556 120 04 0 00 072756 0,,0]
33872 DFDV AC,[400,,0
33873 067557 113 04 0 00 071566 0,,0]
33874 067560 312 04 0 00 070614 CAME AC,[200400,,0]
33875 067561 003 04 0 00 072301 ER3 AC,72301
33876 067562 312 05 0 00 070660 CAME AC+1,[0,,0]
33877 067563 004 05 0 00 072301 ER4 AC+1,72301
33878 067564 321 10 0 00 067556 JUMPL AC+4,S72300 ;LOOP ON ERROR SWITCH^
33879
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 28-4
DFKCA5 MAC 3-Oct-80 13:57 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0756
33880 SDFD 724,577775,0,0,0,577777,0,0,0,577775,0,0,0^
33881 S72400: DMOVE AC,[577775,,0
33882 067565 120 04 0 00 073465 0,,0]
33883 DFDV AC,[577777,,0
33884 067566 113 04 0 00 073467 0,,0]
33885 067567 312 04 0 00 073465 CAME AC,[577775,,0]
33886 067570 003 04 0 00 072401 ER3 AC,72401
33887 067571 312 05 0 00 070660 CAME AC+1,[0,,0]
33888 067572 004 05 0 00 072401 ER4 AC+1,72401
33889 067573 321 10 0 00 067565 JUMPL AC+4,S72400 ;LOOP ON ERROR SWITCH^
33890
33891 SDFD 725,577774,0,0,0,577777,0,0,0,577774,0,0,0^
33892 S72500: DMOVE AC,[577774,,0
33893 067574 120 04 0 00 073471 0,,0]
33894 DFDV AC,[577777,,0
33895 067575 113 04 0 00 073467 0,,0]
33896 067576 312 04 0 00 073471 CAME AC,[577774,,0]
33897 067577 003 04 0 00 072501 ER3 AC,72501
33898 067600 312 05 0 00 070660 CAME AC+1,[0,,0]
33899 067601 004 05 0 00 072501 ER4 AC+1,72501
33900 067602 321 10 0 00 067574 JUMPL AC+4,S72500 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 29
DFKCA5 MAC 3-Oct-80 13:57 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0757
33901
33902 SDFD 726,210777,-1,0,0,170750,0,0,0,221414,456123,150726,20623^
33903 S72600: DMOVE AC,[210777,,-1
33904 067603 120 04 0 00 073473 0,,0]
33905 DFDV AC,[170750,,0
33906 067604 113 04 0 00 073475 0,,0]
33907 067605 312 04 0 00 073477 CAME AC,[221414,,456123]
33908 067606 003 04 0 00 072601 ER3 AC,72601
33909 067607 312 05 0 00 073500 CAME AC+1,[150726,,20623]
33910 067610 004 05 0 00 072601 ER4 AC+1,72601
33911 067611 321 10 0 00 067603 JUMPL AC+4,S72600 ;LOOP ON ERROR SWITCH^
33912
33913 SDFD 727,210777,-1,0,0,170555,0,0,0,221547,63714,314631,463146^
33914 S72700: DMOVE AC,[210777,,-1
33915 067612 120 04 0 00 073473 0,,0]
33916 DFDV AC,[170555,,0
33917 067613 113 04 0 00 073501 0,,0]
33918 067614 312 04 0 00 073503 CAME AC,[221547,,63714]
33919 067615 003 04 0 00 072701 ER3 AC,72701
33920 067616 312 05 0 00 073504 CAME AC+1,[314631,,463146]
33921 067617 004 05 0 00 072701 ER4 AC+1,72701
33922 067620 321 10 0 00 067612 JUMPL AC+4,S72700 ;LOOP ON ERROR SWITCH^
33923
33924 SDFD 730,577000,555555,0,0,200400,0,0,0,576000,555555,0,0^
33925 S73000: DMOVE AC,[577000,,555555
33926 067621 120 04 0 00 073505 0,,0]
33927 DFDV AC,[200400,,0
33928 067622 113 04 0 00 070745 0,,0]
33929 067623 312 04 0 00 073507 CAME AC,[576000,,555555]
33930 067624 003 04 0 00 073001 ER3 AC,73001
33931 067625 312 05 0 00 070660 CAME AC+1,[0,,0]
33932 067626 004 05 0 00 073001 ER4 AC+1,73001
33933 067627 321 10 0 00 067621 JUMPL AC+4,S73000 ;LOOP ON ERROR SWITCH^
33934
33935 SDFD 731,210777,-1,-1,-1,170555,0,0,0,221547,63715,200263,431746^
33936 S73100: DMOVE AC,[210777,,-1
33937 067630 120 04 0 00 073510 -1,,-1]
33938 DFDV AC,[170555,,0
33939 067631 113 04 0 00 073501 0,,0]
33940 067632 312 04 0 00 073512 CAME AC,[221547,,63715]
33941 067633 003 04 0 00 073101 ER3 AC,73101
33942 067634 312 05 0 00 073513 CAME AC+1,[200263,,431746]
33943 067635 004 05 0 00 073101 ER4 AC+1,73101
33944 067636 321 10 0 00 067630 JUMPL AC+4,S73100 ;LOOP ON ERROR SWITCH^
33945
33946 SDFD 732,210777,-3,0,0,170555,0,0,0,221547,63713,145545,545546^
33947 S73200: DMOVE AC,[210777,,-3
33948 067637 120 04 0 00 073514 0,,0]
33949 DFDV AC,[170555,,0
33950 067640 113 04 0 00 073501 0,,0]
33951 067641 312 04 0 00 073516 CAME AC,[221547,,63713]
33952 067642 003 04 0 00 073201 ER3 AC,73201
33953 067643 312 05 0 00 073517 CAME AC+1,[145545,,545546]
33954 067644 004 05 0 00 073201 ER4 AC+1,73201
33955 067645 321 10 0 00 067637 JUMPL AC+4,S73200 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 29-1
DFKCA5 MAC 3-Oct-80 13:57 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0758
33956
33957 SDFD 733,377400,0,555000,0,100777,0,0,0,77400,400400,355355,355355^
33958 S73300: DMOVE AC,[377400,,0
33959 067646 120 04 0 00 073520 555000,,0]
33960 DFDV AC,[100777,,0
33961 067647 113 04 0 00 073522 0,,0]
33962 067650 312 04 0 00 073524 CAME AC,[77400,,400400]
33963 067651 003 04 0 00 073301 ER3 AC,73301
33964 067652 312 05 0 00 073525 CAME AC+1,[355355,,355355]
33965 067653 004 05 0 00 073301 ER4 AC+1,73301
33966 067654 321 10 0 00 067646 JUMPL AC+4,S73300 ;LOOP ON ERROR SWITCH^
33967
33968 SDFD 735,200777,-1,0,0,200777,-2,0,0,201400,0,200000,400^
33969 S73500: DMOVE AC,[200777,,-1
33970 067655 120 04 0 00 073065 0,,0]
33971 DFDV AC,[200777,,-2
33972 067656 113 04 0 00 073264 0,,0]
33973 067657 312 04 0 00 071613 CAME AC,[201400,,0]
33974 067660 003 04 0 00 073501 ER3 AC,73501
33975 067661 312 05 0 00 070572 CAME AC+1,[200000,,400]
33976 067662 004 05 0 00 073501 ER4 AC+1,73501
33977 067663 321 10 0 00 067655 JUMPL AC+4,S73500 ;LOOP ON ERROR SWITCH^
33978
33979 SDFD 736,200777,-1,0,0,200777,-4,0,0,201400,1,200000,3000^
33980 S73600: DMOVE AC,[200777,,-1
33981 067664 120 04 0 00 073065 0,,0]
33982 DFDV AC,[200777,,-4
33983 067665 113 04 0 00 073272 0,,0]
33984 067666 312 04 0 00 071614 CAME AC,[201400,,1]
33985 067667 003 04 0 00 073601 ER3 AC,73601
33986 067670 312 05 0 00 073526 CAME AC+1,[200000,,3000]
33987 067671 004 05 0 00 073601 ER4 AC+1,73601
33988 067672 321 10 0 00 067664 JUMPL AC+4,S73600 ;LOOP ON ERROR SWITCH^
33989
33990 SDFD 737,210777,-1,0,0,170555,0,0,0,221547,63714,314631,463146^
33991 S73700: DMOVE AC,[210777,,-1
33992 067673 120 04 0 00 073473 0,,0]
33993 DFDV AC,[170555,,0
33994 067674 113 04 0 00 073501 0,,0]
33995 067675 312 04 0 00 073503 CAME AC,[221547,,63714]
33996 067676 003 04 0 00 073701 ER3 AC,73701
33997 067677 312 05 0 00 073504 CAME AC+1,[314631,,463146]
33998 067700 004 05 0 00 073701 ER4 AC+1,73701
33999 067701 321 10 0 00 067673 JUMPL AC+4,S73700 ;LOOP ON ERROR SWITCH^
34000
34001 SDFD 741,210777,-1,0,0,170555,600000,0,0,221546,272702,301417,730634^
34002 S74100: DMOVE AC,[210777,,-1
34003 067702 120 04 0 00 073473 0,,0]
34004 DFDV AC,[170555,,600000
34005 067703 113 04 0 00 073527 0,,0]
34006 067704 312 04 0 00 073531 CAME AC,[221546,,272702]
34007 067705 003 04 0 00 074101 ER3 AC,74101
34008 067706 312 05 0 00 073532 CAME AC+1,[301417,,730634]
34009 067707 004 05 0 00 074101 ER4 AC+1,74101
34010 067710 321 10 0 00 067702 JUMPL AC+4,S74100 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 29-2
DFKCA5 MAC 3-Oct-80 13:57 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0759
34011
34012 SDFD 742,210777,-1,0,0,170557,0,0,0,221545,111740,234200,262445^
34013 S74200: DMOVE AC,[210777,,-1
34014 067711 120 04 0 00 073473 0,,0]
34015 DFDV AC,[170557,,0
34016 067712 113 04 0 00 073533 0,,0]
34017 067713 312 04 0 00 073535 CAME AC,[221545,,111740]
34018 067714 003 04 0 00 074201 ER3 AC,74201
34019 067715 312 05 0 00 073536 CAME AC+1,[234200,,262445]
34020 067716 004 05 0 00 074201 ER4 AC+1,74201
34021 067717 321 10 0 00 067711 JUMPL AC+4,S74200 ;LOOP ON ERROR SWITCH^
34022
34023 SDFD 743,210777,-1,0,0,170560,0,0,0,221544,131025,220544,131026^
34024 S74300: DMOVE AC,[210777,,-1
34025 067720 120 04 0 00 073473 0,,0]
34026 DFDV AC,[170560,,0
34027 067721 113 04 0 00 073537 0,,0]
34028 067722 312 04 0 00 073541 CAME AC,[221544,,131025]
34029 067723 003 04 0 00 074301 ER3 AC,74301
34030 067724 312 05 0 00 073542 CAME AC+1,[220544,,131026]
34031 067725 004 05 0 00 074301 ER4 AC+1,74301
34032 067726 321 10 0 00 067720 JUMPL AC+4,S74300 ;LOOP ON ERROR SWITCH^
34033
34034 SDFD 744,377400,0,0,0,100777,0,0,0,77400,400400,200200,200200^
34035 S74400: DMOVE AC,[377400,,0
34036 067727 120 04 0 00 072756 0,,0]
34037 DFDV AC,[100777,,0
34038 067730 113 04 0 00 073522 0,,0]
34039 067731 312 04 0 00 073524 CAME AC,[77400,,400400]
34040 067732 003 04 0 00 074401 ER3 AC,74401
34041 067733 312 05 0 00 073543 CAME AC+1,[200200,,200200]
34042 067734 004 05 0 00 074401 ER4 AC+1,74401
34043 067735 321 10 0 00 067727 JUMPL AC+4,S74400 ;LOOP ON ERROR SWITCH^
34044
34045 SDFD 745,376400,0,0,0,100777,0,0,0,76400,400400,200200,200200^
34046 S74500: DMOVE AC,[376400,,0
34047 067736 120 04 0 00 073544 0,,0]
34048 DFDV AC,[100777,,0
34049 067737 113 04 0 00 073522 0,,0]
34050 067740 312 04 0 00 073546 CAME AC,[76400,,400400]
34051 067741 003 04 0 00 074501 ER3 AC,74501
34052 067742 312 05 0 00 073543 CAME AC+1,[200200,,200200]
34053 067743 004 05 0 00 074501 ER4 AC+1,74501
34054 067744 321 10 0 00 067736 JUMPL AC+4,S74500 ;LOOP ON ERROR SWITCH^
34055
34056 SDFD 746,375400,0,0,0,100777,0,0,0,75400,400400,200200,200200^
34057 S74600: DMOVE AC,[375400,,0
34058 067745 120 04 0 00 073547 0,,0]
34059 DFDV AC,[100777,,0
34060 067746 113 04 0 00 073522 0,,0]
34061 067747 312 04 0 00 073551 CAME AC,[75400,,400400]
34062 067750 003 04 0 00 074601 ER3 AC,74601
34063 067751 312 05 0 00 073543 CAME AC+1,[200200,,200200]
34064 067752 004 05 0 00 074601 ER4 AC+1,74601
34065 067753 321 10 0 00 067745 JUMPL AC+4,S74600 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 29-3
DFKCA5 MAC 3-Oct-80 13:57 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0760
34066
34067 SDFD 747,374400,0,0,0,100777,0,0,0,74400,400400,200200,200200^
34068 S74700: DMOVE AC,[374400,,0
34069 067754 120 04 0 00 073552 0,,0]
34070 DFDV AC,[100777,,0
34071 067755 113 04 0 00 073522 0,,0]
34072 067756 312 04 0 00 073554 CAME AC,[74400,,400400]
34073 067757 003 04 0 00 074701 ER3 AC,74701
34074 067760 312 05 0 00 073543 CAME AC+1,[200200,,200200]
34075 067761 004 05 0 00 074701 ER4 AC+1,74701
34076 067762 321 10 0 00 067754 JUMPL AC+4,S74700 ;LOOP ON ERROR SWITCH^
34077
34078 SDFD 750,373400,0,0,0,100777,0,0,0,73400,400400,200200,200200^
34079 S75000: DMOVE AC,[373400,,0
34080 067763 120 04 0 00 073555 0,,0]
34081 DFDV AC,[100777,,0
34082 067764 113 04 0 00 073522 0,,0]
34083 067765 312 04 0 00 073557 CAME AC,[73400,,400400]
34084 067766 003 04 0 00 075001 ER3 AC,75001
34085 067767 312 05 0 00 073543 CAME AC+1,[200200,,200200]
34086 067770 004 05 0 00 075001 ER4 AC+1,75001
34087 067771 321 10 0 00 067763 JUMPL AC+4,S75000 ;LOOP ON ERROR SWITCH^
34088
34089 SDFD 751,372400,0,0,0,100777,0,0,0,72400,400400,200200,200200^
34090 S75100: DMOVE AC,[372400,,0
34091 067772 120 04 0 00 073560 0,,0]
34092 DFDV AC,[100777,,0
34093 067773 113 04 0 00 073522 0,,0]
34094 067774 312 04 0 00 073562 CAME AC,[72400,,400400]
34095 067775 003 04 0 00 075101 ER3 AC,75101
34096 067776 312 05 0 00 073543 CAME AC+1,[200200,,200200]
34097 067777 004 05 0 00 075101 ER4 AC+1,75101
34098 070000 321 10 0 00 067772 JUMPL AC+4,S75100 ;LOOP ON ERROR SWITCH^
34099
34100 SDFD 752,210777,0,0,0,210777,0,0,0,201400,0,0,0^
34101 S75200: DMOVE AC,[210777,,0
34102 070001 120 04 0 00 073563 0,,0]
34103 DFDV AC,[210777,,0
34104 070002 113 04 0 00 073563 0,,0]
34105 070003 312 04 0 00 071613 CAME AC,[201400,,0]
34106 070004 003 04 0 00 075201 ER3 AC,75201
34107 070005 312 05 0 00 070660 CAME AC+1,[0,,0]
34108 070006 004 05 0 00 075201 ER4 AC+1,75201
34109 070007 321 10 0 00 070001 JUMPL AC+4,S75200 ;LOOP ON ERROR SWITCH^
34110
34111 SDFD 753,200400,0,0,0,210777,0,0,0,170400,400400,200200,200200^
34112 S75300: DMOVE AC,[200400,,0
34113 070010 120 04 0 00 070745 0,,0]
34114 DFDV AC,[210777,,0
34115 070011 113 04 0 00 073563 0,,0]
34116 070012 312 04 0 00 073565 CAME AC,[170400,,400400]
34117 070013 003 04 0 00 075301 ER3 AC,75301
34118 070014 312 05 0 00 073543 CAME AC+1,[200200,,200200]
34119 070015 004 05 0 00 075301 ER4 AC+1,75301
34120 070016 321 10 0 00 070010 JUMPL AC+4,S75300 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 29-4
DFKCA5 MAC 3-Oct-80 13:57 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0761
34121
34122 SDFD 754,371400,0,0,0,100777,0,0,0,71400,400400,200200,200200^
34123 S75400: DMOVE AC,[371400,,0
34124 070017 120 04 0 00 073566 0,,0]
34125 DFDV AC,[100777,,0
34126 070020 113 04 0 00 073522 0,,0]
34127 070021 312 04 0 00 073570 CAME AC,[71400,,400400]
34128 070022 003 04 0 00 075401 ER3 AC,75401
34129 070023 312 05 0 00 073543 CAME AC+1,[200200,,200200]
34130 070024 004 05 0 00 075401 ER4 AC+1,75401
34131 070025 321 10 0 00 070017 JUMPL AC+4,S75400 ;LOOP ON ERROR SWITCH^
34132
34133 SDFD 755,370400,0,0,0,100777,0,0,0,070400,400400,200200,200200^
34134 S75500: DMOVE AC,[370400,,0
34135 070026 120 04 0 00 073571 0,,0]
34136 DFDV AC,[100777,,0
34137 070027 113 04 0 00 073522 0,,0]
34138 070030 312 04 0 00 073573 CAME AC,[070400,,400400]
34139 070031 003 04 0 00 075501 ER3 AC,75501
34140 070032 312 05 0 00 073543 CAME AC+1,[200200,,200200]
34141 070033 004 05 0 00 075501 ER4 AC+1,75501
34142 070034 321 10 0 00 070026 JUMPL AC+4,S75500 ;LOOP ON ERROR SWITCH^
34143
34144 SDFD 756,367400,0,0,0,100777,0,0,0,67400,400400,200200,200200^
34145 S75600: DMOVE AC,[367400,,0
34146 070035 120 04 0 00 073574 0,,0]
34147 DFDV AC,[100777,,0
34148 070036 113 04 0 00 073522 0,,0]
34149 070037 312 04 0 00 073576 CAME AC,[67400,,400400]
34150 070040 003 04 0 00 075601 ER3 AC,75601
34151 070041 312 05 0 00 073543 CAME AC+1,[200200,,200200]
34152 070042 004 05 0 00 075601 ER4 AC+1,75601
34153 070043 321 10 0 00 070035 JUMPL AC+4,S75600 ;LOOP ON ERROR SWITCH^
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 30
DFKCA5 MAC 3-Oct-80 13:57 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0762
34154 ;TEST LEAST SIGNIFICANT BIT DIFFERENCE, GET A DIFFERENT ANSWER
34155 ;ON THE KS-10 WITH MICROCODE 104 AND GREATER.
34156
34157 S73400: DMOVE AC,[373400,,0
34158 070044 120 04 0 00 073577 200777,,0]
34159 DFDV AC,[100777,,0
34160 070045 113 04 0 00 073522 0,,0]
34161 070046 336 00 0 00 030524 SKIPN SM10
34162 070047 254 00 0 00 070065 JRST S73405 ;KL10
34163
34164 070050 312 04 0 00 073601 CAME AC,[73400,,400401]
34165 070051 003 04 0 00 073401 ER3 AC,73401
34166
34167 070052 332 00 0 00 030037 SKIPE USER ;USER MODE ?
34168 070053 254 00 0 00 070072 JRST S73408 ;YES, ALLOW EITHER ANSWER
34169 070054 7 000 00 0 00 000000 BLKI APR,0 ;NO, GET KS10 CPU ID INFO
34170 070055 207 00 0 00 000000 MOVSS ;ISOLATE MICROCODE VERSION
34171 070056 405 00 0 00 000777 ANDI 0,777
34172 070057 305 00 0 00 000104 CAIGE 0,104 ;104 OR GREATER ?
34173 070060 254 00 0 00 070077 JRST S73409 ;NO
34174
34175 070061 312 05 0 00 073602 CAME AC+1,[1400,,400401]
34176 070062 004 05 0 00 073401 ER4 AC+1,73401
34177
34178 070063 321 10 0 00 070044 S73406: JUMPL AC+4,S73400 ;LOOP ON ERROR SWITCH
34179 070064 254 00 0 00 070102 JRST S73407
34180
34181 070065 312 04 0 00 073601 S73405: CAME AC,[73400,,400401] ;CHECK KL10 ANSWER IF RUNNING ON KL10
34182 070066 003 04 0 00 073401 ER3 AC,73401
34183 070067 312 05 0 00 073602 CAME AC+1,[1400,,400401]
34184 070070 004 05 0 00 073401 ER4 AC+1,73401
34185 070071 254 00 0 00 070063 JRST S73406
34186
34187 070072 316 05 0 00 073603 S73408: CAMN AC+1,[1400,,400400] ;ALLOW EITHER ANSWER ON KS10 IN USER MODE
34188 070073 254 00 0 00 070063 JRST S73406
34189 070074 312 05 0 00 073602 CAME AC+1,[1400,,400401]
34190 070075 004 05 0 00 073401 ER4 AC+1,73401
34191 070076 254 00 0 00 070063 JRST S73406
34192
34193 070077 312 05 0 00 073603 S73409: CAME AC+1,[1400,,400400] ;KS10, EXEC, MICROCODE LESS THAN 104
34194 070100 004 05 0 00 073401 ER4 AC+1,73401
34195 070101 254 00 0 00 070063 JRST S73406
34196
34197 070102 254 00 0 00 070103 S73407: JRST .+1
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 31
DFKCA5 MAC 3-Oct-80 13:57 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0763
34198 ;TEST AROV, FOV AND FXU FLAGS-DFDV
34199
34200 000004 AC=4
34201 SAVEAC (1,1)^
34202 070103 201 10 0 00 070103 MOVEI AC+4,.
34203 070104 202 10 0 00 030051 MOVEM AC+4,TESTPC ;SETUP SUBTEST PC
34204 070105 201 10 0 00 000010 MOVEI AC+4,<AC+4>&17 ;INFORM ERROR ROUTINE WHICH
34205 070106 202 10 0 00 073775 MOVEM AC+4,ERRLOP# ;AC IS USED FOR ITERATION^
34206
34207 070107 254 02 1 00 073604 S75700: JRSTF @[.+1] ;CLEAR ALL FLAGS
34208 DMOVE AC,[376777,,-1
34209 070110 120 04 0 00 073605 -1,,-1]
34210 DFDV AC,[200400,,0
34211 070111 113 04 0 00 070745 0,,0] ;EXPECT AROV,FOV,FXU=0,0,0
34212 070112 265 03 0 00 070113 JSP AC-1,.+1 ;SAVE FLAGS
34213 070113 312 04 0 00 071241 CAME AC,[377777,,-1]
34214 070114 003 04 0 00 075701 ER3 AC,75701 ;C(AC) FAILED
34215 070115 312 05 0 00 071241 CAME AC+1,[377777,,-1]
34216 070116 004 05 0 00 075701 ER4 AC+1,75701 ;C(AC+1)FAILED
34217 070117 255 10 0 00 070121 JOV .+2
34218 070120 254 00 0 00 070122 JRST .+2
34219 070121 013 03 0 00 075701 ER13 AC-1,75701 ;AROV WAS SET
34220 070122 255 01 0 00 070124 JFOV .+2
34221 070123 254 00 0 00 070125 JRST .+2
34222 070124 013 03 0 00 075701 ER13 AC-1,75701 ;FOV WAS SET
34223 070125 603 03 0 00 000100 TLNE AC-1,FXU
34224 070126 013 03 0 00 075701 ER13 AC-1,75701 ;FXU WAS SET
34225 070127 321 10 0 00 070107 JUMPL AC+4,S75700 ;LOOP ON ERROR SWITCH
34226
34227 070130 254 02 1 00 073607 S76000: JRSTF @[.+1] ;CLEAR ALL FLAGS
34228 DMOVE AC,[377400,,0
34229 070131 120 04 0 00 072756 0,,0]
34230 DFDV AC,[200400,,0
34231 070132 113 04 0 00 070745 0,,0] ;EXPECT AROV,FOV,FXU=1,1,0
34232 070133 265 03 0 00 070134 JSP AC-1,.+1 ;SAVE FLAGS
34233 070134 312 04 0 00 071117 CAME AC,[400,,0]
34234 070135 003 04 0 00 076001 ER3 AC,76001 ;C(AC) FAILED
34235 070136 312 05 0 00 070660 CAME AC+1,[0,,0]
34236 070137 004 05 0 00 076001 ER4 AC+1,76001 ;C(AC+1) FAILED
34237 070140 255 10 0 00 070142 JOV .+2
34238 070141 013 03 0 00 076001 ER13 AC-1,76001 ;AROV WAS CLEAR
34239 070142 255 01 0 00 070144 JFOV .+2
34240 070143 013 03 0 00 076001 ER13 AC-1,76001 ;FOV WAS CLEAR
34241 070144 603 03 0 00 000100 TLNE AC-1,FXU
34242 070145 013 03 0 00 076001 ER13 AC-1,76001 ;FXU WAS SET
34243 070146 321 10 0 00 070130 JUMPL AC+4,S76000 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 32
DFKCA5 MAC 3-Oct-80 13:57 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0764
34244 070147 254 02 1 00 073610 S76100: JRSTF @[.+1] ;CLEAR ALL FLAGS
34245 DMOVE AC,[1400,,0
34246 070150 120 04 0 00 073433 0,,0]
34247 DFDV AC,[202400,,0
34248 070151 113 04 0 00 072677 0,,0] ;EXPECT AROV,FOV,FXU=0,0,0
34249 070152 265 03 0 00 070153 JSP AC-1,.+1 ;SAVE FLAGS
34250 070153 312 04 0 00 071117 CAME AC,[400,,0]
34251 070154 003 04 0 00 076101 ER3 AC,76101 ;C(AC) FAILED
34252 070155 312 05 0 00 070660 CAME AC+1,[0,,0]
34253 070156 004 05 0 00 076101 ER4 AC+1,76101 ;C(AC+1) FAILED
34254 070157 255 10 0 00 070161 JOV .+2
34255 070160 254 00 0 00 070162 JRST .+2
34256 070161 013 03 0 00 076101 ER13 AC-1,76101 ;AROV WAS SET
34257 070162 255 01 0 00 070164 JFOV .+2
34258 070163 254 00 0 00 070165 JRST .+2
34259 070164 013 03 0 00 076101 ER13 AC-1,76101 ;FOV WAS SET
34260 070165 603 03 0 00 000100 TLNE AC-1,FXU
34261 070166 013 03 0 00 076101 ER13 AC-1,76101 ;FXU WAS SET
34262 070167 321 10 0 00 070147 JUMPL AC+4,S76100 ;LOOP ON ERROR SWITCH
34263
34264 070170 254 02 1 00 073611 S76200:JRSTF @[.+1] ;CLEAR ALL FLAGS
34265 DMOVE AC,[777,,-1
34266 070171 120 04 0 00 071237 -1,,-1]
34267 DFDV AC,[202400,,0
34268 070172 113 04 0 00 072677 0,,0] ;EXPECT AROV,FOV,FXU=1,1,1
34269 070173 265 03 0 00 070174 JSP AC-1,.+1 ;SAVE FLAGS
34270 070174 312 04 0 00 071241 CAME AC,[377777,,-1]
34271 070175 003 04 0 00 076201 ER3 AC,76201 ;C(AC) FAILED
34272 070176 312 05 0 00 071241 CAME AC+1,[377777,,-1]
34273 070177 004 05 0 00 076201 ER4 AC+1,76201 ;C(AC+1) FAILED
34274 070200 255 10 0 00 070202 JOV .+2
34275 070201 013 03 0 00 076201 ER13 AC-1,76201 ;AROV WAS CLEAR
34276 070202 255 01 0 00 070204 JFOV .+2
34277 070203 013 03 0 00 076201 ER13 AC-1,76201 ;FOV WAS CLEAR
34278 070204 607 03 0 00 000100 TLNN AC-1,FXU
34279 070205 013 03 0 00 076201 ER13 AC-1,76201 ;FXU WAS CLEAR
34280 070206 321 10 0 00 070170 JUMPL AC+4,S76200 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 33
DFKCA5 MAC 3-Oct-80 13:57 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0765
34281 070207 254 02 1 00 073612 S76300: JRSTF @[.+1] ;CLEAR ALL FLAGS
34282 DMOVE AC,[376777,,-1
34283 070210 120 04 0 00 073605 -1,,-1]
34284 DFDV AC,[577400,,0
34285 070211 113 04 0 00 072125 0,,0] ;EXPECT AROV,FOV,FXU=0,0,0
34286 070212 265 03 0 00 070213 JSP AC-1,.+1 ;SAVE FLAGS
34287 070213 312 04 0 00 070711 CAME AC,[400000,,0]
34288 070214 003 04 0 00 076301 ER3 AC,76301 ;C(AC) FAILED
34289 070215 312 05 0 00 070673 CAME AC+1,[0,,1]
34290 070216 004 05 0 00 076301 ER4 AC+1,76301 ;C(AC+1) FAILED
34291 070217 255 10 0 00 070221 JOV .+2
34292 070220 254 00 0 00 070222 JRST .+2
34293 070221 013 03 0 00 076301 ER13 AC-1,76301 ;AROV WAS SET
34294 070222 255 01 0 00 070224 JFOV .+2
34295 070223 254 00 0 00 070225 JRST .+2
34296 070224 013 03 0 00 076301 ER13 AC-1,76301 ;FOV WAS SET
34297 070225 603 03 0 00 000100 TLNE AC-1,FXU
34298 070226 013 03 0 00 076301 ER13 AC-1,76301 ;FXU WAS SET
34299 070227 321 10 0 00 070207 JUMPL AC+4,S76300 ;LOOP ON ERROR SWITCH
34300
34301 070230 254 02 1 00 073613 S76400: JRSTF @[.+1] ;CLEAR ALL FLAGS
34302 DMOVE AC,[377400,,0
34303 070231 120 04 0 00 072756 0,,0]
34304 DFDV AC,[777400,,0
34305 070232 113 04 0 00 073247 0,,0] ;EXPECT AROV,FOV,FXU=1,1,0
34306 070233 265 03 0 00 070234 JSP AC-1,.+1 ;SAVE FLAGS
34307 070234 312 04 0 00 072125 CAME AC,[577400,,0]
34308 070235 003 04 0 00 076401 ER3 AC,76401 ;C(AC) FAILED
34309 070236 312 05 0 00 070660 CAME AC+1,[0,,0]
34310 070237 004 05 0 00 076401 ER4 AC+1,76401 ;C(AC+1) FAILED
34311 070240 255 10 0 00 070242 JOV .+2
34312 070241 013 03 0 00 076401 ER13 AC-1,76401 ;AROV WAS CLEAR
34313 070242 255 01 0 00 070244 JFOV .+2
34314 070243 013 03 0 00 076401 ER13 AC-1,76401 ;FOV WAS CLEAR
34315 070244 603 03 0 00 000100 TLNE AC-1,FXU
34316 070245 013 03 0 00 076401 ER13 AC-1,76401 ;FXU WAS SET
34317 070246 321 10 0 00 070230 JUMPL AC+4,S76400 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 34
DFKCA5 MAC 3-Oct-80 13:57 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0766
34318 070247 254 02 1 00 073614 S76500: JRSTF @[.+1] ;CLEAR ALL FLAGS
34319 DMOVE AC,[1400,,0
34320 070250 120 04 0 00 073433 0,,0]
34321 DFDV AC,[575400,,0
34322 070251 113 04 0 00 073262 0,,0] ;EXPECT AROV,FOV,FXU=0,0,0
34323 070252 265 03 0 00 070253 JSP AC-1,.+1 ;SAVE FLAGS
34324 070253 312 04 0 00 070650 CAME AC,[777400,,0]
34325 070254 003 04 0 00 076501 ER3 AC,76501 ;C(AC) FAILED
34326 070255 312 05 0 00 070660 CAME AC+1,[0,,0]
34327 070256 004 05 0 00 076501 ER4 AC+1,76501 ;C(AC+1) FAILED
34328 070257 255 10 0 00 070261 JOV .+2
34329 070260 254 00 0 00 070262 JRST .+2
34330 070261 013 03 0 00 076501 ER13 AC-1,76501 ;AROV WAS SET
34331 070262 255 01 0 00 070264 JFOV .+2
34332 070263 254 00 0 00 070265 JRST .+2
34333 070264 013 03 0 00 076501 ER13 AC-1,76501 ;FOV WAS SET
34334 070265 603 03 0 00 000100 TLNE AC-1,FXU
34335 070266 013 03 0 00 076501 ER13 AC-1,76501 ;FXU WAS SET
34336 070267 321 10 0 00 070247 JUMPL AC+4,S76500 ;LOOP ON ERROR SWITCH
34337
34338 070270 254 02 1 00 073615 S76600: JRSTF @[.+1] ;CLEAR ALL FLAGS
34339 DMOVE AC,[777,,-1
34340 070271 120 04 0 00 071237 -1,,-1]
34341 DFDV AC,[575400,,0
34342 070272 113 04 0 00 073262 0,,0] ;EXPECT AROV,FOV,FXU=1,1,1
34343 070273 265 03 0 00 070274 JSP AC-1,.+1 ;SAVE FLAGS
34344 070274 312 04 0 00 070711 CAME AC,[400000,,0]
34345 070275 003 04 0 00 076601 ER3 AC,76601 ;C(AC) FAILED
34346 070276 312 05 0 00 070673 CAME AC+1,[0,,1]
34347 070277 004 05 0 00 076601 ER4 AC+1,76601 ;C(AC+1) FAILED
34348 070300 255 10 0 00 070302 JOV .+2
34349 070301 013 03 0 00 076601 ER13 AC-1,76601 ;AROV WAS CLEAR
34350 070302 255 01 0 00 070304 JFOV .+2
34351 070303 013 03 0 00 076601 ER13 AC-1,76601 ;FOV WAS CLEAR
34352 070304 607 03 0 00 000100 TLNN AC-1,FXU
34353 070305 013 03 0 00 076601 ER13 AC-1,76601 ;FXU WAS CLEAR
34354 070306 321 10 0 00 070270 JUMPL AC+4,S76600 ;LOOP ON ERROR SWITCH
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 35
DFKCA5 MAC 3-Oct-80 13:57 DFDV TEST-DOUBLE FLOATING POINT DIVIDE SEQ 0767
34355 ;TEST AROV,FOV AND DCK FLAGS-DFDV
34356
34357 070307 254 02 1 00 073616 S76700: JRSTF @[.+1] ;CLEAR ALL FLAGS
34358 DMOVE AC,[201400,,0
34359 070310 120 04 0 00 072123 0,,0]
34360 DFDV AC,[0,,0
34361 070311 113 04 0 00 070663 0,,0] ;EXPECT AROV,FOV,DCK=1,1,1
34362 070312 265 03 0 00 070313 JSP AC-1,.+1 ;SAVE FLAGS
34363 070313 312 04 0 00 071613 CAME AC,[201400,,0]
34364 070314 003 04 0 00 076701 ER3 AC,76701 ;C(AC) FAILED
34365 070315 312 05 0 00 070660 CAME AC+1,[0,,0]
34366 070316 004 05 0 00 076701 ER4 AC+1,76701 ;C(AC+1) FAILED
34367 070317 255 10 0 00 070321 JOV .+2
34368 070320 013 03 0 00 076701 ER13 AC-1,76701 ;AROV WAS CLEAR
34369 070321 255 01 0 00 070323 JFOV .+2
34370 070322 013 03 0 00 076701 ER13 AC-1,76701 ;FOV WAS CLEAR
34371 070323 607 03 0 00 000040 TLNN AC-1,DCK
34372 070324 013 03 0 00 076701 ER13 AC-1,76701 ;DCK WAS CLEAR
34373 070325 321 10 0 00 070307 JUMPL AC+4,S76700 ;LOOP ON ERROR SWITCH
34374
34375 ;TEST AROV,FOV AND DCK FLAGS-DFDV
34376
34377 070326 254 02 1 00 073617 S77000: JRSTF @[.+1] ;CLEAR ALL FLAGS
34378 DMOVE AC,[201400,,0
34379 070327 120 04 0 00 072123 0,,0]
34380 DFDV AC,[201200,,0
34381 070330 113 04 0 00 073620 0,,0] ;EXPECT AROV,FOV,DCK=1,1,1
34382 070331 265 03 0 00 070332 JSP AC-1,.+1 ;SAVE FLAGS
34383 070332 312 04 0 00 071613 CAME AC,[201400,,0]
34384 070333 003 04 0 00 077001 ER3 AC,77001 ;C(AC) FAILED
34385 070334 312 05 0 00 070660 CAME AC+1,[0,,0]
34386 070335 004 05 0 00 077001 ER4 AC+1,77001 ;C(AC+1) FAILED
34387 070336 255 10 0 00 070340 JOV .+2
34388 070337 013 03 0 00 077001 ER13 AC-1,77001 ;AROV WAS CLEAR
34389 070340 255 01 0 00 070342 JFOV .+2
34390 070341 013 03 0 00 077001 ER13 AC-1,77001 ;FOV WAS CLEAR
34391 070342 607 03 0 00 000040 TLNN AC-1,DCK
34392 070343 013 03 0 00 077001 ER13 AC-1,77001 ;DCK WAS CLEAR
34393 070344 321 10 0 00 070326 JUMPL AC+4,S77000 ;LOOP ON ERROR SWITCH
34394
34395 070345 254 00 0 00 030057 JRST BEGEND
34396
34397 070346 TSTWD: BLOCK 2
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1
UUOERR KLM 22-Apr-75 09:46 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0768
34398 SUBTTL *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975
34399
34400 ;THIS SUBROUTINE PROVIDES ERROR REPORTING THRU THE USE OF UUO'S.
34401
34402 070350 202 00 0 00 074001 ERRMES: MOVEM 0,%ERAC0# ;SAVE AC0
34403 IFDEF EXCASB,<IFDEF KI10,<
34404 070351 336 00 0 00 030040 SKIPN KAIFLG
34405 070352 254 00 0 00 070357 JRST .+5
34406 070353 332 00 0 00 030037 SKIPE USER ;USER MODE ?
34407 070354 254 00 0 00 070357 JRST .+3
34408 070355 332 00 0 00 030055 SKIPE MARGIN
34409 070356 7 000 14 0 00 073622 DATAO APR,[IMGNOF,,ISPDOF] ;CLR MARGINS >>
34410 070357 202 01 0 00 074002 MOVEM 1,%ERAC1# ;SAVE AC1
34411 070360 202 02 0 00 074003 MOVEM 2,%ERAC2# ;SAVE AC2
34412 070361 350 00 0 00 030053 AOS ERRTLS ;INCREMENT ERROR TOTALS
34413 070362 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO
34414 070363 316 00 0 00 030052 CAMN 0,ERRPC ;PC = PC OF LAST ERROR ?
34415 070364 350 00 0 00 073776 AOS MICNT# ;YES, ADD 1 TO ERROR COUNT
34416 070365 200 00 0 00 073776 MOVE 0,MICNT
34417 070366 504 00 0 00 030114 HRL 0,$SVUPC
34418 070367 336 00 0 00 030041 SKIPN KLFLG ;NOT KL10
34419 070370 332 00 0 00 030037 SKIPE USER ;AND NOT USER?
34420 070371 254 00 0 00 070373 JRST .+2
34421 070372 7 004 14 0 00 000000 DATAO PI,0 ;YES, DISPLAY ERROR PC,ERROR COUNT
34422 070373 402 00 0 00 073777 SETZM PROCED# ;CLEAR PROCEED FLAG
34423 070374 037 10 0 00 000002 SWITCH
34424 070375 603 00 0 00 040000 TLNE NOPNT ;PRINTOUT ?
34425 070376 254 00 0 00 070511 JRST %ERRS1 ;NO, RESTORE AC'S AND RETURN
34426 070377 200 01 0 00 030113 MOVE 1,$SVUUO
34427 070400 242 01 0 00 777745 LSH 1,-^D27
34428 070401 202 01 0 00 074000 MOVEM 1,%ACS1A# ;SAVE UUO NUMBER
34429 070402 200 00 0 00 074001 MOVE 0,%ERAC0
34430 070403 200 01 0 00 074002 MOVE 1,%ERAC1
34431 070404 335 00 1 00 073775 SKIPGE @ERRLOP ;ERR LOOP AC > OR = 0 ?
34432 070405 254 00 0 00 070551 JRST %ERRS4 ;NO, SEE IF PRINT ALL
34433 070406 402 00 0 00 073776 %ERMS1: SETZM MICNT ;CLEAR ERROR COUNT
34434 070407 331 00 0 00 030043 SKIPL MONCTL ;DIAG MON OR SYS EXER ?
34435 070410 254 00 0 00 070414 JRST .+4 ;NO, DON'T NEED TITLE
34436 070411 336 00 0 00 074004 SKIPN %ERFST# ;FIRST ERROR ?
34437 070412 037 04 0 00 000002 PNTNM ;YES, PRINT PROGRAM TITLE
34438 070413 476 00 0 00 074004 SETOM %ERFST
34439 070414 336 00 0 00 030047 SKIPN PASCNT ;FIRST PASS ?
34440 070415 254 00 0 00 070421 JRST .+4 ;YES
34441 PMSG <^TEST PASS COUNT = >^
34442 070416 037 02 0 00 073623 PSIXM [SIXBIT\^TEST PASS COUNT = _\]^
34443 070417 200 00 0 00 030047 MOVE PASCNT
34444 070420 037 15 0 00 000000 PNTDEC
34445 PMSG <^PC = >^
34446 070421 037 02 0 00 073627 PSIXM [SIXBIT\^PC = _\]^
34447 070422 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO
34448 070423 202 00 0 00 030052 MOVEM 0,ERRPC ;SAVE FOR COMPARE
34449 070424 037 06 0 00 000000 PNT6 ;PRINT UUO ADDRESS
34450 XLIST
34451 IFDEF ERDIAG,<LIST
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 2
UUOERR KLM 22-Apr-75 09:46 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0769
34452 ;DIAGNOSTIC FORMAT ERROR PRINTER
34453
34454 ;PRINT RESULT
34455
34456 070425 %ERMS2: PMSG <^RESULT = >^
34457 070425 037 02 0 00 073631 PSIXM [SIXBIT\^RESULT = _\]^
34458 070426 200 01 0 00 030113 MOVE 1,$SVUUO ;GET AC # OF UUO
34459 070427 242 01 0 00 777751 LSH 1,-27
34460 070430 405 01 0 00 000017 ANDI 1,17
34461 070431 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC)
34462 070432 307 01 0 00 000001 CAIG 1,1 ;IS AC # = TO SAVE AC ?
34463 070433 200 00 0 01 074001 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC
34464 070434 037 13 0 00 000000 PNTHW ;PRINT C(AC)
34465
34466 070435 200 00 0 00 030046 MOVE CONSW
34467 070436 603 00 0 00 000200 TLNE TXTINH ;PRINT FAILURE DES AND FLT NBR ?
34468 070437 254 00 0 00 070506 JRST %ERMORE ;NO, RESTORE AC'S ETC.
34469
34470 ;PRINT FAILURE DESCRIPTOR
34471
34472 070440 200 01 0 00 074000 MOVE 1,%ACS1A ;GET UUO NUMBER
34473 070441 307 01 0 00 000001 CAIG 1,1 ;PRINT DESCRIPTOR ?
34474 070442 254 00 0 00 070446 JRST %ERMS3 ;NO, JUST PRINT FAULT NUMBER
34475 070443 037 00 0 00 030242 PCRL
34476 070444 200 00 0 01 070472 MOVE %FLTTB(1)
34477 070445 037 17 0 00 000000 PNTAL ;PRINT FAULT DESCRIPTOR
34478
34479 ;PRINT FAULT NUMBER
34480
34481 070446 %ERMS3: PMSG <^FAULT NUMBER = >^
34482 070446 037 02 0 00 073633 PSIXM [SIXBIT\^FAULT NUMBER = _\]^
34483 070447 201 00 0 00 070471 MOVEI TLET
34484 070450 037 00 0 00 000000 PNTA ;PRINT TEST LETTER
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 3
UUOERR KLM 22-Apr-75 09:46 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0770
34485
34486 070451 550 00 0 00 030113 HRRZ $SVUUO
34487 070452 602 00 0 00 700000 TRNE 700000
34488 070453 254 00 0 00 070467 JRST %ER6X
34489 070454 602 00 0 00 070000 TRNE 070000
34490 070455 254 00 0 00 070465 JRST %ER5X
34491 070456 602 00 0 00 007000 TRNE 007000
34492 070457 254 00 0 00 070463 JRST %ER4X
34493 070460 037 03 0 00 000000 PNT3 ;PRINT FAULT NUMBER
34494 070461 037 00 0 00 030242 %ER7X: PCRL
34495 070462 254 00 0 00 070506 JRST %ERMORE
34496
34497 070463 037 04 0 00 000000 %ER4X: PNT4
34498 070464 254 00 0 00 070461 JRST %ER7X
34499 070465 037 05 0 00 000000 %ER5X: PNT5
34500 070466 254 00 0 00 070461 JRST %ER7X
34501 070467 037 06 0 00 000000 %ER6X: PNT6
34502 070470 254 00 0 00 070461 JRST %ER7X
34503
34504 ;FAILURE DESCRIPTORS
34505
34506 070471 000000 000000 TLET: 0 ;TEST LETTER
34507 070472 000000 000000 %FLTTB: 0 ;DESCRIPTOR TABLE
34508 070473 000000 070660 %NODES: [0] ;NO DESCRIPTOR
34509 070474 000000 070660 SPDES: [0] ;SPECIAL USER FAILURE DESCRIPTOR
34510 070475 000000 073636 $ACF: [ASCIZ/C(AC) FAILED/]
34511 070476 000000 073641 %AC1F: [ASCIZ/C(AC+1) FAILED/]
34512 070477 000000 073644 %EF: [ASCIZ/C(E) FAILED/]
34513 070500 000000 073647 %E1F: [ASCIZ/C(E+1) FAILED/]
34514 070501 000000 073652 %ARF: [ASCIZ/C(C(ACR)) FAILED/]
34515 070502 000000 073656 %AR1F: [ASCIZ/C(C(ACR+1)) FAILED/]
34516 070503 000000 073662 %ALF: [ASCIZ/C(C(ACL)) FAILED/]
34517 070504 000000 073666 %EEF: [ASCIZ/C(C(E)) FAILED/]
34518 070505 000000 073671 %FF: [ASCIZ/FLAG FAILED/]
34519 >
34520 XLIST
34521 LIST
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 8
UUOERR KLM 22-Apr-75 09:46 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0771
34522 ;RESTORE AC'S AND RETURN OR HALT
34523
34524 070506 256 00 0 00 030101 %ERMORE:XCT ERMORE
34525 070507 037 16 0 00 000002 PNTMGN ;PRINT MARGINS
34526 070510 037 10 0 00 000002 SWITCH
34527
34528 070511 037 07 0 00 000003 %ERRS1: TTALTM ;ALTMODE CHECK
34529 070512 254 00 0 00 070516 JRST .+4 ;NONE
34530 070513 201 00 0 00 070516 MOVEI .+3 ;SAVE CONT ADDRESS
34531 070514 202 00 0 00 000130 MOVEM JOBOPC
34532 070515 254 00 1 00 030063 JRST @ALTMGO ;PERFORM TRANSFER
34533 070516 200 00 0 00 030046 MOVE CONSW
34534 070517 603 00 0 00 002000 TLNE 0,ERSTOP ;HALT ON ERROR SWITCH SET ?
34535 070520 037 14 0 00 000004 ERRHLT ;YES
34536 070521 607 00 0 00 004000 TLNN 0,LOOPER ;LOOP ON ERROR SWITCH SET ?
34537 070522 476 00 0 00 073777 SETOM PROCED ;NO, SET THE PROCEED FLAG
34538 070523 603 00 0 00 010000 TLNE 0,DING ;RING BELL SWITCH SET ?
34539 070524 037 01 0 00 000007 PBELL ;YES, GO RING BELL
34540
34541 070525 200 02 0 00 074003 %ERRS2: MOVE 2,%ERAC2 ;RESTORE AC'S
34542 070526 200 01 0 00 074002 MOVE 1,%ERAC1
34543 070527 476 00 1 00 073775 SETOM @ERRLOP ;SET C(ERR LOOP AC) TO -1
34544 070530 336 00 0 00 073777 SKIPN PROCED ;LOOP ON ERROR ?
34545 070531 254 00 0 00 070541 JRST %ERRS5 ;YES
34546 070532 350 00 1 00 073775 AOS @ERRLOP ;NO, INC C(ERR LOOP AC)
34547 070533 350 00 1 00 073775 AOS @ERRLOP ;SO IT ='S 1
34548 070534 331 00 0 00 030043 SKIPL MONCTL ;UNDER DIAGNOSTIC MONITOR ?
34549 070535 254 00 0 00 070541 JRST %ERRS5 ;NO, CONTINUE PROGRAM
34550 070536 200 00 0 00 030053 MOVE 0,ERRTLS ;YES
34551 070537 301 00 0 00 000005 CAIL 0,5 ;PRINTED ALLOWED ERRORS ?
34552 070540 254 00 0 00 030061 JRST $BEND2
34553
34554 070541 200 00 0 00 074001 %ERRS5: MOVE 0,%ERAC0 ;NO, CONTINUE PROGRAM
34555 IFDEF EXCASB,<IFDEF KI10,<
34556 070542 336 00 0 00 030040 SKIPN KAIFLG
34557 070543 254 00 0 00 070550 JRST .+5
34558 070544 332 00 0 00 030037 SKIPE USER
34559 070545 254 00 0 00 070550 JRST .+3
34560 070546 332 00 0 00 030055 SKIPE MARGIN
34561 070547 7 000 14 0 00 030055 DATAO APR,MARGIN ;RESET MARGIN SYSTEM >>
34562 070550 254 00 0 00 030065 JRST UUOEXT
34563
34564 070551 200 00 0 00 030046 %ERRS4: MOVE 0,CONSW
34565 070552 607 00 0 00 001000 TLNN PALERS ;PRINT ALL ERRORS ?
34566 070553 254 00 0 00 070511 JRST %ERRS1 ;NO
34567 070554 254 00 0 00 070406 JRST %ERMS1 ;YES
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0772
34568 SUBTTL *STOR* RESERVED STORAGE, SEPT 18,1979
34569
34570 ;PROGRAM LITERALS
34571
34572 XLIST
34573 IFNDEF $LPAPER,<LIST>
34574 070555 LIT
34575 070555 45 70 51 64 00 00
34576 070556 103 101 000 000 000
34577 070557 000000 031426
34578 070560 034400 000000
34579 070561 033777 777777
34580 070562 200000 000001
34581 070563 200000 000002
34582 070564 200000 000004
34583 070565 200000 000010
34584 070566 200000 000020
34585 070567 200000 000040
34586 070570 200000 000100
34587 070571 200000 000200
34588 070572 200000 000400
34589 070573 200000 001000
34590 070574 200000 002000
34591 070575 200000 004000
34592 070576 200000 010000
34593 070577 200000 020000
34594 070600 200000 040000
34595 070601 200000 100000
34596 070602 200000 200000
34597 070603 200000 400000
34598 070604 200001 000000
34599 070605 200002 000000
34600 070606 200004 000000
34601 070607 200010 000000
34602 070610 200020 000000
34603 070611 200040 000000
34604 070612 200100 000000
34605 070613 000000 034755
34606 070614 200400 000000
34607 070615 202400 000000
34608 070616 203400 000000
34609 070617 204400 000000
34610 070620 205400 000000
34611 070621 206400 000000
34612 070622 207400 000000
34613 070623 210400 000000
34614 070624 211400 000000
34615 070625 212400 000000
34616 070626 213400 000000
34617 070627 214400 000000
34618 070630 215400 000000
34619 070631 216400 000000
34620 070632 217400 000000
34621 070633 220400 000000
34622 070634 221400 000000
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1-1
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0773
34623 070635 222400 000000
34624 070636 177400 000000
34625 070637 576400 000000
34626 070640 000000 036515
34627 070641 000000 037006
34628 070642 000000 037167
34629 070643 177477 000000
34630 070644 200400 000077
34631 070645 200400 000076
34632 070646 200700 000000
34633 070647 400000 000001
34634 070650 777400 000000
34635 070651 577400 777777
34636 070652 210777 777777
34637 070653 170555 600000
34638 070654 233525 252525
34639 070655 252525 252525
34640 070656 631463 146314
34641 070657 424242 131313
34642 070660 000000 000000
34643 070661 707070 707070
34644 070662 070707 070707
34645 070663 000000 000000
34646 070664 000000 000000
34647 070665 777777 777777
34648 070666 777777 777777
34649 070667 000000 000000
34650 070670 525252 525252
34651 070671 252525 252525
34652 070672 525252 525252
34653 070673 000000 000001
34654 070674 000000 000000
34655 070675 000000 000001
34656 070676 777777 777777
34657 070677 000000 000001
34658 070700 252525 252526
34659 070701 525252 525252
34660 070702 252525 252526
34661 070703 525252 525253
34662 070704 252525 252525
34663 070705 525252 525253
34664 070706 000000 777777
34665 070707 000000 000000
34666 070710 000000 777777
34667 070711 400000 000000
34668 070712 000000 000000
34669 070713 400000 000000
34670 070714 400000 000000
34671 070715 300000 045733
34672 070716 310000 045733
34673 070717 500000 045763
34674 070720 100000 045763
34675 070721 510000 045763
34676 070722 300000 046013
34677 070723 310000 046013
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1-2
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0774
34678 070724 500000 046043
34679 070725 100000 046043
34680 070726 510000 046043
34681 070727 777777 777777
34682 070730 000000 777777
34683 070731 300000 046627
34684 070732 310000 046627
34685 070733 500000 046660
34686 070734 100000 046660
34687 070735 510000 046660
34688 070736 300000 046711
34689 070737 310000 046711
34690 070740 500000 046742
34691 070741 100000 046742
34692 070742 510000 046742
34693 070743 200000 000000
34694 070744 000000 000000
34695 070745 200400 000000
34696 070746 000000 000000
34697 070747 200200 000000
34698 070750 000000 000000
34699 070751 200100 000000
34700 070752 000000 000000
34701 070753 176400 000000
34702 070754 200040 000000
34703 070755 000000 000000
34704 070756 175400 000000
34705 070757 200020 000000
34706 070760 000000 000000
34707 070761 174400 000000
34708 070762 200010 000000
34709 070763 000000 000000
34710 070764 173400 000000
34711 070765 200004 000000
34712 070766 000000 000000
34713 070767 172400 000000
34714 070770 200002 000000
34715 070771 000000 000000
34716 070772 171400 000000
34717 070773 200001 000000
34718 070774 000000 000000
34719 070775 170400 000000
34720 070776 200000 400000
34721 070777 000000 000000
34722 071000 167400 000000
34723 071001 200000 200000
34724 071002 000000 000000
34725 071003 166400 000000
34726 071004 200000 100000
34727 071005 000000 000000
34728 071006 165400 000000
34729 071007 200000 040000
34730 071010 000000 000000
34731 071011 164400 000000
34732 071012 200000 020000
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1-3
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0775
34733 071013 000000 000000
34734 071014 163400 000000
34735 071015 200000 010000
34736 071016 000000 000000
34737 071017 162400 000000
34738 071020 200000 004000
34739 071021 000000 000000
34740 071022 161400 000000
34741 071023 200000 002000
34742 071024 000000 000000
34743 071025 160400 000000
34744 071026 200000 001000
34745 071027 000000 000000
34746 071030 157400 000000
34747 071031 200000 000400
34748 071032 000000 000000
34749 071033 156400 000000
34750 071034 200000 000200
34751 071035 000000 000000
34752 071036 155400 000000
34753 071037 200000 000100
34754 071040 000000 000000
34755 071041 154400 000000
34756 071042 200000 000040
34757 071043 000000 000000
34758 071044 153400 000000
34759 071045 200000 000020
34760 071046 000000 000000
34761 071047 152400 000000
34762 071050 200000 000010
34763 071051 000000 000000
34764 071052 151400 000000
34765 071053 200000 000004
34766 071054 000000 000000
34767 071055 150400 000000
34768 071056 200000 000002
34769 071057 000000 000000
34770 071060 147400 000000
34771 071061 200000 000001
34772 071062 000000 000000
34773 071063 146400 000000
34774 071064 200000 000000
34775 071065 400000 000000
34776 071066 200000 000000
34777 071067 200000 000000
34778 071070 145400 000000
34779 071071 200000 000000
34780 071072 100000 000000
34781 071073 144400 000000
34782 071074 200000 000000
34783 071075 040000 000000
34784 071076 143400 000000
34785 071077 200000 000000
34786 071100 020000 000000
34787 071101 142400 000000
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1-4
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0776
34788 071102 200000 000000
34789 071103 010000 000000
34790 071104 141400 000000
34791 071105 200000 000000
34792 071106 004000 000000
34793 071107 140400 000000
34794 071110 200000 000000
34795 071111 002000 000000
34796 071112 137400 000000
34797 071113 200000 000000
34798 071114 001000 000000
34799 071115 136400 000000
34800 071116 200000 000000
34801 071117 000400 000000
34802 071120 135400 000000
34803 071121 200000 000000
34804 071122 000200 000000
34805 071123 134400 000000
34806 071124 200000 000000
34807 071125 000100 000000
34808 071126 133400 000000
34809 071127 200000 000000
34810 071130 000040 000000
34811 071131 132400 000000
34812 071132 200000 000000
34813 071133 000020 000000
34814 071134 131400 000000
34815 071135 200000 000000
34816 071136 000010 000000
34817 071137 130400 000000
34818 071140 200000 000000
34819 071141 000004 000000
34820 071142 127400 000000
34821 071143 200000 000000
34822 071144 000002 000000
34823 071145 126400 000000
34824 071146 200000 000000
34825 071147 000001 000000
34826 071150 125400 000000
34827 071151 200000 000000
34828 071152 000000 400000
34829 071153 124400 000000
34830 071154 200000 000000
34831 071155 000000 200000
34832 071156 123400 000000
34833 071157 200000 000000
34834 071160 000000 100000
34835 071161 122400 000000
34836 071162 200000 000000
34837 071163 000000 040000
34838 071164 121400 000000
34839 071165 200000 000000
34840 071166 000000 020000
34841 071167 120400 000000
34842 071170 200000 000000
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1-5
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0777
34843 071171 000000 010000
34844 071172 117400 000000
34845 071173 200000 000000
34846 071174 000000 004000
34847 071175 116400 000000
34848 071176 200000 000000
34849 071177 000000 002000
34850 071200 115400 000000
34851 071201 200000 000000
34852 071202 000000 001000
34853 071203 114400 000000
34854 071204 200000 000000
34855 071205 000000 000400
34856 071206 113400 000000
34857 071207 200000 000000
34858 071210 000000 000200
34859 071211 112400 000000
34860 071212 200000 000000
34861 071213 000000 000100
34862 071214 111400 000000
34863 071215 200000 000000
34864 071216 000000 000040
34865 071217 110400 000000
34866 071220 200000 000000
34867 071221 000000 000020
34868 071222 107400 000000
34869 071223 200000 000000
34870 071224 000000 000010
34871 071225 106400 000000
34872 071226 200000 000000
34873 071227 000000 000004
34874 071230 105400 000000
34875 071231 200000 000000
34876 071232 000000 000002
34877 071233 104400 000000
34878 071234 200000 000000
34879 071235 000000 000001
34880 071236 103400 000000
34881 071237 000777 777777
34882 071240 777777 777777
34883 071241 377777 777777
34884 071242 000777 777777
34885 071243 777777 777776
34886 071244 377777 777776
34887 071245 000777 777777
34888 071246 777777 777775
34889 071247 377777 777775
34890 071250 000777 777777
34891 071251 777777 777773
34892 071252 377777 777773
34893 071253 000777 777777
34894 071254 777777 777767
34895 071255 377777 777767
34896 071256 000777 777777
34897 071257 777777 777757
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1-6
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0778
34898 071260 377777 777757
34899 071261 000777 777777
34900 071262 777777 777737
34901 071263 377777 777737
34902 071264 000777 777777
34903 071265 777777 777677
34904 071266 377777 777677
34905 071267 000777 777777
34906 071270 777777 777577
34907 071271 377777 777577
34908 071272 000777 777777
34909 071273 777777 777377
34910 071274 377777 777377
34911 071275 000777 777777
34912 071276 777777 776777
34913 071277 377777 776777
34914 071300 000777 777777
34915 071301 777777 775777
34916 071302 377777 775777
34917 071303 000777 777777
34918 071304 777777 773777
34919 071305 377777 773777
34920 071306 000777 777777
34921 071307 777777 767777
34922 071310 377777 767777
34923 071311 000777 777777
34924 071312 777777 757777
34925 071313 377777 757777
34926 071314 000777 777777
34927 071315 777777 737777
34928 071316 377777 737777
34929 071317 000777 777777
34930 071320 777777 677777
34931 071321 377777 677777
34932 071322 000777 777777
34933 071323 777777 577777
34934 071324 377777 577777
34935 071325 000777 777777
34936 071326 777777 377777
34937 071327 377777 377777
34938 071330 000777 777777
34939 071331 777776 777777
34940 071332 377776 777777
34941 071333 000777 777777
34942 071334 777775 777777
34943 071335 377775 777777
34944 071336 000777 777777
34945 071337 777773 777777
34946 071340 377773 777777
34947 071341 000777 777777
34948 071342 777767 777777
34949 071343 377767 777777
34950 071344 000777 777777
34951 071345 777757 777777
34952 071346 377757 777777
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1-7
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0779
34953 071347 000777 777777
34954 071350 777737 777777
34955 071351 377737 777777
34956 071352 000777 777777
34957 071353 777677 777777
34958 071354 377677 777777
34959 071355 000777 777777
34960 071356 777577 777777
34961 071357 377577 777777
34962 071360 000777 777777
34963 071361 777377 777777
34964 071362 377377 777777
34965 071363 000777 777777
34966 071364 776777 777777
34967 071365 376777 777777
34968 071366 000777 777777
34969 071367 775777 777777
34970 071370 375777 777777
34971 071371 000777 777777
34972 071372 773777 777777
34973 071373 373777 777777
34974 071374 000777 777777
34975 071375 767777 777777
34976 071376 367777 777777
34977 071377 000777 777777
34978 071400 757777 777777
34979 071401 357777 777777
34980 071402 000777 777777
34981 071403 737777 777777
34982 071404 337777 777777
34983 071405 000777 777777
34984 071406 677777 777777
34985 071407 277777 777777
34986 071410 000777 777777
34987 071411 577777 777777
34988 071412 177777 777777
34989 071413 000777 777777
34990 071414 377777 777777
34991 071415 000777 777776
34992 071416 777777 777777
34993 071417 000777 777775
34994 071420 777777 777777
34995 071421 000777 777773
34996 071422 777777 777777
34997 071423 000777 777767
34998 071424 777777 777777
34999 071425 000777 777757
35000 071426 777777 777777
35001 071427 000777 777737
35002 071430 777777 777777
35003 071431 000777 777677
35004 071432 777777 777777
35005 071433 000777 777577
35006 071434 777777 777777
35007 071435 000777 777377
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1-8
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0780
35008 071436 777777 777777
35009 071437 000777 776777
35010 071440 777777 777777
35011 071441 000777 775777
35012 071442 777777 777777
35013 071443 000777 773777
35014 071444 777777 777777
35015 071445 000777 767777
35016 071446 777777 777777
35017 071447 000777 757777
35018 071450 777777 777777
35019 071451 000777 737777
35020 071452 777777 777777
35021 071453 000777 677777
35022 071454 777777 777777
35023 071455 000777 577777
35024 071456 777777 777777
35025 071457 000777 377777
35026 071460 777777 777777
35027 071461 000776 777777
35028 071462 777777 777777
35029 071463 000775 777777
35030 071464 777777 777777
35031 071465 000773 777777
35032 071466 777777 777777
35033 071467 000767 777777
35034 071470 777777 777777
35035 071471 000757 777777
35036 071472 777777 777777
35037 071473 000737 777777
35038 071474 777777 777777
35039 071475 000677 777777
35040 071476 777777 777777
35041 071477 000577 777777
35042 071500 777777 777777
35043 071501 001377 777777
35044 071502 777777 777777
35045 071503 000000 000000
35046 071504 000000 000002
35047 071505 000000 000000
35048 071506 000000 000004
35049 071507 000000 000000
35050 071510 000000 000010
35051 071511 000000 000000
35052 071512 000000 000020
35053 071513 000000 000000
35054 071514 000000 000040
35055 071515 000000 000000
35056 071516 000000 000100
35057 071517 000000 000000
35058 071520 000000 000200
35059 071521 000000 000000
35060 071522 000000 000400
35061 071523 000000 000000
35062 071524 000000 001000
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1-9
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0781
35063 071525 000000 000000
35064 071526 000000 002000
35065 071527 000000 000000
35066 071530 000000 004000
35067 071531 000000 000000
35068 071532 000000 010000
35069 071533 000000 000000
35070 071534 000000 020000
35071 071535 000000 000000
35072 071536 000000 040000
35073 071537 000000 000000
35074 071540 000000 100000
35075 071541 000000 000000
35076 071542 000000 200000
35077 071543 000000 000000
35078 071544 000000 400000
35079 071545 000000 000000
35080 071546 000001 000000
35081 071547 000000 000000
35082 071550 000002 000000
35083 071551 000000 000000
35084 071552 000004 000000
35085 071553 000000 000000
35086 071554 000010 000000
35087 071555 000000 000000
35088 071556 000020 000000
35089 071557 000000 000000
35090 071560 000040 000000
35091 071561 000000 000000
35092 071562 000100 000000
35093 071563 000000 000000
35094 071564 000200 000000
35095 071565 000000 000000
35096 071566 000400 000000
35097 071567 000000 000000
35098 071570 001000 000000
35099 071571 000000 000000
35100 071572 002000 000000
35101 071573 000000 000000
35102 071574 004000 000000
35103 071575 000000 000000
35104 071576 010000 000000
35105 071577 000000 000000
35106 071600 020000 000000
35107 071601 000000 000000
35108 071602 040000 000000
35109 071603 000000 000000
35110 071604 100000 000000
35111 071605 000000 000000
35112 071606 200000 000000
35113 071607 000377 777777
35114 071610 777777 777777
35115 071611 200777 777777
35116 071612 777777 777777
35117 071613 201400 000000
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1-10
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0782
35118 071614 201400 000001
35119 071615 201400 000002
35120 071616 201400 000004
35121 071617 201400 000010
35122 071620 201400 000020
35123 071621 201400 000040
35124 071622 201400 000100
35125 071623 201400 000200
35126 071624 201400 000400
35127 071625 201400 001000
35128 071626 201400 002000
35129 071627 201400 004000
35130 071630 201400 010000
35131 071631 201400 020000
35132 071632 201400 040000
35133 071633 201400 100000
35134 071634 201400 200000
35135 071635 201400 400000
35136 071636 201401 000000
35137 071637 201402 000000
35138 071640 201404 000000
35139 071641 201410 000000
35140 071642 201420 000000
35141 071643 201440 000000
35142 071644 201500 000000
35143 071645 201600 000000
35144 071646 200777 777777
35145 071647 777777 777776
35146 071650 201777 777777
35147 071651 200777 777777
35148 071652 777777 777775
35149 071653 200777 777777
35150 071654 777777 777773
35151 071655 200777 777777
35152 071656 777777 777767
35153 071657 200777 777777
35154 071660 777777 777757
35155 071661 200777 777777
35156 071662 777777 777737
35157 071663 200777 777777
35158 071664 777777 777677
35159 071665 200777 777777
35160 071666 777777 777577
35161 071667 200777 777777
35162 071670 777777 777377
35163 071671 200777 777777
35164 071672 777777 776777
35165 071673 200777 777777
35166 071674 777777 775777
35167 071675 200777 777777
35168 071676 777777 773777
35169 071677 200777 777777
35170 071700 777777 767777
35171 071701 200777 777777
35172 071702 777777 757777
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1-11
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0783
35173 071703 200777 777777
35174 071704 777777 737777
35175 071705 200777 777777
35176 071706 777777 677777
35177 071707 200777 777777
35178 071710 777777 577777
35179 071711 200777 777777
35180 071712 777777 377777
35181 071713 200777 777777
35182 071714 777776 777777
35183 071715 200777 777777
35184 071716 777775 777777
35185 071717 200777 777777
35186 071720 777773 777777
35187 071721 200777 777777
35188 071722 777767 777777
35189 071723 200777 777777
35190 071724 777757 777777
35191 071725 200777 777777
35192 071726 777737 777777
35193 071727 200777 777777
35194 071730 777677 777777
35195 071731 200777 777777
35196 071732 777577 777777
35197 071733 200777 777777
35198 071734 777377 777777
35199 071735 200777 777777
35200 071736 776777 777777
35201 071737 200777 777777
35202 071740 775777 777777
35203 071741 200777 777777
35204 071742 773777 777777
35205 071743 200777 777777
35206 071744 767777 777777
35207 071745 200777 777777
35208 071746 757777 777777
35209 071747 200777 777777
35210 071750 737777 777777
35211 071751 200777 777777
35212 071752 677777 777777
35213 071753 200777 777777
35214 071754 577777 777777
35215 071755 200777 777777
35216 071756 377777 777777
35217 071757 200777 777776
35218 071760 777777 777777
35219 071761 200777 777775
35220 071762 777777 777777
35221 071763 201777 777776
35222 071764 200777 777773
35223 071765 777777 777777
35224 071766 201777 777775
35225 071767 200777 777767
35226 071770 777777 777777
35227 071771 201777 777773
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1-12
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0784
35228 071772 200777 777757
35229 071773 777777 777777
35230 071774 201777 777767
35231 071775 200777 777737
35232 071776 777777 777777
35233 071777 201777 777757
35234 072000 200777 777677
35235 072001 777777 777777
35236 072002 201777 777737
35237 072003 200777 777577
35238 072004 777777 777777
35239 072005 201777 777677
35240 072006 200777 777377
35241 072007 777777 777777
35242 072010 201777 777577
35243 072011 200777 776777
35244 072012 777777 777777
35245 072013 201777 777377
35246 072014 200777 775777
35247 072015 777777 777777
35248 072016 201777 776777
35249 072017 200777 773777
35250 072020 777777 777777
35251 072021 201777 775777
35252 072022 200777 767777
35253 072023 777777 777777
35254 072024 201777 773777
35255 072025 200777 757777
35256 072026 777777 777777
35257 072027 201777 767777
35258 072030 200777 737777
35259 072031 777777 777777
35260 072032 201777 757777
35261 072033 200777 677777
35262 072034 777777 777777
35263 072035 201777 737777
35264 072036 200777 577777
35265 072037 777777 777777
35266 072040 201777 677777
35267 072041 200777 377777
35268 072042 777777 777777
35269 072043 201777 577777
35270 072044 200776 777777
35271 072045 777777 777777
35272 072046 201777 377777
35273 072047 200775 777777
35274 072050 777777 777777
35275 072051 201776 777777
35276 072052 200773 777777
35277 072053 777777 777777
35278 072054 201775 777777
35279 072055 200767 777777
35280 072056 777777 777777
35281 072057 201773 777777
35282 072060 200757 777777
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1-13
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0785
35283 072061 777777 777777
35284 072062 201767 777777
35285 072063 200737 777777
35286 072064 777777 777777
35287 072065 201757 777777
35288 072066 200677 777777
35289 072067 777777 777777
35290 072070 201737 777777
35291 072071 200577 777777
35292 072072 777777 777777
35293 072073 201677 777777
35294 072074 200377 777777
35295 072075 777777 777777
35296 072076 201577 777777
35297 072077 001777 777777
35298 072100 001777 777776
35299 072101 001777 777775
35300 072102 001777 777773
35301 072103 001777 777767
35302 072104 001777 777757
35303 072105 001777 777737
35304 072106 001777 777677
35305 072107 001777 777577
35306 072110 001777 777377
35307 072111 001777 776777
35308 072112 001777 775777
35309 072113 001777 773777
35310 072114 001777 767777
35311 072115 001777 757777
35312 072116 001777 737777
35313 072117 001777 677777
35314 072120 001777 577777
35315 072121 001777 377777
35316 072122 000000 061310
35317 072123 201400 000000
35318 072124 000000 000000
35319 072125 577400 000000
35320 072126 000000 000000
35321 072127 200600 000000
35322 072130 000000 000000
35323 072131 200500 000000
35324 072132 000000 000000
35325 072133 200440 000000
35326 072134 000000 000000
35327 072135 200420 000000
35328 072136 000000 000000
35329 072137 200410 000000
35330 072140 000000 000000
35331 072141 200404 000000
35332 072142 000000 000000
35333 072143 200402 000000
35334 072144 000000 000000
35335 072145 200401 000000
35336 072146 000000 000000
35337 072147 200400 400000
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1-14
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0786
35338 072150 000000 000000
35339 072151 200400 200000
35340 072152 000000 000000
35341 072153 200400 100000
35342 072154 000000 000000
35343 072155 200400 040000
35344 072156 000000 000000
35345 072157 200400 020000
35346 072160 000000 000000
35347 072161 200400 010000
35348 072162 000000 000000
35349 072163 200400 004000
35350 072164 000000 000000
35351 072165 200400 002000
35352 072166 000000 000000
35353 072167 200400 001000
35354 072170 000000 000000
35355 072171 200400 000400
35356 072172 000000 000000
35357 072173 200400 000200
35358 072174 000000 000000
35359 072175 200400 000100
35360 072176 000000 000000
35361 072177 200400 000040
35362 072200 000000 000000
35363 072201 200400 000020
35364 072202 000000 000000
35365 072203 200400 000010
35366 072204 000000 000000
35367 072205 200400 000004
35368 072206 000000 000000
35369 072207 200400 000002
35370 072210 000000 000000
35371 072211 200400 000001
35372 072212 000000 000000
35373 072213 200400 000000
35374 072214 200000 000000
35375 072215 200400 000000
35376 072216 100000 000000
35377 072217 200400 000000
35378 072220 040000 000000
35379 072221 200400 000000
35380 072222 020000 000000
35381 072223 200400 000000
35382 072224 010000 000000
35383 072225 200400 000000
35384 072226 004000 000000
35385 072227 200400 000000
35386 072230 002000 000000
35387 072231 200400 000000
35388 072232 001000 000000
35389 072233 200400 000000
35390 072234 000400 000000
35391 072235 200400 000000
35392 072236 000200 000000
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1-15
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0787
35393 072237 200400 000000
35394 072240 000100 000000
35395 072241 200400 000000
35396 072242 000040 000000
35397 072243 200400 000000
35398 072244 000020 000000
35399 072245 200400 000000
35400 072246 000010 000000
35401 072247 200400 000000
35402 072250 000004 000000
35403 072251 200400 000000
35404 072252 000002 000000
35405 072253 200400 000000
35406 072254 000001 000000
35407 072255 200400 000000
35408 072256 000000 400000
35409 072257 200400 000000
35410 072260 000000 200000
35411 072261 200400 000000
35412 072262 000000 100000
35413 072263 200400 000000
35414 072264 000000 040000
35415 072265 200400 000000
35416 072266 000000 020000
35417 072267 200400 000000
35418 072270 000000 010000
35419 072271 200400 000000
35420 072272 000000 004000
35421 072273 200400 000000
35422 072274 000000 002000
35423 072275 200400 000000
35424 072276 000000 001000
35425 072277 200400 000000
35426 072300 000000 000400
35427 072301 200400 000000
35428 072302 000000 000200
35429 072303 200400 000000
35430 072304 000000 000100
35431 072305 200400 000000
35432 072306 000000 000040
35433 072307 200400 000000
35434 072310 000000 000020
35435 072311 200400 000000
35436 072312 000000 000010
35437 072313 200400 000000
35438 072314 000000 000004
35439 072315 200400 000000
35440 072316 000000 000002
35441 072317 200400 000000
35442 072320 000000 000001
35443 072321 600377 777777
35444 072322 777777 777777
35445 072323 600577 777777
35446 072324 777777 777777
35447 072325 601377 777777
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1-16
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0788
35448 072326 600677 777777
35449 072327 777777 777777
35450 072330 602377 777777
35451 072331 377777 777774
35452 072332 600737 777777
35453 072333 777777 777777
35454 072334 603377 777777
35455 072335 377777 777770
35456 072336 600757 777777
35457 072337 777777 777777
35458 072340 604377 777777
35459 072341 377777 777760
35460 072342 600767 777777
35461 072343 777777 777777
35462 072344 605377 777777
35463 072345 377777 777740
35464 072346 600773 777777
35465 072347 777777 777777
35466 072350 606377 777777
35467 072351 377777 777700
35468 072352 600775 777777
35469 072353 777777 777777
35470 072354 607377 777777
35471 072355 377777 777600
35472 072356 600776 777777
35473 072357 777777 777777
35474 072360 610377 777777
35475 072361 377777 777400
35476 072362 600777 377777
35477 072363 777777 777777
35478 072364 611377 777777
35479 072365 377777 777000
35480 072366 600777 577777
35481 072367 777777 777777
35482 072370 612377 777777
35483 072371 377777 776000
35484 072372 600777 677777
35485 072373 777777 777777
35486 072374 613377 777777
35487 072375 377777 774000
35488 072376 600777 737777
35489 072377 777777 777777
35490 072400 614377 777777
35491 072401 377777 770000
35492 072402 600777 757777
35493 072403 777777 777777
35494 072404 615377 777777
35495 072405 377777 760000
35496 072406 600777 767777
35497 072407 777777 777777
35498 072410 616377 777777
35499 072411 377777 740000
35500 072412 600777 773777
35501 072413 777777 777777
35502 072414 617377 777777
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1-17
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0789
35503 072415 377777 700000
35504 072416 600777 775777
35505 072417 777777 777777
35506 072420 620377 777777
35507 072421 377777 600000
35508 072422 600777 776777
35509 072423 777777 777777
35510 072424 621377 777777
35511 072425 377777 400000
35512 072426 600777 777377
35513 072427 777777 777777
35514 072430 622377 777777
35515 072431 377777 000000
35516 072432 600777 777577
35517 072433 777777 777777
35518 072434 623377 777777
35519 072435 377776 000000
35520 072436 600777 777677
35521 072437 777777 777777
35522 072440 624377 777777
35523 072441 377774 000000
35524 072442 600777 777737
35525 072443 777777 777777
35526 072444 625377 777777
35527 072445 377770 000000
35528 072446 600777 777757
35529 072447 777777 777777
35530 072450 626377 777777
35531 072451 377760 000000
35532 072452 600777 777767
35533 072453 777777 777777
35534 072454 627377 777777
35535 072455 377740 000000
35536 072456 600777 777773
35537 072457 777777 777777
35538 072460 630377 777777
35539 072461 377700 000000
35540 072462 600777 777775
35541 072463 777777 777777
35542 072464 631377 777777
35543 072465 377600 000000
35544 072466 600777 777776
35545 072467 777777 777777
35546 072470 632377 777777
35547 072471 377400 000000
35548 072472 600777 777777
35549 072473 577777 777777
35550 072474 633377 777777
35551 072475 377000 000000
35552 072476 600777 777777
35553 072477 677777 777777
35554 072500 634377 777777
35555 072501 376000 000000
35556 072502 600777 777777
35557 072503 737777 777777
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1-18
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0790
35558 072504 635377 777777
35559 072505 374000 000000
35560 072506 600777 777777
35561 072507 757777 777777
35562 072510 636377 777777
35563 072511 370000 000000
35564 072512 600777 777777
35565 072513 767777 777777
35566 072514 637377 777777
35567 072515 360000 000000
35568 072516 600777 777777
35569 072517 773777 777777
35570 072520 640377 777777
35571 072521 340000 000000
35572 072522 600777 777777
35573 072523 775777 777777
35574 072524 641377 777777
35575 072525 300000 000000
35576 072526 600777 777777
35577 072527 776777 777777
35578 072530 642377 777777
35579 072531 600777 777777
35580 072532 777377 777777
35581 072533 643377 777777
35582 072534 600777 777777
35583 072535 777577 777777
35584 072536 644377 777776
35585 072537 600777 777777
35586 072540 777677 777777
35587 072541 645377 777774
35588 072542 600777 777777
35589 072543 777737 777777
35590 072544 646377 777770
35591 072545 600777 777777
35592 072546 777757 777777
35593 072547 647377 777760
35594 072550 600777 777777
35595 072551 777767 777777
35596 072552 650377 777740
35597 072553 600777 777777
35598 072554 777773 777777
35599 072555 651377 777700
35600 072556 600777 777777
35601 072557 777775 777777
35602 072560 652377 777600
35603 072561 600777 777777
35604 072562 777776 777777
35605 072563 653377 777400
35606 072564 600777 777777
35607 072565 777777 377777
35608 072566 654377 777000
35609 072567 600777 777777
35610 072570 777777 577777
35611 072571 655377 776000
35612 072572 600777 777777
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1-19
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0791
35613 072573 777777 677777
35614 072574 656377 774000
35615 072575 600777 777777
35616 072576 777777 737777
35617 072577 657377 770000
35618 072600 600777 777777
35619 072601 777777 757777
35620 072602 660377 760000
35621 072603 600777 777777
35622 072604 777777 767777
35623 072605 661377 740000
35624 072606 600777 777777
35625 072607 777777 773777
35626 072610 662377 700000
35627 072611 600777 777777
35628 072612 777777 775777
35629 072613 663377 600000
35630 072614 600777 777777
35631 072615 777777 776777
35632 072616 664377 400000
35633 072617 600777 777777
35634 072620 777777 777377
35635 072621 665377 000000
35636 072622 600777 777777
35637 072623 777777 777577
35638 072624 666376 000000
35639 072625 600777 777777
35640 072626 777777 777677
35641 072627 667374 000000
35642 072630 600777 777777
35643 072631 777777 777737
35644 072632 670370 000000
35645 072633 600777 777777
35646 072634 777777 777757
35647 072635 671360 000000
35648 072636 600777 777777
35649 072637 777777 777767
35650 072640 672340 000000
35651 072641 600777 777777
35652 072642 777777 777773
35653 072643 673300 000000
35654 072644 600777 777777
35655 072645 777777 777775
35656 072646 674200 000000
35657 072647 600777 777777
35658 072650 777777 777776
35659 072651 674400 000000
35660 072652 200000 000000
35661 072653 400000 777777
35662 072654 000600 000000
35663 072655 000000 000000
35664 072656 001500 000000
35665 072657 377000 000000
35666 072660 000000 000000
35667 072661 377600 000000
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1-20
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0792
35668 072662 000000 000000
35669 072663 600400 000000
35670 072664 000000 000000
35671 072665 177400 000000
35672 072666 000000 000000
35673 072667 205400 000000
35674 072670 000000 000000
35675 072671 205410 000000
35676 072672 205600 000000
35677 072673 000000 000000
35678 072674 205610 000000
35679 072675 200700 000000
35680 072676 000000 000000
35681 072677 202400 000000
35682 072700 000000 000000
35683 072701 202500 000000
35684 072702 204400 000000
35685 072703 000000 000000
35686 072704 204420 000000
35687 072705 210400 000000
35688 072706 000000 000000
35689 072707 210401 000000
35690 072710 220400 000000
35691 072711 000000 000000
35692 072712 220400 002000
35693 072713 240400 000000
35694 072714 000000 000000
35695 072715 300400 000000
35696 072716 000000 000000
35697 072717 205604 000000
35698 072720 201000 000000
35699 072721 000000 000000
35700 072722 202000 000000
35701 072723 000000 000000
35702 072724 204000 000000
35703 072725 000000 000000
35704 072726 207000 000000
35705 072727 000000 000000
35706 072730 210000 000000
35707 072731 000000 000000
35708 072732 214000 000000
35709 072733 000000 000000
35710 072734 220000 000000
35711 072735 000000 000000
35712 072736 225000 000000
35713 072737 000000 000000
35714 072740 240000 000000
35715 072741 000000 000000
35716 072742 246000 000000
35717 072743 000000 000000
35718 072744 300000 000000
35719 072745 000000 000000
35720 072746 307000 000000
35721 072747 000000 000000
35722 072750 203000 000000
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1-21
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0793
35723 072751 000000 000000
35724 072752 206000 000000
35725 072753 000000 000000
35726 072754 400200 000000
35727 072755 000000 000000
35728 072756 377400 000000
35729 072757 000000 000000
35730 072760 401400 000000
35731 072761 201700 000000
35732 072762 577600 000000
35733 072763 000000 000000
35734 072764 577200 000000
35735 072765 000000 000000
35736 072766 576400 000000
35737 072767 000000 000000
35738 072770 200400 000077
35739 072771 000000 000000
35740 072772 206400 000000
35741 072773 000000 000000
35742 072774 206404 000000
35743 072775 030400 000003
35744 072776 000000 000000
35745 072777 032400 000000
35746 073000 000000 000000
35747 073001 032500 000000
35748 073002 201600 000000
35749 073003 000000 000000
35750 073004 577400 000003
35751 073005 000000 000000
35752 073006 201600 000001
35753 073007 200400 000003
35754 073010 000000 000000
35755 073011 200400 777777
35756 073012 000000 000000
35757 073013 202500 177777
35758 073014 200200 000001
35759 073015 000000 000000
35760 073016 200200 000002
35761 073017 000000 000000
35762 073020 200200 000004
35763 073021 000000 000000
35764 073022 200200 000010
35765 073023 000000 000000
35766 073024 200200 000020
35767 073025 000000 000000
35768 073026 200200 000040
35769 073027 000000 000000
35770 073030 200200 000100
35771 073031 000000 000000
35772 073032 200200 000200
35773 073033 000000 000000
35774 073034 200200 000400
35775 073035 000000 000000
35776 073036 200200 001000
35777 073037 000000 000000
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1-22
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0794
35778 073040 172400 000000
35779 073041 000000 000000
35780 073042 173400 000000
35781 073043 000000 000000
35782 073044 174400 000000
35783 073045 000000 000000
35784 073046 175400 000000
35785 073047 000000 000000
35786 073050 176400 000000
35787 073051 000000 000000
35788 073052 202600 000000
35789 073053 000000 000000
35790 073054 202700 000000
35791 073055 576200 000000
35792 073056 576300 000000
35793 073057 601400 000000
35794 073060 000000 000000
35795 073061 576340 000000
35796 073062 777700 000000
35797 073063 000000 000000
35798 073064 400400 000000
35799 073065 200777 777777
35800 073066 000000 000000
35801 073067 203400 000000
35802 073070 000000 000000
35803 073071 207400 000000
35804 073072 000000 000000
35805 073073 211400 000000
35806 073074 000000 000000
35807 073075 212400 000000
35808 073076 000000 000000
35809 073077 213400 000000
35810 073100 000000 000000
35811 073101 214400 000000
35812 073102 000000 000000
35813 073103 215400 000000
35814 073104 000000 000000
35815 073105 216400 000000
35816 073106 000000 000000
35817 073107 217400 000000
35818 073110 000000 000000
35819 073111 221400 000000
35820 073112 000000 000000
35821 073113 222400 000000
35822 073114 000000 000000
35823 073115 223400 000000
35824 073116 000000 000000
35825 073117 224400 000000
35826 073120 000000 000000
35827 073121 225400 000000
35828 073122 000000 000000
35829 073123 226400 000000
35830 073124 000000 000000
35831 073125 227400 000000
35832 073126 000000 000000
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1-23
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0795
35833 073127 230400 000000
35834 073130 000000 000000
35835 073131 231400 000000
35836 073132 000000 000000
35837 073133 232400 000000
35838 073134 000000 000000
35839 073135 233400 000000
35840 073136 000000 000000
35841 073137 200000 000003
35842 073140 000000 000000
35843 073141 200000 000005
35844 073142 000000 000000
35845 073143 200000 000011
35846 073144 000000 000000
35847 073145 200000 000021
35848 073146 000000 000000
35849 073147 200000 000041
35850 073150 000000 000000
35851 073151 200000 000101
35852 073152 000000 000000
35853 073153 200000 000201
35854 073154 000000 000000
35855 073155 200000 000401
35856 073156 000000 000000
35857 073157 200000 001001
35858 073160 000000 000000
35859 073161 200000 002001
35860 073162 000000 000000
35861 073163 200000 004001
35862 073164 000000 000000
35863 073165 200000 010001
35864 073166 000000 000000
35865 073167 200000 020001
35866 073170 000000 000000
35867 073171 200000 040001
35868 073172 000000 000000
35869 073173 200000 100001
35870 073174 000000 000000
35871 073175 200000 200001
35872 073176 000000 000000
35873 073177 200000 400001
35874 073200 000000 000000
35875 073201 000000 065247
35876 073202 376777 777777
35877 073203 777777 777776
35878 073204 000000 065270
35879 073205 000000 065307
35880 073206 000000 065330
35881 073207 000177 777777
35882 073210 777777 777777
35883 073211 000000 065347
35884 073212 400400 000000
35885 073213 000000 000000
35886 073214 401000 000000
35887 073215 000000 000002
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1-24
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0796
35888 073216 000000 065370
35889 073217 000000 065407
35890 073220 777600 000000
35891 073221 000000 000000
35892 073222 000000 065430
35893 073223 777600 000000
35894 073224 000000 000001
35895 073225 000000 065453
35896 073226 204770 000000
35897 073227 200477 777775
35898 073230 000000 000000
35899 073231 202660 000000
35900 073232 000000 065551
35901 073233 400400 000000
35902 073234 000000 000001
35903 073235 000000 065572
35904 073236 000000 065611
35905 073237 000000 065632
35906 073240 000000 065651
35907 073241 377377 777777
35908 073242 777777 777777
35909 073243 000000 065672
35910 073244 000000 065711
35911 073245 777000 000000
35912 073246 000000 000000
35913 073247 777400 000000
35914 073250 000000 000000
35915 073251 000000 065732
35916 073252 777000 000000
35917 073253 000000 000001
35918 073254 000000 065755
35919 073255 201400 000000
35920 073256 400000 777777
35921 073257 376400 000000
35922 073260 237400 000000
35923 073261 277400 000000
35924 073262 575400 000000
35925 073263 000000 000000
35926 073264 200777 777776
35927 073265 000000 000000
35928 073266 177777 777776
35929 073267 200777 777775
35930 073270 000000 000000
35931 073271 177777 777775
35932 073272 200777 777774
35933 073273 000000 000000
35934 073274 177777 777774
35935 073275 501700 000000
35936 073276 000000 000000
35937 073277 500400 000000
35938 073300 000000 000000
35939 073301 374100 000000
35940 073302 372400 000000
35941 073303 502700 000000
35942 073304 000000 000000
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1-25
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0797
35943 073305 373100 000000
35944 073306 371400 000000
35945 073307 503700 000000
35946 073310 000000 000000
35947 073311 372100 000000
35948 073312 370400 000000
35949 073313 504700 000000
35950 073314 000000 000000
35951 073315 371100 000000
35952 073316 367400 000000
35953 073317 505700 000000
35954 073320 000000 000000
35955 073321 370100 000000
35956 073322 366400 000000
35957 073323 177200 000000
35958 073324 177100 000000
35959 073325 177040 000000
35960 073326 177020 000000
35961 073327 177010 000000
35962 073330 177004 000000
35963 073331 177002 000000
35964 073332 500700 000000
35965 073333 000000 000000
35966 073334 503400 000000
35967 073335 500770 000000
35968 073336 000000 000000
35969 073337 501770 000000
35970 073340 506400 000000
35971 073341 200775 000000
35972 073342 000000 000000
35973 073343 200772 011000
35974 073344 200774 000000
35975 073345 000000 000000
35976 073346 200770 020000
35977 073347 200773 000000
35978 073350 000000 000000
35979 073351 200766 031000
35980 073352 177477 000000
35981 073353 000000 000000
35982 073354 177427 100000
35983 073355 000000 001400
35984 073356 200777 777773
35985 073357 000000 000000
35986 073360 200777 777772
35987 073361 000000 002400
35988 073362 500000 777777
35989 073363 000000 000000
35990 073364 200777 000000
35991 073365 000000 000000
35992 073366 500001 776777
35993 073367 500000 777770
35994 073370 000000 000000
35995 073371 500001 776770
35996 073372 376776 001001
35997 073373 377000 000400
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1-26
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0798
35998 073374 500000 777776
35999 073375 000000 000000
36000 073376 376776 001003
36001 073377 376000 002000
36002 073400 177000 000003
36003 073401 146777 777777
36004 073402 177700 000156
36005 073403 200400 000076
36006 073404 000000 000000
36007 073405 177700 000154
36008 073406 200400 000075
36009 073407 000000 000000
36010 073410 177700 000152
36011 073411 600400 000077
36012 073412 000000 000000
36013 073413 177660 000000
36014 073414 000000 000000
36015 073415 602120 000152
36016 073416 120000 000000
36017 073417 600400 000076
36018 073420 000000 000000
36019 073421 177600 000000
36020 073422 000000 000000
36021 073423 602200 000135
36022 073424 400000 000001
36023 073425 000000 000000
36024 073426 000000 067153
36025 073427 201777 777777
36026 073430 777777 777777
36027 073431 000000 067174
36028 073432 000000 067213
36029 073433 001400 000000
36030 073434 000000 000000
36031 073435 000000 067234
36032 073436 000000 067253
36033 073437 576000 000000
36034 073440 000000 000001
36035 073441 000000 067274
36036 073442 000000 067313
36037 073443 776400 000000
36038 073444 000000 000000
36039 073445 000000 067334
36040 073446 000000 067357
36041 073447 200400 000000
36042 073450 400000 777777
36043 073451 200740 000000
36044 073452 000000 000000
36045 073453 201740 000000
36046 073454 576252 525252
36047 073455 600600 000000
36048 073456 000000 000000
36049 073457 377400 777777
36050 073460 000000 000000
36051 073461 577400 777777
36052 073462 000000 000000
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1-27
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0799
36053 073463 777375 773771
36054 073464 373773 776004
36055 073465 577775 000000
36056 073466 000000 000000
36057 073467 577777 000000
36058 073470 000000 000000
36059 073471 577774 000000
36060 073472 000000 000000
36061 073473 210777 777777
36062 073474 000000 000000
36063 073475 170750 000000
36064 073476 000000 000000
36065 073477 221414 456123
36066 073500 150726 020623
36067 073501 170555 000000
36068 073502 000000 000000
36069 073503 221547 063714
36070 073504 314631 463146
36071 073505 577000 555555
36072 073506 000000 000000
36073 073507 576000 555555
36074 073510 210777 777777
36075 073511 777777 777777
36076 073512 221547 063715
36077 073513 200263 431746
36078 073514 210777 777775
36079 073515 000000 000000
36080 073516 221547 063713
36081 073517 145545 545546
36082 073520 377400 000000
36083 073521 555000 000000
36084 073522 100777 000000
36085 073523 000000 000000
36086 073524 077400 400400
36087 073525 355355 355355
36088 073526 200000 003000
36089 073527 170555 600000
36090 073530 000000 000000
36091 073531 221546 272702
36092 073532 301417 730634
36093 073533 170557 000000
36094 073534 000000 000000
36095 073535 221545 111740
36096 073536 234200 262445
36097 073537 170560 000000
36098 073540 000000 000000
36099 073541 221544 131025
36100 073542 220544 131026
36101 073543 200200 200200
36102 073544 376400 000000
36103 073545 000000 000000
36104 073546 076400 400400
36105 073547 375400 000000
36106 073550 000000 000000
36107 073551 075400 400400
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1-28
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0800
36108 073552 374400 000000
36109 073553 000000 000000
36110 073554 074400 400400
36111 073555 373400 000000
36112 073556 000000 000000
36113 073557 073400 400400
36114 073560 372400 000000
36115 073561 000000 000000
36116 073562 072400 400400
36117 073563 210777 000000
36118 073564 000000 000000
36119 073565 170400 400400
36120 073566 371400 000000
36121 073567 000000 000000
36122 073570 071400 400400
36123 073571 370400 000000
36124 073572 000000 000000
36125 073573 070400 400400
36126 073574 367400 000000
36127 073575 000000 000000
36128 073576 067400 400400
36129 073577 373400 000000
36130 073600 200777 000000
36131 073601 073400 400401
36132 073602 001400 400401
36133 073603 001400 400400
36134 073604 000000 070110
36135 073605 376777 777777
36136 073606 777777 777777
36137 073607 000000 070131
36138 073610 000000 070150
36139 073611 000000 070171
36140 073612 000000 070210
36141 073613 000000 070231
36142 073614 000000 070250
36143 073615 000000 070271
36144 073616 000000 070310
36145 073617 000000 070327
36146 073620 201200 000000
36147 073621 000000 000000
36148 073622 002000 010000
36149 073623 76 64 45 63 64 00
36150 073624 60 41 63 63 00 43
36151 073625 57 65 56 64 00 35
36152 073626 00 77 00 00 00 00
36153 073627 76 60 43 00 35 00
36154 073630 00 00 77 00 00 00
36155 073631 76 62 45 63 65 54
36156 073632 64 00 00 35 00 77
36157 073633 76 46 41 65 54 64
36158 073634 00 56 65 55 42 45
36159 073635 62 00 35 00 77 00
36160 073636 103 050 101 103 051
36161 073637 040 106 101 111 114
36162 073640 105 104 000 000 000
DFKCA KL10 ADVANCED INSTRUCTION DIAGNOSTIC #1, VERSION 0,2 MACRO %53(1026) 13:57 3-Oct-80 Page 1-29
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0801
36163 073641 103 050 101 103 053
36164 073642 061 051 040 106 101
36165 073643 111 114 105 104 000
36166 073644 103 050 105 051 040
36167 073645 106 101 111 114 105
36168 073646 104 000 000 000 000
36169 073647 103 050 105 053 061
36170 073650 051 040 106 101 111
36171 073651 114 105 104 000 000
36172 073652 103 050 103 050 101
36173 073653 103 122 051 051 040
36174 073654 106 101 111 114 105
36175 073655 104 000 000 000 000
36176 073656 103 050 103 050 101
36177 073657 103 122 053 061 051
36178 073660 051 040 106 101 111
36179 073661 114 105 104 000 000
36180 073662 103 050 103 050 101
36181 073663 103 114 051 051 040
36182 073664 106 101 111 114 105
36183 073665 104 000 000 000 000
36184 073666 103 050 103 050 105
36185 073667 051 051 040 106 101
36186 073670 111 114 105 104 000
36187 073671 106 114 101 107 040
36188 073672 106 101 111 114 105
36189 073673 104 000 000 000 000
36190 LIST
36191 073674 000000 000000 ENDSLD: 0
36192
36193 IFDEF DEBUG,<
36194 073675 PATCH: BLOCK DEBUG ;PATCHING AREA
36195 >
36196
36197 ;PROGRAM VARIABLES
36198 073775 VAR
36199
36200 IFDEF PGMEND,<
36201 074006 000000 000000 END: 0
36202 030000 END BEGIN >
NO ERRORS DETECTED
PROGRAM BREAK IS 000000
ABSOLUTE BREAK IS 074007
CPU TIME USED 02:06.430
46P CORE USED
ABORT 581#
AC 1171# 1173 1174 1175 1176 1178 1179 1180 1181 1182 1183 1190# 1192 1193 SEQ 0802
1194 1195 1197 1198 1199 1200 1201 1202 1208# 1210 1211 1212 1213 1215
1216 1217 1218 1219 1220 1227# 1229 1230 1231 1232 1234 1235 1236 1237
1238 1239 1245# 1247 1248 1249 1250 1252 1253 1254 1255 1256 1257 1264#
1266 1267 1268 1269 1288 1289 1290 1291 1292 1293 1298 1299 1300 1301
1302 1303 1308 1309 1310 1311 1312 1313 1318 1319 1320 1321 1322 1323
1328 1329 1330 1331 1332 1333 1338 1339 1340 1341 1342 1343 1348 1349
1350 1351 1352 1353 1362# 1364 1365 1366 1367 1390 1391 1392 1393 1394
1395 1401 1402 1403 1404 1405 1406 1412 1413 1414 1415 1416 1417 1423
1424 1425 1426 1427 1428 1434 1435 1436 1437 1438 1439 1445 1446 1447
1448 1449 1450 1456 1457 1458 1459 1460 1461 1470# 1472 1473 1474 1475
1477 1478 1479 1480 1481 1482 1488# 1490 1491 1492 1493 1513 1514 1515
1516 1517 1518 1523 1524 1525 1526 1527 1528 1533 1534 1535 1536 1537
1538 1543 1544 1545 1546 1547 1548 1553 1554 1555 1556 1557 1558 1563
1564 1565 1566 1567 1568 1573 1574 1575 1576 1577 1578 1587# 1589 1590
1591 1592 1595 1596 1597 1598 1599 1600 1603 1604 1605 1606 1607 1608
1611 1612 1613 1614 1615 1616 1619 1620 1621 1622 1623 1624 1626 1627
1628 1629 1630 1631 1634 1635 1636 1637 1638 1639 1642 1643 1644 1645
1646 1647 1650 1651 1652 1653 1654 1655 1661# 1663 1664 1665 1666 1668
1669 1670 1671 1672 1673 1680# 1682 1683 1684 1685 1687 1688 1689 1690
1691 1692 1700# 1702 1703 1704 1705 1721 1722 1723 1724 1725 1726 1730
1731 1732 1733 1734 1735 1739 1740 1741 1742 1743 1744 1748 1749 1750
1751 1752 1753 1757 1758 1759 1760 1761 1762 1766 1767 1768 1769 1770
1771 1775 1776 1777 1778 1779 1780 1784 1785 1786 1787 1788 1789 1794#
1796 1797 1798 1799 1801 1802 1803 1804 1805 1806 1811# 1813 1814 1815
1816 1818 1819 1820 1821 1822 1823 1830# 1832 1833 1834 1835 1837 1838
1839 1840 1841 1842 1849# 1851 1852 1853 1854 1856 1857 1858 1859 1860
1861 1868# 1870 1871 1872 1873 1875 1876 1877 1878 1879 1880 1888# 1890
1891 1892 1893 1897 1898 1899 1901 1902 1906 1907 1908 1910 1911 1915
1916 1917 1918 1919 1920 1921 1930# 1932 1933 1934 1935 1937 1938 1939
1940 1941 1953# 1955 1956 1957 1958 1960 1961 1962 1963 1964 1965 1966
1976# 1978 1979 1980 1981 1983 1984 1985 1986 1987 1988 1995# 1997 1998
1999 2000 2002 2003 2004 2005 2006 2007 2008 2016# 2018 2019 2020 2021
2023 2024 2025 2026 2027 2028 2029 2035# 2037 2038 2039 2040 2042 2043
2044 2045 2046 2047 2048 2055# 2057 2058 2059 2060 2062 2063 2064 2065
2066 2067 2068 2075# 2077 2078 2079 2080 2082 2083 2084 2085 2086 2087
2088 2099# 2101 2102 2103 2104 2106 2107 2108 2109 2110 2111 2112 2113
2114 2115 2124# 2126 2127 2128 2129 2131 2132 2133 2134 2135 2136 2137
2145# 2147 2148 2149 2150 2152 2153 2154 2155 2156 2157 2158 2167# 2169
2170 2171 2172 2174 2175 2176 2177 2178 2179 2180 2188# 2190 2191 2192
2193 2195 2196 2197 2198 2199 2200 2201 2210# 2212 2213 2214 2215 2217
2218 2219 2220 2221 2222 2223 2232# 2234 2235 2236 2237 2239 2240 2241
2242 2243 2244 2252# 2254 2255 2256 2257 2275 2276 2277 2278 2279 2280
2281 2285 2286 2287 2288 2289 2290 2291 2295 2296 2297 2298 2299 2300
2301 2305 2306 2307 2308 2309 2310 2311 2315 2316 2317 2318 2319 2320
2321 2325 2326 2327 2328 2329 2330 2331 2335 2336 2337 2338 2339 2340
2341 2349# 2351 2352 2353 2354 2356 2357 2358 2359 2360 2361 2362 2370#
2372 2373 2374 2375 2377 2378 2379 2380 2381 2382 2391# 2393 2394 2395
2396 2398 2399 2400 2401 2402 2403 2404 2414# 2416 2417 2418 2419 2421
2422 2423 2424 2425 2426 2432# 2434 2435 2436 2437 2439 2440 2441 2442
2443 2444 2445 2452# 2454 2455 2456 2457 2459 2460 2461 2462 2463 2464
2465 2475# 2477 2478 2479 2480 2483 2484 2485 2486 2487 2488 2489 2492
2493 2494 2495 2496 2497 2498 2501 2502 2503 2504 2505 2506 2507 2510
2511 2512 2513 2514 2515 2516 2518 2519 2520 2521 2522 2523 2524 2527 SEQ 0803
2528 2529 2530 2531 2532 2533 2536 2537 2538 2539 2540 2541 2542 2548#
2550 2551 2552 2553 2555 2556 2557 2558 2559 2560 2561 2564 2565 2566
2567 2568 2569 2570 2573 2574 2575 2576 2577 2578 2579 2582 2583 2584
2585 2586 2587 2588 2590 2591 2592 2593 2594 2595 2596 2599 2600 2601
2602 2603 2604 2605 2608 2609 2610 2611 2612 2613 2614 2617 2618 2619
2620 2621 2622 2623 2630# 2632 2633 2634 2635 2637 2638 2639 2640 2641
2642 2643 2651# 2653 2654 2655 2656 2658 2659 2660 2661 2662 2663 2664
2671# 2673 2674 2675 2676 2678 2679 2680 2681 2682 2683 2690# 2692 2693
2694 2695 2697 2698 2699 2700 2701 2702 2703 2712# 2714 2715 2716 2717
2719 2720 2721 2722 2723 2724 2725 2733# 2735 2736 2737 2738 2740 2741
2742 2743 2744 2745 2746 2756# 2759 2760 2761 2762 2764 2765 2766 2767
2768 2769 2770 2778# 2780 2781 2782 2783 2785 2786 2787 2788 2789 2790
2791 2798# 2800 2801 2802 2803 2805 2806 2807 2808 2809 2810 2811 2817#
2819 2820 2821 2822 2824 2825 2826 2827 2828 2829 2830 2837# 2839 2840
2841 2842 2844 2845 2846 2847 2848 2849 2850 2857# 2859 2860 2861 2862
2864 2865 2866 2867 2868 2869 2870 2882# 2884 2885 2886 2887 2889 2890
2891 2892 2893 2894 2895 2896 2905# 2907 2908 2909 2910 2912 2913 2914
2915 2916 2917 2918 2919 2920 2928# 2930 2931 2932 2933 2935 2936 2937
2938 2939 2940 2941 2942 2955# 2957 2958 2959 2960 2962 2963 2964 2965
2966 2967 2968 2969 2975# 2977 2978 2979 2980 2982 2983 2985 2987 2988
2990 3003# 3005 3006 3007 3008 3010 3011 3012 3013 3014 3015 3016 3017
3018 3019 3029# 3031 3032 3033 3034 3036 3037 3038 3039 3040 3041 3042
3050# 3052 3053 3054 3055 3057 3058 3059 3060 3061 3062 3063 3064 3074#
3076 3077 3078 3079 3081 3082 3083 3084 3085 3086 3087 3094# 3096 3097
3098 3099 3101 3102 3103 3104 3105 3106 3115# 3117 3118 3119 3120 3122
3123 3124 3125 3126 3127 3128 3136# 3138 3139 3140 3141 3143 3144 3145
3146 3147 3148 3149 3150 3162# 3164 3165 3166 3167 3189 3190 3191 3192
3193 3194 3200 3201 3202 3203 3204 3205 3211 3212 3213 3214 3215 3216
3222 3223 3224 3225 3226 3227 3233 3234 3235 3236 3237 3238 3244 3245
3246 3247 3248 3249 3255 3256 3257 3258 3259 3260 3266 3267 3268 3269
3270 3271 3280# 3282 3283 3284 3285 3304 3305 3306 3307 3308 3309 3314
3315 3316 3317 3318 3319 3324 3325 3326 3327 3328 3329 3334 3335 3336
3337 3338 3339 3344 3345 3346 3347 3348 3349 3354 3355 3356 3357 3358
3359 3364 3365 3366 3367 3368 3369 3377# 3379 3380 3381 3382 3407 3408
3409 3410 3411 3412 3419 3420 3421 3422 3423 3424 3431 3432 3433 3434
3435 3436 3443 3444 3445 3446 3447 3448 3455 3456 3457 3458 3459 3460
3467 3468 3469 3470 3471 3472 3479 3480 3481 3482 3483 3484 3491 3492
3493 3494 3495 3496 3505# 3507 3508 3509 3510 3530 3531 3532 3533 3534
3535 3540 3541 3542 3543 3544 3545 3550 3551 3552 3553 3554 3555 3560
3561 3562 3563 3564 3565 3570 3571 3572 3573 3574 3575 3580 3581 3582
3583 3584 3585 3590 3591 3592 3593 3594 3595 3600 3601 3602 3603 3604
3605 3613# 3615 3616 3617 3618 3636 3637 3638 3639 3640 3645 3646 3647
3648 3649 3654 3655 3656 3657 3658 3667# 3669 3670 3671 3672 3692 3693
3694 3695 3696 3697 3702 3703 3704 3705 3706 3707 3712 3713 3714 3715
3716 3717 3725# 3727 3728 3729 3730 3750 3751 3752 3753 3754 3755 3760
3761 3762 3763 3764 3765 3770 3771 3772 3773 3774 3775 3785# 3787 3788
3789 3790 3807 3808 3809 3810 3811 3812 3816 3817 3818 3819 3820 3821
3825 3826 3827 3828 3829 3830 3834 3835 3836 3837 3838 3839 3843 3844
3845 3846 3847 3848 3852 3853 3854 3855 3856 3857 3861 3862 3863 3864
3865 3866 3870 3871 3872 3873 3874 3875 3879 3880 3881 3882 3883 3884
3905 3906 3907 3908 3909 3910 3911 3912 3917 3918 3919 3920 3921 3922
3923 3924 3929 3930 3931 3932 3933 3934 3935 3936 3941 3942 3943 3944
3945 3946 3947 3948 3953 3954 3955 3956 3957 3958 3959 3960 3965 3966 SEQ 0804
3967 3968 3969 3970 3971 3972 3977 3978 3979 3980 3981 3982 3983 3984
3989 3990 3991 3992 3993 3994 3995 3996 4001 4002 4003 4004 4005 4006
4007 4008 4013 4014 4015 4016 4017 4018 4019 4020 4025 4026 4027 4028
4029 4030 4031 4032 4037 4038 4039 4040 4041 4042 4043 4044 4049 4050
4051 4052 4053 4054 4055 4056 4061 4062 4063 4064 4065 4066 4067 4068
4073 4074 4075 4076 4077 4078 4079 4080 4085 4086 4087 4088 4089 4090
4091 4092 4097 4098 4099 4100 4101 4102 4103 4104 4109 4110 4111 4112
4113 4114 4115 4116 4124# 4126 4127 4128 4129 4154 4155 4156 4157 4158
4159 4160 4161 4162 4168 4169 4170 4171 4172 4173 4174 4175 4176 4182
4183 4184 4185 4186 4187 4188 4189 4190 4196 4197 4198 4199 4200 4201
4202 4203 4204 4210 4211 4212 4213 4214 4215 4216 4217 4218 4224 4225
4226 4227 4228 4229 4230 4231 4232 4238 4239 4240 4241 4242 4243 4244
4245 4246 4252 4253 4254 4255 4256 4257 4258 4259 4260 4266 4267 4268
4269 4270 4271 4272 4273 4274 4280 4281 4282 4283 4284 4285 4286 4287
4288 4297# 4299 4300 4301 4302 4323 4324 4325 4326 4327 4328 4329 4334
4335 4336 4337 4338 4339 4340 4345 4346 4347 4348 4349 4350 4351 4356
4357 4358 4359 4360 4361 4362 4367 4368 4369 4370 4371 4372 4373 4378
4379 4380 4381 4382 4383 4384 4392# 4394 4395 4396 4397 4399 4400 4401
4402 4403 4404 4405 4407 4408 4409 4410 4411 4412 4413 4415 4416 4417
4418 4419 4420 4421 4428# 4430 4431 4432 4433 4450 4451 4452 4453 4454
4455 4459 4460 4461 4462 4463 4464 4468 4469 4470 4471 4472 4473 4482#
4484 4485 4486 4487 4504 4505 4506 4507 4508 4509 4513 4514 4515 4516
4517 4518 4522 4523 4524 4525 4526 4527 4536# 4538 4539 4540 4541 4562
4563 4564 4565 4566 4567 4568 4573 4574 4575 4576 4577 4578 4579 4584
4585 4586 4587 4588 4589 4590 4599# 4601 4602 4603 4604 4625 4626 4627
4628 4629 4630 4631 4636 4637 4638 4639 4640 4641 4642 4647 4648 4649
4650 4651 4652 4653 4661# 4663 4664 4665 4666 4690 4691 4692 4693 4694
4695 4696 4702 4703 4704 4705 4706 4707 4708 4714 4715 4716 4717 4718
4719 4720 4730# 4732 4733 4734 4735 4759 4760 4761 4762 4763 4764 4765
4771 4772 4773 4774 4775 4776 4777 4783 4784 4785 4786 4787 4788 4789
4798# 4800 4801 4802 4803 4824 4825 4826 4827 4828 4829 4830 4835 4836
4837 4838 4839 4840 4841 4846 4847 4848 4849 4850 4851 4852 4862# 4864
4865 4866 4867 4891 4892 4893 4894 4895 4896 4897 4903 4904 4905 4906
4907 4908 4909 4915 4916 4917 4918 4919 4920 4921 4931# 4933 4934 4935
4936 4961 4962 4963 4964 4965 4966 4967 4968 4969 4975 4976 4977 4978
4979 4980 4981 4982 4983 4989 4990 4991 4992 4993 4994 4995 4996 4997
5003 5004 5005 5006 5007 5008 5009 5010 5011 5017 5018 5019 5020 5021
5022 5023 5024 5025 5031 5032 5033 5034 5035 5036 5037 5038 5039 5045
5046 5047 5048 5049 5050 5051 5052 5053 5059 5060 5061 5062 5063 5064
5065 5066 5067 5073 5074 5075 5076 5077 5078 5079 5080 5081 5087 5088
5089 5090 5091 5092 5093 5094 5095 5101 5102 5103 5104 5105 5106 5107
5108 5109 5115 5116 5117 5118 5119 5120 5121 5122 5123 5129 5130 5131
5132 5133 5134 5135 5136 5137 5143 5144 5145 5146 5147 5148 5149 5150
5151 5157 5158 5159 5160 5161 5162 5163 5164 5165 5171 5172 5173 5174
5175 5176 5177 5178 5179 5185 5186 5187 5188 5189 5190 5191 5192 5193
5199 5200 5201 5202 5203 5204 5205 5206 5207 5232 5233 5234 5235 5236
5237 5238 5239 5240 5246 5247 5248 5249 5250 5251 5252 5253 5254 5260
5261 5262 5263 5264 5265 5266 5267 5268 5274 5275 5276 5277 5278 5279
5280 5281 5282 5288 5289 5290 5291 5292 5293 5294 5295 5296 5302 5303
5304 5305 5306 5307 5308 5309 5310 5316 5317 5318 5319 5320 5321 5322
5323 5324 5332# 5334 5335 5336 5337 5341 5342 5343 5344 5345 5346 5347
5349 5350 5354 5355 5356 5357 5359 5360 5364 5365 5366 5367 5368 5369
5370 5371 5377# 5379 5380 5381 5382 5384 5385 5386 5387 5388 5389 5390 SEQ 0805
5391 5392 5399# 5401 5402 5403 5404 5406 5407 5408 5409 5410 5411 5412
5413 5414 5421# 5423 5424 5425 5426 5452 5453 5454 5455 5456 5457 5458
5459 5460 5461 5462 5463 5468 5469 5470 5471 5472 5473 5474 5475 5476
5477 5478 5479 5484 5485 5486 5487 5488 5489 5490 5491 5492 5493 5494
5495 5500 5501 5502 5503 5504 5505 5506 5507 5508 5509 5510 5511 5516
5517 5518 5519 5520 5521 5522 5523 5524 5525 5526 5527 5532 5533 5534
5535 5536 5537 5538 5539 5540 5541 5542 5543 5548 5549 5550 5551 5552
5553 5554 5555 5556 5557 5558 5559 5564 5565 5566 5567 5568 5569 5570
5571 5572 5573 5574 5575 5580 5581 5582 5583 5584 5585 5586 5587 5588
5589 5590 5591 5596 5597 5598 5599 5600 5601 5602 5603 5604 5605 5606
5607 5612 5613 5614 5615 5616 5617 5618 5619 5620 5621 5622 5623 5628
5629 5630 5631 5632 5633 5634 5635 5636 5637 5638 5639 5644 5645 5646
5647 5648 5649 5650 5651 5652 5653 5654 5655 5660 5661 5662 5663 5664
5665 5666 5667 5668 5669 5670 5671 5676 5677 5678 5679 5680 5681 5682
5683 5684 5685 5686 5687 5692 5693 5694 5695 5696 5697 5698 5699 5700
5701 5702 5703 5708 5709 5710 5711 5712 5713 5714 5715 5716 5717 5718
5719 5726# 5728 5729 5730 5731 5733 5734 5735 5736 5737 5738 5739 5740
5747# 5749 5750 5751 5752 5754 5755 5756 5757 5758 5759 5760 5761 5762
5770# 5772 5773 5774 5775 5777 5778 5779 5780 5781 5782 5783 5784 5785
5792# 5794 5795 5796 5797 5799 5800 5801 5802 5803 5804 5805 5806 5807
5816# 5818 5819 5820 5821 5823 5824 5825 5826 5827 5828 5829 5830 5831
5832 5833 5836# 5838 5839 5840 5841 5845 5846 5847 5848 5849 5850 5853
5854 5855 5856 5860 5861 5862 5863 5864 5865 5867 5868 5869 5870 5871
5872 5876 5877 5878 5879 5880 5881 5883 5884 5885 5886 5887 5888 5891
5892 5893 5894 5895 5896 5898 5901 5902 5903 5904 5905 5907 5908 5913
5914 5915 5916 5917 5918 5920 5923 5924 5925 5926 5927 5929 5930 5935
5936 5937 5938 5939 5940 5943 5944 5945 5946 5949 5950 5951 5952 5953
5954 5957 5958 5959 5960 5964 5965 5966 5967 5968 5969 5971 5972 5973
5974 5975 5976 5979 5980 5981 5982 5983 5984 5987 5988 5989 5990 5994
5995 5996 5997 5998 5999 6001 6002 6003 6004 6005 6006 6010 6011 6012
6013 6014 6015 6017 6018 6019 6020 6021 6022 6025 6026 6027 6028 6029
6030 6032 6033 6034 6035 6036 6037 6041 6042 6043 6044 6045 6046 6048
6049 6050 6053 6054 6055 6057 6058 6063 6064 6065 6066 6067 6068 6070
6071 6072 6075 6076 6077 6079 6080 6084 6085 6086 6087 6088 6089 6092
6093 6094 6095 6099 6100 6101 6102 6103 6104 6107 6108 6109 6110 6113
6114 6115 6116 6117 6118 6121 6122 6123 6124 6128 6129 6130 6131 6132
6133 6135 6136 6137 6138 6139 6140 6144 6145 6146 6147 6148 6149 6151
6152 6153 6154 6155 6156 6159 6160 6161 6162 6163 6164 6166 6169 6170
6171 6172 6173 6175 6176 6181 6182 6183 6184 6185 6186 6188 6191 6192
6193 6194 6195 6197 6198 6203 6204 6205 6206 6207 6208 6211 6212 6213
6214 6217 6218 6219 6220 6221 6222 6225 6226 6227 6228 6232 6233 6234
6235 6236 6237 6239 6240 6241 6242 6243 6244 6247 6248 6249 6250 6251
6252 6255 6256 6257 6258 6262 6263 6264 6265 6266 6267 6269 6270 6271
6272 6273 6274 6278 6279 6280 6281 6282 6283 6285 6286 6287 6288 6289
6290 6293 6294 6295 6296 6297 6298 6300 6301 6302 6303 6304 6305 6309
6310 6311 6312 6313 6314 6316 6317 6318 6321 6322 6323 6325 6326 6331
6332 6333 6334 6335 6336 6338 6339 6340 6343 6344 6345 6347 6348 6352
6353 6354 6355 6356 6357 6360 6361 6362 6363 6367 6368 6369 6370 6371
6372 6375 6376 6377 6378 6393# 6395 6396 6397 6398 6401 6402 6403 6404
6405 6406 6409 6410 6411 6412 6413 6414 6422# 6424 6425 6426 6427 6430
6431 6432 6433 6434 6436 6437 6438 6439 6446# 6448 6449 6450 6451 6454
6455 6456 6457 6458 6459 6460 6461 6462 6464 6466 6467 6475# 6477 6478
6479 6480 6483 6484 6485 6486 6487 6489 6490 6491 6492 6499# 6501 6502 SEQ 0806
6503 6504 6507 6508 6509 6510 6511 6513 6514 6515 6516 6525# 6527 6528
6529 6530 6532 6533 6534 6535 6536 6538 6540 6541 6542 6543 6555# 6557
6558 6559 6560 6578 6579 6580 6581 6582 6583 6584 6588 6589 6590 6591
6592 6593 6594 6613 6614 6615 6616 6617 6618 6619 6623 6624 6625 6626
6627 6628 6629 6633 6634 6635 6636 6637 6638 6639 6647# 6649 6650 6651
6652 6654 6655 6656 6657 6658 6659 6666# 6668 6669 6670 6671 6674 6675
6676 6677 6678 6680 6681 6682 6683 6693# 6695 6696 6697 6698 6716 6717
6718 6719 6720 6721 6722 6726 6727 6728 6729 6730 6731 6732 6736 6737
6738 6739 6740 6741 6742 6760 6761 6762 6763 6764 6765 6766 6770 6771
6772 6773 6774 6775 6776 6794 6795 6796 6797 6798 6799 6800 6804 6805
6806 6807 6808 6809 6810 6814 6815 6816 6817 6818 6819 6820 6825 6826
6827 6828 6829 6830 6831 6832 6833 6834 6835 6843# 6845 6846 6847 6848
6850 6851 6852 6853 6854 6855 6856 6864# 6866 6867 6868 6869 6872 6873
6874 6875 6876 6877 6878 6881 6882 6883 6884 6885 6886 6887 6889 6890
6891 6892 6893 6894 6895 6902# 6904 6905 6906 6907 6909 6910 6911 6912
6913 6914 6915 6923# 6925 6926 6927 6928 6930 6931 6932 6933 6934 6935
6936 6943# 6945 6946 6947 6948 6951 6952 6953 6954 6955 6957 6958 6959
6960 6961 6962 6970# 6972 6973 6974 6975 6977 6978 6979 6980 6981 6982
6983 6990# 6992 6993 6994 6995 6997 6998 6999 7000 7001 7002 7003 7011#
7013 7014 7015 7016 7019 7020 7021 7022 7023 7024 7025 7026 7027 7028
7029 7037# 7039 7040 7041 7042 7045 7046 7047 7048 7049 7052 7053 7054
7055 7063# 7065 7066 7067 7068 7070 7071 7072 7073 7074 7075 7076 7089#
7091 7092 7093 7094 7113 7114 7115 7116 7117 7118 7119 7124 7125 7126
7127 7128 7129 7130 7135 7136 7137 7138 7139 7140 7141 7146 7147 7148
7149 7150 7151 7152 7157 7158 7159 7160 7161 7162 7163 7168 7169 7170
7171 7172 7173 7174 7179 7180 7181 7182 7183 7184 7185 7195# 7197 7198
7199 7200 7219 7220 7221 7222 7223 7224 7225 7230 7231 7232 7233 7234
7235 7236 7241 7242 7243 7244 7245 7246 7247 7252 7253 7254 7255 7256
7257 7258 7263 7264 7265 7266 7267 7268 7269 7274 7275 7276 7277 7278
7279 7280 7285 7286 7287 7288 7289 7290 7291 7300# 7302 7303 7304 7305
7325 7326 7327 7328 7329 7330 7331 7336 7337 7338 7339 7340 7341 7342
7347 7348 7349 7350 7351 7352 7353 7360# 7362 7363 7364 7365 7383 7384
7385 7386 7387 7388 7389 7390 7391 7395 7396 7397 7398 7399 7400 7401
7402 7403 7407 7408 7409 7410 7411 7412 7413 7414 7415 7419 7420 7421
7422 7423 7424 7425 7426 7427 7435# 7437 7438 7439 7440 7442 7443 7444
7445 7446 7447 7455# 7457 7458 7459 7460 7462 7463 7464 7465 7466 7467
7468 7475# 7477 7478 7479 7480 7500 7501 7502 7503 7504 7505 7506 7511
7512 7513 7514 7515 7516 7517 7522 7523 7524 7525 7526 7527 7528 7533
7534 7535 7536 7537 7538 7539 7544 7545 7546 7547 7548 7549 7550 7560#
7562 7563 7564 7565 7585 7586 7587 7588 7589 7590 7591 7596 7597 7598
7599 7600 7601 7602 7607 7608 7609 7610 7611 7612 7613 7618 7619 7620
7621 7622 7623 7624 7629 7630 7631 7632 7633 7634 7635 7640 7641 7642
7643 7644 7645 7646 7651 7652 7653 7654 7655 7656 7657 7664# 7666 7667
7668 7669 7691 7692 7693 7694 7695 7696 7697 7698 7699 7704 7705 7706
7707 7708 7709 7710 7711 7712 7721# 7723 7724 7725 7726 7730 7731 7732
7733 7734 7735 7741# 7743 7744 7745 7746 7748 7749 7750 7751 7752 7753
7754 7755 7756 7757 7764# 7766 7767 7768 7769 7771 7772 7773 7774 7775
7776 7777 7778 7779 7780 7786# 7788 7789 7790 7791 7793 7794 7795 7796
7797 7798 7799 7800 7807# 7809 7810 7811 7812 7814 7815 7816 7817 7818
7819 7820 7821 7822 7823 7830# 7832 7833 7834 7835 7837 7838 7839 7840
7841 7842 7843 7844 7845 7846 7853# 7855 7856 7857 7858 7882 7883 7884
7885 7886 7887 7888 7889 7890 7891 7892 7897 7898 7899 7900 7901 7902
7903 7904 7905 7906 7907 7914# 7916 7917 7918 7919 7921 7922 7923 7924 SEQ 0807
7925 7926 7927 7928 7929 7930 7931 7938# 7940 7941 7942 7943 7945 7946
7947 7948 7949 7950 7951 7952 7953 7959# 7961 7962 7963 7964 7985 7986
7987 7988 7989 7990 7991 7992 7997 7998 7999 8000 8001 8002 8003 8004
8012# 8014 8015 8016 8017 8038 8039 8040 8041 8042 8043 8049 8050 8051
8052 8053 8054 8065# 8067 8068 8069 8070 8074 8075 8076 8077 8078 8079
8080 8081 8082 8085 8086 8093# 8095 8096 8097 8098 8115 8116 8117 8118
8119 8120 8121 8125 8126 8127 8128 8129 8130 8131 8135 8136 8137 8138
8139 8140 8141 8148# 8150 8151 8152 8153 8173 8174 8175 8176 8177 8178
8179 8184 8185 8186 8187 8188 8189 8190 8195 8196 8197 8198 8199 8200
8201 8208# 8210 8211 8212 8213 8236 8237 8238 8239 8240 8241 8242 8248
8249 8250 8251 8252 8253 8254 8260 8261 8262 8263 8264 8265 8266 8273#
8275 8276 8277 8278 8299 8300 8301 8302 8303 8304 8305 8310 8311 8312
8313 8314 8315 8316 8325# 8327 8328 8329 8330 8332 8333 8334 8335 8336
8337 8338 8344# 8346 8347 8348 8349 8351 8352 8353 8354 8355 8356 8357
8358 8366# 8368 8369 8370 8371 8391 8392 8393 8394 8395 8396 8397 8402
8403 8404 8405 8406 8407 8408 8415# 8417 8418 8419 8420 8422 8423 8424
8425 8426 8427 8428 8429 8430 8431 8432 8433 8440# 8442 8443 8444 8445
8449 8450 8451 8452 8453 8454 8455 8464# 8466 8467 8468 8469 8473 8474
8475 8476 8477 8478 8479 8485# 8487 8488 8489 8490 8507 8508 8509 8510
8511 8512 8513 8517 8518 8519 8520 8521 8522 8523 8531# 8533 8534 8535
8536 8538 8539 8540 8541 8542 8543 8544 8545 8546 8547 8548 8554# 8556
8557 8558 8559 8561 8562 8563 8564 8565 8566 8567 8568 8569 8570 8571
8578# 8580 8581 8582 8583 8585 8586 8587 8588 8589 8590 8591 8592 8593
8594 8595 8601# 8603 8604 8605 8606 8632 8633 8634 8635 8636 8637 8638
8639 8640 8641 8647 8648 8649 8650 8651 8652 8653 8654 8655 8656 8663#
8665 8666 8667 8668 8670 8671 8672 8673 8674 8675 8676 8677 8678 8685#
8687 8688 8689 8690 8692 8693 8694 8695 8696 8697 8698 8699 8700 8706#
8708 8709 8710 8711 8713 8714 8715 8716 8717 8718 8719 8720 8721 8722
8723 8724 8731# 8733 8734 8735 8736 8738 8739 8740 8741 8742 8743 8744
8745 8746 8752# 8754 8755 8756 8757 8759 8760 8761 8762 8763 8764 8765
8766 8767 8768 8769 8776# 8778 8779 8780 8781 8783 8784 8785 8786 8787
8788 8789 8790 8791 8797# 8799 8800 8801 8802 8826 8827 8828 8829 8830
8831 8832 8833 8834 8835 8840 8841 8842 8843 8844 8845 8846 8847 8848
8849 8854 8855 8856 8857 8858 8859 8860 8861 8862 8863 8868 8869 8870
8871 8872 8873 8874 8875 8876 8877 8882 8883 8884 8885 8886 8887 8888
8889 8890 8891 8898# 8900 8901 8902 8903 8905 8906 8907 8908 8909 8910
8917# 8919 8920 8921 8922 8924 8925 8926 8927 8928 8929 8930 8936# 8938
8939 8940 8941 8962 8963 8964 8965 8966 8967 8968 8973 8974 8975 8976
8977 8978 8979 8984 8985 8986 8987 8988 8989 8990 9001# 9002 9011 9012
9014 9015 9020# 9021 9031 9032 9033 9034 9068 9069 9070 9072 9073 9085
9086 9087 9089 9090 9102 9103 9104 9106 9107 9119 9120 9121 9123 9124
9136 9137 9138 9140 9141 9153 9154 9155 9157 9158 9170 9171 9172 9174
9175 9187 9188 9189 9191 9192 9204 9205 9206 9208 9209 9221 9222 9223
9225 9226 9238 9239 9240 9242 9243 9255 9256 9257 9259 9260 9272 9273
9274 9276 9277 9289 9290 9291 9293 9294 9306 9307 9308 9310 9311 9323
9324 9325 9327 9328 9340 9341 9342 9344 9345 9357 9358 9359 9361 9362
9395 9396 9397 9399 9400 9412 9413 9414 9416 9417 9429 9430 9431 9433
9434 9446 9447 9448 9450 9451 9463 9464 9465 9467 9468 9480 9481 9482
9484 9485 9497 9498 9499 9501 9502 9514 9515 9516 9518 9519 9531 9532
9533 9535 9536 9548 9549 9550 9552 9553 9565 9566 9567 9569 9570 9582
9583 9584 9586 9587 9599 9600 9601 9603 9604 9616 9617 9618 9620 9621
9633 9634 9635 9637 9638 9650 9651 9652 9654 9655 9667 9668 9669 9671
9672 9707 9708 9709 9711 9712 9723 9724 9725 9727 9728 9739 9740 9741 SEQ 0808
9743 9744 9755 9756 9757 9759 9760 9771 9772 9773 9775 9776 9787 9788
9789 9791 9792 9803 9804 9805 9807 9808 9819 9820 9821 9823 9824 9835
9836 9837 9839 9840 9873 9874 9875 9877 9878 9890 9891 9892 9894 9895
9907 9908 9909 9911 9912 9924 9925 9926 9928 9929 9941 9942 9943 9945
9946 9958 9959 9960 9962 9963 9975 9976 9977 9979 9980 9992 9993 9994
9996 9997 10009 10010 10011 10013 10014 10026 10027 10028 10030 10031 10043 10044
10045 10047 10048 10060 10061 10062 10064 10065 10077 10078 10079 10081 10082 10094
10095 10096 10098 10099 10111 10112 10113 10115 10116 10128 10129 10130 10132 10133
10145 10146 10147 10149 10150 10162 10163 10164 10166 10167 10203 10204 10205 10206
10207 10208 10220 10221 10222 10223 10224 10225 10262 10263 10264 10265 10266 10267
10280 10281 10282 10283 10284 10285 10298 10299 10300 10301 10302 10303 10316 10317
10318 10319 10320 10321 10334 10335 10336 10337 10338 10339 10352 10353 10354 10355
10356 10357 10370 10371 10372 10373 10374 10375 10388 10389 10390 10391 10392 10393
10429 10430 10431 10432 10433 10434 10447 10448 10449 10450 10451 10452 10465 10466
10467 10468 10469 10470 10483 10484 10485 10486 10487 10488 10501 10502 10503 10504
10505 10506 10519 10520 10521 10522 10523 10524 10537 10538 10539 10540 10541 10542
10555 10556 10557 10558 10559 10560 10573 10574 10575 10576 10577 10578 10614 10615
10616 10617 10618 10619 10632 10633 10634 10635 10636 10637 10650 10651 10652 10653
10654 10655 10668 10669 10670 10671 10672 10673 10686 10687 10688 10689 10690 10691
10704 10705 10706 10707 10708 10709 10722 10723 10724 10725 10726 10727 10740 10741
10742 10743 10744 10745 10758 10759 10760 10761 10762 10763 10798 10799 10800 10801
10802 10803 10815 10816 10817 10818 10819 10820 10832 10833 10834 10835 10836 10837
10849 10850 10851 10852 10853 10854 10866 10867 10868 10869 10870 10871 10883 10884
10885 10886 10887 10888 10900 10901 10902 10903 10904 10905 10917 10918 10919 10920
10921 10922 10930 10931 10932 10933 10934 10935 10946 10947 10948 10949 10951 10952
10962 10963 10964 10966 10967 10976 10977 10978 10979 10981 10982 10992 10993 10994
10996 10997 11006 11007 11009 11010 11020 11021 11022 11024 11025 11034 11035 11037
11038 11048 11049 11051 11052 11061 11062 11064 11065 11075 11076 11078 11079 11088
11089 11091 11092 11102 11103 11105 11106 11117 11118 11119 11120 11122 11123 11129
11130 11132 11133 11144 11145 11146 11147 11149 11150 11161 11162 11163 11165 11166
11176 11177 11178 11179 11181 11182 11193 11194 11195 11196 11198 11199 11209 11210
11212 11213 11224 11225 11226 11228 11229 11239 11240 11242 11243 11254 11255 11257
11258 11268 11269 11271 11272 11283 11284 11286 11287 11297 11298 11300 11301 11312
11313 11315 11316 11322 11323 11324 11325 11326 11328 11329 11339 11342 11349 11350
11351 11352 11353 11354 11356 11363 11364 11365 11366 11367 11368 11369 11372 11378
11379 11380 11381 11382 11383 11385 11392 11393 11394 11395 11396 11397 11398 11399
11402 11408 11409 11410 11411 11443 11444 11445 11446 11447 11458 11459 11460 11461
11462 11473 11474 11475 11476 11477 11488 11489 11490 11491 11492 11503 11504 11505
11506 11507 11518 11519 11520 11521 11522 11533 11534 11535 11536 11537 11548 11549
11550 11551 11552 11563 11564 11565 11566 11567 11578 11579 11580 11581 11582 11593
11594 11595 11596 11597 11608 11609 11610 11611 11612 11623 11624 11625 11626 11627
11638 11639 11640 11641 11642 11653 11654 11655 11656 11657 11668 11669 11670 11671
11672 11683 11684 11685 11686 11687 11720 11721 11722 11723 11724 11736 11737 11738
11739 11740 11752 11753 11754 11755 11756 11768 11769 11770 11771 11772 11784 11785
11786 11787 11788 11800 11801 11802 11803 11804 11816 11817 11818 11819 11820 11832
11833 11834 11835 11836 11848 11849 11850 11851 11852 11864 11865 11866 11867 11868
11880 11881 11882 11883 11884 11896 11897 11898 11899 11900 11912 11913 11914 11915
11916 11928 11929 11930 11931 11932 11944 11945 11946 11947 11948 11960 11961 11962
11963 11964 11976 11977 11978 11979 11980 11992 11993 11994 11995 11996 12032 12033
12034 12035 12036 12048 12049 12050 12051 12052 12064 12065 12066 12067 12068 12080
12081 12082 12083 12084 12096 12097 12098 12099 12100 12112 12113 12114 12115 12116
12128 12129 12130 12131 12132 12144 12145 12146 12147 12148 12160 12161 12162 12163
12164 12176 12177 12178 12179 12180 12192 12193 12194 12195 12196 12208 12209 12210 SEQ 0809
12211 12212 12224 12225 12226 12227 12228 12240 12241 12242 12243 12244 12256 12257
12258 12259 12260 12272 12273 12274 12275 12276 12288 12289 12290 12291 12292 12304
12305 12306 12307 12308 12341 12342 12343 12344 12345 12357 12358 12359 12360 12361
12373 12374 12375 12376 12377 12389 12390 12391 12392 12393 12405 12406 12407 12408
12409 12421 12422 12423 12424 12425 12437 12438 12439 12440 12441 12453 12454 12455
12456 12457 12469 12470 12471 12472 12473 12485 12486 12487 12488 12489 12501 12502
12503 12504 12505 12517 12518 12519 12520 12521 12533 12534 12535 12536 12537 12549
12550 12551 12552 12553 12565 12566 12567 12568 12569 12581 12582 12583 12584 12585
12597 12598 12599 12600 12601 12613 12614 12615 12616 12617 12625 12626 12627 12628
12636 12637 12638 12639 12640 12641 12675 12676 12677 12678 12679 12680 12681 12693
12694 12695 12696 12697 12698 12699 12711 12712 12713 12714 12715 12716 12717 12729
12730 12731 12732 12733 12734 12735 12747 12748 12749 12750 12751 12752 12753 12765
12766 12767 12768 12769 12770 12771 12783 12784 12785 12786 12787 12788 12789 12801
12802 12803 12804 12805 12806 12807 12819 12820 12821 12822 12823 12824 12825 12837
12838 12839 12840 12841 12842 12843 12877 12878 12879 12880 12881 12882 12883 12895
12896 12897 12898 12899 12900 12901 12913 12914 12915 12916 12917 12918 12919 12931
12932 12933 12934 12935 12936 12937 12949 12950 12951 12952 12953 12954 12955 12967
12968 12969 12970 12971 12972 12973 12985 12986 12987 12988 12989 12990 12991 13003
13004 13005 13006 13007 13008 13009 13042 13043 13044 13045 13046 13047 13059 13060
13061 13062 13063 13064 13076 13077 13078 13079 13080 13081 13093 13094 13095 13096
13097 13098 13110 13111 13112 13113 13114 13115 13127 13128 13129 13130 13131 13132
13144 13145 13146 13147 13148 13149 13161 13162 13163 13164 13165 13166 13204 13205
13206 13207 13208 13209 13210 13222 13223 13224 13225 13226 13227 13228 13240 13241
13242 13243 13244 13245 13246 13258 13259 13260 13261 13262 13263 13264 13276 13277
13278 13279 13280 13281 13282 13294 13295 13296 13297 13298 13299 13300 13312 13313
13314 13315 13316 13317 13318 13330 13331 13332 13333 13334 13335 13336 13348 13349
13350 13351 13352 13353 13354 13366 13367 13368 13369 13370 13371 13372 13406 13407
13408 13409 13410 13411 13423 13424 13425 13426 13427 13428 13440 13441 13442 13443
13444 13445 13457 13458 13459 13460 13461 13462 13474 13475 13476 13477 13478 13479
13491 13492 13493 13494 13495 13496 13508 13509 13510 13511 13512 13513 13525 13526
13527 13528 13529 13530 13563 13564 13565 13567 13568 13580 13581 13582 13584 13585
13597 13598 13599 13601 13602 13614 13615 13616 13618 13619 13631 13632 13633 13635
13636 13648 13649 13650 13652 13653 13665 13666 13667 13669 13670 13682 13683 13684
13686 13687 13725 13726 13727 13728 13729 13730 13731 13743 13744 13745 13746 13747
13748 13749 13761 13762 13763 13764 13765 13766 13767 13779 13780 13781 13782 13783
13784 13785 13797 13798 13799 13800 13801 13802 13803 13815 13816 13817 13818 13819
13820 13821 13833 13834 13835 13836 13837 13838 13839 13851 13852 13853 13854 13855
13856 13857 13869 13870 13871 13872 13873 13874 13875 13887 13888 13889 13890 13891
13892 13893 13928 13929 13930 13931 13933 13934 13946 13947 13948 13949 13951 13952
13964 13965 13966 13967 13969 13970 13982 13983 13984 13985 13987 13988 14000 14001
14002 14003 14005 14006 14018 14019 14020 14021 14023 14024 14036 14037 14038 14039
14041 14042 14054 14055 14056 14057 14059 14060 14093 14094 14095 14097 14098 14110
14111 14112 14114 14115 14127 14128 14129 14131 14132 14144 14145 14146 14148 14149
14161 14162 14163 14165 14166 14178 14179 14180 14182 14183 14195 14196 14197 14199
14200 14212 14213 14214 14216 14217 14226 14227 14228 14229 14231 14232 14267 14268
14269 14270 14271 14273 14274 14286 14287 14288 14289 14290 14292 14293 14305 14306
14307 14308 14309 14311 14312 14324 14325 14326 14327 14328 14330 14331 14343 14344
14345 14346 14347 14349 14350 14362 14363 14364 14365 14366 14368 14369 14381 14382
14383 14384 14385 14387 14388 14400 14401 14402 14403 14404 14406 14407 14419 14420
14421 14422 14423 14425 14426 14438 14439 14440 14441 14442 14444 14445 14481 14482
14483 14484 14485 14487 14488 14500 14501 14502 14503 14504 14506 14507 14519 14520
14521 14522 14523 14525 14526 14538 14539 14540 14541 14542 14544 14545 14557 14558
14559 14560 14561 14563 14564 14576 14577 14578 14579 14580 14582 14583 14595 14596 SEQ 0810
14597 14598 14599 14601 14602 14614 14615 14616 14617 14618 14620 14621 14655 14656
14657 14658 14659 14660 14672 14673 14674 14675 14676 14677 14689 14690 14691 14692
14693 14694 14706 14707 14708 14709 14710 14711 14723 14724 14725 14726 14727 14728
14740 14741 14742 14743 14744 14745 14757 14758 14759 14760 14761 14762 14774 14775
14776 14777 14778 14779 14791 14792 14793 14794 14796 14797 14805 14806 14807 14808
14809 14811 14812 14819 14820 14821 14822 14824 14825 14833 14834 14835 14836 14838
14839 14845 14846 14847 14848 14849 14851 14852 14858 14859 14860 14861 14862 14863
14864 14876 14877 14878 14879 14880 14882 14883 14884 14885 14897 14898 14899 14900
14901 14903 14904 14905 14906 14918 14919 14920 14921 14922 14924 14925 14926 14927
14939 14940 14941 14942 14943 14945 14946 14947 14948 14960 14961 14962 14963 14964
14967 14968 14969 14970 14982 14983 14984 14985 14986 14989 14990 14991 14992 14998#
14999 15015 15016 15017 15018 15019 15020 15022 15024 15025 15026 15027 15029 15030
15031 15032 15038# 15039 15045 15067 15070 15071 15072 15073 15074 15075 15076 15081
15084 15085 15086 15087 15088 15089 15090 15095 15098 15099 15100 15101 15102 15103
15104 15109 15112 15113 15114 15115 15116 15117 15118 15123 15126 15127 15128 15129
15130 15131 15132 15139 15141 15143 15144 15145 15146 15159 15161 15163 15164 15172
15174 15175 15177 15178 15191 15193 15202 15203 15204 15206 15207 15209 15210 15223
15225 15234 15235 15236 15238 15239 15241 15242 15255 15257 15259 15260 15268 15270
15271 15273 15274 15287 15289 15299 15300 15301 15304 15305 15307 15308 15321 15323
15333 15334 15335 15338 15339 15341 15342 15348# 15349 15366 15367 15369 15378 15379
15380 15382 15384 15385 15386 15387 15389 15390 15391 15392 15398# 15399 15405 15430
15432 15433 15434 15437 15439 15440 15441 15442 15447 15449 15450 15451 15454 15456
15457 15458 15459 15464 15466 15467 15468 15471 15473 15474 15475 15476 15481 15483
15484 15485 15488 15490 15491 15492 15493 15498 15500 15501 15502 15505 15507 15508
15509 15510 15525 15527 15529 15530 15538 15540 15541 15543 15544 15557 15559 15564
15565 15570 15572 15573 15575 15576 15589 15591 15596 15597 15602 15604 15605 15607
15608 15615 15616 15617 15634 15636 15637 15638 15643 15644 15648 15649 15655 15656
15659 15660 15679 15681 15682 15683 15688 15689 15693 15694 15700 15701 15704 15705
15724 15726 15727 15728 15733 15734 15738 15739 15745 15746 15749 15750 15769 15771
15772 15773 15778 15779 15783 15784 15790 15791 15794 15795 15803 15805 15806 15807
15808 15809 15822 15824 15825 15826 15828 15830 15831 15832 15833 15834 15847 15849
15850 15851 15853 15855 15856 15857 15858 15859 15872 15874 15875 15876 15878 15880
15881 15882 15883 15884 15897 15899 15900 15901 15903 15905 15906 15907 15908 15909
15922 15924 15925 15926 15928 15930 15931 15932 15934 15935 15948 15950 15951 15952
15954 15956 15957 15958 15960 15961 15967# 15968 15985 15986 15988 15989 15990 15992
15994 15995 15997 15998 15999 16000 16002 16003 16004 16005 16011# 16012 16018 16049
16051 16054 16056 16068 16070 16073 16075 16087 16089 16092 16094 16106 16108 16111
16113 16125 16127 16130 16132 16158# 16159 16165 16167 16172 16176 16178 16179 16180
16186 16188 16190 16191 16192 16193 16208 16210 16211 16213 16215 16217 16218 16219
16221 16222 16237 16239 16240 16242 16244 16246 16247 16248 16250 16251 16266 16268
16269 16271 16273 16275 16276 16277 16279 16280 16295 16297 16298 16300 16302 16304
16305 16306 16308 16309 16324 16326 16327 16329 16331 16333 16334 16335 16337 16338
16353 16355 16356 16358 16360 16362 16363 16364 16366 16367 16373# 16374 16393 16395
16396 16398 16400 16403 16404 16406 16407 16408 16409 16411 16412 16413 16414 16420#
16421 16427 16463 16465 16466 16469 16471 16473 16475 16477 16487 16489 16490 16493
16495 16497 16499 16501 16511 16513 16514 16517 16519 16521 16523 16525 16535 16537
16538 16540 16541 16543 16545 16547 16549 16559 16561 16562 16565 16567 16569 16571
16573 16590 16592 16593 16595 16597 16599 16600 16601 16603 16604 16619 16621 16622
16624 16626 16628 16629 16630 16632 16633 16648 16650 16651 16653 16655 16657 16658
16659 16661 16662 16680 16682 16683 16684 16685 16690 16691 16695 16696 16702 16703
16706 16707 16726 16728 16729 16730 16731 16736 16737 16741 16742 16748 16749 16752
16753 16772 16774 16775 16776 16777 16782 16783 16787 16788 16794 16795 16798 16799
16818 16820 16821 16822 16823 16828 16829 16833 16834 16840 16841 16844 16845 16858# SEQ 0811
16860 16861 16862 16863 16867 16869 16871 16872 16873 16874 16875 16892 16894 16896
16897 16898 16899 16900 16906 16908 16910 16911 16912 16913 16914 16920 16922 16924
16925 16926 16927 16928 16934 16936 16938 16939 16940 16941 16942 16948 16950 16952
16953 16954 16955 16956 16962 16964 16966 16967 16968 16969 16970 16976 16978 16980
16981 16982 16983 16984 16990 16992 16994 16995 16996 16997 16998 17004 17006 17008
17009 17010 17011 17012 17027 17029 17031 17032 17033 17034 17035 17041 17043 17045
17046 17047 17048 17049 17055 17057 17059 17060 17061 17062 17063 17069 17071 17073
17074 17075 17076 17077 17083 17085 17087 17088 17089 17090 17091 17097 17099 17101
17102 17103 17104 17105 17111 17113 17115 17116 17117 17118 17119 17125 17127 17129
17130 17131 17132 17133 17139 17141 17143 17144 17145 17146 17147 17153 17155 17157
17158 17159 17160 17161 17167 17169 17171 17172 17173 17174 17175 17181 17183 17185
17186 17187 17188 17189 17195 17197 17199 17200 17201 17202 17203 17209 17211 17213
17214 17215 17216 17217 17223 17225 17227 17228 17229 17230 17231 17237 17239 17241
17242 17243 17244 17245 17251 17253 17255 17256 17257 17258 17259 17265 17267 17269
17270 17271 17272 17273 17280 17282 17284 17285 17286 17287 17288 17300 17302 17304
17305 17306 17307 17308 17314 17316 17318 17319 17320 17321 17322 17328 17330 17332
17333 17334 17335 17336 17342 17344 17346 17347 17348 17349 17350 17356 17358 17360
17361 17362 17363 17364 17370 17372 17374 17375 17376 17377 17378 17384 17386 17388
17389 17390 17391 17392 17398 17400 17402 17403 17404 17405 17406 17412 17414 17416
17417 17418 17419 17420 17426 17428 17430 17431 17432 17433 17434 17440 17442 17444
17445 17446 17447 17448 17454 17456 17458 17459 17460 17461 17462 17468 17470 17472
17473 17474 17475 17476 17482 17484 17486 17487 17488 17489 17490 17496 17498 17500
17501 17502 17503 17504 17510 17512 17514 17515 17516 17517 17518 17524 17526 17528
17529 17530 17531 17532 17547 17549 17551 17552 17553 17554 17555 17561 17563 17565
17566 17567 17568 17569 17575 17577 17579 17580 17581 17582 17583 17589 17591 17593
17594 17595 17596 17597 17603 17605 17607 17608 17609 17610 17611 17617 17619 17621
17622 17623 17624 17625 17631 17633 17635 17636 17637 17638 17639 17645 17647 17649
17650 17651 17652 17653 17659 17661 17663 17664 17665 17666 17667 17673 17675 17677
17678 17679 17680 17681 17687 17689 17691 17692 17693 17694 17695 17701 17703 17705
17706 17707 17708 17709 17715 17717 17719 17720 17721 17722 17723 17729 17731 17733
17734 17735 17736 17737 17743 17745 17747 17748 17749 17750 17751 17757 17759 17761
17762 17763 17764 17765 17771 17773 17775 17776 17777 17778 17779 17785 17787 17789
17790 17791 17792 17793 17810 17812 17814 17815 17816 17817 17818 17824 17826 17828
17829 17830 17831 17832 17838 17840 17842 17843 17844 17845 17846 17852 17854 17856
17857 17858 17859 17860 17866 17868 17870 17871 17872 17873 17874 17880 17882 17884
17885 17886 17887 17888 17894 17896 17898 17899 17900 17901 17902 17908 17910 17912
17913 17914 17915 17916 17922 17924 17926 17927 17928 17929 17930 17945 17947 17949
17950 17951 17952 17953 17959 17961 17963 17964 17965 17966 17967 17973 17975 17977
17978 17979 17980 17981 17987 17989 17991 17992 17993 17994 17995 18001 18003 18005
18006 18007 18008 18009 18015 18017 18019 18020 18021 18022 18023 18029 18031 18033
18034 18035 18036 18037 18043 18045 18047 18048 18049 18050 18051 18057 18059 18061
18062 18063 18064 18065 18071 18073 18075 18076 18077 18078 18079 18085 18087 18089
18090 18091 18092 18093 18099 18101 18103 18104 18105 18106 18107 18113 18115 18117
18118 18119 18120 18121 18127 18129 18131 18132 18133 18134 18135 18141 18143 18145
18146 18147 18148 18149 18155 18157 18159 18160 18161 18162 18163 18169 18171 18173
18174 18175 18176 18177 18183 18185 18187 18188 18189 18190 18191 18198 18200 18202
18203 18204 18205 18206 18219 18221 18223 18224 18225 18226 18227 18234 18236 18238
18239 18240 18241 18242 18249 18251 18253 18254 18255 18256 18257 18264 18266 18268
18269 18270 18271 18272 18279 18281 18283 18284 18285 18286 18287 18294 18296 18298
18299 18300 18301 18302 18309 18311 18313 18314 18315 18316 18317 18324 18326 18328
18329 18330 18331 18332 18339 18341 18343 18344 18345 18346 18347 18354 18356 18358
18359 18360 18361 18362 18369 18371 18373 18374 18375 18376 18377 18384 18386 18388
18389 18390 18391 18392 18399 18401 18403 18404 18405 18406 18407 18414 18416 18418 SEQ 0812
18419 18420 18421 18422 18429 18431 18433 18434 18435 18436 18437 18444 18446 18448
18449 18450 18451 18452 18459 18461 18463 18464 18465 18466 18467 18483 18485 18487
18488 18489 18490 18491 18497 18499 18501 18502 18503 18504 18505 18511 18513 18515
18516 18517 18518 18519 18525 18527 18529 18530 18531 18532 18533 18539 18541 18543
18544 18545 18546 18547 18553 18555 18557 18558 18559 18560 18561 18567 18569 18571
18572 18573 18574 18575 18581 18583 18585 18586 18587 18588 18589 18595 18597 18599
18600 18601 18602 18603 18609 18611 18613 18614 18615 18616 18617 18623 18625 18627
18628 18629 18630 18631 18637 18639 18641 18642 18643 18644 18645 18651 18653 18655
18656 18657 18658 18659 18665 18667 18669 18670 18671 18672 18673 18679 18681 18683
18684 18685 18686 18687 18693 18695 18697 18698 18699 18700 18701 18707 18709 18711
18712 18713 18714 18715 18721 18723 18725 18726 18727 18728 18729 18735 18737 18739
18740 18741 18742 18743 18748 18750 18752 18753 18754 18755 18756 18773 18775 18777
18778 18779 18780 18781 18787 18789 18791 18792 18793 18794 18795 18801 18803 18805
18806 18807 18808 18809 18815 18817 18819 18820 18821 18822 18823 18829 18831 18833
18834 18835 18836 18837 18843 18845 18847 18848 18849 18850 18851 18857 18859 18861
18862 18863 18864 18865 18871 18873 18875 18876 18877 18878 18879 18885 18887 18889
18890 18891 18892 18893 18899 18901 18903 18904 18905 18906 18907 18913 18915 18917
18918 18919 18920 18921 18927 18929 18931 18932 18933 18934 18935 18941 18943 18945
18946 18947 18948 18949 18955 18957 18959 18960 18961 18962 18963 18969 18971 18973
18974 18975 18976 18977 18983 18985 18987 18988 18989 18990 18991 18997 18999 19001
19002 19003 19004 19005 19011 19013 19015 19016 19017 19018 19019 19034 19036 19038
19039 19040 19041 19042 19048 19050 19052 19053 19054 19055 19056 19062 19064 19066
19067 19068 19069 19070 19076 19078 19080 19081 19082 19083 19084 19090 19092 19094
19095 19096 19097 19098 19104 19106 19108 19109 19110 19111 19112 19118 19120 19122
19123 19124 19125 19126 19132 19134 19136 19137 19138 19139 19140 19146 19148 19150
19151 19152 19153 19154 19160 19162 19164 19165 19166 19167 19168 19174 19176 19178
19179 19180 19181 19182 19188 19190 19192 19193 19194 19195 19196 19202 19204 19206
19207 19208 19209 19210 19216 19218 19220 19221 19222 19223 19224 19230 19232 19234
19235 19236 19237 19238 19244 19246 19248 19249 19250 19251 19252 19258 19260 19262
19263 19264 19265 19266 19272 19274 19276 19277 19278 19279 19280 19295 19297 19299
19300 19301 19302 19303 19309 19311 19313 19314 19315 19316 19317 19323 19325 19327
19328 19329 19330 19331 19337 19339 19341 19342 19343 19344 19345 19351 19353 19355
19356 19357 19358 19359 19365 19367 19369 19370 19371 19372 19373 19379 19381 19383
19384 19385 19386 19387 19393 19395 19397 19398 19399 19400 19401 19407 19409 19411
19412 19413 19414 19415 19421 19423 19425 19426 19427 19428 19429 19435 19437 19439
19440 19441 19442 19443 19449 19451 19453 19454 19455 19456 19457 19463 19465 19467
19468 19469 19470 19471 19477 19479 19481 19482 19483 19484 19485 19491 19493 19495
19496 19497 19498 19499 19505 19507 19509 19510 19511 19512 19513 19519 19521 19523
19524 19525 19526 19527 19533 19535 19537 19538 19539 19540 19541 19557 19559 19561
19562 19563 19564 19565 19571 19573 19575 19576 19577 19578 19579 19585 19587 19589
19590 19591 19592 19593 19599 19601 19603 19604 19605 19606 19607 19613 19615 19617
19618 19619 19620 19621 19627 19629 19631 19632 19633 19634 19635 19641 19643 19645
19646 19647 19648 19649 19655 19657 19659 19660 19661 19662 19663 19668 19670 19672
19673 19674 19675 19676 19692 19694 19696 19697 19698 19699 19700 19706 19708 19710
19711 19712 19713 19714 19720 19722 19724 19725 19726 19727 19728 19734 19736 19738
19739 19740 19741 19742 19748 19750 19752 19753 19754 19755 19756 19762 19764 19766
19767 19768 19769 19770 19776 19778 19780 19781 19782 19783 19784 19790 19792 19794
19795 19796 19797 19798 19804 19806 19808 19809 19810 19811 19812 19818 19820 19822
19823 19824 19825 19826 19832 19834 19836 19837 19838 19839 19840 19846 19848 19850
19851 19852 19853 19854 19860 19862 19864 19865 19866 19867 19868 19874 19876 19878
19879 19880 19881 19882 19888 19890 19892 19893 19894 19895 19896 19902 19904 19906
19907 19908 19909 19910 19916 19918 19920 19921 19922 19923 19924 19930 19932 19934
19935 19936 19937 19938 19953 19955 19957 19958 19959 19960 19961 19967 19969 19971 SEQ 0813
19972 19973 19974 19975 19981 19983 19985 19986 19987 19988 19989 19995 19997 19999
20000 20001 20002 20003 20009 20011 20013 20014 20015 20016 20017 20023 20025 20027
20028 20029 20030 20031 20037 20039 20041 20042 20043 20044 20045 20051 20053 20055
20056 20057 20058 20059 20065 20067 20069 20070 20071 20072 20073 20079 20081 20083
20084 20085 20086 20087 20093 20095 20097 20098 20099 20100 20101 20107 20109 20111
20112 20113 20114 20115 20121 20123 20125 20126 20127 20128 20129 20135 20137 20139
20140 20141 20142 20143 20149 20151 20153 20154 20155 20156 20157 20163 20165 20167
20168 20169 20170 20171 20177 20179 20181 20182 20183 20184 20185 20191 20193 20195
20196 20197 20198 20199 20214 20216 20218 20219 20220 20221 20222 20228 20230 20232
20233 20234 20235 20236 20242 20244 20246 20247 20248 20249 20250 20256 20258 20260
20261 20262 20263 20264 20270 20272 20274 20275 20276 20277 20278 20284 20286 20288
20289 20290 20291 20292 20298 20300 20302 20303 20304 20305 20306 20312 20314 20316
20317 20318 20319 20320 20326 20328 20330 20331 20332 20333 20334 20340 20342 20344
20345 20346 20347 20348 20354 20356 20358 20359 20360 20361 20362 20368 20370 20372
20373 20374 20375 20376 20382 20384 20386 20387 20388 20389 20390 20396 20398 20400
20401 20402 20403 20404 20410 20412 20414 20415 20416 20417 20418 20424 20426 20428
20429 20430 20431 20432 20438 20440 20442 20443 20444 20445 20446 20452 20454 20456
20457 20458 20459 20460 20475 20477 20479 20480 20481 20482 20483 20489 20491 20493
20494 20495 20496 20497 20503 20505 20507 20508 20509 20510 20511 20517 20519 20521
20522 20523 20524 20525 20531 20533 20535 20536 20537 20538 20539 20545 20547 20549
20550 20551 20552 20553 20559 20561 20563 20564 20565 20566 20567 20573 20575 20577
20578 20579 20580 20581 20586 20588 20590 20591 20592 20593 20594 20615 20617 20619
20620 20621 20622 20623 20631 20633 20635 20636 20637 20638 20639 20647 20649 20651
20652 20653 20654 20655 20663 20665 20667 20668 20669 20670 20671 20679 20681 20683
20684 20685 20686 20687 20695 20697 20699 20700 20701 20702 20703 20711 20713 20715
20716 20717 20718 20719 20727 20729 20731 20732 20733 20734 20735 20743 20745 20747
20748 20749 20750 20751 20759 20761 20763 20764 20765 20766 20767 20775 20777 20779
20780 20781 20782 20783 20791 20793 20795 20796 20797 20798 20799 20807 20809 20811
20812 20813 20814 20815 20823 20825 20827 20828 20829 20830 20831 20839 20841 20843
20844 20845 20846 20847 20855 20857 20859 20860 20861 20862 20863 20871 20873 20875
20876 20877 20878 20879 20887 20889 20891 20892 20893 20894 20895 20915 20917 20919
20920 20921 20922 20923 20931 20933 20935 20936 20937 20938 20939 20947 20949 20951
20952 20953 20954 20955 20963 20965 20967 20968 20969 20970 20971 20979 20981 20983
20984 20985 20986 20987 20995 20997 20999 21000 21001 21002 21003 21011 21013 21015
21016 21017 21018 21019 21027 21029 21031 21032 21033 21034 21035 21043 21045 21047
21048 21049 21050 21051 21059 21061 21063 21064 21065 21066 21067 21075 21077 21079
21080 21081 21082 21083 21091 21093 21095 21096 21097 21098 21099 21107 21109 21111
21112 21113 21114 21115 21123 21125 21127 21128 21129 21130 21131 21139 21141 21143
21144 21145 21146 21147 21155 21157 21159 21160 21161 21162 21163 21171 21173 21175
21176 21177 21178 21179 21187 21189 21191 21192 21193 21194 21195 21215 21217 21219
21220 21221 21222 21223 21231 21233 21235 21236 21237 21238 21239 21247 21249 21251
21252 21253 21254 21255 21263 21265 21267 21268 21269 21270 21271 21279 21281 21283
21284 21285 21286 21287 21295 21297 21299 21300 21301 21302 21303 21311 21313 21315
21316 21317 21318 21319 21327 21329 21331 21332 21333 21334 21335 21343 21345 21347
21348 21349 21350 21351 21359 21361 21363 21364 21365 21366 21367 21375 21377 21379
21380 21381 21382 21383 21391 21393 21395 21396 21397 21398 21399 21407 21409 21411
21412 21413 21414 21415 21423 21425 21427 21428 21429 21430 21431 21439 21441 21443
21444 21445 21446 21447 21455 21457 21459 21460 21461 21462 21463 21471 21473 21475
21476 21477 21478 21479 21487 21489 21491 21492 21493 21494 21495 21515 21517 21519
21520 21521 21522 21523 21531 21533 21535 21536 21537 21538 21539 21547 21549 21551
21552 21553 21554 21555 21563 21565 21567 21568 21569 21570 21571 21579 21581 21583
21584 21585 21586 21587 21595 21597 21599 21600 21601 21602 21603 21611 21613 21615
21616 21617 21618 21619 21627 21629 21631 21632 21633 21634 21635 21643 21645 21647 SEQ 0814
21648 21649 21650 21651 21673 21675 21677 21678 21679 21680 21681 21689 21691 21693
21694 21695 21696 21697 21705 21707 21709 21710 21711 21712 21713 21721 21723 21725
21726 21727 21728 21729 21737 21739 21741 21742 21743 21744 21745 21753 21755 21757
21758 21759 21760 21761 21769 21771 21773 21774 21775 21776 21777 21785 21787 21789
21790 21791 21792 21793 21801 21803 21805 21806 21807 21808 21809 21817 21819 21821
21822 21823 21824 21825 21833 21835 21837 21838 21839 21840 21841 21849 21851 21853
21854 21855 21856 21857 21865 21867 21869 21870 21871 21872 21873 21881 21883 21885
21886 21887 21888 21889 21897 21899 21901 21902 21903 21904 21905 21913 21915 21917
21918 21919 21920 21921 21929 21931 21933 21934 21935 21936 21937 21945 21947 21949
21950 21951 21952 21953 21973 21975 21977 21978 21979 21980 21981 21989 21991 21993
21994 21995 21996 21997 22005 22007 22009 22010 22011 22012 22013 22021 22023 22025
22026 22027 22028 22029 22037 22039 22041 22042 22043 22044 22045 22053 22055 22057
22058 22059 22060 22061 22069 22071 22073 22074 22075 22076 22077 22085 22087 22089
22090 22091 22092 22093 22101 22103 22105 22106 22107 22108 22109 22117 22119 22121
22122 22123 22124 22125 22133 22135 22137 22138 22139 22140 22141 22149 22151 22153
22154 22155 22156 22157 22165 22167 22169 22170 22171 22172 22173 22181 22183 22185
22186 22187 22188 22189 22197 22199 22201 22202 22203 22204 22205 22213 22215 22217
22218 22219 22220 22221 22229 22231 22233 22234 22235 22236 22237 22245 22247 22249
22250 22251 22252 22253 22273 22275 22277 22278 22279 22280 22281 22289 22291 22293
22294 22295 22296 22297 22305 22307 22309 22310 22311 22312 22313 22321 22323 22325
22326 22327 22328 22329 22337 22339 22341 22342 22343 22344 22345 22353 22355 22357
22358 22359 22360 22361 22369 22371 22373 22374 22375 22376 22377 22385 22387 22389
22390 22391 22392 22393 22401 22403 22405 22406 22407 22408 22409 22417 22419 22421
22422 22423 22424 22425 22433 22435 22437 22438 22439 22440 22441 22449 22451 22453
22454 22455 22456 22457 22465 22467 22469 22470 22471 22472 22473 22481 22483 22485
22486 22487 22488 22489 22497 22499 22501 22502 22503 22504 22505 22513 22515 22517
22518 22519 22520 22521 22529 22531 22533 22534 22535 22536 22537 22545 22547 22549
22550 22551 22552 22553 22573 22575 22577 22578 22579 22580 22581 22589 22591 22593
22594 22595 22596 22597 22605 22607 22609 22610 22611 22612 22613 22621 22623 22625
22626 22627 22628 22629 22637 22639 22641 22642 22643 22644 22645 22653 22655 22657
22658 22659 22660 22661 22669 22671 22673 22674 22675 22676 22677 22685 22687 22689
22690 22691 22692 22693 22701 22703 22705 22706 22707 22708 22709 22729 22731 22733
22734 22735 22736 22737 22744 22746 22748 22749 22750 22751 22752 22759 22761 22763
22764 22765 22766 22767 22774 22776 22778 22779 22780 22781 22782 22789 22791 22793
22794 22795 22796 22797 22804 22806 22808 22809 22810 22811 22812 22819 22821 22823
22824 22825 22826 22827 22834 22836 22838 22839 22840 22841 22842 22849 22851 22853
22854 22855 22856 22857 22864 22866 22868 22869 22870 22871 22872 22879 22881 22883
22884 22885 22886 22887 22894 22896 22898 22899 22900 22901 22902 22909 22911 22913
22914 22915 22916 22917 22924 22926 22928 22929 22930 22931 22932 22939 22941 22943
22944 22945 22946 22947 22954 22956 22958 22959 22960 22961 22962 22969 22971 22973
22974 22975 22976 22977 22984 22986 22988 22989 22990 22991 22992 23000 23002 23004
23005 23006 23007 23008 23021 23023 23025 23026 23027 23028 23029 23035 23037 23039
23040 23041 23042 23043 23049 23051 23053 23054 23055 23056 23057 23063 23065 23067
23068 23069 23070 23071 23077 23079 23081 23082 23083 23084 23085 23091 23093 23095
23096 23097 23098 23099 23105 23107 23109 23110 23111 23112 23113 23119 23121 23123
23124 23125 23126 23127 23133 23135 23137 23138 23139 23140 23141 23147 23149 23151
23152 23153 23154 23155 23161 23163 23165 23166 23167 23168 23169 23175 23177 23179
23180 23181 23182 23183 23189 23191 23193 23194 23195 23196 23197 23203 23205 23207
23208 23209 23210 23211 23217 23219 23221 23222 23223 23224 23225 23231 23233 23235
23236 23237 23238 23239 23247 23249 23251 23252 23253 23254 23255 23260 23262 23264
23265 23266 23267 23268 23281 23283 23285 23286 23287 23288 23289 23295 23297 23299
23300 23301 23302 23303 23309 23311 23313 23314 23315 23316 23317 23323 23325 23327
23328 23329 23330 23331 23337 23339 23341 23342 23343 23344 23345 23351 23353 23355 SEQ 0815
23356 23357 23358 23359 23365 23367 23369 23370 23371 23372 23373 23379 23381 23383
23384 23385 23386 23387 23393 23395 23397 23398 23399 23400 23401 23407 23409 23411
23412 23413 23414 23415 23421 23423 23425 23426 23427 23428 23429 23435 23437 23439
23440 23441 23442 23443 23449 23451 23453 23454 23455 23456 23457 23463 23465 23467
23468 23469 23470 23471 23477 23479 23481 23482 23483 23484 23485 23491 23493 23495
23496 23497 23498 23499 23505 23507 23509 23510 23511 23512 23513 23521 23523 23525
23526 23527 23528 23529 23541 23543 23545 23546 23547 23548 23549 23555 23557 23559
23560 23561 23562 23563 23569 23571 23573 23574 23575 23576 23577 23583 23585 23587
23588 23589 23590 23591 23597 23599 23601 23602 23603 23604 23605 23611 23613 23615
23616 23617 23618 23619 23625 23627 23629 23630 23631 23632 23633 23639 23641 23643
23644 23645 23646 23647 23667 23669 23671 23672 23673 23674 23675 23682 23684 23686
23687 23688 23689 23690 23697 23699 23701 23702 23703 23704 23705 23712 23714 23716
23717 23718 23719 23720 23727 23729 23731 23732 23733 23734 23735 23742 23744 23746
23747 23748 23749 23750 23757 23759 23761 23762 23763 23764 23765 23772 23774 23776
23777 23778 23779 23780 23787 23789 23791 23792 23793 23794 23795 23802 23804 23806
23807 23808 23809 23810 23817 23819 23821 23822 23823 23824 23825 23832 23834 23836
23837 23838 23839 23840 23847 23849 23851 23852 23853 23854 23855 23862 23864 23866
23867 23868 23869 23870 23877 23879 23881 23882 23883 23884 23885 23892 23894 23896
23897 23898 23899 23900 23907 23909 23911 23912 23913 23914 23915 23922 23924 23926
23927 23928 23929 23930 23938 23940 23942 23943 23944 23945 23946 23959 23961 23963
23964 23965 23966 23967 23973 23975 23977 23978 23979 23980 23981 23987 23989 23991
23992 23993 23994 23995 24001 24003 24005 24006 24007 24008 24009 24015 24017 24019
24020 24021 24022 24023 24029 24031 24033 24034 24035 24036 24037 24043 24045 24047
24048 24049 24050 24051 24057 24059 24061 24062 24063 24064 24065 24071 24073 24075
24076 24077 24078 24079 24085 24087 24089 24090 24091 24092 24093 24099 24101 24103
24104 24105 24106 24107 24113 24115 24117 24118 24119 24120 24121 24127 24129 24131
24132 24133 24134 24135 24141 24143 24145 24146 24147 24148 24149 24155 24157 24159
24160 24161 24162 24163 24169 24171 24173 24174 24175 24176 24177 24185 24187 24189
24190 24191 24192 24193 24199 24201 24203 24204 24205 24206 24207 24218 24220 24222
24223 24224 24225 24226 24232 24234 24236 24237 24238 24239 24240 24246 24248 24250
24251 24252 24253 24254 24260 24262 24264 24265 24266 24267 24268 24274 24276 24278
24279 24280 24281 24282 24288 24290 24292 24293 24294 24295 24296 24302 24304 24306
24307 24308 24309 24310 24316 24318 24320 24321 24322 24323 24324 24330 24332 24334
24335 24336 24337 24338 24344 24346 24348 24349 24350 24351 24352 24358 24360 24362
24363 24364 24365 24366 24372 24374 24376 24377 24378 24379 24380 24386 24388 24390
24391 24392 24393 24394 24400 24402 24404 24405 24406 24407 24408 24414 24416 24418
24419 24420 24421 24422 24428 24430 24432 24433 24434 24435 24436 24442 24444 24446
24447 24448 24449 24450 24457 24459 24461 24462 24463 24464 24465 24476 24478 24480
24481 24482 24483 24484 24490 24492 24494 24495 24496 24497 24498 24504 24506 24508
24509 24510 24511 24512 24518 24520 24522 24523 24524 24525 24526 24532 24534 24536
24537 24538 24539 24540 24546 24548 24550 24551 24552 24553 24554 24560 24562 24564
24565 24566 24567 24568 24574 24576 24578 24579 24580 24581 24582 24605 24607 24609
24610 24611 24612 24613 24621 24623 24625 24626 24627 24628 24629 24637 24639 24641
24642 24643 24644 24645 24653 24655 24657 24658 24659 24660 24661 24669 24671 24673
24674 24675 24676 24677 24685 24687 24689 24690 24691 24692 24693 24701 24703 24705
24706 24707 24708 24709 24717 24719 24721 24722 24723 24724 24725 24733 24735 24737
24738 24739 24740 24741 24749 24751 24753 24754 24755 24756 24757 24765 24767 24769
24770 24771 24772 24773 24781 24783 24785 24786 24787 24788 24789 24797 24799 24801
24802 24803 24804 24805 24813 24815 24817 24818 24819 24820 24821 24829 24831 24833
24834 24835 24836 24837 24845 24847 24849 24850 24851 24852 24853 24861 24863 24865
24866 24867 24868 24869 24877 24879 24881 24882 24883 24884 24885 24892 24894 24896
24897 24898 24899 24900 24912 24914 24916 24917 24918 24919 24920 24926 24928 24930
24931 24932 24933 24934 24940 24942 24944 24945 24946 24947 24948 24954 24956 24958 SEQ 0816
24959 24960 24961 24962 24968 24970 24972 24973 24974 24975 24976 24982 24984 24986
24987 24988 24989 24990 24996 24998 25000 25001 25002 25003 25004 25010 25012 25014
25015 25016 25017 25018 25024 25026 25028 25029 25030 25031 25032 25038 25040 25042
25043 25044 25045 25046 25052 25054 25056 25057 25058 25059 25060 25066 25068 25070
25071 25072 25073 25074 25080 25082 25084 25085 25086 25087 25088 25094 25096 25098
25099 25100 25101 25102 25108 25110 25112 25113 25114 25115 25116 25122 25124 25126
25127 25128 25129 25130 25137 25139 25141 25142 25143 25144 25145 25151 25153 25155
25156 25157 25158 25159 25171 25173 25175 25176 25177 25178 25179 25185 25187 25189
25190 25191 25192 25193 25199 25201 25203 25204 25205 25206 25207 25213 25215 25217
25218 25219 25220 25221 25227 25229 25231 25232 25233 25234 25235 25241 25243 25245
25246 25247 25248 25249 25255 25257 25259 25260 25261 25262 25263 25269 25271 25273
25274 25275 25276 25277 25283 25285 25287 25288 25289 25290 25291 25297 25299 25301
25302 25303 25304 25305 25311 25313 25315 25316 25317 25318 25319 25325 25327 25329
25330 25331 25332 25333 25339 25341 25343 25344 25345 25346 25347 25353 25355 25357
25358 25359 25360 25361 25367 25369 25371 25372 25373 25374 25375 25381 25383 25385
25386 25387 25388 25389 25395 25397 25399 25400 25401 25402 25403 25410 25412 25414
25415 25416 25417 25418 25430 25432 25434 25435 25436 25437 25438 25444 25446 25448
25449 25450 25451 25452 25458 25460 25462 25463 25464 25465 25466 25472 25474 25476
25477 25478 25479 25480 25486 25488 25490 25491 25492 25493 25494 25500 25502 25504
25505 25506 25507 25508 25514 25516 25518 25519 25520 25521 25522 25528 25530 25532
25533 25534 25535 25536 25558 25560 25562 25563 25564 25565 25566 25574 25576 25578
25579 25580 25581 25582 25590 25592 25594 25595 25596 25597 25598 25606 25608 25610
25611 25612 25613 25614 25622 25624 25626 25627 25628 25629 25630 25638 25640 25642
25643 25644 25645 25646 25654 25656 25658 25659 25660 25661 25662 25670 25672 25674
25675 25676 25677 25678 25686 25688 25690 25691 25692 25693 25694 25702 25704 25706
25707 25708 25709 25710 25718 25720 25722 25723 25724 25725 25726 25734 25736 25738
25739 25740 25741 25742 25750 25752 25754 25755 25756 25757 25758 25766 25768 25770
25771 25772 25773 25774 25782 25784 25786 25787 25788 25789 25790 25798 25800 25802
25803 25804 25805 25806 25814 25816 25818 25819 25820 25821 25822 25830 25832 25834
25835 25836 25837 25838 25845 25847 25849 25850 25851 25852 25853 25865 25867 25869
25870 25871 25872 25873 25879 25881 25883 25884 25885 25886 25887 25893 25895 25897
25898 25899 25900 25901 25907 25909 25911 25912 25913 25914 25915 25921 25923 25925
25926 25927 25928 25929 25935 25937 25939 25940 25941 25942 25943 25949 25951 25953
25954 25955 25956 25957 25963 25965 25967 25968 25969 25970 25971 25977 25979 25981
25982 25983 25984 25985 25991 25993 25995 25996 25997 25998 25999 26005 26007 26009
26010 26011 26012 26013 26019 26021 26023 26024 26025 26026 26027 26033 26035 26037
26038 26039 26040 26041 26047 26049 26051 26052 26053 26054 26055 26061 26063 26065
26066 26067 26068 26069 26075 26077 26079 26080 26081 26082 26083 26090 26092 26094
26095 26096 26097 26098 26104 26106 26108 26109 26110 26111 26112 26124 26126 26128
26129 26130 26131 26132 26138 26140 26142 26143 26144 26145 26146 26152 26154 26156
26157 26158 26159 26160 26166 26168 26170 26171 26172 26173 26174 26180 26182 26184
26185 26186 26187 26188 26194 26196 26198 26199 26200 26201 26202 26208 26210 26212
26213 26214 26215 26216 26222 26224 26226 26227 26228 26229 26230 26236 26238 26240
26241 26242 26243 26244 26250 26252 26254 26255 26256 26257 26258 26264 26266 26268
26269 26270 26271 26272 26278 26280 26282 26283 26284 26285 26286 26292 26294 26296
26297 26298 26299 26300 26306 26308 26310 26311 26312 26313 26314 26320 26322 26324
26325 26326 26327 26328 26334 26336 26338 26339 26340 26341 26342 26348 26350 26352
26353 26354 26355 26356 26363 26365 26367 26368 26369 26370 26371 26383 26385 26387
26388 26389 26390 26391 26397 26399 26401 26402 26403 26404 26405 26411 26413 26415
26416 26417 26418 26419 26425 26427 26429 26430 26431 26432 26433 26439 26441 26443
26444 26445 26446 26447 26453 26455 26457 26458 26459 26460 26461 26467 26469 26471
26472 26473 26474 26475 26481 26483 26485 26486 26487 26488 26489 26510 26512 26514
26515 26516 26517 26518 26525 26527 26529 26530 26531 26532 26533 26540 26542 26544 SEQ 0817
26545 26546 26547 26548 26555 26557 26559 26560 26561 26562 26563 26570 26572 26574
26575 26576 26577 26578 26585 26587 26589 26590 26591 26592 26593 26600 26602 26604
26605 26606 26607 26608 26615 26617 26619 26620 26621 26622 26623 26630 26632 26634
26635 26636 26637 26638 26645 26647 26649 26650 26651 26652 26653 26660 26662 26664
26665 26666 26667 26668 26675 26677 26679 26680 26681 26682 26683 26690 26692 26694
26695 26696 26697 26698 26705 26707 26709 26710 26711 26712 26713 26720 26722 26724
26725 26726 26727 26728 26735 26737 26739 26740 26741 26742 26743 26750 26752 26754
26755 26756 26757 26758 26765 26767 26769 26770 26771 26772 26773 26790 26792 26794
26795 26796 26797 26798 26805 26807 26809 26810 26811 26812 26813 26820 26822 26824
26825 26826 26827 26828 26835 26837 26839 26840 26841 26842 26843 26850 26852 26854
26855 26856 26857 26858 26865 26867 26869 26870 26871 26872 26873 26880 26882 26884
26885 26886 26887 26888 26895 26897 26899 26900 26901 26902 26903 26910 26912 26914
26915 26916 26917 26918 26925 26927 26929 26930 26931 26932 26933 26940 26942 26944
26945 26946 26947 26948 26955 26957 26959 26960 26961 26962 26963 26970 26972 26974
26975 26976 26977 26978 26985 26987 26989 26990 26991 26992 26993 27000 27002 27004
27005 27006 27007 27008 27015 27017 27019 27020 27021 27022 27023 27030 27032 27034
27035 27036 27037 27038 27043 27045 27047 27048 27049 27050 27051 27067 27069 27071
27072 27073 27074 27075 27082 27084 27086 27087 27088 27089 27090 27097 27099 27101
27102 27103 27104 27105 27112 27114 27116 27117 27118 27119 27120 27127 27129 27131
27132 27133 27134 27135 27142 27144 27146 27147 27148 27149 27150 27157 27159 27161
27162 27163 27164 27165 27172 27174 27176 27177 27178 27179 27180 27187 27189 27191
27192 27193 27194 27195 27202 27204 27206 27207 27208 27209 27210 27217 27219 27221
27222 27223 27224 27225 27232 27234 27236 27237 27238 27239 27240 27247 27249 27251
27252 27253 27254 27255 27262 27264 27266 27267 27268 27269 27270 27277 27279 27281
27282 27283 27284 27285 27292 27294 27296 27297 27298 27299 27300 27307 27309 27311
27312 27313 27314 27315 27322 27324 27326 27327 27328 27329 27330 27347 27349 27351
27352 27353 27354 27355 27362 27364 27366 27367 27368 27369 27370 27377 27379 27381
27382 27383 27384 27385 27392 27394 27396 27397 27398 27399 27400 27407 27409 27411
27412 27413 27414 27415 27422 27424 27426 27427 27428 27429 27430 27437 27439 27441
27442 27443 27444 27445 27452 27454 27456 27457 27458 27459 27460 27467 27469 27471
27472 27473 27474 27475 27494 27496 27498 27499 27500 27501 27502 27508 27510 27512
27513 27514 27515 27516 27522 27524 27526 27527 27528 27529 27530 27536 27538 27540
27541 27542 27543 27544 27550 27552 27554 27555 27556 27557 27558 27564 27566 27568
27569 27570 27571 27572 27578 27580 27582 27583 27584 27585 27586 27592 27594 27596
27597 27598 27599 27600 27606 27608 27610 27611 27612 27613 27614 27620 27622 27624
27625 27626 27627 27628 27634 27636 27638 27639 27640 27641 27642 27648 27650 27652
27653 27654 27655 27656 27662 27664 27666 27667 27668 27669 27670 27676 27678 27680
27681 27682 27683 27684 27690 27692 27694 27695 27696 27697 27698 27704 27706 27708
27709 27710 27711 27712 27718 27720 27722 27723 27724 27725 27726 27732 27734 27736
27737 27738 27739 27740 27755 27757 27759 27760 27761 27762 27763 27769 27771 27773
27774 27775 27776 27777 27783 27785 27787 27788 27789 27790 27791 27797 27799 27801
27802 27803 27804 27805 27811 27813 27815 27816 27817 27818 27819 27825 27827 27829
27830 27831 27832 27833 27839 27841 27843 27844 27845 27846 27847 27853 27855 27857
27858 27859 27860 27861 27867 27869 27871 27872 27873 27874 27875 27881 27883 27885
27886 27887 27888 27889 27895 27897 27899 27900 27901 27902 27903 27909 27911 27913
27914 27915 27916 27917 27923 27925 27927 27928 27929 27930 27931 27937 27939 27941
27942 27943 27944 27945 27951 27953 27955 27956 27957 27958 27959 27965 27967 27969
27970 27971 27972 27973 27979 27981 27983 27984 27985 27986 27987 27993 27995 27997
27998 27999 28000 28001 28016 28018 28020 28021 28022 28023 28024 28030 28032 28034
28035 28036 28037 28038 28044 28046 28048 28049 28050 28051 28052 28058 28060 28062
28063 28064 28065 28066 28072 28074 28076 28077 28078 28079 28080 28086 28088 28090
28091 28092 28093 28094 28100 28102 28104 28105 28106 28107 28108 28114 28116 28118
28119 28120 28121 28122 28128 28130 28132 28133 28134 28135 28136 28142 28144 28146 SEQ 0818
28147 28148 28149 28150 28156 28158 28160 28161 28162 28163 28164 28170 28172 28174
28175 28176 28177 28178 28184 28186 28188 28189 28190 28191 28192 28198 28200 28202
28203 28204 28205 28206 28212 28214 28216 28217 28218 28219 28220 28226 28228 28230
28231 28232 28233 28234 28240 28242 28244 28245 28246 28247 28248 28254 28256 28258
28259 28260 28261 28262 28277 28279 28281 28282 28283 28284 28285 28291 28293 28295
28296 28297 28298 28299 28305 28307 28309 28310 28311 28312 28313 28319 28321 28323
28324 28325 28326 28327 28333 28335 28337 28338 28339 28340 28341 28347 28349 28351
28352 28353 28354 28355 28361 28363 28365 28366 28367 28368 28369 28375 28377 28379
28380 28381 28382 28383 28389 28391 28393 28394 28395 28396 28397 28401 28403 28405
28406 28407 28408 28409 28414# 28416 28417 28418 28419 28424 28426 28428 28429 28430
28431 28432 28447 28449 28451 28452 28453 28454 28455 28461 28463 28465 28466 28467
28468 28469 28475 28477 28479 28480 28481 28482 28483 28489 28491 28493 28494 28495
28496 28497 28503 28505 28507 28508 28509 28510 28511 28517 28519 28521 28522 28523
28524 28525 28531 28533 28535 28536 28537 28538 28539 28545 28547 28549 28550 28551
28552 28553 28568 28570 28572 28573 28574 28575 28576 28582 28584 28586 28587 28588
28589 28590 28596 28598 28600 28601 28602 28603 28604 28610 28612 28614 28615 28616
28617 28618 28624 28626 28628 28629 28630 28631 28632 28638 28640 28642 28643 28644
28645 28646 28652 28654 28656 28657 28658 28659 28660 28666 28668 28670 28671 28672
28673 28674 28680 28682 28684 28685 28686 28687 28688 28694 28696 28698 28699 28700
28701 28702 28708 28710 28712 28713 28714 28715 28716 28722 28724 28726 28727 28728
28729 28730 28736 28738 28740 28741 28742 28743 28744 28750 28752 28754 28755 28756
28757 28758 28764 28766 28768 28769 28770 28771 28772 28778 28780 28782 28783 28784
28785 28786 28792 28794 28796 28797 28798 28799 28800 28806 28808 28810 28811 28812
28813 28814 28829 28831 28833 28834 28835 28836 28837 28843 28845 28847 28848 28849
28850 28851 28857 28859 28861 28862 28863 28864 28865 28871 28873 28875 28876 28877
28878 28879 28885 28887 28889 28890 28891 28892 28893 28899 28901 28903 28904 28905
28906 28907 28913 28915 28917 28918 28919 28920 28921 28927 28929 28931 28932 28933
28934 28935 28941 28943 28945 28946 28947 28948 28949 28955 28957 28959 28960 28961
28962 28963 28969 28971 28973 28974 28975 28976 28977 28983 28985 28987 28988 28989
28990 28991 28997 28999 29001 29002 29003 29004 29005 29011 29013 29015 29016 29017
29018 29019 29025 29027 29029 29030 29031 29032 29033 29039 29041 29043 29044 29045
29046 29047 29053 29055 29057 29058 29059 29060 29061 29076 29078 29080 29081 29082
29083 29084 29090 29092 29094 29095 29096 29097 29098 29104 29106 29108 29109 29110
29111 29112 29118 29120 29122 29123 29124 29125 29126 29132 29134 29136 29137 29138
29139 29140 29146 29148 29150 29151 29152 29153 29154 29160 29162 29164 29165 29166
29167 29168 29174 29176 29178 29179 29180 29181 29182 29188 29190 29192 29193 29194
29195 29196 29202 29204 29206 29207 29208 29209 29210 29216 29218 29220 29221 29222
29223 29224 29230 29232 29234 29235 29236 29237 29238 29244 29246 29248 29249 29250
29251 29252 29258 29260 29262 29263 29264 29265 29266 29272 29274 29276 29277 29278
29279 29280 29286 29288 29290 29291 29292 29293 29294 29300 29302 29304 29305 29306
29307 29308 29314 29316 29318 29319 29320 29321 29322 29343 29345 29347 29348 29349
29350 29351 29359 29361 29363 29364 29365 29366 29367 29375 29377 29379 29380 29381
29382 29383 29391 29393 29395 29396 29397 29398 29399 29407 29409 29411 29412 29413
29414 29415 29423 29425 29427 29428 29429 29430 29431 29439 29441 29443 29444 29445
29446 29447 29455 29457 29459 29460 29461 29462 29463 29471 29473 29475 29476 29477
29478 29479 29496 29498 29500 29501 29502 29503 29504 29511 29513 29515 29516 29517
29518 29519 29526 29528 29530 29531 29532 29533 29534 29541 29543 29545 29546 29547
29548 29549 29556 29558 29560 29561 29562 29563 29564 29571 29573 29575 29576 29577
29578 29579 29586 29588 29590 29591 29592 29593 29594 29601 29603 29605 29606 29607
29608 29609 29616 29618 29620 29621 29622 29623 29624 29631 29633 29635 29636 29637
29638 29639 29656 29658 29660 29661 29662 29663 29664 29671 29673 29675 29676 29677
29678 29679 29686 29688 29690 29691 29692 29693 29694 29701 29703 29705 29706 29707
29708 29709 29716 29718 29720 29721 29722 29723 29724 29731 29733 29735 29736 29737 SEQ 0819
29738 29739 29746 29748 29750 29751 29752 29753 29754 29761 29763 29765 29766 29767
29768 29769 29785 29787 29789 29790 29791 29792 29793 29800 29802 29804 29805 29806
29807 29808 29815 29817 29819 29820 29821 29822 29823 29830 29832 29834 29835 29836
29837 29838 29845 29847 29849 29850 29851 29852 29853 29860 29862 29864 29865 29866
29867 29868 29875 29877 29879 29880 29881 29882 29883 29890 29892 29894 29895 29896
29897 29898 29905 29907 29909 29910 29911 29912 29913 29930 29932 29934 29935 29936
29937 29938 29945 29947 29949 29950 29951 29952 29953 29960 29962 29964 29965 29966
29967 29968 29975 29977 29979 29980 29981 29982 29983 29990 29992 29994 29995 29996
29997 29998 30005 30007 30009 30010 30011 30012 30013 30020 30022 30024 30025 30026
30027 30028 30035 30037 30039 30040 30041 30042 30043 30060 30062 30064 30065 30066
30067 30068 30075 30077 30079 30080 30081 30082 30083 30090 30092 30094 30095 30096
30097 30098 30105 30107 30109 30110 30111 30112 30113 30120 30122 30124 30125 30126
30127 30128 30135 30137 30139 30140 30141 30142 30143 30150 30152 30154 30155 30156
30157 30158 30165 30167 30169 30170 30171 30172 30173 30180 30182 30184 30185 30186
30187 30188 30195 30197 30199 30200 30201 30202 30203 30221 30223 30225 30226 30227
30228 30229 30236 30238 30240 30241 30242 30243 30244 30251 30253 30255 30256 30257
30258 30259 30266 30268 30270 30271 30272 30273 30274 30281 30283 30285 30286 30287
30288 30289 30296 30298 30300 30301 30302 30303 30304 30311 30313 30315 30316 30317
30318 30319 30326 30328 30330 30331 30332 30333 30334 30340 30342 30344 30345 30346
30347 30348 30349 30352 30354 30356 30357 30358 30359 30360 30363 30365 30367 30368
30369 30370 30371 30374 30376 30378 30379 30380 30381 30382 30385 30387 30389 30390
30391 30392 30393 30396 30398 30400 30401 30402 30403 30404 30407 30409 30411 30412
30413 30414 30415 30418 30420 30422 30423 30424 30425 30426 30429 30431 30433 30434
30435 30436 30437 30440 30442 30444 30445 30446 30447 30448 30451 30453 30455 30456
30457 30458 30459 30462 30464 30466 30467 30468 30469 30470 30473 30475 30477 30478
30479 30480 30481 30484 30486 30488 30489 30490 30491 30492 30495 30497 30499 30500
30501 30502 30503 30506 30508 30510 30511 30512 30513 30514 30517 30519 30521 30522
30523 30524 30525 30528 30530 30532 30533 30534 30535 30536 30539 30541 30543 30544
30545 30546 30547 30550 30552 30554 30555 30556 30557 30558 30561 30563 30565 30566
30567 30568 30569 30572 30574 30576 30577 30578 30579 30580 30583 30585 30587 30588
30589 30590 30591 30594 30596 30598 30599 30600 30601 30602 30605 30607 30609 30610
30611 30612 30613 30616 30618 30620 30621 30622 30623 30624 30627 30629 30631 30632
30633 30634 30635 30638 30640 30642 30643 30644 30645 30646 30649 30651 30653 30654
30655 30656 30657 30660 30662 30664 30665 30666 30667 30668 30671 30673 30675 30676
30677 30678 30679 30682 30684 30686 30687 30688 30689 30690 30693 30695 30697 30698
30699 30700 30701 30704 30706 30708 30709 30710 30711 30712 30715 30717 30719 30720
30721 30722 30723 30726 30728 30730 30731 30732 30733 30734 30737 30739 30741 30742
30743 30744 30745 30748 30750 30752 30753 30754 30755 30756 30759 30761 30763 30764
30765 30766 30767 30770 30772 30774 30775 30776 30777 30778 30781 30783 30785 30786
30787 30788 30789 30792 30794 30796 30797 30798 30799 30800 30803 30805 30807 30808
30809 30810 30811 30814 30816 30818 30819 30820 30821 30822 30825 30827 30829 30830
30831 30832 30833 30836 30838 30840 30841 30842 30843 30844 30847 30849 30851 30852
30853 30854 30855 30859 30861 30863 30864 30865 30866 30867 30870 30872 30874 30875
30876 30877 30878 30881 30883 30885 30886 30887 30888 30889 30892 30894 30896 30897
30898 30899 30900 30903 30905 30907 30908 30909 30910 30911 30914 30916 30918 30919
30920 30921 30922 30925 30927 30929 30930 30931 30932 30933 30936 30938 30940 30941
30942 30943 30944 30947 30949 30951 30952 30953 30954 30955 30958 30960 30962 30963
30964 30965 30966 30969 30971 30973 30974 30975 30976 30977 30980 30982 30984 30985
30986 30987 30988 30991 30993 30995 30996 30997 30998 30999 31002 31004 31006 31007
31008 31009 31010 31013 31015 31017 31018 31019 31020 31021 31024 31026 31028 31029
31030 31031 31032 31035 31037 31039 31040 31041 31042 31043 31046 31048 31050 31051
31052 31053 31054 31057 31059 31061 31062 31063 31064 31065 31068 31070 31072 31073
31074 31075 31076 31079 31081 31083 31084 31085 31086 31087 31090 31092 31094 31095 SEQ 0820
31096 31097 31098 31101 31103 31105 31106 31107 31108 31109 31112 31114 31116 31117
31118 31119 31120 31123 31125 31127 31128 31129 31130 31131 31134 31136 31138 31139
31140 31141 31142 31145 31147 31149 31150 31151 31152 31153 31157 31159 31161 31162
31163 31164 31165 31168 31170 31172 31173 31174 31175 31176 31179 31181 31183 31184
31185 31186 31187 31190 31192 31194 31195 31196 31197 31198 31201 31203 31205 31206
31207 31208 31209 31212 31214 31216 31217 31218 31219 31220 31223 31225 31227 31228
31229 31230 31231 31234 31236 31238 31239 31240 31241 31242 31245 31247 31249 31250
31251 31252 31253 31256 31258 31260 31261 31262 31263 31264 31267 31269 31271 31272
31273 31274 31275 31278 31280 31282 31283 31284 31285 31286 31289 31291 31293 31294
31295 31296 31297 31300 31302 31304 31305 31306 31307 31308 31311 31313 31315 31316
31317 31318 31319 31322 31324 31326 31327 31328 31329 31330 31333 31335 31337 31338
31339 31340 31341 31344 31346 31348 31349 31350 31351 31352 31355 31357 31359 31360
31361 31362 31363 31366 31368 31370 31371 31372 31373 31374 31377 31379 31381 31382
31383 31384 31385 31388 31390 31392 31393 31394 31395 31396 31399 31401 31403 31404
31405 31406 31407 31410 31412 31414 31415 31416 31417 31418 31421 31423 31425 31426
31427 31428 31429 31432 31434 31436 31437 31438 31439 31440 31443 31445 31447 31448
31449 31450 31451 31454 31456 31458 31459 31460 31461 31462 31465 31467 31469 31470
31471 31472 31473 31476 31478 31480 31481 31482 31483 31484 31487 31489 31491 31492
31493 31494 31495 31498 31500 31502 31503 31504 31505 31506 31509 31511 31513 31514
31515 31516 31517 31520 31522 31524 31525 31526 31527 31528 31531 31533 31535 31536
31537 31538 31539 31542 31544 31546 31547 31548 31549 31550 31553 31555 31557 31558
31559 31560 31561 31564 31566 31568 31569 31570 31571 31572 31575 31577 31579 31580
31581 31582 31583 31586 31588 31590 31591 31592 31593 31594 31597 31599 31601 31602
31603 31604 31605 31608 31610 31612 31613 31614 31615 31616 31619 31621 31623 31624
31625 31626 31627 31630 31632 31634 31635 31636 31637 31638 31641 31643 31645 31646
31647 31648 31649 31652 31654 31656 31657 31658 31659 31660 31663 31665 31667 31668
31669 31670 31671 31674 31676 31678 31679 31680 31681 31682 31685 31687 31689 31690
31691 31692 31693 31696 31698 31700 31701 31702 31703 31704 31707 31709 31711 31712
31713 31714 31715 31718 31720 31722 31723 31724 31725 31726 31729 31731 31733 31734
31735 31736 31737 31740 31742 31744 31745 31746 31747 31748 31751 31753 31755 31756
31757 31758 31759 31762 31764 31766 31767 31768 31769 31770 31773 31775 31777 31778
31779 31780 31781 31784 31786 31788 31789 31790 31791 31792 31795 31797 31799 31800
31801 31802 31803 31806 31808 31810 31811 31812 31813 31814 31817 31819 31821 31822
31823 31824 31825 31828 31830 31832 31833 31834 31835 31836 31839 31841 31843 31844
31845 31846 31847 31850 31852 31854 31855 31856 31857 31858 31861 31863 31865 31866
31867 31868 31869 31872 31874 31876 31877 31878 31879 31880 31883 31885 31887 31888
31889 31890 31891 31894 31896 31898 31899 31900 31901 31902 31905 31907 31909 31910
31911 31912 31913 31916 31918 31920 31921 31922 31923 31924 31927 31929 31931 31932
31933 31934 31935 31938 31940 31942 31943 31944 31945 31946 31949 31951 31953 31954
31955 31956 31957 31960 31962 31964 31965 31966 31967 31968 31971 31973 31975 31976
31977 31978 31979 31982 31984 31986 31987 31988 31989 31990 31993 31995 31997 31998
31999 32000 32001 32004 32006 32008 32009 32010 32011 32012 32015 32017 32019 32020
32021 32022 32023 32026 32028 32030 32031 32032 32033 32034 32037 32039 32041 32042
32043 32044 32045 32048 32050 32052 32053 32054 32055 32056 32059 32061 32063 32064
32065 32066 32067 32070 32072 32074 32075 32076 32077 32078 32081 32083 32085 32086
32087 32088 32089 32092 32094 32096 32097 32098 32099 32100 32103 32105 32107 32108
32109 32110 32111 32114 32116 32118 32119 32120 32121 32122 32125 32127 32129 32130
32131 32132 32133 32136# 32138 32139 32140 32141 32144 32146 32148 32149 32150 32151
32152 32155 32158 32159 32160 32161 32164 32166 32168 32169 32170 32171 32172 32174
32176 32177 32178 32179 32181 32183 32185 32186 32187 32188 32189 32192 32195 32196
32197 32198 32201 32203 32205 32206 32207 32208 32209 32211 32213 32214 32215 32216
32218 32220 32222 32223 32224 32225 32226 32229 32232 32233 32234 32235 32238 32240
32242 32243 32244 32245 32246 32248 32250 32251 32252 32253 32255 32257 32259 32260 SEQ 0821
32261 32262 32263 32266 32269 32270 32271 32272 32275 32277 32279 32280 32281 32282
32283 32285 32287 32288 32289 32290 32293# 32295 32296 32297 32298 32302 32304 32306
32307 32308 32309 32310 32311 32314 32316 32318 32319 32320 32321 32322 32325 32327
32329 32330 32331 32332 32333 32336 32338 32340 32341 32342 32343 32344 32347 32349
32351 32352 32353 32354 32355 32358 32360 32362 32363 32364 32365 32366 32369 32371
32373 32374 32375 32376 32377 32380 32382 32384 32385 32386 32387 32388 32391# 32393
32394 32395 32396 32399 32401 32403 32404 32405 32406 32407 32410 32413 32414 32415
32416 32419 32421 32423 32424 32425 32426 32427 32429 32431 32432 32433 32434 32436
32438 32440 32441 32442 32443 32444 32447 32450 32451 32452 32453 32456 32458 32460
32461 32462 32463 32464 32466 32468 32469 32470 32471 32473 32475 32477 32478 32479
32480 32481 32484 32487 32488 32489 32490 32493 32495 32497 32498 32499 32500 32501
32503 32505 32506 32507 32508 32510 32512 32514 32515 32516 32517 32518 32521 32524
32525 32526 32527 32530 32532 32534 32535 32536 32537 32538 32540 32542 32543 32544
32545 32548# 32550 32551 32552 32553 32557 32559 32561 32562 32563 32564 32565 32566
32569 32571 32573 32574 32575 32576 32577 32580 32582 32584 32585 32586 32587 32588
32591 32593 32595 32596 32597 32598 32599 32602 32604 32606 32607 32608 32609 32610
32613 32615 32617 32618 32619 32620 32621 32624 32626 32628 32629 32630 32631 32632
32635 32637 32639 32640 32641 32642 32643 32646 32648 32650 32651 32652 32653 32654
32657 32659 32661 32662 32663 32664 32665 32668 32670 32672 32673 32674 32675 32676
32679 32681 32683 32684 32685 32686 32687 32690 32692 32694 32695 32696 32697 32698
32701 32703 32705 32706 32707 32708 32709 32712 32714 32716 32717 32718 32719 32720
32723 32725 32727 32728 32729 32730 32731 32734 32736 32738 32739 32740 32741 32742
32745 32747 32749 32750 32751 32752 32753 32756 32758 32760 32761 32762 32763 32764
32767 32769 32771 32772 32773 32774 32775 32778 32780 32782 32783 32784 32785 32786
32790 32792 32794 32795 32796 32797 32798 32801 32803 32805 32806 32807 32808 32809
32812 32814 32816 32817 32818 32819 32820 32823 32825 32827 32828 32829 32830 32831
32834 32836 32838 32839 32840 32841 32842 32845 32847 32849 32850 32851 32852 32853
32856 32858 32860 32861 32862 32863 32864 32867 32869 32871 32872 32873 32874 32875
32878 32880 32882 32883 32884 32885 32886 32889 32891 32893 32894 32895 32896 32897
32900 32902 32904 32905 32906 32907 32908 32911 32913 32915 32916 32917 32918 32919
32922 32924 32926 32927 32928 32929 32930 32933 32935 32939 32940 32941 32942 32943
32946 32947 32948 32949 32955 32957 32961 32962 32963 32964 32965 32968 32969 32970
32971 32977 32979 32983 32984 32985 32986 32987 32990 32991 32992 32993 32999 33001
33005 33006 33007 33008 33009 33012 33013 33014 33015 33021 33023 33027 33028 33029
33030 33031 33034 33035 33036 33037 33043 33045 33049 33050 33051 33052 33053 33056
33057 33058 33059 33065 33067 33071 33072 33073 33074 33075 33078 33079 33080 33081
33087 33089 33093 33094 33095 33096 33097 33100 33101 33102 33103 33109 33111 33115
33116 33117 33118 33119 33122 33123 33124 33125 33131 33133 33137 33138 33139 33140
33141 33144 33145 33146 33147 33153 33155 33159 33160 33161 33162 33163 33166 33167
33168 33169 33175 33177 33181 33182 33183 33184 33185 33188 33189 33190 33191 33197
33199 33203 33204 33205 33206 33207 33210 33211 33212 33213 33219 33221 33225 33226
33227 33228 33229 33232 33233 33234 33235 33241 33243 33245 33246 33247 33248 33249
33252 33254 33256 33257 33258 33259 33260 33263 33265 33267 33268 33269 33270 33271
33274 33276 33278 33279 33280 33281 33282 33285 33287 33289 33290 33291 33292 33293
33296 33298 33300 33301 33302 33303 33304 33307 33309 33311 33312 33313 33314 33315
33318 33320 33322 33323 33324 33325 33326 33329 33331 33333 33334 33335 33336 33337
33340 33342 33344 33345 33346 33347 33348 33351 33353 33355 33356 33357 33358 33359
33362 33364 33366 33367 33368 33369 33370 33373 33375 33377 33378 33379 33380 33381
33384 33386 33390 33391 33392 33393 33394 33397 33398 33399 33400 33406 33408 33410
33411 33412 33413 33414 33417 33419 33421 33422 33423 33424 33425 33428 33430 33432
33433 33434 33435 33436 33439 33441 33443 33444 33445 33446 33447 33450 33452 33454
33455 33456 33457 33458 33461 33463 33465 33466 33467 33468 33469 33472 33474 33476
33477 33478 33479 33480 33483 33485 33487 33488 33489 33490 33491 33494 33496 33498 SEQ 0822
33499 33500 33501 33502 33505# 33507 33508 33509 33510 33513 33515 33517 33518 33519
33520 33521 33524 33527 33528 33529 33530 33533 33535 33537 33538 33539 33540 33541
33543 33545 33546 33547 33548 33550 33552 33554 33555 33556 33557 33558 33561 33564
33565 33566 33567 33570 33572 33574 33575 33576 33577 33578 33580 33582 33583 33584
33585 33587 33589 33591 33592 33593 33594 33595 33598 33601 33602 33603 33604 33607
33609 33611 33612 33613 33614 33615 33617 33619 33620 33621 33622 33624 33626 33628
33629 33630 33631 33632 33635 33638 33639 33640 33641 33644 33646 33648 33649 33650
33651 33652 33654 33656 33657 33658 33659 33662# 33664 33665 33666 33667 33671 33673
33675 33676 33677 33678 33679 33680 33683 33685 33687 33688 33689 33690 33691 33694
33696 33698 33699 33700 33701 33702 33705 33707 33709 33710 33711 33712 33713 33716
33718 33720 33721 33722 33723 33724 33727 33729 33731 33732 33733 33734 33735 33738
33740 33742 33743 33744 33745 33746 33749 33751 33753 33754 33755 33756 33757 33760
33762 33764 33765 33766 33767 33768 33771 33773 33775 33776 33777 33778 33779 33782
33784 33786 33787 33788 33789 33790 33793 33795 33797 33798 33799 33800 33801 33804
33806 33808 33809 33810 33811 33812 33815 33817 33819 33820 33821 33822 33823 33826
33828 33830 33831 33832 33833 33834 33837 33839 33841 33842 33843 33844 33845 33848
33850 33852 33853 33854 33855 33856 33859 33861 33863 33864 33865 33866 33867 33870
33872 33874 33875 33876 33877 33878 33881 33883 33885 33886 33887 33888 33889 33892
33894 33896 33897 33898 33899 33900 33903 33905 33907 33908 33909 33910 33911 33914
33916 33918 33919 33920 33921 33922 33925 33927 33929 33930 33931 33932 33933 33936
33938 33940 33941 33942 33943 33944 33947 33949 33951 33952 33953 33954 33955 33958
33960 33962 33963 33964 33965 33966 33969 33971 33973 33974 33975 33976 33977 33980
33982 33984 33985 33986 33987 33988 33991 33993 33995 33996 33997 33998 33999 34002
34004 34006 34007 34008 34009 34010 34013 34015 34017 34018 34019 34020 34021 34024
34026 34028 34029 34030 34031 34032 34035 34037 34039 34040 34041 34042 34043 34046
34048 34050 34051 34052 34053 34054 34057 34059 34061 34062 34063 34064 34065 34068
34070 34072 34073 34074 34075 34076 34079 34081 34083 34084 34085 34086 34087 34090
34092 34094 34095 34096 34097 34098 34101 34103 34105 34106 34107 34108 34109 34112
34114 34116 34117 34118 34119 34120 34123 34125 34127 34128 34129 34130 34131 34134
34136 34138 34139 34140 34141 34142 34145 34147 34149 34150 34151 34152 34153 34157
34159 34164 34165 34175 34176 34178 34181 34182 34183 34184 34187 34189 34190 34193
34194 34200# 34202 34203 34204 34205 34208 34210 34212 34213 34214 34215 34216 34219
34222 34223 34224 34225 34228 34230 34232 34233 34234 34235 34236 34238 34240 34241
34242 34243 34245 34247 34249 34250 34251 34252 34253 34256 34259 34260 34261 34262
34265 34267 34269 34270 34271 34272 34273 34275 34277 34278 34279 34280 34282 34284
34286 34287 34288 34289 34290 34293 34296 34297 34298 34299 34302 34304 34306 34307
34308 34309 34310 34312 34314 34315 34316 34317 34319 34321 34323 34324 34325 34326
34327 34330 34333 34334 34335 34336 34339 34341 34343 34344 34345 34346 34347 34349
34351 34352 34353 34354 34358 34360 34362 34363 34364 34365 34366 34368 34370 34371
34372 34373 34378 34380 34382 34383 34384 34385 34386 34388 34390 34391 34392 34393
ALTMGO 897# 34532
AMCLRB 811#
ANXM 811#
APR 34169 34409 34561
AROV 811# 11365 11395
AROVTP 811#
AROVU 811#
AST 1012#
ATSIN 1013#
BEGEND 893# 34395
BEGIN 64 65 76 79 80 81 82 83 84 85 86 824# 36202
BEGIN1 840# 894
BELL 1016# SEQ 0823
BIS 811# 16171 16179
CA00 1169#
CB00 6393#
CC00 9001#
CCA 811#
CD00 16859#
CE00 28415#
CHAIN 601#
CHNOFF 811#
CHNON 811#
CLK 811#
CLKCLR 811#
CLKDIS 811#
CLKENB 811#
CLKU 811#
CLOCKF 879#
CNTLC 896#
CNTRP 811#
COMMA 1005#
CONSW 880# 34466 34533 34564
CPOPJ 900#
CPOPJ1 898#
CRLF 731 732 1000#
CRLF2 735 736 1002#
CRY0 811#
CRY1 811#
CSHFLG 1059#
CSHMEM 1060#
CTRP 811#
CYCL60 1053#
DCK 811# 34371 34391
DDTLNK 615# 838
DDTSRT 838#
DEBUG 55# 36193 36194
DECVER 3# 10 23 859
DF22F 964#
DIAGMN 827#
DING 587# 34538
DOLLAR 1019#
DSKUPD 864
E 15045# 15048 15048# 15066 15066# 15068 15069 15072 15080 15080# 15082 15083 15086 15094
15094# 15096 15097 15100 15108 15108# 15110 15111 15114 15122 15122# 15124 15125 15128
15405# 15408 15408# 15429 15429# 15435 15437 15446 15446# 15452 15454 15463 15463# 15469
15471 15480 15480# 15486 15488 15497 15497# 15503 15505 16018# 16021 16021# 16046 16046#
16047 16051 16052 16053 16054 16055 16056 16058 16065 16065# 16066 16070 16071 16072
16073 16074 16075 16077 16084 16084# 16085 16089 16090 16091 16092 16093 16094 16096
16103 16103# 16104 16108 16109 16110 16111 16113 16115 16122 16122# 16123 16127 16128
16129 16130 16131 16132 16134 16165# 16169 16172 16174 16175 16176 16177 16427# 16430
16430# 16460 16460# 16461 16466 16469 16471 16472 16473 16474 16475 16477 16484 16484#
16485 16490 16493 16495 16496 16497 16498 16499 16501 16508 16508# 16509 16514 16517
16519 16520 16521 16522 16523 16525 16532 16532# 16533 16538 16541 16543 16544 16545
16546 16547 16549 16556 16556# 16557 16562 16565 16567 16568 16569 16570 16571 16573
END 36201# SEQ 0824
ENDFIX 1139#
ENDSLD 36191#
ERDIAG 62# 34451
ERMORE 913# 34524
ERRELB 34521
ERRLOP 1176# 1176 1195# 1195 1213# 1213 1232# 1232 1250# 1250 1269# 1269 1367# 1367
1475# 1475 1493# 1493 1592# 1592 1666# 1666 1685# 1685 1705# 1705 1799# 1799
1816# 1816 1835# 1835 1854# 1854 1873# 1873 1893# 1893 1935# 1935 1958# 1958
1981# 1981 2000# 2000 2021# 2021 2040# 2040 2060# 2060 2080# 2080 2104# 2104
2129# 2129 2150# 2150 2172# 2172 2193# 2193 2215# 2215 2237# 2237 2257# 2257
2354# 2354 2375# 2375 2396# 2396 2419# 2419 2437# 2437 2457# 2457 2480# 2480
2553# 2553 2635# 2635 2656# 2656 2676# 2676 2695# 2695 2717# 2717 2738# 2738
2762# 2762 2783# 2783 2803# 2803 2822# 2822 2842# 2842 2862# 2862 2887# 2887
2910# 2910 2933# 2933 2960# 2960 2980# 2980 3008# 3008 3034# 3034 3055# 3055
3079# 3079 3099# 3099 3120# 3120 3141# 3141 3167# 3167 3285# 3285 3382# 3382
3510# 3510 3618# 3618 3672# 3672 3730# 3730 3790# 3790 4129# 4129 4302# 4302
4397# 4397 4433# 4433 4487# 4487 4541# 4541 4604# 4604 4666# 4666 4735# 4735
4803# 4803 4867# 4867 4936# 4936 5337# 5337 5382# 5382 5404# 5404 5426# 5426
5731# 5731 5752# 5752 5775# 5775 5797# 5797 5821# 5821 5841# 5841 6398# 6398
6427# 6427 6451# 6451 6480# 6480 6504# 6504 6530# 6530 6560# 6560 6652# 6652
6671# 6671 6698# 6698 6848# 6848 6869# 6869 6907# 6907 6928# 6928 6948# 6948
6975# 6975 6995# 6995 7016# 7016 7042# 7042 7068# 7068 7094# 7094 7200# 7200
7305# 7305 7365# 7365 7440# 7440 7460# 7460 7480# 7480 7565# 7565 7669# 7669
7726# 7726 7746# 7746 7769# 7769 7791# 7791 7812# 7812 7835# 7835 7858# 7858
7919# 7919 7943# 7943 7964# 7964 8017# 8017 8070# 8070 8098# 8098 8153# 8153
8213# 8213 8278# 8278 8330# 8330 8349# 8349 8371# 8371 8420# 8420 8445# 8445
8469# 8469 8490# 8490 8536# 8536 8559# 8559 8583# 8583 8606# 8606 8668# 8668
8690# 8690 8711# 8711 8736# 8736 8757# 8757 8781# 8781 8802# 8802 8903# 8903
8922# 8922 8941# 8941 9007# 9007 9026# 9026 11116# 11116 15004# 15004 15044# 15044
15354# 15354 15404# 15404 15973# 15973 16017# 16017 16164# 16164 16379# 16379 16426# 16426
16863# 16863 28419# 28419 32141# 32141 32298# 32298 32396# 32396 32553# 32553 33510# 33510
33667# 33667 34205# 34205 34431 34543 34546 34547
ERRMES 41 42 43 44 45 46 47 48 49 50 51 34402#
ERRPC 884# 34414 34448
ERRTLS 885# 34412 34550
ERSTOP 590# 34534
EXCASB 56# 862 34403 34555
EXCMEM 811#
EXCPFW 811#
EXIOT 811#
FOV 811# 5854 5870 5886 5903 5925 5944 5958 5972 5988 6002 6018 6033 6049
6071 6093 6108 6122 6138 6154 6171 6193 6212 6226 6240 6256 6270 6286
6301 6317 6339 6361 6376
FOVU 811#
FRDLNK 613#
FSELNK 612#
FXU 811# 5854 5868 5884 5901 5907 5923 5929 5944 5958 5974 5988 6004 6020
6035 6053 6057 6075 6079 6093 6108 6122 6136 6152 6169 6175 6191 6197
6212 6226 6242 6256 6272 6288 6303 6321 6325 6343 6347 6361 6376 6459
6830 6958 7024 7733 8477 32159 32177 32196 32214 32233 32251 32270 32288 32414
32432 32451 32469 32488 32506 32525 32543 33528 33546 33565 33583 33602 33620 33639
33657 34223 34241 34260 34278 34297 34315 34334 34352
HYPEN 1010# SEQ 0825
IADBRK 811#
IADEXC 811#
IADSTP 811#
IADUSR 811#
IAPRC1 811#
IAPRE1 811#
IASRTC 811#
IASRTE 811#
IASRTS 811#
ICNSLL 811#
ICNSLR 811#
IDATAF 811#
IEVNPR 811#
IFMMAN 811#
IINSTF 811#
IIOPFC 811#
IIOPFL 811#
IMAINT 811#
IMGINM 811#
IMGNLO 811#
IMGNOF 811# 34409
IMGNON 811#
IMIPGD 811#
IMLAPD 811#
INHCSH 598#
INHPAG 595#
INXCLR 811#
INXM 811#
INXSTP 811#
IOCLR 811#
IP50HZ 811#
IPAREN 811#
IPARER 811#
IPRSTP 811#
IPWRFL 811#
IPWRLO 811#
IRQCLR 811#
ISPDOF 811# 34409
ISPDON 811#
ITERAT 95# 857
ITMDIS 811#
ITMENB 811#
ITMOEN 811#
ITMOUT 811#
ITMSET 811#
ITRCH1 917#
ITRCNT 857#
IWRITE 811#
JOB41 811#
JOBAPR 811#
JOBCNI 811#
JOBDDT 811#
JOBFF 811# SEQ 0826
JOBOPC 811# 34531
JOBREL 811#
JOBREN 811#
JOBSA 811#
JOBSYM 811#
JOBTPC 811#
JOBUSY 811#
JOBUUO 811#
JOBVER 811#
KA10 811
KAHZ50 603#
KAIFLG 874# 34404 34556
KI10 58# 811 34403 34555
KL10 59# 811
KL10P0 60# 811
KLFLG 875# 5899 5921 6051 6073 6167 6189 6319 6341 15640 15652 15685 15697 15730
15742 15775 15787 16139 16151 16539 16687 16699 16733 16745 16779 16791 16825 16837
32937 32959 32981 33003 33025 33047 33069 33091 33113 33135 33157 33179 33201 33223
33388 34418
KLOLD 63# 811
KNTRP 811#
KTRP 811#
LAPRAL 811#
LAPRP1 811#
LAPRP2 811#
LAPRP3 811#
LAPRP4 811#
LAPRP5 811#
LAPRP6 811#
LAPRP7 811#
LAROVT 811#
LCADEN 811#
LCADRP 811#
LCASDE 811#
LCASLD 811#
LCASLO 811#
LCASWB 811#
LCASWD 811#
LCCAER 811#
LCCASD 811#
LCHNOF 811#
LCHNON 811#
LCIOPF 811#
LCNTRP 811#
LCNTXT 811#
LCNXER 811#
LCPAER 811#
LCPWRF 811#
LCSAER 811#
LCSBER 811#
LCSLOA 811#
LCSLOO 811#
LCTRP 811# SEQ 0827
LCWSX 811#
LDATAF 811#
LDCAER 811#
LDCASD 811#
LDEXCB 811#
LDIOPF 811#
LDLNK 614# 827 829
LDNXER 811#
LDPAER 811#
LDPWRF 811#
LDSAER 811#
LDSBER 811#
LDUSRB 811#
LEBXMH 811#
LEBXML 811#
LECAER 811#
LECASD 811#
LEIOPF 811#
LENXER 811#
LEPAER 811#
LEPWRF 811#
LESAER 811#
LESBER 811#
LEUPFW 811#
LEVNCD 811#
LEVNPA 811#
LEVNPD 811#
LEXCMP 811#
LFLGCL 811#
LFLGDS 811#
LFLGEN 811#
LFLGST 811#
LFP 1014#
LINSTF 811#
LINT 811#
LIOCLR 811#
LIOPFE 811#
LIP 811#
LKNTRP 811#
LKTRP 811#
LLACBL 811#
LLDUSB 811#
LLPRCN 811#
LMBXMH 811#
LMBXML 811#
LMUUO 811#
LMUUOP 811#
LNXMEN 811#
LNXMER 811#
LOOPER 589# 34536
LPAREN 811#
LPARER 811#
LPDOVT 811# SEQ 0828
LPFWPC 811#
LPGFTR 811#
LPICH1 811#
LPICH2 811#
LPICH3 811#
LPICH4 811#
LPICH5 811#
LPICH6 811#
LPICH7 811#
LPICHA 811#
LPICLR 811#
LPIIP1 811#
LPIIP2 811#
LPIIP3 811#
LPIIP4 811#
LPIIP5 811#
LPIIP6 811#
LPIIP7 811#
LPIOFF 811#
LPION 811#
LPNTRP 811#
LPRCH1 811#
LPRCH2 811#
LPRCH3 811#
LPRCH4 811#
LPRCH5 811#
LPRCH6 811#
LPRCH7 811#
LPRFMH 811#
LPRFML 811#
LPTRP 811#
LPWRFE 811#
LPWRFL 811#
LREQSE 811#
LRQCLR 811#
LSADEN 811#
LSADRP 811#
LSBSEN 811#
LSBUSE 811#
LSCAER 811#
LSCASD 811#
LSECMO 811#
LSIOPF 811#
LSMODE 811#
LSNTRP 811#
LSNXER 811#
LSPAER 811#
LSPWRF 811#
LSSAER 811#
LSSBER 811#
LSTRP 811#
LTBASH 811#
LTBASL 811# SEQ 0829
LTRP3T 811#
LTRPAE 811#
LTRPEN 811#
LUSCMP 811#
LUUO 811#
LUUO1 41# 944 945
LUUO10 48# 944 949
LUUO11 49# 944 949
LUUO12 50# 944 950
LUUO13 51# 944 950
LUUO14 944 951
LUUO15 944 951
LUUO16 944 952
LUUO17 944 952
LUUO2 42# 944 946
LUUO20 944 953
LUUO21 944 953
LUUO22 944 954
LUUO23 944 954
LUUO24 944 955
LUUO25 944 955
LUUO26 944 956
LUUO27 944 956
LUUO3 43# 944 946
LUUO30 944 957
LUUO31 944 957
LUUO32 944 958
LUUO33 944 958
LUUO4 44# 944 947
LUUO5 45# 944 947
LUUO6 46# 944 948
LUUO7 47# 944 948
LUUOI 811#
LWRITE 811#
MAPNEW 965#
MARGIN 887# 34408 34560 34561
MCNVER 4# 10 23 859
MEMLOW 967#
MEMMAP 865
MEMSIZ 968#
MEMTOT 966#
MICNT 34415# 34415 34416 34433
MINUS 1009#
MODDVC 597#
MODDVL 65# 796 860
MODDVU 64# 797 861
MODLNK 616# 824
MONCTL 877# 34434 34548
MONFLG 876#
MONTEN 878#
MONTYP 1091#
MPVU 811#
MUUO 811# SEQ 0830
MUUOPC 811#
NOPNT 585# 34424
NXMU 811#
O12300 1178# 1183
O12400 1197# 1202
O12500 1215# 1220
O12600 1234# 1239
O12700 1252# 1257
O13000 1274#
O13100 1374#
O13200 1477# 1482
O13300 1499#
O13400 1595# 1600
O13500 1603# 1608
O13600 1611# 1616
O13700 1619# 1624
O14000 1626# 1631
O14100 1634# 1639
O14200 1642# 1647
O14300 1650# 1655
O14400 1668# 1673
O14500 1687# 1692
O14600 1709#
O14700 1801# 1806
O15000 1818# 1823
O15100 1837# 1842
O15200 1856# 1861
O15300 1875# 1880
O15400 1896# 1902
O15500 1905# 1911
O15600 1914# 1921
O15700 1937# 1941
O16000 1960# 1966
O16100 1983# 1988
O16200 2002# 2008
O16300 2023# 2029
O16400 2042# 2048
O16500 2062# 2068
O16600 2082# 2088
O16700 2106# 2115
O17000 2131# 2137
O17100 2152# 2158
O17200 2174# 2180
O17300 2195# 2201
O17400 2217# 2223
O17500 2239# 2244
O17600 2262#
O17700 2356# 2362
O20000 2377# 2382
O20100 2398# 2404
O20200 2421# 2426
O20300 2439# 2445
O20400 2459# 2465 SEQ 0831
O20500 2483# 2489
O20600 2492# 2498
O20700 2501# 2507
O21000 2510# 2516
O21100 2518# 2524
O21200 2527# 2533
O21300 2536# 2542
O21400 2555# 2561
O21500 2564# 2570
O21600 2573# 2579
O21700 2582# 2588
O22000 2590# 2596
O22100 2599# 2605
O22200 2608# 2614
O22300 2617# 2623
O22400 2637# 2643
O22500 2658# 2664
O22600 2678# 2683
O22700 2697# 2703
O23000 2719# 2725
O23100 2740# 2746
O23200 2764# 2770
O23300 2785# 2791
O23400 2805# 2811
O23500 2824# 2830
O23600 2844# 2850
O23700 2864# 2870
O26500 2889# 2896
O26600 2912# 2920
O26700 2935# 2942
O27000 2962# 2969
O27100 3010# 3019
O27200 3036# 3042
O27300 3057# 3064
O27400 3081# 3087
O27500 3101# 3106
O27600 3122# 3128
O27700 3143# 3150
O30500 3173#
O30600 3290#
O30700 3389#
O31000 3516#
O31100 3623#
O31200 3678#
O31300 3736#
O31400 3795#
O31500 3889#
O31600 4135#
O31700 4308#
O32000 4399# 4405
O32100 4407# 4413
O32200 4415# 4421
O32300 4438# SEQ 0832
O32400 4492#
O32500 4547#
O32600 4610#
O32700 4673#
O33000 4742#
O33100 4809#
O33200 4874#
O33300 4942#
O33400 5213#
O33500 5340# 5350
O33600 5353# 5360
O33700 5363# 5371
O34400 5384# 5392
O34500 5406# 5414
O34600 5432#
O34700 5733# 5740
O35000 5754# 5762
O35100 5777# 5785
O35200 5799# 5807
O35300 5823# 5833
O35500 5843# 5856
O35510 5858# 5872
O35520 5874# 5888
O35530 5889# 5905
O35535 5900 5907#
O35537 5903# 5909
O35540 5906 5911# 5927
O35545 5922 5929#
O35547 5925# 5931
O35550 5928 5933# 5946
O35560 5947# 5960
O35570 5962# 5976 6244
O35600 5977# 5990
O35610 5992# 6006
O35620 6008# 6022
O35630 6023# 6037
O35640 6039# 6055
O35645 6052 6057#
O35647 6055# 6059
O35650 6056 6061# 6077
O35655 6074 6079#
O35657 6077# 6081
O35660 6078 6082# 6095
O35670 6097# 6110
O35700 6111# 6124
O35710 6126# 6140
O35720 6142# 6156
O35730 6157# 6173
O35735 6168 6175#
O35737 6171# 6177
O35740 6174 6179# 6195
O35745 6190 6197#
O35747 6193# 6199 SEQ 0833
O35750 6196 6201# 6214
O35760 6215# 6228
O35770 6230#
O36000 6245# 6258
O36010 6260# 6274
O36020 6276# 6290
O36030 6291# 6305
O36040 6307# 6323
O36045 6320 6325#
O36047 6323# 6327
O36050 6324 6329# 6345
O36055 6342 6347#
O36057 6345# 6349
O36060 6346 6350# 6363
O36070 6365# 6378
OPRSEL 599#
OPTIME 979#
P 642 643 644 645 811# 899 16143 16147
P100 6401# 6406
P1000 6565#
P10000 8447# 8455
P10100 8471# 8479
P10200 8494#
P10300 8538# 8548
P10400 8561# 8571
P10500 8585# 8595
P1100 6600#
P11200 8612#
P11300 8670# 8678
P11400 8692# 8700
P11500 8713# 8724
P11600 8738# 8746
P11700 8759# 8769
P1200 6633#
P12000 8783# 8791
P12100 8808#
P12200 8905# 8910
P12300 8924# 8930
P12400 8947#
P1300 6654# 6659
P1400 6673# 6683
P1500 6703#
P1600 6736# 6742
P1700 6747#
P200 6409# 6414
P2000 6781#
P2100 6814# 6820
P2200 6824# 6835
P2300 6850# 6856
P2400 6872# 6878
P2500 6881# 6887
P2600 6889# 6895
P2700 6909# 6915 SEQ 0834
P300 6429# 6439
P3000 6930# 6936
P3100 6950# 6962
P3200 6977# 6983
P3300 6997# 7003
P3400 7018# 7029
P3500 7044# 7055
P3600 7070# 7076
P3700 7098#
P400 6453# 6467
P4000 7204#
P4100 7310#
P4200 7368#
P4300 7442# 7447
P4400 7462# 7468
P4500 7485#
P4600 7570#
P4700 7674#
P500 6482# 6492
P5000 7728# 7735
P5100 7748# 7757
P5200 7771# 7780
P5300 7793# 7800
P5400 7814# 7823
P600 6506# 6516
P6100 7837# 7846
P6200 7863#
P6300 7921# 7931
P6400 7945# 7953
P6500 7969#
P6600 8023#
P6700 8072# 8086
P700 6532# 6543
P7000 8102#
P7100 8158#
P7200 8219#
P7300 8284#
P7400 8332# 8338
P7500 8351# 8358
P7600 8376#
P7700 8422# 8433
PAG 811#
PALERS 591# 34565
PARCLR 811#
PARDIS 811#
PAREA1 88# 855
PAREA2 89# 856
PAREA3 90# 853
PAREA4 91# 854
PAREA5 92# 866
PAREA6 93# 867
PAREA7 866#
PAREA8 867# SEQ 0835
PARENB 811#
PARU 811#
PASCNT 881# 34439 34443
PATCH 36194#
PDISF 976#
PDLOVU 811#
PDOVTP 811#
PERIOD 1006#
PFSTRT 833#
PGFTRP 811#
PGMEND 61# 36200
PGMNAM 858 1143#
PI 34421
PICHN1 811#
PICHN2 811#
PICHN3 811#
PICHN4 811#
PICHN5 811#
PICHN6 811#
PICHN7 811#
PICHNA 811#
PICLR 811#
PIOFF 811#
PION 811#
PLIST 1045# 1045
PLISTE 1045 1047#
PLISTS 1046#
PLUS 1011#
PNTENB 975#
PNTEXT 854#
PNTFLG 974#
PNTINH 977#
PNTLPT 586#
PNTNAM 853#
PNTRP 811#
PNTSPC 978#
PROCED 34422# 34422 34537 34544
PTRP 811#
PVPAGI 1072#
PWFCLR 811#
Q10 9011# 9016
Q100 9031# 9035
Q1000 10234#
Q10000 14833# 14840
Q10010 14845# 14853
Q10050 14858# 14865
Q10100 14876# 14886
Q10200 14897# 14907
Q10300 14918# 14928
Q10400 14939# 14949
Q10500 14960# 14971
Q10600 14982# 14993
Q10700 15016# SEQ 0836
Q10710 15015# 15033
Q10713 15022#
Q1100 10401#
Q11000 15050#
Q11050 15139# 15147
Q11100 15159# 15179
Q11200 15191# 15211
Q11300 15223# 15243
Q11400 15255# 15275
Q11500 15287# 15309
Q11600 15321# 15343
Q11700 15366# 15393
Q1200 10586#
Q12000 15410#
Q12100 15525# 15545
Q12200 15557# 15577
Q12300 15589# 15609
Q12400 15614# 15618
Q12500 15633# 15645
Q12501 15637# 15643 15648 15655 15659
Q12502 15645# 15650 15657 15661
Q12503 15641 15648#
Q12504 15639 15652#
Q12505 15653 15659#
Q12506 15646 15663#
Q12600 15678# 15690
Q12601 15682# 15688 15693 15700 15704
Q12602 15690# 15695 15702 15706
Q12603 15686 15693#
Q12604 15684 15697#
Q12605 15698 15704#
Q12606 15691 15708#
Q12700 15723# 15735
Q12701 15727# 15733 15738 15745 15749
Q12702 15735# 15740 15747 15751
Q12703 15731 15738#
Q12704 15729 15742#
Q12705 15743 15749#
Q12706 15736 15753#
Q1300 10772#
Q13000 15768# 15780
Q13001 15772# 15778 15783 15790 15794
Q13002 15780# 15785 15792 15796
Q13003 15776 15783#
Q13004 15774 15787#
Q13005 15788 15794#
Q13006 15781 15798#
Q13050 15803# 15810
Q13100 15822# 15835
Q13200 15847# 15860
Q13300 15872# 15885
Q13400 15897# 15910
Q13500 15922# 15936 SEQ 0837
Q13600 15948# 15962
Q13700 15985# 16006
Q1400 10930# 10936
Q14000 16023#
Q14001 16114 16139#
Q14002 16142#
Q14003 16140 16146#
Q14020 16167# 16181
Q14021 16137 16151#
Q14050 16152 16186# 16194
Q14100 16208# 16223
Q14200 16237# 16252
Q14300 16266# 16281
Q14400 16295# 16310
Q14500 16324# 16339
Q14600 16353# 16368
Q14700 16393# 16415
Q1500 10946# 10953
Q15000 16432#
Q15100 16590# 16605
Q15200 16619# 16634
Q15300 16648# 16663
Q15400 16679# 16692
Q15401 16684# 16690 16695 16702 16706
Q15402 16692# 16697 16704 16708
Q15403 16688 16695#
Q15404 16686 16699#
Q15405 16700 16706#
Q15406 16693 16710#
Q15500 16725# 16738
Q15501 16730# 16736 16741 16748 16752
Q15502 16738# 16743 16750 16754
Q15503 16734 16741#
Q15504 16732 16745#
Q15505 16746 16752#
Q15506 16739 16756#
Q15600 16771# 16784
Q15601 16776# 16782 16787 16794 16798
Q15602 16784# 16789 16796 16800
Q15603 16780 16787#
Q15604 16778 16791#
Q15605 16792 16798#
Q15606 16785 16802#
Q15700 16817# 16830
Q15701 16822# 16828 16833 16840 16844
Q15702 16830# 16835 16842 16846
Q15703 16826 16833#
Q15704 16824 16837#
Q15705 16838 16844#
Q15706 16831 16848#
Q1600 10962# 10968
Q1700 10976# 10983
Q200 9042# SEQ 0838
Q2000 10992# 10998
Q2100 11006# 11011
Q2200 11020# 11026
Q2300 11034# 11039
Q2400 11048# 11053
Q2500 11061# 11066
Q2600 11075# 11080
Q2700 11088# 11093
Q300 9369#
Q3000 11102# 11107
Q3010 11117# 11124
Q3050 11129# 11134
Q3100 11144# 11151
Q3200 11161# 11167
Q3300 11176# 11183
Q3400 11193# 11200
Q3500 11209# 11214
Q3600 11224# 11230
Q3700 11239# 11244
Q4000 11254# 11259
Q4100 11268# 11273
Q4200 11283# 11288
Q4300 11297# 11302
Q4400 11312# 11317
Q4410 11322# 11330
Q4500 11338# 11343
Q4600 11348# 11357
Q4700 11362# 11373
Q500 9683#
Q5000 11377# 11386
Q5100 11391# 11403
Q5150 11408# 11412
Q5200 11420#
Q5300 11695#
Q5400 12007#
Q5500 12316#
Q5600 12625# 12629
Q5700 12636# 12642
Q600 9847#
Q6000 12648#
Q6100 12850#
Q6200 13016#
Q6300 13177#
Q6400 13380#
Q6500 13537#
Q6600 13698#
Q6700 13901#
Q700 10177#
Q7000 14067#
Q7100 14226# 14233
Q7200 14239#
Q7300 14453#
Q7400 14629# SEQ 0839
Q7500 14791# 14798
Q7600 14805# 14813
Q7700 14819# 14826
QUEST 1017#
R100 16867# 16875
R1000 20601#
R1100 21659#
R1200 22717#
R1300 23655#
R1400 24591#
R1500 25544#
R1600 26498#
R1700 27484#
R200 16882#
R2000 28401# 28409
R300 17800#
R400 18735# 18743
R500 18748# 18756
R600 18763#
R700 19682#
RADIX 1020#
RADLSC 1022#
RADLSP 1021#
RANDBS 855#
REENTR 835#
RELIAB 593#
RENTR1 78 1140#
REPT 811#
REPT1 811#
REPTU 933#
REQSET 811#
RESRT1 77 910#
RESRT2 911#
RETURN 842#
RSTART 582#
RTP 1015#
RUNFLG 882#
S100 28423#
S10100 30340# 30349
S10200 30352# 30360
S10300 30363# 30371
S10400 30374# 30382
S10500 30385# 30393
S10600 30396# 30404
S10700 30407# 30415
S11000 30418# 30426
S11100 30429# 30437
S11200 30440# 30448
S11300 30451# 30459
S11400 30462# 30470
S11500 30473# 30481
S11600 30484# 30492
S11700 30495# 30503 SEQ 0840
S12000 30506# 30514
S12100 30517# 30525
S12200 30528# 30536
S12300 30539# 30547
S12400 30550# 30558
S12500 30561# 30569
S12600 30572# 30580
S12700 30583# 30591
S13000 30594# 30602
S13100 30605# 30613
S13200 30616# 30624
S13300 30627# 30635
S13400 30638# 30646
S13500 30649# 30657
S13600 30660# 30668
S13700 30671# 30679
S14000 30682# 30690
S14100 30693# 30701
S14200 30704# 30712
S14300 30715# 30723
S14400 30726# 30734
S14500 30737# 30745
S14600 30748# 30756
S14700 30759# 30767
S15000 30770# 30778
S15100 30781# 30789
S15200 30792# 30800
S15300 30803# 30811
S15400 30814# 30822
S15500 30825# 30833
S15600 30836# 30844
S15700 30847# 30855
S16000 30859# 30867
S16100 30870# 30878
S16200 30881# 30889
S16300 30892# 30900
S16400 30903# 30911
S16500 30914# 30922
S16600 30925# 30933
S16700 30936# 30944
S17000 30947# 30955
S17100 30958# 30966
S17200 30969# 30977
S17300 30980# 30988
S17400 30991# 30999
S17500 31002# 31010
S17600 31013# 31021
S17700 31024# 31032
S200 29329#
S20000 31035# 31043
S20100 31046# 31054
S20200 31057# 31065
S20300 31068# 31076 SEQ 0841
S20400 31079# 31087
S20500 31090# 31098
S20600 31101# 31109
S20700 31112# 31120
S21000 31123# 31131
S21100 31134# 31142
S21200 31145# 31153
S21300 31157# 31165
S21400 31168# 31176
S21500 31179# 31187
S21600 31190# 31198
S21700 31201# 31209
S22000 31212# 31220
S22100 31223# 31231
S22200 31234# 31242
S22300 31245# 31253
S22400 31256# 31264
S22500 31267# 31275
S22600 31278# 31286
S22700 31289# 31297
S23000 31300# 31308
S23100 31311# 31319
S23200 31322# 31330
S23300 31333# 31341
S23400 31344# 31352
S23500 31355# 31363
S23600 31366# 31374
S23700 31377# 31385
S24000 31388# 31396
S24100 31399# 31407
S24200 31410# 31418
S24300 31421# 31429
S24400 31432# 31440
S24500 31443# 31451
S24600 31454# 31462
S24700 31465# 31473
S25000 31476# 31484
S25100 31487# 31495
S25200 31498# 31506
S25300 31509# 31517
S25400 31520# 31528
S25500 31531# 31539
S25600 31542# 31550
S25700 31553# 31561
S26000 31564# 31572
S26100 31575# 31583
S26200 31586# 31594
S26300 31597# 31605
S26400 31608# 31616
S26500 31619# 31627
S26600 31630# 31638
S26700 31641# 31649
S27000 31652# 31660 SEQ 0842
S27100 31663# 31671
S27200 31674# 31682
S27300 31685# 31693
S27400 31696# 31704
S27500 31707# 31715
S27600 31718# 31726
S27700 31729# 31737
S30000 31740# 31748
S30100 31751# 31759
S30200 31762# 31770
S30300 31773# 31781
S30400 31784# 31792
S30500 31795# 31803
S30600 31806# 31814
S30700 31817# 31825
S31000 31828# 31836
S31100 31839# 31847
S31200 31850# 31858
S31300 31861# 31869
S31400 31872# 31880
S31500 31883# 31891
S31600 31894# 31902
S31700 31905# 31913
S32000 31916# 31924
S32100 31927# 31935
S32200 31938# 31946
S32300 31949# 31957
S32400 31960# 31968
S32500 31971# 31979
S32600 31982# 31990
S32700 31993# 32001
S33000 32004# 32012
S33100 32015# 32023
S33200 32026# 32034
S33300 32037# 32045
S33400 32048# 32056
S33500 32059# 32067
S33600 32070# 32078
S33700 32081# 32089
S34000 32092# 32100
S34100 32103# 32111
S34200 32114# 32122
S34300 32125# 32133
S34400 32143# 32161
S34500 32163# 32179
S34600 32180# 32198
S34700 32200# 32216
S35000 32217# 32235
S35100 32237# 32253
S35200 32254# 32272
S35300 32274# 32290
S40100 32302# 32311
S40200 32314# 32322 SEQ 0843
S40300 32325# 32333
S40400 32336# 32344
S40500 32347# 32355
S40600 32358# 32366
S40700 32369# 32377
S41000 32380# 32388
S41100 32398# 32416
S41200 32418# 32434
S41300 32435# 32453
S41400 32455# 32471
S41500 32472# 32490
S41600 32492# 32508
S41700 32509# 32527
S42000 32529# 32545
S50100 32557# 32566
S50200 32569# 32577
S50300 32580# 32588
S50400 32591# 32599
S50500 32602# 32610
S50600 32613# 32621
S50700 32624# 32632
S51000 32635# 32643
S51100 32646# 32654
S51200 32657# 32665
S51300 32668# 32676
S51400 32679# 32687
S51500 32690# 32698
S51600 32701# 32709
S51700 32712# 32720
S52000 32723# 32731
S52100 32734# 32742
S52200 32745# 32753
S52300 32756# 32764
S52400 32767# 32775
S52500 32778# 32786
S52600 32790# 32798
S52700 32801# 32809
S53000 32812# 32820
S53100 32823# 32831
S53200 32834# 32842
S53300 32845# 32853
S53400 32856# 32864
S53500 32867# 32875
S53600 32878# 32886
S53700 32889# 32897
S54000 32900# 32908
S54100 32911# 32919
S54200 32922# 32930
S54300 32933# 32943
S54305 32938 32946#
S54306 32943# 32950
S54307 32944 32952#
S54400 32955# 32965 SEQ 0844
S54405 32960 32968#
S54406 32965# 32972
S54407 32966 32974#
S54500 32977# 32987
S54505 32982 32990#
S54506 32987# 32994
S54507 32988 32996#
S54600 32999# 33009
S54605 33004 33012#
S54606 33009# 33016
S54607 33010 33018#
S54700 33021# 33031
S54705 33026 33034#
S54706 33031# 33038
S54707 33032 33040#
S55000 33043# 33053
S55005 33048 33056#
S55006 33053# 33060
S55007 33054 33062#
S55100 33065# 33075
S55105 33070 33078#
S55106 33075# 33082
S55107 33076 33084#
S55200 33087# 33097
S55205 33092 33100#
S55206 33097# 33104
S55207 33098 33106#
S55300 33109# 33119
S55305 33114 33122#
S55306 33119# 33126
S55307 33120 33128#
S55400 33131# 33141
S55405 33136 33144#
S55406 33141# 33148
S55407 33142 33150#
S55500 33153# 33163
S55505 33158 33166#
S55506 33163# 33170
S55507 33164 33172#
S55600 33175# 33185
S55605 33180 33188#
S55606 33185# 33192
S55607 33186 33194#
S55700 33197# 33207
S55705 33202 33210#
S55706 33207# 33214
S55707 33208 33216#
S56000 33219# 33229
S56005 33224 33232#
S56006 33229# 33236
S56007 33230 33238#
S56100 33241# 33249
S56200 33252# 33260 SEQ 0845
S56300 33263# 33271
S56400 33274# 33282
S56500 33285# 33293
S56600 33296# 33304
S56700 33307# 33315
S57000 33318# 33326
S57100 33329# 33337
S57200 33340# 33348
S57300 33351# 33359
S57400 33362# 33370
S57500 33373# 33381
S57600 33384# 33394
S57605 33389 33397#
S57606 33394# 33401
S57607 33395 33403#
S57700 33406# 33414
S60000 33417# 33425
S60100 33428# 33436
S60200 33439# 33447
S60300 33450# 33458
S60400 33461# 33469
S60500 33472# 33480
S60600 33483# 33491
S60700 33494# 33502
S61000 33512# 33530
S61100 33532# 33548
S61200 33549# 33567
S61300 33569# 33585
S61400 33586# 33604
S61500 33606# 33622
S61600 33623# 33641
S61700 33643# 33659
S70100 33671# 33680
S70200 33683# 33691
S70300 33694# 33702
S70400 33705# 33713
S70500 33716# 33724
S70600 33727# 33735
S70700 33738# 33746
S71000 33749# 33757
S71100 33760# 33768
S71200 33771# 33779
S71300 33782# 33790
S71400 33793# 33801
S71500 33804# 33812
S71600 33815# 33823
S71700 33826# 33834
S72000 33837# 33845
S72100 33848# 33856
S72200 33859# 33867
S72300 33870# 33878
S72400 33881# 33889
S72500 33892# 33900 SEQ 0846
S72600 33903# 33911
S72700 33914# 33922
S73000 33925# 33933
S73100 33936# 33944
S73200 33947# 33955
S73300 33958# 33966
S73400 34157# 34178
S73405 34162 34181#
S73406 34178# 34185 34188 34191 34195
S73407 34179 34197#
S73408 34168 34187#
S73409 34173 34193#
S73500 33969# 33977
S73600 33980# 33988
S73700 33991# 33999
S74100 34002# 34010
S74200 34013# 34021
S74300 34024# 34032
S74400 34035# 34043
S74500 34046# 34054
S74600 34057# 34065
S74700 34068# 34076
S75000 34079# 34087
S75100 34090# 34098
S75200 34101# 34109
S75300 34112# 34120
S75400 34123# 34131
S75500 34134# 34142
S75600 34145# 34153
S75700 34207# 34225
S76000 34227# 34243
S76100 34244# 34262
S76200 34264# 34280
S76300 34281# 34299
S76400 34301# 34317
S76500 34318# 34336
S76600 34338# 34354
S76700 34357# 34373
S77000 34377# 34393
SAC 9002# 9004 9005 9006 9007 9016 9021# 9023 9024 9025 9026 9035 9074 9091
9108 9125 9142 9159 9176 9193 9210 9227 9244 9261 9278 9295 9312 9329
9346 9363 9401 9418 9435 9452 9469 9486 9503 9520 9537 9554 9571 9588
9605 9622 9639 9656 9673 9713 9729 9745 9761 9777 9793 9809 9825 9841
9879 9896 9913 9930 9947 9964 9981 9998 10015 10032 10049 10066 10083 10100
10117 10134 10151 10168 10209 10226 10268 10286 10304 10322 10340 10358 10376 10394
10435 10453 10471 10489 10507 10525 10543 10561 10579 10620 10638 10656 10674 10692
10710 10728 10746 10764 10804 10821 10838 10855 10872 10889 10906 10923 10936 10953
10968 10983 10998 11011 11026 11039 11053 11066 11080 11093 11107 11113 11114 11115
11116 11124 11134 11151 11167 11183 11200 11214 11230 11244 11259 11273 11288 11302
11317 11330 11343 11357 11373 11386 11403 11412 11448 11463 11478 11493 11508 11523
11538 11553 11568 11583 11598 11613 11628 11643 11658 11673 11688 11725 11741 11757
11773 11789 11805 11821 11837 11853 11869 11885 11901 11917 11933 11949 11965 11981
11997 12037 12053 12069 12085 12101 12117 12133 12149 12165 12181 12197 12213 12229 SEQ 0847
12245 12261 12277 12293 12309 12346 12362 12378 12394 12410 12426 12442 12458 12474
12490 12506 12522 12538 12554 12570 12586 12602 12618 12629 12642 12682 12700 12718
12736 12754 12772 12790 12808 12826 12844 12884 12902 12920 12938 12956 12974 12992
13010 13048 13065 13082 13099 13116 13133 13150 13167 13211 13229 13247 13265 13283
13301 13319 13337 13355 13373 13412 13429 13446 13463 13480 13497 13514 13531 13569
13586 13603 13620 13637 13654 13671 13688 13732 13750 13768 13786 13804 13822 13840
13858 13876 13894 13935 13953 13971 13989 14007 14025 14043 14061 14099 14116 14133
14150 14167 14184 14201 14218 14233 14275 14294 14313 14332 14351 14370 14389 14408
14427 14446 14489 14508 14527 14546 14565 14584 14603 14622 14661 14678 14695 14712
14729 14746 14763 14780 14798 14813 14826 14840 14853 14865 14886 14907 14928 14949
14971 14993 14999# 15001 15002 15003 15004 15033 15039# 15041 15042 15043 15044 15077
15091 15105 15119 15133 15147 15179 15211 15243 15275 15309 15343 15349# 15351 15352
15353 15354 15393 15399# 15401 15402 15403 15404 15443 15460 15477 15494 15511 15545
15577 15609 15618 15645 15690 15735 15780 15810 15835 15860 15885 15910 15936 15962
15968# 15970 15971 15972 15973 16006 16012# 16014 16015 16016 16017 16059 16078 16097
16116 16135 16159# 16161 16162 16163 16164 16181 16194 16223 16252 16281 16310 16339
16368 16374# 16376 16377 16378 16379 16415 16421# 16423 16424 16425 16426 16476 16500
16524 16550 16572 16605 16634 16663 16692 16738 16784 16830
SADR1 76# 831
SADR10 85# 847
SADR11 86# 848
SADR2 77# 833
SADR3 78# 835
SADR4 79#
SADR5 80# 896
SADR6 81# 897
SADR7 82# 844
SADR8 83# 845
SADR9 84# 846
SBINIT 655 841#
SCOPE 934#
SENSE1 811#
SENSE2 811#
SENSE3 811#
SENSE4 811#
SENSE5 811#
SENSE6 811#
SFSTRT 831#
SLASH 1018#
SM10 1122# 34161
SMLUSR 811#
SN 1271# 1285 1285# 1292 1295 1295# 1302 1305 1305# 1312 1315 1315# 1322 1325
1325# 1332 1335 1335# 1342 1345 1345# 1352 1369# 1386 1386# 1394 1397 1397#
1405 1408 1408# 1416 1419 1419# 1427 1430 1430# 1438 1441 1441# 1449 1452
1452# 1460 1495# 1510 1510# 1517 1520 1520# 1527 1530 1530# 1537 1540 1540#
1547 1550 1550# 1557 1560 1560# 1567 1570 1570# 1577 1706# 1719 1719# 1725
1728 1728# 1734 1737 1737# 1743 1746 1746# 1752 1755 1755# 1761 1764 1764#
1770 1773 1773# 1779 1782 1782# 1788 2259# 2273 2273# 2280 2283 2283# 2290
2293 2293# 2300 2303 2303# 2310 2313 2313# 2320 2323 2323# 2330 2333 2333#
2340 3169# 3185 3185# 3193 3196 3196# 3204 3207 3207# 3215 3218 3218# 3226
3229 3229# 3237 3240 3240# 3248 3251 3251# 3259 3262 3262# 3270 3287# 3301
3301# 3308 3311 3311# 3318 3321 3321# 3328 3331 3331# 3338 3341 3341# 3348
3351 3351# 3358 3361 3361# 3368 3384# 3402 3402# 3411 3414 3414# 3423 3426 SEQ 0848
3426# 3435 3438 3438# 3447 3450 3450# 3459 3462 3462# 3471 3474 3474# 3483
3486 3486# 3495 3512# 3527 3527# 3534 3537 3537# 3544 3547 3547# 3554 3557
3557# 3564 3567 3567# 3574 3577 3577# 3584 3587 3587# 3594 3597 3597# 3604
3620# 3633 3633# 3639 3642 3642# 3648 3651 3651# 3657 3674# 3689 3689# 3696
3699 3699# 3706 3709 3709# 3716 3732# 3747 3747# 3754 3757 3757# 3764 3767
3767# 3774 3792# 3805 3805# 3811 3814 3814# 3820 3823 3823# 3829 3832 3832#
3838 3841 3841# 3847 3850 3850# 3856 3859 3859# 3865 3868 3868# 3874 3877
3877# 3883 3887# 3902 3902# 3911 3914 3914# 3923 3926 3926# 3935 3938 3938#
3947 3950 3950# 3959 3962 3962# 3971 3974 3974# 3983 3986 3986# 3995 3998
3998# 4007 4010 4010# 4019 4022 4022# 4031 4034 4034# 4043 4046 4046# 4055
4058 4058# 4067 4070 4070# 4079 4082 4082# 4091 4094 4094# 4103 4106 4106#
4115 4131# 4150 4150# 4161 4164 4164# 4175 4178 4178# 4189 4192 4192# 4203
4206 4206# 4217 4220 4220# 4231 4234 4234# 4245 4248 4248# 4259 4262 4262#
4273 4276 4276# 4287 4304# 4320 4320# 4328 4331 4331# 4339 4342 4342# 4350
4353 4353# 4361 4364 4364# 4372 4375 4375# 4383 4435# 4448 4448# 4454 4457
4457# 4463 4466 4466# 4472 4489# 4502 4502# 4508 4511 4511# 4517 4520 4520#
4526 4543# 4559 4559# 4567 4570 4570# 4578 4581 4581# 4589 4606# 4622 4622#
4630 4633 4633# 4641 4644 4644# 4652 4668# 4686 4686# 4695 4698 4698# 4707
4710 4710# 4719 4737# 4755 4755# 4764 4767 4767# 4776 4779 4779# 4788 4805#
4821 4821# 4829 4832 4832# 4840 4843 4843# 4851 4869# 4887 4887# 4896 4899
4899# 4908 4911 4911# 4920 4938# 4957 4957# 4966 4968 4971 4971# 4980 4982
4985 4985# 4994 4996 4999 4999# 5008 5010 5013 5013# 5022 5024 5027 5027#
5036 5038 5041 5041# 5050 5052 5055 5055# 5064 5066 5069 5069# 5078 5080
5083 5083# 5092 5094 5097 5097# 5106 5108 5111 5111# 5120 5122 5125 5125#
5134 5136 5139 5139# 5148 5150 5153 5153# 5162 5164 5167 5167# 5176 5178
5181 5181# 5190 5192 5195 5195# 5204 5206 5210# 5228 5228# 5237 5239 5242
5242# 5251 5253 5256 5256# 5265 5267 5270 5270# 5279 5281 5284 5284# 5293
5295 5298 5298# 5307 5309 5312 5312# 5321 5323 5428# 5449 5449# 5460 5462
5465 5465# 5476 5478 5481 5481# 5492 5494 5497 5497# 5508 5510 5513 5513#
5524 5526 5529 5529# 5540 5542 5545 5545# 5556 5558 5561 5561# 5572 5574
5577 5577# 5588 5590 5593 5593# 5604 5606 5609 5609# 5620 5622 5625 5625#
5636 5638 5641 5641# 5652 5654 5657 5657# 5668 5670 5673 5673# 5684 5686
5689 5689# 5700 5702 5705 5705# 5716 5718 6562# 6576 6576# 6583 6586 6586#
6593 6597# 6611 6611# 6618 6621 6621# 6628 6700# 6714 6714# 6721 6724 6724#
6731 6744# 6758 6758# 6765 6768 6768# 6775 6778# 6792 6792# 6799 6802 6802#
6809 7095# 7110 7110# 7118 7121 7121# 7129 7132 7132# 7140 7143 7143# 7151
7154 7154# 7162 7165 7165# 7173 7176 7176# 7184 7201# 7216 7216# 7224 7227
7227# 7235 7238 7238# 7246 7249 7249# 7257 7260 7260# 7268 7271 7271# 7279
7282 7282# 7290 7306# 7322 7322# 7330 7333 7333# 7341 7344 7344# 7352 7366#
7381 7381# 7390 7393 7393# 7402 7405 7405# 7414 7417 7417# 7426 7481# 7497
7497# 7505 7508 7508# 7516 7519 7519# 7527 7530 7530# 7538 7541 7541# 7549
7566# 7582 7582# 7590 7593 7593# 7601 7604 7604# 7612 7615 7615# 7623 7626
7626# 7634 7637 7637# 7645 7648 7648# 7656 7670# 7688 7688# 7696 7698 7701
7701# 7709 7711 7859# 7879 7879# 7889 7891 7894 7894# 7904 7906 7965# 7982
7982# 7991 7994 7994# 8003 8019# 8035 8035# 8046 8046# 8099# 8113 8113# 8123
8123# 8133 8133# 8154# 8170 8170# 8181 8181# 8192 8192# 8214# 8232 8232# 8241
8244 8244# 8253 8256 8256# 8265 8280# 8296 8296# 8304 8307 8307# 8315 8372#
8388 8388# 8396 8399 8399# 8407 8491# 8505 8505# 8512 8515 8515# 8522 8608#
8628 8628# 8640 8643 8643# 8655 8804# 8823 8823# 8832 8834 8837 8837# 8846
8848 8851 8851# 8860 8862 8865 8865# 8874 8876 8879 8879# 8888 8890 8943#
8959 8959# 8967 8970 8970# 8978 8981 8981# 8989 9038# 9064 9064# 9073 9081
9081# 9090 9098 9098# 9107 9115 9115# 9124 9132 9132# 9141 9149 9149# 9158
9166 9166# 9175 9183 9183# 9192 9200 9200# 9209 9217 9217# 9226 9234 9234# SEQ 0849
9243 9251 9251# 9260 9268 9268# 9277 9285 9285# 9294 9302 9302# 9311 9319
9319# 9328 9336 9336# 9345 9353 9353# 9362 9366# 9391 9391# 9400 9408 9408#
9417 9425 9425# 9434 9442 9442# 9451 9459 9459# 9468 9476 9476# 9485 9493
9493# 9502 9510 9510# 9519 9527 9527# 9536 9544 9544# 9553 9561 9561# 9570
9578 9578# 9587 9595 9595# 9604 9612 9612# 9621 9629 9629# 9638 9646 9646#
9655 9663 9663# 9672 9679# 9704 9704# 9712 9720 9720# 9728 9736 9736# 9744
9752 9752# 9760 9768 9768# 9776 9784 9784# 9792 9800 9800# 9808 9816 9816#
9824 9832 9832# 9840 9844# 9869 9869# 9878 9886 9886# 9895 9903 9903# 9912
9920 9920# 9929 9937 9937# 9946 9954 9954# 9963 9971 9971# 9980 9988 9988#
9997 10005 10005# 10014 10022 10022# 10031 10039 10039# 10048 10056 10056# 10065 10073
10073# 10082 10090 10090# 10099 10107 10107# 10116 10124 10124# 10133 10141 10141# 10150
10158 10158# 10167 10173# 10199 10199# 10208 10216 10216# 10225 10229# 10257 10257# 10267
10275 10275# 10285 10293 10293# 10303 10311 10311# 10321 10329 10329# 10339 10347 10347#
10357 10365 10365# 10375 10383 10383# 10393 10396# 10424 10424# 10434 10442 10442# 10452
10460 10460# 10470 10478 10478# 10488 10496 10496# 10506 10514 10514# 10524 10532 10532#
10542 10550 10550# 10560 10568 10568# 10578 10583# 10609 10609# 10619 10627 10627# 10637
10645 10645# 10655 10663 10663# 10673 10681 10681# 10691 10699 10699# 10709 10717 10717#
10727 10735 10735# 10745 10753 10753# 10763 10767# 10794 10794# 10803 10811 10811# 10820
10828 10828# 10837 10845 10845# 10854 10862 10862# 10871 10879 10879# 10888 10896 10896#
10905 10913 10913# 10922 11416# 11440 11440# 11447 11455 11455# 11462 11470 11470# 11477
11485 11485# 11492 11500 11500# 11507 11515 11515# 11522 11530 11530# 11537 11545 11545#
11552 11560 11560# 11567 11575 11575# 11582 11590 11590# 11597 11605 11605# 11612 11620
11620# 11627 11635 11635# 11642 11650 11650# 11657 11665 11665# 11672 11680 11680# 11687
11691# 11716 11716# 11724 11732 11732# 11740 11748 11748# 11756 11764 11764# 11772 11780
11780# 11788 11796 11796# 11804 11812 11812# 11820 11828 11828# 11836 11844 11844# 11852
11860 11860# 11868 11876 11876# 11884 11892 11892# 11900 11908 11908# 11916 11924 11924#
11932 11940 11940# 11948 11956 11956# 11964 11972 11972# 11980 11988 11988# 11996 12003#
12028 12028# 12036 12044 12044# 12052 12060 12060# 12068 12076 12076# 12084 12092 12092#
12100 12108 12108# 12116 12124 12124# 12132 12140 12140# 12148 12156 12156# 12164 12172
12172# 12180 12188 12188# 12196 12204 12204# 12212 12220 12220# 12228 12236 12236# 12244
12252 12252# 12260 12268 12268# 12276 12284 12284# 12292 12300 12300# 12308 12312# 12337
12337# 12345 12353 12353# 12361 12369 12369# 12377 12385 12385# 12393 12401 12401# 12409
12417 12417# 12425 12433 12433# 12441 12449 12449# 12457 12465 12465# 12473 12481 12481#
12489 12497 12497# 12505 12513 12513# 12521 12529 12529# 12537 12545 12545# 12553 12561
12561# 12569 12577 12577# 12585 12593 12593# 12601 12609 12609# 12617 12644# 12671 12671#
12681 12689 12689# 12699 12707 12707# 12717 12725 12725# 12735 12743 12743# 12753 12761
12761# 12771 12779 12779# 12789 12797 12797# 12807 12815 12815# 12825 12833 12833# 12843
12847# 12873 12873# 12883 12891 12891# 12901 12909 12909# 12919 12927 12927# 12937 12945
12945# 12955 12963 12963# 12973 12981 12981# 12991 12999 12999# 13009 13012# 13038 13038#
13047 13055 13055# 13064 13072 13072# 13081 13089 13089# 13098 13106 13106# 13115 13123
13123# 13132 13140 13140# 13149 13157 13157# 13166 13173# 13200 13200# 13210 13218 13218#
13228 13236 13236# 13246 13254 13254# 13264 13272 13272# 13282 13290 13290# 13300 13308
13308# 13318 13326 13326# 13336 13344 13344# 13354 13362 13362# 13372 13376# 13402 13402#
13411 13419 13419# 13428 13436 13436# 13445 13453 13453# 13462 13470 13470# 13479 13487
13487# 13496 13504 13504# 13513 13521 13521# 13530 13533# 13559 13559# 13568 13576 13576#
13585 13593 13593# 13602 13610 13610# 13619 13627 13627# 13636 13644 13644# 13653 13661
13661# 13670 13678 13678# 13687 13694# 13721 13721# 13731 13739 13739# 13749 13757 13757#
13767 13775 13775# 13785 13793 13793# 13803 13811 13811# 13821 13829 13829# 13839 13847
13847# 13857 13865 13865# 13875 13883 13883# 13893 13897# 13924 13924# 13934 13942 13942#
13952 13960 13960# 13970 13978 13978# 13988 13996 13996# 14006 14014 14014# 14024 14032
14032# 14042 14050 14050# 14060 14063# 14089 14089# 14098 14106 14106# 14115 14123 14123#
14132 14140 14140# 14149 14157 14157# 14166 14174 14174# 14183 14191 14191# 14200 14208
14208# 14217 14235# 14263 14263# 14274 14282 14282# 14293 14301 14301# 14312 14320 14320# SEQ 0850
14331 14339 14339# 14350 14358 14358# 14369 14377 14377# 14388 14396 14396# 14407 14415
14415# 14426 14434 14434# 14445 14449# 14477 14477# 14488 14496 14496# 14507 14515 14515#
14526 14534 14534# 14545 14553 14553# 14564 14572 14572# 14583 14591 14591# 14602 14610
14610# 14621 14625# 14651 14651# 14660 14668 14668# 14677 14685 14685# 14694 14702 14702#
14711 14719 14719# 14728 14736 14736# 14745 14753 14753# 14762 14770 14770# 14779 15047#
15065 15065# 15074 15076 15079 15079# 15088 15090 15093 15093# 15102 15104 15107 15107#
15116 15118 15121 15121# 15130 15132 15407# 15428 15428# 15440 15442 15445 15445# 15457
15459 15462 15462# 15474 15476 15479 15479# 15491 15493 15496 15496# 15508 15510 16020#
16045 16045# 16053 16058 16064 16064# 16072 16077 16083 16083# 16091 16096 16102 16102#
16110 16115 16121 16121# 16129 16134 16429# 16459 16459# 16472 16474 16483 16483# 16496
16498 16507 16507# 16520 16522 16531 16531# 16544 16546 16555 16555# 16568 16570
SNTRP 811#
SPACE 1007#
SPDES 34509#
SPFNRN 2982# 2990
SRTDDT 837#
START 825 1155#
START1 844#
START2 845#
START3 846#
START4 847#
START5 848#
STARTA 840 1159#
STRP 811#
SUBLNK 617# 841
SWPTAB 1128#
SWTEXR 856#
SYSEXR 829#
T 16878# 16888 16888# 16897 16899 16902 16902# 16911 16913 16916 16916# 16925 16927 16930
16930# 16939 16941 16944 16944# 16953 16955 16958 16958# 16967 16969 16972 16972# 16981
16983 16986 16986# 16995 16997 17000 17000# 17009 17011 17023 17023# 17032 17034 17037
17037# 17046 17048 17051 17051# 17060 17062 17065 17065# 17074 17076 17079 17079# 17088
17090 17093 17093# 17102 17104 17107 17107# 17116 17118 17121 17121# 17130 17132 17135
17135# 17144 17146 17149 17149# 17158 17160 17163 17163# 17172 17174 17177 17177# 17186
17188 17191 17191# 17200 17202 17205 17205# 17214 17216 17219 17219# 17228 17230 17233
17233# 17242 17244 17247 17247# 17256 17258 17261 17261# 17270 17272 17278 17278# 17285
17287 17296 17296# 17305 17307 17310 17310# 17319 17321 17324 17324# 17333 17335 17338
17338# 17347 17349 17352 17352# 17361 17363 17366 17366# 17375 17377 17380 17380# 17389
17391 17394 17394# 17403 17405 17408 17408# 17417 17419 17422 17422# 17431 17433 17436
17436# 17445 17447 17450 17450# 17459 17461 17464 17464# 17473 17475 17478 17478# 17487
17489 17492 17492# 17501 17503 17506 17506# 17515 17517 17520 17520# 17529 17531 17543
17543# 17552 17554 17557 17557# 17566 17568 17571 17571# 17580 17582 17585 17585# 17594
17596 17599 17599# 17608 17610 17613 17613# 17622 17624 17627 17627# 17636 17638 17641
17641# 17650 17652 17655 17655# 17664 17666 17669 17669# 17678 17680 17683 17683# 17692
17694 17697 17697# 17706 17708 17711 17711# 17720 17722 17725 17725# 17734 17736 17739
17739# 17748 17750 17753 17753# 17762 17764 17767 17767# 17776 17778 17781 17781# 17790
17792 17796# 17806 17806# 17815 17817 17820 17820# 17829 17831 17834 17834# 17843 17845
17848 17848# 17857 17859 17862 17862# 17871 17873 17876 17876# 17885 17887 17890 17890#
17899 17901 17904 17904# 17913 17915 17918 17918# 17927 17929 17941 17941# 17950 17952
17955 17955# 17964 17966 17969 17969# 17978 17980 17983 17983# 17992 17994 17997 17997#
18006 18008 18011 18011# 18020 18022 18025 18025# 18034 18036 18039 18039# 18048 18050
18053 18053# 18062 18064 18067 18067# 18076 18078 18081 18081# 18090 18092 18095 18095#
18104 18106 18109 18109# 18118 18120 18123 18123# 18132 18134 18137 18137# 18146 18148 SEQ 0851
18151 18151# 18160 18162 18165 18165# 18174 18176 18179 18179# 18188 18190 18196 18196#
18203 18205 18215 18215# 18224 18226 18230 18230# 18239 18241 18245 18245# 18254 18256
18260 18260# 18269 18271 18275 18275# 18284 18286 18290 18290# 18299 18301 18305 18305#
18314 18316 18320 18320# 18329 18331 18335 18335# 18344 18346 18350 18350# 18359 18361
18365 18365# 18374 18376 18380 18380# 18389 18391 18395 18395# 18404 18406 18410 18410#
18419 18421 18425 18425# 18434 18436 18440 18440# 18449 18451 18455 18455# 18464 18466
18479 18479# 18488 18490 18493 18493# 18502 18504 18507 18507# 18516 18518 18521 18521#
18530 18532 18535 18535# 18544 18546 18549 18549# 18558 18560 18563 18563# 18572 18574
18577 18577# 18586 18588 18591 18591# 18600 18602 18605 18605# 18614 18616 18619 18619#
18628 18630 18633 18633# 18642 18644 18647 18647# 18656 18658 18661 18661# 18670 18672
18675 18675# 18684 18686 18689 18689# 18698 18700 18703 18703# 18712 18714 18717 18717#
18726 18728 18760# 18769 18769# 18778 18780 18783 18783# 18792 18794 18797 18797# 18806
18808 18811 18811# 18820 18822 18825 18825# 18834 18836 18839 18839# 18848 18850 18853
18853# 18862 18864 18867 18867# 18876 18878 18881 18881# 18890 18892 18895 18895# 18904
18906 18909 18909# 18918 18920 18923 18923# 18932 18934 18937 18937# 18946 18948 18951
18951# 18960 18962 18965 18965# 18974 18976 18979 18979# 18988 18990 18993 18993# 19002
19004 19007 19007# 19016 19018 19030 19030# 19039 19041 19044 19044# 19053 19055 19058
19058# 19067 19069 19072 19072# 19081 19083 19086 19086# 19095 19097 19100 19100# 19109
19111 19114 19114# 19123 19125 19128 19128# 19137 19139 19142 19142# 19151 19153 19156
19156# 19165 19167 19170 19170# 19179 19181 19184 19184# 19193 19195 19198 19198# 19207
19209 19212 19212# 19221 19223 19226 19226# 19235 19237 19240 19240# 19249 19251 19254
19254# 19263 19265 19268 19268# 19277 19279 19291 19291# 19300 19302 19305 19305# 19314
19316 19319 19319# 19328 19330 19333 19333# 19342 19344 19347 19347# 19356 19358 19361
19361# 19370 19372 19375 19375# 19384 19386 19389 19389# 19398 19400 19403 19403# 19412
19414 19417 19417# 19426 19428 19431 19431# 19440 19442 19445 19445# 19454 19456 19459
19459# 19468 19470 19473 19473# 19482 19484 19487 19487# 19496 19498 19501 19501# 19510
19512 19515 19515# 19524 19526 19529 19529# 19538 19540 19553 19553# 19562 19564 19567
19567# 19576 19578 19581 19581# 19590 19592 19595 19595# 19604 19606 19609 19609# 19618
19620 19623 19623# 19632 19634 19637 19637# 19646 19648 19651 19651# 19660 19662 19666
19666# 19673 19675 19679# 19688 19688# 19697 19699 19702 19702# 19711 19713 19716 19716#
19725 19727 19730 19730# 19739 19741 19744 19744# 19753 19755 19758 19758# 19767 19769
19772 19772# 19781 19783 19786 19786# 19795 19797 19800 19800# 19809 19811 19814 19814#
19823 19825 19828 19828# 19837 19839 19842 19842# 19851 19853 19856 19856# 19865 19867
19870 19870# 19879 19881 19884 19884# 19893 19895 19898 19898# 19907 19909 19912 19912#
19921 19923 19926 19926# 19935 19937 19949 19949# 19958 19960 19963 19963# 19972 19974
19977 19977# 19986 19988 19991 19991# 20000 20002 20005 20005# 20014 20016 20019 20019#
20028 20030 20033 20033# 20042 20044 20047 20047# 20056 20058 20061 20061# 20070 20072
20075 20075# 20084 20086 20089 20089# 20098 20100 20103 20103# 20112 20114 20117 20117#
20126 20128 20131 20131# 20140 20142 20145 20145# 20154 20156 20159 20159# 20168 20170
20173 20173# 20182 20184 20187 20187# 20196 20198 20210 20210# 20219 20221 20224 20224#
20233 20235 20238 20238# 20247 20249 20252 20252# 20261 20263 20266 20266# 20275 20277
20280 20280# 20289 20291 20294 20294# 20303 20305 20308 20308# 20317 20319 20322 20322#
20331 20333 20336 20336# 20345 20347 20350 20350# 20359 20361 20364 20364# 20373 20375
20378 20378# 20387 20389 20392 20392# 20401 20403 20406 20406# 20415 20417 20420 20420#
20429 20431 20434 20434# 20443 20445 20448 20448# 20457 20459 20471 20471# 20480 20482
20485 20485# 20494 20496 20499 20499# 20508 20510 20513 20513# 20522 20524 20527 20527#
20536 20538 20541 20541# 20550 20552 20555 20555# 20564 20566 20569 20569# 20578 20580
20584 20584# 20591 20593 20597# 20609 20609# 20620 20622 20625 20625# 20636 20638 20641
20641# 20652 20654 20657 20657# 20668 20670 20673 20673# 20684 20686 20689 20689# 20700
20702 20705 20705# 20716 20718 20721 20721# 20732 20734 20737 20737# 20748 20750 20753
20753# 20764 20766 20769 20769# 20780 20782 20785 20785# 20796 20798 20801 20801# 20812
20814 20817 20817# 20828 20830 20833 20833# 20844 20846 20849 20849# 20860 20862 20865
20865# 20876 20878 20881 20881# 20892 20894 20909 20909# 20920 20922 20925 20925# 20936 SEQ 0852
20938 20941 20941# 20952 20954 20957 20957# 20968 20970 20973 20973# 20984 20986 20989
20989# 21000 21002 21005 21005# 21016 21018 21021 21021# 21032 21034 21037 21037# 21048
21050 21053 21053# 21064 21066 21069 21069# 21080 21082 21085 21085# 21096 21098 21101
21101# 21112 21114 21117 21117# 21128 21130 21133 21133# 21144 21146 21149 21149# 21160
21162 21165 21165# 21176 21178 21181 21181# 21192 21194 21209 21209# 21220 21222 21225
21225# 21236 21238 21241 21241# 21252 21254 21257 21257# 21268 21270 21273 21273# 21284
21286 21289 21289# 21300 21302 21305 21305# 21316 21318 21321 21321# 21332 21334 21337
21337# 21348 21350 21353 21353# 21364 21366 21369 21369# 21380 21382 21385 21385# 21396
21398 21401 21401# 21412 21414 21417 21417# 21428 21430 21433 21433# 21444 21446 21449
21449# 21460 21462 21465 21465# 21476 21478 21481 21481# 21492 21494 21509 21509# 21520
21522 21525 21525# 21536 21538 21541 21541# 21552 21554 21557 21557# 21568 21570 21573
21573# 21584 21586 21589 21589# 21600 21602 21605 21605# 21616 21618 21621 21621# 21632
21634 21637 21637# 21648 21650 21655# 21667 21667# 21678 21680 21683 21683# 21694 21696
21699 21699# 21710 21712 21715 21715# 21726 21728 21731 21731# 21742 21744 21747 21747#
21758 21760 21763 21763# 21774 21776 21779 21779# 21790 21792 21795 21795# 21806 21808
21811 21811# 21822 21824 21827 21827# 21838 21840 21843 21843# 21854 21856 21859 21859#
21870 21872 21875 21875# 21886 21888 21891 21891# 21902 21904 21907 21907# 21918 21920
21923 21923# 21934 21936 21939 21939# 21950 21952 21967 21967# 21978 21980 21983 21983#
21994 21996 21999 21999# 22010 22012 22015 22015# 22026 22028 22031 22031# 22042 22044
22047 22047# 22058 22060 22063 22063# 22074 22076 22079 22079# 22090 22092 22095 22095#
22106 22108 22111 22111# 22122 22124 22127 22127# 22138 22140 22143 22143# 22154 22156
22159 22159# 22170 22172 22175 22175# 22186 22188 22191 22191# 22202 22204 22207 22207#
22218 22220 22223 22223# 22234 22236 22239 22239# 22250 22252 22267 22267# 22278 22280
22283 22283# 22294 22296 22299 22299# 22310 22312 22315 22315# 22326 22328 22331 22331#
22342 22344 22347 22347# 22358 22360 22363 22363# 22374 22376 22379 22379# 22390 22392
22395 22395# 22406 22408 22411 22411# 22422 22424 22427 22427# 22438 22440 22443 22443#
22454 22456 22459 22459# 22470 22472 22475 22475# 22486 22488 22491 22491# 22502 22504
22507 22507# 22518 22520 22523 22523# 22534 22536 22539 22539# 22550 22552 22567 22567#
22578 22580 22583 22583# 22594 22596 22599 22599# 22610 22612 22615 22615# 22626 22628
22631 22631# 22642 22644 22647 22647# 22658 22660 22663 22663# 22674 22676 22679 22679#
22690 22692 22695 22695# 22706 22708 22713# 22724 22724# 22734 22736 22739 22739# 22749
22751 22754 22754# 22764 22766 22769 22769# 22779 22781 22784 22784# 22794 22796 22799
22799# 22809 22811 22814 22814# 22824 22826 22829 22829# 22839 22841 22844 22844# 22854
22856 22859 22859# 22869 22871 22874 22874# 22884 22886 22889 22889# 22899 22901 22904
22904# 22914 22916 22919 22919# 22929 22931 22934 22934# 22944 22946 22949 22949# 22959
22961 22964 22964# 22974 22976 22979 22979# 22989 22991 22998 22998# 23005 23007 23017
23017# 23026 23028 23031 23031# 23040 23042 23045 23045# 23054 23056 23059 23059# 23068
23070 23073 23073# 23082 23084 23087 23087# 23096 23098 23101 23101# 23110 23112 23115
23115# 23124 23126 23129 23129# 23138 23140 23143 23143# 23152 23154 23157 23157# 23166
23168 23171 23171# 23180 23182 23185 23185# 23194 23196 23199 23199# 23208 23210 23213
23213# 23222 23224 23227 23227# 23236 23238 23245 23245# 23252 23254 23257 23257# 23265
23267 23277 23277# 23286 23288 23291 23291# 23300 23302 23305 23305# 23314 23316 23319
23319# 23328 23330 23333 23333# 23342 23344 23347 23347# 23356 23358 23361 23361# 23370
23372 23375 23375# 23384 23386 23389 23389# 23398 23400 23403 23403# 23412 23414 23417
23417# 23426 23428 23431 23431# 23440 23442 23445 23445# 23454 23456 23459 23459# 23468
23470 23473 23473# 23482 23484 23487 23487# 23496 23498 23501 23501# 23510 23512 23517
23517# 23526 23528 23537 23537# 23546 23548 23551 23551# 23560 23562 23565 23565# 23574
23576 23579 23579# 23588 23590 23593 23593# 23602 23604 23607 23607# 23616 23618 23621
23621# 23630 23632 23635 23635# 23644 23646 23651# 23662 23662# 23672 23674 23677 23677#
23687 23689 23692 23692# 23702 23704 23707 23707# 23717 23719 23722 23722# 23732 23734
23737 23737# 23747 23749 23752 23752# 23762 23764 23767 23767# 23777 23779 23782 23782#
23792 23794 23797 23797# 23807 23809 23812 23812# 23822 23824 23827 23827# 23837 23839
23842 23842# 23852 23854 23857 23857# 23867 23869 23872 23872# 23882 23884 23887 23887# SEQ 0853
23897 23899 23902 23902# 23912 23914 23917 23917# 23927 23929 23936 23936# 23943 23945
23955 23955# 23964 23966 23969 23969# 23978 23980 23983 23983# 23992 23994 23997 23997#
24006 24008 24011 24011# 24020 24022 24025 24025# 24034 24036 24039 24039# 24048 24050
24053 24053# 24062 24064 24067 24067# 24076 24078 24081 24081# 24090 24092 24095 24095#
24104 24106 24109 24109# 24118 24120 24123 24123# 24132 24134 24137 24137# 24146 24148
24151 24151# 24160 24162 24165 24165# 24174 24176 24183 24183# 24190 24192 24197 24197#
24204 24206 24214 24214# 24223 24225 24228 24228# 24237 24239 24242 24242# 24251 24253
24256 24256# 24265 24267 24270 24270# 24279 24281 24284 24284# 24293 24295 24298 24298#
24307 24309 24312 24312# 24321 24323 24326 24326# 24335 24337 24340 24340# 24349 24351
24354 24354# 24363 24365 24368 24368# 24377 24379 24382 24382# 24391 24393 24396 24396#
24405 24407 24410 24410# 24419 24421 24424 24424# 24433 24435 24438 24438# 24447 24449
24453 24453# 24462 24464 24472 24472# 24481 24483 24486 24486# 24495 24497 24500 24500#
24509 24511 24514 24514# 24523 24525 24528 24528# 24537 24539 24542 24542# 24551 24553
24556 24556# 24565 24567 24570 24570# 24579 24581 24587# 24599 24599# 24610 24612 24615
24615# 24626 24628 24631 24631# 24642 24644 24647 24647# 24658 24660 24663 24663# 24674
24676 24679 24679# 24690 24692 24695 24695# 24706 24708 24711 24711# 24722 24724 24727
24727# 24738 24740 24743 24743# 24754 24756 24759 24759# 24770 24772 24775 24775# 24786
24788 24791 24791# 24802 24804 24807 24807# 24818 24820 24823 24823# 24834 24836 24839
24839# 24850 24852 24855 24855# 24866 24868 24871 24871# 24882 24884 24888 24888# 24897
24899 24908 24908# 24917 24919 24922 24922# 24931 24933 24936 24936# 24945 24947 24950
24950# 24959 24961 24964 24964# 24973 24975 24978 24978# 24987 24989 24992 24992# 25001
25003 25006 25006# 25015 25017 25020 25020# 25029 25031 25034 25034# 25043 25045 25048
25048# 25057 25059 25062 25062# 25071 25073 25076 25076# 25085 25087 25090 25090# 25099
25101 25104 25104# 25113 25115 25118 25118# 25127 25129 25133 25133# 25142 25144 25147
25147# 25156 25158 25167 25167# 25176 25178 25181 25181# 25190 25192 25195 25195# 25204
25206 25209 25209# 25218 25220 25223 25223# 25232 25234 25237 25237# 25246 25248 25251
25251# 25260 25262 25265 25265# 25274 25276 25279 25279# 25288 25290 25293 25293# 25302
25304 25307 25307# 25316 25318 25321 25321# 25330 25332 25335 25335# 25344 25346 25349
25349# 25358 25360 25363 25363# 25372 25374 25377 25377# 25386 25388 25391 25391# 25400
25402 25406 25406# 25415 25417 25426 25426# 25435 25437 25440 25440# 25449 25451 25454
25454# 25463 25465 25468 25468# 25477 25479 25482 25482# 25491 25493 25496 25496# 25505
25507 25510 25510# 25519 25521 25524 25524# 25533 25535 25540# 25552 25552# 25563 25565
25568 25568# 25579 25581 25584 25584# 25595 25597 25600 25600# 25611 25613 25616 25616#
25627 25629 25632 25632# 25643 25645 25648 25648# 25659 25661 25664 25664# 25675 25677
25680 25680# 25691 25693 25696 25696# 25707 25709 25712 25712# 25723 25725 25728 25728#
25739 25741 25744 25744# 25755 25757 25760 25760# 25771 25773 25776 25776# 25787 25789
25792 25792# 25803 25805 25808 25808# 25819 25821 25824 25824# 25835 25837 25841 25841#
25850 25852 25861 25861# 25870 25872 25875 25875# 25884 25886 25889 25889# 25898 25900
25903 25903# 25912 25914 25917 25917# 25926 25928 25931 25931# 25940 25942 25945 25945#
25954 25956 25959 25959# 25968 25970 25973 25973# 25982 25984 25987 25987# 25996 25998
26001 26001# 26010 26012 26015 26015# 26024 26026 26029 26029# 26038 26040 26043 26043#
26052 26054 26057 26057# 26066 26068 26071 26071# 26080 26082 26086 26086# 26095 26097
26100 26100# 26109 26111 26120 26120# 26129 26131 26134 26134# 26143 26145 26148 26148#
26157 26159 26162 26162# 26171 26173 26176 26176# 26185 26187 26190 26190# 26199 26201
26204 26204# 26213 26215 26218 26218# 26227 26229 26232 26232# 26241 26243 26246 26246#
26255 26257 26260 26260# 26269 26271 26274 26274# 26283 26285 26288 26288# 26297 26299
26302 26302# 26311 26313 26316 26316# 26325 26327 26330 26330# 26339 26341 26344 26344#
26353 26355 26359 26359# 26368 26370 26379 26379# 26388 26390 26393 26393# 26402 26404
26407 26407# 26416 26418 26421 26421# 26430 26432 26435 26435# 26444 26446 26449 26449#
26458 26460 26463 26463# 26472 26474 26477 26477# 26486 26488 26494# 26505 26505# 26515
26517 26520 26520# 26530 26532 26535 26535# 26545 26547 26550 26550# 26560 26562 26565
26565# 26575 26577 26580 26580# 26590 26592 26595 26595# 26605 26607 26610 26610# 26620
26622 26625 26625# 26635 26637 26640 26640# 26650 26652 26655 26655# 26665 26667 26670 SEQ 0854
26670# 26680 26682 26685 26685# 26695 26697 26700 26700# 26710 26712 26715 26715# 26725
26727 26730 26730# 26740 26742 26745 26745# 26755 26757 26760 26760# 26770 26772 26785
26785# 26795 26797 26800 26800# 26810 26812 26815 26815# 26825 26827 26830 26830# 26840
26842 26845 26845# 26855 26857 26860 26860# 26870 26872 26875 26875# 26885 26887 26890
26890# 26900 26902 26905 26905# 26915 26917 26920 26920# 26930 26932 26935 26935# 26945
26947 26950 26950# 26960 26962 26965 26965# 26975 26977 26980 26980# 26990 26992 26995
26995# 27005 27007 27010 27010# 27020 27022 27025 27025# 27035 27037 27040 27040# 27048
27050 27062 27062# 27072 27074 27077 27077# 27087 27089 27092 27092# 27102 27104 27107
27107# 27117 27119 27122 27122# 27132 27134 27137 27137# 27147 27149 27152 27152# 27162
27164 27167 27167# 27177 27179 27182 27182# 27192 27194 27197 27197# 27207 27209 27212
27212# 27222 27224 27227 27227# 27237 27239 27242 27242# 27252 27254 27257 27257# 27267
27269 27272 27272# 27282 27284 27287 27287# 27297 27299 27302 27302# 27312 27314 27317
27317# 27327 27329 27342 27342# 27352 27354 27357 27357# 27367 27369 27372 27372# 27382
27384 27387 27387# 27397 27399 27402 27402# 27412 27414 27417 27417# 27427 27429 27432
27432# 27442 27444 27447 27447# 27457 27459 27462 27462# 27472 27474 27480# 27490 27490#
27499 27501 27504 27504# 27513 27515 27518 27518# 27527 27529 27532 27532# 27541 27543
27546 27546# 27555 27557 27560 27560# 27569 27571 27574 27574# 27583 27585 27588 27588#
27597 27599 27602 27602# 27611 27613 27616 27616# 27625 27627 27630 27630# 27639 27641
27644 27644# 27653 27655 27658 27658# 27667 27669 27672 27672# 27681 27683 27686 27686#
27695 27697 27700 27700# 27709 27711 27714 27714# 27723 27725 27728 27728# 27737 27739
27751 27751# 27760 27762 27765 27765# 27774 27776 27779 27779# 27788 27790 27793 27793#
27802 27804 27807 27807# 27816 27818 27821 27821# 27830 27832 27835 27835# 27844 27846
27849 27849# 27858 27860 27863 27863# 27872 27874 27877 27877# 27886 27888 27891 27891#
27900 27902 27905 27905# 27914 27916 27919 27919# 27928 27930 27933 27933# 27942 27944
27947 27947# 27956 27958 27961 27961# 27970 27972 27975 27975# 27984 27986 27989 27989#
27998 28000 28012 28012# 28021 28023 28026 28026# 28035 28037 28040 28040# 28049 28051
28054 28054# 28063 28065 28068 28068# 28077 28079 28082 28082# 28091 28093 28096 28096#
28105 28107 28110 28110# 28119 28121 28124 28124# 28133 28135 28138 28138# 28147 28149
28152 28152# 28161 28163 28166 28166# 28175 28177 28180 28180# 28189 28191 28194 28194#
28203 28205 28208 28208# 28217 28219 28222 28222# 28231 28233 28236 28236# 28245 28247
28250 28250# 28259 28261 28273 28273# 28282 28284 28287 28287# 28296 28298 28301 28301#
28310 28312 28315 28315# 28324 28326 28329 28329# 28338 28340 28343 28343# 28352 28354
28357 28357# 28366 28368 28371 28371# 28380 28382 28386 28386# 28394 28396 28422# 28429
28431 28443 28443# 28452 28454 28457 28457# 28466 28468 28471 28471# 28480 28482 28485
28485# 28494 28496 28499 28499# 28508 28510 28513 28513# 28522 28524 28527 28527# 28536
28538 28541 28541# 28550 28552 28564 28564# 28573 28575 28578 28578# 28587 28589 28592
28592# 28601 28603 28606 28606# 28615 28617 28620 28620# 28629 28631 28634 28634# 28643
28645 28648 28648# 28657 28659 28662 28662# 28671 28673 28676 28676# 28685 28687 28690
28690# 28699 28701 28704 28704# 28713 28715 28718 28718# 28727 28729 28732 28732# 28741
28743 28746 28746# 28755 28757 28760 28760# 28769 28771 28774 28774# 28783 28785 28788
28788# 28797 28799 28802 28802# 28811 28813 28825 28825# 28834 28836 28839 28839# 28848
28850 28853 28853# 28862 28864 28867 28867# 28876 28878 28881 28881# 28890 28892 28895
28895# 28904 28906 28909 28909# 28918 28920 28923 28923# 28932 28934 28937 28937# 28946
28948 28951 28951# 28960 28962 28965 28965# 28974 28976 28979 28979# 28988 28990 28993
28993# 29002 29004 29007 29007# 29016 29018 29021 29021# 29030 29032 29035 29035# 29044
29046 29049 29049# 29058 29060 29072 29072# 29081 29083 29086 29086# 29095 29097 29100
29100# 29109 29111 29114 29114# 29123 29125 29128 29128# 29137 29139 29142 29142# 29151
29153 29156 29156# 29165 29167 29170 29170# 29179 29181 29184 29184# 29193 29195 29198
29198# 29207 29209 29212 29212# 29221 29223 29226 29226# 29235 29237 29240 29240# 29249
29251 29254 29254# 29263 29265 29268 29268# 29277 29279 29282 29282# 29291 29293 29296
29296# 29305 29307 29310 29310# 29319 29321 29324# 29337 29337# 29348 29350 29353 29353#
29364 29366 29369 29369# 29380 29382 29385 29385# 29396 29398 29401 29401# 29412 29414
29417 29417# 29428 29430 29433 29433# 29444 29446 29449 29449# 29460 29462 29465 29465# SEQ 0855
29476 29478 29491 29491# 29501 29503 29506 29506# 29516 29518 29521 29521# 29531 29533
29536 29536# 29546 29548 29551 29551# 29561 29563 29566 29566# 29576 29578 29581 29581#
29591 29593 29596 29596# 29606 29608 29611 29611# 29621 29623 29626 29626# 29636 29638
29651 29651# 29661 29663 29666 29666# 29676 29678 29681 29681# 29691 29693 29696 29696#
29706 29708 29711 29711# 29721 29723 29726 29726# 29736 29738 29741 29741# 29751 29753
29756 29756# 29766 29768 29780 29780# 29790 29792 29795 29795# 29805 29807 29810 29810#
29820 29822 29825 29825# 29835 29837 29840 29840# 29850 29852 29855 29855# 29865 29867
29870 29870# 29880 29882 29885 29885# 29895 29897 29900 29900# 29910 29912 29925 29925#
29935 29937 29940 29940# 29950 29952 29955 29955# 29965 29967 29970 29970# 29980 29982
29985 29985# 29995 29997 30000 30000# 30010 30012 30015 30015# 30025 30027 30030 30030#
30040 30042 30055 30055# 30065 30067 30070 30070# 30080 30082 30085 30085# 30095 30097
30100 30100# 30110 30112 30115 30115# 30125 30127 30130 30130# 30140 30142 30145 30145#
30155 30157 30160 30160# 30170 30172 30175 30175# 30185 30187 30190 30190# 30200 30202
30216 30216# 30226 30228 30231 30231# 30241 30243 30246 30246# 30256 30258 30261 30261#
30271 30273 30276 30276# 30286 30288 30291 30291# 30301 30303 30306 30306# 30316 30318
30322 30322# 30331 30333
TAB 1008#
TESTPC 883# 1174 1193 1211 1230 1248 1267 1365 1473 1491 1590 1664 1683 1703
1797 1814 1833 1852 1871 1891 1933 1956 1979 1998 2019 2038 2058 2078
2102 2127 2148 2170 2191 2213 2235 2255 2352 2373 2394 2417 2435 2455
2478 2551 2633 2654 2674 2693 2715 2736 2760 2781 2801 2820 2840 2860
2885 2908 2931 2958 2978 3006 3032 3053 3077 3097 3118 3139 3165 3283
3380 3508 3616 3670 3728 3788 4127 4300 4395 4431 4485 4539 4602 4664
4733 4801 4865 4934 5335 5380 5402 5424 5729 5750 5773 5795 5819 5839
6396 6425 6449 6478 6502 6528 6558 6650 6669 6696 6846 6867 6905 6926
6946 6973 6993 7014 7040 7066 7092 7198 7303 7363 7438 7458 7478 7563
7667 7724 7744 7767 7789 7810 7833 7856 7917 7941 7962 8015 8068 8096
8151 8211 8276 8328 8347 8369 8418 8443 8467 8488 8534 8557 8581 8604
8666 8688 8709 8734 8755 8779 8800 8901 8920 8939 9005 9024 11114 15002
15042 15352 15402 15971 16015 16162 16377 16424 16861 28417 32139 32296 32394 32551
33508 33665 34203
TICKS 886#
TLET 1157 34483 34506#
TN0 811#
TN1 811#
TOTALS 583#
TRP3TP 811#
TRPENB 811#
TSTWD 11118 11120 11324 11326 14847 14849 15824 15825 15828 15830 15849 15850 15853 15855
15874 15875 15878 15880 15899 15900 15903 15905 15924 15925 15928 15930 15950 15951
15954 15956 15988 15989 15992 15994 16210 16215 16217 16239 16244 16246 16268 16273
16275 16297 16302 16304 16326 16331 16333 16355 16360 16362 16395 16400 16403 16592
16597 16599 16621 16626 16628 16650 16655 16657 16682 16728 16774 16820 34397#
TTNBRF 1066#
TTYFIL 982#
TTYSPD 983#
TXTINH 594# 34467
UOLIP 811#
UOUSR 811#
USER 873# 34167 34406 34419 34558
USERF 811# 15638 15683 15728 15773 16685 16731 16777 16823
USRASB 57# 863
USRCMP 811# SEQ 0856
USRCRF 992#
USRLFF 991#
USRPFW 811#
UUODIS 945#
UUOEXT 901# 34562
UUORTN 902#
UUOSKP 899#
WW 1370# 1387 1387# 1388 1398 1398# 1399 1409 1409# 1410 1420 1420# 1421 1431
1431# 1432 1442 1442# 1443 1453 1453# 1454 3385# 3404 3405 3405# 3416 3417
3417# 3428 3429 3429# 3440 3441 3441# 3452 3453 3453# 3464 3465 3465# 3476
3477 3477# 3488 3489 3489# 4669# 4687 4688 4688# 4699 4700 4700# 4711 4712
4712# 4738# 4756 4757 4757# 4768 4769 4769# 4780 4781 4781# 4870# 4888 4888#
4890 4900 4900# 4902 4912 4912# 4914 8215# 8233 8234 8235 8235# 8245 8246
8247 8247# 8257 8258 8259 8259# 10770# 10797 10797# 10800 10814 10814# 10817 10831
10831# 10834 10848 10848# 10851 10865 10865# 10868 10882 10882# 10885 10899 10899# 10902
10916 10916# 10919
XX 1371# 1388 1388# 1391 1399 1399# 1402 1410 1410# 1413 1421 1421# 1424 1432
1432# 1435 1443 1443# 1446 1454 1454# 1457 1496# 1511 1511# 1512 1521 1521#
1522 1531 1531# 1532 1541 1541# 1542 1551 1551# 1552 1561 1561# 1562 1571
1571# 1572 3170# 3186 3186# 3189 3197 3197# 3200 3208 3208# 3211 3219 3219#
3222 3230 3230# 3233 3241 3241# 3244 3252 3252# 3255 3263 3263# 3266 3303#
3304 3313# 3314 3323# 3324 3333# 3334 3343# 3344 3353# 3354 3363# 3364 3386#
3403 3403# 3406 3406# 3409 3415 3415# 3418 3421 3427 3427# 3430 3433 3439
3439# 3442 3445 3451 3451# 3454 3457 3463 3463# 3466 3469 3475 3475# 3478
3481 3487 3487# 3490 3493 3513# 3528 3528# 3532 3538 3538# 3542 3548 3548#
3552 3558 3558# 3562 3568 3568# 3572 3578 3578# 3582 3588 3588# 3592 3598
3598# 3602 3675# 3690 3690# 3692 3700 3700# 3702 3710 3710# 3712 3733# 3748
3748# 3750 3758 3758# 3760 3768 3768# 3770 4132# 4151 4151# 4155 4165 4165#
4169 4179 4179# 4183 4193 4193# 4197 4207 4207# 4211 4221 4221# 4225 4235
4235# 4239 4249 4249# 4253 4263 4263# 4267 4277 4277# 4281 4305# 4321 4321#
4324 4332 4332# 4335 4343 4343# 4346 4354 4354# 4357 4365 4365# 4368 4376
4376# 4379 4544# 4560 4560# 4562 4571 4571# 4573 4582 4582# 4584 4607# 4623
4623# 4625 4634 4634# 4636 4645 4645# 4647 4670# 4687 4687# 4690 4699 4699#
4702 4711 4711# 4714 4739# 4756 4756# 4759 4768 4768# 4771 4780 4780# 4783
4806# 4822 4822# 4824 4833 4833# 4835 4844 4844# 4846 4871# 4889 4889# 4893
4901 4901# 4905 4913 4913# 4917 4939# 4958 4958# 4961 4972 4972# 4975 4986
4986# 4989 5000 5000# 5003 5014 5014# 5017 5028 5028# 5031 5042 5042# 5045
5056 5056# 5059 5070 5070# 5073 5084 5084# 5087 5098 5098# 5101 5112 5112#
5115 5126 5126# 5129 5140 5140# 5143 5154 5154# 5157 5168 5168# 5171 5182
5182# 5185 5196 5196# 5199 5229 5229# 5232 5243 5243# 5246 5257 5257# 5260
5271 5271# 5274 5285 5285# 5288 5299 5299# 5302 5313 5313# 5316 5429# 5450
5450# 5452 5457 5461 5466 5466# 5468 5473 5477 5482 5482# 5484 5489 5493
5498 5498# 5500 5505 5509 5514 5514# 5516 5521 5525 5530 5530# 5532 5537
5541 5546 5546# 5548 5553 5557 5562 5562# 5564 5569 5573 5578 5578# 5580
5585 5589 5594 5594# 5596 5601 5605 5610 5610# 5612 5617 5621 5626 5626#
5628 5633 5637 5642 5642# 5644 5649 5653 5658 5658# 5660 5665 5669 5674
5674# 5676 5681 5685 5690 5690# 5692 5697 5701 5706 5706# 5708 5713 5717
7112# 7113 7123# 7124 7134# 7135 7145# 7146 7156# 7157 7167# 7168 7178# 7179
7218# 7219 7229# 7230 7240# 7241 7251# 7252 7262# 7263 7273# 7274 7284# 7285
7307# 7323 7323# 7325 7334 7334# 7336 7345 7345# 7347 7482# 7498 7498# 7500
7509 7509# 7511 7520 7520# 7522 7531 7531# 7533 7542 7542# 7544 7567# 7583
7583# 7585 7594 7594# 7596 7605 7605# 7607 7616 7616# 7618 7627 7627# 7629
7638 7638# 7640 7649 7649# 7651 7671# 7689 7689# 7691 7702 7702# 7704 7860# SEQ 0857
7880 7880# 7886 7890 7895 7895# 7901 7905 7966# 7983 7983# 7986 7995 7995#
7998 8020# 8036 8036# 8038 8047 8047# 8049 8155# 8171 8171# 8173 8182 8182#
8184 8193 8193# 8195 8216# 8233 8233# 8236 8245 8245# 8248 8257 8257# 8260
8281# 8297 8297# 8299 8308 8308# 8310 8373# 8389 8389# 8391 8400 8400# 8402
8609# 8629 8629# 8633 8644 8644# 8648 8805# 8824 8824# 8826 8838 8838# 8840
8852 8852# 8854 8866 8866# 8868 8880 8880# 8882 8944# 8960 8960# 8962 8971
8971# 8973 8982 8982# 8984 9039# 9065 9065# 9068 9082 9082# 9085 9099 9099#
9102 9116 9116# 9119 9133 9133# 9136 9150 9150# 9153 9167 9167# 9170 9184
9184# 9187 9201 9201# 9204 9218 9218# 9221 9235 9235# 9238 9252 9252# 9255
9269 9269# 9272 9286 9286# 9289 9303 9303# 9306 9320 9320# 9323 9337 9337#
9340 9354 9354# 9357 9392 9392# 9395 9409 9409# 9412 9426 9426# 9429 9443
9443# 9446 9460 9460# 9463 9477 9477# 9480 9494 9494# 9497 9511 9511# 9514
9528 9528# 9531 9545 9545# 9548 9562 9562# 9565 9579 9579# 9582 9596 9596#
9599 9613 9613# 9616 9630 9630# 9633 9647 9647# 9650 9664 9664# 9667 9680#
9705 9705# 9707 9721 9721# 9723 9737 9737# 9739 9753 9753# 9755 9769 9769#
9771 9785 9785# 9787 9801 9801# 9803 9817 9817# 9819 9833 9833# 9835 9870
9870# 9873 9887 9887# 9890 9904 9904# 9907 9921 9921# 9924 9938 9938# 9941
9955 9955# 9958 9972 9972# 9975 9989 9989# 9992 10006 10006# 10009 10023 10023#
10026 10040 10040# 10043 10057 10057# 10060 10074 10074# 10077 10091 10091# 10094 10108
10108# 10111 10125 10125# 10128 10142 10142# 10145 10159 10159# 10162 10174# 10200 10200#
10203 10217 10217# 10220 10230# 10258 10258# 10262 10276 10276# 10280 10294 10294# 10298
10312 10312# 10316 10330 10330# 10334 10348 10348# 10352 10366 10366# 10370 10384 10384#
10388 10397# 10425 10425# 10429 10443 10443# 10447 10461 10461# 10465 10479 10479# 10483
10497 10497# 10501 10515 10515# 10519 10533 10533# 10537 10551 10551# 10555 10569 10569#
10573 10610 10610# 10614 10628 10628# 10632 10646 10646# 10650 10664 10664# 10668 10682
10682# 10686 10700 10700# 10704 10718 10718# 10722 10736 10736# 10740 10754 10754# 10758
10768# 10795 10795# 10798 10812 10812# 10815 10829 10829# 10832 10846 10846# 10849 10863
10863# 10866 10880 10880# 10883 10897 10897# 10900 10914 10914# 10917 11417# 11441 11441#
11443 11456 11456# 11458 11471 11471# 11473 11486 11486# 11488 11501 11501# 11503 11516
11516# 11518 11531 11531# 11533 11546 11546# 11548 11561 11561# 11563 11576 11576# 11578
11591 11591# 11593 11606 11606# 11608 11621 11621# 11623 11636 11636# 11638 11651 11651#
11653 11666 11666# 11668 11681 11681# 11683 11692# 11717 11717# 11719 11719# 11720 11733
11733# 11735 11736 11749 11749# 11751 11752 11765 11765# 11767 11768 11781 11781# 11783
11784 11797 11797# 11799 11800 11813 11813# 11815 11816 11829 11829# 11831 11832 11845
11845# 11847 11848 11861 11861# 11863 11864 11877 11877# 11879 11880 11893 11893# 11895
11896 11909 11909# 11911 11912 11925 11925# 11927 11928 11941 11941# 11943 11944 11957
11957# 11959 11960 11973 11973# 11975 11976 11989 11989# 11991 11992 12004# 12029 12029#
12031 12031# 12032 12045 12045# 12047 12048 12061 12061# 12063 12064 12077 12077# 12079
12080 12093 12093# 12095 12096 12109 12109# 12111 12112 12125 12125# 12127 12128 12141
12141# 12143 12144 12157 12157# 12159 12160 12173 12173# 12175 12176 12189 12189# 12191
12192 12205 12205# 12207 12208 12221 12221# 12223 12224 12237 12237# 12239 12240 12253
12253# 12255 12256 12269 12269# 12271 12272 12285 12285# 12287 12288 12301 12301# 12303
12304 12313# 12338 12338# 12340 12340# 12341 12354 12354# 12356 12357 12370 12370# 12372
12373 12386 12386# 12388 12389 12402 12402# 12404 12405 12418 12418# 12420 12421 12434
12434# 12436 12437 12450 12450# 12452 12453 12466 12466# 12468 12469 12482 12482# 12484
12485 12498 12498# 12500 12501 12514 12514# 12516 12517 12530 12530# 12532 12533 12546
12546# 12548 12549 12562 12562# 12564 12565 12578 12578# 12580 12581 12594 12594# 12596
12597 12610 12610# 12612 12613 12645# 12672 12672# 12675 12690 12690# 12693 12708 12708#
12711 12726 12726# 12729 12744 12744# 12747 12762 12762# 12765 12780 12780# 12783 12798
12798# 12801 12816 12816# 12819 12834 12834# 12837 12848# 12874 12874# 12876 12876# 12877
12892 12892# 12894 12895 12910 12910# 12912 12913 12928 12928# 12930 12931 12946 12946#
12948 12949 12964 12964# 12966 12967 12982 12982# 12984 12985 13000 13000# 13002 13003
13013# 13039 13039# 13042 13056 13056# 13059 13073 13073# 13076 13090 13090# 13093 13107 SEQ 0858
13107# 13110 13124 13124# 13127 13141 13141# 13144 13158 13158# 13161 13174# 13201 13201#
13205 13219 13219# 13223 13237 13237# 13241 13255 13255# 13259 13273 13273# 13277 13291
13291# 13295 13309 13309# 13313 13327 13327# 13331 13345 13345# 13349 13363 13363# 13367
13377# 13403 13403# 13405 13405# 13406 13420 13420# 13422 13423 13437 13437# 13439 13440
13454 13454# 13456 13457 13471 13471# 13473 13474 13488 13488# 13490 13491 13505 13505#
13507 13508 13522 13522# 13524 13525 13534# 13560 13560# 13563 13577 13577# 13580 13594
13594# 13597 13611 13611# 13614 13628 13628# 13631 13645 13645# 13648 13662 13662# 13665
13679 13679# 13682 13695# 13722 13722# 13726 13740 13740# 13744 13758 13758# 13762 13776
13776# 13780 13794 13794# 13798 13812 13812# 13816 13830 13830# 13834 13848 13848# 13852
13866 13866# 13870 13884 13884# 13888 13898# 13925 13925# 13927 13927# 13928 13943 13943#
13945 13946 13961 13961# 13963 13964 13979 13979# 13981 13982 13997 13997# 13999 14000
14015 14015# 14017 14018 14033 14033# 14035 14036 14051 14051# 14053 14054 14064# 14090
14090# 14093 14107 14107# 14110 14124 14124# 14127 14141 14141# 14144 14158 14158# 14161
14175 14175# 14178 14192 14192# 14195 14209 14209# 14212 14236# 14264 14264# 14268 14283
14283# 14287 14302 14302# 14306 14321 14321# 14325 14340 14340# 14344 14359 14359# 14363
14378 14378# 14382 14397 14397# 14401 14416 14416# 14420 14435 14435# 14439 14450# 14478
14478# 14480 14480# 14481 14497 14497# 14499 14500 14516 14516# 14518 14519 14535 14535#
14537 14538 14554 14554# 14556 14557 14573 14573# 14575 14576 14592 14592# 14594 14595
14611 14611# 14613 14614 14626# 14652 14652# 14655 14669 14669# 14672 14686 14686# 14689
14703 14703# 14706 14720 14720# 14723 14737 14737# 14740 14754 14754# 14757 14771 14771#
14774 16879# 16889 16889# 16894 16903 16903# 16908 16917 16917# 16922 16931 16931# 16936
16945 16945# 16950 16959 16959# 16964 16973 16973# 16978 16987 16987# 16992 17001 17001#
17006 17015# 17024 17024# 17029 17038 17038# 17043 17052 17052# 17057 17066 17066# 17071
17080 17080# 17085 17094 17094# 17099 17108 17108# 17113 17122 17122# 17127 17136 17136#
17141 17150 17150# 17155 17164 17164# 17169 17178 17178# 17183 17192 17192# 17197 17206
17206# 17211 17220 17220# 17225 17234 17234# 17239 17248 17248# 17253 17262 17262# 17267
17276# 17283 17297 17297# 17303 17311 17311# 17317 17325 17325# 17331 17339 17339# 17345
17353 17353# 17359 17367 17367# 17373 17381 17381# 17387 17395 17395# 17401 17409 17409#
17415 17423 17423# 17429 17437 17437# 17443 17451 17451# 17457 17465 17465# 17471 17479
17479# 17485 17493 17493# 17499 17507 17507# 17513 17521 17521# 17527 17535# 17544 17544#
17550 17558 17558# 17564 17572 17572# 17578 17586 17586# 17592 17600 17600# 17606 17614
17614# 17620 17628 17628# 17634 17642 17642# 17648 17656 17656# 17662 17670 17670# 17676
17684 17684# 17690 17698 17698# 17704 17712 17712# 17718 17726 17726# 17732 17740 17740#
17746 17754 17754# 17760 17768 17768# 17774 17782 17782# 17788 17797# 17807 17807# 17810
17821 17821# 17824 17835 17835# 17838 17849 17849# 17852 17863 17863# 17866 17877 17877#
17880 17891 17891# 17894 17905 17905# 17908 17919 17919# 17922 17933# 17942 17942# 17945
17956 17956# 17959 17970 17970# 17973 17984 17984# 17987 17998 17998# 18001 18012 18012#
18015 18026 18026# 18029 18040 18040# 18043 18054 18054# 18057 18068 18068# 18071 18082
18082# 18085 18096 18096# 18099 18110 18110# 18113 18124 18124# 18127 18138 18138# 18141
18152 18152# 18155 18166 18166# 18169 18180 18180# 18183 18194# 18199 18216 18216# 18220
18231 18231# 18235 18246 18246# 18250 18261 18261# 18265 18276 18276# 18280 18291 18291#
18295 18306 18306# 18310 18321 18321# 18325 18336 18336# 18340 18351 18351# 18355 18366
18366# 18370 18381 18381# 18385 18396 18396# 18400 18411 18411# 18415 18426 18426# 18430
18441 18441# 18445 18456 18456# 18460 18471# 18480 18480# 18484 18494 18494# 18498 18508
18508# 18512 18522 18522# 18526 18536 18536# 18540 18550 18550# 18554 18564 18564# 18568
18578 18578# 18582 18592 18592# 18596 18606 18606# 18610 18620 18620# 18624 18634 18634#
18638 18648 18648# 18652 18662 18662# 18666 18676 18676# 18680 18690 18690# 18694 18704
18704# 18708 18718 18718# 18722 20598# 20610 20610# 20611 20611# 20616 20626 20626# 20627
20632 20642 20642# 20643 20648 20658 20658# 20659 20664 20674 20674# 20675 20680 20690
20690# 20691 20696 20706 20706# 20707 20712 20722 20722# 20723 20728 20738 20738# 20739
20744 20754 20754# 20755 20760 20770 20770# 20771 20776 20786 20786# 20787 20792 20802
20802# 20803 20808 20818 20818# 20819 20824 20834 20834# 20835 20840 20850 20850# 20851
20856 20866 20866# 20867 20872 20882 20882# 20883 20888 20898# 20910 20910# 20911 20911# SEQ 0859
20916 20926 20926# 20927 20932 20942 20942# 20943 20948 20958 20958# 20959 20964 20974
20974# 20975 20980 20990 20990# 20991 20996 21006 21006# 21007 21012 21022 21022# 21023
21028 21038 21038# 21039 21044 21054 21054# 21055 21060 21070 21070# 21071 21076 21086
21086# 21087 21092 21102 21102# 21103 21108 21118 21118# 21119 21124 21134 21134# 21135
21140 21150 21150# 21151 21156 21166 21166# 21167 21172 21182 21182# 21183 21188 21198#
21210 21210# 21211 21211# 21215 21226 21226# 21227 21231 21242 21242# 21243 21247 21258
21258# 21259 21263 21274 21274# 21275 21279 21290 21290# 21291 21295 21306 21306# 21307
21311 21322 21322# 21323 21327 21338 21338# 21339 21343 21354 21354# 21355 21359 21370
21370# 21371 21375 21386 21386# 21387 21391 21402 21402# 21403 21407 21418 21418# 21419
21423 21434 21434# 21435 21439 21450 21450# 21451 21455 21466 21466# 21467 21471 21482
21482# 21483 21487 21498# 21510 21510# 21511 21511# 21515 21526 21526# 21527 21531 21542
21542# 21543 21547 21558 21558# 21559 21563 21574 21574# 21575 21579 21590 21590# 21591
21595 21606 21606# 21607 21611 21622 21622# 21623 21627 21638 21638# 21639 21643 21656#
21668 21668# 21669 21669# 21674 21684 21684# 21685 21690 21700 21700# 21701 21706 21716
21716# 21717 21722 21732 21732# 21733 21738 21748 21748# 21749 21754 21764 21764# 21765
21770 21780 21780# 21781 21786 21796 21796# 21797 21802 21812 21812# 21813 21818 21828
21828# 21829 21834 21844 21844# 21845 21850 21860 21860# 21861 21866 21876 21876# 21877
21882 21892 21892# 21893 21898 21908 21908# 21909 21914 21924 21924# 21925 21930 21940
21940# 21941 21946 21956# 21968 21968# 21969 21969# 21974 21984 21984# 21985 21990 22000
22000# 22001 22006 22016 22016# 22017 22022 22032 22032# 22033 22038 22048 22048# 22049
22054 22064 22064# 22065 22070 22080 22080# 22081 22086 22096 22096# 22097 22102 22112
22112# 22113 22118 22128 22128# 22129 22134 22144 22144# 22145 22150 22160 22160# 22161
22166 22176 22176# 22177 22182 22192 22192# 22193 22198 22208 22208# 22209 22214 22224
22224# 22225 22230 22240 22240# 22241 22246 22256# 22268 22268# 22269 22269# 22273 22284
22284# 22285 22289 22300 22300# 22301 22305 22316 22316# 22317 22321 22332 22332# 22333
22337 22348 22348# 22349 22353 22364 22364# 22365 22369 22380 22380# 22381 22385 22396
22396# 22397 22401 22412 22412# 22413 22417 22428 22428# 22429 22433 22444 22444# 22445
22449 22460 22460# 22461 22465 22476 22476# 22477 22481 22492 22492# 22493 22497 22508
22508# 22509 22513 22524 22524# 22525 22529 22540 22540# 22541 22545 22556# 22568 22568#
22569 22569# 22573 22584 22584# 22585 22589 22600 22600# 22601 22605 22616 22616# 22617
22621 22632 22632# 22633 22637 22648 22648# 22649 22653 22664 22664# 22665 22669 22680
22680# 22681 22685 22696 22696# 22697 22701 22715# 22725 22726 22726# 22727 22727# 22732
22740 22741 22741# 22742 22747 22755 22756 22756# 22757 22762 22770 22771 22771# 22772
22777 22785 22786 22786# 22787 22792 22800 22801 22801# 22802 22807 22815 22816 22816#
22817 22822 22830 22831 22831# 22832 22837 22845 22846 22846# 22847 22852 22860 22861
22861# 22862 22867 22875 22876 22876# 22877 22882 22890 22891 22891# 22892 22897 22905
22906 22906# 22907 22912 22920 22921 22921# 22922 22927 22935 22936 22936# 22937 22942
22950 22951 22951# 22952 22957 22965 22966 22966# 22967 22972 22980 22981 22981# 22982
22987 22995 22996# 23003 23018 23019 23019# 23024 23032 23033 23033# 23038 23046 23047
23047# 23052 23060 23061 23061# 23066 23074 23075 23075# 23080 23088 23089 23089# 23094
23102 23103 23103# 23108 23116 23117 23117# 23122 23130 23131 23131# 23136 23144 23145
23145# 23150 23158 23159 23159# 23164 23172 23173 23173# 23178 23186 23187 23187# 23192
23200 23201 23201# 23206 23214 23215 23215# 23220 23228 23229 23229# 23234 23242 23243
23243# 23250 23258# 23262 23278 23279 23279# 23283 23292 23293 23293# 23297 23306 23307
23307# 23311 23320 23321 23321# 23325 23334 23335 23335# 23339 23348 23349 23349# 23353
23362 23363 23363# 23367 23376 23377 23377# 23381 23390 23391 23391# 23395 23404 23405
23405# 23409 23418 23419 23419# 23423 23432 23433 23433# 23437 23446 23447 23447# 23451
23460 23461 23461# 23465 23474 23475 23475# 23479 23488 23489 23489# 23493 23502 23503
23503# 23507 23518 23519# 23523 23538 23539 23539# 23543 23552 23553 23553# 23557 23566
23567 23567# 23571 23580 23581 23581# 23585 23594 23595 23595# 23599 23608 23609 23609#
23613 23622 23623 23623# 23627 23636 23637 23637# 23641 23653# 23663 23664 23664# 23665
23665# 23668 23678 23679 23679# 23680 23683 23693 23694 23694# 23695 23698 23708 23709
23709# 23710 23713 23723 23724 23724# 23725 23728 23738 23739 23739# 23740 23743 23753 SEQ 0860
23754 23754# 23755 23758 23768 23769 23769# 23770 23773 23783 23784 23784# 23785 23788
23798 23799 23799# 23800 23803 23813 23814 23814# 23815 23818 23828 23829 23829# 23830
23833 23843 23844 23844# 23845 23848 23858 23859 23859# 23860 23863 23873 23874 23874#
23875 23878 23888 23889 23889# 23890 23893 23903 23904 23904# 23905 23908 23918 23919
23919# 23920 23923 23933 23934# 23939 23956 23957 23957# 23960 23970 23971 23971# 23974
23984 23985 23985# 23988 23998 23999 23999# 24002 24012 24013 24013# 24016 24026 24027
24027# 24030 24040 24041 24041# 24044 24054 24055 24055# 24058 24068 24069 24069# 24072
24082 24083 24083# 24086 24096 24097 24097# 24100 24110 24111 24111# 24114 24124 24125
24125# 24128 24138 24139 24139# 24142 24152 24153 24153# 24156 24166 24167 24167# 24170
24181 24182 24182# 24186 24196# 24199 24215 24216 24216# 24218 24229 24230 24230# 24232
24243 24244 24244# 24246 24257 24258 24258# 24260 24271 24272 24272# 24274 24285 24286
24286# 24288 24299 24300 24300# 24302 24313 24314 24314# 24316 24327 24328 24328# 24330
24341 24342 24342# 24344 24355 24356 24356# 24358 24369 24370 24370# 24372 24383 24384
24384# 24386 24397 24398 24398# 24400 24411 24412 24412# 24414 24425 24426 24426# 24428
24439 24440 24440# 24442 24454 24455# 24457 24473 24474 24474# 24476 24487 24488 24488#
24490 24501 24502 24502# 24504 24515 24516 24516# 24518 24529 24530 24530# 24532 24543
24544 24544# 24546 24557 24558 24558# 24560 24571 24572 24572# 24574 24589# 24600 24602
24602# 24603 24603# 24608 24616 24618 24618# 24619 24624 24632 24634 24634# 24635 24640
24648 24650 24650# 24651 24656 24664 24666 24666# 24667 24672 24680 24682 24682# 24683
24688 24696 24698 24698# 24699 24704 24712 24714 24714# 24715 24720 24728 24730 24730#
24731 24736 24744 24746 24746# 24747 24752 24760 24762 24762# 24763 24768 24776 24778
24778# 24779 24784 24792 24794 24794# 24795 24800 24808 24810 24810# 24811 24816 24824
24826 24826# 24827 24832 24840 24842 24842# 24843 24848 24856 24858 24858# 24859 24864
24872 24874 24874# 24875 24880 24889 24890# 24895 24909 24910 24910# 24915 24923 24924
24924# 24929 24937 24938 24938# 24943 24951 24952 24952# 24957 24965 24966 24966# 24971
24979 24980 24980# 24985 24993 24994 24994# 24999 25007 25008 25008# 25013 25021 25022
25022# 25027 25035 25036 25036# 25041 25049 25050 25050# 25055 25063 25064 25064# 25069
25077 25078 25078# 25083 25091 25092 25092# 25097 25105 25106 25106# 25111 25119 25120
25120# 25125 25134 25134# 25135 25140 25148 25149# 25153 25168 25169 25169# 25173 25182
25183 25183# 25187 25196 25197 25197# 25201 25210 25211 25211# 25215 25224 25225 25225#
25229 25238 25239 25239# 25243 25252 25253 25253# 25257 25266 25267 25267# 25271 25280
25281 25281# 25285 25294 25295 25295# 25299 25308 25309 25309# 25313 25322 25323 25323#
25327 25336 25337 25337# 25341 25350 25351 25351# 25355 25364 25365 25365# 25369 25378
25379 25379# 25383 25392 25393 25393# 25397 25407 25408# 25412 25427 25428 25428# 25432
25441 25442 25442# 25446 25455 25456 25456# 25460 25469 25470 25470# 25474 25483 25484
25484# 25488 25497 25498 25498# 25502 25511 25512 25512# 25516 25525 25526 25526# 25530
25542# 25553 25555 25555# 25556 25556# 25559 25569 25571 25571# 25572 25575 25585 25587
25587# 25588 25591 25601 25603 25603# 25604 25607 25617 25619 25619# 25620 25623 25633
25635 25635# 25636 25639 25649 25651 25651# 25652 25655 25665 25667 25667# 25668 25671
25681 25683 25683# 25684 25687 25697 25699 25699# 25700 25703 25713 25715 25715# 25716
25719 25729 25731 25731# 25732 25735 25745 25747 25747# 25748 25751 25761 25763 25763#
25764 25767 25777 25779 25779# 25780 25783 25793 25795 25795# 25796 25799 25809 25811
25811# 25812 25815 25825 25827 25827# 25828 25831 25842 25843# 25846 25862 25863 25863#
25866 25876 25877 25877# 25880 25890 25891 25891# 25894 25904 25905 25905# 25908 25918
25919 25919# 25922 25932 25933 25933# 25936 25946 25947 25947# 25950 25960 25961 25961#
25964 25974 25975 25975# 25978 25988 25989 25989# 25992 26002 26003 26003# 26006 26016
26017 26017# 26020 26030 26031 26031# 26034 26044 26045 26045# 26048 26058 26059 26059#
26062 26072 26073 26073# 26076 26087 26087# 26088 26091 26101 26102# 26104 26121 26122
26122# 26124 26135 26136 26136# 26138 26149 26150 26150# 26152 26163 26164 26164# 26166
26177 26178 26178# 26180 26191 26192 26192# 26194 26205 26206 26206# 26208 26219 26220
26220# 26222 26233 26234 26234# 26236 26247 26248 26248# 26250 26261 26262 26262# 26264
26275 26276 26276# 26278 26289 26290 26290# 26292 26303 26304 26304# 26306 26317 26318
26318# 26320 26331 26332 26332# 26334 26345 26346 26346# 26348 26360 26361# 26363 26380 SEQ 0861
26381 26381# 26383 26394 26395 26395# 26397 26408 26409 26409# 26411 26422 26423 26423#
26425 26436 26437 26437# 26439 26450 26451 26451# 26453 26464 26465 26465# 26467 26478
26479 26479# 26481 26495# 26506 26506# 26507 26507# 26511 26513 26521 26521# 26522 26526
26528 26536 26536# 26537 26541 26543 26551 26551# 26552 26556 26558 26566 26566# 26567
26571 26573 26581 26581# 26582 26586 26588 26596 26596# 26597 26601 26603 26611 26611#
26612 26616 26618 26626 26626# 26627 26631 26633 26641 26641# 26642 26646 26648 26656
26656# 26657 26661 26663 26671 26671# 26672 26676 26678 26686 26686# 26687 26691 26693
26701 26701# 26702 26706 26708 26716 26716# 26717 26721 26723 26731 26731# 26732 26736
26738 26746 26746# 26747 26751 26753 26761 26761# 26762 26766 26768 26776# 26786 26786#
26787 26787# 26791 26793 26801 26801# 26802 26806 26808 26816 26816# 26817 26821 26823
26831 26831# 26832 26836 26838 26846 26846# 26847 26851 26853 26861 26861# 26862 26866
26868 26876 26876# 26877 26881 26883 26891 26891# 26892 26896 26898 26906 26906# 26907
26911 26913 26921 26921# 26922 26926 26928 26936 26936# 26937 26941 26943 26951 26951#
26952 26956 26958 26966 26966# 26967 26971 26973 26981 26981# 26982 26986 26988 26996
26996# 26997 27001 27003 27011 27011# 27012 27016 27018 27026 27026# 27027 27031 27033
27041 27041# 27044 27046 27053# 27063 27063# 27064 27064# 27067 27069 27078 27078# 27079
27082 27084 27093 27093# 27094 27097 27099 27108 27108# 27109 27112 27114 27123 27123#
27124 27127 27129 27138 27138# 27139 27142 27144 27153 27153# 27154 27157 27159 27168
27168# 27169 27172 27174 27183 27183# 27184 27187 27189 27198 27198# 27199 27202 27204
27213 27213# 27214 27217 27219 27228 27228# 27229 27232 27234 27243 27243# 27244 27247
27249 27258 27258# 27259 27262 27264 27273 27273# 27274 27277 27279 27288 27288# 27289
27292 27294 27303 27303# 27304 27307 27309 27318 27318# 27319 27322 27324 27333# 27343
27343# 27344 27344# 27347 27349 27358 27358# 27359 27362 27364 27373 27373# 27374 27377
27379 27388 27388# 27389 27392 27394 27403 27403# 27404 27407 27409 27418 27418# 27419
27422 27424 27433 27433# 27434 27437 27439 27448 27448# 27449 27452 27454 27463 27463#
27464 27467 27469 27482# 27491 27491# 27492 27492# 27495 27497 27500 27505 27505# 27506
27509 27511 27514 27519 27519# 27520 27523 27525 27528 27533 27533# 27534 27537 27539
27542 27547 27547# 27548 27551 27553 27556 27561 27561# 27562 27565 27567 27570 27575
27575# 27576 27579 27581 27584 27589 27589# 27590 27593 27595 27598 27603 27603# 27604
27607 27609 27612 27617 27617# 27618 27621 27623 27626 27631 27631# 27632 27635 27637
27640 27645 27645# 27646 27649 27651 27654 27659 27659# 27660 27663 27665 27668 27673
27673# 27674 27677 27679 27682 27687 27687# 27688 27691 27693 27696 27701 27701# 27702
27705 27707 27710 27715 27715# 27716 27719 27721 27724 27729 27729# 27730 27733 27735
27738 27743# 27752 27752# 27753 27753# 27756 27758 27761 27766 27766# 27767 27770 27772
27775 27780 27780# 27781 27784 27786 27789 27794 27794# 27795 27798 27800 27803 27808
27808# 27809 27812 27814 27817 27822 27822# 27823 27826 27828 27831 27836 27836# 27837
27840 27842 27845 27850 27850# 27851 27854 27856 27859 27864 27864# 27865 27868 27870
27873 27878 27878# 27879 27882 27884 27887 27892 27892# 27893 27896 27898 27901 27906
27906# 27907 27910 27912 27915 27920 27920# 27921 27924 27926 27929 27934 27934# 27935
27938 27940 27943 27948 27948# 27949 27952 27954 27957 27962 27962# 27963 27966 27968
27971 27976 27976# 27977 27980 27982 27985 27990 27990# 27991 27994 27996 27999 28004#
28013 28013# 28014 28014# 28016 28018 28020 28027 28027# 28028 28030 28032 28034 28041
28041# 28042 28044 28046 28048 28055 28055# 28056 28058 28060 28062 28069 28069# 28070
28072 28074 28076 28083 28083# 28084 28086 28088 28090 28097 28097# 28098 28100 28102
28104 28111 28111# 28112 28114 28116 28118 28125 28125# 28126 28128 28130 28132 28139
28139# 28140 28142 28144 28146 28153 28153# 28154 28156 28158 28160 28167 28167# 28168
28170 28172 28174 28181 28181# 28182 28184 28186 28188 28195 28195# 28196 28198 28200
28202 28209 28209# 28210 28212 28214 28216 28223 28223# 28224 28226 28228 28230 28237
28237# 28238 28240 28242 28244 28251 28251# 28252 28254 28256 28258 28274 28274# 28275
28277 28279 28281 28288 28288# 28289 28291 28293 28295 28302 28302# 28303 28305 28307
28309 28316 28316# 28317 28319 28321 28323 28330 28330# 28331 28333 28335 28337 28344
28344# 28345 28347 28349 28351 28358 28358# 28359 28361 28363 28365 28372 28372# 28373
28375 28377 28379 28387 28387# 28389 28391 28393 28434# 28444 28444# 28447 28458 28458# SEQ 0862
28461 28472 28472# 28475 28486 28486# 28489 28500 28500# 28503 28514 28514# 28517 28528
28528# 28531 28542 28542# 28545 28556# 28565 28565# 28568 28579 28579# 28582 28593 28593#
28596 28607 28607# 28610 28621 28621# 28624 28635 28635# 28638 28649 28649# 28652 28663
28663# 28666 28677 28677# 28680 28691 28691# 28694 28705 28705# 28708 28719 28719# 28722
28733 28733# 28736 28747 28747# 28750 28761 28761# 28764 28775 28775# 28778 28789 28789#
28792 28803 28803# 28806 28817# 28826 28826# 28830 28840 28840# 28844 28854 28854# 28858
28868 28868# 28872 28882 28882# 28886 28896 28896# 28900 28910 28910# 28914 28924 28924#
28928 28938 28938# 28942 28952 28952# 28956 28966 28966# 28970 28980 28980# 28984 28994
28994# 28998 29008 29008# 29012 29022 29022# 29026 29036 29036# 29040 29050 29050# 29054
29064# 29073 29073# 29077 29087 29087# 29091 29101 29101# 29105 29115 29115# 29119 29129
29129# 29133 29143 29143# 29147 29157 29157# 29161 29171 29171# 29175 29185 29185# 29189
29199 29199# 29203 29213 29213# 29217 29227 29227# 29231 29241 29241# 29245 29255 29255#
29259 29269 29269# 29273 29283 29283# 29287 29297 29297# 29301 29311 29311# 29315 29325#
29338 29338# 29343 29354 29354# 29359 29370 29370# 29375 29386 29386# 29391 29402 29402#
29407 29418 29418# 29423 29434 29434# 29439 29450 29450# 29455 29466 29466# 29471 29482#
29492 29492# 29496 29507 29507# 29511 29522 29522# 29526 29537 29537# 29541 29552 29552#
29556 29567 29567# 29571 29582 29582# 29586 29597 29597# 29601 29612 29612# 29616 29627
29627# 29631 29652 29652# 29656 29667 29667# 29671 29682 29682# 29686 29697 29697# 29701
29712 29712# 29716 29727 29727# 29731 29742 29742# 29746 29757 29757# 29761 29771# 29781
29781# 29786 29796 29796# 29801 29811 29811# 29816 29826 29826# 29831 29841 29841# 29846
29856 29856# 29861 29871 29871# 29876 29886 29886# 29891 29901 29901# 29906 29926 29926#
29931 29941 29941# 29946 29956 29956# 29961 29971 29971# 29976 29986 29986# 29991 30001
30001# 30006 30016 30016# 30021 30031 30031# 30036 30046# 30056 30056# 30061 30071 30071#
30076 30086 30086# 30091 30101 30101# 30106 30116 30116# 30121 30131 30131# 30136 30146
30146# 30151 30161 30161# 30166 30176 30176# 30181 30191 30191# 30196 30217 30217# 30222
30232 30232# 30237 30247 30247# 30252 30262 30262# 30267 30277 30277# 30282 30292 30292#
30297 30307 30307# 30312 30323 30323# 30327
YY 9040# 9066 9066# 9067 9067# 9069 9083 9083# 9084 9086 9100 9100# 9101 9103
9117 9117# 9118 9120 9134 9134# 9135 9137 9151 9151# 9152 9154 9168 9168#
9169 9171 9185 9185# 9186 9188 9202 9202# 9203 9205 9219 9219# 9220 9222
9236 9236# 9237 9239 9253 9253# 9254 9256 9270 9270# 9271 9273 9287 9287#
9288 9290 9304 9304# 9305 9307 9321 9321# 9322 9324 9338 9338# 9339 9341
9355 9355# 9356 9358 9367# 9393 9393# 9394 9394# 9396 9410 9410# 9411 9413
9427 9427# 9428 9430 9444 9444# 9445 9447 9461 9461# 9462 9464 9478 9478#
9479 9481 9495 9495# 9496 9498 9512 9512# 9513 9515 9529 9529# 9530 9532
9546 9546# 9547 9549 9563 9563# 9564 9566 9580 9580# 9581 9583 9597 9597#
9598 9600 9614 9614# 9615 9617 9631 9631# 9632 9634 9648 9648# 9649 9651
9665 9665# 9666 9668 9681# 9706 9706# 9708 9722 9722# 9724 9738 9738# 9740
9754 9754# 9756 9770 9770# 9772 9786 9786# 9788 9802 9802# 9804 9818 9818#
9820 9834 9834# 9836 9845# 9871 9871# 9872 9872# 9874 9888 9888# 9889 9891
9905 9905# 9906 9908 9922 9922# 9923 9925 9939 9939# 9940 9942 9956 9956#
9957 9959 9973 9973# 9974 9976 9990 9990# 9991 9993 10007 10007# 10008 10010
10024 10024# 10025 10027 10041 10041# 10042 10044 10058 10058# 10059 10061 10075 10075#
10076 10078 10092 10092# 10093 10095 10109 10109# 10110 10112 10126 10126# 10127 10129
10143 10143# 10144 10146 10160 10160# 10161 10163 10231# 10259 10259# 10261 10261# 10263
10277 10277# 10279 10281 10295 10295# 10297 10299 10313 10313# 10315 10317 10331 10331#
10333 10335 10349 10349# 10351 10353 10367 10367# 10369 10371 10385 10385# 10387 10389
10398# 10426 10426# 10428 10428# 10430 10444 10444# 10446 10448 10462 10462# 10464 10466
10480 10480# 10482 10484 10498 10498# 10500 10502 10516 10516# 10518 10520 10534 10534#
10536 10538 10552 10552# 10554 10556 10570 10570# 10572 10574 10611 10611# 10615 10629
10629# 10633 10647 10647# 10651 10665 10665# 10669 10683 10683# 10687 10701 10701# 10705
10719 10719# 10723 10737 10737# 10741 10755 10755# 10759 11418# 11442 11442# 11444 11457
11457# 11459 11472 11472# 11474 11487 11487# 11489 11502 11502# 11504 11517 11517# 11519 SEQ 0863
11532 11532# 11534 11547 11547# 11549 11562 11562# 11564 11577 11577# 11579 11592 11592#
11594 11607 11607# 11609 11622 11622# 11624 11637 11637# 11639 11652 11652# 11654 11667
11667# 11669 11682 11682# 11684 11693# 11718 11718# 11721 11734 11734# 11737 11750 11750#
11753 11766 11766# 11769 11782 11782# 11785 11798 11798# 11801 11814 11814# 11817 11830
11830# 11833 11846 11846# 11849 11862 11862# 11865 11878 11878# 11881 11894 11894# 11897
11910 11910# 11913 11926 11926# 11929 11942 11942# 11945 11958 11958# 11961 11974 11974#
11977 11990 11990# 11993 12005# 12030 12030# 12033 12046 12046# 12049 12062 12062# 12065
12078 12078# 12081 12094 12094# 12097 12110 12110# 12113 12126 12126# 12129 12142 12142#
12145 12158 12158# 12161 12174 12174# 12177 12190 12190# 12193 12206 12206# 12209 12222
12222# 12225 12238 12238# 12241 12254 12254# 12257 12270 12270# 12273 12286 12286# 12289
12302 12302# 12305 12314# 12339 12339# 12342 12355 12355# 12358 12371 12371# 12374 12387
12387# 12390 12403 12403# 12406 12419 12419# 12422 12435 12435# 12438 12451 12451# 12454
12467 12467# 12470 12483 12483# 12486 12499 12499# 12502 12515 12515# 12518 12531 12531#
12534 12547 12547# 12550 12563 12563# 12566 12579 12579# 12582 12595 12595# 12598 12611
12611# 12614 12646# 12673 12673# 12674 12674# 12678 12691 12691# 12692 12696 12709 12709#
12710 12714 12727 12727# 12728 12732 12745 12745# 12746 12750 12763 12763# 12764 12768
12781 12781# 12782 12786 12799 12799# 12800 12804 12817 12817# 12818 12822 12835 12835#
12836 12840 12849# 12875 12875# 12880 12893 12893# 12898 12911 12911# 12916 12929 12929#
12934 12947 12947# 12952 12965 12965# 12970 12983 12983# 12988 13001 13001# 13006 13014#
13040 13040# 13041 13041# 13044 13057 13057# 13058 13061 13074 13074# 13075 13078 13091
13091# 13092 13095 13108 13108# 13109 13112 13125 13125# 13126 13129 13142 13142# 13143
13146 13159 13159# 13160 13163 13175# 13202 13202# 13203 13203# 13207 13220 13220# 13221
13225 13238 13238# 13239 13243 13256 13256# 13257 13261 13274 13274# 13275 13279 13292
13292# 13293 13297 13310 13310# 13311 13315 13328 13328# 13329 13333 13346 13346# 13347
13351 13364 13364# 13365 13369 13378# 13404 13404# 13408 13421 13421# 13425 13438 13438#
13442 13455 13455# 13459 13472 13472# 13476 13489 13489# 13493 13506 13506# 13510 13523
13523# 13527 13535# 13561 13561# 13562 13562# 13564 13578 13578# 13579 13581 13595 13595#
13596 13598 13612 13612# 13613 13615 13629 13629# 13630 13632 13646 13646# 13647 13649
13663 13663# 13664 13666 13680 13680# 13681 13683 13696# 13723 13723# 13724 13724# 13728
13741 13741# 13742 13746 13759 13759# 13760 13764 13777 13777# 13778 13782 13795 13795#
13796 13800 13813 13813# 13814 13818 13831 13831# 13832 13836 13849 13849# 13850 13854
13867 13867# 13868 13872 13885 13885# 13886 13890 13899# 13926 13926# 13930 13944 13944#
13948 13962 13962# 13966 13980 13980# 13984 13998 13998# 14002 14016 14016# 14020 14034
14034# 14038 14052 14052# 14056 14065# 14091 14091# 14092 14092# 14094 14108 14108# 14109
14111 14125 14125# 14126 14128 14142 14142# 14143 14145 14159 14159# 14160 14162 14176
14176# 14177 14179 14193 14193# 14194 14196 14210 14210# 14211 14213 14237# 14265 14265#
14266 14266# 14270 14284 14284# 14285 14289 14303 14303# 14304 14308 14322 14322# 14323
14327 14341 14341# 14342 14346 14360 14360# 14361 14365 14379 14379# 14380 14384 14398
14398# 14399 14403 14417 14417# 14418 14422 14436 14436# 14437 14441 14451# 14479 14479#
14484 14498 14498# 14503 14517 14517# 14522 14536 14536# 14541 14555 14555# 14560 14574
14574# 14579 14593 14593# 14598 14612 14612# 14617 14627# 14653 14653# 14654 14654# 14657
14670 14670# 14671 14674 14687 14687# 14688 14691 14704 14704# 14705 14708 14721 14721#
14722 14725 14738 14738# 14739 14742 14755 14755# 14756 14759 14772 14772# 14773 14776
29326# 29339 29339# 29347 29355 29355# 29363 29371 29371# 29379 29387 29387# 29395 29403
29403# 29411 29419 29419# 29427 29435 29435# 29443 29451 29451# 29459 29467 29467# 29475
29493 29493# 29500 29508 29508# 29515 29523 29523# 29530 29538 29538# 29545 29553 29553#
29560 29568 29568# 29575 29583 29583# 29590 29598 29598# 29605 29613 29613# 29620 29628
29628# 29635 29653 29653# 29660 29668 29668# 29675 29683 29683# 29690 29698 29698# 29705
29713 29713# 29720 29728 29728# 29735 29743 29743# 29750 29758 29758# 29765 29782 29782#
29789 29797 29797# 29804 29812 29812# 29819 29827 29827# 29834 29842 29842# 29849 29857
29857# 29864 29872 29872# 29879 29887 29887# 29894 29902 29902# 29909 29927 29927# 29934
29942 29942# 29949 29957 29957# 29964 29972 29972# 29979 29987 29987# 29994 30002 30002#
30009 30017 30017# 30024 30032 30032# 30039 30057 30057# 30064 30072 30072# 30079 30087 SEQ 0864
30087# 30094 30102 30102# 30109 30117 30117# 30124 30132 30132# 30139 30147 30147# 30154
30162 30162# 30169 30177 30177# 30184 30192 30192# 30199 30206 30206# 30218 30218# 30225
30233 30233# 30240 30248 30248# 30255 30263 30263# 30270 30278 30278# 30285 30293 30293#
30300 30308 30308# 30315 30330
ZZ 1272# 1286 1286# 1287 1287# 1290 1296 1296# 1297 1300 1306 1306# 1307 1310
1316 1316# 1317 1320 1326 1326# 1327 1330 1336 1336# 1337 1340 1346 1346#
1347 1350 1372# 1389 1389# 1392 1400 1400# 1403 1411 1411# 1414 1422 1422#
1425 1433 1433# 1436 1444 1444# 1447 1455 1455# 1458 1497# 1512 1512# 1514
1522 1522# 1524 1532 1532# 1534 1542 1542# 1544 1552 1552# 1554 1562 1562#
1564 1572 1572# 1574 1707# 1720 1720# 1722 1729 1729# 1731 1738 1738# 1740
1747 1747# 1749 1756 1756# 1758 1765 1765# 1767 1774 1774# 1776 1783 1783#
1785 2260# 2274 2274# 2275 2276 2284 2284# 2285 2286 2294 2294# 2295 2296
2304 2304# 2305 2306 2314 2314# 2315 2316 2324 2324# 2325 2326 2334 2334#
2335 2336 3171# 3187 3187# 3188 3188# 3191 3198 3198# 3199 3202 3209 3209#
3210 3213 3220 3220# 3221 3224 3231 3231# 3232 3235 3242 3242# 3243 3246
3253 3253# 3254 3257 3264 3264# 3265 3268 3288# 3302 3302# 3303 3305 3312
3312# 3313 3315 3322 3322# 3323 3325 3332 3332# 3333 3335 3342 3342# 3343
3345 3352 3352# 3353 3355 3362 3362# 3363 3365 3387# 3404 3404# 3407 3416
3416# 3419 3428 3428# 3431 3440 3440# 3443 3452 3452# 3455 3464 3464# 3467
3476 3476# 3479 3488 3488# 3491 3514# 3529 3529# 3530 3539 3539# 3540 3549
3549# 3550 3559 3559# 3560 3569 3569# 3570 3579 3579# 3580 3589 3589# 3590
3599 3599# 3600 3621# 3634 3634# 3635 3635# 3637 3643 3643# 3644 3646 3652
3652# 3653 3655 3676# 3691 3691# 3694 3701 3701# 3704 3711 3711# 3714 3734#
3749 3749# 3752 3759 3759# 3762 3769 3769# 3772 3793# 3806 3806# 3807 3808
3815 3815# 3816 3817 3824 3824# 3825 3826 3833 3833# 3834 3835 3842 3842#
3843 3844 3851 3851# 3852 3853 3860 3860# 3861 3862 3869 3869# 3870 3871
3878 3878# 3879 3880 3888# 3903 3903# 3904 3904# 3906 3908 3915 3915# 3916
3918 3920 3927 3927# 3928 3930 3932 3939 3939# 3940 3942 3944 3951 3951#
3952 3954 3956 3963 3963# 3964 3966 3968 3975 3975# 3976 3978 3980 3987
3987# 3988 3990 3992 3999 3999# 4000 4002 4004 4011 4011# 4012 4014 4016
4023 4023# 4024 4026 4028 4035 4035# 4036 4038 4040 4047 4047# 4048 4050
4052 4059 4059# 4060 4062 4064 4071 4071# 4072 4074 4076 4083 4083# 4084
4086 4088 4095 4095# 4096 4098 4100 4107 4107# 4108 4110 4112 4133# 4152
4152# 4153 4153# 4157 4166 4166# 4167 4171 4180 4180# 4181 4185 4194 4194#
4195 4199 4208 4208# 4209 4213 4222 4222# 4223 4227 4236 4236# 4237 4241
4250 4250# 4251 4255 4264 4264# 4265 4269 4278 4278# 4279 4283 4306# 4322
4322# 4323 4333 4333# 4334 4344 4344# 4345 4355 4355# 4356 4366 4366# 4367
4377 4377# 4378 4436# 4449 4449# 4451 4458 4458# 4460 4467 4467# 4469 4490#
4503 4503# 4505 4512 4512# 4514 4521 4521# 4523 4545# 4561 4561# 4563 4564
4572 4572# 4574 4575 4583 4583# 4585 4586 4608# 4624 4624# 4626 4627 4635
4635# 4637 4638 4646 4646# 4648 4649 4671# 4689 4689# 4691 4701 4701# 4703
4713 4713# 4715 4740# 4758 4758# 4761 4770 4770# 4773 4782 4782# 4785 4807#
4823 4823# 4825 4826 4834 4834# 4836 4837 4845 4845# 4847 4848 4872# 4890
4890# 4891 4902 4902# 4903 4914 4914# 4915 4940# 4959 4959# 4960 4960# 4963
4967 4973 4973# 4974 4977 4981 4987 4987# 4988 4991 4995 5001 5001# 5002
5005 5009 5015 5015# 5016 5019 5023 5029 5029# 5030 5033 5037 5043 5043#
5044 5047 5051 5057 5057# 5058 5061 5065 5071 5071# 5072 5075 5079 5085
5085# 5086 5089 5093 5099 5099# 5100 5103 5107 5113 5113# 5114 5117 5121
5127 5127# 5128 5131 5135 5141 5141# 5142 5145 5149 5155 5155# 5156 5159
5163 5169 5169# 5170 5173 5177 5183 5183# 5184 5187 5191 5197 5197# 5198
5201 5205 5211# 5230 5230# 5231 5231# 5234 5238 5244 5244# 5245 5248 5252
5258 5258# 5259 5262 5266 5272 5272# 5273 5276 5280 5286 5286# 5287 5290
5294 5300 5300# 5301 5304 5308 5314 5314# 5315 5318 5322 5430# 5451 5451# SEQ 0865
5455 5467 5467# 5471 5483 5483# 5487 5499 5499# 5503 5515 5515# 5519 5531
5531# 5535 5547 5547# 5551 5563 5563# 5567 5579 5579# 5583 5595 5595# 5599
5611 5611# 5615 5627 5627# 5631 5643 5643# 5647 5659 5659# 5663 5675 5675#
5679 5691 5691# 5695 5707 5707# 5711 6563# 6577 6577# 6578 6587 6587# 6588
6598# 6612 6612# 6613 6622 6622# 6623 6701# 6715 6715# 6716 6725 6725# 6726
6745# 6759 6759# 6760 6769 6769# 6770 6779# 6793 6793# 6794 6803 6803# 6804
7096# 7111 7111# 7112 7115 7122 7122# 7123 7126 7133 7133# 7134 7137 7144
7144# 7145 7148 7155 7155# 7156 7159 7166 7166# 7167 7170 7177 7177# 7178
7181 7202# 7217 7217# 7218 7220 7228 7228# 7229 7231 7239 7239# 7240 7242
7250 7250# 7251 7253 7261 7261# 7262 7264 7272 7272# 7273 7275 7283 7283#
7284 7286 7308# 7324 7324# 7327 7335 7335# 7338 7346 7346# 7349 7367# 7382
7382# 7384 7386 7394 7394# 7396 7398 7406 7406# 7408 7410 7418 7418# 7420
7422 7483# 7499 7499# 7501 7510 7510# 7512 7521 7521# 7523 7532 7532# 7534
7543 7543# 7545 7568# 7584 7584# 7586 7595 7595# 7597 7606 7606# 7608 7617
7617# 7619 7628 7628# 7630 7639 7639# 7641 7650 7650# 7652 7672# 7690 7690#
7692 7703 7703# 7705 7861# 7881 7881# 7883 7896 7896# 7898 7967# 7984 7984#
7988 7996 7996# 8000 8021# 8037 8037# 8040 8048 8048# 8051 8100# 8114 8114#
8116 8117 8124 8124# 8126 8127 8134 8134# 8136 8137 8156# 8172 8172# 8174
8183 8183# 8185 8194 8194# 8196 8217# 8234 8234# 8237 8246 8246# 8249 8258
8258# 8261 8282# 8298 8298# 8300 8309 8309# 8311 8374# 8390 8390# 8392 8401
8401# 8403 8492# 8506 8506# 8508 8516 8516# 8518 8610# 8630 8630# 8631 8631#
8637 8645 8645# 8646 8652 8806# 8825 8825# 8828 8839 8839# 8842 8853 8853#
8856 8867 8867# 8870 8881 8881# 8884 8945# 8961 8961# 8964 8972 8972# 8975
8983 8983# 8986 10175# 10201 10201# 10202 10202# 10205 10218 10218# 10219 10222 10232#
10260 10260# 10264 10278 10278# 10282 10296 10296# 10300 10314 10314# 10318 10332 10332#
10336 10350 10350# 10354 10368 10368# 10372 10386 10386# 10390 10399# 10427 10427# 10431
10445 10445# 10449 10463 10463# 10467 10481 10481# 10485 10499 10499# 10503 10517 10517#
10521 10535 10535# 10539 10553 10553# 10557 10571 10571# 10575 10584# 10612 10612# 10613
10613# 10616 10630 10630# 10631 10634 10648 10648# 10649 10652 10666 10666# 10667 10670
10684 10684# 10685 10688 10702 10702# 10703 10706 10720 10720# 10721 10724 10738 10738#
10739 10742 10756 10756# 10757 10760 10769# 10796 10796# 10799 10813 10813# 10816 10830
10830# 10833 10847 10847# 10850 10864 10864# 10867 10881 10881# 10884 10898 10898# 10901
10915 10915# 10918 16880# 16890 16890# 16896 16904 16904# 16910 16918 16918# 16924 16932
16932# 16938 16946 16946# 16952 16960 16960# 16966 16974 16974# 16980 16988 16988# 16994
17002 17002# 17008 17025 17025# 17031 17039 17039# 17045 17053 17053# 17059 17067 17067#
17073 17081 17081# 17087 17095 17095# 17101 17109 17109# 17115 17123 17123# 17129 17137
17137# 17143 17151 17151# 17157 17165 17165# 17171 17179 17179# 17185 17193 17193# 17199
17207 17207# 17213 17221 17221# 17227 17235 17235# 17241 17249 17249# 17255 17263 17263#
17269 17298 17298# 17304 17312 17312# 17318 17326 17326# 17332 17340 17340# 17346 17354
17354# 17360 17368 17368# 17374 17382 17382# 17388 17396 17396# 17402 17410 17410# 17416
17424 17424# 17430 17438 17438# 17444 17452 17452# 17458 17466 17466# 17472 17480 17480#
17486 17494 17494# 17500 17508 17508# 17514 17522 17522# 17528 17545 17545# 17551 17559
17559# 17565 17573 17573# 17579 17587 17587# 17593 17601 17601# 17607 17615 17615# 17621
17629 17629# 17635 17643 17643# 17649 17657 17657# 17663 17671 17671# 17677 17685 17685#
17691 17699 17699# 17705 17713 17713# 17719 17727 17727# 17733 17741 17741# 17747 17755
17755# 17761 17769 17769# 17775 17783 17783# 17789 17798# 17808 17808# 17814 17822 17822#
17828 17836 17836# 17842 17850 17850# 17856 17864 17864# 17870 17878 17878# 17884 17892
17892# 17898 17906 17906# 17912 17920 17920# 17926 17943 17943# 17949 17957 17957# 17963
17971 17971# 17977 17985 17985# 17991 17999 17999# 18005 18013 18013# 18019 18027 18027#
18033 18041 18041# 18047 18055 18055# 18061 18069 18069# 18075 18083 18083# 18089 18097
18097# 18103 18111 18111# 18117 18125 18125# 18131 18139 18139# 18145 18153 18153# 18159
18167 18167# 18173 18181 18181# 18187 18217 18217# 18223 18232 18232# 18238 18247 18247#
18253 18262 18262# 18268 18277 18277# 18283 18292 18292# 18298 18307 18307# 18313 18322 SEQ 0866
18322# 18328 18337 18337# 18343 18352 18352# 18358 18367 18367# 18373 18382 18382# 18388
18397 18397# 18403 18412 18412# 18418 18427 18427# 18433 18442 18442# 18448 18457 18457#
18463 18481 18481# 18487 18495 18495# 18501 18509 18509# 18515 18523 18523# 18529 18537
18537# 18543 18551 18551# 18557 18565 18565# 18571 18579 18579# 18585 18593 18593# 18599
18607 18607# 18613 18621 18621# 18627 18635 18635# 18641 18649 18649# 18655 18663 18663#
18669 18677 18677# 18683 18691 18691# 18697 18705 18705# 18711 18719 18719# 18725 18761#
18770 18770# 18771 18771# 18776 18779 18784 18784# 18785 18790 18793 18798 18798# 18799
18804 18807 18812 18812# 18813 18818 18821 18826 18826# 18827 18832 18835 18840 18840#
18841 18846 18849 18854 18854# 18855 18860 18863 18868 18868# 18869 18874 18877 18882
18882# 18883 18888 18891 18896 18896# 18897 18902 18905 18910 18910# 18911 18916 18919
18924 18924# 18925 18930 18933 18938 18938# 18939 18944 18947 18952 18952# 18953 18958
18961 18966 18966# 18967 18972 18975 18980 18980# 18981 18986 18989 18994 18994# 18995
19000 19003 19008 19008# 19009 19014 19017 19022# 19031 19031# 19032 19032# 19037 19040
19045 19045# 19046 19051 19054 19059 19059# 19060 19065 19068 19073 19073# 19074 19079
19082 19087 19087# 19088 19093 19096 19101 19101# 19102 19107 19110 19115 19115# 19116
19121 19124 19129 19129# 19130 19135 19138 19143 19143# 19144 19149 19152 19157 19157#
19158 19163 19166 19171 19171# 19172 19177 19180 19185 19185# 19186 19191 19194 19199
19199# 19200 19205 19208 19213 19213# 19214 19219 19222 19227 19227# 19228 19233 19236
19241 19241# 19242 19247 19250 19255 19255# 19256 19261 19264 19269 19269# 19270 19275
19278 19283# 19292 19292# 19293 19293# 19297 19299 19306 19306# 19307 19311 19313 19320
19320# 19321 19325 19327 19334 19334# 19335 19339 19341 19348 19348# 19349 19353 19355
19362 19362# 19363 19367 19369 19376 19376# 19377 19381 19383 19390 19390# 19391 19395
19397 19404 19404# 19405 19409 19411 19418 19418# 19419 19423 19425 19432 19432# 19433
19437 19439 19446 19446# 19447 19451 19453 19460 19460# 19461 19465 19467 19474 19474#
19475 19479 19481 19488 19488# 19489 19493 19495 19502 19502# 19503 19507 19509 19516
19516# 19517 19521 19523 19530 19530# 19531 19535 19537 19544# 19554 19554# 19555 19555#
19559 19561 19568 19568# 19569 19573 19575 19582 19582# 19583 19587 19589 19596 19596#
19597 19601 19603 19610 19610# 19611 19615 19617 19624 19624# 19625 19629 19631 19638
19638# 19639 19643 19645 19652 19652# 19653 19657 19659 19680# 19689 19689# 19690 19690#
19693 19698 19703 19703# 19704 19707 19712 19717 19717# 19718 19721 19726 19731 19731#
19732 19735 19740 19745 19745# 19746 19749 19754 19759 19759# 19760 19763 19768 19773
19773# 19774 19777 19782 19787 19787# 19788 19791 19796 19801 19801# 19802 19805 19810
19815 19815# 19816 19819 19824 19829 19829# 19830 19833 19838 19843 19843# 19844 19847
19852 19857 19857# 19858 19861 19866 19871 19871# 19872 19875 19880 19885 19885# 19886
19889 19894 19899 19899# 19900 19903 19908 19913 19913# 19914 19917 19922 19927 19927#
19928 19931 19936 19941# 19950 19950# 19951 19951# 19954 19959 19964 19964# 19965 19968
19973 19978 19978# 19979 19982 19987 19992 19992# 19993 19996 20001 20006 20006# 20007
20010 20015 20020 20020# 20021 20024 20029 20034 20034# 20035 20038 20043 20048 20048#
20049 20052 20057 20062 20062# 20063 20066 20071 20076 20076# 20077 20080 20085 20090
20090# 20091 20094 20099 20104 20104# 20105 20108 20113 20118 20118# 20119 20122 20127
20132 20132# 20133 20136 20141 20146 20146# 20147 20150 20155 20160 20160# 20161 20164
20169 20174 20174# 20175 20178 20183 20188 20188# 20189 20192 20197 20202# 20211 20211#
20212 20212# 20214 20218 20225 20225# 20226 20228 20232 20239 20239# 20240 20242 20246
20253 20253# 20254 20256 20260 20267 20267# 20268 20270 20274 20281 20281# 20282 20284
20288 20295 20295# 20296 20298 20302 20309 20309# 20310 20312 20316 20323 20323# 20324
20326 20330 20337 20337# 20338 20340 20344 20351 20351# 20352 20354 20358 20365 20365#
20366 20368 20372 20379 20379# 20380 20382 20386 20393 20393# 20394 20396 20400 20407
20407# 20408 20410 20414 20421 20421# 20422 20424 20428 20435 20435# 20436 20438 20442
20449 20449# 20450 20452 20456 20463# 20472 20472# 20473 20473# 20475 20479 20486 20486#
20487 20489 20493 20500 20500# 20501 20503 20507 20514 20514# 20515 20517 20521 20528
20528# 20529 20531 20535 20542 20542# 20543 20545 20549 20556 20556# 20557 20559 20563
20570 20570# 20571 20573 20577 20599# 20612 20612# 20613 20613# 20618 20628 20628# 20629
20634 20644 20644# 20645 20650 20660 20660# 20661 20666 20676 20676# 20677 20682 20692 SEQ 0867
20692# 20693 20698 20708 20708# 20709 20714 20724 20724# 20725 20730 20740 20740# 20741
20746 20756 20756# 20757 20762 20772 20772# 20773 20778 20788 20788# 20789 20794 20804
20804# 20805 20810 20820 20820# 20821 20826 20836 20836# 20837 20842 20852 20852# 20853
20858 20868 20868# 20869 20874 20884 20884# 20885 20890 20899# 20912 20912# 20913 20913#
20918 20928 20928# 20929 20934 20944 20944# 20945 20950 20960 20960# 20961 20966 20976
20976# 20977 20982 20992 20992# 20993 20998 21008 21008# 21009 21014 21024 21024# 21025
21030 21040 21040# 21041 21046 21056 21056# 21057 21062 21072 21072# 21073 21078 21088
21088# 21089 21094 21104 21104# 21105 21110 21120 21120# 21121 21126 21136 21136# 21137
21142 21152 21152# 21153 21158 21168 21168# 21169 21174 21184 21184# 21185 21190 21199#
21212 21212# 21213 21213# 21217 21228 21228# 21229 21233 21244 21244# 21245 21249 21260
21260# 21261 21265 21276 21276# 21277 21281 21292 21292# 21293 21297 21308 21308# 21309
21313 21324 21324# 21325 21329 21340 21340# 21341 21345 21356 21356# 21357 21361 21372
21372# 21373 21377 21388 21388# 21389 21393 21404 21404# 21405 21409 21420 21420# 21421
21425 21436 21436# 21437 21441 21452 21452# 21453 21457 21468 21468# 21469 21473 21484
21484# 21485 21489 21499# 21512 21512# 21513 21513# 21517 21528 21528# 21529 21533 21544
21544# 21545 21549 21560 21560# 21561 21565 21576 21576# 21577 21581 21592 21592# 21593
21597 21608 21608# 21609 21613 21624 21624# 21625 21629 21640 21640# 21641 21645 21657#
21670 21670# 21671 21671# 21676 21686 21686# 21687 21692 21702 21702# 21703 21708 21718
21718# 21719 21724 21734 21734# 21735 21740 21750 21750# 21751 21756 21766 21766# 21767
21772 21782 21782# 21783 21788 21798 21798# 21799 21804 21814 21814# 21815 21820 21830
21830# 21831 21836 21846 21846# 21847 21852 21862 21862# 21863 21868 21878 21878# 21879
21884 21894 21894# 21895 21900 21910 21910# 21911 21916 21926 21926# 21927 21932 21942
21942# 21943 21948 21957# 21970 21970# 21971 21971# 21976 21986 21986# 21987 21992 22002
22002# 22003 22008 22018 22018# 22019 22024 22034 22034# 22035 22040 22050 22050# 22051
22056 22066 22066# 22067 22072 22082 22082# 22083 22088 22098 22098# 22099 22104 22114
22114# 22115 22120 22130 22130# 22131 22136 22146 22146# 22147 22152 22162 22162# 22163
22168 22178 22178# 22179 22184 22194 22194# 22195 22200 22210 22210# 22211 22216 22226
22226# 22227 22232 22242 22242# 22243 22248 22257# 22270 22270# 22271 22271# 22275 22286
22286# 22287 22291 22302 22302# 22303 22307 22318 22318# 22319 22323 22334 22334# 22335
22339 22350 22350# 22351 22355 22366 22366# 22367 22371 22382 22382# 22383 22387 22398
22398# 22399 22403 22414 22414# 22415 22419 22430 22430# 22431 22435 22446 22446# 22447
22451 22462 22462# 22463 22467 22478 22478# 22479 22483 22494 22494# 22495 22499 22510
22510# 22511 22515 22526 22526# 22527 22531 22542 22542# 22543 22547 22557# 22570 22570#
22571 22571# 22575 22586 22586# 22587 22591 22602 22602# 22603 22607 22618 22618# 22619
22623 22634 22634# 22635 22639 22650 22650# 22651 22655 22666 22666# 22667 22671 22682
22682# 22683 22687 22698 22698# 22699 22703 22725# 22735 22740# 22750 22755# 22765 22770#
22780 22785# 22795 22800# 22810 22815# 22825 22830# 22840 22845# 22855 22860# 22870 22875#
22885 22890# 22900 22905# 22915 22920# 22930 22935# 22945 22950# 22960 22965# 22975 22980#
22990 22995# 23006 23018# 23027 23032# 23041 23046# 23055 23060# 23069 23074# 23083 23088#
23097 23102# 23111 23116# 23125 23130# 23139 23144# 23153 23158# 23167 23172# 23181 23186#
23195 23200# 23209 23214# 23223 23228# 23237 23242# 23266 23278# 23285 23292# 23299 23306#
23313 23320# 23327 23334# 23341 23348# 23355 23362# 23369 23376# 23383 23390# 23397 23404#
23411 23418# 23425 23432# 23439 23446# 23453 23460# 23467 23474# 23481 23488# 23495 23502#
23509 23518# 23525 23538# 23545 23552# 23559 23566# 23573 23580# 23587 23594# 23601 23608#
23615 23622# 23629 23636# 23643 23663# 23673 23678# 23688 23693# 23703 23708# 23718 23723#
23733 23738# 23748 23753# 23763 23768# 23778 23783# 23793 23798# 23808 23813# 23823 23828#
23838 23843# 23853 23858# 23868 23873# 23883 23888# 23898 23903# 23913 23918# 23928 23933#
23944 23956# 23965 23970# 23979 23984# 23993 23998# 24007 24012# 24021 24026# 24035 24040#
24049 24054# 24063 24068# 24077 24082# 24091 24096# 24105 24110# 24119 24124# 24133 24138#
24147 24152# 24161 24166# 24175 24181# 24205 24215# 24222 24229# 24236 24243# 24250 24257#
24264 24271# 24278 24285# 24292 24299# 24306 24313# 24320 24327# 24334 24341# 24348 24355#
24362 24369# 24376 24383# 24390 24397# 24404 24411# 24418 24425# 24432 24439# 24446 24454#
24461 24473# 24480 24487# 24494 24501# 24508 24515# 24522 24529# 24536 24543# 24550 24557# SEQ 0868
24564 24571# 24578 24600# 24601 24601# 24611 24616# 24617 24627 24632# 24633 24643 24648#
24649 24659 24664# 24665 24675 24680# 24681 24691 24696# 24697 24707 24712# 24713 24723
24728# 24729 24739 24744# 24745 24755 24760# 24761 24771 24776# 24777 24787 24792# 24793
24803 24808# 24809 24819 24824# 24825 24835 24840# 24841 24851 24856# 24857 24867 24872#
24873 24883 24889# 24898 24909# 24918 24923# 24932 24937# 24946 24951# 24960 24965# 24974
24979# 24988 24993# 25002 25007# 25016 25021# 25030 25035# 25044 25049# 25058 25063# 25072
25077# 25086 25091# 25100 25105# 25114 25119# 25128 25135# 25143 25148# 25157 25168# 25175
25182# 25189 25196# 25203 25210# 25217 25224# 25231 25238# 25245 25252# 25259 25266# 25273
25280# 25287 25294# 25301 25308# 25315 25322# 25329 25336# 25343 25350# 25357 25364# 25371
25378# 25385 25392# 25399 25407# 25414 25427# 25434 25441# 25448 25455# 25462 25469# 25476
25483# 25490 25497# 25504 25511# 25518 25525# 25532 25553# 25554 25554# 25564 25569# 25570
25580 25585# 25586 25596 25601# 25602 25612 25617# 25618 25628 25633# 25634 25644 25649#
25650 25660 25665# 25666 25676 25681# 25682 25692 25697# 25698 25708 25713# 25714 25724
25729# 25730 25740 25745# 25746 25756 25761# 25762 25772 25777# 25778 25788 25793# 25794
25804 25809# 25810 25820 25825# 25826 25836 25842# 25851 25862# 25871 25876# 25885 25890#
25899 25904# 25913 25918# 25927 25932# 25941 25946# 25955 25960# 25969 25974# 25983 25988#
25997 26002# 26011 26016# 26025 26030# 26039 26044# 26053 26058# 26067 26072# 26081 26088#
26096 26101# 26110 26121# 26128 26135# 26142 26149# 26156 26163# 26170 26177# 26184 26191#
26198 26205# 26212 26219# 26226 26233# 26240 26247# 26254 26261# 26268 26275# 26282 26289#
26296 26303# 26310 26317# 26324 26331# 26338 26345# 26352 26360# 26367 26380# 26387 26394#
26401 26408# 26415 26422# 26429 26436# 26443 26450# 26457 26464# 26471 26478# 26485 26496#
26508 26508# 26514 26523 26523# 26529 26538 26538# 26544 26553 26553# 26559 26568 26568#
26574 26583 26583# 26589 26598 26598# 26604 26613 26613# 26619 26628 26628# 26634 26643
26643# 26649 26658 26658# 26664 26673 26673# 26679 26688 26688# 26694 26703 26703# 26709
26718 26718# 26724 26733 26733# 26739 26748 26748# 26754 26763 26763# 26769 26788 26788#
26794 26803 26803# 26809 26818 26818# 26824 26833 26833# 26839 26848 26848# 26854 26863
26863# 26869 26878 26878# 26884 26893 26893# 26899 26908 26908# 26914 26923 26923# 26929
26938 26938# 26944 26953 26953# 26959 26968 26968# 26974 26983 26983# 26989 26998 26998#
27004 27013 27013# 27019 27028 27028# 27034 27065 27065# 27071 27080 27080# 27086 27095
27095# 27101 27110 27110# 27116 27125 27125# 27131 27140 27140# 27146 27155 27155# 27161
27170 27170# 27176 27185 27185# 27191 27200 27200# 27206 27215 27215# 27221 27230 27230#
27236 27245 27245# 27251 27260 27260# 27266 27275 27275# 27281 27290 27290# 27296 27305
27305# 27311 27320 27320# 27326 27345 27345# 27351 27360 27360# 27366 27375 27375# 27381
27390 27390# 27396 27405 27405# 27411 27420 27420# 27426 27435 27435# 27441 27450 27450#
27456 27465 27465# 27471 28265# 28435# 28445 28445# 28451 28459 28459# 28465 28473 28473#
28479 28487 28487# 28493 28501 28501# 28507 28515 28515# 28521 28529 28529# 28535 28543
28543# 28549 28566 28566# 28572 28580 28580# 28586 28594 28594# 28600 28608 28608# 28614
28622 28622# 28628 28636 28636# 28642 28650 28650# 28656 28664 28664# 28670 28678 28678#
28684 28692 28692# 28698 28706 28706# 28712 28720 28720# 28726 28734 28734# 28740 28748
28748# 28754 28762 28762# 28768 28776 28776# 28782 28790 28790# 28796 28804 28804# 28810
28827 28827# 28833 28841 28841# 28847 28855 28855# 28861 28869 28869# 28875 28883 28883#
28889 28897 28897# 28903 28911 28911# 28917 28925 28925# 28931 28939 28939# 28945 28953
28953# 28959 28967 28967# 28973 28981 28981# 28987 28995 28995# 29001 29009 29009# 29015
29023 29023# 29029 29037 29037# 29043 29051 29051# 29057 29074 29074# 29080 29088 29088#
29094 29102 29102# 29108 29116 29116# 29122 29130 29130# 29136 29144 29144# 29150 29158
29158# 29164 29172 29172# 29178 29186 29186# 29192 29200 29200# 29206 29214 29214# 29220
29228 29228# 29234 29242 29242# 29248 29256 29256# 29262 29270 29270# 29276 29284 29284#
29290 29298 29298# 29304 29312 29312# 29318 29327# 29340 29340# 29341 29341# 29349 29356
29356# 29357 29365 29372 29372# 29373 29381 29388 29388# 29389 29397 29404 29404# 29405
29413 29420 29420# 29421 29429 29436 29436# 29437 29445 29452 29452# 29453 29461 29468
29468# 29469 29477 29494 29494# 29502 29509 29509# 29517 29524 29524# 29532 29539 29539#
29547 29554 29554# 29562 29569 29569# 29577 29584 29584# 29592 29599 29599# 29607 29614
29614# 29622 29629 29629# 29637 29642# 29654 29654# 29662 29669 29669# 29677 29684 29684# SEQ 0869
29692 29699 29699# 29707 29714 29714# 29722 29729 29729# 29737 29744 29744# 29752 29759
29759# 29767 29783 29783# 29791 29798 29798# 29806 29813 29813# 29821 29828 29828# 29836
29843 29843# 29851 29858 29858# 29866 29873 29873# 29881 29888 29888# 29896 29903 29903#
29911 29916# 29928 29928# 29934 29943 29943# 29949 29958 29958# 29964 29973 29973# 29979
29988 29988# 29994 30003 30003# 30009 30018 30018# 30024 30033 30033# 30039 30058 30058#
30064 30073 30073# 30079 30088 30088# 30094 30103 30103# 30109 30118 30118# 30124 30133
30133# 30139 30148 30148# 30154 30163 30163# 30169 30178 30178# 30184 30193 30193# 30199
30207# 30219 30219# 30225 30234 30234# 30240 30249 30249# 30255 30264 30264# 30270 30279
30279# 30285 30294 30294# 30300 30309 30309# 30315 30324 30324# 30330
$$MUUO 1097#
$$OUTE 1103#
$$TAX1 1115#
$$TAX2 1116#
$$TOGG 1109#
$$UUO 1086#
$ACC0 924#
$ACF 34510#
$BEND1 894#
$BEND2 895# 34552
$CHRIN 985#
$CRLF 987#
$DEVCH 811#
$DSKUP 864#
$DVCH1 811#
$DVOFF 981#
$EMODE 862#
$FFF 989#
$IBUF 1037#
$INEXT 1039#
$INNM 1038#
$ITRHL 905#
$ITRX1 906#
$LPAPE 34573
$MMAP 865#
$MODVL 860#
$MODVU 861#
$OBUF 1028#
$ONETM 888#
$OUTEX 1030#
$OUTNM 1029#
$PAPER 811
$PARER 912#
$PNAME 858#
$PSHER 916#
$PVER 859#
$RSRTX 908#
$RSRTY 909#
$SPAG1 928#
$START 825#
$SVAPR 926#
$SVPAG 927#
$SVPI 925#
$SVUPC 931# 34413 34417 34447 SEQ 0870
$SVUUO 930# 34426 34458 34486
$TABF 988#
$TTCHR 984#
$TWCNT 980#
$TYPNB 986#
$UMODE 863#
$UORTX 903#
$USRHL 907#
$UUOER 904# 945
$VTF 990#
%AC1F 34511#
%ACS1A 34428# 34428 34472
%ACTFL 937#
%ACTUL 938#
%ALF 34516#
%AR1F 34515#
%ARF 34514#
%COREC 936#
%CORFL 935#
%DISCR 939#
%E1F 34513#
%EEF 34517#
%EF 34512#
%ER4X 34492 34497#
%ER5X 34490 34499#
%ER6X 34488 34501#
%ER7X 34494# 34498 34500 34502
%ERAC0 34402# 34402 34429 34463 34554
%ERAC1 34410# 34410 34430 34542
%ERAC2 34411# 34411 34541
%ERFST 34436# 34436 34438
%ERHI1 1078#
%ERHI2 1079#
%ERHI3 1080#
%ERMOR 34468 34495 34524#
%ERMS1 34433# 34567
%ERMS2 34456#
%ERMS3 34474 34481#
%ERRS1 34425 34528# 34566
%ERRS2 34541#
%ERRS4 34432 34564#
%ERRS5 34545 34549 34554#
%FF 34518#
%FLTTB 34476 34507#
%NODES 34508#
%SV17 15015# 15015 15025 15030 15032 15366 15385 15390 15392 15985 15998 16003 16005 16407
16412 16414
.JB41 811#
.JBAPR 811#
.JBCNI 811#
.JBDDT 811#
.JBFF 811#
.JBOPC 811# SEQ 0871
.JBREL 811#
.JBREN 811#
.JBSA 811#
.JBSYM 811#
.JBTPC 811#
.JBUSY 811#
.JBUUO 811#
.JBVER 811#
CFLUSH 767#
CINVAL 766# SEQ 0872
CLOKOP 761#
CWRTBI 768#
DFA 422# 16866 18734 18747 28400
DFARP 465# 16891 16905 16919 16933 16947 16961 16975 16989 17003 17026 17040 17054 17068
17082 17096 17110 17124 17138 17152 17166 17180 17194 17208 17222 17236 17250 17264
17279 17299 17313 17327 17341 17355 17369 17383 17397 17411 17425 17439 17453 17467
17481 17495 17509 17523 17546 17560 17574 17588 17602 17616 17630 17644 17658 17672
17686 17700 17714 17728 17742 17756 17770 17784 17809 17823 17837 17851 17865 17879
17893 17907 17921 17944 17958 17972 17986 18000 18014 18028 18042 18056 18070 18084
18098 18112 18126 18140 18154 18168 18182 18197 18218 18233 18248 18263 18278 18293
18308 18323 18338 18353 18368 18383 18398 18413 18428 18443 18458 18482 18496 18510
18524 18538 18552 18566 18580 18594 18608 18622 18636 18650 18664 18678 18692 18706
18720 18772 18786 18800 18814 18828 18842 18856 18870 18884 18898 18912 18926 18940
18954 18968 18982 18996 19010 19033 19047 19061 19075 19089 19103 19117 19131 19145
19159 19173 19187 19201 19215 19229 19243 19257 19271 19294 19308 19322 19336 19350
19364 19378 19392 19406 19420 19434 19448 19462 19476 19490 19504 19518 19532 19556
19570 19584 19598 19612 19626 19640 19654 19667 19691 19705 19719 19733 19747 19761
19775 19789 19803 19817 19831 19845 19859 19873 19887 19901 19915 19929 19952 19966
19980 19994 20008 20022 20036 20050 20064 20078 20092 20106 20120 20134 20148 20162
20176 20190 20213 20227 20241 20255 20269 20283 20297 20311 20325 20339 20353 20367
20381 20395 20409 20423 20437 20451 20474 20488 20502 20516 20530 20544 20558 20572
20585 20614 20630 20646 20662 20678 20694 20710 20726 20742 20758 20774 20790 20806
20822 20838 20854 20870 20886 20914 20930 20946 20962 20978 20994 21010 21026 21042
21058 21074 21090 21106 21122 21138 21154 21170 21186 21214 21230 21246 21262 21278
21294 21310 21326 21342 21358 21374 21390 21406 21422 21438 21454 21470 21486 21514
21530 21546 21562 21578 21594 21610 21626 21642 21672 21688 21704 21720 21736 21752
21768 21784 21800 21816 21832 21848 21864 21880 21896 21912 21928 21944 21972 21988
22004 22020 22036 22052 22068 22084 22100 22116 22132 22148 22164 22180 22196 22212
22228 22244 22272 22288 22304 22320 22336 22352 22368 22384 22400 22416 22432 22448
22464 22480 22496 22512 22528 22544 22572 22588 22604 22620 22636 22652 22668 22684
22700 22728 22743 22758 22773 22788 22803 22818 22833 22848 22863 22878 22893 22908
22923 22938 22953 22968 22983 22999 23020 23034 23048 23062 23076 23090 23104 23118
23132 23146 23160 23174 23188 23202 23216 23230 23246 23259 23280 23294 23308 23322
23336 23350 23364 23378 23392 23406 23420 23434 23448 23462 23476 23490 23504 23520
23540 23554 23568 23582 23596 23610 23624 23638 23666 23681 23696 23711 23726 23741
23756 23771 23786 23801 23816 23831 23846 23861 23876 23891 23906 23921 23937 23958
23972 23986 24000 24014 24028 24042 24056 24070 24084 24098 24112 24126 24140 24154
24168 24184 24198 24217 24231 24245 24259 24273 24287 24301 24315 24329 24343 24357
24371 24385 24399 24413 24427 24441 24456 24475 24489 24503 24517 24531 24545 24559
24573 24604 24620 24636 24652 24668 24684 24700 24716 24732 24748 24764 24780 24796
24812 24828 24844 24860 24876 24891 24911 24925 24939 24953 24967 24981 24995 25009
25023 25037 25051 25065 25079 25093 25107 25121 25136 25150 25170 25184 25198 25212
25226 25240 25254 25268 25282 25296 25310 25324 25338 25352 25366 25380 25394 25409
25429 25443 25457 25471 25485 25499 25513 25527 25557 25573 25589 25605 25621 25637
25653 25669 25685 25701 25717 25733 25749 25765 25781 25797 25813 25829 25844 25864
25878 25892 25906 25920 25934 25948 25962 25976 25990 26004 26018 26032 26046 26060
26074 26089 26103 26123 26137 26151 26165 26179 26193 26207 26221 26235 26249 26263
26277 26291 26305 26319 26333 26347 26362 26382 26396 26410 26424 26438 26452 26466
26480 26509 26524 26539 26554 26569 26584 26599 26614 26629 26644 26659 26674 26689
26704 26719 26734 26749 26764 26789 26804 26819 26834 26849 26864 26879 26894 26909
26924 26939 26954 26969 26984 26999 27014 27029 27042 27066 27081 27096 27111 27126
27141 27156 27171 27186 27201 27216 27231 27246 27261 27276 27291 27306 27321 27346
27361 27376 27391 27406 27421 27436 27451 27466 27493 27507 27521 27535 27549 27563 SEQ 0873
27577 27591 27605 27619 27633 27647 27661 27675 27689 27703 27717 27731 27754 27768
27782 27796 27810 27824 27838 27852 27866 27880 27894 27908 27922 27936 27950 27964
27978 27992 28015 28029 28043 28057 28071 28085 28099 28113 28127 28141 28155 28169
28183 28197 28211 28225 28239 28253 28276 28290 28304 28318 28332 28346 28360 28374
28388
DFD 455#
DFM 444#
DFS 433#
DMVE 96# 14867 14888 14909 14930 14951 14973
DMVE17 118# 15006
DMVM 258# 15812 15837 15862 15887 15912 15938
DMVM17 310# 15975
DMVN 146# 15149 15181 15213 15245 15277 15311 15515 15547 15579
DMVN17 176# 15356
DMVNF 214# 15620 15665 15710 15755
DMVNM 283# 16196 16225 16254 16283 16312 16341 16578 16607 16636
DMVNM1 342# 16381
DMVNMF 377# 16666 16712 16758 16804
DROPDV 728# 1140
ENDUUO 774# 893
EOPUUO 775# 895
ER1 29#
ER10 36#
ER11 37#
ER12 38#
ER13 39# 1901 1910 1919 5349 5359 5369 5853 5855 5867 5869 5871 5883 5885
5887 5898 5902 5904 5908 5920 5924 5926 5930 5943 5945 5957 5959 5971
5973 5975 5987 5989 6001 6003 6005 6017 6019 6021 6032 6034 6036 6048
6050 6054 6058 6070 6072 6076 6080 6092 6094 6107 6109 6121 6123 6135
6137 6139 6151 6153 6155 6166 6170 6172 6176 6188 6192 6194 6198 6211
6213 6225 6227 6239 6241 6243 6255 6257 6269 6271 6273 6285 6287 6289
6300 6302 6304 6316 6318 6322 6326 6338 6340 6344 6348 6360 6362 6375
6377 6436 6460 6464 6466 6489 6513 6538 6540 6680 6831 6957 6959 7025
7052 7734 8082 8085 8454 8478 11342 11356 11372 11385 11402 15617 15644 15649
15656 15660 15689 15694 15701 15705 15734 15739 15746 15750 15779 15784 15791 15795
16180 16691 16696 16703 16707 16737 16742 16749 16753 16783 16788 16795 16799 16829
16834 16841 16845 32155 32158 32160 32174 32176 32178 32192 32195 32197 32211 32213
32215 32229 32232 32234 32248 32250 32252 32266 32269 32271 32285 32287 32289 32410
32413 32415 32429 32431 32433 32447 32450 32452 32466 32468 32470 32484 32487 32489
32503 32505 32507 32521 32524 32526 32540 32542 32544 33524 33527 33529 33543 33545
33547 33561 33564 33566 33580 33582 33584 33598 33601 33603 33617 33619 33621 33635
33638 33640 33654 33656 33658 34219 34222 34224 34238 34240 34242 34256 34259 34261
34275 34277 34279 34293 34296 34298 34312 34314 34316 34330 34333 34335 34349 34351
34353 34368 34370 34372 34388 34390 34392
ER2 30#
ER3 31# 1182 1201 1219 1238 1256 1292 1302 1312 1322 1332 1342 1352 1394
1405 1416 1427 1438 1449 1460 1481 1517 1527 1537 1547 1557 1567 1577
1599 1607 1615 1623 1630 1638 1646 1654 1672 1691 1725 1734 1743 1752
1761 1770 1779 1788 1805 1822 1841 1860 1879 1940 1965 1987 2007 2028
2047 2067 2087 2111 2114 2136 2157 2179 2200 2222 2243 2280 2290 2300
2310 2320 2330 2340 2361 2381 2403 2425 2444 2464 2488 2497 2506 2515
2523 2532 2541 2560 2569 2578 2587 2595 2604 2613 2622 2642 2663 2682
2702 2724 2745 2769 2790 2810 2829 2849 2869 2895 2919 2941 2968 2988 SEQ 0874
3015 3018 3041 3063 3086 3105 3127 3149 3193 3204 3215 3226 3237 3248
3259 3270 3308 3318 3328 3338 3348 3358 3368 3411 3423 3435 3447 3459
3471 3483 3495 3534 3544 3554 3564 3574 3584 3594 3604 3639 3648 3657
3696 3706 3716 3754 3764 3774 3811 3820 3829 3838 3847 3856 3865 3874
3883 3911 3923 3935 3947 3959 3971 3983 3995 4007 4019 4031 4043 4055
4067 4079 4091 4103 4115 4161 4175 4189 4203 4217 4231 4245 4259 4273
4287 4328 4339 4350 4361 4372 4383 4404 4412 4420 4454 4463 4472 4508
4517 4526 4567 4578 4589 4630 4641 4652 4695 4707 4719 4764 4776 4788
4829 4840 4851 4896 4908 4920 4966 4980 4994 5008 5022 5036 5050 5064
5078 5092 5106 5120 5134 5148 5162 5176 5190 5204 5237 5251 5265 5279
5293 5307 5321 5347 5391 5411 5460 5476 5492 5508 5524 5540 5556 5572
5588 5604 5620 5636 5652 5668 5684 5700 5716 5739 5759 5784 5804 5830
5850 5865 5881 5896 5918 5940 5954 5969 5984 5999 6015 6030 6046 6068
6089 6104 6118 6133 6149 6164 6186 6208 6222 6237 6252 6267 6283 6298
6314 6336 6357 6372 6405 6413 6438 6462 6491 6515 6542 6583 6593 6618
6628 6638 6658 6682 6721 6731 6741 6765 6775 6799 6809 6819 6833 6855
6877 6886 6894 6914 6935 6961 6982 7002 7027 7054 7075 7118 7129 7140
7151 7162 7173 7184 7224 7235 7246 7257 7268 7279 7290 7330 7341 7352
7390 7402 7414 7426 7446 7467 7505 7516 7527 7538 7549 7590 7601 7612
7623 7634 7645 7656 7696 7709 7754 7777 7820 7845 7889 7904 7928 7950
7991 8003 8042 8053 8077 8079 8120 8130 8140 8178 8189 8200 8241 8253
8265 8304 8315 8337 8357 8396 8407 8430 8545 8568 8592 8640 8655 8677
8699 8721 8766 8832 8846 8860 8874 8888 8909 8929 8967 8978 8989 9034
9073 9090 9107 9124 9141 9158 9175 9192 9209 9226 9243 9260 9277 9294
9311 9328 9345 9362 9400 9417 9434 9451 9468 9485 9502 9519 9536 9553
9570 9587 9604 9621 9638 9655 9672 9712 9728 9744 9760 9776 9792 9808
9824 9840 9878 9895 9912 9929 9946 9963 9980 9997 10014 10031 10048 10065
10082 10099 10116 10133 10150 10167 10208 10225 10267 10285 10303 10321 10339 10357
10375 10393 10434 10452 10470 10488 10506 10524 10542 10560 10578 10619 10637 10655
10673 10691 10709 10727 10745 10763 10803 10820 10837 10854 10871 10888 10905 10922
10935 10952 10967 10982 10997 11010 11025 11038 11052 11065 11079 11092 11106 11123
11150 11166 11182 11199 11213 11229 11243 11258 11272 11287 11301 11316 11329 11353
11368 11382 11398 11447 11462 11477 11492 11507 11522 11537 11552 11567 11582 11597
11612 11627 11642 11657 11672 11687 11724 11740 11756 11772 11788 11804 11820 11836
11852 11868 11884 11900 11916 11932 11948 11964 11980 11996 12036 12052 12068 12084
12100 12116 12132 12148 12164 12180 12196 12212 12228 12244 12260 12276 12292 12308
12345 12361 12377 12393 12409 12425 12441 12457 12473 12489 12505 12521 12537 12553
12569 12585 12601 12617 12628 12641 12681 12699 12717 12735 12753 12771 12789 12807
12825 12843 12883 12901 12919 12937 12955 12973 12991 13009 13047 13064 13081 13098
13115 13132 13149 13166 13210 13228 13246 13264 13282 13300 13318 13336 13354 13372
13411 13428 13445 13462 13479 13496 13513 13530 13568 13585 13602 13619 13636 13653
13670 13687 13731 13749 13767 13785 13803 13821 13839 13857 13875 13893 13934 13952
13970 13988 14006 14024 14042 14060 14098 14115 14132 14149 14166 14183 14200 14217
14232 14274 14293 14312 14331 14350 14369 14388 14407 14426 14445 14488 14507 14526
14545 14564 14583 14602 14621 14660 14677 14694 14711 14728 14745 14762 14779 14797
14812 14825 14839 14852 14883 14904 14925 14946 14968 14990 15026 15074 15088 15102
15116 15130 15175 15207 15239 15271 15305 15339 15386 15440 15457 15474 15491 15508
15541 15573 15605 15807 16191 16872 16897 16911 16925 16939 16953 16967 16981 16995
17009 17032 17046 17060 17074 17088 17102 17116 17130 17144 17158 17172 17186 17200
17214 17228 17242 17256 17270 17285 17305 17319 17333 17347 17361 17375 17389 17403
17417 17431 17445 17459 17473 17487 17501 17515 17529 17552 17566 17580 17594 17608
17622 17636 17650 17664 17678 17692 17706 17720 17734 17748 17762 17776 17790 17815
17829 17843 17857 17871 17885 17899 17913 17927 17950 17964 17978 17992 18006 18020 SEQ 0875
18034 18048 18062 18076 18090 18104 18118 18132 18146 18160 18174 18188 18203 18224
18239 18254 18269 18284 18299 18314 18329 18344 18359 18374 18389 18404 18419 18434
18449 18464 18488 18502 18516 18530 18544 18558 18572 18586 18600 18614 18628 18642
18656 18670 18684 18698 18712 18726 18740 18753 18778 18792 18806 18820 18834 18848
18862 18876 18890 18904 18918 18932 18946 18960 18974 18988 19002 19016 19039 19053
19067 19081 19095 19109 19123 19137 19151 19165 19179 19193 19207 19221 19235 19249
19263 19277 19300 19314 19328 19342 19356 19370 19384 19398 19412 19426 19440 19454
19468 19482 19496 19510 19524 19538 19562 19576 19590 19604 19618 19632 19646 19660
19673 19697 19711 19725 19739 19753 19767 19781 19795 19809 19823 19837 19851 19865
19879 19893 19907 19921 19935 19958 19972 19986 20000 20014 20028 20042 20056 20070
20084 20098 20112 20126 20140 20154 20168 20182 20196 20219 20233 20247 20261 20275
20289 20303 20317 20331 20345 20359 20373 20387 20401 20415 20429 20443 20457 20480
20494 20508 20522 20536 20550 20564 20578 20591 20620 20636 20652 20668 20684 20700
20716 20732 20748 20764 20780 20796 20812 20828 20844 20860 20876 20892 20920 20936
20952 20968 20984 21000 21016 21032 21048 21064 21080 21096 21112 21128 21144 21160
21176 21192 21220 21236 21252 21268 21284 21300 21316 21332 21348 21364 21380 21396
21412 21428 21444 21460 21476 21492 21520 21536 21552 21568 21584 21600 21616 21632
21648 21678 21694 21710 21726 21742 21758 21774 21790 21806 21822 21838 21854 21870
21886 21902 21918 21934 21950 21978 21994 22010 22026 22042 22058 22074 22090 22106
22122 22138 22154 22170 22186 22202 22218 22234 22250 22278 22294 22310 22326 22342
22358 22374 22390 22406 22422 22438 22454 22470 22486 22502 22518 22534 22550 22578
22594 22610 22626 22642 22658 22674 22690 22706 22734 22749 22764 22779 22794 22809
22824 22839 22854 22869 22884 22899 22914 22929 22944 22959 22974 22989 23005 23026
23040 23054 23068 23082 23096 23110 23124 23138 23152 23166 23180 23194 23208 23222
23236 23252 23265 23286 23300 23314 23328 23342 23356 23370 23384 23398 23412 23426
23440 23454 23468 23482 23496 23510 23526 23546 23560 23574 23588 23602 23616 23630
23644 23672 23687 23702 23717 23732 23747 23762 23777 23792 23807 23822 23837 23852
23867 23882 23897 23912 23927 23943 23964 23978 23992 24006 24020 24034 24048 24062
24076 24090 24104 24118 24132 24146 24160 24174 24190 24204 24223 24237 24251 24265
24279 24293 24307 24321 24335 24349 24363 24377 24391 24405 24419 24433 24447 24462
24481 24495 24509 24523 24537 24551 24565 24579 24610 24626 24642 24658 24674 24690
24706 24722 24738 24754 24770 24786 24802 24818 24834 24850 24866 24882 24897 24917
24931 24945 24959 24973 24987 25001 25015 25029 25043 25057 25071 25085 25099 25113
25127 25142 25156 25176 25190 25204 25218 25232 25246 25260 25274 25288 25302 25316
25330 25344 25358 25372 25386 25400 25415 25435 25449 25463 25477 25491 25505 25519
25533 25563 25579 25595 25611 25627 25643 25659 25675 25691 25707 25723 25739 25755
25771 25787 25803 25819 25835 25850 25870 25884 25898 25912 25926 25940 25954 25968
25982 25996 26010 26024 26038 26052 26066 26080 26095 26109 26129 26143 26157 26171
26185 26199 26213 26227 26241 26255 26269 26283 26297 26311 26325 26339 26353 26368
26388 26402 26416 26430 26444 26458 26472 26486 26515 26530 26545 26560 26575 26590
26605 26620 26635 26650 26665 26680 26695 26710 26725 26740 26755 26770 26795 26810
26825 26840 26855 26870 26885 26900 26915 26930 26945 26960 26975 26990 27005 27020
27035 27048 27072 27087 27102 27117 27132 27147 27162 27177 27192 27207 27222 27237
27252 27267 27282 27297 27312 27327 27352 27367 27382 27397 27412 27427 27442 27457
27472 27499 27513 27527 27541 27555 27569 27583 27597 27611 27625 27639 27653 27667
27681 27695 27709 27723 27737 27760 27774 27788 27802 27816 27830 27844 27858 27872
27886 27900 27914 27928 27942 27956 27970 27984 27998 28021 28035 28049 28063 28077
28091 28105 28119 28133 28147 28161 28175 28189 28203 28217 28231 28245 28259 28282
28296 28310 28324 28338 28352 28366 28380 28394 28406 28429 28452 28466 28480 28494
28508 28522 28536 28550 28573 28587 28601 28615 28629 28643 28657 28671 28685 28699
28713 28727 28741 28755 28769 28783 28797 28811 28834 28848 28862 28876 28890 28904
28918 28932 28946 28960 28974 28988 29002 29016 29030 29044 29058 29081 29095 29109
29123 29137 29151 29165 29179 29193 29207 29221 29235 29249 29263 29277 29291 29305 SEQ 0876
29319 29348 29364 29380 29396 29412 29428 29444 29460 29476 29501 29516 29531 29546
29561 29576 29591 29606 29621 29636 29661 29676 29691 29706 29721 29736 29751 29766
29790 29805 29820 29835 29850 29865 29880 29895 29910 29935 29950 29965 29980 29995
30010 30025 30040 30065 30080 30095 30110 30125 30140 30155 30170 30185 30200 30226
30241 30256 30271 30286 30301 30316 30331 30357 30368 30379 30390 30401 30412 30423
30434 30445 30456 30467 30478 30489 30500 30511 30522 30533 30544 30555 30566 30577
30588 30599 30610 30621 30632 30643 30654 30665 30676 30687 30698 30709 30720 30731
30742 30753 30764 30775 30786 30797 30808 30819 30830 30841 30852 30864 30875 30886
30897 30908 30919 30930 30941 30952 30963 30974 30985 30996 31007 31018 31029 31040
31051 31062 31073 31084 31095 31106 31117 31128 31139 31150 31162 31173 31184 31195
31206 31217 31228 31239 31250 31261 31272 31283 31294 31305 31316 31327 31338 31349
31360 31371 31382 31393 31404 31415 31426 31437 31448 31459 31470 31481 31492 31503
31514 31525 31536 31547 31558 31569 31580 31591 31602 31613 31624 31635 31646 31657
31668 31679 31690 31701 31712 31723 31734 31745 31756 31767 31778 31789 31800 31811
31822 31833 31844 31855 31866 31877 31888 31899 31910 31921 31932 31943 31954 31965
31976 31987 31998 32009 32020 32031 32042 32053 32064 32075 32086 32097 32108 32119
32130 32150 32170 32187 32207 32224 32244 32261 32281 32319 32330 32341 32352 32363
32374 32385 32405 32425 32442 32462 32479 32499 32516 32536 32574 32585 32596 32607
32618 32629 32640 32651 32662 32673 32684 32695 32706 32717 32728 32739 32750 32761
32772 32783 32795 32806 32817 32828 32839 32850 32861 32872 32883 32894 32905 32916
32927 32940 32947 32962 32969 32984 32991 33006 33013 33028 33035 33050 33057 33072
33079 33094 33101 33116 33123 33138 33145 33160 33167 33182 33189 33204 33211 33226
33233 33246 33257 33268 33279 33290 33301 33312 33323 33334 33345 33356 33367 33378
33391 33398 33411 33422 33433 33444 33455 33466 33477 33488 33499 33519 33539 33556
33576 33593 33613 33630 33650 33688 33699 33710 33721 33732 33743 33754 33765 33776
33787 33798 33809 33820 33831 33842 33853 33864 33875 33886 33897 33908 33919 33930
33941 33952 33963 33974 33985 33996 34007 34018 34029 34040 34051 34062 34073 34084
34095 34106 34117 34128 34139 34150 34165 34182 34214 34234 34251 34271 34288 34308
34325 34345 34364 34384
ER4 32# 14885 14906 14927 14948 14970 14992 15031 15076 15090 15104 15118 15132 15178
15210 15242 15274 15308 15342 15391 15442 15459 15476 15493 15510 15544 15576 15608
15809 16193 16874 16899 16913 16927 16941 16955 16969 16983 16997 17011 17034 17048
17062 17076 17090 17104 17118 17132 17146 17160 17174 17188 17202 17216 17230 17244
17258 17272 17287 17307 17321 17335 17349 17363 17377 17391 17405 17419 17433 17447
17461 17475 17489 17503 17517 17531 17554 17568 17582 17596 17610 17624 17638 17652
17666 17680 17694 17708 17722 17736 17750 17764 17778 17792 17817 17831 17845 17859
17873 17887 17901 17915 17929 17952 17966 17980 17994 18008 18022 18036 18050 18064
18078 18092 18106 18120 18134 18148 18162 18176 18190 18205 18226 18241 18256 18271
18286 18301 18316 18331 18346 18361 18376 18391 18406 18421 18436 18451 18466 18490
18504 18518 18532 18546 18560 18574 18588 18602 18616 18630 18644 18658 18672 18686
18700 18714 18728 18742 18755 18780 18794 18808 18822 18836 18850 18864 18878 18892
18906 18920 18934 18948 18962 18976 18990 19004 19018 19041 19055 19069 19083 19097
19111 19125 19139 19153 19167 19181 19195 19209 19223 19237 19251 19265 19279 19302
19316 19330 19344 19358 19372 19386 19400 19414 19428 19442 19456 19470 19484 19498
19512 19526 19540 19564 19578 19592 19606 19620 19634 19648 19662 19675 19699 19713
19727 19741 19755 19769 19783 19797 19811 19825 19839 19853 19867 19881 19895 19909
19923 19937 19960 19974 19988 20002 20016 20030 20044 20058 20072 20086 20100 20114
20128 20142 20156 20170 20184 20198 20221 20235 20249 20263 20277 20291 20305 20319
20333 20347 20361 20375 20389 20403 20417 20431 20445 20459 20482 20496 20510 20524
20538 20552 20566 20580 20593 20622 20638 20654 20670 20686 20702 20718 20734 20750
20766 20782 20798 20814 20830 20846 20862 20878 20894 20922 20938 20954 20970 20986
21002 21018 21034 21050 21066 21082 21098 21114 21130 21146 21162 21178 21194 21222
21238 21254 21270 21286 21302 21318 21334 21350 21366 21382 21398 21414 21430 21446 SEQ 0877
21462 21478 21494 21522 21538 21554 21570 21586 21602 21618 21634 21650 21680 21696
21712 21728 21744 21760 21776 21792 21808 21824 21840 21856 21872 21888 21904 21920
21936 21952 21980 21996 22012 22028 22044 22060 22076 22092 22108 22124 22140 22156
22172 22188 22204 22220 22236 22252 22280 22296 22312 22328 22344 22360 22376 22392
22408 22424 22440 22456 22472 22488 22504 22520 22536 22552 22580 22596 22612 22628
22644 22660 22676 22692 22708 22736 22751 22766 22781 22796 22811 22826 22841 22856
22871 22886 22901 22916 22931 22946 22961 22976 22991 23007 23028 23042 23056 23070
23084 23098 23112 23126 23140 23154 23168 23182 23196 23210 23224 23238 23254 23267
23288 23302 23316 23330 23344 23358 23372 23386 23400 23414 23428 23442 23456 23470
23484 23498 23512 23528 23548 23562 23576 23590 23604 23618 23632 23646 23674 23689
23704 23719 23734 23749 23764 23779 23794 23809 23824 23839 23854 23869 23884 23899
23914 23929 23945 23966 23980 23994 24008 24022 24036 24050 24064 24078 24092 24106
24120 24134 24148 24162 24176 24192 24206 24225 24239 24253 24267 24281 24295 24309
24323 24337 24351 24365 24379 24393 24407 24421 24435 24449 24464 24483 24497 24511
24525 24539 24553 24567 24581 24612 24628 24644 24660 24676 24692 24708 24724 24740
24756 24772 24788 24804 24820 24836 24852 24868 24884 24899 24919 24933 24947 24961
24975 24989 25003 25017 25031 25045 25059 25073 25087 25101 25115 25129 25144 25158
25178 25192 25206 25220 25234 25248 25262 25276 25290 25304 25318 25332 25346 25360
25374 25388 25402 25417 25437 25451 25465 25479 25493 25507 25521 25535 25565 25581
25597 25613 25629 25645 25661 25677 25693 25709 25725 25741 25757 25773 25789 25805
25821 25837 25852 25872 25886 25900 25914 25928 25942 25956 25970 25984 25998 26012
26026 26040 26054 26068 26082 26097 26111 26131 26145 26159 26173 26187 26201 26215
26229 26243 26257 26271 26285 26299 26313 26327 26341 26355 26370 26390 26404 26418
26432 26446 26460 26474 26488 26517 26532 26547 26562 26577 26592 26607 26622 26637
26652 26667 26682 26697 26712 26727 26742 26757 26772 26797 26812 26827 26842 26857
26872 26887 26902 26917 26932 26947 26962 26977 26992 27007 27022 27037 27050 27074
27089 27104 27119 27134 27149 27164 27179 27194 27209 27224 27239 27254 27269 27284
27299 27314 27329 27354 27369 27384 27399 27414 27429 27444 27459 27474 27501 27515
27529 27543 27557 27571 27585 27599 27613 27627 27641 27655 27669 27683 27697 27711
27725 27739 27762 27776 27790 27804 27818 27832 27846 27860 27874 27888 27902 27916
27930 27944 27958 27972 27986 28000 28023 28037 28051 28065 28079 28093 28107 28121
28135 28149 28163 28177 28191 28205 28219 28233 28247 28261 28284 28298 28312 28326
28340 28354 28368 28382 28396 28408 28431 28454 28468 28482 28496 28510 28524 28538
28552 28575 28589 28603 28617 28631 28645 28659 28673 28687 28701 28715 28729 28743
28757 28771 28785 28799 28813 28836 28850 28864 28878 28892 28906 28920 28934 28948
28962 28976 28990 29004 29018 29032 29046 29060 29083 29097 29111 29125 29139 29153
29167 29181 29195 29209 29223 29237 29251 29265 29279 29293 29307 29321 29350 29366
29382 29398 29414 29430 29446 29462 29478 29503 29518 29533 29548 29563 29578 29593
29608 29623 29638 29663 29678 29693 29708 29723 29738 29753 29768 29792 29807 29822
29837 29852 29867 29882 29897 29912 29937 29952 29967 29982 29997 30012 30027 30042
30067 30082 30097 30112 30127 30142 30157 30172 30187 30202 30228 30243 30258 30273
30288 30303 30318 30333 30359 30370 30381 30392 30403 30414 30425 30436 30447 30458
30469 30480 30491 30502 30513 30524 30535 30546 30557 30568 30579 30590 30601 30612
30623 30634 30645 30656 30667 30678 30689 30700 30711 30722 30733 30744 30755 30766
30777 30788 30799 30810 30821 30832 30843 30854 30866 30877 30888 30899 30910 30921
30932 30943 30954 30965 30976 30987 30998 31009 31020 31031 31042 31053 31064 31075
31086 31097 31108 31119 31130 31141 31152 31164 31175 31186 31197 31208 31219 31230
31241 31252 31263 31274 31285 31296 31307 31318 31329 31340 31351 31362 31373 31384
31395 31406 31417 31428 31439 31450 31461 31472 31483 31494 31505 31516 31527 31538
31549 31560 31571 31582 31593 31604 31615 31626 31637 31648 31659 31670 31681 31692
31703 31714 31725 31736 31747 31758 31769 31780 31791 31802 31813 31824 31835 31846
31857 31868 31879 31890 31901 31912 31923 31934 31945 31956 31967 31978 31989 32000
32011 32022 32033 32044 32055 32066 32077 32088 32099 32110 32121 32132 32152 32172 SEQ 0878
32189 32209 32226 32246 32263 32283 32321 32332 32343 32354 32365 32376 32387 32407
32427 32444 32464 32481 32501 32518 32538 32576 32587 32598 32609 32620 32631 32642
32653 32664 32675 32686 32697 32708 32719 32730 32741 32752 32763 32774 32785 32797
32808 32819 32830 32841 32852 32863 32874 32885 32896 32907 32918 32929 32942 32949
32964 32971 32986 32993 33008 33015 33030 33037 33052 33059 33074 33081 33096 33103
33118 33125 33140 33147 33162 33169 33184 33191 33206 33213 33228 33235 33248 33259
33270 33281 33292 33303 33314 33325 33336 33347 33358 33369 33380 33393 33400 33413
33424 33435 33446 33457 33468 33479 33490 33501 33521 33541 33558 33578 33595 33615
33632 33652 33690 33701 33712 33723 33734 33745 33756 33767 33778 33789 33800 33811
33822 33833 33844 33855 33866 33877 33888 33899 33910 33921 33932 33943 33954 33965
33976 33987 33998 34009 34020 34031 34042 34053 34064 34075 34086 34097 34108 34119
34130 34141 34152 34176 34184 34190 34194 34216 34236 34253 34273 34290 34310 34327
34347 34366 34386
ER5 33# 4968 4982 4996 5010 5024 5038 5052 5066 5080 5094 5108 5122 5136
5150 5164 5178 5192 5206 5239 5253 5267 5281 5295 5309 5323 5389 5413
5462 5478 5494 5510 5526 5542 5558 5574 5590 5606 5622 5638 5654 5670
5686 5702 5718 5761 5782 5806 5832 7698 7711 7756 7779 7799 7822 7891
7906 7930 7952 8432 8512 8522 8547 8570 8594 8723 8745 8768 8790 8834
8848 8862 8876 8890 9015 11133 11411 14862 15144 15832 15857 15882 15907 15932
15958 15999 16053 16072 16091 16110 16129 16175 16219 16248 16277 16306 16335 16364
16408 16472 16496 16520 16544 16568 16601 16630 16659 30346 32308 32563 33677
ER6 34# 14864 15146 15834 15859 15884 15909 15935 15961 16004 16058 16077 16096 16115
16134 16177 16222 16251 16280 16309 16338 16367 16413 16474 16498 16522 16546 16570
16604 16633 16662 30348 32310 32565 33679
ER7 35#
ERRHLT 662# 34535
FATAL 661#
FRD36 803#
FRD8 804#
FREAD 802#
FSELEC 801#
GET 645#
GO 642# 16114
HALT 82 83 84 85 86 647# 914
JEN 649#
JRSTF 648# 16170 28420 32143 32163 32180 32200 32217 32237 32254 32274 32299 32398 32418
32435 32455 32472 32492 32509 32529 32554 33512 33532 33549 33569 33586 33606 33623
33643 33668 34207 34227 34244 34264 34281 34301 34318 34338 34357 34377
MAPADR 784#
MAPCNK 785#
MAPMEM 781#
MAPPNT 787#
MAPSET 786#
MEMSEG 783#
MEMZRO 782#
MODPCP 794#
MODPCU 793#
MTROP 762#
NAME 7# 10
PBELL 737# 34539
PCRL 731# 34475 34494
PCRL2 735#
PCRL2F 736# SEQ 0879
PCRLF 732#
PFORCE 739#
PGMINT 655# 1155
PJRST 646#
PMSG 741# 34441 34445 34456 34481
PMSGF 744#
PNT1 697#
PNT11 711#
PNT11F 712#
PNT1F 698#
PNT2 699#
PNT2F 700#
PNT3 701# 34493
PNT3F 702#
PNT4 703# 34497
PNT4F 704#
PNT5 705# 34499
PNT5F 706#
PNT6 707# 34449 34501
PNT6F 708#
PNT7 709#
PNT7F 710#
PNTA 683# 34484
PNTADF 714#
PNTADR 713#
PNTAF 684#
PNTAL 685# 34477
PNTALF 686#
PNTCHF 696#
PNTCHR 695#
PNTCI 693#
PNTCIF 694#
PNTCW 729#
PNTCWF 730#
PNTDCF 722#
PNTDEC 721# 34444
PNTDS 723#
PNTDSF 724#
PNTHW 717# 34464
PNTHWF 718#
PNTMGN 808# 34525
PNTMSF 690#
PNTMSG 689#
PNTNM 725# 34437
PNTOCF 720#
PNTOCS 719#
PNTOCT 715#
PNTOTF 716#
PNTSIX 726#
PNTSXF 727#
PSIXL 687#
PSIXLF 688#
PSIXM 691# 34442 34446 34457 34482 SEQ 0880
PSIXMF 692#
PSP 733#
PSPF 734#
PUT 644#
RTN 643# 901 16144 16148
S 573#
SAVEAC 68# 1172 1191 1209 1228 1246 1265 1363 1471 1489 1588 1662 1681 1701
1795 1812 1831 1850 1869 1889 1931 1954 1977 1996 2017 2036 2056 2076
2100 2125 2146 2168 2189 2211 2233 2253 2350 2371 2392 2415 2433 2453
2476 2549 2631 2652 2672 2691 2713 2734 2758 2779 2799 2818 2838 2858
2883 2906 2929 2956 2976 3004 3030 3051 3075 3095 3116 3137 3163 3281
3378 3506 3614 3668 3726 3786 4125 4298 4393 4429 4483 4537 4600 4662
4731 4799 4863 4932 5333 5378 5400 5422 5727 5748 5771 5793 5817 5837
6394 6423 6447 6476 6500 6526 6556 6648 6667 6694 6844 6865 6903 6924
6944 6971 6991 7012 7038 7064 7090 7196 7301 7361 7436 7456 7476 7561
7665 7722 7742 7765 7787 7808 7831 7854 7915 7939 7960 8013 8066 8094
8149 8209 8274 8326 8345 8367 8416 8441 8465 8486 8532 8555 8579 8602
8664 8686 8707 8732 8753 8777 8798 8899 8918 8937 8994# 9003 9022 11112
15000 15040 15350 15400 15969 16013 16160 16375 16422 16852# 16859 28415 32137 32294
32392 32549 33506 33663 34201
SDFA 475# 30351 30362 30373 30384 30395 30406 30417 30428 30439 30450 30461 30472 30483
30494 30505 30516 30527 30538 30549 30560 30571 30582 30593 30604 30615 30626 30637
30648 30659 30670 30681 30692 30703 30714 30725 30736 30747 30758 30769 30780 30791
30802 30813 30824 30835 30846 30858 30869 30880 30891 30902 30913 30924 30935 30946
30957 30968 30979 30990 31001 31012 31023 31034 31045 31056 31067 31078 31089 31100
31111 31122 31133 31144 31156 31167 31178 31189 31200 31211 31222 31233 31244 31255
31266 31277 31288 31299 31310 31321 31332 31343 31354 31365 31376 31387 31398 31409
31420 31431 31442 31453 31464 31475 31486 31497 31508 31519 31530 31541 31552 31563
31574 31585 31596 31607 31618 31629 31640 31651 31662 31673 31684 31695 31706 31717
31728 31739 31750 31761 31772 31783 31794 31805 31816 31827 31838 31849 31860 31871
31882 31893 31904 31915 31926 31937 31948 31959 31970 31981 31992 32003 32014 32025
32036 32047 32058 32069 32080 32091 32102 32113 32124
SDFARP 561# 28423 28446 28460 28474 28488 28502 28516 28530 28544 28567 28581 28595 28609
28623 28637 28651 28665 28679 28693 28707 28721 28735 28749 28763 28777 28791 28805
28828 28842 28856 28870 28884 28898 28912 28926 28940 28954 28968 28982 28996 29010
29024 29038 29052 29075 29089 29103 29117 29131 29145 29159 29173 29187 29201 29215
29229 29243 29257 29271 29285 29299 29313 29342 29358 29374 29390 29406 29422 29438
29454 29470 29495 29510 29525 29540 29555 29570 29585 29600 29615 29630 29655 29670
29685 29700 29715 29730 29745 29760 29784 29799 29814 29829 29844 29859 29874 29889
29904 29929 29944 29959 29974 29989 30004 30019 30034 30059 30074 30089 30104 30119
30134 30149 30164 30179 30194 30220 30235 30250 30265 30280 30295 30310 30325
SDFD 529# 33682 33693 33704 33715 33726 33737 33748 33759 33770 33781 33792 33803 33814
33825 33836 33847 33858 33869 33880 33891 33902 33913 33924 33935 33946 33957 33968
33979 33990 34001 34012 34023 34034 34045 34056 34067 34078 34089 34100 34111 34122
34133 34144
SDFDKL 540#
SDFM 497# 32568 32579 32590 32601 32612 32623 32634 32645 32656 32667 32678 32689 32700
32711 32722 32733 32744 32755 32766 32777 32789 32800 32811 32822 32833 32844 32855
32866 32877 32888 32899 32910 32921 33240 33251 33262 33273 33284 33295 33306 33317
33328 33339 33350 33361 33372 33405 33416 33427 33438 33449 33460 33471 33482 33493
SDFMKL 508# 32932 32954 32976 32998 33020 33042 33064 33086 33108 33130 33152 33174 33196
33218 33383
SDFS 486# 32313 32324 32335 32346 32357 32368 32379 SEQ 0881
SIXBTZ 750#
SWITCH 756# 34423 34526
TTALTM 677# 34528
TTICHR 670#
TTICLR 680#
TTICNV 675#
TTIDEC 674#
TTINO 672#
TTIOCT 673#
TTIYES 671#
TTLOOK 676#
TTSIXB 678#
TTYINP 679#