Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dskcd.seq
There are no other files named dskcd.seq in the archive.
;DSKCD
IDENTIFICATION
--------------
PRODUCT CODE: AH-E331A-DD
DIAGNOSTIC CODE: DSKCD
PRODUCT NAME: DSKCDA0 DECSYSTEM 2020 ADVANCED
INSTRUCTION DIAGNOSTIC (4)
VERSION: 0.1
DATE RELEASED: MARCH 1978
MAINTAINED BY: DIAGNOSTIC ENGINEERING
AUTHOR: JOHN R. KIRCHOFF
COPYRIGHT (C) 1978
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE
TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO
AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE
SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL EQUIPMENT
CORPORATION.
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE
USE OR RELIABILITY OF ITS SOFTWARE IN EQUIPMENT WHICH IS NOT
SUPPLIED BY DIGITAL EQUIPMENT CORPORATION.
MAINDEC-10-DSKCD.TXT
PAGE 2 SEQ 0003
TABLE OF CONTENTS
-----------------
1.0 ABSTRACT
2.0 REQUIREMENTS
2.1 EQUIPMENT
2.2 STORAGE
2.3 PRELIMINARY PROGRAMS
3.0 PROGRAM PROCEDURES
3.1 LOADING PROCEDURE
3.2 STARTING PROCEDURE
3.3 OPERATING PROCEDURE
4.0 DATA SWITCH FUNCTIONS
5.0 ERRORS
6.0 ITERATION COUNTER
7.0 CYCLE TIME
8.0 OPERATIONAL VARIATIONS
9.0 MISCELLANEOUS
10.0 LISTING
MAINDEC-10-DSKCD.TXT
PAGE 3 SEQ 0004
1.0 ABSTRACT
THIS DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC IS THE
FOURTH IN A SERIES OF DECSYSTEM 2020 ADVANCED PROCESSOR
DIAGNOSTICS.
THE DIAGNOSTIC PERFORMS LOGIC TESTING OF THE PROCESSOR
AND MICRO-CODE EXTENDED ADDITION AND ASSOCIATED LOGIC
USED BY THE DOUBLE PRECISION FLOATING POINT INSTRUCTIONS:
DFAD, DFSB, DFMP AND DFDV.
2.0 REQUIREMENTS
2.1 EQUIPMENT
A DECSYSTEM 2020 EQUIPPED WITH A MINIMUM OF 32K OF MEMORY
CONSOLE PROCESSOR
CONSOLE TELETYPE
LOAD DEVICE
2.2 STORAGE
THE PROGRAM RUNS WITHIN 32K OF MEMORY.
2.3 PRELIMINARY PROGRAMS
PREVIOUS PROCESSOR DIAGNOSTICS
3.0 PROGRAM PROCEDURES
3.1 LOADING PROCEDURE
****** NOTE ******
THIS DIAGNOSTIC REQUIRES THAT THE DECSYSTEM 2020 SUBROUTINE
PROGRAM BE RESIDENT IN THE DECSYSTEM 2020.
FOLLOW THE APPROPRIATE DIAGNOSTIC LOADING PROCEDURES.
MAINDEC-10-DSKCD.TXT
PAGE 4 SEQ 0005
3.2 STARTING PROCEDURE
A. SELECT OPERATIONAL CONSOLE DATA SWITCH SETTINGS (REFER TO
4.0 DATA SWITCH FUNCTIONS).
RUN UNDER "SMMON".
THE FOLLOWING QUESTIONS WILL BE ASKED TO
SELECT THE OPERATIONAL SWITCHES:
TELETYPE SWITCH CONTROL ? 0,S OR Y (CR) -
IF THE OPERATOR TYPES "Y", THE FOLLOWING QUESTIONS
ARE ASKED AND THE OPERATOR RESPONDS BY TYPING
THE ANSWER AS SIX OCTAL DIGITS REPRESENTING
THE DESIRED SWITCH SETTINGS.
SPECIFY LH SWITCHES IN OCTAL-
SPECIFY RH SWITCHES IN OCTAL-
IF THE OPERATOR TYPES "0", ZERO'S ARE USED FOR
THE SWITCH SETTINGS.
IF THE OPERATOR TYPES "S", PREVIOUSLY SET SWITCHES
ARE USED. THIS IS ONLY VALID UPON RESTARTING
OF AN INTERRUPTED PROGRAM.
MAINDEC-10-DSKCD.TXT
PAGE 5 SEQ 0006
3.3 OPERATING PROCEDURE
A. TO THROUGHLY TEST ALL HARDWARE, ALL TEST CONTROL DATA
SWITCHES SHOULD BE SET TO 0.
B. WHEN DEBUGGING HARDWARE, SET SWITCHES TO 0. ALLOW THE
TELETYPE TO PRINT THE ERROR MESSAGES. THIS ALLOWS THE
PROGRAM TO RUN A COMPLETE PASS AND THEN THE ERROR MESSAGES
MAY BE CORRELATED TO QUICKLY DIAGNOSE THE FAILURE. IF A
HARDWARE PROBLEM IS SUCH THAT THE ERROR MESSAGES, AFTER THE
FIRST ONE, HAVE NO MEANING (FIRST ERROR CAUSES ALL FOLLOWING
TESTS TO FAIL) SET THE LOOP ON ERROR SWITCH AND RESTART THE
TEST FROM THE BEGINNING. THE FIRST FAILURE WILL THEN CAUSE
THE PROGRAM TO ENTER A LOOP SUITABLE FOR SCOPING.
THE ERROR MESSAGE USED IN CONJUNCTION WITH THE LISTING AND
SCOPING IF NECESSARY SHOULD ALLOW THE FAILING CONPONENT
TO BE ISOLATED AND REPLACED AND/OR REPAIRED.
C. WHEN TAKING MARGINS, SET DATA SWITCHES 'NOPNT' AND 'DING'.
THIS WILL INHIBIT PRINTOUT BUT WILL ALLOW THE TELETYPE
BELL TO BE RUNG WHEN A ERROR OCCURS. IF THE MARGIN OBTAINED
IS UNACCEPTABLE, THE OPERATOR MAY REVERT TO STANDARD SWITCH
SETTINGS FOR DEBUGGING PURPOSES.
D. ERROR INFORMATION MAY BE OBTAINED QUICKLY BY PRINTING
ERRORS ON THE LINE PRINTER.
E. IN THE EVENT OF A PRINT ROUTINE FAILURE THE 'NOPNT' SWITCH
AND THE 'ERSTOP' SWITCH MAY BE SET TO INHIBIT PRINTOUT
BUT HALT THE PROGRAM POINTING TO THE ERROR.
MAINDEC-10-DSKCD.TXT
PAGE 6 SEQ 0007
4.0 DATA SWITCH FUNCTIONS
SWITCH STATE FUNCTION
------ ----- --------
0 ABORT 0 NORMAL OPERATION
1 ABORT AT END OF PASS
1 RSTART NOT USED
2 TOTALS NOT USED
3 NOPNT 0 NORMAL TYPEOUT
1 INHIBIT ALL PRINT/TYPEOUT
(EXCEPT FORCED)
4 PNTLPT 0 NORMAL OUTPUT TO TTY
1 PRINT ALL DATA ON LPT
(LOGICAL DEVICE, USER MODE)
5 DING 0 NO FUNCTION
1 RING TTY BELL ON ERROR
6 LOOPER 0 PROCEED TO NEXT TEST
1 ENTER SCOPE LOOP ON TEST ERROR
7 ERSTOP 0 NO FUNCTION
1 HALT ON TEST ERROR
8 PALERS 0 PRINT ONLY FIRST ERROR WHEN LOOPING
1 PRINT ALL ERRORS, EVEN IF SAME ERROR
9 RELIAB NOT USED
10 TXTINH 0 PRINT FULL ERROR MESSAGES.
1 INHIBIT COMMENT PORTION OF
ERROR MESSAGES.
11 INHPAG 0 ALLOW PAGING AND TRAP ENABLE
1 INHIBIT PAGING AND TRAPPING
12 MODDVC NOT USED
13 INHCSH 0 ALLOW CACHE USE
1 INHIBIT CACHE
MAINDEC-10-DSKCD.TXT
PAGE 7 SEQ 0008
5.0 ERRORS
ERRORS ARE PRINTED ON THE TTY OR LINE PRINTER. THE ERROR
PRINTOUT CONTAINS THE TEST TITLE, THE PC OF THE FAILURE, ERROR
NUMBER AND THE CONTENTS OF AN APPLICABLE AC.
THE PC VALUE IS USEFUL IN RELATING THE FAILURE TO THE LISTING.
THE ERROR NUMBER IS PROVIDED SUCH THAT AN ERROR DICTIONARY MAY
BE MADE AT SOME FUTURE DATE.
IF AN AUDIO INDICATION OF A CONTINUING ERROR IS DESIRED
THE 'DING' SWITCH MAY BE SET.
6.0 ITERATION COUNTER
THE ITERATION COUNT OF THE PROGRAM IS PRINTED BY THE
CONSOLE PROCESSOR.
7.0 CYCLE TIME
THE CYCLE TIME OF THE PROGRAM IS IN THE MILLISECOND RANGE AND
IS THEREFORE SUITABLE FOR TAKING MARGINS, VIBRATION TESTS,
ETC.
MAINDEC-10-DSKCD.TXT
PAGE 8 SEQ 0009
8.0 OPERATIONAL VARIATIONS
A. DIAGNOSTIC MONITOR
THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PROVIDE
RELIABILITY TESTS, ACCEPTANCE TESTS, AND/OR TO PROVIDE A
QUICK METHOD OF ISOLATION OF A FAULT TO A PARTICULAR AREA
OF THE PROCESSOR. CERTAIN PROCEDURES ARE USED WHEN THE
PROGRAM IS USED IN THIS MANNER. THEY ARE:
1. THE DIAGNOSTIC MONITOR TRANSFERS CONTROL TO THE PROGRAM
AND STARTS IT AT LOCATION 30002.
2. MONCTL - LOCATION 30043 IS USED AS THE DIAGNOSTIC MONITOR
CONTROL WORD.
LH = 0, STAND-ALONE OPERATION
-1, RUNNING UNDER DIAGNOSTIC MONITOR
RH = RIGHT HALF OF CONSOLE SWITCHES IF UNDER
DIAGNOSTIC MONITOR CONTROL.
B. USER MODE
TO OUTPUT THE PRINTED ERROR MESSAGES TO A USER SPECIFIED
DEVICE IN USER MODE, ASSIGN THE DESIRED OUTPUT DEVICE TO
DEVICE NAME 'DEV' AND SET SWITCH 'PNTLPT'. THE PHYSICAL
DEVICE USED CAN BE ANY DEVICE THAT CAN ACCEPT ASCII OUTPUT
FORMAT SUCH AS LPT, DSK, DTA, ETC. THE CORRESPONDING
OUTPUT FILE IS 'DSKCD.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-DSKCD.TXT
PAGE 9 SEQ 0010
8.0 OPERATIONAL VARIATIONS (CON'T)
THE OUTPUT FILE (IF USED) MAY THEN BE LISTED BY USING THE
NORMAL MONITOR COMMANDS (PRINT, LIST, TYPE, PIP, ETC.).
IF THE PROGRAM IS ABORTED BEFORE COMPLETION (BY ^C, ETC.) THE
OUTPUT FILE MAY BE CLOSED BY USING THE MONITOR 'REENTER'
COMMAND.
C. SYSTEM EXERCISER
START ADDRESS IS 30003. DATA SWITCHES ARE PRESTORED IN
'SWTEXR' LOC 30023.
9.0 MISCELLANEOUS
THE NON-EX-MEMORY AND PARITY STOP SWITCHES SHOULD BE RESET
(0). THESE ERRORS, ILLEGAL UUO'S AND OTHER ERRORS OF THIS
TYPE ARE HANDLED BY PRINTOUT ON THE TELETYPE.
10.0 LISTING
HISTORY FILE FOR DSKCD SEQ 0011
----------------------
---------------------------------------------------------------
CODE: MAINDEC-10-DSKCD
TITLE: DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (4)
VERSION: 0.1
DATE: MARCH 1978
REASON: ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10.
---------------------------------------------------------------
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1
DSKCDT MAC 29-Mar-78 11:46 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0012
1 ;MAINDEC-10-DSKCD
2
3 000000 MCNVER=0
4 000001 DECVER=1
5
6 XLIST
7 LIST
8 LALL
9
10 NAME \MCNVER,\DECVER^
11
12 TITLE DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 ^
13
14 XALL
15
16 ;COPYRIGHT 1978
17 ;DIGITAL EQUIPMENT CORPORATION
18 ;MARLBORO, MASS. 01752
19
20 ;JOHN R. KIRCHOFF
21
22 000137 LOC 137
23 000137 000000 000001 MCNVER,,DECVER
24 NOSYM
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2
DSKCDT MAC 29-Mar-78 11:46 DIAGNOSTIC PARAMETERS SEQ 0013
25 SUBTTL DIAGNOSTIC PARAMETERS
26
27 ;OPERATOR DEFINITIONS
28
29 001000 000000 OPDEF ER1 [1B8]
30 002000 000000 OPDEF ER2 [2B8]
31 003000 000000 OPDEF ER3 [3B8]
32 004000 000000 OPDEF ER4 [4B8]
33 005000 000000 OPDEF ER5 [5B8]
34 006000 000000 OPDEF ER6 [6B8]
35 007000 000000 OPDEF ER7 [7B8]
36 010000 000000 OPDEF ER10 [10B8]
37 011000 000000 OPDEF ER11 [11B8]
38 012000 000000 OPDEF ER12 [12B8]
39 013000 000000 OPDEF ER13 [13B8]
40
41 043140 LUUO1==ERRMES
42 043140 LUUO2==ERRMES
43 043140 LUUO3==ERRMES
44 043140 LUUO4==ERRMES
45 043140 LUUO5==ERRMES
46 043140 LUUO6==ERRMES
47 043140 LUUO7==ERRMES
48 043140 LUUO10==ERRMES
49 043140 LUUO11==ERRMES
50 043140 LUUO12==ERRMES
51 043140 LUUO13==ERRMES
52
53 ;SUBROUTINE ASSEMBLY DEFINITIONS
54
55 000100 DEBUG=100
56 000001 EXCASB=1
57 000001 USRASB=1
58 000001 PGMEND=1
59 000001 ERDIAG=1
60 000001 EROLD=1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3
DSKCDT MAC 29-Mar-78 11:46 DIAGNOSTIC PARAMETERS SEQ 0014
61 ;MACROS
62
63 DEFINE SAVEAC (A,B)<
64 MOVEI AC+2,.
65 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
66 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
67 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION>
68
69 ;BEGIN ASSEMBLY PARAMETERS
70
71 030000 SADR1=BEGIN
72 030076 SADR2=RESRT1
73 030600 SADR3=RENTR1
74 030007 SADR4=SRTDDT
75 030061 SADR5=$BEND2
76 030000 SADR6=BEGIN
77 254200 030000 SADR7=HALT BEGIN
78 254200 030000 SADR8=HALT BEGIN
79 254200 030000 SADR9=HALT BEGIN
80 254200 030000 SADR10=HALT BEGIN
81 254200 030000 SADR11=HALT BEGIN
82
83 000000 PAREA1=0
84 000000 PAREA2=0
85 446353 434400 PAREA3=SIXBIT/DSKCD/
86 546064 000000 PAREA4=SIXBIT/LPT/
87 000000 PAREA5=0
88 000000 PAREA6=0
89
90 000001 ITERAT=1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4
DSKCDT MAC 29-Mar-78 11:46 DIAGNOSTIC PARAMETERS SEQ 0015
91 DEFINE DMVE (L,A,B,C,D) <
92 ;THIS MACRO TESTS THE DMOVE INSTRUCTION
93 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
94 ;THEN, THE DATA SPECIFIED BY [XWD A,B] AND [XWD C,D] IS MOVED
95 ;FROM MEMORY TO AC, AC+1 VIA THE DMOVE INSTRUCTION.
96 ;C(AC) AND C(AC+1) ARE THEN COMPARED WITH THE TEST WORDS
97 ;[XWD A,B] AND [XWD C,D], RESPECTIVELY. THE TEST PASSES IF THESE
98 ;COMPARISONS AGREE.
99
100 Q'L'0: MOVE AC+5,[XWD A,B] ;INITIALIZE TEST WORDS
101 MOVE AC+6,[XWD C,D] ;FOR COMPARISON
102 MOVE AC,[XWD 707070,707070]
103 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1
104 DMOVE AC,[XWD A,B ;*MOVE DOUBLE WORD A,B ; C,D
105 XWD C,D] ;FROM MEMORY TO AC, AC+1
106 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
107 ER3 AC,L'1 ;FAIL IF CONTENTS(AC) NOT = A,B
108 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
109 ER4 AC+1,L'2 ;FAIL IF CONTENTS(AC+1) NOT = C,D
110 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH>
111
112
113 DEFINE DMVE17 (L,T,A,B,C,D) <
114 ;THIS MACRO TESTS THE DMOVE INSTRUCTION
115 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
116 ;THEN, THE DATA SPECIFIED BY [XWD A,B] AND [XWD C,D] IS MOVED
117 ;FROM MEMORY TO AC, AC+1 VIA THE DMOVE INSTRUCTION.
118 ;C(AC) AND C(AC+1) ARE THEN COMPARED WITH THE TEST
119 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY.
120 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
121
122 Q'T'0: MOVEM AC,%SV17# ;SAVE AC17
123 Q'L'0: MOVE AC+5,[XWD A,B] ;INITIALIZE TEST WORDS
124 MOVE AC+6,[XWD C,D] ;FOR COMPARISON
125 MOVE AC,[XWD 707070,707070]
126 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1
127 DMOVE AC,[XWD A,B ;*MOVE DOUBLE WORD A,B ; C,D
128 XWD C,D] ;FROM MEMORY TO AC, AC+1
129 Q'T'3: CAMN AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
130 JRST .+4 ;HERE IF NO ERROR
131 MOVEM AC,AC-1 ;STORE INCORRECT RESULTS
132 MOVE AC,%SV17 ;RESTORE P
133 ER3 AC-1,L'1 ;FAIL IF CONTENTS(AC) NOT = A,B
134 CAMN AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
135 JRST .+4 ;HERE IF NO ERROR
136 MOVEM AC+1,AC-1 ;STORE INCORRECT WORD
137 MOVE AC,%SV17 ;RESTORE P
138 ER4 AC-1,L'2
139 MOVE AC,%SV17 ;RESTORE AC UNCONDITIONALLY
140 JUMPL SAC,Q'T'0 ;LOOP ON ERROR SWITCH>
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5
DSKCDT MAC 29-Mar-78 11:46 DIAGNOSTIC PARAMETERS SEQ 0016
141 DEFINE DMVN (L,A,B,C,D) <
142 ;THIS MACRO TESTS THE DMOVN INSTRUCTION
143 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
144 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
145 ;[XWD A,B] AND [XWD C,D] IS MOVED FROM MEMORY TO AC, AC+1 VIA
146 ;THE DMOVN INSTRUCTION. C(AC) AND C(AC+1) ARE THEN COMPARED
147 ;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST
148 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY.
149 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
150
151 Q'L'0: DMOVE AC,[XWD 707070,707070
152 XWD 070707,070707] ;INITIALIZE AC,AC+1
153 SETCM AC+5,[XWD A,B] ;INITIALIZE TEST WORDS FOR COMPARISON
154 IFIDN <C,D><0,0>,<
155 SETZ AC+6,
156 ADDI AC+5,1 >
157 IFIDN <C,D><400000,0>,<
158 SETZ AC+6,
159 ADDI AC+5,1 >
160 IFDIF <C,D><0,0>,<
161 IFDIF <C,D><400000,0>,<
162 MOVN AC+6,[XWD C,D]
163 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >>
164 DMOVN AC,[XWD A,B ;*MOVE NEGATIVE OF DOUBLE WORD A,B ;
165 XWD C,D] ;C,D FROM MEMORY TO AC, AC+1
166 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
167 ER3 AC,L'1 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF A,B
168 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
169 ER4 AC+1,L'2 ;FAIL IF CONTENTS(AC+1) NOT = MINUS C,D
170 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH>
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6
DSKCDT MAC 29-Mar-78 11:46 DIAGNOSTIC PARAMETERS SEQ 0017
171 DEFINE DMVN17 (L,A,B,C,D) <
172 ;THIS MACRO TESTS THE DMOVN INSTRUCTION
173 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
174 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
175 ;[XWD A,B] AND [XWD C,D] IS MOVED FROM MEMORY TO AC, AC+1 VIA
176 ;THE DMOVN INSTRUCTION. C(AC) AND C(AC+1) ARE THEN COMPARED
177 ;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST
178 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY.
179 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
180
181 Q'L'0: MOVEM AC,%SV17 ;SAVE P
182 DMOVE AC,[XWD 707070,707070
183 XWD 070707,070707] ;INITIALIZE AC,AC+1
184 SETCM AC+5,[XWD A,B] ;INITIALIZE TEST WORDS FOR COMPARISON
185 IFIDN <C,D><0,0>,<
186 SETZ AC+6,
187 ADDI AC+5,1 >
188 IFIDN <C,D><400000,0>,<
189 SETZ AC+6,
190 ADDI AC+5,1 >
191 IFDIF <C,D><0,0>,<
192 IFDIF <C,D><400000,0>,<
193 MOVN AC+6,[XWD C,D]
194 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >>
195 DMOVN AC,[XWD A,B ;*MOVE NEGATIVE OF DOUBLE WORD A,B ;
196 XWD C,D] ;C,D FROM MEMORY TO AC, AC+1
197 CAMN AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
198 JRST .+4 ;HERE IF TESTS OK
199 MOVEM AC,AC-1 ;SAVE BAD WORD
200 MOVE AC,%SV17 ;RESTORE P
201 ER3 AC-1,L'1 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF A,B
202 CAMN AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
203 JRST .+4 ;HERE IF TESTS OK
204 MOVEM AC,AC-1
205 MOVE AC,%SV17 ;RESTORE P
206 ER4 AC+1,L'2 ;FAIL IF CONTENTS(AC+1) NOT = MINUS C,D
207 MOVE AC,%SV17 ;RESTORE P UNCODITIONALLY
208 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH>
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7
DSKCDT MAC 29-Mar-78 11:46 DIAGNOSTIC PARAMETERS SEQ 0018
209 DEFINE DMVNF (L,A,B,C,D,KSEF,KSUF,KLEF,KLUF) <
210 ;**KS10**
211 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
212 ;OR CARRY FLAGS ON THE KS10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
213 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
214 ;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
215
216 ;**KL10**
217 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
218 ;OR CARRY FLAGS ON THE KL10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
219 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
220 ;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
221
222 Q'L'0: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS
223 DMOVN AC+1,[XWD A,B ;*DMOVN TEST
224 XWD C,D]
225 JSP AC,.+1 ;READ FLAGS
226 Q'L'1: TLZ AC,027777 ;CLEAR EXTRA JUNK
227 TLNE AC,USERF ;IN USER MODE ?
228 JRST Q'L'4 ;YES
229 SKIPN SM10 ;KL10 ?
230 JRST Q'L'3 ;YES
231 ;KS10 EXEC MODE
232 CAME AC,[KSEF,,Q'L'1]
233 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET
234 Q'L'2: JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH
235 JRST Q'L'6
236 ;KL10 EXEC MODE
237 Q'L'3: CAME AC,[KLEF,,Q'L'1]
238 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET
239 JRST Q'L'2
240 ;KL10/KS10 USER MODE
241 Q'L'4: SKIPN SM10 ;KL10 ?
242 JRST Q'L'5 ;YES
243 ;KS10 USER MODE
244 CAME AC,[KSUF,,Q'L'1]
245 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET
246 JRST Q'L'2
247 ;KL10 USER MODE
248 Q'L'5: CAME AC,[KLUF,,Q'L'1]
249 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET
250 JRST Q'L'2
251
252 Q'L'6: JRST .+1>
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8
DSKCDT MAC 29-Mar-78 11:46 DIAGNOSTIC PARAMETERS SEQ 0019
253 DEFINE DMVM (L,A,B,C,D) <
254 ;THIS MACRO TESTS THE DMOVEM INSTRUCTION
255 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
256 ;TEST WORDS AND AC,AC+1 ARE LOADED WITH THE TEST WORDS.
257 ;THEN, THE DATA SPECIFIED BY [XWD A,B] AND [XWD C,D] IS MOVED
258 ;FROM AC, AC+1 TO MEMORY (TSTWD, TSTWD+1) VIA
259 ;THE DMOVEM INSTRUCTION. C(TSTWD) AND C(TSTWD+1) ARE THEN
260 ;COMPARED WITH THE TEST WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY.
261 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
262
263 Q'L'0: DMOVE AC,[XWD 707070,707070
264 XWD 070707,070707] ;INITIALIZE TEST WORDS
265 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST
266 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM
267 DMOVE AC,[XWD A,B
268 XWD C,D] ;INITIALIZE AC,AC+1
269 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1
270 ;TO MEMORY (TSTWD, TSTWD+1)
271 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON
272 CAME AC,[XWD A,B] ;WAS TSTWD LOADED CORRECTLY?
273 ER5 AC,L'1 ;FAIL IF CONTENTS(TSTWD) NOT = A,B
274 CAME AC+1,[XWD C,D] ;WAS TSTWD+1 LOADED CORRECTLY?
275 ER6 AC+1,L'2 ;FAIL IF CONTENTS(TSTWD+1) NOT = C,D
276 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH>
277
278 DEFINE DMVNM (L,A,B,C,D) <
279 ;THIS MACRO TESTS THE DMOVNM INSTRUCTION
280 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
281 ;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS.
282 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
283 ;[XWD A,B] AND [XWD C,D] IS MOVED FROM AC, AC+1 TO MEMORY
284 ;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION.
285 ;C(TSTWD) AND C(TSTWD+1) ARE THEN COMPARED WITH THE
286 ;NEGATIVE (TWOS COMPLEMENT) OF THE TEST
287 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY.
288 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
289
290 Q'L'0: DMOVE AC,[XWD 707070,707070
291 XWD 070707,070707]
292 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS
293 DMOVE AC,[XWD A,B
294 XWD C,D] ;INITIALIZE AC,AC+1
295 DMOVN AC+5,[XWD A,B
296 XWD C,D] ;SET-UP TO CHECK RESULTS
297 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
298 ;TO MEMORY (TSTWD, TSTWD+1)
299 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1
300 CAME AC,<AC+5>&17 ;WAS TSTWD LOADED CORRECTLY?
301 ER5 AC,L'1 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF A,B
302 CAME AC+1,<AC+6>&17 ;WAS TSTWD+1 LOADED CORRECTLY?
303 ER6 AC+1,L'2 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS C,D
304 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH>
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9
DSKCDT MAC 29-Mar-78 11:46 DIAGNOSTIC PARAMETERS SEQ 0020
305 DEFINE DMVM17 (L,A,B,C,D) <
306 ;THIS MACRO TESTS THE DMOVEM INSTRUCTION
307 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
308 ;TEST WORDS AND AC,AC+1 ARE LOADED WITH THE TEST WORDS.
309 ;THEN, THE DATA SPECIFIED BY [XWD A,B] AND [XWD C,D] IS MOVED
310 ;FROM AC, AC+1 TO MEMORY (TSTWD, TSTWD+1) VIA THE DMOVEM INSTRUCTION.
311 ;C(TSTWD) AND C(TSTWD+1) ARE THEN COMPARED WITH THE TEST
312 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY.
313 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
314
315 Q'L'0: MOVEM AC,%SV17 ;SAVE AC17 CAUSE IT HAS PDP
316 DMOVE AC,[XWD 707070,707070
317 XWD 070707,070707] ;INITIALIZE TEST WORDS
318 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST
319 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM
320 DMOVE AC,[XWD A,B
321 XWD C,D] ;INITIALIZE AC,AC+1
322 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1
323 ;TO MEMORY (TSTWD, TSTWD+1)
324 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON
325 CAMN AC,[XWD A,B] ;WAS TSTWD LOADED CORRECTLY?
326 JRST .+4 ;HERE IF TESTS OK
327 MOVEM AC,AC-1 ;SAVE BAD WORD
328 MOVE AC,%SV17 ;RESTORE P
329 ER5 AC-1,L'1 ;FAIL IF CONTENTS(TSTWD) NOT = A,B
330 CAMN AC+1,[XWD C,D] ;WAS TSTWD+1 LOADED CORRECTLY?
331 JRST .+4 ;HERE IF TESTS OK
332 MOVEM AC,AC-1 ;SAVE BAD WORD
333 MOVE AC,%SV17 ;RESTORE P
334 ER6 AC+1,L'2 ;FAIL IF CONTENTS(TSTWD+1) NOT = C,D
335 MOVE AC,%SV17 ;RESTORE AC UNCONDITIONALLY
336 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH>
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10
DSKCDT MAC 29-Mar-78 11:46 DIAGNOSTIC PARAMETERS SEQ 0021
337 DEFINE DMVNM17 (L,A,B,C,D) <
338 ;THIS MACRO TESTS THE DMOVNM INSTRUCTION
339 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
340 ;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS.
341 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
342 ;[XWD A,B] AND [XWD C,D] IS MOVED FROM AC, AC+1 TO MEMORY
343 ;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION.
344 ;C(TSTWD) AND C(TSTWD+1) ARE THEN COMPARED WITH THE
345 ;NEGATIVE (TWOS COMPLEMENT) OF THE TEST
346 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY.
347 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
348
349 Q'L'0: DMOVE AC,[XWD 707070,707070
350 XWD 070707,070707]
351 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS
352 DMOVE AC,[XWD A,B
353 XWD C,D] ;INITIALIZE AC,AC+1
354 DMOVN AC+5,[XWD A,B
355 XWD C,D] ;SET-UP TO CHECK RESULTS
356 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
357 ;TO MEMORY (TSTWD, TSTWD+1)
358
359 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1
360 CAMN AC,<AC+5>&17 ;WAS TSTWD LOADED CORRECTLY?
361 JRST .+4
362 MOVEM AC,AC-1 ;SAVE BAD WORD
363 MOVE AC,%SV17 ;RESTORE P
364 ER5 AC-1,L'1 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF A,B
365 CAMN AC+1,<AC+6>&17 ;WAS TSTWD+1 LOADED CORRECTLY?
366 JRST .+4 ;HERE IF TESTS OK
367 MOVEM AC,AC-1 ;SAVE BAD WORD
368 MOVE AC,%SV17
369 ER6 AC+1,L'2 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS C,D
370 MOVE AC,%SV17
371 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH>
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11
DSKCDT MAC 29-Mar-78 11:46 DIAGNOSTIC PARAMETERS SEQ 0022
372 DEFINE DMVNMF (L,A,B,C,D,KSEF,KSUF,KLEF,KLUF) <
373 ;**KS10**
374 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
375 ;OR CARRY FLAGS ON THE KS10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
376 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
377 ;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
378
379 ;**KL10**
380 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
381 ;OR CARRY FLAGS ON THE KL10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
382 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
383 ;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
384
385 Q'L'0: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS
386 DMOVE AC,[XWD A,B
387 XWD C,D] ;SETUP INITIAL
388 DMOVNM AC,TSTWD ;*DMOVNM TEST
389 JSP AC,.+1 ;READ FLAGS
390 Q'L'1: TLZ AC,027777 ;CLEAR EXTRA JUNK
391 TLNE AC,USERF ;IN USER MODE ?
392 JRST Q'L'4 ;YES
393 SKIPN SM10 ;KL10 ?
394 JRST Q'L'3 ;YES
395 ;KS10 EXEC MODE
396 CAME AC,[KSEF,,Q'L'1]
397 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET
398 Q'L'2: JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH
399 JRST Q'L'6
400 ;KL10 EXEC MODE
401 Q'L'3: CAME AC,[KLEF,,Q'L'1]
402 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET
403 JRST Q'L'2
404 ;KL10/KS10 USER MODE
405 Q'L'4: SKIPN SM10 ;KL10 ?
406 JRST Q'L'5 ;YES
407 ;KS10 USER MODE
408 CAME AC,[KSUF,,Q'L'1]
409 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET
410 JRST Q'L'2
411 ;KL10 USER MODE
412 Q'L'5: CAME AC,[KLUF,,Q'L'1]
413 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET
414 JRST Q'L'2
415
416 Q'L'6: JRST .+1>
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12
DSKCDT MAC 29-Mar-78 11:46 DIAGNOSTIC PARAMETERS SEQ 0023
417 DEFINE DFA (T,A,B,C,D,E,F,G,H,I,M,K,L) <
418 R'T'00: DMOVE AC,[A,,B
419 C,,D]
420 DFAD AC,[E,,F
421 G,,H]
422 CAME AC,[I,,M]
423 ER3 AC,T'01
424 CAME AC+1,[K,,L]
425 ER4 AC+1,T'01
426 JUMPL AC+4,R'T'00 ;LOOP ON ERROR SWITCH>
427
428 DEFINE DFS (T,A,B,C,D,E,F,G,H,I,M,K,L) <
429 R'T'00: DMOVE AC,[A,,B
430 C,,D]
431 DFSB AC,[E,,F
432 G,,H]
433 CAME AC,[I,,M]
434 ER3 AC,T'01
435 CAME AC+1,[K,,L]
436 ER4 AC+1,T'01
437 JUMPL AC+4,R'T'00 ;LOOP ON ERROR SWITCH>
438
439 DEFINE DFM (T,A,B,C,D,E,F,G,H,I,M,K,L) <
440 R'T'00: DMOVE AC,[A,,B
441 C,,D]
442 DFMP AC,[E,,F
443 G,,H]
444 CAME AC,[I,,M]
445 ER3 AC,T'01
446 CAME AC+1,[K,,L]
447 ER4 AC+1,T'01
448 JUMPL AC+4,R'T'00 ;LOOP ON ERROR SWITCH>
449
450 DEFINE DFD (T,A,B,C,D,E,F,G,H,I,M,K,L) <
451 R'T'00: DMOVE AC,[A,,B
452 C,,D]
453 DFDV AC,[E,,F
454 G,,H]
455 CAME AC,[I,,M]
456 ER3 AC,T'01
457 CAME AC+1,[K,,L]
458 ER4 AC+1,T'01
459 JUMPL AC+4,R'T'00 ;LOOP ON ERROR SWITCH>
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13
DSKCDT MAC 29-Mar-78 11:46 DIAGNOSTIC PARAMETERS SEQ 0024
460 DEFINE DFARP (T,A,B,C,D,E,F,G,H,I,M,K,L) <
461 DMOVE AC,[A,,B
462 C,,D]
463 DFAD AC,[E,,F
464 G,,H]
465 CAME AC,[I,,M]
466 ER3 AC,T
467 CAME AC+1,[K,,L]
468 ER4 AC+1,T
469 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH>
470
471 DEFINE SDFA (T,A,B,C,D,E,F,G,H,I,M,K,L) <
472 S'T'00: DMOVE AC,[A,,B
473 C,,D]
474 DFAD AC,[E,,F
475 G,,H]
476 CAME AC,[I,,M]
477 ER3 AC,T'01
478 CAME AC+1,[K,,L]
479 ER4 AC+1,T'01
480 JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH>
481
482 DEFINE SDFS (T,A,B,C,D,E,F,G,H,I,M,K,L) <
483 S'T'00: DMOVE AC,[A,,B
484 C,,D]
485 DFSB AC,[E,,F
486 G,,H]
487 CAME AC,[I,,M]
488 ER3 AC,T'01
489 CAME AC+1,[K,,L]
490 ER4 AC+1,T'01
491 JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH>
492
493 DEFINE SDFM (T,A,B,C,D,E,F,G,H,I,M,K,L) <
494 S'T'00: DMOVE AC,[A,,B
495 C,,D]
496 DFMP AC,[E,,F
497 G,,H]
498 CAME AC,[I,,M]
499 ER3 AC,T'01
500 CAME AC+1,[K,,L]
501 ER4 AC+1,T'01
502 JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH>
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 14
DSKCDT MAC 29-Mar-78 11:46 DIAGNOSTIC PARAMETERS SEQ 0025
503 DEFINE SDFMKL (T,A,B,C,D,E,F,G,H,I,M,K,L,KL1,KL2,KL3,KL4) <
504 S'T'00: DMOVE AC,[A,,B
505 C,,D]
506 DFMP AC,[E,,F
507 G,,H]
508 SKIPE KLFLG
509 JRST S'T'05
510 CAME AC,[I,,M]
511 ER3 AC,T'01
512 CAME AC+1,[K,,L]
513 ER4 AC+1,T'01
514 S'T'06: JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH
515 JRST S'T'07
516
517 S'T'05: CAME AC,[KL1,,KL2]
518 ER3 AC,T'01
519 CAME AC+1,[KL3,,KL4]
520 ER4 AC+1,T'01
521 JRST S'T'06
522
523 S'T'07: JRST .+1 >
524
525 DEFINE SDFD (T,A,B,C,D,E,F,G,H,I,M,K,L) <
526 S'T'00: DMOVE AC,[A,,B
527 C,,D]
528 DFDV AC,[E,,F
529 G,,H]
530 CAME AC,[I,,M]
531 ER3 AC,T'01
532 CAME AC+1,[K,,L]
533 ER4 AC+1,T'01
534 JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH>
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 15
DSKCDT MAC 29-Mar-78 11:46 DIAGNOSTIC PARAMETERS SEQ 0026
535 DEFINE SDFDKL (T,A,B,C,D,E,F,G,H,I,M,K,L,KL1,KL2,KL3,KL4) <
536 S'T'00: DMOVE AC,[A,,B
537 C,,D]
538 DFDV AC,[E,,F
539 G,,H]
540 SKIPN SM10
541 JRST S'T'05
542 CAME AC,[I,,M]
543 ER3 AC,T'01
544 CAME AC+1,[K,,L]
545 ER4 AC+1,T'01
546 S'T'06: JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH
547 JRST S'T'07
548
549 S'T'05: CAME AC,[KL1,,KL2]
550 ER3 AC,T'01
551 CAME AC+1,[KL3,,KL4]
552 ER4 AC+1,T'01
553 JRST S'T'06
554
555 S'T'07: JRST .+1 >
556
557 DEFINE SDFARP (T,A,B,C,D,E,F,G,H,I,M,K,L) <
558 DMOVE AC,[A,,B
559 C,,D]
560 DFAD AC,[E,,F
561 G,,H]
562 CAME AC,[I,,M]
563 ER3 AC,T
564 CAME AC+1,[K,,L]
565 ER4 AC+1,T
566 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH>
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1
PARAM KSM 28-Mar-78 11:27 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0027
567 SUBTTL CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978
568
569 DEFINE S,<;*********************************************************************>
570
571 S^;*********************************************************************^
572 ;*DATA SWITCHES
573 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
574 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
575 S^;*********************************************************************^
576
577 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION
578 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS
579 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE
580
581 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
582 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
583 010000 DING== 010000 ;RING BELL ON ERROR
584
585 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR
586 002000 ERSTOP==002000 ;HALT ON TEST ERROR
587 001000 PALERS==001000 ;PRINT ALL ERRORS
588
589 000400 RELIAB==000400 ;RELIABILITY MODE
590 000200 TXTINH==000200 ;INHIBIT ERROR TEXT
591 000100 INHPAG==000100 ;INHIBIT PAGING
592
593 000040 MODDVC==000040 ;MODIFY DEVICE CODE
594 000020 INHCSH==000020 ;INHIBIT CACHE
595 000010 OPRSEL==000010 ;OPERATOR SELECTION
596
597 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH
598
599 ;SWITCH 16 RESERVED
600
601 ;SWITCH 17 RESERVED !!!
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0028
602 SUBTTL PROGRAM/SUBROUTINE PARAMETERS
603
604 S^;*********************************************************************^
605 ;*SPECIAL SUBPROGRAM LINKAGES
606 S^;*********************************************************************^
607
608 027772 FSELNK= 27772 ;FILE SELECT LINK
609 027773 FRDLNK= 27773 ;FILE READ LINK
610 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS
611 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS
612 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS
613 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS
614
615 S^;*********************************************************************^
616 ;*SPECIAL SUBROUTINE FATAL HALTS
617 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
618 S^;*********************************************************************^
619
620 ;ADDRESS TAG REASON
621 ;---------------------
622
623 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION
624 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR
625 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR
626 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT
627 ; 1014 SMBER ;KS-10 INTERRUPT WITHOUT DOORBELL
628 ; 1015 SMCER ;KS-10 CLOCK INTERRUPT WITHOUT FLAG SET
629 ; 1016 CPIERR ;CPU INITIALIZATION ERROR
630 ; 1017 EOPERR ;END OF PROGRAM ERROR
631 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT
632
633 S^;*********************************************************************^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0029
634 S^;*********************************************************************^
635 ;OPERATOR DEFINITIONS (NON-UUO'S)
636 S^;*********************************************************************^
637
638 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL
639 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN
640 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST
641 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST
642 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S
643 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT
644 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT
645 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT
646
647 S^;*********************************************************************^
648 ;*SUBROUTINE INITIALIZATION CALL
649 S^;*********************************************************************^
650
651 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION
652
653 S^;*********************************************************************^
654 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
655 S^;*********************************************************************^
656
657 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT
658 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT
659
660 S^;*********************************************************************^
661 ;*TERMINAL INPUT UUO'S
662 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
663 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
664 S^;*********************************************************************^
665
666 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER
667 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y
668 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N
669 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD
670 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD
671 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD
672 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK
673 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK
674 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD
675 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT
676 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0030
677 ;*TERMINAL OUTPUT UUO'S.
678
679 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD
680 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED
681 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE
682 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED
683 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE
684 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED
685 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE
686 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED
687 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE
688 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED
689 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE
690 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED
691 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER
692 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED
693 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT
694 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED
695 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS
696 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED
697 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS
698 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED
699 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS
700 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED
701 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS
702 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED
703 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS
704 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED
705 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS
706 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED
707 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS
708 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED.
709 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS
710 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED
711 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL
712 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED
713 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6
714 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
715 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S
716 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
717 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S
718 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
719 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S
720 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0031
721 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME
722 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD
723 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED
724 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE
725 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD
726 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED
727 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
728 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
729 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE
730 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED
731 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
732 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
733 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL
734
735 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE
736
737 DEFINE PMSG (ARG),<
738 PSIXM [SIXBIT\ARG'_\]>
739
740 DEFINE PMSGF (ARG),<
741 PSIXMF [SIXBIT\ARG'_\]>
742
743 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
744 ;* CONSERVES CORE OVER ASCIZ
745
746 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]>
747
748 ;*CONSOLE SWITCH INPUT UUO.
749 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
750 ;* USER MODE.
751
752 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES
753
754 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
755 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
756
757 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - CLOCK
758 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - METER
759
760 ;*KS-10 CACHE OPERATION UUO'S
761
762 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE
763 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH
764 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0032
765 ;*END OF PASS/PROGRAM UUOS
766
767 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
768 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
769
770 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS
771 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO
772
773 ;*MEMORY MANAGEMENT UUO'S
774 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
775 ;*ADDRESS CONVERSION, ETC...
776
777 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY
778 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY
779 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT
780 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT
781 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK
782 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP
783 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP
784
785 ;*DEVICE CODE MODIFICATION UUO
786 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
787 ;*IOT'S TO A DIFFERENT DEVICE CODE.
788
789 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER
790 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM
791
792 030000 IFNDEF MODDVL,<MODDVL==BEGIN>
793 030000 IFNDEF MODDVU,<MODDVU==BEGIN>
794
795 ;*"DIAMON" FILE SELECTION AND READ UUOS
796
797 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION
798 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA
799 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA
800 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA
801
802 XLIST
803 LIST
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0033
804 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978
805
806 030000 LOC 30000
807
808 S^;*********************************************************************^
809 ;*PROGRAM STARTING ADDRESSES
810 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
811 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
812 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
813 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
814 S^;*********************************************************************^
815
816 030000 254 00 1 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START
817 030001 254 00 0 00 030617 $START: JRST START ;MODE CHECK STARTING ADDRESS
818
819 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START
820
821 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START
822
823 030004 254 00 0 00 030000 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START
824
825 030005 254 00 0 00 030076 PFSTRT: JRST SADR2 ;POWER FAIL RESTART
826
827 030006 254 00 0 00 030600 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY)
828
829 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT"
830 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START
831
832 030010 254 00 0 00 030622 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE)
833 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE
834 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE
835
836 030013 254200 030000 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS
837 030014 254200 030000 START2: SADR8 ; "
838 030015 254200 030000 START3: SADR9 ; "
839 030016 254200 030000 START4: SADR10 ; "
840 030017 254200 030000 START5: SADR11 ; "
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0034
841 S^;*********************************************************************^
842 ;*PROGRAM FIXED PARAMETER AREA
843 S^;*********************************************************************^
844
845 030020 446353 434400 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME
846 030021 546064 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION
847 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER
848 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES
849 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS
850 030025 000000 030602 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME
851 030026 000000 000001 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL
852 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT
853 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT
854 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED
855 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED
856 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE
857 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS
858 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER
859 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER
860
861 S^;*********************************************************************^
862 ;*PROGRAM VARIABLE PARAMETER AREA
863 S^;*********************************************************************^
864
865 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG
866 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10
867 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
868 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG
869 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG
870 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10
871 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG
872 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS
873 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT
874 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG
875 030051 000000 000000 TESTPC: 0 ;SUBTEST PC
876 030052 000000 000000 ERRPC: 0 ;ERROR PC
877 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS
878 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME
879 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE
880 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0035
881 S^;*********************************************************************^
882 ;*SPECIAL PROGRAM DISPATCH ADDRESSES
883 S^;*********************************************************************^
884
885 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS
886 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM
887 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN
888 030062 000000 030061 CNTLC: SADR5 ;CONTROL C XFER ADDRESS
889 030063 000000 030000 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS
890 030064 CPOPJ1: ;SKIP RETURN
891 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO
892 030065 CPOPJ: ;NON-SKIP REGULAR RETURN
893 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN
894 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE
895 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE
896 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX)
897 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE
898 030072 255 00 0 00 000000 $ITRX1: JFCL ; "
899 030073 255 00 0 00 000000 $USRHL: JFCL ; "
900 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE
901 030075 255 00 0 00 000000 $RSRTY: JFCL ; "
902 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX)
903 030077 255 00 0 00 000000 RESRT2: JFCL ; "
904 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE
905 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE
906 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT
907
908 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR)
909 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT
910 030105 000000 000000 0 ;INITED AS (JRST $ITRC1)
911
912 S^;*********************************************************************^
913 ;*PROCESSOR CONTROL STORAGE
914 S^;*********************************************************************^
915
916 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0
917 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI
918 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR
919 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI)
920 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI)
921
922 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO
923 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO
924
925 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS
926 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG
927 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG
928 030120 000000 000000 %COREC: 0 ; " CORRECT DATA
929 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG
930 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA
931 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0036
932 S^;*********************************************************************^
933 ;*UUO DISPATCH TABLE
934 S^;*********************************************************************^
935 XLIST
936 LIST
937 030124 043140 030070 UUODIS: LUUO1,,$UUOER
938 030125 043140 043140 LUUO3,,LUUO2
939 030126 043140 043140 LUUO5,,LUUO4
940 030127 043140 043140 LUUO7,,LUUO6
941 030130 043140 043140 LUUO11,,LUUO10
942 030131 043140 043140 LUUO13,,LUUO12
943 030132 030070 030070 LUUO15,,LUUO14
944 030133 030070 030070 LUUO17,,LUUO16
945 030134 030070 030070 LUUO21,,LUUO20
946 030135 030070 030070 LUUO23,,LUUO22
947 030136 030070 030070 LUUO25,,LUUO24
948 030137 030070 030070 LUUO27,,LUUO26
949 030140 030070 030070 LUUO31,,LUUO30
950 030141 030070 030070 LUUO33,,LUUO32
951
952 S^;*********************************************************************^
953 ;*MEMORY MANAGMENT STORAGE
954 S^;*********************************************************************^
955
956 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
957 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
958 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.)
959 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY
960 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE
961
962 S^;*********************************************************************^
963 ;*PRINT CONTROL STORAGE
964 S^;*********************************************************************^
965
966 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
967 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE
968 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG
969 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS
970 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL
971 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME
972 030225 000000 000000 $TWCNT: 0 ;TIME WAITED
973 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG
974 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG
975 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE
976 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR
977 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR
978 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER
979 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG
980 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG
981 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG
982 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG
983 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS
984 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0037
985 S^;*********************************************************************^
986 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
987 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
988 ;* MOVEI NAME
989 ;* PNTA ;OR PNTAF
990 S^;*********************************************************************^
991
992 030242 CRLF: ASCII/
993 030242 015 012 000 000 000 /
994 030243 CRLF2: ASCII/
995
996 030243 015 012 015 012 000 /
997 030244 054 000 000 000 000 COMMA: ASCII/,/
998 030245 056 000 000 000 000 PERIOD: ASCII/./
999 030246 040 000 000 000 000 SPACE: ASCII/ /
1000 030247 011 000 000 000 000 TAB: ASCII/ /
1001 030250 MINUS:
1002 030250 055 000 000 000 000 HYPEN: ASCII/-/
1003 030251 053 000 000 000 000 PLUS: ASCII/+/
1004 030252 052 000 000 000 000 AST: ASCII/*/
1005 030253 100 000 000 000 000 ATSIN: ASCII/@/
1006 030254 050 000 000 000 000 LFP: ASCII/(/
1007 030255 051 000 000 000 000 RTP: ASCII/)/
1008 030256 007 0000000000 BELL: BYTE (7) 007
1009 030257 077 000 000 000 000 QUEST: ASCII/?/
1010 030260 057 000 000 000 000 SLASH: ASCII!/!
1011 030261 044 000 000 000 000 DOLLAR: ASCII/$/
1012 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX
1013 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR
1014 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT
1015
1016 S^;*********************************************************************^
1017 ;*USER MODE OUTPUT FILE INFORMATION
1018 S^;*********************************************************************^
1019
1020 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER
1021 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME
1022 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION
1023 030272 BLOCK 2
1024
1025 S^;*********************************************************************^
1026 ;*DISK UPDATE MODE FILE INFORMATION
1027 S^;*********************************************************************^
1028
1029 030274 $IBUF: BLOCK 3
1030 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/
1031 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/
1032 030301 BLOCK 2
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0038
1033 S^;*********************************************************************^
1034 ;*PUSHDOWN LIST CONTROL INFORMATION
1035 S^;*********************************************************************^
1036
1037 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST
1038 030304 PLISTS: BLOCK 200
1039 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST
1040
1041 S^;*********************************************************************^
1042 ;*POWER LINE CLOCK FREQUENCY FLAG
1043 S^;*********************************************************************^
1044
1045 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE
1046
1047 S^;*********************************************************************^
1048 ;*KL10 CACHE CONTROL FLAGS
1049 S^;*********************************************************************^
1050
1051 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0
1052 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0
1053
1054 S^;*********************************************************************^
1055 ;*NUMBER INPUT DIGIT FLAG
1056 S^;*********************************************************************^
1057
1058 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED
1059
1060 S^;*********************************************************************^
1061 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
1062 S^;*********************************************************************^
1063
1064 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
1065
1066 S^;*********************************************************************^
1067 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
1068 S^;*********************************************************************^
1069
1070 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO
1071 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO
1072 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
1073
1074 S^;*********************************************************************^
1075 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION
1076 S^;*********************************************************************^
1077
1078 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0039
1079 S^;*********************************************************************^
1080 ;*USER MODE MONITOR TYPE FLAG
1081 S^;*********************************************************************^
1082
1083 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20
1084
1085 S^;*********************************************************************^
1086 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION
1087 S^;*********************************************************************^
1088
1089 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER
1090
1091 S^;*********************************************************************^
1092 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
1093 S^;*********************************************************************^
1094
1095 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
1096
1097 S^;*********************************************************************^
1098 ;*"SWITCH" CALL USAGE CONTROL
1099 S^;*********************************************************************^
1100
1101 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
1102
1103 S^;*********************************************************************^
1104 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
1105 S^;*********************************************************************^
1106
1107 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
1108 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
1109
1110 S^;*********************************************************************^
1111 ;*SM10 (KS-10) PROCESSOR TYPE FLAG
1112 S^;*********************************************************************^
1113
1114 030524 000000 000000 SM10: 0 ;IF -1 THIS IS AN KS-10
1115
1116 S^;*********************************************************************^
1117 ;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS
1118 S^;*********************************************************************^
1119
1120 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE
1121
1122 S^;*********************************************************************^
1123 ;*SPECIAL FUTURE EXPANSION ROOM
1124 S^;*********************************************************************^
1125
1126 S^;*********************************************************************^
1127 ;*END OF FIXED STORAGE
1128 S^;*********************************************************************^
1129
1130 030577 LOC 30577
1131 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1
DSKCD1 MAC 29-Mar-78 11:46 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0040
1132 030600 037 05 0 00 000002 RENTR1: DROPDV ;CLOSE LOGICAL OUTPUT FILE
1133 030601 040 00 0 00 043326 CALL [SIXBIT .EXIT.]
1134
1135 030602 PGMNAM: ASCIZ?
1136 030602 015 012 104 105 103 DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4 (DSKCD)
1137 030603 123 131 123 124 105
1138 030604 115 040 062 060 062
1139 030605 060 040 101 104 126
1140 030606 101 116 103 105 104
1141 030607 040 111 116 123 124
1142 030610 122 125 103 124 111
1143 030611 117 116 040 104 111
1144 030612 101 107 116 117 123
1145 030613 124 111 103 040 043
1146 030614 064 040 050 104 123
1147 030615 113 103 104 051 015
1148 030616 012 000 000 000 000 ?
1149 ;INITIALIZE SUBROUTINES
1150
1151 030617 265 00 0 00 030011 START: PGMINT
1152 030620 200 00 0 00 043327 MOVE [ASCIZ/CD/]
1153 030621 202 00 0 00 043247 MOVEM TLET ;INITIALIZE TEST LETTER
1154
1155 030622 254 00 0 00 030623 STARTA: JRST .+1 ;GO PERFORM DIAGNOSTIC
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0041
1156 SUBTTL TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS
1157
1158 DEFINE SAVEAC (A,B)<
1159 MOVEI AC+4,.
1160 MOVEM AC+4,TESTPC ;SETUP SUBTEST PC
1161 MOVEI AC+4,<AC+4>&17 ;INFORM ERROR ROUTINE WHICH
1162 MOVEM AC+4,ERRLOP# ;AC IS USED FOR ITERATION>
1163
1164 000004 AC=4
1165 030623 CD00: SAVEAC (1,1)^
1166 030623 201 10 0 00 030623 MOVEI AC+4,.
1167 030624 202 10 0 00 030051 MOVEM AC+4,TESTPC ;SETUP SUBTEST PC
1168 030625 201 10 0 00 000010 MOVEI AC+4,<AC+4>&17 ;INFORM ERROR ROUTINE WHICH
1169 030626 202 10 0 00 044673 MOVEM AC+4,ERRLOP# ;AC IS USED FOR ITERATION^
1170
1171 ;ADD A WORD OF ALL ZEROS TO A WORD OF ALL ZEROS
1172 DFA 1,0,0,0,0,0,0,0,0,0,0,0,0^
1173 R100: DMOVE AC,[0,,0
1174 030627 120 04 0 00 043330 0,,0]
1175 DFAD AC,[0,,0
1176 030630 110 04 0 00 043330 0,,0]
1177 030631 312 04 0 00 043330 CAME AC,[0,,0]
1178 030632 003 04 0 00 000101 ER3 AC,101
1179 030633 312 05 0 00 043330 CAME AC+1,[0,,0]
1180 030634 004 05 0 00 000101 ER4 AC+1,101
1181 030635 321 10 0 00 030627 JUMPL AC+4,R100 ;LOOP ON ERROR SWITCH^
1182 PAGE
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-1
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0042
1183 ;RIPPLE ONES TESTS (TO A WORD OF ALL ZEROS, ADD A RIPPLED ONE)
1184 000200 T=200
1185 001000 XX=1000
1186 201400 ZZ=201400
1187
1188 R200: REPEAT ^D9,
1189 <T=T+1
1190 XX=XX/2
1191 ZZ=ZZ-1000
1192 DFARP T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0
1193 >
1194 000201 T=T+1
1195 000400 XX=XX/2
1196 200400 ZZ=ZZ-1000
1197 DFARP T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
1198 DMOVE AC,[200000,,0
1199 030636 120 04 0 00 043332 0,,0]
1200 DFAD AC,[200000+XX,,0
1201 030637 110 04 0 00 043334 0,,0]
1202 030640 312 04 0 00 043334 CAME AC,[ZZ,,0]
1203 030641 003 04 0 00 000201 ER3 AC,T
1204 030642 312 05 0 00 043330 CAME AC+1,[0,,0]
1205 030643 004 05 0 00 000201 ER4 AC+1,T
1206 030644 321 10 0 00 030636 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1207
1208 000202 T=T+1
1209 000200 XX=XX/2
1210 177400 ZZ=ZZ-1000
1211 DFARP T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
1212 DMOVE AC,[200000,,0
1213 030645 120 04 0 00 043332 0,,0]
1214 DFAD AC,[200000+XX,,0
1215 030646 110 04 0 00 043336 0,,0]
1216 030647 312 04 0 00 043340 CAME AC,[ZZ,,0]
1217 030650 003 04 0 00 000202 ER3 AC,T
1218 030651 312 05 0 00 043330 CAME AC+1,[0,,0]
1219 030652 004 05 0 00 000202 ER4 AC+1,T
1220 030653 321 10 0 00 030645 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1221
1222 000203 T=T+1
1223 000100 XX=XX/2
1224 176400 ZZ=ZZ-1000
1225 DFARP T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
1226 DMOVE AC,[200000,,0
1227 030654 120 04 0 00 043332 0,,0]
1228 DFAD AC,[200000+XX,,0
1229 030655 110 04 0 00 043341 0,,0]
1230 030656 312 04 0 00 043343 CAME AC,[ZZ,,0]
1231 030657 003 04 0 00 000203 ER3 AC,T
1232 030660 312 05 0 00 043330 CAME AC+1,[0,,0]
1233 030661 004 05 0 00 000203 ER4 AC+1,T
1234 030662 321 10 0 00 030654 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1235
1236 000204 T=T+1
1237 000040 XX=XX/2
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-2
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0043
1238 175400 ZZ=ZZ-1000
1239 DFARP T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
1240 DMOVE AC,[200000,,0
1241 030663 120 04 0 00 043332 0,,0]
1242 DFAD AC,[200000+XX,,0
1243 030664 110 04 0 00 043344 0,,0]
1244 030665 312 04 0 00 043346 CAME AC,[ZZ,,0]
1245 030666 003 04 0 00 000204 ER3 AC,T
1246 030667 312 05 0 00 043330 CAME AC+1,[0,,0]
1247 030670 004 05 0 00 000204 ER4 AC+1,T
1248 030671 321 10 0 00 030663 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1249
1250 000205 T=T+1
1251 000020 XX=XX/2
1252 174400 ZZ=ZZ-1000
1253 DFARP T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
1254 DMOVE AC,[200000,,0
1255 030672 120 04 0 00 043332 0,,0]
1256 DFAD AC,[200000+XX,,0
1257 030673 110 04 0 00 043347 0,,0]
1258 030674 312 04 0 00 043351 CAME AC,[ZZ,,0]
1259 030675 003 04 0 00 000205 ER3 AC,T
1260 030676 312 05 0 00 043330 CAME AC+1,[0,,0]
1261 030677 004 05 0 00 000205 ER4 AC+1,T
1262 030700 321 10 0 00 030672 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1263
1264 000206 T=T+1
1265 000010 XX=XX/2
1266 173400 ZZ=ZZ-1000
1267 DFARP T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
1268 DMOVE AC,[200000,,0
1269 030701 120 04 0 00 043332 0,,0]
1270 DFAD AC,[200000+XX,,0
1271 030702 110 04 0 00 043352 0,,0]
1272 030703 312 04 0 00 043354 CAME AC,[ZZ,,0]
1273 030704 003 04 0 00 000206 ER3 AC,T
1274 030705 312 05 0 00 043330 CAME AC+1,[0,,0]
1275 030706 004 05 0 00 000206 ER4 AC+1,T
1276 030707 321 10 0 00 030701 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1277
1278 000207 T=T+1
1279 000004 XX=XX/2
1280 172400 ZZ=ZZ-1000
1281 DFARP T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
1282 DMOVE AC,[200000,,0
1283 030710 120 04 0 00 043332 0,,0]
1284 DFAD AC,[200000+XX,,0
1285 030711 110 04 0 00 043355 0,,0]
1286 030712 312 04 0 00 043357 CAME AC,[ZZ,,0]
1287 030713 003 04 0 00 000207 ER3 AC,T
1288 030714 312 05 0 00 043330 CAME AC+1,[0,,0]
1289 030715 004 05 0 00 000207 ER4 AC+1,T
1290 030716 321 10 0 00 030710 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1291
1292 000210 T=T+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-3
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0044
1293 000002 XX=XX/2
1294 171400 ZZ=ZZ-1000
1295 DFARP T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
1296 DMOVE AC,[200000,,0
1297 030717 120 04 0 00 043332 0,,0]
1298 DFAD AC,[200000+XX,,0
1299 030720 110 04 0 00 043360 0,,0]
1300 030721 312 04 0 00 043362 CAME AC,[ZZ,,0]
1301 030722 003 04 0 00 000210 ER3 AC,T
1302 030723 312 05 0 00 043330 CAME AC+1,[0,,0]
1303 030724 004 05 0 00 000210 ER4 AC+1,T
1304 030725 321 10 0 00 030717 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1305
1306 000211 T=T+1
1307 000001 XX=XX/2
1308 170400 ZZ=ZZ-1000
1309 DFARP T,200000,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
1310 DMOVE AC,[200000,,0
1311 030726 120 04 0 00 043332 0,,0]
1312 DFAD AC,[200000+XX,,0
1313 030727 110 04 0 00 043363 0,,0]
1314 030730 312 04 0 00 043365 CAME AC,[ZZ,,0]
1315 030731 003 04 0 00 000211 ER3 AC,T
1316 030732 312 05 0 00 043330 CAME AC+1,[0,,0]
1317 030733 004 05 0 00 000211 ER4 AC+1,T
1318 030734 321 10 0 00 030726 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1319
1320
1321 000001 000000 XX=1000000
1322
1323 REPEAT ^D18,
1324 <T=T+1
1325 XX=XX/2
1326 ZZ=ZZ-1000
1327 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0
1328 >
1329 000212 T=T+1
1330 400000 XX=XX/2
1331 167400 ZZ=ZZ-1000
1332 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
1333 DMOVE AC,[200000,,0
1334 030735 120 04 0 00 043332 0,,0]
1335 DFAD AC,[200000,,XX
1336 030736 110 04 0 00 043366 0,,0]
1337 030737 312 04 0 00 043370 CAME AC,[ZZ,,0]
1338 030740 003 04 0 00 000212 ER3 AC,T
1339 030741 312 05 0 00 043330 CAME AC+1,[0,,0]
1340 030742 004 05 0 00 000212 ER4 AC+1,T
1341 030743 321 10 0 00 030735 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1342
1343 000213 T=T+1
1344 200000 XX=XX/2
1345 166400 ZZ=ZZ-1000
1346 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
1347 DMOVE AC,[200000,,0
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-4
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0045
1348 030744 120 04 0 00 043332 0,,0]
1349 DFAD AC,[200000,,XX
1350 030745 110 04 0 00 043371 0,,0]
1351 030746 312 04 0 00 043373 CAME AC,[ZZ,,0]
1352 030747 003 04 0 00 000213 ER3 AC,T
1353 030750 312 05 0 00 043330 CAME AC+1,[0,,0]
1354 030751 004 05 0 00 000213 ER4 AC+1,T
1355 030752 321 10 0 00 030744 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1356
1357 000214 T=T+1
1358 100000 XX=XX/2
1359 165400 ZZ=ZZ-1000
1360 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
1361 DMOVE AC,[200000,,0
1362 030753 120 04 0 00 043332 0,,0]
1363 DFAD AC,[200000,,XX
1364 030754 110 04 0 00 043374 0,,0]
1365 030755 312 04 0 00 043376 CAME AC,[ZZ,,0]
1366 030756 003 04 0 00 000214 ER3 AC,T
1367 030757 312 05 0 00 043330 CAME AC+1,[0,,0]
1368 030760 004 05 0 00 000214 ER4 AC+1,T
1369 030761 321 10 0 00 030753 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1370
1371 000215 T=T+1
1372 040000 XX=XX/2
1373 164400 ZZ=ZZ-1000
1374 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
1375 DMOVE AC,[200000,,0
1376 030762 120 04 0 00 043332 0,,0]
1377 DFAD AC,[200000,,XX
1378 030763 110 04 0 00 043377 0,,0]
1379 030764 312 04 0 00 043401 CAME AC,[ZZ,,0]
1380 030765 003 04 0 00 000215 ER3 AC,T
1381 030766 312 05 0 00 043330 CAME AC+1,[0,,0]
1382 030767 004 05 0 00 000215 ER4 AC+1,T
1383 030770 321 10 0 00 030762 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1384
1385 000216 T=T+1
1386 020000 XX=XX/2
1387 163400 ZZ=ZZ-1000
1388 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
1389 DMOVE AC,[200000,,0
1390 030771 120 04 0 00 043332 0,,0]
1391 DFAD AC,[200000,,XX
1392 030772 110 04 0 00 043402 0,,0]
1393 030773 312 04 0 00 043404 CAME AC,[ZZ,,0]
1394 030774 003 04 0 00 000216 ER3 AC,T
1395 030775 312 05 0 00 043330 CAME AC+1,[0,,0]
1396 030776 004 05 0 00 000216 ER4 AC+1,T
1397 030777 321 10 0 00 030771 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1398
1399 000217 T=T+1
1400 010000 XX=XX/2
1401 162400 ZZ=ZZ-1000
1402 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-5
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0046
1403 DMOVE AC,[200000,,0
1404 031000 120 04 0 00 043332 0,,0]
1405 DFAD AC,[200000,,XX
1406 031001 110 04 0 00 043405 0,,0]
1407 031002 312 04 0 00 043407 CAME AC,[ZZ,,0]
1408 031003 003 04 0 00 000217 ER3 AC,T
1409 031004 312 05 0 00 043330 CAME AC+1,[0,,0]
1410 031005 004 05 0 00 000217 ER4 AC+1,T
1411 031006 321 10 0 00 031000 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1412
1413 000220 T=T+1
1414 004000 XX=XX/2
1415 161400 ZZ=ZZ-1000
1416 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
1417 DMOVE AC,[200000,,0
1418 031007 120 04 0 00 043332 0,,0]
1419 DFAD AC,[200000,,XX
1420 031010 110 04 0 00 043410 0,,0]
1421 031011 312 04 0 00 043412 CAME AC,[ZZ,,0]
1422 031012 003 04 0 00 000220 ER3 AC,T
1423 031013 312 05 0 00 043330 CAME AC+1,[0,,0]
1424 031014 004 05 0 00 000220 ER4 AC+1,T
1425 031015 321 10 0 00 031007 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1426
1427 000221 T=T+1
1428 002000 XX=XX/2
1429 160400 ZZ=ZZ-1000
1430 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
1431 DMOVE AC,[200000,,0
1432 031016 120 04 0 00 043332 0,,0]
1433 DFAD AC,[200000,,XX
1434 031017 110 04 0 00 043413 0,,0]
1435 031020 312 04 0 00 043415 CAME AC,[ZZ,,0]
1436 031021 003 04 0 00 000221 ER3 AC,T
1437 031022 312 05 0 00 043330 CAME AC+1,[0,,0]
1438 031023 004 05 0 00 000221 ER4 AC+1,T
1439 031024 321 10 0 00 031016 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1440
1441 000222 T=T+1
1442 001000 XX=XX/2
1443 157400 ZZ=ZZ-1000
1444 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
1445 DMOVE AC,[200000,,0
1446 031025 120 04 0 00 043332 0,,0]
1447 DFAD AC,[200000,,XX
1448 031026 110 04 0 00 043416 0,,0]
1449 031027 312 04 0 00 043420 CAME AC,[ZZ,,0]
1450 031030 003 04 0 00 000222 ER3 AC,T
1451 031031 312 05 0 00 043330 CAME AC+1,[0,,0]
1452 031032 004 05 0 00 000222 ER4 AC+1,T
1453 031033 321 10 0 00 031025 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1454
1455 000223 T=T+1
1456 000400 XX=XX/2
1457 156400 ZZ=ZZ-1000
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-6
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0047
1458 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
1459 DMOVE AC,[200000,,0
1460 031034 120 04 0 00 043332 0,,0]
1461 DFAD AC,[200000,,XX
1462 031035 110 04 0 00 043421 0,,0]
1463 031036 312 04 0 00 043423 CAME AC,[ZZ,,0]
1464 031037 003 04 0 00 000223 ER3 AC,T
1465 031040 312 05 0 00 043330 CAME AC+1,[0,,0]
1466 031041 004 05 0 00 000223 ER4 AC+1,T
1467 031042 321 10 0 00 031034 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1468
1469 000224 T=T+1
1470 000200 XX=XX/2
1471 155400 ZZ=ZZ-1000
1472 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
1473 DMOVE AC,[200000,,0
1474 031043 120 04 0 00 043332 0,,0]
1475 DFAD AC,[200000,,XX
1476 031044 110 04 0 00 043424 0,,0]
1477 031045 312 04 0 00 043426 CAME AC,[ZZ,,0]
1478 031046 003 04 0 00 000224 ER3 AC,T
1479 031047 312 05 0 00 043330 CAME AC+1,[0,,0]
1480 031050 004 05 0 00 000224 ER4 AC+1,T
1481 031051 321 10 0 00 031043 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1482
1483 000225 T=T+1
1484 000100 XX=XX/2
1485 154400 ZZ=ZZ-1000
1486 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
1487 DMOVE AC,[200000,,0
1488 031052 120 04 0 00 043332 0,,0]
1489 DFAD AC,[200000,,XX
1490 031053 110 04 0 00 043427 0,,0]
1491 031054 312 04 0 00 043431 CAME AC,[ZZ,,0]
1492 031055 003 04 0 00 000225 ER3 AC,T
1493 031056 312 05 0 00 043330 CAME AC+1,[0,,0]
1494 031057 004 05 0 00 000225 ER4 AC+1,T
1495 031060 321 10 0 00 031052 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1496
1497 000226 T=T+1
1498 000040 XX=XX/2
1499 153400 ZZ=ZZ-1000
1500 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
1501 DMOVE AC,[200000,,0
1502 031061 120 04 0 00 043332 0,,0]
1503 DFAD AC,[200000,,XX
1504 031062 110 04 0 00 043432 0,,0]
1505 031063 312 04 0 00 043434 CAME AC,[ZZ,,0]
1506 031064 003 04 0 00 000226 ER3 AC,T
1507 031065 312 05 0 00 043330 CAME AC+1,[0,,0]
1508 031066 004 05 0 00 000226 ER4 AC+1,T
1509 031067 321 10 0 00 031061 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1510
1511 000227 T=T+1
1512 000020 XX=XX/2
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-7
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0048
1513 152400 ZZ=ZZ-1000
1514 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
1515 DMOVE AC,[200000,,0
1516 031070 120 04 0 00 043332 0,,0]
1517 DFAD AC,[200000,,XX
1518 031071 110 04 0 00 043435 0,,0]
1519 031072 312 04 0 00 043437 CAME AC,[ZZ,,0]
1520 031073 003 04 0 00 000227 ER3 AC,T
1521 031074 312 05 0 00 043330 CAME AC+1,[0,,0]
1522 031075 004 05 0 00 000227 ER4 AC+1,T
1523 031076 321 10 0 00 031070 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1524
1525 000230 T=T+1
1526 000010 XX=XX/2
1527 151400 ZZ=ZZ-1000
1528 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
1529 DMOVE AC,[200000,,0
1530 031077 120 04 0 00 043332 0,,0]
1531 DFAD AC,[200000,,XX
1532 031100 110 04 0 00 043440 0,,0]
1533 031101 312 04 0 00 043442 CAME AC,[ZZ,,0]
1534 031102 003 04 0 00 000230 ER3 AC,T
1535 031103 312 05 0 00 043330 CAME AC+1,[0,,0]
1536 031104 004 05 0 00 000230 ER4 AC+1,T
1537 031105 321 10 0 00 031077 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1538
1539 000231 T=T+1
1540 000004 XX=XX/2
1541 150400 ZZ=ZZ-1000
1542 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
1543 DMOVE AC,[200000,,0
1544 031106 120 04 0 00 043332 0,,0]
1545 DFAD AC,[200000,,XX
1546 031107 110 04 0 00 043443 0,,0]
1547 031110 312 04 0 00 043445 CAME AC,[ZZ,,0]
1548 031111 003 04 0 00 000231 ER3 AC,T
1549 031112 312 05 0 00 043330 CAME AC+1,[0,,0]
1550 031113 004 05 0 00 000231 ER4 AC+1,T
1551 031114 321 10 0 00 031106 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1552
1553 000232 T=T+1
1554 000002 XX=XX/2
1555 147400 ZZ=ZZ-1000
1556 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
1557 DMOVE AC,[200000,,0
1558 031115 120 04 0 00 043332 0,,0]
1559 DFAD AC,[200000,,XX
1560 031116 110 04 0 00 043446 0,,0]
1561 031117 312 04 0 00 043450 CAME AC,[ZZ,,0]
1562 031120 003 04 0 00 000232 ER3 AC,T
1563 031121 312 05 0 00 043330 CAME AC+1,[0,,0]
1564 031122 004 05 0 00 000232 ER4 AC+1,T
1565 031123 321 10 0 00 031115 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1566
1567 000233 T=T+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-8
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0049
1568 000001 XX=XX/2
1569 146400 ZZ=ZZ-1000
1570 DFARP T,200000,0,0,0,200000,XX,0,0,ZZ,0,0,0^
1571 DMOVE AC,[200000,,0
1572 031124 120 04 0 00 043332 0,,0]
1573 DFAD AC,[200000,,XX
1574 031125 110 04 0 00 043451 0,,0]
1575 031126 312 04 0 00 043453 CAME AC,[ZZ,,0]
1576 031127 003 04 0 00 000233 ER3 AC,T
1577 031130 312 05 0 00 043330 CAME AC+1,[0,,0]
1578 031131 004 05 0 00 000233 ER4 AC+1,T
1579 031132 321 10 0 00 031124 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1580
1581
1582 400000 XX=400000
1583
1584 000234 T=T+1
1585 DFARP T,200000,0,0,0,200000,0,XX,0,0,0,0,0^
1586 DMOVE AC,[200000,,0
1587 031133 120 04 0 00 043332 0,,0]
1588 DFAD AC,[200000,,0
1589 031134 110 04 0 00 043454 XX,,0]
1590 031135 312 04 0 00 043330 CAME AC,[0,,0]
1591 031136 003 04 0 00 000234 ER3 AC,T
1592 031137 312 05 0 00 043330 CAME AC+1,[0,,0]
1593 031140 004 05 0 00 000234 ER4 AC+1,T
1594 031141 321 10 0 00 031133 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1595
1596 REPEAT ^D17,
1597 <T=T+1
1598 XX=XX/2
1599 ZZ=ZZ-1000
1600 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0
1601 >
1602 000235 T=T+1
1603 200000 XX=XX/2
1604 145400 ZZ=ZZ-1000
1605 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
1606 DMOVE AC,[200000,,0
1607 031142 120 04 0 00 043332 0,,0]
1608 DFAD AC,[200000,,0
1609 031143 110 04 0 00 043456 XX,,0]
1610 031144 312 04 0 00 043460 CAME AC,[ZZ,,0]
1611 031145 003 04 0 00 000235 ER3 AC,T
1612 031146 312 05 0 00 043330 CAME AC+1,[0,,0]
1613 031147 004 05 0 00 000235 ER4 AC+1,T
1614 031150 321 10 0 00 031142 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1615
1616 000236 T=T+1
1617 100000 XX=XX/2
1618 144400 ZZ=ZZ-1000
1619 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
1620 DMOVE AC,[200000,,0
1621 031151 120 04 0 00 043332 0,,0]
1622 DFAD AC,[200000,,0
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-9
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0050
1623 031152 110 04 0 00 043461 XX,,0]
1624 031153 312 04 0 00 043463 CAME AC,[ZZ,,0]
1625 031154 003 04 0 00 000236 ER3 AC,T
1626 031155 312 05 0 00 043330 CAME AC+1,[0,,0]
1627 031156 004 05 0 00 000236 ER4 AC+1,T
1628 031157 321 10 0 00 031151 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1629
1630 000237 T=T+1
1631 040000 XX=XX/2
1632 143400 ZZ=ZZ-1000
1633 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
1634 DMOVE AC,[200000,,0
1635 031160 120 04 0 00 043332 0,,0]
1636 DFAD AC,[200000,,0
1637 031161 110 04 0 00 043464 XX,,0]
1638 031162 312 04 0 00 043466 CAME AC,[ZZ,,0]
1639 031163 003 04 0 00 000237 ER3 AC,T
1640 031164 312 05 0 00 043330 CAME AC+1,[0,,0]
1641 031165 004 05 0 00 000237 ER4 AC+1,T
1642 031166 321 10 0 00 031160 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1643
1644 000240 T=T+1
1645 020000 XX=XX/2
1646 142400 ZZ=ZZ-1000
1647 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
1648 DMOVE AC,[200000,,0
1649 031167 120 04 0 00 043332 0,,0]
1650 DFAD AC,[200000,,0
1651 031170 110 04 0 00 043467 XX,,0]
1652 031171 312 04 0 00 043471 CAME AC,[ZZ,,0]
1653 031172 003 04 0 00 000240 ER3 AC,T
1654 031173 312 05 0 00 043330 CAME AC+1,[0,,0]
1655 031174 004 05 0 00 000240 ER4 AC+1,T
1656 031175 321 10 0 00 031167 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1657
1658 000241 T=T+1
1659 010000 XX=XX/2
1660 141400 ZZ=ZZ-1000
1661 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
1662 DMOVE AC,[200000,,0
1663 031176 120 04 0 00 043332 0,,0]
1664 DFAD AC,[200000,,0
1665 031177 110 04 0 00 043472 XX,,0]
1666 031200 312 04 0 00 043474 CAME AC,[ZZ,,0]
1667 031201 003 04 0 00 000241 ER3 AC,T
1668 031202 312 05 0 00 043330 CAME AC+1,[0,,0]
1669 031203 004 05 0 00 000241 ER4 AC+1,T
1670 031204 321 10 0 00 031176 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1671
1672 000242 T=T+1
1673 004000 XX=XX/2
1674 140400 ZZ=ZZ-1000
1675 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
1676 DMOVE AC,[200000,,0
1677 031205 120 04 0 00 043332 0,,0]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-10
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0051
1678 DFAD AC,[200000,,0
1679 031206 110 04 0 00 043475 XX,,0]
1680 031207 312 04 0 00 043477 CAME AC,[ZZ,,0]
1681 031210 003 04 0 00 000242 ER3 AC,T
1682 031211 312 05 0 00 043330 CAME AC+1,[0,,0]
1683 031212 004 05 0 00 000242 ER4 AC+1,T
1684 031213 321 10 0 00 031205 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1685
1686 000243 T=T+1
1687 002000 XX=XX/2
1688 137400 ZZ=ZZ-1000
1689 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
1690 DMOVE AC,[200000,,0
1691 031214 120 04 0 00 043332 0,,0]
1692 DFAD AC,[200000,,0
1693 031215 110 04 0 00 043500 XX,,0]
1694 031216 312 04 0 00 043502 CAME AC,[ZZ,,0]
1695 031217 003 04 0 00 000243 ER3 AC,T
1696 031220 312 05 0 00 043330 CAME AC+1,[0,,0]
1697 031221 004 05 0 00 000243 ER4 AC+1,T
1698 031222 321 10 0 00 031214 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1699
1700 000244 T=T+1
1701 001000 XX=XX/2
1702 136400 ZZ=ZZ-1000
1703 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
1704 DMOVE AC,[200000,,0
1705 031223 120 04 0 00 043332 0,,0]
1706 DFAD AC,[200000,,0
1707 031224 110 04 0 00 043503 XX,,0]
1708 031225 312 04 0 00 043505 CAME AC,[ZZ,,0]
1709 031226 003 04 0 00 000244 ER3 AC,T
1710 031227 312 05 0 00 043330 CAME AC+1,[0,,0]
1711 031230 004 05 0 00 000244 ER4 AC+1,T
1712 031231 321 10 0 00 031223 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1713
1714 000245 T=T+1
1715 000400 XX=XX/2
1716 135400 ZZ=ZZ-1000
1717 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
1718 DMOVE AC,[200000,,0
1719 031232 120 04 0 00 043332 0,,0]
1720 DFAD AC,[200000,,0
1721 031233 110 04 0 00 043506 XX,,0]
1722 031234 312 04 0 00 043510 CAME AC,[ZZ,,0]
1723 031235 003 04 0 00 000245 ER3 AC,T
1724 031236 312 05 0 00 043330 CAME AC+1,[0,,0]
1725 031237 004 05 0 00 000245 ER4 AC+1,T
1726 031240 321 10 0 00 031232 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1727
1728 000246 T=T+1
1729 000200 XX=XX/2
1730 134400 ZZ=ZZ-1000
1731 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
1732 DMOVE AC,[200000,,0
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-11
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0052
1733 031241 120 04 0 00 043332 0,,0]
1734 DFAD AC,[200000,,0
1735 031242 110 04 0 00 043511 XX,,0]
1736 031243 312 04 0 00 043513 CAME AC,[ZZ,,0]
1737 031244 003 04 0 00 000246 ER3 AC,T
1738 031245 312 05 0 00 043330 CAME AC+1,[0,,0]
1739 031246 004 05 0 00 000246 ER4 AC+1,T
1740 031247 321 10 0 00 031241 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1741
1742 000247 T=T+1
1743 000100 XX=XX/2
1744 133400 ZZ=ZZ-1000
1745 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
1746 DMOVE AC,[200000,,0
1747 031250 120 04 0 00 043332 0,,0]
1748 DFAD AC,[200000,,0
1749 031251 110 04 0 00 043514 XX,,0]
1750 031252 312 04 0 00 043516 CAME AC,[ZZ,,0]
1751 031253 003 04 0 00 000247 ER3 AC,T
1752 031254 312 05 0 00 043330 CAME AC+1,[0,,0]
1753 031255 004 05 0 00 000247 ER4 AC+1,T
1754 031256 321 10 0 00 031250 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1755
1756 000250 T=T+1
1757 000040 XX=XX/2
1758 132400 ZZ=ZZ-1000
1759 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
1760 DMOVE AC,[200000,,0
1761 031257 120 04 0 00 043332 0,,0]
1762 DFAD AC,[200000,,0
1763 031260 110 04 0 00 043517 XX,,0]
1764 031261 312 04 0 00 043521 CAME AC,[ZZ,,0]
1765 031262 003 04 0 00 000250 ER3 AC,T
1766 031263 312 05 0 00 043330 CAME AC+1,[0,,0]
1767 031264 004 05 0 00 000250 ER4 AC+1,T
1768 031265 321 10 0 00 031257 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1769
1770 000251 T=T+1
1771 000020 XX=XX/2
1772 131400 ZZ=ZZ-1000
1773 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
1774 DMOVE AC,[200000,,0
1775 031266 120 04 0 00 043332 0,,0]
1776 DFAD AC,[200000,,0
1777 031267 110 04 0 00 043522 XX,,0]
1778 031270 312 04 0 00 043524 CAME AC,[ZZ,,0]
1779 031271 003 04 0 00 000251 ER3 AC,T
1780 031272 312 05 0 00 043330 CAME AC+1,[0,,0]
1781 031273 004 05 0 00 000251 ER4 AC+1,T
1782 031274 321 10 0 00 031266 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1783
1784 000252 T=T+1
1785 000010 XX=XX/2
1786 130400 ZZ=ZZ-1000
1787 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-12
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0053
1788 DMOVE AC,[200000,,0
1789 031275 120 04 0 00 043332 0,,0]
1790 DFAD AC,[200000,,0
1791 031276 110 04 0 00 043525 XX,,0]
1792 031277 312 04 0 00 043527 CAME AC,[ZZ,,0]
1793 031300 003 04 0 00 000252 ER3 AC,T
1794 031301 312 05 0 00 043330 CAME AC+1,[0,,0]
1795 031302 004 05 0 00 000252 ER4 AC+1,T
1796 031303 321 10 0 00 031275 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1797
1798 000253 T=T+1
1799 000004 XX=XX/2
1800 127400 ZZ=ZZ-1000
1801 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
1802 DMOVE AC,[200000,,0
1803 031304 120 04 0 00 043332 0,,0]
1804 DFAD AC,[200000,,0
1805 031305 110 04 0 00 043530 XX,,0]
1806 031306 312 04 0 00 043532 CAME AC,[ZZ,,0]
1807 031307 003 04 0 00 000253 ER3 AC,T
1808 031310 312 05 0 00 043330 CAME AC+1,[0,,0]
1809 031311 004 05 0 00 000253 ER4 AC+1,T
1810 031312 321 10 0 00 031304 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1811
1812 000254 T=T+1
1813 000002 XX=XX/2
1814 126400 ZZ=ZZ-1000
1815 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
1816 DMOVE AC,[200000,,0
1817 031313 120 04 0 00 043332 0,,0]
1818 DFAD AC,[200000,,0
1819 031314 110 04 0 00 043533 XX,,0]
1820 031315 312 04 0 00 043535 CAME AC,[ZZ,,0]
1821 031316 003 04 0 00 000254 ER3 AC,T
1822 031317 312 05 0 00 043330 CAME AC+1,[0,,0]
1823 031320 004 05 0 00 000254 ER4 AC+1,T
1824 031321 321 10 0 00 031313 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1825
1826 000255 T=T+1
1827 000001 XX=XX/2
1828 125400 ZZ=ZZ-1000
1829 DFARP T,200000,0,0,0,200000,0,XX,0,ZZ,0,0,0^
1830 DMOVE AC,[200000,,0
1831 031322 120 04 0 00 043332 0,,0]
1832 DFAD AC,[200000,,0
1833 031323 110 04 0 00 043536 XX,,0]
1834 031324 312 04 0 00 043540 CAME AC,[ZZ,,0]
1835 031325 003 04 0 00 000255 ER3 AC,T
1836 031326 312 05 0 00 043330 CAME AC+1,[0,,0]
1837 031327 004 05 0 00 000255 ER4 AC+1,T
1838 031330 321 10 0 00 031322 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1839
1840
1841 000001 000000 XX=1000000
1842
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-13
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0054
1843 REPEAT ^D18,
1844 <T=T+1
1845 XX=XX/2
1846 ZZ=ZZ-1000
1847 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0
1848 >
1849 000256 T=T+1
1850 400000 XX=XX/2
1851 124400 ZZ=ZZ-1000
1852 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
1853 DMOVE AC,[200000,,0
1854 031331 120 04 0 00 043332 0,,0]
1855 DFAD AC,[200000,,0
1856 031332 110 04 0 00 043541 0,,XX]
1857 031333 312 04 0 00 043543 CAME AC,[ZZ,,0]
1858 031334 003 04 0 00 000256 ER3 AC,T
1859 031335 312 05 0 00 043330 CAME AC+1,[0,,0]
1860 031336 004 05 0 00 000256 ER4 AC+1,T
1861 031337 321 10 0 00 031331 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1862
1863 000257 T=T+1
1864 200000 XX=XX/2
1865 123400 ZZ=ZZ-1000
1866 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
1867 DMOVE AC,[200000,,0
1868 031340 120 04 0 00 043332 0,,0]
1869 DFAD AC,[200000,,0
1870 031341 110 04 0 00 043544 0,,XX]
1871 031342 312 04 0 00 043546 CAME AC,[ZZ,,0]
1872 031343 003 04 0 00 000257 ER3 AC,T
1873 031344 312 05 0 00 043330 CAME AC+1,[0,,0]
1874 031345 004 05 0 00 000257 ER4 AC+1,T
1875 031346 321 10 0 00 031340 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1876
1877 000260 T=T+1
1878 100000 XX=XX/2
1879 122400 ZZ=ZZ-1000
1880 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
1881 DMOVE AC,[200000,,0
1882 031347 120 04 0 00 043332 0,,0]
1883 DFAD AC,[200000,,0
1884 031350 110 04 0 00 043547 0,,XX]
1885 031351 312 04 0 00 043551 CAME AC,[ZZ,,0]
1886 031352 003 04 0 00 000260 ER3 AC,T
1887 031353 312 05 0 00 043330 CAME AC+1,[0,,0]
1888 031354 004 05 0 00 000260 ER4 AC+1,T
1889 031355 321 10 0 00 031347 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1890
1891 000261 T=T+1
1892 040000 XX=XX/2
1893 121400 ZZ=ZZ-1000
1894 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
1895 DMOVE AC,[200000,,0
1896 031356 120 04 0 00 043332 0,,0]
1897 DFAD AC,[200000,,0
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-14
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0055
1898 031357 110 04 0 00 043552 0,,XX]
1899 031360 312 04 0 00 043554 CAME AC,[ZZ,,0]
1900 031361 003 04 0 00 000261 ER3 AC,T
1901 031362 312 05 0 00 043330 CAME AC+1,[0,,0]
1902 031363 004 05 0 00 000261 ER4 AC+1,T
1903 031364 321 10 0 00 031356 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1904
1905 000262 T=T+1
1906 020000 XX=XX/2
1907 120400 ZZ=ZZ-1000
1908 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
1909 DMOVE AC,[200000,,0
1910 031365 120 04 0 00 043332 0,,0]
1911 DFAD AC,[200000,,0
1912 031366 110 04 0 00 043555 0,,XX]
1913 031367 312 04 0 00 043557 CAME AC,[ZZ,,0]
1914 031370 003 04 0 00 000262 ER3 AC,T
1915 031371 312 05 0 00 043330 CAME AC+1,[0,,0]
1916 031372 004 05 0 00 000262 ER4 AC+1,T
1917 031373 321 10 0 00 031365 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1918
1919 000263 T=T+1
1920 010000 XX=XX/2
1921 117400 ZZ=ZZ-1000
1922 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
1923 DMOVE AC,[200000,,0
1924 031374 120 04 0 00 043332 0,,0]
1925 DFAD AC,[200000,,0
1926 031375 110 04 0 00 043560 0,,XX]
1927 031376 312 04 0 00 043562 CAME AC,[ZZ,,0]
1928 031377 003 04 0 00 000263 ER3 AC,T
1929 031400 312 05 0 00 043330 CAME AC+1,[0,,0]
1930 031401 004 05 0 00 000263 ER4 AC+1,T
1931 031402 321 10 0 00 031374 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1932
1933 000264 T=T+1
1934 004000 XX=XX/2
1935 116400 ZZ=ZZ-1000
1936 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
1937 DMOVE AC,[200000,,0
1938 031403 120 04 0 00 043332 0,,0]
1939 DFAD AC,[200000,,0
1940 031404 110 04 0 00 043563 0,,XX]
1941 031405 312 04 0 00 043565 CAME AC,[ZZ,,0]
1942 031406 003 04 0 00 000264 ER3 AC,T
1943 031407 312 05 0 00 043330 CAME AC+1,[0,,0]
1944 031410 004 05 0 00 000264 ER4 AC+1,T
1945 031411 321 10 0 00 031403 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1946
1947 000265 T=T+1
1948 002000 XX=XX/2
1949 115400 ZZ=ZZ-1000
1950 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
1951 DMOVE AC,[200000,,0
1952 031412 120 04 0 00 043332 0,,0]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-15
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0056
1953 DFAD AC,[200000,,0
1954 031413 110 04 0 00 043566 0,,XX]
1955 031414 312 04 0 00 043570 CAME AC,[ZZ,,0]
1956 031415 003 04 0 00 000265 ER3 AC,T
1957 031416 312 05 0 00 043330 CAME AC+1,[0,,0]
1958 031417 004 05 0 00 000265 ER4 AC+1,T
1959 031420 321 10 0 00 031412 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1960
1961 000266 T=T+1
1962 001000 XX=XX/2
1963 114400 ZZ=ZZ-1000
1964 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
1965 DMOVE AC,[200000,,0
1966 031421 120 04 0 00 043332 0,,0]
1967 DFAD AC,[200000,,0
1968 031422 110 04 0 00 043571 0,,XX]
1969 031423 312 04 0 00 043573 CAME AC,[ZZ,,0]
1970 031424 003 04 0 00 000266 ER3 AC,T
1971 031425 312 05 0 00 043330 CAME AC+1,[0,,0]
1972 031426 004 05 0 00 000266 ER4 AC+1,T
1973 031427 321 10 0 00 031421 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1974
1975 000267 T=T+1
1976 000400 XX=XX/2
1977 113400 ZZ=ZZ-1000
1978 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
1979 DMOVE AC,[200000,,0
1980 031430 120 04 0 00 043332 0,,0]
1981 DFAD AC,[200000,,0
1982 031431 110 04 0 00 043574 0,,XX]
1983 031432 312 04 0 00 043576 CAME AC,[ZZ,,0]
1984 031433 003 04 0 00 000267 ER3 AC,T
1985 031434 312 05 0 00 043330 CAME AC+1,[0,,0]
1986 031435 004 05 0 00 000267 ER4 AC+1,T
1987 031436 321 10 0 00 031430 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
1988
1989 000270 T=T+1
1990 000200 XX=XX/2
1991 112400 ZZ=ZZ-1000
1992 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
1993 DMOVE AC,[200000,,0
1994 031437 120 04 0 00 043332 0,,0]
1995 DFAD AC,[200000,,0
1996 031440 110 04 0 00 043577 0,,XX]
1997 031441 312 04 0 00 043601 CAME AC,[ZZ,,0]
1998 031442 003 04 0 00 000270 ER3 AC,T
1999 031443 312 05 0 00 043330 CAME AC+1,[0,,0]
2000 031444 004 05 0 00 000270 ER4 AC+1,T
2001 031445 321 10 0 00 031437 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2002
2003 000271 T=T+1
2004 000100 XX=XX/2
2005 111400 ZZ=ZZ-1000
2006 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
2007 DMOVE AC,[200000,,0
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-16
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0057
2008 031446 120 04 0 00 043332 0,,0]
2009 DFAD AC,[200000,,0
2010 031447 110 04 0 00 043602 0,,XX]
2011 031450 312 04 0 00 043604 CAME AC,[ZZ,,0]
2012 031451 003 04 0 00 000271 ER3 AC,T
2013 031452 312 05 0 00 043330 CAME AC+1,[0,,0]
2014 031453 004 05 0 00 000271 ER4 AC+1,T
2015 031454 321 10 0 00 031446 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2016
2017 000272 T=T+1
2018 000040 XX=XX/2
2019 110400 ZZ=ZZ-1000
2020 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
2021 DMOVE AC,[200000,,0
2022 031455 120 04 0 00 043332 0,,0]
2023 DFAD AC,[200000,,0
2024 031456 110 04 0 00 043605 0,,XX]
2025 031457 312 04 0 00 043607 CAME AC,[ZZ,,0]
2026 031460 003 04 0 00 000272 ER3 AC,T
2027 031461 312 05 0 00 043330 CAME AC+1,[0,,0]
2028 031462 004 05 0 00 000272 ER4 AC+1,T
2029 031463 321 10 0 00 031455 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2030
2031 000273 T=T+1
2032 000020 XX=XX/2
2033 107400 ZZ=ZZ-1000
2034 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
2035 DMOVE AC,[200000,,0
2036 031464 120 04 0 00 043332 0,,0]
2037 DFAD AC,[200000,,0
2038 031465 110 04 0 00 043610 0,,XX]
2039 031466 312 04 0 00 043612 CAME AC,[ZZ,,0]
2040 031467 003 04 0 00 000273 ER3 AC,T
2041 031470 312 05 0 00 043330 CAME AC+1,[0,,0]
2042 031471 004 05 0 00 000273 ER4 AC+1,T
2043 031472 321 10 0 00 031464 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2044
2045 000274 T=T+1
2046 000010 XX=XX/2
2047 106400 ZZ=ZZ-1000
2048 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
2049 DMOVE AC,[200000,,0
2050 031473 120 04 0 00 043332 0,,0]
2051 DFAD AC,[200000,,0
2052 031474 110 04 0 00 043613 0,,XX]
2053 031475 312 04 0 00 043615 CAME AC,[ZZ,,0]
2054 031476 003 04 0 00 000274 ER3 AC,T
2055 031477 312 05 0 00 043330 CAME AC+1,[0,,0]
2056 031500 004 05 0 00 000274 ER4 AC+1,T
2057 031501 321 10 0 00 031473 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2058
2059 000275 T=T+1
2060 000004 XX=XX/2
2061 105400 ZZ=ZZ-1000
2062 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2-17
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0058
2063 DMOVE AC,[200000,,0
2064 031502 120 04 0 00 043332 0,,0]
2065 DFAD AC,[200000,,0
2066 031503 110 04 0 00 043616 0,,XX]
2067 031504 312 04 0 00 043620 CAME AC,[ZZ,,0]
2068 031505 003 04 0 00 000275 ER3 AC,T
2069 031506 312 05 0 00 043330 CAME AC+1,[0,,0]
2070 031507 004 05 0 00 000275 ER4 AC+1,T
2071 031510 321 10 0 00 031502 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2072
2073 000276 T=T+1
2074 000002 XX=XX/2
2075 104400 ZZ=ZZ-1000
2076 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
2077 DMOVE AC,[200000,,0
2078 031511 120 04 0 00 043332 0,,0]
2079 DFAD AC,[200000,,0
2080 031512 110 04 0 00 043621 0,,XX]
2081 031513 312 04 0 00 043623 CAME AC,[ZZ,,0]
2082 031514 003 04 0 00 000276 ER3 AC,T
2083 031515 312 05 0 00 043330 CAME AC+1,[0,,0]
2084 031516 004 05 0 00 000276 ER4 AC+1,T
2085 031517 321 10 0 00 031511 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2086
2087 000277 T=T+1
2088 000001 XX=XX/2
2089 103400 ZZ=ZZ-1000
2090 DFARP T,200000,0,0,0,200000,0,0,XX,ZZ,0,0,0^
2091 DMOVE AC,[200000,,0
2092 031520 120 04 0 00 043332 0,,0]
2093 DFAD AC,[200000,,0
2094 031521 110 04 0 00 043624 0,,XX]
2095 031522 312 04 0 00 043626 CAME AC,[ZZ,,0]
2096 031523 003 04 0 00 000277 ER3 AC,T
2097 031524 312 05 0 00 043330 CAME AC+1,[0,,0]
2098 031525 004 05 0 00 000277 ER4 AC+1,T
2099 031526 321 10 0 00 031520 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2100
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0059
2101 ;RIPPLE ONES TEST (TO A RIPPLED ONE, ADD A WORD OF ALL ZEROS)
2102 000300 T=300
2103 001000 XX=1000
2104 201400 ZZ=201400
2105
2106 R300: REPEAT ^D9,
2107 <T=T+1
2108 XX=XX/2
2109 ZZ=ZZ-1000
2110 DFARP T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0
2111 >
2112 000301 T=T+1
2113 000400 XX=XX/2
2114 200400 ZZ=ZZ-1000
2115 DFARP T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^
2116 DMOVE AC,[200000+XX,,0
2117 031527 120 04 0 00 043334 0,,0]
2118 DFAD AC,[200000,,0
2119 031530 110 04 0 00 043332 0,,0]
2120 031531 312 04 0 00 043334 CAME AC,[ZZ,,0]
2121 031532 003 04 0 00 000301 ER3 AC,T
2122 031533 312 05 0 00 043330 CAME AC+1,[0,,0]
2123 031534 004 05 0 00 000301 ER4 AC+1,T
2124 031535 321 10 0 00 031527 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2125
2126 000302 T=T+1
2127 000200 XX=XX/2
2128 177400 ZZ=ZZ-1000
2129 DFARP T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^
2130 DMOVE AC,[200000+XX,,0
2131 031536 120 04 0 00 043336 0,,0]
2132 DFAD AC,[200000,,0
2133 031537 110 04 0 00 043332 0,,0]
2134 031540 312 04 0 00 043340 CAME AC,[ZZ,,0]
2135 031541 003 04 0 00 000302 ER3 AC,T
2136 031542 312 05 0 00 043330 CAME AC+1,[0,,0]
2137 031543 004 05 0 00 000302 ER4 AC+1,T
2138 031544 321 10 0 00 031536 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2139
2140 000303 T=T+1
2141 000100 XX=XX/2
2142 176400 ZZ=ZZ-1000
2143 DFARP T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^
2144 DMOVE AC,[200000+XX,,0
2145 031545 120 04 0 00 043341 0,,0]
2146 DFAD AC,[200000,,0
2147 031546 110 04 0 00 043332 0,,0]
2148 031547 312 04 0 00 043343 CAME AC,[ZZ,,0]
2149 031550 003 04 0 00 000303 ER3 AC,T
2150 031551 312 05 0 00 043330 CAME AC+1,[0,,0]
2151 031552 004 05 0 00 000303 ER4 AC+1,T
2152 031553 321 10 0 00 031545 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2153
2154 000304 T=T+1
2155 000040 XX=XX/2
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-1
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0060
2156 175400 ZZ=ZZ-1000
2157 DFARP T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^
2158 DMOVE AC,[200000+XX,,0
2159 031554 120 04 0 00 043344 0,,0]
2160 DFAD AC,[200000,,0
2161 031555 110 04 0 00 043332 0,,0]
2162 031556 312 04 0 00 043346 CAME AC,[ZZ,,0]
2163 031557 003 04 0 00 000304 ER3 AC,T
2164 031560 312 05 0 00 043330 CAME AC+1,[0,,0]
2165 031561 004 05 0 00 000304 ER4 AC+1,T
2166 031562 321 10 0 00 031554 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2167
2168 000305 T=T+1
2169 000020 XX=XX/2
2170 174400 ZZ=ZZ-1000
2171 DFARP T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^
2172 DMOVE AC,[200000+XX,,0
2173 031563 120 04 0 00 043347 0,,0]
2174 DFAD AC,[200000,,0
2175 031564 110 04 0 00 043332 0,,0]
2176 031565 312 04 0 00 043351 CAME AC,[ZZ,,0]
2177 031566 003 04 0 00 000305 ER3 AC,T
2178 031567 312 05 0 00 043330 CAME AC+1,[0,,0]
2179 031570 004 05 0 00 000305 ER4 AC+1,T
2180 031571 321 10 0 00 031563 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2181
2182 000306 T=T+1
2183 000010 XX=XX/2
2184 173400 ZZ=ZZ-1000
2185 DFARP T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^
2186 DMOVE AC,[200000+XX,,0
2187 031572 120 04 0 00 043352 0,,0]
2188 DFAD AC,[200000,,0
2189 031573 110 04 0 00 043332 0,,0]
2190 031574 312 04 0 00 043354 CAME AC,[ZZ,,0]
2191 031575 003 04 0 00 000306 ER3 AC,T
2192 031576 312 05 0 00 043330 CAME AC+1,[0,,0]
2193 031577 004 05 0 00 000306 ER4 AC+1,T
2194 031600 321 10 0 00 031572 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2195
2196 000307 T=T+1
2197 000004 XX=XX/2
2198 172400 ZZ=ZZ-1000
2199 DFARP T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^
2200 DMOVE AC,[200000+XX,,0
2201 031601 120 04 0 00 043355 0,,0]
2202 DFAD AC,[200000,,0
2203 031602 110 04 0 00 043332 0,,0]
2204 031603 312 04 0 00 043357 CAME AC,[ZZ,,0]
2205 031604 003 04 0 00 000307 ER3 AC,T
2206 031605 312 05 0 00 043330 CAME AC+1,[0,,0]
2207 031606 004 05 0 00 000307 ER4 AC+1,T
2208 031607 321 10 0 00 031601 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2209
2210 000310 T=T+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-2
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0061
2211 000002 XX=XX/2
2212 171400 ZZ=ZZ-1000
2213 DFARP T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^
2214 DMOVE AC,[200000+XX,,0
2215 031610 120 04 0 00 043360 0,,0]
2216 DFAD AC,[200000,,0
2217 031611 110 04 0 00 043332 0,,0]
2218 031612 312 04 0 00 043362 CAME AC,[ZZ,,0]
2219 031613 003 04 0 00 000310 ER3 AC,T
2220 031614 312 05 0 00 043330 CAME AC+1,[0,,0]
2221 031615 004 05 0 00 000310 ER4 AC+1,T
2222 031616 321 10 0 00 031610 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2223
2224 000311 T=T+1
2225 000001 XX=XX/2
2226 170400 ZZ=ZZ-1000
2227 DFARP T,200000+XX,0,0,0,200000,0,0,0,ZZ,0,0,0^
2228 DMOVE AC,[200000+XX,,0
2229 031617 120 04 0 00 043363 0,,0]
2230 DFAD AC,[200000,,0
2231 031620 110 04 0 00 043332 0,,0]
2232 031621 312 04 0 00 043365 CAME AC,[ZZ,,0]
2233 031622 003 04 0 00 000311 ER3 AC,T
2234 031623 312 05 0 00 043330 CAME AC+1,[0,,0]
2235 031624 004 05 0 00 000311 ER4 AC+1,T
2236 031625 321 10 0 00 031617 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2237
2238
2239 000001 000000 XX=1000000
2240
2241 REPEAT ^D18,
2242 <T=T+1
2243 XX=XX/2
2244 ZZ=ZZ-1000
2245 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0
2246 >
2247 000312 T=T+1
2248 400000 XX=XX/2
2249 167400 ZZ=ZZ-1000
2250 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
2251 DMOVE AC,[200000,,XX
2252 031626 120 04 0 00 043366 0,,0]
2253 DFAD AC,[200000,,0
2254 031627 110 04 0 00 043332 0,,0]
2255 031630 312 04 0 00 043370 CAME AC,[ZZ,,0]
2256 031631 003 04 0 00 000312 ER3 AC,T
2257 031632 312 05 0 00 043330 CAME AC+1,[0,,0]
2258 031633 004 05 0 00 000312 ER4 AC+1,T
2259 031634 321 10 0 00 031626 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2260
2261 000313 T=T+1
2262 200000 XX=XX/2
2263 166400 ZZ=ZZ-1000
2264 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
2265 DMOVE AC,[200000,,XX
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-3
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0062
2266 031635 120 04 0 00 043371 0,,0]
2267 DFAD AC,[200000,,0
2268 031636 110 04 0 00 043332 0,,0]
2269 031637 312 04 0 00 043373 CAME AC,[ZZ,,0]
2270 031640 003 04 0 00 000313 ER3 AC,T
2271 031641 312 05 0 00 043330 CAME AC+1,[0,,0]
2272 031642 004 05 0 00 000313 ER4 AC+1,T
2273 031643 321 10 0 00 031635 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2274
2275 000314 T=T+1
2276 100000 XX=XX/2
2277 165400 ZZ=ZZ-1000
2278 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
2279 DMOVE AC,[200000,,XX
2280 031644 120 04 0 00 043374 0,,0]
2281 DFAD AC,[200000,,0
2282 031645 110 04 0 00 043332 0,,0]
2283 031646 312 04 0 00 043376 CAME AC,[ZZ,,0]
2284 031647 003 04 0 00 000314 ER3 AC,T
2285 031650 312 05 0 00 043330 CAME AC+1,[0,,0]
2286 031651 004 05 0 00 000314 ER4 AC+1,T
2287 031652 321 10 0 00 031644 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2288
2289 000315 T=T+1
2290 040000 XX=XX/2
2291 164400 ZZ=ZZ-1000
2292 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
2293 DMOVE AC,[200000,,XX
2294 031653 120 04 0 00 043377 0,,0]
2295 DFAD AC,[200000,,0
2296 031654 110 04 0 00 043332 0,,0]
2297 031655 312 04 0 00 043401 CAME AC,[ZZ,,0]
2298 031656 003 04 0 00 000315 ER3 AC,T
2299 031657 312 05 0 00 043330 CAME AC+1,[0,,0]
2300 031660 004 05 0 00 000315 ER4 AC+1,T
2301 031661 321 10 0 00 031653 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2302
2303 000316 T=T+1
2304 020000 XX=XX/2
2305 163400 ZZ=ZZ-1000
2306 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
2307 DMOVE AC,[200000,,XX
2308 031662 120 04 0 00 043402 0,,0]
2309 DFAD AC,[200000,,0
2310 031663 110 04 0 00 043332 0,,0]
2311 031664 312 04 0 00 043404 CAME AC,[ZZ,,0]
2312 031665 003 04 0 00 000316 ER3 AC,T
2313 031666 312 05 0 00 043330 CAME AC+1,[0,,0]
2314 031667 004 05 0 00 000316 ER4 AC+1,T
2315 031670 321 10 0 00 031662 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2316
2317 000317 T=T+1
2318 010000 XX=XX/2
2319 162400 ZZ=ZZ-1000
2320 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-4
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0063
2321 DMOVE AC,[200000,,XX
2322 031671 120 04 0 00 043405 0,,0]
2323 DFAD AC,[200000,,0
2324 031672 110 04 0 00 043332 0,,0]
2325 031673 312 04 0 00 043407 CAME AC,[ZZ,,0]
2326 031674 003 04 0 00 000317 ER3 AC,T
2327 031675 312 05 0 00 043330 CAME AC+1,[0,,0]
2328 031676 004 05 0 00 000317 ER4 AC+1,T
2329 031677 321 10 0 00 031671 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2330
2331 000320 T=T+1
2332 004000 XX=XX/2
2333 161400 ZZ=ZZ-1000
2334 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
2335 DMOVE AC,[200000,,XX
2336 031700 120 04 0 00 043410 0,,0]
2337 DFAD AC,[200000,,0
2338 031701 110 04 0 00 043332 0,,0]
2339 031702 312 04 0 00 043412 CAME AC,[ZZ,,0]
2340 031703 003 04 0 00 000320 ER3 AC,T
2341 031704 312 05 0 00 043330 CAME AC+1,[0,,0]
2342 031705 004 05 0 00 000320 ER4 AC+1,T
2343 031706 321 10 0 00 031700 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2344
2345 000321 T=T+1
2346 002000 XX=XX/2
2347 160400 ZZ=ZZ-1000
2348 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
2349 DMOVE AC,[200000,,XX
2350 031707 120 04 0 00 043413 0,,0]
2351 DFAD AC,[200000,,0
2352 031710 110 04 0 00 043332 0,,0]
2353 031711 312 04 0 00 043415 CAME AC,[ZZ,,0]
2354 031712 003 04 0 00 000321 ER3 AC,T
2355 031713 312 05 0 00 043330 CAME AC+1,[0,,0]
2356 031714 004 05 0 00 000321 ER4 AC+1,T
2357 031715 321 10 0 00 031707 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2358
2359 000322 T=T+1
2360 001000 XX=XX/2
2361 157400 ZZ=ZZ-1000
2362 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
2363 DMOVE AC,[200000,,XX
2364 031716 120 04 0 00 043416 0,,0]
2365 DFAD AC,[200000,,0
2366 031717 110 04 0 00 043332 0,,0]
2367 031720 312 04 0 00 043420 CAME AC,[ZZ,,0]
2368 031721 003 04 0 00 000322 ER3 AC,T
2369 031722 312 05 0 00 043330 CAME AC+1,[0,,0]
2370 031723 004 05 0 00 000322 ER4 AC+1,T
2371 031724 321 10 0 00 031716 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2372
2373 000323 T=T+1
2374 000400 XX=XX/2
2375 156400 ZZ=ZZ-1000
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-5
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0064
2376 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
2377 DMOVE AC,[200000,,XX
2378 031725 120 04 0 00 043421 0,,0]
2379 DFAD AC,[200000,,0
2380 031726 110 04 0 00 043332 0,,0]
2381 031727 312 04 0 00 043423 CAME AC,[ZZ,,0]
2382 031730 003 04 0 00 000323 ER3 AC,T
2383 031731 312 05 0 00 043330 CAME AC+1,[0,,0]
2384 031732 004 05 0 00 000323 ER4 AC+1,T
2385 031733 321 10 0 00 031725 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2386
2387 000324 T=T+1
2388 000200 XX=XX/2
2389 155400 ZZ=ZZ-1000
2390 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
2391 DMOVE AC,[200000,,XX
2392 031734 120 04 0 00 043424 0,,0]
2393 DFAD AC,[200000,,0
2394 031735 110 04 0 00 043332 0,,0]
2395 031736 312 04 0 00 043426 CAME AC,[ZZ,,0]
2396 031737 003 04 0 00 000324 ER3 AC,T
2397 031740 312 05 0 00 043330 CAME AC+1,[0,,0]
2398 031741 004 05 0 00 000324 ER4 AC+1,T
2399 031742 321 10 0 00 031734 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2400
2401 000325 T=T+1
2402 000100 XX=XX/2
2403 154400 ZZ=ZZ-1000
2404 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
2405 DMOVE AC,[200000,,XX
2406 031743 120 04 0 00 043427 0,,0]
2407 DFAD AC,[200000,,0
2408 031744 110 04 0 00 043332 0,,0]
2409 031745 312 04 0 00 043431 CAME AC,[ZZ,,0]
2410 031746 003 04 0 00 000325 ER3 AC,T
2411 031747 312 05 0 00 043330 CAME AC+1,[0,,0]
2412 031750 004 05 0 00 000325 ER4 AC+1,T
2413 031751 321 10 0 00 031743 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2414
2415 000326 T=T+1
2416 000040 XX=XX/2
2417 153400 ZZ=ZZ-1000
2418 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
2419 DMOVE AC,[200000,,XX
2420 031752 120 04 0 00 043432 0,,0]
2421 DFAD AC,[200000,,0
2422 031753 110 04 0 00 043332 0,,0]
2423 031754 312 04 0 00 043434 CAME AC,[ZZ,,0]
2424 031755 003 04 0 00 000326 ER3 AC,T
2425 031756 312 05 0 00 043330 CAME AC+1,[0,,0]
2426 031757 004 05 0 00 000326 ER4 AC+1,T
2427 031760 321 10 0 00 031752 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2428
2429 000327 T=T+1
2430 000020 XX=XX/2
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-6
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0065
2431 152400 ZZ=ZZ-1000
2432 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
2433 DMOVE AC,[200000,,XX
2434 031761 120 04 0 00 043435 0,,0]
2435 DFAD AC,[200000,,0
2436 031762 110 04 0 00 043332 0,,0]
2437 031763 312 04 0 00 043437 CAME AC,[ZZ,,0]
2438 031764 003 04 0 00 000327 ER3 AC,T
2439 031765 312 05 0 00 043330 CAME AC+1,[0,,0]
2440 031766 004 05 0 00 000327 ER4 AC+1,T
2441 031767 321 10 0 00 031761 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2442
2443 000330 T=T+1
2444 000010 XX=XX/2
2445 151400 ZZ=ZZ-1000
2446 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
2447 DMOVE AC,[200000,,XX
2448 031770 120 04 0 00 043440 0,,0]
2449 DFAD AC,[200000,,0
2450 031771 110 04 0 00 043332 0,,0]
2451 031772 312 04 0 00 043442 CAME AC,[ZZ,,0]
2452 031773 003 04 0 00 000330 ER3 AC,T
2453 031774 312 05 0 00 043330 CAME AC+1,[0,,0]
2454 031775 004 05 0 00 000330 ER4 AC+1,T
2455 031776 321 10 0 00 031770 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2456
2457 000331 T=T+1
2458 000004 XX=XX/2
2459 150400 ZZ=ZZ-1000
2460 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
2461 DMOVE AC,[200000,,XX
2462 031777 120 04 0 00 043443 0,,0]
2463 DFAD AC,[200000,,0
2464 032000 110 04 0 00 043332 0,,0]
2465 032001 312 04 0 00 043445 CAME AC,[ZZ,,0]
2466 032002 003 04 0 00 000331 ER3 AC,T
2467 032003 312 05 0 00 043330 CAME AC+1,[0,,0]
2468 032004 004 05 0 00 000331 ER4 AC+1,T
2469 032005 321 10 0 00 031777 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2470
2471 000332 T=T+1
2472 000002 XX=XX/2
2473 147400 ZZ=ZZ-1000
2474 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
2475 DMOVE AC,[200000,,XX
2476 032006 120 04 0 00 043446 0,,0]
2477 DFAD AC,[200000,,0
2478 032007 110 04 0 00 043332 0,,0]
2479 032010 312 04 0 00 043450 CAME AC,[ZZ,,0]
2480 032011 003 04 0 00 000332 ER3 AC,T
2481 032012 312 05 0 00 043330 CAME AC+1,[0,,0]
2482 032013 004 05 0 00 000332 ER4 AC+1,T
2483 032014 321 10 0 00 032006 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2484
2485 000333 T=T+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-7
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0066
2486 000001 XX=XX/2
2487 146400 ZZ=ZZ-1000
2488 DFARP T,200000,XX,0,0,200000,0,0,0,ZZ,0,0,0^
2489 DMOVE AC,[200000,,XX
2490 032015 120 04 0 00 043451 0,,0]
2491 DFAD AC,[200000,,0
2492 032016 110 04 0 00 043332 0,,0]
2493 032017 312 04 0 00 043453 CAME AC,[ZZ,,0]
2494 032020 003 04 0 00 000333 ER3 AC,T
2495 032021 312 05 0 00 043330 CAME AC+1,[0,,0]
2496 032022 004 05 0 00 000333 ER4 AC+1,T
2497 032023 321 10 0 00 032015 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2498
2499
2500 400000 XX=400000
2501
2502 000334 T=T+1
2503 DFARP T,200000,0,XX,0,200000,0,0,0,0,0,0,0^
2504 DMOVE AC,[200000,,0
2505 032024 120 04 0 00 043454 XX,,0]
2506 DFAD AC,[200000,,0
2507 032025 110 04 0 00 043332 0,,0]
2508 032026 312 04 0 00 043330 CAME AC,[0,,0]
2509 032027 003 04 0 00 000334 ER3 AC,T
2510 032030 312 05 0 00 043330 CAME AC+1,[0,,0]
2511 032031 004 05 0 00 000334 ER4 AC+1,T
2512 032032 321 10 0 00 032024 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2513
2514 REPEAT ^D17,
2515 <T=T+1
2516 XX=XX/2
2517 ZZ=ZZ-1000
2518 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0
2519
2520 >
2521 000335 T=T+1
2522 200000 XX=XX/2
2523 145400 ZZ=ZZ-1000
2524 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
2525 DMOVE AC,[200000,,0
2526 032033 120 04 0 00 043456 XX,,0]
2527 DFAD AC,[200000,,0
2528 032034 110 04 0 00 043332 0,,0]
2529 032035 312 04 0 00 043460 CAME AC,[ZZ,,0]
2530 032036 003 04 0 00 000335 ER3 AC,T
2531 032037 312 05 0 00 043330 CAME AC+1,[0,,0]
2532 032040 004 05 0 00 000335 ER4 AC+1,T
2533 032041 321 10 0 00 032033 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2534
2535
2536 000336 T=T+1
2537 100000 XX=XX/2
2538 144400 ZZ=ZZ-1000
2539 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
2540 DMOVE AC,[200000,,0
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-8
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0067
2541 032042 120 04 0 00 043461 XX,,0]
2542 DFAD AC,[200000,,0
2543 032043 110 04 0 00 043332 0,,0]
2544 032044 312 04 0 00 043463 CAME AC,[ZZ,,0]
2545 032045 003 04 0 00 000336 ER3 AC,T
2546 032046 312 05 0 00 043330 CAME AC+1,[0,,0]
2547 032047 004 05 0 00 000336 ER4 AC+1,T
2548 032050 321 10 0 00 032042 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2549
2550
2551 000337 T=T+1
2552 040000 XX=XX/2
2553 143400 ZZ=ZZ-1000
2554 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
2555 DMOVE AC,[200000,,0
2556 032051 120 04 0 00 043464 XX,,0]
2557 DFAD AC,[200000,,0
2558 032052 110 04 0 00 043332 0,,0]
2559 032053 312 04 0 00 043466 CAME AC,[ZZ,,0]
2560 032054 003 04 0 00 000337 ER3 AC,T
2561 032055 312 05 0 00 043330 CAME AC+1,[0,,0]
2562 032056 004 05 0 00 000337 ER4 AC+1,T
2563 032057 321 10 0 00 032051 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2564
2565
2566 000340 T=T+1
2567 020000 XX=XX/2
2568 142400 ZZ=ZZ-1000
2569 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
2570 DMOVE AC,[200000,,0
2571 032060 120 04 0 00 043467 XX,,0]
2572 DFAD AC,[200000,,0
2573 032061 110 04 0 00 043332 0,,0]
2574 032062 312 04 0 00 043471 CAME AC,[ZZ,,0]
2575 032063 003 04 0 00 000340 ER3 AC,T
2576 032064 312 05 0 00 043330 CAME AC+1,[0,,0]
2577 032065 004 05 0 00 000340 ER4 AC+1,T
2578 032066 321 10 0 00 032060 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2579
2580
2581 000341 T=T+1
2582 010000 XX=XX/2
2583 141400 ZZ=ZZ-1000
2584 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
2585 DMOVE AC,[200000,,0
2586 032067 120 04 0 00 043472 XX,,0]
2587 DFAD AC,[200000,,0
2588 032070 110 04 0 00 043332 0,,0]
2589 032071 312 04 0 00 043474 CAME AC,[ZZ,,0]
2590 032072 003 04 0 00 000341 ER3 AC,T
2591 032073 312 05 0 00 043330 CAME AC+1,[0,,0]
2592 032074 004 05 0 00 000341 ER4 AC+1,T
2593 032075 321 10 0 00 032067 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2594
2595
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-9
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0068
2596 000342 T=T+1
2597 004000 XX=XX/2
2598 140400 ZZ=ZZ-1000
2599 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
2600 DMOVE AC,[200000,,0
2601 032076 120 04 0 00 043475 XX,,0]
2602 DFAD AC,[200000,,0
2603 032077 110 04 0 00 043332 0,,0]
2604 032100 312 04 0 00 043477 CAME AC,[ZZ,,0]
2605 032101 003 04 0 00 000342 ER3 AC,T
2606 032102 312 05 0 00 043330 CAME AC+1,[0,,0]
2607 032103 004 05 0 00 000342 ER4 AC+1,T
2608 032104 321 10 0 00 032076 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2609
2610
2611 000343 T=T+1
2612 002000 XX=XX/2
2613 137400 ZZ=ZZ-1000
2614 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
2615 DMOVE AC,[200000,,0
2616 032105 120 04 0 00 043500 XX,,0]
2617 DFAD AC,[200000,,0
2618 032106 110 04 0 00 043332 0,,0]
2619 032107 312 04 0 00 043502 CAME AC,[ZZ,,0]
2620 032110 003 04 0 00 000343 ER3 AC,T
2621 032111 312 05 0 00 043330 CAME AC+1,[0,,0]
2622 032112 004 05 0 00 000343 ER4 AC+1,T
2623 032113 321 10 0 00 032105 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2624
2625
2626 000344 T=T+1
2627 001000 XX=XX/2
2628 136400 ZZ=ZZ-1000
2629 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
2630 DMOVE AC,[200000,,0
2631 032114 120 04 0 00 043503 XX,,0]
2632 DFAD AC,[200000,,0
2633 032115 110 04 0 00 043332 0,,0]
2634 032116 312 04 0 00 043505 CAME AC,[ZZ,,0]
2635 032117 003 04 0 00 000344 ER3 AC,T
2636 032120 312 05 0 00 043330 CAME AC+1,[0,,0]
2637 032121 004 05 0 00 000344 ER4 AC+1,T
2638 032122 321 10 0 00 032114 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2639
2640
2641 000345 T=T+1
2642 000400 XX=XX/2
2643 135400 ZZ=ZZ-1000
2644 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
2645 DMOVE AC,[200000,,0
2646 032123 120 04 0 00 043506 XX,,0]
2647 DFAD AC,[200000,,0
2648 032124 110 04 0 00 043332 0,,0]
2649 032125 312 04 0 00 043510 CAME AC,[ZZ,,0]
2650 032126 003 04 0 00 000345 ER3 AC,T
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-10
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0069
2651 032127 312 05 0 00 043330 CAME AC+1,[0,,0]
2652 032130 004 05 0 00 000345 ER4 AC+1,T
2653 032131 321 10 0 00 032123 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2654
2655
2656 000346 T=T+1
2657 000200 XX=XX/2
2658 134400 ZZ=ZZ-1000
2659 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
2660 DMOVE AC,[200000,,0
2661 032132 120 04 0 00 043511 XX,,0]
2662 DFAD AC,[200000,,0
2663 032133 110 04 0 00 043332 0,,0]
2664 032134 312 04 0 00 043513 CAME AC,[ZZ,,0]
2665 032135 003 04 0 00 000346 ER3 AC,T
2666 032136 312 05 0 00 043330 CAME AC+1,[0,,0]
2667 032137 004 05 0 00 000346 ER4 AC+1,T
2668 032140 321 10 0 00 032132 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2669
2670
2671 000347 T=T+1
2672 000100 XX=XX/2
2673 133400 ZZ=ZZ-1000
2674 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
2675 DMOVE AC,[200000,,0
2676 032141 120 04 0 00 043514 XX,,0]
2677 DFAD AC,[200000,,0
2678 032142 110 04 0 00 043332 0,,0]
2679 032143 312 04 0 00 043516 CAME AC,[ZZ,,0]
2680 032144 003 04 0 00 000347 ER3 AC,T
2681 032145 312 05 0 00 043330 CAME AC+1,[0,,0]
2682 032146 004 05 0 00 000347 ER4 AC+1,T
2683 032147 321 10 0 00 032141 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2684
2685
2686 000350 T=T+1
2687 000040 XX=XX/2
2688 132400 ZZ=ZZ-1000
2689 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
2690 DMOVE AC,[200000,,0
2691 032150 120 04 0 00 043517 XX,,0]
2692 DFAD AC,[200000,,0
2693 032151 110 04 0 00 043332 0,,0]
2694 032152 312 04 0 00 043521 CAME AC,[ZZ,,0]
2695 032153 003 04 0 00 000350 ER3 AC,T
2696 032154 312 05 0 00 043330 CAME AC+1,[0,,0]
2697 032155 004 05 0 00 000350 ER4 AC+1,T
2698 032156 321 10 0 00 032150 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2699
2700
2701 000351 T=T+1
2702 000020 XX=XX/2
2703 131400 ZZ=ZZ-1000
2704 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
2705 DMOVE AC,[200000,,0
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-11
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0070
2706 032157 120 04 0 00 043522 XX,,0]
2707 DFAD AC,[200000,,0
2708 032160 110 04 0 00 043332 0,,0]
2709 032161 312 04 0 00 043524 CAME AC,[ZZ,,0]
2710 032162 003 04 0 00 000351 ER3 AC,T
2711 032163 312 05 0 00 043330 CAME AC+1,[0,,0]
2712 032164 004 05 0 00 000351 ER4 AC+1,T
2713 032165 321 10 0 00 032157 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2714
2715
2716 000352 T=T+1
2717 000010 XX=XX/2
2718 130400 ZZ=ZZ-1000
2719 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
2720 DMOVE AC,[200000,,0
2721 032166 120 04 0 00 043525 XX,,0]
2722 DFAD AC,[200000,,0
2723 032167 110 04 0 00 043332 0,,0]
2724 032170 312 04 0 00 043527 CAME AC,[ZZ,,0]
2725 032171 003 04 0 00 000352 ER3 AC,T
2726 032172 312 05 0 00 043330 CAME AC+1,[0,,0]
2727 032173 004 05 0 00 000352 ER4 AC+1,T
2728 032174 321 10 0 00 032166 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2729
2730
2731 000353 T=T+1
2732 000004 XX=XX/2
2733 127400 ZZ=ZZ-1000
2734 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
2735 DMOVE AC,[200000,,0
2736 032175 120 04 0 00 043530 XX,,0]
2737 DFAD AC,[200000,,0
2738 032176 110 04 0 00 043332 0,,0]
2739 032177 312 04 0 00 043532 CAME AC,[ZZ,,0]
2740 032200 003 04 0 00 000353 ER3 AC,T
2741 032201 312 05 0 00 043330 CAME AC+1,[0,,0]
2742 032202 004 05 0 00 000353 ER4 AC+1,T
2743 032203 321 10 0 00 032175 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2744
2745
2746 000354 T=T+1
2747 000002 XX=XX/2
2748 126400 ZZ=ZZ-1000
2749 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
2750 DMOVE AC,[200000,,0
2751 032204 120 04 0 00 043533 XX,,0]
2752 DFAD AC,[200000,,0
2753 032205 110 04 0 00 043332 0,,0]
2754 032206 312 04 0 00 043535 CAME AC,[ZZ,,0]
2755 032207 003 04 0 00 000354 ER3 AC,T
2756 032210 312 05 0 00 043330 CAME AC+1,[0,,0]
2757 032211 004 05 0 00 000354 ER4 AC+1,T
2758 032212 321 10 0 00 032204 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2759
2760
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-12
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0071
2761 000355 T=T+1
2762 000001 XX=XX/2
2763 125400 ZZ=ZZ-1000
2764 DFARP T,200000,0,XX,0,200000,0,0,0,ZZ,0,0,0^
2765 DMOVE AC,[200000,,0
2766 032213 120 04 0 00 043536 XX,,0]
2767 DFAD AC,[200000,,0
2768 032214 110 04 0 00 043332 0,,0]
2769 032215 312 04 0 00 043540 CAME AC,[ZZ,,0]
2770 032216 003 04 0 00 000355 ER3 AC,T
2771 032217 312 05 0 00 043330 CAME AC+1,[0,,0]
2772 032220 004 05 0 00 000355 ER4 AC+1,T
2773 032221 321 10 0 00 032213 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2774
2775
2776
2777 000001 000000 XX=1000000
2778
2779 REPEAT ^D18,
2780 <T=T+1
2781 XX=XX/2
2782 ZZ=ZZ-1000
2783 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0
2784 >
2785 000356 T=T+1
2786 400000 XX=XX/2
2787 124400 ZZ=ZZ-1000
2788 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
2789 DMOVE AC,[200000,,0
2790 032222 120 04 0 00 043541 0,,XX]
2791 DFAD AC,[200000,,0
2792 032223 110 04 0 00 043332 0,,0]
2793 032224 312 04 0 00 043543 CAME AC,[ZZ,,0]
2794 032225 003 04 0 00 000356 ER3 AC,T
2795 032226 312 05 0 00 043330 CAME AC+1,[0,,0]
2796 032227 004 05 0 00 000356 ER4 AC+1,T
2797 032230 321 10 0 00 032222 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2798
2799 000357 T=T+1
2800 200000 XX=XX/2
2801 123400 ZZ=ZZ-1000
2802 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
2803 DMOVE AC,[200000,,0
2804 032231 120 04 0 00 043544 0,,XX]
2805 DFAD AC,[200000,,0
2806 032232 110 04 0 00 043332 0,,0]
2807 032233 312 04 0 00 043546 CAME AC,[ZZ,,0]
2808 032234 003 04 0 00 000357 ER3 AC,T
2809 032235 312 05 0 00 043330 CAME AC+1,[0,,0]
2810 032236 004 05 0 00 000357 ER4 AC+1,T
2811 032237 321 10 0 00 032231 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2812
2813 000360 T=T+1
2814 100000 XX=XX/2
2815 122400 ZZ=ZZ-1000
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-13
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0072
2816 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
2817 DMOVE AC,[200000,,0
2818 032240 120 04 0 00 043547 0,,XX]
2819 DFAD AC,[200000,,0
2820 032241 110 04 0 00 043332 0,,0]
2821 032242 312 04 0 00 043551 CAME AC,[ZZ,,0]
2822 032243 003 04 0 00 000360 ER3 AC,T
2823 032244 312 05 0 00 043330 CAME AC+1,[0,,0]
2824 032245 004 05 0 00 000360 ER4 AC+1,T
2825 032246 321 10 0 00 032240 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2826
2827 000361 T=T+1
2828 040000 XX=XX/2
2829 121400 ZZ=ZZ-1000
2830 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
2831 DMOVE AC,[200000,,0
2832 032247 120 04 0 00 043552 0,,XX]
2833 DFAD AC,[200000,,0
2834 032250 110 04 0 00 043332 0,,0]
2835 032251 312 04 0 00 043554 CAME AC,[ZZ,,0]
2836 032252 003 04 0 00 000361 ER3 AC,T
2837 032253 312 05 0 00 043330 CAME AC+1,[0,,0]
2838 032254 004 05 0 00 000361 ER4 AC+1,T
2839 032255 321 10 0 00 032247 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2840
2841 000362 T=T+1
2842 020000 XX=XX/2
2843 120400 ZZ=ZZ-1000
2844 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
2845 DMOVE AC,[200000,,0
2846 032256 120 04 0 00 043555 0,,XX]
2847 DFAD AC,[200000,,0
2848 032257 110 04 0 00 043332 0,,0]
2849 032260 312 04 0 00 043557 CAME AC,[ZZ,,0]
2850 032261 003 04 0 00 000362 ER3 AC,T
2851 032262 312 05 0 00 043330 CAME AC+1,[0,,0]
2852 032263 004 05 0 00 000362 ER4 AC+1,T
2853 032264 321 10 0 00 032256 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2854
2855 000363 T=T+1
2856 010000 XX=XX/2
2857 117400 ZZ=ZZ-1000
2858 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
2859 DMOVE AC,[200000,,0
2860 032265 120 04 0 00 043560 0,,XX]
2861 DFAD AC,[200000,,0
2862 032266 110 04 0 00 043332 0,,0]
2863 032267 312 04 0 00 043562 CAME AC,[ZZ,,0]
2864 032270 003 04 0 00 000363 ER3 AC,T
2865 032271 312 05 0 00 043330 CAME AC+1,[0,,0]
2866 032272 004 05 0 00 000363 ER4 AC+1,T
2867 032273 321 10 0 00 032265 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2868
2869 000364 T=T+1
2870 004000 XX=XX/2
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-14
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0073
2871 116400 ZZ=ZZ-1000
2872 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
2873 DMOVE AC,[200000,,0
2874 032274 120 04 0 00 043563 0,,XX]
2875 DFAD AC,[200000,,0
2876 032275 110 04 0 00 043332 0,,0]
2877 032276 312 04 0 00 043565 CAME AC,[ZZ,,0]
2878 032277 003 04 0 00 000364 ER3 AC,T
2879 032300 312 05 0 00 043330 CAME AC+1,[0,,0]
2880 032301 004 05 0 00 000364 ER4 AC+1,T
2881 032302 321 10 0 00 032274 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2882
2883 000365 T=T+1
2884 002000 XX=XX/2
2885 115400 ZZ=ZZ-1000
2886 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
2887 DMOVE AC,[200000,,0
2888 032303 120 04 0 00 043566 0,,XX]
2889 DFAD AC,[200000,,0
2890 032304 110 04 0 00 043332 0,,0]
2891 032305 312 04 0 00 043570 CAME AC,[ZZ,,0]
2892 032306 003 04 0 00 000365 ER3 AC,T
2893 032307 312 05 0 00 043330 CAME AC+1,[0,,0]
2894 032310 004 05 0 00 000365 ER4 AC+1,T
2895 032311 321 10 0 00 032303 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2896
2897 000366 T=T+1
2898 001000 XX=XX/2
2899 114400 ZZ=ZZ-1000
2900 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
2901 DMOVE AC,[200000,,0
2902 032312 120 04 0 00 043571 0,,XX]
2903 DFAD AC,[200000,,0
2904 032313 110 04 0 00 043332 0,,0]
2905 032314 312 04 0 00 043573 CAME AC,[ZZ,,0]
2906 032315 003 04 0 00 000366 ER3 AC,T
2907 032316 312 05 0 00 043330 CAME AC+1,[0,,0]
2908 032317 004 05 0 00 000366 ER4 AC+1,T
2909 032320 321 10 0 00 032312 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2910
2911 000367 T=T+1
2912 000400 XX=XX/2
2913 113400 ZZ=ZZ-1000
2914 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
2915 DMOVE AC,[200000,,0
2916 032321 120 04 0 00 043574 0,,XX]
2917 DFAD AC,[200000,,0
2918 032322 110 04 0 00 043332 0,,0]
2919 032323 312 04 0 00 043576 CAME AC,[ZZ,,0]
2920 032324 003 04 0 00 000367 ER3 AC,T
2921 032325 312 05 0 00 043330 CAME AC+1,[0,,0]
2922 032326 004 05 0 00 000367 ER4 AC+1,T
2923 032327 321 10 0 00 032321 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2924
2925 000370 T=T+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-15
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0074
2926 000200 XX=XX/2
2927 112400 ZZ=ZZ-1000
2928 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
2929 DMOVE AC,[200000,,0
2930 032330 120 04 0 00 043577 0,,XX]
2931 DFAD AC,[200000,,0
2932 032331 110 04 0 00 043332 0,,0]
2933 032332 312 04 0 00 043601 CAME AC,[ZZ,,0]
2934 032333 003 04 0 00 000370 ER3 AC,T
2935 032334 312 05 0 00 043330 CAME AC+1,[0,,0]
2936 032335 004 05 0 00 000370 ER4 AC+1,T
2937 032336 321 10 0 00 032330 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2938
2939 000371 T=T+1
2940 000100 XX=XX/2
2941 111400 ZZ=ZZ-1000
2942 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
2943 DMOVE AC,[200000,,0
2944 032337 120 04 0 00 043602 0,,XX]
2945 DFAD AC,[200000,,0
2946 032340 110 04 0 00 043332 0,,0]
2947 032341 312 04 0 00 043604 CAME AC,[ZZ,,0]
2948 032342 003 04 0 00 000371 ER3 AC,T
2949 032343 312 05 0 00 043330 CAME AC+1,[0,,0]
2950 032344 004 05 0 00 000371 ER4 AC+1,T
2951 032345 321 10 0 00 032337 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2952
2953 000372 T=T+1
2954 000040 XX=XX/2
2955 110400 ZZ=ZZ-1000
2956 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
2957 DMOVE AC,[200000,,0
2958 032346 120 04 0 00 043605 0,,XX]
2959 DFAD AC,[200000,,0
2960 032347 110 04 0 00 043332 0,,0]
2961 032350 312 04 0 00 043607 CAME AC,[ZZ,,0]
2962 032351 003 04 0 00 000372 ER3 AC,T
2963 032352 312 05 0 00 043330 CAME AC+1,[0,,0]
2964 032353 004 05 0 00 000372 ER4 AC+1,T
2965 032354 321 10 0 00 032346 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2966
2967 000373 T=T+1
2968 000020 XX=XX/2
2969 107400 ZZ=ZZ-1000
2970 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
2971 DMOVE AC,[200000,,0
2972 032355 120 04 0 00 043610 0,,XX]
2973 DFAD AC,[200000,,0
2974 032356 110 04 0 00 043332 0,,0]
2975 032357 312 04 0 00 043612 CAME AC,[ZZ,,0]
2976 032360 003 04 0 00 000373 ER3 AC,T
2977 032361 312 05 0 00 043330 CAME AC+1,[0,,0]
2978 032362 004 05 0 00 000373 ER4 AC+1,T
2979 032363 321 10 0 00 032355 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2980
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-16
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0075
2981 000374 T=T+1
2982 000010 XX=XX/2
2983 106400 ZZ=ZZ-1000
2984 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
2985 DMOVE AC,[200000,,0
2986 032364 120 04 0 00 043613 0,,XX]
2987 DFAD AC,[200000,,0
2988 032365 110 04 0 00 043332 0,,0]
2989 032366 312 04 0 00 043615 CAME AC,[ZZ,,0]
2990 032367 003 04 0 00 000374 ER3 AC,T
2991 032370 312 05 0 00 043330 CAME AC+1,[0,,0]
2992 032371 004 05 0 00 000374 ER4 AC+1,T
2993 032372 321 10 0 00 032364 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
2994
2995 000375 T=T+1
2996 000004 XX=XX/2
2997 105400 ZZ=ZZ-1000
2998 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
2999 DMOVE AC,[200000,,0
3000 032373 120 04 0 00 043616 0,,XX]
3001 DFAD AC,[200000,,0
3002 032374 110 04 0 00 043332 0,,0]
3003 032375 312 04 0 00 043620 CAME AC,[ZZ,,0]
3004 032376 003 04 0 00 000375 ER3 AC,T
3005 032377 312 05 0 00 043330 CAME AC+1,[0,,0]
3006 032400 004 05 0 00 000375 ER4 AC+1,T
3007 032401 321 10 0 00 032373 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3008
3009 000376 T=T+1
3010 000002 XX=XX/2
3011 104400 ZZ=ZZ-1000
3012 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
3013 DMOVE AC,[200000,,0
3014 032402 120 04 0 00 043621 0,,XX]
3015 DFAD AC,[200000,,0
3016 032403 110 04 0 00 043332 0,,0]
3017 032404 312 04 0 00 043623 CAME AC,[ZZ,,0]
3018 032405 003 04 0 00 000376 ER3 AC,T
3019 032406 312 05 0 00 043330 CAME AC+1,[0,,0]
3020 032407 004 05 0 00 000376 ER4 AC+1,T
3021 032410 321 10 0 00 032402 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3022
3023 000377 T=T+1
3024 000001 XX=XX/2
3025 103400 ZZ=ZZ-1000
3026 DFARP T,200000,0,0,XX,200000,0,0,0,ZZ,0,0,0^
3027 DMOVE AC,[200000,,0
3028 032411 120 04 0 00 043624 0,,XX]
3029 DFAD AC,[200000,,0
3030 032412 110 04 0 00 043332 0,,0]
3031 032413 312 04 0 00 043626 CAME AC,[ZZ,,0]
3032 032414 003 04 0 00 000377 ER3 AC,T
3033 032415 312 05 0 00 043330 CAME AC+1,[0,,0]
3034 032416 004 05 0 00 000377 ER4 AC+1,T
3035 032417 321 10 0 00 032411 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3-17
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0076
3036
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0077
3037
3038 ;ADD A FRACTION OF ALL ONES TO A FRACTION OF ALL ZEROS
3039
3040 DFA 4,0,0,0,0,777,-1,-1,-1,777,-1,377777,-1^
3041 R400: DMOVE AC,[0,,0
3042 032420 120 04 0 00 043330 0,,0]
3043 DFAD AC,[777,,-1
3044 032421 110 04 0 00 043627 -1,,-1]
3045 032422 312 04 0 00 043627 CAME AC,[777,,-1]
3046 032423 003 04 0 00 000401 ER3 AC,401
3047 032424 312 05 0 00 043631 CAME AC+1,[377777,,-1]
3048 032425 004 05 0 00 000401 ER4 AC+1,401
3049 032426 321 10 0 00 032420 JUMPL AC+4,R400 ;LOOP ON ERROR SWITCH^
3050
3051 ;ADD A FRACTION OF ALL ZEROS TO A FRACTION OF ALL ONES
3052
3053 DFA 5,777,-1,-1,-1,0,0,0,0,777,-1,377777,-1^
3054 R500: DMOVE AC,[777,,-1
3055 032427 120 04 0 00 043627 -1,,-1]
3056 DFAD AC,[0,,0
3057 032430 110 04 0 00 043330 0,,0]
3058 032431 312 04 0 00 043627 CAME AC,[777,,-1]
3059 032432 003 04 0 00 000501 ER3 AC,501
3060 032433 312 05 0 00 043631 CAME AC+1,[377777,,-1]
3061 032434 004 05 0 00 000501 ER4 AC+1,501
3062 032435 321 10 0 00 032427 JUMPL AC+4,R500 ;LOOP ON ERROR SWITCH^
3063 PAGE
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-1
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0078
3064 ;RIPPLE ZEROS TESTS (TO A FRACTION OF ALL ZEROS, ADD A RIPPLED ZERO)
3065
3066 000600 T=600
3067 000000 ZZ=0
3068
3069 R600: REPEAT ^D18,
3070 <T=T+1
3071 ZZ=ZZ+ZZ+1
3072 IFE <ZZ-1>,<ZZ=-2>
3073 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ
3074 >
3075 000601 T=T+1
3076 000001 ZZ=ZZ+ZZ+1
3077 777777 777776 IFE <ZZ-1>,<ZZ=-2>
3078 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
3079 DMOVE AC,[0,,0
3080 032436 120 04 0 00 043330 0,,0]
3081 DFAD AC,[777,,-1
3082 032437 110 04 0 00 043632 -1,,ZZ]
3083 032440 312 04 0 00 043627 CAME AC,[777,,-1]
3084 032441 003 04 0 00 000601 ER3 AC,T
3085 032442 312 05 0 00 043634 CAME AC+1,[377777,,ZZ]
3086 032443 004 05 0 00 000601 ER4 AC+1,T
3087 032444 321 10 0 00 032436 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3088
3089 000602 T=T+1
3090 777777 777775 ZZ=ZZ+ZZ+1
3091 IFE <ZZ-1>,<ZZ=-2>
3092 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
3093 DMOVE AC,[0,,0
3094 032445 120 04 0 00 043330 0,,0]
3095 DFAD AC,[777,,-1
3096 032446 110 04 0 00 043635 -1,,ZZ]
3097 032447 312 04 0 00 043627 CAME AC,[777,,-1]
3098 032450 003 04 0 00 000602 ER3 AC,T
3099 032451 312 05 0 00 043637 CAME AC+1,[377777,,ZZ]
3100 032452 004 05 0 00 000602 ER4 AC+1,T
3101 032453 321 10 0 00 032445 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3102
3103 000603 T=T+1
3104 777777 777773 ZZ=ZZ+ZZ+1
3105 IFE <ZZ-1>,<ZZ=-2>
3106 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
3107 DMOVE AC,[0,,0
3108 032454 120 04 0 00 043330 0,,0]
3109 DFAD AC,[777,,-1
3110 032455 110 04 0 00 043640 -1,,ZZ]
3111 032456 312 04 0 00 043627 CAME AC,[777,,-1]
3112 032457 003 04 0 00 000603 ER3 AC,T
3113 032460 312 05 0 00 043642 CAME AC+1,[377777,,ZZ]
3114 032461 004 05 0 00 000603 ER4 AC+1,T
3115 032462 321 10 0 00 032454 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3116
3117 000604 T=T+1
3118 777777 777767 ZZ=ZZ+ZZ+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-2
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0079
3119 IFE <ZZ-1>,<ZZ=-2>
3120 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
3121 DMOVE AC,[0,,0
3122 032463 120 04 0 00 043330 0,,0]
3123 DFAD AC,[777,,-1
3124 032464 110 04 0 00 043643 -1,,ZZ]
3125 032465 312 04 0 00 043627 CAME AC,[777,,-1]
3126 032466 003 04 0 00 000604 ER3 AC,T
3127 032467 312 05 0 00 043645 CAME AC+1,[377777,,ZZ]
3128 032470 004 05 0 00 000604 ER4 AC+1,T
3129 032471 321 10 0 00 032463 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3130
3131 000605 T=T+1
3132 777777 777757 ZZ=ZZ+ZZ+1
3133 IFE <ZZ-1>,<ZZ=-2>
3134 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
3135 DMOVE AC,[0,,0
3136 032472 120 04 0 00 043330 0,,0]
3137 DFAD AC,[777,,-1
3138 032473 110 04 0 00 043646 -1,,ZZ]
3139 032474 312 04 0 00 043627 CAME AC,[777,,-1]
3140 032475 003 04 0 00 000605 ER3 AC,T
3141 032476 312 05 0 00 043650 CAME AC+1,[377777,,ZZ]
3142 032477 004 05 0 00 000605 ER4 AC+1,T
3143 032500 321 10 0 00 032472 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3144
3145 000606 T=T+1
3146 777777 777737 ZZ=ZZ+ZZ+1
3147 IFE <ZZ-1>,<ZZ=-2>
3148 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
3149 DMOVE AC,[0,,0
3150 032501 120 04 0 00 043330 0,,0]
3151 DFAD AC,[777,,-1
3152 032502 110 04 0 00 043651 -1,,ZZ]
3153 032503 312 04 0 00 043627 CAME AC,[777,,-1]
3154 032504 003 04 0 00 000606 ER3 AC,T
3155 032505 312 05 0 00 043653 CAME AC+1,[377777,,ZZ]
3156 032506 004 05 0 00 000606 ER4 AC+1,T
3157 032507 321 10 0 00 032501 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3158
3159 000607 T=T+1
3160 777777 777677 ZZ=ZZ+ZZ+1
3161 IFE <ZZ-1>,<ZZ=-2>
3162 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
3163 DMOVE AC,[0,,0
3164 032510 120 04 0 00 043330 0,,0]
3165 DFAD AC,[777,,-1
3166 032511 110 04 0 00 043654 -1,,ZZ]
3167 032512 312 04 0 00 043627 CAME AC,[777,,-1]
3168 032513 003 04 0 00 000607 ER3 AC,T
3169 032514 312 05 0 00 043656 CAME AC+1,[377777,,ZZ]
3170 032515 004 05 0 00 000607 ER4 AC+1,T
3171 032516 321 10 0 00 032510 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3172
3173 000610 T=T+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-3
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0080
3174 777777 777577 ZZ=ZZ+ZZ+1
3175 IFE <ZZ-1>,<ZZ=-2>
3176 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
3177 DMOVE AC,[0,,0
3178 032517 120 04 0 00 043330 0,,0]
3179 DFAD AC,[777,,-1
3180 032520 110 04 0 00 043657 -1,,ZZ]
3181 032521 312 04 0 00 043627 CAME AC,[777,,-1]
3182 032522 003 04 0 00 000610 ER3 AC,T
3183 032523 312 05 0 00 043661 CAME AC+1,[377777,,ZZ]
3184 032524 004 05 0 00 000610 ER4 AC+1,T
3185 032525 321 10 0 00 032517 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3186
3187 000611 T=T+1
3188 777777 777377 ZZ=ZZ+ZZ+1
3189 IFE <ZZ-1>,<ZZ=-2>
3190 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
3191 DMOVE AC,[0,,0
3192 032526 120 04 0 00 043330 0,,0]
3193 DFAD AC,[777,,-1
3194 032527 110 04 0 00 043662 -1,,ZZ]
3195 032530 312 04 0 00 043627 CAME AC,[777,,-1]
3196 032531 003 04 0 00 000611 ER3 AC,T
3197 032532 312 05 0 00 043664 CAME AC+1,[377777,,ZZ]
3198 032533 004 05 0 00 000611 ER4 AC+1,T
3199 032534 321 10 0 00 032526 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3200
3201 000612 T=T+1
3202 777777 776777 ZZ=ZZ+ZZ+1
3203 IFE <ZZ-1>,<ZZ=-2>
3204 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
3205 DMOVE AC,[0,,0
3206 032535 120 04 0 00 043330 0,,0]
3207 DFAD AC,[777,,-1
3208 032536 110 04 0 00 043665 -1,,ZZ]
3209 032537 312 04 0 00 043627 CAME AC,[777,,-1]
3210 032540 003 04 0 00 000612 ER3 AC,T
3211 032541 312 05 0 00 043667 CAME AC+1,[377777,,ZZ]
3212 032542 004 05 0 00 000612 ER4 AC+1,T
3213 032543 321 10 0 00 032535 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3214
3215 000613 T=T+1
3216 777777 775777 ZZ=ZZ+ZZ+1
3217 IFE <ZZ-1>,<ZZ=-2>
3218 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
3219 DMOVE AC,[0,,0
3220 032544 120 04 0 00 043330 0,,0]
3221 DFAD AC,[777,,-1
3222 032545 110 04 0 00 043670 -1,,ZZ]
3223 032546 312 04 0 00 043627 CAME AC,[777,,-1]
3224 032547 003 04 0 00 000613 ER3 AC,T
3225 032550 312 05 0 00 043672 CAME AC+1,[377777,,ZZ]
3226 032551 004 05 0 00 000613 ER4 AC+1,T
3227 032552 321 10 0 00 032544 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3228
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-4
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0081
3229 000614 T=T+1
3230 777777 773777 ZZ=ZZ+ZZ+1
3231 IFE <ZZ-1>,<ZZ=-2>
3232 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
3233 DMOVE AC,[0,,0
3234 032553 120 04 0 00 043330 0,,0]
3235 DFAD AC,[777,,-1
3236 032554 110 04 0 00 043673 -1,,ZZ]
3237 032555 312 04 0 00 043627 CAME AC,[777,,-1]
3238 032556 003 04 0 00 000614 ER3 AC,T
3239 032557 312 05 0 00 043675 CAME AC+1,[377777,,ZZ]
3240 032560 004 05 0 00 000614 ER4 AC+1,T
3241 032561 321 10 0 00 032553 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3242
3243 000615 T=T+1
3244 777777 767777 ZZ=ZZ+ZZ+1
3245 IFE <ZZ-1>,<ZZ=-2>
3246 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
3247 DMOVE AC,[0,,0
3248 032562 120 04 0 00 043330 0,,0]
3249 DFAD AC,[777,,-1
3250 032563 110 04 0 00 043676 -1,,ZZ]
3251 032564 312 04 0 00 043627 CAME AC,[777,,-1]
3252 032565 003 04 0 00 000615 ER3 AC,T
3253 032566 312 05 0 00 043700 CAME AC+1,[377777,,ZZ]
3254 032567 004 05 0 00 000615 ER4 AC+1,T
3255 032570 321 10 0 00 032562 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3256
3257 000616 T=T+1
3258 777777 757777 ZZ=ZZ+ZZ+1
3259 IFE <ZZ-1>,<ZZ=-2>
3260 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
3261 DMOVE AC,[0,,0
3262 032571 120 04 0 00 043330 0,,0]
3263 DFAD AC,[777,,-1
3264 032572 110 04 0 00 043701 -1,,ZZ]
3265 032573 312 04 0 00 043627 CAME AC,[777,,-1]
3266 032574 003 04 0 00 000616 ER3 AC,T
3267 032575 312 05 0 00 043703 CAME AC+1,[377777,,ZZ]
3268 032576 004 05 0 00 000616 ER4 AC+1,T
3269 032577 321 10 0 00 032571 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3270
3271 000617 T=T+1
3272 777777 737777 ZZ=ZZ+ZZ+1
3273 IFE <ZZ-1>,<ZZ=-2>
3274 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
3275 DMOVE AC,[0,,0
3276 032600 120 04 0 00 043330 0,,0]
3277 DFAD AC,[777,,-1
3278 032601 110 04 0 00 043704 -1,,ZZ]
3279 032602 312 04 0 00 043627 CAME AC,[777,,-1]
3280 032603 003 04 0 00 000617 ER3 AC,T
3281 032604 312 05 0 00 043706 CAME AC+1,[377777,,ZZ]
3282 032605 004 05 0 00 000617 ER4 AC+1,T
3283 032606 321 10 0 00 032600 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-5
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0082
3284
3285 000620 T=T+1
3286 777777 677777 ZZ=ZZ+ZZ+1
3287 IFE <ZZ-1>,<ZZ=-2>
3288 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
3289 DMOVE AC,[0,,0
3290 032607 120 04 0 00 043330 0,,0]
3291 DFAD AC,[777,,-1
3292 032610 110 04 0 00 043707 -1,,ZZ]
3293 032611 312 04 0 00 043627 CAME AC,[777,,-1]
3294 032612 003 04 0 00 000620 ER3 AC,T
3295 032613 312 05 0 00 043711 CAME AC+1,[377777,,ZZ]
3296 032614 004 05 0 00 000620 ER4 AC+1,T
3297 032615 321 10 0 00 032607 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3298
3299 000621 T=T+1
3300 777777 577777 ZZ=ZZ+ZZ+1
3301 IFE <ZZ-1>,<ZZ=-2>
3302 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
3303 DMOVE AC,[0,,0
3304 032616 120 04 0 00 043330 0,,0]
3305 DFAD AC,[777,,-1
3306 032617 110 04 0 00 043712 -1,,ZZ]
3307 032620 312 04 0 00 043627 CAME AC,[777,,-1]
3308 032621 003 04 0 00 000621 ER3 AC,T
3309 032622 312 05 0 00 043714 CAME AC+1,[377777,,ZZ]
3310 032623 004 05 0 00 000621 ER4 AC+1,T
3311 032624 321 10 0 00 032616 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3312
3313 000622 T=T+1
3314 777777 377777 ZZ=ZZ+ZZ+1
3315 IFE <ZZ-1>,<ZZ=-2>
3316 DFARP T,0,0,0,0,777,-1,-1,ZZ,777,-1,377777,ZZ^
3317 DMOVE AC,[0,,0
3318 032625 120 04 0 00 043330 0,,0]
3319 DFAD AC,[777,,-1
3320 032626 110 04 0 00 043715 -1,,ZZ]
3321 032627 312 04 0 00 043627 CAME AC,[777,,-1]
3322 032630 003 04 0 00 000622 ER3 AC,T
3323 032631 312 05 0 00 043717 CAME AC+1,[377777,,ZZ]
3324 032632 004 05 0 00 000622 ER4 AC+1,T
3325 032633 321 10 0 00 032625 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3326
3327
3328 000000 ZZ=0
3329
3330 REPEAT ^D18,
3331 <T=T+1
3332 ZZ=ZZ+ZZ+1
3333 IFE <ZZ-1>,<ZZ=-2>
3334 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1
3335 >
3336 000623 T=T+1
3337 000001 ZZ=ZZ+ZZ+1
3338 777777 777776 IFE <ZZ-1>,<ZZ=-2>
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-6
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0083
3339 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
3340 DMOVE AC,[0,,0
3341 032634 120 04 0 00 043330 0,,0]
3342 DFAD AC,[777,,-1
3343 032635 110 04 0 00 043720 ZZ,,-1]
3344 032636 312 04 0 00 043627 CAME AC,[777,,-1]
3345 032637 003 04 0 00 000623 ER3 AC,T
3346 032640 312 05 0 00 043722 CAME AC+1,[ZZ&377777,,-1]
3347 032641 004 05 0 00 000623 ER4 AC+1,T
3348 032642 321 10 0 00 032634 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3349
3350 000624 T=T+1
3351 777777 777775 ZZ=ZZ+ZZ+1
3352 IFE <ZZ-1>,<ZZ=-2>
3353 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
3354 DMOVE AC,[0,,0
3355 032643 120 04 0 00 043330 0,,0]
3356 DFAD AC,[777,,-1
3357 032644 110 04 0 00 043723 ZZ,,-1]
3358 032645 312 04 0 00 043627 CAME AC,[777,,-1]
3359 032646 003 04 0 00 000624 ER3 AC,T
3360 032647 312 05 0 00 043725 CAME AC+1,[ZZ&377777,,-1]
3361 032650 004 05 0 00 000624 ER4 AC+1,T
3362 032651 321 10 0 00 032643 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3363
3364 000625 T=T+1
3365 777777 777773 ZZ=ZZ+ZZ+1
3366 IFE <ZZ-1>,<ZZ=-2>
3367 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
3368 DMOVE AC,[0,,0
3369 032652 120 04 0 00 043330 0,,0]
3370 DFAD AC,[777,,-1
3371 032653 110 04 0 00 043726 ZZ,,-1]
3372 032654 312 04 0 00 043627 CAME AC,[777,,-1]
3373 032655 003 04 0 00 000625 ER3 AC,T
3374 032656 312 05 0 00 043730 CAME AC+1,[ZZ&377777,,-1]
3375 032657 004 05 0 00 000625 ER4 AC+1,T
3376 032660 321 10 0 00 032652 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3377
3378 000626 T=T+1
3379 777777 777767 ZZ=ZZ+ZZ+1
3380 IFE <ZZ-1>,<ZZ=-2>
3381 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
3382 DMOVE AC,[0,,0
3383 032661 120 04 0 00 043330 0,,0]
3384 DFAD AC,[777,,-1
3385 032662 110 04 0 00 043731 ZZ,,-1]
3386 032663 312 04 0 00 043627 CAME AC,[777,,-1]
3387 032664 003 04 0 00 000626 ER3 AC,T
3388 032665 312 05 0 00 043733 CAME AC+1,[ZZ&377777,,-1]
3389 032666 004 05 0 00 000626 ER4 AC+1,T
3390 032667 321 10 0 00 032661 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3391
3392 000627 T=T+1
3393 777777 777757 ZZ=ZZ+ZZ+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-7
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0084
3394 IFE <ZZ-1>,<ZZ=-2>
3395 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
3396 DMOVE AC,[0,,0
3397 032670 120 04 0 00 043330 0,,0]
3398 DFAD AC,[777,,-1
3399 032671 110 04 0 00 043734 ZZ,,-1]
3400 032672 312 04 0 00 043627 CAME AC,[777,,-1]
3401 032673 003 04 0 00 000627 ER3 AC,T
3402 032674 312 05 0 00 043736 CAME AC+1,[ZZ&377777,,-1]
3403 032675 004 05 0 00 000627 ER4 AC+1,T
3404 032676 321 10 0 00 032670 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3405
3406 000630 T=T+1
3407 777777 777737 ZZ=ZZ+ZZ+1
3408 IFE <ZZ-1>,<ZZ=-2>
3409 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
3410 DMOVE AC,[0,,0
3411 032677 120 04 0 00 043330 0,,0]
3412 DFAD AC,[777,,-1
3413 032700 110 04 0 00 043737 ZZ,,-1]
3414 032701 312 04 0 00 043627 CAME AC,[777,,-1]
3415 032702 003 04 0 00 000630 ER3 AC,T
3416 032703 312 05 0 00 043741 CAME AC+1,[ZZ&377777,,-1]
3417 032704 004 05 0 00 000630 ER4 AC+1,T
3418 032705 321 10 0 00 032677 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3419
3420 000631 T=T+1
3421 777777 777677 ZZ=ZZ+ZZ+1
3422 IFE <ZZ-1>,<ZZ=-2>
3423 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
3424 DMOVE AC,[0,,0
3425 032706 120 04 0 00 043330 0,,0]
3426 DFAD AC,[777,,-1
3427 032707 110 04 0 00 043742 ZZ,,-1]
3428 032710 312 04 0 00 043627 CAME AC,[777,,-1]
3429 032711 003 04 0 00 000631 ER3 AC,T
3430 032712 312 05 0 00 043744 CAME AC+1,[ZZ&377777,,-1]
3431 032713 004 05 0 00 000631 ER4 AC+1,T
3432 032714 321 10 0 00 032706 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3433
3434 000632 T=T+1
3435 777777 777577 ZZ=ZZ+ZZ+1
3436 IFE <ZZ-1>,<ZZ=-2>
3437 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
3438 DMOVE AC,[0,,0
3439 032715 120 04 0 00 043330 0,,0]
3440 DFAD AC,[777,,-1
3441 032716 110 04 0 00 043745 ZZ,,-1]
3442 032717 312 04 0 00 043627 CAME AC,[777,,-1]
3443 032720 003 04 0 00 000632 ER3 AC,T
3444 032721 312 05 0 00 043747 CAME AC+1,[ZZ&377777,,-1]
3445 032722 004 05 0 00 000632 ER4 AC+1,T
3446 032723 321 10 0 00 032715 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3447
3448 000633 T=T+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-8
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0085
3449 777777 777377 ZZ=ZZ+ZZ+1
3450 IFE <ZZ-1>,<ZZ=-2>
3451 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
3452 DMOVE AC,[0,,0
3453 032724 120 04 0 00 043330 0,,0]
3454 DFAD AC,[777,,-1
3455 032725 110 04 0 00 043750 ZZ,,-1]
3456 032726 312 04 0 00 043627 CAME AC,[777,,-1]
3457 032727 003 04 0 00 000633 ER3 AC,T
3458 032730 312 05 0 00 043752 CAME AC+1,[ZZ&377777,,-1]
3459 032731 004 05 0 00 000633 ER4 AC+1,T
3460 032732 321 10 0 00 032724 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3461
3462 000634 T=T+1
3463 777777 776777 ZZ=ZZ+ZZ+1
3464 IFE <ZZ-1>,<ZZ=-2>
3465 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
3466 DMOVE AC,[0,,0
3467 032733 120 04 0 00 043330 0,,0]
3468 DFAD AC,[777,,-1
3469 032734 110 04 0 00 043753 ZZ,,-1]
3470 032735 312 04 0 00 043627 CAME AC,[777,,-1]
3471 032736 003 04 0 00 000634 ER3 AC,T
3472 032737 312 05 0 00 043755 CAME AC+1,[ZZ&377777,,-1]
3473 032740 004 05 0 00 000634 ER4 AC+1,T
3474 032741 321 10 0 00 032733 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3475
3476 000635 T=T+1
3477 777777 775777 ZZ=ZZ+ZZ+1
3478 IFE <ZZ-1>,<ZZ=-2>
3479 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
3480 DMOVE AC,[0,,0
3481 032742 120 04 0 00 043330 0,,0]
3482 DFAD AC,[777,,-1
3483 032743 110 04 0 00 043756 ZZ,,-1]
3484 032744 312 04 0 00 043627 CAME AC,[777,,-1]
3485 032745 003 04 0 00 000635 ER3 AC,T
3486 032746 312 05 0 00 043760 CAME AC+1,[ZZ&377777,,-1]
3487 032747 004 05 0 00 000635 ER4 AC+1,T
3488 032750 321 10 0 00 032742 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3489
3490 000636 T=T+1
3491 777777 773777 ZZ=ZZ+ZZ+1
3492 IFE <ZZ-1>,<ZZ=-2>
3493 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
3494 DMOVE AC,[0,,0
3495 032751 120 04 0 00 043330 0,,0]
3496 DFAD AC,[777,,-1
3497 032752 110 04 0 00 043761 ZZ,,-1]
3498 032753 312 04 0 00 043627 CAME AC,[777,,-1]
3499 032754 003 04 0 00 000636 ER3 AC,T
3500 032755 312 05 0 00 043763 CAME AC+1,[ZZ&377777,,-1]
3501 032756 004 05 0 00 000636 ER4 AC+1,T
3502 032757 321 10 0 00 032751 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3503
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-9
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0086
3504 000637 T=T+1
3505 777777 767777 ZZ=ZZ+ZZ+1
3506 IFE <ZZ-1>,<ZZ=-2>
3507 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
3508 DMOVE AC,[0,,0
3509 032760 120 04 0 00 043330 0,,0]
3510 DFAD AC,[777,,-1
3511 032761 110 04 0 00 043764 ZZ,,-1]
3512 032762 312 04 0 00 043627 CAME AC,[777,,-1]
3513 032763 003 04 0 00 000637 ER3 AC,T
3514 032764 312 05 0 00 043766 CAME AC+1,[ZZ&377777,,-1]
3515 032765 004 05 0 00 000637 ER4 AC+1,T
3516 032766 321 10 0 00 032760 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3517
3518 000640 T=T+1
3519 777777 757777 ZZ=ZZ+ZZ+1
3520 IFE <ZZ-1>,<ZZ=-2>
3521 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
3522 DMOVE AC,[0,,0
3523 032767 120 04 0 00 043330 0,,0]
3524 DFAD AC,[777,,-1
3525 032770 110 04 0 00 043767 ZZ,,-1]
3526 032771 312 04 0 00 043627 CAME AC,[777,,-1]
3527 032772 003 04 0 00 000640 ER3 AC,T
3528 032773 312 05 0 00 043771 CAME AC+1,[ZZ&377777,,-1]
3529 032774 004 05 0 00 000640 ER4 AC+1,T
3530 032775 321 10 0 00 032767 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3531
3532 000641 T=T+1
3533 777777 737777 ZZ=ZZ+ZZ+1
3534 IFE <ZZ-1>,<ZZ=-2>
3535 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
3536 DMOVE AC,[0,,0
3537 032776 120 04 0 00 043330 0,,0]
3538 DFAD AC,[777,,-1
3539 032777 110 04 0 00 043772 ZZ,,-1]
3540 033000 312 04 0 00 043627 CAME AC,[777,,-1]
3541 033001 003 04 0 00 000641 ER3 AC,T
3542 033002 312 05 0 00 043774 CAME AC+1,[ZZ&377777,,-1]
3543 033003 004 05 0 00 000641 ER4 AC+1,T
3544 033004 321 10 0 00 032776 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3545
3546 000642 T=T+1
3547 777777 677777 ZZ=ZZ+ZZ+1
3548 IFE <ZZ-1>,<ZZ=-2>
3549 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
3550 DMOVE AC,[0,,0
3551 033005 120 04 0 00 043330 0,,0]
3552 DFAD AC,[777,,-1
3553 033006 110 04 0 00 043775 ZZ,,-1]
3554 033007 312 04 0 00 043627 CAME AC,[777,,-1]
3555 033010 003 04 0 00 000642 ER3 AC,T
3556 033011 312 05 0 00 043777 CAME AC+1,[ZZ&377777,,-1]
3557 033012 004 05 0 00 000642 ER4 AC+1,T
3558 033013 321 10 0 00 033005 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-10
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0087
3559
3560 000643 T=T+1
3561 777777 577777 ZZ=ZZ+ZZ+1
3562 IFE <ZZ-1>,<ZZ=-2>
3563 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
3564 DMOVE AC,[0,,0
3565 033014 120 04 0 00 043330 0,,0]
3566 DFAD AC,[777,,-1
3567 033015 110 04 0 00 044000 ZZ,,-1]
3568 033016 312 04 0 00 043627 CAME AC,[777,,-1]
3569 033017 003 04 0 00 000643 ER3 AC,T
3570 033020 312 05 0 00 044002 CAME AC+1,[ZZ&377777,,-1]
3571 033021 004 05 0 00 000643 ER4 AC+1,T
3572 033022 321 10 0 00 033014 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3573
3574 000644 T=T+1
3575 777777 377777 ZZ=ZZ+ZZ+1
3576 IFE <ZZ-1>,<ZZ=-2>
3577 DFARP T,0,0,0,0,777,-1,ZZ,-1,777,-1,ZZ&377777,-1^
3578 DMOVE AC,[0,,0
3579 033023 120 04 0 00 043330 0,,0]
3580 DFAD AC,[777,,-1
3581 033024 110 04 0 00 044003 ZZ,,-1]
3582 033025 312 04 0 00 043627 CAME AC,[777,,-1]
3583 033026 003 04 0 00 000644 ER3 AC,T
3584 033027 312 05 0 00 043631 CAME AC+1,[ZZ&377777,,-1]
3585 033030 004 05 0 00 000644 ER4 AC+1,T
3586 033031 321 10 0 00 033023 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3587
3588
3589 000000 ZZ=0
3590
3591 REPEAT ^D18,
3592 <T=T+1
3593 ZZ=ZZ+ZZ+1
3594 IFE <ZZ-1>,<ZZ=-2>
3595 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1
3596 >
3597 000645 T=T+1
3598 000001 ZZ=ZZ+ZZ+1
3599 777777 777776 IFE <ZZ-1>,<ZZ=-2>
3600 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
3601 DMOVE AC,[0,,0
3602 033032 120 04 0 00 043330 0,,0]
3603 DFAD AC,[777,,ZZ
3604 033033 110 04 0 00 044005 -1,,-1]
3605 033034 312 04 0 00 044005 CAME AC,[777,,ZZ]
3606 033035 003 04 0 00 000645 ER3 AC,T
3607 033036 312 05 0 00 043631 CAME AC+1,[377777,,-1]
3608 033037 004 05 0 00 000645 ER4 AC+1,T
3609 033040 321 10 0 00 033032 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3610
3611 000646 T=T+1
3612 777777 777775 ZZ=ZZ+ZZ+1
3613 IFE <ZZ-1>,<ZZ=-2>
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-11
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0088
3614 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
3615 DMOVE AC,[0,,0
3616 033041 120 04 0 00 043330 0,,0]
3617 DFAD AC,[777,,ZZ
3618 033042 110 04 0 00 044007 -1,,-1]
3619 033043 312 04 0 00 044007 CAME AC,[777,,ZZ]
3620 033044 003 04 0 00 000646 ER3 AC,T
3621 033045 312 05 0 00 043631 CAME AC+1,[377777,,-1]
3622 033046 004 05 0 00 000646 ER4 AC+1,T
3623 033047 321 10 0 00 033041 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3624
3625 000647 T=T+1
3626 777777 777773 ZZ=ZZ+ZZ+1
3627 IFE <ZZ-1>,<ZZ=-2>
3628 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
3629 DMOVE AC,[0,,0
3630 033050 120 04 0 00 043330 0,,0]
3631 DFAD AC,[777,,ZZ
3632 033051 110 04 0 00 044011 -1,,-1]
3633 033052 312 04 0 00 044011 CAME AC,[777,,ZZ]
3634 033053 003 04 0 00 000647 ER3 AC,T
3635 033054 312 05 0 00 043631 CAME AC+1,[377777,,-1]
3636 033055 004 05 0 00 000647 ER4 AC+1,T
3637 033056 321 10 0 00 033050 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3638
3639 000650 T=T+1
3640 777777 777767 ZZ=ZZ+ZZ+1
3641 IFE <ZZ-1>,<ZZ=-2>
3642 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
3643 DMOVE AC,[0,,0
3644 033057 120 04 0 00 043330 0,,0]
3645 DFAD AC,[777,,ZZ
3646 033060 110 04 0 00 044013 -1,,-1]
3647 033061 312 04 0 00 044013 CAME AC,[777,,ZZ]
3648 033062 003 04 0 00 000650 ER3 AC,T
3649 033063 312 05 0 00 043631 CAME AC+1,[377777,,-1]
3650 033064 004 05 0 00 000650 ER4 AC+1,T
3651 033065 321 10 0 00 033057 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3652
3653 000651 T=T+1
3654 777777 777757 ZZ=ZZ+ZZ+1
3655 IFE <ZZ-1>,<ZZ=-2>
3656 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
3657 DMOVE AC,[0,,0
3658 033066 120 04 0 00 043330 0,,0]
3659 DFAD AC,[777,,ZZ
3660 033067 110 04 0 00 044015 -1,,-1]
3661 033070 312 04 0 00 044015 CAME AC,[777,,ZZ]
3662 033071 003 04 0 00 000651 ER3 AC,T
3663 033072 312 05 0 00 043631 CAME AC+1,[377777,,-1]
3664 033073 004 05 0 00 000651 ER4 AC+1,T
3665 033074 321 10 0 00 033066 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3666
3667 000652 T=T+1
3668 777777 777737 ZZ=ZZ+ZZ+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-12
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0089
3669 IFE <ZZ-1>,<ZZ=-2>
3670 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
3671 DMOVE AC,[0,,0
3672 033075 120 04 0 00 043330 0,,0]
3673 DFAD AC,[777,,ZZ
3674 033076 110 04 0 00 044017 -1,,-1]
3675 033077 312 04 0 00 044017 CAME AC,[777,,ZZ]
3676 033100 003 04 0 00 000652 ER3 AC,T
3677 033101 312 05 0 00 043631 CAME AC+1,[377777,,-1]
3678 033102 004 05 0 00 000652 ER4 AC+1,T
3679 033103 321 10 0 00 033075 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3680
3681 000653 T=T+1
3682 777777 777677 ZZ=ZZ+ZZ+1
3683 IFE <ZZ-1>,<ZZ=-2>
3684 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
3685 DMOVE AC,[0,,0
3686 033104 120 04 0 00 043330 0,,0]
3687 DFAD AC,[777,,ZZ
3688 033105 110 04 0 00 044021 -1,,-1]
3689 033106 312 04 0 00 044021 CAME AC,[777,,ZZ]
3690 033107 003 04 0 00 000653 ER3 AC,T
3691 033110 312 05 0 00 043631 CAME AC+1,[377777,,-1]
3692 033111 004 05 0 00 000653 ER4 AC+1,T
3693 033112 321 10 0 00 033104 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3694
3695 000654 T=T+1
3696 777777 777577 ZZ=ZZ+ZZ+1
3697 IFE <ZZ-1>,<ZZ=-2>
3698 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
3699 DMOVE AC,[0,,0
3700 033113 120 04 0 00 043330 0,,0]
3701 DFAD AC,[777,,ZZ
3702 033114 110 04 0 00 044023 -1,,-1]
3703 033115 312 04 0 00 044023 CAME AC,[777,,ZZ]
3704 033116 003 04 0 00 000654 ER3 AC,T
3705 033117 312 05 0 00 043631 CAME AC+1,[377777,,-1]
3706 033120 004 05 0 00 000654 ER4 AC+1,T
3707 033121 321 10 0 00 033113 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3708
3709 000655 T=T+1
3710 777777 777377 ZZ=ZZ+ZZ+1
3711 IFE <ZZ-1>,<ZZ=-2>
3712 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
3713 DMOVE AC,[0,,0
3714 033122 120 04 0 00 043330 0,,0]
3715 DFAD AC,[777,,ZZ
3716 033123 110 04 0 00 044025 -1,,-1]
3717 033124 312 04 0 00 044025 CAME AC,[777,,ZZ]
3718 033125 003 04 0 00 000655 ER3 AC,T
3719 033126 312 05 0 00 043631 CAME AC+1,[377777,,-1]
3720 033127 004 05 0 00 000655 ER4 AC+1,T
3721 033130 321 10 0 00 033122 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3722
3723 000656 T=T+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-13
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0090
3724 777777 776777 ZZ=ZZ+ZZ+1
3725 IFE <ZZ-1>,<ZZ=-2>
3726 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
3727 DMOVE AC,[0,,0
3728 033131 120 04 0 00 043330 0,,0]
3729 DFAD AC,[777,,ZZ
3730 033132 110 04 0 00 044027 -1,,-1]
3731 033133 312 04 0 00 044027 CAME AC,[777,,ZZ]
3732 033134 003 04 0 00 000656 ER3 AC,T
3733 033135 312 05 0 00 043631 CAME AC+1,[377777,,-1]
3734 033136 004 05 0 00 000656 ER4 AC+1,T
3735 033137 321 10 0 00 033131 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3736
3737 000657 T=T+1
3738 777777 775777 ZZ=ZZ+ZZ+1
3739 IFE <ZZ-1>,<ZZ=-2>
3740 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
3741 DMOVE AC,[0,,0
3742 033140 120 04 0 00 043330 0,,0]
3743 DFAD AC,[777,,ZZ
3744 033141 110 04 0 00 044031 -1,,-1]
3745 033142 312 04 0 00 044031 CAME AC,[777,,ZZ]
3746 033143 003 04 0 00 000657 ER3 AC,T
3747 033144 312 05 0 00 043631 CAME AC+1,[377777,,-1]
3748 033145 004 05 0 00 000657 ER4 AC+1,T
3749 033146 321 10 0 00 033140 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3750
3751 000660 T=T+1
3752 777777 773777 ZZ=ZZ+ZZ+1
3753 IFE <ZZ-1>,<ZZ=-2>
3754 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
3755 DMOVE AC,[0,,0
3756 033147 120 04 0 00 043330 0,,0]
3757 DFAD AC,[777,,ZZ
3758 033150 110 04 0 00 044033 -1,,-1]
3759 033151 312 04 0 00 044033 CAME AC,[777,,ZZ]
3760 033152 003 04 0 00 000660 ER3 AC,T
3761 033153 312 05 0 00 043631 CAME AC+1,[377777,,-1]
3762 033154 004 05 0 00 000660 ER4 AC+1,T
3763 033155 321 10 0 00 033147 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3764
3765 000661 T=T+1
3766 777777 767777 ZZ=ZZ+ZZ+1
3767 IFE <ZZ-1>,<ZZ=-2>
3768 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
3769 DMOVE AC,[0,,0
3770 033156 120 04 0 00 043330 0,,0]
3771 DFAD AC,[777,,ZZ
3772 033157 110 04 0 00 044035 -1,,-1]
3773 033160 312 04 0 00 044035 CAME AC,[777,,ZZ]
3774 033161 003 04 0 00 000661 ER3 AC,T
3775 033162 312 05 0 00 043631 CAME AC+1,[377777,,-1]
3776 033163 004 05 0 00 000661 ER4 AC+1,T
3777 033164 321 10 0 00 033156 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3778
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-14
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0091
3779 000662 T=T+1
3780 777777 757777 ZZ=ZZ+ZZ+1
3781 IFE <ZZ-1>,<ZZ=-2>
3782 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
3783 DMOVE AC,[0,,0
3784 033165 120 04 0 00 043330 0,,0]
3785 DFAD AC,[777,,ZZ
3786 033166 110 04 0 00 044037 -1,,-1]
3787 033167 312 04 0 00 044037 CAME AC,[777,,ZZ]
3788 033170 003 04 0 00 000662 ER3 AC,T
3789 033171 312 05 0 00 043631 CAME AC+1,[377777,,-1]
3790 033172 004 05 0 00 000662 ER4 AC+1,T
3791 033173 321 10 0 00 033165 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3792
3793 000663 T=T+1
3794 777777 737777 ZZ=ZZ+ZZ+1
3795 IFE <ZZ-1>,<ZZ=-2>
3796 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
3797 DMOVE AC,[0,,0
3798 033174 120 04 0 00 043330 0,,0]
3799 DFAD AC,[777,,ZZ
3800 033175 110 04 0 00 044041 -1,,-1]
3801 033176 312 04 0 00 044041 CAME AC,[777,,ZZ]
3802 033177 003 04 0 00 000663 ER3 AC,T
3803 033200 312 05 0 00 043631 CAME AC+1,[377777,,-1]
3804 033201 004 05 0 00 000663 ER4 AC+1,T
3805 033202 321 10 0 00 033174 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3806
3807 000664 T=T+1
3808 777777 677777 ZZ=ZZ+ZZ+1
3809 IFE <ZZ-1>,<ZZ=-2>
3810 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
3811 DMOVE AC,[0,,0
3812 033203 120 04 0 00 043330 0,,0]
3813 DFAD AC,[777,,ZZ
3814 033204 110 04 0 00 044043 -1,,-1]
3815 033205 312 04 0 00 044043 CAME AC,[777,,ZZ]
3816 033206 003 04 0 00 000664 ER3 AC,T
3817 033207 312 05 0 00 043631 CAME AC+1,[377777,,-1]
3818 033210 004 05 0 00 000664 ER4 AC+1,T
3819 033211 321 10 0 00 033203 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3820
3821 000665 T=T+1
3822 777777 577777 ZZ=ZZ+ZZ+1
3823 IFE <ZZ-1>,<ZZ=-2>
3824 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
3825 DMOVE AC,[0,,0
3826 033212 120 04 0 00 043330 0,,0]
3827 DFAD AC,[777,,ZZ
3828 033213 110 04 0 00 044045 -1,,-1]
3829 033214 312 04 0 00 044045 CAME AC,[777,,ZZ]
3830 033215 003 04 0 00 000665 ER3 AC,T
3831 033216 312 05 0 00 043631 CAME AC+1,[377777,,-1]
3832 033217 004 05 0 00 000665 ER4 AC+1,T
3833 033220 321 10 0 00 033212 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-15
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0092
3834
3835 000666 T=T+1
3836 777777 377777 ZZ=ZZ+ZZ+1
3837 IFE <ZZ-1>,<ZZ=-2>
3838 DFARP T,0,0,0,0,777,ZZ,-1,-1,777,ZZ,377777,-1^
3839 DMOVE AC,[0,,0
3840 033221 120 04 0 00 043330 0,,0]
3841 DFAD AC,[777,,ZZ
3842 033222 110 04 0 00 044047 -1,,-1]
3843 033223 312 04 0 00 044047 CAME AC,[777,,ZZ]
3844 033224 003 04 0 00 000666 ER3 AC,T
3845 033225 312 05 0 00 043631 CAME AC+1,[377777,,-1]
3846 033226 004 05 0 00 000666 ER4 AC+1,T
3847 033227 321 10 0 00 033221 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3848
3849
3850 000000 ZZ=0
3851
3852 REPEAT ^D8,
3853 <T=T+1
3854 ZZ=ZZ+ZZ+1
3855 IFE <ZZ-1>,<ZZ=-2>
3856 DFARP T,0,0,0,0,ZZ&777,-1,-1,-1,ZZ&777,-1,377777,-1
3857 >
3858
3859 000667 T=T+1
3860 000001 ZZ=ZZ+ZZ+1
3861 777777 777776 IFE <ZZ-1>,<ZZ=-2>
3862 DFARP T,0,0,0,0,ZZ&777,-1,-1,-1,ZZ&777,-1,377777,-1^
3863 DMOVE AC,[0,,0
3864 033230 120 04 0 00 043330 0,,0]
3865 DFAD AC,[ZZ&777,,-1
3866 033231 110 04 0 00 044051 -1,,-1]
3867 033232 312 04 0 00 044051 CAME AC,[ZZ&777,,-1]
3868 033233 003 04 0 00 000667 ER3 AC,T
3869 033234 312 05 0 00 043631 CAME AC+1,[377777,,-1]
3870 033235 004 05 0 00 000667 ER4 AC+1,T
3871 033236 321 10 0 00 033230 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3872
3873 000670 T=T+1
3874 777777 777775 ZZ=ZZ+ZZ+1
3875 IFE <ZZ-1>,<ZZ=-2>
3876 DFARP T,0,0,0,0,ZZ&777,-1,-1,-1,ZZ&777,-1,377777,-1^
3877 DMOVE AC,[0,,0
3878 033237 120 04 0 00 043330 0,,0]
3879 DFAD AC,[ZZ&777,,-1
3880 033240 110 04 0 00 044053 -1,,-1]
3881 033241 312 04 0 00 044053 CAME AC,[ZZ&777,,-1]
3882 033242 003 04 0 00 000670 ER3 AC,T
3883 033243 312 05 0 00 043631 CAME AC+1,[377777,,-1]
3884 033244 004 05 0 00 000670 ER4 AC+1,T
3885 033245 321 10 0 00 033237 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3886
3887 000671 T=T+1
3888 777777 777773 ZZ=ZZ+ZZ+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-16
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0093
3889 IFE <ZZ-1>,<ZZ=-2>
3890 DFARP T,0,0,0,0,ZZ&777,-1,-1,-1,ZZ&777,-1,377777,-1^
3891 DMOVE AC,[0,,0
3892 033246 120 04 0 00 043330 0,,0]
3893 DFAD AC,[ZZ&777,,-1
3894 033247 110 04 0 00 044055 -1,,-1]
3895 033250 312 04 0 00 044055 CAME AC,[ZZ&777,,-1]
3896 033251 003 04 0 00 000671 ER3 AC,T
3897 033252 312 05 0 00 043631 CAME AC+1,[377777,,-1]
3898 033253 004 05 0 00 000671 ER4 AC+1,T
3899 033254 321 10 0 00 033246 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3900
3901 000672 T=T+1
3902 777777 777767 ZZ=ZZ+ZZ+1
3903 IFE <ZZ-1>,<ZZ=-2>
3904 DFARP T,0,0,0,0,ZZ&777,-1,-1,-1,ZZ&777,-1,377777,-1^
3905 DMOVE AC,[0,,0
3906 033255 120 04 0 00 043330 0,,0]
3907 DFAD AC,[ZZ&777,,-1
3908 033256 110 04 0 00 044057 -1,,-1]
3909 033257 312 04 0 00 044057 CAME AC,[ZZ&777,,-1]
3910 033260 003 04 0 00 000672 ER3 AC,T
3911 033261 312 05 0 00 043631 CAME AC+1,[377777,,-1]
3912 033262 004 05 0 00 000672 ER4 AC+1,T
3913 033263 321 10 0 00 033255 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3914
3915 000673 T=T+1
3916 777777 777757 ZZ=ZZ+ZZ+1
3917 IFE <ZZ-1>,<ZZ=-2>
3918 DFARP T,0,0,0,0,ZZ&777,-1,-1,-1,ZZ&777,-1,377777,-1^
3919 DMOVE AC,[0,,0
3920 033264 120 04 0 00 043330 0,,0]
3921 DFAD AC,[ZZ&777,,-1
3922 033265 110 04 0 00 044061 -1,,-1]
3923 033266 312 04 0 00 044061 CAME AC,[ZZ&777,,-1]
3924 033267 003 04 0 00 000673 ER3 AC,T
3925 033270 312 05 0 00 043631 CAME AC+1,[377777,,-1]
3926 033271 004 05 0 00 000673 ER4 AC+1,T
3927 033272 321 10 0 00 033264 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3928
3929 000674 T=T+1
3930 777777 777737 ZZ=ZZ+ZZ+1
3931 IFE <ZZ-1>,<ZZ=-2>
3932 DFARP T,0,0,0,0,ZZ&777,-1,-1,-1,ZZ&777,-1,377777,-1^
3933 DMOVE AC,[0,,0
3934 033273 120 04 0 00 043330 0,,0]
3935 DFAD AC,[ZZ&777,,-1
3936 033274 110 04 0 00 044063 -1,,-1]
3937 033275 312 04 0 00 044063 CAME AC,[ZZ&777,,-1]
3938 033276 003 04 0 00 000674 ER3 AC,T
3939 033277 312 05 0 00 043631 CAME AC+1,[377777,,-1]
3940 033300 004 05 0 00 000674 ER4 AC+1,T
3941 033301 321 10 0 00 033273 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3942
3943 000675 T=T+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 4-17
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0094
3944 777777 777677 ZZ=ZZ+ZZ+1
3945 IFE <ZZ-1>,<ZZ=-2>
3946 DFARP T,0,0,0,0,ZZ&777,-1,-1,-1,ZZ&777,-1,377777,-1^
3947 DMOVE AC,[0,,0
3948 033302 120 04 0 00 043330 0,,0]
3949 DFAD AC,[ZZ&777,,-1
3950 033303 110 04 0 00 044065 -1,,-1]
3951 033304 312 04 0 00 044065 CAME AC,[ZZ&777,,-1]
3952 033305 003 04 0 00 000675 ER3 AC,T
3953 033306 312 05 0 00 043631 CAME AC+1,[377777,,-1]
3954 033307 004 05 0 00 000675 ER4 AC+1,T
3955 033310 321 10 0 00 033302 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3956
3957 000676 T=T+1
3958 777777 777577 ZZ=ZZ+ZZ+1
3959 IFE <ZZ-1>,<ZZ=-2>
3960 DFARP T,0,0,0,0,ZZ&777,-1,-1,-1,ZZ&777,-1,377777,-1^
3961 DMOVE AC,[0,,0
3962 033311 120 04 0 00 043330 0,,0]
3963 DFAD AC,[ZZ&777,,-1
3964 033312 110 04 0 00 044067 -1,,-1]
3965 033313 312 04 0 00 044067 CAME AC,[ZZ&777,,-1]
3966 033314 003 04 0 00 000676 ER3 AC,T
3967 033315 312 05 0 00 043631 CAME AC+1,[377777,,-1]
3968 033316 004 05 0 00 000676 ER4 AC+1,T
3969 033317 321 10 0 00 033311 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
3970
3971
3972 000677 T=T+1
3973 DFARP T,0,0,0,0,1377,-1,-1,-1,777,-1,377777,-2^
3974 DMOVE AC,[0,,0
3975 033320 120 04 0 00 043330 0,,0]
3976 DFAD AC,[1377,,-1
3977 033321 110 04 0 00 044071 -1,,-1]
3978 033322 312 04 0 00 043627 CAME AC,[777,,-1]
3979 033323 003 04 0 00 000677 ER3 AC,T
3980 033324 312 05 0 00 043634 CAME AC+1,[377777,,-2]
3981 033325 004 05 0 00 000677 ER4 AC+1,T
3982 033326 321 10 0 00 033320 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0095
3983 ;RIPPLE ZEROS TEST (TO A RIPPLED ZERO, ADD A FRACTION OF ALL ZEROS)
3984
3985 000700 T=700
3986 000000 ZZ=0
3987
3988 R700: REPEAT ^D18,
3989 <T=T+1
3990 ZZ=ZZ+ZZ+1
3991 IFE <ZZ-1>,<ZZ=-2>
3992 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ
3993 >
3994 000701 T=T+1
3995 000001 ZZ=ZZ+ZZ+1
3996 777777 777776 IFE <ZZ-1>,<ZZ=-2>
3997 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
3998 DMOVE AC,[777,,-1
3999 033327 120 04 0 00 043632 -1,,ZZ]
4000 DFAD AC,[0,,0
4001 033330 110 04 0 00 043330 0,,0]
4002 033331 312 04 0 00 043627 CAME AC,[777,,-1]
4003 033332 003 04 0 00 000701 ER3 AC,T
4004 033333 312 05 0 00 043634 CAME AC+1,[377777,,ZZ]
4005 033334 004 05 0 00 000701 ER4 AC+1,T
4006 033335 321 10 0 00 033327 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4007
4008 000702 T=T+1
4009 777777 777775 ZZ=ZZ+ZZ+1
4010 IFE <ZZ-1>,<ZZ=-2>
4011 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
4012 DMOVE AC,[777,,-1
4013 033336 120 04 0 00 043635 -1,,ZZ]
4014 DFAD AC,[0,,0
4015 033337 110 04 0 00 043330 0,,0]
4016 033340 312 04 0 00 043627 CAME AC,[777,,-1]
4017 033341 003 04 0 00 000702 ER3 AC,T
4018 033342 312 05 0 00 043637 CAME AC+1,[377777,,ZZ]
4019 033343 004 05 0 00 000702 ER4 AC+1,T
4020 033344 321 10 0 00 033336 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4021
4022 000703 T=T+1
4023 777777 777773 ZZ=ZZ+ZZ+1
4024 IFE <ZZ-1>,<ZZ=-2>
4025 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
4026 DMOVE AC,[777,,-1
4027 033345 120 04 0 00 043640 -1,,ZZ]
4028 DFAD AC,[0,,0
4029 033346 110 04 0 00 043330 0,,0]
4030 033347 312 04 0 00 043627 CAME AC,[777,,-1]
4031 033350 003 04 0 00 000703 ER3 AC,T
4032 033351 312 05 0 00 043642 CAME AC+1,[377777,,ZZ]
4033 033352 004 05 0 00 000703 ER4 AC+1,T
4034 033353 321 10 0 00 033345 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4035
4036 000704 T=T+1
4037 777777 777767 ZZ=ZZ+ZZ+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-1
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0096
4038 IFE <ZZ-1>,<ZZ=-2>
4039 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
4040 DMOVE AC,[777,,-1
4041 033354 120 04 0 00 043643 -1,,ZZ]
4042 DFAD AC,[0,,0
4043 033355 110 04 0 00 043330 0,,0]
4044 033356 312 04 0 00 043627 CAME AC,[777,,-1]
4045 033357 003 04 0 00 000704 ER3 AC,T
4046 033360 312 05 0 00 043645 CAME AC+1,[377777,,ZZ]
4047 033361 004 05 0 00 000704 ER4 AC+1,T
4048 033362 321 10 0 00 033354 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4049
4050 000705 T=T+1
4051 777777 777757 ZZ=ZZ+ZZ+1
4052 IFE <ZZ-1>,<ZZ=-2>
4053 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
4054 DMOVE AC,[777,,-1
4055 033363 120 04 0 00 043646 -1,,ZZ]
4056 DFAD AC,[0,,0
4057 033364 110 04 0 00 043330 0,,0]
4058 033365 312 04 0 00 043627 CAME AC,[777,,-1]
4059 033366 003 04 0 00 000705 ER3 AC,T
4060 033367 312 05 0 00 043650 CAME AC+1,[377777,,ZZ]
4061 033370 004 05 0 00 000705 ER4 AC+1,T
4062 033371 321 10 0 00 033363 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4063
4064 000706 T=T+1
4065 777777 777737 ZZ=ZZ+ZZ+1
4066 IFE <ZZ-1>,<ZZ=-2>
4067 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
4068 DMOVE AC,[777,,-1
4069 033372 120 04 0 00 043651 -1,,ZZ]
4070 DFAD AC,[0,,0
4071 033373 110 04 0 00 043330 0,,0]
4072 033374 312 04 0 00 043627 CAME AC,[777,,-1]
4073 033375 003 04 0 00 000706 ER3 AC,T
4074 033376 312 05 0 00 043653 CAME AC+1,[377777,,ZZ]
4075 033377 004 05 0 00 000706 ER4 AC+1,T
4076 033400 321 10 0 00 033372 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4077
4078 000707 T=T+1
4079 777777 777677 ZZ=ZZ+ZZ+1
4080 IFE <ZZ-1>,<ZZ=-2>
4081 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
4082 DMOVE AC,[777,,-1
4083 033401 120 04 0 00 043654 -1,,ZZ]
4084 DFAD AC,[0,,0
4085 033402 110 04 0 00 043330 0,,0]
4086 033403 312 04 0 00 043627 CAME AC,[777,,-1]
4087 033404 003 04 0 00 000707 ER3 AC,T
4088 033405 312 05 0 00 043656 CAME AC+1,[377777,,ZZ]
4089 033406 004 05 0 00 000707 ER4 AC+1,T
4090 033407 321 10 0 00 033401 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4091
4092 000710 T=T+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-2
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0097
4093 777777 777577 ZZ=ZZ+ZZ+1
4094 IFE <ZZ-1>,<ZZ=-2>
4095 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
4096 DMOVE AC,[777,,-1
4097 033410 120 04 0 00 043657 -1,,ZZ]
4098 DFAD AC,[0,,0
4099 033411 110 04 0 00 043330 0,,0]
4100 033412 312 04 0 00 043627 CAME AC,[777,,-1]
4101 033413 003 04 0 00 000710 ER3 AC,T
4102 033414 312 05 0 00 043661 CAME AC+1,[377777,,ZZ]
4103 033415 004 05 0 00 000710 ER4 AC+1,T
4104 033416 321 10 0 00 033410 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4105
4106 000711 T=T+1
4107 777777 777377 ZZ=ZZ+ZZ+1
4108 IFE <ZZ-1>,<ZZ=-2>
4109 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
4110 DMOVE AC,[777,,-1
4111 033417 120 04 0 00 043662 -1,,ZZ]
4112 DFAD AC,[0,,0
4113 033420 110 04 0 00 043330 0,,0]
4114 033421 312 04 0 00 043627 CAME AC,[777,,-1]
4115 033422 003 04 0 00 000711 ER3 AC,T
4116 033423 312 05 0 00 043664 CAME AC+1,[377777,,ZZ]
4117 033424 004 05 0 00 000711 ER4 AC+1,T
4118 033425 321 10 0 00 033417 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4119
4120 000712 T=T+1
4121 777777 776777 ZZ=ZZ+ZZ+1
4122 IFE <ZZ-1>,<ZZ=-2>
4123 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
4124 DMOVE AC,[777,,-1
4125 033426 120 04 0 00 043665 -1,,ZZ]
4126 DFAD AC,[0,,0
4127 033427 110 04 0 00 043330 0,,0]
4128 033430 312 04 0 00 043627 CAME AC,[777,,-1]
4129 033431 003 04 0 00 000712 ER3 AC,T
4130 033432 312 05 0 00 043667 CAME AC+1,[377777,,ZZ]
4131 033433 004 05 0 00 000712 ER4 AC+1,T
4132 033434 321 10 0 00 033426 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4133
4134 000713 T=T+1
4135 777777 775777 ZZ=ZZ+ZZ+1
4136 IFE <ZZ-1>,<ZZ=-2>
4137 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
4138 DMOVE AC,[777,,-1
4139 033435 120 04 0 00 043670 -1,,ZZ]
4140 DFAD AC,[0,,0
4141 033436 110 04 0 00 043330 0,,0]
4142 033437 312 04 0 00 043627 CAME AC,[777,,-1]
4143 033440 003 04 0 00 000713 ER3 AC,T
4144 033441 312 05 0 00 043672 CAME AC+1,[377777,,ZZ]
4145 033442 004 05 0 00 000713 ER4 AC+1,T
4146 033443 321 10 0 00 033435 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4147
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-3
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0098
4148 000714 T=T+1
4149 777777 773777 ZZ=ZZ+ZZ+1
4150 IFE <ZZ-1>,<ZZ=-2>
4151 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
4152 DMOVE AC,[777,,-1
4153 033444 120 04 0 00 043673 -1,,ZZ]
4154 DFAD AC,[0,,0
4155 033445 110 04 0 00 043330 0,,0]
4156 033446 312 04 0 00 043627 CAME AC,[777,,-1]
4157 033447 003 04 0 00 000714 ER3 AC,T
4158 033450 312 05 0 00 043675 CAME AC+1,[377777,,ZZ]
4159 033451 004 05 0 00 000714 ER4 AC+1,T
4160 033452 321 10 0 00 033444 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4161
4162 000715 T=T+1
4163 777777 767777 ZZ=ZZ+ZZ+1
4164 IFE <ZZ-1>,<ZZ=-2>
4165 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
4166 DMOVE AC,[777,,-1
4167 033453 120 04 0 00 043676 -1,,ZZ]
4168 DFAD AC,[0,,0
4169 033454 110 04 0 00 043330 0,,0]
4170 033455 312 04 0 00 043627 CAME AC,[777,,-1]
4171 033456 003 04 0 00 000715 ER3 AC,T
4172 033457 312 05 0 00 043700 CAME AC+1,[377777,,ZZ]
4173 033460 004 05 0 00 000715 ER4 AC+1,T
4174 033461 321 10 0 00 033453 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4175
4176 000716 T=T+1
4177 777777 757777 ZZ=ZZ+ZZ+1
4178 IFE <ZZ-1>,<ZZ=-2>
4179 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
4180 DMOVE AC,[777,,-1
4181 033462 120 04 0 00 043701 -1,,ZZ]
4182 DFAD AC,[0,,0
4183 033463 110 04 0 00 043330 0,,0]
4184 033464 312 04 0 00 043627 CAME AC,[777,,-1]
4185 033465 003 04 0 00 000716 ER3 AC,T
4186 033466 312 05 0 00 043703 CAME AC+1,[377777,,ZZ]
4187 033467 004 05 0 00 000716 ER4 AC+1,T
4188 033470 321 10 0 00 033462 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4189
4190 000717 T=T+1
4191 777777 737777 ZZ=ZZ+ZZ+1
4192 IFE <ZZ-1>,<ZZ=-2>
4193 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
4194 DMOVE AC,[777,,-1
4195 033471 120 04 0 00 043704 -1,,ZZ]
4196 DFAD AC,[0,,0
4197 033472 110 04 0 00 043330 0,,0]
4198 033473 312 04 0 00 043627 CAME AC,[777,,-1]
4199 033474 003 04 0 00 000717 ER3 AC,T
4200 033475 312 05 0 00 043706 CAME AC+1,[377777,,ZZ]
4201 033476 004 05 0 00 000717 ER4 AC+1,T
4202 033477 321 10 0 00 033471 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-4
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0099
4203
4204 000720 T=T+1
4205 777777 677777 ZZ=ZZ+ZZ+1
4206 IFE <ZZ-1>,<ZZ=-2>
4207 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
4208 DMOVE AC,[777,,-1
4209 033500 120 04 0 00 043707 -1,,ZZ]
4210 DFAD AC,[0,,0
4211 033501 110 04 0 00 043330 0,,0]
4212 033502 312 04 0 00 043627 CAME AC,[777,,-1]
4213 033503 003 04 0 00 000720 ER3 AC,T
4214 033504 312 05 0 00 043711 CAME AC+1,[377777,,ZZ]
4215 033505 004 05 0 00 000720 ER4 AC+1,T
4216 033506 321 10 0 00 033500 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4217
4218 000721 T=T+1
4219 777777 577777 ZZ=ZZ+ZZ+1
4220 IFE <ZZ-1>,<ZZ=-2>
4221 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
4222 DMOVE AC,[777,,-1
4223 033507 120 04 0 00 043712 -1,,ZZ]
4224 DFAD AC,[0,,0
4225 033510 110 04 0 00 043330 0,,0]
4226 033511 312 04 0 00 043627 CAME AC,[777,,-1]
4227 033512 003 04 0 00 000721 ER3 AC,T
4228 033513 312 05 0 00 043714 CAME AC+1,[377777,,ZZ]
4229 033514 004 05 0 00 000721 ER4 AC+1,T
4230 033515 321 10 0 00 033507 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4231
4232 000722 T=T+1
4233 777777 377777 ZZ=ZZ+ZZ+1
4234 IFE <ZZ-1>,<ZZ=-2>
4235 DFARP T,777,-1,-1,ZZ,0,0,0,0,777,-1,377777,ZZ^
4236 DMOVE AC,[777,,-1
4237 033516 120 04 0 00 043715 -1,,ZZ]
4238 DFAD AC,[0,,0
4239 033517 110 04 0 00 043330 0,,0]
4240 033520 312 04 0 00 043627 CAME AC,[777,,-1]
4241 033521 003 04 0 00 000722 ER3 AC,T
4242 033522 312 05 0 00 043717 CAME AC+1,[377777,,ZZ]
4243 033523 004 05 0 00 000722 ER4 AC+1,T
4244 033524 321 10 0 00 033516 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4245
4246
4247 000000 ZZ=0
4248
4249 REPEAT ^D18,
4250 <T=T+1
4251 ZZ=ZZ+ZZ+1
4252 IFE <ZZ-1>,<ZZ=-2>
4253 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1
4254 >
4255 000723 T=T+1
4256 000001 ZZ=ZZ+ZZ+1
4257 777777 777776 IFE <ZZ-1>,<ZZ=-2>
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-5
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0100
4258 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
4259 DMOVE AC,[777,,-1
4260 033525 120 04 0 00 043720 ZZ,,-1]
4261 DFAD AC,[0,,0
4262 033526 110 04 0 00 043330 0,,0]
4263 033527 312 04 0 00 043627 CAME AC,[777,,-1]
4264 033530 003 04 0 00 000723 ER3 AC,T
4265 033531 312 05 0 00 043722 CAME AC+1,[ZZ&377777,,-1]
4266 033532 004 05 0 00 000723 ER4 AC+1,T
4267 033533 321 10 0 00 033525 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4268
4269 000724 T=T+1
4270 777777 777775 ZZ=ZZ+ZZ+1
4271 IFE <ZZ-1>,<ZZ=-2>
4272 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
4273 DMOVE AC,[777,,-1
4274 033534 120 04 0 00 043723 ZZ,,-1]
4275 DFAD AC,[0,,0
4276 033535 110 04 0 00 043330 0,,0]
4277 033536 312 04 0 00 043627 CAME AC,[777,,-1]
4278 033537 003 04 0 00 000724 ER3 AC,T
4279 033540 312 05 0 00 043725 CAME AC+1,[ZZ&377777,,-1]
4280 033541 004 05 0 00 000724 ER4 AC+1,T
4281 033542 321 10 0 00 033534 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4282
4283 000725 T=T+1
4284 777777 777773 ZZ=ZZ+ZZ+1
4285 IFE <ZZ-1>,<ZZ=-2>
4286 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
4287 DMOVE AC,[777,,-1
4288 033543 120 04 0 00 043726 ZZ,,-1]
4289 DFAD AC,[0,,0
4290 033544 110 04 0 00 043330 0,,0]
4291 033545 312 04 0 00 043627 CAME AC,[777,,-1]
4292 033546 003 04 0 00 000725 ER3 AC,T
4293 033547 312 05 0 00 043730 CAME AC+1,[ZZ&377777,,-1]
4294 033550 004 05 0 00 000725 ER4 AC+1,T
4295 033551 321 10 0 00 033543 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4296
4297 000726 T=T+1
4298 777777 777767 ZZ=ZZ+ZZ+1
4299 IFE <ZZ-1>,<ZZ=-2>
4300 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
4301 DMOVE AC,[777,,-1
4302 033552 120 04 0 00 043731 ZZ,,-1]
4303 DFAD AC,[0,,0
4304 033553 110 04 0 00 043330 0,,0]
4305 033554 312 04 0 00 043627 CAME AC,[777,,-1]
4306 033555 003 04 0 00 000726 ER3 AC,T
4307 033556 312 05 0 00 043733 CAME AC+1,[ZZ&377777,,-1]
4308 033557 004 05 0 00 000726 ER4 AC+1,T
4309 033560 321 10 0 00 033552 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4310
4311 000727 T=T+1
4312 777777 777757 ZZ=ZZ+ZZ+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-6
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0101
4313 IFE <ZZ-1>,<ZZ=-2>
4314 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
4315 DMOVE AC,[777,,-1
4316 033561 120 04 0 00 043734 ZZ,,-1]
4317 DFAD AC,[0,,0
4318 033562 110 04 0 00 043330 0,,0]
4319 033563 312 04 0 00 043627 CAME AC,[777,,-1]
4320 033564 003 04 0 00 000727 ER3 AC,T
4321 033565 312 05 0 00 043736 CAME AC+1,[ZZ&377777,,-1]
4322 033566 004 05 0 00 000727 ER4 AC+1,T
4323 033567 321 10 0 00 033561 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4324
4325 000730 T=T+1
4326 777777 777737 ZZ=ZZ+ZZ+1
4327 IFE <ZZ-1>,<ZZ=-2>
4328 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
4329 DMOVE AC,[777,,-1
4330 033570 120 04 0 00 043737 ZZ,,-1]
4331 DFAD AC,[0,,0
4332 033571 110 04 0 00 043330 0,,0]
4333 033572 312 04 0 00 043627 CAME AC,[777,,-1]
4334 033573 003 04 0 00 000730 ER3 AC,T
4335 033574 312 05 0 00 043741 CAME AC+1,[ZZ&377777,,-1]
4336 033575 004 05 0 00 000730 ER4 AC+1,T
4337 033576 321 10 0 00 033570 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4338
4339 000731 T=T+1
4340 777777 777677 ZZ=ZZ+ZZ+1
4341 IFE <ZZ-1>,<ZZ=-2>
4342 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
4343 DMOVE AC,[777,,-1
4344 033577 120 04 0 00 043742 ZZ,,-1]
4345 DFAD AC,[0,,0
4346 033600 110 04 0 00 043330 0,,0]
4347 033601 312 04 0 00 043627 CAME AC,[777,,-1]
4348 033602 003 04 0 00 000731 ER3 AC,T
4349 033603 312 05 0 00 043744 CAME AC+1,[ZZ&377777,,-1]
4350 033604 004 05 0 00 000731 ER4 AC+1,T
4351 033605 321 10 0 00 033577 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4352
4353 000732 T=T+1
4354 777777 777577 ZZ=ZZ+ZZ+1
4355 IFE <ZZ-1>,<ZZ=-2>
4356 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
4357 DMOVE AC,[777,,-1
4358 033606 120 04 0 00 043745 ZZ,,-1]
4359 DFAD AC,[0,,0
4360 033607 110 04 0 00 043330 0,,0]
4361 033610 312 04 0 00 043627 CAME AC,[777,,-1]
4362 033611 003 04 0 00 000732 ER3 AC,T
4363 033612 312 05 0 00 043747 CAME AC+1,[ZZ&377777,,-1]
4364 033613 004 05 0 00 000732 ER4 AC+1,T
4365 033614 321 10 0 00 033606 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4366
4367 000733 T=T+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-7
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0102
4368 777777 777377 ZZ=ZZ+ZZ+1
4369 IFE <ZZ-1>,<ZZ=-2>
4370 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
4371 DMOVE AC,[777,,-1
4372 033615 120 04 0 00 043750 ZZ,,-1]
4373 DFAD AC,[0,,0
4374 033616 110 04 0 00 043330 0,,0]
4375 033617 312 04 0 00 043627 CAME AC,[777,,-1]
4376 033620 003 04 0 00 000733 ER3 AC,T
4377 033621 312 05 0 00 043752 CAME AC+1,[ZZ&377777,,-1]
4378 033622 004 05 0 00 000733 ER4 AC+1,T
4379 033623 321 10 0 00 033615 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4380
4381 000734 T=T+1
4382 777777 776777 ZZ=ZZ+ZZ+1
4383 IFE <ZZ-1>,<ZZ=-2>
4384 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
4385 DMOVE AC,[777,,-1
4386 033624 120 04 0 00 043753 ZZ,,-1]
4387 DFAD AC,[0,,0
4388 033625 110 04 0 00 043330 0,,0]
4389 033626 312 04 0 00 043627 CAME AC,[777,,-1]
4390 033627 003 04 0 00 000734 ER3 AC,T
4391 033630 312 05 0 00 043755 CAME AC+1,[ZZ&377777,,-1]
4392 033631 004 05 0 00 000734 ER4 AC+1,T
4393 033632 321 10 0 00 033624 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4394
4395 000735 T=T+1
4396 777777 775777 ZZ=ZZ+ZZ+1
4397 IFE <ZZ-1>,<ZZ=-2>
4398 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
4399 DMOVE AC,[777,,-1
4400 033633 120 04 0 00 043756 ZZ,,-1]
4401 DFAD AC,[0,,0
4402 033634 110 04 0 00 043330 0,,0]
4403 033635 312 04 0 00 043627 CAME AC,[777,,-1]
4404 033636 003 04 0 00 000735 ER3 AC,T
4405 033637 312 05 0 00 043760 CAME AC+1,[ZZ&377777,,-1]
4406 033640 004 05 0 00 000735 ER4 AC+1,T
4407 033641 321 10 0 00 033633 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4408
4409 000736 T=T+1
4410 777777 773777 ZZ=ZZ+ZZ+1
4411 IFE <ZZ-1>,<ZZ=-2>
4412 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
4413 DMOVE AC,[777,,-1
4414 033642 120 04 0 00 043761 ZZ,,-1]
4415 DFAD AC,[0,,0
4416 033643 110 04 0 00 043330 0,,0]
4417 033644 312 04 0 00 043627 CAME AC,[777,,-1]
4418 033645 003 04 0 00 000736 ER3 AC,T
4419 033646 312 05 0 00 043763 CAME AC+1,[ZZ&377777,,-1]
4420 033647 004 05 0 00 000736 ER4 AC+1,T
4421 033650 321 10 0 00 033642 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4422
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-8
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0103
4423 000737 T=T+1
4424 777777 767777 ZZ=ZZ+ZZ+1
4425 IFE <ZZ-1>,<ZZ=-2>
4426 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
4427 DMOVE AC,[777,,-1
4428 033651 120 04 0 00 043764 ZZ,,-1]
4429 DFAD AC,[0,,0
4430 033652 110 04 0 00 043330 0,,0]
4431 033653 312 04 0 00 043627 CAME AC,[777,,-1]
4432 033654 003 04 0 00 000737 ER3 AC,T
4433 033655 312 05 0 00 043766 CAME AC+1,[ZZ&377777,,-1]
4434 033656 004 05 0 00 000737 ER4 AC+1,T
4435 033657 321 10 0 00 033651 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4436
4437 000740 T=T+1
4438 777777 757777 ZZ=ZZ+ZZ+1
4439 IFE <ZZ-1>,<ZZ=-2>
4440 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
4441 DMOVE AC,[777,,-1
4442 033660 120 04 0 00 043767 ZZ,,-1]
4443 DFAD AC,[0,,0
4444 033661 110 04 0 00 043330 0,,0]
4445 033662 312 04 0 00 043627 CAME AC,[777,,-1]
4446 033663 003 04 0 00 000740 ER3 AC,T
4447 033664 312 05 0 00 043771 CAME AC+1,[ZZ&377777,,-1]
4448 033665 004 05 0 00 000740 ER4 AC+1,T
4449 033666 321 10 0 00 033660 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4450
4451 000741 T=T+1
4452 777777 737777 ZZ=ZZ+ZZ+1
4453 IFE <ZZ-1>,<ZZ=-2>
4454 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
4455 DMOVE AC,[777,,-1
4456 033667 120 04 0 00 043772 ZZ,,-1]
4457 DFAD AC,[0,,0
4458 033670 110 04 0 00 043330 0,,0]
4459 033671 312 04 0 00 043627 CAME AC,[777,,-1]
4460 033672 003 04 0 00 000741 ER3 AC,T
4461 033673 312 05 0 00 043774 CAME AC+1,[ZZ&377777,,-1]
4462 033674 004 05 0 00 000741 ER4 AC+1,T
4463 033675 321 10 0 00 033667 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4464
4465 000742 T=T+1
4466 777777 677777 ZZ=ZZ+ZZ+1
4467 IFE <ZZ-1>,<ZZ=-2>
4468 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
4469 DMOVE AC,[777,,-1
4470 033676 120 04 0 00 043775 ZZ,,-1]
4471 DFAD AC,[0,,0
4472 033677 110 04 0 00 043330 0,,0]
4473 033700 312 04 0 00 043627 CAME AC,[777,,-1]
4474 033701 003 04 0 00 000742 ER3 AC,T
4475 033702 312 05 0 00 043777 CAME AC+1,[ZZ&377777,,-1]
4476 033703 004 05 0 00 000742 ER4 AC+1,T
4477 033704 321 10 0 00 033676 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-9
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0104
4478
4479 000743 T=T+1
4480 777777 577777 ZZ=ZZ+ZZ+1
4481 IFE <ZZ-1>,<ZZ=-2>
4482 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
4483 DMOVE AC,[777,,-1
4484 033705 120 04 0 00 044000 ZZ,,-1]
4485 DFAD AC,[0,,0
4486 033706 110 04 0 00 043330 0,,0]
4487 033707 312 04 0 00 043627 CAME AC,[777,,-1]
4488 033710 003 04 0 00 000743 ER3 AC,T
4489 033711 312 05 0 00 044002 CAME AC+1,[ZZ&377777,,-1]
4490 033712 004 05 0 00 000743 ER4 AC+1,T
4491 033713 321 10 0 00 033705 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4492
4493 000744 T=T+1
4494 777777 377777 ZZ=ZZ+ZZ+1
4495 IFE <ZZ-1>,<ZZ=-2>
4496 DFARP T,777,-1,ZZ,-1,0,0,0,0,777,-1,ZZ&377777,-1^
4497 DMOVE AC,[777,,-1
4498 033714 120 04 0 00 044003 ZZ,,-1]
4499 DFAD AC,[0,,0
4500 033715 110 04 0 00 043330 0,,0]
4501 033716 312 04 0 00 043627 CAME AC,[777,,-1]
4502 033717 003 04 0 00 000744 ER3 AC,T
4503 033720 312 05 0 00 043631 CAME AC+1,[ZZ&377777,,-1]
4504 033721 004 05 0 00 000744 ER4 AC+1,T
4505 033722 321 10 0 00 033714 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4506
4507
4508 000000 ZZ=0
4509
4510 REPEAT ^D18,
4511 <T=T+1
4512 ZZ=ZZ+ZZ+1
4513 IFE <ZZ-1>,<ZZ=-2>
4514 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1
4515 >
4516 000745 T=T+1
4517 000001 ZZ=ZZ+ZZ+1
4518 777777 777776 IFE <ZZ-1>,<ZZ=-2>
4519 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
4520 DMOVE AC,[777,,ZZ
4521 033723 120 04 0 00 044005 -1,,-1]
4522 DFAD AC,[0,,0
4523 033724 110 04 0 00 043330 0,,0]
4524 033725 312 04 0 00 044005 CAME AC,[777,,ZZ]
4525 033726 003 04 0 00 000745 ER3 AC,T
4526 033727 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4527 033730 004 05 0 00 000745 ER4 AC+1,T
4528 033731 321 10 0 00 033723 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4529
4530 000746 T=T+1
4531 777777 777775 ZZ=ZZ+ZZ+1
4532 IFE <ZZ-1>,<ZZ=-2>
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-10
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0105
4533 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
4534 DMOVE AC,[777,,ZZ
4535 033732 120 04 0 00 044007 -1,,-1]
4536 DFAD AC,[0,,0
4537 033733 110 04 0 00 043330 0,,0]
4538 033734 312 04 0 00 044007 CAME AC,[777,,ZZ]
4539 033735 003 04 0 00 000746 ER3 AC,T
4540 033736 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4541 033737 004 05 0 00 000746 ER4 AC+1,T
4542 033740 321 10 0 00 033732 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4543
4544 000747 T=T+1
4545 777777 777773 ZZ=ZZ+ZZ+1
4546 IFE <ZZ-1>,<ZZ=-2>
4547 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
4548 DMOVE AC,[777,,ZZ
4549 033741 120 04 0 00 044011 -1,,-1]
4550 DFAD AC,[0,,0
4551 033742 110 04 0 00 043330 0,,0]
4552 033743 312 04 0 00 044011 CAME AC,[777,,ZZ]
4553 033744 003 04 0 00 000747 ER3 AC,T
4554 033745 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4555 033746 004 05 0 00 000747 ER4 AC+1,T
4556 033747 321 10 0 00 033741 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4557
4558 000750 T=T+1
4559 777777 777767 ZZ=ZZ+ZZ+1
4560 IFE <ZZ-1>,<ZZ=-2>
4561 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
4562 DMOVE AC,[777,,ZZ
4563 033750 120 04 0 00 044013 -1,,-1]
4564 DFAD AC,[0,,0
4565 033751 110 04 0 00 043330 0,,0]
4566 033752 312 04 0 00 044013 CAME AC,[777,,ZZ]
4567 033753 003 04 0 00 000750 ER3 AC,T
4568 033754 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4569 033755 004 05 0 00 000750 ER4 AC+1,T
4570 033756 321 10 0 00 033750 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4571
4572 000751 T=T+1
4573 777777 777757 ZZ=ZZ+ZZ+1
4574 IFE <ZZ-1>,<ZZ=-2>
4575 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
4576 DMOVE AC,[777,,ZZ
4577 033757 120 04 0 00 044015 -1,,-1]
4578 DFAD AC,[0,,0
4579 033760 110 04 0 00 043330 0,,0]
4580 033761 312 04 0 00 044015 CAME AC,[777,,ZZ]
4581 033762 003 04 0 00 000751 ER3 AC,T
4582 033763 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4583 033764 004 05 0 00 000751 ER4 AC+1,T
4584 033765 321 10 0 00 033757 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4585
4586 000752 T=T+1
4587 777777 777737 ZZ=ZZ+ZZ+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-11
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0106
4588 IFE <ZZ-1>,<ZZ=-2>
4589 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
4590 DMOVE AC,[777,,ZZ
4591 033766 120 04 0 00 044017 -1,,-1]
4592 DFAD AC,[0,,0
4593 033767 110 04 0 00 043330 0,,0]
4594 033770 312 04 0 00 044017 CAME AC,[777,,ZZ]
4595 033771 003 04 0 00 000752 ER3 AC,T
4596 033772 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4597 033773 004 05 0 00 000752 ER4 AC+1,T
4598 033774 321 10 0 00 033766 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4599
4600 000753 T=T+1
4601 777777 777677 ZZ=ZZ+ZZ+1
4602 IFE <ZZ-1>,<ZZ=-2>
4603 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
4604 DMOVE AC,[777,,ZZ
4605 033775 120 04 0 00 044021 -1,,-1]
4606 DFAD AC,[0,,0
4607 033776 110 04 0 00 043330 0,,0]
4608 033777 312 04 0 00 044021 CAME AC,[777,,ZZ]
4609 034000 003 04 0 00 000753 ER3 AC,T
4610 034001 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4611 034002 004 05 0 00 000753 ER4 AC+1,T
4612 034003 321 10 0 00 033775 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4613
4614 000754 T=T+1
4615 777777 777577 ZZ=ZZ+ZZ+1
4616 IFE <ZZ-1>,<ZZ=-2>
4617 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
4618 DMOVE AC,[777,,ZZ
4619 034004 120 04 0 00 044023 -1,,-1]
4620 DFAD AC,[0,,0
4621 034005 110 04 0 00 043330 0,,0]
4622 034006 312 04 0 00 044023 CAME AC,[777,,ZZ]
4623 034007 003 04 0 00 000754 ER3 AC,T
4624 034010 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4625 034011 004 05 0 00 000754 ER4 AC+1,T
4626 034012 321 10 0 00 034004 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4627
4628 000755 T=T+1
4629 777777 777377 ZZ=ZZ+ZZ+1
4630 IFE <ZZ-1>,<ZZ=-2>
4631 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
4632 DMOVE AC,[777,,ZZ
4633 034013 120 04 0 00 044025 -1,,-1]
4634 DFAD AC,[0,,0
4635 034014 110 04 0 00 043330 0,,0]
4636 034015 312 04 0 00 044025 CAME AC,[777,,ZZ]
4637 034016 003 04 0 00 000755 ER3 AC,T
4638 034017 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4639 034020 004 05 0 00 000755 ER4 AC+1,T
4640 034021 321 10 0 00 034013 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4641
4642 000756 T=T+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-12
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0107
4643 777777 776777 ZZ=ZZ+ZZ+1
4644 IFE <ZZ-1>,<ZZ=-2>
4645 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
4646 DMOVE AC,[777,,ZZ
4647 034022 120 04 0 00 044027 -1,,-1]
4648 DFAD AC,[0,,0
4649 034023 110 04 0 00 043330 0,,0]
4650 034024 312 04 0 00 044027 CAME AC,[777,,ZZ]
4651 034025 003 04 0 00 000756 ER3 AC,T
4652 034026 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4653 034027 004 05 0 00 000756 ER4 AC+1,T
4654 034030 321 10 0 00 034022 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4655
4656 000757 T=T+1
4657 777777 775777 ZZ=ZZ+ZZ+1
4658 IFE <ZZ-1>,<ZZ=-2>
4659 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
4660 DMOVE AC,[777,,ZZ
4661 034031 120 04 0 00 044031 -1,,-1]
4662 DFAD AC,[0,,0
4663 034032 110 04 0 00 043330 0,,0]
4664 034033 312 04 0 00 044031 CAME AC,[777,,ZZ]
4665 034034 003 04 0 00 000757 ER3 AC,T
4666 034035 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4667 034036 004 05 0 00 000757 ER4 AC+1,T
4668 034037 321 10 0 00 034031 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4669
4670 000760 T=T+1
4671 777777 773777 ZZ=ZZ+ZZ+1
4672 IFE <ZZ-1>,<ZZ=-2>
4673 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
4674 DMOVE AC,[777,,ZZ
4675 034040 120 04 0 00 044033 -1,,-1]
4676 DFAD AC,[0,,0
4677 034041 110 04 0 00 043330 0,,0]
4678 034042 312 04 0 00 044033 CAME AC,[777,,ZZ]
4679 034043 003 04 0 00 000760 ER3 AC,T
4680 034044 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4681 034045 004 05 0 00 000760 ER4 AC+1,T
4682 034046 321 10 0 00 034040 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4683
4684 000761 T=T+1
4685 777777 767777 ZZ=ZZ+ZZ+1
4686 IFE <ZZ-1>,<ZZ=-2>
4687 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
4688 DMOVE AC,[777,,ZZ
4689 034047 120 04 0 00 044035 -1,,-1]
4690 DFAD AC,[0,,0
4691 034050 110 04 0 00 043330 0,,0]
4692 034051 312 04 0 00 044035 CAME AC,[777,,ZZ]
4693 034052 003 04 0 00 000761 ER3 AC,T
4694 034053 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4695 034054 004 05 0 00 000761 ER4 AC+1,T
4696 034055 321 10 0 00 034047 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4697
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-13
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0108
4698 000762 T=T+1
4699 777777 757777 ZZ=ZZ+ZZ+1
4700 IFE <ZZ-1>,<ZZ=-2>
4701 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
4702 DMOVE AC,[777,,ZZ
4703 034056 120 04 0 00 044037 -1,,-1]
4704 DFAD AC,[0,,0
4705 034057 110 04 0 00 043330 0,,0]
4706 034060 312 04 0 00 044037 CAME AC,[777,,ZZ]
4707 034061 003 04 0 00 000762 ER3 AC,T
4708 034062 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4709 034063 004 05 0 00 000762 ER4 AC+1,T
4710 034064 321 10 0 00 034056 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4711
4712 000763 T=T+1
4713 777777 737777 ZZ=ZZ+ZZ+1
4714 IFE <ZZ-1>,<ZZ=-2>
4715 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
4716 DMOVE AC,[777,,ZZ
4717 034065 120 04 0 00 044041 -1,,-1]
4718 DFAD AC,[0,,0
4719 034066 110 04 0 00 043330 0,,0]
4720 034067 312 04 0 00 044041 CAME AC,[777,,ZZ]
4721 034070 003 04 0 00 000763 ER3 AC,T
4722 034071 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4723 034072 004 05 0 00 000763 ER4 AC+1,T
4724 034073 321 10 0 00 034065 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4725
4726 000764 T=T+1
4727 777777 677777 ZZ=ZZ+ZZ+1
4728 IFE <ZZ-1>,<ZZ=-2>
4729 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
4730 DMOVE AC,[777,,ZZ
4731 034074 120 04 0 00 044043 -1,,-1]
4732 DFAD AC,[0,,0
4733 034075 110 04 0 00 043330 0,,0]
4734 034076 312 04 0 00 044043 CAME AC,[777,,ZZ]
4735 034077 003 04 0 00 000764 ER3 AC,T
4736 034100 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4737 034101 004 05 0 00 000764 ER4 AC+1,T
4738 034102 321 10 0 00 034074 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4739
4740 000765 T=T+1
4741 777777 577777 ZZ=ZZ+ZZ+1
4742 IFE <ZZ-1>,<ZZ=-2>
4743 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
4744 DMOVE AC,[777,,ZZ
4745 034103 120 04 0 00 044045 -1,,-1]
4746 DFAD AC,[0,,0
4747 034104 110 04 0 00 043330 0,,0]
4748 034105 312 04 0 00 044045 CAME AC,[777,,ZZ]
4749 034106 003 04 0 00 000765 ER3 AC,T
4750 034107 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4751 034110 004 05 0 00 000765 ER4 AC+1,T
4752 034111 321 10 0 00 034103 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-14
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0109
4753
4754 000766 T=T+1
4755 777777 377777 ZZ=ZZ+ZZ+1
4756 IFE <ZZ-1>,<ZZ=-2>
4757 DFARP T,777,ZZ,-1,-1,0,0,0,0,777,ZZ,377777,-1^
4758 DMOVE AC,[777,,ZZ
4759 034112 120 04 0 00 044047 -1,,-1]
4760 DFAD AC,[0,,0
4761 034113 110 04 0 00 043330 0,,0]
4762 034114 312 04 0 00 044047 CAME AC,[777,,ZZ]
4763 034115 003 04 0 00 000766 ER3 AC,T
4764 034116 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4765 034117 004 05 0 00 000766 ER4 AC+1,T
4766 034120 321 10 0 00 034112 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4767
4768
4769 000000 ZZ=0
4770
4771 REPEAT ^D8,
4772 <T=T+1
4773 ZZ=ZZ+ZZ+1
4774 IFE <ZZ-1>,<ZZ=-2>
4775 DFARP T,ZZ&777,-1,-1,-1,0,0,0,0,ZZ&777,-1,377777,-1
4776 >
4777 000767 T=T+1
4778 000001 ZZ=ZZ+ZZ+1
4779 777777 777776 IFE <ZZ-1>,<ZZ=-2>
4780 DFARP T,ZZ&777,-1,-1,-1,0,0,0,0,ZZ&777,-1,377777,-1^
4781 DMOVE AC,[ZZ&777,,-1
4782 034121 120 04 0 00 044051 -1,,-1]
4783 DFAD AC,[0,,0
4784 034122 110 04 0 00 043330 0,,0]
4785 034123 312 04 0 00 044051 CAME AC,[ZZ&777,,-1]
4786 034124 003 04 0 00 000767 ER3 AC,T
4787 034125 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4788 034126 004 05 0 00 000767 ER4 AC+1,T
4789 034127 321 10 0 00 034121 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4790
4791 000770 T=T+1
4792 777777 777775 ZZ=ZZ+ZZ+1
4793 IFE <ZZ-1>,<ZZ=-2>
4794 DFARP T,ZZ&777,-1,-1,-1,0,0,0,0,ZZ&777,-1,377777,-1^
4795 DMOVE AC,[ZZ&777,,-1
4796 034130 120 04 0 00 044053 -1,,-1]
4797 DFAD AC,[0,,0
4798 034131 110 04 0 00 043330 0,,0]
4799 034132 312 04 0 00 044053 CAME AC,[ZZ&777,,-1]
4800 034133 003 04 0 00 000770 ER3 AC,T
4801 034134 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4802 034135 004 05 0 00 000770 ER4 AC+1,T
4803 034136 321 10 0 00 034130 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4804
4805 000771 T=T+1
4806 777777 777773 ZZ=ZZ+ZZ+1
4807 IFE <ZZ-1>,<ZZ=-2>
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-15
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0110
4808 DFARP T,ZZ&777,-1,-1,-1,0,0,0,0,ZZ&777,-1,377777,-1^
4809 DMOVE AC,[ZZ&777,,-1
4810 034137 120 04 0 00 044055 -1,,-1]
4811 DFAD AC,[0,,0
4812 034140 110 04 0 00 043330 0,,0]
4813 034141 312 04 0 00 044055 CAME AC,[ZZ&777,,-1]
4814 034142 003 04 0 00 000771 ER3 AC,T
4815 034143 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4816 034144 004 05 0 00 000771 ER4 AC+1,T
4817 034145 321 10 0 00 034137 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4818
4819 000772 T=T+1
4820 777777 777767 ZZ=ZZ+ZZ+1
4821 IFE <ZZ-1>,<ZZ=-2>
4822 DFARP T,ZZ&777,-1,-1,-1,0,0,0,0,ZZ&777,-1,377777,-1^
4823 DMOVE AC,[ZZ&777,,-1
4824 034146 120 04 0 00 044057 -1,,-1]
4825 DFAD AC,[0,,0
4826 034147 110 04 0 00 043330 0,,0]
4827 034150 312 04 0 00 044057 CAME AC,[ZZ&777,,-1]
4828 034151 003 04 0 00 000772 ER3 AC,T
4829 034152 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4830 034153 004 05 0 00 000772 ER4 AC+1,T
4831 034154 321 10 0 00 034146 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4832
4833 000773 T=T+1
4834 777777 777757 ZZ=ZZ+ZZ+1
4835 IFE <ZZ-1>,<ZZ=-2>
4836 DFARP T,ZZ&777,-1,-1,-1,0,0,0,0,ZZ&777,-1,377777,-1^
4837 DMOVE AC,[ZZ&777,,-1
4838 034155 120 04 0 00 044061 -1,,-1]
4839 DFAD AC,[0,,0
4840 034156 110 04 0 00 043330 0,,0]
4841 034157 312 04 0 00 044061 CAME AC,[ZZ&777,,-1]
4842 034160 003 04 0 00 000773 ER3 AC,T
4843 034161 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4844 034162 004 05 0 00 000773 ER4 AC+1,T
4845 034163 321 10 0 00 034155 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4846
4847 000774 T=T+1
4848 777777 777737 ZZ=ZZ+ZZ+1
4849 IFE <ZZ-1>,<ZZ=-2>
4850 DFARP T,ZZ&777,-1,-1,-1,0,0,0,0,ZZ&777,-1,377777,-1^
4851 DMOVE AC,[ZZ&777,,-1
4852 034164 120 04 0 00 044063 -1,,-1]
4853 DFAD AC,[0,,0
4854 034165 110 04 0 00 043330 0,,0]
4855 034166 312 04 0 00 044063 CAME AC,[ZZ&777,,-1]
4856 034167 003 04 0 00 000774 ER3 AC,T
4857 034170 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4858 034171 004 05 0 00 000774 ER4 AC+1,T
4859 034172 321 10 0 00 034164 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4860
4861 000775 T=T+1
4862 777777 777677 ZZ=ZZ+ZZ+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 5-16
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0111
4863 IFE <ZZ-1>,<ZZ=-2>
4864 DFARP T,ZZ&777,-1,-1,-1,0,0,0,0,ZZ&777,-1,377777,-1^
4865 DMOVE AC,[ZZ&777,,-1
4866 034173 120 04 0 00 044065 -1,,-1]
4867 DFAD AC,[0,,0
4868 034174 110 04 0 00 043330 0,,0]
4869 034175 312 04 0 00 044065 CAME AC,[ZZ&777,,-1]
4870 034176 003 04 0 00 000775 ER3 AC,T
4871 034177 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4872 034200 004 05 0 00 000775 ER4 AC+1,T
4873 034201 321 10 0 00 034173 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4874
4875 000776 T=T+1
4876 777777 777577 ZZ=ZZ+ZZ+1
4877 IFE <ZZ-1>,<ZZ=-2>
4878 DFARP T,ZZ&777,-1,-1,-1,0,0,0,0,ZZ&777,-1,377777,-1^
4879 DMOVE AC,[ZZ&777,,-1
4880 034202 120 04 0 00 044067 -1,,-1]
4881 DFAD AC,[0,,0
4882 034203 110 04 0 00 043330 0,,0]
4883 034204 312 04 0 00 044067 CAME AC,[ZZ&777,,-1]
4884 034205 003 04 0 00 000776 ER3 AC,T
4885 034206 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4886 034207 004 05 0 00 000776 ER4 AC+1,T
4887 034210 321 10 0 00 034202 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4888
4889
4890 000777 T=T+1
4891 DFARP T,0,0,0,0,1377,-1,-1,-1,777,-1,377777,-2^
4892 DMOVE AC,[0,,0
4893 034211 120 04 0 00 043330 0,,0]
4894 DFAD AC,[1377,,-1
4895 034212 110 04 0 00 044071 -1,,-1]
4896 034213 312 04 0 00 043627 CAME AC,[777,,-1]
4897 034214 003 04 0 00 000777 ER3 AC,T
4898 034215 312 05 0 00 043634 CAME AC+1,[377777,,-2]
4899 034216 004 05 0 00 000777 ER4 AC+1,T
4900 034217 321 10 0 00 034211 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0112
4901 ;RIPPLE ZEROS - RIPPLE ONES COMBINED (ADD A RIPPLED ONE TO A RIPPLED ZERO)
4902
4903 001000 T=1000
4904 000000 XX=0
4905 000000 ZZ=0
4906
4907 R1000: REPEAT ^D18,
4908 <T=T+1
4909 XX=XX+XX+1
4910 IFE <XX-1>,<XX=-2>
4911 ZZ=ZZ+ZZ
4912 IFE ZZ,<ZZ=1>
4913 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1
4914 >
4915 001001 T=T+1
4916 000001 XX=XX+XX+1
4917 777777 777776 IFE <XX-1>,<XX=-2>
4918 000000 ZZ=ZZ+ZZ
4919 000001 IFE ZZ,<ZZ=1>
4920 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
4921 DMOVE AC,[777,,-1
4922 034220 120 04 0 00 043632 -1,,XX]
4923 DFAD AC,[0,,0
4924 034221 110 04 0 00 044073 0,,ZZ]
4925 034222 312 04 0 00 043627 CAME AC,[777,,-1]
4926 034223 003 04 0 00 001001 ER3 AC,T
4927 034224 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4928 034225 004 05 0 00 001001 ER4 AC+1,T
4929 034226 321 10 0 00 034220 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4930
4931 001002 T=T+1
4932 777777 777775 XX=XX+XX+1
4933 IFE <XX-1>,<XX=-2>
4934 000002 ZZ=ZZ+ZZ
4935 IFE ZZ,<ZZ=1>
4936 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
4937 DMOVE AC,[777,,-1
4938 034227 120 04 0 00 043635 -1,,XX]
4939 DFAD AC,[0,,0
4940 034230 110 04 0 00 044075 0,,ZZ]
4941 034231 312 04 0 00 043627 CAME AC,[777,,-1]
4942 034232 003 04 0 00 001002 ER3 AC,T
4943 034233 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4944 034234 004 05 0 00 001002 ER4 AC+1,T
4945 034235 321 10 0 00 034227 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4946
4947 001003 T=T+1
4948 777777 777773 XX=XX+XX+1
4949 IFE <XX-1>,<XX=-2>
4950 000004 ZZ=ZZ+ZZ
4951 IFE ZZ,<ZZ=1>
4952 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
4953 DMOVE AC,[777,,-1
4954 034236 120 04 0 00 043640 -1,,XX]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-1
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0113
4955 DFAD AC,[0,,0
4956 034237 110 04 0 00 044077 0,,ZZ]
4957 034240 312 04 0 00 043627 CAME AC,[777,,-1]
4958 034241 003 04 0 00 001003 ER3 AC,T
4959 034242 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4960 034243 004 05 0 00 001003 ER4 AC+1,T
4961 034244 321 10 0 00 034236 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4962
4963 001004 T=T+1
4964 777777 777767 XX=XX+XX+1
4965 IFE <XX-1>,<XX=-2>
4966 000010 ZZ=ZZ+ZZ
4967 IFE ZZ,<ZZ=1>
4968 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
4969 DMOVE AC,[777,,-1
4970 034245 120 04 0 00 043643 -1,,XX]
4971 DFAD AC,[0,,0
4972 034246 110 04 0 00 044101 0,,ZZ]
4973 034247 312 04 0 00 043627 CAME AC,[777,,-1]
4974 034250 003 04 0 00 001004 ER3 AC,T
4975 034251 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4976 034252 004 05 0 00 001004 ER4 AC+1,T
4977 034253 321 10 0 00 034245 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4978
4979 001005 T=T+1
4980 777777 777757 XX=XX+XX+1
4981 IFE <XX-1>,<XX=-2>
4982 000020 ZZ=ZZ+ZZ
4983 IFE ZZ,<ZZ=1>
4984 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
4985 DMOVE AC,[777,,-1
4986 034254 120 04 0 00 043646 -1,,XX]
4987 DFAD AC,[0,,0
4988 034255 110 04 0 00 044103 0,,ZZ]
4989 034256 312 04 0 00 043627 CAME AC,[777,,-1]
4990 034257 003 04 0 00 001005 ER3 AC,T
4991 034260 312 05 0 00 043631 CAME AC+1,[377777,,-1]
4992 034261 004 05 0 00 001005 ER4 AC+1,T
4993 034262 321 10 0 00 034254 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
4994
4995 001006 T=T+1
4996 777777 777737 XX=XX+XX+1
4997 IFE <XX-1>,<XX=-2>
4998 000040 ZZ=ZZ+ZZ
4999 IFE ZZ,<ZZ=1>
5000 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
5001 DMOVE AC,[777,,-1
5002 034263 120 04 0 00 043651 -1,,XX]
5003 DFAD AC,[0,,0
5004 034264 110 04 0 00 044105 0,,ZZ]
5005 034265 312 04 0 00 043627 CAME AC,[777,,-1]
5006 034266 003 04 0 00 001006 ER3 AC,T
5007 034267 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5008 034270 004 05 0 00 001006 ER4 AC+1,T
5009 034271 321 10 0 00 034263 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-2
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0114
5010
5011 001007 T=T+1
5012 777777 777677 XX=XX+XX+1
5013 IFE <XX-1>,<XX=-2>
5014 000100 ZZ=ZZ+ZZ
5015 IFE ZZ,<ZZ=1>
5016 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
5017 DMOVE AC,[777,,-1
5018 034272 120 04 0 00 043654 -1,,XX]
5019 DFAD AC,[0,,0
5020 034273 110 04 0 00 044107 0,,ZZ]
5021 034274 312 04 0 00 043627 CAME AC,[777,,-1]
5022 034275 003 04 0 00 001007 ER3 AC,T
5023 034276 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5024 034277 004 05 0 00 001007 ER4 AC+1,T
5025 034300 321 10 0 00 034272 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5026
5027 001010 T=T+1
5028 777777 777577 XX=XX+XX+1
5029 IFE <XX-1>,<XX=-2>
5030 000200 ZZ=ZZ+ZZ
5031 IFE ZZ,<ZZ=1>
5032 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
5033 DMOVE AC,[777,,-1
5034 034301 120 04 0 00 043657 -1,,XX]
5035 DFAD AC,[0,,0
5036 034302 110 04 0 00 044111 0,,ZZ]
5037 034303 312 04 0 00 043627 CAME AC,[777,,-1]
5038 034304 003 04 0 00 001010 ER3 AC,T
5039 034305 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5040 034306 004 05 0 00 001010 ER4 AC+1,T
5041 034307 321 10 0 00 034301 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5042
5043 001011 T=T+1
5044 777777 777377 XX=XX+XX+1
5045 IFE <XX-1>,<XX=-2>
5046 000400 ZZ=ZZ+ZZ
5047 IFE ZZ,<ZZ=1>
5048 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
5049 DMOVE AC,[777,,-1
5050 034310 120 04 0 00 043662 -1,,XX]
5051 DFAD AC,[0,,0
5052 034311 110 04 0 00 044113 0,,ZZ]
5053 034312 312 04 0 00 043627 CAME AC,[777,,-1]
5054 034313 003 04 0 00 001011 ER3 AC,T
5055 034314 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5056 034315 004 05 0 00 001011 ER4 AC+1,T
5057 034316 321 10 0 00 034310 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5058
5059 001012 T=T+1
5060 777777 776777 XX=XX+XX+1
5061 IFE <XX-1>,<XX=-2>
5062 001000 ZZ=ZZ+ZZ
5063 IFE ZZ,<ZZ=1>
5064 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-3
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0115
5065 DMOVE AC,[777,,-1
5066 034317 120 04 0 00 043665 -1,,XX]
5067 DFAD AC,[0,,0
5068 034320 110 04 0 00 044115 0,,ZZ]
5069 034321 312 04 0 00 043627 CAME AC,[777,,-1]
5070 034322 003 04 0 00 001012 ER3 AC,T
5071 034323 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5072 034324 004 05 0 00 001012 ER4 AC+1,T
5073 034325 321 10 0 00 034317 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5074
5075 001013 T=T+1
5076 777777 775777 XX=XX+XX+1
5077 IFE <XX-1>,<XX=-2>
5078 002000 ZZ=ZZ+ZZ
5079 IFE ZZ,<ZZ=1>
5080 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
5081 DMOVE AC,[777,,-1
5082 034326 120 04 0 00 043670 -1,,XX]
5083 DFAD AC,[0,,0
5084 034327 110 04 0 00 044117 0,,ZZ]
5085 034330 312 04 0 00 043627 CAME AC,[777,,-1]
5086 034331 003 04 0 00 001013 ER3 AC,T
5087 034332 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5088 034333 004 05 0 00 001013 ER4 AC+1,T
5089 034334 321 10 0 00 034326 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5090
5091 001014 T=T+1
5092 777777 773777 XX=XX+XX+1
5093 IFE <XX-1>,<XX=-2>
5094 004000 ZZ=ZZ+ZZ
5095 IFE ZZ,<ZZ=1>
5096 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
5097 DMOVE AC,[777,,-1
5098 034335 120 04 0 00 043673 -1,,XX]
5099 DFAD AC,[0,,0
5100 034336 110 04 0 00 044121 0,,ZZ]
5101 034337 312 04 0 00 043627 CAME AC,[777,,-1]
5102 034340 003 04 0 00 001014 ER3 AC,T
5103 034341 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5104 034342 004 05 0 00 001014 ER4 AC+1,T
5105 034343 321 10 0 00 034335 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5106
5107 001015 T=T+1
5108 777777 767777 XX=XX+XX+1
5109 IFE <XX-1>,<XX=-2>
5110 010000 ZZ=ZZ+ZZ
5111 IFE ZZ,<ZZ=1>
5112 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
5113 DMOVE AC,[777,,-1
5114 034344 120 04 0 00 043676 -1,,XX]
5115 DFAD AC,[0,,0
5116 034345 110 04 0 00 044123 0,,ZZ]
5117 034346 312 04 0 00 043627 CAME AC,[777,,-1]
5118 034347 003 04 0 00 001015 ER3 AC,T
5119 034350 312 05 0 00 043631 CAME AC+1,[377777,,-1]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-4
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0116
5120 034351 004 05 0 00 001015 ER4 AC+1,T
5121 034352 321 10 0 00 034344 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5122
5123 001016 T=T+1
5124 777777 757777 XX=XX+XX+1
5125 IFE <XX-1>,<XX=-2>
5126 020000 ZZ=ZZ+ZZ
5127 IFE ZZ,<ZZ=1>
5128 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
5129 DMOVE AC,[777,,-1
5130 034353 120 04 0 00 043701 -1,,XX]
5131 DFAD AC,[0,,0
5132 034354 110 04 0 00 044125 0,,ZZ]
5133 034355 312 04 0 00 043627 CAME AC,[777,,-1]
5134 034356 003 04 0 00 001016 ER3 AC,T
5135 034357 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5136 034360 004 05 0 00 001016 ER4 AC+1,T
5137 034361 321 10 0 00 034353 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5138
5139 001017 T=T+1
5140 777777 737777 XX=XX+XX+1
5141 IFE <XX-1>,<XX=-2>
5142 040000 ZZ=ZZ+ZZ
5143 IFE ZZ,<ZZ=1>
5144 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
5145 DMOVE AC,[777,,-1
5146 034362 120 04 0 00 043704 -1,,XX]
5147 DFAD AC,[0,,0
5148 034363 110 04 0 00 044127 0,,ZZ]
5149 034364 312 04 0 00 043627 CAME AC,[777,,-1]
5150 034365 003 04 0 00 001017 ER3 AC,T
5151 034366 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5152 034367 004 05 0 00 001017 ER4 AC+1,T
5153 034370 321 10 0 00 034362 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5154
5155 001020 T=T+1
5156 777777 677777 XX=XX+XX+1
5157 IFE <XX-1>,<XX=-2>
5158 100000 ZZ=ZZ+ZZ
5159 IFE ZZ,<ZZ=1>
5160 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
5161 DMOVE AC,[777,,-1
5162 034371 120 04 0 00 043707 -1,,XX]
5163 DFAD AC,[0,,0
5164 034372 110 04 0 00 044131 0,,ZZ]
5165 034373 312 04 0 00 043627 CAME AC,[777,,-1]
5166 034374 003 04 0 00 001020 ER3 AC,T
5167 034375 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5168 034376 004 05 0 00 001020 ER4 AC+1,T
5169 034377 321 10 0 00 034371 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5170
5171 001021 T=T+1
5172 777777 577777 XX=XX+XX+1
5173 IFE <XX-1>,<XX=-2>
5174 200000 ZZ=ZZ+ZZ
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-5
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0117
5175 IFE ZZ,<ZZ=1>
5176 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
5177 DMOVE AC,[777,,-1
5178 034400 120 04 0 00 043712 -1,,XX]
5179 DFAD AC,[0,,0
5180 034401 110 04 0 00 044133 0,,ZZ]
5181 034402 312 04 0 00 043627 CAME AC,[777,,-1]
5182 034403 003 04 0 00 001021 ER3 AC,T
5183 034404 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5184 034405 004 05 0 00 001021 ER4 AC+1,T
5185 034406 321 10 0 00 034400 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5186
5187 001022 T=T+1
5188 777777 377777 XX=XX+XX+1
5189 IFE <XX-1>,<XX=-2>
5190 400000 ZZ=ZZ+ZZ
5191 IFE ZZ,<ZZ=1>
5192 DFARP T,777,-1,-1,XX,0,0,0,ZZ,777,-1,377777,-1^
5193 DMOVE AC,[777,,-1
5194 034407 120 04 0 00 043715 -1,,XX]
5195 DFAD AC,[0,,0
5196 034410 110 04 0 00 044135 0,,ZZ]
5197 034411 312 04 0 00 043627 CAME AC,[777,,-1]
5198 034412 003 04 0 00 001022 ER3 AC,T
5199 034413 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5200 034414 004 05 0 00 001022 ER4 AC+1,T
5201 034415 321 10 0 00 034407 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5202
5203
5204 000000 XX=0
5205 000000 ZZ=0
5206
5207 REPEAT ^D18,
5208 <T=T+1
5209 XX=XX+XX+1
5210 IFE <XX-1>,<XX=-2>
5211 ZZ=ZZ+ZZ
5212 IFE ZZ,<ZZ=1>
5213 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1
5214 >
5215 001023 T=T+1
5216 000001 XX=XX+XX+1
5217 777777 777776 IFE <XX-1>,<XX=-2>
5218 000000 ZZ=ZZ+ZZ
5219 000001 IFE ZZ,<ZZ=1>
5220 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
5221 DMOVE AC,[777,,-1
5222 034416 120 04 0 00 043720 XX,,-1]
5223 DFAD AC,[0,,0
5224 034417 110 04 0 00 044137 ZZ,,0]
5225 034420 312 04 0 00 043627 CAME AC,[777,,-1]
5226 034421 003 04 0 00 001023 ER3 AC,T
5227 034422 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5228 034423 004 05 0 00 001023 ER4 AC+1,T
5229 034424 321 10 0 00 034416 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-6
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0118
5230
5231 001024 T=T+1
5232 777777 777775 XX=XX+XX+1
5233 IFE <XX-1>,<XX=-2>
5234 000002 ZZ=ZZ+ZZ
5235 IFE ZZ,<ZZ=1>
5236 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
5237 DMOVE AC,[777,,-1
5238 034425 120 04 0 00 043723 XX,,-1]
5239 DFAD AC,[0,,0
5240 034426 110 04 0 00 044141 ZZ,,0]
5241 034427 312 04 0 00 043627 CAME AC,[777,,-1]
5242 034430 003 04 0 00 001024 ER3 AC,T
5243 034431 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5244 034432 004 05 0 00 001024 ER4 AC+1,T
5245 034433 321 10 0 00 034425 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5246
5247 001025 T=T+1
5248 777777 777773 XX=XX+XX+1
5249 IFE <XX-1>,<XX=-2>
5250 000004 ZZ=ZZ+ZZ
5251 IFE ZZ,<ZZ=1>
5252 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
5253 DMOVE AC,[777,,-1
5254 034434 120 04 0 00 043726 XX,,-1]
5255 DFAD AC,[0,,0
5256 034435 110 04 0 00 044143 ZZ,,0]
5257 034436 312 04 0 00 043627 CAME AC,[777,,-1]
5258 034437 003 04 0 00 001025 ER3 AC,T
5259 034440 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5260 034441 004 05 0 00 001025 ER4 AC+1,T
5261 034442 321 10 0 00 034434 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5262
5263 001026 T=T+1
5264 777777 777767 XX=XX+XX+1
5265 IFE <XX-1>,<XX=-2>
5266 000010 ZZ=ZZ+ZZ
5267 IFE ZZ,<ZZ=1>
5268 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
5269 DMOVE AC,[777,,-1
5270 034443 120 04 0 00 043731 XX,,-1]
5271 DFAD AC,[0,,0
5272 034444 110 04 0 00 044145 ZZ,,0]
5273 034445 312 04 0 00 043627 CAME AC,[777,,-1]
5274 034446 003 04 0 00 001026 ER3 AC,T
5275 034447 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5276 034450 004 05 0 00 001026 ER4 AC+1,T
5277 034451 321 10 0 00 034443 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5278
5279 001027 T=T+1
5280 777777 777757 XX=XX+XX+1
5281 IFE <XX-1>,<XX=-2>
5282 000020 ZZ=ZZ+ZZ
5283 IFE ZZ,<ZZ=1>
5284 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-7
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0119
5285 DMOVE AC,[777,,-1
5286 034452 120 04 0 00 043734 XX,,-1]
5287 DFAD AC,[0,,0
5288 034453 110 04 0 00 044147 ZZ,,0]
5289 034454 312 04 0 00 043627 CAME AC,[777,,-1]
5290 034455 003 04 0 00 001027 ER3 AC,T
5291 034456 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5292 034457 004 05 0 00 001027 ER4 AC+1,T
5293 034460 321 10 0 00 034452 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5294
5295 001030 T=T+1
5296 777777 777737 XX=XX+XX+1
5297 IFE <XX-1>,<XX=-2>
5298 000040 ZZ=ZZ+ZZ
5299 IFE ZZ,<ZZ=1>
5300 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
5301 DMOVE AC,[777,,-1
5302 034461 120 04 0 00 043737 XX,,-1]
5303 DFAD AC,[0,,0
5304 034462 110 04 0 00 044151 ZZ,,0]
5305 034463 312 04 0 00 043627 CAME AC,[777,,-1]
5306 034464 003 04 0 00 001030 ER3 AC,T
5307 034465 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5308 034466 004 05 0 00 001030 ER4 AC+1,T
5309 034467 321 10 0 00 034461 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5310
5311 001031 T=T+1
5312 777777 777677 XX=XX+XX+1
5313 IFE <XX-1>,<XX=-2>
5314 000100 ZZ=ZZ+ZZ
5315 IFE ZZ,<ZZ=1>
5316 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
5317 DMOVE AC,[777,,-1
5318 034470 120 04 0 00 043742 XX,,-1]
5319 DFAD AC,[0,,0
5320 034471 110 04 0 00 044153 ZZ,,0]
5321 034472 312 04 0 00 043627 CAME AC,[777,,-1]
5322 034473 003 04 0 00 001031 ER3 AC,T
5323 034474 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5324 034475 004 05 0 00 001031 ER4 AC+1,T
5325 034476 321 10 0 00 034470 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5326
5327 001032 T=T+1
5328 777777 777577 XX=XX+XX+1
5329 IFE <XX-1>,<XX=-2>
5330 000200 ZZ=ZZ+ZZ
5331 IFE ZZ,<ZZ=1>
5332 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
5333 DMOVE AC,[777,,-1
5334 034477 120 04 0 00 043745 XX,,-1]
5335 DFAD AC,[0,,0
5336 034500 110 04 0 00 044155 ZZ,,0]
5337 034501 312 04 0 00 043627 CAME AC,[777,,-1]
5338 034502 003 04 0 00 001032 ER3 AC,T
5339 034503 312 05 0 00 043631 CAME AC+1,[377777,,-1]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-8
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0120
5340 034504 004 05 0 00 001032 ER4 AC+1,T
5341 034505 321 10 0 00 034477 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5342
5343 001033 T=T+1
5344 777777 777377 XX=XX+XX+1
5345 IFE <XX-1>,<XX=-2>
5346 000400 ZZ=ZZ+ZZ
5347 IFE ZZ,<ZZ=1>
5348 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
5349 DMOVE AC,[777,,-1
5350 034506 120 04 0 00 043750 XX,,-1]
5351 DFAD AC,[0,,0
5352 034507 110 04 0 00 044157 ZZ,,0]
5353 034510 312 04 0 00 043627 CAME AC,[777,,-1]
5354 034511 003 04 0 00 001033 ER3 AC,T
5355 034512 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5356 034513 004 05 0 00 001033 ER4 AC+1,T
5357 034514 321 10 0 00 034506 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5358
5359 001034 T=T+1
5360 777777 776777 XX=XX+XX+1
5361 IFE <XX-1>,<XX=-2>
5362 001000 ZZ=ZZ+ZZ
5363 IFE ZZ,<ZZ=1>
5364 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
5365 DMOVE AC,[777,,-1
5366 034515 120 04 0 00 043753 XX,,-1]
5367 DFAD AC,[0,,0
5368 034516 110 04 0 00 044161 ZZ,,0]
5369 034517 312 04 0 00 043627 CAME AC,[777,,-1]
5370 034520 003 04 0 00 001034 ER3 AC,T
5371 034521 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5372 034522 004 05 0 00 001034 ER4 AC+1,T
5373 034523 321 10 0 00 034515 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5374
5375 001035 T=T+1
5376 777777 775777 XX=XX+XX+1
5377 IFE <XX-1>,<XX=-2>
5378 002000 ZZ=ZZ+ZZ
5379 IFE ZZ,<ZZ=1>
5380 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
5381 DMOVE AC,[777,,-1
5382 034524 120 04 0 00 043756 XX,,-1]
5383 DFAD AC,[0,,0
5384 034525 110 04 0 00 044163 ZZ,,0]
5385 034526 312 04 0 00 043627 CAME AC,[777,,-1]
5386 034527 003 04 0 00 001035 ER3 AC,T
5387 034530 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5388 034531 004 05 0 00 001035 ER4 AC+1,T
5389 034532 321 10 0 00 034524 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5390
5391 001036 T=T+1
5392 777777 773777 XX=XX+XX+1
5393 IFE <XX-1>,<XX=-2>
5394 004000 ZZ=ZZ+ZZ
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-9
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0121
5395 IFE ZZ,<ZZ=1>
5396 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
5397 DMOVE AC,[777,,-1
5398 034533 120 04 0 00 043761 XX,,-1]
5399 DFAD AC,[0,,0
5400 034534 110 04 0 00 044165 ZZ,,0]
5401 034535 312 04 0 00 043627 CAME AC,[777,,-1]
5402 034536 003 04 0 00 001036 ER3 AC,T
5403 034537 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5404 034540 004 05 0 00 001036 ER4 AC+1,T
5405 034541 321 10 0 00 034533 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5406
5407 001037 T=T+1
5408 777777 767777 XX=XX+XX+1
5409 IFE <XX-1>,<XX=-2>
5410 010000 ZZ=ZZ+ZZ
5411 IFE ZZ,<ZZ=1>
5412 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
5413 DMOVE AC,[777,,-1
5414 034542 120 04 0 00 043764 XX,,-1]
5415 DFAD AC,[0,,0
5416 034543 110 04 0 00 044167 ZZ,,0]
5417 034544 312 04 0 00 043627 CAME AC,[777,,-1]
5418 034545 003 04 0 00 001037 ER3 AC,T
5419 034546 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5420 034547 004 05 0 00 001037 ER4 AC+1,T
5421 034550 321 10 0 00 034542 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5422
5423 001040 T=T+1
5424 777777 757777 XX=XX+XX+1
5425 IFE <XX-1>,<XX=-2>
5426 020000 ZZ=ZZ+ZZ
5427 IFE ZZ,<ZZ=1>
5428 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
5429 DMOVE AC,[777,,-1
5430 034551 120 04 0 00 043767 XX,,-1]
5431 DFAD AC,[0,,0
5432 034552 110 04 0 00 044171 ZZ,,0]
5433 034553 312 04 0 00 043627 CAME AC,[777,,-1]
5434 034554 003 04 0 00 001040 ER3 AC,T
5435 034555 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5436 034556 004 05 0 00 001040 ER4 AC+1,T
5437 034557 321 10 0 00 034551 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5438
5439 001041 T=T+1
5440 777777 737777 XX=XX+XX+1
5441 IFE <XX-1>,<XX=-2>
5442 040000 ZZ=ZZ+ZZ
5443 IFE ZZ,<ZZ=1>
5444 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
5445 DMOVE AC,[777,,-1
5446 034560 120 04 0 00 043772 XX,,-1]
5447 DFAD AC,[0,,0
5448 034561 110 04 0 00 044173 ZZ,,0]
5449 034562 312 04 0 00 043627 CAME AC,[777,,-1]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-10
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0122
5450 034563 003 04 0 00 001041 ER3 AC,T
5451 034564 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5452 034565 004 05 0 00 001041 ER4 AC+1,T
5453 034566 321 10 0 00 034560 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5454
5455 001042 T=T+1
5456 777777 677777 XX=XX+XX+1
5457 IFE <XX-1>,<XX=-2>
5458 100000 ZZ=ZZ+ZZ
5459 IFE ZZ,<ZZ=1>
5460 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
5461 DMOVE AC,[777,,-1
5462 034567 120 04 0 00 043775 XX,,-1]
5463 DFAD AC,[0,,0
5464 034570 110 04 0 00 044175 ZZ,,0]
5465 034571 312 04 0 00 043627 CAME AC,[777,,-1]
5466 034572 003 04 0 00 001042 ER3 AC,T
5467 034573 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5468 034574 004 05 0 00 001042 ER4 AC+1,T
5469 034575 321 10 0 00 034567 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5470
5471 001043 T=T+1
5472 777777 577777 XX=XX+XX+1
5473 IFE <XX-1>,<XX=-2>
5474 200000 ZZ=ZZ+ZZ
5475 IFE ZZ,<ZZ=1>
5476 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
5477 DMOVE AC,[777,,-1
5478 034576 120 04 0 00 044000 XX,,-1]
5479 DFAD AC,[0,,0
5480 034577 110 04 0 00 043331 ZZ,,0]
5481 034600 312 04 0 00 043627 CAME AC,[777,,-1]
5482 034601 003 04 0 00 001043 ER3 AC,T
5483 034602 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5484 034603 004 05 0 00 001043 ER4 AC+1,T
5485 034604 321 10 0 00 034576 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5486
5487 001044 T=T+1
5488 777777 377777 XX=XX+XX+1
5489 IFE <XX-1>,<XX=-2>
5490 400000 ZZ=ZZ+ZZ
5491 IFE ZZ,<ZZ=1>
5492 DFARP T,777,-1,XX,-1,0,0,ZZ,0,777,-1,377777,-1^
5493 DMOVE AC,[777,,-1
5494 034605 120 04 0 00 044003 XX,,-1]
5495 DFAD AC,[0,,0
5496 034606 110 04 0 00 044177 ZZ,,0]
5497 034607 312 04 0 00 043627 CAME AC,[777,,-1]
5498 034610 003 04 0 00 001044 ER3 AC,T
5499 034611 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5500 034612 004 05 0 00 001044 ER4 AC+1,T
5501 034613 321 10 0 00 034605 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5502
5503
5504 000000 XX=0
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-11
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0123
5505 000000 ZZ=0
5506
5507 REPEAT ^D18,
5508 <T=T+1
5509 XX=XX+XX+1
5510 IFE <XX-1>,<XX=-2>
5511 ZZ=ZZ+ZZ
5512 IFE ZZ,<ZZ=1>
5513 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1
5514 >
5515 001045 T=T+1
5516 000001 XX=XX+XX+1
5517 777777 777776 IFE <XX-1>,<XX=-2>
5518 000000 ZZ=ZZ+ZZ
5519 000001 IFE ZZ,<ZZ=1>
5520 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
5521 DMOVE AC,[777,,XX
5522 034614 120 04 0 00 044005 -1,,-1]
5523 DFAD AC,[0,,ZZ
5524 034615 110 04 0 00 044074 0,,0]
5525 034616 312 04 0 00 043627 CAME AC,[777,,-1]
5526 034617 003 04 0 00 001045 ER3 AC,T
5527 034620 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5528 034621 004 05 0 00 001045 ER4 AC+1,T
5529 034622 321 10 0 00 034614 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5530
5531 001046 T=T+1
5532 777777 777775 XX=XX+XX+1
5533 IFE <XX-1>,<XX=-2>
5534 000002 ZZ=ZZ+ZZ
5535 IFE ZZ,<ZZ=1>
5536 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
5537 DMOVE AC,[777,,XX
5538 034623 120 04 0 00 044007 -1,,-1]
5539 DFAD AC,[0,,ZZ
5540 034624 110 04 0 00 044076 0,,0]
5541 034625 312 04 0 00 043627 CAME AC,[777,,-1]
5542 034626 003 04 0 00 001046 ER3 AC,T
5543 034627 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5544 034630 004 05 0 00 001046 ER4 AC+1,T
5545 034631 321 10 0 00 034623 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5546
5547 001047 T=T+1
5548 777777 777773 XX=XX+XX+1
5549 IFE <XX-1>,<XX=-2>
5550 000004 ZZ=ZZ+ZZ
5551 IFE ZZ,<ZZ=1>
5552 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
5553 DMOVE AC,[777,,XX
5554 034632 120 04 0 00 044011 -1,,-1]
5555 DFAD AC,[0,,ZZ
5556 034633 110 04 0 00 044100 0,,0]
5557 034634 312 04 0 00 043627 CAME AC,[777,,-1]
5558 034635 003 04 0 00 001047 ER3 AC,T
5559 034636 312 05 0 00 043631 CAME AC+1,[377777,,-1]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-12
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0124
5560 034637 004 05 0 00 001047 ER4 AC+1,T
5561 034640 321 10 0 00 034632 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5562
5563 001050 T=T+1
5564 777777 777767 XX=XX+XX+1
5565 IFE <XX-1>,<XX=-2>
5566 000010 ZZ=ZZ+ZZ
5567 IFE ZZ,<ZZ=1>
5568 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
5569 DMOVE AC,[777,,XX
5570 034641 120 04 0 00 044013 -1,,-1]
5571 DFAD AC,[0,,ZZ
5572 034642 110 04 0 00 044102 0,,0]
5573 034643 312 04 0 00 043627 CAME AC,[777,,-1]
5574 034644 003 04 0 00 001050 ER3 AC,T
5575 034645 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5576 034646 004 05 0 00 001050 ER4 AC+1,T
5577 034647 321 10 0 00 034641 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5578
5579 001051 T=T+1
5580 777777 777757 XX=XX+XX+1
5581 IFE <XX-1>,<XX=-2>
5582 000020 ZZ=ZZ+ZZ
5583 IFE ZZ,<ZZ=1>
5584 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
5585 DMOVE AC,[777,,XX
5586 034650 120 04 0 00 044015 -1,,-1]
5587 DFAD AC,[0,,ZZ
5588 034651 110 04 0 00 044104 0,,0]
5589 034652 312 04 0 00 043627 CAME AC,[777,,-1]
5590 034653 003 04 0 00 001051 ER3 AC,T
5591 034654 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5592 034655 004 05 0 00 001051 ER4 AC+1,T
5593 034656 321 10 0 00 034650 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5594
5595 001052 T=T+1
5596 777777 777737 XX=XX+XX+1
5597 IFE <XX-1>,<XX=-2>
5598 000040 ZZ=ZZ+ZZ
5599 IFE ZZ,<ZZ=1>
5600 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
5601 DMOVE AC,[777,,XX
5602 034657 120 04 0 00 044017 -1,,-1]
5603 DFAD AC,[0,,ZZ
5604 034660 110 04 0 00 044106 0,,0]
5605 034661 312 04 0 00 043627 CAME AC,[777,,-1]
5606 034662 003 04 0 00 001052 ER3 AC,T
5607 034663 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5608 034664 004 05 0 00 001052 ER4 AC+1,T
5609 034665 321 10 0 00 034657 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5610
5611 001053 T=T+1
5612 777777 777677 XX=XX+XX+1
5613 IFE <XX-1>,<XX=-2>
5614 000100 ZZ=ZZ+ZZ
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-13
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0125
5615 IFE ZZ,<ZZ=1>
5616 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
5617 DMOVE AC,[777,,XX
5618 034666 120 04 0 00 044021 -1,,-1]
5619 DFAD AC,[0,,ZZ
5620 034667 110 04 0 00 044110 0,,0]
5621 034670 312 04 0 00 043627 CAME AC,[777,,-1]
5622 034671 003 04 0 00 001053 ER3 AC,T
5623 034672 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5624 034673 004 05 0 00 001053 ER4 AC+1,T
5625 034674 321 10 0 00 034666 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5626
5627 001054 T=T+1
5628 777777 777577 XX=XX+XX+1
5629 IFE <XX-1>,<XX=-2>
5630 000200 ZZ=ZZ+ZZ
5631 IFE ZZ,<ZZ=1>
5632 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
5633 DMOVE AC,[777,,XX
5634 034675 120 04 0 00 044023 -1,,-1]
5635 DFAD AC,[0,,ZZ
5636 034676 110 04 0 00 044112 0,,0]
5637 034677 312 04 0 00 043627 CAME AC,[777,,-1]
5638 034700 003 04 0 00 001054 ER3 AC,T
5639 034701 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5640 034702 004 05 0 00 001054 ER4 AC+1,T
5641 034703 321 10 0 00 034675 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5642
5643 001055 T=T+1
5644 777777 777377 XX=XX+XX+1
5645 IFE <XX-1>,<XX=-2>
5646 000400 ZZ=ZZ+ZZ
5647 IFE ZZ,<ZZ=1>
5648 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
5649 DMOVE AC,[777,,XX
5650 034704 120 04 0 00 044025 -1,,-1]
5651 DFAD AC,[0,,ZZ
5652 034705 110 04 0 00 044114 0,,0]
5653 034706 312 04 0 00 043627 CAME AC,[777,,-1]
5654 034707 003 04 0 00 001055 ER3 AC,T
5655 034710 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5656 034711 004 05 0 00 001055 ER4 AC+1,T
5657 034712 321 10 0 00 034704 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5658
5659 001056 T=T+1
5660 777777 776777 XX=XX+XX+1
5661 IFE <XX-1>,<XX=-2>
5662 001000 ZZ=ZZ+ZZ
5663 IFE ZZ,<ZZ=1>
5664 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
5665 DMOVE AC,[777,,XX
5666 034713 120 04 0 00 044027 -1,,-1]
5667 DFAD AC,[0,,ZZ
5668 034714 110 04 0 00 044116 0,,0]
5669 034715 312 04 0 00 043627 CAME AC,[777,,-1]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-14
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0126
5670 034716 003 04 0 00 001056 ER3 AC,T
5671 034717 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5672 034720 004 05 0 00 001056 ER4 AC+1,T
5673 034721 321 10 0 00 034713 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5674
5675 001057 T=T+1
5676 777777 775777 XX=XX+XX+1
5677 IFE <XX-1>,<XX=-2>
5678 002000 ZZ=ZZ+ZZ
5679 IFE ZZ,<ZZ=1>
5680 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
5681 DMOVE AC,[777,,XX
5682 034722 120 04 0 00 044031 -1,,-1]
5683 DFAD AC,[0,,ZZ
5684 034723 110 04 0 00 044120 0,,0]
5685 034724 312 04 0 00 043627 CAME AC,[777,,-1]
5686 034725 003 04 0 00 001057 ER3 AC,T
5687 034726 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5688 034727 004 05 0 00 001057 ER4 AC+1,T
5689 034730 321 10 0 00 034722 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5690
5691 001060 T=T+1
5692 777777 773777 XX=XX+XX+1
5693 IFE <XX-1>,<XX=-2>
5694 004000 ZZ=ZZ+ZZ
5695 IFE ZZ,<ZZ=1>
5696 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
5697 DMOVE AC,[777,,XX
5698 034731 120 04 0 00 044033 -1,,-1]
5699 DFAD AC,[0,,ZZ
5700 034732 110 04 0 00 044122 0,,0]
5701 034733 312 04 0 00 043627 CAME AC,[777,,-1]
5702 034734 003 04 0 00 001060 ER3 AC,T
5703 034735 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5704 034736 004 05 0 00 001060 ER4 AC+1,T
5705 034737 321 10 0 00 034731 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5706
5707 001061 T=T+1
5708 777777 767777 XX=XX+XX+1
5709 IFE <XX-1>,<XX=-2>
5710 010000 ZZ=ZZ+ZZ
5711 IFE ZZ,<ZZ=1>
5712 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
5713 DMOVE AC,[777,,XX
5714 034740 120 04 0 00 044035 -1,,-1]
5715 DFAD AC,[0,,ZZ
5716 034741 110 04 0 00 044124 0,,0]
5717 034742 312 04 0 00 043627 CAME AC,[777,,-1]
5718 034743 003 04 0 00 001061 ER3 AC,T
5719 034744 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5720 034745 004 05 0 00 001061 ER4 AC+1,T
5721 034746 321 10 0 00 034740 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5722
5723 001062 T=T+1
5724 777777 757777 XX=XX+XX+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-15
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0127
5725 IFE <XX-1>,<XX=-2>
5726 020000 ZZ=ZZ+ZZ
5727 IFE ZZ,<ZZ=1>
5728 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
5729 DMOVE AC,[777,,XX
5730 034747 120 04 0 00 044037 -1,,-1]
5731 DFAD AC,[0,,ZZ
5732 034750 110 04 0 00 044126 0,,0]
5733 034751 312 04 0 00 043627 CAME AC,[777,,-1]
5734 034752 003 04 0 00 001062 ER3 AC,T
5735 034753 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5736 034754 004 05 0 00 001062 ER4 AC+1,T
5737 034755 321 10 0 00 034747 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5738
5739 001063 T=T+1
5740 777777 737777 XX=XX+XX+1
5741 IFE <XX-1>,<XX=-2>
5742 040000 ZZ=ZZ+ZZ
5743 IFE ZZ,<ZZ=1>
5744 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
5745 DMOVE AC,[777,,XX
5746 034756 120 04 0 00 044041 -1,,-1]
5747 DFAD AC,[0,,ZZ
5748 034757 110 04 0 00 044130 0,,0]
5749 034760 312 04 0 00 043627 CAME AC,[777,,-1]
5750 034761 003 04 0 00 001063 ER3 AC,T
5751 034762 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5752 034763 004 05 0 00 001063 ER4 AC+1,T
5753 034764 321 10 0 00 034756 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5754
5755 001064 T=T+1
5756 777777 677777 XX=XX+XX+1
5757 IFE <XX-1>,<XX=-2>
5758 100000 ZZ=ZZ+ZZ
5759 IFE ZZ,<ZZ=1>
5760 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
5761 DMOVE AC,[777,,XX
5762 034765 120 04 0 00 044043 -1,,-1]
5763 DFAD AC,[0,,ZZ
5764 034766 110 04 0 00 044132 0,,0]
5765 034767 312 04 0 00 043627 CAME AC,[777,,-1]
5766 034770 003 04 0 00 001064 ER3 AC,T
5767 034771 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5768 034772 004 05 0 00 001064 ER4 AC+1,T
5769 034773 321 10 0 00 034765 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5770
5771 001065 T=T+1
5772 777777 577777 XX=XX+XX+1
5773 IFE <XX-1>,<XX=-2>
5774 200000 ZZ=ZZ+ZZ
5775 IFE ZZ,<ZZ=1>
5776 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
5777 DMOVE AC,[777,,XX
5778 034774 120 04 0 00 044045 -1,,-1]
5779 DFAD AC,[0,,ZZ
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 6-16
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0128
5780 034775 110 04 0 00 044134 0,,0]
5781 034776 312 04 0 00 043627 CAME AC,[777,,-1]
5782 034777 003 04 0 00 001065 ER3 AC,T
5783 035000 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5784 035001 004 05 0 00 001065 ER4 AC+1,T
5785 035002 321 10 0 00 034774 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5786
5787 001066 T=T+1
5788 777777 377777 XX=XX+XX+1
5789 IFE <XX-1>,<XX=-2>
5790 400000 ZZ=ZZ+ZZ
5791 IFE ZZ,<ZZ=1>
5792 DFARP T,777,XX,-1,-1,0,ZZ,0,0,777,-1,377777,-1^
5793 DMOVE AC,[777,,XX
5794 035003 120 04 0 00 044047 -1,,-1]
5795 DFAD AC,[0,,ZZ
5796 035004 110 04 0 00 044136 0,,0]
5797 035005 312 04 0 00 043627 CAME AC,[777,,-1]
5798 035006 003 04 0 00 001066 ER3 AC,T
5799 035007 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5800 035010 004 05 0 00 001066 ER4 AC+1,T
5801 035011 321 10 0 00 035003 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5802
5803
5804 000000 XX=0
5805 000000 ZZ=0
5806
5807 REPEAT ^D9,
5808 <T=T+1
5809 XX=XX+XX+1
5810 IFE <XX-1>,<XX=-2>
5811 ZZ=ZZ+ZZ
5812 IFE ZZ,<ZZ=1>
5813 DFARP T,XX&777,-1,-1,-1,ZZ,0,0,0,777,-1,377777,-1
5814 >
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0129
5815 001067 T=T+1
5816 000001 XX=XX+XX+1
5817 777777 777776 IFE <XX-1>,<XX=-2>
5818 000000 ZZ=ZZ+ZZ
5819 000001 IFE ZZ,<ZZ=1>
5820 DFARP T,XX&777,-1,-1,-1,ZZ,0,0,0,777,-1,377777,-1^
5821 DMOVE AC,[XX&777,,-1
5822 035012 120 04 0 00 044051 -1,,-1]
5823 DFAD AC,[ZZ,,0
5824 035013 110 04 0 00 044140 0,,0]
5825 035014 312 04 0 00 043627 CAME AC,[777,,-1]
5826 035015 003 04 0 00 001067 ER3 AC,T
5827 035016 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5828 035017 004 05 0 00 001067 ER4 AC+1,T
5829 035020 321 10 0 00 035012 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5830
5831 001070 T=T+1
5832 777777 777775 XX=XX+XX+1
5833 IFE <XX-1>,<XX=-2>
5834 000002 ZZ=ZZ+ZZ
5835 IFE ZZ,<ZZ=1>
5836 DFARP T,XX&777,-1,-1,-1,ZZ,0,0,0,777,-1,377777,-1^
5837 DMOVE AC,[XX&777,,-1
5838 035021 120 04 0 00 044053 -1,,-1]
5839 DFAD AC,[ZZ,,0
5840 035022 110 04 0 00 044142 0,,0]
5841 035023 312 04 0 00 043627 CAME AC,[777,,-1]
5842 035024 003 04 0 00 001070 ER3 AC,T
5843 035025 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5844 035026 004 05 0 00 001070 ER4 AC+1,T
5845 035027 321 10 0 00 035021 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5846
5847 001071 T=T+1
5848 777777 777773 XX=XX+XX+1
5849 IFE <XX-1>,<XX=-2>
5850 000004 ZZ=ZZ+ZZ
5851 IFE ZZ,<ZZ=1>
5852 DFARP T,XX&777,-1,-1,-1,ZZ,0,0,0,777,-1,377777,-1^
5853 DMOVE AC,[XX&777,,-1
5854 035030 120 04 0 00 044055 -1,,-1]
5855 DFAD AC,[ZZ,,0
5856 035031 110 04 0 00 044144 0,,0]
5857 035032 312 04 0 00 043627 CAME AC,[777,,-1]
5858 035033 003 04 0 00 001071 ER3 AC,T
5859 035034 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5860 035035 004 05 0 00 001071 ER4 AC+1,T
5861 035036 321 10 0 00 035030 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5862
5863 001072 T=T+1
5864 777777 777767 XX=XX+XX+1
5865 IFE <XX-1>,<XX=-2>
5866 000010 ZZ=ZZ+ZZ
5867 IFE ZZ,<ZZ=1>
5868 DFARP T,XX&777,-1,-1,-1,ZZ,0,0,0,777,-1,377777,-1^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-1
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0130
5869 DMOVE AC,[XX&777,,-1
5870 035037 120 04 0 00 044057 -1,,-1]
5871 DFAD AC,[ZZ,,0
5872 035040 110 04 0 00 044146 0,,0]
5873 035041 312 04 0 00 043627 CAME AC,[777,,-1]
5874 035042 003 04 0 00 001072 ER3 AC,T
5875 035043 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5876 035044 004 05 0 00 001072 ER4 AC+1,T
5877 035045 321 10 0 00 035037 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5878
5879 001073 T=T+1
5880 777777 777757 XX=XX+XX+1
5881 IFE <XX-1>,<XX=-2>
5882 000020 ZZ=ZZ+ZZ
5883 IFE ZZ,<ZZ=1>
5884 DFARP T,XX&777,-1,-1,-1,ZZ,0,0,0,777,-1,377777,-1^
5885 DMOVE AC,[XX&777,,-1
5886 035046 120 04 0 00 044061 -1,,-1]
5887 DFAD AC,[ZZ,,0
5888 035047 110 04 0 00 044150 0,,0]
5889 035050 312 04 0 00 043627 CAME AC,[777,,-1]
5890 035051 003 04 0 00 001073 ER3 AC,T
5891 035052 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5892 035053 004 05 0 00 001073 ER4 AC+1,T
5893 035054 321 10 0 00 035046 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5894
5895 001074 T=T+1
5896 777777 777737 XX=XX+XX+1
5897 IFE <XX-1>,<XX=-2>
5898 000040 ZZ=ZZ+ZZ
5899 IFE ZZ,<ZZ=1>
5900 DFARP T,XX&777,-1,-1,-1,ZZ,0,0,0,777,-1,377777,-1^
5901 DMOVE AC,[XX&777,,-1
5902 035055 120 04 0 00 044063 -1,,-1]
5903 DFAD AC,[ZZ,,0
5904 035056 110 04 0 00 044152 0,,0]
5905 035057 312 04 0 00 043627 CAME AC,[777,,-1]
5906 035060 003 04 0 00 001074 ER3 AC,T
5907 035061 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5908 035062 004 05 0 00 001074 ER4 AC+1,T
5909 035063 321 10 0 00 035055 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5910
5911 001075 T=T+1
5912 777777 777677 XX=XX+XX+1
5913 IFE <XX-1>,<XX=-2>
5914 000100 ZZ=ZZ+ZZ
5915 IFE ZZ,<ZZ=1>
5916 DFARP T,XX&777,-1,-1,-1,ZZ,0,0,0,777,-1,377777,-1^
5917 DMOVE AC,[XX&777,,-1
5918 035064 120 04 0 00 044065 -1,,-1]
5919 DFAD AC,[ZZ,,0
5920 035065 110 04 0 00 044154 0,,0]
5921 035066 312 04 0 00 043627 CAME AC,[777,,-1]
5922 035067 003 04 0 00 001075 ER3 AC,T
5923 035070 312 05 0 00 043631 CAME AC+1,[377777,,-1]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-2
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0131
5924 035071 004 05 0 00 001075 ER4 AC+1,T
5925 035072 321 10 0 00 035064 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5926
5927 001076 T=T+1
5928 777777 777577 XX=XX+XX+1
5929 IFE <XX-1>,<XX=-2>
5930 000200 ZZ=ZZ+ZZ
5931 IFE ZZ,<ZZ=1>
5932 DFARP T,XX&777,-1,-1,-1,ZZ,0,0,0,777,-1,377777,-1^
5933 DMOVE AC,[XX&777,,-1
5934 035073 120 04 0 00 044067 -1,,-1]
5935 DFAD AC,[ZZ,,0
5936 035074 110 04 0 00 044156 0,,0]
5937 035075 312 04 0 00 043627 CAME AC,[777,,-1]
5938 035076 003 04 0 00 001076 ER3 AC,T
5939 035077 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5940 035100 004 05 0 00 001076 ER4 AC+1,T
5941 035101 321 10 0 00 035073 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5942
5943 001077 T=T+1
5944 777777 777377 XX=XX+XX+1
5945 IFE <XX-1>,<XX=-2>
5946 000400 ZZ=ZZ+ZZ
5947 IFE ZZ,<ZZ=1>
5948 DFARP T,XX&777,-1,-1,-1,ZZ,0,0,0,777,-1,377777,-1^
5949 DMOVE AC,[XX&777,,-1
5950 035102 120 04 0 00 044201 -1,,-1]
5951 DFAD AC,[ZZ,,0
5952 035103 110 04 0 00 044160 0,,0]
5953 035104 312 04 0 00 043627 CAME AC,[777,,-1]
5954 035105 003 04 0 00 001077 ER3 AC,T
5955 035106 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5956 035107 004 05 0 00 001077 ER4 AC+1,T
5957 035110 321 10 0 00 035102 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5958
5959 ;RIPPLE ZEROS - RIPPLE ONES COMBINED (ADD A RIPPLED ZERO TO A RIPPLED ONE)
5960
5961 001100 T=1100
5962 000000 XX=0
5963 000000 ZZ=0
5964
5965 R1100: REPEAT ^D18,
5966 <T=T+1
5967 XX=XX+XX
5968 IFE XX,<XX=1>
5969 ZZ=ZZ+ZZ+1
5970 IFE <ZZ-1>,<ZZ=-2>
5971 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1
5972 >
5973 001101 T=T+1
5974 000000 XX=XX+XX
5975 000001 IFE XX,<XX=1>
5976 000001 ZZ=ZZ+ZZ+1
5977 777777 777776 IFE <ZZ-1>,<ZZ=-2>
5978 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-3
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0132
5979 DMOVE AC,[0,,0
5980 035111 120 04 0 00 044073 0,,XX]
5981 DFAD AC,[777,,-1
5982 035112 110 04 0 00 043632 -1,,ZZ]
5983 035113 312 04 0 00 043627 CAME AC,[777,,-1]
5984 035114 003 04 0 00 001101 ER3 AC,T
5985 035115 312 05 0 00 043631 CAME AC+1,[377777,,-1]
5986 035116 004 05 0 00 001101 ER4 AC+1,T
5987 035117 321 10 0 00 035111 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
5988
5989 001102 T=T+1
5990 000002 XX=XX+XX
5991 IFE XX,<XX=1>
5992 777777 777775 ZZ=ZZ+ZZ+1
5993 IFE <ZZ-1>,<ZZ=-2>
5994 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
5995 DMOVE AC,[0,,0
5996 035120 120 04 0 00 044075 0,,XX]
5997 DFAD AC,[777,,-1
5998 035121 110 04 0 00 043635 -1,,ZZ]
5999 035122 312 04 0 00 043627 CAME AC,[777,,-1]
6000 035123 003 04 0 00 001102 ER3 AC,T
6001 035124 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6002 035125 004 05 0 00 001102 ER4 AC+1,T
6003 035126 321 10 0 00 035120 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6004
6005 001103 T=T+1
6006 000004 XX=XX+XX
6007 IFE XX,<XX=1>
6008 777777 777773 ZZ=ZZ+ZZ+1
6009 IFE <ZZ-1>,<ZZ=-2>
6010 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
6011 DMOVE AC,[0,,0
6012 035127 120 04 0 00 044077 0,,XX]
6013 DFAD AC,[777,,-1
6014 035130 110 04 0 00 043640 -1,,ZZ]
6015 035131 312 04 0 00 043627 CAME AC,[777,,-1]
6016 035132 003 04 0 00 001103 ER3 AC,T
6017 035133 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6018 035134 004 05 0 00 001103 ER4 AC+1,T
6019 035135 321 10 0 00 035127 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6020
6021 001104 T=T+1
6022 000010 XX=XX+XX
6023 IFE XX,<XX=1>
6024 777777 777767 ZZ=ZZ+ZZ+1
6025 IFE <ZZ-1>,<ZZ=-2>
6026 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
6027 DMOVE AC,[0,,0
6028 035136 120 04 0 00 044101 0,,XX]
6029 DFAD AC,[777,,-1
6030 035137 110 04 0 00 043643 -1,,ZZ]
6031 035140 312 04 0 00 043627 CAME AC,[777,,-1]
6032 035141 003 04 0 00 001104 ER3 AC,T
6033 035142 312 05 0 00 043631 CAME AC+1,[377777,,-1]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-4
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0133
6034 035143 004 05 0 00 001104 ER4 AC+1,T
6035 035144 321 10 0 00 035136 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6036
6037 001105 T=T+1
6038 000020 XX=XX+XX
6039 IFE XX,<XX=1>
6040 777777 777757 ZZ=ZZ+ZZ+1
6041 IFE <ZZ-1>,<ZZ=-2>
6042 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
6043 DMOVE AC,[0,,0
6044 035145 120 04 0 00 044103 0,,XX]
6045 DFAD AC,[777,,-1
6046 035146 110 04 0 00 043646 -1,,ZZ]
6047 035147 312 04 0 00 043627 CAME AC,[777,,-1]
6048 035150 003 04 0 00 001105 ER3 AC,T
6049 035151 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6050 035152 004 05 0 00 001105 ER4 AC+1,T
6051 035153 321 10 0 00 035145 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6052
6053 001106 T=T+1
6054 000040 XX=XX+XX
6055 IFE XX,<XX=1>
6056 777777 777737 ZZ=ZZ+ZZ+1
6057 IFE <ZZ-1>,<ZZ=-2>
6058 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
6059 DMOVE AC,[0,,0
6060 035154 120 04 0 00 044105 0,,XX]
6061 DFAD AC,[777,,-1
6062 035155 110 04 0 00 043651 -1,,ZZ]
6063 035156 312 04 0 00 043627 CAME AC,[777,,-1]
6064 035157 003 04 0 00 001106 ER3 AC,T
6065 035160 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6066 035161 004 05 0 00 001106 ER4 AC+1,T
6067 035162 321 10 0 00 035154 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6068
6069 001107 T=T+1
6070 000100 XX=XX+XX
6071 IFE XX,<XX=1>
6072 777777 777677 ZZ=ZZ+ZZ+1
6073 IFE <ZZ-1>,<ZZ=-2>
6074 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
6075 DMOVE AC,[0,,0
6076 035163 120 04 0 00 044107 0,,XX]
6077 DFAD AC,[777,,-1
6078 035164 110 04 0 00 043654 -1,,ZZ]
6079 035165 312 04 0 00 043627 CAME AC,[777,,-1]
6080 035166 003 04 0 00 001107 ER3 AC,T
6081 035167 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6082 035170 004 05 0 00 001107 ER4 AC+1,T
6083 035171 321 10 0 00 035163 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6084
6085 001110 T=T+1
6086 000200 XX=XX+XX
6087 IFE XX,<XX=1>
6088 777777 777577 ZZ=ZZ+ZZ+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-5
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0134
6089 IFE <ZZ-1>,<ZZ=-2>
6090 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
6091 DMOVE AC,[0,,0
6092 035172 120 04 0 00 044111 0,,XX]
6093 DFAD AC,[777,,-1
6094 035173 110 04 0 00 043657 -1,,ZZ]
6095 035174 312 04 0 00 043627 CAME AC,[777,,-1]
6096 035175 003 04 0 00 001110 ER3 AC,T
6097 035176 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6098 035177 004 05 0 00 001110 ER4 AC+1,T
6099 035200 321 10 0 00 035172 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6100
6101 001111 T=T+1
6102 000400 XX=XX+XX
6103 IFE XX,<XX=1>
6104 777777 777377 ZZ=ZZ+ZZ+1
6105 IFE <ZZ-1>,<ZZ=-2>
6106 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
6107 DMOVE AC,[0,,0
6108 035201 120 04 0 00 044113 0,,XX]
6109 DFAD AC,[777,,-1
6110 035202 110 04 0 00 043662 -1,,ZZ]
6111 035203 312 04 0 00 043627 CAME AC,[777,,-1]
6112 035204 003 04 0 00 001111 ER3 AC,T
6113 035205 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6114 035206 004 05 0 00 001111 ER4 AC+1,T
6115 035207 321 10 0 00 035201 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6116
6117 001112 T=T+1
6118 001000 XX=XX+XX
6119 IFE XX,<XX=1>
6120 777777 776777 ZZ=ZZ+ZZ+1
6121 IFE <ZZ-1>,<ZZ=-2>
6122 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
6123 DMOVE AC,[0,,0
6124 035210 120 04 0 00 044115 0,,XX]
6125 DFAD AC,[777,,-1
6126 035211 110 04 0 00 043665 -1,,ZZ]
6127 035212 312 04 0 00 043627 CAME AC,[777,,-1]
6128 035213 003 04 0 00 001112 ER3 AC,T
6129 035214 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6130 035215 004 05 0 00 001112 ER4 AC+1,T
6131 035216 321 10 0 00 035210 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6132
6133 001113 T=T+1
6134 002000 XX=XX+XX
6135 IFE XX,<XX=1>
6136 777777 775777 ZZ=ZZ+ZZ+1
6137 IFE <ZZ-1>,<ZZ=-2>
6138 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
6139 DMOVE AC,[0,,0
6140 035217 120 04 0 00 044117 0,,XX]
6141 DFAD AC,[777,,-1
6142 035220 110 04 0 00 043670 -1,,ZZ]
6143 035221 312 04 0 00 043627 CAME AC,[777,,-1]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-6
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0135
6144 035222 003 04 0 00 001113 ER3 AC,T
6145 035223 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6146 035224 004 05 0 00 001113 ER4 AC+1,T
6147 035225 321 10 0 00 035217 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6148
6149 001114 T=T+1
6150 004000 XX=XX+XX
6151 IFE XX,<XX=1>
6152 777777 773777 ZZ=ZZ+ZZ+1
6153 IFE <ZZ-1>,<ZZ=-2>
6154 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
6155 DMOVE AC,[0,,0
6156 035226 120 04 0 00 044121 0,,XX]
6157 DFAD AC,[777,,-1
6158 035227 110 04 0 00 043673 -1,,ZZ]
6159 035230 312 04 0 00 043627 CAME AC,[777,,-1]
6160 035231 003 04 0 00 001114 ER3 AC,T
6161 035232 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6162 035233 004 05 0 00 001114 ER4 AC+1,T
6163 035234 321 10 0 00 035226 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6164
6165 001115 T=T+1
6166 010000 XX=XX+XX
6167 IFE XX,<XX=1>
6168 777777 767777 ZZ=ZZ+ZZ+1
6169 IFE <ZZ-1>,<ZZ=-2>
6170 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
6171 DMOVE AC,[0,,0
6172 035235 120 04 0 00 044123 0,,XX]
6173 DFAD AC,[777,,-1
6174 035236 110 04 0 00 043676 -1,,ZZ]
6175 035237 312 04 0 00 043627 CAME AC,[777,,-1]
6176 035240 003 04 0 00 001115 ER3 AC,T
6177 035241 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6178 035242 004 05 0 00 001115 ER4 AC+1,T
6179 035243 321 10 0 00 035235 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6180
6181 001116 T=T+1
6182 020000 XX=XX+XX
6183 IFE XX,<XX=1>
6184 777777 757777 ZZ=ZZ+ZZ+1
6185 IFE <ZZ-1>,<ZZ=-2>
6186 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
6187 DMOVE AC,[0,,0
6188 035244 120 04 0 00 044125 0,,XX]
6189 DFAD AC,[777,,-1
6190 035245 110 04 0 00 043701 -1,,ZZ]
6191 035246 312 04 0 00 043627 CAME AC,[777,,-1]
6192 035247 003 04 0 00 001116 ER3 AC,T
6193 035250 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6194 035251 004 05 0 00 001116 ER4 AC+1,T
6195 035252 321 10 0 00 035244 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6196
6197 001117 T=T+1
6198 040000 XX=XX+XX
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-7
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0136
6199 IFE XX,<XX=1>
6200 777777 737777 ZZ=ZZ+ZZ+1
6201 IFE <ZZ-1>,<ZZ=-2>
6202 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
6203 DMOVE AC,[0,,0
6204 035253 120 04 0 00 044127 0,,XX]
6205 DFAD AC,[777,,-1
6206 035254 110 04 0 00 043704 -1,,ZZ]
6207 035255 312 04 0 00 043627 CAME AC,[777,,-1]
6208 035256 003 04 0 00 001117 ER3 AC,T
6209 035257 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6210 035260 004 05 0 00 001117 ER4 AC+1,T
6211 035261 321 10 0 00 035253 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6212
6213 001120 T=T+1
6214 100000 XX=XX+XX
6215 IFE XX,<XX=1>
6216 777777 677777 ZZ=ZZ+ZZ+1
6217 IFE <ZZ-1>,<ZZ=-2>
6218 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
6219 DMOVE AC,[0,,0
6220 035262 120 04 0 00 044131 0,,XX]
6221 DFAD AC,[777,,-1
6222 035263 110 04 0 00 043707 -1,,ZZ]
6223 035264 312 04 0 00 043627 CAME AC,[777,,-1]
6224 035265 003 04 0 00 001120 ER3 AC,T
6225 035266 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6226 035267 004 05 0 00 001120 ER4 AC+1,T
6227 035270 321 10 0 00 035262 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6228
6229 001121 T=T+1
6230 200000 XX=XX+XX
6231 IFE XX,<XX=1>
6232 777777 577777 ZZ=ZZ+ZZ+1
6233 IFE <ZZ-1>,<ZZ=-2>
6234 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
6235 DMOVE AC,[0,,0
6236 035271 120 04 0 00 044133 0,,XX]
6237 DFAD AC,[777,,-1
6238 035272 110 04 0 00 043712 -1,,ZZ]
6239 035273 312 04 0 00 043627 CAME AC,[777,,-1]
6240 035274 003 04 0 00 001121 ER3 AC,T
6241 035275 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6242 035276 004 05 0 00 001121 ER4 AC+1,T
6243 035277 321 10 0 00 035271 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6244
6245 001122 T=T+1
6246 400000 XX=XX+XX
6247 IFE XX,<XX=1>
6248 777777 377777 ZZ=ZZ+ZZ+1
6249 IFE <ZZ-1>,<ZZ=-2>
6250 DFARP T,0,0,0,XX,777,-1,-1,ZZ,777,-1,377777,-1^
6251 DMOVE AC,[0,,0
6252 035300 120 04 0 00 044135 0,,XX]
6253 DFAD AC,[777,,-1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-8
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0137
6254 035301 110 04 0 00 043715 -1,,ZZ]
6255 035302 312 04 0 00 043627 CAME AC,[777,,-1]
6256 035303 003 04 0 00 001122 ER3 AC,T
6257 035304 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6258 035305 004 05 0 00 001122 ER4 AC+1,T
6259 035306 321 10 0 00 035300 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6260
6261
6262 000000 XX=0
6263 000000 ZZ=0
6264
6265 REPEAT ^D18,
6266 <T=T+1
6267 XX=XX+XX
6268 IFE XX,<XX=1>
6269 ZZ=ZZ+ZZ+1
6270 IFE <ZZ-1>,<ZZ=-2>
6271 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1
6272 >
6273 001123 T=T+1
6274 000000 XX=XX+XX
6275 000001 IFE XX,<XX=1>
6276 000001 ZZ=ZZ+ZZ+1
6277 777777 777776 IFE <ZZ-1>,<ZZ=-2>
6278 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
6279 DMOVE AC,[0,,0
6280 035307 120 04 0 00 044137 XX,,0]
6281 DFAD AC,[777,,-1
6282 035310 110 04 0 00 043720 ZZ,,-1]
6283 035311 312 04 0 00 043627 CAME AC,[777,,-1]
6284 035312 003 04 0 00 001123 ER3 AC,T
6285 035313 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6286 035314 004 05 0 00 001123 ER4 AC+1,T
6287 035315 321 10 0 00 035307 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6288
6289 001124 T=T+1
6290 000002 XX=XX+XX
6291 IFE XX,<XX=1>
6292 777777 777775 ZZ=ZZ+ZZ+1
6293 IFE <ZZ-1>,<ZZ=-2>
6294 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
6295 DMOVE AC,[0,,0
6296 035316 120 04 0 00 044141 XX,,0]
6297 DFAD AC,[777,,-1
6298 035317 110 04 0 00 043723 ZZ,,-1]
6299 035320 312 04 0 00 043627 CAME AC,[777,,-1]
6300 035321 003 04 0 00 001124 ER3 AC,T
6301 035322 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6302 035323 004 05 0 00 001124 ER4 AC+1,T
6303 035324 321 10 0 00 035316 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6304
6305 001125 T=T+1
6306 000004 XX=XX+XX
6307 IFE XX,<XX=1>
6308 777777 777773 ZZ=ZZ+ZZ+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-9
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0138
6309 IFE <ZZ-1>,<ZZ=-2>
6310 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
6311 DMOVE AC,[0,,0
6312 035325 120 04 0 00 044143 XX,,0]
6313 DFAD AC,[777,,-1
6314 035326 110 04 0 00 043726 ZZ,,-1]
6315 035327 312 04 0 00 043627 CAME AC,[777,,-1]
6316 035330 003 04 0 00 001125 ER3 AC,T
6317 035331 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6318 035332 004 05 0 00 001125 ER4 AC+1,T
6319 035333 321 10 0 00 035325 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6320
6321 001126 T=T+1
6322 000010 XX=XX+XX
6323 IFE XX,<XX=1>
6324 777777 777767 ZZ=ZZ+ZZ+1
6325 IFE <ZZ-1>,<ZZ=-2>
6326 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
6327 DMOVE AC,[0,,0
6328 035334 120 04 0 00 044145 XX,,0]
6329 DFAD AC,[777,,-1
6330 035335 110 04 0 00 043731 ZZ,,-1]
6331 035336 312 04 0 00 043627 CAME AC,[777,,-1]
6332 035337 003 04 0 00 001126 ER3 AC,T
6333 035340 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6334 035341 004 05 0 00 001126 ER4 AC+1,T
6335 035342 321 10 0 00 035334 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6336
6337 001127 T=T+1
6338 000020 XX=XX+XX
6339 IFE XX,<XX=1>
6340 777777 777757 ZZ=ZZ+ZZ+1
6341 IFE <ZZ-1>,<ZZ=-2>
6342 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
6343 DMOVE AC,[0,,0
6344 035343 120 04 0 00 044147 XX,,0]
6345 DFAD AC,[777,,-1
6346 035344 110 04 0 00 043734 ZZ,,-1]
6347 035345 312 04 0 00 043627 CAME AC,[777,,-1]
6348 035346 003 04 0 00 001127 ER3 AC,T
6349 035347 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6350 035350 004 05 0 00 001127 ER4 AC+1,T
6351 035351 321 10 0 00 035343 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6352
6353 001130 T=T+1
6354 000040 XX=XX+XX
6355 IFE XX,<XX=1>
6356 777777 777737 ZZ=ZZ+ZZ+1
6357 IFE <ZZ-1>,<ZZ=-2>
6358 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
6359 DMOVE AC,[0,,0
6360 035352 120 04 0 00 044151 XX,,0]
6361 DFAD AC,[777,,-1
6362 035353 110 04 0 00 043737 ZZ,,-1]
6363 035354 312 04 0 00 043627 CAME AC,[777,,-1]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-10
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0139
6364 035355 003 04 0 00 001130 ER3 AC,T
6365 035356 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6366 035357 004 05 0 00 001130 ER4 AC+1,T
6367 035360 321 10 0 00 035352 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6368
6369 001131 T=T+1
6370 000100 XX=XX+XX
6371 IFE XX,<XX=1>
6372 777777 777677 ZZ=ZZ+ZZ+1
6373 IFE <ZZ-1>,<ZZ=-2>
6374 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
6375 DMOVE AC,[0,,0
6376 035361 120 04 0 00 044153 XX,,0]
6377 DFAD AC,[777,,-1
6378 035362 110 04 0 00 043742 ZZ,,-1]
6379 035363 312 04 0 00 043627 CAME AC,[777,,-1]
6380 035364 003 04 0 00 001131 ER3 AC,T
6381 035365 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6382 035366 004 05 0 00 001131 ER4 AC+1,T
6383 035367 321 10 0 00 035361 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6384
6385 001132 T=T+1
6386 000200 XX=XX+XX
6387 IFE XX,<XX=1>
6388 777777 777577 ZZ=ZZ+ZZ+1
6389 IFE <ZZ-1>,<ZZ=-2>
6390 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
6391 DMOVE AC,[0,,0
6392 035370 120 04 0 00 044155 XX,,0]
6393 DFAD AC,[777,,-1
6394 035371 110 04 0 00 043745 ZZ,,-1]
6395 035372 312 04 0 00 043627 CAME AC,[777,,-1]
6396 035373 003 04 0 00 001132 ER3 AC,T
6397 035374 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6398 035375 004 05 0 00 001132 ER4 AC+1,T
6399 035376 321 10 0 00 035370 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6400
6401 001133 T=T+1
6402 000400 XX=XX+XX
6403 IFE XX,<XX=1>
6404 777777 777377 ZZ=ZZ+ZZ+1
6405 IFE <ZZ-1>,<ZZ=-2>
6406 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
6407 DMOVE AC,[0,,0
6408 035377 120 04 0 00 044157 XX,,0]
6409 DFAD AC,[777,,-1
6410 035400 110 04 0 00 043750 ZZ,,-1]
6411 035401 312 04 0 00 043627 CAME AC,[777,,-1]
6412 035402 003 04 0 00 001133 ER3 AC,T
6413 035403 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6414 035404 004 05 0 00 001133 ER4 AC+1,T
6415 035405 321 10 0 00 035377 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6416
6417 001134 T=T+1
6418 001000 XX=XX+XX
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-11
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0140
6419 IFE XX,<XX=1>
6420 777777 776777 ZZ=ZZ+ZZ+1
6421 IFE <ZZ-1>,<ZZ=-2>
6422 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
6423 DMOVE AC,[0,,0
6424 035406 120 04 0 00 044161 XX,,0]
6425 DFAD AC,[777,,-1
6426 035407 110 04 0 00 043753 ZZ,,-1]
6427 035410 312 04 0 00 043627 CAME AC,[777,,-1]
6428 035411 003 04 0 00 001134 ER3 AC,T
6429 035412 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6430 035413 004 05 0 00 001134 ER4 AC+1,T
6431 035414 321 10 0 00 035406 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6432
6433 001135 T=T+1
6434 002000 XX=XX+XX
6435 IFE XX,<XX=1>
6436 777777 775777 ZZ=ZZ+ZZ+1
6437 IFE <ZZ-1>,<ZZ=-2>
6438 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
6439 DMOVE AC,[0,,0
6440 035415 120 04 0 00 044163 XX,,0]
6441 DFAD AC,[777,,-1
6442 035416 110 04 0 00 043756 ZZ,,-1]
6443 035417 312 04 0 00 043627 CAME AC,[777,,-1]
6444 035420 003 04 0 00 001135 ER3 AC,T
6445 035421 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6446 035422 004 05 0 00 001135 ER4 AC+1,T
6447 035423 321 10 0 00 035415 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6448
6449 001136 T=T+1
6450 004000 XX=XX+XX
6451 IFE XX,<XX=1>
6452 777777 773777 ZZ=ZZ+ZZ+1
6453 IFE <ZZ-1>,<ZZ=-2>
6454 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
6455 DMOVE AC,[0,,0
6456 035424 120 04 0 00 044165 XX,,0]
6457 DFAD AC,[777,,-1
6458 035425 110 04 0 00 043761 ZZ,,-1]
6459 035426 312 04 0 00 043627 CAME AC,[777,,-1]
6460 035427 003 04 0 00 001136 ER3 AC,T
6461 035430 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6462 035431 004 05 0 00 001136 ER4 AC+1,T
6463 035432 321 10 0 00 035424 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6464
6465 001137 T=T+1
6466 010000 XX=XX+XX
6467 IFE XX,<XX=1>
6468 777777 767777 ZZ=ZZ+ZZ+1
6469 IFE <ZZ-1>,<ZZ=-2>
6470 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
6471 DMOVE AC,[0,,0
6472 035433 120 04 0 00 044167 XX,,0]
6473 DFAD AC,[777,,-1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-12
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0141
6474 035434 110 04 0 00 043764 ZZ,,-1]
6475 035435 312 04 0 00 043627 CAME AC,[777,,-1]
6476 035436 003 04 0 00 001137 ER3 AC,T
6477 035437 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6478 035440 004 05 0 00 001137 ER4 AC+1,T
6479 035441 321 10 0 00 035433 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6480
6481 001140 T=T+1
6482 020000 XX=XX+XX
6483 IFE XX,<XX=1>
6484 777777 757777 ZZ=ZZ+ZZ+1
6485 IFE <ZZ-1>,<ZZ=-2>
6486 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
6487 DMOVE AC,[0,,0
6488 035442 120 04 0 00 044171 XX,,0]
6489 DFAD AC,[777,,-1
6490 035443 110 04 0 00 043767 ZZ,,-1]
6491 035444 312 04 0 00 043627 CAME AC,[777,,-1]
6492 035445 003 04 0 00 001140 ER3 AC,T
6493 035446 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6494 035447 004 05 0 00 001140 ER4 AC+1,T
6495 035450 321 10 0 00 035442 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6496
6497 001141 T=T+1
6498 040000 XX=XX+XX
6499 IFE XX,<XX=1>
6500 777777 737777 ZZ=ZZ+ZZ+1
6501 IFE <ZZ-1>,<ZZ=-2>
6502 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
6503 DMOVE AC,[0,,0
6504 035451 120 04 0 00 044173 XX,,0]
6505 DFAD AC,[777,,-1
6506 035452 110 04 0 00 043772 ZZ,,-1]
6507 035453 312 04 0 00 043627 CAME AC,[777,,-1]
6508 035454 003 04 0 00 001141 ER3 AC,T
6509 035455 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6510 035456 004 05 0 00 001141 ER4 AC+1,T
6511 035457 321 10 0 00 035451 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6512
6513 001142 T=T+1
6514 100000 XX=XX+XX
6515 IFE XX,<XX=1>
6516 777777 677777 ZZ=ZZ+ZZ+1
6517 IFE <ZZ-1>,<ZZ=-2>
6518 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
6519 DMOVE AC,[0,,0
6520 035460 120 04 0 00 044175 XX,,0]
6521 DFAD AC,[777,,-1
6522 035461 110 04 0 00 043775 ZZ,,-1]
6523 035462 312 04 0 00 043627 CAME AC,[777,,-1]
6524 035463 003 04 0 00 001142 ER3 AC,T
6525 035464 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6526 035465 004 05 0 00 001142 ER4 AC+1,T
6527 035466 321 10 0 00 035460 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6528
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-13
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0142
6529 001143 T=T+1
6530 200000 XX=XX+XX
6531 IFE XX,<XX=1>
6532 777777 577777 ZZ=ZZ+ZZ+1
6533 IFE <ZZ-1>,<ZZ=-2>
6534 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
6535 DMOVE AC,[0,,0
6536 035467 120 04 0 00 043331 XX,,0]
6537 DFAD AC,[777,,-1
6538 035470 110 04 0 00 044000 ZZ,,-1]
6539 035471 312 04 0 00 043627 CAME AC,[777,,-1]
6540 035472 003 04 0 00 001143 ER3 AC,T
6541 035473 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6542 035474 004 05 0 00 001143 ER4 AC+1,T
6543 035475 321 10 0 00 035467 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6544
6545 001144 T=T+1
6546 400000 XX=XX+XX
6547 IFE XX,<XX=1>
6548 777777 377777 ZZ=ZZ+ZZ+1
6549 IFE <ZZ-1>,<ZZ=-2>
6550 DFARP T,0,0,XX,0,777,-1,ZZ,-1,777,-1,377777,-1^
6551 DMOVE AC,[0,,0
6552 035476 120 04 0 00 044177 XX,,0]
6553 DFAD AC,[777,,-1
6554 035477 110 04 0 00 044003 ZZ,,-1]
6555 035500 312 04 0 00 043627 CAME AC,[777,,-1]
6556 035501 003 04 0 00 001144 ER3 AC,T
6557 035502 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6558 035503 004 05 0 00 001144 ER4 AC+1,T
6559 035504 321 10 0 00 035476 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6560
6561
6562 000000 XX=0
6563 000000 ZZ=0
6564
6565 REPEAT ^D18,
6566 <T=T+1
6567 XX=XX+XX
6568 IFE XX,<XX=1>
6569 ZZ=ZZ+ZZ+1
6570 IFE <ZZ-1>,<ZZ=-2>
6571 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1
6572 >
6573 001145 T=T+1
6574 000000 XX=XX+XX
6575 000001 IFE XX,<XX=1>
6576 000001 ZZ=ZZ+ZZ+1
6577 777777 777776 IFE <ZZ-1>,<ZZ=-2>
6578 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
6579 DMOVE AC,[0,,XX
6580 035505 120 04 0 00 044074 0,,0]
6581 DFAD AC,[777,,ZZ
6582 035506 110 04 0 00 044005 -1,,-1]
6583 035507 312 04 0 00 043627 CAME AC,[777,,-1]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-14
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0143
6584 035510 003 04 0 00 001145 ER3 AC,T
6585 035511 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6586 035512 004 05 0 00 001145 ER4 AC+1,T
6587 035513 321 10 0 00 035505 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6588
6589 001146 T=T+1
6590 000002 XX=XX+XX
6591 IFE XX,<XX=1>
6592 777777 777775 ZZ=ZZ+ZZ+1
6593 IFE <ZZ-1>,<ZZ=-2>
6594 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
6595 DMOVE AC,[0,,XX
6596 035514 120 04 0 00 044076 0,,0]
6597 DFAD AC,[777,,ZZ
6598 035515 110 04 0 00 044007 -1,,-1]
6599 035516 312 04 0 00 043627 CAME AC,[777,,-1]
6600 035517 003 04 0 00 001146 ER3 AC,T
6601 035520 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6602 035521 004 05 0 00 001146 ER4 AC+1,T
6603 035522 321 10 0 00 035514 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6604
6605 001147 T=T+1
6606 000004 XX=XX+XX
6607 IFE XX,<XX=1>
6608 777777 777773 ZZ=ZZ+ZZ+1
6609 IFE <ZZ-1>,<ZZ=-2>
6610 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
6611 DMOVE AC,[0,,XX
6612 035523 120 04 0 00 044100 0,,0]
6613 DFAD AC,[777,,ZZ
6614 035524 110 04 0 00 044011 -1,,-1]
6615 035525 312 04 0 00 043627 CAME AC,[777,,-1]
6616 035526 003 04 0 00 001147 ER3 AC,T
6617 035527 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6618 035530 004 05 0 00 001147 ER4 AC+1,T
6619 035531 321 10 0 00 035523 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6620
6621 001150 T=T+1
6622 000010 XX=XX+XX
6623 IFE XX,<XX=1>
6624 777777 777767 ZZ=ZZ+ZZ+1
6625 IFE <ZZ-1>,<ZZ=-2>
6626 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
6627 DMOVE AC,[0,,XX
6628 035532 120 04 0 00 044102 0,,0]
6629 DFAD AC,[777,,ZZ
6630 035533 110 04 0 00 044013 -1,,-1]
6631 035534 312 04 0 00 043627 CAME AC,[777,,-1]
6632 035535 003 04 0 00 001150 ER3 AC,T
6633 035536 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6634 035537 004 05 0 00 001150 ER4 AC+1,T
6635 035540 321 10 0 00 035532 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6636
6637 001151 T=T+1
6638 000020 XX=XX+XX
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-15
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0144
6639 IFE XX,<XX=1>
6640 777777 777757 ZZ=ZZ+ZZ+1
6641 IFE <ZZ-1>,<ZZ=-2>
6642 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
6643 DMOVE AC,[0,,XX
6644 035541 120 04 0 00 044104 0,,0]
6645 DFAD AC,[777,,ZZ
6646 035542 110 04 0 00 044015 -1,,-1]
6647 035543 312 04 0 00 043627 CAME AC,[777,,-1]
6648 035544 003 04 0 00 001151 ER3 AC,T
6649 035545 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6650 035546 004 05 0 00 001151 ER4 AC+1,T
6651 035547 321 10 0 00 035541 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6652
6653 001152 T=T+1
6654 000040 XX=XX+XX
6655 IFE XX,<XX=1>
6656 777777 777737 ZZ=ZZ+ZZ+1
6657 IFE <ZZ-1>,<ZZ=-2>
6658 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
6659 DMOVE AC,[0,,XX
6660 035550 120 04 0 00 044106 0,,0]
6661 DFAD AC,[777,,ZZ
6662 035551 110 04 0 00 044017 -1,,-1]
6663 035552 312 04 0 00 043627 CAME AC,[777,,-1]
6664 035553 003 04 0 00 001152 ER3 AC,T
6665 035554 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6666 035555 004 05 0 00 001152 ER4 AC+1,T
6667 035556 321 10 0 00 035550 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6668
6669 001153 T=T+1
6670 000100 XX=XX+XX
6671 IFE XX,<XX=1>
6672 777777 777677 ZZ=ZZ+ZZ+1
6673 IFE <ZZ-1>,<ZZ=-2>
6674 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
6675 DMOVE AC,[0,,XX
6676 035557 120 04 0 00 044110 0,,0]
6677 DFAD AC,[777,,ZZ
6678 035560 110 04 0 00 044021 -1,,-1]
6679 035561 312 04 0 00 043627 CAME AC,[777,,-1]
6680 035562 003 04 0 00 001153 ER3 AC,T
6681 035563 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6682 035564 004 05 0 00 001153 ER4 AC+1,T
6683 035565 321 10 0 00 035557 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6684
6685 001154 T=T+1
6686 000200 XX=XX+XX
6687 IFE XX,<XX=1>
6688 777777 777577 ZZ=ZZ+ZZ+1
6689 IFE <ZZ-1>,<ZZ=-2>
6690 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
6691 DMOVE AC,[0,,XX
6692 035566 120 04 0 00 044112 0,,0]
6693 DFAD AC,[777,,ZZ
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-16
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0145
6694 035567 110 04 0 00 044023 -1,,-1]
6695 035570 312 04 0 00 043627 CAME AC,[777,,-1]
6696 035571 003 04 0 00 001154 ER3 AC,T
6697 035572 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6698 035573 004 05 0 00 001154 ER4 AC+1,T
6699 035574 321 10 0 00 035566 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6700
6701 001155 T=T+1
6702 000400 XX=XX+XX
6703 IFE XX,<XX=1>
6704 777777 777377 ZZ=ZZ+ZZ+1
6705 IFE <ZZ-1>,<ZZ=-2>
6706 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
6707 DMOVE AC,[0,,XX
6708 035575 120 04 0 00 044114 0,,0]
6709 DFAD AC,[777,,ZZ
6710 035576 110 04 0 00 044025 -1,,-1]
6711 035577 312 04 0 00 043627 CAME AC,[777,,-1]
6712 035600 003 04 0 00 001155 ER3 AC,T
6713 035601 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6714 035602 004 05 0 00 001155 ER4 AC+1,T
6715 035603 321 10 0 00 035575 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6716
6717 001156 T=T+1
6718 001000 XX=XX+XX
6719 IFE XX,<XX=1>
6720 777777 776777 ZZ=ZZ+ZZ+1
6721 IFE <ZZ-1>,<ZZ=-2>
6722 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
6723 DMOVE AC,[0,,XX
6724 035604 120 04 0 00 044116 0,,0]
6725 DFAD AC,[777,,ZZ
6726 035605 110 04 0 00 044027 -1,,-1]
6727 035606 312 04 0 00 043627 CAME AC,[777,,-1]
6728 035607 003 04 0 00 001156 ER3 AC,T
6729 035610 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6730 035611 004 05 0 00 001156 ER4 AC+1,T
6731 035612 321 10 0 00 035604 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6732
6733 001157 T=T+1
6734 002000 XX=XX+XX
6735 IFE XX,<XX=1>
6736 777777 775777 ZZ=ZZ+ZZ+1
6737 IFE <ZZ-1>,<ZZ=-2>
6738 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
6739 DMOVE AC,[0,,XX
6740 035613 120 04 0 00 044120 0,,0]
6741 DFAD AC,[777,,ZZ
6742 035614 110 04 0 00 044031 -1,,-1]
6743 035615 312 04 0 00 043627 CAME AC,[777,,-1]
6744 035616 003 04 0 00 001157 ER3 AC,T
6745 035617 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6746 035620 004 05 0 00 001157 ER4 AC+1,T
6747 035621 321 10 0 00 035613 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6748
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-17
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0146
6749 001160 T=T+1
6750 004000 XX=XX+XX
6751 IFE XX,<XX=1>
6752 777777 773777 ZZ=ZZ+ZZ+1
6753 IFE <ZZ-1>,<ZZ=-2>
6754 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
6755 DMOVE AC,[0,,XX
6756 035622 120 04 0 00 044122 0,,0]
6757 DFAD AC,[777,,ZZ
6758 035623 110 04 0 00 044033 -1,,-1]
6759 035624 312 04 0 00 043627 CAME AC,[777,,-1]
6760 035625 003 04 0 00 001160 ER3 AC,T
6761 035626 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6762 035627 004 05 0 00 001160 ER4 AC+1,T
6763 035630 321 10 0 00 035622 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6764
6765 001161 T=T+1
6766 010000 XX=XX+XX
6767 IFE XX,<XX=1>
6768 777777 767777 ZZ=ZZ+ZZ+1
6769 IFE <ZZ-1>,<ZZ=-2>
6770 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
6771 DMOVE AC,[0,,XX
6772 035631 120 04 0 00 044124 0,,0]
6773 DFAD AC,[777,,ZZ
6774 035632 110 04 0 00 044035 -1,,-1]
6775 035633 312 04 0 00 043627 CAME AC,[777,,-1]
6776 035634 003 04 0 00 001161 ER3 AC,T
6777 035635 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6778 035636 004 05 0 00 001161 ER4 AC+1,T
6779 035637 321 10 0 00 035631 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6780
6781 001162 T=T+1
6782 020000 XX=XX+XX
6783 IFE XX,<XX=1>
6784 777777 757777 ZZ=ZZ+ZZ+1
6785 IFE <ZZ-1>,<ZZ=-2>
6786 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
6787 DMOVE AC,[0,,XX
6788 035640 120 04 0 00 044126 0,,0]
6789 DFAD AC,[777,,ZZ
6790 035641 110 04 0 00 044037 -1,,-1]
6791 035642 312 04 0 00 043627 CAME AC,[777,,-1]
6792 035643 003 04 0 00 001162 ER3 AC,T
6793 035644 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6794 035645 004 05 0 00 001162 ER4 AC+1,T
6795 035646 321 10 0 00 035640 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6796
6797 001163 T=T+1
6798 040000 XX=XX+XX
6799 IFE XX,<XX=1>
6800 777777 737777 ZZ=ZZ+ZZ+1
6801 IFE <ZZ-1>,<ZZ=-2>
6802 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
6803 DMOVE AC,[0,,XX
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-18
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0147
6804 035647 120 04 0 00 044130 0,,0]
6805 DFAD AC,[777,,ZZ
6806 035650 110 04 0 00 044041 -1,,-1]
6807 035651 312 04 0 00 043627 CAME AC,[777,,-1]
6808 035652 003 04 0 00 001163 ER3 AC,T
6809 035653 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6810 035654 004 05 0 00 001163 ER4 AC+1,T
6811 035655 321 10 0 00 035647 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6812
6813 001164 T=T+1
6814 100000 XX=XX+XX
6815 IFE XX,<XX=1>
6816 777777 677777 ZZ=ZZ+ZZ+1
6817 IFE <ZZ-1>,<ZZ=-2>
6818 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
6819 DMOVE AC,[0,,XX
6820 035656 120 04 0 00 044132 0,,0]
6821 DFAD AC,[777,,ZZ
6822 035657 110 04 0 00 044043 -1,,-1]
6823 035660 312 04 0 00 043627 CAME AC,[777,,-1]
6824 035661 003 04 0 00 001164 ER3 AC,T
6825 035662 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6826 035663 004 05 0 00 001164 ER4 AC+1,T
6827 035664 321 10 0 00 035656 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6828
6829 001165 T=T+1
6830 200000 XX=XX+XX
6831 IFE XX,<XX=1>
6832 777777 577777 ZZ=ZZ+ZZ+1
6833 IFE <ZZ-1>,<ZZ=-2>
6834 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
6835 DMOVE AC,[0,,XX
6836 035665 120 04 0 00 044134 0,,0]
6837 DFAD AC,[777,,ZZ
6838 035666 110 04 0 00 044045 -1,,-1]
6839 035667 312 04 0 00 043627 CAME AC,[777,,-1]
6840 035670 003 04 0 00 001165 ER3 AC,T
6841 035671 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6842 035672 004 05 0 00 001165 ER4 AC+1,T
6843 035673 321 10 0 00 035665 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6844
6845 001166 T=T+1
6846 400000 XX=XX+XX
6847 IFE XX,<XX=1>
6848 777777 377777 ZZ=ZZ+ZZ+1
6849 IFE <ZZ-1>,<ZZ=-2>
6850 DFARP T,0,XX,0,0,777,ZZ,-1,-1,777,-1,377777,-1^
6851 DMOVE AC,[0,,XX
6852 035674 120 04 0 00 044136 0,,0]
6853 DFAD AC,[777,,ZZ
6854 035675 110 04 0 00 044047 -1,,-1]
6855 035676 312 04 0 00 043627 CAME AC,[777,,-1]
6856 035677 003 04 0 00 001166 ER3 AC,T
6857 035700 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6858 035701 004 05 0 00 001166 ER4 AC+1,T
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 7-19
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0148
6859 035702 321 10 0 00 035674 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6860
6861
6862 000000 XX=0
6863 000000 ZZ=0
6864
6865 REPEAT ^D9,
6866 <T=T+1
6867 XX=XX+XX
6868 IFE XX,<XX=1>
6869 ZZ=ZZ+ZZ+1
6870 IFE <ZZ-1>,<ZZ=-2>
6871 DFARP T,XX,0,0,0,ZZ&777,-1,-1,-1,777,-1,377777,-1
6872 >
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0149
6873 001167 T=T+1
6874 000000 XX=XX+XX
6875 000001 IFE XX,<XX=1>
6876 000001 ZZ=ZZ+ZZ+1
6877 777777 777776 IFE <ZZ-1>,<ZZ=-2>
6878 DFARP T,XX,0,0,0,ZZ&777,-1,-1,-1,777,-1,377777,-1^
6879 DMOVE AC,[XX,,0
6880 035703 120 04 0 00 044140 0,,0]
6881 DFAD AC,[ZZ&777,,-1
6882 035704 110 04 0 00 044051 -1,,-1]
6883 035705 312 04 0 00 043627 CAME AC,[777,,-1]
6884 035706 003 04 0 00 001167 ER3 AC,T
6885 035707 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6886 035710 004 05 0 00 001167 ER4 AC+1,T
6887 035711 321 10 0 00 035703 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6888
6889 001170 T=T+1
6890 000002 XX=XX+XX
6891 IFE XX,<XX=1>
6892 777777 777775 ZZ=ZZ+ZZ+1
6893 IFE <ZZ-1>,<ZZ=-2>
6894 DFARP T,XX,0,0,0,ZZ&777,-1,-1,-1,777,-1,377777,-1^
6895 DMOVE AC,[XX,,0
6896 035712 120 04 0 00 044142 0,,0]
6897 DFAD AC,[ZZ&777,,-1
6898 035713 110 04 0 00 044053 -1,,-1]
6899 035714 312 04 0 00 043627 CAME AC,[777,,-1]
6900 035715 003 04 0 00 001170 ER3 AC,T
6901 035716 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6902 035717 004 05 0 00 001170 ER4 AC+1,T
6903 035720 321 10 0 00 035712 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6904
6905 001171 T=T+1
6906 000004 XX=XX+XX
6907 IFE XX,<XX=1>
6908 777777 777773 ZZ=ZZ+ZZ+1
6909 IFE <ZZ-1>,<ZZ=-2>
6910 DFARP T,XX,0,0,0,ZZ&777,-1,-1,-1,777,-1,377777,-1^
6911 DMOVE AC,[XX,,0
6912 035721 120 04 0 00 044144 0,,0]
6913 DFAD AC,[ZZ&777,,-1
6914 035722 110 04 0 00 044055 -1,,-1]
6915 035723 312 04 0 00 043627 CAME AC,[777,,-1]
6916 035724 003 04 0 00 001171 ER3 AC,T
6917 035725 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6918 035726 004 05 0 00 001171 ER4 AC+1,T
6919 035727 321 10 0 00 035721 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6920
6921 001172 T=T+1
6922 000010 XX=XX+XX
6923 IFE XX,<XX=1>
6924 777777 777767 ZZ=ZZ+ZZ+1
6925 IFE <ZZ-1>,<ZZ=-2>
6926 DFARP T,XX,0,0,0,ZZ&777,-1,-1,-1,777,-1,377777,-1^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-1
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0150
6927 DMOVE AC,[XX,,0
6928 035730 120 04 0 00 044146 0,,0]
6929 DFAD AC,[ZZ&777,,-1
6930 035731 110 04 0 00 044057 -1,,-1]
6931 035732 312 04 0 00 043627 CAME AC,[777,,-1]
6932 035733 003 04 0 00 001172 ER3 AC,T
6933 035734 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6934 035735 004 05 0 00 001172 ER4 AC+1,T
6935 035736 321 10 0 00 035730 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6936
6937 001173 T=T+1
6938 000020 XX=XX+XX
6939 IFE XX,<XX=1>
6940 777777 777757 ZZ=ZZ+ZZ+1
6941 IFE <ZZ-1>,<ZZ=-2>
6942 DFARP T,XX,0,0,0,ZZ&777,-1,-1,-1,777,-1,377777,-1^
6943 DMOVE AC,[XX,,0
6944 035737 120 04 0 00 044150 0,,0]
6945 DFAD AC,[ZZ&777,,-1
6946 035740 110 04 0 00 044061 -1,,-1]
6947 035741 312 04 0 00 043627 CAME AC,[777,,-1]
6948 035742 003 04 0 00 001173 ER3 AC,T
6949 035743 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6950 035744 004 05 0 00 001173 ER4 AC+1,T
6951 035745 321 10 0 00 035737 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6952
6953 001174 T=T+1
6954 000040 XX=XX+XX
6955 IFE XX,<XX=1>
6956 777777 777737 ZZ=ZZ+ZZ+1
6957 IFE <ZZ-1>,<ZZ=-2>
6958 DFARP T,XX,0,0,0,ZZ&777,-1,-1,-1,777,-1,377777,-1^
6959 DMOVE AC,[XX,,0
6960 035746 120 04 0 00 044152 0,,0]
6961 DFAD AC,[ZZ&777,,-1
6962 035747 110 04 0 00 044063 -1,,-1]
6963 035750 312 04 0 00 043627 CAME AC,[777,,-1]
6964 035751 003 04 0 00 001174 ER3 AC,T
6965 035752 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6966 035753 004 05 0 00 001174 ER4 AC+1,T
6967 035754 321 10 0 00 035746 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6968
6969 001175 T=T+1
6970 000100 XX=XX+XX
6971 IFE XX,<XX=1>
6972 777777 777677 ZZ=ZZ+ZZ+1
6973 IFE <ZZ-1>,<ZZ=-2>
6974 DFARP T,XX,0,0,0,ZZ&777,-1,-1,-1,777,-1,377777,-1^
6975 DMOVE AC,[XX,,0
6976 035755 120 04 0 00 044154 0,,0]
6977 DFAD AC,[ZZ&777,,-1
6978 035756 110 04 0 00 044065 -1,,-1]
6979 035757 312 04 0 00 043627 CAME AC,[777,,-1]
6980 035760 003 04 0 00 001175 ER3 AC,T
6981 035761 312 05 0 00 043631 CAME AC+1,[377777,,-1]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-2
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0151
6982 035762 004 05 0 00 001175 ER4 AC+1,T
6983 035763 321 10 0 00 035755 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
6984
6985 001176 T=T+1
6986 000200 XX=XX+XX
6987 IFE XX,<XX=1>
6988 777777 777577 ZZ=ZZ+ZZ+1
6989 IFE <ZZ-1>,<ZZ=-2>
6990 DFARP T,XX,0,0,0,ZZ&777,-1,-1,-1,777,-1,377777,-1^
6991 DMOVE AC,[XX,,0
6992 035764 120 04 0 00 044156 0,,0]
6993 DFAD AC,[ZZ&777,,-1
6994 035765 110 04 0 00 044067 -1,,-1]
6995 035766 312 04 0 00 043627 CAME AC,[777,,-1]
6996 035767 003 04 0 00 001176 ER3 AC,T
6997 035770 312 05 0 00 043631 CAME AC+1,[377777,,-1]
6998 035771 004 05 0 00 001176 ER4 AC+1,T
6999 035772 321 10 0 00 035764 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7000
7001 001177 T=T+1
7002 000400 XX=XX+XX
7003 IFE XX,<XX=1>
7004 777777 777377 ZZ=ZZ+ZZ+1
7005 IFE <ZZ-1>,<ZZ=-2>
7006 DFARP T,XX,0,0,0,ZZ&777,-1,-1,-1,777,-1,377777,-1^
7007 DMOVE AC,[XX,,0
7008 035773 120 04 0 00 044160 0,,0]
7009 DFAD AC,[ZZ&777,,-1
7010 035774 110 04 0 00 044201 -1,,-1]
7011 035775 312 04 0 00 043627 CAME AC,[777,,-1]
7012 035776 003 04 0 00 001177 ER3 AC,T
7013 035777 312 05 0 00 043631 CAME AC+1,[377777,,-1]
7014 036000 004 05 0 00 001177 ER4 AC+1,T
7015 036001 321 10 0 00 035773 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7016
7017 ;RIPPLE ONES (TO A FRACTION OF ALL ONES, ADD A RIPPLED ONE)
7018
7019 001200 T=1200
7020
7021 000000 XX=0
7022
7023 R1200: REPEAT ^D18,
7024 <T=T+1
7025 ZZ=XX
7026 XX=XX+XX
7027 IFE XX,<XX=1>
7028 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ
7029 >
7030 001201 T=T+1
7031 000000 ZZ=XX
7032 000000 XX=XX+XX
7033 000001 IFE XX,<XX=1>
7034 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
7035 DMOVE AC,[200777,,-1
7036 036002 120 04 0 00 044203 -1,,-1]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-3
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0152
7037 DFAD AC,[200000,,0
7038 036003 110 04 0 00 043624 0,,XX]
7039 036004 312 04 0 00 044205 CAME AC,[201400,,0]
7040 036005 003 04 0 00 001201 ER3 AC,T
7041 036006 312 05 0 00 043330 CAME AC+1,[0,,ZZ]
7042 036007 004 05 0 00 001201 ER4 AC+1,T
7043 036010 321 10 0 00 036002 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7044
7045 001202 T=T+1
7046 000001 ZZ=XX
7047 000002 XX=XX+XX
7048 IFE XX,<XX=1>
7049 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
7050 DMOVE AC,[200777,,-1
7051 036011 120 04 0 00 044203 -1,,-1]
7052 DFAD AC,[200000,,0
7053 036012 110 04 0 00 043621 0,,XX]
7054 036013 312 04 0 00 044205 CAME AC,[201400,,0]
7055 036014 003 04 0 00 001202 ER3 AC,T
7056 036015 312 05 0 00 043625 CAME AC+1,[0,,ZZ]
7057 036016 004 05 0 00 001202 ER4 AC+1,T
7058 036017 321 10 0 00 036011 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7059
7060 001203 T=T+1
7061 000002 ZZ=XX
7062 000004 XX=XX+XX
7063 IFE XX,<XX=1>
7064 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
7065 DMOVE AC,[200777,,-1
7066 036020 120 04 0 00 044203 -1,,-1]
7067 DFAD AC,[200000,,0
7068 036021 110 04 0 00 043616 0,,XX]
7069 036022 312 04 0 00 044205 CAME AC,[201400,,0]
7070 036023 003 04 0 00 001203 ER3 AC,T
7071 036024 312 05 0 00 043622 CAME AC+1,[0,,ZZ]
7072 036025 004 05 0 00 001203 ER4 AC+1,T
7073 036026 321 10 0 00 036020 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7074
7075 001204 T=T+1
7076 000004 ZZ=XX
7077 000010 XX=XX+XX
7078 IFE XX,<XX=1>
7079 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
7080 DMOVE AC,[200777,,-1
7081 036027 120 04 0 00 044203 -1,,-1]
7082 DFAD AC,[200000,,0
7083 036030 110 04 0 00 043613 0,,XX]
7084 036031 312 04 0 00 044205 CAME AC,[201400,,0]
7085 036032 003 04 0 00 001204 ER3 AC,T
7086 036033 312 05 0 00 043617 CAME AC+1,[0,,ZZ]
7087 036034 004 05 0 00 001204 ER4 AC+1,T
7088 036035 321 10 0 00 036027 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7089
7090 001205 T=T+1
7091 000010 ZZ=XX
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-4
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0153
7092 000020 XX=XX+XX
7093 IFE XX,<XX=1>
7094 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
7095 DMOVE AC,[200777,,-1
7096 036036 120 04 0 00 044203 -1,,-1]
7097 DFAD AC,[200000,,0
7098 036037 110 04 0 00 043610 0,,XX]
7099 036040 312 04 0 00 044205 CAME AC,[201400,,0]
7100 036041 003 04 0 00 001205 ER3 AC,T
7101 036042 312 05 0 00 043614 CAME AC+1,[0,,ZZ]
7102 036043 004 05 0 00 001205 ER4 AC+1,T
7103 036044 321 10 0 00 036036 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7104
7105 001206 T=T+1
7106 000020 ZZ=XX
7107 000040 XX=XX+XX
7108 IFE XX,<XX=1>
7109 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
7110 DMOVE AC,[200777,,-1
7111 036045 120 04 0 00 044203 -1,,-1]
7112 DFAD AC,[200000,,0
7113 036046 110 04 0 00 043605 0,,XX]
7114 036047 312 04 0 00 044205 CAME AC,[201400,,0]
7115 036050 003 04 0 00 001206 ER3 AC,T
7116 036051 312 05 0 00 043611 CAME AC+1,[0,,ZZ]
7117 036052 004 05 0 00 001206 ER4 AC+1,T
7118 036053 321 10 0 00 036045 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7119
7120 001207 T=T+1
7121 000040 ZZ=XX
7122 000100 XX=XX+XX
7123 IFE XX,<XX=1>
7124 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
7125 DMOVE AC,[200777,,-1
7126 036054 120 04 0 00 044203 -1,,-1]
7127 DFAD AC,[200000,,0
7128 036055 110 04 0 00 043602 0,,XX]
7129 036056 312 04 0 00 044205 CAME AC,[201400,,0]
7130 036057 003 04 0 00 001207 ER3 AC,T
7131 036060 312 05 0 00 043606 CAME AC+1,[0,,ZZ]
7132 036061 004 05 0 00 001207 ER4 AC+1,T
7133 036062 321 10 0 00 036054 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7134
7135 001210 T=T+1
7136 000100 ZZ=XX
7137 000200 XX=XX+XX
7138 IFE XX,<XX=1>
7139 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
7140 DMOVE AC,[200777,,-1
7141 036063 120 04 0 00 044203 -1,,-1]
7142 DFAD AC,[200000,,0
7143 036064 110 04 0 00 043577 0,,XX]
7144 036065 312 04 0 00 044205 CAME AC,[201400,,0]
7145 036066 003 04 0 00 001210 ER3 AC,T
7146 036067 312 05 0 00 043603 CAME AC+1,[0,,ZZ]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-5
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0154
7147 036070 004 05 0 00 001210 ER4 AC+1,T
7148 036071 321 10 0 00 036063 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7149
7150 001211 T=T+1
7151 000200 ZZ=XX
7152 000400 XX=XX+XX
7153 IFE XX,<XX=1>
7154 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
7155 DMOVE AC,[200777,,-1
7156 036072 120 04 0 00 044203 -1,,-1]
7157 DFAD AC,[200000,,0
7158 036073 110 04 0 00 043574 0,,XX]
7159 036074 312 04 0 00 044205 CAME AC,[201400,,0]
7160 036075 003 04 0 00 001211 ER3 AC,T
7161 036076 312 05 0 00 043600 CAME AC+1,[0,,ZZ]
7162 036077 004 05 0 00 001211 ER4 AC+1,T
7163 036100 321 10 0 00 036072 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7164
7165 001212 T=T+1
7166 000400 ZZ=XX
7167 001000 XX=XX+XX
7168 IFE XX,<XX=1>
7169 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
7170 DMOVE AC,[200777,,-1
7171 036101 120 04 0 00 044203 -1,,-1]
7172 DFAD AC,[200000,,0
7173 036102 110 04 0 00 043571 0,,XX]
7174 036103 312 04 0 00 044205 CAME AC,[201400,,0]
7175 036104 003 04 0 00 001212 ER3 AC,T
7176 036105 312 05 0 00 043575 CAME AC+1,[0,,ZZ]
7177 036106 004 05 0 00 001212 ER4 AC+1,T
7178 036107 321 10 0 00 036101 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7179
7180 001213 T=T+1
7181 001000 ZZ=XX
7182 002000 XX=XX+XX
7183 IFE XX,<XX=1>
7184 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
7185 DMOVE AC,[200777,,-1
7186 036110 120 04 0 00 044203 -1,,-1]
7187 DFAD AC,[200000,,0
7188 036111 110 04 0 00 043566 0,,XX]
7189 036112 312 04 0 00 044205 CAME AC,[201400,,0]
7190 036113 003 04 0 00 001213 ER3 AC,T
7191 036114 312 05 0 00 043572 CAME AC+1,[0,,ZZ]
7192 036115 004 05 0 00 001213 ER4 AC+1,T
7193 036116 321 10 0 00 036110 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7194
7195 001214 T=T+1
7196 002000 ZZ=XX
7197 004000 XX=XX+XX
7198 IFE XX,<XX=1>
7199 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
7200 DMOVE AC,[200777,,-1
7201 036117 120 04 0 00 044203 -1,,-1]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-6
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0155
7202 DFAD AC,[200000,,0
7203 036120 110 04 0 00 043563 0,,XX]
7204 036121 312 04 0 00 044205 CAME AC,[201400,,0]
7205 036122 003 04 0 00 001214 ER3 AC,T
7206 036123 312 05 0 00 043567 CAME AC+1,[0,,ZZ]
7207 036124 004 05 0 00 001214 ER4 AC+1,T
7208 036125 321 10 0 00 036117 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7209
7210 001215 T=T+1
7211 004000 ZZ=XX
7212 010000 XX=XX+XX
7213 IFE XX,<XX=1>
7214 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
7215 DMOVE AC,[200777,,-1
7216 036126 120 04 0 00 044203 -1,,-1]
7217 DFAD AC,[200000,,0
7218 036127 110 04 0 00 043560 0,,XX]
7219 036130 312 04 0 00 044205 CAME AC,[201400,,0]
7220 036131 003 04 0 00 001215 ER3 AC,T
7221 036132 312 05 0 00 043564 CAME AC+1,[0,,ZZ]
7222 036133 004 05 0 00 001215 ER4 AC+1,T
7223 036134 321 10 0 00 036126 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7224
7225 001216 T=T+1
7226 010000 ZZ=XX
7227 020000 XX=XX+XX
7228 IFE XX,<XX=1>
7229 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
7230 DMOVE AC,[200777,,-1
7231 036135 120 04 0 00 044203 -1,,-1]
7232 DFAD AC,[200000,,0
7233 036136 110 04 0 00 043555 0,,XX]
7234 036137 312 04 0 00 044205 CAME AC,[201400,,0]
7235 036140 003 04 0 00 001216 ER3 AC,T
7236 036141 312 05 0 00 043561 CAME AC+1,[0,,ZZ]
7237 036142 004 05 0 00 001216 ER4 AC+1,T
7238 036143 321 10 0 00 036135 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7239
7240 001217 T=T+1
7241 020000 ZZ=XX
7242 040000 XX=XX+XX
7243 IFE XX,<XX=1>
7244 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
7245 DMOVE AC,[200777,,-1
7246 036144 120 04 0 00 044203 -1,,-1]
7247 DFAD AC,[200000,,0
7248 036145 110 04 0 00 043552 0,,XX]
7249 036146 312 04 0 00 044205 CAME AC,[201400,,0]
7250 036147 003 04 0 00 001217 ER3 AC,T
7251 036150 312 05 0 00 043556 CAME AC+1,[0,,ZZ]
7252 036151 004 05 0 00 001217 ER4 AC+1,T
7253 036152 321 10 0 00 036144 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7254
7255 001220 T=T+1
7256 040000 ZZ=XX
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-7
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0156
7257 100000 XX=XX+XX
7258 IFE XX,<XX=1>
7259 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
7260 DMOVE AC,[200777,,-1
7261 036153 120 04 0 00 044203 -1,,-1]
7262 DFAD AC,[200000,,0
7263 036154 110 04 0 00 043547 0,,XX]
7264 036155 312 04 0 00 044205 CAME AC,[201400,,0]
7265 036156 003 04 0 00 001220 ER3 AC,T
7266 036157 312 05 0 00 043553 CAME AC+1,[0,,ZZ]
7267 036160 004 05 0 00 001220 ER4 AC+1,T
7268 036161 321 10 0 00 036153 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7269
7270 001221 T=T+1
7271 100000 ZZ=XX
7272 200000 XX=XX+XX
7273 IFE XX,<XX=1>
7274 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
7275 DMOVE AC,[200777,,-1
7276 036162 120 04 0 00 044203 -1,,-1]
7277 DFAD AC,[200000,,0
7278 036163 110 04 0 00 043544 0,,XX]
7279 036164 312 04 0 00 044205 CAME AC,[201400,,0]
7280 036165 003 04 0 00 001221 ER3 AC,T
7281 036166 312 05 0 00 043550 CAME AC+1,[0,,ZZ]
7282 036167 004 05 0 00 001221 ER4 AC+1,T
7283 036170 321 10 0 00 036162 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7284
7285 001222 T=T+1
7286 200000 ZZ=XX
7287 400000 XX=XX+XX
7288 IFE XX,<XX=1>
7289 DFARP T,200777,-1,-1,-1,200000,0,0,XX,201400,0,0,ZZ^
7290 DMOVE AC,[200777,,-1
7291 036171 120 04 0 00 044203 -1,,-1]
7292 DFAD AC,[200000,,0
7293 036172 110 04 0 00 043541 0,,XX]
7294 036173 312 04 0 00 044205 CAME AC,[201400,,0]
7295 036174 003 04 0 00 001222 ER3 AC,T
7296 036175 312 05 0 00 043545 CAME AC+1,[0,,ZZ]
7297 036176 004 05 0 00 001222 ER4 AC+1,T
7298 036177 321 10 0 00 036171 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7299
7300
7301 400000 ZZ=XX
7302 000001 XX=1
7303
7304 001223 T=T+1
7305 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,0,ZZ^
7306 DMOVE AC,[200777,,-1
7307 036200 120 04 0 00 044203 -1,,-1]
7308 DFAD AC,[200000,,0
7309 036201 110 04 0 00 043536 XX,,0]
7310 036202 312 04 0 00 044205 CAME AC,[201400,,0]
7311 036203 003 04 0 00 001223 ER3 AC,T
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-8
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0157
7312 036204 312 05 0 00 043542 CAME AC+1,[0,,ZZ]
7313 036205 004 05 0 00 001223 ER4 AC+1,T
7314 036206 321 10 0 00 036200 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7315
7316
7317 REPEAT ^D16,
7318 <T=T+1
7319 ZZ=XX
7320 XX=XX+XX
7321 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0
7322 >
7323 001224 T=T+1
7324 000001 ZZ=XX
7325 000002 XX=XX+XX
7326 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
7327 DMOVE AC,[200777,,-1
7328 036207 120 04 0 00 044203 -1,,-1]
7329 DFAD AC,[200000,,0
7330 036210 110 04 0 00 043533 XX,,0]
7331 036211 312 04 0 00 044205 CAME AC,[201400,,0]
7332 036212 003 04 0 00 001224 ER3 AC,T
7333 036213 312 05 0 00 043537 CAME AC+1,[ZZ,,0]
7334 036214 004 05 0 00 001224 ER4 AC+1,T
7335 036215 321 10 0 00 036207 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7336
7337 001225 T=T+1
7338 000002 ZZ=XX
7339 000004 XX=XX+XX
7340 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
7341 DMOVE AC,[200777,,-1
7342 036216 120 04 0 00 044203 -1,,-1]
7343 DFAD AC,[200000,,0
7344 036217 110 04 0 00 043530 XX,,0]
7345 036220 312 04 0 00 044205 CAME AC,[201400,,0]
7346 036221 003 04 0 00 001225 ER3 AC,T
7347 036222 312 05 0 00 043534 CAME AC+1,[ZZ,,0]
7348 036223 004 05 0 00 001225 ER4 AC+1,T
7349 036224 321 10 0 00 036216 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7350
7351 001226 T=T+1
7352 000004 ZZ=XX
7353 000010 XX=XX+XX
7354 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
7355 DMOVE AC,[200777,,-1
7356 036225 120 04 0 00 044203 -1,,-1]
7357 DFAD AC,[200000,,0
7358 036226 110 04 0 00 043525 XX,,0]
7359 036227 312 04 0 00 044205 CAME AC,[201400,,0]
7360 036230 003 04 0 00 001226 ER3 AC,T
7361 036231 312 05 0 00 043531 CAME AC+1,[ZZ,,0]
7362 036232 004 05 0 00 001226 ER4 AC+1,T
7363 036233 321 10 0 00 036225 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7364
7365 001227 T=T+1
7366 000010 ZZ=XX
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-9
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0158
7367 000020 XX=XX+XX
7368 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
7369 DMOVE AC,[200777,,-1
7370 036234 120 04 0 00 044203 -1,,-1]
7371 DFAD AC,[200000,,0
7372 036235 110 04 0 00 043522 XX,,0]
7373 036236 312 04 0 00 044205 CAME AC,[201400,,0]
7374 036237 003 04 0 00 001227 ER3 AC,T
7375 036240 312 05 0 00 043526 CAME AC+1,[ZZ,,0]
7376 036241 004 05 0 00 001227 ER4 AC+1,T
7377 036242 321 10 0 00 036234 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7378
7379 001230 T=T+1
7380 000020 ZZ=XX
7381 000040 XX=XX+XX
7382 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
7383 DMOVE AC,[200777,,-1
7384 036243 120 04 0 00 044203 -1,,-1]
7385 DFAD AC,[200000,,0
7386 036244 110 04 0 00 043517 XX,,0]
7387 036245 312 04 0 00 044205 CAME AC,[201400,,0]
7388 036246 003 04 0 00 001230 ER3 AC,T
7389 036247 312 05 0 00 043523 CAME AC+1,[ZZ,,0]
7390 036250 004 05 0 00 001230 ER4 AC+1,T
7391 036251 321 10 0 00 036243 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7392
7393 001231 T=T+1
7394 000040 ZZ=XX
7395 000100 XX=XX+XX
7396 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
7397 DMOVE AC,[200777,,-1
7398 036252 120 04 0 00 044203 -1,,-1]
7399 DFAD AC,[200000,,0
7400 036253 110 04 0 00 043514 XX,,0]
7401 036254 312 04 0 00 044205 CAME AC,[201400,,0]
7402 036255 003 04 0 00 001231 ER3 AC,T
7403 036256 312 05 0 00 043520 CAME AC+1,[ZZ,,0]
7404 036257 004 05 0 00 001231 ER4 AC+1,T
7405 036260 321 10 0 00 036252 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7406
7407 001232 T=T+1
7408 000100 ZZ=XX
7409 000200 XX=XX+XX
7410 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
7411 DMOVE AC,[200777,,-1
7412 036261 120 04 0 00 044203 -1,,-1]
7413 DFAD AC,[200000,,0
7414 036262 110 04 0 00 043511 XX,,0]
7415 036263 312 04 0 00 044205 CAME AC,[201400,,0]
7416 036264 003 04 0 00 001232 ER3 AC,T
7417 036265 312 05 0 00 043515 CAME AC+1,[ZZ,,0]
7418 036266 004 05 0 00 001232 ER4 AC+1,T
7419 036267 321 10 0 00 036261 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7420
7421 001233 T=T+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-10
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0159
7422 000200 ZZ=XX
7423 000400 XX=XX+XX
7424 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
7425 DMOVE AC,[200777,,-1
7426 036270 120 04 0 00 044203 -1,,-1]
7427 DFAD AC,[200000,,0
7428 036271 110 04 0 00 043506 XX,,0]
7429 036272 312 04 0 00 044205 CAME AC,[201400,,0]
7430 036273 003 04 0 00 001233 ER3 AC,T
7431 036274 312 05 0 00 043512 CAME AC+1,[ZZ,,0]
7432 036275 004 05 0 00 001233 ER4 AC+1,T
7433 036276 321 10 0 00 036270 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7434
7435 001234 T=T+1
7436 000400 ZZ=XX
7437 001000 XX=XX+XX
7438 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
7439 DMOVE AC,[200777,,-1
7440 036277 120 04 0 00 044203 -1,,-1]
7441 DFAD AC,[200000,,0
7442 036300 110 04 0 00 043503 XX,,0]
7443 036301 312 04 0 00 044205 CAME AC,[201400,,0]
7444 036302 003 04 0 00 001234 ER3 AC,T
7445 036303 312 05 0 00 043507 CAME AC+1,[ZZ,,0]
7446 036304 004 05 0 00 001234 ER4 AC+1,T
7447 036305 321 10 0 00 036277 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7448
7449 001235 T=T+1
7450 001000 ZZ=XX
7451 002000 XX=XX+XX
7452 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
7453 DMOVE AC,[200777,,-1
7454 036306 120 04 0 00 044203 -1,,-1]
7455 DFAD AC,[200000,,0
7456 036307 110 04 0 00 043500 XX,,0]
7457 036310 312 04 0 00 044205 CAME AC,[201400,,0]
7458 036311 003 04 0 00 001235 ER3 AC,T
7459 036312 312 05 0 00 043504 CAME AC+1,[ZZ,,0]
7460 036313 004 05 0 00 001235 ER4 AC+1,T
7461 036314 321 10 0 00 036306 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7462
7463 001236 T=T+1
7464 002000 ZZ=XX
7465 004000 XX=XX+XX
7466 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
7467 DMOVE AC,[200777,,-1
7468 036315 120 04 0 00 044203 -1,,-1]
7469 DFAD AC,[200000,,0
7470 036316 110 04 0 00 043475 XX,,0]
7471 036317 312 04 0 00 044205 CAME AC,[201400,,0]
7472 036320 003 04 0 00 001236 ER3 AC,T
7473 036321 312 05 0 00 043501 CAME AC+1,[ZZ,,0]
7474 036322 004 05 0 00 001236 ER4 AC+1,T
7475 036323 321 10 0 00 036315 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7476
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-11
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0160
7477 001237 T=T+1
7478 004000 ZZ=XX
7479 010000 XX=XX+XX
7480 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
7481 DMOVE AC,[200777,,-1
7482 036324 120 04 0 00 044203 -1,,-1]
7483 DFAD AC,[200000,,0
7484 036325 110 04 0 00 043472 XX,,0]
7485 036326 312 04 0 00 044205 CAME AC,[201400,,0]
7486 036327 003 04 0 00 001237 ER3 AC,T
7487 036330 312 05 0 00 043476 CAME AC+1,[ZZ,,0]
7488 036331 004 05 0 00 001237 ER4 AC+1,T
7489 036332 321 10 0 00 036324 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7490
7491 001240 T=T+1
7492 010000 ZZ=XX
7493 020000 XX=XX+XX
7494 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
7495 DMOVE AC,[200777,,-1
7496 036333 120 04 0 00 044203 -1,,-1]
7497 DFAD AC,[200000,,0
7498 036334 110 04 0 00 043467 XX,,0]
7499 036335 312 04 0 00 044205 CAME AC,[201400,,0]
7500 036336 003 04 0 00 001240 ER3 AC,T
7501 036337 312 05 0 00 043473 CAME AC+1,[ZZ,,0]
7502 036340 004 05 0 00 001240 ER4 AC+1,T
7503 036341 321 10 0 00 036333 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7504
7505 001241 T=T+1
7506 020000 ZZ=XX
7507 040000 XX=XX+XX
7508 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
7509 DMOVE AC,[200777,,-1
7510 036342 120 04 0 00 044203 -1,,-1]
7511 DFAD AC,[200000,,0
7512 036343 110 04 0 00 043464 XX,,0]
7513 036344 312 04 0 00 044205 CAME AC,[201400,,0]
7514 036345 003 04 0 00 001241 ER3 AC,T
7515 036346 312 05 0 00 043470 CAME AC+1,[ZZ,,0]
7516 036347 004 05 0 00 001241 ER4 AC+1,T
7517 036350 321 10 0 00 036342 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7518
7519 001242 T=T+1
7520 040000 ZZ=XX
7521 100000 XX=XX+XX
7522 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
7523 DMOVE AC,[200777,,-1
7524 036351 120 04 0 00 044203 -1,,-1]
7525 DFAD AC,[200000,,0
7526 036352 110 04 0 00 043461 XX,,0]
7527 036353 312 04 0 00 044205 CAME AC,[201400,,0]
7528 036354 003 04 0 00 001242 ER3 AC,T
7529 036355 312 05 0 00 043465 CAME AC+1,[ZZ,,0]
7530 036356 004 05 0 00 001242 ER4 AC+1,T
7531 036357 321 10 0 00 036351 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-12
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0161
7532
7533 001243 T=T+1
7534 100000 ZZ=XX
7535 200000 XX=XX+XX
7536 DFARP T,200777,-1,-1,-1,200000,0,XX,0,201400,0,ZZ,0^
7537 DMOVE AC,[200777,,-1
7538 036360 120 04 0 00 044203 -1,,-1]
7539 DFAD AC,[200000,,0
7540 036361 110 04 0 00 043456 XX,,0]
7541 036362 312 04 0 00 044205 CAME AC,[201400,,0]
7542 036363 003 04 0 00 001243 ER3 AC,T
7543 036364 312 05 0 00 043462 CAME AC+1,[ZZ,,0]
7544 036365 004 05 0 00 001243 ER4 AC+1,T
7545 036366 321 10 0 00 036360 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7546
7547
7548 200000 ZZ=XX
7549 400000 XX=XX+XX
7550
7551 001244 T=T+1
7552 DFARP T,200777,-1,-1,-1,200000,0,XX,0,200777,-1,377777,-1^
7553 DMOVE AC,[200777,,-1
7554 036367 120 04 0 00 044203 -1,,-1]
7555 DFAD AC,[200000,,0
7556 036370 110 04 0 00 043454 XX,,0]
7557 036371 312 04 0 00 044203 CAME AC,[200777,,-1]
7558 036372 003 04 0 00 001244 ER3 AC,T
7559 036373 312 05 0 00 043631 CAME AC+1,[377777,,-1]
7560 036374 004 05 0 00 001244 ER4 AC+1,T
7561 036375 321 10 0 00 036367 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7562
7563 001245 T=T+1
7564 000001 XX=1
7565 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,0,ZZ,0^
7566 DMOVE AC,[200777,,-1
7567 036376 120 04 0 00 044203 -1,,-1]
7568 DFAD AC,[200000,,XX
7569 036377 110 04 0 00 043451 0,,0]
7570 036400 312 04 0 00 044205 CAME AC,[201400,,0]
7571 036401 003 04 0 00 001245 ER3 AC,T
7572 036402 312 05 0 00 043332 CAME AC+1,[ZZ,,0]
7573 036403 004 05 0 00 001245 ER4 AC+1,T
7574 036404 321 10 0 00 036376 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7575
7576 REPEAT ^D17,
7577 <T=T+1
7578 ZZ=XX
7579 XX=XX+XX
7580 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0
7581 >
7582
7583 001246 T=T+1
7584 000001 ZZ=XX
7585 000002 XX=XX+XX
7586 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-13
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0162
7587 DMOVE AC,[200777,,-1
7588 036405 120 04 0 00 044203 -1,,-1]
7589 DFAD AC,[200000,,XX
7590 036406 110 04 0 00 043446 0,,0]
7591 036407 312 04 0 00 044206 CAME AC,[201400,,ZZ]
7592 036410 003 04 0 00 001246 ER3 AC,T
7593 036411 312 05 0 00 043330 CAME AC+1,[0,,0]
7594 036412 004 05 0 00 001246 ER4 AC+1,T
7595 036413 321 10 0 00 036405 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7596
7597 001247 T=T+1
7598 000002 ZZ=XX
7599 000004 XX=XX+XX
7600 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
7601 DMOVE AC,[200777,,-1
7602 036414 120 04 0 00 044203 -1,,-1]
7603 DFAD AC,[200000,,XX
7604 036415 110 04 0 00 043443 0,,0]
7605 036416 312 04 0 00 044207 CAME AC,[201400,,ZZ]
7606 036417 003 04 0 00 001247 ER3 AC,T
7607 036420 312 05 0 00 043330 CAME AC+1,[0,,0]
7608 036421 004 05 0 00 001247 ER4 AC+1,T
7609 036422 321 10 0 00 036414 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7610
7611 001250 T=T+1
7612 000004 ZZ=XX
7613 000010 XX=XX+XX
7614 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
7615 DMOVE AC,[200777,,-1
7616 036423 120 04 0 00 044203 -1,,-1]
7617 DFAD AC,[200000,,XX
7618 036424 110 04 0 00 043440 0,,0]
7619 036425 312 04 0 00 044210 CAME AC,[201400,,ZZ]
7620 036426 003 04 0 00 001250 ER3 AC,T
7621 036427 312 05 0 00 043330 CAME AC+1,[0,,0]
7622 036430 004 05 0 00 001250 ER4 AC+1,T
7623 036431 321 10 0 00 036423 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7624
7625 001251 T=T+1
7626 000010 ZZ=XX
7627 000020 XX=XX+XX
7628 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
7629 DMOVE AC,[200777,,-1
7630 036432 120 04 0 00 044203 -1,,-1]
7631 DFAD AC,[200000,,XX
7632 036433 110 04 0 00 043435 0,,0]
7633 036434 312 04 0 00 044211 CAME AC,[201400,,ZZ]
7634 036435 003 04 0 00 001251 ER3 AC,T
7635 036436 312 05 0 00 043330 CAME AC+1,[0,,0]
7636 036437 004 05 0 00 001251 ER4 AC+1,T
7637 036440 321 10 0 00 036432 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7638
7639 001252 T=T+1
7640 000020 ZZ=XX
7641 000040 XX=XX+XX
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-14
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0163
7642 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
7643 DMOVE AC,[200777,,-1
7644 036441 120 04 0 00 044203 -1,,-1]
7645 DFAD AC,[200000,,XX
7646 036442 110 04 0 00 043432 0,,0]
7647 036443 312 04 0 00 044212 CAME AC,[201400,,ZZ]
7648 036444 003 04 0 00 001252 ER3 AC,T
7649 036445 312 05 0 00 043330 CAME AC+1,[0,,0]
7650 036446 004 05 0 00 001252 ER4 AC+1,T
7651 036447 321 10 0 00 036441 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7652
7653 001253 T=T+1
7654 000040 ZZ=XX
7655 000100 XX=XX+XX
7656 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
7657 DMOVE AC,[200777,,-1
7658 036450 120 04 0 00 044203 -1,,-1]
7659 DFAD AC,[200000,,XX
7660 036451 110 04 0 00 043427 0,,0]
7661 036452 312 04 0 00 044213 CAME AC,[201400,,ZZ]
7662 036453 003 04 0 00 001253 ER3 AC,T
7663 036454 312 05 0 00 043330 CAME AC+1,[0,,0]
7664 036455 004 05 0 00 001253 ER4 AC+1,T
7665 036456 321 10 0 00 036450 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7666
7667 001254 T=T+1
7668 000100 ZZ=XX
7669 000200 XX=XX+XX
7670 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
7671 DMOVE AC,[200777,,-1
7672 036457 120 04 0 00 044203 -1,,-1]
7673 DFAD AC,[200000,,XX
7674 036460 110 04 0 00 043424 0,,0]
7675 036461 312 04 0 00 044214 CAME AC,[201400,,ZZ]
7676 036462 003 04 0 00 001254 ER3 AC,T
7677 036463 312 05 0 00 043330 CAME AC+1,[0,,0]
7678 036464 004 05 0 00 001254 ER4 AC+1,T
7679 036465 321 10 0 00 036457 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7680
7681 001255 T=T+1
7682 000200 ZZ=XX
7683 000400 XX=XX+XX
7684 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
7685 DMOVE AC,[200777,,-1
7686 036466 120 04 0 00 044203 -1,,-1]
7687 DFAD AC,[200000,,XX
7688 036467 110 04 0 00 043421 0,,0]
7689 036470 312 04 0 00 044215 CAME AC,[201400,,ZZ]
7690 036471 003 04 0 00 001255 ER3 AC,T
7691 036472 312 05 0 00 043330 CAME AC+1,[0,,0]
7692 036473 004 05 0 00 001255 ER4 AC+1,T
7693 036474 321 10 0 00 036466 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7694
7695 001256 T=T+1
7696 000400 ZZ=XX
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-15
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0164
7697 001000 XX=XX+XX
7698 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
7699 DMOVE AC,[200777,,-1
7700 036475 120 04 0 00 044203 -1,,-1]
7701 DFAD AC,[200000,,XX
7702 036476 110 04 0 00 043416 0,,0]
7703 036477 312 04 0 00 044216 CAME AC,[201400,,ZZ]
7704 036500 003 04 0 00 001256 ER3 AC,T
7705 036501 312 05 0 00 043330 CAME AC+1,[0,,0]
7706 036502 004 05 0 00 001256 ER4 AC+1,T
7707 036503 321 10 0 00 036475 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7708
7709 001257 T=T+1
7710 001000 ZZ=XX
7711 002000 XX=XX+XX
7712 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
7713 DMOVE AC,[200777,,-1
7714 036504 120 04 0 00 044203 -1,,-1]
7715 DFAD AC,[200000,,XX
7716 036505 110 04 0 00 043413 0,,0]
7717 036506 312 04 0 00 044217 CAME AC,[201400,,ZZ]
7718 036507 003 04 0 00 001257 ER3 AC,T
7719 036510 312 05 0 00 043330 CAME AC+1,[0,,0]
7720 036511 004 05 0 00 001257 ER4 AC+1,T
7721 036512 321 10 0 00 036504 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7722
7723 001260 T=T+1
7724 002000 ZZ=XX
7725 004000 XX=XX+XX
7726 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
7727 DMOVE AC,[200777,,-1
7728 036513 120 04 0 00 044203 -1,,-1]
7729 DFAD AC,[200000,,XX
7730 036514 110 04 0 00 043410 0,,0]
7731 036515 312 04 0 00 044220 CAME AC,[201400,,ZZ]
7732 036516 003 04 0 00 001260 ER3 AC,T
7733 036517 312 05 0 00 043330 CAME AC+1,[0,,0]
7734 036520 004 05 0 00 001260 ER4 AC+1,T
7735 036521 321 10 0 00 036513 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7736
7737 001261 T=T+1
7738 004000 ZZ=XX
7739 010000 XX=XX+XX
7740 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
7741 DMOVE AC,[200777,,-1
7742 036522 120 04 0 00 044203 -1,,-1]
7743 DFAD AC,[200000,,XX
7744 036523 110 04 0 00 043405 0,,0]
7745 036524 312 04 0 00 044221 CAME AC,[201400,,ZZ]
7746 036525 003 04 0 00 001261 ER3 AC,T
7747 036526 312 05 0 00 043330 CAME AC+1,[0,,0]
7748 036527 004 05 0 00 001261 ER4 AC+1,T
7749 036530 321 10 0 00 036522 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7750
7751 001262 T=T+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-16
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0165
7752 010000 ZZ=XX
7753 020000 XX=XX+XX
7754 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
7755 DMOVE AC,[200777,,-1
7756 036531 120 04 0 00 044203 -1,,-1]
7757 DFAD AC,[200000,,XX
7758 036532 110 04 0 00 043402 0,,0]
7759 036533 312 04 0 00 044222 CAME AC,[201400,,ZZ]
7760 036534 003 04 0 00 001262 ER3 AC,T
7761 036535 312 05 0 00 043330 CAME AC+1,[0,,0]
7762 036536 004 05 0 00 001262 ER4 AC+1,T
7763 036537 321 10 0 00 036531 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7764
7765 001263 T=T+1
7766 020000 ZZ=XX
7767 040000 XX=XX+XX
7768 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
7769 DMOVE AC,[200777,,-1
7770 036540 120 04 0 00 044203 -1,,-1]
7771 DFAD AC,[200000,,XX
7772 036541 110 04 0 00 043377 0,,0]
7773 036542 312 04 0 00 044223 CAME AC,[201400,,ZZ]
7774 036543 003 04 0 00 001263 ER3 AC,T
7775 036544 312 05 0 00 043330 CAME AC+1,[0,,0]
7776 036545 004 05 0 00 001263 ER4 AC+1,T
7777 036546 321 10 0 00 036540 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7778
7779 001264 T=T+1
7780 040000 ZZ=XX
7781 100000 XX=XX+XX
7782 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
7783 DMOVE AC,[200777,,-1
7784 036547 120 04 0 00 044203 -1,,-1]
7785 DFAD AC,[200000,,XX
7786 036550 110 04 0 00 043374 0,,0]
7787 036551 312 04 0 00 044224 CAME AC,[201400,,ZZ]
7788 036552 003 04 0 00 001264 ER3 AC,T
7789 036553 312 05 0 00 043330 CAME AC+1,[0,,0]
7790 036554 004 05 0 00 001264 ER4 AC+1,T
7791 036555 321 10 0 00 036547 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7792
7793 001265 T=T+1
7794 100000 ZZ=XX
7795 200000 XX=XX+XX
7796 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
7797 DMOVE AC,[200777,,-1
7798 036556 120 04 0 00 044203 -1,,-1]
7799 DFAD AC,[200000,,XX
7800 036557 110 04 0 00 043371 0,,0]
7801 036560 312 04 0 00 044225 CAME AC,[201400,,ZZ]
7802 036561 003 04 0 00 001265 ER3 AC,T
7803 036562 312 05 0 00 043330 CAME AC+1,[0,,0]
7804 036563 004 05 0 00 001265 ER4 AC+1,T
7805 036564 321 10 0 00 036556 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7806
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-17
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0166
7807 001266 T=T+1
7808 200000 ZZ=XX
7809 400000 XX=XX+XX
7810 DFARP T,200777,-1,-1,-1,200000,XX,0,0,201400,ZZ,0,0^
7811 DMOVE AC,[200777,,-1
7812 036565 120 04 0 00 044203 -1,,-1]
7813 DFAD AC,[200000,,XX
7814 036566 110 04 0 00 043366 0,,0]
7815 036567 312 04 0 00 044226 CAME AC,[201400,,ZZ]
7816 036570 003 04 0 00 001266 ER3 AC,T
7817 036571 312 05 0 00 043330 CAME AC+1,[0,,0]
7818 036572 004 05 0 00 001266 ER4 AC+1,T
7819 036573 321 10 0 00 036565 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7820
7821
7822
7823 001267 T=T+1
7824 400000 ZZ=XX
7825 000001 XX=1
7826 DFARP T,200777,-1,-1,-1,200000+XX,0,0,0,201400,ZZ,0,0^
7827 DMOVE AC,[200777,,-1
7828 036574 120 04 0 00 044203 -1,,-1]
7829 DFAD AC,[200000+XX,,0
7830 036575 110 04 0 00 043363 0,,0]
7831 036576 312 04 0 00 044227 CAME AC,[201400,,ZZ]
7832 036577 003 04 0 00 001267 ER3 AC,T
7833 036600 312 05 0 00 043330 CAME AC+1,[0,,0]
7834 036601 004 05 0 00 001267 ER4 AC+1,T
7835 036602 321 10 0 00 036574 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7836
7837 REPEAT ^D8,
7838 <T=T+1
7839 ZZ=XX
7840 XX=XX+XX
7841 DFARP T,200777,-1,-1,-1,200000+XX,0,0,0,201400+ZZ,0,0,0
7842 >
7843 001270 T=T+1
7844 000001 ZZ=XX
7845 000002 XX=XX+XX
7846 DFARP T,200777,-1,-1,-1,200000+XX,0,0,0,201400+ZZ,0,0,0^
7847 DMOVE AC,[200777,,-1
7848 036603 120 04 0 00 044203 -1,,-1]
7849 DFAD AC,[200000+XX,,0
7850 036604 110 04 0 00 043360 0,,0]
7851 036605 312 04 0 00 044230 CAME AC,[201400+ZZ,,0]
7852 036606 003 04 0 00 001270 ER3 AC,T
7853 036607 312 05 0 00 043330 CAME AC+1,[0,,0]
7854 036610 004 05 0 00 001270 ER4 AC+1,T
7855 036611 321 10 0 00 036603 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7856
7857 001271 T=T+1
7858 000002 ZZ=XX
7859 000004 XX=XX+XX
7860 DFARP T,200777,-1,-1,-1,200000+XX,0,0,0,201400+ZZ,0,0,0^
7861 DMOVE AC,[200777,,-1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-18
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0167
7862 036612 120 04 0 00 044203 -1,,-1]
7863 DFAD AC,[200000+XX,,0
7864 036613 110 04 0 00 043355 0,,0]
7865 036614 312 04 0 00 044231 CAME AC,[201400+ZZ,,0]
7866 036615 003 04 0 00 001271 ER3 AC,T
7867 036616 312 05 0 00 043330 CAME AC+1,[0,,0]
7868 036617 004 05 0 00 001271 ER4 AC+1,T
7869 036620 321 10 0 00 036612 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7870
7871 001272 T=T+1
7872 000004 ZZ=XX
7873 000010 XX=XX+XX
7874 DFARP T,200777,-1,-1,-1,200000+XX,0,0,0,201400+ZZ,0,0,0^
7875 DMOVE AC,[200777,,-1
7876 036621 120 04 0 00 044203 -1,,-1]
7877 DFAD AC,[200000+XX,,0
7878 036622 110 04 0 00 043352 0,,0]
7879 036623 312 04 0 00 044232 CAME AC,[201400+ZZ,,0]
7880 036624 003 04 0 00 001272 ER3 AC,T
7881 036625 312 05 0 00 043330 CAME AC+1,[0,,0]
7882 036626 004 05 0 00 001272 ER4 AC+1,T
7883 036627 321 10 0 00 036621 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7884
7885 001273 T=T+1
7886 000010 ZZ=XX
7887 000020 XX=XX+XX
7888 DFARP T,200777,-1,-1,-1,200000+XX,0,0,0,201400+ZZ,0,0,0^
7889 DMOVE AC,[200777,,-1
7890 036630 120 04 0 00 044203 -1,,-1]
7891 DFAD AC,[200000+XX,,0
7892 036631 110 04 0 00 043347 0,,0]
7893 036632 312 04 0 00 044233 CAME AC,[201400+ZZ,,0]
7894 036633 003 04 0 00 001273 ER3 AC,T
7895 036634 312 05 0 00 043330 CAME AC+1,[0,,0]
7896 036635 004 05 0 00 001273 ER4 AC+1,T
7897 036636 321 10 0 00 036630 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7898
7899 001274 T=T+1
7900 000020 ZZ=XX
7901 000040 XX=XX+XX
7902 DFARP T,200777,-1,-1,-1,200000+XX,0,0,0,201400+ZZ,0,0,0^
7903 DMOVE AC,[200777,,-1
7904 036637 120 04 0 00 044203 -1,,-1]
7905 DFAD AC,[200000+XX,,0
7906 036640 110 04 0 00 043344 0,,0]
7907 036641 312 04 0 00 044234 CAME AC,[201400+ZZ,,0]
7908 036642 003 04 0 00 001274 ER3 AC,T
7909 036643 312 05 0 00 043330 CAME AC+1,[0,,0]
7910 036644 004 05 0 00 001274 ER4 AC+1,T
7911 036645 321 10 0 00 036637 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7912
7913 001275 T=T+1
7914 000040 ZZ=XX
7915 000100 XX=XX+XX
7916 DFARP T,200777,-1,-1,-1,200000+XX,0,0,0,201400+ZZ,0,0,0^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8-19
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0168
7917 DMOVE AC,[200777,,-1
7918 036646 120 04 0 00 044203 -1,,-1]
7919 DFAD AC,[200000+XX,,0
7920 036647 110 04 0 00 043341 0,,0]
7921 036650 312 04 0 00 044235 CAME AC,[201400+ZZ,,0]
7922 036651 003 04 0 00 001275 ER3 AC,T
7923 036652 312 05 0 00 043330 CAME AC+1,[0,,0]
7924 036653 004 05 0 00 001275 ER4 AC+1,T
7925 036654 321 10 0 00 036646 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7926
7927 001276 T=T+1
7928 000100 ZZ=XX
7929 000200 XX=XX+XX
7930 DFARP T,200777,-1,-1,-1,200000+XX,0,0,0,201400+ZZ,0,0,0^
7931 DMOVE AC,[200777,,-1
7932 036655 120 04 0 00 044203 -1,,-1]
7933 DFAD AC,[200000+XX,,0
7934 036656 110 04 0 00 043336 0,,0]
7935 036657 312 04 0 00 044236 CAME AC,[201400+ZZ,,0]
7936 036660 003 04 0 00 001276 ER3 AC,T
7937 036661 312 05 0 00 043330 CAME AC+1,[0,,0]
7938 036662 004 05 0 00 001276 ER4 AC+1,T
7939 036663 321 10 0 00 036655 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7940
7941 001277 T=T+1
7942 000200 ZZ=XX
7943 000400 XX=XX+XX
7944 DFARP T,200777,-1,-1,-1,200000+XX,0,0,0,201400+ZZ,0,0,0^
7945 DMOVE AC,[200777,,-1
7946 036664 120 04 0 00 044203 -1,,-1]
7947 DFAD AC,[200000+XX,,0
7948 036665 110 04 0 00 043334 0,,0]
7949 036666 312 04 0 00 044237 CAME AC,[201400+ZZ,,0]
7950 036667 003 04 0 00 001277 ER3 AC,T
7951 036670 312 05 0 00 043330 CAME AC+1,[0,,0]
7952 036671 004 05 0 00 001277 ER4 AC+1,T
7953 036672 321 10 0 00 036664 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7954
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0169
7955 ;RIPPLE ONES (TO A RIPPLED ONE, ADD A FRACTION OF ALL ONES)
7956
7957 001300 T=1300
7958
7959 000000 XX=0
7960
7961 R1300: REPEAT ^D18,
7962 <T=T+1
7963 ZZ=XX
7964 XX=XX+XX
7965 IFE XX,<XX=1>
7966 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ
7967 >
7968 001301 T=T+1
7969 000000 ZZ=XX
7970 000000 XX=XX+XX
7971 000001 IFE XX,<XX=1>
7972 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
7973 DMOVE AC,[200000,,0
7974 036673 120 04 0 00 043624 0,,XX]
7975 DFAD AC,[200777,,-1
7976 036674 110 04 0 00 044203 -1,,-1]
7977 036675 312 04 0 00 044205 CAME AC,[201400,,0]
7978 036676 003 04 0 00 001301 ER3 AC,T
7979 036677 312 05 0 00 043330 CAME AC+1,[0,,ZZ]
7980 036700 004 05 0 00 001301 ER4 AC+1,T
7981 036701 321 10 0 00 036673 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7982
7983 001302 T=T+1
7984 000001 ZZ=XX
7985 000002 XX=XX+XX
7986 IFE XX,<XX=1>
7987 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
7988 DMOVE AC,[200000,,0
7989 036702 120 04 0 00 043621 0,,XX]
7990 DFAD AC,[200777,,-1
7991 036703 110 04 0 00 044203 -1,,-1]
7992 036704 312 04 0 00 044205 CAME AC,[201400,,0]
7993 036705 003 04 0 00 001302 ER3 AC,T
7994 036706 312 05 0 00 043625 CAME AC+1,[0,,ZZ]
7995 036707 004 05 0 00 001302 ER4 AC+1,T
7996 036710 321 10 0 00 036702 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
7997
7998 001303 T=T+1
7999 000002 ZZ=XX
8000 000004 XX=XX+XX
8001 IFE XX,<XX=1>
8002 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
8003 DMOVE AC,[200000,,0
8004 036711 120 04 0 00 043616 0,,XX]
8005 DFAD AC,[200777,,-1
8006 036712 110 04 0 00 044203 -1,,-1]
8007 036713 312 04 0 00 044205 CAME AC,[201400,,0]
8008 036714 003 04 0 00 001303 ER3 AC,T
8009 036715 312 05 0 00 043622 CAME AC+1,[0,,ZZ]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9-1
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0170
8010 036716 004 05 0 00 001303 ER4 AC+1,T
8011 036717 321 10 0 00 036711 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8012
8013 001304 T=T+1
8014 000004 ZZ=XX
8015 000010 XX=XX+XX
8016 IFE XX,<XX=1>
8017 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
8018 DMOVE AC,[200000,,0
8019 036720 120 04 0 00 043613 0,,XX]
8020 DFAD AC,[200777,,-1
8021 036721 110 04 0 00 044203 -1,,-1]
8022 036722 312 04 0 00 044205 CAME AC,[201400,,0]
8023 036723 003 04 0 00 001304 ER3 AC,T
8024 036724 312 05 0 00 043617 CAME AC+1,[0,,ZZ]
8025 036725 004 05 0 00 001304 ER4 AC+1,T
8026 036726 321 10 0 00 036720 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8027
8028 001305 T=T+1
8029 000010 ZZ=XX
8030 000020 XX=XX+XX
8031 IFE XX,<XX=1>
8032 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
8033 DMOVE AC,[200000,,0
8034 036727 120 04 0 00 043610 0,,XX]
8035 DFAD AC,[200777,,-1
8036 036730 110 04 0 00 044203 -1,,-1]
8037 036731 312 04 0 00 044205 CAME AC,[201400,,0]
8038 036732 003 04 0 00 001305 ER3 AC,T
8039 036733 312 05 0 00 043614 CAME AC+1,[0,,ZZ]
8040 036734 004 05 0 00 001305 ER4 AC+1,T
8041 036735 321 10 0 00 036727 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8042
8043 001306 T=T+1
8044 000020 ZZ=XX
8045 000040 XX=XX+XX
8046 IFE XX,<XX=1>
8047 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
8048 DMOVE AC,[200000,,0
8049 036736 120 04 0 00 043605 0,,XX]
8050 DFAD AC,[200777,,-1
8051 036737 110 04 0 00 044203 -1,,-1]
8052 036740 312 04 0 00 044205 CAME AC,[201400,,0]
8053 036741 003 04 0 00 001306 ER3 AC,T
8054 036742 312 05 0 00 043611 CAME AC+1,[0,,ZZ]
8055 036743 004 05 0 00 001306 ER4 AC+1,T
8056 036744 321 10 0 00 036736 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8057
8058 001307 T=T+1
8059 000040 ZZ=XX
8060 000100 XX=XX+XX
8061 IFE XX,<XX=1>
8062 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
8063 DMOVE AC,[200000,,0
8064 036745 120 04 0 00 043602 0,,XX]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9-2
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0171
8065 DFAD AC,[200777,,-1
8066 036746 110 04 0 00 044203 -1,,-1]
8067 036747 312 04 0 00 044205 CAME AC,[201400,,0]
8068 036750 003 04 0 00 001307 ER3 AC,T
8069 036751 312 05 0 00 043606 CAME AC+1,[0,,ZZ]
8070 036752 004 05 0 00 001307 ER4 AC+1,T
8071 036753 321 10 0 00 036745 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8072
8073 001310 T=T+1
8074 000100 ZZ=XX
8075 000200 XX=XX+XX
8076 IFE XX,<XX=1>
8077 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
8078 DMOVE AC,[200000,,0
8079 036754 120 04 0 00 043577 0,,XX]
8080 DFAD AC,[200777,,-1
8081 036755 110 04 0 00 044203 -1,,-1]
8082 036756 312 04 0 00 044205 CAME AC,[201400,,0]
8083 036757 003 04 0 00 001310 ER3 AC,T
8084 036760 312 05 0 00 043603 CAME AC+1,[0,,ZZ]
8085 036761 004 05 0 00 001310 ER4 AC+1,T
8086 036762 321 10 0 00 036754 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8087
8088 001311 T=T+1
8089 000200 ZZ=XX
8090 000400 XX=XX+XX
8091 IFE XX,<XX=1>
8092 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
8093 DMOVE AC,[200000,,0
8094 036763 120 04 0 00 043574 0,,XX]
8095 DFAD AC,[200777,,-1
8096 036764 110 04 0 00 044203 -1,,-1]
8097 036765 312 04 0 00 044205 CAME AC,[201400,,0]
8098 036766 003 04 0 00 001311 ER3 AC,T
8099 036767 312 05 0 00 043600 CAME AC+1,[0,,ZZ]
8100 036770 004 05 0 00 001311 ER4 AC+1,T
8101 036771 321 10 0 00 036763 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8102
8103 001312 T=T+1
8104 000400 ZZ=XX
8105 001000 XX=XX+XX
8106 IFE XX,<XX=1>
8107 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
8108 DMOVE AC,[200000,,0
8109 036772 120 04 0 00 043571 0,,XX]
8110 DFAD AC,[200777,,-1
8111 036773 110 04 0 00 044203 -1,,-1]
8112 036774 312 04 0 00 044205 CAME AC,[201400,,0]
8113 036775 003 04 0 00 001312 ER3 AC,T
8114 036776 312 05 0 00 043575 CAME AC+1,[0,,ZZ]
8115 036777 004 05 0 00 001312 ER4 AC+1,T
8116 037000 321 10 0 00 036772 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8117
8118 001313 T=T+1
8119 001000 ZZ=XX
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9-3
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0172
8120 002000 XX=XX+XX
8121 IFE XX,<XX=1>
8122 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
8123 DMOVE AC,[200000,,0
8124 037001 120 04 0 00 043566 0,,XX]
8125 DFAD AC,[200777,,-1
8126 037002 110 04 0 00 044203 -1,,-1]
8127 037003 312 04 0 00 044205 CAME AC,[201400,,0]
8128 037004 003 04 0 00 001313 ER3 AC,T
8129 037005 312 05 0 00 043572 CAME AC+1,[0,,ZZ]
8130 037006 004 05 0 00 001313 ER4 AC+1,T
8131 037007 321 10 0 00 037001 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8132
8133 001314 T=T+1
8134 002000 ZZ=XX
8135 004000 XX=XX+XX
8136 IFE XX,<XX=1>
8137 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
8138 DMOVE AC,[200000,,0
8139 037010 120 04 0 00 043563 0,,XX]
8140 DFAD AC,[200777,,-1
8141 037011 110 04 0 00 044203 -1,,-1]
8142 037012 312 04 0 00 044205 CAME AC,[201400,,0]
8143 037013 003 04 0 00 001314 ER3 AC,T
8144 037014 312 05 0 00 043567 CAME AC+1,[0,,ZZ]
8145 037015 004 05 0 00 001314 ER4 AC+1,T
8146 037016 321 10 0 00 037010 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8147
8148 001315 T=T+1
8149 004000 ZZ=XX
8150 010000 XX=XX+XX
8151 IFE XX,<XX=1>
8152 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
8153 DMOVE AC,[200000,,0
8154 037017 120 04 0 00 043560 0,,XX]
8155 DFAD AC,[200777,,-1
8156 037020 110 04 0 00 044203 -1,,-1]
8157 037021 312 04 0 00 044205 CAME AC,[201400,,0]
8158 037022 003 04 0 00 001315 ER3 AC,T
8159 037023 312 05 0 00 043564 CAME AC+1,[0,,ZZ]
8160 037024 004 05 0 00 001315 ER4 AC+1,T
8161 037025 321 10 0 00 037017 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8162
8163 001316 T=T+1
8164 010000 ZZ=XX
8165 020000 XX=XX+XX
8166 IFE XX,<XX=1>
8167 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
8168 DMOVE AC,[200000,,0
8169 037026 120 04 0 00 043555 0,,XX]
8170 DFAD AC,[200777,,-1
8171 037027 110 04 0 00 044203 -1,,-1]
8172 037030 312 04 0 00 044205 CAME AC,[201400,,0]
8173 037031 003 04 0 00 001316 ER3 AC,T
8174 037032 312 05 0 00 043561 CAME AC+1,[0,,ZZ]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9-4
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0173
8175 037033 004 05 0 00 001316 ER4 AC+1,T
8176 037034 321 10 0 00 037026 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8177
8178 001317 T=T+1
8179 020000 ZZ=XX
8180 040000 XX=XX+XX
8181 IFE XX,<XX=1>
8182 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
8183 DMOVE AC,[200000,,0
8184 037035 120 04 0 00 043552 0,,XX]
8185 DFAD AC,[200777,,-1
8186 037036 110 04 0 00 044203 -1,,-1]
8187 037037 312 04 0 00 044205 CAME AC,[201400,,0]
8188 037040 003 04 0 00 001317 ER3 AC,T
8189 037041 312 05 0 00 043556 CAME AC+1,[0,,ZZ]
8190 037042 004 05 0 00 001317 ER4 AC+1,T
8191 037043 321 10 0 00 037035 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8192
8193 001320 T=T+1
8194 040000 ZZ=XX
8195 100000 XX=XX+XX
8196 IFE XX,<XX=1>
8197 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
8198 DMOVE AC,[200000,,0
8199 037044 120 04 0 00 043547 0,,XX]
8200 DFAD AC,[200777,,-1
8201 037045 110 04 0 00 044203 -1,,-1]
8202 037046 312 04 0 00 044205 CAME AC,[201400,,0]
8203 037047 003 04 0 00 001320 ER3 AC,T
8204 037050 312 05 0 00 043553 CAME AC+1,[0,,ZZ]
8205 037051 004 05 0 00 001320 ER4 AC+1,T
8206 037052 321 10 0 00 037044 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8207
8208 001321 T=T+1
8209 100000 ZZ=XX
8210 200000 XX=XX+XX
8211 IFE XX,<XX=1>
8212 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
8213 DMOVE AC,[200000,,0
8214 037053 120 04 0 00 043544 0,,XX]
8215 DFAD AC,[200777,,-1
8216 037054 110 04 0 00 044203 -1,,-1]
8217 037055 312 04 0 00 044205 CAME AC,[201400,,0]
8218 037056 003 04 0 00 001321 ER3 AC,T
8219 037057 312 05 0 00 043550 CAME AC+1,[0,,ZZ]
8220 037060 004 05 0 00 001321 ER4 AC+1,T
8221 037061 321 10 0 00 037053 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8222
8223 001322 T=T+1
8224 200000 ZZ=XX
8225 400000 XX=XX+XX
8226 IFE XX,<XX=1>
8227 DFARP T,200000,0,0,XX,200777,-1,-1,-1,201400,0,0,ZZ^
8228 DMOVE AC,[200000,,0
8229 037062 120 04 0 00 043541 0,,XX]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9-5
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0174
8230 DFAD AC,[200777,,-1
8231 037063 110 04 0 00 044203 -1,,-1]
8232 037064 312 04 0 00 044205 CAME AC,[201400,,0]
8233 037065 003 04 0 00 001322 ER3 AC,T
8234 037066 312 05 0 00 043545 CAME AC+1,[0,,ZZ]
8235 037067 004 05 0 00 001322 ER4 AC+1,T
8236 037070 321 10 0 00 037062 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8237
8238
8239 400000 ZZ=XX
8240 000001 XX=1
8241
8242 001323 T=T+1
8243 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,0,ZZ^
8244 DMOVE AC,[200000,,0
8245 037071 120 04 0 00 043536 XX,,0]
8246 DFAD AC,[200777,,-1
8247 037072 110 04 0 00 044203 -1,,-1]
8248 037073 312 04 0 00 044205 CAME AC,[201400,,0]
8249 037074 003 04 0 00 001323 ER3 AC,T
8250 037075 312 05 0 00 043542 CAME AC+1,[0,,ZZ]
8251 037076 004 05 0 00 001323 ER4 AC+1,T
8252 037077 321 10 0 00 037071 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8253
8254
8255 REPEAT ^D16,
8256 <T=T+1
8257 ZZ=XX
8258 XX=XX+XX
8259 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0
8260 >
8261 001324 T=T+1
8262 000001 ZZ=XX
8263 000002 XX=XX+XX
8264 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
8265 DMOVE AC,[200000,,0
8266 037100 120 04 0 00 043533 XX,,0]
8267 DFAD AC,[200777,,-1
8268 037101 110 04 0 00 044203 -1,,-1]
8269 037102 312 04 0 00 044205 CAME AC,[201400,,0]
8270 037103 003 04 0 00 001324 ER3 AC,T
8271 037104 312 05 0 00 043537 CAME AC+1,[ZZ,,0]
8272 037105 004 05 0 00 001324 ER4 AC+1,T
8273 037106 321 10 0 00 037100 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8274
8275 001325 T=T+1
8276 000002 ZZ=XX
8277 000004 XX=XX+XX
8278 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
8279 DMOVE AC,[200000,,0
8280 037107 120 04 0 00 043530 XX,,0]
8281 DFAD AC,[200777,,-1
8282 037110 110 04 0 00 044203 -1,,-1]
8283 037111 312 04 0 00 044205 CAME AC,[201400,,0]
8284 037112 003 04 0 00 001325 ER3 AC,T
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9-6
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0175
8285 037113 312 05 0 00 043534 CAME AC+1,[ZZ,,0]
8286 037114 004 05 0 00 001325 ER4 AC+1,T
8287 037115 321 10 0 00 037107 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8288
8289 001326 T=T+1
8290 000004 ZZ=XX
8291 000010 XX=XX+XX
8292 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
8293 DMOVE AC,[200000,,0
8294 037116 120 04 0 00 043525 XX,,0]
8295 DFAD AC,[200777,,-1
8296 037117 110 04 0 00 044203 -1,,-1]
8297 037120 312 04 0 00 044205 CAME AC,[201400,,0]
8298 037121 003 04 0 00 001326 ER3 AC,T
8299 037122 312 05 0 00 043531 CAME AC+1,[ZZ,,0]
8300 037123 004 05 0 00 001326 ER4 AC+1,T
8301 037124 321 10 0 00 037116 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8302
8303 001327 T=T+1
8304 000010 ZZ=XX
8305 000020 XX=XX+XX
8306 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
8307 DMOVE AC,[200000,,0
8308 037125 120 04 0 00 043522 XX,,0]
8309 DFAD AC,[200777,,-1
8310 037126 110 04 0 00 044203 -1,,-1]
8311 037127 312 04 0 00 044205 CAME AC,[201400,,0]
8312 037130 003 04 0 00 001327 ER3 AC,T
8313 037131 312 05 0 00 043526 CAME AC+1,[ZZ,,0]
8314 037132 004 05 0 00 001327 ER4 AC+1,T
8315 037133 321 10 0 00 037125 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8316
8317 001330 T=T+1
8318 000020 ZZ=XX
8319 000040 XX=XX+XX
8320 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
8321 DMOVE AC,[200000,,0
8322 037134 120 04 0 00 043517 XX,,0]
8323 DFAD AC,[200777,,-1
8324 037135 110 04 0 00 044203 -1,,-1]
8325 037136 312 04 0 00 044205 CAME AC,[201400,,0]
8326 037137 003 04 0 00 001330 ER3 AC,T
8327 037140 312 05 0 00 043523 CAME AC+1,[ZZ,,0]
8328 037141 004 05 0 00 001330 ER4 AC+1,T
8329 037142 321 10 0 00 037134 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8330
8331 001331 T=T+1
8332 000040 ZZ=XX
8333 000100 XX=XX+XX
8334 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
8335 DMOVE AC,[200000,,0
8336 037143 120 04 0 00 043514 XX,,0]
8337 DFAD AC,[200777,,-1
8338 037144 110 04 0 00 044203 -1,,-1]
8339 037145 312 04 0 00 044205 CAME AC,[201400,,0]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9-7
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0176
8340 037146 003 04 0 00 001331 ER3 AC,T
8341 037147 312 05 0 00 043520 CAME AC+1,[ZZ,,0]
8342 037150 004 05 0 00 001331 ER4 AC+1,T
8343 037151 321 10 0 00 037143 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8344
8345 001332 T=T+1
8346 000100 ZZ=XX
8347 000200 XX=XX+XX
8348 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
8349 DMOVE AC,[200000,,0
8350 037152 120 04 0 00 043511 XX,,0]
8351 DFAD AC,[200777,,-1
8352 037153 110 04 0 00 044203 -1,,-1]
8353 037154 312 04 0 00 044205 CAME AC,[201400,,0]
8354 037155 003 04 0 00 001332 ER3 AC,T
8355 037156 312 05 0 00 043515 CAME AC+1,[ZZ,,0]
8356 037157 004 05 0 00 001332 ER4 AC+1,T
8357 037160 321 10 0 00 037152 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8358
8359 001333 T=T+1
8360 000200 ZZ=XX
8361 000400 XX=XX+XX
8362 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
8363 DMOVE AC,[200000,,0
8364 037161 120 04 0 00 043506 XX,,0]
8365 DFAD AC,[200777,,-1
8366 037162 110 04 0 00 044203 -1,,-1]
8367 037163 312 04 0 00 044205 CAME AC,[201400,,0]
8368 037164 003 04 0 00 001333 ER3 AC,T
8369 037165 312 05 0 00 043512 CAME AC+1,[ZZ,,0]
8370 037166 004 05 0 00 001333 ER4 AC+1,T
8371 037167 321 10 0 00 037161 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8372
8373 001334 T=T+1
8374 000400 ZZ=XX
8375 001000 XX=XX+XX
8376 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
8377 DMOVE AC,[200000,,0
8378 037170 120 04 0 00 043503 XX,,0]
8379 DFAD AC,[200777,,-1
8380 037171 110 04 0 00 044203 -1,,-1]
8381 037172 312 04 0 00 044205 CAME AC,[201400,,0]
8382 037173 003 04 0 00 001334 ER3 AC,T
8383 037174 312 05 0 00 043507 CAME AC+1,[ZZ,,0]
8384 037175 004 05 0 00 001334 ER4 AC+1,T
8385 037176 321 10 0 00 037170 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8386
8387 001335 T=T+1
8388 001000 ZZ=XX
8389 002000 XX=XX+XX
8390 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
8391 DMOVE AC,[200000,,0
8392 037177 120 04 0 00 043500 XX,,0]
8393 DFAD AC,[200777,,-1
8394 037200 110 04 0 00 044203 -1,,-1]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9-8
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0177
8395 037201 312 04 0 00 044205 CAME AC,[201400,,0]
8396 037202 003 04 0 00 001335 ER3 AC,T
8397 037203 312 05 0 00 043504 CAME AC+1,[ZZ,,0]
8398 037204 004 05 0 00 001335 ER4 AC+1,T
8399 037205 321 10 0 00 037177 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8400
8401 001336 T=T+1
8402 002000 ZZ=XX
8403 004000 XX=XX+XX
8404 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
8405 DMOVE AC,[200000,,0
8406 037206 120 04 0 00 043475 XX,,0]
8407 DFAD AC,[200777,,-1
8408 037207 110 04 0 00 044203 -1,,-1]
8409 037210 312 04 0 00 044205 CAME AC,[201400,,0]
8410 037211 003 04 0 00 001336 ER3 AC,T
8411 037212 312 05 0 00 043501 CAME AC+1,[ZZ,,0]
8412 037213 004 05 0 00 001336 ER4 AC+1,T
8413 037214 321 10 0 00 037206 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8414
8415 001337 T=T+1
8416 004000 ZZ=XX
8417 010000 XX=XX+XX
8418 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
8419 DMOVE AC,[200000,,0
8420 037215 120 04 0 00 043472 XX,,0]
8421 DFAD AC,[200777,,-1
8422 037216 110 04 0 00 044203 -1,,-1]
8423 037217 312 04 0 00 044205 CAME AC,[201400,,0]
8424 037220 003 04 0 00 001337 ER3 AC,T
8425 037221 312 05 0 00 043476 CAME AC+1,[ZZ,,0]
8426 037222 004 05 0 00 001337 ER4 AC+1,T
8427 037223 321 10 0 00 037215 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8428
8429 001340 T=T+1
8430 010000 ZZ=XX
8431 020000 XX=XX+XX
8432 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
8433 DMOVE AC,[200000,,0
8434 037224 120 04 0 00 043467 XX,,0]
8435 DFAD AC,[200777,,-1
8436 037225 110 04 0 00 044203 -1,,-1]
8437 037226 312 04 0 00 044205 CAME AC,[201400,,0]
8438 037227 003 04 0 00 001340 ER3 AC,T
8439 037230 312 05 0 00 043473 CAME AC+1,[ZZ,,0]
8440 037231 004 05 0 00 001340 ER4 AC+1,T
8441 037232 321 10 0 00 037224 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8442
8443 001341 T=T+1
8444 020000 ZZ=XX
8445 040000 XX=XX+XX
8446 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
8447 DMOVE AC,[200000,,0
8448 037233 120 04 0 00 043464 XX,,0]
8449 DFAD AC,[200777,,-1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9-9
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0178
8450 037234 110 04 0 00 044203 -1,,-1]
8451 037235 312 04 0 00 044205 CAME AC,[201400,,0]
8452 037236 003 04 0 00 001341 ER3 AC,T
8453 037237 312 05 0 00 043470 CAME AC+1,[ZZ,,0]
8454 037240 004 05 0 00 001341 ER4 AC+1,T
8455 037241 321 10 0 00 037233 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8456
8457 001342 T=T+1
8458 040000 ZZ=XX
8459 100000 XX=XX+XX
8460 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
8461 DMOVE AC,[200000,,0
8462 037242 120 04 0 00 043461 XX,,0]
8463 DFAD AC,[200777,,-1
8464 037243 110 04 0 00 044203 -1,,-1]
8465 037244 312 04 0 00 044205 CAME AC,[201400,,0]
8466 037245 003 04 0 00 001342 ER3 AC,T
8467 037246 312 05 0 00 043465 CAME AC+1,[ZZ,,0]
8468 037247 004 05 0 00 001342 ER4 AC+1,T
8469 037250 321 10 0 00 037242 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8470
8471 001343 T=T+1
8472 100000 ZZ=XX
8473 200000 XX=XX+XX
8474 DFARP T,200000,0,XX,0,200777,-1,-1,-1,201400,0,ZZ,0^
8475 DMOVE AC,[200000,,0
8476 037251 120 04 0 00 043456 XX,,0]
8477 DFAD AC,[200777,,-1
8478 037252 110 04 0 00 044203 -1,,-1]
8479 037253 312 04 0 00 044205 CAME AC,[201400,,0]
8480 037254 003 04 0 00 001343 ER3 AC,T
8481 037255 312 05 0 00 043462 CAME AC+1,[ZZ,,0]
8482 037256 004 05 0 00 001343 ER4 AC+1,T
8483 037257 321 10 0 00 037251 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8484
8485
8486
8487 200000 ZZ=XX
8488 400000 XX=XX+XX
8489 001344 T=T+1
8490 DFARP T,200000,0,XX,0,200777,-1,-1,-1,200777,-1,377777,-1^
8491 DMOVE AC,[200000,,0
8492 037260 120 04 0 00 043454 XX,,0]
8493 DFAD AC,[200777,,-1
8494 037261 110 04 0 00 044203 -1,,-1]
8495 037262 312 04 0 00 044203 CAME AC,[200777,,-1]
8496 037263 003 04 0 00 001344 ER3 AC,T
8497 037264 312 05 0 00 043631 CAME AC+1,[377777,,-1]
8498 037265 004 05 0 00 001344 ER4 AC+1,T
8499 037266 321 10 0 00 037260 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8500
8501
8502 000001 XX=1
8503 001345 T=T+1
8504 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,0,ZZ,0^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9-10
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0179
8505 DMOVE AC,[200000,,XX
8506 037267 120 04 0 00 043451 0,,0]
8507 DFAD AC,[200777,,-1
8508 037270 110 04 0 00 044203 -1,,-1]
8509 037271 312 04 0 00 044205 CAME AC,[201400,,0]
8510 037272 003 04 0 00 001345 ER3 AC,T
8511 037273 312 05 0 00 043332 CAME AC+1,[ZZ,,0]
8512 037274 004 05 0 00 001345 ER4 AC+1,T
8513 037275 321 10 0 00 037267 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8514 REPEAT ^D17,
8515 <T=T+1
8516 ZZ=XX
8517 XX=XX+XX
8518 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0
8519 >
8520 001346 T=T+1
8521 000001 ZZ=XX
8522 000002 XX=XX+XX
8523 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
8524 DMOVE AC,[200000,,XX
8525 037276 120 04 0 00 043446 0,,0]
8526 DFAD AC,[200777,,-1
8527 037277 110 04 0 00 044203 -1,,-1]
8528 037300 312 04 0 00 044206 CAME AC,[201400,,ZZ]
8529 037301 003 04 0 00 001346 ER3 AC,T
8530 037302 312 05 0 00 043330 CAME AC+1,[0,,0]
8531 037303 004 05 0 00 001346 ER4 AC+1,T
8532 037304 321 10 0 00 037276 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8533
8534 001347 T=T+1
8535 000002 ZZ=XX
8536 000004 XX=XX+XX
8537 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
8538 DMOVE AC,[200000,,XX
8539 037305 120 04 0 00 043443 0,,0]
8540 DFAD AC,[200777,,-1
8541 037306 110 04 0 00 044203 -1,,-1]
8542 037307 312 04 0 00 044207 CAME AC,[201400,,ZZ]
8543 037310 003 04 0 00 001347 ER3 AC,T
8544 037311 312 05 0 00 043330 CAME AC+1,[0,,0]
8545 037312 004 05 0 00 001347 ER4 AC+1,T
8546 037313 321 10 0 00 037305 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8547
8548 001350 T=T+1
8549 000004 ZZ=XX
8550 000010 XX=XX+XX
8551 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
8552 DMOVE AC,[200000,,XX
8553 037314 120 04 0 00 043440 0,,0]
8554 DFAD AC,[200777,,-1
8555 037315 110 04 0 00 044203 -1,,-1]
8556 037316 312 04 0 00 044210 CAME AC,[201400,,ZZ]
8557 037317 003 04 0 00 001350 ER3 AC,T
8558 037320 312 05 0 00 043330 CAME AC+1,[0,,0]
8559 037321 004 05 0 00 001350 ER4 AC+1,T
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9-11
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0180
8560 037322 321 10 0 00 037314 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8561
8562 001351 T=T+1
8563 000010 ZZ=XX
8564 000020 XX=XX+XX
8565 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
8566 DMOVE AC,[200000,,XX
8567 037323 120 04 0 00 043435 0,,0]
8568 DFAD AC,[200777,,-1
8569 037324 110 04 0 00 044203 -1,,-1]
8570 037325 312 04 0 00 044211 CAME AC,[201400,,ZZ]
8571 037326 003 04 0 00 001351 ER3 AC,T
8572 037327 312 05 0 00 043330 CAME AC+1,[0,,0]
8573 037330 004 05 0 00 001351 ER4 AC+1,T
8574 037331 321 10 0 00 037323 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8575
8576 001352 T=T+1
8577 000020 ZZ=XX
8578 000040 XX=XX+XX
8579 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
8580 DMOVE AC,[200000,,XX
8581 037332 120 04 0 00 043432 0,,0]
8582 DFAD AC,[200777,,-1
8583 037333 110 04 0 00 044203 -1,,-1]
8584 037334 312 04 0 00 044212 CAME AC,[201400,,ZZ]
8585 037335 003 04 0 00 001352 ER3 AC,T
8586 037336 312 05 0 00 043330 CAME AC+1,[0,,0]
8587 037337 004 05 0 00 001352 ER4 AC+1,T
8588 037340 321 10 0 00 037332 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8589
8590 001353 T=T+1
8591 000040 ZZ=XX
8592 000100 XX=XX+XX
8593 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
8594 DMOVE AC,[200000,,XX
8595 037341 120 04 0 00 043427 0,,0]
8596 DFAD AC,[200777,,-1
8597 037342 110 04 0 00 044203 -1,,-1]
8598 037343 312 04 0 00 044213 CAME AC,[201400,,ZZ]
8599 037344 003 04 0 00 001353 ER3 AC,T
8600 037345 312 05 0 00 043330 CAME AC+1,[0,,0]
8601 037346 004 05 0 00 001353 ER4 AC+1,T
8602 037347 321 10 0 00 037341 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8603
8604 001354 T=T+1
8605 000100 ZZ=XX
8606 000200 XX=XX+XX
8607 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
8608 DMOVE AC,[200000,,XX
8609 037350 120 04 0 00 043424 0,,0]
8610 DFAD AC,[200777,,-1
8611 037351 110 04 0 00 044203 -1,,-1]
8612 037352 312 04 0 00 044214 CAME AC,[201400,,ZZ]
8613 037353 003 04 0 00 001354 ER3 AC,T
8614 037354 312 05 0 00 043330 CAME AC+1,[0,,0]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9-12
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0181
8615 037355 004 05 0 00 001354 ER4 AC+1,T
8616 037356 321 10 0 00 037350 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8617
8618 001355 T=T+1
8619 000200 ZZ=XX
8620 000400 XX=XX+XX
8621 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
8622 DMOVE AC,[200000,,XX
8623 037357 120 04 0 00 043421 0,,0]
8624 DFAD AC,[200777,,-1
8625 037360 110 04 0 00 044203 -1,,-1]
8626 037361 312 04 0 00 044215 CAME AC,[201400,,ZZ]
8627 037362 003 04 0 00 001355 ER3 AC,T
8628 037363 312 05 0 00 043330 CAME AC+1,[0,,0]
8629 037364 004 05 0 00 001355 ER4 AC+1,T
8630 037365 321 10 0 00 037357 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8631
8632 001356 T=T+1
8633 000400 ZZ=XX
8634 001000 XX=XX+XX
8635 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
8636 DMOVE AC,[200000,,XX
8637 037366 120 04 0 00 043416 0,,0]
8638 DFAD AC,[200777,,-1
8639 037367 110 04 0 00 044203 -1,,-1]
8640 037370 312 04 0 00 044216 CAME AC,[201400,,ZZ]
8641 037371 003 04 0 00 001356 ER3 AC,T
8642 037372 312 05 0 00 043330 CAME AC+1,[0,,0]
8643 037373 004 05 0 00 001356 ER4 AC+1,T
8644 037374 321 10 0 00 037366 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8645
8646 001357 T=T+1
8647 001000 ZZ=XX
8648 002000 XX=XX+XX
8649 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
8650 DMOVE AC,[200000,,XX
8651 037375 120 04 0 00 043413 0,,0]
8652 DFAD AC,[200777,,-1
8653 037376 110 04 0 00 044203 -1,,-1]
8654 037377 312 04 0 00 044217 CAME AC,[201400,,ZZ]
8655 037400 003 04 0 00 001357 ER3 AC,T
8656 037401 312 05 0 00 043330 CAME AC+1,[0,,0]
8657 037402 004 05 0 00 001357 ER4 AC+1,T
8658 037403 321 10 0 00 037375 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8659
8660 001360 T=T+1
8661 002000 ZZ=XX
8662 004000 XX=XX+XX
8663 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
8664 DMOVE AC,[200000,,XX
8665 037404 120 04 0 00 043410 0,,0]
8666 DFAD AC,[200777,,-1
8667 037405 110 04 0 00 044203 -1,,-1]
8668 037406 312 04 0 00 044220 CAME AC,[201400,,ZZ]
8669 037407 003 04 0 00 001360 ER3 AC,T
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9-13
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0182
8670 037410 312 05 0 00 043330 CAME AC+1,[0,,0]
8671 037411 004 05 0 00 001360 ER4 AC+1,T
8672 037412 321 10 0 00 037404 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8673
8674 001361 T=T+1
8675 004000 ZZ=XX
8676 010000 XX=XX+XX
8677 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
8678 DMOVE AC,[200000,,XX
8679 037413 120 04 0 00 043405 0,,0]
8680 DFAD AC,[200777,,-1
8681 037414 110 04 0 00 044203 -1,,-1]
8682 037415 312 04 0 00 044221 CAME AC,[201400,,ZZ]
8683 037416 003 04 0 00 001361 ER3 AC,T
8684 037417 312 05 0 00 043330 CAME AC+1,[0,,0]
8685 037420 004 05 0 00 001361 ER4 AC+1,T
8686 037421 321 10 0 00 037413 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8687
8688 001362 T=T+1
8689 010000 ZZ=XX
8690 020000 XX=XX+XX
8691 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
8692 DMOVE AC,[200000,,XX
8693 037422 120 04 0 00 043402 0,,0]
8694 DFAD AC,[200777,,-1
8695 037423 110 04 0 00 044203 -1,,-1]
8696 037424 312 04 0 00 044222 CAME AC,[201400,,ZZ]
8697 037425 003 04 0 00 001362 ER3 AC,T
8698 037426 312 05 0 00 043330 CAME AC+1,[0,,0]
8699 037427 004 05 0 00 001362 ER4 AC+1,T
8700 037430 321 10 0 00 037422 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8701
8702 001363 T=T+1
8703 020000 ZZ=XX
8704 040000 XX=XX+XX
8705 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
8706 DMOVE AC,[200000,,XX
8707 037431 120 04 0 00 043377 0,,0]
8708 DFAD AC,[200777,,-1
8709 037432 110 04 0 00 044203 -1,,-1]
8710 037433 312 04 0 00 044223 CAME AC,[201400,,ZZ]
8711 037434 003 04 0 00 001363 ER3 AC,T
8712 037435 312 05 0 00 043330 CAME AC+1,[0,,0]
8713 037436 004 05 0 00 001363 ER4 AC+1,T
8714 037437 321 10 0 00 037431 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8715
8716 001364 T=T+1
8717 040000 ZZ=XX
8718 100000 XX=XX+XX
8719 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
8720 DMOVE AC,[200000,,XX
8721 037440 120 04 0 00 043374 0,,0]
8722 DFAD AC,[200777,,-1
8723 037441 110 04 0 00 044203 -1,,-1]
8724 037442 312 04 0 00 044224 CAME AC,[201400,,ZZ]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 9-14
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0183
8725 037443 003 04 0 00 001364 ER3 AC,T
8726 037444 312 05 0 00 043330 CAME AC+1,[0,,0]
8727 037445 004 05 0 00 001364 ER4 AC+1,T
8728 037446 321 10 0 00 037440 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8729
8730 001365 T=T+1
8731 100000 ZZ=XX
8732 200000 XX=XX+XX
8733 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
8734 DMOVE AC,[200000,,XX
8735 037447 120 04 0 00 043371 0,,0]
8736 DFAD AC,[200777,,-1
8737 037450 110 04 0 00 044203 -1,,-1]
8738 037451 312 04 0 00 044225 CAME AC,[201400,,ZZ]
8739 037452 003 04 0 00 001365 ER3 AC,T
8740 037453 312 05 0 00 043330 CAME AC+1,[0,,0]
8741 037454 004 05 0 00 001365 ER4 AC+1,T
8742 037455 321 10 0 00 037447 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8743
8744 001366 T=T+1
8745 200000 ZZ=XX
8746 400000 XX=XX+XX
8747 DFARP T,200000,XX,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
8748 DMOVE AC,[200000,,XX
8749 037456 120 04 0 00 043366 0,,0]
8750 DFAD AC,[200777,,-1
8751 037457 110 04 0 00 044203 -1,,-1]
8752 037460 312 04 0 00 044226 CAME AC,[201400,,ZZ]
8753 037461 003 04 0 00 001366 ER3 AC,T
8754 037462 312 05 0 00 043330 CAME AC+1,[0,,0]
8755 037463 004 05 0 00 001366 ER4 AC+1,T
8756 037464 321 10 0 00 037456 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8757
8758
8759 001367 T=T+1
8760 400000 ZZ=XX
8761 000001 XX=1
8762 DFARP T,200000+XX,0,0,0,200777,-1,-1,-1,201400,ZZ,0,0^
8763 DMOVE AC,[200000+XX,,0
8764 037465 120 04 0 00 043363 0,,0]
8765 DFAD AC,[200777,,-1
8766 037466 110 04 0 00 044203 -1,,-1]
8767 037467 312 04 0 00 044227 CAME AC,[201400,,ZZ]
8768 037470 003 04 0 00 001367 ER3 AC,T
8769 037471 312 05 0 00 043330 CAME AC+1,[0,,0]
8770 037472 004 05 0 00 001367 ER4 AC+1,T
8771 037473 321 10 0 00 037465 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8772 REPEAT ^D8,
8773 <T=T+1
8774 ZZ=XX
8775 XX=XX+XX
8776 DFARP T,200000+XX,0,0,0,200777,-1,-1,-1,201400+ZZ,0,0,0
8777 >
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0184
8778 001370 T=T+1
8779 000001 ZZ=XX
8780 000002 XX=XX+XX
8781 DFARP T,200000+XX,0,0,0,200777,-1,-1,-1,201400+ZZ,0,0,0^
8782 DMOVE AC,[200000+XX,,0
8783 037474 120 04 0 00 043360 0,,0]
8784 DFAD AC,[200777,,-1
8785 037475 110 04 0 00 044203 -1,,-1]
8786 037476 312 04 0 00 044230 CAME AC,[201400+ZZ,,0]
8787 037477 003 04 0 00 001370 ER3 AC,T
8788 037500 312 05 0 00 043330 CAME AC+1,[0,,0]
8789 037501 004 05 0 00 001370 ER4 AC+1,T
8790 037502 321 10 0 00 037474 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8791
8792 001371 T=T+1
8793 000002 ZZ=XX
8794 000004 XX=XX+XX
8795 DFARP T,200000+XX,0,0,0,200777,-1,-1,-1,201400+ZZ,0,0,0^
8796 DMOVE AC,[200000+XX,,0
8797 037503 120 04 0 00 043355 0,,0]
8798 DFAD AC,[200777,,-1
8799 037504 110 04 0 00 044203 -1,,-1]
8800 037505 312 04 0 00 044231 CAME AC,[201400+ZZ,,0]
8801 037506 003 04 0 00 001371 ER3 AC,T
8802 037507 312 05 0 00 043330 CAME AC+1,[0,,0]
8803 037510 004 05 0 00 001371 ER4 AC+1,T
8804 037511 321 10 0 00 037503 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8805
8806 001372 T=T+1
8807 000004 ZZ=XX
8808 000010 XX=XX+XX
8809 DFARP T,200000+XX,0,0,0,200777,-1,-1,-1,201400+ZZ,0,0,0^
8810 DMOVE AC,[200000+XX,,0
8811 037512 120 04 0 00 043352 0,,0]
8812 DFAD AC,[200777,,-1
8813 037513 110 04 0 00 044203 -1,,-1]
8814 037514 312 04 0 00 044232 CAME AC,[201400+ZZ,,0]
8815 037515 003 04 0 00 001372 ER3 AC,T
8816 037516 312 05 0 00 043330 CAME AC+1,[0,,0]
8817 037517 004 05 0 00 001372 ER4 AC+1,T
8818 037520 321 10 0 00 037512 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8819
8820 001373 T=T+1
8821 000010 ZZ=XX
8822 000020 XX=XX+XX
8823 DFARP T,200000+XX,0,0,0,200777,-1,-1,-1,201400+ZZ,0,0,0^
8824 DMOVE AC,[200000+XX,,0
8825 037521 120 04 0 00 043347 0,,0]
8826 DFAD AC,[200777,,-1
8827 037522 110 04 0 00 044203 -1,,-1]
8828 037523 312 04 0 00 044233 CAME AC,[201400+ZZ,,0]
8829 037524 003 04 0 00 001373 ER3 AC,T
8830 037525 312 05 0 00 043330 CAME AC+1,[0,,0]
8831 037526 004 05 0 00 001373 ER4 AC+1,T
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-1
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0185
8832 037527 321 10 0 00 037521 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8833
8834 001374 T=T+1
8835 000020 ZZ=XX
8836 000040 XX=XX+XX
8837 DFARP T,200000+XX,0,0,0,200777,-1,-1,-1,201400+ZZ,0,0,0^
8838 DMOVE AC,[200000+XX,,0
8839 037530 120 04 0 00 043344 0,,0]
8840 DFAD AC,[200777,,-1
8841 037531 110 04 0 00 044203 -1,,-1]
8842 037532 312 04 0 00 044234 CAME AC,[201400+ZZ,,0]
8843 037533 003 04 0 00 001374 ER3 AC,T
8844 037534 312 05 0 00 043330 CAME AC+1,[0,,0]
8845 037535 004 05 0 00 001374 ER4 AC+1,T
8846 037536 321 10 0 00 037530 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8847
8848 001375 T=T+1
8849 000040 ZZ=XX
8850 000100 XX=XX+XX
8851 DFARP T,200000+XX,0,0,0,200777,-1,-1,-1,201400+ZZ,0,0,0^
8852 DMOVE AC,[200000+XX,,0
8853 037537 120 04 0 00 043341 0,,0]
8854 DFAD AC,[200777,,-1
8855 037540 110 04 0 00 044203 -1,,-1]
8856 037541 312 04 0 00 044235 CAME AC,[201400+ZZ,,0]
8857 037542 003 04 0 00 001375 ER3 AC,T
8858 037543 312 05 0 00 043330 CAME AC+1,[0,,0]
8859 037544 004 05 0 00 001375 ER4 AC+1,T
8860 037545 321 10 0 00 037537 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8861
8862 001376 T=T+1
8863 000100 ZZ=XX
8864 000200 XX=XX+XX
8865 DFARP T,200000+XX,0,0,0,200777,-1,-1,-1,201400+ZZ,0,0,0^
8866 DMOVE AC,[200000+XX,,0
8867 037546 120 04 0 00 043336 0,,0]
8868 DFAD AC,[200777,,-1
8869 037547 110 04 0 00 044203 -1,,-1]
8870 037550 312 04 0 00 044236 CAME AC,[201400+ZZ,,0]
8871 037551 003 04 0 00 001376 ER3 AC,T
8872 037552 312 05 0 00 043330 CAME AC+1,[0,,0]
8873 037553 004 05 0 00 001376 ER4 AC+1,T
8874 037554 321 10 0 00 037546 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8875
8876 001377 T=T+1
8877 000200 ZZ=XX
8878 000400 XX=XX+XX
8879 DFARP T,200000+XX,0,0,0,200777,-1,-1,-1,201400+ZZ,0,0,0^
8880 DMOVE AC,[200000+XX,,0
8881 037555 120 04 0 00 043334 0,,0]
8882 DFAD AC,[200777,,-1
8883 037556 110 04 0 00 044203 -1,,-1]
8884 037557 312 04 0 00 044237 CAME AC,[201400+ZZ,,0]
8885 037560 003 04 0 00 001377 ER3 AC,T
8886 037561 312 05 0 00 043330 CAME AC+1,[0,,0]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-2
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0186
8887 037562 004 05 0 00 001377 ER4 AC+1,T
8888 037563 321 10 0 00 037555 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8889
8890
8891 ;RIPPLE ZEROS TESTS (TO A FRACTION OF ALL ONES, ADD A RIPPLED ZERO)
8892
8893 001400 T=1400
8894
8895 000000 XX=0
8896
8897 R1400: REPEAT ^D18,
8898 <T=T+1
8899 ZZ=XX
8900 IFE ZZ,<ZZ=-1>
8901 XX=XX+XX+1
8902 IFE <XX-1>,<XX=-2>
8903 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ
8904 >
8905 001401 T=T+1
8906 000000 ZZ=XX
8907 777777 777777 IFE ZZ,<ZZ=-1>
8908 000001 XX=XX+XX+1
8909 777777 777776 IFE <XX-1>,<XX=-2>
8910 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
8911 DMOVE AC,[200777,,-1
8912 037564 120 04 0 00 044203 -1,,-1]
8913 DFAD AC,[200777,,-1
8914 037565 110 04 0 00 044240 -1,,XX]
8915 037566 312 04 0 00 044242 CAME AC,[201777,,-1]
8916 037567 003 04 0 00 001401 ER3 AC,T
8917 037570 312 05 0 00 043631 CAME AC+1,[377777,,ZZ]
8918 037571 004 05 0 00 001401 ER4 AC+1,T
8919 037572 321 10 0 00 037564 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8920
8921 001402 T=T+1
8922 777777 777776 ZZ=XX
8923 IFE ZZ,<ZZ=-1>
8924 777777 777775 XX=XX+XX+1
8925 IFE <XX-1>,<XX=-2>
8926 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
8927 DMOVE AC,[200777,,-1
8928 037573 120 04 0 00 044203 -1,,-1]
8929 DFAD AC,[200777,,-1
8930 037574 110 04 0 00 044243 -1,,XX]
8931 037575 312 04 0 00 044242 CAME AC,[201777,,-1]
8932 037576 003 04 0 00 001402 ER3 AC,T
8933 037577 312 05 0 00 043634 CAME AC+1,[377777,,ZZ]
8934 037600 004 05 0 00 001402 ER4 AC+1,T
8935 037601 321 10 0 00 037573 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8936
8937 001403 T=T+1
8938 777777 777775 ZZ=XX
8939 IFE ZZ,<ZZ=-1>
8940 777777 777773 XX=XX+XX+1
8941 IFE <XX-1>,<XX=-2>
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-3
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0187
8942 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
8943 DMOVE AC,[200777,,-1
8944 037602 120 04 0 00 044203 -1,,-1]
8945 DFAD AC,[200777,,-1
8946 037603 110 04 0 00 044245 -1,,XX]
8947 037604 312 04 0 00 044242 CAME AC,[201777,,-1]
8948 037605 003 04 0 00 001403 ER3 AC,T
8949 037606 312 05 0 00 043637 CAME AC+1,[377777,,ZZ]
8950 037607 004 05 0 00 001403 ER4 AC+1,T
8951 037610 321 10 0 00 037602 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8952
8953 001404 T=T+1
8954 777777 777773 ZZ=XX
8955 IFE ZZ,<ZZ=-1>
8956 777777 777767 XX=XX+XX+1
8957 IFE <XX-1>,<XX=-2>
8958 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
8959 DMOVE AC,[200777,,-1
8960 037611 120 04 0 00 044203 -1,,-1]
8961 DFAD AC,[200777,,-1
8962 037612 110 04 0 00 044247 -1,,XX]
8963 037613 312 04 0 00 044242 CAME AC,[201777,,-1]
8964 037614 003 04 0 00 001404 ER3 AC,T
8965 037615 312 05 0 00 043642 CAME AC+1,[377777,,ZZ]
8966 037616 004 05 0 00 001404 ER4 AC+1,T
8967 037617 321 10 0 00 037611 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8968
8969 001405 T=T+1
8970 777777 777767 ZZ=XX
8971 IFE ZZ,<ZZ=-1>
8972 777777 777757 XX=XX+XX+1
8973 IFE <XX-1>,<XX=-2>
8974 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
8975 DMOVE AC,[200777,,-1
8976 037620 120 04 0 00 044203 -1,,-1]
8977 DFAD AC,[200777,,-1
8978 037621 110 04 0 00 044251 -1,,XX]
8979 037622 312 04 0 00 044242 CAME AC,[201777,,-1]
8980 037623 003 04 0 00 001405 ER3 AC,T
8981 037624 312 05 0 00 043645 CAME AC+1,[377777,,ZZ]
8982 037625 004 05 0 00 001405 ER4 AC+1,T
8983 037626 321 10 0 00 037620 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
8984
8985 001406 T=T+1
8986 777777 777757 ZZ=XX
8987 IFE ZZ,<ZZ=-1>
8988 777777 777737 XX=XX+XX+1
8989 IFE <XX-1>,<XX=-2>
8990 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
8991 DMOVE AC,[200777,,-1
8992 037627 120 04 0 00 044203 -1,,-1]
8993 DFAD AC,[200777,,-1
8994 037630 110 04 0 00 044253 -1,,XX]
8995 037631 312 04 0 00 044242 CAME AC,[201777,,-1]
8996 037632 003 04 0 00 001406 ER3 AC,T
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-4
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0188
8997 037633 312 05 0 00 043650 CAME AC+1,[377777,,ZZ]
8998 037634 004 05 0 00 001406 ER4 AC+1,T
8999 037635 321 10 0 00 037627 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9000
9001 001407 T=T+1
9002 777777 777737 ZZ=XX
9003 IFE ZZ,<ZZ=-1>
9004 777777 777677 XX=XX+XX+1
9005 IFE <XX-1>,<XX=-2>
9006 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
9007 DMOVE AC,[200777,,-1
9008 037636 120 04 0 00 044203 -1,,-1]
9009 DFAD AC,[200777,,-1
9010 037637 110 04 0 00 044255 -1,,XX]
9011 037640 312 04 0 00 044242 CAME AC,[201777,,-1]
9012 037641 003 04 0 00 001407 ER3 AC,T
9013 037642 312 05 0 00 043653 CAME AC+1,[377777,,ZZ]
9014 037643 004 05 0 00 001407 ER4 AC+1,T
9015 037644 321 10 0 00 037636 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9016
9017 001410 T=T+1
9018 777777 777677 ZZ=XX
9019 IFE ZZ,<ZZ=-1>
9020 777777 777577 XX=XX+XX+1
9021 IFE <XX-1>,<XX=-2>
9022 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
9023 DMOVE AC,[200777,,-1
9024 037645 120 04 0 00 044203 -1,,-1]
9025 DFAD AC,[200777,,-1
9026 037646 110 04 0 00 044257 -1,,XX]
9027 037647 312 04 0 00 044242 CAME AC,[201777,,-1]
9028 037650 003 04 0 00 001410 ER3 AC,T
9029 037651 312 05 0 00 043656 CAME AC+1,[377777,,ZZ]
9030 037652 004 05 0 00 001410 ER4 AC+1,T
9031 037653 321 10 0 00 037645 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9032
9033 001411 T=T+1
9034 777777 777577 ZZ=XX
9035 IFE ZZ,<ZZ=-1>
9036 777777 777377 XX=XX+XX+1
9037 IFE <XX-1>,<XX=-2>
9038 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
9039 DMOVE AC,[200777,,-1
9040 037654 120 04 0 00 044203 -1,,-1]
9041 DFAD AC,[200777,,-1
9042 037655 110 04 0 00 044261 -1,,XX]
9043 037656 312 04 0 00 044242 CAME AC,[201777,,-1]
9044 037657 003 04 0 00 001411 ER3 AC,T
9045 037660 312 05 0 00 043661 CAME AC+1,[377777,,ZZ]
9046 037661 004 05 0 00 001411 ER4 AC+1,T
9047 037662 321 10 0 00 037654 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9048
9049 001412 T=T+1
9050 777777 777377 ZZ=XX
9051 IFE ZZ,<ZZ=-1>
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-5
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0189
9052 777777 776777 XX=XX+XX+1
9053 IFE <XX-1>,<XX=-2>
9054 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
9055 DMOVE AC,[200777,,-1
9056 037663 120 04 0 00 044203 -1,,-1]
9057 DFAD AC,[200777,,-1
9058 037664 110 04 0 00 044263 -1,,XX]
9059 037665 312 04 0 00 044242 CAME AC,[201777,,-1]
9060 037666 003 04 0 00 001412 ER3 AC,T
9061 037667 312 05 0 00 043664 CAME AC+1,[377777,,ZZ]
9062 037670 004 05 0 00 001412 ER4 AC+1,T
9063 037671 321 10 0 00 037663 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9064
9065 001413 T=T+1
9066 777777 776777 ZZ=XX
9067 IFE ZZ,<ZZ=-1>
9068 777777 775777 XX=XX+XX+1
9069 IFE <XX-1>,<XX=-2>
9070 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
9071 DMOVE AC,[200777,,-1
9072 037672 120 04 0 00 044203 -1,,-1]
9073 DFAD AC,[200777,,-1
9074 037673 110 04 0 00 044265 -1,,XX]
9075 037674 312 04 0 00 044242 CAME AC,[201777,,-1]
9076 037675 003 04 0 00 001413 ER3 AC,T
9077 037676 312 05 0 00 043667 CAME AC+1,[377777,,ZZ]
9078 037677 004 05 0 00 001413 ER4 AC+1,T
9079 037700 321 10 0 00 037672 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9080
9081 001414 T=T+1
9082 777777 775777 ZZ=XX
9083 IFE ZZ,<ZZ=-1>
9084 777777 773777 XX=XX+XX+1
9085 IFE <XX-1>,<XX=-2>
9086 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
9087 DMOVE AC,[200777,,-1
9088 037701 120 04 0 00 044203 -1,,-1]
9089 DFAD AC,[200777,,-1
9090 037702 110 04 0 00 044267 -1,,XX]
9091 037703 312 04 0 00 044242 CAME AC,[201777,,-1]
9092 037704 003 04 0 00 001414 ER3 AC,T
9093 037705 312 05 0 00 043672 CAME AC+1,[377777,,ZZ]
9094 037706 004 05 0 00 001414 ER4 AC+1,T
9095 037707 321 10 0 00 037701 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9096
9097 001415 T=T+1
9098 777777 773777 ZZ=XX
9099 IFE ZZ,<ZZ=-1>
9100 777777 767777 XX=XX+XX+1
9101 IFE <XX-1>,<XX=-2>
9102 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
9103 DMOVE AC,[200777,,-1
9104 037710 120 04 0 00 044203 -1,,-1]
9105 DFAD AC,[200777,,-1
9106 037711 110 04 0 00 044271 -1,,XX]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-6
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0190
9107 037712 312 04 0 00 044242 CAME AC,[201777,,-1]
9108 037713 003 04 0 00 001415 ER3 AC,T
9109 037714 312 05 0 00 043675 CAME AC+1,[377777,,ZZ]
9110 037715 004 05 0 00 001415 ER4 AC+1,T
9111 037716 321 10 0 00 037710 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9112
9113 001416 T=T+1
9114 777777 767777 ZZ=XX
9115 IFE ZZ,<ZZ=-1>
9116 777777 757777 XX=XX+XX+1
9117 IFE <XX-1>,<XX=-2>
9118 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
9119 DMOVE AC,[200777,,-1
9120 037717 120 04 0 00 044203 -1,,-1]
9121 DFAD AC,[200777,,-1
9122 037720 110 04 0 00 044273 -1,,XX]
9123 037721 312 04 0 00 044242 CAME AC,[201777,,-1]
9124 037722 003 04 0 00 001416 ER3 AC,T
9125 037723 312 05 0 00 043700 CAME AC+1,[377777,,ZZ]
9126 037724 004 05 0 00 001416 ER4 AC+1,T
9127 037725 321 10 0 00 037717 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9128
9129 001417 T=T+1
9130 777777 757777 ZZ=XX
9131 IFE ZZ,<ZZ=-1>
9132 777777 737777 XX=XX+XX+1
9133 IFE <XX-1>,<XX=-2>
9134 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
9135 DMOVE AC,[200777,,-1
9136 037726 120 04 0 00 044203 -1,,-1]
9137 DFAD AC,[200777,,-1
9138 037727 110 04 0 00 044275 -1,,XX]
9139 037730 312 04 0 00 044242 CAME AC,[201777,,-1]
9140 037731 003 04 0 00 001417 ER3 AC,T
9141 037732 312 05 0 00 043703 CAME AC+1,[377777,,ZZ]
9142 037733 004 05 0 00 001417 ER4 AC+1,T
9143 037734 321 10 0 00 037726 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9144
9145 001420 T=T+1
9146 777777 737777 ZZ=XX
9147 IFE ZZ,<ZZ=-1>
9148 777777 677777 XX=XX+XX+1
9149 IFE <XX-1>,<XX=-2>
9150 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
9151 DMOVE AC,[200777,,-1
9152 037735 120 04 0 00 044203 -1,,-1]
9153 DFAD AC,[200777,,-1
9154 037736 110 04 0 00 044277 -1,,XX]
9155 037737 312 04 0 00 044242 CAME AC,[201777,,-1]
9156 037740 003 04 0 00 001420 ER3 AC,T
9157 037741 312 05 0 00 043706 CAME AC+1,[377777,,ZZ]
9158 037742 004 05 0 00 001420 ER4 AC+1,T
9159 037743 321 10 0 00 037735 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9160
9161 001421 T=T+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-7
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0191
9162 777777 677777 ZZ=XX
9163 IFE ZZ,<ZZ=-1>
9164 777777 577777 XX=XX+XX+1
9165 IFE <XX-1>,<XX=-2>
9166 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
9167 DMOVE AC,[200777,,-1
9168 037744 120 04 0 00 044203 -1,,-1]
9169 DFAD AC,[200777,,-1
9170 037745 110 04 0 00 044301 -1,,XX]
9171 037746 312 04 0 00 044242 CAME AC,[201777,,-1]
9172 037747 003 04 0 00 001421 ER3 AC,T
9173 037750 312 05 0 00 043711 CAME AC+1,[377777,,ZZ]
9174 037751 004 05 0 00 001421 ER4 AC+1,T
9175 037752 321 10 0 00 037744 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9176
9177 001422 T=T+1
9178 777777 577777 ZZ=XX
9179 IFE ZZ,<ZZ=-1>
9180 777777 377777 XX=XX+XX+1
9181 IFE <XX-1>,<XX=-2>
9182 DFARP T,200777,-1,-1,-1,200777,-1,-1,XX,201777,-1,377777,ZZ^
9183 DMOVE AC,[200777,,-1
9184 037753 120 04 0 00 044203 -1,,-1]
9185 DFAD AC,[200777,,-1
9186 037754 110 04 0 00 044303 -1,,XX]
9187 037755 312 04 0 00 044242 CAME AC,[201777,,-1]
9188 037756 003 04 0 00 001422 ER3 AC,T
9189 037757 312 05 0 00 043714 CAME AC+1,[377777,,ZZ]
9190 037760 004 05 0 00 001422 ER4 AC+1,T
9191 037761 321 10 0 00 037753 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9192
9193
9194 001423 T=T+1
9195 777777 377777 ZZ=XX
9196 777777 777776 XX=-2
9197 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,377777,ZZ^
9198 DMOVE AC,[200777,,-1
9199 037762 120 04 0 00 044203 -1,,-1]
9200 DFAD AC,[200777,,-1
9201 037763 110 04 0 00 044305 XX,,-1]
9202 037764 312 04 0 00 044242 CAME AC,[201777,,-1]
9203 037765 003 04 0 00 001423 ER3 AC,T
9204 037766 312 05 0 00 043717 CAME AC+1,[377777,,ZZ]
9205 037767 004 05 0 00 001423 ER4 AC+1,T
9206 037770 321 10 0 00 037762 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9207
9208 REPEAT ^D16,
9209 <T=T+1
9210 ZZ=XX
9211 XX=XX+XX+1
9212 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1
9213 >
9214 001424 T=T+1
9215 777777 777776 ZZ=XX
9216 777777 777775 XX=XX+XX+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-8
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0192
9217 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
9218 DMOVE AC,[200777,,-1
9219 037771 120 04 0 00 044203 -1,,-1]
9220 DFAD AC,[200777,,-1
9221 037772 110 04 0 00 044307 XX,,-1]
9222 037773 312 04 0 00 044242 CAME AC,[201777,,-1]
9223 037774 003 04 0 00 001424 ER3 AC,T
9224 037775 312 05 0 00 043722 CAME AC+1,[ZZ&377777,,-1]
9225 037776 004 05 0 00 001424 ER4 AC+1,T
9226 037777 321 10 0 00 037771 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9227
9228 001425 T=T+1
9229 777777 777775 ZZ=XX
9230 777777 777773 XX=XX+XX+1
9231 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
9232 DMOVE AC,[200777,,-1
9233 040000 120 04 0 00 044203 -1,,-1]
9234 DFAD AC,[200777,,-1
9235 040001 110 04 0 00 044311 XX,,-1]
9236 040002 312 04 0 00 044242 CAME AC,[201777,,-1]
9237 040003 003 04 0 00 001425 ER3 AC,T
9238 040004 312 05 0 00 043725 CAME AC+1,[ZZ&377777,,-1]
9239 040005 004 05 0 00 001425 ER4 AC+1,T
9240 040006 321 10 0 00 040000 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9241
9242 001426 T=T+1
9243 777777 777773 ZZ=XX
9244 777777 777767 XX=XX+XX+1
9245 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
9246 DMOVE AC,[200777,,-1
9247 040007 120 04 0 00 044203 -1,,-1]
9248 DFAD AC,[200777,,-1
9249 040010 110 04 0 00 044313 XX,,-1]
9250 040011 312 04 0 00 044242 CAME AC,[201777,,-1]
9251 040012 003 04 0 00 001426 ER3 AC,T
9252 040013 312 05 0 00 043730 CAME AC+1,[ZZ&377777,,-1]
9253 040014 004 05 0 00 001426 ER4 AC+1,T
9254 040015 321 10 0 00 040007 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9255
9256 001427 T=T+1
9257 777777 777767 ZZ=XX
9258 777777 777757 XX=XX+XX+1
9259 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
9260 DMOVE AC,[200777,,-1
9261 040016 120 04 0 00 044203 -1,,-1]
9262 DFAD AC,[200777,,-1
9263 040017 110 04 0 00 044315 XX,,-1]
9264 040020 312 04 0 00 044242 CAME AC,[201777,,-1]
9265 040021 003 04 0 00 001427 ER3 AC,T
9266 040022 312 05 0 00 043733 CAME AC+1,[ZZ&377777,,-1]
9267 040023 004 05 0 00 001427 ER4 AC+1,T
9268 040024 321 10 0 00 040016 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9269
9270 001430 T=T+1
9271 777777 777757 ZZ=XX
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-9
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0193
9272 777777 777737 XX=XX+XX+1
9273 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
9274 DMOVE AC,[200777,,-1
9275 040025 120 04 0 00 044203 -1,,-1]
9276 DFAD AC,[200777,,-1
9277 040026 110 04 0 00 044317 XX,,-1]
9278 040027 312 04 0 00 044242 CAME AC,[201777,,-1]
9279 040030 003 04 0 00 001430 ER3 AC,T
9280 040031 312 05 0 00 043736 CAME AC+1,[ZZ&377777,,-1]
9281 040032 004 05 0 00 001430 ER4 AC+1,T
9282 040033 321 10 0 00 040025 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9283
9284 001431 T=T+1
9285 777777 777737 ZZ=XX
9286 777777 777677 XX=XX+XX+1
9287 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
9288 DMOVE AC,[200777,,-1
9289 040034 120 04 0 00 044203 -1,,-1]
9290 DFAD AC,[200777,,-1
9291 040035 110 04 0 00 044321 XX,,-1]
9292 040036 312 04 0 00 044242 CAME AC,[201777,,-1]
9293 040037 003 04 0 00 001431 ER3 AC,T
9294 040040 312 05 0 00 043741 CAME AC+1,[ZZ&377777,,-1]
9295 040041 004 05 0 00 001431 ER4 AC+1,T
9296 040042 321 10 0 00 040034 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9297
9298 001432 T=T+1
9299 777777 777677 ZZ=XX
9300 777777 777577 XX=XX+XX+1
9301 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
9302 DMOVE AC,[200777,,-1
9303 040043 120 04 0 00 044203 -1,,-1]
9304 DFAD AC,[200777,,-1
9305 040044 110 04 0 00 044323 XX,,-1]
9306 040045 312 04 0 00 044242 CAME AC,[201777,,-1]
9307 040046 003 04 0 00 001432 ER3 AC,T
9308 040047 312 05 0 00 043744 CAME AC+1,[ZZ&377777,,-1]
9309 040050 004 05 0 00 001432 ER4 AC+1,T
9310 040051 321 10 0 00 040043 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9311
9312 001433 T=T+1
9313 777777 777577 ZZ=XX
9314 777777 777377 XX=XX+XX+1
9315 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
9316 DMOVE AC,[200777,,-1
9317 040052 120 04 0 00 044203 -1,,-1]
9318 DFAD AC,[200777,,-1
9319 040053 110 04 0 00 044325 XX,,-1]
9320 040054 312 04 0 00 044242 CAME AC,[201777,,-1]
9321 040055 003 04 0 00 001433 ER3 AC,T
9322 040056 312 05 0 00 043747 CAME AC+1,[ZZ&377777,,-1]
9323 040057 004 05 0 00 001433 ER4 AC+1,T
9324 040060 321 10 0 00 040052 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9325
9326 001434 T=T+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-10
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0194
9327 777777 777377 ZZ=XX
9328 777777 776777 XX=XX+XX+1
9329 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
9330 DMOVE AC,[200777,,-1
9331 040061 120 04 0 00 044203 -1,,-1]
9332 DFAD AC,[200777,,-1
9333 040062 110 04 0 00 044327 XX,,-1]
9334 040063 312 04 0 00 044242 CAME AC,[201777,,-1]
9335 040064 003 04 0 00 001434 ER3 AC,T
9336 040065 312 05 0 00 043752 CAME AC+1,[ZZ&377777,,-1]
9337 040066 004 05 0 00 001434 ER4 AC+1,T
9338 040067 321 10 0 00 040061 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9339
9340 001435 T=T+1
9341 777777 776777 ZZ=XX
9342 777777 775777 XX=XX+XX+1
9343 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
9344 DMOVE AC,[200777,,-1
9345 040070 120 04 0 00 044203 -1,,-1]
9346 DFAD AC,[200777,,-1
9347 040071 110 04 0 00 044331 XX,,-1]
9348 040072 312 04 0 00 044242 CAME AC,[201777,,-1]
9349 040073 003 04 0 00 001435 ER3 AC,T
9350 040074 312 05 0 00 043755 CAME AC+1,[ZZ&377777,,-1]
9351 040075 004 05 0 00 001435 ER4 AC+1,T
9352 040076 321 10 0 00 040070 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9353
9354 001436 T=T+1
9355 777777 775777 ZZ=XX
9356 777777 773777 XX=XX+XX+1
9357 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
9358 DMOVE AC,[200777,,-1
9359 040077 120 04 0 00 044203 -1,,-1]
9360 DFAD AC,[200777,,-1
9361 040100 110 04 0 00 044333 XX,,-1]
9362 040101 312 04 0 00 044242 CAME AC,[201777,,-1]
9363 040102 003 04 0 00 001436 ER3 AC,T
9364 040103 312 05 0 00 043760 CAME AC+1,[ZZ&377777,,-1]
9365 040104 004 05 0 00 001436 ER4 AC+1,T
9366 040105 321 10 0 00 040077 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9367
9368 001437 T=T+1
9369 777777 773777 ZZ=XX
9370 777777 767777 XX=XX+XX+1
9371 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
9372 DMOVE AC,[200777,,-1
9373 040106 120 04 0 00 044203 -1,,-1]
9374 DFAD AC,[200777,,-1
9375 040107 110 04 0 00 044335 XX,,-1]
9376 040110 312 04 0 00 044242 CAME AC,[201777,,-1]
9377 040111 003 04 0 00 001437 ER3 AC,T
9378 040112 312 05 0 00 043763 CAME AC+1,[ZZ&377777,,-1]
9379 040113 004 05 0 00 001437 ER4 AC+1,T
9380 040114 321 10 0 00 040106 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9381
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-11
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0195
9382 001440 T=T+1
9383 777777 767777 ZZ=XX
9384 777777 757777 XX=XX+XX+1
9385 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
9386 DMOVE AC,[200777,,-1
9387 040115 120 04 0 00 044203 -1,,-1]
9388 DFAD AC,[200777,,-1
9389 040116 110 04 0 00 044337 XX,,-1]
9390 040117 312 04 0 00 044242 CAME AC,[201777,,-1]
9391 040120 003 04 0 00 001440 ER3 AC,T
9392 040121 312 05 0 00 043766 CAME AC+1,[ZZ&377777,,-1]
9393 040122 004 05 0 00 001440 ER4 AC+1,T
9394 040123 321 10 0 00 040115 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9395
9396 001441 T=T+1
9397 777777 757777 ZZ=XX
9398 777777 737777 XX=XX+XX+1
9399 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
9400 DMOVE AC,[200777,,-1
9401 040124 120 04 0 00 044203 -1,,-1]
9402 DFAD AC,[200777,,-1
9403 040125 110 04 0 00 044341 XX,,-1]
9404 040126 312 04 0 00 044242 CAME AC,[201777,,-1]
9405 040127 003 04 0 00 001441 ER3 AC,T
9406 040130 312 05 0 00 043771 CAME AC+1,[ZZ&377777,,-1]
9407 040131 004 05 0 00 001441 ER4 AC+1,T
9408 040132 321 10 0 00 040124 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9409
9410 001442 T=T+1
9411 777777 737777 ZZ=XX
9412 777777 677777 XX=XX+XX+1
9413 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
9414 DMOVE AC,[200777,,-1
9415 040133 120 04 0 00 044203 -1,,-1]
9416 DFAD AC,[200777,,-1
9417 040134 110 04 0 00 044343 XX,,-1]
9418 040135 312 04 0 00 044242 CAME AC,[201777,,-1]
9419 040136 003 04 0 00 001442 ER3 AC,T
9420 040137 312 05 0 00 043774 CAME AC+1,[ZZ&377777,,-1]
9421 040140 004 05 0 00 001442 ER4 AC+1,T
9422 040141 321 10 0 00 040133 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9423
9424 001443 T=T+1
9425 777777 677777 ZZ=XX
9426 777777 577777 XX=XX+XX+1
9427 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ&377777,-1^
9428 DMOVE AC,[200777,,-1
9429 040142 120 04 0 00 044203 -1,,-1]
9430 DFAD AC,[200777,,-1
9431 040143 110 04 0 00 044345 XX,,-1]
9432 040144 312 04 0 00 044242 CAME AC,[201777,,-1]
9433 040145 003 04 0 00 001443 ER3 AC,T
9434 040146 312 05 0 00 043777 CAME AC+1,[ZZ&377777,,-1]
9435 040147 004 05 0 00 001443 ER4 AC+1,T
9436 040150 321 10 0 00 040142 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-12
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0196
9437
9438
9439 001444 T=T+1
9440 777777 377777 XX=XX+XX+1
9441 777777 377777 ZZ=XX
9442 DFARP T,200777,-1,-1,-1,200777,-1,XX,-1,201777,-1,ZZ,-1^
9443 DMOVE AC,[200777,,-1
9444 040151 120 04 0 00 044203 -1,,-1]
9445 DFAD AC,[200777,,-1
9446 040152 110 04 0 00 044347 XX,,-1]
9447 040153 312 04 0 00 044242 CAME AC,[201777,,-1]
9448 040154 003 04 0 00 001444 ER3 AC,T
9449 040155 312 05 0 00 043631 CAME AC+1,[ZZ,,-1]
9450 040156 004 05 0 00 001444 ER4 AC+1,T
9451 040157 321 10 0 00 040151 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9452
9453 001445 T=T+1
9454 177777 ZZ=XX&177777
9455 777777 777776 XX=-2
9456 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,-1,ZZ,-1^
9457 DMOVE AC,[200777,,-1
9458 040160 120 04 0 00 044203 -1,,-1]
9459 DFAD AC,[200777,,XX
9460 040161 110 04 0 00 044351 -1,,-1]
9461 040162 312 04 0 00 044242 CAME AC,[201777,,-1]
9462 040163 003 04 0 00 001445 ER3 AC,T
9463 040164 312 05 0 00 044002 CAME AC+1,[ZZ,,-1]
9464 040165 004 05 0 00 001445 ER4 AC+1,T
9465 040166 321 10 0 00 040160 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9466
9467 REPEAT ^D17,
9468 <T=T+1
9469 ZZ=XX
9470 XX=XX+XX+1
9471 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1
9472 >
9473 001446 T=T+1
9474 777777 777776 ZZ=XX
9475 777777 777775 XX=XX+XX+1
9476 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
9477 DMOVE AC,[200777,,-1
9478 040167 120 04 0 00 044203 -1,,-1]
9479 DFAD AC,[200777,,XX
9480 040170 110 04 0 00 044353 -1,,-1]
9481 040171 312 04 0 00 044355 CAME AC,[201777,,ZZ]
9482 040172 003 04 0 00 001446 ER3 AC,T
9483 040173 312 05 0 00 043631 CAME AC+1,[377777,,-1]
9484 040174 004 05 0 00 001446 ER4 AC+1,T
9485 040175 321 10 0 00 040167 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9486
9487 001447 T=T+1
9488 777777 777775 ZZ=XX
9489 777777 777773 XX=XX+XX+1
9490 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
9491 DMOVE AC,[200777,,-1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-13
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0197
9492 040176 120 04 0 00 044203 -1,,-1]
9493 DFAD AC,[200777,,XX
9494 040177 110 04 0 00 044356 -1,,-1]
9495 040200 312 04 0 00 044360 CAME AC,[201777,,ZZ]
9496 040201 003 04 0 00 001447 ER3 AC,T
9497 040202 312 05 0 00 043631 CAME AC+1,[377777,,-1]
9498 040203 004 05 0 00 001447 ER4 AC+1,T
9499 040204 321 10 0 00 040176 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9500
9501 001450 T=T+1
9502 777777 777773 ZZ=XX
9503 777777 777767 XX=XX+XX+1
9504 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
9505 DMOVE AC,[200777,,-1
9506 040205 120 04 0 00 044203 -1,,-1]
9507 DFAD AC,[200777,,XX
9508 040206 110 04 0 00 044361 -1,,-1]
9509 040207 312 04 0 00 044363 CAME AC,[201777,,ZZ]
9510 040210 003 04 0 00 001450 ER3 AC,T
9511 040211 312 05 0 00 043631 CAME AC+1,[377777,,-1]
9512 040212 004 05 0 00 001450 ER4 AC+1,T
9513 040213 321 10 0 00 040205 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9514
9515 001451 T=T+1
9516 777777 777767 ZZ=XX
9517 777777 777757 XX=XX+XX+1
9518 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
9519 DMOVE AC,[200777,,-1
9520 040214 120 04 0 00 044203 -1,,-1]
9521 DFAD AC,[200777,,XX
9522 040215 110 04 0 00 044364 -1,,-1]
9523 040216 312 04 0 00 044366 CAME AC,[201777,,ZZ]
9524 040217 003 04 0 00 001451 ER3 AC,T
9525 040220 312 05 0 00 043631 CAME AC+1,[377777,,-1]
9526 040221 004 05 0 00 001451 ER4 AC+1,T
9527 040222 321 10 0 00 040214 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9528
9529 001452 T=T+1
9530 777777 777757 ZZ=XX
9531 777777 777737 XX=XX+XX+1
9532 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
9533 DMOVE AC,[200777,,-1
9534 040223 120 04 0 00 044203 -1,,-1]
9535 DFAD AC,[200777,,XX
9536 040224 110 04 0 00 044367 -1,,-1]
9537 040225 312 04 0 00 044371 CAME AC,[201777,,ZZ]
9538 040226 003 04 0 00 001452 ER3 AC,T
9539 040227 312 05 0 00 043631 CAME AC+1,[377777,,-1]
9540 040230 004 05 0 00 001452 ER4 AC+1,T
9541 040231 321 10 0 00 040223 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9542
9543 001453 T=T+1
9544 777777 777737 ZZ=XX
9545 777777 777677 XX=XX+XX+1
9546 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-14
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0198
9547 DMOVE AC,[200777,,-1
9548 040232 120 04 0 00 044203 -1,,-1]
9549 DFAD AC,[200777,,XX
9550 040233 110 04 0 00 044372 -1,,-1]
9551 040234 312 04 0 00 044374 CAME AC,[201777,,ZZ]
9552 040235 003 04 0 00 001453 ER3 AC,T
9553 040236 312 05 0 00 043631 CAME AC+1,[377777,,-1]
9554 040237 004 05 0 00 001453 ER4 AC+1,T
9555 040240 321 10 0 00 040232 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9556
9557 001454 T=T+1
9558 777777 777677 ZZ=XX
9559 777777 777577 XX=XX+XX+1
9560 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
9561 DMOVE AC,[200777,,-1
9562 040241 120 04 0 00 044203 -1,,-1]
9563 DFAD AC,[200777,,XX
9564 040242 110 04 0 00 044375 -1,,-1]
9565 040243 312 04 0 00 044377 CAME AC,[201777,,ZZ]
9566 040244 003 04 0 00 001454 ER3 AC,T
9567 040245 312 05 0 00 043631 CAME AC+1,[377777,,-1]
9568 040246 004 05 0 00 001454 ER4 AC+1,T
9569 040247 321 10 0 00 040241 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9570
9571 001455 T=T+1
9572 777777 777577 ZZ=XX
9573 777777 777377 XX=XX+XX+1
9574 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
9575 DMOVE AC,[200777,,-1
9576 040250 120 04 0 00 044203 -1,,-1]
9577 DFAD AC,[200777,,XX
9578 040251 110 04 0 00 044400 -1,,-1]
9579 040252 312 04 0 00 044402 CAME AC,[201777,,ZZ]
9580 040253 003 04 0 00 001455 ER3 AC,T
9581 040254 312 05 0 00 043631 CAME AC+1,[377777,,-1]
9582 040255 004 05 0 00 001455 ER4 AC+1,T
9583 040256 321 10 0 00 040250 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9584
9585 001456 T=T+1
9586 777777 777377 ZZ=XX
9587 777777 776777 XX=XX+XX+1
9588 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
9589 DMOVE AC,[200777,,-1
9590 040257 120 04 0 00 044203 -1,,-1]
9591 DFAD AC,[200777,,XX
9592 040260 110 04 0 00 044403 -1,,-1]
9593 040261 312 04 0 00 044405 CAME AC,[201777,,ZZ]
9594 040262 003 04 0 00 001456 ER3 AC,T
9595 040263 312 05 0 00 043631 CAME AC+1,[377777,,-1]
9596 040264 004 05 0 00 001456 ER4 AC+1,T
9597 040265 321 10 0 00 040257 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9598
9599 001457 T=T+1
9600 777777 776777 ZZ=XX
9601 777777 775777 XX=XX+XX+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-15
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0199
9602 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
9603 DMOVE AC,[200777,,-1
9604 040266 120 04 0 00 044203 -1,,-1]
9605 DFAD AC,[200777,,XX
9606 040267 110 04 0 00 044406 -1,,-1]
9607 040270 312 04 0 00 044410 CAME AC,[201777,,ZZ]
9608 040271 003 04 0 00 001457 ER3 AC,T
9609 040272 312 05 0 00 043631 CAME AC+1,[377777,,-1]
9610 040273 004 05 0 00 001457 ER4 AC+1,T
9611 040274 321 10 0 00 040266 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9612
9613 001460 T=T+1
9614 777777 775777 ZZ=XX
9615 777777 773777 XX=XX+XX+1
9616 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
9617 DMOVE AC,[200777,,-1
9618 040275 120 04 0 00 044203 -1,,-1]
9619 DFAD AC,[200777,,XX
9620 040276 110 04 0 00 044411 -1,,-1]
9621 040277 312 04 0 00 044413 CAME AC,[201777,,ZZ]
9622 040300 003 04 0 00 001460 ER3 AC,T
9623 040301 312 05 0 00 043631 CAME AC+1,[377777,,-1]
9624 040302 004 05 0 00 001460 ER4 AC+1,T
9625 040303 321 10 0 00 040275 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9626
9627 001461 T=T+1
9628 777777 773777 ZZ=XX
9629 777777 767777 XX=XX+XX+1
9630 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
9631 DMOVE AC,[200777,,-1
9632 040304 120 04 0 00 044203 -1,,-1]
9633 DFAD AC,[200777,,XX
9634 040305 110 04 0 00 044414 -1,,-1]
9635 040306 312 04 0 00 044416 CAME AC,[201777,,ZZ]
9636 040307 003 04 0 00 001461 ER3 AC,T
9637 040310 312 05 0 00 043631 CAME AC+1,[377777,,-1]
9638 040311 004 05 0 00 001461 ER4 AC+1,T
9639 040312 321 10 0 00 040304 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9640
9641 001462 T=T+1
9642 777777 767777 ZZ=XX
9643 777777 757777 XX=XX+XX+1
9644 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
9645 DMOVE AC,[200777,,-1
9646 040313 120 04 0 00 044203 -1,,-1]
9647 DFAD AC,[200777,,XX
9648 040314 110 04 0 00 044417 -1,,-1]
9649 040315 312 04 0 00 044421 CAME AC,[201777,,ZZ]
9650 040316 003 04 0 00 001462 ER3 AC,T
9651 040317 312 05 0 00 043631 CAME AC+1,[377777,,-1]
9652 040320 004 05 0 00 001462 ER4 AC+1,T
9653 040321 321 10 0 00 040313 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9654
9655 001463 T=T+1
9656 777777 757777 ZZ=XX
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-16
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0200
9657 777777 737777 XX=XX+XX+1
9658 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
9659 DMOVE AC,[200777,,-1
9660 040322 120 04 0 00 044203 -1,,-1]
9661 DFAD AC,[200777,,XX
9662 040323 110 04 0 00 044422 -1,,-1]
9663 040324 312 04 0 00 044424 CAME AC,[201777,,ZZ]
9664 040325 003 04 0 00 001463 ER3 AC,T
9665 040326 312 05 0 00 043631 CAME AC+1,[377777,,-1]
9666 040327 004 05 0 00 001463 ER4 AC+1,T
9667 040330 321 10 0 00 040322 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9668
9669 001464 T=T+1
9670 777777 737777 ZZ=XX
9671 777777 677777 XX=XX+XX+1
9672 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
9673 DMOVE AC,[200777,,-1
9674 040331 120 04 0 00 044203 -1,,-1]
9675 DFAD AC,[200777,,XX
9676 040332 110 04 0 00 044425 -1,,-1]
9677 040333 312 04 0 00 044427 CAME AC,[201777,,ZZ]
9678 040334 003 04 0 00 001464 ER3 AC,T
9679 040335 312 05 0 00 043631 CAME AC+1,[377777,,-1]
9680 040336 004 05 0 00 001464 ER4 AC+1,T
9681 040337 321 10 0 00 040331 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9682
9683 001465 T=T+1
9684 777777 677777 ZZ=XX
9685 777777 577777 XX=XX+XX+1
9686 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
9687 DMOVE AC,[200777,,-1
9688 040340 120 04 0 00 044203 -1,,-1]
9689 DFAD AC,[200777,,XX
9690 040341 110 04 0 00 044430 -1,,-1]
9691 040342 312 04 0 00 044432 CAME AC,[201777,,ZZ]
9692 040343 003 04 0 00 001465 ER3 AC,T
9693 040344 312 05 0 00 043631 CAME AC+1,[377777,,-1]
9694 040345 004 05 0 00 001465 ER4 AC+1,T
9695 040346 321 10 0 00 040340 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9696
9697 001466 T=T+1
9698 777777 577777 ZZ=XX
9699 777777 377777 XX=XX+XX+1
9700 DFARP T,200777,-1,-1,-1,200777,XX,-1,-1,201777,ZZ,377777,-1^
9701 DMOVE AC,[200777,,-1
9702 040347 120 04 0 00 044203 -1,,-1]
9703 DFAD AC,[200777,,XX
9704 040350 110 04 0 00 044433 -1,,-1]
9705 040351 312 04 0 00 044435 CAME AC,[201777,,ZZ]
9706 040352 003 04 0 00 001466 ER3 AC,T
9707 040353 312 05 0 00 043631 CAME AC+1,[377777,,-1]
9708 040354 004 05 0 00 001466 ER4 AC+1,T
9709 040355 321 10 0 00 040347 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9710
9711
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 10-17
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0201
9712 001467 T=T+1
9713 777777 377777 ZZ=XX
9714 777777 777776 XX=-2
9715 DFARP T,200777,-1,-1,-1,200777&XX,-1,-1,-1,201777,ZZ,377777,-1^
9716 DMOVE AC,[200777,,-1
9717 040356 120 04 0 00 044203 -1,,-1]
9718 DFAD AC,[200777&XX,,-1
9719 040357 110 04 0 00 044436 -1,,-1]
9720 040360 312 04 0 00 044440 CAME AC,[201777,,ZZ]
9721 040361 003 04 0 00 001467 ER3 AC,T
9722 040362 312 05 0 00 043631 CAME AC+1,[377777,,-1]
9723 040363 004 05 0 00 001467 ER4 AC+1,T
9724 040364 321 10 0 00 040356 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9725
9726 REPEAT ^D8,
9727 <T=T+1
9728 ZZ=XX
9729 XX=XX+XX+1
9730 DFARP T,200777,-1,-1,-1,200777&XX,-1,-1,-1,201777&ZZ,-1,377777,-1
9731 >
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0202
9732 001470 T=T+1
9733 777777 777776 ZZ=XX
9734 777777 777775 XX=XX+XX+1
9735 DFARP T,200777,-1,-1,-1,200777&XX,-1,-1,-1,201777&ZZ,-1,377777,-1^
9736 DMOVE AC,[200777,,-1
9737 040365 120 04 0 00 044203 -1,,-1]
9738 DFAD AC,[200777&XX,,-1
9739 040366 110 04 0 00 044441 -1,,-1]
9740 040367 312 04 0 00 044443 CAME AC,[201777&ZZ,,-1]
9741 040370 003 04 0 00 001470 ER3 AC,T
9742 040371 312 05 0 00 043631 CAME AC+1,[377777,,-1]
9743 040372 004 05 0 00 001470 ER4 AC+1,T
9744 040373 321 10 0 00 040365 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9745
9746 001471 T=T+1
9747 777777 777775 ZZ=XX
9748 777777 777773 XX=XX+XX+1
9749 DFARP T,200777,-1,-1,-1,200777&XX,-1,-1,-1,201777&ZZ,-1,377777,-1^
9750 DMOVE AC,[200777,,-1
9751 040374 120 04 0 00 044203 -1,,-1]
9752 DFAD AC,[200777&XX,,-1
9753 040375 110 04 0 00 044444 -1,,-1]
9754 040376 312 04 0 00 044446 CAME AC,[201777&ZZ,,-1]
9755 040377 003 04 0 00 001471 ER3 AC,T
9756 040400 312 05 0 00 043631 CAME AC+1,[377777,,-1]
9757 040401 004 05 0 00 001471 ER4 AC+1,T
9758 040402 321 10 0 00 040374 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9759
9760 001472 T=T+1
9761 777777 777773 ZZ=XX
9762 777777 777767 XX=XX+XX+1
9763 DFARP T,200777,-1,-1,-1,200777&XX,-1,-1,-1,201777&ZZ,-1,377777,-1^
9764 DMOVE AC,[200777,,-1
9765 040403 120 04 0 00 044203 -1,,-1]
9766 DFAD AC,[200777&XX,,-1
9767 040404 110 04 0 00 044447 -1,,-1]
9768 040405 312 04 0 00 044451 CAME AC,[201777&ZZ,,-1]
9769 040406 003 04 0 00 001472 ER3 AC,T
9770 040407 312 05 0 00 043631 CAME AC+1,[377777,,-1]
9771 040410 004 05 0 00 001472 ER4 AC+1,T
9772 040411 321 10 0 00 040403 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9773
9774 001473 T=T+1
9775 777777 777767 ZZ=XX
9776 777777 777757 XX=XX+XX+1
9777 DFARP T,200777,-1,-1,-1,200777&XX,-1,-1,-1,201777&ZZ,-1,377777,-1^
9778 DMOVE AC,[200777,,-1
9779 040412 120 04 0 00 044203 -1,,-1]
9780 DFAD AC,[200777&XX,,-1
9781 040413 110 04 0 00 044452 -1,,-1]
9782 040414 312 04 0 00 044454 CAME AC,[201777&ZZ,,-1]
9783 040415 003 04 0 00 001473 ER3 AC,T
9784 040416 312 05 0 00 043631 CAME AC+1,[377777,,-1]
9785 040417 004 05 0 00 001473 ER4 AC+1,T
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-1
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0203
9786 040420 321 10 0 00 040412 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9787
9788 001474 T=T+1
9789 777777 777757 ZZ=XX
9790 777777 777737 XX=XX+XX+1
9791 DFARP T,200777,-1,-1,-1,200777&XX,-1,-1,-1,201777&ZZ,-1,377777,-1^
9792 DMOVE AC,[200777,,-1
9793 040421 120 04 0 00 044203 -1,,-1]
9794 DFAD AC,[200777&XX,,-1
9795 040422 110 04 0 00 044455 -1,,-1]
9796 040423 312 04 0 00 044457 CAME AC,[201777&ZZ,,-1]
9797 040424 003 04 0 00 001474 ER3 AC,T
9798 040425 312 05 0 00 043631 CAME AC+1,[377777,,-1]
9799 040426 004 05 0 00 001474 ER4 AC+1,T
9800 040427 321 10 0 00 040421 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9801
9802 001475 T=T+1
9803 777777 777737 ZZ=XX
9804 777777 777677 XX=XX+XX+1
9805 DFARP T,200777,-1,-1,-1,200777&XX,-1,-1,-1,201777&ZZ,-1,377777,-1^
9806 DMOVE AC,[200777,,-1
9807 040430 120 04 0 00 044203 -1,,-1]
9808 DFAD AC,[200777&XX,,-1
9809 040431 110 04 0 00 044460 -1,,-1]
9810 040432 312 04 0 00 044462 CAME AC,[201777&ZZ,,-1]
9811 040433 003 04 0 00 001475 ER3 AC,T
9812 040434 312 05 0 00 043631 CAME AC+1,[377777,,-1]
9813 040435 004 05 0 00 001475 ER4 AC+1,T
9814 040436 321 10 0 00 040430 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9815
9816 001476 T=T+1
9817 777777 777677 ZZ=XX
9818 777777 777577 XX=XX+XX+1
9819 DFARP T,200777,-1,-1,-1,200777&XX,-1,-1,-1,201777&ZZ,-1,377777,-1^
9820 DMOVE AC,[200777,,-1
9821 040437 120 04 0 00 044203 -1,,-1]
9822 DFAD AC,[200777&XX,,-1
9823 040440 110 04 0 00 044463 -1,,-1]
9824 040441 312 04 0 00 044465 CAME AC,[201777&ZZ,,-1]
9825 040442 003 04 0 00 001476 ER3 AC,T
9826 040443 312 05 0 00 043631 CAME AC+1,[377777,,-1]
9827 040444 004 05 0 00 001476 ER4 AC+1,T
9828 040445 321 10 0 00 040437 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9829
9830 001477 T=T+1
9831 777777 777577 ZZ=XX
9832 777777 777377 XX=XX+XX+1
9833 DFARP T,200777,-1,-1,-1,200777&XX,-1,-1,-1,201777&ZZ,-1,377777,-1^
9834 DMOVE AC,[200777,,-1
9835 040446 120 04 0 00 044203 -1,,-1]
9836 DFAD AC,[200777&XX,,-1
9837 040447 110 04 0 00 044466 -1,,-1]
9838 040450 312 04 0 00 044470 CAME AC,[201777&ZZ,,-1]
9839 040451 003 04 0 00 001477 ER3 AC,T
9840 040452 312 05 0 00 043631 CAME AC+1,[377777,,-1]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-2
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0204
9841 040453 004 05 0 00 001477 ER4 AC+1,T
9842 040454 321 10 0 00 040446 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9843
9844 ;RIPPLE ZEROS TESTS (TO A RIPPLED ZERO, ADD A FRACTION OF ALL ONES)
9845
9846 001500 T=1500
9847
9848 000000 XX=0
9849
9850 R1500: REPEAT ^D18,
9851 <T=T+1
9852 ZZ=XX
9853 IFE ZZ,<ZZ=-1>
9854 XX=XX+XX+1
9855 IFE <XX-1>,<XX=-2>
9856 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ
9857 >
9858 001501 T=T+1
9859 000000 ZZ=XX
9860 777777 777777 IFE ZZ,<ZZ=-1>
9861 000001 XX=XX+XX+1
9862 777777 777776 IFE <XX-1>,<XX=-2>
9863 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
9864 DMOVE AC,[200777,,-1
9865 040455 120 04 0 00 044240 -1,,XX]
9866 DFAD AC,[200777,,-1
9867 040456 110 04 0 00 044203 -1,,-1]
9868 040457 312 04 0 00 044242 CAME AC,[201777,,-1]
9869 040460 003 04 0 00 001501 ER3 AC,T
9870 040461 312 05 0 00 043631 CAME AC+1,[377777,,ZZ]
9871 040462 004 05 0 00 001501 ER4 AC+1,T
9872 040463 321 10 0 00 040455 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9873
9874 001502 T=T+1
9875 777777 777776 ZZ=XX
9876 IFE ZZ,<ZZ=-1>
9877 777777 777775 XX=XX+XX+1
9878 IFE <XX-1>,<XX=-2>
9879 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
9880 DMOVE AC,[200777,,-1
9881 040464 120 04 0 00 044243 -1,,XX]
9882 DFAD AC,[200777,,-1
9883 040465 110 04 0 00 044203 -1,,-1]
9884 040466 312 04 0 00 044242 CAME AC,[201777,,-1]
9885 040467 003 04 0 00 001502 ER3 AC,T
9886 040470 312 05 0 00 043634 CAME AC+1,[377777,,ZZ]
9887 040471 004 05 0 00 001502 ER4 AC+1,T
9888 040472 321 10 0 00 040464 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9889
9890 001503 T=T+1
9891 777777 777775 ZZ=XX
9892 IFE ZZ,<ZZ=-1>
9893 777777 777773 XX=XX+XX+1
9894 IFE <XX-1>,<XX=-2>
9895 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-3
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0205
9896 DMOVE AC,[200777,,-1
9897 040473 120 04 0 00 044245 -1,,XX]
9898 DFAD AC,[200777,,-1
9899 040474 110 04 0 00 044203 -1,,-1]
9900 040475 312 04 0 00 044242 CAME AC,[201777,,-1]
9901 040476 003 04 0 00 001503 ER3 AC,T
9902 040477 312 05 0 00 043637 CAME AC+1,[377777,,ZZ]
9903 040500 004 05 0 00 001503 ER4 AC+1,T
9904 040501 321 10 0 00 040473 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9905
9906 001504 T=T+1
9907 777777 777773 ZZ=XX
9908 IFE ZZ,<ZZ=-1>
9909 777777 777767 XX=XX+XX+1
9910 IFE <XX-1>,<XX=-2>
9911 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
9912 DMOVE AC,[200777,,-1
9913 040502 120 04 0 00 044247 -1,,XX]
9914 DFAD AC,[200777,,-1
9915 040503 110 04 0 00 044203 -1,,-1]
9916 040504 312 04 0 00 044242 CAME AC,[201777,,-1]
9917 040505 003 04 0 00 001504 ER3 AC,T
9918 040506 312 05 0 00 043642 CAME AC+1,[377777,,ZZ]
9919 040507 004 05 0 00 001504 ER4 AC+1,T
9920 040510 321 10 0 00 040502 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9921
9922 001505 T=T+1
9923 777777 777767 ZZ=XX
9924 IFE ZZ,<ZZ=-1>
9925 777777 777757 XX=XX+XX+1
9926 IFE <XX-1>,<XX=-2>
9927 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
9928 DMOVE AC,[200777,,-1
9929 040511 120 04 0 00 044251 -1,,XX]
9930 DFAD AC,[200777,,-1
9931 040512 110 04 0 00 044203 -1,,-1]
9932 040513 312 04 0 00 044242 CAME AC,[201777,,-1]
9933 040514 003 04 0 00 001505 ER3 AC,T
9934 040515 312 05 0 00 043645 CAME AC+1,[377777,,ZZ]
9935 040516 004 05 0 00 001505 ER4 AC+1,T
9936 040517 321 10 0 00 040511 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9937
9938 001506 T=T+1
9939 777777 777757 ZZ=XX
9940 IFE ZZ,<ZZ=-1>
9941 777777 777737 XX=XX+XX+1
9942 IFE <XX-1>,<XX=-2>
9943 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
9944 DMOVE AC,[200777,,-1
9945 040520 120 04 0 00 044253 -1,,XX]
9946 DFAD AC,[200777,,-1
9947 040521 110 04 0 00 044203 -1,,-1]
9948 040522 312 04 0 00 044242 CAME AC,[201777,,-1]
9949 040523 003 04 0 00 001506 ER3 AC,T
9950 040524 312 05 0 00 043650 CAME AC+1,[377777,,ZZ]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-4
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0206
9951 040525 004 05 0 00 001506 ER4 AC+1,T
9952 040526 321 10 0 00 040520 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9953
9954 001507 T=T+1
9955 777777 777737 ZZ=XX
9956 IFE ZZ,<ZZ=-1>
9957 777777 777677 XX=XX+XX+1
9958 IFE <XX-1>,<XX=-2>
9959 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
9960 DMOVE AC,[200777,,-1
9961 040527 120 04 0 00 044255 -1,,XX]
9962 DFAD AC,[200777,,-1
9963 040530 110 04 0 00 044203 -1,,-1]
9964 040531 312 04 0 00 044242 CAME AC,[201777,,-1]
9965 040532 003 04 0 00 001507 ER3 AC,T
9966 040533 312 05 0 00 043653 CAME AC+1,[377777,,ZZ]
9967 040534 004 05 0 00 001507 ER4 AC+1,T
9968 040535 321 10 0 00 040527 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9969
9970 001510 T=T+1
9971 777777 777677 ZZ=XX
9972 IFE ZZ,<ZZ=-1>
9973 777777 777577 XX=XX+XX+1
9974 IFE <XX-1>,<XX=-2>
9975 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
9976 DMOVE AC,[200777,,-1
9977 040536 120 04 0 00 044257 -1,,XX]
9978 DFAD AC,[200777,,-1
9979 040537 110 04 0 00 044203 -1,,-1]
9980 040540 312 04 0 00 044242 CAME AC,[201777,,-1]
9981 040541 003 04 0 00 001510 ER3 AC,T
9982 040542 312 05 0 00 043656 CAME AC+1,[377777,,ZZ]
9983 040543 004 05 0 00 001510 ER4 AC+1,T
9984 040544 321 10 0 00 040536 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
9985
9986 001511 T=T+1
9987 777777 777577 ZZ=XX
9988 IFE ZZ,<ZZ=-1>
9989 777777 777377 XX=XX+XX+1
9990 IFE <XX-1>,<XX=-2>
9991 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
9992 DMOVE AC,[200777,,-1
9993 040545 120 04 0 00 044261 -1,,XX]
9994 DFAD AC,[200777,,-1
9995 040546 110 04 0 00 044203 -1,,-1]
9996 040547 312 04 0 00 044242 CAME AC,[201777,,-1]
9997 040550 003 04 0 00 001511 ER3 AC,T
9998 040551 312 05 0 00 043661 CAME AC+1,[377777,,ZZ]
9999 040552 004 05 0 00 001511 ER4 AC+1,T
10000 040553 321 10 0 00 040545 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10001
10002 001512 T=T+1
10003 777777 777377 ZZ=XX
10004 IFE ZZ,<ZZ=-1>
10005 777777 776777 XX=XX+XX+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-5
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0207
10006 IFE <XX-1>,<XX=-2>
10007 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
10008 DMOVE AC,[200777,,-1
10009 040554 120 04 0 00 044263 -1,,XX]
10010 DFAD AC,[200777,,-1
10011 040555 110 04 0 00 044203 -1,,-1]
10012 040556 312 04 0 00 044242 CAME AC,[201777,,-1]
10013 040557 003 04 0 00 001512 ER3 AC,T
10014 040560 312 05 0 00 043664 CAME AC+1,[377777,,ZZ]
10015 040561 004 05 0 00 001512 ER4 AC+1,T
10016 040562 321 10 0 00 040554 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10017
10018 001513 T=T+1
10019 777777 776777 ZZ=XX
10020 IFE ZZ,<ZZ=-1>
10021 777777 775777 XX=XX+XX+1
10022 IFE <XX-1>,<XX=-2>
10023 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
10024 DMOVE AC,[200777,,-1
10025 040563 120 04 0 00 044265 -1,,XX]
10026 DFAD AC,[200777,,-1
10027 040564 110 04 0 00 044203 -1,,-1]
10028 040565 312 04 0 00 044242 CAME AC,[201777,,-1]
10029 040566 003 04 0 00 001513 ER3 AC,T
10030 040567 312 05 0 00 043667 CAME AC+1,[377777,,ZZ]
10031 040570 004 05 0 00 001513 ER4 AC+1,T
10032 040571 321 10 0 00 040563 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10033
10034 001514 T=T+1
10035 777777 775777 ZZ=XX
10036 IFE ZZ,<ZZ=-1>
10037 777777 773777 XX=XX+XX+1
10038 IFE <XX-1>,<XX=-2>
10039 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
10040 DMOVE AC,[200777,,-1
10041 040572 120 04 0 00 044267 -1,,XX]
10042 DFAD AC,[200777,,-1
10043 040573 110 04 0 00 044203 -1,,-1]
10044 040574 312 04 0 00 044242 CAME AC,[201777,,-1]
10045 040575 003 04 0 00 001514 ER3 AC,T
10046 040576 312 05 0 00 043672 CAME AC+1,[377777,,ZZ]
10047 040577 004 05 0 00 001514 ER4 AC+1,T
10048 040600 321 10 0 00 040572 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10049
10050 001515 T=T+1
10051 777777 773777 ZZ=XX
10052 IFE ZZ,<ZZ=-1>
10053 777777 767777 XX=XX+XX+1
10054 IFE <XX-1>,<XX=-2>
10055 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
10056 DMOVE AC,[200777,,-1
10057 040601 120 04 0 00 044271 -1,,XX]
10058 DFAD AC,[200777,,-1
10059 040602 110 04 0 00 044203 -1,,-1]
10060 040603 312 04 0 00 044242 CAME AC,[201777,,-1]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-6
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0208
10061 040604 003 04 0 00 001515 ER3 AC,T
10062 040605 312 05 0 00 043675 CAME AC+1,[377777,,ZZ]
10063 040606 004 05 0 00 001515 ER4 AC+1,T
10064 040607 321 10 0 00 040601 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10065
10066 001516 T=T+1
10067 777777 767777 ZZ=XX
10068 IFE ZZ,<ZZ=-1>
10069 777777 757777 XX=XX+XX+1
10070 IFE <XX-1>,<XX=-2>
10071 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
10072 DMOVE AC,[200777,,-1
10073 040610 120 04 0 00 044273 -1,,XX]
10074 DFAD AC,[200777,,-1
10075 040611 110 04 0 00 044203 -1,,-1]
10076 040612 312 04 0 00 044242 CAME AC,[201777,,-1]
10077 040613 003 04 0 00 001516 ER3 AC,T
10078 040614 312 05 0 00 043700 CAME AC+1,[377777,,ZZ]
10079 040615 004 05 0 00 001516 ER4 AC+1,T
10080 040616 321 10 0 00 040610 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10081
10082 001517 T=T+1
10083 777777 757777 ZZ=XX
10084 IFE ZZ,<ZZ=-1>
10085 777777 737777 XX=XX+XX+1
10086 IFE <XX-1>,<XX=-2>
10087 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
10088 DMOVE AC,[200777,,-1
10089 040617 120 04 0 00 044275 -1,,XX]
10090 DFAD AC,[200777,,-1
10091 040620 110 04 0 00 044203 -1,,-1]
10092 040621 312 04 0 00 044242 CAME AC,[201777,,-1]
10093 040622 003 04 0 00 001517 ER3 AC,T
10094 040623 312 05 0 00 043703 CAME AC+1,[377777,,ZZ]
10095 040624 004 05 0 00 001517 ER4 AC+1,T
10096 040625 321 10 0 00 040617 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10097
10098 001520 T=T+1
10099 777777 737777 ZZ=XX
10100 IFE ZZ,<ZZ=-1>
10101 777777 677777 XX=XX+XX+1
10102 IFE <XX-1>,<XX=-2>
10103 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
10104 DMOVE AC,[200777,,-1
10105 040626 120 04 0 00 044277 -1,,XX]
10106 DFAD AC,[200777,,-1
10107 040627 110 04 0 00 044203 -1,,-1]
10108 040630 312 04 0 00 044242 CAME AC,[201777,,-1]
10109 040631 003 04 0 00 001520 ER3 AC,T
10110 040632 312 05 0 00 043706 CAME AC+1,[377777,,ZZ]
10111 040633 004 05 0 00 001520 ER4 AC+1,T
10112 040634 321 10 0 00 040626 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10113
10114 001521 T=T+1
10115 777777 677777 ZZ=XX
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-7
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0209
10116 IFE ZZ,<ZZ=-1>
10117 777777 577777 XX=XX+XX+1
10118 IFE <XX-1>,<XX=-2>
10119 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
10120 DMOVE AC,[200777,,-1
10121 040635 120 04 0 00 044301 -1,,XX]
10122 DFAD AC,[200777,,-1
10123 040636 110 04 0 00 044203 -1,,-1]
10124 040637 312 04 0 00 044242 CAME AC,[201777,,-1]
10125 040640 003 04 0 00 001521 ER3 AC,T
10126 040641 312 05 0 00 043711 CAME AC+1,[377777,,ZZ]
10127 040642 004 05 0 00 001521 ER4 AC+1,T
10128 040643 321 10 0 00 040635 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10129
10130 001522 T=T+1
10131 777777 577777 ZZ=XX
10132 IFE ZZ,<ZZ=-1>
10133 777777 377777 XX=XX+XX+1
10134 IFE <XX-1>,<XX=-2>
10135 DFARP T,200777,-1,-1,XX,200777,-1,-1,-1,201777,-1,377777,ZZ^
10136 DMOVE AC,[200777,,-1
10137 040644 120 04 0 00 044303 -1,,XX]
10138 DFAD AC,[200777,,-1
10139 040645 110 04 0 00 044203 -1,,-1]
10140 040646 312 04 0 00 044242 CAME AC,[201777,,-1]
10141 040647 003 04 0 00 001522 ER3 AC,T
10142 040650 312 05 0 00 043714 CAME AC+1,[377777,,ZZ]
10143 040651 004 05 0 00 001522 ER4 AC+1,T
10144 040652 321 10 0 00 040644 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10145
10146
10147 001523 T=T+1
10148 777777 377777 ZZ=XX
10149 777777 777776 XX=-2
10150 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,377777,ZZ^
10151 DMOVE AC,[200777,,-1
10152 040653 120 04 0 00 044305 XX,,-1]
10153 DFAD AC,[200777,,-1
10154 040654 110 04 0 00 044203 -1,,-1]
10155 040655 312 04 0 00 044242 CAME AC,[201777,,-1]
10156 040656 003 04 0 00 001523 ER3 AC,T
10157 040657 312 05 0 00 043717 CAME AC+1,[377777,,ZZ]
10158 040660 004 05 0 00 001523 ER4 AC+1,T
10159 040661 321 10 0 00 040653 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10160
10161 REPEAT ^D16,
10162 <T=T+1
10163 ZZ=XX
10164 XX=XX+XX+1
10165 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1
10166 >
10167 001524 T=T+1
10168 777777 777776 ZZ=XX
10169 777777 777775 XX=XX+XX+1
10170 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-8
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0210
10171 DMOVE AC,[200777,,-1
10172 040662 120 04 0 00 044307 XX,,-1]
10173 DFAD AC,[200777,,-1
10174 040663 110 04 0 00 044203 -1,,-1]
10175 040664 312 04 0 00 044242 CAME AC,[201777,,-1]
10176 040665 003 04 0 00 001524 ER3 AC,T
10177 040666 312 05 0 00 043722 CAME AC+1,[ZZ&377777,,-1]
10178 040667 004 05 0 00 001524 ER4 AC+1,T
10179 040670 321 10 0 00 040662 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10180
10181 001525 T=T+1
10182 777777 777775 ZZ=XX
10183 777777 777773 XX=XX+XX+1
10184 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
10185 DMOVE AC,[200777,,-1
10186 040671 120 04 0 00 044311 XX,,-1]
10187 DFAD AC,[200777,,-1
10188 040672 110 04 0 00 044203 -1,,-1]
10189 040673 312 04 0 00 044242 CAME AC,[201777,,-1]
10190 040674 003 04 0 00 001525 ER3 AC,T
10191 040675 312 05 0 00 043725 CAME AC+1,[ZZ&377777,,-1]
10192 040676 004 05 0 00 001525 ER4 AC+1,T
10193 040677 321 10 0 00 040671 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10194
10195 001526 T=T+1
10196 777777 777773 ZZ=XX
10197 777777 777767 XX=XX+XX+1
10198 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
10199 DMOVE AC,[200777,,-1
10200 040700 120 04 0 00 044313 XX,,-1]
10201 DFAD AC,[200777,,-1
10202 040701 110 04 0 00 044203 -1,,-1]
10203 040702 312 04 0 00 044242 CAME AC,[201777,,-1]
10204 040703 003 04 0 00 001526 ER3 AC,T
10205 040704 312 05 0 00 043730 CAME AC+1,[ZZ&377777,,-1]
10206 040705 004 05 0 00 001526 ER4 AC+1,T
10207 040706 321 10 0 00 040700 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10208
10209 001527 T=T+1
10210 777777 777767 ZZ=XX
10211 777777 777757 XX=XX+XX+1
10212 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
10213 DMOVE AC,[200777,,-1
10214 040707 120 04 0 00 044315 XX,,-1]
10215 DFAD AC,[200777,,-1
10216 040710 110 04 0 00 044203 -1,,-1]
10217 040711 312 04 0 00 044242 CAME AC,[201777,,-1]
10218 040712 003 04 0 00 001527 ER3 AC,T
10219 040713 312 05 0 00 043733 CAME AC+1,[ZZ&377777,,-1]
10220 040714 004 05 0 00 001527 ER4 AC+1,T
10221 040715 321 10 0 00 040707 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10222
10223 001530 T=T+1
10224 777777 777757 ZZ=XX
10225 777777 777737 XX=XX+XX+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-9
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0211
10226 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
10227 DMOVE AC,[200777,,-1
10228 040716 120 04 0 00 044317 XX,,-1]
10229 DFAD AC,[200777,,-1
10230 040717 110 04 0 00 044203 -1,,-1]
10231 040720 312 04 0 00 044242 CAME AC,[201777,,-1]
10232 040721 003 04 0 00 001530 ER3 AC,T
10233 040722 312 05 0 00 043736 CAME AC+1,[ZZ&377777,,-1]
10234 040723 004 05 0 00 001530 ER4 AC+1,T
10235 040724 321 10 0 00 040716 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10236
10237 001531 T=T+1
10238 777777 777737 ZZ=XX
10239 777777 777677 XX=XX+XX+1
10240 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
10241 DMOVE AC,[200777,,-1
10242 040725 120 04 0 00 044321 XX,,-1]
10243 DFAD AC,[200777,,-1
10244 040726 110 04 0 00 044203 -1,,-1]
10245 040727 312 04 0 00 044242 CAME AC,[201777,,-1]
10246 040730 003 04 0 00 001531 ER3 AC,T
10247 040731 312 05 0 00 043741 CAME AC+1,[ZZ&377777,,-1]
10248 040732 004 05 0 00 001531 ER4 AC+1,T
10249 040733 321 10 0 00 040725 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10250
10251 001532 T=T+1
10252 777777 777677 ZZ=XX
10253 777777 777577 XX=XX+XX+1
10254 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
10255 DMOVE AC,[200777,,-1
10256 040734 120 04 0 00 044323 XX,,-1]
10257 DFAD AC,[200777,,-1
10258 040735 110 04 0 00 044203 -1,,-1]
10259 040736 312 04 0 00 044242 CAME AC,[201777,,-1]
10260 040737 003 04 0 00 001532 ER3 AC,T
10261 040740 312 05 0 00 043744 CAME AC+1,[ZZ&377777,,-1]
10262 040741 004 05 0 00 001532 ER4 AC+1,T
10263 040742 321 10 0 00 040734 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10264
10265 001533 T=T+1
10266 777777 777577 ZZ=XX
10267 777777 777377 XX=XX+XX+1
10268 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
10269 DMOVE AC,[200777,,-1
10270 040743 120 04 0 00 044325 XX,,-1]
10271 DFAD AC,[200777,,-1
10272 040744 110 04 0 00 044203 -1,,-1]
10273 040745 312 04 0 00 044242 CAME AC,[201777,,-1]
10274 040746 003 04 0 00 001533 ER3 AC,T
10275 040747 312 05 0 00 043747 CAME AC+1,[ZZ&377777,,-1]
10276 040750 004 05 0 00 001533 ER4 AC+1,T
10277 040751 321 10 0 00 040743 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10278
10279 001534 T=T+1
10280 777777 777377 ZZ=XX
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-10
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0212
10281 777777 776777 XX=XX+XX+1
10282 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
10283 DMOVE AC,[200777,,-1
10284 040752 120 04 0 00 044327 XX,,-1]
10285 DFAD AC,[200777,,-1
10286 040753 110 04 0 00 044203 -1,,-1]
10287 040754 312 04 0 00 044242 CAME AC,[201777,,-1]
10288 040755 003 04 0 00 001534 ER3 AC,T
10289 040756 312 05 0 00 043752 CAME AC+1,[ZZ&377777,,-1]
10290 040757 004 05 0 00 001534 ER4 AC+1,T
10291 040760 321 10 0 00 040752 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10292
10293 001535 T=T+1
10294 777777 776777 ZZ=XX
10295 777777 775777 XX=XX+XX+1
10296 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
10297 DMOVE AC,[200777,,-1
10298 040761 120 04 0 00 044331 XX,,-1]
10299 DFAD AC,[200777,,-1
10300 040762 110 04 0 00 044203 -1,,-1]
10301 040763 312 04 0 00 044242 CAME AC,[201777,,-1]
10302 040764 003 04 0 00 001535 ER3 AC,T
10303 040765 312 05 0 00 043755 CAME AC+1,[ZZ&377777,,-1]
10304 040766 004 05 0 00 001535 ER4 AC+1,T
10305 040767 321 10 0 00 040761 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10306
10307 001536 T=T+1
10308 777777 775777 ZZ=XX
10309 777777 773777 XX=XX+XX+1
10310 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
10311 DMOVE AC,[200777,,-1
10312 040770 120 04 0 00 044333 XX,,-1]
10313 DFAD AC,[200777,,-1
10314 040771 110 04 0 00 044203 -1,,-1]
10315 040772 312 04 0 00 044242 CAME AC,[201777,,-1]
10316 040773 003 04 0 00 001536 ER3 AC,T
10317 040774 312 05 0 00 043760 CAME AC+1,[ZZ&377777,,-1]
10318 040775 004 05 0 00 001536 ER4 AC+1,T
10319 040776 321 10 0 00 040770 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10320
10321 001537 T=T+1
10322 777777 773777 ZZ=XX
10323 777777 767777 XX=XX+XX+1
10324 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
10325 DMOVE AC,[200777,,-1
10326 040777 120 04 0 00 044335 XX,,-1]
10327 DFAD AC,[200777,,-1
10328 041000 110 04 0 00 044203 -1,,-1]
10329 041001 312 04 0 00 044242 CAME AC,[201777,,-1]
10330 041002 003 04 0 00 001537 ER3 AC,T
10331 041003 312 05 0 00 043763 CAME AC+1,[ZZ&377777,,-1]
10332 041004 004 05 0 00 001537 ER4 AC+1,T
10333 041005 321 10 0 00 040777 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10334
10335 001540 T=T+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-11
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0213
10336 777777 767777 ZZ=XX
10337 777777 757777 XX=XX+XX+1
10338 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
10339 DMOVE AC,[200777,,-1
10340 041006 120 04 0 00 044337 XX,,-1]
10341 DFAD AC,[200777,,-1
10342 041007 110 04 0 00 044203 -1,,-1]
10343 041010 312 04 0 00 044242 CAME AC,[201777,,-1]
10344 041011 003 04 0 00 001540 ER3 AC,T
10345 041012 312 05 0 00 043766 CAME AC+1,[ZZ&377777,,-1]
10346 041013 004 05 0 00 001540 ER4 AC+1,T
10347 041014 321 10 0 00 041006 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10348
10349 001541 T=T+1
10350 777777 757777 ZZ=XX
10351 777777 737777 XX=XX+XX+1
10352 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
10353 DMOVE AC,[200777,,-1
10354 041015 120 04 0 00 044341 XX,,-1]
10355 DFAD AC,[200777,,-1
10356 041016 110 04 0 00 044203 -1,,-1]
10357 041017 312 04 0 00 044242 CAME AC,[201777,,-1]
10358 041020 003 04 0 00 001541 ER3 AC,T
10359 041021 312 05 0 00 043771 CAME AC+1,[ZZ&377777,,-1]
10360 041022 004 05 0 00 001541 ER4 AC+1,T
10361 041023 321 10 0 00 041015 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10362
10363 001542 T=T+1
10364 777777 737777 ZZ=XX
10365 777777 677777 XX=XX+XX+1
10366 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
10367 DMOVE AC,[200777,,-1
10368 041024 120 04 0 00 044343 XX,,-1]
10369 DFAD AC,[200777,,-1
10370 041025 110 04 0 00 044203 -1,,-1]
10371 041026 312 04 0 00 044242 CAME AC,[201777,,-1]
10372 041027 003 04 0 00 001542 ER3 AC,T
10373 041030 312 05 0 00 043774 CAME AC+1,[ZZ&377777,,-1]
10374 041031 004 05 0 00 001542 ER4 AC+1,T
10375 041032 321 10 0 00 041024 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10376
10377 001543 T=T+1
10378 777777 677777 ZZ=XX
10379 777777 577777 XX=XX+XX+1
10380 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ&377777,-1^
10381 DMOVE AC,[200777,,-1
10382 041033 120 04 0 00 044345 XX,,-1]
10383 DFAD AC,[200777,,-1
10384 041034 110 04 0 00 044203 -1,,-1]
10385 041035 312 04 0 00 044242 CAME AC,[201777,,-1]
10386 041036 003 04 0 00 001543 ER3 AC,T
10387 041037 312 05 0 00 043777 CAME AC+1,[ZZ&377777,,-1]
10388 041040 004 05 0 00 001543 ER4 AC+1,T
10389 041041 321 10 0 00 041033 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10390
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-12
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0214
10391
10392 001544 T=T+1
10393 777777 377777 XX=XX+XX+1
10394 777777 377777 ZZ=XX
10395 DFARP T,200777,-1,XX,-1,200777,-1,-1,-1,201777,-1,ZZ,-1^
10396 DMOVE AC,[200777,,-1
10397 041042 120 04 0 00 044347 XX,,-1]
10398 DFAD AC,[200777,,-1
10399 041043 110 04 0 00 044203 -1,,-1]
10400 041044 312 04 0 00 044242 CAME AC,[201777,,-1]
10401 041045 003 04 0 00 001544 ER3 AC,T
10402 041046 312 05 0 00 043631 CAME AC+1,[ZZ,,-1]
10403 041047 004 05 0 00 001544 ER4 AC+1,T
10404 041050 321 10 0 00 041042 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10405
10406 001545 T=T+1
10407 177777 ZZ=XX&177777
10408 777777 777776 XX=-2
10409 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,-1,ZZ,-1^
10410 DMOVE AC,[200777,,XX
10411 041051 120 04 0 00 044351 -1,,-1]
10412 DFAD AC,[200777,,-1
10413 041052 110 04 0 00 044203 -1,,-1]
10414 041053 312 04 0 00 044242 CAME AC,[201777,,-1]
10415 041054 003 04 0 00 001545 ER3 AC,T
10416 041055 312 05 0 00 044002 CAME AC+1,[ZZ,,-1]
10417 041056 004 05 0 00 001545 ER4 AC+1,T
10418 041057 321 10 0 00 041051 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10419
10420 REPEAT ^D17,
10421 <T=T+1
10422 ZZ=XX
10423 XX=XX+XX+1
10424 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1
10425 >
10426 001546 T=T+1
10427 777777 777776 ZZ=XX
10428 777777 777775 XX=XX+XX+1
10429 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
10430 DMOVE AC,[200777,,XX
10431 041060 120 04 0 00 044353 -1,,-1]
10432 DFAD AC,[200777,,-1
10433 041061 110 04 0 00 044203 -1,,-1]
10434 041062 312 04 0 00 044355 CAME AC,[201777,,ZZ]
10435 041063 003 04 0 00 001546 ER3 AC,T
10436 041064 312 05 0 00 043631 CAME AC+1,[377777,,-1]
10437 041065 004 05 0 00 001546 ER4 AC+1,T
10438 041066 321 10 0 00 041060 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10439
10440 001547 T=T+1
10441 777777 777775 ZZ=XX
10442 777777 777773 XX=XX+XX+1
10443 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
10444 DMOVE AC,[200777,,XX
10445 041067 120 04 0 00 044356 -1,,-1]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-13
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0215
10446 DFAD AC,[200777,,-1
10447 041070 110 04 0 00 044203 -1,,-1]
10448 041071 312 04 0 00 044360 CAME AC,[201777,,ZZ]
10449 041072 003 04 0 00 001547 ER3 AC,T
10450 041073 312 05 0 00 043631 CAME AC+1,[377777,,-1]
10451 041074 004 05 0 00 001547 ER4 AC+1,T
10452 041075 321 10 0 00 041067 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10453
10454 001550 T=T+1
10455 777777 777773 ZZ=XX
10456 777777 777767 XX=XX+XX+1
10457 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
10458 DMOVE AC,[200777,,XX
10459 041076 120 04 0 00 044361 -1,,-1]
10460 DFAD AC,[200777,,-1
10461 041077 110 04 0 00 044203 -1,,-1]
10462 041100 312 04 0 00 044363 CAME AC,[201777,,ZZ]
10463 041101 003 04 0 00 001550 ER3 AC,T
10464 041102 312 05 0 00 043631 CAME AC+1,[377777,,-1]
10465 041103 004 05 0 00 001550 ER4 AC+1,T
10466 041104 321 10 0 00 041076 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10467
10468 001551 T=T+1
10469 777777 777767 ZZ=XX
10470 777777 777757 XX=XX+XX+1
10471 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
10472 DMOVE AC,[200777,,XX
10473 041105 120 04 0 00 044364 -1,,-1]
10474 DFAD AC,[200777,,-1
10475 041106 110 04 0 00 044203 -1,,-1]
10476 041107 312 04 0 00 044366 CAME AC,[201777,,ZZ]
10477 041110 003 04 0 00 001551 ER3 AC,T
10478 041111 312 05 0 00 043631 CAME AC+1,[377777,,-1]
10479 041112 004 05 0 00 001551 ER4 AC+1,T
10480 041113 321 10 0 00 041105 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10481
10482 001552 T=T+1
10483 777777 777757 ZZ=XX
10484 777777 777737 XX=XX+XX+1
10485 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
10486 DMOVE AC,[200777,,XX
10487 041114 120 04 0 00 044367 -1,,-1]
10488 DFAD AC,[200777,,-1
10489 041115 110 04 0 00 044203 -1,,-1]
10490 041116 312 04 0 00 044371 CAME AC,[201777,,ZZ]
10491 041117 003 04 0 00 001552 ER3 AC,T
10492 041120 312 05 0 00 043631 CAME AC+1,[377777,,-1]
10493 041121 004 05 0 00 001552 ER4 AC+1,T
10494 041122 321 10 0 00 041114 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10495
10496 001553 T=T+1
10497 777777 777737 ZZ=XX
10498 777777 777677 XX=XX+XX+1
10499 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
10500 DMOVE AC,[200777,,XX
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-14
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0216
10501 041123 120 04 0 00 044372 -1,,-1]
10502 DFAD AC,[200777,,-1
10503 041124 110 04 0 00 044203 -1,,-1]
10504 041125 312 04 0 00 044374 CAME AC,[201777,,ZZ]
10505 041126 003 04 0 00 001553 ER3 AC,T
10506 041127 312 05 0 00 043631 CAME AC+1,[377777,,-1]
10507 041130 004 05 0 00 001553 ER4 AC+1,T
10508 041131 321 10 0 00 041123 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10509
10510 001554 T=T+1
10511 777777 777677 ZZ=XX
10512 777777 777577 XX=XX+XX+1
10513 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
10514 DMOVE AC,[200777,,XX
10515 041132 120 04 0 00 044375 -1,,-1]
10516 DFAD AC,[200777,,-1
10517 041133 110 04 0 00 044203 -1,,-1]
10518 041134 312 04 0 00 044377 CAME AC,[201777,,ZZ]
10519 041135 003 04 0 00 001554 ER3 AC,T
10520 041136 312 05 0 00 043631 CAME AC+1,[377777,,-1]
10521 041137 004 05 0 00 001554 ER4 AC+1,T
10522 041140 321 10 0 00 041132 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10523
10524 001555 T=T+1
10525 777777 777577 ZZ=XX
10526 777777 777377 XX=XX+XX+1
10527 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
10528 DMOVE AC,[200777,,XX
10529 041141 120 04 0 00 044400 -1,,-1]
10530 DFAD AC,[200777,,-1
10531 041142 110 04 0 00 044203 -1,,-1]
10532 041143 312 04 0 00 044402 CAME AC,[201777,,ZZ]
10533 041144 003 04 0 00 001555 ER3 AC,T
10534 041145 312 05 0 00 043631 CAME AC+1,[377777,,-1]
10535 041146 004 05 0 00 001555 ER4 AC+1,T
10536 041147 321 10 0 00 041141 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10537
10538 001556 T=T+1
10539 777777 777377 ZZ=XX
10540 777777 776777 XX=XX+XX+1
10541 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
10542 DMOVE AC,[200777,,XX
10543 041150 120 04 0 00 044403 -1,,-1]
10544 DFAD AC,[200777,,-1
10545 041151 110 04 0 00 044203 -1,,-1]
10546 041152 312 04 0 00 044405 CAME AC,[201777,,ZZ]
10547 041153 003 04 0 00 001556 ER3 AC,T
10548 041154 312 05 0 00 043631 CAME AC+1,[377777,,-1]
10549 041155 004 05 0 00 001556 ER4 AC+1,T
10550 041156 321 10 0 00 041150 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10551
10552 001557 T=T+1
10553 777777 776777 ZZ=XX
10554 777777 775777 XX=XX+XX+1
10555 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-15
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0217
10556 DMOVE AC,[200777,,XX
10557 041157 120 04 0 00 044406 -1,,-1]
10558 DFAD AC,[200777,,-1
10559 041160 110 04 0 00 044203 -1,,-1]
10560 041161 312 04 0 00 044410 CAME AC,[201777,,ZZ]
10561 041162 003 04 0 00 001557 ER3 AC,T
10562 041163 312 05 0 00 043631 CAME AC+1,[377777,,-1]
10563 041164 004 05 0 00 001557 ER4 AC+1,T
10564 041165 321 10 0 00 041157 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10565
10566 001560 T=T+1
10567 777777 775777 ZZ=XX
10568 777777 773777 XX=XX+XX+1
10569 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
10570 DMOVE AC,[200777,,XX
10571 041166 120 04 0 00 044411 -1,,-1]
10572 DFAD AC,[200777,,-1
10573 041167 110 04 0 00 044203 -1,,-1]
10574 041170 312 04 0 00 044413 CAME AC,[201777,,ZZ]
10575 041171 003 04 0 00 001560 ER3 AC,T
10576 041172 312 05 0 00 043631 CAME AC+1,[377777,,-1]
10577 041173 004 05 0 00 001560 ER4 AC+1,T
10578 041174 321 10 0 00 041166 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10579
10580 001561 T=T+1
10581 777777 773777 ZZ=XX
10582 777777 767777 XX=XX+XX+1
10583 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
10584 DMOVE AC,[200777,,XX
10585 041175 120 04 0 00 044414 -1,,-1]
10586 DFAD AC,[200777,,-1
10587 041176 110 04 0 00 044203 -1,,-1]
10588 041177 312 04 0 00 044416 CAME AC,[201777,,ZZ]
10589 041200 003 04 0 00 001561 ER3 AC,T
10590 041201 312 05 0 00 043631 CAME AC+1,[377777,,-1]
10591 041202 004 05 0 00 001561 ER4 AC+1,T
10592 041203 321 10 0 00 041175 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10593
10594 001562 T=T+1
10595 777777 767777 ZZ=XX
10596 777777 757777 XX=XX+XX+1
10597 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
10598 DMOVE AC,[200777,,XX
10599 041204 120 04 0 00 044417 -1,,-1]
10600 DFAD AC,[200777,,-1
10601 041205 110 04 0 00 044203 -1,,-1]
10602 041206 312 04 0 00 044421 CAME AC,[201777,,ZZ]
10603 041207 003 04 0 00 001562 ER3 AC,T
10604 041210 312 05 0 00 043631 CAME AC+1,[377777,,-1]
10605 041211 004 05 0 00 001562 ER4 AC+1,T
10606 041212 321 10 0 00 041204 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10607
10608 001563 T=T+1
10609 777777 757777 ZZ=XX
10610 777777 737777 XX=XX+XX+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-16
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0218
10611 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
10612 DMOVE AC,[200777,,XX
10613 041213 120 04 0 00 044422 -1,,-1]
10614 DFAD AC,[200777,,-1
10615 041214 110 04 0 00 044203 -1,,-1]
10616 041215 312 04 0 00 044424 CAME AC,[201777,,ZZ]
10617 041216 003 04 0 00 001563 ER3 AC,T
10618 041217 312 05 0 00 043631 CAME AC+1,[377777,,-1]
10619 041220 004 05 0 00 001563 ER4 AC+1,T
10620 041221 321 10 0 00 041213 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10621
10622 001564 T=T+1
10623 777777 737777 ZZ=XX
10624 777777 677777 XX=XX+XX+1
10625 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
10626 DMOVE AC,[200777,,XX
10627 041222 120 04 0 00 044425 -1,,-1]
10628 DFAD AC,[200777,,-1
10629 041223 110 04 0 00 044203 -1,,-1]
10630 041224 312 04 0 00 044427 CAME AC,[201777,,ZZ]
10631 041225 003 04 0 00 001564 ER3 AC,T
10632 041226 312 05 0 00 043631 CAME AC+1,[377777,,-1]
10633 041227 004 05 0 00 001564 ER4 AC+1,T
10634 041230 321 10 0 00 041222 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10635
10636 001565 T=T+1
10637 777777 677777 ZZ=XX
10638 777777 577777 XX=XX+XX+1
10639 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
10640 DMOVE AC,[200777,,XX
10641 041231 120 04 0 00 044430 -1,,-1]
10642 DFAD AC,[200777,,-1
10643 041232 110 04 0 00 044203 -1,,-1]
10644 041233 312 04 0 00 044432 CAME AC,[201777,,ZZ]
10645 041234 003 04 0 00 001565 ER3 AC,T
10646 041235 312 05 0 00 043631 CAME AC+1,[377777,,-1]
10647 041236 004 05 0 00 001565 ER4 AC+1,T
10648 041237 321 10 0 00 041231 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10649
10650 001566 T=T+1
10651 777777 577777 ZZ=XX
10652 777777 377777 XX=XX+XX+1
10653 DFARP T,200777,XX,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
10654 DMOVE AC,[200777,,XX
10655 041240 120 04 0 00 044433 -1,,-1]
10656 DFAD AC,[200777,,-1
10657 041241 110 04 0 00 044203 -1,,-1]
10658 041242 312 04 0 00 044435 CAME AC,[201777,,ZZ]
10659 041243 003 04 0 00 001566 ER3 AC,T
10660 041244 312 05 0 00 043631 CAME AC+1,[377777,,-1]
10661 041245 004 05 0 00 001566 ER4 AC+1,T
10662 041246 321 10 0 00 041240 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10663
10664
10665 001567 T=T+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 11-17
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0219
10666 777777 377777 ZZ=XX
10667 777777 777776 XX=-2
10668 DFARP T,200777&XX,-1,-1,-1,200777,-1,-1,-1,201777,ZZ,377777,-1^
10669 DMOVE AC,[200777&XX,,-1
10670 041247 120 04 0 00 044436 -1,,-1]
10671 DFAD AC,[200777,,-1
10672 041250 110 04 0 00 044203 -1,,-1]
10673 041251 312 04 0 00 044440 CAME AC,[201777,,ZZ]
10674 041252 003 04 0 00 001567 ER3 AC,T
10675 041253 312 05 0 00 043631 CAME AC+1,[377777,,-1]
10676 041254 004 05 0 00 001567 ER4 AC+1,T
10677 041255 321 10 0 00 041247 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10678
10679 REPEAT ^D8,
10680 <T=T+1
10681 ZZ=XX
10682 XX=XX+XX+1
10683 DFARP T,200777&XX,-1,-1,-1,200777,-1,-1,-1,201777&ZZ,-1,377777,-1
10684 >
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0220
10685 001570 T=T+1
10686 777777 777776 ZZ=XX
10687 777777 777775 XX=XX+XX+1
10688 DFARP T,200777&XX,-1,-1,-1,200777,-1,-1,-1,201777&ZZ,-1,377777,-1^
10689 DMOVE AC,[200777&XX,,-1
10690 041256 120 04 0 00 044441 -1,,-1]
10691 DFAD AC,[200777,,-1
10692 041257 110 04 0 00 044203 -1,,-1]
10693 041260 312 04 0 00 044443 CAME AC,[201777&ZZ,,-1]
10694 041261 003 04 0 00 001570 ER3 AC,T
10695 041262 312 05 0 00 043631 CAME AC+1,[377777,,-1]
10696 041263 004 05 0 00 001570 ER4 AC+1,T
10697 041264 321 10 0 00 041256 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10698
10699 001571 T=T+1
10700 777777 777775 ZZ=XX
10701 777777 777773 XX=XX+XX+1
10702 DFARP T,200777&XX,-1,-1,-1,200777,-1,-1,-1,201777&ZZ,-1,377777,-1^
10703 DMOVE AC,[200777&XX,,-1
10704 041265 120 04 0 00 044444 -1,,-1]
10705 DFAD AC,[200777,,-1
10706 041266 110 04 0 00 044203 -1,,-1]
10707 041267 312 04 0 00 044446 CAME AC,[201777&ZZ,,-1]
10708 041270 003 04 0 00 001571 ER3 AC,T
10709 041271 312 05 0 00 043631 CAME AC+1,[377777,,-1]
10710 041272 004 05 0 00 001571 ER4 AC+1,T
10711 041273 321 10 0 00 041265 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10712
10713 001572 T=T+1
10714 777777 777773 ZZ=XX
10715 777777 777767 XX=XX+XX+1
10716 DFARP T,200777&XX,-1,-1,-1,200777,-1,-1,-1,201777&ZZ,-1,377777,-1^
10717 DMOVE AC,[200777&XX,,-1
10718 041274 120 04 0 00 044447 -1,,-1]
10719 DFAD AC,[200777,,-1
10720 041275 110 04 0 00 044203 -1,,-1]
10721 041276 312 04 0 00 044451 CAME AC,[201777&ZZ,,-1]
10722 041277 003 04 0 00 001572 ER3 AC,T
10723 041300 312 05 0 00 043631 CAME AC+1,[377777,,-1]
10724 041301 004 05 0 00 001572 ER4 AC+1,T
10725 041302 321 10 0 00 041274 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10726
10727 001573 T=T+1
10728 777777 777767 ZZ=XX
10729 777777 777757 XX=XX+XX+1
10730 DFARP T,200777&XX,-1,-1,-1,200777,-1,-1,-1,201777&ZZ,-1,377777,-1^
10731 DMOVE AC,[200777&XX,,-1
10732 041303 120 04 0 00 044452 -1,,-1]
10733 DFAD AC,[200777,,-1
10734 041304 110 04 0 00 044203 -1,,-1]
10735 041305 312 04 0 00 044454 CAME AC,[201777&ZZ,,-1]
10736 041306 003 04 0 00 001573 ER3 AC,T
10737 041307 312 05 0 00 043631 CAME AC+1,[377777,,-1]
10738 041310 004 05 0 00 001573 ER4 AC+1,T
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-1
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0221
10739 041311 321 10 0 00 041303 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10740
10741 001574 T=T+1
10742 777777 777757 ZZ=XX
10743 777777 777737 XX=XX+XX+1
10744 DFARP T,200777&XX,-1,-1,-1,200777,-1,-1,-1,201777&ZZ,-1,377777,-1^
10745 DMOVE AC,[200777&XX,,-1
10746 041312 120 04 0 00 044455 -1,,-1]
10747 DFAD AC,[200777,,-1
10748 041313 110 04 0 00 044203 -1,,-1]
10749 041314 312 04 0 00 044457 CAME AC,[201777&ZZ,,-1]
10750 041315 003 04 0 00 001574 ER3 AC,T
10751 041316 312 05 0 00 043631 CAME AC+1,[377777,,-1]
10752 041317 004 05 0 00 001574 ER4 AC+1,T
10753 041320 321 10 0 00 041312 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10754
10755 001575 T=T+1
10756 777777 777737 ZZ=XX
10757 777777 777677 XX=XX+XX+1
10758 DFARP T,200777&XX,-1,-1,-1,200777,-1,-1,-1,201777&ZZ,-1,377777,-1^
10759 DMOVE AC,[200777&XX,,-1
10760 041321 120 04 0 00 044460 -1,,-1]
10761 DFAD AC,[200777,,-1
10762 041322 110 04 0 00 044203 -1,,-1]
10763 041323 312 04 0 00 044462 CAME AC,[201777&ZZ,,-1]
10764 041324 003 04 0 00 001575 ER3 AC,T
10765 041325 312 05 0 00 043631 CAME AC+1,[377777,,-1]
10766 041326 004 05 0 00 001575 ER4 AC+1,T
10767 041327 321 10 0 00 041321 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10768
10769 001576 T=T+1
10770 777777 777677 ZZ=XX
10771 777777 777577 XX=XX+XX+1
10772 DFARP T,200777&XX,-1,-1,-1,200777,-1,-1,-1,201777&ZZ,-1,377777,-1^
10773 DMOVE AC,[200777&XX,,-1
10774 041330 120 04 0 00 044463 -1,,-1]
10775 DFAD AC,[200777,,-1
10776 041331 110 04 0 00 044203 -1,,-1]
10777 041332 312 04 0 00 044465 CAME AC,[201777&ZZ,,-1]
10778 041333 003 04 0 00 001576 ER3 AC,T
10779 041334 312 05 0 00 043631 CAME AC+1,[377777,,-1]
10780 041335 004 05 0 00 001576 ER4 AC+1,T
10781 041336 321 10 0 00 041330 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10782
10783 001577 T=T+1
10784 777777 777577 ZZ=XX
10785 777777 777377 XX=XX+XX+1
10786 DFARP T,200777&XX,-1,-1,-1,200777,-1,-1,-1,201777&ZZ,-1,377777,-1^
10787 DMOVE AC,[200777&XX,,-1
10788 041337 120 04 0 00 044466 -1,,-1]
10789 DFAD AC,[200777,,-1
10790 041340 110 04 0 00 044203 -1,,-1]
10791 041341 312 04 0 00 044470 CAME AC,[201777&ZZ,,-1]
10792 041342 003 04 0 00 001577 ER3 AC,T
10793 041343 312 05 0 00 043631 CAME AC+1,[377777,,-1]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-2
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0222
10794 041344 004 05 0 00 001577 ER4 AC+1,T
10795 041345 321 10 0 00 041337 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10796
10797
10798 ;RIPPLE ONES TESTS (ADD A FRACTION OF A RIPPLED ONE TO SAME)
10799
10800 001600 T=1600
10801 000000 XX=0
10802 103400 ZZ=103400
10803
10804 R1600: REPEAT ^D18,
10805 <T=T+1
10806 XX=XX+XX
10807 IFE XX,<XX=1>
10808 ZZ=ZZ+1000
10809 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0
10810 >
10811 001601 T=T+1
10812 000000 XX=XX+XX
10813 000001 IFE XX,<XX=1>
10814 104400 ZZ=ZZ+1000
10815 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
10816 DMOVE AC,[200000,,0
10817 041346 120 04 0 00 043624 0,,XX]
10818 DFAD AC,[200000,,0
10819 041347 110 04 0 00 043624 0,,XX]
10820 041350 312 04 0 00 043623 CAME AC,[ZZ,,0]
10821 041351 003 04 0 00 001601 ER3 AC,T
10822 041352 312 05 0 00 043330 CAME AC+1,[0,,0]
10823 041353 004 05 0 00 001601 ER4 AC+1,T
10824 041354 321 10 0 00 041346 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10825
10826 001602 T=T+1
10827 000002 XX=XX+XX
10828 IFE XX,<XX=1>
10829 105400 ZZ=ZZ+1000
10830 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
10831 DMOVE AC,[200000,,0
10832 041355 120 04 0 00 043621 0,,XX]
10833 DFAD AC,[200000,,0
10834 041356 110 04 0 00 043621 0,,XX]
10835 041357 312 04 0 00 043620 CAME AC,[ZZ,,0]
10836 041360 003 04 0 00 001602 ER3 AC,T
10837 041361 312 05 0 00 043330 CAME AC+1,[0,,0]
10838 041362 004 05 0 00 001602 ER4 AC+1,T
10839 041363 321 10 0 00 041355 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10840
10841 001603 T=T+1
10842 000004 XX=XX+XX
10843 IFE XX,<XX=1>
10844 106400 ZZ=ZZ+1000
10845 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
10846 DMOVE AC,[200000,,0
10847 041364 120 04 0 00 043616 0,,XX]
10848 DFAD AC,[200000,,0
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-3
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0223
10849 041365 110 04 0 00 043616 0,,XX]
10850 041366 312 04 0 00 043615 CAME AC,[ZZ,,0]
10851 041367 003 04 0 00 001603 ER3 AC,T
10852 041370 312 05 0 00 043330 CAME AC+1,[0,,0]
10853 041371 004 05 0 00 001603 ER4 AC+1,T
10854 041372 321 10 0 00 041364 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10855
10856 001604 T=T+1
10857 000010 XX=XX+XX
10858 IFE XX,<XX=1>
10859 107400 ZZ=ZZ+1000
10860 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
10861 DMOVE AC,[200000,,0
10862 041373 120 04 0 00 043613 0,,XX]
10863 DFAD AC,[200000,,0
10864 041374 110 04 0 00 043613 0,,XX]
10865 041375 312 04 0 00 043612 CAME AC,[ZZ,,0]
10866 041376 003 04 0 00 001604 ER3 AC,T
10867 041377 312 05 0 00 043330 CAME AC+1,[0,,0]
10868 041400 004 05 0 00 001604 ER4 AC+1,T
10869 041401 321 10 0 00 041373 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10870
10871 001605 T=T+1
10872 000020 XX=XX+XX
10873 IFE XX,<XX=1>
10874 110400 ZZ=ZZ+1000
10875 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
10876 DMOVE AC,[200000,,0
10877 041402 120 04 0 00 043610 0,,XX]
10878 DFAD AC,[200000,,0
10879 041403 110 04 0 00 043610 0,,XX]
10880 041404 312 04 0 00 043607 CAME AC,[ZZ,,0]
10881 041405 003 04 0 00 001605 ER3 AC,T
10882 041406 312 05 0 00 043330 CAME AC+1,[0,,0]
10883 041407 004 05 0 00 001605 ER4 AC+1,T
10884 041410 321 10 0 00 041402 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10885
10886 001606 T=T+1
10887 000040 XX=XX+XX
10888 IFE XX,<XX=1>
10889 111400 ZZ=ZZ+1000
10890 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
10891 DMOVE AC,[200000,,0
10892 041411 120 04 0 00 043605 0,,XX]
10893 DFAD AC,[200000,,0
10894 041412 110 04 0 00 043605 0,,XX]
10895 041413 312 04 0 00 043604 CAME AC,[ZZ,,0]
10896 041414 003 04 0 00 001606 ER3 AC,T
10897 041415 312 05 0 00 043330 CAME AC+1,[0,,0]
10898 041416 004 05 0 00 001606 ER4 AC+1,T
10899 041417 321 10 0 00 041411 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10900
10901 001607 T=T+1
10902 000100 XX=XX+XX
10903 IFE XX,<XX=1>
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-4
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0224
10904 112400 ZZ=ZZ+1000
10905 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
10906 DMOVE AC,[200000,,0
10907 041420 120 04 0 00 043602 0,,XX]
10908 DFAD AC,[200000,,0
10909 041421 110 04 0 00 043602 0,,XX]
10910 041422 312 04 0 00 043601 CAME AC,[ZZ,,0]
10911 041423 003 04 0 00 001607 ER3 AC,T
10912 041424 312 05 0 00 043330 CAME AC+1,[0,,0]
10913 041425 004 05 0 00 001607 ER4 AC+1,T
10914 041426 321 10 0 00 041420 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10915
10916 001610 T=T+1
10917 000200 XX=XX+XX
10918 IFE XX,<XX=1>
10919 113400 ZZ=ZZ+1000
10920 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
10921 DMOVE AC,[200000,,0
10922 041427 120 04 0 00 043577 0,,XX]
10923 DFAD AC,[200000,,0
10924 041430 110 04 0 00 043577 0,,XX]
10925 041431 312 04 0 00 043576 CAME AC,[ZZ,,0]
10926 041432 003 04 0 00 001610 ER3 AC,T
10927 041433 312 05 0 00 043330 CAME AC+1,[0,,0]
10928 041434 004 05 0 00 001610 ER4 AC+1,T
10929 041435 321 10 0 00 041427 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10930
10931 001611 T=T+1
10932 000400 XX=XX+XX
10933 IFE XX,<XX=1>
10934 114400 ZZ=ZZ+1000
10935 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
10936 DMOVE AC,[200000,,0
10937 041436 120 04 0 00 043574 0,,XX]
10938 DFAD AC,[200000,,0
10939 041437 110 04 0 00 043574 0,,XX]
10940 041440 312 04 0 00 043573 CAME AC,[ZZ,,0]
10941 041441 003 04 0 00 001611 ER3 AC,T
10942 041442 312 05 0 00 043330 CAME AC+1,[0,,0]
10943 041443 004 05 0 00 001611 ER4 AC+1,T
10944 041444 321 10 0 00 041436 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10945
10946 001612 T=T+1
10947 001000 XX=XX+XX
10948 IFE XX,<XX=1>
10949 115400 ZZ=ZZ+1000
10950 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
10951 DMOVE AC,[200000,,0
10952 041445 120 04 0 00 043571 0,,XX]
10953 DFAD AC,[200000,,0
10954 041446 110 04 0 00 043571 0,,XX]
10955 041447 312 04 0 00 043570 CAME AC,[ZZ,,0]
10956 041450 003 04 0 00 001612 ER3 AC,T
10957 041451 312 05 0 00 043330 CAME AC+1,[0,,0]
10958 041452 004 05 0 00 001612 ER4 AC+1,T
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-5
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0225
10959 041453 321 10 0 00 041445 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10960
10961 001613 T=T+1
10962 002000 XX=XX+XX
10963 IFE XX,<XX=1>
10964 116400 ZZ=ZZ+1000
10965 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
10966 DMOVE AC,[200000,,0
10967 041454 120 04 0 00 043566 0,,XX]
10968 DFAD AC,[200000,,0
10969 041455 110 04 0 00 043566 0,,XX]
10970 041456 312 04 0 00 043565 CAME AC,[ZZ,,0]
10971 041457 003 04 0 00 001613 ER3 AC,T
10972 041460 312 05 0 00 043330 CAME AC+1,[0,,0]
10973 041461 004 05 0 00 001613 ER4 AC+1,T
10974 041462 321 10 0 00 041454 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10975
10976 001614 T=T+1
10977 004000 XX=XX+XX
10978 IFE XX,<XX=1>
10979 117400 ZZ=ZZ+1000
10980 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
10981 DMOVE AC,[200000,,0
10982 041463 120 04 0 00 043563 0,,XX]
10983 DFAD AC,[200000,,0
10984 041464 110 04 0 00 043563 0,,XX]
10985 041465 312 04 0 00 043562 CAME AC,[ZZ,,0]
10986 041466 003 04 0 00 001614 ER3 AC,T
10987 041467 312 05 0 00 043330 CAME AC+1,[0,,0]
10988 041470 004 05 0 00 001614 ER4 AC+1,T
10989 041471 321 10 0 00 041463 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
10990
10991 001615 T=T+1
10992 010000 XX=XX+XX
10993 IFE XX,<XX=1>
10994 120400 ZZ=ZZ+1000
10995 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
10996 DMOVE AC,[200000,,0
10997 041472 120 04 0 00 043560 0,,XX]
10998 DFAD AC,[200000,,0
10999 041473 110 04 0 00 043560 0,,XX]
11000 041474 312 04 0 00 043557 CAME AC,[ZZ,,0]
11001 041475 003 04 0 00 001615 ER3 AC,T
11002 041476 312 05 0 00 043330 CAME AC+1,[0,,0]
11003 041477 004 05 0 00 001615 ER4 AC+1,T
11004 041500 321 10 0 00 041472 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11005
11006 001616 T=T+1
11007 020000 XX=XX+XX
11008 IFE XX,<XX=1>
11009 121400 ZZ=ZZ+1000
11010 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
11011 DMOVE AC,[200000,,0
11012 041501 120 04 0 00 043555 0,,XX]
11013 DFAD AC,[200000,,0
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-6
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0226
11014 041502 110 04 0 00 043555 0,,XX]
11015 041503 312 04 0 00 043554 CAME AC,[ZZ,,0]
11016 041504 003 04 0 00 001616 ER3 AC,T
11017 041505 312 05 0 00 043330 CAME AC+1,[0,,0]
11018 041506 004 05 0 00 001616 ER4 AC+1,T
11019 041507 321 10 0 00 041501 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11020
11021 001617 T=T+1
11022 040000 XX=XX+XX
11023 IFE XX,<XX=1>
11024 122400 ZZ=ZZ+1000
11025 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
11026 DMOVE AC,[200000,,0
11027 041510 120 04 0 00 043552 0,,XX]
11028 DFAD AC,[200000,,0
11029 041511 110 04 0 00 043552 0,,XX]
11030 041512 312 04 0 00 043551 CAME AC,[ZZ,,0]
11031 041513 003 04 0 00 001617 ER3 AC,T
11032 041514 312 05 0 00 043330 CAME AC+1,[0,,0]
11033 041515 004 05 0 00 001617 ER4 AC+1,T
11034 041516 321 10 0 00 041510 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11035
11036 001620 T=T+1
11037 100000 XX=XX+XX
11038 IFE XX,<XX=1>
11039 123400 ZZ=ZZ+1000
11040 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
11041 DMOVE AC,[200000,,0
11042 041517 120 04 0 00 043547 0,,XX]
11043 DFAD AC,[200000,,0
11044 041520 110 04 0 00 043547 0,,XX]
11045 041521 312 04 0 00 043546 CAME AC,[ZZ,,0]
11046 041522 003 04 0 00 001620 ER3 AC,T
11047 041523 312 05 0 00 043330 CAME AC+1,[0,,0]
11048 041524 004 05 0 00 001620 ER4 AC+1,T
11049 041525 321 10 0 00 041517 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11050
11051 001621 T=T+1
11052 200000 XX=XX+XX
11053 IFE XX,<XX=1>
11054 124400 ZZ=ZZ+1000
11055 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
11056 DMOVE AC,[200000,,0
11057 041526 120 04 0 00 043544 0,,XX]
11058 DFAD AC,[200000,,0
11059 041527 110 04 0 00 043544 0,,XX]
11060 041530 312 04 0 00 043543 CAME AC,[ZZ,,0]
11061 041531 003 04 0 00 001621 ER3 AC,T
11062 041532 312 05 0 00 043330 CAME AC+1,[0,,0]
11063 041533 004 05 0 00 001621 ER4 AC+1,T
11064 041534 321 10 0 00 041526 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11065
11066 001622 T=T+1
11067 400000 XX=XX+XX
11068 IFE XX,<XX=1>
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-7
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0227
11069 125400 ZZ=ZZ+1000
11070 DFARP T,200000,0,0,XX,200000,0,0,XX,ZZ,0,0,0^
11071 DMOVE AC,[200000,,0
11072 041535 120 04 0 00 043541 0,,XX]
11073 DFAD AC,[200000,,0
11074 041536 110 04 0 00 043541 0,,XX]
11075 041537 312 04 0 00 043540 CAME AC,[ZZ,,0]
11076 041540 003 04 0 00 001622 ER3 AC,T
11077 041541 312 05 0 00 043330 CAME AC+1,[0,,0]
11078 041542 004 05 0 00 001622 ER4 AC+1,T
11079 041543 321 10 0 00 041535 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11080
11081
11082 000000 XX=0
11083
11084 REPEAT ^D17,
11085 <T=T+1
11086 XX=XX+XX
11087 IFE XX,<XX=1>
11088 ZZ=ZZ+1000
11089 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0
11090 >
11091 001623 T=T+1
11092 000000 XX=XX+XX
11093 000001 IFE XX,<XX=1>
11094 126400 ZZ=ZZ+1000
11095 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
11096 DMOVE AC,[200000,,0
11097 041544 120 04 0 00 043536 XX,,0]
11098 DFAD AC,[200000,,0
11099 041545 110 04 0 00 043536 XX,,0]
11100 041546 312 04 0 00 043535 CAME AC,[ZZ,,0]
11101 041547 003 04 0 00 001623 ER3 AC,T
11102 041550 312 05 0 00 043330 CAME AC+1,[0,,0]
11103 041551 004 05 0 00 001623 ER4 AC+1,T
11104 041552 321 10 0 00 041544 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11105
11106 001624 T=T+1
11107 000002 XX=XX+XX
11108 IFE XX,<XX=1>
11109 127400 ZZ=ZZ+1000
11110 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
11111 DMOVE AC,[200000,,0
11112 041553 120 04 0 00 043533 XX,,0]
11113 DFAD AC,[200000,,0
11114 041554 110 04 0 00 043533 XX,,0]
11115 041555 312 04 0 00 043532 CAME AC,[ZZ,,0]
11116 041556 003 04 0 00 001624 ER3 AC,T
11117 041557 312 05 0 00 043330 CAME AC+1,[0,,0]
11118 041560 004 05 0 00 001624 ER4 AC+1,T
11119 041561 321 10 0 00 041553 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11120
11121 001625 T=T+1
11122 000004 XX=XX+XX
11123 IFE XX,<XX=1>
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-8
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0228
11124 130400 ZZ=ZZ+1000
11125 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
11126 DMOVE AC,[200000,,0
11127 041562 120 04 0 00 043530 XX,,0]
11128 DFAD AC,[200000,,0
11129 041563 110 04 0 00 043530 XX,,0]
11130 041564 312 04 0 00 043527 CAME AC,[ZZ,,0]
11131 041565 003 04 0 00 001625 ER3 AC,T
11132 041566 312 05 0 00 043330 CAME AC+1,[0,,0]
11133 041567 004 05 0 00 001625 ER4 AC+1,T
11134 041570 321 10 0 00 041562 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11135
11136 001626 T=T+1
11137 000010 XX=XX+XX
11138 IFE XX,<XX=1>
11139 131400 ZZ=ZZ+1000
11140 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
11141 DMOVE AC,[200000,,0
11142 041571 120 04 0 00 043525 XX,,0]
11143 DFAD AC,[200000,,0
11144 041572 110 04 0 00 043525 XX,,0]
11145 041573 312 04 0 00 043524 CAME AC,[ZZ,,0]
11146 041574 003 04 0 00 001626 ER3 AC,T
11147 041575 312 05 0 00 043330 CAME AC+1,[0,,0]
11148 041576 004 05 0 00 001626 ER4 AC+1,T
11149 041577 321 10 0 00 041571 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11150
11151 001627 T=T+1
11152 000020 XX=XX+XX
11153 IFE XX,<XX=1>
11154 132400 ZZ=ZZ+1000
11155 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
11156 DMOVE AC,[200000,,0
11157 041600 120 04 0 00 043522 XX,,0]
11158 DFAD AC,[200000,,0
11159 041601 110 04 0 00 043522 XX,,0]
11160 041602 312 04 0 00 043521 CAME AC,[ZZ,,0]
11161 041603 003 04 0 00 001627 ER3 AC,T
11162 041604 312 05 0 00 043330 CAME AC+1,[0,,0]
11163 041605 004 05 0 00 001627 ER4 AC+1,T
11164 041606 321 10 0 00 041600 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11165
11166 001630 T=T+1
11167 000040 XX=XX+XX
11168 IFE XX,<XX=1>
11169 133400 ZZ=ZZ+1000
11170 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
11171 DMOVE AC,[200000,,0
11172 041607 120 04 0 00 043517 XX,,0]
11173 DFAD AC,[200000,,0
11174 041610 110 04 0 00 043517 XX,,0]
11175 041611 312 04 0 00 043516 CAME AC,[ZZ,,0]
11176 041612 003 04 0 00 001630 ER3 AC,T
11177 041613 312 05 0 00 043330 CAME AC+1,[0,,0]
11178 041614 004 05 0 00 001630 ER4 AC+1,T
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-9
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0229
11179 041615 321 10 0 00 041607 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11180
11181 001631 T=T+1
11182 000100 XX=XX+XX
11183 IFE XX,<XX=1>
11184 134400 ZZ=ZZ+1000
11185 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
11186 DMOVE AC,[200000,,0
11187 041616 120 04 0 00 043514 XX,,0]
11188 DFAD AC,[200000,,0
11189 041617 110 04 0 00 043514 XX,,0]
11190 041620 312 04 0 00 043513 CAME AC,[ZZ,,0]
11191 041621 003 04 0 00 001631 ER3 AC,T
11192 041622 312 05 0 00 043330 CAME AC+1,[0,,0]
11193 041623 004 05 0 00 001631 ER4 AC+1,T
11194 041624 321 10 0 00 041616 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11195
11196 001632 T=T+1
11197 000200 XX=XX+XX
11198 IFE XX,<XX=1>
11199 135400 ZZ=ZZ+1000
11200 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
11201 DMOVE AC,[200000,,0
11202 041625 120 04 0 00 043511 XX,,0]
11203 DFAD AC,[200000,,0
11204 041626 110 04 0 00 043511 XX,,0]
11205 041627 312 04 0 00 043510 CAME AC,[ZZ,,0]
11206 041630 003 04 0 00 001632 ER3 AC,T
11207 041631 312 05 0 00 043330 CAME AC+1,[0,,0]
11208 041632 004 05 0 00 001632 ER4 AC+1,T
11209 041633 321 10 0 00 041625 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11210
11211 001633 T=T+1
11212 000400 XX=XX+XX
11213 IFE XX,<XX=1>
11214 136400 ZZ=ZZ+1000
11215 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
11216 DMOVE AC,[200000,,0
11217 041634 120 04 0 00 043506 XX,,0]
11218 DFAD AC,[200000,,0
11219 041635 110 04 0 00 043506 XX,,0]
11220 041636 312 04 0 00 043505 CAME AC,[ZZ,,0]
11221 041637 003 04 0 00 001633 ER3 AC,T
11222 041640 312 05 0 00 043330 CAME AC+1,[0,,0]
11223 041641 004 05 0 00 001633 ER4 AC+1,T
11224 041642 321 10 0 00 041634 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11225
11226 001634 T=T+1
11227 001000 XX=XX+XX
11228 IFE XX,<XX=1>
11229 137400 ZZ=ZZ+1000
11230 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
11231 DMOVE AC,[200000,,0
11232 041643 120 04 0 00 043503 XX,,0]
11233 DFAD AC,[200000,,0
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-10
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0230
11234 041644 110 04 0 00 043503 XX,,0]
11235 041645 312 04 0 00 043502 CAME AC,[ZZ,,0]
11236 041646 003 04 0 00 001634 ER3 AC,T
11237 041647 312 05 0 00 043330 CAME AC+1,[0,,0]
11238 041650 004 05 0 00 001634 ER4 AC+1,T
11239 041651 321 10 0 00 041643 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11240
11241 001635 T=T+1
11242 002000 XX=XX+XX
11243 IFE XX,<XX=1>
11244 140400 ZZ=ZZ+1000
11245 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
11246 DMOVE AC,[200000,,0
11247 041652 120 04 0 00 043500 XX,,0]
11248 DFAD AC,[200000,,0
11249 041653 110 04 0 00 043500 XX,,0]
11250 041654 312 04 0 00 043477 CAME AC,[ZZ,,0]
11251 041655 003 04 0 00 001635 ER3 AC,T
11252 041656 312 05 0 00 043330 CAME AC+1,[0,,0]
11253 041657 004 05 0 00 001635 ER4 AC+1,T
11254 041660 321 10 0 00 041652 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11255
11256 001636 T=T+1
11257 004000 XX=XX+XX
11258 IFE XX,<XX=1>
11259 141400 ZZ=ZZ+1000
11260 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
11261 DMOVE AC,[200000,,0
11262 041661 120 04 0 00 043475 XX,,0]
11263 DFAD AC,[200000,,0
11264 041662 110 04 0 00 043475 XX,,0]
11265 041663 312 04 0 00 043474 CAME AC,[ZZ,,0]
11266 041664 003 04 0 00 001636 ER3 AC,T
11267 041665 312 05 0 00 043330 CAME AC+1,[0,,0]
11268 041666 004 05 0 00 001636 ER4 AC+1,T
11269 041667 321 10 0 00 041661 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11270
11271 001637 T=T+1
11272 010000 XX=XX+XX
11273 IFE XX,<XX=1>
11274 142400 ZZ=ZZ+1000
11275 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
11276 DMOVE AC,[200000,,0
11277 041670 120 04 0 00 043472 XX,,0]
11278 DFAD AC,[200000,,0
11279 041671 110 04 0 00 043472 XX,,0]
11280 041672 312 04 0 00 043471 CAME AC,[ZZ,,0]
11281 041673 003 04 0 00 001637 ER3 AC,T
11282 041674 312 05 0 00 043330 CAME AC+1,[0,,0]
11283 041675 004 05 0 00 001637 ER4 AC+1,T
11284 041676 321 10 0 00 041670 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11285
11286 001640 T=T+1
11287 020000 XX=XX+XX
11288 IFE XX,<XX=1>
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-11
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0231
11289 143400 ZZ=ZZ+1000
11290 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
11291 DMOVE AC,[200000,,0
11292 041677 120 04 0 00 043467 XX,,0]
11293 DFAD AC,[200000,,0
11294 041700 110 04 0 00 043467 XX,,0]
11295 041701 312 04 0 00 043466 CAME AC,[ZZ,,0]
11296 041702 003 04 0 00 001640 ER3 AC,T
11297 041703 312 05 0 00 043330 CAME AC+1,[0,,0]
11298 041704 004 05 0 00 001640 ER4 AC+1,T
11299 041705 321 10 0 00 041677 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11300
11301 001641 T=T+1
11302 040000 XX=XX+XX
11303 IFE XX,<XX=1>
11304 144400 ZZ=ZZ+1000
11305 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
11306 DMOVE AC,[200000,,0
11307 041706 120 04 0 00 043464 XX,,0]
11308 DFAD AC,[200000,,0
11309 041707 110 04 0 00 043464 XX,,0]
11310 041710 312 04 0 00 043463 CAME AC,[ZZ,,0]
11311 041711 003 04 0 00 001641 ER3 AC,T
11312 041712 312 05 0 00 043330 CAME AC+1,[0,,0]
11313 041713 004 05 0 00 001641 ER4 AC+1,T
11314 041714 321 10 0 00 041706 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11315
11316 001642 T=T+1
11317 100000 XX=XX+XX
11318 IFE XX,<XX=1>
11319 145400 ZZ=ZZ+1000
11320 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
11321 DMOVE AC,[200000,,0
11322 041715 120 04 0 00 043461 XX,,0]
11323 DFAD AC,[200000,,0
11324 041716 110 04 0 00 043461 XX,,0]
11325 041717 312 04 0 00 043460 CAME AC,[ZZ,,0]
11326 041720 003 04 0 00 001642 ER3 AC,T
11327 041721 312 05 0 00 043330 CAME AC+1,[0,,0]
11328 041722 004 05 0 00 001642 ER4 AC+1,T
11329 041723 321 10 0 00 041715 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11330
11331 001643 T=T+1
11332 200000 XX=XX+XX
11333 IFE XX,<XX=1>
11334 146400 ZZ=ZZ+1000
11335 DFARP T,200000,0,XX,0,200000,0,XX,0,ZZ,0,0,0^
11336 DMOVE AC,[200000,,0
11337 041724 120 04 0 00 043456 XX,,0]
11338 DFAD AC,[200000,,0
11339 041725 110 04 0 00 043456 XX,,0]
11340 041726 312 04 0 00 043453 CAME AC,[ZZ,,0]
11341 041727 003 04 0 00 001643 ER3 AC,T
11342 041730 312 05 0 00 043330 CAME AC+1,[0,,0]
11343 041731 004 05 0 00 001643 ER4 AC+1,T
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-12
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0232
11344 041732 321 10 0 00 041724 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11345
11346 001644 T=T+1
11347 400000 XX=XX+XX
11348 DFARP T,200000,0,XX,0,200000,0,XX,0,0,0,0,0^
11349 DMOVE AC,[200000,,0
11350 041733 120 04 0 00 043454 XX,,0]
11351 DFAD AC,[200000,,0
11352 041734 110 04 0 00 043454 XX,,0]
11353 041735 312 04 0 00 043330 CAME AC,[0,,0]
11354 041736 003 04 0 00 001644 ER3 AC,T
11355 041737 312 05 0 00 043330 CAME AC+1,[0,,0]
11356 041740 004 05 0 00 001644 ER4 AC+1,T
11357 041741 321 10 0 00 041733 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11358
11359 000000 XX=0
11360
11361 REPEAT ^D18,
11362 <T=T+1
11363 XX=XX+XX
11364 IFE XX,<XX=1>
11365 ZZ=ZZ+1000
11366 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0
11367 >
11368 001645 T=T+1
11369 000000 XX=XX+XX
11370 000001 IFE XX,<XX=1>
11371 147400 ZZ=ZZ+1000
11372 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
11373 DMOVE AC,[200000,,XX
11374 041742 120 04 0 00 043451 0,,0]
11375 DFAD AC,[200000,,XX
11376 041743 110 04 0 00 043451 0,,0]
11377 041744 312 04 0 00 043450 CAME AC,[ZZ,,0]
11378 041745 003 04 0 00 001645 ER3 AC,T
11379 041746 312 05 0 00 043330 CAME AC+1,[0,,0]
11380 041747 004 05 0 00 001645 ER4 AC+1,T
11381 041750 321 10 0 00 041742 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11382
11383 001646 T=T+1
11384 000002 XX=XX+XX
11385 IFE XX,<XX=1>
11386 150400 ZZ=ZZ+1000
11387 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
11388 DMOVE AC,[200000,,XX
11389 041751 120 04 0 00 043446 0,,0]
11390 DFAD AC,[200000,,XX
11391 041752 110 04 0 00 043446 0,,0]
11392 041753 312 04 0 00 043445 CAME AC,[ZZ,,0]
11393 041754 003 04 0 00 001646 ER3 AC,T
11394 041755 312 05 0 00 043330 CAME AC+1,[0,,0]
11395 041756 004 05 0 00 001646 ER4 AC+1,T
11396 041757 321 10 0 00 041751 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11397
11398 001647 T=T+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-13
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0233
11399 000004 XX=XX+XX
11400 IFE XX,<XX=1>
11401 151400 ZZ=ZZ+1000
11402 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
11403 DMOVE AC,[200000,,XX
11404 041760 120 04 0 00 043443 0,,0]
11405 DFAD AC,[200000,,XX
11406 041761 110 04 0 00 043443 0,,0]
11407 041762 312 04 0 00 043442 CAME AC,[ZZ,,0]
11408 041763 003 04 0 00 001647 ER3 AC,T
11409 041764 312 05 0 00 043330 CAME AC+1,[0,,0]
11410 041765 004 05 0 00 001647 ER4 AC+1,T
11411 041766 321 10 0 00 041760 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11412
11413 001650 T=T+1
11414 000010 XX=XX+XX
11415 IFE XX,<XX=1>
11416 152400 ZZ=ZZ+1000
11417 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
11418 DMOVE AC,[200000,,XX
11419 041767 120 04 0 00 043440 0,,0]
11420 DFAD AC,[200000,,XX
11421 041770 110 04 0 00 043440 0,,0]
11422 041771 312 04 0 00 043437 CAME AC,[ZZ,,0]
11423 041772 003 04 0 00 001650 ER3 AC,T
11424 041773 312 05 0 00 043330 CAME AC+1,[0,,0]
11425 041774 004 05 0 00 001650 ER4 AC+1,T
11426 041775 321 10 0 00 041767 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11427
11428 001651 T=T+1
11429 000020 XX=XX+XX
11430 IFE XX,<XX=1>
11431 153400 ZZ=ZZ+1000
11432 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
11433 DMOVE AC,[200000,,XX
11434 041776 120 04 0 00 043435 0,,0]
11435 DFAD AC,[200000,,XX
11436 041777 110 04 0 00 043435 0,,0]
11437 042000 312 04 0 00 043434 CAME AC,[ZZ,,0]
11438 042001 003 04 0 00 001651 ER3 AC,T
11439 042002 312 05 0 00 043330 CAME AC+1,[0,,0]
11440 042003 004 05 0 00 001651 ER4 AC+1,T
11441 042004 321 10 0 00 041776 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11442
11443 001652 T=T+1
11444 000040 XX=XX+XX
11445 IFE XX,<XX=1>
11446 154400 ZZ=ZZ+1000
11447 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
11448 DMOVE AC,[200000,,XX
11449 042005 120 04 0 00 043432 0,,0]
11450 DFAD AC,[200000,,XX
11451 042006 110 04 0 00 043432 0,,0]
11452 042007 312 04 0 00 043431 CAME AC,[ZZ,,0]
11453 042010 003 04 0 00 001652 ER3 AC,T
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-14
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0234
11454 042011 312 05 0 00 043330 CAME AC+1,[0,,0]
11455 042012 004 05 0 00 001652 ER4 AC+1,T
11456 042013 321 10 0 00 042005 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11457
11458 001653 T=T+1
11459 000100 XX=XX+XX
11460 IFE XX,<XX=1>
11461 155400 ZZ=ZZ+1000
11462 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
11463 DMOVE AC,[200000,,XX
11464 042014 120 04 0 00 043427 0,,0]
11465 DFAD AC,[200000,,XX
11466 042015 110 04 0 00 043427 0,,0]
11467 042016 312 04 0 00 043426 CAME AC,[ZZ,,0]
11468 042017 003 04 0 00 001653 ER3 AC,T
11469 042020 312 05 0 00 043330 CAME AC+1,[0,,0]
11470 042021 004 05 0 00 001653 ER4 AC+1,T
11471 042022 321 10 0 00 042014 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11472
11473 001654 T=T+1
11474 000200 XX=XX+XX
11475 IFE XX,<XX=1>
11476 156400 ZZ=ZZ+1000
11477 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
11478 DMOVE AC,[200000,,XX
11479 042023 120 04 0 00 043424 0,,0]
11480 DFAD AC,[200000,,XX
11481 042024 110 04 0 00 043424 0,,0]
11482 042025 312 04 0 00 043423 CAME AC,[ZZ,,0]
11483 042026 003 04 0 00 001654 ER3 AC,T
11484 042027 312 05 0 00 043330 CAME AC+1,[0,,0]
11485 042030 004 05 0 00 001654 ER4 AC+1,T
11486 042031 321 10 0 00 042023 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11487
11488 001655 T=T+1
11489 000400 XX=XX+XX
11490 IFE XX,<XX=1>
11491 157400 ZZ=ZZ+1000
11492 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
11493 DMOVE AC,[200000,,XX
11494 042032 120 04 0 00 043421 0,,0]
11495 DFAD AC,[200000,,XX
11496 042033 110 04 0 00 043421 0,,0]
11497 042034 312 04 0 00 043420 CAME AC,[ZZ,,0]
11498 042035 003 04 0 00 001655 ER3 AC,T
11499 042036 312 05 0 00 043330 CAME AC+1,[0,,0]
11500 042037 004 05 0 00 001655 ER4 AC+1,T
11501 042040 321 10 0 00 042032 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11502
11503 001656 T=T+1
11504 001000 XX=XX+XX
11505 IFE XX,<XX=1>
11506 160400 ZZ=ZZ+1000
11507 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
11508 DMOVE AC,[200000,,XX
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-15
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0235
11509 042041 120 04 0 00 043416 0,,0]
11510 DFAD AC,[200000,,XX
11511 042042 110 04 0 00 043416 0,,0]
11512 042043 312 04 0 00 043415 CAME AC,[ZZ,,0]
11513 042044 003 04 0 00 001656 ER3 AC,T
11514 042045 312 05 0 00 043330 CAME AC+1,[0,,0]
11515 042046 004 05 0 00 001656 ER4 AC+1,T
11516 042047 321 10 0 00 042041 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11517
11518 001657 T=T+1
11519 002000 XX=XX+XX
11520 IFE XX,<XX=1>
11521 161400 ZZ=ZZ+1000
11522 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
11523 DMOVE AC,[200000,,XX
11524 042050 120 04 0 00 043413 0,,0]
11525 DFAD AC,[200000,,XX
11526 042051 110 04 0 00 043413 0,,0]
11527 042052 312 04 0 00 043412 CAME AC,[ZZ,,0]
11528 042053 003 04 0 00 001657 ER3 AC,T
11529 042054 312 05 0 00 043330 CAME AC+1,[0,,0]
11530 042055 004 05 0 00 001657 ER4 AC+1,T
11531 042056 321 10 0 00 042050 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11532
11533 001660 T=T+1
11534 004000 XX=XX+XX
11535 IFE XX,<XX=1>
11536 162400 ZZ=ZZ+1000
11537 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
11538 DMOVE AC,[200000,,XX
11539 042057 120 04 0 00 043410 0,,0]
11540 DFAD AC,[200000,,XX
11541 042060 110 04 0 00 043410 0,,0]
11542 042061 312 04 0 00 043407 CAME AC,[ZZ,,0]
11543 042062 003 04 0 00 001660 ER3 AC,T
11544 042063 312 05 0 00 043330 CAME AC+1,[0,,0]
11545 042064 004 05 0 00 001660 ER4 AC+1,T
11546 042065 321 10 0 00 042057 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11547
11548 001661 T=T+1
11549 010000 XX=XX+XX
11550 IFE XX,<XX=1>
11551 163400 ZZ=ZZ+1000
11552 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
11553 DMOVE AC,[200000,,XX
11554 042066 120 04 0 00 043405 0,,0]
11555 DFAD AC,[200000,,XX
11556 042067 110 04 0 00 043405 0,,0]
11557 042070 312 04 0 00 043404 CAME AC,[ZZ,,0]
11558 042071 003 04 0 00 001661 ER3 AC,T
11559 042072 312 05 0 00 043330 CAME AC+1,[0,,0]
11560 042073 004 05 0 00 001661 ER4 AC+1,T
11561 042074 321 10 0 00 042066 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11562
11563 001662 T=T+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-16
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0236
11564 020000 XX=XX+XX
11565 IFE XX,<XX=1>
11566 164400 ZZ=ZZ+1000
11567 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
11568 DMOVE AC,[200000,,XX
11569 042075 120 04 0 00 043402 0,,0]
11570 DFAD AC,[200000,,XX
11571 042076 110 04 0 00 043402 0,,0]
11572 042077 312 04 0 00 043401 CAME AC,[ZZ,,0]
11573 042100 003 04 0 00 001662 ER3 AC,T
11574 042101 312 05 0 00 043330 CAME AC+1,[0,,0]
11575 042102 004 05 0 00 001662 ER4 AC+1,T
11576 042103 321 10 0 00 042075 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11577
11578 001663 T=T+1
11579 040000 XX=XX+XX
11580 IFE XX,<XX=1>
11581 165400 ZZ=ZZ+1000
11582 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
11583 DMOVE AC,[200000,,XX
11584 042104 120 04 0 00 043377 0,,0]
11585 DFAD AC,[200000,,XX
11586 042105 110 04 0 00 043377 0,,0]
11587 042106 312 04 0 00 043376 CAME AC,[ZZ,,0]
11588 042107 003 04 0 00 001663 ER3 AC,T
11589 042110 312 05 0 00 043330 CAME AC+1,[0,,0]
11590 042111 004 05 0 00 001663 ER4 AC+1,T
11591 042112 321 10 0 00 042104 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11592
11593 001664 T=T+1
11594 100000 XX=XX+XX
11595 IFE XX,<XX=1>
11596 166400 ZZ=ZZ+1000
11597 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
11598 DMOVE AC,[200000,,XX
11599 042113 120 04 0 00 043374 0,,0]
11600 DFAD AC,[200000,,XX
11601 042114 110 04 0 00 043374 0,,0]
11602 042115 312 04 0 00 043373 CAME AC,[ZZ,,0]
11603 042116 003 04 0 00 001664 ER3 AC,T
11604 042117 312 05 0 00 043330 CAME AC+1,[0,,0]
11605 042120 004 05 0 00 001664 ER4 AC+1,T
11606 042121 321 10 0 00 042113 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11607
11608 001665 T=T+1
11609 200000 XX=XX+XX
11610 IFE XX,<XX=1>
11611 167400 ZZ=ZZ+1000
11612 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
11613 DMOVE AC,[200000,,XX
11614 042122 120 04 0 00 043371 0,,0]
11615 DFAD AC,[200000,,XX
11616 042123 110 04 0 00 043371 0,,0]
11617 042124 312 04 0 00 043370 CAME AC,[ZZ,,0]
11618 042125 003 04 0 00 001665 ER3 AC,T
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-17
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0237
11619 042126 312 05 0 00 043330 CAME AC+1,[0,,0]
11620 042127 004 05 0 00 001665 ER4 AC+1,T
11621 042130 321 10 0 00 042122 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11622
11623 001666 T=T+1
11624 400000 XX=XX+XX
11625 IFE XX,<XX=1>
11626 170400 ZZ=ZZ+1000
11627 DFARP T,200000,XX,0,0,200000,XX,0,0,ZZ,0,0,0^
11628 DMOVE AC,[200000,,XX
11629 042131 120 04 0 00 043366 0,,0]
11630 DFAD AC,[200000,,XX
11631 042132 110 04 0 00 043366 0,,0]
11632 042133 312 04 0 00 043365 CAME AC,[ZZ,,0]
11633 042134 003 04 0 00 001666 ER3 AC,T
11634 042135 312 05 0 00 043330 CAME AC+1,[0,,0]
11635 042136 004 05 0 00 001666 ER4 AC+1,T
11636 042137 321 10 0 00 042131 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11637
11638
11639 000000 XX=0
11640
11641 REPEAT ^D9,
11642 <T=T+1
11643 XX=XX+XX
11644 IFE XX,<XX=1>
11645 ZZ=ZZ+1000
11646 DFARP T,200000+XX,0,0,0,200000+XX,0,0,0,ZZ,0,0,0
11647 >
11648 001667 T=T+1
11649 000000 XX=XX+XX
11650 000001 IFE XX,<XX=1>
11651 171400 ZZ=ZZ+1000
11652 DFARP T,200000+XX,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
11653 DMOVE AC,[200000+XX,,0
11654 042140 120 04 0 00 043363 0,,0]
11655 DFAD AC,[200000+XX,,0
11656 042141 110 04 0 00 043363 0,,0]
11657 042142 312 04 0 00 043362 CAME AC,[ZZ,,0]
11658 042143 003 04 0 00 001667 ER3 AC,T
11659 042144 312 05 0 00 043330 CAME AC+1,[0,,0]
11660 042145 004 05 0 00 001667 ER4 AC+1,T
11661 042146 321 10 0 00 042140 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11662
11663 001670 T=T+1
11664 000002 XX=XX+XX
11665 IFE XX,<XX=1>
11666 172400 ZZ=ZZ+1000
11667 DFARP T,200000+XX,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
11668 DMOVE AC,[200000+XX,,0
11669 042147 120 04 0 00 043360 0,,0]
11670 DFAD AC,[200000+XX,,0
11671 042150 110 04 0 00 043360 0,,0]
11672 042151 312 04 0 00 043357 CAME AC,[ZZ,,0]
11673 042152 003 04 0 00 001670 ER3 AC,T
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-18
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0238
11674 042153 312 05 0 00 043330 CAME AC+1,[0,,0]
11675 042154 004 05 0 00 001670 ER4 AC+1,T
11676 042155 321 10 0 00 042147 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11677
11678 001671 T=T+1
11679 000004 XX=XX+XX
11680 IFE XX,<XX=1>
11681 173400 ZZ=ZZ+1000
11682 DFARP T,200000+XX,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
11683 DMOVE AC,[200000+XX,,0
11684 042156 120 04 0 00 043355 0,,0]
11685 DFAD AC,[200000+XX,,0
11686 042157 110 04 0 00 043355 0,,0]
11687 042160 312 04 0 00 043354 CAME AC,[ZZ,,0]
11688 042161 003 04 0 00 001671 ER3 AC,T
11689 042162 312 05 0 00 043330 CAME AC+1,[0,,0]
11690 042163 004 05 0 00 001671 ER4 AC+1,T
11691 042164 321 10 0 00 042156 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11692
11693 001672 T=T+1
11694 000010 XX=XX+XX
11695 IFE XX,<XX=1>
11696 174400 ZZ=ZZ+1000
11697 DFARP T,200000+XX,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
11698 DMOVE AC,[200000+XX,,0
11699 042165 120 04 0 00 043352 0,,0]
11700 DFAD AC,[200000+XX,,0
11701 042166 110 04 0 00 043352 0,,0]
11702 042167 312 04 0 00 043351 CAME AC,[ZZ,,0]
11703 042170 003 04 0 00 001672 ER3 AC,T
11704 042171 312 05 0 00 043330 CAME AC+1,[0,,0]
11705 042172 004 05 0 00 001672 ER4 AC+1,T
11706 042173 321 10 0 00 042165 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11707
11708 001673 T=T+1
11709 000020 XX=XX+XX
11710 IFE XX,<XX=1>
11711 175400 ZZ=ZZ+1000
11712 DFARP T,200000+XX,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
11713 DMOVE AC,[200000+XX,,0
11714 042174 120 04 0 00 043347 0,,0]
11715 DFAD AC,[200000+XX,,0
11716 042175 110 04 0 00 043347 0,,0]
11717 042176 312 04 0 00 043346 CAME AC,[ZZ,,0]
11718 042177 003 04 0 00 001673 ER3 AC,T
11719 042200 312 05 0 00 043330 CAME AC+1,[0,,0]
11720 042201 004 05 0 00 001673 ER4 AC+1,T
11721 042202 321 10 0 00 042174 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11722
11723 001674 T=T+1
11724 000040 XX=XX+XX
11725 IFE XX,<XX=1>
11726 176400 ZZ=ZZ+1000
11727 DFARP T,200000+XX,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
11728 DMOVE AC,[200000+XX,,0
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 12-19
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0239
11729 042203 120 04 0 00 043344 0,,0]
11730 DFAD AC,[200000+XX,,0
11731 042204 110 04 0 00 043344 0,,0]
11732 042205 312 04 0 00 043343 CAME AC,[ZZ,,0]
11733 042206 003 04 0 00 001674 ER3 AC,T
11734 042207 312 05 0 00 043330 CAME AC+1,[0,,0]
11735 042210 004 05 0 00 001674 ER4 AC+1,T
11736 042211 321 10 0 00 042203 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11737
11738 001675 T=T+1
11739 000100 XX=XX+XX
11740 IFE XX,<XX=1>
11741 177400 ZZ=ZZ+1000
11742 DFARP T,200000+XX,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
11743 DMOVE AC,[200000+XX,,0
11744 042212 120 04 0 00 043341 0,,0]
11745 DFAD AC,[200000+XX,,0
11746 042213 110 04 0 00 043341 0,,0]
11747 042214 312 04 0 00 043340 CAME AC,[ZZ,,0]
11748 042215 003 04 0 00 001675 ER3 AC,T
11749 042216 312 05 0 00 043330 CAME AC+1,[0,,0]
11750 042217 004 05 0 00 001675 ER4 AC+1,T
11751 042220 321 10 0 00 042212 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11752
11753 001676 T=T+1
11754 000200 XX=XX+XX
11755 IFE XX,<XX=1>
11756 200400 ZZ=ZZ+1000
11757 DFARP T,200000+XX,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
11758 DMOVE AC,[200000+XX,,0
11759 042221 120 04 0 00 043336 0,,0]
11760 DFAD AC,[200000+XX,,0
11761 042222 110 04 0 00 043336 0,,0]
11762 042223 312 04 0 00 043334 CAME AC,[ZZ,,0]
11763 042224 003 04 0 00 001676 ER3 AC,T
11764 042225 312 05 0 00 043330 CAME AC+1,[0,,0]
11765 042226 004 05 0 00 001676 ER4 AC+1,T
11766 042227 321 10 0 00 042221 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11767
11768 001677 T=T+1
11769 000400 XX=XX+XX
11770 IFE XX,<XX=1>
11771 201400 ZZ=ZZ+1000
11772 DFARP T,200000+XX,0,0,0,200000+XX,0,0,0,ZZ,0,0,0^
11773 DMOVE AC,[200000+XX,,0
11774 042230 120 04 0 00 043334 0,,0]
11775 DFAD AC,[200000+XX,,0
11776 042231 110 04 0 00 043334 0,,0]
11777 042232 312 04 0 00 044205 CAME AC,[ZZ,,0]
11778 042233 003 04 0 00 001677 ER3 AC,T
11779 042234 312 05 0 00 043330 CAME AC+1,[0,,0]
11780 042235 004 05 0 00 001677 ER4 AC+1,T
11781 042236 321 10 0 00 042230 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11782
11783
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0240
11784 ;RIPPLE ZEROS TESTS (ADD A FRACTION OF A RIPPLED ZERO TO SAME)
11785
11786 001700 T=1700
11787
11788 000000 XX=0
11789
11790 R1700: REPEAT ^D18,
11791 <T=T+1
11792 XX=XX+XX+1
11793 IFE <XX-1>,<XX=-2>
11794 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX
11795 >
11796 001701 T=T+1
11797 000001 XX=XX+XX+1
11798 777777 777776 IFE <XX-1>,<XX=-2>
11799 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
11800 DMOVE AC,[777,,-1
11801 042237 120 04 0 00 043632 -1,,XX]
11802 DFAD AC,[777,,-1
11803 042240 110 04 0 00 043632 -1,,XX]
11804 042241 312 04 0 00 044471 CAME AC,[1777,,-1]
11805 042242 003 04 0 00 001701 ER3 AC,T
11806 042243 312 05 0 00 043634 CAME AC+1,[377777,,XX]
11807 042244 004 05 0 00 001701 ER4 AC+1,T
11808 042245 321 10 0 00 042237 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11809
11810 001702 T=T+1
11811 777777 777775 XX=XX+XX+1
11812 IFE <XX-1>,<XX=-2>
11813 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
11814 DMOVE AC,[777,,-1
11815 042246 120 04 0 00 043635 -1,,XX]
11816 DFAD AC,[777,,-1
11817 042247 110 04 0 00 043635 -1,,XX]
11818 042250 312 04 0 00 044471 CAME AC,[1777,,-1]
11819 042251 003 04 0 00 001702 ER3 AC,T
11820 042252 312 05 0 00 043637 CAME AC+1,[377777,,XX]
11821 042253 004 05 0 00 001702 ER4 AC+1,T
11822 042254 321 10 0 00 042246 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11823
11824 001703 T=T+1
11825 777777 777773 XX=XX+XX+1
11826 IFE <XX-1>,<XX=-2>
11827 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
11828 DMOVE AC,[777,,-1
11829 042255 120 04 0 00 043640 -1,,XX]
11830 DFAD AC,[777,,-1
11831 042256 110 04 0 00 043640 -1,,XX]
11832 042257 312 04 0 00 044471 CAME AC,[1777,,-1]
11833 042260 003 04 0 00 001703 ER3 AC,T
11834 042261 312 05 0 00 043642 CAME AC+1,[377777,,XX]
11835 042262 004 05 0 00 001703 ER4 AC+1,T
11836 042263 321 10 0 00 042255 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11837
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-1
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0241
11838 001704 T=T+1
11839 777777 777767 XX=XX+XX+1
11840 IFE <XX-1>,<XX=-2>
11841 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
11842 DMOVE AC,[777,,-1
11843 042264 120 04 0 00 043643 -1,,XX]
11844 DFAD AC,[777,,-1
11845 042265 110 04 0 00 043643 -1,,XX]
11846 042266 312 04 0 00 044471 CAME AC,[1777,,-1]
11847 042267 003 04 0 00 001704 ER3 AC,T
11848 042270 312 05 0 00 043645 CAME AC+1,[377777,,XX]
11849 042271 004 05 0 00 001704 ER4 AC+1,T
11850 042272 321 10 0 00 042264 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11851
11852 001705 T=T+1
11853 777777 777757 XX=XX+XX+1
11854 IFE <XX-1>,<XX=-2>
11855 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
11856 DMOVE AC,[777,,-1
11857 042273 120 04 0 00 043646 -1,,XX]
11858 DFAD AC,[777,,-1
11859 042274 110 04 0 00 043646 -1,,XX]
11860 042275 312 04 0 00 044471 CAME AC,[1777,,-1]
11861 042276 003 04 0 00 001705 ER3 AC,T
11862 042277 312 05 0 00 043650 CAME AC+1,[377777,,XX]
11863 042300 004 05 0 00 001705 ER4 AC+1,T
11864 042301 321 10 0 00 042273 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11865
11866 001706 T=T+1
11867 777777 777737 XX=XX+XX+1
11868 IFE <XX-1>,<XX=-2>
11869 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
11870 DMOVE AC,[777,,-1
11871 042302 120 04 0 00 043651 -1,,XX]
11872 DFAD AC,[777,,-1
11873 042303 110 04 0 00 043651 -1,,XX]
11874 042304 312 04 0 00 044471 CAME AC,[1777,,-1]
11875 042305 003 04 0 00 001706 ER3 AC,T
11876 042306 312 05 0 00 043653 CAME AC+1,[377777,,XX]
11877 042307 004 05 0 00 001706 ER4 AC+1,T
11878 042310 321 10 0 00 042302 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11879
11880 001707 T=T+1
11881 777777 777677 XX=XX+XX+1
11882 IFE <XX-1>,<XX=-2>
11883 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
11884 DMOVE AC,[777,,-1
11885 042311 120 04 0 00 043654 -1,,XX]
11886 DFAD AC,[777,,-1
11887 042312 110 04 0 00 043654 -1,,XX]
11888 042313 312 04 0 00 044471 CAME AC,[1777,,-1]
11889 042314 003 04 0 00 001707 ER3 AC,T
11890 042315 312 05 0 00 043656 CAME AC+1,[377777,,XX]
11891 042316 004 05 0 00 001707 ER4 AC+1,T
11892 042317 321 10 0 00 042311 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-2
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0242
11893
11894 001710 T=T+1
11895 777777 777577 XX=XX+XX+1
11896 IFE <XX-1>,<XX=-2>
11897 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
11898 DMOVE AC,[777,,-1
11899 042320 120 04 0 00 043657 -1,,XX]
11900 DFAD AC,[777,,-1
11901 042321 110 04 0 00 043657 -1,,XX]
11902 042322 312 04 0 00 044471 CAME AC,[1777,,-1]
11903 042323 003 04 0 00 001710 ER3 AC,T
11904 042324 312 05 0 00 043661 CAME AC+1,[377777,,XX]
11905 042325 004 05 0 00 001710 ER4 AC+1,T
11906 042326 321 10 0 00 042320 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11907
11908 001711 T=T+1
11909 777777 777377 XX=XX+XX+1
11910 IFE <XX-1>,<XX=-2>
11911 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
11912 DMOVE AC,[777,,-1
11913 042327 120 04 0 00 043662 -1,,XX]
11914 DFAD AC,[777,,-1
11915 042330 110 04 0 00 043662 -1,,XX]
11916 042331 312 04 0 00 044471 CAME AC,[1777,,-1]
11917 042332 003 04 0 00 001711 ER3 AC,T
11918 042333 312 05 0 00 043664 CAME AC+1,[377777,,XX]
11919 042334 004 05 0 00 001711 ER4 AC+1,T
11920 042335 321 10 0 00 042327 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11921
11922 001712 T=T+1
11923 777777 776777 XX=XX+XX+1
11924 IFE <XX-1>,<XX=-2>
11925 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
11926 DMOVE AC,[777,,-1
11927 042336 120 04 0 00 043665 -1,,XX]
11928 DFAD AC,[777,,-1
11929 042337 110 04 0 00 043665 -1,,XX]
11930 042340 312 04 0 00 044471 CAME AC,[1777,,-1]
11931 042341 003 04 0 00 001712 ER3 AC,T
11932 042342 312 05 0 00 043667 CAME AC+1,[377777,,XX]
11933 042343 004 05 0 00 001712 ER4 AC+1,T
11934 042344 321 10 0 00 042336 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11935
11936 001713 T=T+1
11937 777777 775777 XX=XX+XX+1
11938 IFE <XX-1>,<XX=-2>
11939 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
11940 DMOVE AC,[777,,-1
11941 042345 120 04 0 00 043670 -1,,XX]
11942 DFAD AC,[777,,-1
11943 042346 110 04 0 00 043670 -1,,XX]
11944 042347 312 04 0 00 044471 CAME AC,[1777,,-1]
11945 042350 003 04 0 00 001713 ER3 AC,T
11946 042351 312 05 0 00 043672 CAME AC+1,[377777,,XX]
11947 042352 004 05 0 00 001713 ER4 AC+1,T
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-3
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0243
11948 042353 321 10 0 00 042345 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11949
11950 001714 T=T+1
11951 777777 773777 XX=XX+XX+1
11952 IFE <XX-1>,<XX=-2>
11953 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
11954 DMOVE AC,[777,,-1
11955 042354 120 04 0 00 043673 -1,,XX]
11956 DFAD AC,[777,,-1
11957 042355 110 04 0 00 043673 -1,,XX]
11958 042356 312 04 0 00 044471 CAME AC,[1777,,-1]
11959 042357 003 04 0 00 001714 ER3 AC,T
11960 042360 312 05 0 00 043675 CAME AC+1,[377777,,XX]
11961 042361 004 05 0 00 001714 ER4 AC+1,T
11962 042362 321 10 0 00 042354 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11963
11964 001715 T=T+1
11965 777777 767777 XX=XX+XX+1
11966 IFE <XX-1>,<XX=-2>
11967 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
11968 DMOVE AC,[777,,-1
11969 042363 120 04 0 00 043676 -1,,XX]
11970 DFAD AC,[777,,-1
11971 042364 110 04 0 00 043676 -1,,XX]
11972 042365 312 04 0 00 044471 CAME AC,[1777,,-1]
11973 042366 003 04 0 00 001715 ER3 AC,T
11974 042367 312 05 0 00 043700 CAME AC+1,[377777,,XX]
11975 042370 004 05 0 00 001715 ER4 AC+1,T
11976 042371 321 10 0 00 042363 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11977
11978 001716 T=T+1
11979 777777 757777 XX=XX+XX+1
11980 IFE <XX-1>,<XX=-2>
11981 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
11982 DMOVE AC,[777,,-1
11983 042372 120 04 0 00 043701 -1,,XX]
11984 DFAD AC,[777,,-1
11985 042373 110 04 0 00 043701 -1,,XX]
11986 042374 312 04 0 00 044471 CAME AC,[1777,,-1]
11987 042375 003 04 0 00 001716 ER3 AC,T
11988 042376 312 05 0 00 043703 CAME AC+1,[377777,,XX]
11989 042377 004 05 0 00 001716 ER4 AC+1,T
11990 042400 321 10 0 00 042372 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
11991
11992 001717 T=T+1
11993 777777 737777 XX=XX+XX+1
11994 IFE <XX-1>,<XX=-2>
11995 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
11996 DMOVE AC,[777,,-1
11997 042401 120 04 0 00 043704 -1,,XX]
11998 DFAD AC,[777,,-1
11999 042402 110 04 0 00 043704 -1,,XX]
12000 042403 312 04 0 00 044471 CAME AC,[1777,,-1]
12001 042404 003 04 0 00 001717 ER3 AC,T
12002 042405 312 05 0 00 043706 CAME AC+1,[377777,,XX]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-4
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0244
12003 042406 004 05 0 00 001717 ER4 AC+1,T
12004 042407 321 10 0 00 042401 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12005
12006 001720 T=T+1
12007 777777 677777 XX=XX+XX+1
12008 IFE <XX-1>,<XX=-2>
12009 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
12010 DMOVE AC,[777,,-1
12011 042410 120 04 0 00 043707 -1,,XX]
12012 DFAD AC,[777,,-1
12013 042411 110 04 0 00 043707 -1,,XX]
12014 042412 312 04 0 00 044471 CAME AC,[1777,,-1]
12015 042413 003 04 0 00 001720 ER3 AC,T
12016 042414 312 05 0 00 043711 CAME AC+1,[377777,,XX]
12017 042415 004 05 0 00 001720 ER4 AC+1,T
12018 042416 321 10 0 00 042410 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12019
12020 001721 T=T+1
12021 777777 577777 XX=XX+XX+1
12022 IFE <XX-1>,<XX=-2>
12023 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
12024 DMOVE AC,[777,,-1
12025 042417 120 04 0 00 043712 -1,,XX]
12026 DFAD AC,[777,,-1
12027 042420 110 04 0 00 043712 -1,,XX]
12028 042421 312 04 0 00 044471 CAME AC,[1777,,-1]
12029 042422 003 04 0 00 001721 ER3 AC,T
12030 042423 312 05 0 00 043714 CAME AC+1,[377777,,XX]
12031 042424 004 05 0 00 001721 ER4 AC+1,T
12032 042425 321 10 0 00 042417 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12033
12034 001722 T=T+1
12035 777777 377777 XX=XX+XX+1
12036 IFE <XX-1>,<XX=-2>
12037 DFARP T,777,-1,-1,XX,777,-1,-1,XX,1777,-1,377777,XX^
12038 DMOVE AC,[777,,-1
12039 042426 120 04 0 00 043715 -1,,XX]
12040 DFAD AC,[777,,-1
12041 042427 110 04 0 00 043715 -1,,XX]
12042 042430 312 04 0 00 044471 CAME AC,[1777,,-1]
12043 042431 003 04 0 00 001722 ER3 AC,T
12044 042432 312 05 0 00 043717 CAME AC+1,[377777,,XX]
12045 042433 004 05 0 00 001722 ER4 AC+1,T
12046 042434 321 10 0 00 042426 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12047
12048
12049 000000 XX=0
12050
12051 REPEAT ^D18,
12052 <T=T+1
12053 XX=XX+XX+1
12054 IFE <XX-1>,<XX=-2>
12055 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1
12056 >
12057 001723 T=T+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-5
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0245
12058 000001 XX=XX+XX+1
12059 777777 777776 IFE <XX-1>,<XX=-2>
12060 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
12061 DMOVE AC,[777,,-1
12062 042435 120 04 0 00 043720 XX,,-1]
12063 DFAD AC,[777,,-1
12064 042436 110 04 0 00 043720 XX,,-1]
12065 042437 312 04 0 00 044471 CAME AC,[1777,,-1]
12066 042440 003 04 0 00 001723 ER3 AC,T
12067 042441 312 05 0 00 043722 CAME AC+1,[XX&377777,,-1]
12068 042442 004 05 0 00 001723 ER4 AC+1,T
12069 042443 321 10 0 00 042435 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12070
12071 001724 T=T+1
12072 777777 777775 XX=XX+XX+1
12073 IFE <XX-1>,<XX=-2>
12074 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
12075 DMOVE AC,[777,,-1
12076 042444 120 04 0 00 043723 XX,,-1]
12077 DFAD AC,[777,,-1
12078 042445 110 04 0 00 043723 XX,,-1]
12079 042446 312 04 0 00 044471 CAME AC,[1777,,-1]
12080 042447 003 04 0 00 001724 ER3 AC,T
12081 042450 312 05 0 00 043725 CAME AC+1,[XX&377777,,-1]
12082 042451 004 05 0 00 001724 ER4 AC+1,T
12083 042452 321 10 0 00 042444 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12084
12085 001725 T=T+1
12086 777777 777773 XX=XX+XX+1
12087 IFE <XX-1>,<XX=-2>
12088 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
12089 DMOVE AC,[777,,-1
12090 042453 120 04 0 00 043726 XX,,-1]
12091 DFAD AC,[777,,-1
12092 042454 110 04 0 00 043726 XX,,-1]
12093 042455 312 04 0 00 044471 CAME AC,[1777,,-1]
12094 042456 003 04 0 00 001725 ER3 AC,T
12095 042457 312 05 0 00 043730 CAME AC+1,[XX&377777,,-1]
12096 042460 004 05 0 00 001725 ER4 AC+1,T
12097 042461 321 10 0 00 042453 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12098
12099 001726 T=T+1
12100 777777 777767 XX=XX+XX+1
12101 IFE <XX-1>,<XX=-2>
12102 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
12103 DMOVE AC,[777,,-1
12104 042462 120 04 0 00 043731 XX,,-1]
12105 DFAD AC,[777,,-1
12106 042463 110 04 0 00 043731 XX,,-1]
12107 042464 312 04 0 00 044471 CAME AC,[1777,,-1]
12108 042465 003 04 0 00 001726 ER3 AC,T
12109 042466 312 05 0 00 043733 CAME AC+1,[XX&377777,,-1]
12110 042467 004 05 0 00 001726 ER4 AC+1,T
12111 042470 321 10 0 00 042462 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12112
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-6
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0246
12113 001727 T=T+1
12114 777777 777757 XX=XX+XX+1
12115 IFE <XX-1>,<XX=-2>
12116 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
12117 DMOVE AC,[777,,-1
12118 042471 120 04 0 00 043734 XX,,-1]
12119 DFAD AC,[777,,-1
12120 042472 110 04 0 00 043734 XX,,-1]
12121 042473 312 04 0 00 044471 CAME AC,[1777,,-1]
12122 042474 003 04 0 00 001727 ER3 AC,T
12123 042475 312 05 0 00 043736 CAME AC+1,[XX&377777,,-1]
12124 042476 004 05 0 00 001727 ER4 AC+1,T
12125 042477 321 10 0 00 042471 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12126
12127 001730 T=T+1
12128 777777 777737 XX=XX+XX+1
12129 IFE <XX-1>,<XX=-2>
12130 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
12131 DMOVE AC,[777,,-1
12132 042500 120 04 0 00 043737 XX,,-1]
12133 DFAD AC,[777,,-1
12134 042501 110 04 0 00 043737 XX,,-1]
12135 042502 312 04 0 00 044471 CAME AC,[1777,,-1]
12136 042503 003 04 0 00 001730 ER3 AC,T
12137 042504 312 05 0 00 043741 CAME AC+1,[XX&377777,,-1]
12138 042505 004 05 0 00 001730 ER4 AC+1,T
12139 042506 321 10 0 00 042500 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12140
12141 001731 T=T+1
12142 777777 777677 XX=XX+XX+1
12143 IFE <XX-1>,<XX=-2>
12144 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
12145 DMOVE AC,[777,,-1
12146 042507 120 04 0 00 043742 XX,,-1]
12147 DFAD AC,[777,,-1
12148 042510 110 04 0 00 043742 XX,,-1]
12149 042511 312 04 0 00 044471 CAME AC,[1777,,-1]
12150 042512 003 04 0 00 001731 ER3 AC,T
12151 042513 312 05 0 00 043744 CAME AC+1,[XX&377777,,-1]
12152 042514 004 05 0 00 001731 ER4 AC+1,T
12153 042515 321 10 0 00 042507 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12154
12155 001732 T=T+1
12156 777777 777577 XX=XX+XX+1
12157 IFE <XX-1>,<XX=-2>
12158 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
12159 DMOVE AC,[777,,-1
12160 042516 120 04 0 00 043745 XX,,-1]
12161 DFAD AC,[777,,-1
12162 042517 110 04 0 00 043745 XX,,-1]
12163 042520 312 04 0 00 044471 CAME AC,[1777,,-1]
12164 042521 003 04 0 00 001732 ER3 AC,T
12165 042522 312 05 0 00 043747 CAME AC+1,[XX&377777,,-1]
12166 042523 004 05 0 00 001732 ER4 AC+1,T
12167 042524 321 10 0 00 042516 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-7
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0247
12168
12169 001733 T=T+1
12170 777777 777377 XX=XX+XX+1
12171 IFE <XX-1>,<XX=-2>
12172 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
12173 DMOVE AC,[777,,-1
12174 042525 120 04 0 00 043750 XX,,-1]
12175 DFAD AC,[777,,-1
12176 042526 110 04 0 00 043750 XX,,-1]
12177 042527 312 04 0 00 044471 CAME AC,[1777,,-1]
12178 042530 003 04 0 00 001733 ER3 AC,T
12179 042531 312 05 0 00 043752 CAME AC+1,[XX&377777,,-1]
12180 042532 004 05 0 00 001733 ER4 AC+1,T
12181 042533 321 10 0 00 042525 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12182
12183 001734 T=T+1
12184 777777 776777 XX=XX+XX+1
12185 IFE <XX-1>,<XX=-2>
12186 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
12187 DMOVE AC,[777,,-1
12188 042534 120 04 0 00 043753 XX,,-1]
12189 DFAD AC,[777,,-1
12190 042535 110 04 0 00 043753 XX,,-1]
12191 042536 312 04 0 00 044471 CAME AC,[1777,,-1]
12192 042537 003 04 0 00 001734 ER3 AC,T
12193 042540 312 05 0 00 043755 CAME AC+1,[XX&377777,,-1]
12194 042541 004 05 0 00 001734 ER4 AC+1,T
12195 042542 321 10 0 00 042534 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12196
12197 001735 T=T+1
12198 777777 775777 XX=XX+XX+1
12199 IFE <XX-1>,<XX=-2>
12200 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
12201 DMOVE AC,[777,,-1
12202 042543 120 04 0 00 043756 XX,,-1]
12203 DFAD AC,[777,,-1
12204 042544 110 04 0 00 043756 XX,,-1]
12205 042545 312 04 0 00 044471 CAME AC,[1777,,-1]
12206 042546 003 04 0 00 001735 ER3 AC,T
12207 042547 312 05 0 00 043760 CAME AC+1,[XX&377777,,-1]
12208 042550 004 05 0 00 001735 ER4 AC+1,T
12209 042551 321 10 0 00 042543 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12210
12211 001736 T=T+1
12212 777777 773777 XX=XX+XX+1
12213 IFE <XX-1>,<XX=-2>
12214 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
12215 DMOVE AC,[777,,-1
12216 042552 120 04 0 00 043761 XX,,-1]
12217 DFAD AC,[777,,-1
12218 042553 110 04 0 00 043761 XX,,-1]
12219 042554 312 04 0 00 044471 CAME AC,[1777,,-1]
12220 042555 003 04 0 00 001736 ER3 AC,T
12221 042556 312 05 0 00 043763 CAME AC+1,[XX&377777,,-1]
12222 042557 004 05 0 00 001736 ER4 AC+1,T
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-8
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0248
12223 042560 321 10 0 00 042552 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12224
12225 001737 T=T+1
12226 777777 767777 XX=XX+XX+1
12227 IFE <XX-1>,<XX=-2>
12228 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
12229 DMOVE AC,[777,,-1
12230 042561 120 04 0 00 043764 XX,,-1]
12231 DFAD AC,[777,,-1
12232 042562 110 04 0 00 043764 XX,,-1]
12233 042563 312 04 0 00 044471 CAME AC,[1777,,-1]
12234 042564 003 04 0 00 001737 ER3 AC,T
12235 042565 312 05 0 00 043766 CAME AC+1,[XX&377777,,-1]
12236 042566 004 05 0 00 001737 ER4 AC+1,T
12237 042567 321 10 0 00 042561 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12238
12239 001740 T=T+1
12240 777777 757777 XX=XX+XX+1
12241 IFE <XX-1>,<XX=-2>
12242 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
12243 DMOVE AC,[777,,-1
12244 042570 120 04 0 00 043767 XX,,-1]
12245 DFAD AC,[777,,-1
12246 042571 110 04 0 00 043767 XX,,-1]
12247 042572 312 04 0 00 044471 CAME AC,[1777,,-1]
12248 042573 003 04 0 00 001740 ER3 AC,T
12249 042574 312 05 0 00 043771 CAME AC+1,[XX&377777,,-1]
12250 042575 004 05 0 00 001740 ER4 AC+1,T
12251 042576 321 10 0 00 042570 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12252
12253 001741 T=T+1
12254 777777 737777 XX=XX+XX+1
12255 IFE <XX-1>,<XX=-2>
12256 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
12257 DMOVE AC,[777,,-1
12258 042577 120 04 0 00 043772 XX,,-1]
12259 DFAD AC,[777,,-1
12260 042600 110 04 0 00 043772 XX,,-1]
12261 042601 312 04 0 00 044471 CAME AC,[1777,,-1]
12262 042602 003 04 0 00 001741 ER3 AC,T
12263 042603 312 05 0 00 043774 CAME AC+1,[XX&377777,,-1]
12264 042604 004 05 0 00 001741 ER4 AC+1,T
12265 042605 321 10 0 00 042577 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12266
12267 001742 T=T+1
12268 777777 677777 XX=XX+XX+1
12269 IFE <XX-1>,<XX=-2>
12270 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
12271 DMOVE AC,[777,,-1
12272 042606 120 04 0 00 043775 XX,,-1]
12273 DFAD AC,[777,,-1
12274 042607 110 04 0 00 043775 XX,,-1]
12275 042610 312 04 0 00 044471 CAME AC,[1777,,-1]
12276 042611 003 04 0 00 001742 ER3 AC,T
12277 042612 312 05 0 00 043777 CAME AC+1,[XX&377777,,-1]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-9
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0249
12278 042613 004 05 0 00 001742 ER4 AC+1,T
12279 042614 321 10 0 00 042606 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12280
12281 001743 T=T+1
12282 777777 577777 XX=XX+XX+1
12283 IFE <XX-1>,<XX=-2>
12284 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
12285 DMOVE AC,[777,,-1
12286 042615 120 04 0 00 044000 XX,,-1]
12287 DFAD AC,[777,,-1
12288 042616 110 04 0 00 044000 XX,,-1]
12289 042617 312 04 0 00 044471 CAME AC,[1777,,-1]
12290 042620 003 04 0 00 001743 ER3 AC,T
12291 042621 312 05 0 00 044002 CAME AC+1,[XX&377777,,-1]
12292 042622 004 05 0 00 001743 ER4 AC+1,T
12293 042623 321 10 0 00 042615 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12294
12295 001744 T=T+1
12296 777777 377777 XX=XX+XX+1
12297 IFE <XX-1>,<XX=-2>
12298 DFARP T,777,-1,XX,-1,777,-1,XX,-1,1777,-1,XX&377777,-1^
12299 DMOVE AC,[777,,-1
12300 042624 120 04 0 00 044003 XX,,-1]
12301 DFAD AC,[777,,-1
12302 042625 110 04 0 00 044003 XX,,-1]
12303 042626 312 04 0 00 044471 CAME AC,[1777,,-1]
12304 042627 003 04 0 00 001744 ER3 AC,T
12305 042630 312 05 0 00 043631 CAME AC+1,[XX&377777,,-1]
12306 042631 004 05 0 00 001744 ER4 AC+1,T
12307 042632 321 10 0 00 042624 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12308
12309
12310 000000 XX=0
12311
12312 REPEAT ^D18,
12313 <T=T+1
12314 XX=XX+XX+1
12315 IFE <XX-1>,<XX=-2>
12316 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1
12317 >
12318 001745 T=T+1
12319 000001 XX=XX+XX+1
12320 777777 777776 IFE <XX-1>,<XX=-2>
12321 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
12322 DMOVE AC,[777,,XX
12323 042633 120 04 0 00 044005 -1,,-1]
12324 DFAD AC,[777,,XX
12325 042634 110 04 0 00 044005 -1,,-1]
12326 042635 312 04 0 00 044472 CAME AC,[1777,,XX]
12327 042636 003 04 0 00 001745 ER3 AC,T
12328 042637 312 05 0 00 043631 CAME AC+1,[377777,,-1]
12329 042640 004 05 0 00 001745 ER4 AC+1,T
12330 042641 321 10 0 00 042633 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12331
12332 001746 T=T+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-10
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0250
12333 777777 777775 XX=XX+XX+1
12334 IFE <XX-1>,<XX=-2>
12335 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
12336 DMOVE AC,[777,,XX
12337 042642 120 04 0 00 044007 -1,,-1]
12338 DFAD AC,[777,,XX
12339 042643 110 04 0 00 044007 -1,,-1]
12340 042644 312 04 0 00 044473 CAME AC,[1777,,XX]
12341 042645 003 04 0 00 001746 ER3 AC,T
12342 042646 312 05 0 00 043631 CAME AC+1,[377777,,-1]
12343 042647 004 05 0 00 001746 ER4 AC+1,T
12344 042650 321 10 0 00 042642 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12345
12346 001747 T=T+1
12347 777777 777773 XX=XX+XX+1
12348 IFE <XX-1>,<XX=-2>
12349 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
12350 DMOVE AC,[777,,XX
12351 042651 120 04 0 00 044011 -1,,-1]
12352 DFAD AC,[777,,XX
12353 042652 110 04 0 00 044011 -1,,-1]
12354 042653 312 04 0 00 044474 CAME AC,[1777,,XX]
12355 042654 003 04 0 00 001747 ER3 AC,T
12356 042655 312 05 0 00 043631 CAME AC+1,[377777,,-1]
12357 042656 004 05 0 00 001747 ER4 AC+1,T
12358 042657 321 10 0 00 042651 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12359
12360 001750 T=T+1
12361 777777 777767 XX=XX+XX+1
12362 IFE <XX-1>,<XX=-2>
12363 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
12364 DMOVE AC,[777,,XX
12365 042660 120 04 0 00 044013 -1,,-1]
12366 DFAD AC,[777,,XX
12367 042661 110 04 0 00 044013 -1,,-1]
12368 042662 312 04 0 00 044475 CAME AC,[1777,,XX]
12369 042663 003 04 0 00 001750 ER3 AC,T
12370 042664 312 05 0 00 043631 CAME AC+1,[377777,,-1]
12371 042665 004 05 0 00 001750 ER4 AC+1,T
12372 042666 321 10 0 00 042660 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12373
12374 001751 T=T+1
12375 777777 777757 XX=XX+XX+1
12376 IFE <XX-1>,<XX=-2>
12377 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
12378 DMOVE AC,[777,,XX
12379 042667 120 04 0 00 044015 -1,,-1]
12380 DFAD AC,[777,,XX
12381 042670 110 04 0 00 044015 -1,,-1]
12382 042671 312 04 0 00 044476 CAME AC,[1777,,XX]
12383 042672 003 04 0 00 001751 ER3 AC,T
12384 042673 312 05 0 00 043631 CAME AC+1,[377777,,-1]
12385 042674 004 05 0 00 001751 ER4 AC+1,T
12386 042675 321 10 0 00 042667 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12387
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-11
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0251
12388 001752 T=T+1
12389 777777 777737 XX=XX+XX+1
12390 IFE <XX-1>,<XX=-2>
12391 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
12392 DMOVE AC,[777,,XX
12393 042676 120 04 0 00 044017 -1,,-1]
12394 DFAD AC,[777,,XX
12395 042677 110 04 0 00 044017 -1,,-1]
12396 042700 312 04 0 00 044477 CAME AC,[1777,,XX]
12397 042701 003 04 0 00 001752 ER3 AC,T
12398 042702 312 05 0 00 043631 CAME AC+1,[377777,,-1]
12399 042703 004 05 0 00 001752 ER4 AC+1,T
12400 042704 321 10 0 00 042676 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12401
12402 001753 T=T+1
12403 777777 777677 XX=XX+XX+1
12404 IFE <XX-1>,<XX=-2>
12405 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
12406 DMOVE AC,[777,,XX
12407 042705 120 04 0 00 044021 -1,,-1]
12408 DFAD AC,[777,,XX
12409 042706 110 04 0 00 044021 -1,,-1]
12410 042707 312 04 0 00 044500 CAME AC,[1777,,XX]
12411 042710 003 04 0 00 001753 ER3 AC,T
12412 042711 312 05 0 00 043631 CAME AC+1,[377777,,-1]
12413 042712 004 05 0 00 001753 ER4 AC+1,T
12414 042713 321 10 0 00 042705 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12415
12416 001754 T=T+1
12417 777777 777577 XX=XX+XX+1
12418 IFE <XX-1>,<XX=-2>
12419 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
12420 DMOVE AC,[777,,XX
12421 042714 120 04 0 00 044023 -1,,-1]
12422 DFAD AC,[777,,XX
12423 042715 110 04 0 00 044023 -1,,-1]
12424 042716 312 04 0 00 044501 CAME AC,[1777,,XX]
12425 042717 003 04 0 00 001754 ER3 AC,T
12426 042720 312 05 0 00 043631 CAME AC+1,[377777,,-1]
12427 042721 004 05 0 00 001754 ER4 AC+1,T
12428 042722 321 10 0 00 042714 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12429
12430 001755 T=T+1
12431 777777 777377 XX=XX+XX+1
12432 IFE <XX-1>,<XX=-2>
12433 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
12434 DMOVE AC,[777,,XX
12435 042723 120 04 0 00 044025 -1,,-1]
12436 DFAD AC,[777,,XX
12437 042724 110 04 0 00 044025 -1,,-1]
12438 042725 312 04 0 00 044502 CAME AC,[1777,,XX]
12439 042726 003 04 0 00 001755 ER3 AC,T
12440 042727 312 05 0 00 043631 CAME AC+1,[377777,,-1]
12441 042730 004 05 0 00 001755 ER4 AC+1,T
12442 042731 321 10 0 00 042723 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-12
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0252
12443
12444 001756 T=T+1
12445 777777 776777 XX=XX+XX+1
12446 IFE <XX-1>,<XX=-2>
12447 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
12448 DMOVE AC,[777,,XX
12449 042732 120 04 0 00 044027 -1,,-1]
12450 DFAD AC,[777,,XX
12451 042733 110 04 0 00 044027 -1,,-1]
12452 042734 312 04 0 00 044503 CAME AC,[1777,,XX]
12453 042735 003 04 0 00 001756 ER3 AC,T
12454 042736 312 05 0 00 043631 CAME AC+1,[377777,,-1]
12455 042737 004 05 0 00 001756 ER4 AC+1,T
12456 042740 321 10 0 00 042732 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12457
12458 001757 T=T+1
12459 777777 775777 XX=XX+XX+1
12460 IFE <XX-1>,<XX=-2>
12461 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
12462 DMOVE AC,[777,,XX
12463 042741 120 04 0 00 044031 -1,,-1]
12464 DFAD AC,[777,,XX
12465 042742 110 04 0 00 044031 -1,,-1]
12466 042743 312 04 0 00 044504 CAME AC,[1777,,XX]
12467 042744 003 04 0 00 001757 ER3 AC,T
12468 042745 312 05 0 00 043631 CAME AC+1,[377777,,-1]
12469 042746 004 05 0 00 001757 ER4 AC+1,T
12470 042747 321 10 0 00 042741 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12471
12472 001760 T=T+1
12473 777777 773777 XX=XX+XX+1
12474 IFE <XX-1>,<XX=-2>
12475 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
12476 DMOVE AC,[777,,XX
12477 042750 120 04 0 00 044033 -1,,-1]
12478 DFAD AC,[777,,XX
12479 042751 110 04 0 00 044033 -1,,-1]
12480 042752 312 04 0 00 044505 CAME AC,[1777,,XX]
12481 042753 003 04 0 00 001760 ER3 AC,T
12482 042754 312 05 0 00 043631 CAME AC+1,[377777,,-1]
12483 042755 004 05 0 00 001760 ER4 AC+1,T
12484 042756 321 10 0 00 042750 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12485
12486 001761 T=T+1
12487 777777 767777 XX=XX+XX+1
12488 IFE <XX-1>,<XX=-2>
12489 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
12490 DMOVE AC,[777,,XX
12491 042757 120 04 0 00 044035 -1,,-1]
12492 DFAD AC,[777,,XX
12493 042760 110 04 0 00 044035 -1,,-1]
12494 042761 312 04 0 00 044506 CAME AC,[1777,,XX]
12495 042762 003 04 0 00 001761 ER3 AC,T
12496 042763 312 05 0 00 043631 CAME AC+1,[377777,,-1]
12497 042764 004 05 0 00 001761 ER4 AC+1,T
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-13
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0253
12498 042765 321 10 0 00 042757 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12499
12500 001762 T=T+1
12501 777777 757777 XX=XX+XX+1
12502 IFE <XX-1>,<XX=-2>
12503 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
12504 DMOVE AC,[777,,XX
12505 042766 120 04 0 00 044037 -1,,-1]
12506 DFAD AC,[777,,XX
12507 042767 110 04 0 00 044037 -1,,-1]
12508 042770 312 04 0 00 044507 CAME AC,[1777,,XX]
12509 042771 003 04 0 00 001762 ER3 AC,T
12510 042772 312 05 0 00 043631 CAME AC+1,[377777,,-1]
12511 042773 004 05 0 00 001762 ER4 AC+1,T
12512 042774 321 10 0 00 042766 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12513
12514 001763 T=T+1
12515 777777 737777 XX=XX+XX+1
12516 IFE <XX-1>,<XX=-2>
12517 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
12518 DMOVE AC,[777,,XX
12519 042775 120 04 0 00 044041 -1,,-1]
12520 DFAD AC,[777,,XX
12521 042776 110 04 0 00 044041 -1,,-1]
12522 042777 312 04 0 00 044510 CAME AC,[1777,,XX]
12523 043000 003 04 0 00 001763 ER3 AC,T
12524 043001 312 05 0 00 043631 CAME AC+1,[377777,,-1]
12525 043002 004 05 0 00 001763 ER4 AC+1,T
12526 043003 321 10 0 00 042775 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12527
12528 001764 T=T+1
12529 777777 677777 XX=XX+XX+1
12530 IFE <XX-1>,<XX=-2>
12531 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
12532 DMOVE AC,[777,,XX
12533 043004 120 04 0 00 044043 -1,,-1]
12534 DFAD AC,[777,,XX
12535 043005 110 04 0 00 044043 -1,,-1]
12536 043006 312 04 0 00 044511 CAME AC,[1777,,XX]
12537 043007 003 04 0 00 001764 ER3 AC,T
12538 043010 312 05 0 00 043631 CAME AC+1,[377777,,-1]
12539 043011 004 05 0 00 001764 ER4 AC+1,T
12540 043012 321 10 0 00 043004 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12541
12542 001765 T=T+1
12543 777777 577777 XX=XX+XX+1
12544 IFE <XX-1>,<XX=-2>
12545 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
12546 DMOVE AC,[777,,XX
12547 043013 120 04 0 00 044045 -1,,-1]
12548 DFAD AC,[777,,XX
12549 043014 110 04 0 00 044045 -1,,-1]
12550 043015 312 04 0 00 044512 CAME AC,[1777,,XX]
12551 043016 003 04 0 00 001765 ER3 AC,T
12552 043017 312 05 0 00 043631 CAME AC+1,[377777,,-1]
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-14
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0254
12553 043020 004 05 0 00 001765 ER4 AC+1,T
12554 043021 321 10 0 00 043013 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12555
12556 001766 T=T+1
12557 777777 377777 XX=XX+XX+1
12558 IFE <XX-1>,<XX=-2>
12559 DFARP T,777,XX,-1,-1,777,XX,-1,-1,1777,XX,377777,-1^
12560 DMOVE AC,[777,,XX
12561 043022 120 04 0 00 044047 -1,,-1]
12562 DFAD AC,[777,,XX
12563 043023 110 04 0 00 044047 -1,,-1]
12564 043024 312 04 0 00 044513 CAME AC,[1777,,XX]
12565 043025 003 04 0 00 001766 ER3 AC,T
12566 043026 312 05 0 00 043631 CAME AC+1,[377777,,-1]
12567 043027 004 05 0 00 001766 ER4 AC+1,T
12568 043030 321 10 0 00 043022 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12569
12570
12571 000000 ZZ=0
12572
12573 REPEAT ^D8,
12574 <T=T+1
12575 XX=XX+XX+1
12576 IFE <XX-1>,<XX=-2>
12577 DFARP T,XX&777,-1,-1,-1,XX&777,-1,-1,-1,1000+XX&777,-1,377777,-1
12578 >
12579 001767 T=T+1
12580 777776 777777 XX=XX+XX+1
12581 IFE <XX-1>,<XX=-2>
12582 DFARP T,XX&777,-1,-1,-1,XX&777,-1,-1,-1,1000+XX&777,-1,377777,-1^
12583 DMOVE AC,[XX&777,,-1
12584 043031 120 04 0 00 043627 -1,,-1]
12585 DFAD AC,[XX&777,,-1
12586 043032 110 04 0 00 043627 -1,,-1]
12587 043033 312 04 0 00 044471 CAME AC,[1000+XX&777,,-1]
12588 043034 003 04 0 00 001767 ER3 AC,T
12589 043035 312 05 0 00 043631 CAME AC+1,[377777,,-1]
12590 043036 004 05 0 00 001767 ER4 AC+1,T
12591 043037 321 10 0 00 043031 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12592
12593 001770 T=T+1
12594 777775 777777 XX=XX+XX+1
12595 IFE <XX-1>,<XX=-2>
12596 DFARP T,XX&777,-1,-1,-1,XX&777,-1,-1,-1,1000+XX&777,-1,377777,-1^
12597 DMOVE AC,[XX&777,,-1
12598 043040 120 04 0 00 043627 -1,,-1]
12599 DFAD AC,[XX&777,,-1
12600 043041 110 04 0 00 043627 -1,,-1]
12601 043042 312 04 0 00 044471 CAME AC,[1000+XX&777,,-1]
12602 043043 003 04 0 00 001770 ER3 AC,T
12603 043044 312 05 0 00 043631 CAME AC+1,[377777,,-1]
12604 043045 004 05 0 00 001770 ER4 AC+1,T
12605 043046 321 10 0 00 043040 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12606
12607 001771 T=T+1
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-15
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0255
12608 777773 777777 XX=XX+XX+1
12609 IFE <XX-1>,<XX=-2>
12610 DFARP T,XX&777,-1,-1,-1,XX&777,-1,-1,-1,1000+XX&777,-1,377777,-1^
12611 DMOVE AC,[XX&777,,-1
12612 043047 120 04 0 00 043627 -1,,-1]
12613 DFAD AC,[XX&777,,-1
12614 043050 110 04 0 00 043627 -1,,-1]
12615 043051 312 04 0 00 044471 CAME AC,[1000+XX&777,,-1]
12616 043052 003 04 0 00 001771 ER3 AC,T
12617 043053 312 05 0 00 043631 CAME AC+1,[377777,,-1]
12618 043054 004 05 0 00 001771 ER4 AC+1,T
12619 043055 321 10 0 00 043047 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12620
12621 001772 T=T+1
12622 777767 777777 XX=XX+XX+1
12623 IFE <XX-1>,<XX=-2>
12624 DFARP T,XX&777,-1,-1,-1,XX&777,-1,-1,-1,1000+XX&777,-1,377777,-1^
12625 DMOVE AC,[XX&777,,-1
12626 043056 120 04 0 00 043627 -1,,-1]
12627 DFAD AC,[XX&777,,-1
12628 043057 110 04 0 00 043627 -1,,-1]
12629 043060 312 04 0 00 044471 CAME AC,[1000+XX&777,,-1]
12630 043061 003 04 0 00 001772 ER3 AC,T
12631 043062 312 05 0 00 043631 CAME AC+1,[377777,,-1]
12632 043063 004 05 0 00 001772 ER4 AC+1,T
12633 043064 321 10 0 00 043056 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12634
12635 001773 T=T+1
12636 777757 777777 XX=XX+XX+1
12637 IFE <XX-1>,<XX=-2>
12638 DFARP T,XX&777,-1,-1,-1,XX&777,-1,-1,-1,1000+XX&777,-1,377777,-1^
12639 DMOVE AC,[XX&777,,-1
12640 043065 120 04 0 00 043627 -1,,-1]
12641 DFAD AC,[XX&777,,-1
12642 043066 110 04 0 00 043627 -1,,-1]
12643 043067 312 04 0 00 044471 CAME AC,[1000+XX&777,,-1]
12644 043070 003 04 0 00 001773 ER3 AC,T
12645 043071 312 05 0 00 043631 CAME AC+1,[377777,,-1]
12646 043072 004 05 0 00 001773 ER4 AC+1,T
12647 043073 321 10 0 00 043065 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12648
12649 001774 T=T+1
12650 777737 777777 XX=XX+XX+1
12651 IFE <XX-1>,<XX=-2>
12652 DFARP T,XX&777,-1,-1,-1,XX&777,-1,-1,-1,1000+XX&777,-1,377777,-1^
12653 DMOVE AC,[XX&777,,-1
12654 043074 120 04 0 00 043627 -1,,-1]
12655 DFAD AC,[XX&777,,-1
12656 043075 110 04 0 00 043627 -1,,-1]
12657 043076 312 04 0 00 044471 CAME AC,[1000+XX&777,,-1]
12658 043077 003 04 0 00 001774 ER3 AC,T
12659 043100 312 05 0 00 043631 CAME AC+1,[377777,,-1]
12660 043101 004 05 0 00 001774 ER4 AC+1,T
12661 043102 321 10 0 00 043074 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12662
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-16
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0256
12663 001775 T=T+1
12664 777677 777777 XX=XX+XX+1
12665 IFE <XX-1>,<XX=-2>
12666 DFARP T,XX&777,-1,-1,-1,XX&777,-1,-1,-1,1000+XX&777,-1,377777,-1^
12667 DMOVE AC,[XX&777,,-1
12668 043103 120 04 0 00 043627 -1,,-1]
12669 DFAD AC,[XX&777,,-1
12670 043104 110 04 0 00 043627 -1,,-1]
12671 043105 312 04 0 00 044471 CAME AC,[1000+XX&777,,-1]
12672 043106 003 04 0 00 001775 ER3 AC,T
12673 043107 312 05 0 00 043631 CAME AC+1,[377777,,-1]
12674 043110 004 05 0 00 001775 ER4 AC+1,T
12675 043111 321 10 0 00 043103 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12676
12677 001776 T=T+1
12678 777577 777777 XX=XX+XX+1
12679 IFE <XX-1>,<XX=-2>
12680 DFARP T,XX&777,-1,-1,-1,XX&777,-1,-1,-1,1000+XX&777,-1,377777,-1^
12681 DMOVE AC,[XX&777,,-1
12682 043112 120 04 0 00 043627 -1,,-1]
12683 DFAD AC,[XX&777,,-1
12684 043113 110 04 0 00 043627 -1,,-1]
12685 043114 312 04 0 00 044471 CAME AC,[1000+XX&777,,-1]
12686 043115 003 04 0 00 001776 ER3 AC,T
12687 043116 312 05 0 00 043631 CAME AC+1,[377777,,-1]
12688 043117 004 05 0 00 001776 ER4 AC+1,T
12689 043120 321 10 0 00 043112 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12690
12691
12692 001777 T=T+1
12693 000777 XX=<XX+XX+1>&777
12694 DFARP T,XX,-1,-1,-1,XX,-1,-1,-1,XX+XX+1,-1,377777,-1^
12695 DMOVE AC,[XX,,-1
12696 043121 120 04 0 00 043627 -1,,-1]
12697 DFAD AC,[XX,,-1
12698 043122 110 04 0 00 043627 -1,,-1]
12699 043123 312 04 0 00 044471 CAME AC,[XX+XX+1,,-1]
12700 043124 003 04 0 00 001777 ER3 AC,T
12701 043125 312 05 0 00 043631 CAME AC+1,[377777,,-1]
12702 043126 004 05 0 00 001777 ER4 AC+1,T
12703 043127 321 10 0 00 043121 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH^
12704 PAGE
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 13-17
DSKCD1 MAC 29-Mar-78 11:46 TEST AR, ARX, AD, ADX AND NORMALIZE LOGIC FOR DOUBLE FLOATING POINT OPERATIONS SEQ 0257
12705 ;ADD A FRACTION OF ALL ONES TO SAME
12706 DFA 20,777,-1,-1,-1,777,-1,-1,-1,1777,-1,377777,-1^
12707 R2000: DMOVE AC,[777,,-1
12708 043130 120 04 0 00 043627 -1,,-1]
12709 DFAD AC,[777,,-1
12710 043131 110 04 0 00 043627 -1,,-1]
12711 043132 312 04 0 00 044471 CAME AC,[1777,,-1]
12712 043133 003 04 0 00 002001 ER3 AC,2001
12713 043134 312 05 0 00 043631 CAME AC+1,[377777,,-1]
12714 043135 004 05 0 00 002001 ER4 AC+1,2001
12715 043136 321 10 0 00 043130 JUMPL AC+4,R2000 ;LOOP ON ERROR SWITCH^
12716
12717
12718 043137 254 00 0 00 030057 JRST BEGEND
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1
UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0258
12719 SUBTTL *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978
12720
12721 ;THIS SUBROUTINE PROVIDES ERROR REPORTING THRU THE USE OF UUO'S.
12722
12723 043140 202 00 0 00 044677 ERRMES: MOVEM 0,%ERAC0# ;SAVE AC0
12724 043141 202 01 0 00 044700 MOVEM 1,%ERAC1# ;SAVE AC1
12725 043142 202 02 0 00 044701 MOVEM 2,%ERAC2# ;SAVE AC2
12726 043143 350 00 0 00 030053 AOS ERRTLS ;INCREMENT ERROR TOTALS
12727 043144 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO
12728 043145 316 00 0 00 030052 CAMN 0,ERRPC ;PC = PC OF LAST ERROR ?
12729 043146 350 00 0 00 044674 AOS MICNT# ;YES, ADD 1 TO ERROR COUNT
12730 043147 200 00 0 00 044674 MOVE 0,MICNT
12731 043150 504 00 0 00 030114 HRL 0,$SVUPC
12732 043151 402 00 0 00 044675 SETZM PROCED# ;CLEAR PROCEED FLAG
12733 043152 037 10 0 00 000002 SWITCH
12734 043153 603 00 0 00 040000 TLNE NOPNT ;PRINTOUT ?
12735 043154 254 00 0 00 043266 JRST %ERRS1 ;NO, RESTORE AC'S AND RETURN
12736 043155 200 01 0 00 030113 MOVE 1,$SVUUO
12737 043156 242 01 0 00 777745 LSH 1,-^D27
12738 043157 202 01 0 00 044676 MOVEM 1,%ACS1A# ;SAVE UUO NUMBER
12739 043160 200 00 0 00 044677 MOVE 0,%ERAC0
12740 043161 200 01 0 00 044700 MOVE 1,%ERAC1
12741 043162 335 00 1 00 044673 SKIPGE @ERRLOP ;ERR LOOP AC > OR = 0 ?
12742 043163 254 00 0 00 043320 JRST %ERRS4 ;NO, SEE IF PRINT ALL
12743 043164 402 00 0 00 044674 %ERMS1: SETZM MICNT ;CLEAR ERROR COUNT
12744 043165 331 00 0 00 030043 SKIPL MONCTL ;DIAG MON OR SYS EXER ?
12745 043166 254 00 0 00 043172 JRST .+4 ;NO, DON'T NEED TITLE
12746 043167 336 00 0 00 044702 SKIPN %ERFST# ;FIRST ERROR ?
12747 043170 037 04 0 00 000002 PNTNM ;YES, PRINT PROGRAM TITLE
12748 043171 476 00 0 00 044702 SETOM %ERFST
12749 043172 336 00 0 00 030047 SKIPN PASCNT ;FIRST PASS ?
12750 043173 254 00 0 00 043177 JRST .+4 ;YES
12751 PMSG <^TEST PASS COUNT = >^
12752 043174 037 02 0 00 044514 PSIXM [SIXBIT\^TEST PASS COUNT = _\]^
12753 043175 200 00 0 00 030047 MOVE PASCNT
12754 043176 037 15 0 00 000000 PNTDEC
12755 PMSG <^PC = >^
12756 043177 037 02 0 00 044520 PSIXM [SIXBIT\^PC = _\]^
12757 043200 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO
12758 043201 202 00 0 00 030052 MOVEM 0,ERRPC ;SAVE FOR COMPARE
12759 043202 037 06 0 00 000000 PNT6 ;PRINT UUO ADDRESS
12760 XLIST
12761 IFDEF ERDIAG,<LIST
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 2
UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0259
12762 ;DIAGNOSTIC FORMAT ERROR PRINTER
12763
12764 ;PRINT RESULT
12765
12766 043203 %ERMS2: PMSG <^RESULT = >^
12767 043203 037 02 0 00 044522 PSIXM [SIXBIT\^RESULT = _\]^
12768 043204 200 01 0 00 030113 MOVE 1,$SVUUO ;GET AC # OF UUO
12769 043205 242 01 0 00 777751 LSH 1,-27
12770 043206 405 01 0 00 000017 ANDI 1,17
12771 043207 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC)
12772 043210 307 01 0 00 000001 CAIG 1,1 ;IS AC # = TO SAVE AC ?
12773 043211 200 00 0 01 044677 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC
12774 043212 037 13 0 00 000000 PNTHW ;PRINT C(AC)
12775
12776 043213 200 00 0 00 030046 MOVE CONSW
12777 043214 603 00 0 00 000200 TLNE TXTINH ;PRINT FAILURE DES AND FLT NBR ?
12778 043215 254 00 0 00 043264 JRST %ERMORE ;NO, RESTORE AC'S ETC.
12779
12780 ;PRINT FAILURE DESCRIPTOR
12781
12782 043216 200 01 0 00 044676 MOVE 1,%ACS1A ;GET UUO NUMBER
12783 043217 307 01 0 00 000001 CAIG 1,1 ;PRINT DESCRIPTOR ?
12784 043220 254 00 0 00 043224 JRST %ERMS3 ;NO, JUST PRINT FAULT NUMBER
12785 043221 037 00 0 00 030242 PCRL
12786 043222 200 00 0 01 043250 MOVE %FLTTB(1)
12787 043223 037 17 0 00 000000 PNTAL ;PRINT FAULT DESCRIPTOR
12788
12789 ;PRINT FAULT NUMBER
12790
12791 043224 %ERMS3: PMSG <^FAULT NUMBER = >^
12792 043224 037 02 0 00 044524 PSIXM [SIXBIT\^FAULT NUMBER = _\]^
12793 043225 201 00 0 00 043247 MOVEI TLET
12794 043226 037 00 0 00 000000 PNTA ;PRINT TEST LETTER
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 3
UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0260
12795
12796 043227 550 00 0 00 030113 HRRZ $SVUUO
12797 043230 602 00 0 00 700000 TRNE 700000
12798 043231 254 00 0 00 043245 JRST %ER6X
12799 043232 602 00 0 00 070000 TRNE 070000
12800 043233 254 00 0 00 043243 JRST %ER5X
12801 043234 602 00 0 00 007000 TRNE 007000
12802 043235 254 00 0 00 043241 JRST %ER4X
12803 043236 037 03 0 00 000000 PNT3 ;PRINT FAULT NUMBER
12804 043237 037 00 0 00 030242 %ER7X: PCRL
12805 043240 254 00 0 00 043264 JRST %ERMORE
12806
12807 043241 037 04 0 00 000000 %ER4X: PNT4
12808 043242 254 00 0 00 043237 JRST %ER7X
12809 043243 037 05 0 00 000000 %ER5X: PNT5
12810 043244 254 00 0 00 043237 JRST %ER7X
12811 043245 037 06 0 00 000000 %ER6X: PNT6
12812 043246 254 00 0 00 043237 JRST %ER7X
12813
12814 ;FAILURE DESCRIPTORS
12815
12816 043247 000000 000000 TLET: 0 ;TEST LETTER
12817 043250 000000 000000 %FLTTB: 0 ;DESCRIPTOR TABLE
12818 043251 000000 043330 %NODES: [0] ;NO DESCRIPTOR
12819 043252 000000 043330 SPDES: [0] ;SPECIAL USER FAILURE DESCRIPTOR
12820 043253 000000 044527 $ACF: [ASCIZ/C(AC) FAILED/]
12821 043254 000000 044532 %AC1F: [ASCIZ/C(AC+1) FAILED/]
12822 043255 000000 044535 %EF: [ASCIZ/C(E) FAILED/]
12823 043256 000000 044540 %E1F: [ASCIZ/C(E+1) FAILED/]
12824 043257 000000 044543 %ARF: [ASCIZ/C(C(ACR)) FAILED/]
12825 043260 000000 044547 %AR1F: [ASCIZ/C(C(ACR+1)) FAILED/]
12826 043261 000000 044553 %ALF: [ASCIZ/C(C(ACL)) FAILED/]
12827 043262 000000 044557 %EEF: [ASCIZ/C(C(E)) FAILED/]
12828 043263 000000 044562 %FF: [ASCIZ/FLAG FAILED/]
12829 >
12830 XLIST
12831 LIST
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 8
UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0261
12832 ;RESTORE AC'S AND RETURN OR HALT
12833
12834 043264 256 00 0 00 030101 %ERMORE:XCT ERMORE
12835 043265 037 10 0 00 000002 SWITCH
12836
12837 043266 037 07 0 00 000003 %ERRS1: TTALTM ;ALTMODE CHECK
12838 043267 254 00 0 00 043273 JRST .+4 ;NONE
12839 043270 201 00 0 00 043273 MOVEI .+3 ;SAVE CONT ADDRESS
12840 043271 202 00 0 00 000130 MOVEM JOBOPC
12841 043272 254 00 1 00 030063 JRST @ALTMGO ;PERFORM TRANSFER
12842 043273 200 00 0 00 030046 MOVE CONSW
12843 043274 603 00 0 00 002000 TLNE 0,ERSTOP ;HALT ON ERROR SWITCH SET ?
12844 043275 037 14 0 00 000004 ERRHLT ;YES
12845 043276 607 00 0 00 004000 TLNN 0,LOOPER ;LOOP ON ERROR SWITCH SET ?
12846 043277 476 00 0 00 044675 SETOM PROCED ;NO, SET THE PROCEED FLAG
12847 043300 603 00 0 00 010000 TLNE 0,DING ;RING BELL SWITCH SET ?
12848 043301 037 01 0 00 000007 PBELL ;YES, GO RING BELL
12849
12850 043302 200 02 0 00 044701 %ERRS2: MOVE 2,%ERAC2 ;RESTORE AC'S
12851 043303 200 01 0 00 044700 MOVE 1,%ERAC1
12852 043304 476 00 1 00 044673 SETOM @ERRLOP ;SET C(ERR LOOP AC) TO -1
12853 043305 336 00 0 00 044675 SKIPN PROCED ;LOOP ON ERROR ?
12854 043306 254 00 0 00 043316 JRST %ERRS5 ;YES
12855 043307 350 00 1 00 044673 AOS @ERRLOP ;NO, INC C(ERR LOOP AC)
12856 043310 350 00 1 00 044673 AOS @ERRLOP ;SO IT ='S 1
12857 043311 331 00 0 00 030043 SKIPL MONCTL ;UNDER DIAGNOSTIC MONITOR ?
12858 043312 254 00 0 00 043316 JRST %ERRS5 ;NO, CONTINUE PROGRAM
12859 043313 200 00 0 00 030053 MOVE 0,ERRTLS ;YES
12860 043314 301 00 0 00 000024 CAIL 0,^D20 ;PRINTED ALLOWED ERRORS ?
12861 043315 254 00 0 00 043324 JRST %ERRS6
12862
12863 043316 200 00 0 00 044677 %ERRS5: MOVE 0,%ERAC0 ;NO, CONTINUE PROGRAM
12864 043317 254 00 0 00 030065 JRST UUOEXT
12865
12866 043320 200 00 0 00 030046 %ERRS4: MOVE 0,CONSW
12867 043321 607 00 0 00 001000 TLNN PALERS ;PRINT ALL ERRORS ?
12868 043322 254 00 0 00 043266 JRST %ERRS1 ;NO
12869 043323 254 00 0 00 043164 JRST %ERMS1 ;YES
12870
12871 043324 %ERRS6: PMSGF <^EXCEEDED ALLOWED ERRORS^>^
12872 043324 037 04 0 00 044565 PSIXMF [SIXBIT\^EXCEEDED ALLOWED ERRORS^_\]^
12873 043325 254 00 0 00 030061 JRST $BEND2
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0262
12874 SUBTTL *STOR* RESERVED STORAGE, MARCH 1978
12875
12876 ;PROGRAM LITERALS
12877
12878 XLIST
12879 IFNDEF $LPAPER,<LIST>
12880 043326 LIT
12881 043326 45 70 51 64 00 00
12882 043327 103 104 000 000 000
12883 043330 000000 000000
12884 043331 000000 000000
12885 043332 200000 000000
12886 043333 000000 000000
12887 043334 200400 000000
12888 043335 000000 000000
12889 043336 200200 000000
12890 043337 000000 000000
12891 043340 177400 000000
12892 043341 200100 000000
12893 043342 000000 000000
12894 043343 176400 000000
12895 043344 200040 000000
12896 043345 000000 000000
12897 043346 175400 000000
12898 043347 200020 000000
12899 043350 000000 000000
12900 043351 174400 000000
12901 043352 200010 000000
12902 043353 000000 000000
12903 043354 173400 000000
12904 043355 200004 000000
12905 043356 000000 000000
12906 043357 172400 000000
12907 043360 200002 000000
12908 043361 000000 000000
12909 043362 171400 000000
12910 043363 200001 000000
12911 043364 000000 000000
12912 043365 170400 000000
12913 043366 200000 400000
12914 043367 000000 000000
12915 043370 167400 000000
12916 043371 200000 200000
12917 043372 000000 000000
12918 043373 166400 000000
12919 043374 200000 100000
12920 043375 000000 000000
12921 043376 165400 000000
12922 043377 200000 040000
12923 043400 000000 000000
12924 043401 164400 000000
12925 043402 200000 020000
12926 043403 000000 000000
12927 043404 163400 000000
12928 043405 200000 010000
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1-1
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0263
12929 043406 000000 000000
12930 043407 162400 000000
12931 043410 200000 004000
12932 043411 000000 000000
12933 043412 161400 000000
12934 043413 200000 002000
12935 043414 000000 000000
12936 043415 160400 000000
12937 043416 200000 001000
12938 043417 000000 000000
12939 043420 157400 000000
12940 043421 200000 000400
12941 043422 000000 000000
12942 043423 156400 000000
12943 043424 200000 000200
12944 043425 000000 000000
12945 043426 155400 000000
12946 043427 200000 000100
12947 043430 000000 000000
12948 043431 154400 000000
12949 043432 200000 000040
12950 043433 000000 000000
12951 043434 153400 000000
12952 043435 200000 000020
12953 043436 000000 000000
12954 043437 152400 000000
12955 043440 200000 000010
12956 043441 000000 000000
12957 043442 151400 000000
12958 043443 200000 000004
12959 043444 000000 000000
12960 043445 150400 000000
12961 043446 200000 000002
12962 043447 000000 000000
12963 043450 147400 000000
12964 043451 200000 000001
12965 043452 000000 000000
12966 043453 146400 000000
12967 043454 200000 000000
12968 043455 400000 000000
12969 043456 200000 000000
12970 043457 200000 000000
12971 043460 145400 000000
12972 043461 200000 000000
12973 043462 100000 000000
12974 043463 144400 000000
12975 043464 200000 000000
12976 043465 040000 000000
12977 043466 143400 000000
12978 043467 200000 000000
12979 043470 020000 000000
12980 043471 142400 000000
12981 043472 200000 000000
12982 043473 010000 000000
12983 043474 141400 000000
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1-2
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0264
12984 043475 200000 000000
12985 043476 004000 000000
12986 043477 140400 000000
12987 043500 200000 000000
12988 043501 002000 000000
12989 043502 137400 000000
12990 043503 200000 000000
12991 043504 001000 000000
12992 043505 136400 000000
12993 043506 200000 000000
12994 043507 000400 000000
12995 043510 135400 000000
12996 043511 200000 000000
12997 043512 000200 000000
12998 043513 134400 000000
12999 043514 200000 000000
13000 043515 000100 000000
13001 043516 133400 000000
13002 043517 200000 000000
13003 043520 000040 000000
13004 043521 132400 000000
13005 043522 200000 000000
13006 043523 000020 000000
13007 043524 131400 000000
13008 043525 200000 000000
13009 043526 000010 000000
13010 043527 130400 000000
13011 043530 200000 000000
13012 043531 000004 000000
13013 043532 127400 000000
13014 043533 200000 000000
13015 043534 000002 000000
13016 043535 126400 000000
13017 043536 200000 000000
13018 043537 000001 000000
13019 043540 125400 000000
13020 043541 200000 000000
13021 043542 000000 400000
13022 043543 124400 000000
13023 043544 200000 000000
13024 043545 000000 200000
13025 043546 123400 000000
13026 043547 200000 000000
13027 043550 000000 100000
13028 043551 122400 000000
13029 043552 200000 000000
13030 043553 000000 040000
13031 043554 121400 000000
13032 043555 200000 000000
13033 043556 000000 020000
13034 043557 120400 000000
13035 043560 200000 000000
13036 043561 000000 010000
13037 043562 117400 000000
13038 043563 200000 000000
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1-3
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0265
13039 043564 000000 004000
13040 043565 116400 000000
13041 043566 200000 000000
13042 043567 000000 002000
13043 043570 115400 000000
13044 043571 200000 000000
13045 043572 000000 001000
13046 043573 114400 000000
13047 043574 200000 000000
13048 043575 000000 000400
13049 043576 113400 000000
13050 043577 200000 000000
13051 043600 000000 000200
13052 043601 112400 000000
13053 043602 200000 000000
13054 043603 000000 000100
13055 043604 111400 000000
13056 043605 200000 000000
13057 043606 000000 000040
13058 043607 110400 000000
13059 043610 200000 000000
13060 043611 000000 000020
13061 043612 107400 000000
13062 043613 200000 000000
13063 043614 000000 000010
13064 043615 106400 000000
13065 043616 200000 000000
13066 043617 000000 000004
13067 043620 105400 000000
13068 043621 200000 000000
13069 043622 000000 000002
13070 043623 104400 000000
13071 043624 200000 000000
13072 043625 000000 000001
13073 043626 103400 000000
13074 043627 000777 777777
13075 043630 777777 777777
13076 043631 377777 777777
13077 043632 000777 777777
13078 043633 777777 777776
13079 043634 377777 777776
13080 043635 000777 777777
13081 043636 777777 777775
13082 043637 377777 777775
13083 043640 000777 777777
13084 043641 777777 777773
13085 043642 377777 777773
13086 043643 000777 777777
13087 043644 777777 777767
13088 043645 377777 777767
13089 043646 000777 777777
13090 043647 777777 777757
13091 043650 377777 777757
13092 043651 000777 777777
13093 043652 777777 777737
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1-4
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0266
13094 043653 377777 777737
13095 043654 000777 777777
13096 043655 777777 777677
13097 043656 377777 777677
13098 043657 000777 777777
13099 043660 777777 777577
13100 043661 377777 777577
13101 043662 000777 777777
13102 043663 777777 777377
13103 043664 377777 777377
13104 043665 000777 777777
13105 043666 777777 776777
13106 043667 377777 776777
13107 043670 000777 777777
13108 043671 777777 775777
13109 043672 377777 775777
13110 043673 000777 777777
13111 043674 777777 773777
13112 043675 377777 773777
13113 043676 000777 777777
13114 043677 777777 767777
13115 043700 377777 767777
13116 043701 000777 777777
13117 043702 777777 757777
13118 043703 377777 757777
13119 043704 000777 777777
13120 043705 777777 737777
13121 043706 377777 737777
13122 043707 000777 777777
13123 043710 777777 677777
13124 043711 377777 677777
13125 043712 000777 777777
13126 043713 777777 577777
13127 043714 377777 577777
13128 043715 000777 777777
13129 043716 777777 377777
13130 043717 377777 377777
13131 043720 000777 777777
13132 043721 777776 777777
13133 043722 377776 777777
13134 043723 000777 777777
13135 043724 777775 777777
13136 043725 377775 777777
13137 043726 000777 777777
13138 043727 777773 777777
13139 043730 377773 777777
13140 043731 000777 777777
13141 043732 777767 777777
13142 043733 377767 777777
13143 043734 000777 777777
13144 043735 777757 777777
13145 043736 377757 777777
13146 043737 000777 777777
13147 043740 777737 777777
13148 043741 377737 777777
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1-5
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0267
13149 043742 000777 777777
13150 043743 777677 777777
13151 043744 377677 777777
13152 043745 000777 777777
13153 043746 777577 777777
13154 043747 377577 777777
13155 043750 000777 777777
13156 043751 777377 777777
13157 043752 377377 777777
13158 043753 000777 777777
13159 043754 776777 777777
13160 043755 376777 777777
13161 043756 000777 777777
13162 043757 775777 777777
13163 043760 375777 777777
13164 043761 000777 777777
13165 043762 773777 777777
13166 043763 373777 777777
13167 043764 000777 777777
13168 043765 767777 777777
13169 043766 367777 777777
13170 043767 000777 777777
13171 043770 757777 777777
13172 043771 357777 777777
13173 043772 000777 777777
13174 043773 737777 777777
13175 043774 337777 777777
13176 043775 000777 777777
13177 043776 677777 777777
13178 043777 277777 777777
13179 044000 000777 777777
13180 044001 577777 777777
13181 044002 177777 777777
13182 044003 000777 777777
13183 044004 377777 777777
13184 044005 000777 777776
13185 044006 777777 777777
13186 044007 000777 777775
13187 044010 777777 777777
13188 044011 000777 777773
13189 044012 777777 777777
13190 044013 000777 777767
13191 044014 777777 777777
13192 044015 000777 777757
13193 044016 777777 777777
13194 044017 000777 777737
13195 044020 777777 777777
13196 044021 000777 777677
13197 044022 777777 777777
13198 044023 000777 777577
13199 044024 777777 777777
13200 044025 000777 777377
13201 044026 777777 777777
13202 044027 000777 776777
13203 044030 777777 777777
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1-6
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0268
13204 044031 000777 775777
13205 044032 777777 777777
13206 044033 000777 773777
13207 044034 777777 777777
13208 044035 000777 767777
13209 044036 777777 777777
13210 044037 000777 757777
13211 044040 777777 777777
13212 044041 000777 737777
13213 044042 777777 777777
13214 044043 000777 677777
13215 044044 777777 777777
13216 044045 000777 577777
13217 044046 777777 777777
13218 044047 000777 377777
13219 044050 777777 777777
13220 044051 000776 777777
13221 044052 777777 777777
13222 044053 000775 777777
13223 044054 777777 777777
13224 044055 000773 777777
13225 044056 777777 777777
13226 044057 000767 777777
13227 044060 777777 777777
13228 044061 000757 777777
13229 044062 777777 777777
13230 044063 000737 777777
13231 044064 777777 777777
13232 044065 000677 777777
13233 044066 777777 777777
13234 044067 000577 777777
13235 044070 777777 777777
13236 044071 001377 777777
13237 044072 777777 777777
13238 044073 000000 000000
13239 044074 000000 000001
13240 044075 000000 000000
13241 044076 000000 000002
13242 044077 000000 000000
13243 044100 000000 000004
13244 044101 000000 000000
13245 044102 000000 000010
13246 044103 000000 000000
13247 044104 000000 000020
13248 044105 000000 000000
13249 044106 000000 000040
13250 044107 000000 000000
13251 044110 000000 000100
13252 044111 000000 000000
13253 044112 000000 000200
13254 044113 000000 000000
13255 044114 000000 000400
13256 044115 000000 000000
13257 044116 000000 001000
13258 044117 000000 000000
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1-7
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0269
13259 044120 000000 002000
13260 044121 000000 000000
13261 044122 000000 004000
13262 044123 000000 000000
13263 044124 000000 010000
13264 044125 000000 000000
13265 044126 000000 020000
13266 044127 000000 000000
13267 044130 000000 040000
13268 044131 000000 000000
13269 044132 000000 100000
13270 044133 000000 000000
13271 044134 000000 200000
13272 044135 000000 000000
13273 044136 000000 400000
13274 044137 000000 000000
13275 044140 000001 000000
13276 044141 000000 000000
13277 044142 000002 000000
13278 044143 000000 000000
13279 044144 000004 000000
13280 044145 000000 000000
13281 044146 000010 000000
13282 044147 000000 000000
13283 044150 000020 000000
13284 044151 000000 000000
13285 044152 000040 000000
13286 044153 000000 000000
13287 044154 000100 000000
13288 044155 000000 000000
13289 044156 000200 000000
13290 044157 000000 000000
13291 044160 000400 000000
13292 044161 000000 000000
13293 044162 001000 000000
13294 044163 000000 000000
13295 044164 002000 000000
13296 044165 000000 000000
13297 044166 004000 000000
13298 044167 000000 000000
13299 044170 010000 000000
13300 044171 000000 000000
13301 044172 020000 000000
13302 044173 000000 000000
13303 044174 040000 000000
13304 044175 000000 000000
13305 044176 100000 000000
13306 044177 000000 000000
13307 044200 400000 000000
13308 044201 000377 777777
13309 044202 777777 777777
13310 044203 200777 777777
13311 044204 777777 777777
13312 044205 201400 000000
13313 044206 201400 000001
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1-8
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0270
13314 044207 201400 000002
13315 044210 201400 000004
13316 044211 201400 000010
13317 044212 201400 000020
13318 044213 201400 000040
13319 044214 201400 000100
13320 044215 201400 000200
13321 044216 201400 000400
13322 044217 201400 001000
13323 044220 201400 002000
13324 044221 201400 004000
13325 044222 201400 010000
13326 044223 201400 020000
13327 044224 201400 040000
13328 044225 201400 100000
13329 044226 201400 200000
13330 044227 201400 400000
13331 044230 201401 000000
13332 044231 201402 000000
13333 044232 201404 000000
13334 044233 201410 000000
13335 044234 201420 000000
13336 044235 201440 000000
13337 044236 201500 000000
13338 044237 201600 000000
13339 044240 200777 777777
13340 044241 777777 777776
13341 044242 201777 777777
13342 044243 200777 777777
13343 044244 777777 777775
13344 044245 200777 777777
13345 044246 777777 777773
13346 044247 200777 777777
13347 044250 777777 777767
13348 044251 200777 777777
13349 044252 777777 777757
13350 044253 200777 777777
13351 044254 777777 777737
13352 044255 200777 777777
13353 044256 777777 777677
13354 044257 200777 777777
13355 044260 777777 777577
13356 044261 200777 777777
13357 044262 777777 777377
13358 044263 200777 777777
13359 044264 777777 776777
13360 044265 200777 777777
13361 044266 777777 775777
13362 044267 200777 777777
13363 044270 777777 773777
13364 044271 200777 777777
13365 044272 777777 767777
13366 044273 200777 777777
13367 044274 777777 757777
13368 044275 200777 777777
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1-9
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0271
13369 044276 777777 737777
13370 044277 200777 777777
13371 044300 777777 677777
13372 044301 200777 777777
13373 044302 777777 577777
13374 044303 200777 777777
13375 044304 777777 377777
13376 044305 200777 777777
13377 044306 777776 777777
13378 044307 200777 777777
13379 044310 777775 777777
13380 044311 200777 777777
13381 044312 777773 777777
13382 044313 200777 777777
13383 044314 777767 777777
13384 044315 200777 777777
13385 044316 777757 777777
13386 044317 200777 777777
13387 044320 777737 777777
13388 044321 200777 777777
13389 044322 777677 777777
13390 044323 200777 777777
13391 044324 777577 777777
13392 044325 200777 777777
13393 044326 777377 777777
13394 044327 200777 777777
13395 044330 776777 777777
13396 044331 200777 777777
13397 044332 775777 777777
13398 044333 200777 777777
13399 044334 773777 777777
13400 044335 200777 777777
13401 044336 767777 777777
13402 044337 200777 777777
13403 044340 757777 777777
13404 044341 200777 777777
13405 044342 737777 777777
13406 044343 200777 777777
13407 044344 677777 777777
13408 044345 200777 777777
13409 044346 577777 777777
13410 044347 200777 777777
13411 044350 377777 777777
13412 044351 200777 777776
13413 044352 777777 777777
13414 044353 200777 777775
13415 044354 777777 777777
13416 044355 201777 777776
13417 044356 200777 777773
13418 044357 777777 777777
13419 044360 201777 777775
13420 044361 200777 777767
13421 044362 777777 777777
13422 044363 201777 777773
13423 044364 200777 777757
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1-10
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0272
13424 044365 777777 777777
13425 044366 201777 777767
13426 044367 200777 777737
13427 044370 777777 777777
13428 044371 201777 777757
13429 044372 200777 777677
13430 044373 777777 777777
13431 044374 201777 777737
13432 044375 200777 777577
13433 044376 777777 777777
13434 044377 201777 777677
13435 044400 200777 777377
13436 044401 777777 777777
13437 044402 201777 777577
13438 044403 200777 776777
13439 044404 777777 777777
13440 044405 201777 777377
13441 044406 200777 775777
13442 044407 777777 777777
13443 044410 201777 776777
13444 044411 200777 773777
13445 044412 777777 777777
13446 044413 201777 775777
13447 044414 200777 767777
13448 044415 777777 777777
13449 044416 201777 773777
13450 044417 200777 757777
13451 044420 777777 777777
13452 044421 201777 767777
13453 044422 200777 737777
13454 044423 777777 777777
13455 044424 201777 757777
13456 044425 200777 677777
13457 044426 777777 777777
13458 044427 201777 737777
13459 044430 200777 577777
13460 044431 777777 777777
13461 044432 201777 677777
13462 044433 200777 377777
13463 044434 777777 777777
13464 044435 201777 577777
13465 044436 200776 777777
13466 044437 777777 777777
13467 044440 201777 377777
13468 044441 200775 777777
13469 044442 777777 777777
13470 044443 201776 777777
13471 044444 200773 777777
13472 044445 777777 777777
13473 044446 201775 777777
13474 044447 200767 777777
13475 044450 777777 777777
13476 044451 201773 777777
13477 044452 200757 777777
13478 044453 777777 777777
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1-11
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0273
13479 044454 201767 777777
13480 044455 200737 777777
13481 044456 777777 777777
13482 044457 201757 777777
13483 044460 200677 777777
13484 044461 777777 777777
13485 044462 201737 777777
13486 044463 200577 777777
13487 044464 777777 777777
13488 044465 201677 777777
13489 044466 200377 777777
13490 044467 777777 777777
13491 044470 201577 777777
13492 044471 001777 777777
13493 044472 001777 777776
13494 044473 001777 777775
13495 044474 001777 777773
13496 044475 001777 777767
13497 044476 001777 777757
13498 044477 001777 777737
13499 044500 001777 777677
13500 044501 001777 777577
13501 044502 001777 777377
13502 044503 001777 776777
13503 044504 001777 775777
13504 044505 001777 773777
13505 044506 001777 767777
13506 044507 001777 757777
13507 044510 001777 737777
13508 044511 001777 677777
13509 044512 001777 577777
13510 044513 001777 377777
13511 044514 76 64 45 63 64 00
13512 044515 60 41 63 63 00 43
13513 044516 57 65 56 64 00 35
13514 044517 00 77 00 00 00 00
13515 044520 76 60 43 00 35 00
13516 044521 00 00 77 00 00 00
13517 044522 76 62 45 63 65 54
13518 044523 64 00 00 35 00 77
13519 044524 76 46 41 65 54 64
13520 044525 00 56 65 55 42 45
13521 044526 62 00 35 00 77 00
13522 044527 103 050 101 103 051
13523 044530 040 106 101 111 114
13524 044531 105 104 000 000 000
13525 044532 103 050 101 103 053
13526 044533 061 051 040 106 101
13527 044534 111 114 105 104 000
13528 044535 103 050 105 051 040
13529 044536 106 101 111 114 105
13530 044537 104 000 000 000 000
13531 044540 103 050 105 053 061
13532 044541 051 040 106 101 111
13533 044542 114 105 104 000 000
DSKCD DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #4, VER 0,1 MACRO %53(1020) 12:28 29-Mar-78 Page 1-12
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0274
13534 044543 103 050 103 050 101
13535 044544 103 122 051 051 040
13536 044545 106 101 111 114 105
13537 044546 104 000 000 000 000
13538 044547 103 050 103 050 101
13539 044550 103 122 053 061 051
13540 044551 051 040 106 101 111
13541 044552 114 105 104 000 000
13542 044553 103 050 103 050 101
13543 044554 103 114 051 051 040
13544 044555 106 101 111 114 105
13545 044556 104 000 000 000 000
13546 044557 103 050 103 050 105
13547 044560 051 051 040 106 101
13548 044561 111 114 105 104 000
13549 044562 106 114 101 107 040
13550 044563 106 101 111 114 105
13551 044564 104 000 000 000 000
13552 044565 76 45 70 43 45 45
13553 044566 44 45 44 00 41 54
13554 044567 54 57 67 45 44 00
13555 044570 45 62 62 57 62 63
13556 044571 76 77 00 00 00 00
13557 LIST
13558 044572 000000 000000 ENDSLD: 0
13559
13560 IFDEF DEBUG,<
13561 044573 PATCH: BLOCK DEBUG ;PATCHING AREA
13562 >
13563
13564 ;PROGRAM VARIABLES
13565 044673 VAR
13566
13567 IFDEF PGMEND,<
13568 044703 000000 000000 END: 0
13569 030000 END BEGIN >
NO ERRORS DETECTED
PROGRAM BREAK IS 000000
ABSOLUTE BREAK IS 044704
CPU TIME USED 00:43.411
34P CORE USED
ABORT 577#
AC 1164# 1166 1167 1168 1169 1173 1175 1177 1178 1179 1180 1181 1198 1200 SEQ 0275
1202 1203 1204 1205 1206 1212 1214 1216 1217 1218 1219 1220 1226 1228
1230 1231 1232 1233 1234 1240 1242 1244 1245 1246 1247 1248 1254 1256
1258 1259 1260 1261 1262 1268 1270 1272 1273 1274 1275 1276 1282 1284
1286 1287 1288 1289 1290 1296 1298 1300 1301 1302 1303 1304 1310 1312
1314 1315 1316 1317 1318 1333 1335 1337 1338 1339 1340 1341 1347 1349
1351 1352 1353 1354 1355 1361 1363 1365 1366 1367 1368 1369 1375 1377
1379 1380 1381 1382 1383 1389 1391 1393 1394 1395 1396 1397 1403 1405
1407 1408 1409 1410 1411 1417 1419 1421 1422 1423 1424 1425 1431 1433
1435 1436 1437 1438 1439 1445 1447 1449 1450 1451 1452 1453 1459 1461
1463 1464 1465 1466 1467 1473 1475 1477 1478 1479 1480 1481 1487 1489
1491 1492 1493 1494 1495 1501 1503 1505 1506 1507 1508 1509 1515 1517
1519 1520 1521 1522 1523 1529 1531 1533 1534 1535 1536 1537 1543 1545
1547 1548 1549 1550 1551 1557 1559 1561 1562 1563 1564 1565 1571 1573
1575 1576 1577 1578 1579 1586 1588 1590 1591 1592 1593 1594 1606 1608
1610 1611 1612 1613 1614 1620 1622 1624 1625 1626 1627 1628 1634 1636
1638 1639 1640 1641 1642 1648 1650 1652 1653 1654 1655 1656 1662 1664
1666 1667 1668 1669 1670 1676 1678 1680 1681 1682 1683 1684 1690 1692
1694 1695 1696 1697 1698 1704 1706 1708 1709 1710 1711 1712 1718 1720
1722 1723 1724 1725 1726 1732 1734 1736 1737 1738 1739 1740 1746 1748
1750 1751 1752 1753 1754 1760 1762 1764 1765 1766 1767 1768 1774 1776
1778 1779 1780 1781 1782 1788 1790 1792 1793 1794 1795 1796 1802 1804
1806 1807 1808 1809 1810 1816 1818 1820 1821 1822 1823 1824 1830 1832
1834 1835 1836 1837 1838 1853 1855 1857 1858 1859 1860 1861 1867 1869
1871 1872 1873 1874 1875 1881 1883 1885 1886 1887 1888 1889 1895 1897
1899 1900 1901 1902 1903 1909 1911 1913 1914 1915 1916 1917 1923 1925
1927 1928 1929 1930 1931 1937 1939 1941 1942 1943 1944 1945 1951 1953
1955 1956 1957 1958 1959 1965 1967 1969 1970 1971 1972 1973 1979 1981
1983 1984 1985 1986 1987 1993 1995 1997 1998 1999 2000 2001 2007 2009
2011 2012 2013 2014 2015 2021 2023 2025 2026 2027 2028 2029 2035 2037
2039 2040 2041 2042 2043 2049 2051 2053 2054 2055 2056 2057 2063 2065
2067 2068 2069 2070 2071 2077 2079 2081 2082 2083 2084 2085 2091 2093
2095 2096 2097 2098 2099 2116 2118 2120 2121 2122 2123 2124 2130 2132
2134 2135 2136 2137 2138 2144 2146 2148 2149 2150 2151 2152 2158 2160
2162 2163 2164 2165 2166 2172 2174 2176 2177 2178 2179 2180 2186 2188
2190 2191 2192 2193 2194 2200 2202 2204 2205 2206 2207 2208 2214 2216
2218 2219 2220 2221 2222 2228 2230 2232 2233 2234 2235 2236 2251 2253
2255 2256 2257 2258 2259 2265 2267 2269 2270 2271 2272 2273 2279 2281
2283 2284 2285 2286 2287 2293 2295 2297 2298 2299 2300 2301 2307 2309
2311 2312 2313 2314 2315 2321 2323 2325 2326 2327 2328 2329 2335 2337
2339 2340 2341 2342 2343 2349 2351 2353 2354 2355 2356 2357 2363 2365
2367 2368 2369 2370 2371 2377 2379 2381 2382 2383 2384 2385 2391 2393
2395 2396 2397 2398 2399 2405 2407 2409 2410 2411 2412 2413 2419 2421
2423 2424 2425 2426 2427 2433 2435 2437 2438 2439 2440 2441 2447 2449
2451 2452 2453 2454 2455 2461 2463 2465 2466 2467 2468 2469 2475 2477
2479 2480 2481 2482 2483 2489 2491 2493 2494 2495 2496 2497 2504 2506
2508 2509 2510 2511 2512 2525 2527 2529 2530 2531 2532 2533 2540 2542
2544 2545 2546 2547 2548 2555 2557 2559 2560 2561 2562 2563 2570 2572
2574 2575 2576 2577 2578 2585 2587 2589 2590 2591 2592 2593 2600 2602
2604 2605 2606 2607 2608 2615 2617 2619 2620 2621 2622 2623 2630 2632
2634 2635 2636 2637 2638 2645 2647 2649 2650 2651 2652 2653 2660 2662
2664 2665 2666 2667 2668 2675 2677 2679 2680 2681 2682 2683 2690 2692
2694 2695 2696 2697 2698 2705 2707 2709 2710 2711 2712 2713 2720 2722
2724 2725 2726 2727 2728 2735 2737 2739 2740 2741 2742 2743 2750 2752 SEQ 0276
2754 2755 2756 2757 2758 2765 2767 2769 2770 2771 2772 2773 2789 2791
2793 2794 2795 2796 2797 2803 2805 2807 2808 2809 2810 2811 2817 2819
2821 2822 2823 2824 2825 2831 2833 2835 2836 2837 2838 2839 2845 2847
2849 2850 2851 2852 2853 2859 2861 2863 2864 2865 2866 2867 2873 2875
2877 2878 2879 2880 2881 2887 2889 2891 2892 2893 2894 2895 2901 2903
2905 2906 2907 2908 2909 2915 2917 2919 2920 2921 2922 2923 2929 2931
2933 2934 2935 2936 2937 2943 2945 2947 2948 2949 2950 2951 2957 2959
2961 2962 2963 2964 2965 2971 2973 2975 2976 2977 2978 2979 2985 2987
2989 2990 2991 2992 2993 2999 3001 3003 3004 3005 3006 3007 3013 3015
3017 3018 3019 3020 3021 3027 3029 3031 3032 3033 3034 3035 3041 3043
3045 3046 3047 3048 3049 3054 3056 3058 3059 3060 3061 3062 3079 3081
3083 3084 3085 3086 3087 3093 3095 3097 3098 3099 3100 3101 3107 3109
3111 3112 3113 3114 3115 3121 3123 3125 3126 3127 3128 3129 3135 3137
3139 3140 3141 3142 3143 3149 3151 3153 3154 3155 3156 3157 3163 3165
3167 3168 3169 3170 3171 3177 3179 3181 3182 3183 3184 3185 3191 3193
3195 3196 3197 3198 3199 3205 3207 3209 3210 3211 3212 3213 3219 3221
3223 3224 3225 3226 3227 3233 3235 3237 3238 3239 3240 3241 3247 3249
3251 3252 3253 3254 3255 3261 3263 3265 3266 3267 3268 3269 3275 3277
3279 3280 3281 3282 3283 3289 3291 3293 3294 3295 3296 3297 3303 3305
3307 3308 3309 3310 3311 3317 3319 3321 3322 3323 3324 3325 3340 3342
3344 3345 3346 3347 3348 3354 3356 3358 3359 3360 3361 3362 3368 3370
3372 3373 3374 3375 3376 3382 3384 3386 3387 3388 3389 3390 3396 3398
3400 3401 3402 3403 3404 3410 3412 3414 3415 3416 3417 3418 3424 3426
3428 3429 3430 3431 3432 3438 3440 3442 3443 3444 3445 3446 3452 3454
3456 3457 3458 3459 3460 3466 3468 3470 3471 3472 3473 3474 3480 3482
3484 3485 3486 3487 3488 3494 3496 3498 3499 3500 3501 3502 3508 3510
3512 3513 3514 3515 3516 3522 3524 3526 3527 3528 3529 3530 3536 3538
3540 3541 3542 3543 3544 3550 3552 3554 3555 3556 3557 3558 3564 3566
3568 3569 3570 3571 3572 3578 3580 3582 3583 3584 3585 3586 3601 3603
3605 3606 3607 3608 3609 3615 3617 3619 3620 3621 3622 3623 3629 3631
3633 3634 3635 3636 3637 3643 3645 3647 3648 3649 3650 3651 3657 3659
3661 3662 3663 3664 3665 3671 3673 3675 3676 3677 3678 3679 3685 3687
3689 3690 3691 3692 3693 3699 3701 3703 3704 3705 3706 3707 3713 3715
3717 3718 3719 3720 3721 3727 3729 3731 3732 3733 3734 3735 3741 3743
3745 3746 3747 3748 3749 3755 3757 3759 3760 3761 3762 3763 3769 3771
3773 3774 3775 3776 3777 3783 3785 3787 3788 3789 3790 3791 3797 3799
3801 3802 3803 3804 3805 3811 3813 3815 3816 3817 3818 3819 3825 3827
3829 3830 3831 3832 3833 3839 3841 3843 3844 3845 3846 3847 3863 3865
3867 3868 3869 3870 3871 3877 3879 3881 3882 3883 3884 3885 3891 3893
3895 3896 3897 3898 3899 3905 3907 3909 3910 3911 3912 3913 3919 3921
3923 3924 3925 3926 3927 3933 3935 3937 3938 3939 3940 3941 3947 3949
3951 3952 3953 3954 3955 3961 3963 3965 3966 3967 3968 3969 3974 3976
3978 3979 3980 3981 3982 3998 4000 4002 4003 4004 4005 4006 4012 4014
4016 4017 4018 4019 4020 4026 4028 4030 4031 4032 4033 4034 4040 4042
4044 4045 4046 4047 4048 4054 4056 4058 4059 4060 4061 4062 4068 4070
4072 4073 4074 4075 4076 4082 4084 4086 4087 4088 4089 4090 4096 4098
4100 4101 4102 4103 4104 4110 4112 4114 4115 4116 4117 4118 4124 4126
4128 4129 4130 4131 4132 4138 4140 4142 4143 4144 4145 4146 4152 4154
4156 4157 4158 4159 4160 4166 4168 4170 4171 4172 4173 4174 4180 4182
4184 4185 4186 4187 4188 4194 4196 4198 4199 4200 4201 4202 4208 4210
4212 4213 4214 4215 4216 4222 4224 4226 4227 4228 4229 4230 4236 4238
4240 4241 4242 4243 4244 4259 4261 4263 4264 4265 4266 4267 4273 4275
4277 4278 4279 4280 4281 4287 4289 4291 4292 4293 4294 4295 4301 4303 SEQ 0277
4305 4306 4307 4308 4309 4315 4317 4319 4320 4321 4322 4323 4329 4331
4333 4334 4335 4336 4337 4343 4345 4347 4348 4349 4350 4351 4357 4359
4361 4362 4363 4364 4365 4371 4373 4375 4376 4377 4378 4379 4385 4387
4389 4390 4391 4392 4393 4399 4401 4403 4404 4405 4406 4407 4413 4415
4417 4418 4419 4420 4421 4427 4429 4431 4432 4433 4434 4435 4441 4443
4445 4446 4447 4448 4449 4455 4457 4459 4460 4461 4462 4463 4469 4471
4473 4474 4475 4476 4477 4483 4485 4487 4488 4489 4490 4491 4497 4499
4501 4502 4503 4504 4505 4520 4522 4524 4525 4526 4527 4528 4534 4536
4538 4539 4540 4541 4542 4548 4550 4552 4553 4554 4555 4556 4562 4564
4566 4567 4568 4569 4570 4576 4578 4580 4581 4582 4583 4584 4590 4592
4594 4595 4596 4597 4598 4604 4606 4608 4609 4610 4611 4612 4618 4620
4622 4623 4624 4625 4626 4632 4634 4636 4637 4638 4639 4640 4646 4648
4650 4651 4652 4653 4654 4660 4662 4664 4665 4666 4667 4668 4674 4676
4678 4679 4680 4681 4682 4688 4690 4692 4693 4694 4695 4696 4702 4704
4706 4707 4708 4709 4710 4716 4718 4720 4721 4722 4723 4724 4730 4732
4734 4735 4736 4737 4738 4744 4746 4748 4749 4750 4751 4752 4758 4760
4762 4763 4764 4765 4766 4781 4783 4785 4786 4787 4788 4789 4795 4797
4799 4800 4801 4802 4803 4809 4811 4813 4814 4815 4816 4817 4823 4825
4827 4828 4829 4830 4831 4837 4839 4841 4842 4843 4844 4845 4851 4853
4855 4856 4857 4858 4859 4865 4867 4869 4870 4871 4872 4873 4879 4881
4883 4884 4885 4886 4887 4892 4894 4896 4897 4898 4899 4900 4921 4923
4925 4926 4927 4928 4929 4937 4939 4941 4942 4943 4944 4945 4953 4955
4957 4958 4959 4960 4961 4969 4971 4973 4974 4975 4976 4977 4985 4987
4989 4990 4991 4992 4993 5001 5003 5005 5006 5007 5008 5009 5017 5019
5021 5022 5023 5024 5025 5033 5035 5037 5038 5039 5040 5041 5049 5051
5053 5054 5055 5056 5057 5065 5067 5069 5070 5071 5072 5073 5081 5083
5085 5086 5087 5088 5089 5097 5099 5101 5102 5103 5104 5105 5113 5115
5117 5118 5119 5120 5121 5129 5131 5133 5134 5135 5136 5137 5145 5147
5149 5150 5151 5152 5153 5161 5163 5165 5166 5167 5168 5169 5177 5179
5181 5182 5183 5184 5185 5193 5195 5197 5198 5199 5200 5201 5221 5223
5225 5226 5227 5228 5229 5237 5239 5241 5242 5243 5244 5245 5253 5255
5257 5258 5259 5260 5261 5269 5271 5273 5274 5275 5276 5277 5285 5287
5289 5290 5291 5292 5293 5301 5303 5305 5306 5307 5308 5309 5317 5319
5321 5322 5323 5324 5325 5333 5335 5337 5338 5339 5340 5341 5349 5351
5353 5354 5355 5356 5357 5365 5367 5369 5370 5371 5372 5373 5381 5383
5385 5386 5387 5388 5389 5397 5399 5401 5402 5403 5404 5405 5413 5415
5417 5418 5419 5420 5421 5429 5431 5433 5434 5435 5436 5437 5445 5447
5449 5450 5451 5452 5453 5461 5463 5465 5466 5467 5468 5469 5477 5479
5481 5482 5483 5484 5485 5493 5495 5497 5498 5499 5500 5501 5521 5523
5525 5526 5527 5528 5529 5537 5539 5541 5542 5543 5544 5545 5553 5555
5557 5558 5559 5560 5561 5569 5571 5573 5574 5575 5576 5577 5585 5587
5589 5590 5591 5592 5593 5601 5603 5605 5606 5607 5608 5609 5617 5619
5621 5622 5623 5624 5625 5633 5635 5637 5638 5639 5640 5641 5649 5651
5653 5654 5655 5656 5657 5665 5667 5669 5670 5671 5672 5673 5681 5683
5685 5686 5687 5688 5689 5697 5699 5701 5702 5703 5704 5705 5713 5715
5717 5718 5719 5720 5721 5729 5731 5733 5734 5735 5736 5737 5745 5747
5749 5750 5751 5752 5753 5761 5763 5765 5766 5767 5768 5769 5777 5779
5781 5782 5783 5784 5785 5793 5795 5797 5798 5799 5800 5801 5821 5823
5825 5826 5827 5828 5829 5837 5839 5841 5842 5843 5844 5845 5853 5855
5857 5858 5859 5860 5861 5869 5871 5873 5874 5875 5876 5877 5885 5887
5889 5890 5891 5892 5893 5901 5903 5905 5906 5907 5908 5909 5917 5919
5921 5922 5923 5924 5925 5933 5935 5937 5938 5939 5940 5941 5949 5951
5953 5954 5955 5956 5957 5979 5981 5983 5984 5985 5986 5987 5995 5997 SEQ 0278
5999 6000 6001 6002 6003 6011 6013 6015 6016 6017 6018 6019 6027 6029
6031 6032 6033 6034 6035 6043 6045 6047 6048 6049 6050 6051 6059 6061
6063 6064 6065 6066 6067 6075 6077 6079 6080 6081 6082 6083 6091 6093
6095 6096 6097 6098 6099 6107 6109 6111 6112 6113 6114 6115 6123 6125
6127 6128 6129 6130 6131 6139 6141 6143 6144 6145 6146 6147 6155 6157
6159 6160 6161 6162 6163 6171 6173 6175 6176 6177 6178 6179 6187 6189
6191 6192 6193 6194 6195 6203 6205 6207 6208 6209 6210 6211 6219 6221
6223 6224 6225 6226 6227 6235 6237 6239 6240 6241 6242 6243 6251 6253
6255 6256 6257 6258 6259 6279 6281 6283 6284 6285 6286 6287 6295 6297
6299 6300 6301 6302 6303 6311 6313 6315 6316 6317 6318 6319 6327 6329
6331 6332 6333 6334 6335 6343 6345 6347 6348 6349 6350 6351 6359 6361
6363 6364 6365 6366 6367 6375 6377 6379 6380 6381 6382 6383 6391 6393
6395 6396 6397 6398 6399 6407 6409 6411 6412 6413 6414 6415 6423 6425
6427 6428 6429 6430 6431 6439 6441 6443 6444 6445 6446 6447 6455 6457
6459 6460 6461 6462 6463 6471 6473 6475 6476 6477 6478 6479 6487 6489
6491 6492 6493 6494 6495 6503 6505 6507 6508 6509 6510 6511 6519 6521
6523 6524 6525 6526 6527 6535 6537 6539 6540 6541 6542 6543 6551 6553
6555 6556 6557 6558 6559 6579 6581 6583 6584 6585 6586 6587 6595 6597
6599 6600 6601 6602 6603 6611 6613 6615 6616 6617 6618 6619 6627 6629
6631 6632 6633 6634 6635 6643 6645 6647 6648 6649 6650 6651 6659 6661
6663 6664 6665 6666 6667 6675 6677 6679 6680 6681 6682 6683 6691 6693
6695 6696 6697 6698 6699 6707 6709 6711 6712 6713 6714 6715 6723 6725
6727 6728 6729 6730 6731 6739 6741 6743 6744 6745 6746 6747 6755 6757
6759 6760 6761 6762 6763 6771 6773 6775 6776 6777 6778 6779 6787 6789
6791 6792 6793 6794 6795 6803 6805 6807 6808 6809 6810 6811 6819 6821
6823 6824 6825 6826 6827 6835 6837 6839 6840 6841 6842 6843 6851 6853
6855 6856 6857 6858 6859 6879 6881 6883 6884 6885 6886 6887 6895 6897
6899 6900 6901 6902 6903 6911 6913 6915 6916 6917 6918 6919 6927 6929
6931 6932 6933 6934 6935 6943 6945 6947 6948 6949 6950 6951 6959 6961
6963 6964 6965 6966 6967 6975 6977 6979 6980 6981 6982 6983 6991 6993
6995 6996 6997 6998 6999 7007 7009 7011 7012 7013 7014 7015 7035 7037
7039 7040 7041 7042 7043 7050 7052 7054 7055 7056 7057 7058 7065 7067
7069 7070 7071 7072 7073 7080 7082 7084 7085 7086 7087 7088 7095 7097
7099 7100 7101 7102 7103 7110 7112 7114 7115 7116 7117 7118 7125 7127
7129 7130 7131 7132 7133 7140 7142 7144 7145 7146 7147 7148 7155 7157
7159 7160 7161 7162 7163 7170 7172 7174 7175 7176 7177 7178 7185 7187
7189 7190 7191 7192 7193 7200 7202 7204 7205 7206 7207 7208 7215 7217
7219 7220 7221 7222 7223 7230 7232 7234 7235 7236 7237 7238 7245 7247
7249 7250 7251 7252 7253 7260 7262 7264 7265 7266 7267 7268 7275 7277
7279 7280 7281 7282 7283 7290 7292 7294 7295 7296 7297 7298 7306 7308
7310 7311 7312 7313 7314 7327 7329 7331 7332 7333 7334 7335 7341 7343
7345 7346 7347 7348 7349 7355 7357 7359 7360 7361 7362 7363 7369 7371
7373 7374 7375 7376 7377 7383 7385 7387 7388 7389 7390 7391 7397 7399
7401 7402 7403 7404 7405 7411 7413 7415 7416 7417 7418 7419 7425 7427
7429 7430 7431 7432 7433 7439 7441 7443 7444 7445 7446 7447 7453 7455
7457 7458 7459 7460 7461 7467 7469 7471 7472 7473 7474 7475 7481 7483
7485 7486 7487 7488 7489 7495 7497 7499 7500 7501 7502 7503 7509 7511
7513 7514 7515 7516 7517 7523 7525 7527 7528 7529 7530 7531 7537 7539
7541 7542 7543 7544 7545 7553 7555 7557 7558 7559 7560 7561 7566 7568
7570 7571 7572 7573 7574 7587 7589 7591 7592 7593 7594 7595 7601 7603
7605 7606 7607 7608 7609 7615 7617 7619 7620 7621 7622 7623 7629 7631
7633 7634 7635 7636 7637 7643 7645 7647 7648 7649 7650 7651 7657 7659
7661 7662 7663 7664 7665 7671 7673 7675 7676 7677 7678 7679 7685 7687 SEQ 0279
7689 7690 7691 7692 7693 7699 7701 7703 7704 7705 7706 7707 7713 7715
7717 7718 7719 7720 7721 7727 7729 7731 7732 7733 7734 7735 7741 7743
7745 7746 7747 7748 7749 7755 7757 7759 7760 7761 7762 7763 7769 7771
7773 7774 7775 7776 7777 7783 7785 7787 7788 7789 7790 7791 7797 7799
7801 7802 7803 7804 7805 7811 7813 7815 7816 7817 7818 7819 7827 7829
7831 7832 7833 7834 7835 7847 7849 7851 7852 7853 7854 7855 7861 7863
7865 7866 7867 7868 7869 7875 7877 7879 7880 7881 7882 7883 7889 7891
7893 7894 7895 7896 7897 7903 7905 7907 7908 7909 7910 7911 7917 7919
7921 7922 7923 7924 7925 7931 7933 7935 7936 7937 7938 7939 7945 7947
7949 7950 7951 7952 7953 7973 7975 7977 7978 7979 7980 7981 7988 7990
7992 7993 7994 7995 7996 8003 8005 8007 8008 8009 8010 8011 8018 8020
8022 8023 8024 8025 8026 8033 8035 8037 8038 8039 8040 8041 8048 8050
8052 8053 8054 8055 8056 8063 8065 8067 8068 8069 8070 8071 8078 8080
8082 8083 8084 8085 8086 8093 8095 8097 8098 8099 8100 8101 8108 8110
8112 8113 8114 8115 8116 8123 8125 8127 8128 8129 8130 8131 8138 8140
8142 8143 8144 8145 8146 8153 8155 8157 8158 8159 8160 8161 8168 8170
8172 8173 8174 8175 8176 8183 8185 8187 8188 8189 8190 8191 8198 8200
8202 8203 8204 8205 8206 8213 8215 8217 8218 8219 8220 8221 8228 8230
8232 8233 8234 8235 8236 8244 8246 8248 8249 8250 8251 8252 8265 8267
8269 8270 8271 8272 8273 8279 8281 8283 8284 8285 8286 8287 8293 8295
8297 8298 8299 8300 8301 8307 8309 8311 8312 8313 8314 8315 8321 8323
8325 8326 8327 8328 8329 8335 8337 8339 8340 8341 8342 8343 8349 8351
8353 8354 8355 8356 8357 8363 8365 8367 8368 8369 8370 8371 8377 8379
8381 8382 8383 8384 8385 8391 8393 8395 8396 8397 8398 8399 8405 8407
8409 8410 8411 8412 8413 8419 8421 8423 8424 8425 8426 8427 8433 8435
8437 8438 8439 8440 8441 8447 8449 8451 8452 8453 8454 8455 8461 8463
8465 8466 8467 8468 8469 8475 8477 8479 8480 8481 8482 8483 8491 8493
8495 8496 8497 8498 8499 8505 8507 8509 8510 8511 8512 8513 8524 8526
8528 8529 8530 8531 8532 8538 8540 8542 8543 8544 8545 8546 8552 8554
8556 8557 8558 8559 8560 8566 8568 8570 8571 8572 8573 8574 8580 8582
8584 8585 8586 8587 8588 8594 8596 8598 8599 8600 8601 8602 8608 8610
8612 8613 8614 8615 8616 8622 8624 8626 8627 8628 8629 8630 8636 8638
8640 8641 8642 8643 8644 8650 8652 8654 8655 8656 8657 8658 8664 8666
8668 8669 8670 8671 8672 8678 8680 8682 8683 8684 8685 8686 8692 8694
8696 8697 8698 8699 8700 8706 8708 8710 8711 8712 8713 8714 8720 8722
8724 8725 8726 8727 8728 8734 8736 8738 8739 8740 8741 8742 8748 8750
8752 8753 8754 8755 8756 8763 8765 8767 8768 8769 8770 8771 8782 8784
8786 8787 8788 8789 8790 8796 8798 8800 8801 8802 8803 8804 8810 8812
8814 8815 8816 8817 8818 8824 8826 8828 8829 8830 8831 8832 8838 8840
8842 8843 8844 8845 8846 8852 8854 8856 8857 8858 8859 8860 8866 8868
8870 8871 8872 8873 8874 8880 8882 8884 8885 8886 8887 8888 8911 8913
8915 8916 8917 8918 8919 8927 8929 8931 8932 8933 8934 8935 8943 8945
8947 8948 8949 8950 8951 8959 8961 8963 8964 8965 8966 8967 8975 8977
8979 8980 8981 8982 8983 8991 8993 8995 8996 8997 8998 8999 9007 9009
9011 9012 9013 9014 9015 9023 9025 9027 9028 9029 9030 9031 9039 9041
9043 9044 9045 9046 9047 9055 9057 9059 9060 9061 9062 9063 9071 9073
9075 9076 9077 9078 9079 9087 9089 9091 9092 9093 9094 9095 9103 9105
9107 9108 9109 9110 9111 9119 9121 9123 9124 9125 9126 9127 9135 9137
9139 9140 9141 9142 9143 9151 9153 9155 9156 9157 9158 9159 9167 9169
9171 9172 9173 9174 9175 9183 9185 9187 9188 9189 9190 9191 9198 9200
9202 9203 9204 9205 9206 9218 9220 9222 9223 9224 9225 9226 9232 9234
9236 9237 9238 9239 9240 9246 9248 9250 9251 9252 9253 9254 9260 9262
9264 9265 9266 9267 9268 9274 9276 9278 9279 9280 9281 9282 9288 9290 SEQ 0280
9292 9293 9294 9295 9296 9302 9304 9306 9307 9308 9309 9310 9316 9318
9320 9321 9322 9323 9324 9330 9332 9334 9335 9336 9337 9338 9344 9346
9348 9349 9350 9351 9352 9358 9360 9362 9363 9364 9365 9366 9372 9374
9376 9377 9378 9379 9380 9386 9388 9390 9391 9392 9393 9394 9400 9402
9404 9405 9406 9407 9408 9414 9416 9418 9419 9420 9421 9422 9428 9430
9432 9433 9434 9435 9436 9443 9445 9447 9448 9449 9450 9451 9457 9459
9461 9462 9463 9464 9465 9477 9479 9481 9482 9483 9484 9485 9491 9493
9495 9496 9497 9498 9499 9505 9507 9509 9510 9511 9512 9513 9519 9521
9523 9524 9525 9526 9527 9533 9535 9537 9538 9539 9540 9541 9547 9549
9551 9552 9553 9554 9555 9561 9563 9565 9566 9567 9568 9569 9575 9577
9579 9580 9581 9582 9583 9589 9591 9593 9594 9595 9596 9597 9603 9605
9607 9608 9609 9610 9611 9617 9619 9621 9622 9623 9624 9625 9631 9633
9635 9636 9637 9638 9639 9645 9647 9649 9650 9651 9652 9653 9659 9661
9663 9664 9665 9666 9667 9673 9675 9677 9678 9679 9680 9681 9687 9689
9691 9692 9693 9694 9695 9701 9703 9705 9706 9707 9708 9709 9716 9718
9720 9721 9722 9723 9724 9736 9738 9740 9741 9742 9743 9744 9750 9752
9754 9755 9756 9757 9758 9764 9766 9768 9769 9770 9771 9772 9778 9780
9782 9783 9784 9785 9786 9792 9794 9796 9797 9798 9799 9800 9806 9808
9810 9811 9812 9813 9814 9820 9822 9824 9825 9826 9827 9828 9834 9836
9838 9839 9840 9841 9842 9864 9866 9868 9869 9870 9871 9872 9880 9882
9884 9885 9886 9887 9888 9896 9898 9900 9901 9902 9903 9904 9912 9914
9916 9917 9918 9919 9920 9928 9930 9932 9933 9934 9935 9936 9944 9946
9948 9949 9950 9951 9952 9960 9962 9964 9965 9966 9967 9968 9976 9978
9980 9981 9982 9983 9984 9992 9994 9996 9997 9998 9999 10000 10008 10010
10012 10013 10014 10015 10016 10024 10026 10028 10029 10030 10031 10032 10040 10042
10044 10045 10046 10047 10048 10056 10058 10060 10061 10062 10063 10064 10072 10074
10076 10077 10078 10079 10080 10088 10090 10092 10093 10094 10095 10096 10104 10106
10108 10109 10110 10111 10112 10120 10122 10124 10125 10126 10127 10128 10136 10138
10140 10141 10142 10143 10144 10151 10153 10155 10156 10157 10158 10159 10171 10173
10175 10176 10177 10178 10179 10185 10187 10189 10190 10191 10192 10193 10199 10201
10203 10204 10205 10206 10207 10213 10215 10217 10218 10219 10220 10221 10227 10229
10231 10232 10233 10234 10235 10241 10243 10245 10246 10247 10248 10249 10255 10257
10259 10260 10261 10262 10263 10269 10271 10273 10274 10275 10276 10277 10283 10285
10287 10288 10289 10290 10291 10297 10299 10301 10302 10303 10304 10305 10311 10313
10315 10316 10317 10318 10319 10325 10327 10329 10330 10331 10332 10333 10339 10341
10343 10344 10345 10346 10347 10353 10355 10357 10358 10359 10360 10361 10367 10369
10371 10372 10373 10374 10375 10381 10383 10385 10386 10387 10388 10389 10396 10398
10400 10401 10402 10403 10404 10410 10412 10414 10415 10416 10417 10418 10430 10432
10434 10435 10436 10437 10438 10444 10446 10448 10449 10450 10451 10452 10458 10460
10462 10463 10464 10465 10466 10472 10474 10476 10477 10478 10479 10480 10486 10488
10490 10491 10492 10493 10494 10500 10502 10504 10505 10506 10507 10508 10514 10516
10518 10519 10520 10521 10522 10528 10530 10532 10533 10534 10535 10536 10542 10544
10546 10547 10548 10549 10550 10556 10558 10560 10561 10562 10563 10564 10570 10572
10574 10575 10576 10577 10578 10584 10586 10588 10589 10590 10591 10592 10598 10600
10602 10603 10604 10605 10606 10612 10614 10616 10617 10618 10619 10620 10626 10628
10630 10631 10632 10633 10634 10640 10642 10644 10645 10646 10647 10648 10654 10656
10658 10659 10660 10661 10662 10669 10671 10673 10674 10675 10676 10677 10689 10691
10693 10694 10695 10696 10697 10703 10705 10707 10708 10709 10710 10711 10717 10719
10721 10722 10723 10724 10725 10731 10733 10735 10736 10737 10738 10739 10745 10747
10749 10750 10751 10752 10753 10759 10761 10763 10764 10765 10766 10767 10773 10775
10777 10778 10779 10780 10781 10787 10789 10791 10792 10793 10794 10795 10816 10818
10820 10821 10822 10823 10824 10831 10833 10835 10836 10837 10838 10839 10846 10848
10850 10851 10852 10853 10854 10861 10863 10865 10866 10867 10868 10869 10876 10878 SEQ 0281
10880 10881 10882 10883 10884 10891 10893 10895 10896 10897 10898 10899 10906 10908
10910 10911 10912 10913 10914 10921 10923 10925 10926 10927 10928 10929 10936 10938
10940 10941 10942 10943 10944 10951 10953 10955 10956 10957 10958 10959 10966 10968
10970 10971 10972 10973 10974 10981 10983 10985 10986 10987 10988 10989 10996 10998
11000 11001 11002 11003 11004 11011 11013 11015 11016 11017 11018 11019 11026 11028
11030 11031 11032 11033 11034 11041 11043 11045 11046 11047 11048 11049 11056 11058
11060 11061 11062 11063 11064 11071 11073 11075 11076 11077 11078 11079 11096 11098
11100 11101 11102 11103 11104 11111 11113 11115 11116 11117 11118 11119 11126 11128
11130 11131 11132 11133 11134 11141 11143 11145 11146 11147 11148 11149 11156 11158
11160 11161 11162 11163 11164 11171 11173 11175 11176 11177 11178 11179 11186 11188
11190 11191 11192 11193 11194 11201 11203 11205 11206 11207 11208 11209 11216 11218
11220 11221 11222 11223 11224 11231 11233 11235 11236 11237 11238 11239 11246 11248
11250 11251 11252 11253 11254 11261 11263 11265 11266 11267 11268 11269 11276 11278
11280 11281 11282 11283 11284 11291 11293 11295 11296 11297 11298 11299 11306 11308
11310 11311 11312 11313 11314 11321 11323 11325 11326 11327 11328 11329 11336 11338
11340 11341 11342 11343 11344 11349 11351 11353 11354 11355 11356 11357 11373 11375
11377 11378 11379 11380 11381 11388 11390 11392 11393 11394 11395 11396 11403 11405
11407 11408 11409 11410 11411 11418 11420 11422 11423 11424 11425 11426 11433 11435
11437 11438 11439 11440 11441 11448 11450 11452 11453 11454 11455 11456 11463 11465
11467 11468 11469 11470 11471 11478 11480 11482 11483 11484 11485 11486 11493 11495
11497 11498 11499 11500 11501 11508 11510 11512 11513 11514 11515 11516 11523 11525
11527 11528 11529 11530 11531 11538 11540 11542 11543 11544 11545 11546 11553 11555
11557 11558 11559 11560 11561 11568 11570 11572 11573 11574 11575 11576 11583 11585
11587 11588 11589 11590 11591 11598 11600 11602 11603 11604 11605 11606 11613 11615
11617 11618 11619 11620 11621 11628 11630 11632 11633 11634 11635 11636 11653 11655
11657 11658 11659 11660 11661 11668 11670 11672 11673 11674 11675 11676 11683 11685
11687 11688 11689 11690 11691 11698 11700 11702 11703 11704 11705 11706 11713 11715
11717 11718 11719 11720 11721 11728 11730 11732 11733 11734 11735 11736 11743 11745
11747 11748 11749 11750 11751 11758 11760 11762 11763 11764 11765 11766 11773 11775
11777 11778 11779 11780 11781 11800 11802 11804 11805 11806 11807 11808 11814 11816
11818 11819 11820 11821 11822 11828 11830 11832 11833 11834 11835 11836 11842 11844
11846 11847 11848 11849 11850 11856 11858 11860 11861 11862 11863 11864 11870 11872
11874 11875 11876 11877 11878 11884 11886 11888 11889 11890 11891 11892 11898 11900
11902 11903 11904 11905 11906 11912 11914 11916 11917 11918 11919 11920 11926 11928
11930 11931 11932 11933 11934 11940 11942 11944 11945 11946 11947 11948 11954 11956
11958 11959 11960 11961 11962 11968 11970 11972 11973 11974 11975 11976 11982 11984
11986 11987 11988 11989 11990 11996 11998 12000 12001 12002 12003 12004 12010 12012
12014 12015 12016 12017 12018 12024 12026 12028 12029 12030 12031 12032 12038 12040
12042 12043 12044 12045 12046 12061 12063 12065 12066 12067 12068 12069 12075 12077
12079 12080 12081 12082 12083 12089 12091 12093 12094 12095 12096 12097 12103 12105
12107 12108 12109 12110 12111 12117 12119 12121 12122 12123 12124 12125 12131 12133
12135 12136 12137 12138 12139 12145 12147 12149 12150 12151 12152 12153 12159 12161
12163 12164 12165 12166 12167 12173 12175 12177 12178 12179 12180 12181 12187 12189
12191 12192 12193 12194 12195 12201 12203 12205 12206 12207 12208 12209 12215 12217
12219 12220 12221 12222 12223 12229 12231 12233 12234 12235 12236 12237 12243 12245
12247 12248 12249 12250 12251 12257 12259 12261 12262 12263 12264 12265 12271 12273
12275 12276 12277 12278 12279 12285 12287 12289 12290 12291 12292 12293 12299 12301
12303 12304 12305 12306 12307 12322 12324 12326 12327 12328 12329 12330 12336 12338
12340 12341 12342 12343 12344 12350 12352 12354 12355 12356 12357 12358 12364 12366
12368 12369 12370 12371 12372 12378 12380 12382 12383 12384 12385 12386 12392 12394
12396 12397 12398 12399 12400 12406 12408 12410 12411 12412 12413 12414 12420 12422
12424 12425 12426 12427 12428 12434 12436 12438 12439 12440 12441 12442 12448 12450
12452 12453 12454 12455 12456 12462 12464 12466 12467 12468 12469 12470 12476 12478 SEQ 0282
12480 12481 12482 12483 12484 12490 12492 12494 12495 12496 12497 12498 12504 12506
12508 12509 12510 12511 12512 12518 12520 12522 12523 12524 12525 12526 12532 12534
12536 12537 12538 12539 12540 12546 12548 12550 12551 12552 12553 12554 12560 12562
12564 12565 12566 12567 12568 12583 12585 12587 12588 12589 12590 12591 12597 12599
12601 12602 12603 12604 12605 12611 12613 12615 12616 12617 12618 12619 12625 12627
12629 12630 12631 12632 12633 12639 12641 12643 12644 12645 12646 12647 12653 12655
12657 12658 12659 12660 12661 12667 12669 12671 12672 12673 12674 12675 12681 12683
12685 12686 12687 12688 12689 12695 12697 12699 12700 12701 12702 12703 12707 12709
12711 12712 12713 12714 12715
ALTMGO 889# 12841
AROV 803#
AROVTP 803#
AROVU 803#
AST 1004#
ATSIN 1005#
BEGEND 885# 12718
BEGIN 71 76 77 78 79 80 81 792 793 816# 13569
BEGIN1 832# 886
BELL 1008#
BIS 803#
CCA 803#
CD00 1165#
CHAIN 597#
CHNOFF 803#
CHNON 803#
CLKU 803#
CLOCKF 871#
CNTLC 888#
CNTRP 803#
COMMA 997#
CONSW 872# 12776 12842 12866
CPOPJ 892#
CPOPJ1 890#
CRLF 727 728 992#
CRLF2 731 732 994#
CRY0 803#
CRY1 803#
CSHFLG 1051#
CSHMEM 1052#
CTRP 803#
CYCL60 1045#
DCK 803#
DDTLNK 611# 830
DDTSRT 830#
DEBUG 55# 13560 13561
DECVER 4# 10 23 851
DF22F 956#
DIAGMN 819#
DING 583# 12847
DOLLAR 1011#
DSKUPD 856
EBIT0 803#
EBIT1 803# SEQ 0283
EBIT10 803#
EBIT11 803#
EBIT12 803#
EBIT13 803#
EBIT14 803#
EBIT15 803#
EBIT2 803#
EBIT3 803#
EBIT4 803#
EBIT5 803#
EBIT6 803#
EBIT7 803#
EBIT8 803#
EBIT9 803#
END 13568#
ENDFIX 1131#
ENDSLD 13558#
ERDIAG 59# 12761
ERMORE 905# 12834
EROLD 60# 803
ERRELB 12831
ERRLOP 1169# 1169 12741 12852 12855 12856
ERRMES 41 42 43 44 45 46 47 48 49 50 51 12723#
ERRPC 876# 12728 12758
ERRTLS 877# 12726 12859
ERSTOP 586# 12843
EXCASB 56# 854
EXIOT 803#
FOV 803#
FOVU 803#
FRDLNK 609#
FSELNK 608#
FXU 803#
HYPEN 1002#
INHCSH 594#
INHPAG 591#
IOCLR 803#
ITERAT 90# 849
ITRCH1 909#
ITRCNT 849#
JOB41 803#
JOBAPR 803#
JOBCNI 803#
JOBDDT 803#
JOBFF 803#
JOBOPC 803# 12840
JOBREL 803#
JOBREN 803#
JOBSA 803#
JOBSYM 803#
JOBTPC 803#
JOBUSY 803#
JOBUUO 803# SEQ 0284
JOBVER 803#
KAIFLG 866#
KLFLG 867#
KNTRP 803#
KTRP 803#
LACLK 803#
LACLKE 803#
LAPRAL 803#
LAPRP1 803#
LAPRP2 803#
LAPRP3 803#
LAPRP4 803#
LAPRP5 803#
LAPRP6 803#
LAPRP7 803#
LCHNOF 803#
LCHNON 803#
LCNTXT 803#
LCNXER 803#
LCPAER 803#
LCPSFT 803#
LCPWRF 803#
LDATAF 803#
LDLNK 610# 819 821
LDNXER 803#
LDPAER 803#
LDPSFT 803#
LDPWRF 803#
LEBXMH 803#
LEBXML 803#
LENXER 803#
LEPAER 803#
LEPSFT 803#
LEPWRF 803#
LEUPFW 803#
LEXCMP 803#
LFLGCL 803#
LFLGDS 803#
LFLGEN 803#
LFLGST 803#
LFP 1006#
LINSTF 803#
LINT 803#
LIOCLR 803#
LLACBL 803#
LLDUSB 803#
LMBXMH 803#
LMBXML 803#
LNXMEN 803#
LNXMER 803#
LOOPER 585# 12845
LPAREN 803#
LPARER 803# SEQ 0285
LPFWPC 803#
LPGFTR 803#
LPICH1 803#
LPICH2 803#
LPICH3 803#
LPICH4 803#
LPICH5 803#
LPICH6 803#
LPICH7 803#
LPICHA 803#
LPICLR 803#
LPIIP1 803#
LPIIP2 803#
LPIIP3 803#
LPIIP4 803#
LPIIP5 803#
LPIIP6 803#
LPIIP7 803#
LPIOFF 803#
LPION 803#
LPRCH1 803#
LPRCH2 803#
LPRCH3 803#
LPRCH4 803#
LPRCH5 803#
LPRCH6 803#
LPRCH7 803#
LPRFMH 803#
LPRFML 803#
LPSFT 803#
LPSFTE 803#
LPWRFE 803#
LPWRFL 803#
LREQSE 803#
LRQCLR 803#
LSECMO 803#
LSMODE 803#
LSNXER 803#
LSPAER 803#
LSPSFT 803#
LSPWRF 803#
LTBASH 803#
LTBASL 803#
LTRPAE 803#
LTRPEN 803#
LUSCMP 803#
LUUO 803#
LUUO1 41# 936 937
LUUO10 48# 936 941
LUUO11 49# 936 941
LUUO12 50# 936 942
LUUO13 51# 936 942
LUUO14 936 943 SEQ 0286
LUUO15 936 943
LUUO16 936 944
LUUO17 936 944
LUUO2 42# 936 938
LUUO20 936 945
LUUO21 936 945
LUUO22 936 946
LUUO23 936 946
LUUO24 936 947
LUUO25 936 947
LUUO26 936 948
LUUO27 936 948
LUUO3 43# 936 938
LUUO30 936 949
LUUO31 936 949
LUUO32 936 950
LUUO33 936 950
LUUO4 44# 936 939
LUUO5 45# 936 939
LUUO6 46# 936 940
LUUO7 47# 936 940
LUUOI 803#
LWRITE 803#
MAPNEW 957#
MARGIN 879#
MCNVER 3# 10 23 851
MEMLOW 959#
MEMMAP 857
MEMSIZ 960#
MEMTOT 958#
MICNT 12729# 12729 12730 12743
MINUS 1001#
MODDVC 593#
MODDVL 792 792# 852
MODDVU 793 793# 853
MODLNK 612# 816
MONCTL 869# 12744 12857
MONFLG 868#
MONTEN 870#
MONTYP 1083#
MPVU 803#
MUUO 803#
MUUOPC 803#
NOPNT 581# 12734
NXMU 803#
OPRSEL 595#
OPTIME 971#
P 638 639 640 641 803# 891
PAG 803#
PALERS 587# 12867
PAREA1 83# 847
PAREA2 84# 848
PAREA3 85# 845 SEQ 0287
PAREA4 86# 846
PAREA5 87# 858
PAREA6 88# 859
PAREA7 858#
PAREA8 859#
PARU 803#
PASCNT 873# 12749 12753
PATCH 13561#
PDISF 968#
PDLOVU 803#
PDOVTP 803#
PERIOD 998#
PFSTRT 825#
PGMEND 58# 13567
PGMNAM 850 1135#
PICHN1 803#
PICHN2 803#
PICHN3 803#
PICHN4 803#
PICHN5 803#
PICHN6 803#
PICHN7 803#
PICHNA 803#
PICLR 803#
PIOFF 803#
PION 803#
PLIST 1037# 1037
PLISTE 1037 1039#
PLISTS 1038#
PLUS 1003#
PNTENB 967#
PNTEXT 846#
PNTFLG 966#
PNTINH 969#
PNTLPT 582#
PNTNAM 845#
PNTRP 803#
PNTSPC 970#
PROCED 12732# 12732 12846 12853
PTRP 803#
PVPAGI 1064#
QUEST 1009#
R100 1173# 1181
R1000 4907#
R1100 5965#
R1200 7023#
R1300 7961#
R1400 8897#
R1500 9850#
R1600 10804#
R1700 11790#
R200 1188#
R2000 12707# 12715 SEQ 0288
R300 2106#
R400 3041# 3049
R500 3054# 3062
R600 3069#
R700 3988#
RADIX 1012#
RADLSC 1014#
RADLSP 1013#
RANDBS 847#
REENTR 827#
RELIAB 589#
RENTR1 73 1132#
REPT 803#
REPT1 803#
REPTU 925#
REQSET 803#
RESRT1 72 902#
RESRT2 903#
RETURN 834#
RSTART 578#
RTP 1007#
RUNFLG 874#
SADR1 71# 823
SADR10 80# 839
SADR11 81# 840
SADR2 72# 825
SADR3 73# 827
SADR4 74#
SADR5 75# 888
SADR6 76# 889
SADR7 77# 836
SADR8 78# 837
SADR9 79# 838
SBINIT 651 833#
SCOPE 926#
SFSTRT 823#
SLASH 1010#
SM10 1114#
SNTRP 803#
SPACE 999#
SPDES 12819#
SRTDDT 74 829#
START 817 1151#
START1 836#
START2 837#
START3 838#
START4 839#
START5 840#
STARTA 832 1155#
STRP 803#
SUBLNK 613# 833
SWPTAB 1120#
SWTEXR 848# SEQ 0289
SYSEXR 821#
T 1184# 1194 1194# 1203 1205 1208 1208# 1217 1219 1222 1222# 1231 1233 1236
1236# 1245 1247 1250 1250# 1259 1261 1264 1264# 1273 1275 1278 1278# 1287
1289 1292 1292# 1301 1303 1306 1306# 1315 1317 1329 1329# 1338 1340 1343
1343# 1352 1354 1357 1357# 1366 1368 1371 1371# 1380 1382 1385 1385# 1394
1396 1399 1399# 1408 1410 1413 1413# 1422 1424 1427 1427# 1436 1438 1441
1441# 1450 1452 1455 1455# 1464 1466 1469 1469# 1478 1480 1483 1483# 1492
1494 1497 1497# 1506 1508 1511 1511# 1520 1522 1525 1525# 1534 1536 1539
1539# 1548 1550 1553 1553# 1562 1564 1567 1567# 1576 1578 1584 1584# 1591
1593 1602 1602# 1611 1613 1616 1616# 1625 1627 1630 1630# 1639 1641 1644
1644# 1653 1655 1658 1658# 1667 1669 1672 1672# 1681 1683 1686 1686# 1695
1697 1700 1700# 1709 1711 1714 1714# 1723 1725 1728 1728# 1737 1739 1742
1742# 1751 1753 1756 1756# 1765 1767 1770 1770# 1779 1781 1784 1784# 1793
1795 1798 1798# 1807 1809 1812 1812# 1821 1823 1826 1826# 1835 1837 1849
1849# 1858 1860 1863 1863# 1872 1874 1877 1877# 1886 1888 1891 1891# 1900
1902 1905 1905# 1914 1916 1919 1919# 1928 1930 1933 1933# 1942 1944 1947
1947# 1956 1958 1961 1961# 1970 1972 1975 1975# 1984 1986 1989 1989# 1998
2000 2003 2003# 2012 2014 2017 2017# 2026 2028 2031 2031# 2040 2042 2045
2045# 2054 2056 2059 2059# 2068 2070 2073 2073# 2082 2084 2087 2087# 2096
2098 2102# 2112 2112# 2121 2123 2126 2126# 2135 2137 2140 2140# 2149 2151
2154 2154# 2163 2165 2168 2168# 2177 2179 2182 2182# 2191 2193 2196 2196#
2205 2207 2210 2210# 2219 2221 2224 2224# 2233 2235 2247 2247# 2256 2258
2261 2261# 2270 2272 2275 2275# 2284 2286 2289 2289# 2298 2300 2303 2303#
2312 2314 2317 2317# 2326 2328 2331 2331# 2340 2342 2345 2345# 2354 2356
2359 2359# 2368 2370 2373 2373# 2382 2384 2387 2387# 2396 2398 2401 2401#
2410 2412 2415 2415# 2424 2426 2429 2429# 2438 2440 2443 2443# 2452 2454
2457 2457# 2466 2468 2471 2471# 2480 2482 2485 2485# 2494 2496 2502 2502#
2509 2511 2521 2521# 2530 2532 2536 2536# 2545 2547 2551 2551# 2560 2562
2566 2566# 2575 2577 2581 2581# 2590 2592 2596 2596# 2605 2607 2611 2611#
2620 2622 2626 2626# 2635 2637 2641 2641# 2650 2652 2656 2656# 2665 2667
2671 2671# 2680 2682 2686 2686# 2695 2697 2701 2701# 2710 2712 2716 2716#
2725 2727 2731 2731# 2740 2742 2746 2746# 2755 2757 2761 2761# 2770 2772
2785 2785# 2794 2796 2799 2799# 2808 2810 2813 2813# 2822 2824 2827 2827#
2836 2838 2841 2841# 2850 2852 2855 2855# 2864 2866 2869 2869# 2878 2880
2883 2883# 2892 2894 2897 2897# 2906 2908 2911 2911# 2920 2922 2925 2925#
2934 2936 2939 2939# 2948 2950 2953 2953# 2962 2964 2967 2967# 2976 2978
2981 2981# 2990 2992 2995 2995# 3004 3006 3009 3009# 3018 3020 3023 3023#
3032 3034 3066# 3075 3075# 3084 3086 3089 3089# 3098 3100 3103 3103# 3112
3114 3117 3117# 3126 3128 3131 3131# 3140 3142 3145 3145# 3154 3156 3159
3159# 3168 3170 3173 3173# 3182 3184 3187 3187# 3196 3198 3201 3201# 3210
3212 3215 3215# 3224 3226 3229 3229# 3238 3240 3243 3243# 3252 3254 3257
3257# 3266 3268 3271 3271# 3280 3282 3285 3285# 3294 3296 3299 3299# 3308
3310 3313 3313# 3322 3324 3336 3336# 3345 3347 3350 3350# 3359 3361 3364
3364# 3373 3375 3378 3378# 3387 3389 3392 3392# 3401 3403 3406 3406# 3415
3417 3420 3420# 3429 3431 3434 3434# 3443 3445 3448 3448# 3457 3459 3462
3462# 3471 3473 3476 3476# 3485 3487 3490 3490# 3499 3501 3504 3504# 3513
3515 3518 3518# 3527 3529 3532 3532# 3541 3543 3546 3546# 3555 3557 3560
3560# 3569 3571 3574 3574# 3583 3585 3597 3597# 3606 3608 3611 3611# 3620
3622 3625 3625# 3634 3636 3639 3639# 3648 3650 3653 3653# 3662 3664 3667
3667# 3676 3678 3681 3681# 3690 3692 3695 3695# 3704 3706 3709 3709# 3718
3720 3723 3723# 3732 3734 3737 3737# 3746 3748 3751 3751# 3760 3762 3765
3765# 3774 3776 3779 3779# 3788 3790 3793 3793# 3802 3804 3807 3807# 3816
3818 3821 3821# 3830 3832 3835 3835# 3844 3846 3859 3859# 3868 3870 3873 SEQ 0290
3873# 3882 3884 3887 3887# 3896 3898 3901 3901# 3910 3912 3915 3915# 3924
3926 3929 3929# 3938 3940 3943 3943# 3952 3954 3957 3957# 3966 3968 3972
3972# 3979 3981 3985# 3994 3994# 4003 4005 4008 4008# 4017 4019 4022 4022#
4031 4033 4036 4036# 4045 4047 4050 4050# 4059 4061 4064 4064# 4073 4075
4078 4078# 4087 4089 4092 4092# 4101 4103 4106 4106# 4115 4117 4120 4120#
4129 4131 4134 4134# 4143 4145 4148 4148# 4157 4159 4162 4162# 4171 4173
4176 4176# 4185 4187 4190 4190# 4199 4201 4204 4204# 4213 4215 4218 4218#
4227 4229 4232 4232# 4241 4243 4255 4255# 4264 4266 4269 4269# 4278 4280
4283 4283# 4292 4294 4297 4297# 4306 4308 4311 4311# 4320 4322 4325 4325#
4334 4336 4339 4339# 4348 4350 4353 4353# 4362 4364 4367 4367# 4376 4378
4381 4381# 4390 4392 4395 4395# 4404 4406 4409 4409# 4418 4420 4423 4423#
4432 4434 4437 4437# 4446 4448 4451 4451# 4460 4462 4465 4465# 4474 4476
4479 4479# 4488 4490 4493 4493# 4502 4504 4516 4516# 4525 4527 4530 4530#
4539 4541 4544 4544# 4553 4555 4558 4558# 4567 4569 4572 4572# 4581 4583
4586 4586# 4595 4597 4600 4600# 4609 4611 4614 4614# 4623 4625 4628 4628#
4637 4639 4642 4642# 4651 4653 4656 4656# 4665 4667 4670 4670# 4679 4681
4684 4684# 4693 4695 4698 4698# 4707 4709 4712 4712# 4721 4723 4726 4726#
4735 4737 4740 4740# 4749 4751 4754 4754# 4763 4765 4777 4777# 4786 4788
4791 4791# 4800 4802 4805 4805# 4814 4816 4819 4819# 4828 4830 4833 4833#
4842 4844 4847 4847# 4856 4858 4861 4861# 4870 4872 4875 4875# 4884 4886
4890 4890# 4897 4899 4903# 4915 4915# 4926 4928 4931 4931# 4942 4944 4947
4947# 4958 4960 4963 4963# 4974 4976 4979 4979# 4990 4992 4995 4995# 5006
5008 5011 5011# 5022 5024 5027 5027# 5038 5040 5043 5043# 5054 5056 5059
5059# 5070 5072 5075 5075# 5086 5088 5091 5091# 5102 5104 5107 5107# 5118
5120 5123 5123# 5134 5136 5139 5139# 5150 5152 5155 5155# 5166 5168 5171
5171# 5182 5184 5187 5187# 5198 5200 5215 5215# 5226 5228 5231 5231# 5242
5244 5247 5247# 5258 5260 5263 5263# 5274 5276 5279 5279# 5290 5292 5295
5295# 5306 5308 5311 5311# 5322 5324 5327 5327# 5338 5340 5343 5343# 5354
5356 5359 5359# 5370 5372 5375 5375# 5386 5388 5391 5391# 5402 5404 5407
5407# 5418 5420 5423 5423# 5434 5436 5439 5439# 5450 5452 5455 5455# 5466
5468 5471 5471# 5482 5484 5487 5487# 5498 5500 5515 5515# 5526 5528 5531
5531# 5542 5544 5547 5547# 5558 5560 5563 5563# 5574 5576 5579 5579# 5590
5592 5595 5595# 5606 5608 5611 5611# 5622 5624 5627 5627# 5638 5640 5643
5643# 5654 5656 5659 5659# 5670 5672 5675 5675# 5686 5688 5691 5691# 5702
5704 5707 5707# 5718 5720 5723 5723# 5734 5736 5739 5739# 5750 5752 5755
5755# 5766 5768 5771 5771# 5782 5784 5787 5787# 5798 5800 5815 5815# 5826
5828 5831 5831# 5842 5844 5847 5847# 5858 5860 5863 5863# 5874 5876 5879
5879# 5890 5892 5895 5895# 5906 5908 5911 5911# 5922 5924 5927 5927# 5938
5940 5943 5943# 5954 5956 5961# 5973 5973# 5984 5986 5989 5989# 6000 6002
6005 6005# 6016 6018 6021 6021# 6032 6034 6037 6037# 6048 6050 6053 6053#
6064 6066 6069 6069# 6080 6082 6085 6085# 6096 6098 6101 6101# 6112 6114
6117 6117# 6128 6130 6133 6133# 6144 6146 6149 6149# 6160 6162 6165 6165#
6176 6178 6181 6181# 6192 6194 6197 6197# 6208 6210 6213 6213# 6224 6226
6229 6229# 6240 6242 6245 6245# 6256 6258 6273 6273# 6284 6286 6289 6289#
6300 6302 6305 6305# 6316 6318 6321 6321# 6332 6334 6337 6337# 6348 6350
6353 6353# 6364 6366 6369 6369# 6380 6382 6385 6385# 6396 6398 6401 6401#
6412 6414 6417 6417# 6428 6430 6433 6433# 6444 6446 6449 6449# 6460 6462
6465 6465# 6476 6478 6481 6481# 6492 6494 6497 6497# 6508 6510 6513 6513#
6524 6526 6529 6529# 6540 6542 6545 6545# 6556 6558 6573 6573# 6584 6586
6589 6589# 6600 6602 6605 6605# 6616 6618 6621 6621# 6632 6634 6637 6637#
6648 6650 6653 6653# 6664 6666 6669 6669# 6680 6682 6685 6685# 6696 6698
6701 6701# 6712 6714 6717 6717# 6728 6730 6733 6733# 6744 6746 6749 6749#
6760 6762 6765 6765# 6776 6778 6781 6781# 6792 6794 6797 6797# 6808 6810 SEQ 0291
6813 6813# 6824 6826 6829 6829# 6840 6842 6845 6845# 6856 6858 6873 6873#
6884 6886 6889 6889# 6900 6902 6905 6905# 6916 6918 6921 6921# 6932 6934
6937 6937# 6948 6950 6953 6953# 6964 6966 6969 6969# 6980 6982 6985 6985#
6996 6998 7001 7001# 7012 7014 7019# 7030 7030# 7040 7042 7045 7045# 7055
7057 7060 7060# 7070 7072 7075 7075# 7085 7087 7090 7090# 7100 7102 7105
7105# 7115 7117 7120 7120# 7130 7132 7135 7135# 7145 7147 7150 7150# 7160
7162 7165 7165# 7175 7177 7180 7180# 7190 7192 7195 7195# 7205 7207 7210
7210# 7220 7222 7225 7225# 7235 7237 7240 7240# 7250 7252 7255 7255# 7265
7267 7270 7270# 7280 7282 7285 7285# 7295 7297 7304 7304# 7311 7313 7323
7323# 7332 7334 7337 7337# 7346 7348 7351 7351# 7360 7362 7365 7365# 7374
7376 7379 7379# 7388 7390 7393 7393# 7402 7404 7407 7407# 7416 7418 7421
7421# 7430 7432 7435 7435# 7444 7446 7449 7449# 7458 7460 7463 7463# 7472
7474 7477 7477# 7486 7488 7491 7491# 7500 7502 7505 7505# 7514 7516 7519
7519# 7528 7530 7533 7533# 7542 7544 7551 7551# 7558 7560 7563 7563# 7571
7573 7583 7583# 7592 7594 7597 7597# 7606 7608 7611 7611# 7620 7622 7625
7625# 7634 7636 7639 7639# 7648 7650 7653 7653# 7662 7664 7667 7667# 7676
7678 7681 7681# 7690 7692 7695 7695# 7704 7706 7709 7709# 7718 7720 7723
7723# 7732 7734 7737 7737# 7746 7748 7751 7751# 7760 7762 7765 7765# 7774
7776 7779 7779# 7788 7790 7793 7793# 7802 7804 7807 7807# 7816 7818 7823
7823# 7832 7834 7843 7843# 7852 7854 7857 7857# 7866 7868 7871 7871# 7880
7882 7885 7885# 7894 7896 7899 7899# 7908 7910 7913 7913# 7922 7924 7927
7927# 7936 7938 7941 7941# 7950 7952 7957# 7968 7968# 7978 7980 7983 7983#
7993 7995 7998 7998# 8008 8010 8013 8013# 8023 8025 8028 8028# 8038 8040
8043 8043# 8053 8055 8058 8058# 8068 8070 8073 8073# 8083 8085 8088 8088#
8098 8100 8103 8103# 8113 8115 8118 8118# 8128 8130 8133 8133# 8143 8145
8148 8148# 8158 8160 8163 8163# 8173 8175 8178 8178# 8188 8190 8193 8193#
8203 8205 8208 8208# 8218 8220 8223 8223# 8233 8235 8242 8242# 8249 8251
8261 8261# 8270 8272 8275 8275# 8284 8286 8289 8289# 8298 8300 8303 8303#
8312 8314 8317 8317# 8326 8328 8331 8331# 8340 8342 8345 8345# 8354 8356
8359 8359# 8368 8370 8373 8373# 8382 8384 8387 8387# 8396 8398 8401 8401#
8410 8412 8415 8415# 8424 8426 8429 8429# 8438 8440 8443 8443# 8452 8454
8457 8457# 8466 8468 8471 8471# 8480 8482 8489 8489# 8496 8498 8503 8503#
8510 8512 8520 8520# 8529 8531 8534 8534# 8543 8545 8548 8548# 8557 8559
8562 8562# 8571 8573 8576 8576# 8585 8587 8590 8590# 8599 8601 8604 8604#
8613 8615 8618 8618# 8627 8629 8632 8632# 8641 8643 8646 8646# 8655 8657
8660 8660# 8669 8671 8674 8674# 8683 8685 8688 8688# 8697 8699 8702 8702#
8711 8713 8716 8716# 8725 8727 8730 8730# 8739 8741 8744 8744# 8753 8755
8759 8759# 8768 8770 8778 8778# 8787 8789 8792 8792# 8801 8803 8806 8806#
8815 8817 8820 8820# 8829 8831 8834 8834# 8843 8845 8848 8848# 8857 8859
8862 8862# 8871 8873 8876 8876# 8885 8887 8893# 8905 8905# 8916 8918 8921
8921# 8932 8934 8937 8937# 8948 8950 8953 8953# 8964 8966 8969 8969# 8980
8982 8985 8985# 8996 8998 9001 9001# 9012 9014 9017 9017# 9028 9030 9033
9033# 9044 9046 9049 9049# 9060 9062 9065 9065# 9076 9078 9081 9081# 9092
9094 9097 9097# 9108 9110 9113 9113# 9124 9126 9129 9129# 9140 9142 9145
9145# 9156 9158 9161 9161# 9172 9174 9177 9177# 9188 9190 9194 9194# 9203
9205 9214 9214# 9223 9225 9228 9228# 9237 9239 9242 9242# 9251 9253 9256
9256# 9265 9267 9270 9270# 9279 9281 9284 9284# 9293 9295 9298 9298# 9307
9309 9312 9312# 9321 9323 9326 9326# 9335 9337 9340 9340# 9349 9351 9354
9354# 9363 9365 9368 9368# 9377 9379 9382 9382# 9391 9393 9396 9396# 9405
9407 9410 9410# 9419 9421 9424 9424# 9433 9435 9439 9439# 9448 9450 9453
9453# 9462 9464 9473 9473# 9482 9484 9487 9487# 9496 9498 9501 9501# 9510
9512 9515 9515# 9524 9526 9529 9529# 9538 9540 9543 9543# 9552 9554 9557
9557# 9566 9568 9571 9571# 9580 9582 9585 9585# 9594 9596 9599 9599# 9608 SEQ 0292
9610 9613 9613# 9622 9624 9627 9627# 9636 9638 9641 9641# 9650 9652 9655
9655# 9664 9666 9669 9669# 9678 9680 9683 9683# 9692 9694 9697 9697# 9706
9708 9712 9712# 9721 9723 9732 9732# 9741 9743 9746 9746# 9755 9757 9760
9760# 9769 9771 9774 9774# 9783 9785 9788 9788# 9797 9799 9802 9802# 9811
9813 9816 9816# 9825 9827 9830 9830# 9839 9841 9846# 9858 9858# 9869 9871
9874 9874# 9885 9887 9890 9890# 9901 9903 9906 9906# 9917 9919 9922 9922#
9933 9935 9938 9938# 9949 9951 9954 9954# 9965 9967 9970 9970# 9981 9983
9986 9986# 9997 9999 10002 10002# 10013 10015 10018 10018# 10029 10031 10034 10034#
10045 10047 10050 10050# 10061 10063 10066 10066# 10077 10079 10082 10082# 10093 10095
10098 10098# 10109 10111 10114 10114# 10125 10127 10130 10130# 10141 10143 10147 10147#
10156 10158 10167 10167# 10176 10178 10181 10181# 10190 10192 10195 10195# 10204 10206
10209 10209# 10218 10220 10223 10223# 10232 10234 10237 10237# 10246 10248 10251 10251#
10260 10262 10265 10265# 10274 10276 10279 10279# 10288 10290 10293 10293# 10302 10304
10307 10307# 10316 10318 10321 10321# 10330 10332 10335 10335# 10344 10346 10349 10349#
10358 10360 10363 10363# 10372 10374 10377 10377# 10386 10388 10392 10392# 10401 10403
10406 10406# 10415 10417 10426 10426# 10435 10437 10440 10440# 10449 10451 10454 10454#
10463 10465 10468 10468# 10477 10479 10482 10482# 10491 10493 10496 10496# 10505 10507
10510 10510# 10519 10521 10524 10524# 10533 10535 10538 10538# 10547 10549 10552 10552#
10561 10563 10566 10566# 10575 10577 10580 10580# 10589 10591 10594 10594# 10603 10605
10608 10608# 10617 10619 10622 10622# 10631 10633 10636 10636# 10645 10647 10650 10650#
10659 10661 10665 10665# 10674 10676 10685 10685# 10694 10696 10699 10699# 10708 10710
10713 10713# 10722 10724 10727 10727# 10736 10738 10741 10741# 10750 10752 10755 10755#
10764 10766 10769 10769# 10778 10780 10783 10783# 10792 10794 10800# 10811 10811# 10821
10823 10826 10826# 10836 10838 10841 10841# 10851 10853 10856 10856# 10866 10868 10871
10871# 10881 10883 10886 10886# 10896 10898 10901 10901# 10911 10913 10916 10916# 10926
10928 10931 10931# 10941 10943 10946 10946# 10956 10958 10961 10961# 10971 10973 10976
10976# 10986 10988 10991 10991# 11001 11003 11006 11006# 11016 11018 11021 11021# 11031
11033 11036 11036# 11046 11048 11051 11051# 11061 11063 11066 11066# 11076 11078 11091
11091# 11101 11103 11106 11106# 11116 11118 11121 11121# 11131 11133 11136 11136# 11146
11148 11151 11151# 11161 11163 11166 11166# 11176 11178 11181 11181# 11191 11193 11196
11196# 11206 11208 11211 11211# 11221 11223 11226 11226# 11236 11238 11241 11241# 11251
11253 11256 11256# 11266 11268 11271 11271# 11281 11283 11286 11286# 11296 11298 11301
11301# 11311 11313 11316 11316# 11326 11328 11331 11331# 11341 11343 11346 11346# 11354
11356 11368 11368# 11378 11380 11383 11383# 11393 11395 11398 11398# 11408 11410 11413
11413# 11423 11425 11428 11428# 11438 11440 11443 11443# 11453 11455 11458 11458# 11468
11470 11473 11473# 11483 11485 11488 11488# 11498 11500 11503 11503# 11513 11515 11518
11518# 11528 11530 11533 11533# 11543 11545 11548 11548# 11558 11560 11563 11563# 11573
11575 11578 11578# 11588 11590 11593 11593# 11603 11605 11608 11608# 11618 11620 11623
11623# 11633 11635 11648 11648# 11658 11660 11663 11663# 11673 11675 11678 11678# 11688
11690 11693 11693# 11703 11705 11708 11708# 11718 11720 11723 11723# 11733 11735 11738
11738# 11748 11750 11753 11753# 11763 11765 11768 11768# 11778 11780 11786# 11796 11796#
11805 11807 11810 11810# 11819 11821 11824 11824# 11833 11835 11838 11838# 11847 11849
11852 11852# 11861 11863 11866 11866# 11875 11877 11880 11880# 11889 11891 11894 11894#
11903 11905 11908 11908# 11917 11919 11922 11922# 11931 11933 11936 11936# 11945 11947
11950 11950# 11959 11961 11964 11964# 11973 11975 11978 11978# 11987 11989 11992 11992#
12001 12003 12006 12006# 12015 12017 12020 12020# 12029 12031 12034 12034# 12043 12045
12057 12057# 12066 12068 12071 12071# 12080 12082 12085 12085# 12094 12096 12099 12099#
12108 12110 12113 12113# 12122 12124 12127 12127# 12136 12138 12141 12141# 12150 12152
12155 12155# 12164 12166 12169 12169# 12178 12180 12183 12183# 12192 12194 12197 12197#
12206 12208 12211 12211# 12220 12222 12225 12225# 12234 12236 12239 12239# 12248 12250
12253 12253# 12262 12264 12267 12267# 12276 12278 12281 12281# 12290 12292 12295 12295#
12304 12306 12318 12318# 12327 12329 12332 12332# 12341 12343 12346 12346# 12355 12357
12360 12360# 12369 12371 12374 12374# 12383 12385 12388 12388# 12397 12399 12402 12402# SEQ 0293
12411 12413 12416 12416# 12425 12427 12430 12430# 12439 12441 12444 12444# 12453 12455
12458 12458# 12467 12469 12472 12472# 12481 12483 12486 12486# 12495 12497 12500 12500#
12509 12511 12514 12514# 12523 12525 12528 12528# 12537 12539 12542 12542# 12551 12553
12556 12556# 12565 12567 12579 12579# 12588 12590 12593 12593# 12602 12604 12607 12607#
12616 12618 12621 12621# 12630 12632 12635 12635# 12644 12646 12649 12649# 12658 12660
12663 12663# 12672 12674 12677 12677# 12686 12688 12692 12692# 12700 12702
TAB 1000#
TESTPC 875# 1167
TICKS 878#
TLET 1153 12793 12816#
TN0 803#
TN1 803#
TOTALS 579#
TRP3TP 803#
TTNBRF 1058#
TTYFIL 974#
TTYSPD 975#
TXTINH 590# 12777
UBAVEC 803#
USER 865#
USERF 803#
USRASB 57# 855
USRCRF 984#
USRLFF 983#
UUODIS 937#
UUOEXT 893# 12864
UUORTN 894#
UUOSKP 891#
XX 1185# 1195 1195# 1200 1209 1209# 1214 1223 1223# 1228 1237 1237# 1242 1251
1251# 1256 1265 1265# 1270 1279 1279# 1284 1293 1293# 1298 1307 1307# 1312
1321# 1330 1330# 1335 1344 1344# 1349 1358 1358# 1363 1372 1372# 1377 1386
1386# 1391 1400 1400# 1405 1414 1414# 1419 1428 1428# 1433 1442 1442# 1447
1456 1456# 1461 1470 1470# 1475 1484 1484# 1489 1498 1498# 1503 1512 1512#
1517 1526 1526# 1531 1540 1540# 1545 1554 1554# 1559 1568 1568# 1573 1582#
1589 1603 1603# 1609 1617 1617# 1623 1631 1631# 1637 1645 1645# 1651 1659
1659# 1665 1673 1673# 1679 1687 1687# 1693 1701 1701# 1707 1715 1715# 1721
1729 1729# 1735 1743 1743# 1749 1757 1757# 1763 1771 1771# 1777 1785 1785#
1791 1799 1799# 1805 1813 1813# 1819 1827 1827# 1833 1841# 1850 1850# 1856
1864 1864# 1870 1878 1878# 1884 1892 1892# 1898 1906 1906# 1912 1920 1920#
1926 1934 1934# 1940 1948 1948# 1954 1962 1962# 1968 1976 1976# 1982 1990
1990# 1996 2004 2004# 2010 2018 2018# 2024 2032 2032# 2038 2046 2046# 2052
2060 2060# 2066 2074 2074# 2080 2088 2088# 2094 2103# 2113 2113# 2116 2127
2127# 2130 2141 2141# 2144 2155 2155# 2158 2169 2169# 2172 2183 2183# 2186
2197 2197# 2200 2211 2211# 2214 2225 2225# 2228 2239# 2248 2248# 2251 2262
2262# 2265 2276 2276# 2279 2290 2290# 2293 2304 2304# 2307 2318 2318# 2321
2332 2332# 2335 2346 2346# 2349 2360 2360# 2363 2374 2374# 2377 2388 2388#
2391 2402 2402# 2405 2416 2416# 2419 2430 2430# 2433 2444 2444# 2447 2458
2458# 2461 2472 2472# 2475 2486 2486# 2489 2500# 2505 2522 2522# 2526 2537
2537# 2541 2552 2552# 2556 2567 2567# 2571 2582 2582# 2586 2597 2597# 2601
2612 2612# 2616 2627 2627# 2631 2642 2642# 2646 2657 2657# 2661 2672 2672#
2676 2687 2687# 2691 2702 2702# 2706 2717 2717# 2721 2732 2732# 2736 2747
2747# 2751 2762 2762# 2766 2777# 2786 2786# 2790 2800 2800# 2804 2814 2814#
2818 2828 2828# 2832 2842 2842# 2846 2856 2856# 2860 2870 2870# 2874 2884 SEQ 0294
2884# 2888 2898 2898# 2902 2912 2912# 2916 2926 2926# 2930 2940 2940# 2944
2954 2954# 2958 2968 2968# 2972 2982 2982# 2986 2996 2996# 3000 3010 3010#
3014 3024 3024# 3028 4904# 4916 4916# 4917 4917# 4922 4932 4932# 4933 4938
4948 4948# 4949 4954 4964 4964# 4965 4970 4980 4980# 4981 4986 4996 4996#
4997 5002 5012 5012# 5013 5018 5028 5028# 5029 5034 5044 5044# 5045 5050
5060 5060# 5061 5066 5076 5076# 5077 5082 5092 5092# 5093 5098 5108 5108#
5109 5114 5124 5124# 5125 5130 5140 5140# 5141 5146 5156 5156# 5157 5162
5172 5172# 5173 5178 5188 5188# 5189 5194 5204# 5216 5216# 5217 5217# 5222
5232 5232# 5233 5238 5248 5248# 5249 5254 5264 5264# 5265 5270 5280 5280#
5281 5286 5296 5296# 5297 5302 5312 5312# 5313 5318 5328 5328# 5329 5334
5344 5344# 5345 5350 5360 5360# 5361 5366 5376 5376# 5377 5382 5392 5392#
5393 5398 5408 5408# 5409 5414 5424 5424# 5425 5430 5440 5440# 5441 5446
5456 5456# 5457 5462 5472 5472# 5473 5478 5488 5488# 5489 5494 5504# 5516
5516# 5517 5517# 5521 5532 5532# 5533 5537 5548 5548# 5549 5553 5564 5564#
5565 5569 5580 5580# 5581 5585 5596 5596# 5597 5601 5612 5612# 5613 5617
5628 5628# 5629 5633 5644 5644# 5645 5649 5660 5660# 5661 5665 5676 5676#
5677 5681 5692 5692# 5693 5697 5708 5708# 5709 5713 5724 5724# 5725 5729
5740 5740# 5741 5745 5756 5756# 5757 5761 5772 5772# 5773 5777 5788 5788#
5789 5793 5804# 5816 5816# 5817 5817# 5821 5832 5832# 5833 5837 5848 5848#
5849 5853 5864 5864# 5865 5869 5880 5880# 5881 5885 5896 5896# 5897 5901
5912 5912# 5913 5917 5928 5928# 5929 5933 5944 5944# 5945 5949 5962# 5974
5974# 5975 5975# 5980 5990 5990# 5991 5996 6006 6006# 6007 6012 6022 6022#
6023 6028 6038 6038# 6039 6044 6054 6054# 6055 6060 6070 6070# 6071 6076
6086 6086# 6087 6092 6102 6102# 6103 6108 6118 6118# 6119 6124 6134 6134#
6135 6140 6150 6150# 6151 6156 6166 6166# 6167 6172 6182 6182# 6183 6188
6198 6198# 6199 6204 6214 6214# 6215 6220 6230 6230# 6231 6236 6246 6246#
6247 6252 6262# 6274 6274# 6275 6275# 6280 6290 6290# 6291 6296 6306 6306#
6307 6312 6322 6322# 6323 6328 6338 6338# 6339 6344 6354 6354# 6355 6360
6370 6370# 6371 6376 6386 6386# 6387 6392 6402 6402# 6403 6408 6418 6418#
6419 6424 6434 6434# 6435 6440 6450 6450# 6451 6456 6466 6466# 6467 6472
6482 6482# 6483 6488 6498 6498# 6499 6504 6514 6514# 6515 6520 6530 6530#
6531 6536 6546 6546# 6547 6552 6562# 6574 6574# 6575 6575# 6579 6590 6590#
6591 6595 6606 6606# 6607 6611 6622 6622# 6623 6627 6638 6638# 6639 6643
6654 6654# 6655 6659 6670 6670# 6671 6675 6686 6686# 6687 6691 6702 6702#
6703 6707 6718 6718# 6719 6723 6734 6734# 6735 6739 6750 6750# 6751 6755
6766 6766# 6767 6771 6782 6782# 6783 6787 6798 6798# 6799 6803 6814 6814#
6815 6819 6830 6830# 6831 6835 6846 6846# 6847 6851 6862# 6874 6874# 6875
6875# 6879 6890 6890# 6891 6895 6906 6906# 6907 6911 6922 6922# 6923 6927
6938 6938# 6939 6943 6954 6954# 6955 6959 6970 6970# 6971 6975 6986 6986#
6987 6991 7002 7002# 7003 7007 7021# 7031 7032 7032# 7033 7033# 7038 7046
7047 7047# 7048 7053 7061 7062 7062# 7063 7068 7076 7077 7077# 7078 7083
7091 7092 7092# 7093 7098 7106 7107 7107# 7108 7113 7121 7122 7122# 7123
7128 7136 7137 7137# 7138 7143 7151 7152 7152# 7153 7158 7166 7167 7167#
7168 7173 7181 7182 7182# 7183 7188 7196 7197 7197# 7198 7203 7211 7212
7212# 7213 7218 7226 7227 7227# 7228 7233 7241 7242 7242# 7243 7248 7256
7257 7257# 7258 7263 7271 7272 7272# 7273 7278 7286 7287 7287# 7288 7293
7301 7302# 7309 7324 7325 7325# 7330 7338 7339 7339# 7344 7352 7353 7353#
7358 7366 7367 7367# 7372 7380 7381 7381# 7386 7394 7395 7395# 7400 7408
7409 7409# 7414 7422 7423 7423# 7428 7436 7437 7437# 7442 7450 7451 7451#
7456 7464 7465 7465# 7470 7478 7479 7479# 7484 7492 7493 7493# 7498 7506
7507 7507# 7512 7520 7521 7521# 7526 7534 7535 7535# 7540 7548 7549 7549#
7556 7564# 7568 7584 7585 7585# 7589 7598 7599 7599# 7603 7612 7613 7613#
7617 7626 7627 7627# 7631 7640 7641 7641# 7645 7654 7655 7655# 7659 7668 SEQ 0295
7669 7669# 7673 7682 7683 7683# 7687 7696 7697 7697# 7701 7710 7711 7711#
7715 7724 7725 7725# 7729 7738 7739 7739# 7743 7752 7753 7753# 7757 7766
7767 7767# 7771 7780 7781 7781# 7785 7794 7795 7795# 7799 7808 7809 7809#
7813 7824 7825# 7829 7844 7845 7845# 7849 7858 7859 7859# 7863 7872 7873
7873# 7877 7886 7887 7887# 7891 7900 7901 7901# 7905 7914 7915 7915# 7919
7928 7929 7929# 7933 7942 7943 7943# 7947 7959# 7969 7970 7970# 7971 7971#
7974 7984 7985 7985# 7986 7989 7999 8000 8000# 8001 8004 8014 8015 8015#
8016 8019 8029 8030 8030# 8031 8034 8044 8045 8045# 8046 8049 8059 8060
8060# 8061 8064 8074 8075 8075# 8076 8079 8089 8090 8090# 8091 8094 8104
8105 8105# 8106 8109 8119 8120 8120# 8121 8124 8134 8135 8135# 8136 8139
8149 8150 8150# 8151 8154 8164 8165 8165# 8166 8169 8179 8180 8180# 8181
8184 8194 8195 8195# 8196 8199 8209 8210 8210# 8211 8214 8224 8225 8225#
8226 8229 8239 8240# 8245 8262 8263 8263# 8266 8276 8277 8277# 8280 8290
8291 8291# 8294 8304 8305 8305# 8308 8318 8319 8319# 8322 8332 8333 8333#
8336 8346 8347 8347# 8350 8360 8361 8361# 8364 8374 8375 8375# 8378 8388
8389 8389# 8392 8402 8403 8403# 8406 8416 8417 8417# 8420 8430 8431 8431#
8434 8444 8445 8445# 8448 8458 8459 8459# 8462 8472 8473 8473# 8476 8487
8488 8488# 8492 8502# 8505 8521 8522 8522# 8524 8535 8536 8536# 8538 8549
8550 8550# 8552 8563 8564 8564# 8566 8577 8578 8578# 8580 8591 8592 8592#
8594 8605 8606 8606# 8608 8619 8620 8620# 8622 8633 8634 8634# 8636 8647
8648 8648# 8650 8661 8662 8662# 8664 8675 8676 8676# 8678 8689 8690 8690#
8692 8703 8704 8704# 8706 8717 8718 8718# 8720 8731 8732 8732# 8734 8745
8746 8746# 8748 8760 8761# 8763 8779 8780 8780# 8782 8793 8794 8794# 8796
8807 8808 8808# 8810 8821 8822 8822# 8824 8835 8836 8836# 8838 8849 8850
8850# 8852 8863 8864 8864# 8866 8877 8878 8878# 8880 8895# 8906 8908 8908#
8909 8909# 8914 8922 8924 8924# 8925 8930 8938 8940 8940# 8941 8946 8954
8956 8956# 8957 8962 8970 8972 8972# 8973 8978 8986 8988 8988# 8989 8994
9002 9004 9004# 9005 9010 9018 9020 9020# 9021 9026 9034 9036 9036# 9037
9042 9050 9052 9052# 9053 9058 9066 9068 9068# 9069 9074 9082 9084 9084#
9085 9090 9098 9100 9100# 9101 9106 9114 9116 9116# 9117 9122 9130 9132
9132# 9133 9138 9146 9148 9148# 9149 9154 9162 9164 9164# 9165 9170 9178
9180 9180# 9181 9186 9195 9196# 9201 9215 9216 9216# 9221 9229 9230 9230#
9235 9243 9244 9244# 9249 9257 9258 9258# 9263 9271 9272 9272# 9277 9285
9286 9286# 9291 9299 9300 9300# 9305 9313 9314 9314# 9319 9327 9328 9328#
9333 9341 9342 9342# 9347 9355 9356 9356# 9361 9369 9370 9370# 9375 9383
9384 9384# 9389 9397 9398 9398# 9403 9411 9412 9412# 9417 9425 9426 9426#
9431 9440 9440# 9441 9446 9454 9455# 9459 9474 9475 9475# 9479 9488 9489
9489# 9493 9502 9503 9503# 9507 9516 9517 9517# 9521 9530 9531 9531# 9535
9544 9545 9545# 9549 9558 9559 9559# 9563 9572 9573 9573# 9577 9586 9587
9587# 9591 9600 9601 9601# 9605 9614 9615 9615# 9619 9628 9629 9629# 9633
9642 9643 9643# 9647 9656 9657 9657# 9661 9670 9671 9671# 9675 9684 9685
9685# 9689 9698 9699 9699# 9703 9713 9714# 9718 9733 9734 9734# 9738 9747
9748 9748# 9752 9761 9762 9762# 9766 9775 9776 9776# 9780 9789 9790 9790#
9794 9803 9804 9804# 9808 9817 9818 9818# 9822 9831 9832 9832# 9836 9848#
9859 9861 9861# 9862 9862# 9865 9875 9877 9877# 9878 9881 9891 9893 9893#
9894 9897 9907 9909 9909# 9910 9913 9923 9925 9925# 9926 9929 9939 9941
9941# 9942 9945 9955 9957 9957# 9958 9961 9971 9973 9973# 9974 9977 9987
9989 9989# 9990 9993 10003 10005 10005# 10006 10009 10019 10021 10021# 10022 10025
10035 10037 10037# 10038 10041 10051 10053 10053# 10054 10057 10067 10069 10069# 10070
10073 10083 10085 10085# 10086 10089 10099 10101 10101# 10102 10105 10115 10117 10117#
10118 10121 10131 10133 10133# 10134 10137 10148 10149# 10152 10168 10169 10169# 10172
10182 10183 10183# 10186 10196 10197 10197# 10200 10210 10211 10211# 10214 10224 10225
10225# 10228 10238 10239 10239# 10242 10252 10253 10253# 10256 10266 10267 10267# 10270 SEQ 0296
10280 10281 10281# 10284 10294 10295 10295# 10298 10308 10309 10309# 10312 10322 10323
10323# 10326 10336 10337 10337# 10340 10350 10351 10351# 10354 10364 10365 10365# 10368
10378 10379 10379# 10382 10393 10393# 10394 10397 10407 10408# 10410 10427 10428 10428#
10430 10441 10442 10442# 10444 10455 10456 10456# 10458 10469 10470 10470# 10472 10483
10484 10484# 10486 10497 10498 10498# 10500 10511 10512 10512# 10514 10525 10526 10526#
10528 10539 10540 10540# 10542 10553 10554 10554# 10556 10567 10568 10568# 10570 10581
10582 10582# 10584 10595 10596 10596# 10598 10609 10610 10610# 10612 10623 10624 10624#
10626 10637 10638 10638# 10640 10651 10652 10652# 10654 10666 10667# 10669 10686 10687
10687# 10689 10700 10701 10701# 10703 10714 10715 10715# 10717 10728 10729 10729# 10731
10742 10743 10743# 10745 10756 10757 10757# 10759 10770 10771 10771# 10773 10784 10785
10785# 10787 10801# 10812 10812# 10813 10813# 10817 10819 10827 10827# 10828 10832 10834
10842 10842# 10843 10847 10849 10857 10857# 10858 10862 10864 10872 10872# 10873 10877
10879 10887 10887# 10888 10892 10894 10902 10902# 10903 10907 10909 10917 10917# 10918
10922 10924 10932 10932# 10933 10937 10939 10947 10947# 10948 10952 10954 10962 10962#
10963 10967 10969 10977 10977# 10978 10982 10984 10992 10992# 10993 10997 10999 11007
11007# 11008 11012 11014 11022 11022# 11023 11027 11029 11037 11037# 11038 11042 11044
11052 11052# 11053 11057 11059 11067 11067# 11068 11072 11074 11082# 11092 11092# 11093
11093# 11097 11099 11107 11107# 11108 11112 11114 11122 11122# 11123 11127 11129 11137
11137# 11138 11142 11144 11152 11152# 11153 11157 11159 11167 11167# 11168 11172 11174
11182 11182# 11183 11187 11189 11197 11197# 11198 11202 11204 11212 11212# 11213 11217
11219 11227 11227# 11228 11232 11234 11242 11242# 11243 11247 11249 11257 11257# 11258
11262 11264 11272 11272# 11273 11277 11279 11287 11287# 11288 11292 11294 11302 11302#
11303 11307 11309 11317 11317# 11318 11322 11324 11332 11332# 11333 11337 11339 11347
11347# 11350 11352 11359# 11369 11369# 11370 11370# 11373 11375 11384 11384# 11385 11388
11390 11399 11399# 11400 11403 11405 11414 11414# 11415 11418 11420 11429 11429# 11430
11433 11435 11444 11444# 11445 11448 11450 11459 11459# 11460 11463 11465 11474 11474#
11475 11478 11480 11489 11489# 11490 11493 11495 11504 11504# 11505 11508 11510 11519
11519# 11520 11523 11525 11534 11534# 11535 11538 11540 11549 11549# 11550 11553 11555
11564 11564# 11565 11568 11570 11579 11579# 11580 11583 11585 11594 11594# 11595 11598
11600 11609 11609# 11610 11613 11615 11624 11624# 11625 11628 11630 11639# 11649 11649#
11650 11650# 11653 11655 11664 11664# 11665 11668 11670 11679 11679# 11680 11683 11685
11694 11694# 11695 11698 11700 11709 11709# 11710 11713 11715 11724 11724# 11725 11728
11730 11739 11739# 11740 11743 11745 11754 11754# 11755 11758 11760 11769 11769# 11770
11773 11775 11788# 11797 11797# 11798 11798# 11801 11803 11806 11811 11811# 11812 11815
11817 11820 11825 11825# 11826 11829 11831 11834 11839 11839# 11840 11843 11845 11848
11853 11853# 11854 11857 11859 11862 11867 11867# 11868 11871 11873 11876 11881 11881#
11882 11885 11887 11890 11895 11895# 11896 11899 11901 11904 11909 11909# 11910 11913
11915 11918 11923 11923# 11924 11927 11929 11932 11937 11937# 11938 11941 11943 11946
11951 11951# 11952 11955 11957 11960 11965 11965# 11966 11969 11971 11974 11979 11979#
11980 11983 11985 11988 11993 11993# 11994 11997 11999 12002 12007 12007# 12008 12011
12013 12016 12021 12021# 12022 12025 12027 12030 12035 12035# 12036 12039 12041 12044
12049# 12058 12058# 12059 12059# 12062 12064 12067 12072 12072# 12073 12076 12078 12081
12086 12086# 12087 12090 12092 12095 12100 12100# 12101 12104 12106 12109 12114 12114#
12115 12118 12120 12123 12128 12128# 12129 12132 12134 12137 12142 12142# 12143 12146
12148 12151 12156 12156# 12157 12160 12162 12165 12170 12170# 12171 12174 12176 12179
12184 12184# 12185 12188 12190 12193 12198 12198# 12199 12202 12204 12207 12212 12212#
12213 12216 12218 12221 12226 12226# 12227 12230 12232 12235 12240 12240# 12241 12244
12246 12249 12254 12254# 12255 12258 12260 12263 12268 12268# 12269 12272 12274 12277
12282 12282# 12283 12286 12288 12291 12296 12296# 12297 12300 12302 12305 12310# 12319
12319# 12320 12320# 12322 12324 12326 12333 12333# 12334 12336 12338 12340 12347 12347#
12348 12350 12352 12354 12361 12361# 12362 12364 12366 12368 12375 12375# 12376 12378
12380 12382 12389 12389# 12390 12392 12394 12396 12403 12403# 12404 12406 12408 12410
12417 12417# 12418 12420 12422 12424 12431 12431# 12432 12434 12436 12438 12445 12445# SEQ 0297
12446 12448 12450 12452 12459 12459# 12460 12462 12464 12466 12473 12473# 12474 12476
12478 12480 12487 12487# 12488 12490 12492 12494 12501 12501# 12502 12504 12506 12508
12515 12515# 12516 12518 12520 12522 12529 12529# 12530 12532 12534 12536 12543 12543#
12544 12546 12548 12550 12557 12557# 12558 12560 12562 12564 12580 12580# 12581 12583
12585 12587 12594 12594# 12595 12597 12599 12601 12608 12608# 12609 12611 12613 12615
12622 12622# 12623 12625 12627 12629 12636 12636# 12637 12639 12641 12643 12650 12650#
12651 12653 12655 12657 12664 12664# 12665 12667 12669 12671 12678 12678# 12679 12681
12683 12685 12693 12693# 12695 12697 12699
ZZ 1186# 1196 1196# 1202 1210 1210# 1216 1224 1224# 1230 1238 1238# 1244 1252
1252# 1258 1266 1266# 1272 1280 1280# 1286 1294 1294# 1300 1308 1308# 1314
1331 1331# 1337 1345 1345# 1351 1359 1359# 1365 1373 1373# 1379 1387 1387#
1393 1401 1401# 1407 1415 1415# 1421 1429 1429# 1435 1443 1443# 1449 1457
1457# 1463 1471 1471# 1477 1485 1485# 1491 1499 1499# 1505 1513 1513# 1519
1527 1527# 1533 1541 1541# 1547 1555 1555# 1561 1569 1569# 1575 1604 1604#
1610 1618 1618# 1624 1632 1632# 1638 1646 1646# 1652 1660 1660# 1666 1674
1674# 1680 1688 1688# 1694 1702 1702# 1708 1716 1716# 1722 1730 1730# 1736
1744 1744# 1750 1758 1758# 1764 1772 1772# 1778 1786 1786# 1792 1800 1800#
1806 1814 1814# 1820 1828 1828# 1834 1851 1851# 1857 1865 1865# 1871 1879
1879# 1885 1893 1893# 1899 1907 1907# 1913 1921 1921# 1927 1935 1935# 1941
1949 1949# 1955 1963 1963# 1969 1977 1977# 1983 1991 1991# 1997 2005 2005#
2011 2019 2019# 2025 2033 2033# 2039 2047 2047# 2053 2061 2061# 2067 2075
2075# 2081 2089 2089# 2095 2104# 2114 2114# 2120 2128 2128# 2134 2142 2142#
2148 2156 2156# 2162 2170 2170# 2176 2184 2184# 2190 2198 2198# 2204 2212
2212# 2218 2226 2226# 2232 2249 2249# 2255 2263 2263# 2269 2277 2277# 2283
2291 2291# 2297 2305 2305# 2311 2319 2319# 2325 2333 2333# 2339 2347 2347#
2353 2361 2361# 2367 2375 2375# 2381 2389 2389# 2395 2403 2403# 2409 2417
2417# 2423 2431 2431# 2437 2445 2445# 2451 2459 2459# 2465 2473 2473# 2479
2487 2487# 2493 2523 2523# 2529 2538 2538# 2544 2553 2553# 2559 2568 2568#
2574 2583 2583# 2589 2598 2598# 2604 2613 2613# 2619 2628 2628# 2634 2643
2643# 2649 2658 2658# 2664 2673 2673# 2679 2688 2688# 2694 2703 2703# 2709
2718 2718# 2724 2733 2733# 2739 2748 2748# 2754 2763 2763# 2769 2787 2787#
2793 2801 2801# 2807 2815 2815# 2821 2829 2829# 2835 2843 2843# 2849 2857
2857# 2863 2871 2871# 2877 2885 2885# 2891 2899 2899# 2905 2913 2913# 2919
2927 2927# 2933 2941 2941# 2947 2955 2955# 2961 2969 2969# 2975 2983 2983#
2989 2997 2997# 3003 3011 3011# 3017 3025 3025# 3031 3067# 3076 3076# 3077
3077# 3082 3085 3090 3090# 3091 3096 3099 3104 3104# 3105 3110 3113 3118
3118# 3119 3124 3127 3132 3132# 3133 3138 3141 3146 3146# 3147 3152 3155
3160 3160# 3161 3166 3169 3174 3174# 3175 3180 3183 3188 3188# 3189 3194
3197 3202 3202# 3203 3208 3211 3216 3216# 3217 3222 3225 3230 3230# 3231
3236 3239 3244 3244# 3245 3250 3253 3258 3258# 3259 3264 3267 3272 3272#
3273 3278 3281 3286 3286# 3287 3292 3295 3300 3300# 3301 3306 3309 3314
3314# 3315 3320 3323 3328# 3337 3337# 3338 3338# 3343 3346 3351 3351# 3352
3357 3360 3365 3365# 3366 3371 3374 3379 3379# 3380 3385 3388 3393 3393#
3394 3399 3402 3407 3407# 3408 3413 3416 3421 3421# 3422 3427 3430 3435
3435# 3436 3441 3444 3449 3449# 3450 3455 3458 3463 3463# 3464 3469 3472
3477 3477# 3478 3483 3486 3491 3491# 3492 3497 3500 3505 3505# 3506 3511
3514 3519 3519# 3520 3525 3528 3533 3533# 3534 3539 3542 3547 3547# 3548
3553 3556 3561 3561# 3562 3567 3570 3575 3575# 3576 3581 3584 3589# 3598
3598# 3599 3599# 3603 3605 3612 3612# 3613 3617 3619 3626 3626# 3627 3631
3633 3640 3640# 3641 3645 3647 3654 3654# 3655 3659 3661 3668 3668# 3669
3673 3675 3682 3682# 3683 3687 3689 3696 3696# 3697 3701 3703 3710 3710#
3711 3715 3717 3724 3724# 3725 3729 3731 3738 3738# 3739 3743 3745 3752
3752# 3753 3757 3759 3766 3766# 3767 3771 3773 3780 3780# 3781 3785 3787 SEQ 0298
3794 3794# 3795 3799 3801 3808 3808# 3809 3813 3815 3822 3822# 3823 3827
3829 3836 3836# 3837 3841 3843 3850# 3860 3860# 3861 3861# 3865 3867 3874
3874# 3875 3879 3881 3888 3888# 3889 3893 3895 3902 3902# 3903 3907 3909
3916 3916# 3917 3921 3923 3930 3930# 3931 3935 3937 3944 3944# 3945 3949
3951 3958 3958# 3959 3963 3965 3986# 3995 3995# 3996 3996# 3999 4004 4009
4009# 4010 4013 4018 4023 4023# 4024 4027 4032 4037 4037# 4038 4041 4046
4051 4051# 4052 4055 4060 4065 4065# 4066 4069 4074 4079 4079# 4080 4083
4088 4093 4093# 4094 4097 4102 4107 4107# 4108 4111 4116 4121 4121# 4122
4125 4130 4135 4135# 4136 4139 4144 4149 4149# 4150 4153 4158 4163 4163#
4164 4167 4172 4177 4177# 4178 4181 4186 4191 4191# 4192 4195 4200 4205
4205# 4206 4209 4214 4219 4219# 4220 4223 4228 4233 4233# 4234 4237 4242
4247# 4256 4256# 4257 4257# 4260 4265 4270 4270# 4271 4274 4279 4284 4284#
4285 4288 4293 4298 4298# 4299 4302 4307 4312 4312# 4313 4316 4321 4326
4326# 4327 4330 4335 4340 4340# 4341 4344 4349 4354 4354# 4355 4358 4363
4368 4368# 4369 4372 4377 4382 4382# 4383 4386 4391 4396 4396# 4397 4400
4405 4410 4410# 4411 4414 4419 4424 4424# 4425 4428 4433 4438 4438# 4439
4442 4447 4452 4452# 4453 4456 4461 4466 4466# 4467 4470 4475 4480 4480#
4481 4484 4489 4494 4494# 4495 4498 4503 4508# 4517 4517# 4518 4518# 4520
4524 4531 4531# 4532 4534 4538 4545 4545# 4546 4548 4552 4559 4559# 4560
4562 4566 4573 4573# 4574 4576 4580 4587 4587# 4588 4590 4594 4601 4601#
4602 4604 4608 4615 4615# 4616 4618 4622 4629 4629# 4630 4632 4636 4643
4643# 4644 4646 4650 4657 4657# 4658 4660 4664 4671 4671# 4672 4674 4678
4685 4685# 4686 4688 4692 4699 4699# 4700 4702 4706 4713 4713# 4714 4716
4720 4727 4727# 4728 4730 4734 4741 4741# 4742 4744 4748 4755 4755# 4756
4758 4762 4769# 4778 4778# 4779 4779# 4781 4785 4792 4792# 4793 4795 4799
4806 4806# 4807 4809 4813 4820 4820# 4821 4823 4827 4834 4834# 4835 4837
4841 4848 4848# 4849 4851 4855 4862 4862# 4863 4865 4869 4876 4876# 4877
4879 4883 4905# 4918 4918# 4919 4919# 4924 4934 4934# 4935 4940 4950 4950#
4951 4956 4966 4966# 4967 4972 4982 4982# 4983 4988 4998 4998# 4999 5004
5014 5014# 5015 5020 5030 5030# 5031 5036 5046 5046# 5047 5052 5062 5062#
5063 5068 5078 5078# 5079 5084 5094 5094# 5095 5100 5110 5110# 5111 5116
5126 5126# 5127 5132 5142 5142# 5143 5148 5158 5158# 5159 5164 5174 5174#
5175 5180 5190 5190# 5191 5196 5205# 5218 5218# 5219 5219# 5224 5234 5234#
5235 5240 5250 5250# 5251 5256 5266 5266# 5267 5272 5282 5282# 5283 5288
5298 5298# 5299 5304 5314 5314# 5315 5320 5330 5330# 5331 5336 5346 5346#
5347 5352 5362 5362# 5363 5368 5378 5378# 5379 5384 5394 5394# 5395 5400
5410 5410# 5411 5416 5426 5426# 5427 5432 5442 5442# 5443 5448 5458 5458#
5459 5464 5474 5474# 5475 5480 5490 5490# 5491 5496 5505# 5518 5518# 5519
5519# 5523 5534 5534# 5535 5539 5550 5550# 5551 5555 5566 5566# 5567 5571
5582 5582# 5583 5587 5598 5598# 5599 5603 5614 5614# 5615 5619 5630 5630#
5631 5635 5646 5646# 5647 5651 5662 5662# 5663 5667 5678 5678# 5679 5683
5694 5694# 5695 5699 5710 5710# 5711 5715 5726 5726# 5727 5731 5742 5742#
5743 5747 5758 5758# 5759 5763 5774 5774# 5775 5779 5790 5790# 5791 5795
5805# 5818 5818# 5819 5819# 5823 5834 5834# 5835 5839 5850 5850# 5851 5855
5866 5866# 5867 5871 5882 5882# 5883 5887 5898 5898# 5899 5903 5914 5914#
5915 5919 5930 5930# 5931 5935 5946 5946# 5947 5951 5963# 5976 5976# 5977
5977# 5982 5992 5992# 5993 5998 6008 6008# 6009 6014 6024 6024# 6025 6030
6040 6040# 6041 6046 6056 6056# 6057 6062 6072 6072# 6073 6078 6088 6088#
6089 6094 6104 6104# 6105 6110 6120 6120# 6121 6126 6136 6136# 6137 6142
6152 6152# 6153 6158 6168 6168# 6169 6174 6184 6184# 6185 6190 6200 6200#
6201 6206 6216 6216# 6217 6222 6232 6232# 6233 6238 6248 6248# 6249 6254
6263# 6276 6276# 6277 6277# 6282 6292 6292# 6293 6298 6308 6308# 6309 6314
6324 6324# 6325 6330 6340 6340# 6341 6346 6356 6356# 6357 6362 6372 6372# SEQ 0299
6373 6378 6388 6388# 6389 6394 6404 6404# 6405 6410 6420 6420# 6421 6426
6436 6436# 6437 6442 6452 6452# 6453 6458 6468 6468# 6469 6474 6484 6484#
6485 6490 6500 6500# 6501 6506 6516 6516# 6517 6522 6532 6532# 6533 6538
6548 6548# 6549 6554 6563# 6576 6576# 6577 6577# 6581 6592 6592# 6593 6597
6608 6608# 6609 6613 6624 6624# 6625 6629 6640 6640# 6641 6645 6656 6656#
6657 6661 6672 6672# 6673 6677 6688 6688# 6689 6693 6704 6704# 6705 6709
6720 6720# 6721 6725 6736 6736# 6737 6741 6752 6752# 6753 6757 6768 6768#
6769 6773 6784 6784# 6785 6789 6800 6800# 6801 6805 6816 6816# 6817 6821
6832 6832# 6833 6837 6848 6848# 6849 6853 6863# 6876 6876# 6877 6877# 6881
6892 6892# 6893 6897 6908 6908# 6909 6913 6924 6924# 6925 6929 6940 6940#
6941 6945 6956 6956# 6957 6961 6972 6972# 6973 6977 6988 6988# 6989 6993
7004 7004# 7005 7009 7031# 7041 7046# 7056 7061# 7071 7076# 7086 7091# 7101
7106# 7116 7121# 7131 7136# 7146 7151# 7161 7166# 7176 7181# 7191 7196# 7206
7211# 7221 7226# 7236 7241# 7251 7256# 7266 7271# 7281 7286# 7296 7301# 7312
7324# 7333 7338# 7347 7352# 7361 7366# 7375 7380# 7389 7394# 7403 7408# 7417
7422# 7431 7436# 7445 7450# 7459 7464# 7473 7478# 7487 7492# 7501 7506# 7515
7520# 7529 7534# 7543 7548# 7572 7584# 7591 7598# 7605 7612# 7619 7626# 7633
7640# 7647 7654# 7661 7668# 7675 7682# 7689 7696# 7703 7710# 7717 7724# 7731
7738# 7745 7752# 7759 7766# 7773 7780# 7787 7794# 7801 7808# 7815 7824# 7831
7844# 7851 7858# 7865 7872# 7879 7886# 7893 7900# 7907 7914# 7921 7928# 7935
7942# 7949 7969# 7979 7984# 7994 7999# 8009 8014# 8024 8029# 8039 8044# 8054
8059# 8069 8074# 8084 8089# 8099 8104# 8114 8119# 8129 8134# 8144 8149# 8159
8164# 8174 8179# 8189 8194# 8204 8209# 8219 8224# 8234 8239# 8250 8262# 8271
8276# 8285 8290# 8299 8304# 8313 8318# 8327 8332# 8341 8346# 8355 8360# 8369
8374# 8383 8388# 8397 8402# 8411 8416# 8425 8430# 8439 8444# 8453 8458# 8467
8472# 8481 8487# 8511 8521# 8528 8535# 8542 8549# 8556 8563# 8570 8577# 8584
8591# 8598 8605# 8612 8619# 8626 8633# 8640 8647# 8654 8661# 8668 8675# 8682
8689# 8696 8703# 8710 8717# 8724 8731# 8738 8745# 8752 8760# 8767 8779# 8786
8793# 8800 8807# 8814 8821# 8828 8835# 8842 8849# 8856 8863# 8870 8877# 8884
8906# 8907 8907# 8917 8922# 8923 8933 8938# 8939 8949 8954# 8955 8965 8970#
8971 8981 8986# 8987 8997 9002# 9003 9013 9018# 9019 9029 9034# 9035 9045
9050# 9051 9061 9066# 9067 9077 9082# 9083 9093 9098# 9099 9109 9114# 9115
9125 9130# 9131 9141 9146# 9147 9157 9162# 9163 9173 9178# 9179 9189 9195#
9204 9215# 9224 9229# 9238 9243# 9252 9257# 9266 9271# 9280 9285# 9294 9299#
9308 9313# 9322 9327# 9336 9341# 9350 9355# 9364 9369# 9378 9383# 9392 9397#
9406 9411# 9420 9425# 9434 9441# 9449 9454# 9463 9474# 9481 9488# 9495 9502#
9509 9516# 9523 9530# 9537 9544# 9551 9558# 9565 9572# 9579 9586# 9593 9600#
9607 9614# 9621 9628# 9635 9642# 9649 9656# 9663 9670# 9677 9684# 9691 9698#
9705 9713# 9720 9733# 9740 9747# 9754 9761# 9768 9775# 9782 9789# 9796 9803#
9810 9817# 9824 9831# 9838 9859# 9860 9860# 9870 9875# 9876 9886 9891# 9892
9902 9907# 9908 9918 9923# 9924 9934 9939# 9940 9950 9955# 9956 9966 9971#
9972 9982 9987# 9988 9998 10003# 10004 10014 10019# 10020 10030 10035# 10036 10046
10051# 10052 10062 10067# 10068 10078 10083# 10084 10094 10099# 10100 10110 10115# 10116
10126 10131# 10132 10142 10148# 10157 10168# 10177 10182# 10191 10196# 10205 10210# 10219
10224# 10233 10238# 10247 10252# 10261 10266# 10275 10280# 10289 10294# 10303 10308# 10317
10322# 10331 10336# 10345 10350# 10359 10364# 10373 10378# 10387 10394# 10402 10407# 10416
10427# 10434 10441# 10448 10455# 10462 10469# 10476 10483# 10490 10497# 10504 10511# 10518
10525# 10532 10539# 10546 10553# 10560 10567# 10574 10581# 10588 10595# 10602 10609# 10616
10623# 10630 10637# 10644 10651# 10658 10666# 10673 10686# 10693 10700# 10707 10714# 10721
10728# 10735 10742# 10749 10756# 10763 10770# 10777 10784# 10791 10802# 10814 10814# 10820
10829 10829# 10835 10844 10844# 10850 10859 10859# 10865 10874 10874# 10880 10889 10889#
10895 10904 10904# 10910 10919 10919# 10925 10934 10934# 10940 10949 10949# 10955 10964
10964# 10970 10979 10979# 10985 10994 10994# 11000 11009 11009# 11015 11024 11024# 11030 SEQ 0300
11039 11039# 11045 11054 11054# 11060 11069 11069# 11075 11094 11094# 11100 11109 11109#
11115 11124 11124# 11130 11139 11139# 11145 11154 11154# 11160 11169 11169# 11175 11184
11184# 11190 11199 11199# 11205 11214 11214# 11220 11229 11229# 11235 11244 11244# 11250
11259 11259# 11265 11274 11274# 11280 11289 11289# 11295 11304 11304# 11310 11319 11319#
11325 11334 11334# 11340 11371 11371# 11377 11386 11386# 11392 11401 11401# 11407 11416
11416# 11422 11431 11431# 11437 11446 11446# 11452 11461 11461# 11467 11476 11476# 11482
11491 11491# 11497 11506 11506# 11512 11521 11521# 11527 11536 11536# 11542 11551 11551#
11557 11566 11566# 11572 11581 11581# 11587 11596 11596# 11602 11611 11611# 11617 11626
11626# 11632 11651 11651# 11657 11666 11666# 11672 11681 11681# 11687 11696 11696# 11702
11711 11711# 11717 11726 11726# 11732 11741 11741# 11747 11756 11756# 11762 11771 11771#
11777 12571#
$$MUUO 1089#
$$OUTE 1095#
$$TAX1 1107#
$$TAX2 1108#
$$TOGG 1101#
$$UUO 1078#
$ACC0 916#
$ACF 12820#
$BEND1 886#
$BEND2 75 887# 12873
$CHRIN 977#
$CRLF 979#
$DEVCH 803#
$DSKUP 856#
$DVOFF 973#
$EMODE 854#
$FFF 981#
$IBUF 1029#
$INEXT 1031#
$INNM 1030#
$ITRHL 897#
$ITRX1 898#
$LPAPE 12879
$MMAP 857#
$MODVL 852#
$MODVU 853#
$OBUF 1020#
$ONETM 880#
$OUTEX 1022#
$OUTNM 1021#
$PAPER 803
$PARER 904#
$PNAME 850#
$PSHER 908#
$PVER 851#
$RSRTX 900#
$RSRTY 901#
$SPAG1 920#
$START 817#
$SVAPR 918#
$SVPAG 919#
$SVPI 917# SEQ 0301
$SVUPC 923# 12727 12731 12757
$SVUUO 922# 12736 12768 12796
$TABF 980#
$TTCHR 976#
$TWCNT 972#
$TYPNB 978#
$UMODE 855#
$UORTX 895#
$USRHL 899#
$UUOER 896# 937
$VTF 982#
%AC1F 12821#
%ACS1A 12738# 12738 12782
%ACTFL 929#
%ACTUL 930#
%ALF 12826#
%AR1F 12825#
%ARF 12824#
%COREC 928#
%CORFL 927#
%DISCR 931#
%E1F 12823#
%EEF 12827#
%EF 12822#
%ER4X 12802 12807#
%ER5X 12800 12809#
%ER6X 12798 12811#
%ER7X 12804# 12808 12810 12812
%ERAC0 12723# 12723 12739 12773 12863
%ERAC1 12724# 12724 12740 12851
%ERAC2 12725# 12725 12850
%ERFST 12746# 12746 12748
%ERHI1 1070#
%ERHI2 1071#
%ERHI3 1072#
%ERMOR 12778 12805 12834#
%ERMS1 12743# 12869
%ERMS2 12766#
%ERMS3 12784 12791#
%ERRS1 12735 12837# 12868
%ERRS2 12850#
%ERRS4 12742 12866#
%ERRS5 12854 12858 12863#
%ERRS6 12861 12871#
%FF 12828#
%FLTTB 12786 12817#
%NODES 12818#
.JB41 803#
.JBAPR 803#
.JBCNI 803#
.JBDDT 803#
.JBFF 803#
.JBOPC 803# SEQ 0302
.JBREL 803#
.JBREN 803#
.JBSA 803#
.JBSYM 803#
.JBTPC 803#
.JBUSY 803#
.JBUUO 803#
.JBVER 803#
APRID 803#
BCIO 803# SEQ 0303
BCIOB 803#
BSIO 803#
BSIOB 803#
CFLUSH 763#
CINVAL 762#
CLOKOP 757#
CLRPT 803#
CWRTBI 764#
DFA 417# 1172 3040 3053 12706
DFARP 460# 1197 1211 1225 1239 1253 1267 1281 1295 1309 1332 1346 1360 1374
1388 1402 1416 1430 1444 1458 1472 1486 1500 1514 1528 1542 1556 1570
1585 1605 1619 1633 1647 1661 1675 1689 1703 1717 1731 1745 1759 1773
1787 1801 1815 1829 1852 1866 1880 1894 1908 1922 1936 1950 1964 1978
1992 2006 2020 2034 2048 2062 2076 2090 2115 2129 2143 2157 2171 2185
2199 2213 2227 2250 2264 2278 2292 2306 2320 2334 2348 2362 2376 2390
2404 2418 2432 2446 2460 2474 2488 2503 2524 2539 2554 2569 2584 2599
2614 2629 2644 2659 2674 2689 2704 2719 2734 2749 2764 2788 2802 2816
2830 2844 2858 2872 2886 2900 2914 2928 2942 2956 2970 2984 2998 3012
3026 3078 3092 3106 3120 3134 3148 3162 3176 3190 3204 3218 3232 3246
3260 3274 3288 3302 3316 3339 3353 3367 3381 3395 3409 3423 3437 3451
3465 3479 3493 3507 3521 3535 3549 3563 3577 3600 3614 3628 3642 3656
3670 3684 3698 3712 3726 3740 3754 3768 3782 3796 3810 3824 3838 3862
3876 3890 3904 3918 3932 3946 3960 3973 3997 4011 4025 4039 4053 4067
4081 4095 4109 4123 4137 4151 4165 4179 4193 4207 4221 4235 4258 4272
4286 4300 4314 4328 4342 4356 4370 4384 4398 4412 4426 4440 4454 4468
4482 4496 4519 4533 4547 4561 4575 4589 4603 4617 4631 4645 4659 4673
4687 4701 4715 4729 4743 4757 4780 4794 4808 4822 4836 4850 4864 4878
4891 4920 4936 4952 4968 4984 5000 5016 5032 5048 5064 5080 5096 5112
5128 5144 5160 5176 5192 5220 5236 5252 5268 5284 5300 5316 5332 5348
5364 5380 5396 5412 5428 5444 5460 5476 5492 5520 5536 5552 5568 5584
5600 5616 5632 5648 5664 5680 5696 5712 5728 5744 5760 5776 5792 5820
5836 5852 5868 5884 5900 5916 5932 5948 5978 5994 6010 6026 6042 6058
6074 6090 6106 6122 6138 6154 6170 6186 6202 6218 6234 6250 6278 6294
6310 6326 6342 6358 6374 6390 6406 6422 6438 6454 6470 6486 6502 6518
6534 6550 6578 6594 6610 6626 6642 6658 6674 6690 6706 6722 6738 6754
6770 6786 6802 6818 6834 6850 6878 6894 6910 6926 6942 6958 6974 6990
7006 7034 7049 7064 7079 7094 7109 7124 7139 7154 7169 7184 7199 7214
7229 7244 7259 7274 7289 7305 7326 7340 7354 7368 7382 7396 7410 7424
7438 7452 7466 7480 7494 7508 7522 7536 7552 7565 7586 7600 7614 7628
7642 7656 7670 7684 7698 7712 7726 7740 7754 7768 7782 7796 7810 7826
7846 7860 7874 7888 7902 7916 7930 7944 7972 7987 8002 8017 8032 8047
8062 8077 8092 8107 8122 8137 8152 8167 8182 8197 8212 8227 8243 8264
8278 8292 8306 8320 8334 8348 8362 8376 8390 8404 8418 8432 8446 8460
8474 8490 8504 8523 8537 8551 8565 8579 8593 8607 8621 8635 8649 8663
8677 8691 8705 8719 8733 8747 8762 8781 8795 8809 8823 8837 8851 8865
8879 8910 8926 8942 8958 8974 8990 9006 9022 9038 9054 9070 9086 9102
9118 9134 9150 9166 9182 9197 9217 9231 9245 9259 9273 9287 9301 9315
9329 9343 9357 9371 9385 9399 9413 9427 9442 9456 9476 9490 9504 9518
9532 9546 9560 9574 9588 9602 9616 9630 9644 9658 9672 9686 9700 9715
9735 9749 9763 9777 9791 9805 9819 9833 9863 9879 9895 9911 9927 9943
9959 9975 9991 10007 10023 10039 10055 10071 10087 10103 10119 10135 10150 10170
10184 10198 10212 10226 10240 10254 10268 10282 10296 10310 10324 10338 10352 10366
10380 10395 10409 10429 10443 10457 10471 10485 10499 10513 10527 10541 10555 10569 SEQ 0304
10583 10597 10611 10625 10639 10653 10668 10688 10702 10716 10730 10744 10758 10772
10786 10815 10830 10845 10860 10875 10890 10905 10920 10935 10950 10965 10980 10995
11010 11025 11040 11055 11070 11095 11110 11125 11140 11155 11170 11185 11200 11215
11230 11245 11260 11275 11290 11305 11320 11335 11348 11372 11387 11402 11417 11432
11447 11462 11477 11492 11507 11522 11537 11552 11567 11582 11597 11612 11627 11652
11667 11682 11697 11712 11727 11742 11757 11772 11799 11813 11827 11841 11855 11869
11883 11897 11911 11925 11939 11953 11967 11981 11995 12009 12023 12037 12060 12074
12088 12102 12116 12130 12144 12158 12172 12186 12200 12214 12228 12242 12256 12270
12284 12298 12321 12335 12349 12363 12377 12391 12405 12419 12433 12447 12461 12475
12489 12503 12517 12531 12545 12559 12582 12596 12610 12624 12638 12652 12666 12680
12694
DFD 450#
DFM 439#
DFS 428#
DMVE 91#
DMVE17 113#
DMVM 253#
DMVM17 305#
DMVN 141#
DMVN17 171#
DMVNF 209#
DMVNM 278#
DMVNM1 337#
DMVNMF 372#
DROPDV 724# 1132
ENDUUO 770# 885
EOPUUO 771# 887
ER1 29#
ER10 36#
ER11 37#
ER12 38#
ER13 39#
ER2 30#
ER3 31# 1178 1203 1217 1231 1245 1259 1273 1287 1301 1315 1338 1352 1366
1380 1394 1408 1422 1436 1450 1464 1478 1492 1506 1520 1534 1548 1562
1576 1591 1611 1625 1639 1653 1667 1681 1695 1709 1723 1737 1751 1765
1779 1793 1807 1821 1835 1858 1872 1886 1900 1914 1928 1942 1956 1970
1984 1998 2012 2026 2040 2054 2068 2082 2096 2121 2135 2149 2163 2177
2191 2205 2219 2233 2256 2270 2284 2298 2312 2326 2340 2354 2368 2382
2396 2410 2424 2438 2452 2466 2480 2494 2509 2530 2545 2560 2575 2590
2605 2620 2635 2650 2665 2680 2695 2710 2725 2740 2755 2770 2794 2808
2822 2836 2850 2864 2878 2892 2906 2920 2934 2948 2962 2976 2990 3004
3018 3032 3046 3059 3084 3098 3112 3126 3140 3154 3168 3182 3196 3210
3224 3238 3252 3266 3280 3294 3308 3322 3345 3359 3373 3387 3401 3415
3429 3443 3457 3471 3485 3499 3513 3527 3541 3555 3569 3583 3606 3620
3634 3648 3662 3676 3690 3704 3718 3732 3746 3760 3774 3788 3802 3816
3830 3844 3868 3882 3896 3910 3924 3938 3952 3966 3979 4003 4017 4031
4045 4059 4073 4087 4101 4115 4129 4143 4157 4171 4185 4199 4213 4227
4241 4264 4278 4292 4306 4320 4334 4348 4362 4376 4390 4404 4418 4432
4446 4460 4474 4488 4502 4525 4539 4553 4567 4581 4595 4609 4623 4637
4651 4665 4679 4693 4707 4721 4735 4749 4763 4786 4800 4814 4828 4842
4856 4870 4884 4897 4926 4942 4958 4974 4990 5006 5022 5038 5054 5070
5086 5102 5118 5134 5150 5166 5182 5198 5226 5242 5258 5274 5290 5306 SEQ 0305
5322 5338 5354 5370 5386 5402 5418 5434 5450 5466 5482 5498 5526 5542
5558 5574 5590 5606 5622 5638 5654 5670 5686 5702 5718 5734 5750 5766
5782 5798 5826 5842 5858 5874 5890 5906 5922 5938 5954 5984 6000 6016
6032 6048 6064 6080 6096 6112 6128 6144 6160 6176 6192 6208 6224 6240
6256 6284 6300 6316 6332 6348 6364 6380 6396 6412 6428 6444 6460 6476
6492 6508 6524 6540 6556 6584 6600 6616 6632 6648 6664 6680 6696 6712
6728 6744 6760 6776 6792 6808 6824 6840 6856 6884 6900 6916 6932 6948
6964 6980 6996 7012 7040 7055 7070 7085 7100 7115 7130 7145 7160 7175
7190 7205 7220 7235 7250 7265 7280 7295 7311 7332 7346 7360 7374 7388
7402 7416 7430 7444 7458 7472 7486 7500 7514 7528 7542 7558 7571 7592
7606 7620 7634 7648 7662 7676 7690 7704 7718 7732 7746 7760 7774 7788
7802 7816 7832 7852 7866 7880 7894 7908 7922 7936 7950 7978 7993 8008
8023 8038 8053 8068 8083 8098 8113 8128 8143 8158 8173 8188 8203 8218
8233 8249 8270 8284 8298 8312 8326 8340 8354 8368 8382 8396 8410 8424
8438 8452 8466 8480 8496 8510 8529 8543 8557 8571 8585 8599 8613 8627
8641 8655 8669 8683 8697 8711 8725 8739 8753 8768 8787 8801 8815 8829
8843 8857 8871 8885 8916 8932 8948 8964 8980 8996 9012 9028 9044 9060
9076 9092 9108 9124 9140 9156 9172 9188 9203 9223 9237 9251 9265 9279
9293 9307 9321 9335 9349 9363 9377 9391 9405 9419 9433 9448 9462 9482
9496 9510 9524 9538 9552 9566 9580 9594 9608 9622 9636 9650 9664 9678
9692 9706 9721 9741 9755 9769 9783 9797 9811 9825 9839 9869 9885 9901
9917 9933 9949 9965 9981 9997 10013 10029 10045 10061 10077 10093 10109 10125
10141 10156 10176 10190 10204 10218 10232 10246 10260 10274 10288 10302 10316 10330
10344 10358 10372 10386 10401 10415 10435 10449 10463 10477 10491 10505 10519 10533
10547 10561 10575 10589 10603 10617 10631 10645 10659 10674 10694 10708 10722 10736
10750 10764 10778 10792 10821 10836 10851 10866 10881 10896 10911 10926 10941 10956
10971 10986 11001 11016 11031 11046 11061 11076 11101 11116 11131 11146 11161 11176
11191 11206 11221 11236 11251 11266 11281 11296 11311 11326 11341 11354 11378 11393
11408 11423 11438 11453 11468 11483 11498 11513 11528 11543 11558 11573 11588 11603
11618 11633 11658 11673 11688 11703 11718 11733 11748 11763 11778 11805 11819 11833
11847 11861 11875 11889 11903 11917 11931 11945 11959 11973 11987 12001 12015 12029
12043 12066 12080 12094 12108 12122 12136 12150 12164 12178 12192 12206 12220 12234
12248 12262 12276 12290 12304 12327 12341 12355 12369 12383 12397 12411 12425 12439
12453 12467 12481 12495 12509 12523 12537 12551 12565 12588 12602 12616 12630 12644
12658 12672 12686 12700 12712
ER4 32# 1180 1205 1219 1233 1247 1261 1275 1289 1303 1317 1340 1354 1368
1382 1396 1410 1424 1438 1452 1466 1480 1494 1508 1522 1536 1550 1564
1578 1593 1613 1627 1641 1655 1669 1683 1697 1711 1725 1739 1753 1767
1781 1795 1809 1823 1837 1860 1874 1888 1902 1916 1930 1944 1958 1972
1986 2000 2014 2028 2042 2056 2070 2084 2098 2123 2137 2151 2165 2179
2193 2207 2221 2235 2258 2272 2286 2300 2314 2328 2342 2356 2370 2384
2398 2412 2426 2440 2454 2468 2482 2496 2511 2532 2547 2562 2577 2592
2607 2622 2637 2652 2667 2682 2697 2712 2727 2742 2757 2772 2796 2810
2824 2838 2852 2866 2880 2894 2908 2922 2936 2950 2964 2978 2992 3006
3020 3034 3048 3061 3086 3100 3114 3128 3142 3156 3170 3184 3198 3212
3226 3240 3254 3268 3282 3296 3310 3324 3347 3361 3375 3389 3403 3417
3431 3445 3459 3473 3487 3501 3515 3529 3543 3557 3571 3585 3608 3622
3636 3650 3664 3678 3692 3706 3720 3734 3748 3762 3776 3790 3804 3818
3832 3846 3870 3884 3898 3912 3926 3940 3954 3968 3981 4005 4019 4033
4047 4061 4075 4089 4103 4117 4131 4145 4159 4173 4187 4201 4215 4229
4243 4266 4280 4294 4308 4322 4336 4350 4364 4378 4392 4406 4420 4434
4448 4462 4476 4490 4504 4527 4541 4555 4569 4583 4597 4611 4625 4639
4653 4667 4681 4695 4709 4723 4737 4751 4765 4788 4802 4816 4830 4844 SEQ 0306
4858 4872 4886 4899 4928 4944 4960 4976 4992 5008 5024 5040 5056 5072
5088 5104 5120 5136 5152 5168 5184 5200 5228 5244 5260 5276 5292 5308
5324 5340 5356 5372 5388 5404 5420 5436 5452 5468 5484 5500 5528 5544
5560 5576 5592 5608 5624 5640 5656 5672 5688 5704 5720 5736 5752 5768
5784 5800 5828 5844 5860 5876 5892 5908 5924 5940 5956 5986 6002 6018
6034 6050 6066 6082 6098 6114 6130 6146 6162 6178 6194 6210 6226 6242
6258 6286 6302 6318 6334 6350 6366 6382 6398 6414 6430 6446 6462 6478
6494 6510 6526 6542 6558 6586 6602 6618 6634 6650 6666 6682 6698 6714
6730 6746 6762 6778 6794 6810 6826 6842 6858 6886 6902 6918 6934 6950
6966 6982 6998 7014 7042 7057 7072 7087 7102 7117 7132 7147 7162 7177
7192 7207 7222 7237 7252 7267 7282 7297 7313 7334 7348 7362 7376 7390
7404 7418 7432 7446 7460 7474 7488 7502 7516 7530 7544 7560 7573 7594
7608 7622 7636 7650 7664 7678 7692 7706 7720 7734 7748 7762 7776 7790
7804 7818 7834 7854 7868 7882 7896 7910 7924 7938 7952 7980 7995 8010
8025 8040 8055 8070 8085 8100 8115 8130 8145 8160 8175 8190 8205 8220
8235 8251 8272 8286 8300 8314 8328 8342 8356 8370 8384 8398 8412 8426
8440 8454 8468 8482 8498 8512 8531 8545 8559 8573 8587 8601 8615 8629
8643 8657 8671 8685 8699 8713 8727 8741 8755 8770 8789 8803 8817 8831
8845 8859 8873 8887 8918 8934 8950 8966 8982 8998 9014 9030 9046 9062
9078 9094 9110 9126 9142 9158 9174 9190 9205 9225 9239 9253 9267 9281
9295 9309 9323 9337 9351 9365 9379 9393 9407 9421 9435 9450 9464 9484
9498 9512 9526 9540 9554 9568 9582 9596 9610 9624 9638 9652 9666 9680
9694 9708 9723 9743 9757 9771 9785 9799 9813 9827 9841 9871 9887 9903
9919 9935 9951 9967 9983 9999 10015 10031 10047 10063 10079 10095 10111 10127
10143 10158 10178 10192 10206 10220 10234 10248 10262 10276 10290 10304 10318 10332
10346 10360 10374 10388 10403 10417 10437 10451 10465 10479 10493 10507 10521 10535
10549 10563 10577 10591 10605 10619 10633 10647 10661 10676 10696 10710 10724 10738
10752 10766 10780 10794 10823 10838 10853 10868 10883 10898 10913 10928 10943 10958
10973 10988 11003 11018 11033 11048 11063 11078 11103 11118 11133 11148 11163 11178
11193 11208 11223 11238 11253 11268 11283 11298 11313 11328 11343 11356 11380 11395
11410 11425 11440 11455 11470 11485 11500 11515 11530 11545 11560 11575 11590 11605
11620 11635 11660 11675 11690 11705 11720 11735 11750 11765 11780 11807 11821 11835
11849 11863 11877 11891 11905 11919 11933 11947 11961 11975 11989 12003 12017 12031
12045 12068 12082 12096 12110 12124 12138 12152 12166 12180 12194 12208 12222 12236
12250 12264 12278 12292 12306 12329 12343 12357 12371 12385 12399 12413 12427 12441
12455 12469 12483 12497 12511 12525 12539 12553 12567 12590 12604 12618 12632 12646
12660 12674 12688 12702 12714
ER5 33#
ER6 34#
ER7 35#
ERRHLT 658# 12844
FATAL 657#
FRD36 799#
FRD8 800#
FREAD 798#
FSELEC 797#
GET 641#
GO 638#
HALT 77 78 79 80 81 643# 906
JEN 645#
JRSTF 644#
MAPADR 780#
MAPCNK 781# SEQ 0307
MAPMEM 777#
MAPPNT 783#
MAPSET 782#
MEMSEG 779#
MEMZRO 778#
MODPCP 790#
MODPCU 789#
MTROP 758#
NAME 7# 10
PBELL 733# 12848
PCRL 727# 12785 12804
PCRL2 731#
PCRL2F 732#
PCRLF 728#
PFORCE 735#
PGMINT 651# 1151
PJRST 642#
PMSG 737# 12751 12755 12766 12791
PMSGF 740# 12871
PNT1 693#
PNT11 707#
PNT11F 708#
PNT1F 694#
PNT2 695#
PNT2F 696#
PNT3 697# 12803
PNT3F 698#
PNT4 699# 12807
PNT4F 700#
PNT5 701# 12809
PNT5F 702#
PNT6 703# 12759 12811
PNT6F 704#
PNT7 705#
PNT7F 706#
PNTA 679# 12794
PNTADF 710#
PNTADR 709#
PNTAF 680#
PNTAL 681# 12787
PNTALF 682#
PNTCHF 692#
PNTCHR 691#
PNTCI 689#
PNTCIF 690#
PNTCW 725#
PNTCWF 726#
PNTDCF 718#
PNTDEC 717# 12754
PNTDS 719#
PNTDSF 720#
PNTHW 713# 12774
PNTHWF 714# SEQ 0308
PNTMSF 686#
PNTMSG 685#
PNTNM 721# 12747
PNTOCF 716#
PNTOCS 715#
PNTOCT 711#
PNTOTF 712#
PNTSIX 722#
PNTSXF 723#
PSIXL 683#
PSIXLF 684#
PSIXM 687# 12752 12756 12767 12792
PSIXMF 688# 12872
PSP 729#
PSPF 730#
PUT 640#
RDAPR 803#
RDCSB 803#
RDCSTM 803#
RDEBR 803#
RDHSB 803#
RDINT 803#
RDIO 803#
RDIOB 803#
RDPI 803#
RDPUR 803#
RDSPB 803#
RDTIM 803#
RDUBR 803#
RTN 639# 893
S 569# 571 575 604 606 615 618 633 634 636 647 649 653 655
660 664 803 808 814 841 843 861 863 881 883 912 914 932
934 952 954 962 964 985 990 1016 1018 1025 1027 1033 1035 1041
1043 1047 1049 1054 1056 1060 1062 1066 1068 1074 1076 1079 1081 1085
1087 1091 1093 1097 1099 1103 1105 1110 1112 1116 1118 1122 1124 1126
1128
SAVEAC 63# 1158# 1165
SDFA 471#
SDFARP 557#
SDFD 525#
SDFDKL 535#
SDFM 493#
SDFMKL 503#
SDFS 482#
SIXBTZ 746#
SWITCH 752# 12733 12835
TIOE 803#
TIOEB 803#
TION 803#
TIONB 803#
TTALTM 673# 12837
TTICHR 666#
TTICLR 676# SEQ 0309
TTICNV 671#
TTIDEC 670#
TTINO 668#
TTIOCT 669#
TTIYES 667#
TTLOOK 672#
TTSIXB 674#
TTYINP 675#
WRAPR 803#
WRCSB 803#
WRCSTM 803#
WREBR 803#
WRHSB 803#
WRINT 803#
WRIO 803#
WRIOB 803#
WRPI 803#
WRPUR 803#
WRSPB 803#
WRTIM 803#
WRUBR 803#
ANDI 12770
AOS 891 12726 12729 12855 12856 SEQ 0310
ASCII 992 994 997 998 999 1000 1002 1003 1004 1005 1006 1007 1009 1010
1011
ASCIZ 1135 1152 12820 12821 12822 12823 12824 12825 12826 12827 12828
BLOCK 960 1020 1023 1029 1032 1038 13561
BYTE 1008
CAIG 12772 12783
CAIL 12860
CALL 1133
CAME 1177 1179 1202 1204 1216 1218 1230 1232 1244 1246 1258 1260 1272 1274
1286 1288 1300 1302 1314 1316 1337 1339 1351 1353 1365 1367 1379 1381
1393 1395 1407 1409 1421 1423 1435 1437 1449 1451 1463 1465 1477 1479
1491 1493 1505 1507 1519 1521 1533 1535 1547 1549 1561 1563 1575 1577
1590 1592 1610 1612 1624 1626 1638 1640 1652 1654 1666 1668 1680 1682
1694 1696 1708 1710 1722 1724 1736 1738 1750 1752 1764 1766 1778 1780
1792 1794 1806 1808 1820 1822 1834 1836 1857 1859 1871 1873 1885 1887
1899 1901 1913 1915 1927 1929 1941 1943 1955 1957 1969 1971 1983 1985
1997 1999 2011 2013 2025 2027 2039 2041 2053 2055 2067 2069 2081 2083
2095 2097 2120 2122 2134 2136 2148 2150 2162 2164 2176 2178 2190 2192
2204 2206 2218 2220 2232 2234 2255 2257 2269 2271 2283 2285 2297 2299
2311 2313 2325 2327 2339 2341 2353 2355 2367 2369 2381 2383 2395 2397
2409 2411 2423 2425 2437 2439 2451 2453 2465 2467 2479 2481 2493 2495
2508 2510 2529 2531 2544 2546 2559 2561 2574 2576 2589 2591 2604 2606
2619 2621 2634 2636 2649 2651 2664 2666 2679 2681 2694 2696 2709 2711
2724 2726 2739 2741 2754 2756 2769 2771 2793 2795 2807 2809 2821 2823
2835 2837 2849 2851 2863 2865 2877 2879 2891 2893 2905 2907 2919 2921
2933 2935 2947 2949 2961 2963 2975 2977 2989 2991 3003 3005 3017 3019
3031 3033 3045 3047 3058 3060 3083 3085 3097 3099 3111 3113 3125 3127
3139 3141 3153 3155 3167 3169 3181 3183 3195 3197 3209 3211 3223 3225
3237 3239 3251 3253 3265 3267 3279 3281 3293 3295 3307 3309 3321 3323
3344 3346 3358 3360 3372 3374 3386 3388 3400 3402 3414 3416 3428 3430
3442 3444 3456 3458 3470 3472 3484 3486 3498 3500 3512 3514 3526 3528
3540 3542 3554 3556 3568 3570 3582 3584 3605 3607 3619 3621 3633 3635
3647 3649 3661 3663 3675 3677 3689 3691 3703 3705 3717 3719 3731 3733
3745 3747 3759 3761 3773 3775 3787 3789 3801 3803 3815 3817 3829 3831
3843 3845 3867 3869 3881 3883 3895 3897 3909 3911 3923 3925 3937 3939
3951 3953 3965 3967 3978 3980 4002 4004 4016 4018 4030 4032 4044 4046
4058 4060 4072 4074 4086 4088 4100 4102 4114 4116 4128 4130 4142 4144
4156 4158 4170 4172 4184 4186 4198 4200 4212 4214 4226 4228 4240 4242
4263 4265 4277 4279 4291 4293 4305 4307 4319 4321 4333 4335 4347 4349
4361 4363 4375 4377 4389 4391 4403 4405 4417 4419 4431 4433 4445 4447
4459 4461 4473 4475 4487 4489 4501 4503 4524 4526 4538 4540 4552 4554
4566 4568 4580 4582 4594 4596 4608 4610 4622 4624 4636 4638 4650 4652
4664 4666 4678 4680 4692 4694 4706 4708 4720 4722 4734 4736 4748 4750
4762 4764 4785 4787 4799 4801 4813 4815 4827 4829 4841 4843 4855 4857
4869 4871 4883 4885 4896 4898 4925 4927 4941 4943 4957 4959 4973 4975
4989 4991 5005 5007 5021 5023 5037 5039 5053 5055 5069 5071 5085 5087
5101 5103 5117 5119 5133 5135 5149 5151 5165 5167 5181 5183 5197 5199
5225 5227 5241 5243 5257 5259 5273 5275 5289 5291 5305 5307 5321 5323
5337 5339 5353 5355 5369 5371 5385 5387 5401 5403 5417 5419 5433 5435
5449 5451 5465 5467 5481 5483 5497 5499 5525 5527 5541 5543 5557 5559
5573 5575 5589 5591 5605 5607 5621 5623 5637 5639 5653 5655 5669 5671
5685 5687 5701 5703 5717 5719 5733 5735 5749 5751 5765 5767 5781 5783
5797 5799 5825 5827 5841 5843 5857 5859 5873 5875 5889 5891 5905 5907 SEQ 0311
5921 5923 5937 5939 5953 5955 5983 5985 5999 6001 6015 6017 6031 6033
6047 6049 6063 6065 6079 6081 6095 6097 6111 6113 6127 6129 6143 6145
6159 6161 6175 6177 6191 6193 6207 6209 6223 6225 6239 6241 6255 6257
6283 6285 6299 6301 6315 6317 6331 6333 6347 6349 6363 6365 6379 6381
6395 6397 6411 6413 6427 6429 6443 6445 6459 6461 6475 6477 6491 6493
6507 6509 6523 6525 6539 6541 6555 6557 6583 6585 6599 6601 6615 6617
6631 6633 6647 6649 6663 6665 6679 6681 6695 6697 6711 6713 6727 6729
6743 6745 6759 6761 6775 6777 6791 6793 6807 6809 6823 6825 6839 6841
6855 6857 6883 6885 6899 6901 6915 6917 6931 6933 6947 6949 6963 6965
6979 6981 6995 6997 7011 7013 7039 7041 7054 7056 7069 7071 7084 7086
7099 7101 7114 7116 7129 7131 7144 7146 7159 7161 7174 7176 7189 7191
7204 7206 7219 7221 7234 7236 7249 7251 7264 7266 7279 7281 7294 7296
7310 7312 7331 7333 7345 7347 7359 7361 7373 7375 7387 7389 7401 7403
7415 7417 7429 7431 7443 7445 7457 7459 7471 7473 7485 7487 7499 7501
7513 7515 7527 7529 7541 7543 7557 7559 7570 7572 7591 7593 7605 7607
7619 7621 7633 7635 7647 7649 7661 7663 7675 7677 7689 7691 7703 7705
7717 7719 7731 7733 7745 7747 7759 7761 7773 7775 7787 7789 7801 7803
7815 7817 7831 7833 7851 7853 7865 7867 7879 7881 7893 7895 7907 7909
7921 7923 7935 7937 7949 7951 7977 7979 7992 7994 8007 8009 8022 8024
8037 8039 8052 8054 8067 8069 8082 8084 8097 8099 8112 8114 8127 8129
8142 8144 8157 8159 8172 8174 8187 8189 8202 8204 8217 8219 8232 8234
8248 8250 8269 8271 8283 8285 8297 8299 8311 8313 8325 8327 8339 8341
8353 8355 8367 8369 8381 8383 8395 8397 8409 8411 8423 8425 8437 8439
8451 8453 8465 8467 8479 8481 8495 8497 8509 8511 8528 8530 8542 8544
8556 8558 8570 8572 8584 8586 8598 8600 8612 8614 8626 8628 8640 8642
8654 8656 8668 8670 8682 8684 8696 8698 8710 8712 8724 8726 8738 8740
8752 8754 8767 8769 8786 8788 8800 8802 8814 8816 8828 8830 8842 8844
8856 8858 8870 8872 8884 8886 8915 8917 8931 8933 8947 8949 8963 8965
8979 8981 8995 8997 9011 9013 9027 9029 9043 9045 9059 9061 9075 9077
9091 9093 9107 9109 9123 9125 9139 9141 9155 9157 9171 9173 9187 9189
9202 9204 9222 9224 9236 9238 9250 9252 9264 9266 9278 9280 9292 9294
9306 9308 9320 9322 9334 9336 9348 9350 9362 9364 9376 9378 9390 9392
9404 9406 9418 9420 9432 9434 9447 9449 9461 9463 9481 9483 9495 9497
9509 9511 9523 9525 9537 9539 9551 9553 9565 9567 9579 9581 9593 9595
9607 9609 9621 9623 9635 9637 9649 9651 9663 9665 9677 9679 9691 9693
9705 9707 9720 9722 9740 9742 9754 9756 9768 9770 9782 9784 9796 9798
9810 9812 9824 9826 9838 9840 9868 9870 9884 9886 9900 9902 9916 9918
9932 9934 9948 9950 9964 9966 9980 9982 9996 9998 10012 10014 10028 10030
10044 10046 10060 10062 10076 10078 10092 10094 10108 10110 10124 10126 10140 10142
10155 10157 10175 10177 10189 10191 10203 10205 10217 10219 10231 10233 10245 10247
10259 10261 10273 10275 10287 10289 10301 10303 10315 10317 10329 10331 10343 10345
10357 10359 10371 10373 10385 10387 10400 10402 10414 10416 10434 10436 10448 10450
10462 10464 10476 10478 10490 10492 10504 10506 10518 10520 10532 10534 10546 10548
10560 10562 10574 10576 10588 10590 10602 10604 10616 10618 10630 10632 10644 10646
10658 10660 10673 10675 10693 10695 10707 10709 10721 10723 10735 10737 10749 10751
10763 10765 10777 10779 10791 10793 10820 10822 10835 10837 10850 10852 10865 10867
10880 10882 10895 10897 10910 10912 10925 10927 10940 10942 10955 10957 10970 10972
10985 10987 11000 11002 11015 11017 11030 11032 11045 11047 11060 11062 11075 11077
11100 11102 11115 11117 11130 11132 11145 11147 11160 11162 11175 11177 11190 11192
11205 11207 11220 11222 11235 11237 11250 11252 11265 11267 11280 11282 11295 11297
11310 11312 11325 11327 11340 11342 11353 11355 11377 11379 11392 11394 11407 11409
11422 11424 11437 11439 11452 11454 11467 11469 11482 11484 11497 11499 11512 11514
11527 11529 11542 11544 11557 11559 11572 11574 11587 11589 11602 11604 11617 11619 SEQ 0312
11632 11634 11657 11659 11672 11674 11687 11689 11702 11704 11717 11719 11732 11734
11747 11749 11762 11764 11777 11779 11804 11806 11818 11820 11832 11834 11846 11848
11860 11862 11874 11876 11888 11890 11902 11904 11916 11918 11930 11932 11944 11946
11958 11960 11972 11974 11986 11988 12000 12002 12014 12016 12028 12030 12042 12044
12065 12067 12079 12081 12093 12095 12107 12109 12121 12123 12135 12137 12149 12151
12163 12165 12177 12179 12191 12193 12205 12207 12219 12221 12233 12235 12247 12249
12261 12263 12275 12277 12289 12291 12303 12305 12326 12328 12340 12342 12354 12356
12368 12370 12382 12384 12396 12398 12410 12412 12424 12426 12438 12440 12452 12454
12466 12468 12480 12482 12494 12496 12508 12510 12522 12524 12536 12538 12550 12552
12564 12566 12587 12589 12601 12603 12615 12617 12629 12631 12643 12645 12657 12659
12671 12673 12685 12687 12699 12701 12711 12713
CAMN 12728
DEFINE 7 63 91 113 141 171 209 253 278 305 337 372 417 428
439 450 460 471 482 493 503 525 535 557 569 737 740 746
1158
DFAD 1175 1200 1214 1228 1242 1256 1270 1284 1298 1312 1335 1349 1363 1377
1391 1405 1419 1433 1447 1461 1475 1489 1503 1517 1531 1545 1559 1573
1588 1608 1622 1636 1650 1664 1678 1692 1706 1720 1734 1748 1762 1776
1790 1804 1818 1832 1855 1869 1883 1897 1911 1925 1939 1953 1967 1981
1995 2009 2023 2037 2051 2065 2079 2093 2118 2132 2146 2160 2174 2188
2202 2216 2230 2253 2267 2281 2295 2309 2323 2337 2351 2365 2379 2393
2407 2421 2435 2449 2463 2477 2491 2506 2527 2542 2557 2572 2587 2602
2617 2632 2647 2662 2677 2692 2707 2722 2737 2752 2767 2791 2805 2819
2833 2847 2861 2875 2889 2903 2917 2931 2945 2959 2973 2987 3001 3015
3029 3043 3056 3081 3095 3109 3123 3137 3151 3165 3179 3193 3207 3221
3235 3249 3263 3277 3291 3305 3319 3342 3356 3370 3384 3398 3412 3426
3440 3454 3468 3482 3496 3510 3524 3538 3552 3566 3580 3603 3617 3631
3645 3659 3673 3687 3701 3715 3729 3743 3757 3771 3785 3799 3813 3827
3841 3865 3879 3893 3907 3921 3935 3949 3963 3976 4000 4014 4028 4042
4056 4070 4084 4098 4112 4126 4140 4154 4168 4182 4196 4210 4224 4238
4261 4275 4289 4303 4317 4331 4345 4359 4373 4387 4401 4415 4429 4443
4457 4471 4485 4499 4522 4536 4550 4564 4578 4592 4606 4620 4634 4648
4662 4676 4690 4704 4718 4732 4746 4760 4783 4797 4811 4825 4839 4853
4867 4881 4894 4923 4939 4955 4971 4987 5003 5019 5035 5051 5067 5083
5099 5115 5131 5147 5163 5179 5195 5223 5239 5255 5271 5287 5303 5319
5335 5351 5367 5383 5399 5415 5431 5447 5463 5479 5495 5523 5539 5555
5571 5587 5603 5619 5635 5651 5667 5683 5699 5715 5731 5747 5763 5779
5795 5823 5839 5855 5871 5887 5903 5919 5935 5951 5981 5997 6013 6029
6045 6061 6077 6093 6109 6125 6141 6157 6173 6189 6205 6221 6237 6253
6281 6297 6313 6329 6345 6361 6377 6393 6409 6425 6441 6457 6473 6489
6505 6521 6537 6553 6581 6597 6613 6629 6645 6661 6677 6693 6709 6725
6741 6757 6773 6789 6805 6821 6837 6853 6881 6897 6913 6929 6945 6961
6977 6993 7009 7037 7052 7067 7082 7097 7112 7127 7142 7157 7172 7187
7202 7217 7232 7247 7262 7277 7292 7308 7329 7343 7357 7371 7385 7399
7413 7427 7441 7455 7469 7483 7497 7511 7525 7539 7555 7568 7589 7603
7617 7631 7645 7659 7673 7687 7701 7715 7729 7743 7757 7771 7785 7799
7813 7829 7849 7863 7877 7891 7905 7919 7933 7947 7975 7990 8005 8020
8035 8050 8065 8080 8095 8110 8125 8140 8155 8170 8185 8200 8215 8230
8246 8267 8281 8295 8309 8323 8337 8351 8365 8379 8393 8407 8421 8435
8449 8463 8477 8493 8507 8526 8540 8554 8568 8582 8596 8610 8624 8638
8652 8666 8680 8694 8708 8722 8736 8750 8765 8784 8798 8812 8826 8840
8854 8868 8882 8913 8929 8945 8961 8977 8993 9009 9025 9041 9057 9073
9089 9105 9121 9137 9153 9169 9185 9200 9220 9234 9248 9262 9276 9290 SEQ 0313
9304 9318 9332 9346 9360 9374 9388 9402 9416 9430 9445 9459 9479 9493
9507 9521 9535 9549 9563 9577 9591 9605 9619 9633 9647 9661 9675 9689
9703 9718 9738 9752 9766 9780 9794 9808 9822 9836 9866 9882 9898 9914
9930 9946 9962 9978 9994 10010 10026 10042 10058 10074 10090 10106 10122 10138
10153 10173 10187 10201 10215 10229 10243 10257 10271 10285 10299 10313 10327 10341
10355 10369 10383 10398 10412 10432 10446 10460 10474 10488 10502 10516 10530 10544
10558 10572 10586 10600 10614 10628 10642 10656 10671 10691 10705 10719 10733 10747
10761 10775 10789 10818 10833 10848 10863 10878 10893 10908 10923 10938 10953 10968
10983 10998 11013 11028 11043 11058 11073 11098 11113 11128 11143 11158 11173 11188
11203 11218 11233 11248 11263 11278 11293 11308 11323 11338 11351 11375 11390 11405
11420 11435 11450 11465 11480 11495 11510 11525 11540 11555 11570 11585 11600 11615
11630 11655 11670 11685 11700 11715 11730 11745 11760 11775 11802 11816 11830 11844
11858 11872 11886 11900 11914 11928 11942 11956 11970 11984 11998 12012 12026 12040
12063 12077 12091 12105 12119 12133 12147 12161 12175 12189 12203 12217 12231 12245
12259 12273 12287 12301 12324 12338 12352 12366 12380 12394 12408 12422 12436 12450
12464 12478 12492 12506 12520 12534 12548 12562 12585 12599 12613 12627 12641 12655
12669 12683 12697 12709
DMOVE 1173 1198 1212 1226 1240 1254 1268 1282 1296 1310 1333 1347 1361 1375
1389 1403 1417 1431 1445 1459 1473 1487 1501 1515 1529 1543 1557 1571
1586 1606 1620 1634 1648 1662 1676 1690 1704 1718 1732 1746 1760 1774
1788 1802 1816 1830 1853 1867 1881 1895 1909 1923 1937 1951 1965 1979
1993 2007 2021 2035 2049 2063 2077 2091 2116 2130 2144 2158 2172 2186
2200 2214 2228 2251 2265 2279 2293 2307 2321 2335 2349 2363 2377 2391
2405 2419 2433 2447 2461 2475 2489 2504 2525 2540 2555 2570 2585 2600
2615 2630 2645 2660 2675 2690 2705 2720 2735 2750 2765 2789 2803 2817
2831 2845 2859 2873 2887 2901 2915 2929 2943 2957 2971 2985 2999 3013
3027 3041 3054 3079 3093 3107 3121 3135 3149 3163 3177 3191 3205 3219
3233 3247 3261 3275 3289 3303 3317 3340 3354 3368 3382 3396 3410 3424
3438 3452 3466 3480 3494 3508 3522 3536 3550 3564 3578 3601 3615 3629
3643 3657 3671 3685 3699 3713 3727 3741 3755 3769 3783 3797 3811 3825
3839 3863 3877 3891 3905 3919 3933 3947 3961 3974 3998 4012 4026 4040
4054 4068 4082 4096 4110 4124 4138 4152 4166 4180 4194 4208 4222 4236
4259 4273 4287 4301 4315 4329 4343 4357 4371 4385 4399 4413 4427 4441
4455 4469 4483 4497 4520 4534 4548 4562 4576 4590 4604 4618 4632 4646
4660 4674 4688 4702 4716 4730 4744 4758 4781 4795 4809 4823 4837 4851
4865 4879 4892 4921 4937 4953 4969 4985 5001 5017 5033 5049 5065 5081
5097 5113 5129 5145 5161 5177 5193 5221 5237 5253 5269 5285 5301 5317
5333 5349 5365 5381 5397 5413 5429 5445 5461 5477 5493 5521 5537 5553
5569 5585 5601 5617 5633 5649 5665 5681 5697 5713 5729 5745 5761 5777
5793 5821 5837 5853 5869 5885 5901 5917 5933 5949 5979 5995 6011 6027
6043 6059 6075 6091 6107 6123 6139 6155 6171 6187 6203 6219 6235 6251
6279 6295 6311 6327 6343 6359 6375 6391 6407 6423 6439 6455 6471 6487
6503 6519 6535 6551 6579 6595 6611 6627 6643 6659 6675 6691 6707 6723
6739 6755 6771 6787 6803 6819 6835 6851 6879 6895 6911 6927 6943 6959
6975 6991 7007 7035 7050 7065 7080 7095 7110 7125 7140 7155 7170 7185
7200 7215 7230 7245 7260 7275 7290 7306 7327 7341 7355 7369 7383 7397
7411 7425 7439 7453 7467 7481 7495 7509 7523 7537 7553 7566 7587 7601
7615 7629 7643 7657 7671 7685 7699 7713 7727 7741 7755 7769 7783 7797
7811 7827 7847 7861 7875 7889 7903 7917 7931 7945 7973 7988 8003 8018
8033 8048 8063 8078 8093 8108 8123 8138 8153 8168 8183 8198 8213 8228
8244 8265 8279 8293 8307 8321 8335 8349 8363 8377 8391 8405 8419 8433
8447 8461 8475 8491 8505 8524 8538 8552 8566 8580 8594 8608 8622 8636
8650 8664 8678 8692 8706 8720 8734 8748 8763 8782 8796 8810 8824 8838 SEQ 0314
8852 8866 8880 8911 8927 8943 8959 8975 8991 9007 9023 9039 9055 9071
9087 9103 9119 9135 9151 9167 9183 9198 9218 9232 9246 9260 9274 9288
9302 9316 9330 9344 9358 9372 9386 9400 9414 9428 9443 9457 9477 9491
9505 9519 9533 9547 9561 9575 9589 9603 9617 9631 9645 9659 9673 9687
9701 9716 9736 9750 9764 9778 9792 9806 9820 9834 9864 9880 9896 9912
9928 9944 9960 9976 9992 10008 10024 10040 10056 10072 10088 10104 10120 10136
10151 10171 10185 10199 10213 10227 10241 10255 10269 10283 10297 10311 10325 10339
10353 10367 10381 10396 10410 10430 10444 10458 10472 10486 10500 10514 10528 10542
10556 10570 10584 10598 10612 10626 10640 10654 10669 10689 10703 10717 10731 10745
10759 10773 10787 10816 10831 10846 10861 10876 10891 10906 10921 10936 10951 10966
10981 10996 11011 11026 11041 11056 11071 11096 11111 11126 11141 11156 11171 11186
11201 11216 11231 11246 11261 11276 11291 11306 11321 11336 11349 11373 11388 11403
11418 11433 11448 11463 11478 11493 11508 11523 11538 11553 11568 11583 11598 11613
11628 11653 11668 11683 11698 11713 11728 11743 11758 11773 11800 11814 11828 11842
11856 11870 11884 11898 11912 11926 11940 11954 11968 11982 11996 12010 12024 12038
12061 12075 12089 12103 12117 12131 12145 12159 12173 12187 12201 12215 12229 12243
12257 12271 12285 12299 12322 12336 12350 12364 12378 12392 12406 12420 12434 12448
12462 12476 12490 12504 12518 12532 12546 12560 12583 12597 12611 12625 12639 12653
12667 12681 12695 12707
END 13569
HRL 12731
HRRZ 12727 12757 12796
IFDEF 803 854 855 856 857 12761 12831 13560 13567
IFE 3077 3091 3105 3119 3133 3147 3161 3175 3189 3203 3217 3231 3245 3259
3273 3287 3301 3315 3338 3352 3366 3380 3394 3408 3422 3436 3450 3464
3478 3492 3506 3520 3534 3548 3562 3576 3599 3613 3627 3641 3655 3669
3683 3697 3711 3725 3739 3753 3767 3781 3795 3809 3823 3837 3861 3875
3889 3903 3917 3931 3945 3959 3996 4010 4024 4038 4052 4066 4080 4094
4108 4122 4136 4150 4164 4178 4192 4206 4220 4234 4257 4271 4285 4299
4313 4327 4341 4355 4369 4383 4397 4411 4425 4439 4453 4467 4481 4495
4518 4532 4546 4560 4574 4588 4602 4616 4630 4644 4658 4672 4686 4700
4714 4728 4742 4756 4779 4793 4807 4821 4835 4849 4863 4877 4917 4919
4933 4935 4949 4951 4965 4967 4981 4983 4997 4999 5013 5015 5029 5031
5045 5047 5061 5063 5077 5079 5093 5095 5109 5111 5125 5127 5141 5143
5157 5159 5173 5175 5189 5191 5217 5219 5233 5235 5249 5251 5265 5267
5281 5283 5297 5299 5313 5315 5329 5331 5345 5347 5361 5363 5377 5379
5393 5395 5409 5411 5425 5427 5441 5443 5457 5459 5473 5475 5489 5491
5517 5519 5533 5535 5549 5551 5565 5567 5581 5583 5597 5599 5613 5615
5629 5631 5645 5647 5661 5663 5677 5679 5693 5695 5709 5711 5725 5727
5741 5743 5757 5759 5773 5775 5789 5791 5817 5819 5833 5835 5849 5851
5865 5867 5881 5883 5897 5899 5913 5915 5929 5931 5945 5947 5975 5977
5991 5993 6007 6009 6023 6025 6039 6041 6055 6057 6071 6073 6087 6089
6103 6105 6119 6121 6135 6137 6151 6153 6167 6169 6183 6185 6199 6201
6215 6217 6231 6233 6247 6249 6275 6277 6291 6293 6307 6309 6323 6325
6339 6341 6355 6357 6371 6373 6387 6389 6403 6405 6419 6421 6435 6437
6451 6453 6467 6469 6483 6485 6499 6501 6515 6517 6531 6533 6547 6549
6575 6577 6591 6593 6607 6609 6623 6625 6639 6641 6655 6657 6671 6673
6687 6689 6703 6705 6719 6721 6735 6737 6751 6753 6767 6769 6783 6785
6799 6801 6815 6817 6831 6833 6847 6849 6875 6877 6891 6893 6907 6909
6923 6925 6939 6941 6955 6957 6971 6973 6987 6989 7003 7005 7033 7048
7063 7078 7093 7108 7123 7138 7153 7168 7183 7198 7213 7228 7243 7258
7273 7288 7971 7986 8001 8016 8031 8046 8061 8076 8091 8106 8121 8136
8151 8166 8181 8196 8211 8226 8907 8909 8923 8925 8939 8941 8955 8957 SEQ 0315
8971 8973 8987 8989 9003 9005 9019 9021 9035 9037 9051 9053 9067 9069
9083 9085 9099 9101 9115 9117 9131 9133 9147 9149 9163 9165 9179 9181
9860 9862 9876 9878 9892 9894 9908 9910 9924 9926 9940 9942 9956 9958
9972 9974 9988 9990 10004 10006 10020 10022 10036 10038 10052 10054 10068 10070
10084 10086 10100 10102 10116 10118 10132 10134 10813 10828 10843 10858 10873 10888
10903 10918 10933 10948 10963 10978 10993 11008 11023 11038 11053 11068 11093 11108
11123 11138 11153 11168 11183 11198 11213 11228 11243 11258 11273 11288 11303 11318
11333 11370 11385 11400 11415 11430 11445 11460 11475 11490 11505 11520 11535 11550
11565 11580 11595 11610 11625 11650 11665 11680 11695 11710 11725 11740 11755 11770
11798 11812 11826 11840 11854 11868 11882 11896 11910 11924 11938 11952 11966 11980
11994 12008 12022 12036 12059 12073 12087 12101 12115 12129 12143 12157 12171 12185
12199 12213 12227 12241 12255 12269 12283 12297 12320 12334 12348 12362 12376 12390
12404 12418 12432 12446 12460 12474 12488 12502 12516 12530 12544 12558 12581 12595
12609 12623 12637 12651 12665 12679
IFNDEF 792 793 803 854 855 856 857 936 12879
JFCL 894 895 896 897 898 899 900 901 902 903 904 905
JRST 642 643 644 645 816 817 819 821 823 825 827 830 832 833
886 1155 12718 12735 12742 12745 12750 12778 12784 12798 12800 12802 12805 12808
12810 12812 12838 12841 12854 12858 12861 12864 12868 12869 12873
JSP 651
JUMPL 1181 1206 1220 1234 1248 1262 1276 1290 1304 1318 1341 1355 1369 1383
1397 1411 1425 1439 1453 1467 1481 1495 1509 1523 1537 1551 1565 1579
1594 1614 1628 1642 1656 1670 1684 1698 1712 1726 1740 1754 1768 1782
1796 1810 1824 1838 1861 1875 1889 1903 1917 1931 1945 1959 1973 1987
2001 2015 2029 2043 2057 2071 2085 2099 2124 2138 2152 2166 2180 2194
2208 2222 2236 2259 2273 2287 2301 2315 2329 2343 2357 2371 2385 2399
2413 2427 2441 2455 2469 2483 2497 2512 2533 2548 2563 2578 2593 2608
2623 2638 2653 2668 2683 2698 2713 2728 2743 2758 2773 2797 2811 2825
2839 2853 2867 2881 2895 2909 2923 2937 2951 2965 2979 2993 3007 3021
3035 3049 3062 3087 3101 3115 3129 3143 3157 3171 3185 3199 3213 3227
3241 3255 3269 3283 3297 3311 3325 3348 3362 3376 3390 3404 3418 3432
3446 3460 3474 3488 3502 3516 3530 3544 3558 3572 3586 3609 3623 3637
3651 3665 3679 3693 3707 3721 3735 3749 3763 3777 3791 3805 3819 3833
3847 3871 3885 3899 3913 3927 3941 3955 3969 3982 4006 4020 4034 4048
4062 4076 4090 4104 4118 4132 4146 4160 4174 4188 4202 4216 4230 4244
4267 4281 4295 4309 4323 4337 4351 4365 4379 4393 4407 4421 4435 4449
4463 4477 4491 4505 4528 4542 4556 4570 4584 4598 4612 4626 4640 4654
4668 4682 4696 4710 4724 4738 4752 4766 4789 4803 4817 4831 4845 4859
4873 4887 4900 4929 4945 4961 4977 4993 5009 5025 5041 5057 5073 5089
5105 5121 5137 5153 5169 5185 5201 5229 5245 5261 5277 5293 5309 5325
5341 5357 5373 5389 5405 5421 5437 5453 5469 5485 5501 5529 5545 5561
5577 5593 5609 5625 5641 5657 5673 5689 5705 5721 5737 5753 5769 5785
5801 5829 5845 5861 5877 5893 5909 5925 5941 5957 5987 6003 6019 6035
6051 6067 6083 6099 6115 6131 6147 6163 6179 6195 6211 6227 6243 6259
6287 6303 6319 6335 6351 6367 6383 6399 6415 6431 6447 6463 6479 6495
6511 6527 6543 6559 6587 6603 6619 6635 6651 6667 6683 6699 6715 6731
6747 6763 6779 6795 6811 6827 6843 6859 6887 6903 6919 6935 6951 6967
6983 6999 7015 7043 7058 7073 7088 7103 7118 7133 7148 7163 7178 7193
7208 7223 7238 7253 7268 7283 7298 7314 7335 7349 7363 7377 7391 7405
7419 7433 7447 7461 7475 7489 7503 7517 7531 7545 7561 7574 7595 7609
7623 7637 7651 7665 7679 7693 7707 7721 7735 7749 7763 7777 7791 7805
7819 7835 7855 7869 7883 7897 7911 7925 7939 7953 7981 7996 8011 8026
8041 8056 8071 8086 8101 8116 8131 8146 8161 8176 8191 8206 8221 8236 SEQ 0316
8252 8273 8287 8301 8315 8329 8343 8357 8371 8385 8399 8413 8427 8441
8455 8469 8483 8499 8513 8532 8546 8560 8574 8588 8602 8616 8630 8644
8658 8672 8686 8700 8714 8728 8742 8756 8771 8790 8804 8818 8832 8846
8860 8874 8888 8919 8935 8951 8967 8983 8999 9015 9031 9047 9063 9079
9095 9111 9127 9143 9159 9175 9191 9206 9226 9240 9254 9268 9282 9296
9310 9324 9338 9352 9366 9380 9394 9408 9422 9436 9451 9465 9485 9499
9513 9527 9541 9555 9569 9583 9597 9611 9625 9639 9653 9667 9681 9695
9709 9724 9744 9758 9772 9786 9800 9814 9828 9842 9872 9888 9904 9920
9936 9952 9968 9984 10000 10016 10032 10048 10064 10080 10096 10112 10128 10144
10159 10179 10193 10207 10221 10235 10249 10263 10277 10291 10305 10319 10333 10347
10361 10375 10389 10404 10418 10438 10452 10466 10480 10494 10508 10522 10536 10550
10564 10578 10592 10606 10620 10634 10648 10662 10677 10697 10711 10725 10739 10753
10767 10781 10795 10824 10839 10854 10869 10884 10899 10914 10929 10944 10959 10974
10989 11004 11019 11034 11049 11064 11079 11104 11119 11134 11149 11164 11179 11194
11209 11224 11239 11254 11269 11284 11299 11314 11329 11344 11357 11381 11396 11411
11426 11441 11456 11471 11486 11501 11516 11531 11546 11561 11576 11591 11606 11621
11636 11661 11676 11691 11706 11721 11736 11751 11766 11781 11808 11822 11836 11850
11864 11878 11892 11906 11920 11934 11948 11962 11976 11990 12004 12018 12032 12046
12069 12083 12097 12111 12125 12139 12153 12167 12181 12195 12209 12223 12237 12251
12265 12279 12293 12307 12330 12344 12358 12372 12386 12400 12414 12428 12442 12456
12470 12484 12498 12512 12526 12540 12554 12568 12591 12605 12619 12633 12647 12661
12675 12689 12703 12715
LALL 8
LIST 7 803 936 12761 12831 12879 13557
LIT 12880
LOC 22 806 1130
LSH 12737 12769
MOVE 1152 12730 12736 12739 12740 12753 12768 12771 12773 12776 12782 12786 12842 12850
12851 12859 12863 12866
MOVEI 1166 1168 12793 12839
MOVEM 1153 1167 1169 12723 12724 12725 12738 12758 12840
NOSYM 24
OPDEF 29 30 31 32 33 34 35 36 37 38 39 638 639 640
641 642 643 644 645 651 657 658 666 667 668 669 670 671
672 673 674 675 676 679 680 681 682 683 684 685 686 687
688 689 690 691 692 693 694 695 696 697 698 699 700 701
702 703 704 705 706 707 708 709 710 711 712 713 714 715
716 717 718 719 720 721 722 723 724 725 726 727 728 729
730 731 732 733 735 752 757 758 762 763 764 770 771 777
778 779 780 781 782 783 789 790 797 798 799 800 803
PAGE 1182 3063 12704
POP 641
POPJ 639
PUSH 640
PUSHJ 638
REPEAT 1188 1323 1596 1843 2106 2241 2514 2779 3069 3330 3591 3852 3988 4249
4510 4771 4907 5207 5507 5807 5965 6265 6565 6865 7023 7317 7576 7837
7961 8255 8514 8772 8897 9208 9467 9726 9850 10161 10420 10679 10804 11084
11361 11641 11790 12051 12312 12573
SETOM 12748 12846 12852
SETZM 12732 12743
SIXBIT 85 86 1021 1022 1030 1031 1133 12752 12756 12767 12792 12872
SKIPGE 12741 SEQ 0317
SKIPL 12744 12857
SKIPN 12746 12749 12853
SUBTTL 25 567 602 803 804 1156 12719 12874
TITLE 12
TLNE 12734 12777 12843 12847
TLNN 12845 12867
TRNE 12797 12799 12801
VAR 13565
XALL 14
XCT 12834
XLIST 6 802 803 935 12760 12830 12878
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 1 SEQ 0318
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777
*030630 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000
----------
*030637 DFAD 4,043334
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 200400 000000 C(AC+1)= 000000 000000
----------
*030646 DFAD 4,043336
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200200 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 177400 000000 C(AC+1)= 000000 000000
----------
*030655 DFAD 4,043341
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200100 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 176400 000000 C(AC+1)= 000000 000000
----------
*030664 DFAD 4,043344
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200040 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 175400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 2
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0319
*030673 DFAD 4,043347
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200020 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 174400 000000 C(AC+1)= 000000 000000
----------
*030702 DFAD 4,043352
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200010 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 173400 000000 C(AC+1)= 000000 000000
----------
*030711 DFAD 4,043355
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200004 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 172400 000000 C(AC+1)= 000000 000000
----------
*030720 DFAD 4,043360
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200002 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 171400 000000 C(AC+1)= 000000 000000
----------
*030727 DFAD 4,043363
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200001 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 170400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 3
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0320
*030736 DFAD 4,043366
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 400000 C(E+1)= 000000 000000
FINAL
C(AC)= 167400 000000 C(AC+1)= 000000 000000
----------
*030745 DFAD 4,043371
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 200000 C(E+1)= 000000 000000
FINAL
C(AC)= 166400 000000 C(AC+1)= 000000 000000
----------
*030754 DFAD 4,043374
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 100000 C(E+1)= 000000 000000
FINAL
C(AC)= 165400 000000 C(AC+1)= 000000 000000
----------
*030763 DFAD 4,043377
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 040000 C(E+1)= 000000 000000
FINAL
C(AC)= 164400 000000 C(AC+1)= 000000 000000
----------
*030772 DFAD 4,043402
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 020000 C(E+1)= 000000 000000
FINAL
C(AC)= 163400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 4
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0321
*031001 DFAD 4,043405
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 010000 C(E+1)= 000000 000000
FINAL
C(AC)= 162400 000000 C(AC+1)= 000000 000000
----------
*031010 DFAD 4,043410
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 004000 C(E+1)= 000000 000000
FINAL
C(AC)= 161400 000000 C(AC+1)= 000000 000000
----------
*031017 DFAD 4,043413
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 002000 C(E+1)= 000000 000000
FINAL
C(AC)= 160400 000000 C(AC+1)= 000000 000000
----------
*031026 DFAD 4,043416
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 001000 C(E+1)= 000000 000000
FINAL
C(AC)= 157400 000000 C(AC+1)= 000000 000000
----------
*031035 DFAD 4,043421
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000400 C(E+1)= 000000 000000
FINAL
C(AC)= 156400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 5
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0322
*031044 DFAD 4,043424
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000200 C(E+1)= 000000 000000
FINAL
C(AC)= 155400 000000 C(AC+1)= 000000 000000
----------
*031053 DFAD 4,043427
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000100 C(E+1)= 000000 000000
FINAL
C(AC)= 154400 000000 C(AC+1)= 000000 000000
----------
*031062 DFAD 4,043432
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000040 C(E+1)= 000000 000000
FINAL
C(AC)= 153400 000000 C(AC+1)= 000000 000000
----------
*031071 DFAD 4,043435
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000020 C(E+1)= 000000 000000
FINAL
C(AC)= 152400 000000 C(AC+1)= 000000 000000
----------
*031100 DFAD 4,043440
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000010 C(E+1)= 000000 000000
FINAL
C(AC)= 151400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 6
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0323
*031107 DFAD 4,043443
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000004 C(E+1)= 000000 000000
FINAL
C(AC)= 150400 000000 C(AC+1)= 000000 000000
----------
*031116 DFAD 4,043446
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000002 C(E+1)= 000000 000000
FINAL
C(AC)= 147400 000000 C(AC+1)= 000000 000000
----------
*031125 DFAD 4,043451
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000001 C(E+1)= 000000 000000
FINAL
C(AC)= 146400 000000 C(AC+1)= 000000 000000
----------
*031134 DFAD 4,043454
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 400000 000000
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000
----------
*031143 DFAD 4,043456
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 200000 000000
FINAL
C(AC)= 145400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 7
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0324
*031152 DFAD 4,043461
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 100000 000000
FINAL
C(AC)= 144400 000000 C(AC+1)= 000000 000000
----------
*031161 DFAD 4,043464
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 040000 000000
FINAL
C(AC)= 143400 000000 C(AC+1)= 000000 000000
----------
*031170 DFAD 4,043467
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 020000 000000
FINAL
C(AC)= 142400 000000 C(AC+1)= 000000 000000
----------
*031177 DFAD 4,043472
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 010000 000000
FINAL
C(AC)= 141400 000000 C(AC+1)= 000000 000000
----------
*031206 DFAD 4,043475
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 004000 000000
FINAL
C(AC)= 140400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 8
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0325
*031215 DFAD 4,043500
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 002000 000000
FINAL
C(AC)= 137400 000000 C(AC+1)= 000000 000000
----------
*031224 DFAD 4,043503
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 001000 000000
FINAL
C(AC)= 136400 000000 C(AC+1)= 000000 000000
----------
*031233 DFAD 4,043506
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000400 000000
FINAL
C(AC)= 135400 000000 C(AC+1)= 000000 000000
----------
*031242 DFAD 4,043511
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000200 000000
FINAL
C(AC)= 134400 000000 C(AC+1)= 000000 000000
----------
*031251 DFAD 4,043514
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000100 000000
FINAL
C(AC)= 133400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 9
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0326
*031260 DFAD 4,043517
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000040 000000
FINAL
C(AC)= 132400 000000 C(AC+1)= 000000 000000
----------
*031267 DFAD 4,043522
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000020 000000
FINAL
C(AC)= 131400 000000 C(AC+1)= 000000 000000
----------
*031276 DFAD 4,043525
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000010 000000
FINAL
C(AC)= 130400 000000 C(AC+1)= 000000 000000
----------
*031305 DFAD 4,043530
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000004 000000
FINAL
C(AC)= 127400 000000 C(AC+1)= 000000 000000
----------
*031314 DFAD 4,043533
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000002 000000
FINAL
C(AC)= 126400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 10
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0327
*031323 DFAD 4,043536
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000001 000000
FINAL
C(AC)= 125400 000000 C(AC+1)= 000000 000000
----------
*031332 DFAD 4,043541
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 400000
FINAL
C(AC)= 124400 000000 C(AC+1)= 000000 000000
----------
*031341 DFAD 4,043544
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 200000
FINAL
C(AC)= 123400 000000 C(AC+1)= 000000 000000
----------
*031350 DFAD 4,043547
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 100000
FINAL
C(AC)= 122400 000000 C(AC+1)= 000000 000000
----------
*031357 DFAD 4,043552
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 040000
FINAL
C(AC)= 121400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 11
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0328
*031366 DFAD 4,043555
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 020000
FINAL
C(AC)= 120400 000000 C(AC+1)= 000000 000000
----------
*031375 DFAD 4,043560
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 010000
FINAL
C(AC)= 117400 000000 C(AC+1)= 000000 000000
----------
*031404 DFAD 4,043563
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 004000
FINAL
C(AC)= 116400 000000 C(AC+1)= 000000 000000
----------
*031413 DFAD 4,043566
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 002000
FINAL
C(AC)= 115400 000000 C(AC+1)= 000000 000000
----------
*031422 DFAD 4,043571
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 001000
FINAL
C(AC)= 114400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 12
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0329
*031431 DFAD 4,043574
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000400
FINAL
C(AC)= 113400 000000 C(AC+1)= 000000 000000
----------
*031440 DFAD 4,043577
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000200
FINAL
C(AC)= 112400 000000 C(AC+1)= 000000 000000
----------
*031447 DFAD 4,043602
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000100
FINAL
C(AC)= 111400 000000 C(AC+1)= 000000 000000
----------
*031456 DFAD 4,043605
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000040
FINAL
C(AC)= 110400 000000 C(AC+1)= 000000 000000
----------
*031465 DFAD 4,043610
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000020
FINAL
C(AC)= 107400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 13
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0330
*031474 DFAD 4,043613
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000010
FINAL
C(AC)= 106400 000000 C(AC+1)= 000000 000000
----------
*031503 DFAD 4,043616
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000004
FINAL
C(AC)= 105400 000000 C(AC+1)= 000000 000000
----------
*031512 DFAD 4,043621
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000002
FINAL
C(AC)= 104400 000000 C(AC+1)= 000000 000000
----------
*031521 DFAD 4,043624
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000001
FINAL
C(AC)= 103400 000000 C(AC+1)= 000000 000000
----------
*031530 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 200400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 14
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0331
*031537 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200200 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 177400 000000 C(AC+1)= 000000 000000
----------
*031546 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200100 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 176400 000000 C(AC+1)= 000000 000000
----------
*031555 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200040 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 175400 000000 C(AC+1)= 000000 000000
----------
*031564 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200020 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 174400 000000 C(AC+1)= 000000 000000
----------
*031573 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200010 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 173400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 15
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0332
*031602 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200004 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 172400 000000 C(AC+1)= 000000 000000
----------
*031611 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200002 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 171400 000000 C(AC+1)= 000000 000000
----------
*031620 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200001 000000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 170400 000000 C(AC+1)= 000000 000000
----------
*031627 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 400000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 167400 000000 C(AC+1)= 000000 000000
----------
*031636 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 200000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 166400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 16
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0333
*031645 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 100000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 165400 000000 C(AC+1)= 000000 000000
----------
*031654 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 040000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 164400 000000 C(AC+1)= 000000 000000
----------
*031663 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 020000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 163400 000000 C(AC+1)= 000000 000000
----------
*031672 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 010000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 162400 000000 C(AC+1)= 000000 000000
----------
*031701 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 004000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 161400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 17
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0334
*031710 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 002000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 160400 000000 C(AC+1)= 000000 000000
----------
*031717 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 001000 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 157400 000000 C(AC+1)= 000000 000000
----------
*031726 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000400 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 156400 000000 C(AC+1)= 000000 000000
----------
*031735 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000200 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 155400 000000 C(AC+1)= 000000 000000
----------
*031744 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000100 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 154400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 18
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0335
*031753 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000040 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 153400 000000 C(AC+1)= 000000 000000
----------
*031762 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000020 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 152400 000000 C(AC+1)= 000000 000000
----------
*031771 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000010 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 151400 000000 C(AC+1)= 000000 000000
----------
*032000 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000004 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 150400 000000 C(AC+1)= 000000 000000
----------
*032007 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000002 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 147400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 19
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0336
*032016 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000001 C(AC+1)= 000000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 146400 000000 C(AC+1)= 000000 000000
----------
*032025 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 400000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000
----------
*032034 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 200000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 145400 000000 C(AC+1)= 000000 000000
----------
*032043 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 100000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 144400 000000 C(AC+1)= 000000 000000
----------
*032052 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 040000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 143400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 20
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0337
*032061 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 020000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 142400 000000 C(AC+1)= 000000 000000
----------
*032070 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 010000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 141400 000000 C(AC+1)= 000000 000000
----------
*032077 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 004000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 140400 000000 C(AC+1)= 000000 000000
----------
*032106 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 002000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 137400 000000 C(AC+1)= 000000 000000
----------
*032115 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 001000 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 136400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 21
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0338
*032124 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000400 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 135400 000000 C(AC+1)= 000000 000000
----------
*032133 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000200 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 134400 000000 C(AC+1)= 000000 000000
----------
*032142 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000100 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 133400 000000 C(AC+1)= 000000 000000
----------
*032151 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000040 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 132400 000000 C(AC+1)= 000000 000000
----------
*032160 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000020 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 131400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 22
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0339
*032167 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000010 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 130400 000000 C(AC+1)= 000000 000000
----------
*032176 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000004 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 127400 000000 C(AC+1)= 000000 000000
----------
*032205 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000002 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 126400 000000 C(AC+1)= 000000 000000
----------
*032214 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000001 000000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 125400 000000 C(AC+1)= 000000 000000
----------
*032223 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 400000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 124400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 23
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0340
*032232 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 200000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 123400 000000 C(AC+1)= 000000 000000
----------
*032241 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 100000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 122400 000000 C(AC+1)= 000000 000000
----------
*032250 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 040000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 121400 000000 C(AC+1)= 000000 000000
----------
*032257 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 020000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 120400 000000 C(AC+1)= 000000 000000
----------
*032266 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 010000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 117400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 24
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0341
*032275 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 004000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 116400 000000 C(AC+1)= 000000 000000
----------
*032304 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 002000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 115400 000000 C(AC+1)= 000000 000000
----------
*032313 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 001000 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 114400 000000 C(AC+1)= 000000 000000
----------
*032322 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000400 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 113400 000000 C(AC+1)= 000000 000000
----------
*032331 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000200 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 112400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 25
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0342
*032340 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000100 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 111400 000000 C(AC+1)= 000000 000000
----------
*032347 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000040 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 110400 000000 C(AC+1)= 000000 000000
----------
*032356 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000020 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 107400 000000 C(AC+1)= 000000 000000
----------
*032365 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000010 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 106400 000000 C(AC+1)= 000000 000000
----------
*032374 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000004 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 105400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 26
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0343
*032403 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000002 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 104400 000000 C(AC+1)= 000000 000000
----------
*032412 DFAD 4,043332
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000001 C(E)= 200000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 103400 000000 C(AC+1)= 000000 000000
----------
*032421 DFAD 4,043627
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*032430 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*032437 DFAD 4,043632
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 777776
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777776
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 27
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0344
*032446 DFAD 4,043635
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 777775
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777775
----------
*032455 DFAD 4,043640
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 777773
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777773
----------
*032464 DFAD 4,043643
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 777767
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777767
----------
*032473 DFAD 4,043646
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 777757
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777757
----------
*032502 DFAD 4,043651
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 777737
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777737
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 28
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0345
*032511 DFAD 4,043654
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 777677
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777677
----------
*032520 DFAD 4,043657
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 777577
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777577
----------
*032527 DFAD 4,043662
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 777377
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777377
----------
*032536 DFAD 4,043665
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 776777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 776777
----------
*032545 DFAD 4,043670
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 775777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 775777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 29
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0346
*032554 DFAD 4,043673
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 773777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 773777
----------
*032563 DFAD 4,043676
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 767777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 767777
----------
*032572 DFAD 4,043701
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 757777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 757777
----------
*032601 DFAD 4,043704
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 737777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 737777
----------
*032610 DFAD 4,043707
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 677777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 677777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 30
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0347
*032617 DFAD 4,043712
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 577777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 577777
----------
*032626 DFAD 4,043715
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777777 377777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 377777
----------
*032635 DFAD 4,043720
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777776 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377776 777777
----------
*032644 DFAD 4,043723
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777775 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377775 777777
----------
*032653 DFAD 4,043726
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777773 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377773 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 31
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0348
*032662 DFAD 4,043731
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777767 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377767 777777
----------
*032671 DFAD 4,043734
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777757 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377757 777777
----------
*032700 DFAD 4,043737
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777737 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377737 777777
----------
*032707 DFAD 4,043742
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777677 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377677 777777
----------
*032716 DFAD 4,043745
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777577 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377577 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 32
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0349
*032725 DFAD 4,043750
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 777377 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377377 777777
----------
*032734 DFAD 4,043753
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 776777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 376777 777777
----------
*032743 DFAD 4,043756
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 775777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 375777 777777
----------
*032752 DFAD 4,043761
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 773777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 373777 777777
----------
*032761 DFAD 4,043764
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 767777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 367777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 33
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0350
*032770 DFAD 4,043767
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 757777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 357777 777777
----------
*032777 DFAD 4,043772
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 737777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 337777 777777
----------
*033006 DFAD 4,043775
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 677777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 277777 777777
----------
*033015 DFAD 4,044000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 577777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 177777 777777
----------
*033024 DFAD 4,044003
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777777 C(E+1)= 377777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 34
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0351
*033033 DFAD 4,044005
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777776 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777776 C(AC+1)= 377777 777777
----------
*033042 DFAD 4,044007
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777775 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777775 C(AC+1)= 377777 777777
----------
*033051 DFAD 4,044011
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777773 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777773 C(AC+1)= 377777 777777
----------
*033060 DFAD 4,044013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777767 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777767 C(AC+1)= 377777 777777
----------
*033067 DFAD 4,044015
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777757 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777757 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 35
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0352
*033076 DFAD 4,044017
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777737 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777737 C(AC+1)= 377777 777777
----------
*033105 DFAD 4,044021
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777677 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777677 C(AC+1)= 377777 777777
----------
*033114 DFAD 4,044023
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777577 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777577 C(AC+1)= 377777 777777
----------
*033123 DFAD 4,044025
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 777377 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777377 C(AC+1)= 377777 777777
----------
*033132 DFAD 4,044027
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 776777 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 776777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 36
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0353
*033141 DFAD 4,044031
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 775777 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 775777 C(AC+1)= 377777 777777
----------
*033150 DFAD 4,044033
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 773777 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 773777 C(AC+1)= 377777 777777
----------
*033157 DFAD 4,044035
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 767777 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 767777 C(AC+1)= 377777 777777
----------
*033166 DFAD 4,044037
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 757777 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 757777 C(AC+1)= 377777 777777
----------
*033175 DFAD 4,044041
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 737777 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 737777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 37
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0354
*033204 DFAD 4,044043
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 677777 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 677777 C(AC+1)= 377777 777777
----------
*033213 DFAD 4,044045
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 577777 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 577777 C(AC+1)= 377777 777777
----------
*033222 DFAD 4,044047
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000777 377777 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 377777 C(AC+1)= 377777 777777
----------
*033231 DFAD 4,044051
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000776 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 000776 777777 C(AC+1)= 377777 777777
----------
*033240 DFAD 4,044053
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000775 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 000775 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 38
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0355
*033247 DFAD 4,044055
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000773 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 000773 777777 C(AC+1)= 377777 777777
----------
*033256 DFAD 4,044057
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000767 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 000767 777777 C(AC+1)= 377777 777777
----------
*033265 DFAD 4,044061
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000757 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 000757 777777 C(AC+1)= 377777 777777
----------
*033274 DFAD 4,044063
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000737 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 000737 777777 C(AC+1)= 377777 777777
----------
*033303 DFAD 4,044065
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000677 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 000677 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 39
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0356
*033312 DFAD 4,044067
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000577 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 000577 777777 C(AC+1)= 377777 777777
----------
*033321 DFAD 4,044071
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 001377 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777776
----------
*033330 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777776 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777776
----------
*033337 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777775 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777775
----------
*033346 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777773 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777773
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 40
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0357
*033355 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777767 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777767
----------
*033364 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777757 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777757
----------
*033373 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777737 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777737
----------
*033402 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777677 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777677
----------
*033411 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777577 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777577
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 41
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0358
*033420 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777377 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777377
----------
*033427 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 776777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 776777
----------
*033436 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 775777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 775777
----------
*033445 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 773777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 773777
----------
*033454 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 767777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 767777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 42
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0359
*033463 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 757777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 757777
----------
*033472 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 737777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 737777
----------
*033501 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 677777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 677777
----------
*033510 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 577777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 577777
----------
*033517 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 377777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 377777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 43
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0360
*033526 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777776 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377776 777777
----------
*033535 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777775 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377775 777777
----------
*033544 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777773 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377773 777777
----------
*033553 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777767 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377767 777777
----------
*033562 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777757 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377757 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 44
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0361
*033571 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777737 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377737 777777
----------
*033600 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777677 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377677 777777
----------
*033607 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777577 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377577 777777
----------
*033616 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777377 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377377 777777
----------
*033625 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 776777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 376777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 45
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0362
*033634 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 775777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 375777 777777
----------
*033643 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 773777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 373777 777777
----------
*033652 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 767777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 367777 777777
----------
*033661 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 757777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 357777 777777
----------
*033670 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 737777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 337777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 46
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0363
*033677 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 677777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 277777 777777
----------
*033706 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 577777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 177777 777777
----------
*033715 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*033724 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777776 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777776 C(AC+1)= 377777 777777
----------
*033733 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777775 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777775 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 47
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0364
*033742 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777773 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777773 C(AC+1)= 377777 777777
----------
*033751 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777767 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777767 C(AC+1)= 377777 777777
----------
*033760 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777757 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777757 C(AC+1)= 377777 777777
----------
*033767 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777737 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777737 C(AC+1)= 377777 777777
----------
*033776 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777677 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777677 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 48
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0365
*034005 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777577 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777577 C(AC+1)= 377777 777777
----------
*034014 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777377 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777377 C(AC+1)= 377777 777777
----------
*034023 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 776777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 776777 C(AC+1)= 377777 777777
----------
*034032 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 775777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 775777 C(AC+1)= 377777 777777
----------
*034041 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 773777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 773777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 49
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0366
*034050 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 767777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 767777 C(AC+1)= 377777 777777
----------
*034057 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 757777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 757777 C(AC+1)= 377777 777777
----------
*034066 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 737777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 737777 C(AC+1)= 377777 777777
----------
*034075 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 677777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 677777 C(AC+1)= 377777 777777
----------
*034104 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 577777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 577777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 50
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0367
*034113 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 377777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 377777 C(AC+1)= 377777 777777
----------
*034122 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000776 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000776 777777 C(AC+1)= 377777 777777
----------
*034131 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000775 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000775 777777 C(AC+1)= 377777 777777
----------
*034140 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000773 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000773 777777 C(AC+1)= 377777 777777
----------
*034147 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000767 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000767 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 51
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0368
*034156 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000757 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000757 777777 C(AC+1)= 377777 777777
----------
*034165 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000737 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000737 777777 C(AC+1)= 377777 777777
----------
*034174 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000677 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000677 777777 C(AC+1)= 377777 777777
----------
*034203 DFAD 4,043330
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000577 777777 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000577 777777 C(AC+1)= 377777 777777
----------
*034212 DFAD 4,044071
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 001377 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777776
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 52
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0369
*034221 DFAD 4,044073
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777776 C(E)= 000000 000000 C(E+1)= 000000 000001
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034230 DFAD 4,044075
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777775 C(E)= 000000 000000 C(E+1)= 000000 000002
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034237 DFAD 4,044077
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777773 C(E)= 000000 000000 C(E+1)= 000000 000004
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034246 DFAD 4,044101
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777767 C(E)= 000000 000000 C(E+1)= 000000 000010
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034255 DFAD 4,044103
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777757 C(E)= 000000 000000 C(E+1)= 000000 000020
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 53
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0370
*034264 DFAD 4,044105
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777737 C(E)= 000000 000000 C(E+1)= 000000 000040
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034273 DFAD 4,044107
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777677 C(E)= 000000 000000 C(E+1)= 000000 000100
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034302 DFAD 4,044111
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777577 C(E)= 000000 000000 C(E+1)= 000000 000200
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034311 DFAD 4,044113
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777377 C(E)= 000000 000000 C(E+1)= 000000 000400
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034320 DFAD 4,044115
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 776777 C(E)= 000000 000000 C(E+1)= 000000 001000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 54
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0371
*034327 DFAD 4,044117
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 775777 C(E)= 000000 000000 C(E+1)= 000000 002000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034336 DFAD 4,044121
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 773777 C(E)= 000000 000000 C(E+1)= 000000 004000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034345 DFAD 4,044123
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 767777 C(E)= 000000 000000 C(E+1)= 000000 010000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034354 DFAD 4,044125
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 757777 C(E)= 000000 000000 C(E+1)= 000000 020000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034363 DFAD 4,044127
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 737777 C(E)= 000000 000000 C(E+1)= 000000 040000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 55
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0372
*034372 DFAD 4,044131
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 677777 C(E)= 000000 000000 C(E+1)= 000000 100000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034401 DFAD 4,044133
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 577777 C(E)= 000000 000000 C(E+1)= 000000 200000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034410 DFAD 4,044135
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 377777 C(E)= 000000 000000 C(E+1)= 000000 400000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034417 DFAD 4,044137
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777776 777777 C(E)= 000000 000000 C(E+1)= 000001 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034426 DFAD 4,044141
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777775 777777 C(E)= 000000 000000 C(E+1)= 000002 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 56
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0373
*034435 DFAD 4,044143
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777773 777777 C(E)= 000000 000000 C(E+1)= 000004 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034444 DFAD 4,044145
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777767 777777 C(E)= 000000 000000 C(E+1)= 000010 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034453 DFAD 4,044147
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777757 777777 C(E)= 000000 000000 C(E+1)= 000020 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034462 DFAD 4,044151
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777737 777777 C(E)= 000000 000000 C(E+1)= 000040 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034471 DFAD 4,044153
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777677 777777 C(E)= 000000 000000 C(E+1)= 000100 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 57
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0374
*034500 DFAD 4,044155
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777577 777777 C(E)= 000000 000000 C(E+1)= 000200 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034507 DFAD 4,044157
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777377 777777 C(E)= 000000 000000 C(E+1)= 000400 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034516 DFAD 4,044161
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 776777 777777 C(E)= 000000 000000 C(E+1)= 001000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034525 DFAD 4,044163
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 775777 777777 C(E)= 000000 000000 C(E+1)= 002000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034534 DFAD 4,044165
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 773777 777777 C(E)= 000000 000000 C(E+1)= 004000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 58
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0375
*034543 DFAD 4,044167
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 767777 777777 C(E)= 000000 000000 C(E+1)= 010000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034552 DFAD 4,044171
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 757777 777777 C(E)= 000000 000000 C(E+1)= 020000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034561 DFAD 4,044173
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 737777 777777 C(E)= 000000 000000 C(E+1)= 040000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034570 DFAD 4,044175
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 677777 777777 C(E)= 000000 000000 C(E+1)= 100000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034577 DFAD 4,043331
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 577777 777777 C(E)= 000000 000000 C(E+1)= 200000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 59
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0376
*034606 DFAD 4,044177
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777 C(E)= 000000 000000 C(E+1)= 400000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034615 DFAD 4,044074
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777776 C(AC+1)= 777777 777777 C(E)= 000000 000001 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034624 DFAD 4,044076
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777775 C(AC+1)= 777777 777777 C(E)= 000000 000002 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034633 DFAD 4,044100
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777773 C(AC+1)= 777777 777777 C(E)= 000000 000004 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034642 DFAD 4,044102
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777767 C(AC+1)= 777777 777777 C(E)= 000000 000010 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 60
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0377
*034651 DFAD 4,044104
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777757 C(AC+1)= 777777 777777 C(E)= 000000 000020 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034660 DFAD 4,044106
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777737 C(AC+1)= 777777 777777 C(E)= 000000 000040 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034667 DFAD 4,044110
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777677 C(AC+1)= 777777 777777 C(E)= 000000 000100 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034676 DFAD 4,044112
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777577 C(AC+1)= 777777 777777 C(E)= 000000 000200 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034705 DFAD 4,044114
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777377 C(AC+1)= 777777 777777 C(E)= 000000 000400 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 61
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0378
*034714 DFAD 4,044116
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 776777 C(AC+1)= 777777 777777 C(E)= 000000 001000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034723 DFAD 4,044120
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 775777 C(AC+1)= 777777 777777 C(E)= 000000 002000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034732 DFAD 4,044122
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 773777 C(AC+1)= 777777 777777 C(E)= 000000 004000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034741 DFAD 4,044124
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 767777 C(AC+1)= 777777 777777 C(E)= 000000 010000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034750 DFAD 4,044126
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 757777 C(AC+1)= 777777 777777 C(E)= 000000 020000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 62
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0379
*034757 DFAD 4,044130
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 737777 C(AC+1)= 777777 777777 C(E)= 000000 040000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034766 DFAD 4,044132
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 677777 C(AC+1)= 777777 777777 C(E)= 000000 100000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*034775 DFAD 4,044134
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 577777 C(AC+1)= 777777 777777 C(E)= 000000 200000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035004 DFAD 4,044136
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 377777 C(AC+1)= 777777 777777 C(E)= 000000 400000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035013 DFAD 4,044140
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000776 777777 C(AC+1)= 777777 777777 C(E)= 000001 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 63
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0380
*035022 DFAD 4,044142
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000775 777777 C(AC+1)= 777777 777777 C(E)= 000002 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035031 DFAD 4,044144
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000773 777777 C(AC+1)= 777777 777777 C(E)= 000004 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035040 DFAD 4,044146
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000767 777777 C(AC+1)= 777777 777777 C(E)= 000010 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035047 DFAD 4,044150
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000757 777777 C(AC+1)= 777777 777777 C(E)= 000020 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035056 DFAD 4,044152
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000737 777777 C(AC+1)= 777777 777777 C(E)= 000040 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 64
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0381
*035065 DFAD 4,044154
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000677 777777 C(AC+1)= 777777 777777 C(E)= 000100 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035074 DFAD 4,044156
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000577 777777 C(AC+1)= 777777 777777 C(E)= 000200 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035103 DFAD 4,044160
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000377 777777 C(AC+1)= 777777 777777 C(E)= 000400 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035112 DFAD 4,043632
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000001 C(E)= 000777 777777 C(E+1)= 777777 777776
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035121 DFAD 4,043635
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000002 C(E)= 000777 777777 C(E+1)= 777777 777775
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 65
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0382
*035130 DFAD 4,043640
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000004 C(E)= 000777 777777 C(E+1)= 777777 777773
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035137 DFAD 4,043643
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000010 C(E)= 000777 777777 C(E+1)= 777777 777767
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035146 DFAD 4,043646
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000020 C(E)= 000777 777777 C(E+1)= 777777 777757
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035155 DFAD 4,043651
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000040 C(E)= 000777 777777 C(E+1)= 777777 777737
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035164 DFAD 4,043654
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000100 C(E)= 000777 777777 C(E+1)= 777777 777677
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 66
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0383
*035173 DFAD 4,043657
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000200 C(E)= 000777 777777 C(E+1)= 777777 777577
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035202 DFAD 4,043662
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000400 C(E)= 000777 777777 C(E+1)= 777777 777377
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035211 DFAD 4,043665
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 001000 C(E)= 000777 777777 C(E+1)= 777777 776777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035220 DFAD 4,043670
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 002000 C(E)= 000777 777777 C(E+1)= 777777 775777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035227 DFAD 4,043673
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 004000 C(E)= 000777 777777 C(E+1)= 777777 773777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 67
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0384
*035236 DFAD 4,043676
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 010000 C(E)= 000777 777777 C(E+1)= 777777 767777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035245 DFAD 4,043701
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 020000 C(E)= 000777 777777 C(E+1)= 777777 757777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035254 DFAD 4,043704
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 040000 C(E)= 000777 777777 C(E+1)= 777777 737777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035263 DFAD 4,043707
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 100000 C(E)= 000777 777777 C(E+1)= 777777 677777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035272 DFAD 4,043712
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 200000 C(E)= 000777 777777 C(E+1)= 777777 577777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 68
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0385
*035301 DFAD 4,043715
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 400000 C(E)= 000777 777777 C(E+1)= 777777 377777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035310 DFAD 4,043720
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000001 000000 C(E)= 000777 777777 C(E+1)= 777776 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035317 DFAD 4,043723
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000002 000000 C(E)= 000777 777777 C(E+1)= 777775 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035326 DFAD 4,043726
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000004 000000 C(E)= 000777 777777 C(E+1)= 777773 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035335 DFAD 4,043731
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000010 000000 C(E)= 000777 777777 C(E+1)= 777767 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 69
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0386
*035344 DFAD 4,043734
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000020 000000 C(E)= 000777 777777 C(E+1)= 777757 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035353 DFAD 4,043737
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000040 000000 C(E)= 000777 777777 C(E+1)= 777737 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035362 DFAD 4,043742
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000100 000000 C(E)= 000777 777777 C(E+1)= 777677 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035371 DFAD 4,043745
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000200 000000 C(E)= 000777 777777 C(E+1)= 777577 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035400 DFAD 4,043750
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000400 000000 C(E)= 000777 777777 C(E+1)= 777377 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 70
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0387
*035407 DFAD 4,043753
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 001000 000000 C(E)= 000777 777777 C(E+1)= 776777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035416 DFAD 4,043756
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 002000 000000 C(E)= 000777 777777 C(E+1)= 775777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035425 DFAD 4,043761
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 004000 000000 C(E)= 000777 777777 C(E+1)= 773777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035434 DFAD 4,043764
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 010000 000000 C(E)= 000777 777777 C(E+1)= 767777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035443 DFAD 4,043767
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 020000 000000 C(E)= 000777 777777 C(E+1)= 757777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 71
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0388
*035452 DFAD 4,043772
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 040000 000000 C(E)= 000777 777777 C(E+1)= 737777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035461 DFAD 4,043775
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 100000 000000 C(E)= 000777 777777 C(E+1)= 677777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035470 DFAD 4,044000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 200000 000000 C(E)= 000777 777777 C(E+1)= 577777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035477 DFAD 4,044003
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 400000 000000 C(E)= 000777 777777 C(E+1)= 377777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035506 DFAD 4,044005
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 000777 777776 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 72
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0389
*035515 DFAD 4,044007
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000002 C(AC+1)= 000000 000000 C(E)= 000777 777775 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035524 DFAD 4,044011
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000004 C(AC+1)= 000000 000000 C(E)= 000777 777773 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035533 DFAD 4,044013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000010 C(AC+1)= 000000 000000 C(E)= 000777 777767 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035542 DFAD 4,044015
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000020 C(AC+1)= 000000 000000 C(E)= 000777 777757 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035551 DFAD 4,044017
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000040 C(AC+1)= 000000 000000 C(E)= 000777 777737 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 73
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0390
*035560 DFAD 4,044021
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000100 C(AC+1)= 000000 000000 C(E)= 000777 777677 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035567 DFAD 4,044023
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000200 C(AC+1)= 000000 000000 C(E)= 000777 777577 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035576 DFAD 4,044025
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000400 C(AC+1)= 000000 000000 C(E)= 000777 777377 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035605 DFAD 4,044027
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 001000 C(AC+1)= 000000 000000 C(E)= 000777 776777 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035614 DFAD 4,044031
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 002000 C(AC+1)= 000000 000000 C(E)= 000777 775777 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 74
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0391
*035623 DFAD 4,044033
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 004000 C(AC+1)= 000000 000000 C(E)= 000777 773777 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035632 DFAD 4,044035
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 010000 C(AC+1)= 000000 000000 C(E)= 000777 767777 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035641 DFAD 4,044037
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 020000 C(AC+1)= 000000 000000 C(E)= 000777 757777 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035650 DFAD 4,044041
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 040000 C(AC+1)= 000000 000000 C(E)= 000777 737777 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035657 DFAD 4,044043
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 100000 C(AC+1)= 000000 000000 C(E)= 000777 677777 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 75
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0392
*035666 DFAD 4,044045
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 200000 C(AC+1)= 000000 000000 C(E)= 000777 577777 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035675 DFAD 4,044047
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 400000 C(AC+1)= 000000 000000 C(E)= 000777 377777 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035704 DFAD 4,044051
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000001 000000 C(AC+1)= 000000 000000 C(E)= 000776 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035713 DFAD 4,044053
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000002 000000 C(AC+1)= 000000 000000 C(E)= 000775 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035722 DFAD 4,044055
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000004 000000 C(AC+1)= 000000 000000 C(E)= 000773 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 76
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0393
*035731 DFAD 4,044057
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000010 000000 C(AC+1)= 000000 000000 C(E)= 000767 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035740 DFAD 4,044061
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000020 000000 C(AC+1)= 000000 000000 C(E)= 000757 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035747 DFAD 4,044063
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000040 000000 C(AC+1)= 000000 000000 C(E)= 000737 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035756 DFAD 4,044065
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000100 000000 C(AC+1)= 000000 000000 C(E)= 000677 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*035765 DFAD 4,044067
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000200 000000 C(AC+1)= 000000 000000 C(E)= 000577 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 77
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0394
*035774 DFAD 4,044201
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000400 000000 C(AC+1)= 000000 000000 C(E)= 000377 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777
----------
*036003 DFAD 4,043624
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 000001
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 000000
----------
*036012 DFAD 4,043621
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 000002
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 000001
----------
*036021 DFAD 4,043616
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 000004
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 000002
----------
*036030 DFAD 4,043613
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 000010
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 000004
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 78
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0395
*036037 DFAD 4,043610
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 000020
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 000010
----------
*036046 DFAD 4,043605
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 000040
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 000020
----------
*036055 DFAD 4,043602
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 000100
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 000040
----------
*036064 DFAD 4,043577
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 000200
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 000100
----------
*036073 DFAD 4,043574
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 000400
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 000200
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 79
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0396
*036102 DFAD 4,043571
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 001000
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 000400
----------
*036111 DFAD 4,043566
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 002000
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 001000
----------
*036120 DFAD 4,043563
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 004000
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 002000
----------
*036127 DFAD 4,043560
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 010000
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 004000
----------
*036136 DFAD 4,043555
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 020000
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 010000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 80
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0397
*036145 DFAD 4,043552
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 040000
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 020000
----------
*036154 DFAD 4,043547
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 100000
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 040000
----------
*036163 DFAD 4,043544
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 200000
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 100000
----------
*036172 DFAD 4,043541
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000000 400000
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 200000
----------
*036201 DFAD 4,043536
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000001 000000
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 400000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 81
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0398
*036210 DFAD 4,043533
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000002 000000
FINAL
C(AC)= 201400 000000 C(AC+1)= 000001 000000
----------
*036217 DFAD 4,043530
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000004 000000
FINAL
C(AC)= 201400 000000 C(AC+1)= 000002 000000
----------
*036226 DFAD 4,043525
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000010 000000
FINAL
C(AC)= 201400 000000 C(AC+1)= 000004 000000
----------
*036235 DFAD 4,043522
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000020 000000
FINAL
C(AC)= 201400 000000 C(AC+1)= 000010 000000
----------
*036244 DFAD 4,043517
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000040 000000
FINAL
C(AC)= 201400 000000 C(AC+1)= 000020 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 82
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0399
*036253 DFAD 4,043514
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000100 000000
FINAL
C(AC)= 201400 000000 C(AC+1)= 000040 000000
----------
*036262 DFAD 4,043511
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000200 000000
FINAL
C(AC)= 201400 000000 C(AC+1)= 000100 000000
----------
*036271 DFAD 4,043506
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 000400 000000
FINAL
C(AC)= 201400 000000 C(AC+1)= 000200 000000
----------
*036300 DFAD 4,043503
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 001000 000000
FINAL
C(AC)= 201400 000000 C(AC+1)= 000400 000000
----------
*036307 DFAD 4,043500
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 002000 000000
FINAL
C(AC)= 201400 000000 C(AC+1)= 001000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 83
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0400
*036316 DFAD 4,043475
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 004000 000000
FINAL
C(AC)= 201400 000000 C(AC+1)= 002000 000000
----------
*036325 DFAD 4,043472
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 010000 000000
FINAL
C(AC)= 201400 000000 C(AC+1)= 004000 000000
----------
*036334 DFAD 4,043467
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 020000 000000
FINAL
C(AC)= 201400 000000 C(AC+1)= 010000 000000
----------
*036343 DFAD 4,043464
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 040000 000000
FINAL
C(AC)= 201400 000000 C(AC+1)= 020000 000000
----------
*036352 DFAD 4,043461
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 100000 000000
FINAL
C(AC)= 201400 000000 C(AC+1)= 040000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 84
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0401
*036361 DFAD 4,043456
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 200000 000000
FINAL
C(AC)= 201400 000000 C(AC+1)= 100000 000000
----------
*036370 DFAD 4,043454
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000000 C(E+1)= 400000 000000
FINAL
C(AC)= 200777 777777 C(AC+1)= 377777 777777
----------
*036377 DFAD 4,043451
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000001 C(E+1)= 000000 000000
FINAL
C(AC)= 201400 000000 C(AC+1)= 200000 000000
----------
*036406 DFAD 4,043446
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000002 C(E+1)= 000000 000000
FINAL
C(AC)= 201400 000001 C(AC+1)= 000000 000000
----------
*036415 DFAD 4,043443
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000004 C(E+1)= 000000 000000
FINAL
C(AC)= 201400 000002 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 85
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0402
*036424 DFAD 4,043440
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000010 C(E+1)= 000000 000000
FINAL
C(AC)= 201400 000004 C(AC+1)= 000000 000000
----------
*036433 DFAD 4,043435
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000020 C(E+1)= 000000 000000
FINAL
C(AC)= 201400 000010 C(AC+1)= 000000 000000
----------
*036442 DFAD 4,043432
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000040 C(E+1)= 000000 000000
FINAL
C(AC)= 201400 000020 C(AC+1)= 000000 000000
----------
*036451 DFAD 4,043427
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000100 C(E+1)= 000000 000000
FINAL
C(AC)= 201400 000040 C(AC+1)= 000000 000000
----------
*036460 DFAD 4,043424
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000200 C(E+1)= 000000 000000
FINAL
C(AC)= 201400 000100 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 86
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0403
*036467 DFAD 4,043421
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 000400 C(E+1)= 000000 000000
FINAL
C(AC)= 201400 000200 C(AC+1)= 000000 000000
----------
*036476 DFAD 4,043416
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 001000 C(E+1)= 000000 000000
FINAL
C(AC)= 201400 000400 C(AC+1)= 000000 000000
----------
*036505 DFAD 4,043413
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 002000 C(E+1)= 000000 000000
FINAL
C(AC)= 201400 001000 C(AC+1)= 000000 000000
----------
*036514 DFAD 4,043410
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 004000 C(E+1)= 000000 000000
FINAL
C(AC)= 201400 002000 C(AC+1)= 000000 000000
----------
*036523 DFAD 4,043405
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 010000 C(E+1)= 000000 000000
FINAL
C(AC)= 201400 004000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 87
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0404
*036532 DFAD 4,043402
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 020000 C(E+1)= 000000 000000
FINAL
C(AC)= 201400 010000 C(AC+1)= 000000 000000
----------
*036541 DFAD 4,043377
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 040000 C(E+1)= 000000 000000
FINAL
C(AC)= 201400 020000 C(AC+1)= 000000 000000
----------
*036550 DFAD 4,043374
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 100000 C(E+1)= 000000 000000
FINAL
C(AC)= 201400 040000 C(AC+1)= 000000 000000
----------
*036557 DFAD 4,043371
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 200000 C(E+1)= 000000 000000
FINAL
C(AC)= 201400 100000 C(AC+1)= 000000 000000
----------
*036566 DFAD 4,043366
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200000 400000 C(E+1)= 000000 000000
FINAL
C(AC)= 201400 200000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 88
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0405
*036575 DFAD 4,043363
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200001 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 201400 400000 C(AC+1)= 000000 000000
----------
*036604 DFAD 4,043360
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200002 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 201401 000000 C(AC+1)= 000000 000000
----------
*036613 DFAD 4,043355
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200004 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 201402 000000 C(AC+1)= 000000 000000
----------
*036622 DFAD 4,043352
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200010 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 201404 000000 C(AC+1)= 000000 000000
----------
*036631 DFAD 4,043347
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200020 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 201410 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 89
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0406
*036640 DFAD 4,043344
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200040 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 201420 000000 C(AC+1)= 000000 000000
----------
*036647 DFAD 4,043341
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200100 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 201440 000000 C(AC+1)= 000000 000000
----------
*036656 DFAD 4,043336
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200200 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 201500 000000 C(AC+1)= 000000 000000
----------
*036665 DFAD 4,043334
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200400 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 201600 000000 C(AC+1)= 000000 000000
----------
*036674 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000001 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 90
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0407
*036703 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000002 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 000001
----------
*036712 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000004 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 000002
----------
*036721 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000010 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 000004
----------
*036730 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000020 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 000010
----------
*036737 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000040 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 000020
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 91
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0408
*036746 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000100 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 000040
----------
*036755 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000200 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 000100
----------
*036764 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000400 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 000200
----------
*036773 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 001000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 000400
----------
*037002 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 002000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 001000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 92
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0409
*037011 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 004000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 002000
----------
*037020 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 010000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 004000
----------
*037027 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 020000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 010000
----------
*037036 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 040000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 020000
----------
*037045 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 100000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 040000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 93
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0410
*037054 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 200000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 100000
----------
*037063 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 400000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 200000
----------
*037072 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000001 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 400000
----------
*037101 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000002 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 000001 000000
----------
*037110 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000004 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 000002 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 94
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0411
*037117 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000010 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 000004 000000
----------
*037126 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000020 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 000010 000000
----------
*037135 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000040 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 000020 000000
----------
*037144 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000100 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 000040 000000
----------
*037153 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000200 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 000100 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 95
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0412
*037162 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000400 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 000200 000000
----------
*037171 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 001000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 000400 000000
----------
*037200 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 002000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 001000 000000
----------
*037207 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 004000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 002000 000000
----------
*037216 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 010000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 004000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 96
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0413
*037225 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 020000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 010000 000000
----------
*037234 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 040000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 020000 000000
----------
*037243 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 100000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 040000 000000
----------
*037252 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 200000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 100000 000000
----------
*037261 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 400000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 200777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 97
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0414
*037270 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000001 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000000 C(AC+1)= 200000 000000
----------
*037277 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000002 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000001 C(AC+1)= 000000 000000
----------
*037306 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000004 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000002 C(AC+1)= 000000 000000
----------
*037315 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000010 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000004 C(AC+1)= 000000 000000
----------
*037324 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000020 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000010 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 98
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0415
*037333 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000040 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000020 C(AC+1)= 000000 000000
----------
*037342 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000100 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000040 C(AC+1)= 000000 000000
----------
*037351 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000200 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000100 C(AC+1)= 000000 000000
----------
*037360 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000400 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000200 C(AC+1)= 000000 000000
----------
*037367 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 001000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 000400 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 99
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0416
*037376 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 002000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 001000 C(AC+1)= 000000 000000
----------
*037405 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 004000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 002000 C(AC+1)= 000000 000000
----------
*037414 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 010000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 004000 C(AC+1)= 000000 000000
----------
*037423 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 020000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 010000 C(AC+1)= 000000 000000
----------
*037432 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 040000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 020000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 100
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0417
*037441 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 100000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 040000 C(AC+1)= 000000 000000
----------
*037450 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 200000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 100000 C(AC+1)= 000000 000000
----------
*037457 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 400000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 200000 C(AC+1)= 000000 000000
----------
*037466 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200001 000000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201400 400000 C(AC+1)= 000000 000000
----------
*037475 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200002 000000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201401 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 101
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0418
*037504 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200004 000000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201402 000000 C(AC+1)= 000000 000000
----------
*037513 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200010 000000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201404 000000 C(AC+1)= 000000 000000
----------
*037522 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200020 000000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201410 000000 C(AC+1)= 000000 000000
----------
*037531 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200040 000000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201420 000000 C(AC+1)= 000000 000000
----------
*037540 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200100 000000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201440 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 102
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0419
*037547 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200200 000000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201500 000000 C(AC+1)= 000000 000000
----------
*037556 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201600 000000 C(AC+1)= 000000 000000
----------
*037565 DFAD 4,044240
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777776
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 777777
----------
*037574 DFAD 4,044243
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777775
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 777776
----------
*037603 DFAD 4,044245
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777773
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 777775
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 103
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0420
*037612 DFAD 4,044247
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777767
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 777773
----------
*037621 DFAD 4,044251
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777757
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 777767
----------
*037630 DFAD 4,044253
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777737
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 777757
----------
*037637 DFAD 4,044255
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777677
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 777737
----------
*037646 DFAD 4,044257
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777577
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 777677
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 104
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0421
*037655 DFAD 4,044261
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777377
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 777577
----------
*037664 DFAD 4,044263
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 776777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 777377
----------
*037673 DFAD 4,044265
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 775777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 776777
----------
*037702 DFAD 4,044267
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 773777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 775777
----------
*037711 DFAD 4,044271
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 767777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 773777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 105
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0422
*037720 DFAD 4,044273
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 757777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 767777
----------
*037727 DFAD 4,044275
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 737777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 757777
----------
*037736 DFAD 4,044277
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 677777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 737777
----------
*037745 DFAD 4,044301
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 577777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 677777
----------
*037754 DFAD 4,044303
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 377777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 577777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 106
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0423
*037763 DFAD 4,044305
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777776 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 377777
----------
*037772 DFAD 4,044307
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777775 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377776 777777
----------
*040001 DFAD 4,044311
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777773 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377775 777777
----------
*040010 DFAD 4,044313
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777767 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377773 777777
----------
*040017 DFAD 4,044315
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777757 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377767 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 107
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0424
*040026 DFAD 4,044317
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777737 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377757 777777
----------
*040035 DFAD 4,044321
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777677 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377737 777777
----------
*040044 DFAD 4,044323
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777577 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377677 777777
----------
*040053 DFAD 4,044325
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777377 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377577 777777
----------
*040062 DFAD 4,044327
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 776777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377377 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 108
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0425
*040071 DFAD 4,044331
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 775777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 376777 777777
----------
*040100 DFAD 4,044333
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 773777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 375777 777777
----------
*040107 DFAD 4,044335
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 767777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 373777 777777
----------
*040116 DFAD 4,044337
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 757777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 367777 777777
----------
*040125 DFAD 4,044341
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 737777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 357777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 109
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0426
*040134 DFAD 4,044343
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 677777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 337777 777777
----------
*040143 DFAD 4,044345
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 577777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 277777 777777
----------
*040152 DFAD 4,044347
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 377777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 777777
----------
*040161 DFAD 4,044351
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777776 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 177777 777777
----------
*040170 DFAD 4,044353
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777775 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777776 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 110
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0427
*040177 DFAD 4,044356
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777773 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777775 C(AC+1)= 377777 777777
----------
*040206 DFAD 4,044361
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777767 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777773 C(AC+1)= 377777 777777
----------
*040215 DFAD 4,044364
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777757 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777767 C(AC+1)= 377777 777777
----------
*040224 DFAD 4,044367
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777737 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777757 C(AC+1)= 377777 777777
----------
*040233 DFAD 4,044372
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777677 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777737 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 111
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0428
*040242 DFAD 4,044375
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777577 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777677 C(AC+1)= 377777 777777
----------
*040251 DFAD 4,044400
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 777377 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777577 C(AC+1)= 377777 777777
----------
*040260 DFAD 4,044403
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 776777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777377 C(AC+1)= 377777 777777
----------
*040267 DFAD 4,044406
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 775777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 776777 C(AC+1)= 377777 777777
----------
*040276 DFAD 4,044411
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 773777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 775777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 112
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0429
*040305 DFAD 4,044414
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 767777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 773777 C(AC+1)= 377777 777777
----------
*040314 DFAD 4,044417
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 757777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 767777 C(AC+1)= 377777 777777
----------
*040323 DFAD 4,044422
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 737777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 757777 C(AC+1)= 377777 777777
----------
*040332 DFAD 4,044425
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 677777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 737777 C(AC+1)= 377777 777777
----------
*040341 DFAD 4,044430
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 577777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 677777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 113
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0430
*040350 DFAD 4,044433
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200777 377777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 577777 C(AC+1)= 377777 777777
----------
*040357 DFAD 4,044436
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200776 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 377777 C(AC+1)= 377777 777777
----------
*040366 DFAD 4,044441
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200775 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201776 777777 C(AC+1)= 377777 777777
----------
*040375 DFAD 4,044444
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200773 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201775 777777 C(AC+1)= 377777 777777
----------
*040404 DFAD 4,044447
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200767 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201773 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 114
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0431
*040413 DFAD 4,044452
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200757 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201767 777777 C(AC+1)= 377777 777777
----------
*040422 DFAD 4,044455
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200737 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201757 777777 C(AC+1)= 377777 777777
----------
*040431 DFAD 4,044460
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200677 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201737 777777 C(AC+1)= 377777 777777
----------
*040440 DFAD 4,044463
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200577 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201677 777777 C(AC+1)= 377777 777777
----------
*040447 DFAD 4,044466
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777777 C(E)= 200377 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201577 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 115
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0432
*040456 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777776 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 777777
----------
*040465 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777775 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 777776
----------
*040474 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777773 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 777775
----------
*040503 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777767 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 777773
----------
*040512 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777757 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 777767
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 116
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0433
*040521 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777737 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 777757
----------
*040530 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777677 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 777737
----------
*040537 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777577 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 777677
----------
*040546 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 777377 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 777577
----------
*040555 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 776777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 777377
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 117
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0434
*040564 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 775777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 776777
----------
*040573 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 773777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 775777
----------
*040602 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 767777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 773777
----------
*040611 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 757777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 767777
----------
*040620 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 737777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 757777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 118
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0435
*040627 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 677777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 737777
----------
*040636 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 577777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 677777
----------
*040645 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777777 377777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 577777
----------
*040654 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777776 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 377777
----------
*040663 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777775 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377776 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 119
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0436
*040672 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777773 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377775 777777
----------
*040701 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777767 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377773 777777
----------
*040710 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777757 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377767 777777
----------
*040717 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777737 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377757 777777
----------
*040726 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777677 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377737 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 120
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0437
*040735 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777577 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377677 777777
----------
*040744 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 777377 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377577 777777
----------
*040753 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 776777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377377 777777
----------
*040762 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 775777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 376777 777777
----------
*040771 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 773777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 375777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 121
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0438
*041000 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 767777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 373777 777777
----------
*041007 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 757777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 367777 777777
----------
*041016 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 737777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 357777 777777
----------
*041025 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 677777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 337777 777777
----------
*041034 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 577777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 277777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 122
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0439
*041043 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(AC+1)= 377777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 377777 777777
----------
*041052 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777776 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777777 C(AC+1)= 177777 777777
----------
*041061 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777775 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777776 C(AC+1)= 377777 777777
----------
*041070 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777773 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777775 C(AC+1)= 377777 777777
----------
*041077 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777767 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777773 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 123
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0440
*041106 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777757 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777767 C(AC+1)= 377777 777777
----------
*041115 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777737 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777757 C(AC+1)= 377777 777777
----------
*041124 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777677 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777737 C(AC+1)= 377777 777777
----------
*041133 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777577 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777677 C(AC+1)= 377777 777777
----------
*041142 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777377 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777577 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 124
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0441
*041151 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 776777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 777377 C(AC+1)= 377777 777777
----------
*041160 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 775777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 776777 C(AC+1)= 377777 777777
----------
*041167 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 773777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 775777 C(AC+1)= 377777 777777
----------
*041176 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 767777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 773777 C(AC+1)= 377777 777777
----------
*041205 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 757777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 767777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 125
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0442
*041214 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 737777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 757777 C(AC+1)= 377777 777777
----------
*041223 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 677777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 737777 C(AC+1)= 377777 777777
----------
*041232 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 577777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 677777 C(AC+1)= 377777 777777
----------
*041241 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 377777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 577777 C(AC+1)= 377777 777777
----------
*041250 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200776 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201777 377777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 126
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0443
*041257 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200775 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201776 777777 C(AC+1)= 377777 777777
----------
*041266 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200773 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201775 777777 C(AC+1)= 377777 777777
----------
*041275 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200767 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201773 777777 C(AC+1)= 377777 777777
----------
*041304 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200757 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201767 777777 C(AC+1)= 377777 777777
----------
*041313 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200737 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201757 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 127
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0444
*041322 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200677 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201737 777777 C(AC+1)= 377777 777777
----------
*041331 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200577 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201677 777777 C(AC+1)= 377777 777777
----------
*041340 DFAD 4,044203
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200377 777777 C(AC+1)= 777777 777777 C(E)= 200777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 201577 777777 C(AC+1)= 377777 777777
----------
*041347 DFAD 4,043624
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000001 C(E)= 200000 000000 C(E+1)= 000000 000001
FINAL
C(AC)= 104400 000000 C(AC+1)= 000000 000000
----------
*041356 DFAD 4,043621
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000002 C(E)= 200000 000000 C(E+1)= 000000 000002
FINAL
C(AC)= 105400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 128
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0445
*041365 DFAD 4,043616
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000004 C(E)= 200000 000000 C(E+1)= 000000 000004
FINAL
C(AC)= 106400 000000 C(AC+1)= 000000 000000
----------
*041374 DFAD 4,043613
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000010 C(E)= 200000 000000 C(E+1)= 000000 000010
FINAL
C(AC)= 107400 000000 C(AC+1)= 000000 000000
----------
*041403 DFAD 4,043610
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000020 C(E)= 200000 000000 C(E+1)= 000000 000020
FINAL
C(AC)= 110400 000000 C(AC+1)= 000000 000000
----------
*041412 DFAD 4,043605
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000040 C(E)= 200000 000000 C(E+1)= 000000 000040
FINAL
C(AC)= 111400 000000 C(AC+1)= 000000 000000
----------
*041421 DFAD 4,043602
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000100 C(E)= 200000 000000 C(E+1)= 000000 000100
FINAL
C(AC)= 112400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 129
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0446
*041430 DFAD 4,043577
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000200 C(E)= 200000 000000 C(E+1)= 000000 000200
FINAL
C(AC)= 113400 000000 C(AC+1)= 000000 000000
----------
*041437 DFAD 4,043574
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000400 C(E)= 200000 000000 C(E+1)= 000000 000400
FINAL
C(AC)= 114400 000000 C(AC+1)= 000000 000000
----------
*041446 DFAD 4,043571
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 001000 C(E)= 200000 000000 C(E+1)= 000000 001000
FINAL
C(AC)= 115400 000000 C(AC+1)= 000000 000000
----------
*041455 DFAD 4,043566
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 002000 C(E)= 200000 000000 C(E+1)= 000000 002000
FINAL
C(AC)= 116400 000000 C(AC+1)= 000000 000000
----------
*041464 DFAD 4,043563
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 004000 C(E)= 200000 000000 C(E+1)= 000000 004000
FINAL
C(AC)= 117400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 130
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0447
*041473 DFAD 4,043560
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 010000 C(E)= 200000 000000 C(E+1)= 000000 010000
FINAL
C(AC)= 120400 000000 C(AC+1)= 000000 000000
----------
*041502 DFAD 4,043555
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 020000 C(E)= 200000 000000 C(E+1)= 000000 020000
FINAL
C(AC)= 121400 000000 C(AC+1)= 000000 000000
----------
*041511 DFAD 4,043552
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 040000 C(E)= 200000 000000 C(E+1)= 000000 040000
FINAL
C(AC)= 122400 000000 C(AC+1)= 000000 000000
----------
*041520 DFAD 4,043547
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 100000 C(E)= 200000 000000 C(E+1)= 000000 100000
FINAL
C(AC)= 123400 000000 C(AC+1)= 000000 000000
----------
*041527 DFAD 4,043544
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 200000 C(E)= 200000 000000 C(E+1)= 000000 200000
FINAL
C(AC)= 124400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 131
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0448
*041536 DFAD 4,043541
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 400000 C(E)= 200000 000000 C(E+1)= 000000 400000
FINAL
C(AC)= 125400 000000 C(AC+1)= 000000 000000
----------
*041545 DFAD 4,043536
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000001 000000 C(E)= 200000 000000 C(E+1)= 000001 000000
FINAL
C(AC)= 126400 000000 C(AC+1)= 000000 000000
----------
*041554 DFAD 4,043533
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000002 000000 C(E)= 200000 000000 C(E+1)= 000002 000000
FINAL
C(AC)= 127400 000000 C(AC+1)= 000000 000000
----------
*041563 DFAD 4,043530
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000004 000000 C(E)= 200000 000000 C(E+1)= 000004 000000
FINAL
C(AC)= 130400 000000 C(AC+1)= 000000 000000
----------
*041572 DFAD 4,043525
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000010 000000 C(E)= 200000 000000 C(E+1)= 000010 000000
FINAL
C(AC)= 131400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 132
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0449
*041601 DFAD 4,043522
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000020 000000 C(E)= 200000 000000 C(E+1)= 000020 000000
FINAL
C(AC)= 132400 000000 C(AC+1)= 000000 000000
----------
*041610 DFAD 4,043517
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000040 000000 C(E)= 200000 000000 C(E+1)= 000040 000000
FINAL
C(AC)= 133400 000000 C(AC+1)= 000000 000000
----------
*041617 DFAD 4,043514
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000100 000000 C(E)= 200000 000000 C(E+1)= 000100 000000
FINAL
C(AC)= 134400 000000 C(AC+1)= 000000 000000
----------
*041626 DFAD 4,043511
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000200 000000 C(E)= 200000 000000 C(E+1)= 000200 000000
FINAL
C(AC)= 135400 000000 C(AC+1)= 000000 000000
----------
*041635 DFAD 4,043506
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000400 000000 C(E)= 200000 000000 C(E+1)= 000400 000000
FINAL
C(AC)= 136400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 133
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0450
*041644 DFAD 4,043503
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 001000 000000 C(E)= 200000 000000 C(E+1)= 001000 000000
FINAL
C(AC)= 137400 000000 C(AC+1)= 000000 000000
----------
*041653 DFAD 4,043500
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 002000 000000 C(E)= 200000 000000 C(E+1)= 002000 000000
FINAL
C(AC)= 140400 000000 C(AC+1)= 000000 000000
----------
*041662 DFAD 4,043475
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 004000 000000 C(E)= 200000 000000 C(E+1)= 004000 000000
FINAL
C(AC)= 141400 000000 C(AC+1)= 000000 000000
----------
*041671 DFAD 4,043472
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 010000 000000 C(E)= 200000 000000 C(E+1)= 010000 000000
FINAL
C(AC)= 142400 000000 C(AC+1)= 000000 000000
----------
*041700 DFAD 4,043467
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 020000 000000 C(E)= 200000 000000 C(E+1)= 020000 000000
FINAL
C(AC)= 143400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 134
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0451
*041707 DFAD 4,043464
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 040000 000000 C(E)= 200000 000000 C(E+1)= 040000 000000
FINAL
C(AC)= 144400 000000 C(AC+1)= 000000 000000
----------
*041716 DFAD 4,043461
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 100000 000000 C(E)= 200000 000000 C(E+1)= 100000 000000
FINAL
C(AC)= 145400 000000 C(AC+1)= 000000 000000
----------
*041725 DFAD 4,043456
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 200000 000000 C(E)= 200000 000000 C(E+1)= 200000 000000
FINAL
C(AC)= 146400 000000 C(AC+1)= 000000 000000
----------
*041734 DFAD 4,043454
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 400000 000000 C(E)= 200000 000000 C(E+1)= 400000 000000
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000
----------
*041743 DFAD 4,043451
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000001 C(AC+1)= 000000 000000 C(E)= 200000 000001 C(E+1)= 000000 000000
FINAL
C(AC)= 147400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 135
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0452
*041752 DFAD 4,043446
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000002 C(AC+1)= 000000 000000 C(E)= 200000 000002 C(E+1)= 000000 000000
FINAL
C(AC)= 150400 000000 C(AC+1)= 000000 000000
----------
*041761 DFAD 4,043443
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000004 C(AC+1)= 000000 000000 C(E)= 200000 000004 C(E+1)= 000000 000000
FINAL
C(AC)= 151400 000000 C(AC+1)= 000000 000000
----------
*041770 DFAD 4,043440
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000010 C(AC+1)= 000000 000000 C(E)= 200000 000010 C(E+1)= 000000 000000
FINAL
C(AC)= 152400 000000 C(AC+1)= 000000 000000
----------
*041777 DFAD 4,043435
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000020 C(AC+1)= 000000 000000 C(E)= 200000 000020 C(E+1)= 000000 000000
FINAL
C(AC)= 153400 000000 C(AC+1)= 000000 000000
----------
*042006 DFAD 4,043432
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000040 C(AC+1)= 000000 000000 C(E)= 200000 000040 C(E+1)= 000000 000000
FINAL
C(AC)= 154400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 136
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0453
*042015 DFAD 4,043427
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000100 C(AC+1)= 000000 000000 C(E)= 200000 000100 C(E+1)= 000000 000000
FINAL
C(AC)= 155400 000000 C(AC+1)= 000000 000000
----------
*042024 DFAD 4,043424
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000200 C(AC+1)= 000000 000000 C(E)= 200000 000200 C(E+1)= 000000 000000
FINAL
C(AC)= 156400 000000 C(AC+1)= 000000 000000
----------
*042033 DFAD 4,043421
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000400 C(AC+1)= 000000 000000 C(E)= 200000 000400 C(E+1)= 000000 000000
FINAL
C(AC)= 157400 000000 C(AC+1)= 000000 000000
----------
*042042 DFAD 4,043416
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 001000 C(AC+1)= 000000 000000 C(E)= 200000 001000 C(E+1)= 000000 000000
FINAL
C(AC)= 160400 000000 C(AC+1)= 000000 000000
----------
*042051 DFAD 4,043413
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 002000 C(AC+1)= 000000 000000 C(E)= 200000 002000 C(E+1)= 000000 000000
FINAL
C(AC)= 161400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 137
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0454
*042060 DFAD 4,043410
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 004000 C(AC+1)= 000000 000000 C(E)= 200000 004000 C(E+1)= 000000 000000
FINAL
C(AC)= 162400 000000 C(AC+1)= 000000 000000
----------
*042067 DFAD 4,043405
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 010000 C(AC+1)= 000000 000000 C(E)= 200000 010000 C(E+1)= 000000 000000
FINAL
C(AC)= 163400 000000 C(AC+1)= 000000 000000
----------
*042076 DFAD 4,043402
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 020000 C(AC+1)= 000000 000000 C(E)= 200000 020000 C(E+1)= 000000 000000
FINAL
C(AC)= 164400 000000 C(AC+1)= 000000 000000
----------
*042105 DFAD 4,043377
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 040000 C(AC+1)= 000000 000000 C(E)= 200000 040000 C(E+1)= 000000 000000
FINAL
C(AC)= 165400 000000 C(AC+1)= 000000 000000
----------
*042114 DFAD 4,043374
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 100000 C(AC+1)= 000000 000000 C(E)= 200000 100000 C(E+1)= 000000 000000
FINAL
C(AC)= 166400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 138
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0455
*042123 DFAD 4,043371
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 200000 C(AC+1)= 000000 000000 C(E)= 200000 200000 C(E+1)= 000000 000000
FINAL
C(AC)= 167400 000000 C(AC+1)= 000000 000000
----------
*042132 DFAD 4,043366
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 400000 C(AC+1)= 000000 000000 C(E)= 200000 400000 C(E+1)= 000000 000000
FINAL
C(AC)= 170400 000000 C(AC+1)= 000000 000000
----------
*042141 DFAD 4,043363
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200001 000000 C(AC+1)= 000000 000000 C(E)= 200001 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 171400 000000 C(AC+1)= 000000 000000
----------
*042150 DFAD 4,043360
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200002 000000 C(AC+1)= 000000 000000 C(E)= 200002 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 172400 000000 C(AC+1)= 000000 000000
----------
*042157 DFAD 4,043355
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200004 000000 C(AC+1)= 000000 000000 C(E)= 200004 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 173400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 139
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0456
*042166 DFAD 4,043352
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200010 000000 C(AC+1)= 000000 000000 C(E)= 200010 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 174400 000000 C(AC+1)= 000000 000000
----------
*042175 DFAD 4,043347
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200020 000000 C(AC+1)= 000000 000000 C(E)= 200020 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 175400 000000 C(AC+1)= 000000 000000
----------
*042204 DFAD 4,043344
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200040 000000 C(AC+1)= 000000 000000 C(E)= 200040 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 176400 000000 C(AC+1)= 000000 000000
----------
*042213 DFAD 4,043341
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200100 000000 C(AC+1)= 000000 000000 C(E)= 200100 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 177400 000000 C(AC+1)= 000000 000000
----------
*042222 DFAD 4,043336
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200200 000000 C(AC+1)= 000000 000000 C(E)= 200200 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 200400 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 140
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0457
*042231 DFAD 4,043334
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200400 000000 C(AC+1)= 000000 000000 C(E)= 200400 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 201400 000000 C(AC+1)= 000000 000000
----------
*042240 DFAD 4,043632
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777776 C(E)= 000777 777777 C(E+1)= 777777 777776
FINAL
C(AC)= 001777 777777 C(AC+1)= 377777 777776
----------
*042247 DFAD 4,043635
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777775 C(E)= 000777 777777 C(E+1)= 777777 777775
FINAL
C(AC)= 001777 777777 C(AC+1)= 377777 777775
----------
*042256 DFAD 4,043640
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777773 C(E)= 000777 777777 C(E+1)= 777777 777773
FINAL
C(AC)= 001777 777777 C(AC+1)= 377777 777773
----------
*042265 DFAD 4,043643
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777767 C(E)= 000777 777777 C(E+1)= 777777 777767
FINAL
C(AC)= 001777 777777 C(AC+1)= 377777 777767
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 141
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0458
*042274 DFAD 4,043646
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777757 C(E)= 000777 777777 C(E+1)= 777777 777757
FINAL
C(AC)= 001777 777777 C(AC+1)= 377777 777757
----------
*042303 DFAD 4,043651
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777737 C(E)= 000777 777777 C(E+1)= 777777 777737
FINAL
C(AC)= 001777 777777 C(AC+1)= 377777 777737
----------
*042312 DFAD 4,043654
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777677 C(E)= 000777 777777 C(E+1)= 777777 777677
FINAL
C(AC)= 001777 777777 C(AC+1)= 377777 777677
----------
*042321 DFAD 4,043657
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777577 C(E)= 000777 777777 C(E+1)= 777777 777577
FINAL
C(AC)= 001777 777777 C(AC+1)= 377777 777577
----------
*042330 DFAD 4,043662
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777377 C(E)= 000777 777777 C(E+1)= 777777 777377
FINAL
C(AC)= 001777 777777 C(AC+1)= 377777 777377
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 142
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0459
*042337 DFAD 4,043665
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 776777 C(E)= 000777 777777 C(E+1)= 777777 776777
FINAL
C(AC)= 001777 777777 C(AC+1)= 377777 776777
----------
*042346 DFAD 4,043670
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 775777 C(E)= 000777 777777 C(E+1)= 777777 775777
FINAL
C(AC)= 001777 777777 C(AC+1)= 377777 775777
----------
*042355 DFAD 4,043673
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 773777 C(E)= 000777 777777 C(E+1)= 777777 773777
FINAL
C(AC)= 001777 777777 C(AC+1)= 377777 773777
----------
*042364 DFAD 4,043676
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 767777 C(E)= 000777 777777 C(E+1)= 777777 767777
FINAL
C(AC)= 001777 777777 C(AC+1)= 377777 767777
----------
*042373 DFAD 4,043701
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 757777 C(E)= 000777 777777 C(E+1)= 777777 757777
FINAL
C(AC)= 001777 777777 C(AC+1)= 377777 757777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 143
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0460
*042402 DFAD 4,043704
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 737777 C(E)= 000777 777777 C(E+1)= 777777 737777
FINAL
C(AC)= 001777 777777 C(AC+1)= 377777 737777
----------
*042411 DFAD 4,043707
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 677777 C(E)= 000777 777777 C(E+1)= 777777 677777
FINAL
C(AC)= 001777 777777 C(AC+1)= 377777 677777
----------
*042420 DFAD 4,043712
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 577777 C(E)= 000777 777777 C(E+1)= 777777 577777
FINAL
C(AC)= 001777 777777 C(AC+1)= 377777 577777
----------
*042427 DFAD 4,043715
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 377777 C(E)= 000777 777777 C(E+1)= 777777 377777
FINAL
C(AC)= 001777 777777 C(AC+1)= 377777 377777
----------
*042436 DFAD 4,043720
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777776 777777 C(E)= 000777 777777 C(E+1)= 777776 777777
FINAL
C(AC)= 001777 777777 C(AC+1)= 377776 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 144
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0461
*042445 DFAD 4,043723
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777775 777777 C(E)= 000777 777777 C(E+1)= 777775 777777
FINAL
C(AC)= 001777 777777 C(AC+1)= 377775 777777
----------
*042454 DFAD 4,043726
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777773 777777 C(E)= 000777 777777 C(E+1)= 777773 777777
FINAL
C(AC)= 001777 777777 C(AC+1)= 377773 777777
----------
*042463 DFAD 4,043731
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777767 777777 C(E)= 000777 777777 C(E+1)= 777767 777777
FINAL
C(AC)= 001777 777777 C(AC+1)= 377767 777777
----------
*042472 DFAD 4,043734
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777757 777777 C(E)= 000777 777777 C(E+1)= 777757 777777
FINAL
C(AC)= 001777 777777 C(AC+1)= 377757 777777
----------
*042501 DFAD 4,043737
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777737 777777 C(E)= 000777 777777 C(E+1)= 777737 777777
FINAL
C(AC)= 001777 777777 C(AC+1)= 377737 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 145
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0462
*042510 DFAD 4,043742
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777677 777777 C(E)= 000777 777777 C(E+1)= 777677 777777
FINAL
C(AC)= 001777 777777 C(AC+1)= 377677 777777
----------
*042517 DFAD 4,043745
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777577 777777 C(E)= 000777 777777 C(E+1)= 777577 777777
FINAL
C(AC)= 001777 777777 C(AC+1)= 377577 777777
----------
*042526 DFAD 4,043750
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777377 777777 C(E)= 000777 777777 C(E+1)= 777377 777777
FINAL
C(AC)= 001777 777777 C(AC+1)= 377377 777777
----------
*042535 DFAD 4,043753
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 776777 777777 C(E)= 000777 777777 C(E+1)= 776777 777777
FINAL
C(AC)= 001777 777777 C(AC+1)= 376777 777777
----------
*042544 DFAD 4,043756
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 775777 777777 C(E)= 000777 777777 C(E+1)= 775777 777777
FINAL
C(AC)= 001777 777777 C(AC+1)= 375777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 146
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0463
*042553 DFAD 4,043761
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 773777 777777 C(E)= 000777 777777 C(E+1)= 773777 777777
FINAL
C(AC)= 001777 777777 C(AC+1)= 373777 777777
----------
*042562 DFAD 4,043764
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 767777 777777 C(E)= 000777 777777 C(E+1)= 767777 777777
FINAL
C(AC)= 001777 777777 C(AC+1)= 367777 777777
----------
*042571 DFAD 4,043767
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 757777 777777 C(E)= 000777 777777 C(E+1)= 757777 777777
FINAL
C(AC)= 001777 777777 C(AC+1)= 357777 777777
----------
*042600 DFAD 4,043772
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 737777 777777 C(E)= 000777 777777 C(E+1)= 737777 777777
FINAL
C(AC)= 001777 777777 C(AC+1)= 337777 777777
----------
*042607 DFAD 4,043775
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 677777 777777 C(E)= 000777 777777 C(E+1)= 677777 777777
FINAL
C(AC)= 001777 777777 C(AC+1)= 277777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 147
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0464
*042616 DFAD 4,044000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 577777 777777 C(E)= 000777 777777 C(E+1)= 577777 777777
FINAL
C(AC)= 001777 777777 C(AC+1)= 177777 777777
----------
*042625 DFAD 4,044003
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 377777 777777 C(E)= 000777 777777 C(E+1)= 377777 777777
FINAL
C(AC)= 001777 777777 C(AC+1)= 377777 777777
----------
*042634 DFAD 4,044005
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777776 C(AC+1)= 777777 777777 C(E)= 000777 777776 C(E+1)= 777777 777777
FINAL
C(AC)= 001777 777776 C(AC+1)= 377777 777777
----------
*042643 DFAD 4,044007
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777775 C(AC+1)= 777777 777777 C(E)= 000777 777775 C(E+1)= 777777 777777
FINAL
C(AC)= 001777 777775 C(AC+1)= 377777 777777
----------
*042652 DFAD 4,044011
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777773 C(AC+1)= 777777 777777 C(E)= 000777 777773 C(E+1)= 777777 777777
FINAL
C(AC)= 001777 777773 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 148
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0465
*042661 DFAD 4,044013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777767 C(AC+1)= 777777 777777 C(E)= 000777 777767 C(E+1)= 777777 777777
FINAL
C(AC)= 001777 777767 C(AC+1)= 377777 777777
----------
*042670 DFAD 4,044015
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777757 C(AC+1)= 777777 777777 C(E)= 000777 777757 C(E+1)= 777777 777777
FINAL
C(AC)= 001777 777757 C(AC+1)= 377777 777777
----------
*042677 DFAD 4,044017
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777737 C(AC+1)= 777777 777777 C(E)= 000777 777737 C(E+1)= 777777 777777
FINAL
C(AC)= 001777 777737 C(AC+1)= 377777 777777
----------
*042706 DFAD 4,044021
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777677 C(AC+1)= 777777 777777 C(E)= 000777 777677 C(E+1)= 777777 777777
FINAL
C(AC)= 001777 777677 C(AC+1)= 377777 777777
----------
*042715 DFAD 4,044023
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777577 C(AC+1)= 777777 777777 C(E)= 000777 777577 C(E+1)= 777777 777777
FINAL
C(AC)= 001777 777577 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 149
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0466
*042724 DFAD 4,044025
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777377 C(AC+1)= 777777 777777 C(E)= 000777 777377 C(E+1)= 777777 777777
FINAL
C(AC)= 001777 777377 C(AC+1)= 377777 777777
----------
*042733 DFAD 4,044027
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 776777 C(AC+1)= 777777 777777 C(E)= 000777 776777 C(E+1)= 777777 777777
FINAL
C(AC)= 001777 776777 C(AC+1)= 377777 777777
----------
*042742 DFAD 4,044031
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 775777 C(AC+1)= 777777 777777 C(E)= 000777 775777 C(E+1)= 777777 777777
FINAL
C(AC)= 001777 775777 C(AC+1)= 377777 777777
----------
*042751 DFAD 4,044033
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 773777 C(AC+1)= 777777 777777 C(E)= 000777 773777 C(E+1)= 777777 777777
FINAL
C(AC)= 001777 773777 C(AC+1)= 377777 777777
----------
*042760 DFAD 4,044035
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 767777 C(AC+1)= 777777 777777 C(E)= 000777 767777 C(E+1)= 777777 777777
FINAL
C(AC)= 001777 767777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 150
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0467
*042767 DFAD 4,044037
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 757777 C(AC+1)= 777777 777777 C(E)= 000777 757777 C(E+1)= 777777 777777
FINAL
C(AC)= 001777 757777 C(AC+1)= 377777 777777
----------
*042776 DFAD 4,044041
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 737777 C(AC+1)= 777777 777777 C(E)= 000777 737777 C(E+1)= 777777 777777
FINAL
C(AC)= 001777 737777 C(AC+1)= 377777 777777
----------
*043005 DFAD 4,044043
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 677777 C(AC+1)= 777777 777777 C(E)= 000777 677777 C(E+1)= 777777 777777
FINAL
C(AC)= 001777 677777 C(AC+1)= 377777 777777
----------
*043014 DFAD 4,044045
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 577777 C(AC+1)= 777777 777777 C(E)= 000777 577777 C(E+1)= 777777 777777
FINAL
C(AC)= 001777 577777 C(AC+1)= 377777 777777
----------
*043023 DFAD 4,044047
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 377777 C(AC+1)= 777777 777777 C(E)= 000777 377777 C(E+1)= 777777 777777
FINAL
C(AC)= 001777 377777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 151
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0468
*043032 DFAD 4,043627
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777777 C(E)= 000777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 001777 777777 C(AC+1)= 377777 777777
----------
*043041 DFAD 4,043627
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777777 C(E)= 000777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 001777 777777 C(AC+1)= 377777 777777
----------
*043050 DFAD 4,043627
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777777 C(E)= 000777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 001777 777777 C(AC+1)= 377777 777777
----------
*043057 DFAD 4,043627
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777777 C(E)= 000777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 001777 777777 C(AC+1)= 377777 777777
----------
*043066 DFAD 4,043627
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777777 C(E)= 000777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 001777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 152
DSKCD 000000 000000 770000 000000 110000 000000 030000 777777 SEQ 0469
*043075 DFAD 4,043627
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777777 C(E)= 000777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 001777 777777 C(AC+1)= 377777 777777
----------
*043104 DFAD 4,043627
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777777 C(E)= 000777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 001777 777777 C(AC+1)= 377777 777777
----------
*043113 DFAD 4,043627
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777777 C(E)= 000777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 001777 777777 C(AC+1)= 377777 777777
----------
*043122 DFAD 4,043627
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777777 C(E)= 000777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 001777 777777 C(AC+1)= 377777 777777
----------
*043131 DFAD 4,043627
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000777 777777 C(AC+1)= 777777 777777 C(E)= 000777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 001777 777777 C(AC+1)= 377777 777777
----------