Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dskca.seq
There are no other files named dskca.seq in the archive.
;DSKCA
IDENTIFICATION
--------------
PRODUCT CODE: AH-E325A-DD
DIAGNOSTIC CODE: DSKCA
PRODUCT NAME: DSKCAA0 DECSYSTEM 2020
ADVANCED INSTRUCTION DIAGNOSTIC (1)
VERSION: 0.1
DATE RELEASED: MARCH 1978
MAINTAINED BY: DIAGNOSTIC ENGINEERING
AUTHOR: JOHN R. KIRCHOFF
COPYRIGHT (C) 1978
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE
TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO
AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE
SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL EQUIPMENT
CORPORATION.
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE
USE OR RELIABILITY OF ITS SOFTWARE IN EQUIPMENT WHICH IS NOT
SUPPLIED BY DIGITAL EQUIPMENT CORPORATION.
MAINDEC-10-DSKCA.TXT
PAGE 2 SEQ 0003
TABLE OF CONTENTS
-----------------
1.0 ABSTRACT
2.0 REQUIREMENTS
2.1 EQUIPMENT
2.2 STORAGE
2.3 PRELIMINARY PROGRAMS
3.0 PROGRAM PROCEDURES
3.1 LOADING PROCEDURE
3.2 STARTING PROCEDURE
3.3 OPERATING PROCEDURE
4.0 DATA SWITCH FUNCTIONS
5.0 ERRORS
6.0 ITERATION COUNTER
7.0 CYCLE TIME
8.0 OPERATIONAL VARIATIONS
9.0 MISCELLANEOUS
10.0 LISTING
MAINDEC-10-DSKCA.TXT
PAGE 3 SEQ 0004
1.0 ABSTRACT
THIS DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC IS THE
FIRST IN A SERIES OF DECSYSTEM 2020 ADVANCED PROCESSOR
DIAGNOSTICS.
THE DIAGNOSTIC PERFORMS LOGIC TESTING OF THE PROCESSOR
AND MICRO-CODE FLOATING SCALE, FLOATING ADD/SUB AND
NORMALIZED RETURN AND ROUND FUNCTIONS.
2.0 REQUIREMENTS
2.1 EQUIPMENT
A DECSYSTEM 2020 EQUIPPED WITH A MINIMUM OF 32K OF MEMORY
CONSOLE PROCESSOR
CONSOLE TELETYPE
LOAD DEVICE
2.2 STORAGE
THE PROGRAM RUNS WITHIN 32K OF MEMORY.
2.3 PRELIMINARY PROGRAMS
PREVIOUS PROCESSOR DIAGNOSTICS
3.0 PROGRAM PROCEDURES
3.1 LOADING PROCEDURE
****** NOTE ******
THIS DIAGNOSTIC REQUIRES THAT THE DECSYSTEM 2020 SUBROUTINE
PROGRAM BE RESIDENT IN THE DECSYSTEM 2020.
FOLLOW THE APPROPRIATE DIAGNOSTIC LOADING PROCEDURES.
MAINDEC-10-DSKCA.TXT
PAGE 4 SEQ 0005
3.2 STARTING PROCEDURE
A. SELECT OPERATIONAL CONSOLE DATA SWITCH SETTINGS (REFER TO
4.0 DATA SWITCH FUNCTIONS).
RUN UNDER "SMMON".
THE FOLLOWING QUESTIONS WILL BE ASKED TO
SELECT THE OPERATIONAL SWITCHES:
TELETYPE SWITCH CONTROL ? 0,S OR Y (CR) -
IF THE OPERATOR TYPES "Y", THE FOLLOWING QUESTIONS
ARE ASKED AND THE OPERATOR RESPONDS BY TYPING
THE ANSWER AS SIX OCTAL DIGITS REPRESENTING
THE DESIRED SWITCH SETTINGS.
SPECIFY LH SWITCHES IN OCTAL-
SPECIFY RH SWITCHES IN OCTAL-
IF THE OPERATOR TYPES "0", ZERO'S ARE USED FOR
THE SWITCH SETTINGS.
IF THE OPERATOR TYPES "S", PREVIOUSLY SET SWITCHES
ARE USED. THIS IS ONLY VALID UPON RESTARTING
OF AN INTERRUPTED PROGRAM.
MAINDEC-10-DSKCA.TXT
PAGE 5 SEQ 0006
3.3 OPERATING PROCEDURE
A. TO THROUGHLY TEST ALL HARDWARE, ALL TEST CONTROL DATA
SWITCHES SHOULD BE SET TO 0.
B. WHEN DEBUGGING HARDWARE, SET SWITCHES TO 0. ALLOW THE
TELETYPE TO PRINT THE ERROR MESSAGES. THIS ALLOWS THE
PROGRAM TO RUN A COMPLETE PASS AND THEN THE ERROR MESSAGES
MAY BE CORRELATED TO QUICKLY DIAGNOSE THE FAILURE. IF A
HARDWARE PROBLEM IS SUCH THAT THE ERROR MESSAGES, AFTER THE
FIRST ONE, HAVE NO MEANING (FIRST ERROR CAUSES ALL FOLLOWING
TESTS TO FAIL) SET THE LOOP ON ERROR SWITCH AND RESTART THE
TEST FROM THE BEGINNING. THE FIRST FAILURE WILL THEN CAUSE
THE PROGRAM TO ENTER A LOOP SUITABLE FOR SCOPING.
THE ERROR MESSAGE USED IN CONJUNCTION WITH THE LISTING AND
SCOPING IF NECESSARY SHOULD ALLOW THE FAILING CONPONENT
TO BE ISOLATED AND REPLACED AND/OR REPAIRED.
C. WHEN TAKING MARGINS, SET DATA SWITCHES 'NOPNT' AND 'DING'.
THIS WILL INHIBIT PRINTOUT BUT WILL ALLOW THE TELETYPE
BELL TO BE RUNG WHEN A ERROR OCCURS. IF THE MARGIN OBTAINED
IS UNACCEPTABLE, THE OPERATOR MAY REVERT TO STANDARD SWITCH
SETTINGS FOR DEBUGGING PURPOSES.
D. ERROR INFORMATION MAY BE OBTAINED QUICKLY BY PRINTING
ERRORS ON THE LINE PRINTER.
E. IN THE EVENT OF A PRINT ROUTINE FAILURE THE 'NOPNT' SWITCH
AND THE 'ERSTOP' SWITCH MAY BE SET TO INHIBIT PRINTOUT
BUT HALT THE PROGRAM POINTING TO THE ERROR.
MAINDEC-10-DSKCA.TXT
PAGE 6 SEQ 0007
4.0 DATA SWITCH FUNCTIONS
SWITCH STATE FUNCTION
------ ----- --------
0 ABORT 0 NORMAL OPERATION
1 ABORT AT END OF PASS
1 RSTART NOT USED
2 TOTALS NOT USED
3 NOPNT 0 NORMAL TYPEOUT
1 INHIBIT ALL PRINT/TYPEOUT
(EXCEPT FORCED)
4 PNTLPT 0 NORMAL OUTPUT TO TTY
1 PRINT ALL DATA ON LPT
(LOGICAL DEVICE, USER MODE)
5 DING 0 NO FUNCTION
1 RING TTY BELL ON ERROR
6 LOOPER 0 PROCEED TO NEXT TEST
1 ENTER SCOPE LOOP ON TEST ERROR
7 ERSTOP 0 NO FUNCTION
1 HALT ON TEST ERROR
8 PALERS 0 PRINT ONLY FIRST ERROR WHEN LOOPING
1 PRINT ALL ERRORS, EVEN IF SAME ERROR
9 RELIAB NOT USED
10 TXTINH 0 PRINT FULL ERROR MESSAGES.
1 INHIBIT COMMENT PORTION OF
ERROR MESSAGES.
11 INHPAG 0 ALLOW PAGING AND TRAP ENABLE
1 INHIBIT PAGING AND TRAPPING
12 MODDVC NOT USED
13 INHCSH 0 ALLOW CACHE USE
1 INHIBIT CACHE
MAINDEC-10-DSKCA.TXT
PAGE 7 SEQ 0008
5.0 ERRORS
ERRORS ARE PRINTED ON THE TTY OR LINE PRINTER. THE ERROR
PRINTOUT CONTAINS THE TEST TITLE, THE PC OF THE FAILURE, ERROR
NUMBER AND THE CONTENTS OF AN APPLICABLE AC.
THE PC VALUE IS USEFUL IN RELATING THE FAILURE TO THE LISTING.
THE ERROR NUMBER IS PROVIDED SUCH THAT AN ERROR DICTIONARY MAY
BE MADE AT SOME FUTURE DATE.
IF AN AUDIO INDICATION OF A CONTINUING ERROR IS DESIRED
THE 'DING' SWITCH MAY BE SET.
6.0 ITERATION COUNTER
THE ITERATION COUNT OF THE PROGRAM IS PRINTED BY THE
CONSOLE PROCESSOR.
7.0 CYCLE TIME
THE CYCLE TIME OF THE PROGRAM IS IN THE MILLISECOND RANGE AND
IS THEREFORE SUITABLE FOR TAKING MARGINS, VIBRATION TESTS,
ETC.
MAINDEC-10-DSKCA.TXT
PAGE 8 SEQ 0009
8.0 OPERATIONAL VARIATIONS
A. DIAGNOSTIC MONITOR
THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PROVIDE
RELIABILITY TESTS, ACCEPTANCE TESTS, AND/OR TO PROVIDE A
QUICK METHOD OF ISOLATION OF A FAULT TO A PARTICULAR AREA
OF THE PROCESSOR. CERTAIN PROCEDURES ARE USED WHEN THE
PROGRAM IS USED IN THIS MANNER. THEY ARE:
1. THE DIAGNOSTIC MONITOR TRANSFERS CONTROL TO THE PROGRAM
AND STARTS IT AT LOCATION 30002.
2. MONCTL - LOCATION 30043 IS USED AS THE DIAGNOSTIC MONITOR
CONTROL WORD.
LH = 0, STAND-ALONE OPERATION
-1, RUNNING UNDER DIAGNOSTIC MONITOR
RH = RIGHT HALF OF CONSOLE SWITCHES IF UNDER
DIAGNOSTIC MONITOR CONTROL.
B. USER MODE
TO OUTPUT THE PRINTED ERROR MESSAGES TO A USER SPECIFIED
DEVICE IN USER MODE, ASSIGN THE DESIRED OUTPUT DEVICE TO
DEVICE NAME 'DEV' AND SET SWITCH 'PNTLPT'. THE PHYSICAL
DEVICE USED CAN BE ANY DEVICE THAT CAN ACCEPT ASCII OUTPUT
FORMAT SUCH AS LPT, DSK, DTA, ETC. THE CORRESPONDING
OUTPUT FILE IS 'DSKCA.LPT'
EXAMPLE DEVICE ASSIGNMENT:
.ASSIGN DSK DEV
IN USER MODE THE PROGRAM WILL MAKE 1000(8) PASSES AND THEN
RETURN TO DIAMON COMMAND MODE.
MAINDEC-10-DSKCA.TXT
PAGE 9 SEQ 0010
8.0 OPERATIONAL VARIATIONS (CON'T)
THE OUTPUT FILE (IF USED) MAY THEN BE LISTED BY USING THE
NORMAL MONITOR COMMANDS (PRINT, LIST, TYPE, PIP, ETC.).
IF THE PROGRAM IS ABORTED BEFORE COMPLETION (BY ^C, ETC.) THE
OUTPUT FILE MAY BE CLOSED BY USING THE MONITOR 'REENTER'
COMMAND.
C. SYSTEM EXERCISER
START ADDRESS IS 30003. DATA SWITCHES ARE PRESTORED IN
'SWTEXR' LOC 30023.
9.0 MISCELLANEOUS
THE NON-EX-MEMORY AND PARITY STOP SWITCHES SHOULD BE RESET
(0). THESE ERRORS, ILLEGAL UUO'S AND OTHER ERRORS OF THIS
TYPE ARE HANDLED BY PRINTOUT ON THE TELETYPE.
10.0 LISTING
HISTORY FILE FOR DSKCA SEQ 0011
----------------------
---------------------------------------------------------------
CODE: MAINDEC-10-DSKCA
TITLE: DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (1)
VERSION: 0.1
DATE: MARCH 1978
REASON: ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10.
---------------------------------------------------------------
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 1
DSKCAT MAC 29-Mar-78 10:58 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0012
1 ;MAINDEC-10-DSKCA
2
3 000000 MCNVER=0
4 000001 DECVER=1
5
6 XLIST
7 LIST
8 LALL
9
10 NAME \MCNVER,\DECVER^
11
12 TITLE DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 ^
13
14 XALL
15
16 ;COPYRIGHT 1978
17 ;DIGITAL EQUIPMENT CORPORATION
18 ;MARLBORO, MASS. 01752
19
20 ;JOHN R. KIRCHOFF
21
22 000137 LOC 137
23 000137 000000 000001 MCNVER,,DECVER
24 NOSYM
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 2
DSKCAT MAC 29-Mar-78 10:58 DIAGNOSTIC PARAMETERS SEQ 0013
25 SUBTTL DIAGNOSTIC PARAMETERS
26
27 ;OPERATOR DEFINITIONS
28
29 001000 000000 OPDEF ER1 [1B8]
30 002000 000000 OPDEF ER2 [2B8]
31 003000 000000 OPDEF ER3 [3B8]
32 004000 000000 OPDEF ER4 [4B8]
33 005000 000000 OPDEF ER5 [5B8]
34 006000 000000 OPDEF ER6 [6B8]
35 007000 000000 OPDEF ER7 [7B8]
36 010000 000000 OPDEF ER10 [10B8]
37 011000 000000 OPDEF ER11 [11B8]
38 012000 000000 OPDEF ER12 [12B8]
39 013000 000000 OPDEF ER13 [13B8]
40
41 036456 LUUO1==ERRMES
42 036456 LUUO2==ERRMES
43 036456 LUUO3==ERRMES
44 036456 LUUO4==ERRMES
45 036456 LUUO5==ERRMES
46 036456 LUUO6==ERRMES
47 036456 LUUO7==ERRMES
48 036456 LUUO10==ERRMES
49 036456 LUUO11==ERRMES
50 036456 LUUO12==ERRMES
51 036456 LUUO13==ERRMES
52
53 ;SUBROUTINE ASSEMBLY DEFINITIONS
54
55 000100 DEBUG=100
56 000001 EXCASB=1
57 000001 USRASB=1
58 000001 PGMEND=1
59 000001 ERDIAG=1
60 000001 EROLD=1
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 3
DSKCAT MAC 29-Mar-78 10:58 DIAGNOSTIC PARAMETERS SEQ 0014
61 ;MACROS
62
63 DEFINE SAVEAC (A,B)<
64 MOVEI AC+2,.
65 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
66 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
67 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION>
68
69 ;BEGIN ASSEMBLY PARAMETERS
70
71 030000 SADR1=BEGIN
72 030076 SADR2=RESRT1
73 030600 SADR3=RENTR1
74 030007 SADR4=SRTDDT
75 030061 SADR5=$BEND2
76 030000 SADR6=BEGIN
77 254200 030000 SADR7=HALT BEGIN
78 254200 030000 SADR8=HALT BEGIN
79 254200 030000 SADR9=HALT BEGIN
80 254200 030000 SADR10=HALT BEGIN
81 254200 030000 SADR11=HALT BEGIN
82
83 000000 PAREA1=0
84 000000 PAREA2=0
85 446353 434100 PAREA3=SIXBIT/DSKCA/
86 546064 000000 PAREA4=SIXBIT/LPT/
87 000000 PAREA5=0
88 000000 PAREA6=0
89
90 000001 ITERAT=1
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 4
DSKCAT MAC 29-Mar-78 10:58 DIAGNOSTIC PARAMETERS SEQ 0015
91 DEFINE DMVE (L,A,B,C,D) <
92 ;THIS MACRO TESTS THE DMOVE INSTRUCTION
93 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
94 ;THEN, THE DATA SPECIFIED BY [XWD A,B] AND [XWD C,D] IS MOVED
95 ;FROM MEMORY TO AC, AC+1 VIA THE DMOVE INSTRUCTION.
96 ;C(AC) AND C(AC+1) ARE THEN COMPARED WITH THE TEST WORDS
97 ;[XWD A,B] AND [XWD C,D], RESPECTIVELY. THE TEST PASSES IF THESE
98 ;COMPARISONS AGREE.
99
100 Q'L'0: MOVE AC+5,[XWD A,B] ;INITIALIZE TEST WORDS
101 MOVE AC+6,[XWD C,D] ;FOR COMPARISON
102 MOVE AC,[XWD 707070,707070]
103 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1
104 DMOVE AC,[XWD A,B ;*MOVE DOUBLE WORD A,B ; C,D
105 XWD C,D] ;FROM MEMORY TO AC, AC+1
106 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
107 ER3 AC,L'1 ;FAIL IF CONTENTS(AC) NOT = A,B
108 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
109 ER4 AC+1,L'2 ;FAIL IF CONTENTS(AC+1) NOT = C,D
110 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH>
111
112
113 DEFINE DMVE17 (L,T,A,B,C,D) <
114 ;THIS MACRO TESTS THE DMOVE INSTRUCTION
115 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
116 ;THEN, THE DATA SPECIFIED BY [XWD A,B] AND [XWD C,D] IS MOVED
117 ;FROM MEMORY TO AC, AC+1 VIA THE DMOVE INSTRUCTION.
118 ;C(AC) AND C(AC+1) ARE THEN COMPARED WITH THE TEST
119 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY.
120 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
121
122 Q'T'0: MOVEM AC,%SV17# ;SAVE AC17
123 Q'L'0: MOVE AC+5,[XWD A,B] ;INITIALIZE TEST WORDS
124 MOVE AC+6,[XWD C,D] ;FOR COMPARISON
125 MOVE AC,[XWD 707070,707070]
126 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1
127 DMOVE AC,[XWD A,B ;*MOVE DOUBLE WORD A,B ; C,D
128 XWD C,D] ;FROM MEMORY TO AC, AC+1
129 Q'T'3: CAMN AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
130 JRST .+4 ;HERE IF NO ERROR
131 MOVEM AC,AC-1 ;STORE INCORRECT RESULTS
132 MOVE AC,%SV17 ;RESTORE P
133 ER3 AC-1,L'1 ;FAIL IF CONTENTS(AC) NOT = A,B
134 CAMN AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
135 JRST .+4 ;HERE IF NO ERROR
136 MOVEM AC+1,AC-1 ;STORE INCORRECT WORD
137 MOVE AC,%SV17 ;RESTORE P
138 ER4 AC-1,L'2
139 MOVE AC,%SV17 ;RESTORE AC UNCONDITIONALLY
140 JUMPL SAC,Q'T'0 ;LOOP ON ERROR SWITCH>
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 5
DSKCAT MAC 29-Mar-78 10:58 DIAGNOSTIC PARAMETERS SEQ 0016
141 DEFINE DMVN (L,A,B,C,D) <
142 ;THIS MACRO TESTS THE DMOVN INSTRUCTION
143 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
144 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
145 ;[XWD A,B] AND [XWD C,D] IS MOVED FROM MEMORY TO AC, AC+1 VIA
146 ;THE DMOVN INSTRUCTION. C(AC) AND C(AC+1) ARE THEN COMPARED
147 ;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST
148 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY.
149 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
150
151 Q'L'0: DMOVE AC,[XWD 707070,707070
152 XWD 070707,070707] ;INITIALIZE AC,AC+1
153 SETCM AC+5,[XWD A,B] ;INITIALIZE TEST WORDS FOR COMPARISON
154 IFIDN <C,D><0,0>,<
155 SETZ AC+6,
156 ADDI AC+5,1 >
157 IFIDN <C,D><400000,0>,<
158 SETZ AC+6,
159 ADDI AC+5,1 >
160 IFDIF <C,D><0,0>,<
161 IFDIF <C,D><400000,0>,<
162 MOVN AC+6,[XWD C,D]
163 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >>
164 DMOVN AC,[XWD A,B ;*MOVE NEGATIVE OF DOUBLE WORD A,B ;
165 XWD C,D] ;C,D FROM MEMORY TO AC, AC+1
166 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
167 ER3 AC,L'1 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF A,B
168 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
169 ER4 AC+1,L'2 ;FAIL IF CONTENTS(AC+1) NOT = MINUS C,D
170 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH>
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 6
DSKCAT MAC 29-Mar-78 10:58 DIAGNOSTIC PARAMETERS SEQ 0017
171 DEFINE DMVN17 (L,A,B,C,D) <
172 ;THIS MACRO TESTS THE DMOVN INSTRUCTION
173 ;FIRST, AC, AC+1 ARE PRELOADED WITH DATA OTHER THAN THE TEST WORDS.
174 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
175 ;[XWD A,B] AND [XWD C,D] IS MOVED FROM MEMORY TO AC, AC+1 VIA
176 ;THE DMOVN INSTRUCTION. C(AC) AND C(AC+1) ARE THEN COMPARED
177 ;WITH THE NEGATIVE (TWOS COMPLEMENT) OF THE TEST
178 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY.
179 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
180
181 Q'L'0: MOVEM AC,%SV17 ;SAVE P
182 DMOVE AC,[XWD 707070,707070
183 XWD 070707,070707] ;INITIALIZE AC,AC+1
184 SETCM AC+5,[XWD A,B] ;INITIALIZE TEST WORDS FOR COMPARISON
185 IFIDN <C,D><0,0>,<
186 SETZ AC+6,
187 ADDI AC+5,1 >
188 IFIDN <C,D><400000,0>,<
189 SETZ AC+6,
190 ADDI AC+5,1 >
191 IFDIF <C,D><0,0>,<
192 IFDIF <C,D><400000,0>,<
193 MOVN AC+6,[XWD C,D]
194 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >>
195 DMOVN AC,[XWD A,B ;*MOVE NEGATIVE OF DOUBLE WORD A,B ;
196 XWD C,D] ;C,D FROM MEMORY TO AC, AC+1
197 CAMN AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
198 JRST .+4 ;HERE IF TESTS OK
199 MOVEM AC,AC-1 ;SAVE BAD WORD
200 MOVE AC,%SV17 ;RESTORE P
201 ER3 AC-1,L'1 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF A,B
202 CAMN AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
203 JRST .+4 ;HERE IF TESTS OK
204 MOVEM AC,AC-1
205 MOVE AC,%SV17 ;RESTORE P
206 ER4 AC+1,L'2 ;FAIL IF CONTENTS(AC+1) NOT = MINUS C,D
207 MOVE AC,%SV17 ;RESTORE P UNCODITIONALLY
208 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH>
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 7
DSKCAT MAC 29-Mar-78 10:58 DIAGNOSTIC PARAMETERS SEQ 0018
209 DEFINE DMVNF (L,A,B,C,D,KSEF,KSUF,KLEF,KLUF) <
210 ;**KS10**
211 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
212 ;OR CARRY FLAGS ON THE KS10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
213 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
214 ;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
215
216 ;**KL10**
217 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
218 ;OR CARRY FLAGS ON THE KL10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
219 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
220 ;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
221
222 Q'L'0: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS
223 DMOVN AC+1,[XWD A,B ;*DMOVN TEST
224 XWD C,D]
225 JSP AC,.+1 ;READ FLAGS
226 Q'L'1: TLZ AC,027777 ;CLEAR EXTRA JUNK
227 TLNE AC,USERF ;IN USER MODE ?
228 JRST Q'L'4 ;YES
229 SKIPN SM10 ;KL10 ?
230 JRST Q'L'3 ;YES
231 ;KS10 EXEC MODE
232 CAME AC,[KSEF,,Q'L'1]
233 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET
234 Q'L'2: JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH
235 JRST Q'L'6
236 ;KL10 EXEC MODE
237 Q'L'3: CAME AC,[KLEF,,Q'L'1]
238 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET
239 JRST Q'L'2
240 ;KL10/KS10 USER MODE
241 Q'L'4: SKIPN SM10 ;KL10 ?
242 JRST Q'L'5 ;YES
243 ;KS10 USER MODE
244 CAME AC,[KSUF,,Q'L'1]
245 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET
246 JRST Q'L'2
247 ;KL10 USER MODE
248 Q'L'5: CAME AC,[KLUF,,Q'L'1]
249 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET
250 JRST Q'L'2
251
252 Q'L'6: JRST .+1>
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 8
DSKCAT MAC 29-Mar-78 10:58 DIAGNOSTIC PARAMETERS SEQ 0019
253 DEFINE DMVM (L,A,B,C,D) <
254 ;THIS MACRO TESTS THE DMOVEM INSTRUCTION
255 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
256 ;TEST WORDS AND AC,AC+1 ARE LOADED WITH THE TEST WORDS.
257 ;THEN, THE DATA SPECIFIED BY [XWD A,B] AND [XWD C,D] IS MOVED
258 ;FROM AC, AC+1 TO MEMORY (TSTWD, TSTWD+1) VIA
259 ;THE DMOVEM INSTRUCTION. C(TSTWD) AND C(TSTWD+1) ARE THEN
260 ;COMPARED WITH THE TEST WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY.
261 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
262
263 Q'L'0: DMOVE AC,[XWD 707070,707070
264 XWD 070707,070707] ;INITIALIZE TEST WORDS
265 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST
266 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM
267 DMOVE AC,[XWD A,B
268 XWD C,D] ;INITIALIZE AC,AC+1
269 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1
270 ;TO MEMORY (TSTWD, TSTWD+1)
271 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON
272 CAME AC,[XWD A,B] ;WAS TSTWD LOADED CORRECTLY?
273 ER5 AC,L'1 ;FAIL IF CONTENTS(TSTWD) NOT = A,B
274 CAME AC+1,[XWD C,D] ;WAS TSTWD+1 LOADED CORRECTLY?
275 ER6 AC+1,L'2 ;FAIL IF CONTENTS(TSTWD+1) NOT = C,D
276 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH>
277
278 DEFINE DMVNM (L,A,B,C,D) <
279 ;THIS MACRO TESTS THE DMOVNM INSTRUCTION
280 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
281 ;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS.
282 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
283 ;[XWD A,B] AND [XWD C,D] IS MOVED FROM AC, AC+1 TO MEMORY
284 ;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION.
285 ;C(TSTWD) AND C(TSTWD+1) ARE THEN COMPARED WITH THE
286 ;NEGATIVE (TWOS COMPLEMENT) OF THE TEST
287 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY.
288 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
289
290 Q'L'0: DMOVE AC,[XWD 707070,707070
291 XWD 070707,070707]
292 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS
293 DMOVE AC,[XWD A,B
294 XWD C,D] ;INITIALIZE AC,AC+1
295 DMOVN AC+5,[XWD A,B
296 XWD C,D] ;SET-UP TO CHECK RESULTS
297 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
298 ;TO MEMORY (TSTWD, TSTWD+1)
299 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1
300 CAME AC,<AC+5>&17 ;WAS TSTWD LOADED CORRECTLY?
301 ER5 AC,L'1 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF A,B
302 CAME AC+1,<AC+6>&17 ;WAS TSTWD+1 LOADED CORRECTLY?
303 ER6 AC+1,L'2 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS C,D
304 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH>
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 9
DSKCAT MAC 29-Mar-78 10:58 DIAGNOSTIC PARAMETERS SEQ 0020
305 DEFINE DMVM17 (L,A,B,C,D) <
306 ;THIS MACRO TESTS THE DMOVEM INSTRUCTION
307 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
308 ;TEST WORDS AND AC,AC+1 ARE LOADED WITH THE TEST WORDS.
309 ;THEN, THE DATA SPECIFIED BY [XWD A,B] AND [XWD C,D] IS MOVED
310 ;FROM AC, AC+1 TO MEMORY (TSTWD, TSTWD+1) VIA THE DMOVEM INSTRUCTION.
311 ;C(TSTWD) AND C(TSTWD+1) ARE THEN COMPARED WITH THE TEST
312 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY.
313 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
314
315 Q'L'0: MOVEM AC,%SV17 ;SAVE AC17 CAUSE IT HAS PDP
316 DMOVE AC,[XWD 707070,707070
317 XWD 070707,070707] ;INITIALIZE TEST WORDS
318 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST
319 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM
320 DMOVE AC,[XWD A,B
321 XWD C,D] ;INITIALIZE AC,AC+1
322 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1
323 ;TO MEMORY (TSTWD, TSTWD+1)
324 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON
325 CAMN AC,[XWD A,B] ;WAS TSTWD LOADED CORRECTLY?
326 JRST .+4 ;HERE IF TESTS OK
327 MOVEM AC,AC-1 ;SAVE BAD WORD
328 MOVE AC,%SV17 ;RESTORE P
329 ER5 AC-1,L'1 ;FAIL IF CONTENTS(TSTWD) NOT = A,B
330 CAMN AC+1,[XWD C,D] ;WAS TSTWD+1 LOADED CORRECTLY?
331 JRST .+4 ;HERE IF TESTS OK
332 MOVEM AC,AC-1 ;SAVE BAD WORD
333 MOVE AC,%SV17 ;RESTORE P
334 ER6 AC+1,L'2 ;FAIL IF CONTENTS(TSTWD+1) NOT = C,D
335 MOVE AC,%SV17 ;RESTORE AC UNCONDITIONALLY
336 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH>
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 10
DSKCAT MAC 29-Mar-78 10:58 DIAGNOSTIC PARAMETERS SEQ 0021
337 DEFINE DMVNM17 (L,A,B,C,D) <
338 ;THIS MACRO TESTS THE DMOVNM INSTRUCTION
339 ;FIRST, TSTWD, TSTWD+1 ARE PRELOADED WITH DATA OTHER THAN THE
340 ;TEST WORDS AND AC, AC+1 ARE LOADED WITH THE TEST WORDS.
341 ;THEN, THE NEGATIVE (TWOS COMPLEMENT) OF THE DATA SPECIFIED BY
342 ;[XWD A,B] AND [XWD C,D] IS MOVED FROM AC, AC+1 TO MEMORY
343 ;(TSTWD, TSTWD+1) VIA THE DMOVNM INSTRUCTION.
344 ;C(TSTWD) AND C(TSTWD+1) ARE THEN COMPARED WITH THE
345 ;NEGATIVE (TWOS COMPLEMENT) OF THE TEST
346 ;WORDS [XWD A,B] AND [XWD C,D], RESPECTIVELY.
347 ;THE TEST PASSES IF THESE COMPARISONS AGREE.
348
349 Q'L'0: DMOVE AC,[XWD 707070,707070
350 XWD 070707,070707]
351 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS
352 DMOVE AC,[XWD A,B
353 XWD C,D] ;INITIALIZE AC,AC+1
354 DMOVN AC+5,[XWD A,B
355 XWD C,D] ;SET-UP TO CHECK RESULTS
356 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
357 ;TO MEMORY (TSTWD, TSTWD+1)
358
359 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1
360 CAMN AC,<AC+5>&17 ;WAS TSTWD LOADED CORRECTLY?
361 JRST .+4
362 MOVEM AC,AC-1 ;SAVE BAD WORD
363 MOVE AC,%SV17 ;RESTORE P
364 ER5 AC-1,L'1 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF A,B
365 CAMN AC+1,<AC+6>&17 ;WAS TSTWD+1 LOADED CORRECTLY?
366 JRST .+4 ;HERE IF TESTS OK
367 MOVEM AC,AC-1 ;SAVE BAD WORD
368 MOVE AC,%SV17
369 ER6 AC+1,L'2 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS C,D
370 MOVE AC,%SV17
371 JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH>
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 11
DSKCAT MAC 29-Mar-78 10:58 DIAGNOSTIC PARAMETERS SEQ 0022
372 DEFINE DMVNMF (L,A,B,C,D,KSEF,KSUF,KLEF,KLUF) <
373 ;**KS10**
374 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
375 ;OR CARRY FLAGS ON THE KS10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
376 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
377 ;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
378
379 ;**KL10**
380 ;THIS MACRO VERIFIES THAT THE DMOVN INSTRUCTION DOES SET OVERFLOW
381 ;OR CARRY FLAGS ON THE KL10. FIRST, OVFL AND CRY0,1 FLAGS ARE CLEARED;
382 ;THEN,DMOVN IS EXECUTED. NEXT, OVFL AND CRY0,1 FLAGS ARE EXAMINED.
383 ;IF THE PROPER FLAGS ARE NOT SET, THE TEST FAILS.
384
385 Q'L'0: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS
386 DMOVE AC,[XWD A,B
387 XWD C,D] ;SETUP INITIAL
388 DMOVNM AC,TSTWD ;*DMOVNM TEST
389 JSP AC,.+1 ;READ FLAGS
390 Q'L'1: TLZ AC,027777 ;CLEAR EXTRA JUNK
391 TLNE AC,USERF ;IN USER MODE ?
392 JRST Q'L'4 ;YES
393 SKIPN SM10 ;KL10 ?
394 JRST Q'L'3 ;YES
395 ;KS10 EXEC MODE
396 CAME AC,[KSEF,,Q'L'1]
397 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET
398 Q'L'2: JUMPL SAC,Q'L'0 ;LOOP ON ERROR SWITCH
399 JRST Q'L'6
400 ;KL10 EXEC MODE
401 Q'L'3: CAME AC,[KLEF,,Q'L'1]
402 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET
403 JRST Q'L'2
404 ;KL10/KS10 USER MODE
405 Q'L'4: SKIPN SM10 ;KL10 ?
406 JRST Q'L'5 ;YES
407 ;KS10 USER MODE
408 CAME AC,[KSUF,,Q'L'1]
409 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET
410 JRST Q'L'2
411 ;KL10 USER MODE
412 Q'L'5: CAME AC,[KLUF,,Q'L'1]
413 ER13 AC,L'1 ;FAIL IF FLAGS NOT SET
414 JRST Q'L'2
415
416 Q'L'6: JRST .+1>
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 12
DSKCAT MAC 29-Mar-78 10:58 DIAGNOSTIC PARAMETERS SEQ 0023
417 DEFINE DFA (T,A,B,C,D,E,F,G,H,I,M,K,L) <
418 R'T'00: DMOVE AC,[A,,B
419 C,,D]
420 DFAD AC,[E,,F
421 G,,H]
422 CAME AC,[I,,M]
423 ER3 AC,T'01
424 CAME AC+1,[K,,L]
425 ER4 AC+1,T'01
426 JUMPL AC+4,R'T'00 ;LOOP ON ERROR SWITCH>
427
428 DEFINE DFS (T,A,B,C,D,E,F,G,H,I,M,K,L) <
429 R'T'00: DMOVE AC,[A,,B
430 C,,D]
431 DFSB AC,[E,,F
432 G,,H]
433 CAME AC,[I,,M]
434 ER3 AC,T'01
435 CAME AC+1,[K,,L]
436 ER4 AC+1,T'01
437 JUMPL AC+4,R'T'00 ;LOOP ON ERROR SWITCH>
438
439 DEFINE DFM (T,A,B,C,D,E,F,G,H,I,M,K,L) <
440 R'T'00: DMOVE AC,[A,,B
441 C,,D]
442 DFMP AC,[E,,F
443 G,,H]
444 CAME AC,[I,,M]
445 ER3 AC,T'01
446 CAME AC+1,[K,,L]
447 ER4 AC+1,T'01
448 JUMPL AC+4,R'T'00 ;LOOP ON ERROR SWITCH>
449
450 DEFINE DFD (T,A,B,C,D,E,F,G,H,I,M,K,L) <
451 R'T'00: DMOVE AC,[A,,B
452 C,,D]
453 DFDV AC,[E,,F
454 G,,H]
455 CAME AC,[I,,M]
456 ER3 AC,T'01
457 CAME AC+1,[K,,L]
458 ER4 AC+1,T'01
459 JUMPL AC+4,R'T'00 ;LOOP ON ERROR SWITCH>
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 13
DSKCAT MAC 29-Mar-78 10:58 DIAGNOSTIC PARAMETERS SEQ 0024
460 DEFINE DFARP (T,A,B,C,D,E,F,G,H,I,M,K,L) <
461 DMOVE AC,[A,,B
462 C,,D]
463 DFAD AC,[E,,F
464 G,,H]
465 CAME AC,[I,,M]
466 ER3 AC,T
467 CAME AC+1,[K,,L]
468 ER4 AC+1,T
469 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH>
470
471 DEFINE SDFA (T,A,B,C,D,E,F,G,H,I,M,K,L) <
472 S'T'00: DMOVE AC,[A,,B
473 C,,D]
474 DFAD AC,[E,,F
475 G,,H]
476 CAME AC,[I,,M]
477 ER3 AC,T'01
478 CAME AC+1,[K,,L]
479 ER4 AC+1,T'01
480 JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH>
481
482 DEFINE SDFS (T,A,B,C,D,E,F,G,H,I,M,K,L) <
483 S'T'00: DMOVE AC,[A,,B
484 C,,D]
485 DFSB AC,[E,,F
486 G,,H]
487 CAME AC,[I,,M]
488 ER3 AC,T'01
489 CAME AC+1,[K,,L]
490 ER4 AC+1,T'01
491 JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH>
492
493 DEFINE SDFM (T,A,B,C,D,E,F,G,H,I,M,K,L) <
494 S'T'00: DMOVE AC,[A,,B
495 C,,D]
496 DFMP AC,[E,,F
497 G,,H]
498 CAME AC,[I,,M]
499 ER3 AC,T'01
500 CAME AC+1,[K,,L]
501 ER4 AC+1,T'01
502 JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH>
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 14
DSKCAT MAC 29-Mar-78 10:58 DIAGNOSTIC PARAMETERS SEQ 0025
503 DEFINE SDFMKL (T,A,B,C,D,E,F,G,H,I,M,K,L,KL1,KL2,KL3,KL4) <
504 S'T'00: DMOVE AC,[A,,B
505 C,,D]
506 DFMP AC,[E,,F
507 G,,H]
508 SKIPE KLFLG
509 JRST S'T'05
510 CAME AC,[I,,M]
511 ER3 AC,T'01
512 CAME AC+1,[K,,L]
513 ER4 AC+1,T'01
514 S'T'06: JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH
515 JRST S'T'07
516
517 S'T'05: CAME AC,[KL1,,KL2]
518 ER3 AC,T'01
519 CAME AC+1,[KL3,,KL4]
520 ER4 AC+1,T'01
521 JRST S'T'06
522
523 S'T'07: JRST .+1 >
524
525 DEFINE SDFD (T,A,B,C,D,E,F,G,H,I,M,K,L) <
526 S'T'00: DMOVE AC,[A,,B
527 C,,D]
528 DFDV AC,[E,,F
529 G,,H]
530 CAME AC,[I,,M]
531 ER3 AC,T'01
532 CAME AC+1,[K,,L]
533 ER4 AC+1,T'01
534 JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH>
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 15
DSKCAT MAC 29-Mar-78 10:58 DIAGNOSTIC PARAMETERS SEQ 0026
535 DEFINE SDFDKL (T,A,B,C,D,E,F,G,H,I,M,K,L,KL1,KL2,KL3,KL4) <
536 S'T'00: DMOVE AC,[A,,B
537 C,,D]
538 DFDV AC,[E,,F
539 G,,H]
540 SKIPN SM10
541 JRST S'T'05
542 CAME AC,[I,,M]
543 ER3 AC,T'01
544 CAME AC+1,[K,,L]
545 ER4 AC+1,T'01
546 S'T'06: JUMPL AC+4,S'T'00 ;LOOP ON ERROR SWITCH
547 JRST S'T'07
548
549 S'T'05: CAME AC,[KL1,,KL2]
550 ER3 AC,T'01
551 CAME AC+1,[KL3,,KL4]
552 ER4 AC+1,T'01
553 JRST S'T'06
554
555 S'T'07: JRST .+1 >
556
557 DEFINE SDFARP (T,A,B,C,D,E,F,G,H,I,M,K,L) <
558 DMOVE AC,[A,,B
559 C,,D]
560 DFAD AC,[E,,F
561 G,,H]
562 CAME AC,[I,,M]
563 ER3 AC,T
564 CAME AC+1,[K,,L]
565 ER4 AC+1,T
566 JUMPL AC+4,.-^D6 ;LOOP ON ERROR SWITCH>
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 1
PARAM KSM 28-Mar-78 11:27 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0027
567 SUBTTL CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978
568
569 DEFINE S,<;*********************************************************************>
570
571 S^;*********************************************************************^
572 ;*DATA SWITCHES
573 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
574 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
575 S^;*********************************************************************^
576
577 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION
578 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS
579 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE
580
581 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
582 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
583 010000 DING== 010000 ;RING BELL ON ERROR
584
585 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR
586 002000 ERSTOP==002000 ;HALT ON TEST ERROR
587 001000 PALERS==001000 ;PRINT ALL ERRORS
588
589 000400 RELIAB==000400 ;RELIABILITY MODE
590 000200 TXTINH==000200 ;INHIBIT ERROR TEXT
591 000100 INHPAG==000100 ;INHIBIT PAGING
592
593 000040 MODDVC==000040 ;MODIFY DEVICE CODE
594 000020 INHCSH==000020 ;INHIBIT CACHE
595 000010 OPRSEL==000010 ;OPERATOR SELECTION
596
597 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH
598
599 ;SWITCH 16 RESERVED
600
601 ;SWITCH 17 RESERVED !!!
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 2
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0028
602 SUBTTL PROGRAM/SUBROUTINE PARAMETERS
603
604 S^;*********************************************************************^
605 ;*SPECIAL SUBPROGRAM LINKAGES
606 S^;*********************************************************************^
607
608 027772 FSELNK= 27772 ;FILE SELECT LINK
609 027773 FRDLNK= 27773 ;FILE READ LINK
610 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS
611 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS
612 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS
613 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS
614
615 S^;*********************************************************************^
616 ;*SPECIAL SUBROUTINE FATAL HALTS
617 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
618 S^;*********************************************************************^
619
620 ;ADDRESS TAG REASON
621 ;---------------------
622
623 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION
624 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR
625 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR
626 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT
627 ; 1014 SMBER ;KS-10 INTERRUPT WITHOUT DOORBELL
628 ; 1015 SMCER ;KS-10 CLOCK INTERRUPT WITHOUT FLAG SET
629 ; 1016 CPIERR ;CPU INITIALIZATION ERROR
630 ; 1017 EOPERR ;END OF PROGRAM ERROR
631 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT
632
633 S^;*********************************************************************^
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 3
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0029
634 S^;*********************************************************************^
635 ;OPERATOR DEFINITIONS (NON-UUO'S)
636 S^;*********************************************************************^
637
638 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL
639 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN
640 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST
641 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST
642 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S
643 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT
644 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT
645 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT
646
647 S^;*********************************************************************^
648 ;*SUBROUTINE INITIALIZATION CALL
649 S^;*********************************************************************^
650
651 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION
652
653 S^;*********************************************************************^
654 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
655 S^;*********************************************************************^
656
657 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT
658 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT
659
660 S^;*********************************************************************^
661 ;*TERMINAL INPUT UUO'S
662 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
663 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
664 S^;*********************************************************************^
665
666 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER
667 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y
668 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N
669 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD
670 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD
671 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD
672 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK
673 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK
674 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD
675 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT
676 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 4
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0030
677 ;*TERMINAL OUTPUT UUO'S.
678
679 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD
680 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED
681 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE
682 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED
683 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE
684 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED
685 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE
686 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED
687 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE
688 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED
689 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE
690 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED
691 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER
692 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED
693 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT
694 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED
695 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS
696 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED
697 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS
698 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED
699 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS
700 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED
701 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS
702 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED
703 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS
704 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED
705 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS
706 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED
707 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS
708 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED.
709 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS
710 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED
711 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL
712 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED
713 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6
714 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
715 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S
716 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
717 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S
718 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
719 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S
720 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 5
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0031
721 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME
722 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD
723 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED
724 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE
725 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD
726 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED
727 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
728 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
729 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE
730 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED
731 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
732 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
733 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL
734
735 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE
736
737 DEFINE PMSG (ARG),<
738 PSIXM [SIXBIT\ARG'_\]>
739
740 DEFINE PMSGF (ARG),<
741 PSIXMF [SIXBIT\ARG'_\]>
742
743 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
744 ;* CONSERVES CORE OVER ASCIZ
745
746 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]>
747
748 ;*CONSOLE SWITCH INPUT UUO.
749 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
750 ;* USER MODE.
751
752 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES
753
754 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
755 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
756
757 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - CLOCK
758 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - METER
759
760 ;*KS-10 CACHE OPERATION UUO'S
761
762 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE
763 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH
764 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 6
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0032
765 ;*END OF PASS/PROGRAM UUOS
766
767 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
768 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
769
770 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS
771 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO
772
773 ;*MEMORY MANAGEMENT UUO'S
774 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
775 ;*ADDRESS CONVERSION, ETC...
776
777 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY
778 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY
779 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT
780 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT
781 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK
782 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP
783 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP
784
785 ;*DEVICE CODE MODIFICATION UUO
786 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
787 ;*IOT'S TO A DIFFERENT DEVICE CODE.
788
789 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER
790 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM
791
792 030000 IFNDEF MODDVL,<MODDVL==BEGIN>
793 030000 IFNDEF MODDVU,<MODDVU==BEGIN>
794
795 ;*"DIAMON" FILE SELECTION AND READ UUOS
796
797 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION
798 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA
799 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA
800 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA
801
802 XLIST
803 LIST
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 1
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0033
804 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978
805
806 030000 LOC 30000
807
808 S^;*********************************************************************^
809 ;*PROGRAM STARTING ADDRESSES
810 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
811 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
812 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
813 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
814 S^;*********************************************************************^
815
816 030000 254 00 1 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START
817 030001 254 00 0 00 030617 $START: JRST START ;MODE CHECK STARTING ADDRESS
818
819 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START
820
821 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START
822
823 030004 254 00 0 00 030000 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START
824
825 030005 254 00 0 00 030076 PFSTRT: JRST SADR2 ;POWER FAIL RESTART
826
827 030006 254 00 0 00 030600 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY)
828
829 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT"
830 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START
831
832 030010 254 00 0 00 030622 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE)
833 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE
834 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE
835
836 030013 254200 030000 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS
837 030014 254200 030000 START2: SADR8 ; "
838 030015 254200 030000 START3: SADR9 ; "
839 030016 254200 030000 START4: SADR10 ; "
840 030017 254200 030000 START5: SADR11 ; "
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 2
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0034
841 S^;*********************************************************************^
842 ;*PROGRAM FIXED PARAMETER AREA
843 S^;*********************************************************************^
844
845 030020 446353 434100 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME
846 030021 546064 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION
847 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER
848 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES
849 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS
850 030025 000000 030602 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME
851 030026 000000 000001 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL
852 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT
853 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT
854 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED
855 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED
856 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE
857 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS
858 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER
859 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER
860
861 S^;*********************************************************************^
862 ;*PROGRAM VARIABLE PARAMETER AREA
863 S^;*********************************************************************^
864
865 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG
866 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10
867 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
868 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG
869 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG
870 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10
871 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG
872 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS
873 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT
874 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG
875 030051 000000 000000 TESTPC: 0 ;SUBTEST PC
876 030052 000000 000000 ERRPC: 0 ;ERROR PC
877 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS
878 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME
879 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE
880 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 3
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0035
881 S^;*********************************************************************^
882 ;*SPECIAL PROGRAM DISPATCH ADDRESSES
883 S^;*********************************************************************^
884
885 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS
886 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM
887 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN
888 030062 000000 030061 CNTLC: SADR5 ;CONTROL C XFER ADDRESS
889 030063 000000 030000 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS
890 030064 CPOPJ1: ;SKIP RETURN
891 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO
892 030065 CPOPJ: ;NON-SKIP REGULAR RETURN
893 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN
894 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE
895 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE
896 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX)
897 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE
898 030072 255 00 0 00 000000 $ITRX1: JFCL ; "
899 030073 255 00 0 00 000000 $USRHL: JFCL ; "
900 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE
901 030075 255 00 0 00 000000 $RSRTY: JFCL ; "
902 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX)
903 030077 255 00 0 00 000000 RESRT2: JFCL ; "
904 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE
905 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE
906 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT
907
908 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR)
909 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT
910 030105 000000 000000 0 ;INITED AS (JRST $ITRC1)
911
912 S^;*********************************************************************^
913 ;*PROCESSOR CONTROL STORAGE
914 S^;*********************************************************************^
915
916 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0
917 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI
918 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR
919 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI)
920 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI)
921
922 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO
923 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO
924
925 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS
926 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG
927 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG
928 030120 000000 000000 %COREC: 0 ; " CORRECT DATA
929 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG
930 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA
931 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 4
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0036
932 S^;*********************************************************************^
933 ;*UUO DISPATCH TABLE
934 S^;*********************************************************************^
935 XLIST
936 LIST
937 030124 036456 030070 UUODIS: LUUO1,,$UUOER
938 030125 036456 036456 LUUO3,,LUUO2
939 030126 036456 036456 LUUO5,,LUUO4
940 030127 036456 036456 LUUO7,,LUUO6
941 030130 036456 036456 LUUO11,,LUUO10
942 030131 036456 036456 LUUO13,,LUUO12
943 030132 030070 030070 LUUO15,,LUUO14
944 030133 030070 030070 LUUO17,,LUUO16
945 030134 030070 030070 LUUO21,,LUUO20
946 030135 030070 030070 LUUO23,,LUUO22
947 030136 030070 030070 LUUO25,,LUUO24
948 030137 030070 030070 LUUO27,,LUUO26
949 030140 030070 030070 LUUO31,,LUUO30
950 030141 030070 030070 LUUO33,,LUUO32
951
952 S^;*********************************************************************^
953 ;*MEMORY MANAGMENT STORAGE
954 S^;*********************************************************************^
955
956 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
957 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
958 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.)
959 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY
960 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE
961
962 S^;*********************************************************************^
963 ;*PRINT CONTROL STORAGE
964 S^;*********************************************************************^
965
966 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
967 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE
968 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG
969 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS
970 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL
971 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME
972 030225 000000 000000 $TWCNT: 0 ;TIME WAITED
973 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG
974 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG
975 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE
976 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR
977 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR
978 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER
979 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG
980 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG
981 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG
982 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG
983 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS
984 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 5
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0037
985 S^;*********************************************************************^
986 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
987 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
988 ;* MOVEI NAME
989 ;* PNTA ;OR PNTAF
990 S^;*********************************************************************^
991
992 030242 CRLF: ASCII/
993 030242 015 012 000 000 000 /
994 030243 CRLF2: ASCII/
995
996 030243 015 012 015 012 000 /
997 030244 054 000 000 000 000 COMMA: ASCII/,/
998 030245 056 000 000 000 000 PERIOD: ASCII/./
999 030246 040 000 000 000 000 SPACE: ASCII/ /
1000 030247 011 000 000 000 000 TAB: ASCII/ /
1001 030250 MINUS:
1002 030250 055 000 000 000 000 HYPEN: ASCII/-/
1003 030251 053 000 000 000 000 PLUS: ASCII/+/
1004 030252 052 000 000 000 000 AST: ASCII/*/
1005 030253 100 000 000 000 000 ATSIN: ASCII/@/
1006 030254 050 000 000 000 000 LFP: ASCII/(/
1007 030255 051 000 000 000 000 RTP: ASCII/)/
1008 030256 007 0000000000 BELL: BYTE (7) 007
1009 030257 077 000 000 000 000 QUEST: ASCII/?/
1010 030260 057 000 000 000 000 SLASH: ASCII!/!
1011 030261 044 000 000 000 000 DOLLAR: ASCII/$/
1012 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX
1013 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR
1014 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT
1015
1016 S^;*********************************************************************^
1017 ;*USER MODE OUTPUT FILE INFORMATION
1018 S^;*********************************************************************^
1019
1020 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER
1021 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME
1022 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION
1023 030272 BLOCK 2
1024
1025 S^;*********************************************************************^
1026 ;*DISK UPDATE MODE FILE INFORMATION
1027 S^;*********************************************************************^
1028
1029 030274 $IBUF: BLOCK 3
1030 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/
1031 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/
1032 030301 BLOCK 2
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 6
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0038
1033 S^;*********************************************************************^
1034 ;*PUSHDOWN LIST CONTROL INFORMATION
1035 S^;*********************************************************************^
1036
1037 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST
1038 030304 PLISTS: BLOCK 200
1039 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST
1040
1041 S^;*********************************************************************^
1042 ;*POWER LINE CLOCK FREQUENCY FLAG
1043 S^;*********************************************************************^
1044
1045 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE
1046
1047 S^;*********************************************************************^
1048 ;*KL10 CACHE CONTROL FLAGS
1049 S^;*********************************************************************^
1050
1051 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0
1052 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0
1053
1054 S^;*********************************************************************^
1055 ;*NUMBER INPUT DIGIT FLAG
1056 S^;*********************************************************************^
1057
1058 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED
1059
1060 S^;*********************************************************************^
1061 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
1062 S^;*********************************************************************^
1063
1064 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
1065
1066 S^;*********************************************************************^
1067 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
1068 S^;*********************************************************************^
1069
1070 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO
1071 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO
1072 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
1073
1074 S^;*********************************************************************^
1075 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION
1076 S^;*********************************************************************^
1077
1078 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 7
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0039
1079 S^;*********************************************************************^
1080 ;*USER MODE MONITOR TYPE FLAG
1081 S^;*********************************************************************^
1082
1083 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20
1084
1085 S^;*********************************************************************^
1086 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION
1087 S^;*********************************************************************^
1088
1089 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER
1090
1091 S^;*********************************************************************^
1092 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
1093 S^;*********************************************************************^
1094
1095 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
1096
1097 S^;*********************************************************************^
1098 ;*"SWITCH" CALL USAGE CONTROL
1099 S^;*********************************************************************^
1100
1101 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
1102
1103 S^;*********************************************************************^
1104 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
1105 S^;*********************************************************************^
1106
1107 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
1108 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
1109
1110 S^;*********************************************************************^
1111 ;*SM10 (KS-10) PROCESSOR TYPE FLAG
1112 S^;*********************************************************************^
1113
1114 030524 000000 000000 SM10: 0 ;IF -1 THIS IS AN KS-10
1115
1116 S^;*********************************************************************^
1117 ;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS
1118 S^;*********************************************************************^
1119
1120 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE
1121
1122 S^;*********************************************************************^
1123 ;*SPECIAL FUTURE EXPANSION ROOM
1124 S^;*********************************************************************^
1125
1126 S^;*********************************************************************^
1127 ;*END OF FIXED STORAGE
1128 S^;*********************************************************************^
1129
1130 030577 LOC 30577
1131 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 1
DSKCA1 MAC 29-Mar-78 10:59 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0040
1132 030600 037 05 0 00 000002 RENTR1: DROPDV ;CLOSE LOGICAL OUTPUT FILE
1133 030601 040 00 0 00 036644 CALL [SIXBIT .EXIT.]
1134
1135 030602 PGMNAM: ASCIZ?
1136 030602 015 012 104 105 103 DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1 (DSKCA)
1137 030603 123 131 123 124 105
1138 030604 115 040 062 060 062
1139 030605 060 040 101 104 126
1140 030606 101 116 103 105 104
1141 030607 040 111 116 123 124
1142 030610 122 125 103 124 111
1143 030611 117 116 040 104 111
1144 030612 101 107 116 117 123
1145 030613 124 111 103 040 043
1146 030614 061 040 050 104 123
1147 030615 113 103 101 051 015
1148 030616 012 000 000 000 000 ?
1149 ;INITIALIZE SUBROUTINES
1150
1151 030617 265 00 0 00 030011 START: PGMINT
1152 030620 200 00 0 00 036645 MOVE [ASCIZ/CA/]
1153 030621 202 00 0 00 036565 MOVEM TLET ;INITIALIZE TEST LETTER
1154
1155 030622 254 00 0 00 030623 STARTA: JRST .+1 ;GO PERFORM DIAGNOSTIC
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 2
DSKCA1 MAC 29-Mar-78 10:59 PART I.A - FSC AND NORMALIZE RETURN SEQ 0041
1156 SUBTTL PART I.A - FSC AND NORMALIZE RETURN
1157
1158 ;PART I.A - FSC AND NORMALIZE RETURN
1159 ;FAILURE RESULTS IN A LOSS
1160 ;OF EXPONENT
1161 ;AC=570400000000
1162 ;SCALE=7
1163 ;FINAL AC=777400000000
1164
1165 030623 CA00: LALL
1166
1167 000013 AC=13
1168 SAVEAC (1,1)^
1169 030623 201 15 0 00 030623 MOVEI AC+2,.
1170 030624 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1171 030625 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1172 030626 202 15 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1173
1174 030627 205 11 0 00 777400 O12300: MOVSI AC-2,777400 ;SETUP FOR COMPARISON
1175 030630 205 13 0 00 570400 MOVSI AC,570400 ;SETUP AC
1176 030631 132 13 0 00 000007 FSC AC,7 ;RESCALE
1177 030632 316 13 0 00 000011 CAMN AC,AC-2 ;TEST AC=777400000000
1178 030633 003 13 0 00 012301 ER3 AC,12301
1179 030634 321 15 0 00 030627 JUMPL AC+2,O12300 ;LOOP ON ERROR SWITCH
1180
1181 ;AC=000400000000
1182 ;SCALE=0
1183 ;FAILURE RESULTS IN AN EXPONENT
1184 ;EQUAL TO 376
1185
1186 000012 AC=12
1187 SAVEAC (1,1)^
1188 030635 201 14 0 00 030635 MOVEI AC+2,.
1189 030636 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1190 030637 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1191 030640 202 14 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1192
1193 030641 205 10 0 00 376400 O12400: MOVSI AC-2,376400 ;SETUP FOR COMPARISON
1194 030642 205 12 0 00 000400 MOVSI AC,400 ;SETUP AC
1195 030643 132 12 0 00 000000 FSC AC,0 ;RESCALE
1196 030644 316 12 0 00 000010 CAMN AC,AC-2 ;TEST EXP=376
1197 030645 003 12 0 00 012401 ER3 AC,12401 ;SCAD SC COMP SETUP FAILED
1198 030646 321 14 0 00 030641 JUMPL AC+2,O12400 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 3
DSKCA1 MAC 29-Mar-78 10:59 PART I.A - FSC AND NORMALIZE RETURN SEQ 0042
1199 ;AC=175400000000
1200 ;SCALE=0
1201 ;FAILURE RESULTS IN AN EXPONENT
1202 ;EQUAL TO 002
1203
1204 000011 AC=11
1205 SAVEAC (1,1)^
1206 030647 201 13 0 00 030647 MOVEI AC+2,.
1207 030650 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1208 030651 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1209 030652 202 13 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1210
1211 030653 205 07 0 00 177400 O12500: MOVSI AC-2,177400 ;SETUP FOR COMPARISON
1212 030654 205 11 0 00 175400 MOVSI AC,175400 ;SETUP AC
1213 030655 132 11 0 00 000000 FSC AC,0 ;RESCALE
1214 030656 316 11 0 00 000007 CAMN AC,AC-2 ;TEST EXP=177
1215 030657 003 11 0 00 012501 ER3 AC,12501
1216 030660 321 13 0 00 030653 JUMPL AC+2,O12500 ;LOOP ON ERROR SWITCH
1217
1218 ;AC=000400000000
1219 ;SCALE=0
1220 ;FAILURE OF 1, 2, OR 3 RESULTS IN AN
1221 ;EXPONENT EQUAL TO 377
1222
1223 000010 AC=10
1224 SAVEAC (1,1)^
1225 030661 201 12 0 00 030661 MOVEI AC+2,.
1226 030662 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1227 030663 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1228 030664 202 12 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1229
1230 030665 205 06 0 00 377400 O12600: MOVSI AC-2,377400 ;SETUP FOR COMPARISON
1231 030666 205 10 0 00 000400 MOVSI AC,400 ;SETUP AC
1232 030667 132 10 0 00 000000 FSC AC,0 ;RESCALE
1233 030670 316 10 0 00 000006 CAMN AC,AC-2 ;TEST EXP=377
1234 030671 003 10 0 00 012601 ER3 AC,12601
1235 030672 321 12 0 00 030665 JUMPL AC+2,O12600 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 4
DSKCA1 MAC 29-Mar-78 10:59 PART I.A - FSC AND NORMALIZE RETURN SEQ 0043
1236 ;AC=000400000000
1237 ;SCALE=177
1238 ;FAILURE RESULTS IN AN
1239 ;EXPONENT=0
1240
1241 000007 AC=7
1242 SAVEAC (1,1)^
1243 030673 201 11 0 00 030673 MOVEI AC+2,.
1244 030674 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1245 030675 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1246 030676 202 11 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1247
1248 030677 205 05 0 00 000400 O12700: MOVSI AC-2,400 ;SETUP FOR COMPARISON
1249 030700 205 07 0 00 000400 MOVSI AC,400 ;SETUP AC
1250 030701 132 07 0 00 000177 FSC AC,177 ;RESCALE
1251 030702 316 07 0 00 000005 CAMN AC,AC-2 ;TEST EXP=0
1252 030703 003 07 0 00 012701 ER3 AC,12701
1253 030704 321 11 0 00 030677 JUMPL AC+2,O12700 ;LOOP ON ERROR SWITCH
1254 PAGE
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 4-1
DSKCA1 MAC 29-Mar-78 10:59 PART I.A - FSC AND NORMALIZE RETURN SEQ 0044
1255 ;AC=000400000000
1256 ;SCALE=201,202,204,210,220,240,300
1257 ;FAILURE OF A BIT TO SET RESULTS IN AN
1258 ;EXPONENT EQUAL TO 200
1259
1260 000006 AC=6
1261 SAVEAC (1,1)^
1262 030705 201 10 0 00 030705 MOVEI AC+2,.
1263 030706 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1264 030707 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1265 030710 202 10 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1266
1267 013000 SN=13000
1268 000000 ZZ=0
1269
1270 O13000: REPEAT ^D7, ;TEST BITS 8-2
1271 <SN=SN+1
1272 ZZ=ZZ+ZZ
1273 IFE ZZ,<ZZ=1>
1274 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1275 MOVSI AC,400 ;SETUP AC
1276 FSC AC,200+ZZ ;RESCALE
1277 CAMN AC,AC-2 ;TEST EXP=200
1278 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
1279 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1280 >
1281 013001 SN=SN+1
1282 000000 ZZ=ZZ+ZZ
1283 000001 IFE ZZ,<ZZ=1>
1284 030711 205 04 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1285 030712 205 06 0 00 000400 MOVSI AC,400 ;SETUP AC
1286 030713 132 06 0 00 000201 FSC AC,200+ZZ ;RESCALE
1287 030714 316 06 0 00 000004 CAMN AC,AC-2 ;TEST EXP=200
1288 030715 003 06 0 00 013001 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
1289 030716 321 10 0 00 030711 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1290
1291 013002 SN=SN+1
1292 000002 ZZ=ZZ+ZZ
1293 IFE ZZ,<ZZ=1>
1294 030717 205 04 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1295 030720 205 06 0 00 000400 MOVSI AC,400 ;SETUP AC
1296 030721 132 06 0 00 000202 FSC AC,200+ZZ ;RESCALE
1297 030722 316 06 0 00 000004 CAMN AC,AC-2 ;TEST EXP=200
1298 030723 003 06 0 00 013002 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
1299 030724 321 10 0 00 030717 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1300
1301 013003 SN=SN+1
1302 000004 ZZ=ZZ+ZZ
1303 IFE ZZ,<ZZ=1>
1304 030725 205 04 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1305 030726 205 06 0 00 000400 MOVSI AC,400 ;SETUP AC
1306 030727 132 06 0 00 000204 FSC AC,200+ZZ ;RESCALE
1307 030730 316 06 0 00 000004 CAMN AC,AC-2 ;TEST EXP=200
1308 030731 003 06 0 00 013003 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
1309 030732 321 10 0 00 030725 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 4-2
DSKCA1 MAC 29-Mar-78 10:59 PART I.A - FSC AND NORMALIZE RETURN SEQ 0045
1310
1311 013004 SN=SN+1
1312 000010 ZZ=ZZ+ZZ
1313 IFE ZZ,<ZZ=1>
1314 030733 205 04 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1315 030734 205 06 0 00 000400 MOVSI AC,400 ;SETUP AC
1316 030735 132 06 0 00 000210 FSC AC,200+ZZ ;RESCALE
1317 030736 316 06 0 00 000004 CAMN AC,AC-2 ;TEST EXP=200
1318 030737 003 06 0 00 013004 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
1319 030740 321 10 0 00 030733 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1320
1321 013005 SN=SN+1
1322 000020 ZZ=ZZ+ZZ
1323 IFE ZZ,<ZZ=1>
1324 030741 205 04 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1325 030742 205 06 0 00 000400 MOVSI AC,400 ;SETUP AC
1326 030743 132 06 0 00 000220 FSC AC,200+ZZ ;RESCALE
1327 030744 316 06 0 00 000004 CAMN AC,AC-2 ;TEST EXP=200
1328 030745 003 06 0 00 013005 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
1329 030746 321 10 0 00 030741 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1330
1331 013006 SN=SN+1
1332 000040 ZZ=ZZ+ZZ
1333 IFE ZZ,<ZZ=1>
1334 030747 205 04 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1335 030750 205 06 0 00 000400 MOVSI AC,400 ;SETUP AC
1336 030751 132 06 0 00 000240 FSC AC,200+ZZ ;RESCALE
1337 030752 316 06 0 00 000004 CAMN AC,AC-2 ;TEST EXP=200
1338 030753 003 06 0 00 013006 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
1339 030754 321 10 0 00 030747 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1340
1341 013007 SN=SN+1
1342 000100 ZZ=ZZ+ZZ
1343 IFE ZZ,<ZZ=1>
1344 030755 205 04 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1345 030756 205 06 0 00 000400 MOVSI AC,400 ;SETUP AC
1346 030757 132 06 0 00 000300 FSC AC,200+ZZ ;RESCALE
1347 030760 316 06 0 00 000004 CAMN AC,AC-2 ;TEST EXP=200
1348 030761 003 06 0 00 013007 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
1349 030762 321 10 0 00 030755 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1350
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 5
DSKCA1 MAC 29-Mar-78 10:59 PART I.A - FSC AND NORMALIZE RETURN SEQ 0046
1351 ;TEST ABILITY TO TRANSFER ZERO'S
1352 ;TEST ABILITY TO CLEAR SC8-2
1353 ;EXPONENT =1,2,4,10,20,40,100
1354 ;SCALE = 375,373,367,357,337,277,177
1355 ;FAILURE OF A BIT TO CLEAR RESULTS
1356 ;IN AN EXPONENT = 377
1357
1358 000005 AC=5
1359 SAVEAC (1,1)^
1360 030763 201 07 0 00 030763 MOVEI AC+2,.
1361 030764 202 07 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1362 030765 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1363 030766 202 07 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1364
1365 013100 SN=13100
1366 000200 WW=200
1367 001000 XX=1000
1368 000176 ZZ=176
1369
1370 O13100: REPEAT ^D7, ;TEST BITS 8-2
1371 <SN=SN+1
1372 WW=WW+WW
1373 XX=XX+WW
1374 ZZ=ZZ+ZZ+1
1375 MOVSI AC-2,377400 ;SETUP FOR COMPARISON
1376 MOVSI AC,XX ;SETUP AC
1377 FSC AC,ZZ ;RESCALE
1378 CAMN AC,AC-2 ;TEST EXP = 377
1379 ER3 AC,SN ;BIT UNDER TEST FAILED TO CLEAR
1380 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1381 >
1382 013101 SN=SN+1
1383 000400 WW=WW+WW
1384 001400 XX=XX+WW
1385 000375 ZZ=ZZ+ZZ+1
1386 030767 205 03 0 00 377400 MOVSI AC-2,377400 ;SETUP FOR COMPARISON
1387 030770 205 05 0 00 001400 MOVSI AC,XX ;SETUP AC
1388 030771 132 05 0 00 000375 FSC AC,ZZ ;RESCALE
1389 030772 316 05 0 00 000003 CAMN AC,AC-2 ;TEST EXP = 377
1390 030773 003 05 0 00 013101 ER3 AC,SN ;BIT UNDER TEST FAILED TO CLEAR
1391 030774 321 07 0 00 030767 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1392
1393 013102 SN=SN+1
1394 001000 WW=WW+WW
1395 002400 XX=XX+WW
1396 000773 ZZ=ZZ+ZZ+1
1397 030775 205 03 0 00 377400 MOVSI AC-2,377400 ;SETUP FOR COMPARISON
1398 030776 205 05 0 00 002400 MOVSI AC,XX ;SETUP AC
1399 030777 132 05 0 00 000773 FSC AC,ZZ ;RESCALE
1400 031000 316 05 0 00 000003 CAMN AC,AC-2 ;TEST EXP = 377
1401 031001 003 05 0 00 013102 ER3 AC,SN ;BIT UNDER TEST FAILED TO CLEAR
1402 031002 321 07 0 00 030775 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1403
1404 013103 SN=SN+1
1405 002000 WW=WW+WW
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 5-1
DSKCA1 MAC 29-Mar-78 10:59 PART I.A - FSC AND NORMALIZE RETURN SEQ 0047
1406 004400 XX=XX+WW
1407 001767 ZZ=ZZ+ZZ+1
1408 031003 205 03 0 00 377400 MOVSI AC-2,377400 ;SETUP FOR COMPARISON
1409 031004 205 05 0 00 004400 MOVSI AC,XX ;SETUP AC
1410 031005 132 05 0 00 001767 FSC AC,ZZ ;RESCALE
1411 031006 316 05 0 00 000003 CAMN AC,AC-2 ;TEST EXP = 377
1412 031007 003 05 0 00 013103 ER3 AC,SN ;BIT UNDER TEST FAILED TO CLEAR
1413 031010 321 07 0 00 031003 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1414
1415 013104 SN=SN+1
1416 004000 WW=WW+WW
1417 010400 XX=XX+WW
1418 003757 ZZ=ZZ+ZZ+1
1419 031011 205 03 0 00 377400 MOVSI AC-2,377400 ;SETUP FOR COMPARISON
1420 031012 205 05 0 00 010400 MOVSI AC,XX ;SETUP AC
1421 031013 132 05 0 00 003757 FSC AC,ZZ ;RESCALE
1422 031014 316 05 0 00 000003 CAMN AC,AC-2 ;TEST EXP = 377
1423 031015 003 05 0 00 013104 ER3 AC,SN ;BIT UNDER TEST FAILED TO CLEAR
1424 031016 321 07 0 00 031011 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1425
1426 013105 SN=SN+1
1427 010000 WW=WW+WW
1428 020400 XX=XX+WW
1429 007737 ZZ=ZZ+ZZ+1
1430 031017 205 03 0 00 377400 MOVSI AC-2,377400 ;SETUP FOR COMPARISON
1431 031020 205 05 0 00 020400 MOVSI AC,XX ;SETUP AC
1432 031021 132 05 0 00 007737 FSC AC,ZZ ;RESCALE
1433 031022 316 05 0 00 000003 CAMN AC,AC-2 ;TEST EXP = 377
1434 031023 003 05 0 00 013105 ER3 AC,SN ;BIT UNDER TEST FAILED TO CLEAR
1435 031024 321 07 0 00 031017 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1436
1437 013106 SN=SN+1
1438 020000 WW=WW+WW
1439 040400 XX=XX+WW
1440 017677 ZZ=ZZ+ZZ+1
1441 031025 205 03 0 00 377400 MOVSI AC-2,377400 ;SETUP FOR COMPARISON
1442 031026 205 05 0 00 040400 MOVSI AC,XX ;SETUP AC
1443 031027 132 05 0 00 017677 FSC AC,ZZ ;RESCALE
1444 031030 316 05 0 00 000003 CAMN AC,AC-2 ;TEST EXP = 377
1445 031031 003 05 0 00 013106 ER3 AC,SN ;BIT UNDER TEST FAILED TO CLEAR
1446 031032 321 07 0 00 031025 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1447
1448 013107 SN=SN+1
1449 040000 WW=WW+WW
1450 100400 XX=XX+WW
1451 037577 ZZ=ZZ+ZZ+1
1452 031033 205 03 0 00 377400 MOVSI AC-2,377400 ;SETUP FOR COMPARISON
1453 031034 205 05 0 00 100400 MOVSI AC,XX ;SETUP AC
1454 031035 132 05 0 00 037577 FSC AC,ZZ ;RESCALE
1455 031036 316 05 0 00 000003 CAMN AC,AC-2 ;TEST EXP = 377
1456 031037 003 05 0 00 013107 ER3 AC,SN ;BIT UNDER TEST FAILED TO CLEAR
1457 031040 321 07 0 00 031033 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1458
1459 PAGE
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 5-2
DSKCA1 MAC 29-Mar-78 10:59 PART I.A - FSC AND NORMALIZE RETURN SEQ 0048
1460 ;AC=200400000000
1461 ;SCALE=5
1462 ;FAILURE OF ANY ONE RESULTS IN LOSS
1463 ;OF THE EXPONENT. THE RESULTANT EXPONENT
1464 ;IS EQUAL TO THE SCALING FACTOR
1465
1466 000014 AC=14
1467 SAVEAC (1,1)^
1468 031041 201 16 0 00 031041 MOVEI AC+2,.
1469 031042 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1470 031043 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1471 031044 202 16 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1472
1473 031045 205 12 0 00 005400 O13200: MOVSI AC-2,5400 ;SETUP FOR COMPARISON
1474 031046 205 14 0 00 200400 MOVSI AC,200400 ;SETUP AC
1475 031047 132 14 0 00 000005 FSC AC,5 ;RESCALE
1476 031050 316 14 0 00 000012 CAMN AC,AC-2 ;TEST EXP=5
1477 031051 003 14 0 00 013201 ER3 AC,13201
1478 031052 321 16 0 00 031045 JUMPL AC+2,O13200 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 6
DSKCA1 MAC 29-Mar-78 10:59 PART I.A - FSC AND NORMALIZE RETURN SEQ 0049
1479 ;EXPONENT = 201,202,204,210,220,240,300
1480 ;SCALE=0
1481 ;FAILURE OF A BIT TO SET RESULTS IN AN
1482 ;EXPONENT EQUAL TO 200
1483
1484 000014 AC=14
1485 SAVEAC (1,1)^
1486 031053 201 16 0 00 031053 MOVEI AC+2,.
1487 031054 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1488 031055 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1489 031056 202 16 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1490
1491 013300 SN=13300
1492 000200 XX=200
1493 201000 ZZ=201000
1494
1495 O13300: REPEAT ^D7, ;TEST BITS 8-2
1496 <SN=SN+1
1497 XX=XX+XX
1498 ZZ=ZZ+XX
1499 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1500 MOVSI AC,ZZ ;SETUP AC
1501 FSC AC,0 ;RESCALE
1502 CAMN AC,AC-2 ;TEST EXP=200
1503 ER3 AC,SN ;GATE UNDER TEST FAILED TO SET
1504 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1505 >
1506 013301 SN=SN+1
1507 000400 XX=XX+XX
1508 201400 ZZ=ZZ+XX
1509 031057 205 12 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1510 031060 205 14 0 00 201400 MOVSI AC,ZZ ;SETUP AC
1511 031061 132 14 0 00 000000 FSC AC,0 ;RESCALE
1512 031062 316 14 0 00 000012 CAMN AC,AC-2 ;TEST EXP=200
1513 031063 003 14 0 00 013301 ER3 AC,SN ;GATE UNDER TEST FAILED TO SET
1514 031064 321 16 0 00 031057 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1515
1516 013302 SN=SN+1
1517 001000 XX=XX+XX
1518 202400 ZZ=ZZ+XX
1519 031065 205 12 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1520 031066 205 14 0 00 202400 MOVSI AC,ZZ ;SETUP AC
1521 031067 132 14 0 00 000000 FSC AC,0 ;RESCALE
1522 031070 316 14 0 00 000012 CAMN AC,AC-2 ;TEST EXP=200
1523 031071 003 14 0 00 013302 ER3 AC,SN ;GATE UNDER TEST FAILED TO SET
1524 031072 321 16 0 00 031065 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1525
1526 013303 SN=SN+1
1527 002000 XX=XX+XX
1528 204400 ZZ=ZZ+XX
1529 031073 205 12 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1530 031074 205 14 0 00 204400 MOVSI AC,ZZ ;SETUP AC
1531 031075 132 14 0 00 000000 FSC AC,0 ;RESCALE
1532 031076 316 14 0 00 000012 CAMN AC,AC-2 ;TEST EXP=200
1533 031077 003 14 0 00 013303 ER3 AC,SN ;GATE UNDER TEST FAILED TO SET
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 6-1
DSKCA1 MAC 29-Mar-78 10:59 PART I.A - FSC AND NORMALIZE RETURN SEQ 0050
1534 031100 321 16 0 00 031073 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1535
1536 013304 SN=SN+1
1537 004000 XX=XX+XX
1538 210400 ZZ=ZZ+XX
1539 031101 205 12 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1540 031102 205 14 0 00 210400 MOVSI AC,ZZ ;SETUP AC
1541 031103 132 14 0 00 000000 FSC AC,0 ;RESCALE
1542 031104 316 14 0 00 000012 CAMN AC,AC-2 ;TEST EXP=200
1543 031105 003 14 0 00 013304 ER3 AC,SN ;GATE UNDER TEST FAILED TO SET
1544 031106 321 16 0 00 031101 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1545
1546 013305 SN=SN+1
1547 010000 XX=XX+XX
1548 220400 ZZ=ZZ+XX
1549 031107 205 12 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1550 031110 205 14 0 00 220400 MOVSI AC,ZZ ;SETUP AC
1551 031111 132 14 0 00 000000 FSC AC,0 ;RESCALE
1552 031112 316 14 0 00 000012 CAMN AC,AC-2 ;TEST EXP=200
1553 031113 003 14 0 00 013305 ER3 AC,SN ;GATE UNDER TEST FAILED TO SET
1554 031114 321 16 0 00 031107 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1555
1556 013306 SN=SN+1
1557 020000 XX=XX+XX
1558 240400 ZZ=ZZ+XX
1559 031115 205 12 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1560 031116 205 14 0 00 240400 MOVSI AC,ZZ ;SETUP AC
1561 031117 132 14 0 00 000000 FSC AC,0 ;RESCALE
1562 031120 316 14 0 00 000012 CAMN AC,AC-2 ;TEST EXP=200
1563 031121 003 14 0 00 013306 ER3 AC,SN ;GATE UNDER TEST FAILED TO SET
1564 031122 321 16 0 00 031115 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1565
1566 013307 SN=SN+1
1567 040000 XX=XX+XX
1568 300400 ZZ=ZZ+XX
1569 031123 205 12 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1570 031124 205 14 0 00 300400 MOVSI AC,ZZ ;SETUP AC
1571 031125 132 14 0 00 000000 FSC AC,0 ;RESCALE
1572 031126 316 14 0 00 000012 CAMN AC,AC-2 ;TEST EXP=200
1573 031127 003 14 0 00 013307 ER3 AC,SN ;GATE UNDER TEST FAILED TO SET
1574 031130 321 16 0 00 031123 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1575
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 7
DSKCA1 MAC 29-Mar-78 10:59 PART I.A - FSC AND NORMALIZE RETURN SEQ 0051
1576 ;TEST SC DATA1-8 GATES - (ZERO'S)
1577 ;TEST SCAD INPUT GATES - (ZERO'S)
1578 ;EXPONENT = 376,375,373,367,357,337,277,177
1579 ;SCALE = 1,2,4,10,20,40,100,200
1580 ;FAILURE RESULTS IN AN EXPONENT =
1581 ;0,1,3,7,17,37,77,177
1582
1583 000013 AC=13
1584 SAVEAC (1,1)^
1585 031131 201 15 0 00 031131 MOVEI AC+2,.
1586 031132 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1587 031133 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1588 031134 202 15 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1589
1590 ;TEST SCAD8
1591 031135 205 11 0 00 000400 O13400: MOVSI AC-2,400 ;SETUP FOR COMPARISON
1592 031136 205 13 0 00 376400 MOVSI AC,376400 ;SETUP AC
1593 031137 132 13 0 00 000001 FSC AC,1 ;RESCALE
1594 031140 316 13 0 00 000011 CAMN AC,AC-2 ;TEST EXP = 0
1595 031141 003 13 0 00 013401 ER3 AC,13401 ;SCAD 8 SET
1596 031142 321 15 0 00 031135 JUMPL AC+2,O13400 ;LOOP ON ERROR SWITCH
1597
1598 ;TEST SCAD7
1599 031143 205 11 0 00 001400 O13500: MOVSI AC-2,1400 ;SETUP FOR COMPARISON
1600 031144 205 13 0 00 375400 MOVSI AC,375400 ;SETUP AC
1601 031145 132 13 0 00 000002 FSC AC,2 ;RESCALE
1602 031146 316 13 0 00 000011 CAMN AC,AC-2 ;TEST EXP=1
1603 031147 003 13 0 00 013501 ER3 AC,13501 ;SCAD7 SET
1604 031150 321 15 0 00 031143 JUMPL AC+2,O13500 ;LOOP ON ERROR SWITCH
1605
1606 ;TEST SCAD6
1607 031151 205 11 0 00 003400 O13600: MOVSI AC-2,3400 ;SETUP FOR COMPARISON
1608 031152 205 13 0 00 373400 MOVSI AC,373400 ;SETUP AC
1609 031153 132 13 0 00 000004 FSC AC,4 ;RESCALE
1610 031154 316 13 0 00 000011 CAMN AC,AC-2 ;TEST EXP=3
1611 031155 003 13 0 00 013601 ER3 AC,13601 ;SCAD6 SET
1612 031156 321 15 0 00 031151 JUMPL AC+2,O13600 ;LOOP ON ERROR SWITCH
1613
1614 ;TEST SCAD5
1615 031157 205 11 0 00 007400 O13700: MOVSI AC-2,7400 ;SETUP FOR COMPARISON
1616 031160 205 13 0 00 367400 MOVSI AC,367400 ;SETUP AC
1617 031161 132 13 0 00 000010 FSC AC,10 ;RESCALE
1618 031162 316 13 0 00 000011 CAMN AC,AC-2 ;TEST EXP=7
1619 031163 003 13 0 00 013701 ER3 AC,13701 ;SCAD5 SET
1620 031164 321 15 0 00 031157 JUMPL AC+2,O13700 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 8
DSKCA1 MAC 29-Mar-78 10:59 PART I.A - FSC AND NORMALIZE RETURN SEQ 0052
1621 ;TEST SCAD4
1622 031165 205 11 0 00 017400 O14000: MOVSI AC-2,17400 ;SETUP FOR COMPARISON
1623 031166 205 13 0 00 357400 MOVSI AC,357400 ;SETUP AC
1624 031167 132 13 0 00 000020 FSC AC,20 ;RESCALE
1625 031170 316 13 0 00 000011 CAMN AC,AC-2 ;TEST EXP=17
1626 031171 003 13 0 00 014001 ER3 AC,14001 ;SCAD4 SET
1627 031172 321 15 0 00 031165 JUMPL AC+2,O14000 ;LOOP ON ERROR SWITCH
1628
1629 ;TEST SCAD3
1630 031173 205 11 0 00 037400 O14100: MOVSI AC-2,37400 ;SETUP FOR COMPARISON
1631 031174 205 13 0 00 337400 MOVSI AC,337400 ;SETUP AC
1632 031175 132 13 0 00 000040 FSC AC,40 ;RESCALE
1633 031176 316 13 0 00 000011 CAMN AC,AC-2 ;TEST EXP=37
1634 031177 003 13 0 00 014101 ER3 AC,14101 ;SCAD3 SET
1635 031200 321 15 0 00 031173 JUMPL AC+2,O14100 ;LOOP ON ERROR SWITCH
1636
1637 ;TEST SCAD2
1638 031201 205 11 0 00 077400 O14200: MOVSI AC-2,77400 ;SETUP FOR COMPARISON
1639 031202 205 13 0 00 277400 MOVSI AC,277400 ;SETUP AC
1640 031203 132 13 0 00 000100 FSC AC,100 ;RESCALE
1641 031204 316 13 0 00 000011 CAMN AC,AC-2 ;TEST EXP=77
1642 031205 003 13 0 00 014201 ER3 AC,14201 ;SCAD2 SET
1643 031206 321 15 0 00 031201 JUMPL AC+2,O14200 ;LOOP ON ERROR SWITCH
1644
1645 ;TEST SCAD1
1646 031207 205 11 0 00 177400 O14300: MOVSI AC-2,177400 ;SETUP FOR COMPARISON
1647 031210 205 13 0 00 177400 MOVSI AC,177400 ;SETUP AC
1648 031211 132 13 0 00 000200 FSC AC,200 ;RESCALE
1649 031212 316 13 0 00 000011 CAMN AC,AC-2 ;TEST EXP=177
1650 031213 003 13 0 00 014301 ER3 AC,14301 ;SCAD1 SET
1651 031214 321 15 0 00 031207 JUMPL AC+2,O14300 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 9
DSKCA1 MAC 29-Mar-78 10:59 PART I.A - FSC AND NORMALIZE RETURN SEQ 0053
1652 ;AC=577200000000
1653 ;SCALE=1
1654 ;FAILURE RESULTS IN AN EXPONENT
1655 ;EQUAL TO 776
1656
1657 000012 AC=12
1658 SAVEAC (1,1)^
1659 031215 201 14 0 00 031215 MOVEI AC+2,.
1660 031216 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1661 031217 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1662 031220 202 14 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1663
1664 031221 205 10 0 00 776200 O14400: MOVSI AC-2,776200 ;SETUP FOR COMPARISON
1665 031222 205 12 0 00 577200 MOVSI AC,577200 ;SETUP AC
1666 031223 132 12 0 00 000001 FSC AC,1 ;RESCALE
1667 031224 316 12 0 00 000010 CAMN AC,AC-2 ;TEST EXP=776
1668 031225 003 12 0 00 014401 ER3 AC,14401
1669 031226 321 14 0 00 031221 JUMPL AC+2,O14400 ;LOOP ON ERROR SWITCH
1670
1671 ;AC=577200000000
1672 ;SCALING FACTOR=0
1673 ;SETTING SCAD+1 EN RESULTS IN AN
1674 ;EXPONENT=576
1675
1676 000011 AC=11
1677 SAVEAC (1,1)^
1678 031227 201 13 0 00 031227 MOVEI AC+2,.
1679 031230 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1680 031231 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1681 031232 202 13 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1682
1683 031233 205 07 0 00 576200 O14500: MOVSI AC-2,576200 ;SETUP FOR COMPARISON
1684 031234 205 11 0 00 577200 MOVSI AC,577200 ;SETUP AC
1685 031235 132 11 0 00 000000 FSC AC,0 ;RESCALE
1686 031236 316 11 0 00 000007 CAMN AC,AC-2 ;TEST EXP=576
1687 031237 003 11 0 00 014501 ER3 AC,14501
1688 031240 321 13 0 00 031233 JUMPL AC+2,O14500 ;LOOP ON ERROR SWITCH
1689 PAGE
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 9-1
DSKCA1 MAC 29-Mar-78 10:59 PART I.A - FSC AND NORMALIZE RETURN SEQ 0054
1690 ;TEST ABILITY TO TRANSFER ZERO'S
1691 ;EXP=776,775,773,767,757,737,677,577
1692 ;SCALING FACTOR=0
1693 ;FAILURE OF A BIT TO CLEAR RESULTS IN
1694 ;AN EXPONENT=777
1695
1696 000010 AC=10
1697 SAVEAC (1,1)^
1698 031241 201 12 0 00 031241 MOVEI AC+2,.
1699 031242 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1700 031243 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1701 031244 202 12 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1702 014600 SN=14600
1703 376400 ZZ=376400
1704
1705 O14600: REPEAT ^D8,
1706 <SN=SN+1
1707 ZZ=<ZZ+ZZ+1000>&777777
1708 MOVSI AC-2,777200 ;SETUP FOR COMPARISON
1709 MOVSI AC,200+ZZ ;SETUP AC
1710 FSC AC,0 ;RESCALE
1711 CAMN AC,AC-2 ;TEST EXP=777
1712 ER3 AC,SN
1713 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1714 >
1715 014601 SN=SN+1
1716 776000 ZZ=<ZZ+ZZ+1000>&777777
1717 031245 205 06 0 00 777200 MOVSI AC-2,777200 ;SETUP FOR COMPARISON
1718 031246 205 10 0 00 776200 MOVSI AC,200+ZZ ;SETUP AC
1719 031247 132 10 0 00 000000 FSC AC,0 ;RESCALE
1720 031250 316 10 0 00 000006 CAMN AC,AC-2 ;TEST EXP=777
1721 031251 003 10 0 00 014601 ER3 AC,SN
1722 031252 321 12 0 00 031245 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1723
1724 014602 SN=SN+1
1725 775000 ZZ=<ZZ+ZZ+1000>&777777
1726 031253 205 06 0 00 777200 MOVSI AC-2,777200 ;SETUP FOR COMPARISON
1727 031254 205 10 0 00 775200 MOVSI AC,200+ZZ ;SETUP AC
1728 031255 132 10 0 00 000000 FSC AC,0 ;RESCALE
1729 031256 316 10 0 00 000006 CAMN AC,AC-2 ;TEST EXP=777
1730 031257 003 10 0 00 014602 ER3 AC,SN
1731 031260 321 12 0 00 031253 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1732
1733 014603 SN=SN+1
1734 773000 ZZ=<ZZ+ZZ+1000>&777777
1735 031261 205 06 0 00 777200 MOVSI AC-2,777200 ;SETUP FOR COMPARISON
1736 031262 205 10 0 00 773200 MOVSI AC,200+ZZ ;SETUP AC
1737 031263 132 10 0 00 000000 FSC AC,0 ;RESCALE
1738 031264 316 10 0 00 000006 CAMN AC,AC-2 ;TEST EXP=777
1739 031265 003 10 0 00 014603 ER3 AC,SN
1740 031266 321 12 0 00 031261 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1741
1742 014604 SN=SN+1
1743 767000 ZZ=<ZZ+ZZ+1000>&777777
1744 031267 205 06 0 00 777200 MOVSI AC-2,777200 ;SETUP FOR COMPARISON
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 9-2
DSKCA1 MAC 29-Mar-78 10:59 PART I.A - FSC AND NORMALIZE RETURN SEQ 0055
1745 031270 205 10 0 00 767200 MOVSI AC,200+ZZ ;SETUP AC
1746 031271 132 10 0 00 000000 FSC AC,0 ;RESCALE
1747 031272 316 10 0 00 000006 CAMN AC,AC-2 ;TEST EXP=777
1748 031273 003 10 0 00 014604 ER3 AC,SN
1749 031274 321 12 0 00 031267 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1750
1751 014605 SN=SN+1
1752 757000 ZZ=<ZZ+ZZ+1000>&777777
1753 031275 205 06 0 00 777200 MOVSI AC-2,777200 ;SETUP FOR COMPARISON
1754 031276 205 10 0 00 757200 MOVSI AC,200+ZZ ;SETUP AC
1755 031277 132 10 0 00 000000 FSC AC,0 ;RESCALE
1756 031300 316 10 0 00 000006 CAMN AC,AC-2 ;TEST EXP=777
1757 031301 003 10 0 00 014605 ER3 AC,SN
1758 031302 321 12 0 00 031275 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1759
1760 014606 SN=SN+1
1761 737000 ZZ=<ZZ+ZZ+1000>&777777
1762 031303 205 06 0 00 777200 MOVSI AC-2,777200 ;SETUP FOR COMPARISON
1763 031304 205 10 0 00 737200 MOVSI AC,200+ZZ ;SETUP AC
1764 031305 132 10 0 00 000000 FSC AC,0 ;RESCALE
1765 031306 316 10 0 00 000006 CAMN AC,AC-2 ;TEST EXP=777
1766 031307 003 10 0 00 014606 ER3 AC,SN
1767 031310 321 12 0 00 031303 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1768
1769 014607 SN=SN+1
1770 677000 ZZ=<ZZ+ZZ+1000>&777777
1771 031311 205 06 0 00 777200 MOVSI AC-2,777200 ;SETUP FOR COMPARISON
1772 031312 205 10 0 00 677200 MOVSI AC,200+ZZ ;SETUP AC
1773 031313 132 10 0 00 000000 FSC AC,0 ;RESCALE
1774 031314 316 10 0 00 000006 CAMN AC,AC-2 ;TEST EXP=777
1775 031315 003 10 0 00 014607 ER3 AC,SN
1776 031316 321 12 0 00 031311 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1777
1778 014610 SN=SN+1
1779 577000 ZZ=<ZZ+ZZ+1000>&777777
1780 031317 205 06 0 00 777200 MOVSI AC-2,777200 ;SETUP FOR COMPARISON
1781 031320 205 10 0 00 577200 MOVSI AC,200+ZZ ;SETUP AC
1782 031321 132 10 0 00 000000 FSC AC,0 ;RESCALE
1783 031322 316 10 0 00 000006 CAMN AC,AC-2 ;TEST EXP=777
1784 031323 003 10 0 00 014610 ER3 AC,SN
1785 031324 321 12 0 00 031317 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
1786
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 10
DSKCA1 MAC 29-Mar-78 10:59 PART I.A - FSC AND NORMALIZE RETURN SEQ 0056
1787 ;AC=206200000000
1788 ;SCALING FACTOR=0
1789
1790 000007 AC=7
1791 SAVEAC (1,1)^
1792 031325 201 11 0 00 031325 MOVEI AC+2,.
1793 031326 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1794 031327 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1795 031330 202 11 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1796
1797 031331 205 05 0 00 206200 O14700: MOVSI AC-2,206200 ;SETUP FOR COMPARISON
1798 031332 205 07 0 00 206200 MOVSI AC,206200 ;SETUP AC
1799 031333 132 07 0 00 000000 FSC AC,0 ;RESCALE
1800 031334 316 07 0 00 000005 CAMN AC,AC-2 ;TEST AC=ORIG
1801 031335 003 07 0 00 014701 ER3 AC,14701
1802 031336 321 11 0 00 031331 JUMPL AC+2,O14700 ;LOOP ON ERROR SWITCH
1803
1804 ;AC=577600000000
1805 ;SCALING FACTOR=0
1806
1807 000006 AC=6
1808 SAVEAC (1,1)^
1809 031337 201 10 0 00 031337 MOVEI AC+2,.
1810 031340 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1811 031341 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1812 031342 202 10 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1813
1814 031343 205 04 0 00 577600 O15000: MOVSI AC-2,577600 ;SETUP FOR COMPARISON
1815 031344 205 06 0 00 577600 MOVSI AC,577600 ;SETUP AC
1816 031345 132 06 0 00 000000 FSC AC,0 ;RESCALE
1817 031346 316 06 0 00 000004 CAMN AC,AC-2 ;TEST AC=ORIG
1818 031347 003 06 0 00 015001 ER3 AC,15001
1819 031350 321 10 0 00 031343 JUMPL AC+2,O15000 ;LOOP ON ERROR SWITCH
1820
1821 ;AC=206200000000
1822 ;SCALING FACTOR=0
1823 ;FAILURE RESULTS IN AN EXPONENT
1824 ;EQUAL TO 170, THE FRACTION IS NORMALIZED
1825
1826 000005 AC=5
1827 SAVEAC (1,1)^
1828 031351 201 07 0 00 031351 MOVEI AC+2,.
1829 031352 202 07 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1830 031353 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1831 031354 202 07 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1832
1833 031355 205 03 0 00 170400 O15100: MOVSI AC-2,170400 ;SETUP FOR COMPARISON
1834 031356 205 05 0 00 206200 MOVSI AC,206200 ;SETUP AC
1835 031357 132 05 0 00 000000 FSC AC,0 ;RESCALE
1836 031360 316 05 0 00 000003 CAMN AC,AC-2 ;TEST EXP=170
1837 031361 003 05 0 00 015101 ER3 AC,15101
1838 031362 321 07 0 00 031355 JUMPL AC+2,O15100 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 11
DSKCA1 MAC 29-Mar-78 10:59 PART I.A - FSC AND NORMALIZE RETURN SEQ 0057
1839 ;TEST - NR NORMAL
1840 ;AC=206200000000
1841 ;SCALE=0
1842 ;FAILURE RESULTS IN AN EXPONENT
1843 ;EQUAL TO 171, THE MANTISSA IS NORMALIZED
1844
1845 000014 AC=14
1846 SAVEAC (1,1)^
1847 031363 201 16 0 00 031363 MOVEI AC+2,.
1848 031364 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1849 031365 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1850 031366 202 16 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1851
1852 031367 205 12 0 00 171400 O15200: MOVSI AC-2,171400 ;SETUP FOR COMPARISON
1853 031370 205 14 0 00 206200 MOVSI AC,206200 ;SETUP AC
1854 031371 132 14 0 00 000000 FSC AC,0 ;RESCALE
1855 031372 316 14 0 00 000012 CAMN AC,AC-2 ;TEST EXP=171
1856 031373 003 14 0 00 015201 ER3 AC,15201
1857 031374 321 16 0 00 031367 JUMPL AC+2,O15200 ;LOOP ON ERROR SWITCH
1858
1859 ;AC=200200000000
1860 ;SCALING FACTOR=0
1861 ;FAILURE RESULTS IN AN EXPONENT
1862 ;EQUAL TO ORIG. THE FRACTION IS NORMALIZED
1863
1864 000014 AC=14
1865 SAVEAC (1,1)^
1866 031375 201 16 0 00 031375 MOVEI AC+2,.
1867 031376 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1868 031377 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1869 031400 202 16 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1870
1871 031401 205 12 0 00 200400 O15300: MOVSI AC-2,200400 ;SETUP FOR COMPARISON
1872 031402 205 14 0 00 200200 MOVSI AC,200200 ;SETUP AC
1873 031403 132 14 0 00 000000 FSC AC,0 ;RESCALE
1874 031404 316 14 0 00 000012 CAMN AC,AC-2 ;TEST EXP=ORIG
1875 031405 003 14 0 00 015301 ER3 AC,15301
1876 031406 321 16 0 00 031401 JUMPL AC+2,O15300 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 12
DSKCA1 MAC 29-Mar-78 10:59 PART I.A - FSC AND NORMALIZE RETURN SEQ 0058
1877 ;TEST AR FXU SET
1878 ;TEST ABILITY TO SET FLAGS ON OVERFLOW
1879 ;AC=377400000000,777200000000
1880 ;SCALING FACTOR=1,-1
1881 ;AN ERROR WILL OCCUR IF APPROPRIATE
1882 ;FLAG FAILS TO SET
1883
1884 000013 AC=13
1885 SAVEAC (1,1)^
1886 031407 201 15 0 00 031407 MOVEI AC+2,.
1887 031410 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1888 031411 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1889 031412 202 15 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1890
1891 ;TEST AROV SET
1892 031413 255 10 0 00 031414 O15400: JFCL 10,.+1 ;CLR FLG, EXEC NEXT INST
1893 031414 205 13 0 00 377400 MOVSI AC,377400 ;SETUP AC
1894 031415 132 13 0 00 000001 FSC AC,1 ;RESCALE (OVERFLOW)
1895 031416 265 14 0 00 031417 JSP AC+1,.+1
1896 031417 255 10 0 00 031421 JFCL 10,.+2 ;TEST AROV FLAG
1897 031420 013 14 0 00 015401 ER13 AC+1,15401 ;AROV FAILED TO SET
1898 031421 321 15 0 00 031413 JUMPL AC+2,O15400 ;LOOP ON ERROR SWITCH
1899
1900 ;TEST ARFOV SET
1901 031422 255 01 0 00 031423 O15500: JFCL 1,.+1 ;CLR FLG, EXEC NEXT INST
1902 031423 205 13 0 00 377400 MOVSI AC,377400 ;SETUP AC
1903 031424 132 13 0 00 000001 FSC AC,1 ;RESCALE (OVERFLOW)
1904 031425 265 14 0 00 031426 JSP AC+1,.+1
1905 031426 255 01 0 00 031430 JFCL 1,.+2 ;TEST ARFOV FLAG
1906 031427 013 14 0 00 015501 ER13 AC+1,15501 ;ARFOV FAILED TO SET
1907 031430 321 15 0 00 031422 JUMPL AC+2,O15500 ;LOOP ON ERROR SWITCH
1908
1909 ;TEST ARFXU SET
1910 031431 254 02 1 00 036646 O15600: JRST 2,@[.+1] ;CLEAR FLAG,EXEC NEXT INST
1911 031432 205 13 0 00 777200 MOVSI AC,777200 ;SETUP AC
1912 031433 132 13 0 00 777777 FSC AC,-1 ;RESCALE (UNDERFLOW)
1913 031434 265 11 0 00 031435 JSP AC-2,.+1 ;STORE FLAGS AND PC
1914 031435 627 11 0 00 000100 TLZN AC-2,100 ;TEST AND CLEAR BIT 11
1915 031436 013 11 0 00 015601 ER13 AC-2,15601 ;AR FXU FAILED TO SET
1916 031437 254 02 0 11 000003 JRST 2,3(AC-2) ;CLEAR AR FXU
1917 031440 321 15 0 00 031431 JUMPL AC+2,O15600 ;LOOP ON ERROR SWITCH
1918 PAGE
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 12-1
DSKCA1 MAC 29-Mar-78 10:59 PART I.A - FSC AND NORMALIZE RETURN SEQ 0059
1919 ;TEST NR ALL ZERO
1920 ;TEST ABILITY TO ASSERT NR ALL ZERO LEVEL
1921 ;AC=377000000000
1922 ;SCALE=401
1923 ;FAILURE SHOULD RESULT IN LOOPING NRT2-
1924 ;ATTEMPTING TO NORMALIZE
1925
1926 000012 AC=12
1927 SAVEAC (1,1)^
1928 031441 201 14 0 00 031441 MOVEI AC+2,.
1929 031442 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1930 031443 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1931 031444 202 14 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1932
1933 031445 205 12 0 00 377000 O15700: MOVSI AC,377000 ;SETUP AC
1934 031446 132 12 0 00 000401 FSC AC,401 ;RESCALE
1935 031447 332 00 0 00 000012 SKIPE AC ;TEST AC=0
1936 031450 003 12 0 00 015701 ER3 AC,15701 ;NR ALL ZERO ASSERTED
1937 031451 321 14 0 00 031445 JUMPL AC+2,O15700 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 13
DSKCA1 MAC 29-Mar-78 10:59 PART I.B-FAD AND NORM RET SEQ 0060
1938 SUBTTL PART I.B-FAD AND NORM RET
1939
1940
1941 ; PART I.B-FAD AND NORM RET
1942
1943 ;AR=000600000000
1944 ;BR=000400000000
1945 ;FAILURE RESULTS IN LOSS OF BR
1946 ;CORRECT SUM=001500000000
1947 ;ERROR SUM=000600000000
1948
1949 000014 AC=14
1950 SAVEAC (1,1)^
1951 031452 201 16 0 00 031452 MOVEI AC+2,.
1952 031453 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1953 031454 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1954 031455 202 16 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1955
1956 031456 205 12 0 00 000600 O16000: MOVSI AC-2,600 ;SETUP FOR COMPARISON
1957 031457 205 14 0 00 000600 MOVSI AC,600 ;SETUP AC
1958 031460 205 15 0 00 000400 MOVSI AC+1,400 ;SETUP BR
1959 031461 140 14 0 00 000015 FAD AC,AC+1 ;C(AC)+C(E)
1960 031462 316 14 0 00 000012 CAMN AC,AC-2 ;TEST SUM=600000000
1961 031463 003 14 0 00 016001 ER3 AC,16001
1962 031464 321 16 0 00 031456 JUMPL AC+2,O16000 ;LOOP ON ERROR SWITCH
1963
1964 ;AR=000600000000
1965 ;BR=000400000000
1966 ;FAILURE RESULTS IN LOSS
1967 ;OF LARGER NUMBER
1968 ;FAILURE RESULTS IN NORMALIZING
1969 ;CORRECT SUM=001500000000
1970 ;ERROR SUM=000400000000
1971
1972 000013 AC=13
1973 SAVEAC (1,1)^
1974 031465 201 15 0 00 031465 MOVEI AC+2,.
1975 031466 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1976 031467 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1977 031470 202 15 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1978
1979 031471 205 13 0 00 000600 O16100: MOVSI AC,600 ;SETUP AC
1980 031472 205 14 0 00 000400 MOVSI AC+1,400 ;SETUP BR
1981 031473 140 13 0 00 000014 FAD AC,AC+1 ;C(AC)+C(E)
1982 031474 316 13 0 00 000014 CAMN AC,AC+1 ;TEST SUM=000400000000
1983 031475 003 13 0 00 016101 ER3 AC,16101
1984 031476 321 15 0 00 031471 JUMPL AC+2,O16100 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 14
DSKCA1 MAC 29-Mar-78 10:59 PART I.B-FAD AND NORM RET SEQ 0061
1985 ;AR=000600000000
1986 ;BR=000400000000
1987 ;FAILURE RESULTS IN LOSS OF BR
1988 ;CORRECT SUM=001500000000
1989 ;ERROR SUM=001600000000
1990
1991 000012 AC=12
1992 SAVEAC (1,1)^
1993 031477 201 14 0 00 031477 MOVEI AC+2,.
1994 031500 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1995 031501 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1996 031502 202 14 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1997
1998 031503 205 10 0 00 001600 O16200: MOVSI AC-2,1600 ;SETUP FOR COMPARISON
1999 031504 205 12 0 00 000600 MOVSI AC,600 ;SETUP AC
2000 031505 205 13 0 00 000400 MOVSI AC+1,400 ;SETUP BR
2001 031506 140 12 0 00 000013 FAD AC,AC+1 ;C(AC)+C(E)
2002 031507 316 12 0 00 000010 CAMN AC,AC-2 ;TEST SUM=1600000000
2003 031510 003 12 0 00 016201 ER3 AC,16201
2004 031511 321 14 0 00 031503 JUMPL AC+2,O16200 ;LOOP ON ERROR SWITCH
2005
2006 ;AR=000600000000
2007 ;BR=000400000000
2008 ;FAILURE RESULTS IN LOSS OF AR
2009 ;CORRECT SUM=001500000000
2010 ;ERROR SUM=001400000000
2011
2012 000011 AC=11
2013 SAVEAC (1,1)^
2014 031512 201 13 0 00 031512 MOVEI AC+2,.
2015 031513 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2016 031514 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2017 031515 202 13 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2018
2019 031516 205 07 0 00 001400 O16300: MOVSI AC-2,1400 ;SETUP FOR COMPARISON
2020 031517 205 11 0 00 000600 MOVSI AC,600 ;SETUP AC
2021 031520 205 12 0 00 000400 MOVSI AC+1,400 ;SETUP BR
2022 031521 140 11 0 00 000012 FAD AC,AC+1 ;C(AC)+C(E)
2023 031522 316 11 0 00 000007 CAMN AC,AC-2 ;TEST SUM=1400000000
2024 031523 003 11 0 00 016301 ER3 AC,16301
2025 031524 321 13 0 00 031516 JUMPL AC+2,O16300 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 15
DSKCA1 MAC 29-Mar-78 10:59 PART I.B-FAD AND NORM RET SEQ 0062
2026 ;AR=000600000000
2027 ;BR=000400000000
2028 ;CORRECT SUM=001500000000
2029 ;ERROR SUM=377500000000
2030
2031 000010 AC=10
2032 SAVEAC (1,1)^
2033 031525 201 12 0 00 031525 MOVEI AC+2,.
2034 031526 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2035 031527 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2036 031530 202 12 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2037
2038 031531 205 06 0 00 377500 O16400: MOVSI AC-2,377500 ;SETUP FOR COMPARISON
2039 031532 205 10 0 00 000600 MOVSI AC,600 ;SETUP AC
2040 031533 205 11 0 00 000400 MOVSI AC+1,400 ;SETUP BR
2041 031534 140 10 0 00 000011 FAD AC,AC+1 ;C(AC)+C(E)
2042 031535 316 10 0 00 000006 CAMN AC,AC-2 ;TEST SUM=377500000000
2043 031536 003 10 0 00 016401 ER3 AC,16401
2044 031537 321 12 0 00 031531 JUMPL AC+2,O16400 ;LOOP ON ERROR SWITCH
2045
2046 ;AR=000600000000
2047 ;BR=000400000000
2048 ;CORRECT SUM=001500000000
2049 ;ERROR SUM=000500000000
2050
2051 000007 AC=7
2052 SAVEAC (1,1)^
2053 031540 201 11 0 00 031540 MOVEI AC+2,.
2054 031541 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2055 031542 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2056 031543 202 11 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2057
2058 031544 205 05 0 00 000500 O16500: MOVSI AC-2,500 ;SETUP FOR COMPARISON
2059 031545 205 07 0 00 000600 MOVSI AC,600 ;SETUP AC
2060 031546 205 10 0 00 000400 MOVSI AC+1,400 ;SETUP BR
2061 031547 140 07 0 00 000010 FAD AC,AC+1 ;C(AC)+C(E)
2062 031550 316 07 0 00 000005 CAMN AC,AC-2 ;TEST SUM=500000000
2063 031551 003 07 0 00 016501 ER3 AC,16501
2064 031552 321 11 0 00 031544 JUMPL AC+2,O16500 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 16
DSKCA1 MAC 29-Mar-78 10:59 PART I.B-FAD AND NORM RET SEQ 0063
2065
2066 ;AR=377000000000
2067 ;BR=377600000000
2068 ;FAILURE RESULTS IN A SUM
2069 ;=000700000000
2070
2071 000014 AC=14
2072 SAVEAC (1,1)^
2073 031553 201 16 0 00 031553 MOVEI AC+2,.
2074 031554 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2075 031555 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2076 031556 202 16 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2077
2078 031557 205 12 0 00 000700 O16600: MOVSI AC-2,700 ;SETUP FOR COMPARISON
2079 031560 205 14 0 00 377000 MOVSI AC,377000 ;SETUP AC
2080 031561 205 15 0 00 377600 MOVSI AC+1,377600 ;SETUP BR
2081 031562 140 14 0 00 000015 FAD AC,AC+1 ;ADD C(AC), C(E)
2082 031563 316 14 0 00 000012 CAMN AC,AC-2 ;TEST SUM=000700000000
2083 031564 003 14 0 00 016601 ER3 AC,16601
2084 031565 321 16 0 00 031557 JUMPL AC+2,O16600 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 17
DSKCA1 MAC 29-Mar-78 10:59 PART I.B-FAD AND NORM RET SEQ 0064
2085 ;TEST ABILITY TO SET INDIVIDUAL BITS
2086 ;AR=600400000000 (-1/4)
2087 ;BR=177400000000 (+1/4)
2088 ;OPERANDS SELECTED SHOULD RESULT
2089 ;IN NR ALL ZERO -STORE 0
2090 ;FAILURE OF BIT 8 TO SET RESULTS IN
2091 ;A SUM=577400000000
2092 ;FAILURE OF ANY ONE BIT (1-7) RESULTS IN
2093 ;A SUM=577000000000
2094
2095 000014 AC=14
2096 SAVEAC (1,1)^
2097 031566 201 16 0 00 031566 MOVEI AC+2,.
2098 031567 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2099 031570 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2100 031571 202 16 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2101
2102 031572 205 12 0 00 577400 O16700: MOVSI AC-2,577400 ;SETUP FOR COMPARISON
2103 031573 205 14 0 00 600400 MOVSI AC,600400 ;SETUP AC
2104 031574 205 15 0 00 177400 MOVSI AC+1,177400 ;SETUP BR
2105 031575 140 14 0 00 000015 FAD AC,AC+1 ;C(AC)+C(E)
2106 031576 316 14 0 00 000012 CAMN AC,AC-2 ;TEST SUM=5774000000000
2107 031577 003 14 0 00 016701 ER3 AC,16701 ;BR8 FAILED TO SET
2108 031600 205 12 0 00 577000 MOVSI AC-2,577000 ;SETUP FOR COMPARISON
2109 031601 316 14 0 00 000012 CAMN AC,AC-2 ;TEST SUM=577000000000
2110 031602 003 14 0 00 016702 ER3 AC,16702 ;BR BIT (1-7) FAILED TO SET
2111 031603 321 16 0 00 031572 JUMPL AC+2,O16700 ;LOOP ON ERROR SWITCH
2112
2113 ;FAILURE RESULTS IN LOSS OF DIFFERENCE
2114 ;BETWEEN EXPONENTS
2115 ;AR=200400000000 (+ 1/2)
2116 ;BR=205400000000 (+20)
2117 ;CORRECT SUM =205410000000
2118 ;ERROR SUM=001400000000
2119
2120 000010 AC=10
2121 SAVEAC (1,1)^
2122 031604 201 12 0 00 031604 MOVEI AC+2,.
2123 031605 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2124 031606 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2125 031607 202 12 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2126
2127 031610 205 06 0 00 001400 O17000: MOVSI AC-2,001400 ;SETUP FOR COMPARISON
2128 031611 205 10 0 00 200400 MOVSI AC,200400 ;SETUP AC
2129 031612 205 11 0 00 205400 MOVSI AC+1,205400 ;SETUP BR
2130 031613 140 10 0 00 000011 FAD AC,AC+1 ;C(AC)+C(E)
2131 031614 316 10 0 00 000006 CAMN AC,AC-2 ;TEST SUM=001400000000
2132 031615 003 10 0 00 017001 ER3 AC,17001
2133 031616 321 12 0 00 031610 JUMPL AC+2,O17000 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 18
DSKCA1 MAC 29-Mar-78 10:59 PART I.B-FAD AND NORM RET SEQ 0065
2134 ;AR=200400000000
2135 ;BR=205600000000
2136 ;FAILURE RESULTS IN LOSS OF HIGH ORDER
2137 ;EXPONENT
2138 ;FAILURE RESULTS IN A SUM
2139 ;=001610000000
2140
2141 000012 AC=12
2142 SAVEAC (1,1)^
2143 031617 201 14 0 00 031617 MOVEI AC+2,.
2144 031620 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2145 031621 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2146 031622 202 14 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2147
2148 031623 205 10 0 00 001610 O17100: MOVSI AC-2,1610 ;SETUP FOR COMPARISON
2149 031624 205 12 0 00 200400 MOVSI AC,200400 ;SETUP AC
2150 031625 205 13 0 00 205600 MOVSI AC+1,205600 ;SETUP BR
2151 031626 140 12 0 00 000013 FAD AC,AC+1 ;C(AC)+C(E)
2152 031627 316 12 0 00 000010 CAMN AC,AC-2 ;TEST SUM=1610000000
2153 031630 003 12 0 00 017101 ER3 AC,17101
2154 031631 321 14 0 00 031623 JUMPL AC+2,O17100 ;LOOP ON ERROR SWITCH
2155
2156 ;AR=200400000000
2157 ;BR=205600000000
2158 ;FAILURE RESULTS IN LOSS OF LARGER
2159 ;EXPONENT
2160 ;FAILURE RESULTS IN A SUM
2161 ;=000610000000
2162
2163 000011 AC=11
2164 SAVEAC (1,1)^
2165 031632 201 13 0 00 031632 MOVEI AC+2,.
2166 031633 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2167 031634 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2168 031635 202 13 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2169
2170 031636 205 07 0 00 000610 O17200: MOVSI AC-2,610 ;SETUP FOR COMPARISON
2171 031637 205 11 0 00 200400 MOVSI AC,200400 ;SETUP AC
2172 031640 205 12 0 00 205600 MOVSI AC+1,205600 ;SETUP BR
2173 031641 140 11 0 00 000012 FAD AC,AC+1 ;C(AC)+C(E)
2174 031642 316 11 0 00 000007 CAMN AC,AC-2 ;TEST SUM=610000000
2175 031643 003 11 0 00 017201 ER3 AC,17201
2176 031644 321 13 0 00 031636 JUMPL AC+2,O17200 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 19
DSKCA1 MAC 29-Mar-78 10:59 PART I.B-FAD AND NORM RET SEQ 0066
2177 ;AR=000600000000
2178 ;BR=200400000000
2179 ;EXCESSIVE SHIFT COND, SHOULD
2180 ;RESULT IN NO ADD AND STORING THE LARGER
2181 ;FAILURE RESULTS IN A SUM
2182 ;=201500000000
2183
2184 000005 AC=5
2185 SAVEAC (1,1)^
2186 031645 201 07 0 00 031645 MOVEI AC+2,.
2187 031646 202 07 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2188 031647 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2189 031650 202 07 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2190
2191 031651 205 03 0 00 201500 O17300: MOVSI AC-2,201500 ;SETUP FOR COMPARISON
2192 031652 205 05 0 00 000600 MOVSI AC,600 ;SETUP AC
2193 031653 205 06 0 00 200400 MOVSI AC+1,200400 ;SETUP BR
2194 031654 140 05 0 00 000006 FAD AC,AC+1 ;C(AC)+C(E)
2195 031655 316 05 0 00 000003 CAMN AC,AC-2 ;TEST SUM=201500000000
2196 031656 003 05 0 00 017301 ER3 AC,17301
2197 031657 321 07 0 00 031651 JUMPL AC+2,O17300 ;LOOP ON ERROR SWITCH
2198
2199 ;AR=200700000000
2200 ;BR=0
2201 ;EXCESSIVE SHIFT COND SHOULD
2202 ;RESULT IN NO ADD AND STORING THE LARGER
2203 ;FAILURE OF SC CLR AT FAT4 RESULTS IN
2204 ;LOSS OF EXPONENT. SUM=000700000000
2205
2206 000014 AC=14
2207 SAVEAC (1,1)^
2208 031660 201 16 0 00 031660 MOVEI AC+2,.
2209 031661 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2210 031662 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2211 031663 202 16 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2212
2213 031664 205 12 0 00 000700 O17400: MOVSI AC-2,700 ;SETUP FOR COMPARISON
2214 031665 205 14 0 00 200700 MOVSI AC,200700 ;SETUP AC
2215 031666 400 15 0 00 000000 SETZ AC+1, ;SETUP BR
2216 031667 140 14 0 00 000015 FAD AC,AC+1 ;C(AC)+C(E)
2217 031670 316 14 0 00 000012 CAMN AC,AC-2 ;TEST SUM=700000000
2218 031671 003 14 0 00 017401 ER3 AC,17401
2219 031672 321 16 0 00 031664 JUMPL AC+2,O17400 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 20
DSKCA1 MAC 29-Mar-78 10:59 PART I.B-FAD AND NORM RET SEQ 0067
2220 ;TEST ABILITY TO BRING UP PULSE
2221 ;AR=200400000000
2222 ;BR=205400000000
2223 ;FAILURE RESULTS IN LOSS OF SMALLER
2224 ;EXPONENT. EXCESSIVE SHIFT CONDITION
2225 ;RESULTS IN NO ADD AND STORING THE LARGER
2226 ;FAILURE RESULTS IN A SUM=205400000000
2227
2228 000014 AC=14
2229 SAVEAC (1,1)^
2230 031673 201 16 0 00 031673 MOVEI AC+2,.
2231 031674 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2232 031675 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2233 031676 202 16 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2234
2235 031677 205 14 0 00 200400 O17500: MOVSI AC,200400 ;SETUP AC
2236 031700 205 15 0 00 205400 MOVSI AC+1,205400 ;SETUP BR
2237 031701 140 14 0 00 000015 FAD AC,AC+1 ;C(AC)+C(E)
2238 031702 316 14 0 00 000015 CAMN AC,AC+1 ;TEST SUM=205400000000
2239 031703 003 14 0 00 017501 ER3 AC,17501
2240 031704 321 16 0 00 031677 JUMPL AC+2,O17500 ;LOOP ON ERROR SWITCH
2241 PAGE
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 20-1
DSKCA1 MAC 29-Mar-78 10:59 PART I.B-FAD AND NORM RET SEQ 0068
2242 ;AC EXP=201,202,204,210,220,240,300
2243 ;BR=200400000000
2244 ;FAILURE OF A BIT TO SET/AR TO SHIFT RESULTS IN
2245 ;AN EXPONENT=202,203,205,211,221,
2246 ;241,301. THE MANTISSA IS CORRECT IN ALL CASES
2247
2248 000013 AC=13
2249 SAVEAC (1,1)^
2250 031705 201 15 0 00 031705 MOVEI AC+2,.
2251 031706 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2252 031707 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2253 031710 202 15 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2254
2255 017600 SN=17600
2256 000400 ZZ=400
2257
2258 O17600: REPEAT ^D7,
2259 <SN=SN+1
2260 ZZ=ZZ+ZZ
2261 MOVSI AC-2,201400+ZZ ;SETUP FOR COMPARISION
2262 MOVSI AC,200400+ZZ ;SETUP AC
2263 MOVSI AC+1,200400 ;SETUP BR
2264 FAD AC,AC+1 ;C(AC)+C(E)
2265 CAMN AC,AC-2 ;TEST EXP=AC EXP+1
2266 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
2267 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2268 >
2269 017601 SN=SN+1
2270 001000 ZZ=ZZ+ZZ
2271 031711 205 11 0 00 202400 MOVSI AC-2,201400+ZZ ;SETUP FOR COMPARISION
2272 031712 205 13 0 00 201400 MOVSI AC,200400+ZZ ;SETUP AC
2273 031713 205 14 0 00 200400 MOVSI AC+1,200400 ;SETUP BR
2274 031714 140 13 0 00 000014 FAD AC,AC+1 ;C(AC)+C(E)
2275 031715 316 13 0 00 000011 CAMN AC,AC-2 ;TEST EXP=AC EXP+1
2276 031716 003 13 0 00 017601 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
2277 031717 321 15 0 00 031711 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2278
2279 017602 SN=SN+1
2280 002000 ZZ=ZZ+ZZ
2281 031720 205 11 0 00 203400 MOVSI AC-2,201400+ZZ ;SETUP FOR COMPARISION
2282 031721 205 13 0 00 202400 MOVSI AC,200400+ZZ ;SETUP AC
2283 031722 205 14 0 00 200400 MOVSI AC+1,200400 ;SETUP BR
2284 031723 140 13 0 00 000014 FAD AC,AC+1 ;C(AC)+C(E)
2285 031724 316 13 0 00 000011 CAMN AC,AC-2 ;TEST EXP=AC EXP+1
2286 031725 003 13 0 00 017602 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
2287 031726 321 15 0 00 031720 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2288
2289 017603 SN=SN+1
2290 004000 ZZ=ZZ+ZZ
2291 031727 205 11 0 00 205400 MOVSI AC-2,201400+ZZ ;SETUP FOR COMPARISION
2292 031730 205 13 0 00 204400 MOVSI AC,200400+ZZ ;SETUP AC
2293 031731 205 14 0 00 200400 MOVSI AC+1,200400 ;SETUP BR
2294 031732 140 13 0 00 000014 FAD AC,AC+1 ;C(AC)+C(E)
2295 031733 316 13 0 00 000011 CAMN AC,AC-2 ;TEST EXP=AC EXP+1
2296 031734 003 13 0 00 017603 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 20-2
DSKCA1 MAC 29-Mar-78 10:59 PART I.B-FAD AND NORM RET SEQ 0069
2297 031735 321 15 0 00 031727 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2298
2299 017604 SN=SN+1
2300 010000 ZZ=ZZ+ZZ
2301 031736 205 11 0 00 211400 MOVSI AC-2,201400+ZZ ;SETUP FOR COMPARISION
2302 031737 205 13 0 00 210400 MOVSI AC,200400+ZZ ;SETUP AC
2303 031740 205 14 0 00 200400 MOVSI AC+1,200400 ;SETUP BR
2304 031741 140 13 0 00 000014 FAD AC,AC+1 ;C(AC)+C(E)
2305 031742 316 13 0 00 000011 CAMN AC,AC-2 ;TEST EXP=AC EXP+1
2306 031743 003 13 0 00 017604 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
2307 031744 321 15 0 00 031736 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2308
2309 017605 SN=SN+1
2310 020000 ZZ=ZZ+ZZ
2311 031745 205 11 0 00 221400 MOVSI AC-2,201400+ZZ ;SETUP FOR COMPARISION
2312 031746 205 13 0 00 220400 MOVSI AC,200400+ZZ ;SETUP AC
2313 031747 205 14 0 00 200400 MOVSI AC+1,200400 ;SETUP BR
2314 031750 140 13 0 00 000014 FAD AC,AC+1 ;C(AC)+C(E)
2315 031751 316 13 0 00 000011 CAMN AC,AC-2 ;TEST EXP=AC EXP+1
2316 031752 003 13 0 00 017605 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
2317 031753 321 15 0 00 031745 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2318
2319 017606 SN=SN+1
2320 040000 ZZ=ZZ+ZZ
2321 031754 205 11 0 00 241400 MOVSI AC-2,201400+ZZ ;SETUP FOR COMPARISION
2322 031755 205 13 0 00 240400 MOVSI AC,200400+ZZ ;SETUP AC
2323 031756 205 14 0 00 200400 MOVSI AC+1,200400 ;SETUP BR
2324 031757 140 13 0 00 000014 FAD AC,AC+1 ;C(AC)+C(E)
2325 031760 316 13 0 00 000011 CAMN AC,AC-2 ;TEST EXP=AC EXP+1
2326 031761 003 13 0 00 017606 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
2327 031762 321 15 0 00 031754 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2328
2329 017607 SN=SN+1
2330 100000 ZZ=ZZ+ZZ
2331 031763 205 11 0 00 301400 MOVSI AC-2,201400+ZZ ;SETUP FOR COMPARISION
2332 031764 205 13 0 00 300400 MOVSI AC,200400+ZZ ;SETUP AC
2333 031765 205 14 0 00 200400 MOVSI AC+1,200400 ;SETUP BR
2334 031766 140 13 0 00 000014 FAD AC,AC+1 ;C(AC)+C(E)
2335 031767 316 13 0 00 000011 CAMN AC,AC-2 ;TEST EXP=AC EXP+1
2336 031770 003 13 0 00 017607 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
2337 031771 321 15 0 00 031763 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2338
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 21
DSKCA1 MAC 29-Mar-78 10:59 PART I.B-FAD AND NORM RET SEQ 0070
2339 ;AR=200400000000
2340 ;BR=205400000000
2341 ;FAILURE RESULTS IN A BR EXPONENT=0.
2342 ;EXCESSIVE SHIFT CONDITION
2343 ;RESULTS IN NO ADD AND STORING THE LARGER
2344
2345 000012 AC=12
2346 SAVEAC (1,1)^
2347 031772 201 14 0 00 031772 MOVEI AC+2,.
2348 031773 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2349 031774 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2350 031775 202 14 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2351
2352 031776 205 10 0 00 200400 O17700: MOVSI AC-2,200400 ;SETUP FOR COMPARISION
2353 031777 205 12 0 00 200400 MOVSI AC,200400 ;SETUP AC
2354 032000 205 13 0 00 205400 MOVSI AC+1,205400 ;SETUP BR
2355 032001 140 12 0 00 000013 FAD AC,AC+1 ;C(AC)+C(E)
2356 032002 316 12 0 00 000010 CAMN AC,AC-2 ;TEST SUM=200400000000
2357 032003 003 12 0 00 017701 ER3 AC,17701
2358 032004 321 14 0 00 031776 JUMPL AC+2,O17700 ;LOOP ON ERROR SWITCH
2359
2360 ;AR=600400000000 (-1/4)
2361 ;BR=600400000000 (-1/4)
2362 ;FAILURE RESULTS IN LOSS OF BR EXPONENT
2363 ;AN EXCESSIVE SHIFT CONDITION, NO ADD
2364 ;STORE 600400000000
2365
2366 000011 AC=11
2367 SAVEAC (1,1)^
2368 032005 201 13 0 00 032005 MOVEI AC+2,.
2369 032006 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2370 032007 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2371 032010 202 13 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2372
2373 032011 205 11 0 00 600400 O20000: MOVSI AC,600400 ;SETUP AC
2374 032012 205 12 0 00 600400 MOVSI AC+1,600400 ;SETUP BR
2375 032013 140 11 0 00 000012 FAD AC,AC+1 ;C(AC)+C(E)
2376 032014 316 11 0 00 000012 CAMN AC,AC+1 ;TEST SUM=600400
2377 032015 003 11 0 00 020001 ER3 AC,20001
2378 032016 321 13 0 00 032011 JUMPL AC+2,O20000 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 22
DSKCA1 MAC 29-Mar-78 10:59 PART I.B-FAD AND NORM RET SEQ 0071
2379 ;THE DIFFERENCE BETWEEN EXPONENTS (EXCESSIVE SHIFT COND)
2380 ;SHOULD RESULT IN NO ADD AND STORING
2381 ;THE LARGER
2382 ;AR=0
2383 ;BR=205400000000
2384 ;FAILURE RESULTS IN A SUM
2385 ;=173400000000
2386
2387 000007 AC=7
2388 SAVEAC (1,1)^
2389 032017 201 11 0 00 032017 MOVEI AC+2,.
2390 032020 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2391 032021 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2392 032022 202 11 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2393
2394 032023 205 05 0 00 173400 O20100: MOVSI AC-2,173400 ;SETUP FOR COMPARISON
2395 032024 400 07 0 00 000000 SETZ AC, ;SETUP AC
2396 032025 205 10 0 00 205400 MOVSI AC+1,205400 ;SETUP BR
2397 032026 140 07 0 00 000010 FAD AC,AC+1 ;C(AC)+C(E)
2398 032027 316 07 0 00 000005 CAMN AC,AC-2 ;TEST SUM=173400000000
2399 032030 003 07 0 00 020101 ER3 AC,20101
2400 032031 321 11 0 00 032023 JUMPL AC+2,O20100 ;LOOP ON ERROR SWITCH
2401
2402 ;FAILURE RESULTS IN AN APPARENT DIFFERNECE IN
2403 ;EXPONENTS OF 177 EXCESSIVE SHIFT COND-
2404 ;NO ADD, STORE LARGER
2405 ;AR=200400000000
2406 ;BR=200400000000
2407 ;FAILURE RESULTS IN A SUM
2408 ;=200400000000
2409
2410 000006 AC=6
2411 SAVEAC (1,1)^
2412 032032 201 10 0 00 032032 MOVEI AC+2,.
2413 032033 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2414 032034 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2415 032035 202 10 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2416
2417 032036 205 06 0 00 200400 O20200: MOVSI AC,200400 ;SETUP AC
2418 032037 205 07 0 00 200400 MOVSI AC+1,200400 ;SETUP BR
2419 032040 140 06 0 00 000007 FAD AC,AC+1 ;C(AC)+C(E)
2420 032041 316 06 0 00 000007 CAMN AC,AC+1 ;TEST SUM=200400000000
2421 032042 003 06 0 00 020201 ER3 AC,20201
2422 032043 321 10 0 00 032036 JUMPL AC+2,O20200 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 23
DSKCA1 MAC 29-Mar-78 10:59 PART I.B-FAD AND NORM RET SEQ 0072
2423 ;AR=577400000000 (-1/2)
2424 ;BR=577400000000 (-1/2)
2425 ;CORRECT SUM=576400000000 (-1)
2426 ;ERROR SUM=777400000000
2427
2428 000005 AC=5
2429 SAVEAC (1,1)^
2430 032044 201 07 0 00 032044 MOVEI AC+2,.
2431 032045 202 07 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2432 032046 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2433 032047 202 07 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2434
2435 032050 205 03 0 00 777400 O20300: MOVSI AC-2,777400 ;SETUP FOR COMPARISON
2436 032051 205 05 0 00 577400 MOVSI AC,577400 ;SETUP AC
2437 032052 205 06 0 00 577400 MOVSI AC+1,577400 ;SETUP BR
2438 032053 140 05 0 00 000006 FAD AC,AC+1 ;C(AC)+C(E)
2439 032054 316 05 0 00 000003 CAMN AC,AC-2 ;TEST SUM=777400000000
2440 032055 003 05 0 00 020301 ER3 AC,20301 ;SC NEGATE SETUP FAILED
2441 032056 321 07 0 00 032050 JUMPL AC+2,O20300 ;LOOP ON ERROR SWITCH
2442
2443 ;AR=205600000000
2444 ;BR=177400000000
2445 ;FAILURE RESULTS IN A SUM
2446 ;=214500000000
2447
2448 000013 AC=13
2449 SAVEAC (1,1)^
2450 032057 201 15 0 00 032057 MOVEI AC+2,.
2451 032060 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2452 032061 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2453 032062 202 15 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2454
2455 032063 205 11 0 00 214500 O20400: MOVSI AC-2,214500 ;SETUP FOR COMPARISON
2456 032064 205 13 0 00 205600 MOVSI AC,205600 ;SETUP AC
2457 032065 205 14 0 00 177400 MOVSI AC+1,177400 ;SETUP BR
2458 032066 140 13 0 00 000014 FAD AC,AC+1 ;C(AC)+C(E)
2459 032067 316 13 0 00 000011 CAMN AC,AC-2 ;TEST SUM=214500
2460 032070 003 13 0 00 020401 ER3 AC,20401
2461 032071 321 15 0 00 032063 JUMPL AC+2,O20400 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 24
DSKCA1 MAC 29-Mar-78 10:59 PART I.B-FAD AND NORM RET SEQ 0073
2462 ;OPERANDS SELECTED SHOULD
2463 ;RESULT IN NR ALL ZERO CONDITION
2464 ;AR EXP=201,202,204,210,220,240,300
2465 ;BR EXP=202,204,207,214,225,246,307
2466 ;MANTISSA IN BOTH CASES=0
2467 ;FAILURE OF A BIT TO CLEAR RESULTS IN A
2468 ;SUM WHOSE EXPONENT IS EQUAL TO
2469 ;THE BR EXPONENT, A MANTISSA=400000000
2470
2471 000010 AC=10
2472 SAVEAC (1,1)^
2473 032072 201 12 0 00 032072 MOVEI AC+2,.
2474 032073 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2475 032074 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2476 032075 202 12 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2477
2478 ;TEST AR8
2479 032076 205 06 0 00 202400 O20500: MOVSI AC-2,202400 ;SETUP FOR COMPARISON
2480 032077 205 10 0 00 201000 MOVSI AC,201000 ;SETUP AC
2481 032100 205 11 0 00 202000 MOVSI AC+1,202000 ;SETUP BR
2482 032101 140 10 0 00 000011 FAD AC,AC+1 ;C(AC)+C(E)
2483 032102 316 10 0 00 000006 CAMN AC,AC-2 ;TEST SUM=202400000000
2484 032103 003 10 0 00 020501 ER3 AC,20501 ;AR8 FAILED TO CLEAR
2485 032104 321 12 0 00 032076 JUMPL AC+2,O20500 ;LOOP ON ERROR SWITCH
2486
2487 ;TEST AR7
2488 032105 205 06 0 00 204400 O20600: MOVSI AC-2,204400 ;SETUP FOR COMPARISON
2489 032106 205 10 0 00 202000 MOVSI AC,202000 ;SETUP AC
2490 032107 205 11 0 00 204000 MOVSI AC+1,204000 ;SETUP BR
2491 032110 140 10 0 00 000011 FAD AC,AC+1 ;C(AC)+C(E)
2492 032111 316 10 0 00 000006 CAMN AC,AC-2 ;TEST SUM=204400000000
2493 032112 003 10 0 00 020601 ER3 AC,20601 ;AR7 FAILED TO CLEAR
2494 032113 321 12 0 00 032105 JUMPL AC+2,O20600 ;LOOP ON ERROR SWITCH
2495
2496 ;TEST AR6
2497 032114 205 06 0 00 207400 O20700: MOVSI AC-2,207400 ;SETUP FOR COMPARISON
2498 032115 205 10 0 00 204000 MOVSI AC,204000 ;SETUP AC
2499 032116 205 11 0 00 207000 MOVSI AC+1,207000 ;SETUP BR
2500 032117 140 10 0 00 000011 FAD AC,AC+1 ;C(AC)+C(E)
2501 032120 316 10 0 00 000006 CAMN AC,AC-2 ;TEST SUM=207400000000
2502 032121 003 10 0 00 020701 ER3 AC,20701 ;AR6 FAILED TO CLEAR
2503 032122 321 12 0 00 032114 JUMPL AC+2,O20700 ;LOOP ON ERROR SWITCH
2504
2505 ;TEST AR5
2506 032123 205 06 0 00 214400 O21000: MOVSI AC-2,214400 ;SETUP FOR COMPARISON
2507 032124 205 10 0 00 210000 MOVSI AC,210000 ;SETUP AC
2508 032125 205 11 0 00 214000 MOVSI AC+1,214000 ;SETUP BR
2509 032126 140 10 0 00 000011 FAD AC,AC+1 ;C(AC)+C(E)
2510 032127 316 10 0 00 000006 CAMN AC,AC-2 ;TEST SUM=214400000000
2511 032130 003 10 0 00 021001 ER3 AC,21001 ;AR5 FAILED TO CLEAR
2512 032131 321 12 0 00 032123 JUMPL AC+2,O21000 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 25
DSKCA1 MAC 29-Mar-78 10:59 PART I.B-FAD AND NORM RET SEQ 0074
2513 ;TEST AR4
2514 032132 205 06 0 00 225400 O21100: MOVSI AC-2,225400 ;SETUP FOR COMPARISON
2515 032133 205 10 0 00 220000 MOVSI AC,220000 ;SETUP AC
2516 032134 205 11 0 00 225000 MOVSI AC+1,225000 ;SETUP BR
2517 032135 140 10 0 00 000011 FAD AC,AC+1 ;C(AC)+C(E)
2518 032136 316 10 0 00 000006 CAMN AC,AC-2 ;TEST SUM=225400000000
2519 032137 003 10 0 00 021101 ER3 AC,21101 ;AR4 FAILED TO CLEAR
2520 032140 321 12 0 00 032132 JUMPL AC+2,O21100 ;LOOP ON ERROR SWITCH
2521
2522 ;TEST AR3
2523 032141 205 06 0 00 246400 O21200: MOVSI AC-2,246400 ;SETUP FOR COMPARISON
2524 032142 205 10 0 00 240000 MOVSI AC,240000 ;SETUP AC
2525 032143 205 11 0 00 246000 MOVSI AC+1,246000 ;SETUP BR
2526 032144 140 10 0 00 000011 FAD AC,AC+1 ;C(AC)+C(E)
2527 032145 316 10 0 00 000006 CAMN AC,AC-2 ;TEST SUM=246400000000
2528 032146 003 10 0 00 021201 ER3 AC,21201 ;AR3 FAILED TO CLEAR
2529 032147 321 12 0 00 032141 JUMPL AC+2,O21200 ;LOOP ON ERROR SWITCH
2530
2531 ;TEST AR2
2532 032150 205 06 0 00 307400 O21300: MOVSI AC-2,307400 ;SETUP FOR COMPARISON
2533 032151 205 10 0 00 300000 MOVSI AC,300000 ;SETUP AC
2534 032152 205 11 0 00 307000 MOVSI AC+1,307000 ;SETUP BR
2535 032153 140 10 0 00 000011 FAD AC,AC+1 ;C(AC)+C(E)
2536 032154 316 10 0 00 000006 CAMN AC,AC-2 ;TEST SUM=307400000000
2537 032155 003 10 0 00 021301 ER3 AC,21301 ;AR2 FAILED TO CLEAR
2538 032156 321 12 0 00 032150 JUMPL AC+2,O21300 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 26
DSKCA1 MAC 29-Mar-78 10:59 PART I.B-FAD AND NORM RET SEQ 0075
2539 ;TEST ABILITY TO SET BITS 8-1
2540 ;AR EXP=200,201,202,203,204,205,206,207
2541 ;BR=600400000000
2542 ;FAILURE OF A BIT TO SET RESULTS IN A UNIQUE SUM
2543
2544 000007 AC=7
2545 SAVEAC (1,1)^
2546 032157 201 11 0 00 032157 MOVEI AC+2,.
2547 032160 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2548 032161 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2549 032162 202 11 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2550 ;TEST AR8(1)
2551 032163 205 05 0 00 577200 O21400: MOVSI AC-2,577200 ;SETUP FOR COMPARISON
2552 032164 205 07 0 00 200000 MOVSI AC,200000 ;SETUP AC
2553 032165 205 10 0 00 600400 MOVSI AC+1,600400 ;SETUP BR
2554 032166 140 07 0 00 000010 FAD AC,AC+1 ;C(AC)+C(E)
2555 032167 316 07 0 00 000005 CAMN AC,AC-2 ;TEST SUM=577200000000
2556 032170 003 07 0 00 021401 ER3 AC,21401 ;AR8 FAILED TO SET
2557 032171 321 11 0 00 032163 JUMPL AC+2,O21400 ;LOOP ON ERROR SWITCH
2558
2559 ;TEST AR7 (1)
2560 032172 205 05 0 00 576300 O21500: MOVSI AC-2,576300 ;SETUP FOR COMPARISON
2561 032173 205 07 0 00 201000 MOVSI AC,201000 ;SETUP AC
2562 032174 205 10 0 00 600400 MOVSI AC+1,600400 ;SETUP BR
2563 032175 140 07 0 00 000010 FAD AC,AC+1 ;C(AC)+C(E)
2564 032176 316 07 0 00 000005 CAMN AC,AC-2 ;TEST SUM=576300000000
2565 032177 003 07 0 00 021501 ER3 AC,21501 ;AR7 FAILED TO SET
2566 032200 321 11 0 00 032172 JUMPL AC+2,O21500 ;LOOP ON ERROR SWITCH
2567
2568 ;TEST AR6(1)
2569 032201 205 05 0 00 575340 O21600: MOVSI AC-2,575340 ;SETUP FOR COMPARISON
2570 032202 205 07 0 00 202000 MOVSI AC,202000 ;SETUP AC
2571 032203 205 10 0 00 600400 MOVSI AC+1,600400 ;SETUP BR
2572 032204 140 07 0 00 000010 FAD AC,AC+1 ;C(AC)+C(E)
2573 032205 316 07 0 00 000005 CAMN AC,AC-2 ;TEST SUM=575340000000
2574 032206 003 07 0 00 021601 ER3 AC,21601 ;AR6 FAILED TO SET
2575 032207 321 11 0 00 032201 JUMPL AC+2,O21600 ;LOOP ON ERROR SWITCH
2576
2577 ;TEST AR5(1)
2578 032210 205 05 0 00 574360 O21700: MOVSI AC-2,574360 ;SETUP FOR COMPARISON
2579 032211 205 07 0 00 203000 MOVSI AC,203000 ;SETUP AC
2580 032212 205 10 0 00 600400 MOVSI AC+1,600400 ;SETUP BR
2581 032213 140 07 0 00 000010 FAD AC,AC+1 ;C(AC)+C(E)
2582 032214 316 07 0 00 000005 CAMN AC,AC-2 ;TEST SUM=574360000000
2583 032215 003 07 0 00 021701 ER3 AC,21701 ;AR5 FAILED TO SET
2584 032216 321 11 0 00 032210 JUMPL AC+2,O21700 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 27
DSKCA1 MAC 29-Mar-78 10:59 PART I.B-FAD AND NORM RET SEQ 0076
2585 ;TEST AR4 (1)
2586 032217 205 05 0 00 573370 O22000: MOVSI AC-2,573370 ;SETUP FOR COMPARISON
2587 032220 205 07 0 00 204000 MOVSI AC,204000 ;SETUP AC
2588 032221 205 10 0 00 600400 MOVSI AC+1,600400 ;SETUP BR
2589 032222 140 07 0 00 000010 FAD AC,AC+1 ;C(AC)+C(E)
2590 032223 316 07 0 00 000005 CAMN AC,AC-2 ;TEST SUM=573370000000
2591 032224 003 07 0 00 022001 ER3 AC,22001 ;AR4 FAILED TO SET
2592 032225 321 11 0 00 032217 JUMPL AC+2,O22000 ;LOOP ON ERROR SWITCH
2593
2594 ;TEST AR3(1)
2595 032226 205 05 0 00 572374 O22100: MOVSI AC-2,572374 ;SETUP FOR COMPARISON
2596 032227 205 07 0 00 205000 MOVSI AC,205000 ;SETUP AC
2597 032230 205 10 0 00 600400 MOVSI AC+1,600400 ;SETUP BR
2598 032231 140 07 0 00 000010 FAD AC,AC+1 ;C(AC)+C(E)
2599 032232 316 07 0 00 000005 CAMN AC,AC-2 ;TEST SUM=572374000000
2600 032233 003 07 0 00 022101 ER3 AC,22101 ;AR3 FAILED TO SET
2601 032234 321 11 0 00 032226 JUMPL AC+2,O22100 ;LOOP ON ERROR SWITCH
2602
2603 ;TEST AR2(1)
2604 032235 205 05 0 00 571376 O22200: MOVSI AC-2,571376 ;SETUP FOR COMPARISON
2605 032236 205 07 0 00 206000 MOVSI AC,206000 ;SETUP AC
2606 032237 205 10 0 00 600400 MOVSI AC+1,600400 ;SETUP BR
2607 032240 140 07 0 00 000010 FAD AC,AC+1 ;C(AC)+C(E)
2608 032241 316 07 0 00 000005 CAMN AC,AC-2 ;TEST SUM=571376000000
2609 032242 003 07 0 00 022201 ER3 AC,22201 ;AR2 FAILED TO SET
2610 032243 321 11 0 00 032235 JUMPL AC+2,O22200 ;LOOP ON ERROR SWITCH
2611
2612 ;TEST AR1(1)
2613 032244 205 05 0 00 570377 O22300: MOVSI AC-2,570377 ;SETUP FOR COMPARISON
2614 032245 205 07 0 00 207000 MOVSI AC,207000 ;SETUP AC
2615 032246 205 10 0 00 600400 MOVSI AC+1,600400 ;SETUP BR
2616 032247 140 07 0 00 000010 FAD AC,AC+1 ;C(AC)+C(E)
2617 032250 316 07 0 00 000005 CAMN AC,AC-2 ;TEST SUM=570377000000
2618 032251 003 07 0 00 022301 ER3 AC,22301 ;AR1 FAILED TO SET
2619 032252 321 11 0 00 032244 JUMPL AC+2,O22300 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 28
DSKCA1 MAC 29-Mar-78 10:59 PART I.B-FAD AND NORM RET SEQ 0077
2620 ;AR=400200000000
2621 ;BR=377400000000
2622 ;FAILURE RESULTS IN LOSS OF BR EXPONENT,
2623 ;RESULTING IN AN EXCESSIVE SHIFT COND.-
2624 ;NO ADD STORE 400200000000
2625
2626 000006 AC=6
2627 SAVEAC (1,1)^
2628 032253 201 10 0 00 032253 MOVEI AC+2,.
2629 032254 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2630 032255 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2631 032256 202 10 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2632
2633 032257 205 04 0 00 400200 O22400: MOVSI AC-2,400200 ;SETUP FOR COMPARISON
2634 032260 205 06 0 00 400200 MOVSI AC,400200 ;SETUP AC
2635 032261 205 07 0 00 377400 MOVSI AC+1,377400 ;SETUP BR
2636 032262 140 06 0 00 000007 FAD AC,AC+1 ;C(AC)+C(E)
2637 032263 316 06 0 00 000004 CAMN AC,AC-2 ;TEST SUM=400200000000
2638 032264 003 06 0 00 022401 ER3 AC,22401
2639 032265 321 10 0 00 032257 JUMPL AC+2,O22400 ;LOOP ON ERROR SWITCH
2640
2641 ;AR=377400000000
2642 ;BBR=400200000000
2643 ;FAILURE RESULTS IN LOSS OF BR EXPONENT,
2644 ;RESULTING IN AN EXECESSIVE SHIFT CONDITION. STORE
2645 ;377400000000
2646
2647 000005 AC=5
2648 SAVEAC (1,1)^
2649 032266 201 07 0 00 032266 MOVEI AC+2,.
2650 032267 202 07 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2651 032270 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2652 032271 202 07 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2653
2654 032272 205 03 0 00 377400 O22500: MOVSI AC-2,377400 ;SETUP FOR COMPARISON
2655 032273 205 05 0 00 377400 MOVSI AC,377400 ;SETUP AC
2656 032274 205 06 0 00 400200 MOVSI AC+1,400200 ;SETUP BR
2657 032275 140 05 0 00 000006 FAD AC,AC+1 ;C(AC)+C(E)
2658 032276 316 05 0 00 000003 CAMN AC,AC-2 ;TEST SUM=377400000000
2659 032277 003 05 0 00 022501 ER3 AC,22501 ;SC+BR(FAT1) FAILED
2660 032300 321 07 0 00 032272 JUMPL AC+2,O22500 ;LOOP ON ERROR SWITCH
2661 PAGE
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 28-1
DSKCA1 MAC 29-Mar-78 10:59 PART I.B-FAD AND NORM RET SEQ 0078
2662 ;AR=200400000000
2663 ;BR=600400000000
2664 ;FAILURE RESULTS IN AN NR ALL ZERO COND.
2665 ;FAILURE RESULTS IN A SUM=0
2666
2667 000014 AC=14
2668 SAVEAC (1,1)^
2669 032301 201 16 0 00 032301 MOVEI AC+2,.
2670 032302 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2671 032303 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2672 032304 202 16 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2673
2674 032305 205 14 0 00 200400 O22600: MOVSI AC,200400 ;SETUP AC
2675 032306 205 15 0 00 600400 MOVSI AC+1,600400 ;SETUP BR
2676 032307 140 14 0 00 000015 FAD AC,AC+1 ;C(AC)+C(E)
2677 032310 336 00 0 00 000014 SKIPN AC ;SETUP SUM=0
2678 032311 003 14 0 00 022601 ER3 AC,22601 ;SC COMP SETUP FAILED
2679 032312 321 16 0 00 032305 JUMPL AC+2,O22600 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 29
DSKCA1 MAC 29-Mar-78 10:59 PART I.B-FAD AND NORM RET SEQ 0079
2680 ;AR=200600000000
2681 ;BR=201400000000
2682 ;FAILURE RESULTS IN SHIFTING SUM OF AR
2683 ;AND BR RESULTING IN A SUM
2684 ;=202640000000
2685
2686 000014 AC=14
2687 SAVEAC (1,1)^
2688 032313 201 16 0 00 032313 MOVEI AC+2,.
2689 032314 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2690 032315 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2691 032316 202 16 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2692
2693 032317 205 12 0 00 202640 O22700: MOVSI AC-2,202640 ;SETUP FOR COMPARISON
2694 032320 205 14 0 00 200600 MOVSI AC,200600 ;SETUP AC
2695 032321 205 15 0 00 201400 MOVSI AC+1,201400 ;SETUP BR
2696 032322 140 14 0 00 000015 FAD AC,AC+1 ;C(AC)+C(E)
2697 032323 316 14 0 00 000012 CAMN AC,AC-2 ;TEST SUM=202640000000
2698 032324 003 14 0 00 022701 ER3 AC,22701
2699 032325 321 16 0 00 032317 JUMPL AC+2,O22700 ;LOOP ON ERROR SWITCH
2700
2701 ;AR=577600000000 (-1/4) (UNNORMALIZED)
2702 ;BR=200400000000 (+1/2)
2703 ;FAILURE RESULTS IN A CORRECT MANTISSA,
2704 ;THE EXPONENT IS IN ERROR
2705 ;CORRECT SUM=177400000000
2706 ;ERROR SUM=376400000000
2707
2708 000013 AC=13
2709 SAVEAC (1,1)^
2710 032326 201 15 0 00 032326 MOVEI AC+2,.
2711 032327 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2712 032330 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2713 032331 202 15 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2714
2715 032332 205 11 0 00 376400 O23000: MOVSI AC-2,376400 ;SETUP FOR COMPARISON
2716 032333 205 13 0 00 577600 MOVSI AC,577600 ;SETUP AC
2717 032334 205 14 0 00 200400 MOVSI AC+1,200400 ;SETUP BR
2718 032335 140 13 0 00 000014 FAD AC,AC+1 ;C(AC)+C(E)
2719 032336 316 13 0 00 000011 CAMN AC,AC-2 ;TEST SUM=376400000000
2720 032337 003 13 0 00 023001 ER3 AC,23001
2721 032340 321 15 0 00 032332 JUMPL AC+2,O23000 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 30
DSKCA1 MAC 29-Mar-78 10:59 PART I.B-FAD AND NORM RET SEQ 0080
2722 ;AR=600400000000 (-1/4)
2723 ;BR=577200000000 (-3/4)
2724 ;FAILURE RESULTS IN A CORRECT MANTISSA,
2725 ;THE EXPONENT IS IN ERROR
2726 ;CORRECT SUM=576400000000
2727 ;ERROR SUM=600400000000
2728
2729 000012 AC=12
2730 SAVEAC (1,1)^
2731 032341 201 14 0 00 032341 MOVEI AC+2,.
2732 032342 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2733 032343 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2734 032344 202 14 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2735
2736 032345 205 10 0 00 600400 O23100: MOVSI AC-2,600400 ;SETUP FOR COMPARISON
2737 032346 205 12 0 00 600400 MOVSI AC,600400 ;SETUP AC
2738 032347 205 13 0 00 577200 MOVSI AC+1,577200 ;SETUP BR
2739 032350 140 12 0 00 000013 FAD AC,AC+1 ;C(AC)+C(E)
2740 032351 316 12 0 00 000010 CAMN AC,AC-2 ;TEST SUM=600400000000
2741 032352 003 12 0 00 023101 ER3 AC,23101 ;SC COMP SETUP FAILED
2742 032353 321 14 0 00 032345 JUMPL AC+2,O23100 ;LOOP ON ERROR SWITCH
2743
2744
2745 ;AR=600400000000 (-1/4)
2746 ;BR=577200000000 (-3/4)
2747 ;FAILURE RESULTS IN A CORRECT MANTISSA,
2748 ;THE EXPONENT IS IN ERROR
2749 ;CORRECT SUM=576400000000
2750 ;ERROR SUM =5777400000000
2751
2752 000011 AC=11
2753
2754 SAVEAC (1,1)^
2755 032354 201 13 0 00 032354 MOVEI AC+2,.
2756 032355 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2757 032356 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2758 032357 202 13 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2759
2760 032360 205 07 0 00 577400 O23200: MOVSI AC-2,577400 ;SETUP FOR COMPARISON
2761 032361 205 11 0 00 600400 MOVSI AC,600400 ;SETUP AC
2762 032362 205 12 0 00 577200 MOVSI AC+1,577200 ;SETUP BR
2763 032363 140 11 0 00 000012 FAD AC,AC+1 ;C(AC)+C(E)
2764 032364 316 11 0 00 000007 CAMN AC,AC-2 ;TEST SUM=577400000000
2765 032365 003 11 0 00 023201 ER3 AC,23201
2766 032366 321 13 0 00 032360 JUMPL AC+2,O23200 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 31
DSKCA1 MAC 29-Mar-78 10:59 PART I.B-FAD AND NORM RET SEQ 0081
2767 ;AR=600400000000 (-1/4)
2768 ;BR=577200000000 (-3/4)
2769 ;FAILURE RESULTS IN A CORRECT MANTISSA,
2770 ;THE EXPONENT IS IN ERROR
2771 ;CORRECT SUM=576400000000
2772 ;ERROR SUM=577000000000
2773
2774 000010 AC=10
2775 SAVEAC (1,1)^
2776 032367 201 12 0 00 032367 MOVEI AC+2,.
2777 032370 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2778 032371 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2779 032372 202 12 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2780
2781 032373 205 06 0 00 577000 O23300: MOVSI AC-2,577000 ;SETUP FOR COMPARISON
2782 032374 205 10 0 00 600400 MOVSI AC,600400 ;SETUP AC
2783 032375 205 11 0 00 577200 MOVSI AC+1,577200 ;SETUP BR
2784 032376 140 10 0 00 000011 FAD AC,AC+1 ;C(AC)+C(E)
2785 032377 316 10 0 00 000006 CAMN AC,AC-2 ;TEST SUM=577000000000
2786 032400 003 10 0 00 023301 ER3 AC,23301
2787 032401 321 12 0 00 032373 JUMPL AC+2,O23300 ;LOOP ON ERROR SWITCH
2788
2789 ;AR=201400000000 (+1)
2790 ;BR=200400000000 (+1/2)
2791 ;CORRECT SUM=201600000000
2792 ;ERROR SUM=200600000000
2793
2794 000010 AC=10
2795 SAVEAC (1,1)^
2796 032402 201 12 0 00 032402 MOVEI AC+2,.
2797 032403 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2798 032404 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2799 032405 202 12 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2800
2801 032406 205 06 0 00 200600 O23400: MOVSI AC-2,200600 ;SETUP FOR COMPARISON
2802 032407 205 10 0 00 201400 MOVSI AC,201400 ;SETUP AC
2803 032410 205 11 0 00 200400 MOVSI AC+1,200400 ;SETUP BR
2804 032411 140 10 0 00 000011 FAD AC,AC+1 ;C(AC)+C(E)
2805 032412 316 10 0 00 000006 CAMN AC,AC-2 ;TEST SUM=200600000000
2806 032413 003 10 0 00 023401 ER3 AC,23401
2807 032414 321 12 0 00 032406 JUMPL AC+2,O23400 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 32
DSKCA1 MAC 29-Mar-78 10:59 PART I.B-FAD AND NORM RET SEQ 0082
2808 ;AR=576400000000 (-1)
2809 ;BR=200400000000 (+1/2)
2810 ;CORRECT SUM=577400000000 (-1/2)
2811 ;ERROR SUM=177400000000
2812
2813 000007 AC=7
2814 SAVEAC (1,1)^
2815 032415 201 11 0 00 032415 MOVEI AC+2,.
2816 032416 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2817 032417 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2818 032420 202 11 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2819
2820 032421 205 05 0 00 177400 O23500: MOVSI AC-2,177400 ;SETUP FOR COMPARISON
2821 032422 205 07 0 00 576400 MOVSI AC,576400 ;SETUP AC
2822 032423 205 10 0 00 200400 MOVSI AC+1,200400 ;SETUP BR
2823 032424 140 07 0 00 000010 FAD AC,AC+1 ;C(AC)+C(E)
2824 032425 316 07 0 00 000005 CAMN AC,AC-2 ;TEST SUM=177400000000
2825 032426 003 07 0 00 023501 ER3 AC,23501
2826 032427 321 11 0 00 032421 JUMPL AC+2,O23500 ;LOOP ON ERROR SWITCH
2827
2828 ;AR=200440000000
2829 ;BR=200400000000
2830 ;CORRECT SUM=201400000000
2831 ;ERROR SUM=570000000000
2832
2833 000010 AC=10
2834 SAVEAC (1,1)^
2835 032430 201 12 0 00 032430 MOVEI AC+2,.
2836 032431 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2837 032432 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2838 032433 202 12 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2839
2840 032434 205 06 0 00 175400 O23600: MOVSI AC-2,175400 ;SETUP FOR COMPARISON
2841 032435 205 10 0 00 200440 MOVSI AC,200440 ;SETUP AC
2842 032436 205 11 0 00 200400 MOVSI AC+1,200400 ;SETUP BR
2843 032437 140 10 0 00 000011 FAD AC,AC+1 ;C(AC)+C(E)
2844 032440 316 10 0 00 000006 CAMN AC,AC-2 ;TEST SUM=175400000000
2845 032441 003 10 0 00 023601 ER3 AC,23601
2846 032442 321 12 0 00 032434 JUMPL AC+2,O23600 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 33
DSKCA1 MAC 29-Mar-78 10:59 PART I.B-FAD AND NORM RET SEQ 0083
2847 ;TEST ABILITY TO BRING UP NRT10
2848 ;AR=577400000000 (-1/2)
2849 ;BR=577400000000 (-1/2)
2850 ;CORRECT SUM=576400000000 (-1)
2851 ;ERROR SUM=577000000000
2852
2853 000007 AC=7
2854 SAVEAC (1,1)^
2855 032443 201 11 0 00 032443 MOVEI AC+2,.
2856 032444 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2857 032445 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2858 032446 202 11 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2859
2860 032447 205 05 0 00 577000 O23700: MOVSI AC-2,577000 ;SETUP FOR COMPARISON
2861 032450 205 07 0 00 577400 MOVSI AC,577400 ;SETUP AC
2862 032451 205 10 0 00 577400 MOVSI AC+1,577400 ;SETUP BR
2863 032452 140 07 0 00 000010 FAD AC,AC+1 ;C(AC)+C(E)
2864 032453 316 07 0 00 000005 CAMN AC,AC-2 ;TEST SUM=577000000000
2865 032454 003 07 0 00 023701 ER3 AC,23701
2866 032455 321 11 0 00 032447 JUMPL AC+2,O23700 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 34
DSKCA1 MAC 29-Mar-78 10:59 PART I.C-FAD (NORM RET, ROUNDING) SEQ 0084
2867 SUBTTL PART I.C-FAD (NORM RET, ROUNDING)
2868
2869 ; PART I.C-FAD(NORM RET, ROUNDING)
2870
2871 ;AR=200400000077
2872 ;BR=206400000000
2873 ;FAILURE OF 1,2 OR 3 RESULTS IN AN
2874 ;UNROUNDED SUM
2875 ;CORRECT SUM=206404000001
2876 ;ERROR SUM=206404000000
2877
2878 000014 AC=14
2879 SAVEAC (1,1)^
2880 032456 201 16 0 00 032456 MOVEI AC+2,.
2881 032457 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2882 032460 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2883 032461 202 16 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2884
2885 032462 205 12 0 00 206404 O26500: MOVSI AC-2,206404 ;SETUP FOR COMPARISON
2886 032463 541 14 0 00 000077 HRRI AC,77 ;SETUP
2887 032464 505 14 0 00 200400 HRLI AC,200400 ;AC
2888 032465 205 15 0 00 206400 MOVSI AC+1,206400 ;SETUP BR
2889 032466 144 14 0 00 000015 FADR AC,AC+1 ;C(AC)+C(E)
2890 032467 316 14 0 00 000012 CAMN AC,AC-2 ;TEST SUM=206404000000
2891 032470 003 14 0 00 026501 ER3 AC,26501
2892 032471 321 16 0 00 032462 JUMPL AC+2,O26500 ;LOOP ON ERROR SWITCH
2893
2894 ;AC=200400000077
2895 ;BR=206400000000
2896 ;FAILURE RESULTS IN A CORRECT MANTISSA,
2897 ;THE EXPONENT IS IN ERROR
2898 ;CORRECT SUM=206404000001
2899 ;ERROR SUM=171404000001
2900
2901 000014 AC=14
2902 SAVEAC (1,1)^
2903 032472 201 16 0 00 032472 MOVEI AC+2,.
2904 032473 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2905 032474 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2906 032475 202 16 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2907
2908 032476 541 12 0 00 000001 O26600: HRRI AC-2,1 ;SETUP AC-2
2909 032477 505 12 0 00 171404 HRLI AC-2,171404 ;FOR COMPARISON
2910 032500 541 14 0 00 000077 HRRI AC,77 ;SETUP
2911 032501 505 14 0 00 200400 HRLI AC,200400 ;AC
2912 032502 205 13 0 00 206400 MOVSI AC-1,206400 ;SETUP BR
2913 032503 144 14 0 00 000013 FADR AC,AC-1 ;C(AC)+C(E)
2914 032504 316 14 0 00 000012 CAMN AC,AC-2 ;TEST SUM=171404000001
2915 032505 003 14 0 00 026601 ER3 AC,26601
2916 032506 321 16 0 00 032476 JUMPL AC+2,O26600 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 35
DSKCA1 MAC 29-Mar-78 10:59 PART I.C-FAD (NORM RET, ROUNDING) SEQ 0085
2917 ;AR=200400000003
2918 ;BR=202400000000
2919 ;FAILURE RESULTS
2920 ;IN AN UNROUNDED SUM
2921 ;CORR SUM=202500000001
2922 ;ERROR SUM=202500000000
2923
2924 000013 AC=13
2925 SAVEAC (1,1)^
2926 032507 201 15 0 00 032507 MOVEI AC+2,.
2927 032510 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2928 032511 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2929 032512 202 15 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2930
2931 032513 205 11 0 00 202500 O26700: MOVSI AC-2,202500 ;SETUP FOR COMPARISON
2932 032514 541 13 0 00 000003 HRRI AC,3 ;SETUP
2933 032515 505 13 0 00 200400 HRLI AC,200400 ;AC
2934 032516 205 14 0 00 202400 MOVSI AC+1,202400 ;SETUP BR
2935 032517 144 13 0 00 000014 FADR AC,AC+1 ;C(AC)+C(E)
2936 032520 316 13 0 00 000011 CAMN AC,AC-2 ;TEST ERROR SUM
2937 032521 003 13 0 00 026701 ER3 AC,26701
2938 032522 321 15 0 00 032513 JUMPL AC+2,O26700 ;LOOP ON ERROR SWITCH
2939
2940 ;AR=200400777777
2941 ;BR=202400000000
2942 ;FAILURE RESULTS IN CONTINOUS
2943 ;ROUNDING. EACH PASS ADDING ONE TO AD(AR).
2944 ;EVENTUALLY AN NRSHRT COND (AR8(1) AND
2945 ;AD 9-35=0) DEVELOPS. SHIFTING MQRT ONE
2946 ;BRINGS DOWN NR ROUND LEVEL. FADR IS
2947 ;TERMINATED.
2948 ;CORR SUM=202600000000
2949 ;ERROR SUM=203400000000
2950
2951 000012 AC=12
2952 SAVEAC (1,1)^
2953 032523 201 14 0 00 032523 MOVEI AC+2,.
2954 032524 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2955 032525 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2956 032526 202 14 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2957
2958 032527 205 10 0 00 203400 O27000: MOVSI AC-2,203400 ;SETUP FOR COMPARISON
2959 032530 541 12 0 00 777777 HRRI AC,-1 ;SETUP
2960 032531 505 12 0 00 200400 HRLI AC,200400 ;AC
2961 032532 205 13 0 00 202400 MOVSI AC+1,202400 ;SETUP BR
2962 032533 144 12 0 00 000013 FADR AC,AC+1 ;C(AC)+C(E)
2963 032534 316 12 0 00 000010 CAMN AC,AC-2 ;TEST SUM=203400000000
2964 032535 003 12 0 00 027001 ER3 AC,27001
2965 032536 321 14 0 00 032527 JUMPL AC+2,O27000 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 36
DSKCA1 MAC 29-Mar-78 10:59 PART I.C-FAD (NORM RET, ROUNDING) SEQ 0086
2966 ;TEST FADR
2967 ;SINGLE PRECISION FLOATING NORMALIZATION
2968 ;RENORMALIZATION IS FORCED DUE TO THE ROUNDING OF THE
2969 ;OPERAND OVERFLOWING THE MANTISSA.
2970
2971 000010 AC=10
2972 SAVEAC (1,1)^
2973 032537 201 12 0 00 032537 MOVEI AC+2,.
2974 032540 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2975 032541 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2976 032542 202 12 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2977
2978 032543 525 10 0 00 000777 SPFNRN: HRLOI AC,777 ;FRACTION ALL ONES
2979 032544 200 06 0 00 036647 MOVE AC-2,[034400,,0]
2980
2981 032545 144 10 0 00 036650 FADR AC,[033777,,-1] ;DURING ROUNDING WILL REQ RENORM
2982
2983 032546 312 10 0 00 000006 CAME AC,AC-2 ;WORD GET RENORMED OK ?
2984 032547 003 10 0 00 027010 ER3 AC,27010 ;NO
2985
2986 032550 321 12 0 00 032543 JUMPL AC+2,SPFNRN ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 37
DSKCA1 MAC 29-Mar-78 10:59 PART I.D-FSB SEQ 0087
2987 SUBTTL PART I.D-FSB
2988
2989 ; PART I.D-FSB
2990
2991 ;TEST FCE, FAC, SAC AND DECODE
2992 ;TEST APPARENT ABILITY TO FETCH/STORE
2993 ;C(E),C(AC) AND DECODE
2994 ;AR=205400000000
2995 ;BR=177400000000
2996 ;FCE/SAC FAIL-C(AC)=ORIGINAL
2997 ;FAC FAILS-C(AC)=2'S COMP C(BR)
2998
2999 000007 AC=7
3000 SAVEAC (1,1)^
3001 032551 201 11 0 00 032551 MOVEI AC+2,.
3002 032552 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3003 032553 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3004 032554 202 11 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3005
3006 032555 205 05 0 00 205400 O27100: MOVSI AC-2,205400 ;SETUP FOR COMPARISON
3007 032556 205 07 0 00 205400 MOVSI AC,205400 ;SETUP AC
3008 032557 205 10 0 00 177400 MOVSI AC+1,177400 ;SETUP BR
3009 032560 150 07 0 00 000010 FSB AC,AC+1 ;C(AC)-C(E)
3010 032561 316 07 0 00 000005 CAMN AC,AC-2 ;TEST AC=ORIG
3011 032562 003 07 0 00 027101 ER3 AC,27101 ;FCE/SAC FAILED
3012 032563 205 05 0 00 600400 MOVSI AC-2,600400 ;SETUP FOR COMPARISON
3013 032564 316 07 0 00 000005 CAMN AC,AC-2 ;TEST AC=2'S COMP BR
3014 032565 003 07 0 00 027101 ER3 AC,27101 ;FAC FAILED
3015 032566 321 11 0 00 032555 JUMPL AC+2,O27100 ;LOOP ON ERROR SWITCH
3016
3017 ;AR=200400000000(1/2)
3018 ;BR=177400000000(1/4)
3019 ;FAILURE RESULTS IN LOSS OF SUBTRAHEND
3020 ;FAILURE RESULTS IN AN EXCESSIVE SHIFT
3021 ;COND, STORE MINUEND
3022 ;CORRECT DIFF=177400000000(1/4)
3023 ;ERROR DIFF=202400000000(1/2)
3024
3025 000014 AC=14
3026 SAVEAC (1,1)^
3027 032567 201 16 0 00 032567 MOVEI AC+2,.
3028 032570 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3029 032571 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3030 032572 202 16 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3031
3032 032573 205 12 0 00 200400 O27200: MOVSI AC-2,200400 ;SETUP FOR COMPARISON
3033 032574 205 14 0 00 200400 MOVSI AC,200400 ;SETUP AC
3034 032575 205 15 0 00 177400 MOVSI AC+1,177400 ;SETUP BR
3035 032576 150 14 0 00 000015 FSB AC,AC+1 ;C(AC)-C(E)
3036 032577 316 14 0 00 000012 CAMN AC,AC-2 ;TEST DIFF=200400000000
3037 032600 003 14 0 00 027201 ER3 AC,27201
3038 032601 321 16 0 00 032573 JUMPL AC+2,O27200 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 38
DSKCA1 MAC 29-Mar-78 10:59 PART I.D-FSB SEQ 0088
3039 ;AR=200400000000(1/2)
3040 ;BR=177400000000(1/4)
3041 ;FAILURE RESULTS IN A ONE'S COMPLEMENT
3042 ;SUBTRAHEND
3043 ;CORRECTd DIFF=177400000000
3044 ;ERROR DIFF=176477777777
3045
3046 000014 AC=14
3047 SAVEAC (1,1)^
3048 032602 201 16 0 00 032602 MOVEI AC+2,.
3049 032603 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3050 032604 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3051 032605 202 16 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3052
3053 032606 541 12 0 00 777774 O27300: HRRI AC-2,-4 ;SETUP AC-2
3054 032607 505 12 0 00 176477 HRLI AC-2,176477 ;FOR COMPARISON
3055 032610 205 14 0 00 200400 MOVSI AC,200400 ;SETUP AC
3056 032611 205 15 0 00 177400 MOVSI AC+1,177400 ;SETUP BR
3057 032612 150 14 0 00 000015 FSB AC,AC+1 ;C(AC)-C(E)
3058 032613 316 14 0 00 000012 CAMN AC,AC-2 ;TEST DIFF=176477777774
3059 032614 003 14 0 00 027301 ER3 AC,27301
3060 032615 321 16 0 00 032606 JUMPL AC+2,O27300 ;LOOP ON ERROR SWITCH
3061
3062 ;AR=200400000000(1/2)
3063 ;BR=177400000000(1/4)
3064 ;FAILURE RESULTS IN LOSS OF 2'S COMP
3065 ;SUBTRAHEND. THE NUMBER IN AR IS ADDED
3066 ;TO ITSELF
3067 ;CORRECT DIFF=177400000000 1/4
3068 ;FAILURE DIFF=201400000000 (1)
3069
3070 000013 AC=13
3071 SAVEAC (1,1)^
3072 032616 201 15 0 00 032616 MOVEI AC+2,.
3073 032617 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3074 032620 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3075 032621 202 15 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3076
3077 032622 205 11 0 00 201400 O27400: MOVSI AC-2,201400 ;SETUP FOR COMPARISON
3078 032623 205 13 0 00 200400 MOVSI AC,200400 ;SETUP AC
3079 032624 205 14 0 00 177400 MOVSI AC+1,177400 ;SETUP BR
3080 032625 150 13 0 00 000014 FSB AC,AC+1 ;C(AC)-C(E)
3081 032626 316 13 0 00 000011 CAMN AC,AC-2 ;TEST DIFF=201400000000
3082 032627 003 13 0 00 027401 ER3 AC,27401
3083 032630 321 15 0 00 032622 JUMPL AC+2,O27400 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 39
DSKCA1 MAC 29-Mar-78 10:59 PART I.D-FSB SEQ 0089
3084 ;AR=200400000000
3085 ;BR=177400000000
3086 ;FAILURE RESULTS IN LOSS OF MINUEND
3087 ;THE NUMBER IN BR IS SUBTRACTED
3088 ;FROM ITSELF. NR ALL ZERO IS ASSERTED
3089
3090 000012 AC=12
3091 SAVEAC (1,1)^
3092 032631 201 14 0 00 032631 MOVEI AC+2,.
3093 032632 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3094 032633 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3095 032634 202 14 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3096
3097 032635 205 12 0 00 200400 O27500: MOVSI AC,200400 ;SETUP AC
3098 032636 205 13 0 00 177400 MOVSI AC+1,177400 ;SETUP BR
3099 032637 150 12 0 00 000013 FSB AC,AC+1 ;C(AC)-C(E)
3100 032640 336 00 0 00 000012 SKIPN AC ;TEST DIFF=0
3101 032641 003 12 0 00 027501 ER3 AC,27501
3102 032642 321 14 0 00 032635 JUMPL AC+2,O27500 ;LOOP ON ERROR SWITCH
3103
3104 ;AR=200400000000(1/2)
3105 ;BR=200400000000(1/2)
3106 ;FAILURE RESULTS IN A MINUEND
3107 ;EQUAL TO 777777777777
3108 ;CORRECT DIFF=0
3109 ;ERROR DIFF=631400000000
3110
3111 000011 AC=11
3112 SAVEAC (1,1)^
3113 032643 201 13 0 00 032643 MOVEI AC+2,.
3114 032644 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3115 032645 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3116 032646 202 13 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3117
3118 032647 205 07 0 00 631400 O27600: MOVSI AC-2,631400 ;SETUP FOR COMPARISON
3119 032650 205 11 0 00 200400 MOVSI AC,200400 ;SETUP AC
3120 032651 205 12 0 00 200400 MOVSI AC+1,200400 ;SETUP BR
3121 032652 150 11 0 00 000012 FSB AC,AC+1 ;C(AC)-C(E)
3122 032653 316 11 0 00 000007 CAMN AC,AC-2 ;TEST DIFF=631400000000
3123 032654 003 11 0 00 027601 ER3 AC,27601
3124 032655 321 13 0 00 032647 JUMPL AC+2,O27600 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 40
DSKCA1 MAC 29-Mar-78 10:59 PART I.D-FSB SEQ 0090
3125 ;AR=200400000000(1/2)
3126 ;BR=177400000000(1/4)
3127 ;FAILURE RESULTS IN ADDING TWO
3128 ;TO THE DIFFERENCE
3129 ;CORRECT DIFF=177400000000
3130 ;ERROR DIFF=177400000002
3131
3132 000010 AC=10
3133 SAVEAC (1,1)^
3134 032656 201 12 0 00 032656 MOVEI AC+2,.
3135 032657 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3136 032660 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3137 032661 202 12 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3138
3139 032662 541 06 0 00 000002 O27700: HRRI AC-2,2 ;SETUP AC-2
3140 032663 505 06 0 00 177400 HRLI AC-2,177400 ;FOR COMPARISON
3141 032664 205 10 0 00 200400 MOVSI AC,200400 ;SETUP AC
3142 032665 205 11 0 00 177400 MOVSI AC+1,177400 ;SETUP BR
3143 032666 150 10 0 00 000011 FSB AC,AC+1 ;C(AC)-C(E)
3144 032667 316 10 0 00 000006 CAMN AC,AC-2 ;TEST DIFF=177400000002
3145 032670 003 10 0 00 027701 ER3 AC,27701
3146 032671 321 12 0 00 032662 JUMPL AC+2,O27700 ;LOOP ON ERROR SWITCH
3147
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 41
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0091
3148 SUBTTL PART I.E-GEN TEST-FSC,FAD,FSB
3149
3150 ;PART I.E-GENERAL TEST-FSC,FAD,FADR,FSB
3151
3152 ;TEST FSC
3153 ;INCREASING SCALE FACTOR
3154 ;AR=000400000000
3155 ;SCALE=1,2,4,10,20,40,100,200
3156 ;RESULTANT EXP=1,2,4,10,20,40,200,
3157
3158 000014 AC=14
3159 SAVEAC (1,1)^
3160 032672 201 16 0 00 032672 MOVEI AC+2,.
3161 032673 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3162 032674 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3163 032675 202 16 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3164
3165 030500 SN=30500
3166 000400 XX=400
3167 000000 ZZ=0
3168
3169 O30500: REPEAT ^D8, ;TEST FSC
3170 <SN=SN+1
3171 XX=XX+XX
3172 ZZ=ZZ+ZZ
3173 IFE ZZ,<ZZ=1>
3174 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3175 MOVSI AC,400 ;SETUP AC
3176 FSC AC,ZZ ;RESCALE
3177 CAME AC,AC-2 ;TEST RESULT
3178 ER3 AC,SN ;FSC FAILED
3179 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3180 >
3181 030501 SN=SN+1
3182 001000 XX=XX+XX
3183 000000 ZZ=ZZ+ZZ
3184 000001 IFE ZZ,<ZZ=1>
3185 032676 205 12 0 00 001400 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3186 032677 205 14 0 00 000400 MOVSI AC,400 ;SETUP AC
3187 032700 132 14 0 00 000001 FSC AC,ZZ ;RESCALE
3188 032701 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
3189 032702 003 14 0 00 030501 ER3 AC,SN ;FSC FAILED
3190 032703 321 16 0 00 032676 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3191
3192 030502 SN=SN+1
3193 002000 XX=XX+XX
3194 000002 ZZ=ZZ+ZZ
3195 IFE ZZ,<ZZ=1>
3196 032704 205 12 0 00 002400 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3197 032705 205 14 0 00 000400 MOVSI AC,400 ;SETUP AC
3198 032706 132 14 0 00 000002 FSC AC,ZZ ;RESCALE
3199 032707 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
3200 032710 003 14 0 00 030502 ER3 AC,SN ;FSC FAILED
3201 032711 321 16 0 00 032704 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3202
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 41-1
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0092
3203 030503 SN=SN+1
3204 004000 XX=XX+XX
3205 000004 ZZ=ZZ+ZZ
3206 IFE ZZ,<ZZ=1>
3207 032712 205 12 0 00 004400 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3208 032713 205 14 0 00 000400 MOVSI AC,400 ;SETUP AC
3209 032714 132 14 0 00 000004 FSC AC,ZZ ;RESCALE
3210 032715 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
3211 032716 003 14 0 00 030503 ER3 AC,SN ;FSC FAILED
3212 032717 321 16 0 00 032712 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3213
3214 030504 SN=SN+1
3215 010000 XX=XX+XX
3216 000010 ZZ=ZZ+ZZ
3217 IFE ZZ,<ZZ=1>
3218 032720 205 12 0 00 010400 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3219 032721 205 14 0 00 000400 MOVSI AC,400 ;SETUP AC
3220 032722 132 14 0 00 000010 FSC AC,ZZ ;RESCALE
3221 032723 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
3222 032724 003 14 0 00 030504 ER3 AC,SN ;FSC FAILED
3223 032725 321 16 0 00 032720 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3224
3225 030505 SN=SN+1
3226 020000 XX=XX+XX
3227 000020 ZZ=ZZ+ZZ
3228 IFE ZZ,<ZZ=1>
3229 032726 205 12 0 00 020400 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3230 032727 205 14 0 00 000400 MOVSI AC,400 ;SETUP AC
3231 032730 132 14 0 00 000020 FSC AC,ZZ ;RESCALE
3232 032731 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
3233 032732 003 14 0 00 030505 ER3 AC,SN ;FSC FAILED
3234 032733 321 16 0 00 032726 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3235
3236 030506 SN=SN+1
3237 040000 XX=XX+XX
3238 000040 ZZ=ZZ+ZZ
3239 IFE ZZ,<ZZ=1>
3240 032734 205 12 0 00 040400 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3241 032735 205 14 0 00 000400 MOVSI AC,400 ;SETUP AC
3242 032736 132 14 0 00 000040 FSC AC,ZZ ;RESCALE
3243 032737 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
3244 032740 003 14 0 00 030506 ER3 AC,SN ;FSC FAILED
3245 032741 321 16 0 00 032734 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3246
3247 030507 SN=SN+1
3248 100000 XX=XX+XX
3249 000100 ZZ=ZZ+ZZ
3250 IFE ZZ,<ZZ=1>
3251 032742 205 12 0 00 100400 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3252 032743 205 14 0 00 000400 MOVSI AC,400 ;SETUP AC
3253 032744 132 14 0 00 000100 FSC AC,ZZ ;RESCALE
3254 032745 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
3255 032746 003 14 0 00 030507 ER3 AC,SN ;FSC FAILED
3256 032747 321 16 0 00 032742 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3257
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 41-2
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0093
3258 030510 SN=SN+1
3259 200000 XX=XX+XX
3260 000200 ZZ=ZZ+ZZ
3261 IFE ZZ,<ZZ=1>
3262 032750 205 12 0 00 200400 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3263 032751 205 14 0 00 000400 MOVSI AC,400 ;SETUP AC
3264 032752 132 14 0 00 000200 FSC AC,ZZ ;RESCALE
3265 032753 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
3266 032754 003 14 0 00 030510 ER3 AC,SN ;FSC FAILED
3267 032755 321 16 0 00 032750 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3268
3269 PAGE
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 41-3
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0094
3270 ;TEST FSC
3271 ;INCREASING EXPONENT
3272 ;AR EXP=201,202,204,210,220,240,300
3273 ;SCALE=1
3274 ;RESULTANT EXP=202,203,205,211,221,241,301
3275
3276 000014 AC=14
3277 SAVEAC (1,1)^
3278 032756 201 16 0 00 032756 MOVEI AC+2,.
3279 032757 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3280 032760 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3281 032761 202 16 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3282
3283 030600 SN=30600
3284 000400 ZZ=400
3285
3286 O30600: REPEAT ^D7, ;TEST FSC
3287 <SN=SN+1
3288 ZZ=ZZ+ZZ
3289 XX=ZZ+1000
3290 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
3291 MOVSI AC,200400+ZZ ;SETUP AC
3292 FSC AC,1 ;RESCALE
3293 CAME AC,AC-2 ;TEST RESULT
3294 ER3 AC,SN ;FSC FAILED
3295 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3296 >
3297 030601 SN=SN+1
3298 001000 ZZ=ZZ+ZZ
3299 002000 XX=ZZ+1000
3300 032762 205 12 0 00 202400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
3301 032763 205 14 0 00 201400 MOVSI AC,200400+ZZ ;SETUP AC
3302 032764 132 14 0 00 000001 FSC AC,1 ;RESCALE
3303 032765 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
3304 032766 003 14 0 00 030601 ER3 AC,SN ;FSC FAILED
3305 032767 321 16 0 00 032762 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3306
3307 030602 SN=SN+1
3308 002000 ZZ=ZZ+ZZ
3309 003000 XX=ZZ+1000
3310 032770 205 12 0 00 203400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
3311 032771 205 14 0 00 202400 MOVSI AC,200400+ZZ ;SETUP AC
3312 032772 132 14 0 00 000001 FSC AC,1 ;RESCALE
3313 032773 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
3314 032774 003 14 0 00 030602 ER3 AC,SN ;FSC FAILED
3315 032775 321 16 0 00 032770 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3316
3317 030603 SN=SN+1
3318 004000 ZZ=ZZ+ZZ
3319 005000 XX=ZZ+1000
3320 032776 205 12 0 00 205400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
3321 032777 205 14 0 00 204400 MOVSI AC,200400+ZZ ;SETUP AC
3322 033000 132 14 0 00 000001 FSC AC,1 ;RESCALE
3323 033001 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
3324 033002 003 14 0 00 030603 ER3 AC,SN ;FSC FAILED
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 41-4
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0095
3325 033003 321 16 0 00 032776 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3326
3327 030604 SN=SN+1
3328 010000 ZZ=ZZ+ZZ
3329 011000 XX=ZZ+1000
3330 033004 205 12 0 00 211400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
3331 033005 205 14 0 00 210400 MOVSI AC,200400+ZZ ;SETUP AC
3332 033006 132 14 0 00 000001 FSC AC,1 ;RESCALE
3333 033007 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
3334 033010 003 14 0 00 030604 ER3 AC,SN ;FSC FAILED
3335 033011 321 16 0 00 033004 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3336
3337 030605 SN=SN+1
3338 020000 ZZ=ZZ+ZZ
3339 021000 XX=ZZ+1000
3340 033012 205 12 0 00 221400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
3341 033013 205 14 0 00 220400 MOVSI AC,200400+ZZ ;SETUP AC
3342 033014 132 14 0 00 000001 FSC AC,1 ;RESCALE
3343 033015 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
3344 033016 003 14 0 00 030605 ER3 AC,SN ;FSC FAILED
3345 033017 321 16 0 00 033012 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3346
3347 030606 SN=SN+1
3348 040000 ZZ=ZZ+ZZ
3349 041000 XX=ZZ+1000
3350 033020 205 12 0 00 241400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
3351 033021 205 14 0 00 240400 MOVSI AC,200400+ZZ ;SETUP AC
3352 033022 132 14 0 00 000001 FSC AC,1 ;RESCALE
3353 033023 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
3354 033024 003 14 0 00 030606 ER3 AC,SN ;FSC FAILED
3355 033025 321 16 0 00 033020 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3356
3357 030607 SN=SN+1
3358 100000 ZZ=ZZ+ZZ
3359 101000 XX=ZZ+1000
3360 033026 205 12 0 00 301400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
3361 033027 205 14 0 00 300400 MOVSI AC,200400+ZZ ;SETUP AC
3362 033030 132 14 0 00 000001 FSC AC,1 ;RESCALE
3363 033031 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
3364 033032 003 14 0 00 030607 ER3 AC,SN ;FSC FAILED
3365 033033 321 16 0 00 033026 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3366
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 42
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0096
3367 ;TEST FSC
3368 ;NEGATIVE EXP, POSITIVE SCALE
3369 ;AR=777400000000
3370 ;SCALE=1,2,4,10,20,40,100,
3371 ;RESULTANT EXP=776,775,773,767,757,737,677,577
3372
3373 000013 AC=13
3374 SAVEAC (1,1)^
3375 033034 201 15 0 00 033034 MOVEI AC+2,.
3376 033035 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3377 033036 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3378 033037 202 15 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3379
3380 030700 SN=30700
3381 000400 WW=400
3382 000000 XX=0
3383 776400 ZZ=776400
3384
3385 O30700: REPEAT ^D8, ;TEST FSC
3386 <SN=SN+1
3387 XX=XX+XX
3388 ZZ=ZZ-WW
3389 WW=WW+WW
3390 IFE XX,<XX=1>
3391 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3392 MOVSI AC,777400 ;SETUP AC
3393 FSC AC,XX ;RESCALE
3394 CAME AC,AC-2 ;TEST RESULT
3395 ER3 AC,SN ;FSC FAILED
3396 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3397 >
3398 030701 SN=SN+1
3399 000000 XX=XX+XX
3400 776000 ZZ=ZZ-WW
3401 001000 WW=WW+WW
3402 000001 IFE XX,<XX=1>
3403 033040 205 11 0 00 776400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3404 033041 205 13 0 00 777400 MOVSI AC,777400 ;SETUP AC
3405 033042 132 13 0 00 000001 FSC AC,XX ;RESCALE
3406 033043 312 13 0 00 000011 CAME AC,AC-2 ;TEST RESULT
3407 033044 003 13 0 00 030701 ER3 AC,SN ;FSC FAILED
3408 033045 321 15 0 00 033040 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3409
3410 030702 SN=SN+1
3411 000002 XX=XX+XX
3412 775000 ZZ=ZZ-WW
3413 002000 WW=WW+WW
3414 IFE XX,<XX=1>
3415 033046 205 11 0 00 775400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3416 033047 205 13 0 00 777400 MOVSI AC,777400 ;SETUP AC
3417 033050 132 13 0 00 000002 FSC AC,XX ;RESCALE
3418 033051 312 13 0 00 000011 CAME AC,AC-2 ;TEST RESULT
3419 033052 003 13 0 00 030702 ER3 AC,SN ;FSC FAILED
3420 033053 321 15 0 00 033046 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3421
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 42-1
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0097
3422 030703 SN=SN+1
3423 000004 XX=XX+XX
3424 773000 ZZ=ZZ-WW
3425 004000 WW=WW+WW
3426 IFE XX,<XX=1>
3427 033054 205 11 0 00 773400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3428 033055 205 13 0 00 777400 MOVSI AC,777400 ;SETUP AC
3429 033056 132 13 0 00 000004 FSC AC,XX ;RESCALE
3430 033057 312 13 0 00 000011 CAME AC,AC-2 ;TEST RESULT
3431 033060 003 13 0 00 030703 ER3 AC,SN ;FSC FAILED
3432 033061 321 15 0 00 033054 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3433
3434 030704 SN=SN+1
3435 000010 XX=XX+XX
3436 767000 ZZ=ZZ-WW
3437 010000 WW=WW+WW
3438 IFE XX,<XX=1>
3439 033062 205 11 0 00 767400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3440 033063 205 13 0 00 777400 MOVSI AC,777400 ;SETUP AC
3441 033064 132 13 0 00 000010 FSC AC,XX ;RESCALE
3442 033065 312 13 0 00 000011 CAME AC,AC-2 ;TEST RESULT
3443 033066 003 13 0 00 030704 ER3 AC,SN ;FSC FAILED
3444 033067 321 15 0 00 033062 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3445
3446 030705 SN=SN+1
3447 000020 XX=XX+XX
3448 757000 ZZ=ZZ-WW
3449 020000 WW=WW+WW
3450 IFE XX,<XX=1>
3451 033070 205 11 0 00 757400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3452 033071 205 13 0 00 777400 MOVSI AC,777400 ;SETUP AC
3453 033072 132 13 0 00 000020 FSC AC,XX ;RESCALE
3454 033073 312 13 0 00 000011 CAME AC,AC-2 ;TEST RESULT
3455 033074 003 13 0 00 030705 ER3 AC,SN ;FSC FAILED
3456 033075 321 15 0 00 033070 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3457
3458 030706 SN=SN+1
3459 000040 XX=XX+XX
3460 737000 ZZ=ZZ-WW
3461 040000 WW=WW+WW
3462 IFE XX,<XX=1>
3463 033076 205 11 0 00 737400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3464 033077 205 13 0 00 777400 MOVSI AC,777400 ;SETUP AC
3465 033100 132 13 0 00 000040 FSC AC,XX ;RESCALE
3466 033101 312 13 0 00 000011 CAME AC,AC-2 ;TEST RESULT
3467 033102 003 13 0 00 030706 ER3 AC,SN ;FSC FAILED
3468 033103 321 15 0 00 033076 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3469
3470 030707 SN=SN+1
3471 000100 XX=XX+XX
3472 677000 ZZ=ZZ-WW
3473 100000 WW=WW+WW
3474 IFE XX,<XX=1>
3475 033104 205 11 0 00 677400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3476 033105 205 13 0 00 777400 MOVSI AC,777400 ;SETUP AC
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 42-2
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0098
3477 033106 132 13 0 00 000100 FSC AC,XX ;RESCALE
3478 033107 312 13 0 00 000011 CAME AC,AC-2 ;TEST RESULT
3479 033110 003 13 0 00 030707 ER3 AC,SN ;FSC FAILED
3480 033111 321 15 0 00 033104 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3481
3482 030710 SN=SN+1
3483 000200 XX=XX+XX
3484 577000 ZZ=ZZ-WW
3485 200000 WW=WW+WW
3486 IFE XX,<XX=1>
3487 033112 205 11 0 00 577400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3488 033113 205 13 0 00 777400 MOVSI AC,777400 ;SETUP AC
3489 033114 132 13 0 00 000200 FSC AC,XX ;RESCALE
3490 033115 312 13 0 00 000011 CAME AC,AC-2 ;TEST RESULT
3491 033116 003 13 0 00 030710 ER3 AC,SN ;FSC FAILED
3492 033117 321 15 0 00 033112 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3493
3494 PAGE
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 42-3
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0099
3495 ;TEST FSC
3496 ;NEGATIVE EXP, NEGATIVE SCALE
3497 ;AR=577400000000
3498 ;SCALE=777,776,775,774,773,772,771,770
3499 ;RESULTANT EXP=600,601,602,603,604,605,606,607
3500
3501 000012 AC=12
3502 SAVEAC (1,1)^
3503 033120 201 14 0 00 033120 MOVEI AC+2,.
3504 033121 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3505 033122 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3506 033123 202 14 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3507
3508 031000 SN=31000
3509 000000 XX=0
3510 577000 ZZ=577000
3511
3512 O31000: REPEAT ^D8, ;TEST FSC
3513 <SN=SN+1
3514 XX=XX-1
3515 ZZ=ZZ+1000
3516 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3517 MOVSI AC,577400 ;SETUP AC
3518 FSC AC,XX ;RESCALE
3519 CAME AC,AC-2 ;TEST RESULT
3520 ER3 AC,SN ;FSC FAILED
3521 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3522 >
3523 031001 SN=SN+1
3524 777777 777777 XX=XX-1
3525 600000 ZZ=ZZ+1000
3526 033124 205 10 0 00 600400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3527 033125 205 12 0 00 577400 MOVSI AC,577400 ;SETUP AC
3528 033126 132 12 0 00 777777 FSC AC,XX ;RESCALE
3529 033127 312 12 0 00 000010 CAME AC,AC-2 ;TEST RESULT
3530 033130 003 12 0 00 031001 ER3 AC,SN ;FSC FAILED
3531 033131 321 14 0 00 033124 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3532
3533 031002 SN=SN+1
3534 777777 777776 XX=XX-1
3535 601000 ZZ=ZZ+1000
3536 033132 205 10 0 00 601400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3537 033133 205 12 0 00 577400 MOVSI AC,577400 ;SETUP AC
3538 033134 132 12 0 00 777776 FSC AC,XX ;RESCALE
3539 033135 312 12 0 00 000010 CAME AC,AC-2 ;TEST RESULT
3540 033136 003 12 0 00 031002 ER3 AC,SN ;FSC FAILED
3541 033137 321 14 0 00 033132 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3542
3543 031003 SN=SN+1
3544 777777 777775 XX=XX-1
3545 602000 ZZ=ZZ+1000
3546 033140 205 10 0 00 602400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3547 033141 205 12 0 00 577400 MOVSI AC,577400 ;SETUP AC
3548 033142 132 12 0 00 777775 FSC AC,XX ;RESCALE
3549 033143 312 12 0 00 000010 CAME AC,AC-2 ;TEST RESULT
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 42-4
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0100
3550 033144 003 12 0 00 031003 ER3 AC,SN ;FSC FAILED
3551 033145 321 14 0 00 033140 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3552
3553 031004 SN=SN+1
3554 777777 777774 XX=XX-1
3555 603000 ZZ=ZZ+1000
3556 033146 205 10 0 00 603400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3557 033147 205 12 0 00 577400 MOVSI AC,577400 ;SETUP AC
3558 033150 132 12 0 00 777774 FSC AC,XX ;RESCALE
3559 033151 312 12 0 00 000010 CAME AC,AC-2 ;TEST RESULT
3560 033152 003 12 0 00 031004 ER3 AC,SN ;FSC FAILED
3561 033153 321 14 0 00 033146 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3562
3563 031005 SN=SN+1
3564 777777 777773 XX=XX-1
3565 604000 ZZ=ZZ+1000
3566 033154 205 10 0 00 604400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3567 033155 205 12 0 00 577400 MOVSI AC,577400 ;SETUP AC
3568 033156 132 12 0 00 777773 FSC AC,XX ;RESCALE
3569 033157 312 12 0 00 000010 CAME AC,AC-2 ;TEST RESULT
3570 033160 003 12 0 00 031005 ER3 AC,SN ;FSC FAILED
3571 033161 321 14 0 00 033154 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3572
3573 031006 SN=SN+1
3574 777777 777772 XX=XX-1
3575 605000 ZZ=ZZ+1000
3576 033162 205 10 0 00 605400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3577 033163 205 12 0 00 577400 MOVSI AC,577400 ;SETUP AC
3578 033164 132 12 0 00 777772 FSC AC,XX ;RESCALE
3579 033165 312 12 0 00 000010 CAME AC,AC-2 ;TEST RESULT
3580 033166 003 12 0 00 031006 ER3 AC,SN ;FSC FAILED
3581 033167 321 14 0 00 033162 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3582
3583 031007 SN=SN+1
3584 777777 777771 XX=XX-1
3585 606000 ZZ=ZZ+1000
3586 033170 205 10 0 00 606400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3587 033171 205 12 0 00 577400 MOVSI AC,577400 ;SETUP AC
3588 033172 132 12 0 00 777771 FSC AC,XX ;RESCALE
3589 033173 312 12 0 00 000010 CAME AC,AC-2 ;TEST RESULT
3590 033174 003 12 0 00 031007 ER3 AC,SN ;FSC FAILED
3591 033175 321 14 0 00 033170 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3592
3593 031010 SN=SN+1
3594 777777 777770 XX=XX-1
3595 607000 ZZ=ZZ+1000
3596 033176 205 10 0 00 607400 MOVSI AC-2,400+ZZ ;SETUP FOR COMPARISON
3597 033177 205 12 0 00 577400 MOVSI AC,577400 ;SETUP AC
3598 033200 132 12 0 00 777770 FSC AC,XX ;RESCALE
3599 033201 312 12 0 00 000010 CAME AC,AC-2 ;TEST RESULT
3600 033202 003 12 0 00 031010 ER3 AC,SN ;FSC FAILED
3601 033203 321 14 0 00 033176 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3602
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 43
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0101
3603 ;TEST FSC
3604 ;NR ALL ZERO CONDITION
3605 ;AR=200000000000
3606 ;SCALE=1,2,4
3607 ;RESULTANT AC=0
3608
3609 000011 AC=11
3610 SAVEAC (1,1)^
3611 033204 201 13 0 00 033204 MOVEI AC+2,.
3612 033205 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3613 033206 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3614 033207 202 13 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3615
3616 031100 SN=31100
3617 000000 ZZ=0
3618
3619 O31100: REPEAT ^D3, ;TEST FSC -ALL ZERO COND
3620 <SN=SN+1
3621 ZZ=ZZ+ZZ
3622 IFE ZZ,<ZZ=1>
3623 MOVSI AC,200000 ;SETUP AC
3624 FSC AC,ZZ ;RESCALE
3625 SKIPE AC ;TEST AC=0
3626 ER3 AC,SN ;FSC -NR ALL ZERO FAILED
3627 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3628 >
3629 031101 SN=SN+1
3630 000000 ZZ=ZZ+ZZ
3631 000001 IFE ZZ,<ZZ=1>
3632 033210 205 11 0 00 200000 MOVSI AC,200000 ;SETUP AC
3633 033211 132 11 0 00 000001 FSC AC,ZZ ;RESCALE
3634 033212 332 00 0 00 000011 SKIPE AC ;TEST AC=0
3635 033213 003 11 0 00 031101 ER3 AC,SN ;FSC -NR ALL ZERO FAILED
3636 033214 321 13 0 00 033210 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3637
3638 031102 SN=SN+1
3639 000002 ZZ=ZZ+ZZ
3640 IFE ZZ,<ZZ=1>
3641 033215 205 11 0 00 200000 MOVSI AC,200000 ;SETUP AC
3642 033216 132 11 0 00 000002 FSC AC,ZZ ;RESCALE
3643 033217 332 00 0 00 000011 SKIPE AC ;TEST AC=0
3644 033220 003 11 0 00 031102 ER3 AC,SN ;FSC -NR ALL ZERO FAILED
3645 033221 321 13 0 00 033215 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3646
3647 031103 SN=SN+1
3648 000004 ZZ=ZZ+ZZ
3649 IFE ZZ,<ZZ=1>
3650 033222 205 11 0 00 200000 MOVSI AC,200000 ;SETUP AC
3651 033223 132 11 0 00 000004 FSC AC,ZZ ;RESCALE
3652 033224 332 00 0 00 000011 SKIPE AC ;TEST AC=0
3653 033225 003 11 0 00 031103 ER3 AC,SN ;FSC -NR ALL ZERO FAILED
3654 033226 321 13 0 00 033222 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3655
3656 PAGE
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 43-1
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0102
3657 ;TEST FSC
3658 ;NR SHRT COND
3659 ;AR=577000000000
3660 ;SCALE=1,2,3
3661 ;RESULTANT EXPONENT=575,574,573
3662
3663 000010 AC=10
3664 SAVEAC (1,1)^
3665 033227 201 12 0 00 033227 MOVEI AC+2,.
3666 033230 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3667 033231 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3668 033232 202 12 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3669
3670 031200 SN=31200
3671 576000 XX=576000
3672 000000 ZZ=0
3673
3674 O31200: REPEAT ^D3, ;TEST FSC-NRSHRT
3675 <SN=SN+1
3676 XX=XX-1000
3677 ZZ=ZZ+1
3678 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3679 MOVSI AC,577000 ;SETUP AC
3680 FSC AC,ZZ ;RESCALE
3681 CAME AC,AC-2 ;TEST RESULT
3682 ER3 AC,SN ;FSC NRSHRT FAILED
3683 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3684 >
3685 031201 SN=SN+1
3686 575000 XX=XX-1000
3687 000001 ZZ=ZZ+1
3688 033233 205 06 0 00 575400 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3689 033234 205 10 0 00 577000 MOVSI AC,577000 ;SETUP AC
3690 033235 132 10 0 00 000001 FSC AC,ZZ ;RESCALE
3691 033236 312 10 0 00 000006 CAME AC,AC-2 ;TEST RESULT
3692 033237 003 10 0 00 031201 ER3 AC,SN ;FSC NRSHRT FAILED
3693 033240 321 12 0 00 033233 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3694
3695 031202 SN=SN+1
3696 574000 XX=XX-1000
3697 000002 ZZ=ZZ+1
3698 033241 205 06 0 00 574400 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3699 033242 205 10 0 00 577000 MOVSI AC,577000 ;SETUP AC
3700 033243 132 10 0 00 000002 FSC AC,ZZ ;RESCALE
3701 033244 312 10 0 00 000006 CAME AC,AC-2 ;TEST RESULT
3702 033245 003 10 0 00 031202 ER3 AC,SN ;FSC NRSHRT FAILED
3703 033246 321 12 0 00 033241 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3704
3705 031203 SN=SN+1
3706 573000 XX=XX-1000
3707 000003 ZZ=ZZ+1
3708 033247 205 06 0 00 573400 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3709 033250 205 10 0 00 577000 MOVSI AC,577000 ;SETUP AC
3710 033251 132 10 0 00 000003 FSC AC,ZZ ;RESCALE
3711 033252 312 10 0 00 000006 CAME AC,AC-2 ;TEST RESULT
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 43-2
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0103
3712 033253 003 10 0 00 031203 ER3 AC,SN ;FSC NRSHRT FAILED
3713 033254 321 12 0 00 033247 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3714
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 44
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0104
3715 ;TEST FSC
3716 ;-NR NORMAL
3717 ;AR=200200000000
3718 ;SCALE=1,2,3
3719 ;RESULTANT EXPONENT=200,201,202
3720
3721 000007 AC=7
3722 SAVEAC (1,1)^
3723 033255 201 11 0 00 033255 MOVEI AC+2,.
3724 033256 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3725 033257 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3726 033260 202 11 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3727
3728 031300 SN=31300
3729 177000 XX=177000
3730 000000 ZZ=0
3731
3732 O31300: REPEAT ^D3, ;TEST FSC-NR NORMAL
3733 <SN=SN+1
3734 XX=XX+1000
3735 ZZ=ZZ+1
3736 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3737 MOVSI AC,200200 ;SETUP AC
3738 FSC AC,ZZ ;RESCALE
3739 CAME AC,AC-2 ;TEST RESULT
3740 ER3 AC,SN ;FSC-NR NORMAL FAILED
3741 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3742 >
3743 031301 SN=SN+1
3744 200000 XX=XX+1000
3745 000001 ZZ=ZZ+1
3746 033261 205 05 0 00 200400 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3747 033262 205 07 0 00 200200 MOVSI AC,200200 ;SETUP AC
3748 033263 132 07 0 00 000001 FSC AC,ZZ ;RESCALE
3749 033264 312 07 0 00 000005 CAME AC,AC-2 ;TEST RESULT
3750 033265 003 07 0 00 031301 ER3 AC,SN ;FSC-NR NORMAL FAILED
3751 033266 321 11 0 00 033261 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3752
3753 031302 SN=SN+1
3754 201000 XX=XX+1000
3755 000002 ZZ=ZZ+1
3756 033267 205 05 0 00 201400 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3757 033270 205 07 0 00 200200 MOVSI AC,200200 ;SETUP AC
3758 033271 132 07 0 00 000002 FSC AC,ZZ ;RESCALE
3759 033272 312 07 0 00 000005 CAME AC,AC-2 ;TEST RESULT
3760 033273 003 07 0 00 031302 ER3 AC,SN ;FSC-NR NORMAL FAILED
3761 033274 321 11 0 00 033267 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3762
3763 031303 SN=SN+1
3764 202000 XX=XX+1000
3765 000003 ZZ=ZZ+1
3766 033275 205 05 0 00 202400 MOVSI AC-2,400+XX ;SETUP FOR COMPARISON
3767 033276 205 07 0 00 200200 MOVSI AC,200200 ;SETUP AC
3768 033277 132 07 0 00 000003 FSC AC,ZZ ;RESCALE
3769 033300 312 07 0 00 000005 CAME AC,AC-2 ;TEST RESULT
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 44-1
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0105
3770 033301 003 07 0 00 031303 ER3 AC,SN ;FSC-NR NORMAL FAILED
3771 033302 321 11 0 00 033275 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3772
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 45
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0106
3773 ;TEST FSC
3774 ;-(NOT) NRSHRT COND
3775 ;TESTING AD9(1) AND AD9-35=0)
3776 ;EXP=400
3777 ;MANTISSA=400,200,100,40,20 ETC
3778 ;SCALE=0
3779 ;RESULTANT AC SHOULD=ORIGINAL
3780
3781 000006 AC=6
3782 SAVEAC (1,1)^
3783 033303 201 10 0 00 033303 MOVEI AC+2,.
3784 033304 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3785 033305 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3786 033306 202 10 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3787
3788 031400 SN=31400
3789 001000 ZZ=1000
3790
3791 O31400: REPEAT ^D9, ;TEST BITS 9-17(1)
3792 <SN=SN+1
3793 ZZ=ZZ/2
3794 MOVSI AC-2,400000+ZZ ;SETUP FOR COMPARISON
3795 MOVSI AC,400000+ZZ ;SETUP AC
3796 FSC AC, ;RESCALE
3797 CAME AC,AC-2 ;TEST RESULT
3798 ER3 AC,SN ;NRSHRT ASSERTED
3799 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3800 >
3801 031401 SN=SN+1
3802 000400 ZZ=ZZ/2
3803 033307 205 04 0 00 400400 MOVSI AC-2,400000+ZZ ;SETUP FOR COMPARISON
3804 033310 205 06 0 00 400400 MOVSI AC,400000+ZZ ;SETUP AC
3805 033311 132 06 0 00 000000 FSC AC, ;RESCALE
3806 033312 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3807 033313 003 06 0 00 031401 ER3 AC,SN ;NRSHRT ASSERTED
3808 033314 321 10 0 00 033307 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3809
3810 031402 SN=SN+1
3811 000200 ZZ=ZZ/2
3812 033315 205 04 0 00 400200 MOVSI AC-2,400000+ZZ ;SETUP FOR COMPARISON
3813 033316 205 06 0 00 400200 MOVSI AC,400000+ZZ ;SETUP AC
3814 033317 132 06 0 00 000000 FSC AC, ;RESCALE
3815 033320 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3816 033321 003 06 0 00 031402 ER3 AC,SN ;NRSHRT ASSERTED
3817 033322 321 10 0 00 033315 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3818
3819 031403 SN=SN+1
3820 000100 ZZ=ZZ/2
3821 033323 205 04 0 00 400100 MOVSI AC-2,400000+ZZ ;SETUP FOR COMPARISON
3822 033324 205 06 0 00 400100 MOVSI AC,400000+ZZ ;SETUP AC
3823 033325 132 06 0 00 000000 FSC AC, ;RESCALE
3824 033326 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3825 033327 003 06 0 00 031403 ER3 AC,SN ;NRSHRT ASSERTED
3826 033330 321 10 0 00 033323 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3827
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 45-1
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0107
3828 031404 SN=SN+1
3829 000040 ZZ=ZZ/2
3830 033331 205 04 0 00 400040 MOVSI AC-2,400000+ZZ ;SETUP FOR COMPARISON
3831 033332 205 06 0 00 400040 MOVSI AC,400000+ZZ ;SETUP AC
3832 033333 132 06 0 00 000000 FSC AC, ;RESCALE
3833 033334 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3834 033335 003 06 0 00 031404 ER3 AC,SN ;NRSHRT ASSERTED
3835 033336 321 10 0 00 033331 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3836
3837 031405 SN=SN+1
3838 000020 ZZ=ZZ/2
3839 033337 205 04 0 00 400020 MOVSI AC-2,400000+ZZ ;SETUP FOR COMPARISON
3840 033340 205 06 0 00 400020 MOVSI AC,400000+ZZ ;SETUP AC
3841 033341 132 06 0 00 000000 FSC AC, ;RESCALE
3842 033342 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3843 033343 003 06 0 00 031405 ER3 AC,SN ;NRSHRT ASSERTED
3844 033344 321 10 0 00 033337 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3845
3846 031406 SN=SN+1
3847 000010 ZZ=ZZ/2
3848 033345 205 04 0 00 400010 MOVSI AC-2,400000+ZZ ;SETUP FOR COMPARISON
3849 033346 205 06 0 00 400010 MOVSI AC,400000+ZZ ;SETUP AC
3850 033347 132 06 0 00 000000 FSC AC, ;RESCALE
3851 033350 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3852 033351 003 06 0 00 031406 ER3 AC,SN ;NRSHRT ASSERTED
3853 033352 321 10 0 00 033345 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3854
3855 031407 SN=SN+1
3856 000004 ZZ=ZZ/2
3857 033353 205 04 0 00 400004 MOVSI AC-2,400000+ZZ ;SETUP FOR COMPARISON
3858 033354 205 06 0 00 400004 MOVSI AC,400000+ZZ ;SETUP AC
3859 033355 132 06 0 00 000000 FSC AC, ;RESCALE
3860 033356 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3861 033357 003 06 0 00 031407 ER3 AC,SN ;NRSHRT ASSERTED
3862 033360 321 10 0 00 033353 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3863
3864 031410 SN=SN+1
3865 000002 ZZ=ZZ/2
3866 033361 205 04 0 00 400002 MOVSI AC-2,400000+ZZ ;SETUP FOR COMPARISON
3867 033362 205 06 0 00 400002 MOVSI AC,400000+ZZ ;SETUP AC
3868 033363 132 06 0 00 000000 FSC AC, ;RESCALE
3869 033364 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3870 033365 003 06 0 00 031410 ER3 AC,SN ;NRSHRT ASSERTED
3871 033366 321 10 0 00 033361 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3872
3873 031411 SN=SN+1
3874 000001 ZZ=ZZ/2
3875 033367 205 04 0 00 400001 MOVSI AC-2,400000+ZZ ;SETUP FOR COMPARISON
3876 033370 205 06 0 00 400001 MOVSI AC,400000+ZZ ;SETUP AC
3877 033371 132 06 0 00 000000 FSC AC, ;RESCALE
3878 033372 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3879 033373 003 06 0 00 031411 ER3 AC,SN ;NRSHRT ASSERTED
3880 033374 321 10 0 00 033367 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3881
3882 PAGE
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 45-2
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0108
3883 031500 SN=31500
3884 000000 ZZ=0
3885 O31500: REPEAT ^D18, ;TEST BITS 18-35(1)
3886 <SN=SN+1
3887 ZZ=ZZ/2
3888 IFE ZZ,<ZZ=400000>
3889 HRLI AC-2,400000 ;SETUP AC-2
3890 HRRI AC-2,ZZ ;FOR COMPARISON
3891 HRLI AC,400000 ;SETUP
3892 HRRI AC,ZZ ;AC
3893 FSC AC, ;RESCALE
3894 CAME AC,AC-2 ;TEST RESULT
3895 ER3 AC,SN ;NRSHRT ASSERTED
3896 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
3897 >
3898 031501 SN=SN+1
3899 000000 ZZ=ZZ/2
3900 400000 IFE ZZ,<ZZ=400000>
3901 033375 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
3902 033376 541 04 0 00 400000 HRRI AC-2,ZZ ;FOR COMPARISON
3903 033377 505 06 0 00 400000 HRLI AC,400000 ;SETUP
3904 033400 541 06 0 00 400000 HRRI AC,ZZ ;AC
3905 033401 132 06 0 00 000000 FSC AC, ;RESCALE
3906 033402 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3907 033403 003 06 0 00 031501 ER3 AC,SN ;NRSHRT ASSERTED
3908 033404 321 10 0 00 033375 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
3909
3910 031502 SN=SN+1
3911 200000 ZZ=ZZ/2
3912 IFE ZZ,<ZZ=400000>
3913 033405 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
3914 033406 541 04 0 00 200000 HRRI AC-2,ZZ ;FOR COMPARISON
3915 033407 505 06 0 00 400000 HRLI AC,400000 ;SETUP
3916 033410 541 06 0 00 200000 HRRI AC,ZZ ;AC
3917 033411 132 06 0 00 000000 FSC AC, ;RESCALE
3918 033412 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3919 033413 003 06 0 00 031502 ER3 AC,SN ;NRSHRT ASSERTED
3920 033414 321 10 0 00 033405 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
3921
3922 031503 SN=SN+1
3923 100000 ZZ=ZZ/2
3924 IFE ZZ,<ZZ=400000>
3925 033415 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
3926 033416 541 04 0 00 100000 HRRI AC-2,ZZ ;FOR COMPARISON
3927 033417 505 06 0 00 400000 HRLI AC,400000 ;SETUP
3928 033420 541 06 0 00 100000 HRRI AC,ZZ ;AC
3929 033421 132 06 0 00 000000 FSC AC, ;RESCALE
3930 033422 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3931 033423 003 06 0 00 031503 ER3 AC,SN ;NRSHRT ASSERTED
3932 033424 321 10 0 00 033415 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
3933
3934 031504 SN=SN+1
3935 040000 ZZ=ZZ/2
3936 IFE ZZ,<ZZ=400000>
3937 033425 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 45-3
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0109
3938 033426 541 04 0 00 040000 HRRI AC-2,ZZ ;FOR COMPARISON
3939 033427 505 06 0 00 400000 HRLI AC,400000 ;SETUP
3940 033430 541 06 0 00 040000 HRRI AC,ZZ ;AC
3941 033431 132 06 0 00 000000 FSC AC, ;RESCALE
3942 033432 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3943 033433 003 06 0 00 031504 ER3 AC,SN ;NRSHRT ASSERTED
3944 033434 321 10 0 00 033425 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
3945
3946 031505 SN=SN+1
3947 020000 ZZ=ZZ/2
3948 IFE ZZ,<ZZ=400000>
3949 033435 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
3950 033436 541 04 0 00 020000 HRRI AC-2,ZZ ;FOR COMPARISON
3951 033437 505 06 0 00 400000 HRLI AC,400000 ;SETUP
3952 033440 541 06 0 00 020000 HRRI AC,ZZ ;AC
3953 033441 132 06 0 00 000000 FSC AC, ;RESCALE
3954 033442 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3955 033443 003 06 0 00 031505 ER3 AC,SN ;NRSHRT ASSERTED
3956 033444 321 10 0 00 033435 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
3957
3958 031506 SN=SN+1
3959 010000 ZZ=ZZ/2
3960 IFE ZZ,<ZZ=400000>
3961 033445 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
3962 033446 541 04 0 00 010000 HRRI AC-2,ZZ ;FOR COMPARISON
3963 033447 505 06 0 00 400000 HRLI AC,400000 ;SETUP
3964 033450 541 06 0 00 010000 HRRI AC,ZZ ;AC
3965 033451 132 06 0 00 000000 FSC AC, ;RESCALE
3966 033452 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3967 033453 003 06 0 00 031506 ER3 AC,SN ;NRSHRT ASSERTED
3968 033454 321 10 0 00 033445 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
3969
3970 031507 SN=SN+1
3971 004000 ZZ=ZZ/2
3972 IFE ZZ,<ZZ=400000>
3973 033455 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
3974 033456 541 04 0 00 004000 HRRI AC-2,ZZ ;FOR COMPARISON
3975 033457 505 06 0 00 400000 HRLI AC,400000 ;SETUP
3976 033460 541 06 0 00 004000 HRRI AC,ZZ ;AC
3977 033461 132 06 0 00 000000 FSC AC, ;RESCALE
3978 033462 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3979 033463 003 06 0 00 031507 ER3 AC,SN ;NRSHRT ASSERTED
3980 033464 321 10 0 00 033455 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
3981
3982 031510 SN=SN+1
3983 002000 ZZ=ZZ/2
3984 IFE ZZ,<ZZ=400000>
3985 033465 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
3986 033466 541 04 0 00 002000 HRRI AC-2,ZZ ;FOR COMPARISON
3987 033467 505 06 0 00 400000 HRLI AC,400000 ;SETUP
3988 033470 541 06 0 00 002000 HRRI AC,ZZ ;AC
3989 033471 132 06 0 00 000000 FSC AC, ;RESCALE
3990 033472 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
3991 033473 003 06 0 00 031510 ER3 AC,SN ;NRSHRT ASSERTED
3992 033474 321 10 0 00 033465 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 45-4
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0110
3993
3994 031511 SN=SN+1
3995 001000 ZZ=ZZ/2
3996 IFE ZZ,<ZZ=400000>
3997 033475 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
3998 033476 541 04 0 00 001000 HRRI AC-2,ZZ ;FOR COMPARISON
3999 033477 505 06 0 00 400000 HRLI AC,400000 ;SETUP
4000 033500 541 06 0 00 001000 HRRI AC,ZZ ;AC
4001 033501 132 06 0 00 000000 FSC AC, ;RESCALE
4002 033502 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
4003 033503 003 06 0 00 031511 ER3 AC,SN ;NRSHRT ASSERTED
4004 033504 321 10 0 00 033475 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
4005
4006 031512 SN=SN+1
4007 000400 ZZ=ZZ/2
4008 IFE ZZ,<ZZ=400000>
4009 033505 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
4010 033506 541 04 0 00 000400 HRRI AC-2,ZZ ;FOR COMPARISON
4011 033507 505 06 0 00 400000 HRLI AC,400000 ;SETUP
4012 033510 541 06 0 00 000400 HRRI AC,ZZ ;AC
4013 033511 132 06 0 00 000000 FSC AC, ;RESCALE
4014 033512 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
4015 033513 003 06 0 00 031512 ER3 AC,SN ;NRSHRT ASSERTED
4016 033514 321 10 0 00 033505 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
4017
4018 031513 SN=SN+1
4019 000200 ZZ=ZZ/2
4020 IFE ZZ,<ZZ=400000>
4021 033515 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
4022 033516 541 04 0 00 000200 HRRI AC-2,ZZ ;FOR COMPARISON
4023 033517 505 06 0 00 400000 HRLI AC,400000 ;SETUP
4024 033520 541 06 0 00 000200 HRRI AC,ZZ ;AC
4025 033521 132 06 0 00 000000 FSC AC, ;RESCALE
4026 033522 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
4027 033523 003 06 0 00 031513 ER3 AC,SN ;NRSHRT ASSERTED
4028 033524 321 10 0 00 033515 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
4029
4030 031514 SN=SN+1
4031 000100 ZZ=ZZ/2
4032 IFE ZZ,<ZZ=400000>
4033 033525 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
4034 033526 541 04 0 00 000100 HRRI AC-2,ZZ ;FOR COMPARISON
4035 033527 505 06 0 00 400000 HRLI AC,400000 ;SETUP
4036 033530 541 06 0 00 000100 HRRI AC,ZZ ;AC
4037 033531 132 06 0 00 000000 FSC AC, ;RESCALE
4038 033532 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
4039 033533 003 06 0 00 031514 ER3 AC,SN ;NRSHRT ASSERTED
4040 033534 321 10 0 00 033525 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
4041
4042 031515 SN=SN+1
4043 000040 ZZ=ZZ/2
4044 IFE ZZ,<ZZ=400000>
4045 033535 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
4046 033536 541 04 0 00 000040 HRRI AC-2,ZZ ;FOR COMPARISON
4047 033537 505 06 0 00 400000 HRLI AC,400000 ;SETUP
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 45-5
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0111
4048 033540 541 06 0 00 000040 HRRI AC,ZZ ;AC
4049 033541 132 06 0 00 000000 FSC AC, ;RESCALE
4050 033542 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
4051 033543 003 06 0 00 031515 ER3 AC,SN ;NRSHRT ASSERTED
4052 033544 321 10 0 00 033535 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
4053
4054 031516 SN=SN+1
4055 000020 ZZ=ZZ/2
4056 IFE ZZ,<ZZ=400000>
4057 033545 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
4058 033546 541 04 0 00 000020 HRRI AC-2,ZZ ;FOR COMPARISON
4059 033547 505 06 0 00 400000 HRLI AC,400000 ;SETUP
4060 033550 541 06 0 00 000020 HRRI AC,ZZ ;AC
4061 033551 132 06 0 00 000000 FSC AC, ;RESCALE
4062 033552 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
4063 033553 003 06 0 00 031516 ER3 AC,SN ;NRSHRT ASSERTED
4064 033554 321 10 0 00 033545 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
4065
4066 031517 SN=SN+1
4067 000010 ZZ=ZZ/2
4068 IFE ZZ,<ZZ=400000>
4069 033555 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
4070 033556 541 04 0 00 000010 HRRI AC-2,ZZ ;FOR COMPARISON
4071 033557 505 06 0 00 400000 HRLI AC,400000 ;SETUP
4072 033560 541 06 0 00 000010 HRRI AC,ZZ ;AC
4073 033561 132 06 0 00 000000 FSC AC, ;RESCALE
4074 033562 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
4075 033563 003 06 0 00 031517 ER3 AC,SN ;NRSHRT ASSERTED
4076 033564 321 10 0 00 033555 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
4077
4078 031520 SN=SN+1
4079 000004 ZZ=ZZ/2
4080 IFE ZZ,<ZZ=400000>
4081 033565 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
4082 033566 541 04 0 00 000004 HRRI AC-2,ZZ ;FOR COMPARISON
4083 033567 505 06 0 00 400000 HRLI AC,400000 ;SETUP
4084 033570 541 06 0 00 000004 HRRI AC,ZZ ;AC
4085 033571 132 06 0 00 000000 FSC AC, ;RESCALE
4086 033572 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
4087 033573 003 06 0 00 031520 ER3 AC,SN ;NRSHRT ASSERTED
4088 033574 321 10 0 00 033565 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
4089
4090 031521 SN=SN+1
4091 000002 ZZ=ZZ/2
4092 IFE ZZ,<ZZ=400000>
4093 033575 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
4094 033576 541 04 0 00 000002 HRRI AC-2,ZZ ;FOR COMPARISON
4095 033577 505 06 0 00 400000 HRLI AC,400000 ;SETUP
4096 033600 541 06 0 00 000002 HRRI AC,ZZ ;AC
4097 033601 132 06 0 00 000000 FSC AC, ;RESCALE
4098 033602 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
4099 033603 003 06 0 00 031521 ER3 AC,SN ;NRSHRT ASSERTED
4100 033604 321 10 0 00 033575 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
4101
4102 031522 SN=SN+1
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 45-6
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0112
4103 000001 ZZ=ZZ/2
4104 IFE ZZ,<ZZ=400000>
4105 033605 505 04 0 00 400000 HRLI AC-2,400000 ;SETUP AC-2
4106 033606 541 04 0 00 000001 HRRI AC-2,ZZ ;FOR COMPARISON
4107 033607 505 06 0 00 400000 HRLI AC,400000 ;SETUP
4108 033610 541 06 0 00 000001 HRRI AC,ZZ ;AC
4109 033611 132 06 0 00 000000 FSC AC, ;RESCALE
4110 033612 312 06 0 00 000004 CAME AC,AC-2 ;TEST RESULT
4111 033613 003 06 0 00 031522 ER3 AC,SN ;NRSHRT ASSERTED
4112 033614 321 10 0 00 033605 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
4113
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 46
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0113
4114 ;TEST FAD
4115 ;TEST TWO POSITIVES
4116 ;AR=200200,ZZ (UNNORMALIZED)
4117 ;BR=200200,ZZ (UNNORMALIZED)
4118 ;SUM=200400,ZZ+ZZ
4119
4120 000014 AC=14
4121 SAVEAC (1,1)^
4122 033615 201 16 0 00 033615 MOVEI AC+2,.
4123 033616 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
4124 033617 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4125 033620 202 16 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4126
4127 031600 SN=31600
4128 000001 XX=1
4129 000000 ZZ=0
4130
4131 O31600: REPEAT ^D10, ;TEST FAD
4132 <SN=SN+1
4133 XX=XX+XX
4134 ZZ=ZZ+ZZ
4135 IFE ZZ,<ZZ=1>
4136 HRLI AC-2,200400 ;SETUP AC-2
4137 HRRI AC-2,XX ;FOR COMPARISON
4138 HRLI AC,200200 ;SETUP
4139 HRRI AC,ZZ ;AC
4140 MOVEM AC,AC-1 ;SETUP BR
4141 FAD AC,AC-1 ;C(AC)+C(E)
4142 CAME AC,AC-2 ;TEST SUM
4143 ER3 AC,SN ;FAD FAILED
4144 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
4145 >
4146 031601 SN=SN+1
4147 000002 XX=XX+XX
4148 000000 ZZ=ZZ+ZZ
4149 000001 IFE ZZ,<ZZ=1>
4150 033621 505 12 0 00 200400 HRLI AC-2,200400 ;SETUP AC-2
4151 033622 541 12 0 00 000002 HRRI AC-2,XX ;FOR COMPARISON
4152 033623 505 14 0 00 200200 HRLI AC,200200 ;SETUP
4153 033624 541 14 0 00 000001 HRRI AC,ZZ ;AC
4154 033625 202 14 0 00 000013 MOVEM AC,AC-1 ;SETUP BR
4155 033626 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4156 033627 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4157 033630 003 14 0 00 031601 ER3 AC,SN ;FAD FAILED
4158 033631 321 16 0 00 033621 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
4159
4160 031602 SN=SN+1
4161 000004 XX=XX+XX
4162 000002 ZZ=ZZ+ZZ
4163 IFE ZZ,<ZZ=1>
4164 033632 505 12 0 00 200400 HRLI AC-2,200400 ;SETUP AC-2
4165 033633 541 12 0 00 000004 HRRI AC-2,XX ;FOR COMPARISON
4166 033634 505 14 0 00 200200 HRLI AC,200200 ;SETUP
4167 033635 541 14 0 00 000002 HRRI AC,ZZ ;AC
4168 033636 202 14 0 00 000013 MOVEM AC,AC-1 ;SETUP BR
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 46-1
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0114
4169 033637 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4170 033640 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4171 033641 003 14 0 00 031602 ER3 AC,SN ;FAD FAILED
4172 033642 321 16 0 00 033632 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
4173
4174 031603 SN=SN+1
4175 000010 XX=XX+XX
4176 000004 ZZ=ZZ+ZZ
4177 IFE ZZ,<ZZ=1>
4178 033643 505 12 0 00 200400 HRLI AC-2,200400 ;SETUP AC-2
4179 033644 541 12 0 00 000010 HRRI AC-2,XX ;FOR COMPARISON
4180 033645 505 14 0 00 200200 HRLI AC,200200 ;SETUP
4181 033646 541 14 0 00 000004 HRRI AC,ZZ ;AC
4182 033647 202 14 0 00 000013 MOVEM AC,AC-1 ;SETUP BR
4183 033650 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4184 033651 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4185 033652 003 14 0 00 031603 ER3 AC,SN ;FAD FAILED
4186 033653 321 16 0 00 033643 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
4187
4188 031604 SN=SN+1
4189 000020 XX=XX+XX
4190 000010 ZZ=ZZ+ZZ
4191 IFE ZZ,<ZZ=1>
4192 033654 505 12 0 00 200400 HRLI AC-2,200400 ;SETUP AC-2
4193 033655 541 12 0 00 000020 HRRI AC-2,XX ;FOR COMPARISON
4194 033656 505 14 0 00 200200 HRLI AC,200200 ;SETUP
4195 033657 541 14 0 00 000010 HRRI AC,ZZ ;AC
4196 033660 202 14 0 00 000013 MOVEM AC,AC-1 ;SETUP BR
4197 033661 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4198 033662 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4199 033663 003 14 0 00 031604 ER3 AC,SN ;FAD FAILED
4200 033664 321 16 0 00 033654 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
4201
4202 031605 SN=SN+1
4203 000040 XX=XX+XX
4204 000020 ZZ=ZZ+ZZ
4205 IFE ZZ,<ZZ=1>
4206 033665 505 12 0 00 200400 HRLI AC-2,200400 ;SETUP AC-2
4207 033666 541 12 0 00 000040 HRRI AC-2,XX ;FOR COMPARISON
4208 033667 505 14 0 00 200200 HRLI AC,200200 ;SETUP
4209 033670 541 14 0 00 000020 HRRI AC,ZZ ;AC
4210 033671 202 14 0 00 000013 MOVEM AC,AC-1 ;SETUP BR
4211 033672 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4212 033673 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4213 033674 003 14 0 00 031605 ER3 AC,SN ;FAD FAILED
4214 033675 321 16 0 00 033665 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
4215
4216 031606 SN=SN+1
4217 000100 XX=XX+XX
4218 000040 ZZ=ZZ+ZZ
4219 IFE ZZ,<ZZ=1>
4220 033676 505 12 0 00 200400 HRLI AC-2,200400 ;SETUP AC-2
4221 033677 541 12 0 00 000100 HRRI AC-2,XX ;FOR COMPARISON
4222 033700 505 14 0 00 200200 HRLI AC,200200 ;SETUP
4223 033701 541 14 0 00 000040 HRRI AC,ZZ ;AC
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 46-2
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0115
4224 033702 202 14 0 00 000013 MOVEM AC,AC-1 ;SETUP BR
4225 033703 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4226 033704 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4227 033705 003 14 0 00 031606 ER3 AC,SN ;FAD FAILED
4228 033706 321 16 0 00 033676 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
4229
4230 031607 SN=SN+1
4231 000200 XX=XX+XX
4232 000100 ZZ=ZZ+ZZ
4233 IFE ZZ,<ZZ=1>
4234 033707 505 12 0 00 200400 HRLI AC-2,200400 ;SETUP AC-2
4235 033710 541 12 0 00 000200 HRRI AC-2,XX ;FOR COMPARISON
4236 033711 505 14 0 00 200200 HRLI AC,200200 ;SETUP
4237 033712 541 14 0 00 000100 HRRI AC,ZZ ;AC
4238 033713 202 14 0 00 000013 MOVEM AC,AC-1 ;SETUP BR
4239 033714 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4240 033715 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4241 033716 003 14 0 00 031607 ER3 AC,SN ;FAD FAILED
4242 033717 321 16 0 00 033707 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
4243
4244 031610 SN=SN+1
4245 000400 XX=XX+XX
4246 000200 ZZ=ZZ+ZZ
4247 IFE ZZ,<ZZ=1>
4248 033720 505 12 0 00 200400 HRLI AC-2,200400 ;SETUP AC-2
4249 033721 541 12 0 00 000400 HRRI AC-2,XX ;FOR COMPARISON
4250 033722 505 14 0 00 200200 HRLI AC,200200 ;SETUP
4251 033723 541 14 0 00 000200 HRRI AC,ZZ ;AC
4252 033724 202 14 0 00 000013 MOVEM AC,AC-1 ;SETUP BR
4253 033725 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4254 033726 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4255 033727 003 14 0 00 031610 ER3 AC,SN ;FAD FAILED
4256 033730 321 16 0 00 033720 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
4257
4258 031611 SN=SN+1
4259 001000 XX=XX+XX
4260 000400 ZZ=ZZ+ZZ
4261 IFE ZZ,<ZZ=1>
4262 033731 505 12 0 00 200400 HRLI AC-2,200400 ;SETUP AC-2
4263 033732 541 12 0 00 001000 HRRI AC-2,XX ;FOR COMPARISON
4264 033733 505 14 0 00 200200 HRLI AC,200200 ;SETUP
4265 033734 541 14 0 00 000400 HRRI AC,ZZ ;AC
4266 033735 202 14 0 00 000013 MOVEM AC,AC-1 ;SETUP BR
4267 033736 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4268 033737 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4269 033740 003 14 0 00 031611 ER3 AC,SN ;FAD FAILED
4270 033741 321 16 0 00 033731 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
4271
4272 031612 SN=SN+1
4273 002000 XX=XX+XX
4274 001000 ZZ=ZZ+ZZ
4275 IFE ZZ,<ZZ=1>
4276 033742 505 12 0 00 200400 HRLI AC-2,200400 ;SETUP AC-2
4277 033743 541 12 0 00 002000 HRRI AC-2,XX ;FOR COMPARISON
4278 033744 505 14 0 00 200200 HRLI AC,200200 ;SETUP
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 46-3
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0116
4279 033745 541 14 0 00 001000 HRRI AC,ZZ ;AC
4280 033746 202 14 0 00 000013 MOVEM AC,AC-1 ;SETUP BR
4281 033747 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4282 033750 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4283 033751 003 14 0 00 031612 ER3 AC,SN ;FAD FAILED
4284 033752 321 16 0 00 033742 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
4285
4286 PAGE
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 46-4
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0117
4287 ;TEST FAD
4288 ;TWO POSITIVES
4289 ;AR=1/4,1/8,1/16,1/32,1/64,1/128
4290 ;BR=201400000000 (+1)
4291 ;SUMS=1 1/4, 1 1/8, 1 1/16, 1 1/32, 1 1/64, 1 1/128
4292
4293 000014 AC=14
4294 SAVEAC (1,1)^
4295 033753 201 16 0 00 033753 MOVEI AC+2,.
4296 033754 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
4297 033755 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4298 033756 202 16 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4299
4300 031700 SN=31700
4301 171400 XX=171400
4302 000001 ZZ=1
4303
4304 O31700: REPEAT ^D6, ;TEST FAD
4305 <SN=SN+1
4306 XX=XX+1000
4307 ZZ=ZZ+ZZ
4308 MOVSI AC-2,201400+ZZ ;SETUP FOR COMPARISON
4309 MOVSI AC,XX ;SETUP AC
4310 MOVSI AC-1,201400 ;SETUP BR
4311 FAD AC,AC-1 ;C (AC)+C(E)
4312 CAME AC,AC-2 ;TEST RESULT
4313 ER3 AC,SN ;FAD FAILED
4314 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4315 >
4316 031701 SN=SN+1
4317 172400 XX=XX+1000
4318 000002 ZZ=ZZ+ZZ
4319 033757 205 12 0 00 201402 MOVSI AC-2,201400+ZZ ;SETUP FOR COMPARISON
4320 033760 205 14 0 00 172400 MOVSI AC,XX ;SETUP AC
4321 033761 205 13 0 00 201400 MOVSI AC-1,201400 ;SETUP BR
4322 033762 140 14 0 00 000013 FAD AC,AC-1 ;C (AC)+C(E)
4323 033763 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
4324 033764 003 14 0 00 031701 ER3 AC,SN ;FAD FAILED
4325 033765 321 16 0 00 033757 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4326
4327 031702 SN=SN+1
4328 173400 XX=XX+1000
4329 000004 ZZ=ZZ+ZZ
4330 033766 205 12 0 00 201404 MOVSI AC-2,201400+ZZ ;SETUP FOR COMPARISON
4331 033767 205 14 0 00 173400 MOVSI AC,XX ;SETUP AC
4332 033770 205 13 0 00 201400 MOVSI AC-1,201400 ;SETUP BR
4333 033771 140 14 0 00 000013 FAD AC,AC-1 ;C (AC)+C(E)
4334 033772 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
4335 033773 003 14 0 00 031702 ER3 AC,SN ;FAD FAILED
4336 033774 321 16 0 00 033766 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4337
4338 031703 SN=SN+1
4339 174400 XX=XX+1000
4340 000010 ZZ=ZZ+ZZ
4341 033775 205 12 0 00 201410 MOVSI AC-2,201400+ZZ ;SETUP FOR COMPARISON
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 46-5
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0118
4342 033776 205 14 0 00 174400 MOVSI AC,XX ;SETUP AC
4343 033777 205 13 0 00 201400 MOVSI AC-1,201400 ;SETUP BR
4344 034000 140 14 0 00 000013 FAD AC,AC-1 ;C (AC)+C(E)
4345 034001 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
4346 034002 003 14 0 00 031703 ER3 AC,SN ;FAD FAILED
4347 034003 321 16 0 00 033775 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4348
4349 031704 SN=SN+1
4350 175400 XX=XX+1000
4351 000020 ZZ=ZZ+ZZ
4352 034004 205 12 0 00 201420 MOVSI AC-2,201400+ZZ ;SETUP FOR COMPARISON
4353 034005 205 14 0 00 175400 MOVSI AC,XX ;SETUP AC
4354 034006 205 13 0 00 201400 MOVSI AC-1,201400 ;SETUP BR
4355 034007 140 14 0 00 000013 FAD AC,AC-1 ;C (AC)+C(E)
4356 034010 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
4357 034011 003 14 0 00 031704 ER3 AC,SN ;FAD FAILED
4358 034012 321 16 0 00 034004 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4359
4360 031705 SN=SN+1
4361 176400 XX=XX+1000
4362 000040 ZZ=ZZ+ZZ
4363 034013 205 12 0 00 201440 MOVSI AC-2,201400+ZZ ;SETUP FOR COMPARISON
4364 034014 205 14 0 00 176400 MOVSI AC,XX ;SETUP AC
4365 034015 205 13 0 00 201400 MOVSI AC-1,201400 ;SETUP BR
4366 034016 140 14 0 00 000013 FAD AC,AC-1 ;C (AC)+C(E)
4367 034017 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
4368 034020 003 14 0 00 031705 ER3 AC,SN ;FAD FAILED
4369 034021 321 16 0 00 034013 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4370
4371 031706 SN=SN+1
4372 177400 XX=XX+1000
4373 000100 ZZ=ZZ+ZZ
4374 034022 205 12 0 00 201500 MOVSI AC-2,201400+ZZ ;SETUP FOR COMPARISON
4375 034023 205 14 0 00 177400 MOVSI AC,XX ;SETUP AC
4376 034024 205 13 0 00 201400 MOVSI AC-1,201400 ;SETUP BR
4377 034025 140 14 0 00 000013 FAD AC,AC-1 ;C (AC)+C(E)
4378 034026 312 14 0 00 000012 CAME AC,AC-2 ;TEST RESULT
4379 034027 003 14 0 00 031706 ER3 AC,SN ;FAD FAILED
4380 034030 321 16 0 00 034022 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4381
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 47
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0119
4382 ;TEST FAD
4383 ;TWO POSITIVES-LARGER EXPONENT IN AC
4384 ;AR=202.6 (3), 202.4 (2),201.4(1)
4385 ;BR=200.4 (+1/2)
4386 ;SUMS=202.7, 202.5, 201.6
4387
4388 000013 AC=13
4389 SAVEAC (1,1)^
4390 034031 201 15 0 00 034031 MOVEI AC+2,.
4391 034032 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
4392 034033 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4393 034034 202 15 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4394
4395 034035 205 11 0 00 202700 O32000: MOVSI AC-2,202700 ;SETUP FOR COMPARISON
4396 034036 205 13 0 00 202600 MOVSI AC,202600 ;SETUP AC
4397 034037 205 12 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
4398 034040 140 13 0 00 000012 FAD AC,AC-1 ;C(AC)+C(E)
4399 034041 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
4400 034042 003 13 0 00 032001 ER3 AC,32001 ;FAD FAILED
4401 034043 321 15 0 00 034035 JUMPL AC+2,O32000 ;LOOP ON ERROR SWITCH
4402
4403 034044 205 11 0 00 202500 O32100: MOVSI AC-2,202500 ;SETUP FOR COMPARISON
4404 034045 205 13 0 00 202400 MOVSI AC,202400 ;SETUP AC
4405 034046 205 12 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
4406 034047 140 13 0 00 000012 FAD AC,AC-1 ;C(AC)+C(E)
4407 034050 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
4408 034051 003 13 0 00 032101 ER3 AC,32101 ;FAD FAILED
4409 034052 321 15 0 00 034044 JUMPL AC+2,O32100 ;LOOP ON ERROR SWITCH
4410
4411 034053 205 11 0 00 201600 O32200: MOVSI AC-2,201600 ;SETUP FOR COMPARISON
4412 034054 205 13 0 00 201400 MOVSI AC,201400 ;SETUP AC
4413 034055 205 12 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
4414 034056 140 13 0 00 000012 FAD AC,AC-1 ;C(AC) +C(E)
4415 034057 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
4416 034060 003 13 0 00 032201 ER3 AC,32201 ;FAD FAILED
4417 034061 321 15 0 00 034053 JUMPL AC+2,O32200 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 48
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0120
4418 ;TEST FAD
4419 ;TWO POSITIVES
4420 ;EXCESSIVE SHIFT COND
4421 ;AR=000400000000
4422 ;BR=200.4,201.4,202.4
4423
4424 000012 AC=12
4425 SAVEAC (1,1)^
4426 034062 201 14 0 00 034062 MOVEI AC+2,.
4427 034063 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
4428 034064 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4429 034065 202 14 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4430
4431 032300 SN=32300
4432 177400 ZZ=177400
4433
4434 O32300: REPEAT ^D3, ;TEST FAD EXCESSIVE SHIFT
4435 <SN=SN+1
4436 ZZ=ZZ+1000
4437 MOVSI AC,400 ;SETUP AC
4438 MOVSI AC-1,ZZ ;SETUP BR
4439 FAD AC,AC-1 ;C(AC) + C(E)
4440 CAME AC,AC-1 ;TEST SUM
4441 ER3 AC,SN ;FAD FAILED
4442 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
4443 >
4444 032301 SN=SN+1
4445 200400 ZZ=ZZ+1000
4446 034066 205 12 0 00 000400 MOVSI AC,400 ;SETUP AC
4447 034067 205 11 0 00 200400 MOVSI AC-1,ZZ ;SETUP BR
4448 034070 140 12 0 00 000011 FAD AC,AC-1 ;C(AC) + C(E)
4449 034071 312 12 0 00 000011 CAME AC,AC-1 ;TEST SUM
4450 034072 003 12 0 00 032301 ER3 AC,SN ;FAD FAILED
4451 034073 321 14 0 00 034066 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
4452
4453 032302 SN=SN+1
4454 201400 ZZ=ZZ+1000
4455 034074 205 12 0 00 000400 MOVSI AC,400 ;SETUP AC
4456 034075 205 11 0 00 201400 MOVSI AC-1,ZZ ;SETUP BR
4457 034076 140 12 0 00 000011 FAD AC,AC-1 ;C(AC) + C(E)
4458 034077 312 12 0 00 000011 CAME AC,AC-1 ;TEST SUM
4459 034100 003 12 0 00 032302 ER3 AC,SN ;FAD FAILED
4460 034101 321 14 0 00 034074 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
4461
4462 032303 SN=SN+1
4463 202400 ZZ=ZZ+1000
4464 034102 205 12 0 00 000400 MOVSI AC,400 ;SETUP AC
4465 034103 205 11 0 00 202400 MOVSI AC-1,ZZ ;SETUP BR
4466 034104 140 12 0 00 000011 FAD AC,AC-1 ;C(AC) + C(E)
4467 034105 312 12 0 00 000011 CAME AC,AC-1 ;TEST SUM
4468 034106 003 12 0 00 032303 ER3 AC,SN ;FAD FAILED
4469 034107 321 14 0 00 034102 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
4470
4471 PAGE
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 48-1
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0121
4472 ;TEST FAD
4473 ;NR ALL ZERO COND
4474 ;AR=200000000000
4475 ;BR EXPONENT=201,202,203
4476 ;SUM=0
4477
4478 000011 AC=11
4479 SAVEAC (1,1)^
4480 034110 201 13 0 00 034110 MOVEI AC+2,.
4481 034111 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
4482 034112 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4483 034113 202 13 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4484
4485 032400 SN=32400
4486 200000 ZZ=200000
4487
4488 O32400: REPEAT ^D3, ;TEST FAD NR ALL ZERO
4489 <SN=SN+1
4490 ZZ=ZZ+1000
4491 MOVSI AC,200000 ;SETUP AC
4492 MOVSI AC-1,ZZ ;SETUP BR
4493 FAD AC,AC-1 ;C(AC)+C(E)
4494 SKIPE AC ;TEST SUM
4495 ER3 AC,SN ;FAD FAILED
4496 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
4497 >
4498 032401 SN=SN+1
4499 201000 ZZ=ZZ+1000
4500 034114 205 11 0 00 200000 MOVSI AC,200000 ;SETUP AC
4501 034115 205 10 0 00 201000 MOVSI AC-1,ZZ ;SETUP BR
4502 034116 140 11 0 00 000010 FAD AC,AC-1 ;C(AC)+C(E)
4503 034117 332 00 0 00 000011 SKIPE AC ;TEST SUM
4504 034120 003 11 0 00 032401 ER3 AC,SN ;FAD FAILED
4505 034121 321 13 0 00 034114 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
4506
4507 032402 SN=SN+1
4508 202000 ZZ=ZZ+1000
4509 034122 205 11 0 00 200000 MOVSI AC,200000 ;SETUP AC
4510 034123 205 10 0 00 202000 MOVSI AC-1,ZZ ;SETUP BR
4511 034124 140 11 0 00 000010 FAD AC,AC-1 ;C(AC)+C(E)
4512 034125 332 00 0 00 000011 SKIPE AC ;TEST SUM
4513 034126 003 11 0 00 032402 ER3 AC,SN ;FAD FAILED
4514 034127 321 13 0 00 034122 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
4515
4516 032403 SN=SN+1
4517 203000 ZZ=ZZ+1000
4518 034130 205 11 0 00 200000 MOVSI AC,200000 ;SETUP AC
4519 034131 205 10 0 00 203000 MOVSI AC-1,ZZ ;SETUP BR
4520 034132 140 11 0 00 000010 FAD AC,AC-1 ;C(AC)+C(E)
4521 034133 332 00 0 00 000011 SKIPE AC ;TEST SUM
4522 034134 003 11 0 00 032403 ER3 AC,SN ;FAD FAILED
4523 034135 321 13 0 00 034130 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
4524
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 49
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0122
4525 ;TEST FAD
4526 ;TWO POSITIVES
4527 ;NRSHRT COND
4528 ;AR=200.4 (1/2), 201.4 (+1), 202.4 (+2)
4529 ;BR=(SAME AS AR)
4530 ;SUMS=201.4, 202.4, 203.4
4531
4532 000010 AC=10
4533 SAVEAC (1,1)^
4534 034136 201 12 0 00 034136 MOVEI AC+2,.
4535 034137 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
4536 034140 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4537 034141 202 12 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4538
4539 032500 SN=32500
4540 200400 XX=200400
4541 177400 ZZ=177400
4542
4543 O32500: REPEAT ^D3, ;TEST FAD NRSHRT
4544 <SN=SN+1
4545 XX=XX+1000
4546 ZZ=ZZ+1000
4547 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4548 MOVSI AC,ZZ ;SETUP AC
4549 MOVSI AC-1,ZZ ;SETUP BR
4550 FAD AC,AC-1 ;C(AC)+C(E)
4551 CAME AC,AC-2 ;TEST SUM
4552 ER3 AC,SN ;FAD FAILED
4553 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4554 >
4555 032501 SN=SN+1
4556 201400 XX=XX+1000
4557 200400 ZZ=ZZ+1000
4558 034142 205 06 0 00 201400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4559 034143 205 10 0 00 200400 MOVSI AC,ZZ ;SETUP AC
4560 034144 205 07 0 00 200400 MOVSI AC-1,ZZ ;SETUP BR
4561 034145 140 10 0 00 000007 FAD AC,AC-1 ;C(AC)+C(E)
4562 034146 312 10 0 00 000006 CAME AC,AC-2 ;TEST SUM
4563 034147 003 10 0 00 032501 ER3 AC,SN ;FAD FAILED
4564 034150 321 12 0 00 034142 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4565
4566 032502 SN=SN+1
4567 202400 XX=XX+1000
4568 201400 ZZ=ZZ+1000
4569 034151 205 06 0 00 202400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4570 034152 205 10 0 00 201400 MOVSI AC,ZZ ;SETUP AC
4571 034153 205 07 0 00 201400 MOVSI AC-1,ZZ ;SETUP BR
4572 034154 140 10 0 00 000007 FAD AC,AC-1 ;C(AC)+C(E)
4573 034155 312 10 0 00 000006 CAME AC,AC-2 ;TEST SUM
4574 034156 003 10 0 00 032502 ER3 AC,SN ;FAD FAILED
4575 034157 321 12 0 00 034151 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4576
4577 032503 SN=SN+1
4578 203400 XX=XX+1000
4579 202400 ZZ=ZZ+1000
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 49-1
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0123
4580 034160 205 06 0 00 203400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4581 034161 205 10 0 00 202400 MOVSI AC,ZZ ;SETUP AC
4582 034162 205 07 0 00 202400 MOVSI AC-1,ZZ ;SETUP BR
4583 034163 140 10 0 00 000007 FAD AC,AC-1 ;C(AC)+C(E)
4584 034164 312 10 0 00 000006 CAME AC,AC-2 ;TEST SUM
4585 034165 003 10 0 00 032503 ER3 AC,SN ;FAD FAILED
4586 034166 321 12 0 00 034160 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4587
4588 PAGE
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 49-2
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0124
4589 ;TEST FAD
4590 ;TWO POSITIVES NR NORMAL
4591 ;AR=200.1, 200.04, 200.02
4592 ;BR=AR
4593 ;SUMS=177.4, 176.4, 175.4
4594
4595 000007 AC=7
4596 SAVEAC (1,1)^
4597 034167 201 11 0 00 034167 MOVEI AC+2,.
4598 034170 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
4599 034171 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4600 034172 202 11 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4601
4602 032600 SN=32600
4603 200400 XX=200400
4604 000200 ZZ=200
4605
4606 O32600: REPEAT ^D3, ;TEST FAD NR NORMAL
4607 <SN=SN+1
4608 XX=XX-1000
4609 ZZ=ZZ/2
4610 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4611 MOVSI AC,200000+ZZ ;SETUP AC
4612 MOVSI AC-1,200000+ZZ ;SETUP BR
4613 FAD AC,AC-1 ;C(AC)+C(E)
4614 CAME AC,AC-2 ;TEST SUM
4615 ER3 AC,SN ;FAD FAILED
4616 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4617 >
4618 032601 SN=SN+1
4619 177400 XX=XX-1000
4620 000100 ZZ=ZZ/2
4621 034173 205 05 0 00 177400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4622 034174 205 07 0 00 200100 MOVSI AC,200000+ZZ ;SETUP AC
4623 034175 205 06 0 00 200100 MOVSI AC-1,200000+ZZ ;SETUP BR
4624 034176 140 07 0 00 000006 FAD AC,AC-1 ;C(AC)+C(E)
4625 034177 312 07 0 00 000005 CAME AC,AC-2 ;TEST SUM
4626 034200 003 07 0 00 032601 ER3 AC,SN ;FAD FAILED
4627 034201 321 11 0 00 034173 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4628
4629 032602 SN=SN+1
4630 176400 XX=XX-1000
4631 000040 ZZ=ZZ/2
4632 034202 205 05 0 00 176400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4633 034203 205 07 0 00 200040 MOVSI AC,200000+ZZ ;SETUP AC
4634 034204 205 06 0 00 200040 MOVSI AC-1,200000+ZZ ;SETUP BR
4635 034205 140 07 0 00 000006 FAD AC,AC-1 ;C(AC)+C(E)
4636 034206 312 07 0 00 000005 CAME AC,AC-2 ;TEST SUM
4637 034207 003 07 0 00 032602 ER3 AC,SN ;FAD FAILED
4638 034210 321 11 0 00 034202 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4639
4640 032603 SN=SN+1
4641 175400 XX=XX-1000
4642 000020 ZZ=ZZ/2
4643 034211 205 05 0 00 175400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 49-3
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0125
4644 034212 205 07 0 00 200020 MOVSI AC,200000+ZZ ;SETUP AC
4645 034213 205 06 0 00 200020 MOVSI AC-1,200000+ZZ ;SETUP BR
4646 034214 140 07 0 00 000006 FAD AC,AC-1 ;C(AC)+C(E)
4647 034215 312 07 0 00 000005 CAME AC,AC-2 ;TEST SUM
4648 034216 003 07 0 00 032603 ER3 AC,SN ;FAD FAILED
4649 034217 321 11 0 00 034211 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4650
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 50
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0126
4651 ;TEST FAD
4652 ;TWO NEGATIVES
4653 ;AR=577.4 (-1/2), 600.4 (-1/4), 601.4 (-1/8)
4654 ;BR=576400000000 (-1)
4655 ;SUMS=576.2 (-1 1/2), 576.3 (-1 1/4) 576.34 (-1 1/8)
4656
4657 000006 AC=6
4658 SAVEAC (1,1)^
4659 034220 201 10 0 00 034220 MOVEI AC+2,.
4660 034221 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
4661 034222 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4662 034223 202 10 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4663
4664 032700 SN=32700
4665 000200 WW=200
4666 576000 XX=576000
4667 576400 ZZ=576400
4668
4669 O32700: REPEAT ^D3, ;TEST FAD -TWO NEGATIVES
4670 <SN=SN+1
4671 XX=XX+WW
4672 WW=WW/2
4673 ZZ=ZZ+1000
4674 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4675 MOVSI AC,ZZ ;SETUP AC
4676 MOVSI AC-1,576400 ;SETUP BR
4677 FAD AC,AC-1 ;C(AC)+C(E)
4678 CAME AC,AC-2 ;TEST SUM
4679 ER3 AC,SN ;FAD FAILED
4680 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4681 >
4682 032701 SN=SN+1
4683 576200 XX=XX+WW
4684 000100 WW=WW/2
4685 577400 ZZ=ZZ+1000
4686 034224 205 04 0 00 576200 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4687 034225 205 06 0 00 577400 MOVSI AC,ZZ ;SETUP AC
4688 034226 205 05 0 00 576400 MOVSI AC-1,576400 ;SETUP BR
4689 034227 140 06 0 00 000005 FAD AC,AC-1 ;C(AC)+C(E)
4690 034230 312 06 0 00 000004 CAME AC,AC-2 ;TEST SUM
4691 034231 003 06 0 00 032701 ER3 AC,SN ;FAD FAILED
4692 034232 321 10 0 00 034224 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4693
4694 032702 SN=SN+1
4695 576300 XX=XX+WW
4696 000040 WW=WW/2
4697 600400 ZZ=ZZ+1000
4698 034233 205 04 0 00 576300 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4699 034234 205 06 0 00 600400 MOVSI AC,ZZ ;SETUP AC
4700 034235 205 05 0 00 576400 MOVSI AC-1,576400 ;SETUP BR
4701 034236 140 06 0 00 000005 FAD AC,AC-1 ;C(AC)+C(E)
4702 034237 312 06 0 00 000004 CAME AC,AC-2 ;TEST SUM
4703 034240 003 06 0 00 032702 ER3 AC,SN ;FAD FAILED
4704 034241 321 10 0 00 034233 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4705
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 50-1
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0127
4706 032703 SN=SN+1
4707 576340 XX=XX+WW
4708 000020 WW=WW/2
4709 601400 ZZ=ZZ+1000
4710 034242 205 04 0 00 576340 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4711 034243 205 06 0 00 601400 MOVSI AC,ZZ ;SETUP AC
4712 034244 205 05 0 00 576400 MOVSI AC-1,576400 ;SETUP BR
4713 034245 140 06 0 00 000005 FAD AC,AC-1 ;C(AC)+C(E)
4714 034246 312 06 0 00 000004 CAME AC,AC-2 ;TEST SUM
4715 034247 003 06 0 00 032703 ER3 AC,SN ;FAD FAILED
4716 034250 321 10 0 00 034242 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4717
4718 PAGE
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 50-2
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0128
4719 ;TEST FAD
4720 ;TWO NEGATIVES
4721 ;LARGER EXPONENT IN AR
4722 ;AR=576.400000000 (-1)
4723 ;BR=577.4 (-1/2), 600.4 (-1/4), 601.4 (-1/8)
4724 ;SUMS=576.2 (-1 1/2), 576.3 (-1 1/4),576.34 (-1 1/8)
4725
4726 000014 AC=14
4727 SAVEAC (1,1)^
4728 034251 201 16 0 00 034251 MOVEI AC+2,.
4729 034252 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
4730 034253 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4731 034254 202 16 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4732
4733 033000 SN=33000
4734 000200 WW=200
4735 576000 XX=576000
4736 576400 ZZ=576400
4737
4738 O33000: REPEAT ^D3, ;TEST FAD-LARGER IN AR
4739 <SN=SN+1
4740 XX=XX+WW
4741 WW=WW/2
4742 ZZ=ZZ+1000
4743 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4744 MOVSI AC,576400 ;SETUP AC
4745 MOVSI AC-1,ZZ ;SETUP BR
4746 FAD AC,AC-1 ;C(AC)+C(E)
4747 CAME AC,AC-2 ;TEST SUM
4748 ER3 AC,SN ;FAD FAILED
4749 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4750 >
4751 033001 SN=SN+1
4752 576200 XX=XX+WW
4753 000100 WW=WW/2
4754 577400 ZZ=ZZ+1000
4755 034255 205 12 0 00 576200 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4756 034256 205 14 0 00 576400 MOVSI AC,576400 ;SETUP AC
4757 034257 205 13 0 00 577400 MOVSI AC-1,ZZ ;SETUP BR
4758 034260 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4759 034261 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4760 034262 003 14 0 00 033001 ER3 AC,SN ;FAD FAILED
4761 034263 321 16 0 00 034255 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4762
4763 033002 SN=SN+1
4764 576300 XX=XX+WW
4765 000040 WW=WW/2
4766 600400 ZZ=ZZ+1000
4767 034264 205 12 0 00 576300 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4768 034265 205 14 0 00 576400 MOVSI AC,576400 ;SETUP AC
4769 034266 205 13 0 00 600400 MOVSI AC-1,ZZ ;SETUP BR
4770 034267 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4771 034270 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4772 034271 003 14 0 00 033002 ER3 AC,SN ;FAD FAILED
4773 034272 321 16 0 00 034264 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 50-3
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0129
4774
4775 033003 SN=SN+1
4776 576340 XX=XX+WW
4777 000020 WW=WW/2
4778 601400 ZZ=ZZ+1000
4779 034273 205 12 0 00 576340 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4780 034274 205 14 0 00 576400 MOVSI AC,576400 ;SETUP AC
4781 034275 205 13 0 00 601400 MOVSI AC-1,ZZ ;SETUP BR
4782 034276 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4783 034277 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4784 034300 003 14 0 00 033003 ER3 AC,SN ;FAD FAILED
4785 034301 321 16 0 00 034273 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4786
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 51
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0130
4787 ;TEST FAD
4788 ;TWO NEGATIVES
4789 ;NR SHRT COND
4790 ;AR=577.4 (-1/2), 600.4 (-1/4), 601.4(-1/8)
4791 ;BR=AR
4792 ;SUMS=576.4 (-1), 577.4 (-1/2), 600.4 (-1/4)
4793
4794 000014 AC=14
4795 SAVEAC (1,1)^
4796 034302 201 16 0 00 034302 MOVEI AC+2,.
4797 034303 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
4798 034304 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4799 034305 202 16 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4800
4801 033100 SN=33100
4802 575400 XX=575400
4803 576400 ZZ=576400
4804
4805 O33100: REPEAT ^D3, ;TEST FAD NRSHRT
4806 <SN=SN+1
4807 XX=XX+1000
4808 ZZ=ZZ+1000
4809 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4810 MOVSI AC,ZZ ;SETUP AC
4811 MOVSI AC-1,ZZ ;SETUP BR
4812 FAD AC,AC-1 ;C(AC)+C(E)
4813 CAME AC,AC-2 ;TEST SUM
4814 ER3 AC,SN ;FAD FAILED
4815 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4816 >
4817 033101 SN=SN+1
4818 576400 XX=XX+1000
4819 577400 ZZ=ZZ+1000
4820 034306 205 12 0 00 576400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4821 034307 205 14 0 00 577400 MOVSI AC,ZZ ;SETUP AC
4822 034310 205 13 0 00 577400 MOVSI AC-1,ZZ ;SETUP BR
4823 034311 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4824 034312 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4825 034313 003 14 0 00 033101 ER3 AC,SN ;FAD FAILED
4826 034314 321 16 0 00 034306 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4827
4828 033102 SN=SN+1
4829 577400 XX=XX+1000
4830 600400 ZZ=ZZ+1000
4831 034315 205 12 0 00 577400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4832 034316 205 14 0 00 600400 MOVSI AC,ZZ ;SETUP AC
4833 034317 205 13 0 00 600400 MOVSI AC-1,ZZ ;SETUP BR
4834 034320 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4835 034321 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4836 034322 003 14 0 00 033102 ER3 AC,SN ;FAD FAILED
4837 034323 321 16 0 00 034315 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4838
4839 033103 SN=SN+1
4840 600400 XX=XX+1000
4841 601400 ZZ=ZZ+1000
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 51-1
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0131
4842 034324 205 12 0 00 600400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4843 034325 205 14 0 00 601400 MOVSI AC,ZZ ;SETUP AC
4844 034326 205 13 0 00 601400 MOVSI AC-1,ZZ ;SETUP BR
4845 034327 140 14 0 00 000013 FAD AC,AC-1 ;C(AC)+C(E)
4846 034330 312 14 0 00 000012 CAME AC,AC-2 ;TEST SUM
4847 034331 003 14 0 00 033103 ER3 AC,SN ;FAD FAILED
4848 034332 321 16 0 00 034324 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4849
4850 PAGE
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 51-2
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0132
4851 ;TEST FAD
4852 ;POSITIVE AND NEGATIVE
4853 ;LARGER IN AR
4854 ;AR=201.400000000 (+1)
4855 ;BR=577.4 (-1/2), 600.4 (-1/4), 601.4(-1/8)
4856 ;SUMS=200.4 (+1/2), 200.6 (+3/4), 200.7 (+7/8)
4857
4858 000013 AC=13
4859 SAVEAC (1,1)^
4860 034333 201 15 0 00 034333 MOVEI AC+2,.
4861 034334 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
4862 034335 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4863 034336 202 15 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4864
4865 033200 SN=33200
4866 001000 WW=1000
4867 576400 XX=576400
4868 000000 ZZ=0
4869
4870 O33200: REPEAT ^D3, ;TEST FAD
4871 <SN=SN+1
4872 WW=WW/2
4873 XX=XX+1000
4874 ZZ=ZZ+WW
4875 MOVSI AC-2,200000+ZZ ;SETUP FOR COMPARISON
4876 MOVSI AC,201400 ;SETUP AC
4877 MOVSI AC-1,XX ;SETUP BR
4878 FAD AC,AC-1 ;C(AC)+C(E)
4879 CAME AC,AC-2 ;TEST SUM
4880 ER3 AC,SN ;FAD FAILED
4881 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4882 >
4883 033201 SN=SN+1
4884 000400 WW=WW/2
4885 577400 XX=XX+1000
4886 000400 ZZ=ZZ+WW
4887 034337 205 11 0 00 200400 MOVSI AC-2,200000+ZZ ;SETUP FOR COMPARISON
4888 034340 205 13 0 00 201400 MOVSI AC,201400 ;SETUP AC
4889 034341 205 12 0 00 577400 MOVSI AC-1,XX ;SETUP BR
4890 034342 140 13 0 00 000012 FAD AC,AC-1 ;C(AC)+C(E)
4891 034343 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
4892 034344 003 13 0 00 033201 ER3 AC,SN ;FAD FAILED
4893 034345 321 15 0 00 034337 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4894
4895 033202 SN=SN+1
4896 000200 WW=WW/2
4897 600400 XX=XX+1000
4898 000600 ZZ=ZZ+WW
4899 034346 205 11 0 00 200600 MOVSI AC-2,200000+ZZ ;SETUP FOR COMPARISON
4900 034347 205 13 0 00 201400 MOVSI AC,201400 ;SETUP AC
4901 034350 205 12 0 00 600400 MOVSI AC-1,XX ;SETUP BR
4902 034351 140 13 0 00 000012 FAD AC,AC-1 ;C(AC)+C(E)
4903 034352 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
4904 034353 003 13 0 00 033202 ER3 AC,SN ;FAD FAILED
4905 034354 321 15 0 00 034346 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 51-3
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0133
4906
4907 033203 SN=SN+1
4908 000100 WW=WW/2
4909 601400 XX=XX+1000
4910 000700 ZZ=ZZ+WW
4911 034355 205 11 0 00 200700 MOVSI AC-2,200000+ZZ ;SETUP FOR COMPARISON
4912 034356 205 13 0 00 201400 MOVSI AC,201400 ;SETUP AC
4913 034357 205 12 0 00 601400 MOVSI AC-1,XX ;SETUP BR
4914 034360 140 13 0 00 000012 FAD AC,AC-1 ;C(AC)+C(E)
4915 034361 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
4916 034362 003 13 0 00 033203 ER3 AC,SN ;FAD FAILED
4917 034363 321 15 0 00 034355 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
4918
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 52
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0134
4919 ;TEST FAD
4920 ;NOT NR ALL ZERO
4921 ;NOT NR NORMAL
4922 ;AR=200000000000
4923 ;BR=200000000001,2,4,10 ETC
4924 ;SUM=146400000000, EXPONENT
4925 ;INCREASING BY ONE
4926
4927 000012 AC=12
4928 SAVEAC (1,1)^
4929 034364 201 14 0 00 034364 MOVEI AC+2,.
4930 034365 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
4931 034366 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
4932 034367 202 14 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
4933
4934 033300 SN=33300
4935 145400 XX=145400
4936 000000 ZZ=0
4937
4938 O33300: REPEAT ^D18, ;TEST BITS 18-35(1)
4939 <SN=SN+1
4940 XX=XX+1000
4941 ZZ=ZZ+ZZ
4942 IFE ZZ,<ZZ=1>
4943 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4944 MOVSI AC,200000 ;SETUP AC
4945 MOVE AC-1,[200000,,ZZ] ;SETUP BR
4946 FAD AC,AC-1 ;C(AC)+C(E)
4947 CAME AC,AC-2 ;TEST SUM
4948 ER3 AC,SN ;FAD FAILED
4949 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
4950 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
4951 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
4952 >
4953 033301 SN=SN+1
4954 146400 XX=XX+1000
4955 000000 ZZ=ZZ+ZZ
4956 000001 IFE ZZ,<ZZ=1>
4957 034370 205 10 0 00 146400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4958 034371 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
4959 034372 200 11 0 00 036651 MOVE AC-1,[200000,,ZZ] ;SETUP BR
4960 034373 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
4961 034374 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
4962 034375 003 12 0 00 033301 ER3 AC,SN ;FAD FAILED
4963 034376 312 11 0 00 036651 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
4964 034377 005 11 0 00 033301 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
4965 034400 321 14 0 00 034370 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
4966
4967 033302 SN=SN+1
4968 147400 XX=XX+1000
4969 000002 ZZ=ZZ+ZZ
4970 IFE ZZ,<ZZ=1>
4971 034401 205 10 0 00 147400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4972 034402 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
4973 034403 200 11 0 00 036652 MOVE AC-1,[200000,,ZZ] ;SETUP BR
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 52-1
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0135
4974 034404 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
4975 034405 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
4976 034406 003 12 0 00 033302 ER3 AC,SN ;FAD FAILED
4977 034407 312 11 0 00 036652 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
4978 034410 005 11 0 00 033302 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
4979 034411 321 14 0 00 034401 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
4980
4981 033303 SN=SN+1
4982 150400 XX=XX+1000
4983 000004 ZZ=ZZ+ZZ
4984 IFE ZZ,<ZZ=1>
4985 034412 205 10 0 00 150400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
4986 034413 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
4987 034414 200 11 0 00 036653 MOVE AC-1,[200000,,ZZ] ;SETUP BR
4988 034415 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
4989 034416 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
4990 034417 003 12 0 00 033303 ER3 AC,SN ;FAD FAILED
4991 034420 312 11 0 00 036653 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
4992 034421 005 11 0 00 033303 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
4993 034422 321 14 0 00 034412 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
4994
4995 033304 SN=SN+1
4996 151400 XX=XX+1000
4997 000010 ZZ=ZZ+ZZ
4998 IFE ZZ,<ZZ=1>
4999 034423 205 10 0 00 151400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5000 034424 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5001 034425 200 11 0 00 036654 MOVE AC-1,[200000,,ZZ] ;SETUP BR
5002 034426 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5003 034427 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5004 034430 003 12 0 00 033304 ER3 AC,SN ;FAD FAILED
5005 034431 312 11 0 00 036654 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
5006 034432 005 11 0 00 033304 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5007 034433 321 14 0 00 034423 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5008
5009 033305 SN=SN+1
5010 152400 XX=XX+1000
5011 000020 ZZ=ZZ+ZZ
5012 IFE ZZ,<ZZ=1>
5013 034434 205 10 0 00 152400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5014 034435 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5015 034436 200 11 0 00 036655 MOVE AC-1,[200000,,ZZ] ;SETUP BR
5016 034437 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5017 034440 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5018 034441 003 12 0 00 033305 ER3 AC,SN ;FAD FAILED
5019 034442 312 11 0 00 036655 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
5020 034443 005 11 0 00 033305 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5021 034444 321 14 0 00 034434 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5022
5023 033306 SN=SN+1
5024 153400 XX=XX+1000
5025 000040 ZZ=ZZ+ZZ
5026 IFE ZZ,<ZZ=1>
5027 034445 205 10 0 00 153400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5028 034446 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 52-2
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0136
5029 034447 200 11 0 00 036656 MOVE AC-1,[200000,,ZZ] ;SETUP BR
5030 034450 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5031 034451 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5032 034452 003 12 0 00 033306 ER3 AC,SN ;FAD FAILED
5033 034453 312 11 0 00 036656 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
5034 034454 005 11 0 00 033306 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5035 034455 321 14 0 00 034445 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5036
5037 033307 SN=SN+1
5038 154400 XX=XX+1000
5039 000100 ZZ=ZZ+ZZ
5040 IFE ZZ,<ZZ=1>
5041 034456 205 10 0 00 154400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5042 034457 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5043 034460 200 11 0 00 036657 MOVE AC-1,[200000,,ZZ] ;SETUP BR
5044 034461 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5045 034462 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5046 034463 003 12 0 00 033307 ER3 AC,SN ;FAD FAILED
5047 034464 312 11 0 00 036657 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
5048 034465 005 11 0 00 033307 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5049 034466 321 14 0 00 034456 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5050
5051 033310 SN=SN+1
5052 155400 XX=XX+1000
5053 000200 ZZ=ZZ+ZZ
5054 IFE ZZ,<ZZ=1>
5055 034467 205 10 0 00 155400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5056 034470 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5057 034471 200 11 0 00 036660 MOVE AC-1,[200000,,ZZ] ;SETUP BR
5058 034472 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5059 034473 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5060 034474 003 12 0 00 033310 ER3 AC,SN ;FAD FAILED
5061 034475 312 11 0 00 036660 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
5062 034476 005 11 0 00 033310 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5063 034477 321 14 0 00 034467 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5064
5065 033311 SN=SN+1
5066 156400 XX=XX+1000
5067 000400 ZZ=ZZ+ZZ
5068 IFE ZZ,<ZZ=1>
5069 034500 205 10 0 00 156400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5070 034501 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5071 034502 200 11 0 00 036661 MOVE AC-1,[200000,,ZZ] ;SETUP BR
5072 034503 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5073 034504 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5074 034505 003 12 0 00 033311 ER3 AC,SN ;FAD FAILED
5075 034506 312 11 0 00 036661 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
5076 034507 005 11 0 00 033311 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5077 034510 321 14 0 00 034500 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5078
5079 033312 SN=SN+1
5080 157400 XX=XX+1000
5081 001000 ZZ=ZZ+ZZ
5082 IFE ZZ,<ZZ=1>
5083 034511 205 10 0 00 157400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 52-3
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0137
5084 034512 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5085 034513 200 11 0 00 036662 MOVE AC-1,[200000,,ZZ] ;SETUP BR
5086 034514 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5087 034515 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5088 034516 003 12 0 00 033312 ER3 AC,SN ;FAD FAILED
5089 034517 312 11 0 00 036662 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
5090 034520 005 11 0 00 033312 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5091 034521 321 14 0 00 034511 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5092
5093 033313 SN=SN+1
5094 160400 XX=XX+1000
5095 002000 ZZ=ZZ+ZZ
5096 IFE ZZ,<ZZ=1>
5097 034522 205 10 0 00 160400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5098 034523 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5099 034524 200 11 0 00 036663 MOVE AC-1,[200000,,ZZ] ;SETUP BR
5100 034525 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5101 034526 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5102 034527 003 12 0 00 033313 ER3 AC,SN ;FAD FAILED
5103 034530 312 11 0 00 036663 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
5104 034531 005 11 0 00 033313 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5105 034532 321 14 0 00 034522 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5106
5107 033314 SN=SN+1
5108 161400 XX=XX+1000
5109 004000 ZZ=ZZ+ZZ
5110 IFE ZZ,<ZZ=1>
5111 034533 205 10 0 00 161400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5112 034534 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5113 034535 200 11 0 00 036664 MOVE AC-1,[200000,,ZZ] ;SETUP BR
5114 034536 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5115 034537 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5116 034540 003 12 0 00 033314 ER3 AC,SN ;FAD FAILED
5117 034541 312 11 0 00 036664 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
5118 034542 005 11 0 00 033314 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5119 034543 321 14 0 00 034533 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5120
5121 033315 SN=SN+1
5122 162400 XX=XX+1000
5123 010000 ZZ=ZZ+ZZ
5124 IFE ZZ,<ZZ=1>
5125 034544 205 10 0 00 162400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5126 034545 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5127 034546 200 11 0 00 036665 MOVE AC-1,[200000,,ZZ] ;SETUP BR
5128 034547 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5129 034550 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5130 034551 003 12 0 00 033315 ER3 AC,SN ;FAD FAILED
5131 034552 312 11 0 00 036665 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
5132 034553 005 11 0 00 033315 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5133 034554 321 14 0 00 034544 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5134
5135 033316 SN=SN+1
5136 163400 XX=XX+1000
5137 020000 ZZ=ZZ+ZZ
5138 IFE ZZ,<ZZ=1>
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 52-4
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0138
5139 034555 205 10 0 00 163400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5140 034556 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5141 034557 200 11 0 00 036666 MOVE AC-1,[200000,,ZZ] ;SETUP BR
5142 034560 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5143 034561 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5144 034562 003 12 0 00 033316 ER3 AC,SN ;FAD FAILED
5145 034563 312 11 0 00 036666 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
5146 034564 005 11 0 00 033316 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5147 034565 321 14 0 00 034555 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5148
5149 033317 SN=SN+1
5150 164400 XX=XX+1000
5151 040000 ZZ=ZZ+ZZ
5152 IFE ZZ,<ZZ=1>
5153 034566 205 10 0 00 164400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5154 034567 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5155 034570 200 11 0 00 036667 MOVE AC-1,[200000,,ZZ] ;SETUP BR
5156 034571 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5157 034572 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5158 034573 003 12 0 00 033317 ER3 AC,SN ;FAD FAILED
5159 034574 312 11 0 00 036667 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
5160 034575 005 11 0 00 033317 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5161 034576 321 14 0 00 034566 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5162
5163 033320 SN=SN+1
5164 165400 XX=XX+1000
5165 100000 ZZ=ZZ+ZZ
5166 IFE ZZ,<ZZ=1>
5167 034577 205 10 0 00 165400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5168 034600 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5169 034601 200 11 0 00 036670 MOVE AC-1,[200000,,ZZ] ;SETUP BR
5170 034602 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5171 034603 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5172 034604 003 12 0 00 033320 ER3 AC,SN ;FAD FAILED
5173 034605 312 11 0 00 036670 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
5174 034606 005 11 0 00 033320 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5175 034607 321 14 0 00 034577 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5176
5177 033321 SN=SN+1
5178 166400 XX=XX+1000
5179 200000 ZZ=ZZ+ZZ
5180 IFE ZZ,<ZZ=1>
5181 034610 205 10 0 00 166400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5182 034611 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5183 034612 200 11 0 00 036671 MOVE AC-1,[200000,,ZZ] ;SETUP BR
5184 034613 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5185 034614 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5186 034615 003 12 0 00 033321 ER3 AC,SN ;FAD FAILED
5187 034616 312 11 0 00 036671 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
5188 034617 005 11 0 00 033321 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5189 034620 321 14 0 00 034610 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5190
5191 033322 SN=SN+1
5192 167400 XX=XX+1000
5193 400000 ZZ=ZZ+ZZ
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 52-5
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0139
5194 IFE ZZ,<ZZ=1>
5195 034621 205 10 0 00 167400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5196 034622 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5197 034623 200 11 0 00 036672 MOVE AC-1,[200000,,ZZ] ;SETUP BR
5198 034624 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5199 034625 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5200 034626 003 12 0 00 033322 ER3 AC,SN ;FAD FAILED
5201 034627 312 11 0 00 036672 CAME AC-1,[200000,,ZZ] ;VERIFY THAT C(E) IS UNCHANGED
5202 034630 005 11 0 00 033322 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5203 034631 321 14 0 00 034621 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5204
5205 PAGE
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 52-6
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0140
5206 033400 SN=33400
5207 000000 ZZ=0
5208
5209 O33400: REPEAT ^D7, ;TEST BITS 10-17 (1)
5210 <SN=SN+1
5211 XX=XX+1000
5212 ZZ=ZZ+ZZ
5213 IFE ZZ,<ZZ=1>
5214 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5215 MOVSI AC,200000 ;SETUP AC
5216 MOVSI AC-1,200000+ZZ ;SETUP BR
5217 FAD AC,AC-1 ;C(AC)+C(E)
5218 CAME AC,AC-2 ;TEST SUM
5219 ER3 AC,SN ;FAD FAILED
5220 CAME AC-1,[200000+ZZ,,0] ;VERIFY THAT C(E) IS UNCHANGED
5221 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5222 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5223 >
5224 033401 SN=SN+1
5225 170400 XX=XX+1000
5226 000000 ZZ=ZZ+ZZ
5227 000001 IFE ZZ,<ZZ=1>
5228 034632 205 10 0 00 170400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5229 034633 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5230 034634 205 11 0 00 200001 MOVSI AC-1,200000+ZZ ;SETUP BR
5231 034635 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5232 034636 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5233 034637 003 12 0 00 033401 ER3 AC,SN ;FAD FAILED
5234 034640 312 11 0 00 036673 CAME AC-1,[200000+ZZ,,0] ;VERIFY THAT C(E) IS UNCHANGED
5235 034641 005 11 0 00 033401 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5236 034642 321 14 0 00 034632 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5237
5238 033402 SN=SN+1
5239 171400 XX=XX+1000
5240 000002 ZZ=ZZ+ZZ
5241 IFE ZZ,<ZZ=1>
5242 034643 205 10 0 00 171400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5243 034644 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5244 034645 205 11 0 00 200002 MOVSI AC-1,200000+ZZ ;SETUP BR
5245 034646 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5246 034647 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5247 034650 003 12 0 00 033402 ER3 AC,SN ;FAD FAILED
5248 034651 312 11 0 00 036674 CAME AC-1,[200000+ZZ,,0] ;VERIFY THAT C(E) IS UNCHANGED
5249 034652 005 11 0 00 033402 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5250 034653 321 14 0 00 034643 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5251
5252 033403 SN=SN+1
5253 172400 XX=XX+1000
5254 000004 ZZ=ZZ+ZZ
5255 IFE ZZ,<ZZ=1>
5256 034654 205 10 0 00 172400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5257 034655 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5258 034656 205 11 0 00 200004 MOVSI AC-1,200000+ZZ ;SETUP BR
5259 034657 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5260 034660 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 52-7
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0141
5261 034661 003 12 0 00 033403 ER3 AC,SN ;FAD FAILED
5262 034662 312 11 0 00 036675 CAME AC-1,[200000+ZZ,,0] ;VERIFY THAT C(E) IS UNCHANGED
5263 034663 005 11 0 00 033403 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5264 034664 321 14 0 00 034654 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5265
5266 033404 SN=SN+1
5267 173400 XX=XX+1000
5268 000010 ZZ=ZZ+ZZ
5269 IFE ZZ,<ZZ=1>
5270 034665 205 10 0 00 173400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5271 034666 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5272 034667 205 11 0 00 200010 MOVSI AC-1,200000+ZZ ;SETUP BR
5273 034670 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5274 034671 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5275 034672 003 12 0 00 033404 ER3 AC,SN ;FAD FAILED
5276 034673 312 11 0 00 036676 CAME AC-1,[200000+ZZ,,0] ;VERIFY THAT C(E) IS UNCHANGED
5277 034674 005 11 0 00 033404 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5278 034675 321 14 0 00 034665 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5279
5280 033405 SN=SN+1
5281 174400 XX=XX+1000
5282 000020 ZZ=ZZ+ZZ
5283 IFE ZZ,<ZZ=1>
5284 034676 205 10 0 00 174400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5285 034677 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5286 034700 205 11 0 00 200020 MOVSI AC-1,200000+ZZ ;SETUP BR
5287 034701 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5288 034702 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5289 034703 003 12 0 00 033405 ER3 AC,SN ;FAD FAILED
5290 034704 312 11 0 00 036677 CAME AC-1,[200000+ZZ,,0] ;VERIFY THAT C(E) IS UNCHANGED
5291 034705 005 11 0 00 033405 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5292 034706 321 14 0 00 034676 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5293
5294 033406 SN=SN+1
5295 175400 XX=XX+1000
5296 000040 ZZ=ZZ+ZZ
5297 IFE ZZ,<ZZ=1>
5298 034707 205 10 0 00 175400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5299 034710 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5300 034711 205 11 0 00 200040 MOVSI AC-1,200000+ZZ ;SETUP BR
5301 034712 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
5302 034713 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5303 034714 003 12 0 00 033406 ER3 AC,SN ;FAD FAILED
5304 034715 312 11 0 00 036700 CAME AC-1,[200000+ZZ,,0] ;VERIFY THAT C(E) IS UNCHANGED
5305 034716 005 11 0 00 033406 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5306 034717 321 14 0 00 034707 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5307
5308 033407 SN=SN+1
5309 176400 XX=XX+1000
5310 000100 ZZ=ZZ+ZZ
5311 IFE ZZ,<ZZ=1>
5312 034720 205 10 0 00 176400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
5313 034721 205 12 0 00 200000 MOVSI AC,200000 ;SETUP AC
5314 034722 205 11 0 00 200100 MOVSI AC-1,200000+ZZ ;SETUP BR
5315 034723 140 12 0 00 000011 FAD AC,AC-1 ;C(AC)+C(E)
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 52-8
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0142
5316 034724 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5317 034725 003 12 0 00 033407 ER3 AC,SN ;FAD FAILED
5318 034726 312 11 0 00 036701 CAME AC-1,[200000+ZZ,,0] ;VERIFY THAT C(E) IS UNCHANGED
5319 034727 005 11 0 00 033407 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5320 034730 321 14 0 00 034720 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
5321
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 53
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0143
5322 ;TEST FAD
5323 ;SET AROV, ARFOV, ARFXU FLAGS
5324 ;AR=377400000000,777700000000
5325 ;BR=377400000000,777700000000
5326 ;SUM=000400000000
5327
5328 000011 AC=11
5329 SAVEAC (1,1)^
5330 034731 201 13 0 00 034731 MOVEI AC+2,.
5331 034732 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
5332 034733 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
5333 034734 202 13 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
5334
5335 ;TEST AR OV FLAG
5336 034735 255 10 0 00 034736 O33500: JFCL 10,.+1 ;CLR FLAG EXEC NEXT INST
5337 034736 205 07 0 00 000400 MOVSI AC-2,400 ;SETUP FOR COMPARISON
5338 034737 205 11 0 00 377400 MOVSI AC,377400 ;SETUP AC
5339 034740 205 10 0 00 377400 MOVSI AC-1,377400 ;SETUP BR
5340 034741 140 11 0 00 000010 FAD AC,AC-1 ;C(AC)+C(E)
5341 034742 265 12 0 00 034743 JSP AC+1,.+1
5342 034743 312 11 0 00 000007 CAME AC,AC-2 ;TEST SUM
5343 034744 003 11 0 00 033501 ER3 AC,33501 ;FAD FAILED
5344 034745 255 10 0 00 034747 JFCL 10,.+2 ;TEST AROV FLAG
5345 034746 013 12 0 00 033501 ER13 AC+1,33501 ;AROV FAILED TO SET
5346 034747 321 13 0 00 034735 JUMPL AC+2,O33500 ;LOOP ON ERROR SWITCH
5347
5348 ;TEST AR FOV FLAG
5349 034750 255 01 0 00 034751 O33600: JFCL 1,.+1 ;CLR FLAG, EXEC NEXT INST
5350 034751 205 11 0 00 377400 MOVSI AC,377400 ;SETUP AC
5351 034752 205 10 0 00 377400 MOVSI AC-1,377400 ;SETUP BR
5352 034753 140 11 0 00 000010 FAD AC,AC-1 ;C(AC)+C(E)
5353 034754 265 12 0 00 034755 JSP AC+1,.+1
5354 034755 255 01 0 00 034757 JFCL 1,.+2 ;TEST AR FOV FLAG
5355 034756 013 12 0 00 033601 ER13 AC+1,33601 ;AR FOV FAILED TO SET
5356 034757 321 13 0 00 034750 JUMPL AC+2,O33600 ;LOOP ON ERROR SWITCH
5357
5358 ;TEST ARFXU FLAG
5359 034760 254 02 1 00 036702 O33700: JRST 2,@[.+1] ;CLR FLAG,EXEC NEXT INST
5360 034761 205 11 0 00 777700 MOVSI AC,777700 ;SETUP AC
5361 034762 205 10 0 00 777700 MOVSI AC-1,777700 ;SETUP BR
5362 034763 140 11 0 00 000010 FAD AC,AC-1 ;C(AC)+C(E)
5363 034764 265 07 0 00 034765 JSP AC-2,.+1 ;STORE FLAGS AND PC
5364 034765 627 07 0 00 000100 TLZN AC-2,100 ;TEST AND CLEAR BIT 11
5365 034766 013 07 0 00 033701 ER13 AC-2,33701 ;AR FXU FAILED TO SET
5366 034767 254 02 0 07 000003 JRST 2,3(AC-2) ;CLEAR AR FXU
5367 034770 321 13 0 00 034760 JUMPL AC+2,O33700 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 54
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0144
5368 ;TEST FADM
5369 ;AR=200400000000 (+1/2)
5370 ;BR=201400000000 (+1)
5371 ;SUM=201600000000 (+1 1/2)
5372
5373 000014 AC=14
5374 SAVEAC (1,1)^
5375 034771 201 16 0 00 034771 MOVEI AC+2,.
5376 034772 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
5377 034773 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
5378 034774 202 16 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
5379
5380 034775 205 12 0 00 201600 O34400: MOVSI AC-2,201600 ;SETUP FOR COMPARISON
5381 034776 205 14 0 00 200400 MOVSI AC,200400 ;SETUP AC
5382 034777 205 13 0 00 201400 MOVSI AC-1,201400 ;SETUP BR
5383 035000 142 14 0 00 000013 FADM AC,AC-1 ;C(AC)+C(E)
5384 035001 312 13 0 00 000012 CAME AC-1,AC-2 ;TEST SUM
5385 035002 005 13 0 00 034401 ER5 AC-1,34401 ;FADM FAILED
5386 035003 312 14 0 00 036703 CAME AC,[200400,,0] ;VERIFY THAT C(AC) IS UNCHANGED
5387 035004 003 14 0 00 034401 ER3 AC,34401 ;FAILURE, C(AC) WAS CLOBBERED
5388 035005 321 16 0 00 034775 JUMPL AC+2,O34400 ;LOOP ON ERROR SWITCH
5389 PAGE
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 54-1
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0145
5390 ;TEST FADB
5391 ;AR=200400000000 (+1/2)
5392 ;BR=201400000000 (+1)
5393 ;SUM =201600000000 (+1 1/2)
5394
5395 000014 AC=14
5396 SAVEAC (1,1)^
5397 035006 201 16 0 00 035006 MOVEI AC+2,.
5398 035007 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
5399 035010 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
5400 035011 202 16 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
5401
5402 035012 205 12 0 00 201600 O34500: MOVSI AC-2,201600 ;SETUP FOR COMPARISON
5403 035013 205 14 0 00 200400 MOVSI AC,200400 ;SETUP AC
5404 035014 205 13 0 00 201400 MOVSI AC-1,201400 ;SETUP BR
5405 035015 143 14 0 00 000013 FADB AC,AC-1 ;C(AC)+C(E)
5406 035016 312 14 0 00 000012 CAME AC,AC-2 ;TEST C(AC)
5407 035017 003 14 0 00 034501 ER3 AC,34501
5408 035020 312 13 0 00 000012 CAME AC-1,AC-2 ;TEST C(E)
5409 035021 005 13 0 00 034501 ER5 AC-1,34501 ;FADB FAILED
5410 035022 321 16 0 00 035012 JUMPL AC+2,O34500 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 55
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0146
5411 ;TEST FADR
5412 ;TEST ROUNDING
5413 ;AR=200000000003,5,11, ETC
5414 ;BR=202400000000, EXPONENT INCREASING BY 1
5415 ;SUM=C(BR)+1
5416
5417 000013 AC=13
5418 SAVEAC (1,1)^
5419 035023 201 15 0 00 035023 MOVEI AC+2,.
5420 035024 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
5421 035025 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
5422 035026 202 15 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
5423
5424 034600 SN=34600
5425 201400 XX=201400
5426 000001 ZZ=1
5427
5428 O34600: REPEAT ^D17, ;TEST MQ RIGHT
5429 <SN=SN+1
5430 XX=XX+1000
5431 ZZ=ZZ+ZZ
5432 HRLI AC-2,XX ;SETUP AC-2
5433 HRRI AC-2,1 ;FOR COMPARISON
5434 HRLI AC,200000 ;SETUP
5435 HRRI AC,ZZ ;AC
5436 AOJ AC, ;SET BIT 35
5437 MOVSI AC-1,XX ;SETUP BR
5438 FADR AC,AC-1 ;C(AC)+C(E)
5439 CAME AC,AC-2 ;TEST SUM
5440 ER3 AC,SN ;FADR FAILED
5441 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5442 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5443 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5444 >
5445 034601 SN=SN+1
5446 202400 XX=XX+1000
5447 000002 ZZ=ZZ+ZZ
5448 035027 505 11 0 00 202400 HRLI AC-2,XX ;SETUP AC-2
5449 035030 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5450 035031 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5451 035032 541 13 0 00 000002 HRRI AC,ZZ ;AC
5452 035033 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5453 035034 205 12 0 00 202400 MOVSI AC-1,XX ;SETUP BR
5454 035035 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5455 035036 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5456 035037 003 13 0 00 034601 ER3 AC,SN ;FADR FAILED
5457 035040 312 12 0 00 036704 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5458 035041 005 12 0 00 034601 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5459 035042 321 15 0 00 035027 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5460
5461 034602 SN=SN+1
5462 203400 XX=XX+1000
5463 000004 ZZ=ZZ+ZZ
5464 035043 505 11 0 00 203400 HRLI AC-2,XX ;SETUP AC-2
5465 035044 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 55-1
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0147
5466 035045 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5467 035046 541 13 0 00 000004 HRRI AC,ZZ ;AC
5468 035047 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5469 035050 205 12 0 00 203400 MOVSI AC-1,XX ;SETUP BR
5470 035051 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5471 035052 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5472 035053 003 13 0 00 034602 ER3 AC,SN ;FADR FAILED
5473 035054 312 12 0 00 036705 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5474 035055 005 12 0 00 034602 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5475 035056 321 15 0 00 035043 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5476
5477 034603 SN=SN+1
5478 204400 XX=XX+1000
5479 000010 ZZ=ZZ+ZZ
5480 035057 505 11 0 00 204400 HRLI AC-2,XX ;SETUP AC-2
5481 035060 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5482 035061 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5483 035062 541 13 0 00 000010 HRRI AC,ZZ ;AC
5484 035063 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5485 035064 205 12 0 00 204400 MOVSI AC-1,XX ;SETUP BR
5486 035065 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5487 035066 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5488 035067 003 13 0 00 034603 ER3 AC,SN ;FADR FAILED
5489 035070 312 12 0 00 036706 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5490 035071 005 12 0 00 034603 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5491 035072 321 15 0 00 035057 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5492
5493 034604 SN=SN+1
5494 205400 XX=XX+1000
5495 000020 ZZ=ZZ+ZZ
5496 035073 505 11 0 00 205400 HRLI AC-2,XX ;SETUP AC-2
5497 035074 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5498 035075 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5499 035076 541 13 0 00 000020 HRRI AC,ZZ ;AC
5500 035077 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5501 035100 205 12 0 00 205400 MOVSI AC-1,XX ;SETUP BR
5502 035101 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5503 035102 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5504 035103 003 13 0 00 034604 ER3 AC,SN ;FADR FAILED
5505 035104 312 12 0 00 036707 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5506 035105 005 12 0 00 034604 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5507 035106 321 15 0 00 035073 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5508
5509 034605 SN=SN+1
5510 206400 XX=XX+1000
5511 000040 ZZ=ZZ+ZZ
5512 035107 505 11 0 00 206400 HRLI AC-2,XX ;SETUP AC-2
5513 035110 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5514 035111 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5515 035112 541 13 0 00 000040 HRRI AC,ZZ ;AC
5516 035113 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5517 035114 205 12 0 00 206400 MOVSI AC-1,XX ;SETUP BR
5518 035115 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5519 035116 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5520 035117 003 13 0 00 034605 ER3 AC,SN ;FADR FAILED
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 55-2
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0148
5521 035120 312 12 0 00 036710 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5522 035121 005 12 0 00 034605 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5523 035122 321 15 0 00 035107 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5524
5525 034606 SN=SN+1
5526 207400 XX=XX+1000
5527 000100 ZZ=ZZ+ZZ
5528 035123 505 11 0 00 207400 HRLI AC-2,XX ;SETUP AC-2
5529 035124 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5530 035125 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5531 035126 541 13 0 00 000100 HRRI AC,ZZ ;AC
5532 035127 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5533 035130 205 12 0 00 207400 MOVSI AC-1,XX ;SETUP BR
5534 035131 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5535 035132 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5536 035133 003 13 0 00 034606 ER3 AC,SN ;FADR FAILED
5537 035134 312 12 0 00 036711 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5538 035135 005 12 0 00 034606 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5539 035136 321 15 0 00 035123 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5540
5541 034607 SN=SN+1
5542 210400 XX=XX+1000
5543 000200 ZZ=ZZ+ZZ
5544 035137 505 11 0 00 210400 HRLI AC-2,XX ;SETUP AC-2
5545 035140 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5546 035141 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5547 035142 541 13 0 00 000200 HRRI AC,ZZ ;AC
5548 035143 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5549 035144 205 12 0 00 210400 MOVSI AC-1,XX ;SETUP BR
5550 035145 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5551 035146 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5552 035147 003 13 0 00 034607 ER3 AC,SN ;FADR FAILED
5553 035150 312 12 0 00 036712 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5554 035151 005 12 0 00 034607 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5555 035152 321 15 0 00 035137 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5556
5557 034610 SN=SN+1
5558 211400 XX=XX+1000
5559 000400 ZZ=ZZ+ZZ
5560 035153 505 11 0 00 211400 HRLI AC-2,XX ;SETUP AC-2
5561 035154 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5562 035155 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5563 035156 541 13 0 00 000400 HRRI AC,ZZ ;AC
5564 035157 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5565 035160 205 12 0 00 211400 MOVSI AC-1,XX ;SETUP BR
5566 035161 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5567 035162 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5568 035163 003 13 0 00 034610 ER3 AC,SN ;FADR FAILED
5569 035164 312 12 0 00 036713 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5570 035165 005 12 0 00 034610 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5571 035166 321 15 0 00 035153 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5572
5573 034611 SN=SN+1
5574 212400 XX=XX+1000
5575 001000 ZZ=ZZ+ZZ
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 55-3
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0149
5576 035167 505 11 0 00 212400 HRLI AC-2,XX ;SETUP AC-2
5577 035170 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5578 035171 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5579 035172 541 13 0 00 001000 HRRI AC,ZZ ;AC
5580 035173 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5581 035174 205 12 0 00 212400 MOVSI AC-1,XX ;SETUP BR
5582 035175 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5583 035176 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5584 035177 003 13 0 00 034611 ER3 AC,SN ;FADR FAILED
5585 035200 312 12 0 00 036714 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5586 035201 005 12 0 00 034611 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5587 035202 321 15 0 00 035167 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5588
5589 034612 SN=SN+1
5590 213400 XX=XX+1000
5591 002000 ZZ=ZZ+ZZ
5592 035203 505 11 0 00 213400 HRLI AC-2,XX ;SETUP AC-2
5593 035204 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5594 035205 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5595 035206 541 13 0 00 002000 HRRI AC,ZZ ;AC
5596 035207 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5597 035210 205 12 0 00 213400 MOVSI AC-1,XX ;SETUP BR
5598 035211 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5599 035212 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5600 035213 003 13 0 00 034612 ER3 AC,SN ;FADR FAILED
5601 035214 312 12 0 00 036715 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5602 035215 005 12 0 00 034612 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5603 035216 321 15 0 00 035203 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5604
5605 034613 SN=SN+1
5606 214400 XX=XX+1000
5607 004000 ZZ=ZZ+ZZ
5608 035217 505 11 0 00 214400 HRLI AC-2,XX ;SETUP AC-2
5609 035220 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5610 035221 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5611 035222 541 13 0 00 004000 HRRI AC,ZZ ;AC
5612 035223 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5613 035224 205 12 0 00 214400 MOVSI AC-1,XX ;SETUP BR
5614 035225 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5615 035226 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5616 035227 003 13 0 00 034613 ER3 AC,SN ;FADR FAILED
5617 035230 312 12 0 00 036716 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5618 035231 005 12 0 00 034613 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5619 035232 321 15 0 00 035217 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5620
5621 034614 SN=SN+1
5622 215400 XX=XX+1000
5623 010000 ZZ=ZZ+ZZ
5624 035233 505 11 0 00 215400 HRLI AC-2,XX ;SETUP AC-2
5625 035234 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5626 035235 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5627 035236 541 13 0 00 010000 HRRI AC,ZZ ;AC
5628 035237 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5629 035240 205 12 0 00 215400 MOVSI AC-1,XX ;SETUP BR
5630 035241 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 55-4
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0150
5631 035242 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5632 035243 003 13 0 00 034614 ER3 AC,SN ;FADR FAILED
5633 035244 312 12 0 00 036717 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5634 035245 005 12 0 00 034614 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5635 035246 321 15 0 00 035233 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5636
5637 034615 SN=SN+1
5638 216400 XX=XX+1000
5639 020000 ZZ=ZZ+ZZ
5640 035247 505 11 0 00 216400 HRLI AC-2,XX ;SETUP AC-2
5641 035250 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5642 035251 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5643 035252 541 13 0 00 020000 HRRI AC,ZZ ;AC
5644 035253 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5645 035254 205 12 0 00 216400 MOVSI AC-1,XX ;SETUP BR
5646 035255 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5647 035256 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5648 035257 003 13 0 00 034615 ER3 AC,SN ;FADR FAILED
5649 035260 312 12 0 00 036720 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5650 035261 005 12 0 00 034615 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5651 035262 321 15 0 00 035247 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5652
5653 034616 SN=SN+1
5654 217400 XX=XX+1000
5655 040000 ZZ=ZZ+ZZ
5656 035263 505 11 0 00 217400 HRLI AC-2,XX ;SETUP AC-2
5657 035264 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5658 035265 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5659 035266 541 13 0 00 040000 HRRI AC,ZZ ;AC
5660 035267 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5661 035270 205 12 0 00 217400 MOVSI AC-1,XX ;SETUP BR
5662 035271 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5663 035272 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5664 035273 003 13 0 00 034616 ER3 AC,SN ;FADR FAILED
5665 035274 312 12 0 00 036721 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5666 035275 005 12 0 00 034616 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5667 035276 321 15 0 00 035263 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5668
5669 034617 SN=SN+1
5670 220400 XX=XX+1000
5671 100000 ZZ=ZZ+ZZ
5672 035277 505 11 0 00 220400 HRLI AC-2,XX ;SETUP AC-2
5673 035300 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5674 035301 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5675 035302 541 13 0 00 100000 HRRI AC,ZZ ;AC
5676 035303 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5677 035304 205 12 0 00 220400 MOVSI AC-1,XX ;SETUP BR
5678 035305 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5679 035306 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5680 035307 003 13 0 00 034617 ER3 AC,SN ;FADR FAILED
5681 035310 312 12 0 00 036722 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5682 035311 005 12 0 00 034617 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5683 035312 321 15 0 00 035277 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5684
5685 034620 SN=SN+1
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 55-5
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0151
5686 221400 XX=XX+1000
5687 200000 ZZ=ZZ+ZZ
5688 035313 505 11 0 00 221400 HRLI AC-2,XX ;SETUP AC-2
5689 035314 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5690 035315 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5691 035316 541 13 0 00 200000 HRRI AC,ZZ ;AC
5692 035317 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5693 035320 205 12 0 00 221400 MOVSI AC-1,XX ;SETUP BR
5694 035321 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5695 035322 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5696 035323 003 13 0 00 034620 ER3 AC,SN ;FADR FAILED
5697 035324 312 12 0 00 036723 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5698 035325 005 12 0 00 034620 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5699 035326 321 15 0 00 035313 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5700
5701 034621 SN=SN+1
5702 222400 XX=XX+1000
5703 400000 ZZ=ZZ+ZZ
5704 035327 505 11 0 00 222400 HRLI AC-2,XX ;SETUP AC-2
5705 035330 541 11 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5706 035331 505 13 0 00 200000 HRLI AC,200000 ;SETUP
5707 035332 541 13 0 00 400000 HRRI AC,ZZ ;AC
5708 035333 340 13 0 00 000000 AOJ AC, ;SET BIT 35
5709 035334 205 12 0 00 222400 MOVSI AC-1,XX ;SETUP BR
5710 035335 144 13 0 00 000012 FADR AC,AC-1 ;C(AC)+C(E)
5711 035336 312 13 0 00 000011 CAME AC,AC-2 ;TEST SUM
5712 035337 003 13 0 00 034621 ER3 AC,SN ;FADR FAILED
5713 035340 312 12 0 00 036724 CAME AC-1,[XX,,0] ;VERIFY THAT C(E) IS UNCHANGED
5714 035341 005 12 0 00 034621 ER5 AC-1,SN ;FAILURE, C(E) WAS CLOBBERED
5715 035342 321 15 0 00 035327 JUMPL AC+2,.-^D11 ;LOOP ON ERROR SWITCH
5716
5717 PAGE
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 55-6
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0152
5718 ;TEST FADRI
5719 ;AR=200400000003
5720 ;SUM=202500000001
5721
5722 000012 AC=12
5723 SAVEAC (1,1)^
5724 035343 201 14 0 00 035343 MOVEI AC+2,.
5725 035344 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
5726 035345 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
5727 035346 202 14 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
5728
5729 035347 505 10 0 00 202500 O34700: HRLI AC-2,202500 ;SETUP AC-2
5730 035350 541 10 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5731 035351 505 12 0 00 200400 HRLI AC,200400 ;SETUP
5732 035352 541 12 0 00 000003 HRRI AC,3 ;AC
5733 035353 145 12 0 00 202400 FADRI AC,202400 ;C(AC)+C(E)
5734 035354 312 12 0 00 000010 CAME AC,AC-2 ;TEST SUM
5735 035355 003 12 0 00 034701 ER3 AC,34701 ;FADRI FAILED
5736 035356 321 14 0 00 035347 JUMPL AC+2,O34700 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 56
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0153
5737 ;TEST FSB
5738 ;TWO POSITIVES
5739 ;AR=201400000000 (+1)
5740 ;BR=177400000000 (+1/4)
5741 ;DIFF=200600000000 (+3/4)
5742
5743 000011 AC=11
5744 SAVEAC (1,1)^
5745 035357 201 13 0 00 035357 MOVEI AC+2,.
5746 035360 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
5747 035361 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
5748 035362 202 13 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
5749
5750 035363 205 07 0 00 200600 O35000: MOVSI AC-2,200600 ;SETUP FOR COMPARISON
5751 035364 205 11 0 00 201400 MOVSI AC,201400 ;SETUP AC
5752 035365 205 10 0 00 177400 MOVSI AC-1,177400 ;SETUP BR
5753 035366 150 11 0 00 000010 FSB AC,AC-1 ;C(AC)-C(E)
5754 035367 312 11 0 00 000007 CAME AC,AC-2 ;TEST DIFFERENCE
5755 035370 003 11 0 00 035001 ER3 AC,35001 ;FSB FAILED
5756 035371 312 10 0 00 036725 CAME AC-1,[177400,,0] ;VERIFY THAT C(E) IS UNCHANGED
5757 035372 005 10 0 00 035001 ER5 AC-1,35001 ;C(E) WAS CLOBBERED
5758 035373 321 13 0 00 035363 JUMPL AC+2,O35000 ;LOOP ON ERROR SWITCH
5759
5760 ;TEST FSBM
5761 ;TWO NEGATIVES
5762 ;AR=576400000000 (-1)
5763 ;BR=600400000000 (-1/4)
5764 ;DIFF=577200000000 (-3/4)
5765
5766 000010 AC=10
5767 SAVEAC (1,1)^
5768 035374 201 12 0 00 035374 MOVEI AC+2,.
5769 035375 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
5770 035376 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
5771 035377 202 12 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
5772
5773 035400 205 06 0 00 577200 O35100: MOVSI AC-2,577200 ;SETUP FOR COMPARISON
5774 035401 205 10 0 00 576400 MOVSI AC,576400 ;SETUP AC
5775 035402 205 07 0 00 600400 MOVSI AC-1,600400 ;SETUP BR
5776 035403 152 10 0 00 000007 FSBM AC,AC-1 ;C(AC)-C(E)
5777 035404 312 07 0 00 000006 CAME AC-1,AC-2 ;TEST DIFFERENCE
5778 035405 005 07 0 00 035101 ER5 AC-1,35101 ;FSBM FAILED
5779 035406 312 10 0 00 036726 CAME AC,[576400,,0] ;VERIFY THAT C(AC) IS UNCHANGED
5780 035407 003 10 0 00 035101 ER3 AC,35101 ;FAILURE, C(AC) WAS CLOBBERED
5781 035410 321 12 0 00 035400 JUMPL AC+2,O35100 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 57
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0154
5782 ;TEST FSBB
5783 ;NEGATIVE AND POSITIVE
5784 ;AR=201400000000 (+1)
5785 ;BR=577400000000 (-1/2)
5786 ;DIFF=201600000000 (+1 1/2)
5787
5788 000007 AC=7
5789 SAVEAC (1,1)^
5790 035411 201 11 0 00 035411 MOVEI AC+2,.
5791 035412 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
5792 035413 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
5793 035414 202 11 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
5794
5795 035415 205 05 0 00 201600 O35200: MOVSI AC-2,201600 ;SETUP FOR COMPARISON
5796 035416 205 07 0 00 201400 MOVSI AC,201400 ;SETUP AC
5797 035417 205 06 0 00 577400 MOVSI AC-1,577400 ;SETUP BR
5798 035420 153 07 0 00 000006 FSBB AC,AC-1 ;C(AC)-C(E)
5799 035421 312 07 0 00 000005 CAME AC,AC-2 ;TEST C(AC)
5800 035422 003 07 0 00 035201 ER3 AC,35201
5801 035423 312 06 0 00 000005 CAME AC-1,AC-2 ;TEST C(E)
5802 035424 005 06 0 00 035201 ER5 AC-1,35201 ;FSBB FAILED
5803 035425 321 11 0 00 035415 JUMPL AC+2,O35200 ;LOOP ON ERROR SWITCH
5804
5805 ;TEST FSBRB
5806 ;TWO POSITIVES
5807 ;NR NORMAL
5808 ;AR=203400000000
5809 ;BR=200477777775
5810 ;DIFF=202660000001
5811
5812 000006 AC=6
5813 SAVEAC (1,1)^
5814 035426 201 10 0 00 035426 MOVEI AC+2,.
5815 035427 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
5816 035430 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
5817 035431 202 10 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
5818
5819 035432 505 04 0 00 202660 O35300: HRLI AC-2,202660 ;SETUP AC-2
5820 035433 541 04 0 00 000001 HRRI AC-2,1 ;FOR COMPARISON
5821 035434 205 06 0 00 203400 MOVSI AC,203400 ;SETUP AC
5822 035435 505 05 0 00 200477 HRLI AC-1,200477 ;SETUP
5823 035436 541 05 0 00 777775 HRRI AC-1,-3 ;BR
5824 035437 157 06 0 00 000005 FSBRB AC,AC-1 ;C(AC)-C(E)
5825 035440 312 06 0 00 000004 CAME AC,AC-2 ;TEST C(AC)
5826 035441 003 06 0 00 035301 ER3 AC,35301
5827 035442 312 05 0 00 000004 CAME AC-1,AC-2 ;TEST C(E)
5828 035443 005 05 0 00 035301 ER5 AC-1,35301 ;FSBRB FAILED
5829 035444 321 10 0 00 035432 JUMPL AC+2,O35300 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 58
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0155
5830 ;GENERAL TESTS TO VERIFY EFFECT OF FSC EXECUTION ON AROV, FOV AND FXU FLAGS
5831
5832 000004 AC=4
5833 SAVEAC (1,1)^
5834 035445 201 06 0 00 035445 MOVEI AC+2,.
5835 035446 202 06 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
5836 035447 201 06 0 00 000006 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
5837 035450 202 06 0 00 037107 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
5838
5839 035451 254 02 1 00 035452 O35500: JRST 2,@.+1 ;CLEAR FLAGS
5840 035452 000000 035453 .+1
5841 035453 205 02 0 00 377400 MOVSI AC-2,377400 ;SETUP FOR COMPARISON
5842 035454 205 04 0 00 377400 MOVSI AC,377400 ;SETUP AC
5843 035455 132 04 0 00 000000 FSC AC,0 ;SCALE - NO FLAGS
5844 035456 265 05 0 00 035457 JSP AC+1,.+1 ;SAVE FLAGS
5845 035457 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC) FOR NO CHANGE
5846 035460 003 04 0 00 035501 ER3 AC,35501 ;C(AC) FAILED
5847 035461 255 10 0 00 035463 JOV .+2 ;EXAMINE AROV FLAG
5848 035462 254 00 0 00 035464 JRST .+2
5849 035463 013 05 0 00 035501 ER13 AC+1,35501 ;AROV FLAG WAS SET
5850 035464 603 05 0 00 040100 TLNE AC+1,FOV+FXU ;EXAMINE FLAGS
5851 035465 013 05 0 00 035501 ER13 AC+1,35501 ;A FLAG WAS SET
5852 035466 321 06 0 00 035451 JUMPL AC+2,O35500 ;LOOP ON ERROR SWITCH
5853
5854 035467 254 02 1 00 035470 O35510: JRST 2,@.+1 ;CLEAR FLAGS
5855 035470 000000 035471 .+1
5856 035471 205 02 0 00 000400 MOVSI AC-2,400 ;SETUP FOR COMPARISON
5857 035472 205 04 0 00 377400 MOVSI AC,377400 ;SETUP AC
5858 035473 132 04 0 00 000001 FSC AC,1 ;SCALE - AROV, FOV
5859 035474 265 05 0 00 035475 JSP AC+1,.+1 ;SAVE FLAGS
5860 035475 312 04 0 00 000002 CAME AC,<AC-2>&17 ;EXAMINE C(AC)
5861 035476 003 04 0 00 035511 ER3 AC,35511 ;C(AC) FAILED
5862 035477 255 10 0 00 035501 JOV .+2 ;EXAMINE AROV FLAG
5863 035500 013 05 0 00 035511 ER13 AC+1,35511 ;AROV FLAG WAS NOT SET
5864 035501 603 05 0 00 000100 TLNE AC+1,FXU ;EXAMINE FXU
5865 035502 013 05 0 00 035511 ER13 AC+1,35511 ;ERROR - FXU IS SET
5866 035503 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV
5867 035504 013 05 0 00 035511 ER13 AC+1,35511 ;ERROR - FOV NOT SET
5868 035505 321 06 0 00 035467 JUMPL AC+2,O35510 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 59
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0156
5869
5870 035506 254 02 1 00 035507 O35520: JRST 2,@.+1 ;CLEAR FLAGS
5871 035507 000000 035510 .+1
5872 035510 205 02 0 00 177400 MOVSI AC-2,177400 ;SETUP FOR COMPARISON
5873 035511 205 04 0 00 377400 MOVSI AC,377400 ;SETUP AC
5874 035512 132 04 0 00 000200 FSC AC,200 ;SCALE - AROV,FOV
5875 035513 265 05 0 00 035514 JSP AC+1,.+1 ;SAVE FLAGS
5876 035514 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
5877 035515 003 04 0 00 035521 ER3 AC,35521 ;C(AC) FAILED
5878 035516 255 10 0 00 035520 JOV .+2 ;EXAMINE AROV FLAG
5879 035517 013 05 0 00 035521 ER13 AC+1,35521 ;AROV FLAG WAS NOT SET
5880 035520 603 05 0 00 000100 TLNE AC+1,FXU ;EXAMINE FXU
5881 035521 013 05 0 00 035521 ER13 AC+1,35521 ;FXU WAS SET
5882 035522 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV
5883 035523 013 05 0 00 035521 ER13 AC+1,35521 ;FOV WAS NOT SET
5884 035524 321 06 0 00 035506 JUMPL AC+2,O35520 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 60
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0157
5885 035525 254 02 1 00 035526 O35530: JRST 2,@.+1 ;CLEAR FLAGS
5886 035526 000000 035527 .+1
5887 035527 205 02 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
5888 035530 205 04 0 00 377400 MOVSI AC,377400 ;SETUP AC
5889 035531 132 04 0 00 000201 FSC AC,201 ;SCALE - AROV,FOV
5890 035532 265 05 0 00 035533 JSP AC+1,.+1 ;SAVE FLAGS
5891 035533 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
5892 035534 003 04 0 00 035531 ER3 AC,35531 ;C(AC) FAILED
5893 035535 255 10 0 00 035537 JOV .+2 ;EXAMINE AROV FLAG
5894 035536 013 05 0 00 035531 ER13 AC+1,35531 ;AROV FLAG NOT SET
5895 035537 332 00 0 00 030041 SKIPE KLFLG
5896 035540 254 00 0 00 035547 JRST O35535 ;KL10
5897 035541 607 05 0 00 000100 TLNN AC+1,FXU ;EXAMINE FXU
5898 035542 013 05 0 00 035531 ER13 AC+1,35531 ;FXU WAS NOT SET
5899 035543 607 05 0 00 040000 O35537: TLNN AC+1,FOV ;EXAMINE FOV
5900 035544 013 05 0 00 035531 ER13 AC+1,35531 ;FOV WAS NOT SET
5901 035545 321 06 0 00 035525 JUMPL AC+2,O35530 ;LOOP ON ERROR SWITCH.
5902 035546 254 00 0 00 035552 JRST O35540
5903 035547 603 05 0 00 000100 O35535: TLNE AC+1,FXU ;FXU SHOULD NOT BE SET ON KL10
5904 035550 013 05 0 00 035532 ER13 AC+1,35532
5905 035551 254 00 0 00 035543 JRST O35537
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 61
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0158
5906
5907 035552 254 02 1 00 035553 O35540: JRST 2,@.+1 ;CLEAR FLAGS
5908 035553 000000 035554 .+1
5909 035554 205 02 0 00 376400 MOVSI AC-2,376400 ;SETUP FOR COMPARISON
5910 035555 205 04 0 00 377400 MOVSI AC,377400 ;SETUP AC
5911 035556 132 04 0 00 000377 FSC AC,377 ;SCALE - AROV, FOV
5912 035557 265 05 0 00 035560 JSP AC+1,.+1 ;SAVE FLAGS
5913 035560 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
5914 035561 003 04 0 00 035541 ER3 AC,35541 ;C(AC) FAILED
5915 035562 255 10 0 00 035564 JOV .+2 ;EXAMINE AROV FLAG
5916 035563 013 05 0 00 035541 ER13 AC+1,35541 ;AROV FLAG WAS NOT SET
5917 035564 332 00 0 00 030041 SKIPE KLFLG
5918 035565 254 00 0 00 035574 JRST O35545 ;KL10
5919 035566 607 05 0 00 000100 TLNN AC+1,FXU ;EXAMINE FXU
5920 035567 013 05 0 00 035541 ER13 AC+1,35541 ;FXU WAS NOT SET
5921 035570 607 05 0 00 040000 O35547: TLNN AC+1,FOV ;EXAMINE FOV
5922 035571 013 05 0 00 035541 ER13 AC+1,35541 ;FOV WAS NOT SET
5923 035572 321 06 0 00 035552 JUMPL AC+2,O35540 ;LOOP ON ERROR SWITCH
5924 035573 254 00 0 00 035577 JRST O35550
5925 035574 603 05 0 00 000100 O35545: TLNE AC+1,FXU ;FXU SHOULD NOT BE SET ON KL10
5926 035575 013 05 0 00 035542 ER13 AC+1,35542
5927 035576 254 00 0 00 035570 JRST O35547
5928
5929 035577 254 02 1 00 035600 O35550: JRST 2,@.+1 ;CLEAR FLAGS
5930 035600 000000 035601 .+1
5931 035601 205 02 0 00 377400 MOVSI AC-2,377400 ;SETUP FOR COMPARISON
5932 035602 205 04 0 00 377400 MOVSI AC,377400 ;SETUP AC
5933 035603 132 04 0 00 000400 FSC AC,400 ;SCALE - NO FLAGS
5934 035604 265 05 0 00 035605 JSP AC+1,.+1 ;SAVE FLAGS
5935 035605 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
5936 035606 003 04 0 00 035551 ER3 AC,35551 ;C(AC) FAILED
5937 035607 255 10 0 00 035611 JOV .+2 ;EXAMINE AROV FLAG
5938 035610 254 00 0 00 035612 JRST .+2
5939 035611 013 05 0 00 035551 ER13 AC+1,35551 ;AROV FLAG WAS SET
5940 035612 603 05 0 00 040100 TLNE AC+1,FOV+FXU ;EXAMINE FLAGS
5941 035613 013 05 0 00 035551 ER13 AC+1,35551 ;A FLAG WAS SET
5942 035614 321 06 0 00 035577 JUMPL AC+2,O35550 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 62
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0159
5943 035615 254 02 1 00 035616 O35560: JRST 2,@.+1 ;CLEAR FLAGS
5944 035616 000000 035617 .+1
5945 035617 205 02 0 00 000400 MOVSI AC-2,400 ;SETUP FOR COMPARISON
5946 035620 205 04 0 00 377400 MOVSI AC,377400 ;SETUP AC
5947 035621 132 04 0 00 777401 FSC AC,-377 ;SCALE - NO FLAGS
5948 035622 265 05 0 00 035623 JSP AC+1,.+1 ;SAVE FLAGS
5949 035623 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
5950 035624 003 04 0 00 035561 ER3 AC,35561 ;C(AC) FAILED
5951 035625 255 10 0 00 035627 JOV .+2 ;EXAMINE AROV FLAG
5952 035626 254 00 0 00 035630 JRST .+2
5953 035627 013 05 0 00 035561 ER13 AC+1,35561 ;AROV FLAG WAS SET
5954 035630 603 05 0 00 040100 TLNE AC+1,FOV+FXU ;EXAMINE FLAGS
5955 035631 013 05 0 00 035561 ER13 AC+1,35561 ;A FLAG WAS SET
5956 035632 321 06 0 00 035615 JUMPL AC+2,O35560 ;LOOP ON ERROR SWITCH
5957
5958 035633 254 02 1 00 035634 O35570: JRST 2,@.+1 ;CLEAR FLAGS
5959 035634 000000 035635 .+1
5960 035635 205 02 0 00 377400 MOVSI AC-2,377400 ;SETUP FOR COMPARISON
5961 035636 205 04 0 00 377400 MOVSI AC,377400 ;SETUP AC
5962 035637 132 04 0 00 777400 FSC AC,-400 ;SCALE - AROV,FOV,FXU
5963 035640 265 05 0 00 035641 JSP AC+1,.+1 ;SAVE FLAGS
5964 035641 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
5965 035642 003 04 0 00 035571 ER3 AC,35571 ;C(AC) FAILED
5966 035643 255 10 0 00 035645 JOV .+2 ;EXAMINE AROV FLAG
5967 035644 013 05 0 00 035571 ER13 AC+1,35571 ;AROV FLAG WAS NOT SET
5968 035645 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV FLAG
5969 035646 013 05 0 00 035571 ER13 AC+1,35571 ;FOV WAS NOT SET
5970 035647 607 05 0 00 000100 TLNN AC+1,FXU ;EXAMINE FXU FLAG
5971 035650 013 05 0 00 035571 ER13 AC+1,35571 ;FXU WAS NOT SET
5972 035651 321 06 0 00 035633 JUMPL AC+2,O35570 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 63
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0160
5973 035652 254 02 1 00 035653 O35600: JRST 2,@.+1 ;CLEAR FLAGS
5974 035653 000000 035654 .+1
5975 035654 205 02 0 00 000400 MOVSI AC-2,400 ;SETUP FOR COMPARISON
5976 035655 205 04 0 00 000400 MOVSI AC,400 ;SETUP AC
5977 035656 132 04 0 00 000000 FSC AC,0 ;FSC - NO FLAGS
5978 035657 265 05 0 00 035660 JSP AC+1,.+1 ;SAVE FLAGS
5979 035660 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
5980 035661 003 04 0 00 035601 ER3 AC,35601 ;C(AC) FAILED
5981 035662 255 10 0 00 035664 JOV .+2 ;EXAMINE AROV FLAG
5982 035663 254 00 0 00 035665 JRST .+2
5983 035664 013 05 0 00 035601 ER13 AC+1,35601 ;AROV WAS SET
5984 035665 603 05 0 00 040100 TLNE AC+1,FOV+FXU ;TEST FOV,FXU
5985 035666 013 05 0 00 035601 ER13 AC+1,35601 ;EITHER FOV OR FXU WAS SET
5986 035667 321 06 0 00 035652 JUMPL AC+2,O35600 ;LOOP ON ERROR SWITCH
5987
5988 035670 254 02 1 00 035671 O35610: JRST 2,@.+1 ;CLEAR FLAGS
5989 035671 000000 035672 .+1
5990 035672 205 02 0 00 377400 MOVSI AC-2,377400 ;SETUP FOR COMPARISON
5991 035673 205 04 0 00 000400 MOVSI AC,400 ;SETUP AC
5992 035674 132 04 0 00 777777 FSC AC,-1 ;SCALE - AROV,FOV,FXU
5993 035675 265 05 0 00 035676 JSP AC+1,.+1 ;SAVE FLAGS
5994 035676 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
5995 035677 003 04 0 00 035611 ER3 AC,35611 ;C(AC) FAILED
5996 035700 255 10 0 00 035702 JOV .+2 ;EXAMINE AROV FLAG
5997 035701 013 05 0 00 035611 ER13 AC+1,35611 ;AROV FLAG WAS NOT SET
5998 035702 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV FLAG
5999 035703 013 05 0 00 035611 ER13 AC+1,35611 ;FOV WAS NOT SET
6000 035704 607 05 0 00 000100 TLNN AC+1,FXU ;EXAMINE FXU FLAG
6001 035705 013 05 0 00 035611 ER13 AC+1,35611 ;FXU WAS NOT SET
6002 035706 321 06 0 00 035670 JUMPL AC+2,O35610 ;LOOP ON ERROR SWITCH
6003
6004 035707 254 02 1 00 035710 O35620: JRST 2,@.+1 ;CLEAR FLAGS
6005 035710 000000 035711 .+1
6006 035711 205 02 0 00 201400 MOVSI AC-2,201400 ;SETUP FOR COMPARISON
6007 035712 205 04 0 00 000400 MOVSI AC,400 ;SETUP AC
6008 035713 132 04 0 00 777601 FSC AC,-177 ;SCALE - AROV,FOV,FXU
6009 035714 265 05 0 00 035715 JSP AC+1,.+1 ;SAVE FLAGS
6010 035715 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6011 035716 003 04 0 00 035621 ER3 AC,35621 ;C(AC) FAILED
6012 035717 255 10 0 00 035721 JOV .+2 ;EXAMINE AROV FLAG
6013 035720 013 05 0 00 035621 ER13 AC+1,35621 ;AROV FLAG WAS NOT SET
6014 035721 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV FLAG
6015 035722 013 05 0 00 035621 ER13 AC+1,35621 ;FOV WAS NOT SET
6016 035723 607 05 0 00 000100 TLNN AC+1,FXU ;EXAMINE FXU FLAG
6017 035724 013 05 0 00 035621 ER13 AC+1,35621 ;FXU WAS NOT SET
6018 035725 321 06 0 00 035707 JUMPL AC+2,O35620 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 64
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0161
6019 035726 254 02 1 00 035727 O35630: JRST 2,@.+1 ;CLEAR FLAGS
6020 035727 000000 035730 .+1
6021 035730 205 02 0 00 200400 MOVSI AC-2,200400 ;SETUP FOR COMPARISON
6022 035731 205 04 0 00 000400 MOVSI AC,400 ;SETUP AC
6023 035732 132 04 0 00 777600 FSC AC,-200 ;SCALE - AROV,FOV,FXU
6024 035733 265 05 0 00 035734 JSP AC+1,.+1 ;SAVE FLAGS
6025 035734 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6026 035735 003 04 0 00 035631 ER3 AC,35631 ;C(AC) FAILED
6027 035736 255 10 0 00 035740 JOV .+2 ;EXAMINE AROV FLAG
6028 035737 013 05 0 00 035631 ER13 AC+1,35631 ;AROV FLAG WAS NOT SET
6029 035740 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV FLAG
6030 035741 013 05 0 00 035631 ER13 AC+1,35631 ;FOV WAS NOT SET
6031 035742 607 05 0 00 000100 TLNN AC+1,FXU ;EXAMINE FXU FLAG
6032 035743 013 05 0 00 035631 ER13 AC+1,35631 ;FXU WAS NOT SET
6033 035744 321 06 0 00 035726 JUMPL AC+2,O35630 ;LOOP ON ERROR SWITCH
6034
6035 035745 254 02 1 00 035746 O35640: JRST 2,@.+1 ;CLEAR FLAGS
6036 035746 000000 035747 .+1
6037 035747 205 02 0 00 001400 MOVSI AC-2,1400 ;SETUP FOR COMPARISON
6038 035750 205 04 0 00 000400 MOVSI AC,400 ;SETUP AC
6039 035751 132 04 0 00 777401 FSC AC,-377 ;SCALE - AROV,FOV,FXU
6040 035752 265 05 0 00 035753 JSP AC+1,.+1 ;SAVE FLAGS
6041 035753 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6042 035754 003 04 0 00 035641 ER3 AC,35641 ;C(AC) FAILED
6043 035755 255 10 0 00 035757 JOV .+2 ;EXAMINE AROV FLAG
6044 035756 013 05 0 00 035641 ER13 AC+1,35641 ;AROV FLAG WAS NOT SET
6045 035757 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV FLAG
6046 035760 013 05 0 00 035641 ER13 AC+1,35641 ;FOV WAS NOT SET
6047 035761 332 00 0 00 030041 SKIPE KLFLG
6048 035762 254 00 0 00 035767 JRST O35645 ;KL10
6049 035763 603 05 0 00 000100 TLNE AC+1,FXU ;EXAMINE FXU FLAG
6050 035764 013 05 0 00 035641 ER13 AC+1,35641 ;FXU WAS SET
6051 035765 321 06 0 00 035745 O35647: JUMPL AC+2,O35640 ;LOOP ON ERROR SWITCH
6052 035766 254 00 0 00 035772 JRST O35650
6053 035767 607 05 0 00 000100 O35645: TLNN AC+1,FXU ;FXU SHOULD BE SET ON KL10
6054 035770 013 05 0 00 035642 ER13 AC+1,35642
6055 035771 254 00 0 00 035765 JRST O35647
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 65
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0162
6056
6057 035772 254 02 1 00 035773 O35650: JRST 2,@.+1 ;CLEAR FLAGS
6058 035773 000000 035774 .+1
6059 035774 205 02 0 00 000400 MOVSI AC-2,400 ;SETUP FOR COMPARISON
6060 035775 205 04 0 00 000400 MOVSI AC,400 ;SETUP AC
6061 035776 132 04 0 00 777400 FSC AC,-400 ;SCALE - AROV,FOV,FXU
6062 035777 265 05 0 00 036000 JSP AC+1,.+1 ;SAVE FLAGS
6063 036000 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6064 036001 003 04 0 00 035651 ER3 AC,35651 ;C(AC) FAILED
6065 036002 255 10 0 00 036004 JOV .+2 ;EXAMINE AROV FLAG
6066 036003 013 05 0 00 035651 ER13 AC+1,35651 ;AROV FLAG WAS NOT SET
6067 036004 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV FLAG
6068 036005 013 05 0 00 035651 ER13 AC+1,35651 ;FOV WAS NOT SET
6069 036006 332 00 0 00 030041 SKIPE KLFLG
6070 036007 254 00 0 00 036014 JRST O35655
6071 036010 603 05 0 00 000100 TLNE AC+1,FXU ;EXAMINE FXU FLAG
6072 036011 013 05 0 00 035651 ER13 AC+1,35651 ;FXU WAS SET
6073 036012 321 06 0 00 035772 O35657: JUMPL AC+2,O35650 ;LOOP ON ERROR SWITCH
6074 036013 254 00 0 00 036017 JRST O35660
6075 036014 607 05 0 00 000100 O35655: TLNN AC+1,FXU ;FXU SHOULD BE SET ON KL10
6076 036015 013 05 0 00 035652 ER13 AC+1,35652
6077 036016 254 00 0 00 036012 JRST O35657
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 66
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0163
6078 036017 254 02 1 00 036020 O35660: JRST 2,@.+1 ;CLEAR FLAGS
6079 036020 000000 036021 .+1
6080 036021 205 02 0 00 377400 MOVSI AC-2,377400 ;SETUP FOR COMPARISON
6081 036022 205 04 0 00 000400 MOVSI AC,400 ;SETUP AC
6082 036023 132 04 0 00 000377 FSC AC,377 ;SCALE - NO FLAGS
6083 036024 265 05 0 00 036025 JSP AC+1,.+1 ;SAVE FLAGS
6084 036025 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6085 036026 003 04 0 00 035661 ER3 AC,35661 ;C(AC) FAILED
6086 036027 255 10 0 00 036031 JOV .+2 ;EXAMINE AROV FLAG
6087 036030 254 00 0 00 036032 JRST .+2
6088 036031 013 05 0 00 035661 ER13 AC+1,35661 ;AROV FLAG WAS SET
6089 036032 603 05 0 00 040100 TLNE AC+1,FOV+FXU ;EXAMINE FLAGS
6090 036033 013 05 0 00 035661 ER13 AC+1,35661 ;A FLAG WAS SET
6091 036034 321 06 0 00 036017 JUMPL AC+2,O35660 ;LOOP ON ERROR SWITCH
6092
6093 036035 254 02 1 00 036036 O35670: JRST 2,@.+1 ;CLEAR FLAGS
6094 036036 000000 036037 .+1
6095 036037 205 02 0 00 000400 MOVSI AC-2,400 ;SETUP FOR COMPARISON
6096 036040 205 04 0 00 000400 MOVSI AC,400 ;SETUP AC
6097 036041 132 04 0 00 000400 FSC AC,400 ;SCALE - NO FLAGS
6098 036042 265 05 0 00 036043 JSP AC+1,.+1 ;SAVE FLAGS
6099 036043 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6100 036044 003 04 0 00 035671 ER3 AC,35671 ;C(AC) FAILED
6101 036045 255 10 0 00 036047 JOV .+2 ;EXAMINE AROV FLAG
6102 036046 254 00 0 00 036050 JRST .+2
6103 036047 013 05 0 00 035671 ER13 AC+1,35671 ;AROV FLAG WAS SET
6104 036050 603 05 0 00 040100 TLNE AC+1,FOV+FXU ;EXAMINE FLAGS
6105 036051 013 05 0 00 035671 ER13 AC+1,35671 ;A FLAG WAS SET
6106 036052 321 06 0 00 036035 JUMPL AC+2,O35670 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 67
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0164
6107 036053 254 02 1 00 036054 O35700: JRST 2,@.+1 ;CLEAR FLAGS
6108 036054 000000 036055 .+1
6109 036055 205 02 0 00 400400 MOVSI AC-2,-377400 ;SETUP FOR COMPARISON
6110 036056 205 04 0 00 400400 MOVSI AC,-377400 ;SETUP AC
6111 036057 132 04 0 00 000000 FSC AC,0 ;SCALE - NO FLAGS
6112 036060 265 05 0 00 036061 JSP AC+1,.+1 ;SAVE FLAGS
6113 036061 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC) FOR NO CHANGE
6114 036062 003 04 0 00 035701 ER3 AC,35701 ;C(AC) FAILED
6115 036063 255 10 0 00 036065 JOV .+2 ;EXAMINE AROV FLAG
6116 036064 254 00 0 00 036066 JRST .+2
6117 036065 013 05 0 00 035701 ER13 AC+1,35701 ;AROV FLAG WAS SET
6118 036066 603 05 0 00 040100 TLNE AC+1,FOV+FXU ;EXAMINE FLAGS
6119 036067 013 05 0 00 035701 ER13 AC+1,35701 ;A FLAG WAS SET
6120 036070 321 06 0 00 036053 JUMPL AC+2,O35700 ;LOOP ON ERROR SWITCH
6121
6122 036071 254 02 1 00 036072 O35710: JRST 2,@.+1 ;CLEAR FLAGS
6123 036072 000000 036073 .+1
6124 036073 205 02 0 00 777400 MOVSI AC-2,-400 ;SETUP FOR COMPARISON
6125 036074 205 04 0 00 400400 MOVSI AC,-377400 ;SETUP AC
6126 036075 132 04 0 00 000001 FSC AC,1 ;SCALE - AROV,FOV
6127 036076 265 05 0 00 036077 JSP AC+1,.+1 ;SAVE FLAGS
6128 036077 312 04 0 00 000002 CAME AC,<AC-2>&17 ;EXAMINE C(AC)
6129 036100 003 04 0 00 035711 ER3 AC,35711 ;C(AC) FAILED
6130 036101 255 10 0 00 036103 JOV .+2 ;EXAMINE AROV FLAG
6131 036102 013 05 0 00 035711 ER13 AC+1,35711 ;AROV FLAG WAS NOT SET
6132 036103 603 05 0 00 000100 TLNE AC+1,FXU ;EXAMINE FXU
6133 036104 013 05 0 00 035711 ER13 AC+1,35711 ;ERROR - FXU IS SET
6134 036105 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV
6135 036106 013 05 0 00 035711 ER13 AC+1,35711 ;ERROR - FOV NOT SET
6136 036107 321 06 0 00 036071 JUMPL AC+2,O35710 ;LOOP ON ERROR SWITCH
6137
6138 036110 254 02 1 00 036111 O35720: JRST 2,@.+1 ;CLEAR FLAGS
6139 036111 000000 036112 .+1
6140 036112 205 02 0 00 600400 MOVSI AC-2,-177400 ;SETUP FOR COMPARISON
6141 036113 205 04 0 00 400400 MOVSI AC,-377400 ;SETUP AC
6142 036114 132 04 0 00 000200 FSC AC,200 ;SCALE - AROV,FOV
6143 036115 265 05 0 00 036116 JSP AC+1,.+1 ;SAVE FLAGS
6144 036116 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6145 036117 003 04 0 00 035721 ER3 AC,35721 ;C(AC) FAILED
6146 036120 255 10 0 00 036122 JOV .+2 ;EXAMINE AROV FLAG
6147 036121 013 05 0 00 035721 ER13 AC+1,35721 ;AROV FLAG WAS NOT SET
6148 036122 603 05 0 00 000100 TLNE AC+1,FXU ;EXAMINE FXU
6149 036123 013 05 0 00 035721 ER13 AC+1,35721 ;ERROR - FXU IS SET
6150 036124 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV
6151 036125 013 05 0 00 035721 ER13 AC+1,35721 ;ERROR - FOV NOT SET
6152 036126 321 06 0 00 036110 JUMPL AC+2,O35720 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 68
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0165
6153 036127 254 02 1 00 036130 O35730: JRST 2,@.+1 ;CLEAR FLAGS
6154 036130 000000 036131 .+1
6155 036131 205 02 0 00 577400 MOVSI AC-2,-200400 ;SETUP FOR COMPARISON
6156 036132 205 04 0 00 400400 MOVSI AC,-377400 ;SETUP AC
6157 036133 132 04 0 00 000201 FSC AC,201 ;SCALE - AROV,FOV
6158 036134 265 05 0 00 036135 JSP AC+1,.+1 ;SAVE FLAGS
6159 036135 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6160 036136 003 04 0 00 035731 ER3 AC,35731 ;C(AC) FAILED
6161 036137 255 10 0 00 036141 JOV .+2 ;EXAMINE AROV FLAG
6162 036140 013 05 0 00 035731 ER13 AC+1,35731 ;AROV FLAG WAS NOT SET
6163 036141 332 00 0 00 030041 SKIPE KLFLG
6164 036142 254 00 0 00 036151 JRST O35735 ;KL10
6165 036143 607 05 0 00 000100 TLNN AC+1,FXU ;EXAMINE FXU
6166 036144 013 05 0 00 035731 ER13 AC+1,35731 ;ERROR - FXU IS NOT SET
6167 036145 607 05 0 00 040000 O35737: TLNN AC+1,FOV ;EXAMINE FOV
6168 036146 013 05 0 00 035731 ER13 AC+1,35731 ;ERROR - FOV NOT SET
6169 036147 321 06 0 00 036127 JUMPL AC+2,O35730 ;LOOP ON ERROR SWITCH
6170 036150 254 00 0 00 036154 JRST O35740
6171 036151 603 05 0 00 000100 O35735: TLNE AC+1,FXU ;FXU SHOULD NOT BE SET ON KL10
6172 036152 013 05 0 00 035732 ER13 AC+1,35732
6173 036153 254 00 0 00 036145 JRST O35737
6174
6175 036154 254 02 1 00 036155 O35740: JRST 2,@.+1 ;CLEAR FLAGS
6176 036155 000000 036156 .+1
6177 036156 205 02 0 00 401400 MOVSI AC-2,-376400 ;SETUP FOR COMPARISON
6178 036157 205 04 0 00 400400 MOVSI AC,-377400 ;SETUP AC
6179 036160 132 04 0 00 000377 FSC AC,377 ;SCALE - AROV, FOV
6180 036161 265 05 0 00 036162 JSP AC+1,.+1 ;SAVE FLAGS
6181 036162 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6182 036163 003 04 0 00 035741 ER3 AC,35741 ;C(AC) RAILED
6183 036164 255 10 0 00 036166 JOV .+2 ;EXAMINE AROV FLAG
6184 036165 013 05 0 00 035741 ER13 AC+1,35741 ;AROV FLAG WAS NOT SET
6185 036166 332 00 0 00 030041 SKIPE KLFLG
6186 036167 254 00 0 00 036176 JRST O35745
6187 036170 607 05 0 00 000100 TLNN AC+1,FXU ;EXAMINE FXU
6188 036171 013 05 0 00 035741 ER13 AC+1,35741 ;ERROR - FXU IS NOT SET
6189 036172 607 05 0 00 040000 O35747: TLNN AC+1,FOV ;EXAMINE FOV
6190 036173 013 05 0 00 035741 ER13 AC+1,35741 ;ERROR - FOV NOT SET
6191 036174 321 06 0 00 036154 JUMPL AC+2,O35740 ;LOOP ON ERROR SWITCH
6192 036175 254 00 0 00 036201 JRST O35750
6193 036176 603 05 0 00 000100 O35745: TLNE AC+1,FXU ;FXU SOULD NOT BE SET ON KL10
6194 036177 013 05 0 00 035742 ER13 AC+1,35742
6195 036200 254 00 0 00 036172 JRST O35747
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 69
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0166
6196
6197 036201 254 02 1 00 036202 O35750: JRST 2,@.+1 ;CLEAR FLAGS
6198 036202 000000 036203 .+1
6199 036203 205 02 0 00 400400 MOVSI AC-2,-377400 ;SETUP FOR COMPARISON
6200 036204 205 04 0 00 400400 MOVSI AC,-377400 ;SETUP AC.
6201 036205 132 04 0 00 000400 FSC AC,400 ;SCALE - NO FLAGS
6202 036206 265 05 0 00 036207 JSP AC+1,.+1 ;SAVE FLAGS
6203 036207 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6204 036210 003 04 0 00 035751 ER3 AC,35751 ;C(AC) FAILED
6205 036211 255 10 0 00 036213 JOV .+2 ;EXAMINE AROV FLAG
6206 036212 254 00 0 00 036214 JRST .+2
6207 036213 013 05 0 00 035751 ER13 AC+1,35751 ;AROV FLAG WAS SET
6208 036214 603 05 0 00 040100 TLNE AC+1,FOV+FXU ;EXAMINE FLAGS
6209 036215 013 05 0 00 035751 ER13 AC+1,35751 ;A FLAG WAS SET
6210 036216 321 06 0 00 036201 JUMPL AC+2,O35750 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 70
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0167
6211 036217 254 02 1 00 036220 O35760: JRST 2,@.+1 ;CLEAR FLAGS
6212 036220 000000 036221 .+1
6213 036221 205 02 0 00 777400 MOVSI AC-2,-400 ;SETUP FOR COMPARISON
6214 036222 205 04 0 00 400400 MOVSI AC,-377400 ;SETUP AC
6215 036223 132 04 0 00 777401 FSC AC,-377 ;SCALE - NO FLAGS
6216 036224 265 05 0 00 036225 JSP AC+1,.+1 ;SAVE FLAGS
6217 036225 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6218 036226 003 04 0 00 035761 ER3 AC,35761 ;C(AC) FAILED.
6219 036227 255 10 0 00 036231 JOV .+2 ;EXAMINE AROV FLAG
6220 036230 254 00 0 00 036232 JRST .+2
6221 036231 013 05 0 00 035761 ER13 AC+1,35761 ;AROV FLAG WAS SET
6222 036232 603 05 0 00 040100 TLNE AC+1,FOV+FXU ;EXAMINE FLAGS
6223 036233 013 05 0 00 035761 ER13 AC+1,35761 ;A FLAG WAS SET
6224 036234 321 06 0 00 036217 JUMPL AC+2,O35760 ;LOOP ON ERROR SWITCH
6225
6226 036235 254 02 1 00 036236 O35770: JRST 2,@.+1 ;CLEAR FLAGS
6227 036236 000000 036237 .+1
6228 036237 205 02 0 00 400400 MOVSI AC-2,-377400 ;SETUP FOR COMPARISON
6229 036240 205 04 0 00 400400 MOVSI AC,-377400 ;SETUP AC
6230 036241 132 04 0 00 777400 FSC AC,-400 ;SCALE - AROV,FOV,FXU
6231 036242 265 05 0 00 036243 JSP AC+1,.+1 ;SAVE FLAGS
6232 036243 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6233 036244 003 04 0 00 035771 ER3 AC,35771 ;C(AC) FAILED
6234 036245 255 10 0 00 036247 JOV .+2 ;EXAMINE AROV FLAG
6235 036246 013 05 0 00 035771 ER13 AC+1,35771 ;AROV FLAG WAS NOT SET
6236 036247 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV FLAG
6237 036250 013 05 0 00 035771 ER13 AC+1,35771 ;FOV WAS NOT SET
6238 036251 607 05 0 00 000100 TLNN AC+1,FXU ;EXAMINE FXU FLAG
6239 036252 013 05 0 00 035771 ER13 AC+1,35771 ;FXU WAS NOT SET
6240 036253 321 06 0 00 035633 JUMPL AC+2,O35570 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 71
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0168
6241 036254 254 02 1 00 036255 O36000: JRST 2,@.+1 ;CLEAR FLAGS
6242 036255 000000 036256 .+1
6243 036256 205 02 0 00 777400 MOVSI AC-2,-400 ;SETUP FOR COMPARISON
6244 036257 205 04 0 00 777400 MOVSI AC,-400 ;SETUP AC
6245 036260 132 04 0 00 000000 FSC AC,0 ;FSC - NO FLAGS
6246 036261 265 05 0 00 036262 JSP AC+1,.+1 ;SAVE FLAGS
6247 036262 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6248 036263 003 04 0 00 036001 ER3 AC,36001 ;C(AC) FAILED
6249 036264 255 10 0 00 036266 JOV .+2 ;EXAMINE AROV FLAG
6250 036265 254 00 0 00 036267 JRST .+2
6251 036266 013 05 0 00 036001 ER13 AC+1,36001 ;AROV FLAG WAS SET
6252 036267 603 05 0 00 040100 TLNE AC+1,FOV+FXU ;TEST FOV,FXU
6253 036270 013 05 0 00 036001 ER13 AC+1,36001 ;EITHER FOV OR FXU WAS SET
6254 036271 321 06 0 00 036254 JUMPL AC+2,O36000 ;LOOP ON ERROR SWITCH
6255
6256 036272 254 02 1 00 036273 O36010: JRST 2,@.+1 ;CLEAR FLAGS
6257 036273 000000 036274 .+1
6258 036274 205 02 0 00 400400 MOVSI AC-2,-377400 ;SETUP FOR COMPARISON
6259 036275 205 04 0 00 777400 MOVSI AC,-400 ;SETUP AC
6260 036276 132 04 0 00 777777 FSC AC,-1 ;SCALE - AROV,FOV,FXU
6261 036277 265 05 0 00 036300 JSP AC+1,.+1 ;SAVE FLAGS
6262 036300 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6263 036301 003 04 0 00 036011 ER3 AC,36011 ;C(AC) FAILED
6264 036302 255 10 0 00 036304 JOV .+2 ;EXAMINE AROV FLAG
6265 036303 013 05 0 00 036011 ER13 AC+1,36011 ;AROV FLAG WAS NOT SET
6266 036304 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV FLAG
6267 036305 013 05 0 00 036011 ER13 AC+1,36011 ;FOV WAS NOT SET
6268 036306 607 05 0 00 000100 TLNN AC+1,FXU ;EXAMINE FXU FLAG
6269 036307 013 05 0 00 036011 ER13 AC+1,36011 ;FXU WAS NOT SET
6270 036310 321 06 0 00 036272 JUMPL AC+2,O36010 ;LOOP ON ERROR SWITCH
6271
6272 036311 254 02 1 00 036312 O36020: JRST 2,@.+1 ;CLEAR FLAGS
6273 036312 000000 036313 .+1
6274 036313 205 02 0 00 576400 MOVSI AC-2,-201400 ;SETUP FOR COMPARISON
6275 036314 205 04 0 00 777400 MOVSI AC,-400 ;SETUP AC
6276 036315 132 04 0 00 777601 FSC AC,-177 ;SCALE - AROV,FOV,FXU
6277 036316 265 05 0 00 036317 JSP AC+1,.+1 ;SAVE FLAGS
6278 036317 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6279 036320 003 04 0 00 036021 ER3 AC,36021 ;C(AC) FAILED
6280 036321 255 10 0 00 036323 JOV .+2 ;EXAMINE AROV FLAG
6281 036322 013 05 0 00 036021 ER13 AC+1,36021 ;AROV FLAG WAS NOT SET
6282 036323 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV FLAG
6283 036324 013 05 0 00 036021 ER13 AC+1,36021 ;FOV WAS NOT SET
6284 036325 607 05 0 00 000100 TLNN AC+1,FXU ;EXAMINE FXU FLAG
6285 036326 013 05 0 00 036021 ER13 AC+1,36021 ;FXU WAS NOT SET
6286 036327 321 06 0 00 036311 JUMPL AC+2,O36020 ;LOOP ON ERROR SWITCH
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 72
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0169
6287 036330 254 02 1 00 036331 O36030: JRST 2,@.+1 ;CLEAR FLAGS
6288 036331 000000 036332 .+1
6289 036332 205 02 0 00 577400 MOVSI AC-2,-200400 ;SETUP FOR COMPARISON
6290 036333 205 04 0 00 777400 MOVSI AC,-400 ;SETUP AC
6291 036334 132 04 0 00 777600 FSC AC,-200 ;SCALE - AROV,FOV,FXU
6292 036335 265 05 0 00 036336 JSP AC+1,.+1 ;SAVE FLAGS
6293 036336 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6294 036337 003 04 0 00 036031 ER3 AC,36031 ;C(AC) FAILED
6295 036340 255 10 0 00 036342 JOV .+2 ;EXAMINE AROV FLAG
6296 036341 013 05 0 00 036031 ER13 AC+1,36031 ;AROV FLAG WAS NOT SET
6297 036342 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV FLAG
6298 036343 013 05 0 00 036031 ER13 AC+1,36031 ;FOV WAS NOT SET
6299 036344 607 05 0 00 000100 TLNN AC+1,FXU ;EXAMINE FXU FLAG
6300 036345 013 05 0 00 036031 ER13 AC+1,36031 ;FXU WAS NOT SET
6301 036346 321 06 0 00 036330 JUMPL AC+2,O36030 ;LOOP ON ERROR SWITCH
6302
6303 036347 254 02 1 00 036350 O36040: JRST 2,@.+1 ;CLEAR FLAGS
6304 036350 000000 036351 .+1
6305 036351 205 02 0 00 776400 MOVSI AC-2,-1400 ;SETUP FOR COMPARISON
6306 036352 205 04 0 00 777400 MOVSI AC,-400 ;SETUP AC
6307 036353 132 04 0 00 777401 FSC AC,-377 ;SCALE - AROV,FOV,FXU
6308 036354 265 05 0 00 036355 JSP AC+1,.+1 ;SAVE FLAGS
6309 036355 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6310 036356 003 04 0 00 036041 ER3 AC,36041 ;C(AC) FAILED
6311 036357 255 10 0 00 036361 JOV .+2 ;EXAMINE AROV FLAG
6312 036360 013 05 0 00 036041 ER13 AC+1,36041 ;AROV FLAG WAS NOT SET
6313 036361 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV FLAG
6314 036362 013 05 0 00 036041 ER13 AC+1,36041 ;FOV WAS NOT SET
6315 036363 332 00 0 00 030041 SKIPE KLFLG
6316 036364 254 00 0 00 036371 JRST O36045 ;KL10
6317 036365 603 05 0 00 000100 TLNE AC+1,FXU ;EXAMINE FXU FLAG
6318 036366 013 05 0 00 036041 ER13 AC+1,36041 ;FXU WAS SET
6319 036367 321 06 0 00 036347 O36047: JUMPL AC+2,O36040 ;LOOP ON ERROR SWITCH
6320 036370 254 00 0 00 036374 JRST O36050
6321 036371 607 05 0 00 000100 O36045: TLNN AC+1,FXU ;FXU SHOULD BE SET ON KL10
6322 036372 013 05 0 00 036042 ER13 AC+1,36042
6323 036373 254 00 0 00 036367 JRST O36047
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 73
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0170
6324
6325 036374 254 02 1 00 036375 O36050: JRST 2,@.+1 ;CLEAR FLAGS
6326 036375 000000 036376 .+1
6327 036376 205 02 0 00 777400 MOVSI AC-2,-400 ;SETUP FOR COMPARISON
6328 036377 205 04 0 00 777400 MOVSI AC,-400 ;SETUP AC
6329 036400 132 04 0 00 777400 FSC AC,-400 ;SCALE - AROV,FOV,FXU
6330 036401 265 05 0 00 036402 JSP AC+1,.+1 ;SAVE FLAGS
6331 036402 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6332 036403 003 04 0 00 036051 ER3 AC,36051 ;C(AC) FAILED
6333 036404 255 10 0 00 036406 JOV .+2 ;EXAMINE AROV FLAG
6334 036405 013 05 0 00 036051 ER13 AC+1,36051 ;AROV FLAG WAS NOT SET
6335 036406 607 05 0 00 040000 TLNN AC+1,FOV ;EXAMINE FOV FLAG
6336 036407 013 05 0 00 036051 ER13 AC+1,36051 ;FOV WAS NOT SET
6337 036410 332 00 0 00 030041 SKIPE KLFLG
6338 036411 254 00 0 00 036416 JRST O36055 ;KL10
6339 036412 603 05 0 00 000100 TLNE AC+1,FXU ;EXAMINE FXU FLAG
6340 036413 013 05 0 00 036051 ER13 AC+1,36051 ;FXU WAS SET
6341 036414 321 06 0 00 036374 O36057: JUMPL AC+2,O36050 ;LOOP ON ERROR SWITCH
6342 036415 254 00 0 00 036421 JRST O36060
6343 036416 607 05 0 00 000100 O36055: TLNN AC+1,FXU ;FXU SHOULD BE SET ON KL10
6344 036417 013 05 0 00 036052 ER13 AC+1,36052
6345 036420 254 00 0 00 036414 JRST O36057
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 74
DSKCA1 MAC 29-Mar-78 10:59 PART I.E-GEN TEST-FSC,FAD,FSB SEQ 0171
6346 036421 254 02 1 00 036422 O36060: JRST 2,@.+1 ;CLEAR FLAGS
6347 036422 000000 036423 .+1
6348 036423 205 02 0 00 400400 MOVSI AC-2,-377400 ;SETUP FOR COMPARISON
6349 036424 205 04 0 00 777400 MOVSI AC,-400 ;SETUP AC
6350 036425 132 04 0 00 000377 FSC AC,377 ;SCALE - NO FLAGS
6351 036426 265 05 0 00 036427 JSP AC+1,.+1 ;SAVE FLAGS
6352 036427 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6353 036430 003 04 0 00 036061 ER3 AC,36061 ;C(AC) FAILED
6354 036431 255 10 0 00 036433 JOV .+2 ;EXAMINE AROV FLAG
6355 036432 254 00 0 00 036434 JRST .+2
6356 036433 013 05 0 00 036061 ER13 AC+1,36061 ;AROV FLAG WAS SET
6357 036434 603 05 0 00 040100 TLNE AC+1,FOV+FXU ;EXAMINE FLAGS
6358 036435 013 05 0 00 036061 ER13 AC+1,36061 ;A FLAG WAS SET
6359 036436 321 06 0 00 036421 JUMPL AC+2,O36060 ;LOOP ON ERROR SWITCH
6360
6361 036437 254 02 1 00 036440 O36070: JRST 2,@.+1 ;CLEAR FLAGS
6362 036440 000000 036441 .+1
6363 036441 205 02 0 00 777400 MOVSI AC-2,-400 ;SETUP FOR COMPARISON
6364 036442 205 04 0 00 777400 MOVSI AC,-400 ;SETUP AC
6365 036443 132 04 0 00 000400 FSC AC,400 ;SCALE - NO FLAGS
6366 036444 265 05 0 00 036445 JSP AC+1,.+1 ;SAVE FLAGS
6367 036445 312 04 0 00 000002 CAME AC,<AC-2>&17 ;TEST C(AC)
6368 036446 003 04 0 00 036071 ER3 AC,36071 ;C(AC) FAILED
6369 036447 255 10 0 00 036451 JOV .+2 ;EXAMINE AROV FLAG
6370 036450 254 00 0 00 036452 JRST .+2
6371 036451 013 05 0 00 036071 ER13 AC+1,36071 ;AROV FLAG WAS SET
6372 036452 603 05 0 00 040100 TLNE AC+1,FOV+FXU ;EXAMINE FLAGS
6373 036453 013 05 0 00 036071 ER13 AC+1,36071 ;A FLAG WAS SET
6374 036454 321 06 0 00 036437 JUMPL AC+2,O36070 ;LOOP ON ERROR SWITCH
6375
6376 036455 254 00 0 00 030057 JRST BEGEND
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 1
UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0172
6377 SUBTTL *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978
6378
6379 ;THIS SUBROUTINE PROVIDES ERROR REPORTING THRU THE USE OF UUO'S.
6380
6381 036456 202 00 0 00 037113 ERRMES: MOVEM 0,%ERAC0# ;SAVE AC0
6382 036457 202 01 0 00 037114 MOVEM 1,%ERAC1# ;SAVE AC1
6383 036460 202 02 0 00 037115 MOVEM 2,%ERAC2# ;SAVE AC2
6384 036461 350 00 0 00 030053 AOS ERRTLS ;INCREMENT ERROR TOTALS
6385 036462 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO
6386 036463 316 00 0 00 030052 CAMN 0,ERRPC ;PC = PC OF LAST ERROR ?
6387 036464 350 00 0 00 037110 AOS MICNT# ;YES, ADD 1 TO ERROR COUNT
6388 036465 200 00 0 00 037110 MOVE 0,MICNT
6389 036466 504 00 0 00 030114 HRL 0,$SVUPC
6390 036467 402 00 0 00 037111 SETZM PROCED# ;CLEAR PROCEED FLAG
6391 036470 037 10 0 00 000002 SWITCH
6392 036471 603 00 0 00 040000 TLNE NOPNT ;PRINTOUT ?
6393 036472 254 00 0 00 036604 JRST %ERRS1 ;NO, RESTORE AC'S AND RETURN
6394 036473 200 01 0 00 030113 MOVE 1,$SVUUO
6395 036474 242 01 0 00 777745 LSH 1,-^D27
6396 036475 202 01 0 00 037112 MOVEM 1,%ACS1A# ;SAVE UUO NUMBER
6397 036476 200 00 0 00 037113 MOVE 0,%ERAC0
6398 036477 200 01 0 00 037114 MOVE 1,%ERAC1
6399 036500 335 00 1 00 037107 SKIPGE @ERRLOP ;ERR LOOP AC > OR = 0 ?
6400 036501 254 00 0 00 036636 JRST %ERRS4 ;NO, SEE IF PRINT ALL
6401 036502 402 00 0 00 037110 %ERMS1: SETZM MICNT ;CLEAR ERROR COUNT
6402 036503 331 00 0 00 030043 SKIPL MONCTL ;DIAG MON OR SYS EXER ?
6403 036504 254 00 0 00 036510 JRST .+4 ;NO, DON'T NEED TITLE
6404 036505 336 00 0 00 037116 SKIPN %ERFST# ;FIRST ERROR ?
6405 036506 037 04 0 00 000002 PNTNM ;YES, PRINT PROGRAM TITLE
6406 036507 476 00 0 00 037116 SETOM %ERFST
6407 036510 336 00 0 00 030047 SKIPN PASCNT ;FIRST PASS ?
6408 036511 254 00 0 00 036515 JRST .+4 ;YES
6409 PMSG <^TEST PASS COUNT = >^
6410 036512 037 02 0 00 036727 PSIXM [SIXBIT\^TEST PASS COUNT = _\]^
6411 036513 200 00 0 00 030047 MOVE PASCNT
6412 036514 037 15 0 00 000000 PNTDEC
6413 PMSG <^PC = >^
6414 036515 037 02 0 00 036733 PSIXM [SIXBIT\^PC = _\]^
6415 036516 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO
6416 036517 202 00 0 00 030052 MOVEM 0,ERRPC ;SAVE FOR COMPARE
6417 036520 037 06 0 00 000000 PNT6 ;PRINT UUO ADDRESS
6418 XLIST
6419 IFDEF ERDIAG,<LIST
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 2
UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0173
6420 ;DIAGNOSTIC FORMAT ERROR PRINTER
6421
6422 ;PRINT RESULT
6423
6424 036521 %ERMS2: PMSG <^RESULT = >^
6425 036521 037 02 0 00 036735 PSIXM [SIXBIT\^RESULT = _\]^
6426 036522 200 01 0 00 030113 MOVE 1,$SVUUO ;GET AC # OF UUO
6427 036523 242 01 0 00 777751 LSH 1,-27
6428 036524 405 01 0 00 000017 ANDI 1,17
6429 036525 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC)
6430 036526 307 01 0 00 000001 CAIG 1,1 ;IS AC # = TO SAVE AC ?
6431 036527 200 00 0 01 037113 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC
6432 036530 037 13 0 00 000000 PNTHW ;PRINT C(AC)
6433
6434 036531 200 00 0 00 030046 MOVE CONSW
6435 036532 603 00 0 00 000200 TLNE TXTINH ;PRINT FAILURE DES AND FLT NBR ?
6436 036533 254 00 0 00 036602 JRST %ERMORE ;NO, RESTORE AC'S ETC.
6437
6438 ;PRINT FAILURE DESCRIPTOR
6439
6440 036534 200 01 0 00 037112 MOVE 1,%ACS1A ;GET UUO NUMBER
6441 036535 307 01 0 00 000001 CAIG 1,1 ;PRINT DESCRIPTOR ?
6442 036536 254 00 0 00 036542 JRST %ERMS3 ;NO, JUST PRINT FAULT NUMBER
6443 036537 037 00 0 00 030242 PCRL
6444 036540 200 00 0 01 036566 MOVE %FLTTB(1)
6445 036541 037 17 0 00 000000 PNTAL ;PRINT FAULT DESCRIPTOR
6446
6447 ;PRINT FAULT NUMBER
6448
6449 036542 %ERMS3: PMSG <^FAULT NUMBER = >^
6450 036542 037 02 0 00 036737 PSIXM [SIXBIT\^FAULT NUMBER = _\]^
6451 036543 201 00 0 00 036565 MOVEI TLET
6452 036544 037 00 0 00 000000 PNTA ;PRINT TEST LETTER
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 3
UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0174
6453
6454 036545 550 00 0 00 030113 HRRZ $SVUUO
6455 036546 602 00 0 00 700000 TRNE 700000
6456 036547 254 00 0 00 036563 JRST %ER6X
6457 036550 602 00 0 00 070000 TRNE 070000
6458 036551 254 00 0 00 036561 JRST %ER5X
6459 036552 602 00 0 00 007000 TRNE 007000
6460 036553 254 00 0 00 036557 JRST %ER4X
6461 036554 037 03 0 00 000000 PNT3 ;PRINT FAULT NUMBER
6462 036555 037 00 0 00 030242 %ER7X: PCRL
6463 036556 254 00 0 00 036602 JRST %ERMORE
6464
6465 036557 037 04 0 00 000000 %ER4X: PNT4
6466 036560 254 00 0 00 036555 JRST %ER7X
6467 036561 037 05 0 00 000000 %ER5X: PNT5
6468 036562 254 00 0 00 036555 JRST %ER7X
6469 036563 037 06 0 00 000000 %ER6X: PNT6
6470 036564 254 00 0 00 036555 JRST %ER7X
6471
6472 ;FAILURE DESCRIPTORS
6473
6474 036565 000000 000000 TLET: 0 ;TEST LETTER
6475 036566 000000 000000 %FLTTB: 0 ;DESCRIPTOR TABLE
6476 036567 000000 036742 %NODES: [0] ;NO DESCRIPTOR
6477 036570 000000 036742 SPDES: [0] ;SPECIAL USER FAILURE DESCRIPTOR
6478 036571 000000 036743 $ACF: [ASCIZ/C(AC) FAILED/]
6479 036572 000000 036746 %AC1F: [ASCIZ/C(AC+1) FAILED/]
6480 036573 000000 036751 %EF: [ASCIZ/C(E) FAILED/]
6481 036574 000000 036754 %E1F: [ASCIZ/C(E+1) FAILED/]
6482 036575 000000 036757 %ARF: [ASCIZ/C(C(ACR)) FAILED/]
6483 036576 000000 036763 %AR1F: [ASCIZ/C(C(ACR+1)) FAILED/]
6484 036577 000000 036767 %ALF: [ASCIZ/C(C(ACL)) FAILED/]
6485 036600 000000 036773 %EEF: [ASCIZ/C(C(E)) FAILED/]
6486 036601 000000 036776 %FF: [ASCIZ/FLAG FAILED/]
6487 >
6488 XLIST
6489 LIST
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 8
UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0175
6490 ;RESTORE AC'S AND RETURN OR HALT
6491
6492 036602 256 00 0 00 030101 %ERMORE:XCT ERMORE
6493 036603 037 10 0 00 000002 SWITCH
6494
6495 036604 037 07 0 00 000003 %ERRS1: TTALTM ;ALTMODE CHECK
6496 036605 254 00 0 00 036611 JRST .+4 ;NONE
6497 036606 201 00 0 00 036611 MOVEI .+3 ;SAVE CONT ADDRESS
6498 036607 202 00 0 00 000130 MOVEM JOBOPC
6499 036610 254 00 1 00 030063 JRST @ALTMGO ;PERFORM TRANSFER
6500 036611 200 00 0 00 030046 MOVE CONSW
6501 036612 603 00 0 00 002000 TLNE 0,ERSTOP ;HALT ON ERROR SWITCH SET ?
6502 036613 037 14 0 00 000004 ERRHLT ;YES
6503 036614 607 00 0 00 004000 TLNN 0,LOOPER ;LOOP ON ERROR SWITCH SET ?
6504 036615 476 00 0 00 037111 SETOM PROCED ;NO, SET THE PROCEED FLAG
6505 036616 603 00 0 00 010000 TLNE 0,DING ;RING BELL SWITCH SET ?
6506 036617 037 01 0 00 000007 PBELL ;YES, GO RING BELL
6507
6508 036620 200 02 0 00 037115 %ERRS2: MOVE 2,%ERAC2 ;RESTORE AC'S
6509 036621 200 01 0 00 037114 MOVE 1,%ERAC1
6510 036622 476 00 1 00 037107 SETOM @ERRLOP ;SET C(ERR LOOP AC) TO -1
6511 036623 336 00 0 00 037111 SKIPN PROCED ;LOOP ON ERROR ?
6512 036624 254 00 0 00 036634 JRST %ERRS5 ;YES
6513 036625 350 00 1 00 037107 AOS @ERRLOP ;NO, INC C(ERR LOOP AC)
6514 036626 350 00 1 00 037107 AOS @ERRLOP ;SO IT ='S 1
6515 036627 331 00 0 00 030043 SKIPL MONCTL ;UNDER DIAGNOSTIC MONITOR ?
6516 036630 254 00 0 00 036634 JRST %ERRS5 ;NO, CONTINUE PROGRAM
6517 036631 200 00 0 00 030053 MOVE 0,ERRTLS ;YES
6518 036632 301 00 0 00 000024 CAIL 0,^D20 ;PRINTED ALLOWED ERRORS ?
6519 036633 254 00 0 00 036642 JRST %ERRS6
6520
6521 036634 200 00 0 00 037113 %ERRS5: MOVE 0,%ERAC0 ;NO, CONTINUE PROGRAM
6522 036635 254 00 0 00 030065 JRST UUOEXT
6523
6524 036636 200 00 0 00 030046 %ERRS4: MOVE 0,CONSW
6525 036637 607 00 0 00 001000 TLNN PALERS ;PRINT ALL ERRORS ?
6526 036640 254 00 0 00 036604 JRST %ERRS1 ;NO
6527 036641 254 00 0 00 036502 JRST %ERMS1 ;YES
6528
6529 036642 %ERRS6: PMSGF <^EXCEEDED ALLOWED ERRORS^>^
6530 036642 037 04 0 00 037001 PSIXMF [SIXBIT\^EXCEEDED ALLOWED ERRORS^_\]^
6531 036643 254 00 0 00 030061 JRST $BEND2
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 1
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0176
6532 SUBTTL *STOR* RESERVED STORAGE, MARCH 1978
6533
6534 ;PROGRAM LITERALS
6535
6536 XLIST
6537 IFNDEF $LPAPER,<LIST>
6538 036644 LIT
6539 036644 45 70 51 64 00 00
6540 036645 103 101 000 000 000
6541 036646 000000 031432
6542 036647 034400 000000
6543 036650 033777 777777
6544 036651 200000 000001
6545 036652 200000 000002
6546 036653 200000 000004
6547 036654 200000 000010
6548 036655 200000 000020
6549 036656 200000 000040
6550 036657 200000 000100
6551 036660 200000 000200
6552 036661 200000 000400
6553 036662 200000 001000
6554 036663 200000 002000
6555 036664 200000 004000
6556 036665 200000 010000
6557 036666 200000 020000
6558 036667 200000 040000
6559 036670 200000 100000
6560 036671 200000 200000
6561 036672 200000 400000
6562 036673 200001 000000
6563 036674 200002 000000
6564 036675 200004 000000
6565 036676 200010 000000
6566 036677 200020 000000
6567 036700 200040 000000
6568 036701 200100 000000
6569 036702 000000 034761
6570 036703 200400 000000
6571 036704 202400 000000
6572 036705 203400 000000
6573 036706 204400 000000
6574 036707 205400 000000
6575 036710 206400 000000
6576 036711 207400 000000
6577 036712 210400 000000
6578 036713 211400 000000
6579 036714 212400 000000
6580 036715 213400 000000
6581 036716 214400 000000
6582 036717 215400 000000
6583 036720 216400 000000
6584 036721 217400 000000
6585 036722 220400 000000
6586 036723 221400 000000
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 1-1
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0177
6587 036724 222400 000000
6588 036725 177400 000000
6589 036726 576400 000000
6590 036727 76 64 45 63 64 00
6591 036730 60 41 63 63 00 43
6592 036731 57 65 56 64 00 35
6593 036732 00 77 00 00 00 00
6594 036733 76 60 43 00 35 00
6595 036734 00 00 77 00 00 00
6596 036735 76 62 45 63 65 54
6597 036736 64 00 00 35 00 77
6598 036737 76 46 41 65 54 64
6599 036740 00 56 65 55 42 45
6600 036741 62 00 35 00 77 00
6601 036742 000000 000000
6602 036743 103 050 101 103 051
6603 036744 040 106 101 111 114
6604 036745 105 104 000 000 000
6605 036746 103 050 101 103 053
6606 036747 061 051 040 106 101
6607 036750 111 114 105 104 000
6608 036751 103 050 105 051 040
6609 036752 106 101 111 114 105
6610 036753 104 000 000 000 000
6611 036754 103 050 105 053 061
6612 036755 051 040 106 101 111
6613 036756 114 105 104 000 000
6614 036757 103 050 103 050 101
6615 036760 103 122 051 051 040
6616 036761 106 101 111 114 105
6617 036762 104 000 000 000 000
6618 036763 103 050 103 050 101
6619 036764 103 122 053 061 051
6620 036765 051 040 106 101 111
6621 036766 114 105 104 000 000
6622 036767 103 050 103 050 101
6623 036770 103 114 051 051 040
6624 036771 106 101 111 114 105
6625 036772 104 000 000 000 000
6626 036773 103 050 103 050 105
6627 036774 051 051 040 106 101
6628 036775 111 114 105 104 000
6629 036776 106 114 101 107 040
6630 036777 106 101 111 114 105
6631 037000 104 000 000 000 000
6632 037001 76 45 70 43 45 45
6633 037002 44 45 44 00 41 54
6634 037003 54 57 67 45 44 00
6635 037004 45 62 62 57 62 63
6636 037005 76 77 00 00 00 00
6637 LIST
6638 037006 000000 000000 ENDSLD: 0
6639
6640 IFDEF DEBUG,<
6641 037007 PATCH: BLOCK DEBUG ;PATCHING AREA
DSKCA DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #1, VER 0,1 MACRO %53(1020) 11:37 29-Mar-78 Page 1-2
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0178
6642 >
6643
6644 ;PROGRAM VARIABLES
6645 037107 VAR
6646
6647 IFDEF PGMEND,<
6648 037117 000000 000000 END: 0
6649 030000 END BEGIN >
NO ERRORS DETECTED
PROGRAM BREAK IS 000000
ABSOLUTE BREAK IS 037120
CPU TIME USED 00:19.989
28P CORE USED
ABORT 577#
AC 1167# 1169 1170 1171 1172 1174 1175 1176 1177 1178 1179 1186# 1188 1189 SEQ 0179
1190 1191 1193 1194 1195 1196 1197 1198 1204# 1206 1207 1208 1209 1211
1212 1213 1214 1215 1216 1223# 1225 1226 1227 1228 1230 1231 1232 1233
1234 1235 1241# 1243 1244 1245 1246 1248 1249 1250 1251 1252 1253 1260#
1262 1263 1264 1265 1284 1285 1286 1287 1288 1289 1294 1295 1296 1297
1298 1299 1304 1305 1306 1307 1308 1309 1314 1315 1316 1317 1318 1319
1324 1325 1326 1327 1328 1329 1334 1335 1336 1337 1338 1339 1344 1345
1346 1347 1348 1349 1358# 1360 1361 1362 1363 1386 1387 1388 1389 1390
1391 1397 1398 1399 1400 1401 1402 1408 1409 1410 1411 1412 1413 1419
1420 1421 1422 1423 1424 1430 1431 1432 1433 1434 1435 1441 1442 1443
1444 1445 1446 1452 1453 1454 1455 1456 1457 1466# 1468 1469 1470 1471
1473 1474 1475 1476 1477 1478 1484# 1486 1487 1488 1489 1509 1510 1511
1512 1513 1514 1519 1520 1521 1522 1523 1524 1529 1530 1531 1532 1533
1534 1539 1540 1541 1542 1543 1544 1549 1550 1551 1552 1553 1554 1559
1560 1561 1562 1563 1564 1569 1570 1571 1572 1573 1574 1583# 1585 1586
1587 1588 1591 1592 1593 1594 1595 1596 1599 1600 1601 1602 1603 1604
1607 1608 1609 1610 1611 1612 1615 1616 1617 1618 1619 1620 1622 1623
1624 1625 1626 1627 1630 1631 1632 1633 1634 1635 1638 1639 1640 1641
1642 1643 1646 1647 1648 1649 1650 1651 1657# 1659 1660 1661 1662 1664
1665 1666 1667 1668 1669 1676# 1678 1679 1680 1681 1683 1684 1685 1686
1687 1688 1696# 1698 1699 1700 1701 1717 1718 1719 1720 1721 1722 1726
1727 1728 1729 1730 1731 1735 1736 1737 1738 1739 1740 1744 1745 1746
1747 1748 1749 1753 1754 1755 1756 1757 1758 1762 1763 1764 1765 1766
1767 1771 1772 1773 1774 1775 1776 1780 1781 1782 1783 1784 1785 1790#
1792 1793 1794 1795 1797 1798 1799 1800 1801 1802 1807# 1809 1810 1811
1812 1814 1815 1816 1817 1818 1819 1826# 1828 1829 1830 1831 1833 1834
1835 1836 1837 1838 1845# 1847 1848 1849 1850 1852 1853 1854 1855 1856
1857 1864# 1866 1867 1868 1869 1871 1872 1873 1874 1875 1876 1884# 1886
1887 1888 1889 1893 1894 1895 1897 1898 1902 1903 1904 1906 1907 1911
1912 1913 1914 1915 1916 1917 1926# 1928 1929 1930 1931 1933 1934 1935
1936 1937 1949# 1951 1952 1953 1954 1956 1957 1958 1959 1960 1961 1962
1972# 1974 1975 1976 1977 1979 1980 1981 1982 1983 1984 1991# 1993 1994
1995 1996 1998 1999 2000 2001 2002 2003 2004 2012# 2014 2015 2016 2017
2019 2020 2021 2022 2023 2024 2025 2031# 2033 2034 2035 2036 2038 2039
2040 2041 2042 2043 2044 2051# 2053 2054 2055 2056 2058 2059 2060 2061
2062 2063 2064 2071# 2073 2074 2075 2076 2078 2079 2080 2081 2082 2083
2084 2095# 2097 2098 2099 2100 2102 2103 2104 2105 2106 2107 2108 2109
2110 2111 2120# 2122 2123 2124 2125 2127 2128 2129 2130 2131 2132 2133
2141# 2143 2144 2145 2146 2148 2149 2150 2151 2152 2153 2154 2163# 2165
2166 2167 2168 2170 2171 2172 2173 2174 2175 2176 2184# 2186 2187 2188
2189 2191 2192 2193 2194 2195 2196 2197 2206# 2208 2209 2210 2211 2213
2214 2215 2216 2217 2218 2219 2228# 2230 2231 2232 2233 2235 2236 2237
2238 2239 2240 2248# 2250 2251 2252 2253 2271 2272 2273 2274 2275 2276
2277 2281 2282 2283 2284 2285 2286 2287 2291 2292 2293 2294 2295 2296
2297 2301 2302 2303 2304 2305 2306 2307 2311 2312 2313 2314 2315 2316
2317 2321 2322 2323 2324 2325 2326 2327 2331 2332 2333 2334 2335 2336
2337 2345# 2347 2348 2349 2350 2352 2353 2354 2355 2356 2357 2358 2366#
2368 2369 2370 2371 2373 2374 2375 2376 2377 2378 2387# 2389 2390 2391
2392 2394 2395 2396 2397 2398 2399 2400 2410# 2412 2413 2414 2415 2417
2418 2419 2420 2421 2422 2428# 2430 2431 2432 2433 2435 2436 2437 2438
2439 2440 2441 2448# 2450 2451 2452 2453 2455 2456 2457 2458 2459 2460
2461 2471# 2473 2474 2475 2476 2479 2480 2481 2482 2483 2484 2485 2488
2489 2490 2491 2492 2493 2494 2497 2498 2499 2500 2501 2502 2503 2506
2507 2508 2509 2510 2511 2512 2514 2515 2516 2517 2518 2519 2520 2523 SEQ 0180
2524 2525 2526 2527 2528 2529 2532 2533 2534 2535 2536 2537 2538 2544#
2546 2547 2548 2549 2551 2552 2553 2554 2555 2556 2557 2560 2561 2562
2563 2564 2565 2566 2569 2570 2571 2572 2573 2574 2575 2578 2579 2580
2581 2582 2583 2584 2586 2587 2588 2589 2590 2591 2592 2595 2596 2597
2598 2599 2600 2601 2604 2605 2606 2607 2608 2609 2610 2613 2614 2615
2616 2617 2618 2619 2626# 2628 2629 2630 2631 2633 2634 2635 2636 2637
2638 2639 2647# 2649 2650 2651 2652 2654 2655 2656 2657 2658 2659 2660
2667# 2669 2670 2671 2672 2674 2675 2676 2677 2678 2679 2686# 2688 2689
2690 2691 2693 2694 2695 2696 2697 2698 2699 2708# 2710 2711 2712 2713
2715 2716 2717 2718 2719 2720 2721 2729# 2731 2732 2733 2734 2736 2737
2738 2739 2740 2741 2742 2752# 2755 2756 2757 2758 2760 2761 2762 2763
2764 2765 2766 2774# 2776 2777 2778 2779 2781 2782 2783 2784 2785 2786
2787 2794# 2796 2797 2798 2799 2801 2802 2803 2804 2805 2806 2807 2813#
2815 2816 2817 2818 2820 2821 2822 2823 2824 2825 2826 2833# 2835 2836
2837 2838 2840 2841 2842 2843 2844 2845 2846 2853# 2855 2856 2857 2858
2860 2861 2862 2863 2864 2865 2866 2878# 2880 2881 2882 2883 2885 2886
2887 2888 2889 2890 2891 2892 2901# 2903 2904 2905 2906 2908 2909 2910
2911 2912 2913 2914 2915 2916 2924# 2926 2927 2928 2929 2931 2932 2933
2934 2935 2936 2937 2938 2951# 2953 2954 2955 2956 2958 2959 2960 2961
2962 2963 2964 2965 2971# 2973 2974 2975 2976 2978 2979 2981 2983 2984
2986 2999# 3001 3002 3003 3004 3006 3007 3008 3009 3010 3011 3012 3013
3014 3015 3025# 3027 3028 3029 3030 3032 3033 3034 3035 3036 3037 3038
3046# 3048 3049 3050 3051 3053 3054 3055 3056 3057 3058 3059 3060 3070#
3072 3073 3074 3075 3077 3078 3079 3080 3081 3082 3083 3090# 3092 3093
3094 3095 3097 3098 3099 3100 3101 3102 3111# 3113 3114 3115 3116 3118
3119 3120 3121 3122 3123 3124 3132# 3134 3135 3136 3137 3139 3140 3141
3142 3143 3144 3145 3146 3158# 3160 3161 3162 3163 3185 3186 3187 3188
3189 3190 3196 3197 3198 3199 3200 3201 3207 3208 3209 3210 3211 3212
3218 3219 3220 3221 3222 3223 3229 3230 3231 3232 3233 3234 3240 3241
3242 3243 3244 3245 3251 3252 3253 3254 3255 3256 3262 3263 3264 3265
3266 3267 3276# 3278 3279 3280 3281 3300 3301 3302 3303 3304 3305 3310
3311 3312 3313 3314 3315 3320 3321 3322 3323 3324 3325 3330 3331 3332
3333 3334 3335 3340 3341 3342 3343 3344 3345 3350 3351 3352 3353 3354
3355 3360 3361 3362 3363 3364 3365 3373# 3375 3376 3377 3378 3403 3404
3405 3406 3407 3408 3415 3416 3417 3418 3419 3420 3427 3428 3429 3430
3431 3432 3439 3440 3441 3442 3443 3444 3451 3452 3453 3454 3455 3456
3463 3464 3465 3466 3467 3468 3475 3476 3477 3478 3479 3480 3487 3488
3489 3490 3491 3492 3501# 3503 3504 3505 3506 3526 3527 3528 3529 3530
3531 3536 3537 3538 3539 3540 3541 3546 3547 3548 3549 3550 3551 3556
3557 3558 3559 3560 3561 3566 3567 3568 3569 3570 3571 3576 3577 3578
3579 3580 3581 3586 3587 3588 3589 3590 3591 3596 3597 3598 3599 3600
3601 3609# 3611 3612 3613 3614 3632 3633 3634 3635 3636 3641 3642 3643
3644 3645 3650 3651 3652 3653 3654 3663# 3665 3666 3667 3668 3688 3689
3690 3691 3692 3693 3698 3699 3700 3701 3702 3703 3708 3709 3710 3711
3712 3713 3721# 3723 3724 3725 3726 3746 3747 3748 3749 3750 3751 3756
3757 3758 3759 3760 3761 3766 3767 3768 3769 3770 3771 3781# 3783 3784
3785 3786 3803 3804 3805 3806 3807 3808 3812 3813 3814 3815 3816 3817
3821 3822 3823 3824 3825 3826 3830 3831 3832 3833 3834 3835 3839 3840
3841 3842 3843 3844 3848 3849 3850 3851 3852 3853 3857 3858 3859 3860
3861 3862 3866 3867 3868 3869 3870 3871 3875 3876 3877 3878 3879 3880
3901 3902 3903 3904 3905 3906 3907 3908 3913 3914 3915 3916 3917 3918
3919 3920 3925 3926 3927 3928 3929 3930 3931 3932 3937 3938 3939 3940
3941 3942 3943 3944 3949 3950 3951 3952 3953 3954 3955 3956 3961 3962 SEQ 0181
3963 3964 3965 3966 3967 3968 3973 3974 3975 3976 3977 3978 3979 3980
3985 3986 3987 3988 3989 3990 3991 3992 3997 3998 3999 4000 4001 4002
4003 4004 4009 4010 4011 4012 4013 4014 4015 4016 4021 4022 4023 4024
4025 4026 4027 4028 4033 4034 4035 4036 4037 4038 4039 4040 4045 4046
4047 4048 4049 4050 4051 4052 4057 4058 4059 4060 4061 4062 4063 4064
4069 4070 4071 4072 4073 4074 4075 4076 4081 4082 4083 4084 4085 4086
4087 4088 4093 4094 4095 4096 4097 4098 4099 4100 4105 4106 4107 4108
4109 4110 4111 4112 4120# 4122 4123 4124 4125 4150 4151 4152 4153 4154
4155 4156 4157 4158 4164 4165 4166 4167 4168 4169 4170 4171 4172 4178
4179 4180 4181 4182 4183 4184 4185 4186 4192 4193 4194 4195 4196 4197
4198 4199 4200 4206 4207 4208 4209 4210 4211 4212 4213 4214 4220 4221
4222 4223 4224 4225 4226 4227 4228 4234 4235 4236 4237 4238 4239 4240
4241 4242 4248 4249 4250 4251 4252 4253 4254 4255 4256 4262 4263 4264
4265 4266 4267 4268 4269 4270 4276 4277 4278 4279 4280 4281 4282 4283
4284 4293# 4295 4296 4297 4298 4319 4320 4321 4322 4323 4324 4325 4330
4331 4332 4333 4334 4335 4336 4341 4342 4343 4344 4345 4346 4347 4352
4353 4354 4355 4356 4357 4358 4363 4364 4365 4366 4367 4368 4369 4374
4375 4376 4377 4378 4379 4380 4388# 4390 4391 4392 4393 4395 4396 4397
4398 4399 4400 4401 4403 4404 4405 4406 4407 4408 4409 4411 4412 4413
4414 4415 4416 4417 4424# 4426 4427 4428 4429 4446 4447 4448 4449 4450
4451 4455 4456 4457 4458 4459 4460 4464 4465 4466 4467 4468 4469 4478#
4480 4481 4482 4483 4500 4501 4502 4503 4504 4505 4509 4510 4511 4512
4513 4514 4518 4519 4520 4521 4522 4523 4532# 4534 4535 4536 4537 4558
4559 4560 4561 4562 4563 4564 4569 4570 4571 4572 4573 4574 4575 4580
4581 4582 4583 4584 4585 4586 4595# 4597 4598 4599 4600 4621 4622 4623
4624 4625 4626 4627 4632 4633 4634 4635 4636 4637 4638 4643 4644 4645
4646 4647 4648 4649 4657# 4659 4660 4661 4662 4686 4687 4688 4689 4690
4691 4692 4698 4699 4700 4701 4702 4703 4704 4710 4711 4712 4713 4714
4715 4716 4726# 4728 4729 4730 4731 4755 4756 4757 4758 4759 4760 4761
4767 4768 4769 4770 4771 4772 4773 4779 4780 4781 4782 4783 4784 4785
4794# 4796 4797 4798 4799 4820 4821 4822 4823 4824 4825 4826 4831 4832
4833 4834 4835 4836 4837 4842 4843 4844 4845 4846 4847 4848 4858# 4860
4861 4862 4863 4887 4888 4889 4890 4891 4892 4893 4899 4900 4901 4902
4903 4904 4905 4911 4912 4913 4914 4915 4916 4917 4927# 4929 4930 4931
4932 4957 4958 4959 4960 4961 4962 4963 4964 4965 4971 4972 4973 4974
4975 4976 4977 4978 4979 4985 4986 4987 4988 4989 4990 4991 4992 4993
4999 5000 5001 5002 5003 5004 5005 5006 5007 5013 5014 5015 5016 5017
5018 5019 5020 5021 5027 5028 5029 5030 5031 5032 5033 5034 5035 5041
5042 5043 5044 5045 5046 5047 5048 5049 5055 5056 5057 5058 5059 5060
5061 5062 5063 5069 5070 5071 5072 5073 5074 5075 5076 5077 5083 5084
5085 5086 5087 5088 5089 5090 5091 5097 5098 5099 5100 5101 5102 5103
5104 5105 5111 5112 5113 5114 5115 5116 5117 5118 5119 5125 5126 5127
5128 5129 5130 5131 5132 5133 5139 5140 5141 5142 5143 5144 5145 5146
5147 5153 5154 5155 5156 5157 5158 5159 5160 5161 5167 5168 5169 5170
5171 5172 5173 5174 5175 5181 5182 5183 5184 5185 5186 5187 5188 5189
5195 5196 5197 5198 5199 5200 5201 5202 5203 5228 5229 5230 5231 5232
5233 5234 5235 5236 5242 5243 5244 5245 5246 5247 5248 5249 5250 5256
5257 5258 5259 5260 5261 5262 5263 5264 5270 5271 5272 5273 5274 5275
5276 5277 5278 5284 5285 5286 5287 5288 5289 5290 5291 5292 5298 5299
5300 5301 5302 5303 5304 5305 5306 5312 5313 5314 5315 5316 5317 5318
5319 5320 5328# 5330 5331 5332 5333 5337 5338 5339 5340 5341 5342 5343
5345 5346 5350 5351 5352 5353 5355 5356 5360 5361 5362 5363 5364 5365
5366 5367 5373# 5375 5376 5377 5378 5380 5381 5382 5383 5384 5385 5386 SEQ 0182
5387 5388 5395# 5397 5398 5399 5400 5402 5403 5404 5405 5406 5407 5408
5409 5410 5417# 5419 5420 5421 5422 5448 5449 5450 5451 5452 5453 5454
5455 5456 5457 5458 5459 5464 5465 5466 5467 5468 5469 5470 5471 5472
5473 5474 5475 5480 5481 5482 5483 5484 5485 5486 5487 5488 5489 5490
5491 5496 5497 5498 5499 5500 5501 5502 5503 5504 5505 5506 5507 5512
5513 5514 5515 5516 5517 5518 5519 5520 5521 5522 5523 5528 5529 5530
5531 5532 5533 5534 5535 5536 5537 5538 5539 5544 5545 5546 5547 5548
5549 5550 5551 5552 5553 5554 5555 5560 5561 5562 5563 5564 5565 5566
5567 5568 5569 5570 5571 5576 5577 5578 5579 5580 5581 5582 5583 5584
5585 5586 5587 5592 5593 5594 5595 5596 5597 5598 5599 5600 5601 5602
5603 5608 5609 5610 5611 5612 5613 5614 5615 5616 5617 5618 5619 5624
5625 5626 5627 5628 5629 5630 5631 5632 5633 5634 5635 5640 5641 5642
5643 5644 5645 5646 5647 5648 5649 5650 5651 5656 5657 5658 5659 5660
5661 5662 5663 5664 5665 5666 5667 5672 5673 5674 5675 5676 5677 5678
5679 5680 5681 5682 5683 5688 5689 5690 5691 5692 5693 5694 5695 5696
5697 5698 5699 5704 5705 5706 5707 5708 5709 5710 5711 5712 5713 5714
5715 5722# 5724 5725 5726 5727 5729 5730 5731 5732 5733 5734 5735 5736
5743# 5745 5746 5747 5748 5750 5751 5752 5753 5754 5755 5756 5757 5758
5766# 5768 5769 5770 5771 5773 5774 5775 5776 5777 5778 5779 5780 5781
5788# 5790 5791 5792 5793 5795 5796 5797 5798 5799 5800 5801 5802 5803
5812# 5814 5815 5816 5817 5819 5820 5821 5822 5823 5824 5825 5826 5827
5828 5829 5832# 5834 5835 5836 5837 5841 5842 5843 5844 5845 5846 5849
5850 5851 5852 5856 5857 5858 5859 5860 5861 5863 5864 5865 5866 5867
5868 5872 5873 5874 5875 5876 5877 5879 5880 5881 5882 5883 5884 5887
5888 5889 5890 5891 5892 5894 5897 5898 5899 5900 5901 5903 5904 5909
5910 5911 5912 5913 5914 5916 5919 5920 5921 5922 5923 5925 5926 5931
5932 5933 5934 5935 5936 5939 5940 5941 5942 5945 5946 5947 5948 5949
5950 5953 5954 5955 5956 5960 5961 5962 5963 5964 5965 5967 5968 5969
5970 5971 5972 5975 5976 5977 5978 5979 5980 5983 5984 5985 5986 5990
5991 5992 5993 5994 5995 5997 5998 5999 6000 6001 6002 6006 6007 6008
6009 6010 6011 6013 6014 6015 6016 6017 6018 6021 6022 6023 6024 6025
6026 6028 6029 6030 6031 6032 6033 6037 6038 6039 6040 6041 6042 6044
6045 6046 6049 6050 6051 6053 6054 6059 6060 6061 6062 6063 6064 6066
6067 6068 6071 6072 6073 6075 6076 6080 6081 6082 6083 6084 6085 6088
6089 6090 6091 6095 6096 6097 6098 6099 6100 6103 6104 6105 6106 6109
6110 6111 6112 6113 6114 6117 6118 6119 6120 6124 6125 6126 6127 6128
6129 6131 6132 6133 6134 6135 6136 6140 6141 6142 6143 6144 6145 6147
6148 6149 6150 6151 6152 6155 6156 6157 6158 6159 6160 6162 6165 6166
6167 6168 6169 6171 6172 6177 6178 6179 6180 6181 6182 6184 6187 6188
6189 6190 6191 6193 6194 6199 6200 6201 6202 6203 6204 6207 6208 6209
6210 6213 6214 6215 6216 6217 6218 6221 6222 6223 6224 6228 6229 6230
6231 6232 6233 6235 6236 6237 6238 6239 6240 6243 6244 6245 6246 6247
6248 6251 6252 6253 6254 6258 6259 6260 6261 6262 6263 6265 6266 6267
6268 6269 6270 6274 6275 6276 6277 6278 6279 6281 6282 6283 6284 6285
6286 6289 6290 6291 6292 6293 6294 6296 6297 6298 6299 6300 6301 6305
6306 6307 6308 6309 6310 6312 6313 6314 6317 6318 6319 6321 6322 6327
6328 6329 6330 6331 6332 6334 6335 6336 6339 6340 6341 6343 6344 6348
6349 6350 6351 6352 6353 6356 6357 6358 6359 6363 6364 6365 6366 6367
6368 6371 6372 6373 6374
ALTMGO 889# 6499
AROV 803#
AROVTP 803#
AROVU 803# SEQ 0183
AST 1004#
ATSIN 1005#
BEGEND 885# 6376
BEGIN 71 76 77 78 79 80 81 792 793 816# 6649
BEGIN1 832# 886
BELL 1008#
BIS 803#
CA00 1165#
CCA 803#
CHAIN 597#
CHNOFF 803#
CHNON 803#
CLKU 803#
CLOCKF 871#
CNTLC 888#
CNTRP 803#
COMMA 997#
CONSW 872# 6434 6500 6524
CPOPJ 892#
CPOPJ1 890#
CRLF 727 728 992#
CRLF2 731 732 994#
CRY0 803#
CRY1 803#
CSHFLG 1051#
CSHMEM 1052#
CTRP 803#
CYCL60 1045#
DCK 803#
DDTLNK 611# 830
DDTSRT 830#
DEBUG 55# 6640 6641
DECVER 4# 10 23 851
DF22F 956#
DIAGMN 819#
DING 583# 6505
DOLLAR 1011#
DSKUPD 856
EBIT0 803#
EBIT1 803#
EBIT10 803#
EBIT11 803#
EBIT12 803#
EBIT13 803#
EBIT14 803#
EBIT15 803#
EBIT2 803#
EBIT3 803#
EBIT4 803#
EBIT5 803#
EBIT6 803#
EBIT7 803#
EBIT8 803# SEQ 0184
EBIT9 803#
END 6648#
ENDFIX 1131#
ENDSLD 6638#
ERDIAG 59# 6419
ERMORE 905# 6492
EROLD 60# 803
ERRELB 6489
ERRLOP 1172# 1172 1191# 1191 1209# 1209 1228# 1228 1246# 1246 1265# 1265 1363# 1363
1471# 1471 1489# 1489 1588# 1588 1662# 1662 1681# 1681 1701# 1701 1795# 1795
1812# 1812 1831# 1831 1850# 1850 1869# 1869 1889# 1889 1931# 1931 1954# 1954
1977# 1977 1996# 1996 2017# 2017 2036# 2036 2056# 2056 2076# 2076 2100# 2100
2125# 2125 2146# 2146 2168# 2168 2189# 2189 2211# 2211 2233# 2233 2253# 2253
2350# 2350 2371# 2371 2392# 2392 2415# 2415 2433# 2433 2453# 2453 2476# 2476
2549# 2549 2631# 2631 2652# 2652 2672# 2672 2691# 2691 2713# 2713 2734# 2734
2758# 2758 2779# 2779 2799# 2799 2818# 2818 2838# 2838 2858# 2858 2883# 2883
2906# 2906 2929# 2929 2956# 2956 2976# 2976 3004# 3004 3030# 3030 3051# 3051
3075# 3075 3095# 3095 3116# 3116 3137# 3137 3163# 3163 3281# 3281 3378# 3378
3506# 3506 3614# 3614 3668# 3668 3726# 3726 3786# 3786 4125# 4125 4298# 4298
4393# 4393 4429# 4429 4483# 4483 4537# 4537 4600# 4600 4662# 4662 4731# 4731
4799# 4799 4863# 4863 4932# 4932 5333# 5333 5378# 5378 5400# 5400 5422# 5422
5727# 5727 5748# 5748 5771# 5771 5793# 5793 5817# 5817 5837# 5837 6399 6510
6513 6514
ERRMES 41 42 43 44 45 46 47 48 49 50 51 6381#
ERRPC 876# 6386 6416
ERRTLS 877# 6384 6517
ERSTOP 586# 6501
EXCASB 56# 854
EXIOT 803#
FOV 803# 5850 5866 5882 5899 5921 5940 5954 5968 5984 5998 6014 6029 6045
6067 6089 6104 6118 6134 6150 6167 6189 6208 6222 6236 6252 6266 6282
6297 6313 6335 6357 6372
FOVU 803#
FRDLNK 609#
FSELNK 608#
FXU 803# 5850 5864 5880 5897 5903 5919 5925 5940 5954 5970 5984 6000 6016
6031 6049 6053 6071 6075 6089 6104 6118 6132 6148 6165 6171 6187 6193
6208 6222 6238 6252 6268 6284 6299 6317 6321 6339 6343 6357 6372
HYPEN 1002#
INHCSH 594#
INHPAG 591#
IOCLR 803#
ITERAT 90# 849
ITRCH1 909#
ITRCNT 849#
JOB41 803#
JOBAPR 803#
JOBCNI 803#
JOBDDT 803#
JOBFF 803#
JOBOPC 803# 6498
JOBREL 803#
JOBREN 803# SEQ 0185
JOBSA 803#
JOBSYM 803#
JOBTPC 803#
JOBUSY 803#
JOBUUO 803#
JOBVER 803#
KAIFLG 866#
KLFLG 867# 5895 5917 6047 6069 6163 6185 6315 6337
KNTRP 803#
KTRP 803#
LACLK 803#
LACLKE 803#
LAPRAL 803#
LAPRP1 803#
LAPRP2 803#
LAPRP3 803#
LAPRP4 803#
LAPRP5 803#
LAPRP6 803#
LAPRP7 803#
LCHNOF 803#
LCHNON 803#
LCNTXT 803#
LCNXER 803#
LCPAER 803#
LCPSFT 803#
LCPWRF 803#
LDATAF 803#
LDLNK 610# 819 821
LDNXER 803#
LDPAER 803#
LDPSFT 803#
LDPWRF 803#
LEBXMH 803#
LEBXML 803#
LENXER 803#
LEPAER 803#
LEPSFT 803#
LEPWRF 803#
LEUPFW 803#
LEXCMP 803#
LFLGCL 803#
LFLGDS 803#
LFLGEN 803#
LFLGST 803#
LFP 1006#
LINSTF 803#
LINT 803#
LIOCLR 803#
LLACBL 803#
LLDUSB 803#
LMBXMH 803#
LMBXML 803# SEQ 0186
LNXMEN 803#
LNXMER 803#
LOOPER 585# 6503
LPAREN 803#
LPARER 803#
LPFWPC 803#
LPGFTR 803#
LPICH1 803#
LPICH2 803#
LPICH3 803#
LPICH4 803#
LPICH5 803#
LPICH6 803#
LPICH7 803#
LPICHA 803#
LPICLR 803#
LPIIP1 803#
LPIIP2 803#
LPIIP3 803#
LPIIP4 803#
LPIIP5 803#
LPIIP6 803#
LPIIP7 803#
LPIOFF 803#
LPION 803#
LPRCH1 803#
LPRCH2 803#
LPRCH3 803#
LPRCH4 803#
LPRCH5 803#
LPRCH6 803#
LPRCH7 803#
LPRFMH 803#
LPRFML 803#
LPSFT 803#
LPSFTE 803#
LPWRFE 803#
LPWRFL 803#
LREQSE 803#
LRQCLR 803#
LSECMO 803#
LSMODE 803#
LSNXER 803#
LSPAER 803#
LSPSFT 803#
LSPWRF 803#
LTBASH 803#
LTBASL 803#
LTRPAE 803#
LTRPEN 803#
LUSCMP 803#
LUUO 803#
LUUO1 41# 936 937 SEQ 0187
LUUO10 48# 936 941
LUUO11 49# 936 941
LUUO12 50# 936 942
LUUO13 51# 936 942
LUUO14 936 943
LUUO15 936 943
LUUO16 936 944
LUUO17 936 944
LUUO2 42# 936 938
LUUO20 936 945
LUUO21 936 945
LUUO22 936 946
LUUO23 936 946
LUUO24 936 947
LUUO25 936 947
LUUO26 936 948
LUUO27 936 948
LUUO3 43# 936 938
LUUO30 936 949
LUUO31 936 949
LUUO32 936 950
LUUO33 936 950
LUUO4 44# 936 939
LUUO5 45# 936 939
LUUO6 46# 936 940
LUUO7 47# 936 940
LUUOI 803#
LWRITE 803#
MAPNEW 957#
MARGIN 879#
MCNVER 3# 10 23 851
MEMLOW 959#
MEMMAP 857
MEMSIZ 960#
MEMTOT 958#
MICNT 6387# 6387 6388 6401
MINUS 1001#
MODDVC 593#
MODDVL 792 792# 852
MODDVU 793 793# 853
MODLNK 612# 816
MONCTL 869# 6402 6515
MONFLG 868#
MONTEN 870#
MONTYP 1083#
MPVU 803#
MUUO 803#
MUUOPC 803#
NOPNT 581# 6392
NXMU 803#
O12300 1174# 1179
O12400 1193# 1198
O12500 1211# 1216 SEQ 0188
O12600 1230# 1235
O12700 1248# 1253
O13000 1270#
O13100 1370#
O13200 1473# 1478
O13300 1495#
O13400 1591# 1596
O13500 1599# 1604
O13600 1607# 1612
O13700 1615# 1620
O14000 1622# 1627
O14100 1630# 1635
O14200 1638# 1643
O14300 1646# 1651
O14400 1664# 1669
O14500 1683# 1688
O14600 1705#
O14700 1797# 1802
O15000 1814# 1819
O15100 1833# 1838
O15200 1852# 1857
O15300 1871# 1876
O15400 1892# 1898
O15500 1901# 1907
O15600 1910# 1917
O15700 1933# 1937
O16000 1956# 1962
O16100 1979# 1984
O16200 1998# 2004
O16300 2019# 2025
O16400 2038# 2044
O16500 2058# 2064
O16600 2078# 2084
O16700 2102# 2111
O17000 2127# 2133
O17100 2148# 2154
O17200 2170# 2176
O17300 2191# 2197
O17400 2213# 2219
O17500 2235# 2240
O17600 2258#
O17700 2352# 2358
O20000 2373# 2378
O20100 2394# 2400
O20200 2417# 2422
O20300 2435# 2441
O20400 2455# 2461
O20500 2479# 2485
O20600 2488# 2494
O20700 2497# 2503
O21000 2506# 2512
O21100 2514# 2520
O21200 2523# 2529 SEQ 0189
O21300 2532# 2538
O21400 2551# 2557
O21500 2560# 2566
O21600 2569# 2575
O21700 2578# 2584
O22000 2586# 2592
O22100 2595# 2601
O22200 2604# 2610
O22300 2613# 2619
O22400 2633# 2639
O22500 2654# 2660
O22600 2674# 2679
O22700 2693# 2699
O23000 2715# 2721
O23100 2736# 2742
O23200 2760# 2766
O23300 2781# 2787
O23400 2801# 2807
O23500 2820# 2826
O23600 2840# 2846
O23700 2860# 2866
O26500 2885# 2892
O26600 2908# 2916
O26700 2931# 2938
O27000 2958# 2965
O27100 3006# 3015
O27200 3032# 3038
O27300 3053# 3060
O27400 3077# 3083
O27500 3097# 3102
O27600 3118# 3124
O27700 3139# 3146
O30500 3169#
O30600 3286#
O30700 3385#
O31000 3512#
O31100 3619#
O31200 3674#
O31300 3732#
O31400 3791#
O31500 3885#
O31600 4131#
O31700 4304#
O32000 4395# 4401
O32100 4403# 4409
O32200 4411# 4417
O32300 4434#
O32400 4488#
O32500 4543#
O32600 4606#
O32700 4669#
O33000 4738#
O33100 4805# SEQ 0190
O33200 4870#
O33300 4938#
O33400 5209#
O33500 5336# 5346
O33600 5349# 5356
O33700 5359# 5367
O34400 5380# 5388
O34500 5402# 5410
O34600 5428#
O34700 5729# 5736
O35000 5750# 5758
O35100 5773# 5781
O35200 5795# 5803
O35300 5819# 5829
O35500 5839# 5852
O35510 5854# 5868
O35520 5870# 5884
O35530 5885# 5901
O35535 5896 5903#
O35537 5899# 5905
O35540 5902 5907# 5923
O35545 5918 5925#
O35547 5921# 5927
O35550 5924 5929# 5942
O35560 5943# 5956
O35570 5958# 5972 6240
O35600 5973# 5986
O35610 5988# 6002
O35620 6004# 6018
O35630 6019# 6033
O35640 6035# 6051
O35645 6048 6053#
O35647 6051# 6055
O35650 6052 6057# 6073
O35655 6070 6075#
O35657 6073# 6077
O35660 6074 6078# 6091
O35670 6093# 6106
O35700 6107# 6120
O35710 6122# 6136
O35720 6138# 6152
O35730 6153# 6169
O35735 6164 6171#
O35737 6167# 6173
O35740 6170 6175# 6191
O35745 6186 6193#
O35747 6189# 6195
O35750 6192 6197# 6210
O35760 6211# 6224
O35770 6226#
O36000 6241# 6254
O36010 6256# 6270
O36020 6272# 6286 SEQ 0191
O36030 6287# 6301
O36040 6303# 6319
O36045 6316 6321#
O36047 6319# 6323
O36050 6320 6325# 6341
O36055 6338 6343#
O36057 6341# 6345
O36060 6342 6346# 6359
O36070 6361# 6374
OPRSEL 595#
OPTIME 971#
P 638 639 640 641 803# 891
PAG 803#
PALERS 587# 6525
PAREA1 83# 847
PAREA2 84# 848
PAREA3 85# 845
PAREA4 86# 846
PAREA5 87# 858
PAREA6 88# 859
PAREA7 858#
PAREA8 859#
PARU 803#
PASCNT 873# 6407 6411
PATCH 6641#
PDISF 968#
PDLOVU 803#
PDOVTP 803#
PERIOD 998#
PFSTRT 825#
PGMEND 58# 6647
PGMNAM 850 1135#
PICHN1 803#
PICHN2 803#
PICHN3 803#
PICHN4 803#
PICHN5 803#
PICHN6 803#
PICHN7 803#
PICHNA 803#
PICLR 803#
PIOFF 803#
PION 803#
PLIST 1037# 1037
PLISTE 1037 1039#
PLISTS 1038#
PLUS 1003#
PNTENB 967#
PNTEXT 846#
PNTFLG 966#
PNTINH 969#
PNTLPT 582#
PNTNAM 845# SEQ 0192
PNTRP 803#
PNTSPC 970#
PROCED 6390# 6390 6504 6511
PTRP 803#
PVPAGI 1064#
QUEST 1009#
RADIX 1012#
RADLSC 1014#
RADLSP 1013#
RANDBS 847#
REENTR 827#
RELIAB 589#
RENTR1 73 1132#
REPT 803#
REPT1 803#
REPTU 925#
REQSET 803#
RESRT1 72 902#
RESRT2 903#
RETURN 834#
RSTART 578#
RTP 1007#
RUNFLG 874#
SADR1 71# 823
SADR10 80# 839
SADR11 81# 840
SADR2 72# 825
SADR3 73# 827
SADR4 74#
SADR5 75# 888
SADR6 76# 889
SADR7 77# 836
SADR8 78# 837
SADR9 79# 838
SBINIT 651 833#
SCOPE 926#
SFSTRT 823#
SLASH 1010#
SM10 1114#
SN 1267# 1281 1281# 1288 1291 1291# 1298 1301 1301# 1308 1311 1311# 1318 1321
1321# 1328 1331 1331# 1338 1341 1341# 1348 1365# 1382 1382# 1390 1393 1393#
1401 1404 1404# 1412 1415 1415# 1423 1426 1426# 1434 1437 1437# 1445 1448
1448# 1456 1491# 1506 1506# 1513 1516 1516# 1523 1526 1526# 1533 1536 1536#
1543 1546 1546# 1553 1556 1556# 1563 1566 1566# 1573 1702# 1715 1715# 1721
1724 1724# 1730 1733 1733# 1739 1742 1742# 1748 1751 1751# 1757 1760 1760#
1766 1769 1769# 1775 1778 1778# 1784 2255# 2269 2269# 2276 2279 2279# 2286
2289 2289# 2296 2299 2299# 2306 2309 2309# 2316 2319 2319# 2326 2329 2329#
2336 3165# 3181 3181# 3189 3192 3192# 3200 3203 3203# 3211 3214 3214# 3222
3225 3225# 3233 3236 3236# 3244 3247 3247# 3255 3258 3258# 3266 3283# 3297
3297# 3304 3307 3307# 3314 3317 3317# 3324 3327 3327# 3334 3337 3337# 3344
3347 3347# 3354 3357 3357# 3364 3380# 3398 3398# 3407 3410 3410# 3419 3422
3422# 3431 3434 3434# 3443 3446 3446# 3455 3458 3458# 3467 3470 3470# 3479
3482 3482# 3491 3508# 3523 3523# 3530 3533 3533# 3540 3543 3543# 3550 3553 SEQ 0193
3553# 3560 3563 3563# 3570 3573 3573# 3580 3583 3583# 3590 3593 3593# 3600
3616# 3629 3629# 3635 3638 3638# 3644 3647 3647# 3653 3670# 3685 3685# 3692
3695 3695# 3702 3705 3705# 3712 3728# 3743 3743# 3750 3753 3753# 3760 3763
3763# 3770 3788# 3801 3801# 3807 3810 3810# 3816 3819 3819# 3825 3828 3828#
3834 3837 3837# 3843 3846 3846# 3852 3855 3855# 3861 3864 3864# 3870 3873
3873# 3879 3883# 3898 3898# 3907 3910 3910# 3919 3922 3922# 3931 3934 3934#
3943 3946 3946# 3955 3958 3958# 3967 3970 3970# 3979 3982 3982# 3991 3994
3994# 4003 4006 4006# 4015 4018 4018# 4027 4030 4030# 4039 4042 4042# 4051
4054 4054# 4063 4066 4066# 4075 4078 4078# 4087 4090 4090# 4099 4102 4102#
4111 4127# 4146 4146# 4157 4160 4160# 4171 4174 4174# 4185 4188 4188# 4199
4202 4202# 4213 4216 4216# 4227 4230 4230# 4241 4244 4244# 4255 4258 4258#
4269 4272 4272# 4283 4300# 4316 4316# 4324 4327 4327# 4335 4338 4338# 4346
4349 4349# 4357 4360 4360# 4368 4371 4371# 4379 4431# 4444 4444# 4450 4453
4453# 4459 4462 4462# 4468 4485# 4498 4498# 4504 4507 4507# 4513 4516 4516#
4522 4539# 4555 4555# 4563 4566 4566# 4574 4577 4577# 4585 4602# 4618 4618#
4626 4629 4629# 4637 4640 4640# 4648 4664# 4682 4682# 4691 4694 4694# 4703
4706 4706# 4715 4733# 4751 4751# 4760 4763 4763# 4772 4775 4775# 4784 4801#
4817 4817# 4825 4828 4828# 4836 4839 4839# 4847 4865# 4883 4883# 4892 4895
4895# 4904 4907 4907# 4916 4934# 4953 4953# 4962 4964 4967 4967# 4976 4978
4981 4981# 4990 4992 4995 4995# 5004 5006 5009 5009# 5018 5020 5023 5023#
5032 5034 5037 5037# 5046 5048 5051 5051# 5060 5062 5065 5065# 5074 5076
5079 5079# 5088 5090 5093 5093# 5102 5104 5107 5107# 5116 5118 5121 5121#
5130 5132 5135 5135# 5144 5146 5149 5149# 5158 5160 5163 5163# 5172 5174
5177 5177# 5186 5188 5191 5191# 5200 5202 5206# 5224 5224# 5233 5235 5238
5238# 5247 5249 5252 5252# 5261 5263 5266 5266# 5275 5277 5280 5280# 5289
5291 5294 5294# 5303 5305 5308 5308# 5317 5319 5424# 5445 5445# 5456 5458
5461 5461# 5472 5474 5477 5477# 5488 5490 5493 5493# 5504 5506 5509 5509#
5520 5522 5525 5525# 5536 5538 5541 5541# 5552 5554 5557 5557# 5568 5570
5573 5573# 5584 5586 5589 5589# 5600 5602 5605 5605# 5616 5618 5621 5621#
5632 5634 5637 5637# 5648 5650 5653 5653# 5664 5666 5669 5669# 5680 5682
5685 5685# 5696 5698 5701 5701# 5712 5714
SNTRP 803#
SPACE 999#
SPDES 6477#
SPFNRN 2978# 2986
SRTDDT 74 829#
START 817 1151#
START1 836#
START2 837#
START3 838#
START4 839#
START5 840#
STARTA 832 1155#
STRP 803#
SUBLNK 613# 833
SWPTAB 1120#
SWTEXR 848#
SYSEXR 821#
TAB 1000#
TESTPC 875# 1170 1189 1207 1226 1244 1263 1361 1469 1487 1586 1660 1679 1699
1793 1810 1829 1848 1867 1887 1929 1952 1975 1994 2015 2034 2054 2074
2098 2123 2144 2166 2187 2209 2231 2251 2348 2369 2390 2413 2431 2451
2474 2547 2629 2650 2670 2689 2711 2732 2756 2777 2797 2816 2836 2856 SEQ 0194
2881 2904 2927 2954 2974 3002 3028 3049 3073 3093 3114 3135 3161 3279
3376 3504 3612 3666 3724 3784 4123 4296 4391 4427 4481 4535 4598 4660
4729 4797 4861 4930 5331 5376 5398 5420 5725 5746 5769 5791 5815 5835
TICKS 878#
TLET 1153 6451 6474#
TN0 803#
TN1 803#
TOTALS 579#
TRP3TP 803#
TTNBRF 1058#
TTYFIL 974#
TTYSPD 975#
TXTINH 590# 6435
UBAVEC 803#
USER 865#
USERF 803#
USRASB 57# 855
USRCRF 984#
USRLFF 983#
UUODIS 937#
UUOEXT 893# 6522
UUORTN 894#
UUOSKP 891#
WW 1366# 1383 1383# 1384 1394 1394# 1395 1405 1405# 1406 1416 1416# 1417 1427
1427# 1428 1438 1438# 1439 1449 1449# 1450 3381# 3400 3401 3401# 3412 3413
3413# 3424 3425 3425# 3436 3437 3437# 3448 3449 3449# 3460 3461 3461# 3472
3473 3473# 3484 3485 3485# 4665# 4683 4684 4684# 4695 4696 4696# 4707 4708
4708# 4734# 4752 4753 4753# 4764 4765 4765# 4776 4777 4777# 4866# 4884 4884#
4886 4896 4896# 4898 4908 4908# 4910
XX 1367# 1384 1384# 1387 1395 1395# 1398 1406 1406# 1409 1417 1417# 1420 1428
1428# 1431 1439 1439# 1442 1450 1450# 1453 1492# 1507 1507# 1508 1517 1517#
1518 1527 1527# 1528 1537 1537# 1538 1547 1547# 1548 1557 1557# 1558 1567
1567# 1568 3166# 3182 3182# 3185 3193 3193# 3196 3204 3204# 3207 3215 3215#
3218 3226 3226# 3229 3237 3237# 3240 3248 3248# 3251 3259 3259# 3262 3299#
3300 3309# 3310 3319# 3320 3329# 3330 3339# 3340 3349# 3350 3359# 3360 3382#
3399 3399# 3402 3402# 3405 3411 3411# 3414 3417 3423 3423# 3426 3429 3435
3435# 3438 3441 3447 3447# 3450 3453 3459 3459# 3462 3465 3471 3471# 3474
3477 3483 3483# 3486 3489 3509# 3524 3524# 3528 3534 3534# 3538 3544 3544#
3548 3554 3554# 3558 3564 3564# 3568 3574 3574# 3578 3584 3584# 3588 3594
3594# 3598 3671# 3686 3686# 3688 3696 3696# 3698 3706 3706# 3708 3729# 3744
3744# 3746 3754 3754# 3756 3764 3764# 3766 4128# 4147 4147# 4151 4161 4161#
4165 4175 4175# 4179 4189 4189# 4193 4203 4203# 4207 4217 4217# 4221 4231
4231# 4235 4245 4245# 4249 4259 4259# 4263 4273 4273# 4277 4301# 4317 4317#
4320 4328 4328# 4331 4339 4339# 4342 4350 4350# 4353 4361 4361# 4364 4372
4372# 4375 4540# 4556 4556# 4558 4567 4567# 4569 4578 4578# 4580 4603# 4619
4619# 4621 4630 4630# 4632 4641 4641# 4643 4666# 4683 4683# 4686 4695 4695#
4698 4707 4707# 4710 4735# 4752 4752# 4755 4764 4764# 4767 4776 4776# 4779
4802# 4818 4818# 4820 4829 4829# 4831 4840 4840# 4842 4867# 4885 4885# 4889
4897 4897# 4901 4909 4909# 4913 4935# 4954 4954# 4957 4968 4968# 4971 4982
4982# 4985 4996 4996# 4999 5010 5010# 5013 5024 5024# 5027 5038 5038# 5041
5052 5052# 5055 5066 5066# 5069 5080 5080# 5083 5094 5094# 5097 5108 5108#
5111 5122 5122# 5125 5136 5136# 5139 5150 5150# 5153 5164 5164# 5167 5178
5178# 5181 5192 5192# 5195 5225 5225# 5228 5239 5239# 5242 5253 5253# 5256 SEQ 0195
5267 5267# 5270 5281 5281# 5284 5295 5295# 5298 5309 5309# 5312 5425# 5446
5446# 5448 5453 5457 5462 5462# 5464 5469 5473 5478 5478# 5480 5485 5489
5494 5494# 5496 5501 5505 5510 5510# 5512 5517 5521 5526 5526# 5528 5533
5537 5542 5542# 5544 5549 5553 5558 5558# 5560 5565 5569 5574 5574# 5576
5581 5585 5590 5590# 5592 5597 5601 5606 5606# 5608 5613 5617 5622 5622#
5624 5629 5633 5638 5638# 5640 5645 5649 5654 5654# 5656 5661 5665 5670
5670# 5672 5677 5681 5686 5686# 5688 5693 5697 5702 5702# 5704 5709 5713
ZZ 1268# 1282 1282# 1283 1283# 1286 1292 1292# 1293 1296 1302 1302# 1303 1306
1312 1312# 1313 1316 1322 1322# 1323 1326 1332 1332# 1333 1336 1342 1342#
1343 1346 1368# 1385 1385# 1388 1396 1396# 1399 1407 1407# 1410 1418 1418#
1421 1429 1429# 1432 1440 1440# 1443 1451 1451# 1454 1493# 1508 1508# 1510
1518 1518# 1520 1528 1528# 1530 1538 1538# 1540 1548 1548# 1550 1558 1558#
1560 1568 1568# 1570 1703# 1716 1716# 1718 1725 1725# 1727 1734 1734# 1736
1743 1743# 1745 1752 1752# 1754 1761 1761# 1763 1770 1770# 1772 1779 1779#
1781 2256# 2270 2270# 2271 2272 2280 2280# 2281 2282 2290 2290# 2291 2292
2300 2300# 2301 2302 2310 2310# 2311 2312 2320 2320# 2321 2322 2330 2330#
2331 2332 3167# 3183 3183# 3184 3184# 3187 3194 3194# 3195 3198 3205 3205#
3206 3209 3216 3216# 3217 3220 3227 3227# 3228 3231 3238 3238# 3239 3242
3249 3249# 3250 3253 3260 3260# 3261 3264 3284# 3298 3298# 3299 3301 3308
3308# 3309 3311 3318 3318# 3319 3321 3328 3328# 3329 3331 3338 3338# 3339
3341 3348 3348# 3349 3351 3358 3358# 3359 3361 3383# 3400 3400# 3403 3412
3412# 3415 3424 3424# 3427 3436 3436# 3439 3448 3448# 3451 3460 3460# 3463
3472 3472# 3475 3484 3484# 3487 3510# 3525 3525# 3526 3535 3535# 3536 3545
3545# 3546 3555 3555# 3556 3565 3565# 3566 3575 3575# 3576 3585 3585# 3586
3595 3595# 3596 3617# 3630 3630# 3631 3631# 3633 3639 3639# 3640 3642 3648
3648# 3649 3651 3672# 3687 3687# 3690 3697 3697# 3700 3707 3707# 3710 3730#
3745 3745# 3748 3755 3755# 3758 3765 3765# 3768 3789# 3802 3802# 3803 3804
3811 3811# 3812 3813 3820 3820# 3821 3822 3829 3829# 3830 3831 3838 3838#
3839 3840 3847 3847# 3848 3849 3856 3856# 3857 3858 3865 3865# 3866 3867
3874 3874# 3875 3876 3884# 3899 3899# 3900 3900# 3902 3904 3911 3911# 3912
3914 3916 3923 3923# 3924 3926 3928 3935 3935# 3936 3938 3940 3947 3947#
3948 3950 3952 3959 3959# 3960 3962 3964 3971 3971# 3972 3974 3976 3983
3983# 3984 3986 3988 3995 3995# 3996 3998 4000 4007 4007# 4008 4010 4012
4019 4019# 4020 4022 4024 4031 4031# 4032 4034 4036 4043 4043# 4044 4046
4048 4055 4055# 4056 4058 4060 4067 4067# 4068 4070 4072 4079 4079# 4080
4082 4084 4091 4091# 4092 4094 4096 4103 4103# 4104 4106 4108 4129# 4148
4148# 4149 4149# 4153 4162 4162# 4163 4167 4176 4176# 4177 4181 4190 4190#
4191 4195 4204 4204# 4205 4209 4218 4218# 4219 4223 4232 4232# 4233 4237
4246 4246# 4247 4251 4260 4260# 4261 4265 4274 4274# 4275 4279 4302# 4318
4318# 4319 4329 4329# 4330 4340 4340# 4341 4351 4351# 4352 4362 4362# 4363
4373 4373# 4374 4432# 4445 4445# 4447 4454 4454# 4456 4463 4463# 4465 4486#
4499 4499# 4501 4508 4508# 4510 4517 4517# 4519 4541# 4557 4557# 4559 4560
4568 4568# 4570 4571 4579 4579# 4581 4582 4604# 4620 4620# 4622 4623 4631
4631# 4633 4634 4642 4642# 4644 4645 4667# 4685 4685# 4687 4697 4697# 4699
4709 4709# 4711 4736# 4754 4754# 4757 4766 4766# 4769 4778 4778# 4781 4803#
4819 4819# 4821 4822 4830 4830# 4832 4833 4841 4841# 4843 4844 4868# 4886
4886# 4887 4898 4898# 4899 4910 4910# 4911 4936# 4955 4955# 4956 4956# 4959
4963 4969 4969# 4970 4973 4977 4983 4983# 4984 4987 4991 4997 4997# 4998
5001 5005 5011 5011# 5012 5015 5019 5025 5025# 5026 5029 5033 5039 5039#
5040 5043 5047 5053 5053# 5054 5057 5061 5067 5067# 5068 5071 5075 5081
5081# 5082 5085 5089 5095 5095# 5096 5099 5103 5109 5109# 5110 5113 5117
5123 5123# 5124 5127 5131 5137 5137# 5138 5141 5145 5151 5151# 5152 5155
5159 5165 5165# 5166 5169 5173 5179 5179# 5180 5183 5187 5193 5193# 5194 SEQ 0196
5197 5201 5207# 5226 5226# 5227 5227# 5230 5234 5240 5240# 5241 5244 5248
5254 5254# 5255 5258 5262 5268 5268# 5269 5272 5276 5282 5282# 5283 5286
5290 5296 5296# 5297 5300 5304 5310 5310# 5311 5314 5318 5426# 5447 5447#
5451 5463 5463# 5467 5479 5479# 5483 5495 5495# 5499 5511 5511# 5515 5527
5527# 5531 5543 5543# 5547 5559 5559# 5563 5575 5575# 5579 5591 5591# 5595
5607 5607# 5611 5623 5623# 5627 5639 5639# 5643 5655 5655# 5659 5671 5671#
5675 5687 5687# 5691 5703 5703# 5707
$$MUUO 1089#
$$OUTE 1095#
$$TAX1 1107#
$$TAX2 1108#
$$TOGG 1101#
$$UUO 1078#
$ACC0 916#
$ACF 6478#
$BEND1 886#
$BEND2 75 887# 6531
$CHRIN 977#
$CRLF 979#
$DEVCH 803#
$DSKUP 856#
$DVOFF 973#
$EMODE 854#
$FFF 981#
$IBUF 1029#
$INEXT 1031#
$INNM 1030#
$ITRHL 897#
$ITRX1 898#
$LPAPE 6537
$MMAP 857#
$MODVL 852#
$MODVU 853#
$OBUF 1020#
$ONETM 880#
$OUTEX 1022#
$OUTNM 1021#
$PAPER 803
$PARER 904#
$PNAME 850#
$PSHER 908#
$PVER 851#
$RSRTX 900#
$RSRTY 901#
$SPAG1 920#
$START 817#
$SVAPR 918#
$SVPAG 919#
$SVPI 917#
$SVUPC 923# 6385 6389 6415
$SVUUO 922# 6394 6426 6454
$TABF 980#
$TTCHR 976# SEQ 0197
$TWCNT 972#
$TYPNB 978#
$UMODE 855#
$UORTX 895#
$USRHL 899#
$UUOER 896# 937
$VTF 982#
%AC1F 6479#
%ACS1A 6396# 6396 6440
%ACTFL 929#
%ACTUL 930#
%ALF 6484#
%AR1F 6483#
%ARF 6482#
%COREC 928#
%CORFL 927#
%DISCR 931#
%E1F 6481#
%EEF 6485#
%EF 6480#
%ER4X 6460 6465#
%ER5X 6458 6467#
%ER6X 6456 6469#
%ER7X 6462# 6466 6468 6470
%ERAC0 6381# 6381 6397 6431 6521
%ERAC1 6382# 6382 6398 6509
%ERAC2 6383# 6383 6508
%ERFST 6404# 6404 6406
%ERHI1 1070#
%ERHI2 1071#
%ERHI3 1072#
%ERMOR 6436 6463 6492#
%ERMS1 6401# 6527
%ERMS2 6424#
%ERMS3 6442 6449#
%ERRS1 6393 6495# 6526
%ERRS2 6508#
%ERRS4 6400 6524#
%ERRS5 6512 6516 6521#
%ERRS6 6519 6529#
%FF 6486#
%FLTTB 6444 6475#
%NODES 6476#
.JB41 803#
.JBAPR 803#
.JBCNI 803#
.JBDDT 803#
.JBFF 803#
.JBOPC 803#
.JBREL 803#
.JBREN 803#
.JBSA 803#
.JBSYM 803# SEQ 0198
.JBTPC 803#
.JBUSY 803#
.JBUUO 803#
.JBVER 803#
APRID 803#
BCIO 803# SEQ 0199
BCIOB 803#
BSIO 803#
BSIOB 803#
CFLUSH 763#
CINVAL 762#
CLOKOP 757#
CLRPT 803#
CWRTBI 764#
DFA 417#
DFARP 460#
DFD 450#
DFM 439#
DFS 428#
DMVE 91#
DMVE17 113#
DMVM 253#
DMVM17 305#
DMVN 141#
DMVN17 171#
DMVNF 209#
DMVNM 278#
DMVNM1 337#
DMVNMF 372#
DROPDV 724# 1132
ENDUUO 770# 885
EOPUUO 771# 887
ER1 29#
ER10 36#
ER11 37#
ER12 38#
ER13 39# 1897 1906 1915 5345 5355 5365 5849 5851 5863 5865 5867 5879 5881
5883 5894 5898 5900 5904 5916 5920 5922 5926 5939 5941 5953 5955 5967
5969 5971 5983 5985 5997 5999 6001 6013 6015 6017 6028 6030 6032 6044
6046 6050 6054 6066 6068 6072 6076 6088 6090 6103 6105 6117 6119 6131
6133 6135 6147 6149 6151 6162 6166 6168 6172 6184 6188 6190 6194 6207
6209 6221 6223 6235 6237 6239 6251 6253 6265 6267 6269 6281 6283 6285
6296 6298 6300 6312 6314 6318 6322 6334 6336 6340 6344 6356 6358 6371
6373
ER2 30#
ER3 31# 1178 1197 1215 1234 1252 1288 1298 1308 1318 1328 1338 1348 1390
1401 1412 1423 1434 1445 1456 1477 1513 1523 1533 1543 1553 1563 1573
1595 1603 1611 1619 1626 1634 1642 1650 1668 1687 1721 1730 1739 1748
1757 1766 1775 1784 1801 1818 1837 1856 1875 1936 1961 1983 2003 2024
2043 2063 2083 2107 2110 2132 2153 2175 2196 2218 2239 2276 2286 2296
2306 2316 2326 2336 2357 2377 2399 2421 2440 2460 2484 2493 2502 2511
2519 2528 2537 2556 2565 2574 2583 2591 2600 2609 2618 2638 2659 2678
2698 2720 2741 2765 2786 2806 2825 2845 2865 2891 2915 2937 2964 2984
3011 3014 3037 3059 3082 3101 3123 3145 3189 3200 3211 3222 3233 3244
3255 3266 3304 3314 3324 3334 3344 3354 3364 3407 3419 3431 3443 3455
3467 3479 3491 3530 3540 3550 3560 3570 3580 3590 3600 3635 3644 3653
3692 3702 3712 3750 3760 3770 3807 3816 3825 3834 3843 3852 3861 3870
3879 3907 3919 3931 3943 3955 3967 3979 3991 4003 4015 4027 4039 4051
4063 4075 4087 4099 4111 4157 4171 4185 4199 4213 4227 4241 4255 4269 SEQ 0200
4283 4324 4335 4346 4357 4368 4379 4400 4408 4416 4450 4459 4468 4504
4513 4522 4563 4574 4585 4626 4637 4648 4691 4703 4715 4760 4772 4784
4825 4836 4847 4892 4904 4916 4962 4976 4990 5004 5018 5032 5046 5060
5074 5088 5102 5116 5130 5144 5158 5172 5186 5200 5233 5247 5261 5275
5289 5303 5317 5343 5387 5407 5456 5472 5488 5504 5520 5536 5552 5568
5584 5600 5616 5632 5648 5664 5680 5696 5712 5735 5755 5780 5800 5826
5846 5861 5877 5892 5914 5936 5950 5965 5980 5995 6011 6026 6042 6064
6085 6100 6114 6129 6145 6160 6182 6204 6218 6233 6248 6263 6279 6294
6310 6332 6353 6368
ER4 32#
ER5 33# 4964 4978 4992 5006 5020 5034 5048 5062 5076 5090 5104 5118 5132
5146 5160 5174 5188 5202 5235 5249 5263 5277 5291 5305 5319 5385 5409
5458 5474 5490 5506 5522 5538 5554 5570 5586 5602 5618 5634 5650 5666
5682 5698 5714 5757 5778 5802 5828
ER6 34#
ER7 35#
ERRHLT 658# 6502
FATAL 657#
FRD36 799#
FRD8 800#
FREAD 798#
FSELEC 797#
GET 641#
GO 638#
HALT 77 78 79 80 81 643# 906
JEN 645#
JRSTF 644#
MAPADR 780#
MAPCNK 781#
MAPMEM 777#
MAPPNT 783#
MAPSET 782#
MEMSEG 779#
MEMZRO 778#
MODPCP 790#
MODPCU 789#
MTROP 758#
NAME 7# 10
PBELL 733# 6506
PCRL 727# 6443 6462
PCRL2 731#
PCRL2F 732#
PCRLF 728#
PFORCE 735#
PGMINT 651# 1151
PJRST 642#
PMSG 737# 6409 6413 6424 6449
PMSGF 740# 6529
PNT1 693#
PNT11 707#
PNT11F 708#
PNT1F 694#
PNT2 695# SEQ 0201
PNT2F 696#
PNT3 697# 6461
PNT3F 698#
PNT4 699# 6465
PNT4F 700#
PNT5 701# 6467
PNT5F 702#
PNT6 703# 6417 6469
PNT6F 704#
PNT7 705#
PNT7F 706#
PNTA 679# 6452
PNTADF 710#
PNTADR 709#
PNTAF 680#
PNTAL 681# 6445
PNTALF 682#
PNTCHF 692#
PNTCHR 691#
PNTCI 689#
PNTCIF 690#
PNTCW 725#
PNTCWF 726#
PNTDCF 718#
PNTDEC 717# 6412
PNTDS 719#
PNTDSF 720#
PNTHW 713# 6432
PNTHWF 714#
PNTMSF 686#
PNTMSG 685#
PNTNM 721# 6405
PNTOCF 716#
PNTOCS 715#
PNTOCT 711#
PNTOTF 712#
PNTSIX 722#
PNTSXF 723#
PSIXL 683#
PSIXLF 684#
PSIXM 687# 6410 6414 6425 6450
PSIXMF 688# 6530
PSP 729#
PSPF 730#
PUT 640#
RDAPR 803#
RDCSB 803#
RDCSTM 803#
RDEBR 803#
RDHSB 803#
RDINT 803#
RDIO 803#
RDIOB 803# SEQ 0202
RDPI 803#
RDPUR 803#
RDSPB 803#
RDTIM 803#
RDUBR 803#
RTN 639# 893
S 569# 571 575 604 606 615 618 633 634 636 647 649 653 655
660 664 803 808 814 841 843 861 863 881 883 912 914 932
934 952 954 962 964 985 990 1016 1018 1025 1027 1033 1035 1041
1043 1047 1049 1054 1056 1060 1062 1066 1068 1074 1076 1079 1081 1085
1087 1091 1093 1097 1099 1103 1105 1110 1112 1116 1118 1122 1124 1126
1128
SAVEAC 63# 1168 1187 1205 1224 1242 1261 1359 1467 1485 1584 1658 1677 1697
1791 1808 1827 1846 1865 1885 1927 1950 1973 1992 2013 2032 2052 2072
2096 2121 2142 2164 2185 2207 2229 2249 2346 2367 2388 2411 2429 2449
2472 2545 2627 2648 2668 2687 2709 2730 2754 2775 2795 2814 2834 2854
2879 2902 2925 2952 2972 3000 3026 3047 3071 3091 3112 3133 3159 3277
3374 3502 3610 3664 3722 3782 4121 4294 4389 4425 4479 4533 4596 4658
4727 4795 4859 4928 5329 5374 5396 5418 5723 5744 5767 5789 5813 5833
SDFA 471#
SDFARP 557#
SDFD 525#
SDFDKL 535#
SDFM 493#
SDFMKL 503#
SDFS 482#
SIXBTZ 746#
SWITCH 752# 6391 6493
TIOE 803#
TIOEB 803#
TION 803#
TIONB 803#
TTALTM 673# 6495
TTICHR 666#
TTICLR 676#
TTICNV 671#
TTIDEC 670#
TTINO 668#
TTIOCT 669#
TTIYES 667#
TTLOOK 672#
TTSIXB 674#
TTYINP 675#
WRAPR 803#
WRCSB 803#
WRCSTM 803#
WREBR 803#
WRHSB 803#
WRINT 803#
WRIO 803#
WRIOB 803#
WRPI 803#
WRPUR 803# SEQ 0203
WRSPB 803#
WRTIM 803#
WRUBR 803#
ANDI 6428
AOJ 5452 5468 5484 5500 5516 5532 5548 5564 5580 5596 5612 5628 5644 5660 SEQ 0204
5676 5692 5708
AOS 891 6384 6387 6513 6514
ASCII 992 994 997 998 999 1000 1002 1003 1004 1005 1006 1007 1009 1010
1011
ASCIZ 1135 1152 6478 6479 6480 6481 6482 6483 6484 6485 6486
BLOCK 960 1020 1023 1029 1032 1038 6641
BYTE 1008
CAIG 6430 6441
CAIL 6518
CALL 1133
CAME 2983 3188 3199 3210 3221 3232 3243 3254 3265 3303 3313 3323 3333 3343
3353 3363 3406 3418 3430 3442 3454 3466 3478 3490 3529 3539 3549 3559
3569 3579 3589 3599 3691 3701 3711 3749 3759 3769 3806 3815 3824 3833
3842 3851 3860 3869 3878 3906 3918 3930 3942 3954 3966 3978 3990 4002
4014 4026 4038 4050 4062 4074 4086 4098 4110 4156 4170 4184 4198 4212
4226 4240 4254 4268 4282 4323 4334 4345 4356 4367 4378 4399 4407 4415
4449 4458 4467 4562 4573 4584 4625 4636 4647 4690 4702 4714 4759 4771
4783 4824 4835 4846 4891 4903 4915 4961 4963 4975 4977 4989 4991 5003
5005 5017 5019 5031 5033 5045 5047 5059 5061 5073 5075 5087 5089 5101
5103 5115 5117 5129 5131 5143 5145 5157 5159 5171 5173 5185 5187 5199
5201 5232 5234 5246 5248 5260 5262 5274 5276 5288 5290 5302 5304 5316
5318 5342 5384 5386 5406 5408 5455 5457 5471 5473 5487 5489 5503 5505
5519 5521 5535 5537 5551 5553 5567 5569 5583 5585 5599 5601 5615 5617
5631 5633 5647 5649 5663 5665 5679 5681 5695 5697 5711 5713 5734 5754
5756 5777 5779 5799 5801 5825 5827 5845 5860 5876 5891 5913 5935 5949
5964 5979 5994 6010 6025 6041 6063 6084 6099 6113 6128 6144 6159 6181
6203 6217 6232 6247 6262 6278 6293 6309 6331 6352 6367
CAMN 1177 1196 1214 1233 1251 1287 1297 1307 1317 1327 1337 1347 1389 1400
1411 1422 1433 1444 1455 1476 1512 1522 1532 1542 1552 1562 1572 1594
1602 1610 1618 1625 1633 1641 1649 1667 1686 1720 1729 1738 1747 1756
1765 1774 1783 1800 1817 1836 1855 1874 1960 1982 2002 2023 2042 2062
2082 2106 2109 2131 2152 2174 2195 2217 2238 2275 2285 2295 2305 2315
2325 2335 2356 2376 2398 2420 2439 2459 2483 2492 2501 2510 2518 2527
2536 2555 2564 2573 2582 2590 2599 2608 2617 2637 2658 2697 2719 2740
2764 2785 2805 2824 2844 2864 2890 2914 2936 2963 3010 3013 3036 3058
3081 3122 3144 6386
DEFINE 7 63 91 113 141 171 209 253 278 305 337 372 417 428
439 450 460 471 482 493 503 525 535 557 569 737 740 746
END 6649
FAD 1959 1981 2001 2022 2041 2061 2081 2105 2130 2151 2173 2194 2216 2237
2274 2284 2294 2304 2314 2324 2334 2355 2375 2397 2419 2438 2458 2482
2491 2500 2509 2517 2526 2535 2554 2563 2572 2581 2589 2598 2607 2616
2636 2657 2676 2696 2718 2739 2763 2784 2804 2823 2843 2863 4155 4169
4183 4197 4211 4225 4239 4253 4267 4281 4322 4333 4344 4355 4366 4377
4398 4406 4414 4448 4457 4466 4502 4511 4520 4561 4572 4583 4624 4635
4646 4689 4701 4713 4758 4770 4782 4823 4834 4845 4890 4902 4914 4960
4974 4988 5002 5016 5030 5044 5058 5072 5086 5100 5114 5128 5142 5156
5170 5184 5198 5231 5245 5259 5273 5287 5301 5315 5340 5352 5362
FADB 5405
FADM 5383
FADR 2889 2913 2935 2962 2981 5454 5470 5486 5502 5518 5534 5550 5566 5582
5598 5614 5630 5646 5662 5678 5694 5710
FADRI 5733 SEQ 0205
FSB 3009 3035 3057 3080 3099 3121 3143 5753
FSBB 5798
FSBM 5776
FSBRB 5824
FSC 1176 1195 1213 1232 1250 1286 1296 1306 1316 1326 1336 1346 1388 1399
1410 1421 1432 1443 1454 1475 1511 1521 1531 1541 1551 1561 1571 1593
1601 1609 1617 1624 1632 1640 1648 1666 1685 1719 1728 1737 1746 1755
1764 1773 1782 1799 1816 1835 1854 1873 1894 1903 1912 1934 3187 3198
3209 3220 3231 3242 3253 3264 3302 3312 3322 3332 3342 3352 3362 3405
3417 3429 3441 3453 3465 3477 3489 3528 3538 3548 3558 3568 3578 3588
3598 3633 3642 3651 3690 3700 3710 3748 3758 3768 3805 3814 3823 3832
3841 3850 3859 3868 3877 3905 3917 3929 3941 3953 3965 3977 3989 4001
4013 4025 4037 4049 4061 4073 4085 4097 4109 5843 5858 5874 5889 5911
5933 5947 5962 5977 5992 6008 6023 6039 6061 6082 6097 6111 6126 6142
6157 6179 6201 6215 6230 6245 6260 6276 6291 6307 6329 6350 6365
HRL 6389
HRLI 2887 2909 2911 2933 2960 3054 3140 3901 3903 3913 3915 3925 3927 3937
3939 3949 3951 3961 3963 3973 3975 3985 3987 3997 3999 4009 4011 4021
4023 4033 4035 4045 4047 4057 4059 4069 4071 4081 4083 4093 4095 4105
4107 4150 4152 4164 4166 4178 4180 4192 4194 4206 4208 4220 4222 4234
4236 4248 4250 4262 4264 4276 4278 5448 5450 5464 5466 5480 5482 5496
5498 5512 5514 5528 5530 5544 5546 5560 5562 5576 5578 5592 5594 5608
5610 5624 5626 5640 5642 5656 5658 5672 5674 5688 5690 5704 5706 5729
5731 5819 5822
HRLOI 2978
HRRI 2886 2908 2910 2932 2959 3053 3139 3902 3904 3914 3916 3926 3928 3938
3940 3950 3952 3962 3964 3974 3976 3986 3988 3998 4000 4010 4012 4022
4024 4034 4036 4046 4048 4058 4060 4070 4072 4082 4084 4094 4096 4106
4108 4151 4153 4165 4167 4179 4181 4193 4195 4207 4209 4221 4223 4235
4237 4249 4251 4263 4265 4277 4279 5449 5451 5465 5467 5481 5483 5497
5499 5513 5515 5529 5531 5545 5547 5561 5563 5577 5579 5593 5595 5609
5611 5625 5627 5641 5643 5657 5659 5673 5675 5689 5691 5705 5707 5730
5732 5820 5823
HRRZ 6385 6415 6454
IFDEF 803 854 855 856 857 6419 6489 6640 6647
IFE 1283 1293 1303 1313 1323 1333 1343 3184 3195 3206 3217 3228 3239 3250
3261 3402 3414 3426 3438 3450 3462 3474 3486 3631 3640 3649 3900 3912
3924 3936 3948 3960 3972 3984 3996 4008 4020 4032 4044 4056 4068 4080
4092 4104 4149 4163 4177 4191 4205 4219 4233 4247 4261 4275 4956 4970
4984 4998 5012 5026 5040 5054 5068 5082 5096 5110 5124 5138 5152 5166
5180 5194 5227 5241 5255 5269 5283 5297 5311
IFNDEF 792 793 803 854 855 856 857 936 6537
JFCL 894 895 896 897 898 899 900 901 902 903 904 905 1892 1896
1901 1905 5336 5344 5349 5354
JOV 5847 5862 5878 5893 5915 5937 5951 5966 5981 5996 6012 6027 6043 6065
6086 6101 6115 6130 6146 6161 6183 6205 6219 6234 6249 6264 6280 6295
6311 6333 6354 6369
JRST 642 643 644 645 816 817 819 821 823 825 827 830 832 833
886 1155 1910 1916 5359 5366 5839 5848 5854 5870 5885 5896 5902 5905
5907 5918 5924 5927 5929 5938 5943 5952 5958 5973 5982 5988 6004 6019
6035 6048 6052 6055 6057 6070 6074 6077 6078 6087 6093 6102 6107 6116
6122 6138 6153 6164 6170 6173 6175 6186 6192 6195 6197 6206 6211 6220
6226 6241 6250 6256 6272 6287 6303 6316 6320 6323 6325 6338 6342 6345 SEQ 0206
6346 6355 6361 6370 6376 6393 6400 6403 6408 6436 6442 6456 6458 6460
6463 6466 6468 6470 6496 6499 6512 6516 6519 6522 6526 6527 6531
JSP 651 1895 1904 1913 5341 5353 5363 5844 5859 5875 5890 5912 5934 5948
5963 5978 5993 6009 6024 6040 6062 6083 6098 6112 6127 6143 6158 6180
6202 6216 6231 6246 6261 6277 6292 6308 6330 6351 6366
JUMPL 1179 1198 1216 1235 1253 1289 1299 1309 1319 1329 1339 1349 1391 1402
1413 1424 1435 1446 1457 1478 1514 1524 1534 1544 1554 1564 1574 1596
1604 1612 1620 1627 1635 1643 1651 1669 1688 1722 1731 1740 1749 1758
1767 1776 1785 1802 1819 1838 1857 1876 1898 1907 1917 1937 1962 1984
2004 2025 2044 2064 2084 2111 2133 2154 2176 2197 2219 2240 2277 2287
2297 2307 2317 2327 2337 2358 2378 2400 2422 2441 2461 2485 2494 2503
2512 2520 2529 2538 2557 2566 2575 2584 2592 2601 2610 2619 2639 2660
2679 2699 2721 2742 2766 2787 2807 2826 2846 2866 2892 2916 2938 2965
2986 3015 3038 3060 3083 3102 3124 3146 3190 3201 3212 3223 3234 3245
3256 3267 3305 3315 3325 3335 3345 3355 3365 3408 3420 3432 3444 3456
3468 3480 3492 3531 3541 3551 3561 3571 3581 3591 3601 3636 3645 3654
3693 3703 3713 3751 3761 3771 3808 3817 3826 3835 3844 3853 3862 3871
3880 3908 3920 3932 3944 3956 3968 3980 3992 4004 4016 4028 4040 4052
4064 4076 4088 4100 4112 4158 4172 4186 4200 4214 4228 4242 4256 4270
4284 4325 4336 4347 4358 4369 4380 4401 4409 4417 4451 4460 4469 4505
4514 4523 4564 4575 4586 4627 4638 4649 4692 4704 4716 4761 4773 4785
4826 4837 4848 4893 4905 4917 4965 4979 4993 5007 5021 5035 5049 5063
5077 5091 5105 5119 5133 5147 5161 5175 5189 5203 5236 5250 5264 5278
5292 5306 5320 5346 5356 5367 5388 5410 5459 5475 5491 5507 5523 5539
5555 5571 5587 5603 5619 5635 5651 5667 5683 5699 5715 5736 5758 5781
5803 5829 5852 5868 5884 5901 5923 5942 5956 5972 5986 6002 6018 6033
6051 6073 6091 6106 6120 6136 6152 6169 6191 6210 6224 6240 6254 6270
6286 6301 6319 6341 6359 6374
LALL 8 1165
LIST 7 803 936 6419 6489 6537 6637
LIT 6538
LOC 22 806 1130
LSH 6395 6427
MOVE 1152 2979 4959 4973 4987 5001 5015 5029 5043 5057 5071 5085 5099 5113
5127 5141 5155 5169 5183 5197 6388 6394 6397 6398 6411 6426 6429 6431
6434 6440 6444 6500 6508 6509 6517 6521 6524
MOVEI 1169 1171 1188 1190 1206 1208 1225 1227 1243 1245 1262 1264 1360 1362
1468 1470 1486 1488 1585 1587 1659 1661 1678 1680 1698 1700 1792 1794
1809 1811 1828 1830 1847 1849 1866 1868 1886 1888 1928 1930 1951 1953
1974 1976 1993 1995 2014 2016 2033 2035 2053 2055 2073 2075 2097 2099
2122 2124 2143 2145 2165 2167 2186 2188 2208 2210 2230 2232 2250 2252
2347 2349 2368 2370 2389 2391 2412 2414 2430 2432 2450 2452 2473 2475
2546 2548 2628 2630 2649 2651 2669 2671 2688 2690 2710 2712 2731 2733
2755 2757 2776 2778 2796 2798 2815 2817 2835 2837 2855 2857 2880 2882
2903 2905 2926 2928 2953 2955 2973 2975 3001 3003 3027 3029 3048 3050
3072 3074 3092 3094 3113 3115 3134 3136 3160 3162 3278 3280 3375 3377
3503 3505 3611 3613 3665 3667 3723 3725 3783 3785 4122 4124 4295 4297
4390 4392 4426 4428 4480 4482 4534 4536 4597 4599 4659 4661 4728 4730
4796 4798 4860 4862 4929 4931 5330 5332 5375 5377 5397 5399 5419 5421
5724 5726 5745 5747 5768 5770 5790 5792 5814 5816 5834 5836 6451 6497
MOVEM 1153 1170 1172 1189 1191 1207 1209 1226 1228 1244 1246 1263 1265 1361
1363 1469 1471 1487 1489 1586 1588 1660 1662 1679 1681 1699 1701 1793
1795 1810 1812 1829 1831 1848 1850 1867 1869 1887 1889 1929 1931 1952 SEQ 0207
1954 1975 1977 1994 1996 2015 2017 2034 2036 2054 2056 2074 2076 2098
2100 2123 2125 2144 2146 2166 2168 2187 2189 2209 2211 2231 2233 2251
2253 2348 2350 2369 2371 2390 2392 2413 2415 2431 2433 2451 2453 2474
2476 2547 2549 2629 2631 2650 2652 2670 2672 2689 2691 2711 2713 2732
2734 2756 2758 2777 2779 2797 2799 2816 2818 2836 2838 2856 2858 2881
2883 2904 2906 2927 2929 2954 2956 2974 2976 3002 3004 3028 3030 3049
3051 3073 3075 3093 3095 3114 3116 3135 3137 3161 3163 3279 3281 3376
3378 3504 3506 3612 3614 3666 3668 3724 3726 3784 3786 4123 4125 4154
4168 4182 4196 4210 4224 4238 4252 4266 4280 4296 4298 4391 4393 4427
4429 4481 4483 4535 4537 4598 4600 4660 4662 4729 4731 4797 4799 4861
4863 4930 4932 5331 5333 5376 5378 5398 5400 5420 5422 5725 5727 5746
5748 5769 5771 5791 5793 5815 5817 5835 5837 6381 6382 6383 6396 6416
6498
MOVSI 1174 1175 1193 1194 1211 1212 1230 1231 1248 1249 1284 1285 1294 1295
1304 1305 1314 1315 1324 1325 1334 1335 1344 1345 1386 1387 1397 1398
1408 1409 1419 1420 1430 1431 1441 1442 1452 1453 1473 1474 1509 1510
1519 1520 1529 1530 1539 1540 1549 1550 1559 1560 1569 1570 1591 1592
1599 1600 1607 1608 1615 1616 1622 1623 1630 1631 1638 1639 1646 1647
1664 1665 1683 1684 1717 1718 1726 1727 1735 1736 1744 1745 1753 1754
1762 1763 1771 1772 1780 1781 1797 1798 1814 1815 1833 1834 1852 1853
1871 1872 1893 1902 1911 1933 1956 1957 1958 1979 1980 1998 1999 2000
2019 2020 2021 2038 2039 2040 2058 2059 2060 2078 2079 2080 2102 2103
2104 2108 2127 2128 2129 2148 2149 2150 2170 2171 2172 2191 2192 2193
2213 2214 2235 2236 2271 2272 2273 2281 2282 2283 2291 2292 2293 2301
2302 2303 2311 2312 2313 2321 2322 2323 2331 2332 2333 2352 2353 2354
2373 2374 2394 2396 2417 2418 2435 2436 2437 2455 2456 2457 2479 2480
2481 2488 2489 2490 2497 2498 2499 2506 2507 2508 2514 2515 2516 2523
2524 2525 2532 2533 2534 2551 2552 2553 2560 2561 2562 2569 2570 2571
2578 2579 2580 2586 2587 2588 2595 2596 2597 2604 2605 2606 2613 2614
2615 2633 2634 2635 2654 2655 2656 2674 2675 2693 2694 2695 2715 2716
2717 2736 2737 2738 2760 2761 2762 2781 2782 2783 2801 2802 2803 2820
2821 2822 2840 2841 2842 2860 2861 2862 2885 2888 2912 2931 2934 2958
2961 3006 3007 3008 3012 3032 3033 3034 3055 3056 3077 3078 3079 3097
3098 3118 3119 3120 3141 3142 3185 3186 3196 3197 3207 3208 3218 3219
3229 3230 3240 3241 3251 3252 3262 3263 3300 3301 3310 3311 3320 3321
3330 3331 3340 3341 3350 3351 3360 3361 3403 3404 3415 3416 3427 3428
3439 3440 3451 3452 3463 3464 3475 3476 3487 3488 3526 3527 3536 3537
3546 3547 3556 3557 3566 3567 3576 3577 3586 3587 3596 3597 3632 3641
3650 3688 3689 3698 3699 3708 3709 3746 3747 3756 3757 3766 3767 3803
3804 3812 3813 3821 3822 3830 3831 3839 3840 3848 3849 3857 3858 3866
3867 3875 3876 4319 4320 4321 4330 4331 4332 4341 4342 4343 4352 4353
4354 4363 4364 4365 4374 4375 4376 4395 4396 4397 4403 4404 4405 4411
4412 4413 4446 4447 4455 4456 4464 4465 4500 4501 4509 4510 4518 4519
4558 4559 4560 4569 4570 4571 4580 4581 4582 4621 4622 4623 4632 4633
4634 4643 4644 4645 4686 4687 4688 4698 4699 4700 4710 4711 4712 4755
4756 4757 4767 4768 4769 4779 4780 4781 4820 4821 4822 4831 4832 4833
4842 4843 4844 4887 4888 4889 4899 4900 4901 4911 4912 4913 4957 4958
4971 4972 4985 4986 4999 5000 5013 5014 5027 5028 5041 5042 5055 5056
5069 5070 5083 5084 5097 5098 5111 5112 5125 5126 5139 5140 5153 5154
5167 5168 5181 5182 5195 5196 5228 5229 5230 5242 5243 5244 5256 5257
5258 5270 5271 5272 5284 5285 5286 5298 5299 5300 5312 5313 5314 5337
5338 5339 5350 5351 5360 5361 5380 5381 5382 5402 5403 5404 5453 5469
5485 5501 5517 5533 5549 5565 5581 5597 5613 5629 5645 5661 5677 5693 SEQ 0208
5709 5750 5751 5752 5773 5774 5775 5795 5796 5797 5821 5841 5842 5856
5857 5872 5873 5887 5888 5909 5910 5931 5932 5945 5946 5960 5961 5975
5976 5990 5991 6006 6007 6021 6022 6037 6038 6059 6060 6080 6081 6095
6096 6109 6110 6124 6125 6140 6141 6155 6156 6177 6178 6199 6200 6213
6214 6228 6229 6243 6244 6258 6259 6274 6275 6289 6290 6305 6306 6327
6328 6348 6349 6363 6364
NOSYM 24
OPDEF 29 30 31 32 33 34 35 36 37 38 39 638 639 640
641 642 643 644 645 651 657 658 666 667 668 669 670 671
672 673 674 675 676 679 680 681 682 683 684 685 686 687
688 689 690 691 692 693 694 695 696 697 698 699 700 701
702 703 704 705 706 707 708 709 710 711 712 713 714 715
716 717 718 719 720 721 722 723 724 725 726 727 728 729
730 731 732 733 735 752 757 758 762 763 764 770 771 777
778 779 780 781 782 783 789 790 797 798 799 800 803
PAGE 1254 1459 1689 1918 2241 2661 3269 3494 3656 3882 4286 4471 4588 4718
4850 5205 5389 5717
POP 641
POPJ 639
PUSH 640
PUSHJ 638
REPEAT 1270 1370 1495 1705 2258 3169 3286 3385 3512 3619 3674 3732 3791 3885
4131 4304 4434 4488 4543 4606 4669 4738 4805 4870 4938 5209 5428
SETOM 6406 6504 6510
SETZ 2215 2395
SETZM 6390 6401
SIXBIT 85 86 1021 1022 1030 1031 1133 6410 6414 6425 6450 6530
SKIPE 1935 3634 3643 3652 4503 4512 4521 5895 5917 6047 6069 6163 6185 6315
6337
SKIPGE 6399
SKIPL 6402 6515
SKIPN 2677 3100 6404 6407 6511
SUBTTL 25 567 602 803 804 1156 1938 2867 2987 3148 6377 6532
TITLE 12
TLNE 5850 5864 5880 5903 5925 5940 5954 5984 6049 6071 6089 6104 6118 6132
6148 6171 6193 6208 6222 6252 6317 6339 6357 6372 6392 6435 6501 6505
TLNN 5866 5882 5897 5899 5919 5921 5968 5970 5998 6000 6014 6016 6029 6031
6045 6053 6067 6075 6134 6150 6165 6167 6187 6189 6236 6238 6266 6268
6282 6284 6297 6299 6313 6321 6335 6343 6503 6525
TLZN 1914 5364
TRNE 6455 6457 6459
VAR 6645
XALL 14
XCT 6492
XLIST 6 802 803 935 6418 6488 6536
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 1 SEQ 0209
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777
*030631 FSC 13,000007
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 570400 000000 E= 000000 000007
FINAL
C(AC)= 561400 000000
----------
*030643 FSC 12,000000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000400 000000 E= 000000 000000
FINAL
C(AC)= 000400 000000
----------
*030655 FSC 11,000000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 175400 000000 E= 000000 000000
FINAL
C(AC)= 175400 000000
----------
*030667 FSC 10,000000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000400 000000 E= 000000 000000
FINAL
C(AC)= 000400 000000
----------
*030701 FSC 7,000177
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000400 000000 E= 000000 000177
FINAL
C(AC)= 177400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 2
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0210
*030713 FSC 6,000201
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000400 000000 E= 000000 000201
FINAL
C(AC)= 201400 000000
----------
*030721 FSC 6,000202
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000400 000000 E= 000000 000202
FINAL
C(AC)= 202400 000000
----------
*030727 FSC 6,000204
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000400 000000 E= 000000 000204
FINAL
C(AC)= 204400 000000
----------
*030735 FSC 6,000210
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000400 000000 E= 000000 000210
FINAL
C(AC)= 210400 000000
----------
*030743 FSC 6,000220
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000400 000000 E= 000000 000220
FINAL
C(AC)= 220400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 3
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0211
*030751 FSC 6,000240
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000400 000000 E= 000000 000240
FINAL
C(AC)= 240400 000000
----------
*030757 FSC 6,000300
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000400 000000 E= 000000 000300
FINAL
C(AC)= 300400 000000
----------
*030771 FSC 5,000375
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 001400 000000 E= 000000 000375
FINAL
C(AC)= 376400 000000
----------
*030777 FSC 5,000773
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 002400 000000 E= 000000 000773
FINAL
C(AC)= 375400 000000
----------
*031005 FSC 5,001767
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 004400 000000 E= 000000 001767
FINAL
C(AC)= 373400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 4
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0212
*031013 FSC 5,003757
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 010400 000000 E= 000000 003757
FINAL
C(AC)= 367400 000000
----------
*031021 FSC 5,007737
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 020400 000000 E= 000000 007737
FINAL
C(AC)= 357400 000000
----------
*031027 FSC 5,017677
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 040400 000000 E= 000000 017677
FINAL
C(AC)= 337400 000000
----------
*031035 FSC 5,037577
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 100400 000000 E= 000000 037577
FINAL
C(AC)= 277400 000000
----------
*031047 FSC 14,000005
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200400 000000 E= 000000 000005
FINAL
C(AC)= 205400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 5
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0213
*031061 FSC 14,000000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 201400 000000 E= 000000 000000
FINAL
C(AC)= 201400 000000
----------
*031067 FSC 14,000000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 202400 000000 E= 000000 000000
FINAL
C(AC)= 202400 000000
----------
*031075 FSC 14,000000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 204400 000000 E= 000000 000000
FINAL
C(AC)= 204400 000000
----------
*031103 FSC 14,000000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 210400 000000 E= 000000 000000
FINAL
C(AC)= 210400 000000
----------
*031111 FSC 14,000000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 220400 000000 E= 000000 000000
FINAL
C(AC)= 220400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 6
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0214
*031117 FSC 14,000000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 240400 000000 E= 000000 000000
FINAL
C(AC)= 240400 000000
----------
*031125 FSC 14,000000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 300400 000000 E= 000000 000000
FINAL
C(AC)= 300400 000000
----------
*031137 FSC 13,000001
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 376400 000000 E= 000000 000001
FINAL
C(AC)= 377400 000000
----------
*031145 FSC 13,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 375400 000000 E= 000000 000002
FINAL
C(AC)= 377400 000000
----------
*031153 FSC 13,000004
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 373400 000000 E= 000000 000004
FINAL
C(AC)= 377400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 7
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0215
*031161 FSC 13,000010
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 367400 000000 E= 000000 000010
FINAL
C(AC)= 377400 000000
----------
*031167 FSC 13,000020
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 357400 000000 E= 000000 000020
FINAL
C(AC)= 377400 000000
----------
*031175 FSC 13,000040
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 337400 000000 E= 000000 000040
FINAL
C(AC)= 377400 000000
----------
*031203 FSC 13,000100
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 277400 000000 E= 000000 000100
FINAL
C(AC)= 377400 000000
----------
*031211 FSC 13,000200
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 177400 000000 E= 000000 000200
FINAL
C(AC)= 377400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 8
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0216
*031223 FSC 12,000001
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 577200 000000 E= 000000 000001
FINAL
C(AC)= 576200 000000
----------
*031235 FSC 11,000000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 577200 000000 E= 000000 000000
FINAL
C(AC)= 577200 000000
----------
*031247 FSC 10,000000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 776200 000000 E= 000000 000000
FINAL
C(AC)= 776200 000000
----------
*031255 FSC 10,000000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 775200 000000 E= 000000 000000
FINAL
C(AC)= 775200 000000
----------
*031263 FSC 10,000000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 773200 000000 E= 000000 000000
FINAL
C(AC)= 773200 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 9
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0217
*031271 FSC 10,000000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 767200 000000 E= 000000 000000
FINAL
C(AC)= 767200 000000
----------
*031277 FSC 10,000000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 757200 000000 E= 000000 000000
FINAL
C(AC)= 757200 000000
----------
*031305 FSC 10,000000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 737200 000000 E= 000000 000000
FINAL
C(AC)= 737200 000000
----------
*031313 FSC 10,000000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 677200 000000 E= 000000 000000
FINAL
C(AC)= 677200 000000
----------
*031321 FSC 10,000000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 577200 000000 E= 000000 000000
FINAL
C(AC)= 577200 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 10
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0218
*031333 FSC 7,000000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 206200 000000 E= 000000 000000
FINAL
C(AC)= 205400 000000
----------
*031345 FSC 6,000000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 577600 000000 E= 000000 000000
FINAL
C(AC)= 600400 000000
----------
*031357 FSC 5,000000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 206200 000000 E= 000000 000000
FINAL
C(AC)= 205400 000000
----------
*031371 FSC 14,000000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 206200 000000 E= 000000 000000
FINAL
C(AC)= 205400 000000
----------
*031403 FSC 14,000000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200200 000000 E= 000000 000000
FINAL
C(AC)= 177400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 11
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0219
*031415 FSC 13,000001
FLAGS - INT/FINAL 000000 440200
INITIAL
C(AC)= 377400 000000 E= 000000 000001
FINAL
C(AC)= 000400 000000
----------
*031424 FSC 13,000001
FLAGS - INT/FINAL 000200 440200
INITIAL
C(AC)= 377400 000000 E= 000000 000001
FINAL
C(AC)= 000400 000000
----------
*031433 FSC 13,777777
FLAGS - INT/FINAL 000000 440300
INITIAL
C(AC)= 777200 000000 E= 000000 777777
FINAL
C(AC)= 400200 000000
----------
*031446 FSC 12,000401
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 377000 000000 E= 000000 000401
FINAL
C(AC)= 000000 000000
----------
*031461 FAD 14,000015
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 000600 000000 C(E)= 000400 000000
FINAL
C(AC)= 001500 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 12
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0220
*031473 FAD 13,000014
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 000600 000000 C(E)= 000400 000000
FINAL
C(AC)= 001500 000000
----------
*031506 FAD 12,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 000600 000000 C(E)= 000400 000000
FINAL
C(AC)= 001500 000000
----------
*031521 FAD 11,000012
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 000600 000000 C(E)= 000400 000000
FINAL
C(AC)= 001500 000000
----------
*031534 FAD 10,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 000600 000000 C(E)= 000400 000000
FINAL
C(AC)= 001500 000000
----------
*031547 FAD 7,000010
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 000600 000000 C(E)= 000400 000000
FINAL
C(AC)= 001500 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 13
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0221
*031562 FAD 14,000015
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 377000 000000 C(E)= 377600 000000
FINAL
C(AC)= 377600 000000
----------
*031575 FAD 14,000015
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 600400 000000 C(E)= 177400 000000
FINAL
C(AC)= 000000 000000
----------
*031613 FAD 10,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200400 000000 C(E)= 205400 000000
FINAL
C(AC)= 205410 000000
----------
*031626 FAD 12,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200400 000000 C(E)= 205600 000000
FINAL
C(AC)= 205610 000000
----------
*031641 FAD 11,000012
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200400 000000 C(E)= 205600 000000
FINAL
C(AC)= 205610 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 14
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0222
*031654 FAD 5,000006
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 000600 000000 C(E)= 200400 000000
FINAL
C(AC)= 200400 000000
----------
*031667 FAD 14,000015
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200700 000000 C(E)= 000000 000000
FINAL
C(AC)= 200700 000000
----------
*031701 FAD 14,000015
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200400 000000 C(E)= 205400 000000
FINAL
C(AC)= 205410 000000
----------
*031714 FAD 13,000014
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 201400 000000 C(E)= 200400 000000
FINAL
C(AC)= 201600 000000
----------
*031723 FAD 13,000014
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 202400 000000 C(E)= 200400 000000
FINAL
C(AC)= 202500 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 15
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0223
*031732 FAD 13,000014
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 204400 000000 C(E)= 200400 000000
FINAL
C(AC)= 204420 000000
----------
*031741 FAD 13,000014
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 210400 000000 C(E)= 200400 000000
FINAL
C(AC)= 210401 000000
----------
*031750 FAD 13,000014
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 220400 000000 C(E)= 200400 000000
FINAL
C(AC)= 220400 002000
----------
*031757 FAD 13,000014
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 240400 000000 C(E)= 200400 000000
FINAL
C(AC)= 240400 000000
----------
*031766 FAD 13,000014
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 300400 000000 C(E)= 200400 000000
FINAL
C(AC)= 300400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 16
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0224
*032001 FAD 12,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200400 000000 C(E)= 205400 000000
FINAL
C(AC)= 205410 000000
----------
*032013 FAD 11,000012
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 600400 000000 C(E)= 600400 000000
FINAL
C(AC)= 577400 000000
----------
*032026 FAD 7,000010
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 000000 000000 C(E)= 205400 000000
FINAL
C(AC)= 205400 000000
----------
*032040 FAD 6,000007
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200400 000000 C(E)= 200400 000000
FINAL
C(AC)= 201400 000000
----------
*032053 FAD 5,000006
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 577400 000000 C(E)= 577400 000000
FINAL
C(AC)= 576400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 17
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0225
*032066 FAD 13,000014
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 205600 000000 C(E)= 177400 000000
FINAL
C(AC)= 205604 000000
----------
*032101 FAD 10,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 201000 000000 C(E)= 202000 000000
FINAL
C(AC)= 000000 000000
----------
*032110 FAD 10,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 202000 000000 C(E)= 204000 000000
FINAL
C(AC)= 000000 000000
----------
*032117 FAD 10,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 204000 000000 C(E)= 207000 000000
FINAL
C(AC)= 000000 000000
----------
*032126 FAD 10,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 210000 000000 C(E)= 214000 000000
FINAL
C(AC)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 18
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0226
*032135 FAD 10,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 220000 000000 C(E)= 225000 000000
FINAL
C(AC)= 000000 000000
----------
*032144 FAD 10,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 240000 000000 C(E)= 246000 000000
FINAL
C(AC)= 000000 000000
----------
*032153 FAD 10,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 300000 000000 C(E)= 307000 000000
FINAL
C(AC)= 000000 000000
----------
*032166 FAD 7,000010
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 C(E)= 600400 000000
FINAL
C(AC)= 600400 000000
----------
*032175 FAD 7,000010
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 201000 000000 C(E)= 600400 000000
FINAL
C(AC)= 600400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 19
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0227
*032204 FAD 7,000010
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 202000 000000 C(E)= 600400 000000
FINAL
C(AC)= 600400 000000
----------
*032213 FAD 7,000010
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 203000 000000 C(E)= 600400 000000
FINAL
C(AC)= 600400 000000
----------
*032222 FAD 7,000010
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 204000 000000 C(E)= 600400 000000
FINAL
C(AC)= 600400 000000
----------
*032231 FAD 7,000010
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 205000 000000 C(E)= 600400 000000
FINAL
C(AC)= 600400 000000
----------
*032240 FAD 7,000010
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 206000 000000 C(E)= 600400 000000
FINAL
C(AC)= 600400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 20
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0228
*032247 FAD 7,000010
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 207000 000000 C(E)= 600400 000000
FINAL
C(AC)= 600400 000000
----------
*032262 FAD 6,000007
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 400200 000000 C(E)= 377400 000000
FINAL
C(AC)= 401400 000000
----------
*032275 FAD 5,000006
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 377400 000000 C(E)= 400200 000000
FINAL
C(AC)= 401400 000000
----------
*032307 FAD 14,000015
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200400 000000 C(E)= 600400 000000
FINAL
C(AC)= 177400 000000
----------
*032322 FAD 14,000015
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200600 000000 C(E)= 201400 000000
FINAL
C(AC)= 201700 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 21
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0229
*032335 FAD 13,000014
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 577600 000000 C(E)= 200400 000000
FINAL
C(AC)= 177400 000000
----------
*032350 FAD 12,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 600400 000000 C(E)= 577200 000000
FINAL
C(AC)= 576400 000000
----------
*032363 FAD 11,000012
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 600400 000000 C(E)= 577200 000000
FINAL
C(AC)= 576400 000000
----------
*032376 FAD 10,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 600400 000000 C(E)= 577200 000000
FINAL
C(AC)= 576400 000000
----------
*032411 FAD 10,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 201400 000000 C(E)= 200400 000000
FINAL
C(AC)= 201600 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 22
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0230
*032424 FAD 7,000010
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 576400 000000 C(E)= 200400 000000
FINAL
C(AC)= 577400 000000
----------
*032437 FAD 10,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200440 000000 C(E)= 200400 000000
FINAL
C(AC)= 201420 000000
----------
*032452 FAD 7,000010
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 577400 000000 C(E)= 577400 000000
FINAL
C(AC)= 576400 000000
----------
*032466 FADR 14,000015
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200400 000077 C(E)= 206400 000000
FINAL
C(AC)= 206404 000001
----------
*032503 FADR 14,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200400 000077 C(E)= 206400 000000
FINAL
C(AC)= 206404 000001
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 23
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0231
*032517 FADR 13,000014
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200400 000003 C(E)= 202400 000000
FINAL
C(AC)= 202500 000001
----------
*032533 FADR 12,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200400 777777 C(E)= 202400 000000
FINAL
C(AC)= 202500 200000
----------
*032545 FADR 10,036650
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 000777 777777 C(E)= 033777 777777
FINAL
C(AC)= 034400 000000
----------
*032560 FSB 7,000010
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 205400 000000 C(E)= 177400 000000
FINAL
C(AC)= 204770 000000
----------
*032576 FSB 14,000015
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200400 000000 C(E)= 177400 000000
FINAL
C(AC)= 177400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 24
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0232
*032612 FSB 14,000015
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200400 000000 C(E)= 177400 000000
FINAL
C(AC)= 177400 000000
----------
*032625 FSB 13,000014
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200400 000000 C(E)= 177400 000000
FINAL
C(AC)= 177400 000000
----------
*032637 FSB 12,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200400 000000 C(E)= 177400 000000
FINAL
C(AC)= 177400 000000
----------
*032652 FSB 11,000012
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200400 000000 C(E)= 200400 000000
FINAL
C(AC)= 000000 000000
----------
*032666 FSB 10,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200400 000000 C(E)= 177400 000000
FINAL
C(AC)= 177400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 25
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0233
*032700 FSC 14,000001
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 000400 000000 E= 000000 000001
FINAL
C(AC)= 001400 000000
----------
*032706 FSC 14,000002
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 000400 000000 E= 000000 000002
FINAL
C(AC)= 002400 000000
----------
*032714 FSC 14,000004
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 000400 000000 E= 000000 000004
FINAL
C(AC)= 004400 000000
----------
*032722 FSC 14,000010
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 000400 000000 E= 000000 000010
FINAL
C(AC)= 010400 000000
----------
*032730 FSC 14,000020
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 000400 000000 E= 000000 000020
FINAL
C(AC)= 020400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 26
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0234
*032736 FSC 14,000040
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 000400 000000 E= 000000 000040
FINAL
C(AC)= 040400 000000
----------
*032744 FSC 14,000100
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 000400 000000 E= 000000 000100
FINAL
C(AC)= 100400 000000
----------
*032752 FSC 14,000200
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 000400 000000 E= 000000 000200
FINAL
C(AC)= 200400 000000
----------
*032764 FSC 14,000001
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 201400 000000 E= 000000 000001
FINAL
C(AC)= 202400 000000
----------
*032772 FSC 14,000001
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 202400 000000 E= 000000 000001
FINAL
C(AC)= 203400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 27
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0235
*033000 FSC 14,000001
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 204400 000000 E= 000000 000001
FINAL
C(AC)= 205400 000000
----------
*033006 FSC 14,000001
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 210400 000000 E= 000000 000001
FINAL
C(AC)= 211400 000000
----------
*033014 FSC 14,000001
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 220400 000000 E= 000000 000001
FINAL
C(AC)= 221400 000000
----------
*033022 FSC 14,000001
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 240400 000000 E= 000000 000001
FINAL
C(AC)= 241400 000000
----------
*033030 FSC 14,000001
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 300400 000000 E= 000000 000001
FINAL
C(AC)= 301400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 28
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0236
*033042 FSC 13,000001
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 777400 000000 E= 000000 000001
FINAL
C(AC)= 776400 000000
----------
*033050 FSC 13,000002
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 777400 000000 E= 000000 000002
FINAL
C(AC)= 775400 000000
----------
*033056 FSC 13,000004
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 777400 000000 E= 000000 000004
FINAL
C(AC)= 773400 000000
----------
*033064 FSC 13,000010
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 777400 000000 E= 000000 000010
FINAL
C(AC)= 767400 000000
----------
*033072 FSC 13,000020
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 777400 000000 E= 000000 000020
FINAL
C(AC)= 757400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 29
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0237
*033100 FSC 13,000040
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 777400 000000 E= 000000 000040
FINAL
C(AC)= 737400 000000
----------
*033106 FSC 13,000100
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 777400 000000 E= 000000 000100
FINAL
C(AC)= 677400 000000
----------
*033114 FSC 13,000200
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 777400 000000 E= 000000 000200
FINAL
C(AC)= 577400 000000
----------
*033126 FSC 12,777777
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 577400 000000 E= 000000 777777
FINAL
C(AC)= 600400 000000
----------
*033134 FSC 12,777776
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 577400 000000 E= 000000 777776
FINAL
C(AC)= 601400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 30
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0238
*033142 FSC 12,777775
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 577400 000000 E= 000000 777775
FINAL
C(AC)= 602400 000000
----------
*033150 FSC 12,777774
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 577400 000000 E= 000000 777774
FINAL
C(AC)= 603400 000000
----------
*033156 FSC 12,777773
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 577400 000000 E= 000000 777773
FINAL
C(AC)= 604400 000000
----------
*033164 FSC 12,777772
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 577400 000000 E= 000000 777772
FINAL
C(AC)= 605400 000000
----------
*033172 FSC 12,777771
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 577400 000000 E= 000000 777771
FINAL
C(AC)= 606400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 31
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0239
*033200 FSC 12,777770
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 577400 000000 E= 000000 777770
FINAL
C(AC)= 607400 000000
----------
*033211 FSC 11,000001
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 E= 000000 000001
FINAL
C(AC)= 000000 000000
----------
*033216 FSC 11,000002
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 E= 000000 000002
FINAL
C(AC)= 000000 000000
----------
*033223 FSC 11,000004
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 E= 000000 000004
FINAL
C(AC)= 000000 000000
----------
*033235 FSC 10,000001
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 577000 000000 E= 000000 000001
FINAL
C(AC)= 575400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 32
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0240
*033243 FSC 10,000002
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 577000 000000 E= 000000 000002
FINAL
C(AC)= 574400 000000
----------
*033251 FSC 10,000003
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 577000 000000 E= 000000 000003
FINAL
C(AC)= 573400 000000
----------
*033263 FSC 7,000001
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200200 000000 E= 000000 000001
FINAL
C(AC)= 200400 000000
----------
*033271 FSC 7,000002
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200200 000000 E= 000000 000002
FINAL
C(AC)= 201400 000000
----------
*033277 FSC 7,000003
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200200 000000 E= 000000 000003
FINAL
C(AC)= 202400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 33
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0241
*033311 FSC 6,000000
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 400400 000000 E= 000000 000000
FINAL
C(AC)= 400400 000000
----------
*033317 FSC 6,000000
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 400200 000000 E= 000000 000000
FINAL
C(AC)= 400200 000000
----------
*033325 FSC 6,000000
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 400100 000000 E= 000000 000000
FINAL
C(AC)= 400100 000000
----------
*033333 FSC 6,000000
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 400040 000000 E= 000000 000000
FINAL
C(AC)= 400040 000000
----------
*033341 FSC 6,000000
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 400020 000000 E= 000000 000000
FINAL
C(AC)= 400020 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 34
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0242
*033347 FSC 6,000000
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 400010 000000 E= 000000 000000
FINAL
C(AC)= 400010 000000
----------
*033355 FSC 6,000000
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 400004 000000 E= 000000 000000
FINAL
C(AC)= 400004 000000
----------
*033363 FSC 6,000000
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 400002 000000 E= 000000 000000
FINAL
C(AC)= 400002 000000
----------
*033371 FSC 6,000000
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 400001 000000 E= 000000 000000
FINAL
C(AC)= 400001 000000
----------
*033401 FSC 6,000000
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 400000 400000 E= 000000 000000
FINAL
C(AC)= 400000 400000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 35
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0243
*033411 FSC 6,000000
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 400000 200000 E= 000000 000000
FINAL
C(AC)= 400000 200000
----------
*033421 FSC 6,000000
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 400000 100000 E= 000000 000000
FINAL
C(AC)= 400000 100000
----------
*033431 FSC 6,000000
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 400000 040000 E= 000000 000000
FINAL
C(AC)= 400000 040000
----------
*033441 FSC 6,000000
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 400000 020000 E= 000000 000000
FINAL
C(AC)= 400000 020000
----------
*033451 FSC 6,000000
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 400000 010000 E= 000000 000000
FINAL
C(AC)= 400000 010000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 36
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0244
*033461 FSC 6,000000
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 400000 004000 E= 000000 000000
FINAL
C(AC)= 400000 004000
----------
*033471 FSC 6,000000
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 400000 002000 E= 000000 000000
FINAL
C(AC)= 400000 002000
----------
*033501 FSC 6,000000
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 400000 001000 E= 000000 000000
FINAL
C(AC)= 400000 001000
----------
*033511 FSC 6,000000
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 400000 000400 E= 000000 000000
FINAL
C(AC)= 400000 000400
----------
*033521 FSC 6,000000
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 400000 000200 E= 000000 000000
FINAL
C(AC)= 400000 000200
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 37
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0245
*033531 FSC 6,000000
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 400000 000100 E= 000000 000000
FINAL
C(AC)= 400000 000100
----------
*033541 FSC 6,000000
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 400000 000040 E= 000000 000000
FINAL
C(AC)= 400000 000040
----------
*033551 FSC 6,000000
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 400000 000020 E= 000000 000000
FINAL
C(AC)= 400000 000020
----------
*033561 FSC 6,000000
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 400000 000010 E= 000000 000000
FINAL
C(AC)= 400000 000010
----------
*033571 FSC 6,000000
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 400000 000004 E= 000000 000000
FINAL
C(AC)= 400000 000004
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 38
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0246
*033601 FSC 6,000000
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 400000 000002 E= 000000 000000
FINAL
C(AC)= 400000 000002
----------
*033611 FSC 6,000000
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 400000 000001 E= 000000 000000
FINAL
C(AC)= 400000 000001
----------
*033626 FAD 14,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200200 000001 C(E)= 200200 000001
FINAL
C(AC)= 200400 000002
----------
*033637 FAD 14,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200200 000002 C(E)= 200200 000002
FINAL
C(AC)= 200400 000004
----------
*033650 FAD 14,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200200 000004 C(E)= 200200 000004
FINAL
C(AC)= 200400 000010
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 39
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0247
*033661 FAD 14,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200200 000010 C(E)= 200200 000010
FINAL
C(AC)= 200400 000020
----------
*033672 FAD 14,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200200 000020 C(E)= 200200 000020
FINAL
C(AC)= 200400 000040
----------
*033703 FAD 14,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200200 000040 C(E)= 200200 000040
FINAL
C(AC)= 200400 000100
----------
*033714 FAD 14,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200200 000100 C(E)= 200200 000100
FINAL
C(AC)= 200400 000200
----------
*033725 FAD 14,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200200 000200 C(E)= 200200 000200
FINAL
C(AC)= 200400 000400
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 40
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0248
*033736 FAD 14,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200200 000400 C(E)= 200200 000400
FINAL
C(AC)= 200400 001000
----------
*033747 FAD 14,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200200 001000 C(E)= 200200 001000
FINAL
C(AC)= 200400 002000
----------
*033762 FAD 14,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 172400 000000 C(E)= 201400 000000
FINAL
C(AC)= 201402 000000
----------
*033771 FAD 14,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 173400 000000 C(E)= 201400 000000
FINAL
C(AC)= 201404 000000
----------
*034000 FAD 14,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 174400 000000 C(E)= 201400 000000
FINAL
C(AC)= 201410 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 41
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0249
*034007 FAD 14,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 175400 000000 C(E)= 201400 000000
FINAL
C(AC)= 201420 000000
----------
*034016 FAD 14,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 176400 000000 C(E)= 201400 000000
FINAL
C(AC)= 201440 000000
----------
*034025 FAD 14,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 177400 000000 C(E)= 201400 000000
FINAL
C(AC)= 201500 000000
----------
*034040 FAD 13,000012
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 202600 000000 C(E)= 200400 000000
FINAL
C(AC)= 202700 000000
----------
*034047 FAD 13,000012
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 202400 000000 C(E)= 200400 000000
FINAL
C(AC)= 202500 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 42
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0250
*034056 FAD 13,000012
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 201400 000000 C(E)= 200400 000000
FINAL
C(AC)= 201600 000000
----------
*034070 FAD 12,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 000400 000000 C(E)= 200400 000000
FINAL
C(AC)= 200400 000000
----------
*034076 FAD 12,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 000400 000000 C(E)= 201400 000000
FINAL
C(AC)= 201400 000000
----------
*034104 FAD 12,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 000400 000000 C(E)= 202400 000000
FINAL
C(AC)= 202400 000000
----------
*034116 FAD 11,000010
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 C(E)= 201000 000000
FINAL
C(AC)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 43
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0251
*034124 FAD 11,000010
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 C(E)= 202000 000000
FINAL
C(AC)= 000000 000000
----------
*034132 FAD 11,000010
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 C(E)= 203000 000000
FINAL
C(AC)= 000000 000000
----------
*034145 FAD 10,000007
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200400 000000 C(E)= 200400 000000
FINAL
C(AC)= 201400 000000
----------
*034154 FAD 10,000007
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 201400 000000 C(E)= 201400 000000
FINAL
C(AC)= 202400 000000
----------
*034163 FAD 10,000007
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 202400 000000 C(E)= 202400 000000
FINAL
C(AC)= 203400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 44
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0252
*034176 FAD 7,000006
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200100 000000 C(E)= 200100 000000
FINAL
C(AC)= 177400 000000
----------
*034205 FAD 7,000006
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200040 000000 C(E)= 200040 000000
FINAL
C(AC)= 176400 000000
----------
*034214 FAD 7,000006
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200020 000000 C(E)= 200020 000000
FINAL
C(AC)= 175400 000000
----------
*034227 FAD 6,000005
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 577400 000000 C(E)= 576400 000000
FINAL
C(AC)= 576200 000000
----------
*034236 FAD 6,000005
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 600400 000000 C(E)= 576400 000000
FINAL
C(AC)= 576300 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 45
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0253
*034245 FAD 6,000005
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 601400 000000 C(E)= 576400 000000
FINAL
C(AC)= 576340 000000
----------
*034260 FAD 14,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 576400 000000 C(E)= 577400 000000
FINAL
C(AC)= 576200 000000
----------
*034267 FAD 14,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 576400 000000 C(E)= 600400 000000
FINAL
C(AC)= 576300 000000
----------
*034276 FAD 14,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 576400 000000 C(E)= 601400 000000
FINAL
C(AC)= 576340 000000
----------
*034311 FAD 14,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 577400 000000 C(E)= 577400 000000
FINAL
C(AC)= 576400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 46
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0254
*034320 FAD 14,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 600400 000000 C(E)= 600400 000000
FINAL
C(AC)= 577400 000000
----------
*034327 FAD 14,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 601400 000000 C(E)= 601400 000000
FINAL
C(AC)= 600400 000000
----------
*034342 FAD 13,000012
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 201400 000000 C(E)= 577400 000000
FINAL
C(AC)= 200400 000000
----------
*034351 FAD 13,000012
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 201400 000000 C(E)= 600400 000000
FINAL
C(AC)= 200600 000000
----------
*034360 FAD 13,000012
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 201400 000000 C(E)= 601400 000000
FINAL
C(AC)= 200700 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 47
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0255
*034373 FAD 12,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 C(E)= 200000 000001
FINAL
C(AC)= 146400 000000
----------
*034404 FAD 12,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 C(E)= 200000 000002
FINAL
C(AC)= 147400 000000
----------
*034415 FAD 12,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 C(E)= 200000 000004
FINAL
C(AC)= 150400 000000
----------
*034426 FAD 12,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 C(E)= 200000 000010
FINAL
C(AC)= 151400 000000
----------
*034437 FAD 12,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 C(E)= 200000 000020
FINAL
C(AC)= 152400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 48
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0256
*034450 FAD 12,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 C(E)= 200000 000040
FINAL
C(AC)= 153400 000000
----------
*034461 FAD 12,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 C(E)= 200000 000100
FINAL
C(AC)= 154400 000000
----------
*034472 FAD 12,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 C(E)= 200000 000200
FINAL
C(AC)= 155400 000000
----------
*034503 FAD 12,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 C(E)= 200000 000400
FINAL
C(AC)= 156400 000000
----------
*034514 FAD 12,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 C(E)= 200000 001000
FINAL
C(AC)= 157400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 49
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0257
*034525 FAD 12,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 C(E)= 200000 002000
FINAL
C(AC)= 160400 000000
----------
*034536 FAD 12,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 C(E)= 200000 004000
FINAL
C(AC)= 161400 000000
----------
*034547 FAD 12,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 C(E)= 200000 010000
FINAL
C(AC)= 162400 000000
----------
*034560 FAD 12,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 C(E)= 200000 020000
FINAL
C(AC)= 163400 000000
----------
*034571 FAD 12,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 C(E)= 200000 040000
FINAL
C(AC)= 164400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 50
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0258
*034602 FAD 12,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 C(E)= 200000 100000
FINAL
C(AC)= 165400 000000
----------
*034613 FAD 12,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 C(E)= 200000 200000
FINAL
C(AC)= 166400 000000
----------
*034624 FAD 12,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 C(E)= 200000 400000
FINAL
C(AC)= 167400 000000
----------
*034635 FAD 12,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 C(E)= 200001 000000
FINAL
C(AC)= 170400 000000
----------
*034646 FAD 12,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 C(E)= 200002 000000
FINAL
C(AC)= 171400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 51
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0259
*034657 FAD 12,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 C(E)= 200004 000000
FINAL
C(AC)= 172400 000000
----------
*034670 FAD 12,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 C(E)= 200010 000000
FINAL
C(AC)= 173400 000000
----------
*034701 FAD 12,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 C(E)= 200020 000000
FINAL
C(AC)= 174400 000000
----------
*034712 FAD 12,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 C(E)= 200040 000000
FINAL
C(AC)= 175400 000000
----------
*034723 FAD 12,000011
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000000 C(E)= 200100 000000
FINAL
C(AC)= 176400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 52
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0260
*034741 FAD 11,000010
FLAGS - INT/FINAL 040200 440200
INITIAL
C(AC)= 377400 000000 C(E)= 377400 000000
FINAL
C(AC)= 000400 000000
----------
*034753 FAD 11,000010
FLAGS - INT/FINAL 000200 440200
INITIAL
C(AC)= 377400 000000 C(E)= 377400 000000
FINAL
C(AC)= 000400 000000
----------
*034763 FAD 11,000010
FLAGS - INT/FINAL 000000 440300
INITIAL
C(AC)= 777700 000000 C(E)= 777700 000000
FINAL
C(AC)= 400400 000000
----------
*035000 FADM 14,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200400 000000 C(E)= 201400 000000
FINAL
C(E)= 201600 000000
----------
*035015 FADB 14,000013
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200400 000000 C(E)= 201400 000000
FINAL
C(AC)= 201600 000000 C(E)= 201600 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 53
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0261
*035035 FADR 13,000012
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000003 C(E)= 202400 000000
FINAL
C(AC)= 202400 000001
----------
*035051 FADR 13,000012
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000005 C(E)= 203400 000000
FINAL
C(AC)= 203400 000001
----------
*035065 FADR 13,000012
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000011 C(E)= 204400 000000
FINAL
C(AC)= 204400 000001
----------
*035101 FADR 13,000012
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000021 C(E)= 205400 000000
FINAL
C(AC)= 205400 000001
----------
*035115 FADR 13,000012
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000041 C(E)= 206400 000000
FINAL
C(AC)= 206400 000001
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 54
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0262
*035131 FADR 13,000012
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000101 C(E)= 207400 000000
FINAL
C(AC)= 207400 000001
----------
*035145 FADR 13,000012
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000201 C(E)= 210400 000000
FINAL
C(AC)= 210400 000001
----------
*035161 FADR 13,000012
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 000401 C(E)= 211400 000000
FINAL
C(AC)= 211400 000001
----------
*035175 FADR 13,000012
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 001001 C(E)= 212400 000000
FINAL
C(AC)= 212400 000001
----------
*035211 FADR 13,000012
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 002001 C(E)= 213400 000000
FINAL
C(AC)= 213400 000001
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 55
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0263
*035225 FADR 13,000012
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 004001 C(E)= 214400 000000
FINAL
C(AC)= 214400 000001
----------
*035241 FADR 13,000012
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 010001 C(E)= 215400 000000
FINAL
C(AC)= 215400 000001
----------
*035255 FADR 13,000012
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 020001 C(E)= 216400 000000
FINAL
C(AC)= 216400 000001
----------
*035271 FADR 13,000012
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 040001 C(E)= 217400 000000
FINAL
C(AC)= 217400 000001
----------
*035305 FADR 13,000012
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 100001 C(E)= 220400 000000
FINAL
C(AC)= 220400 000001
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 56
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0264
*035321 FADR 13,000012
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 200001 C(E)= 221400 000000
FINAL
C(AC)= 221400 000001
----------
*035335 FADR 13,000012
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200000 400001 C(E)= 222400 000000
FINAL
C(AC)= 222400 000001
----------
*035353 FADRI 12,202400
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 200400 000003 E= 000000 202400
FINAL
C(AC)= 202500 000001
----------
*035366 FSB 11,000010
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 201400 000000 C(E)= 177400 000000
FINAL
C(AC)= 200600 000000
----------
*035403 FSBM 10,000007
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 576400 000000 C(E)= 600400 000000
FINAL
C(E)= 577200 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 57
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0265
*035420 FSBB 7,000006
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 201400 000000 C(E)= 577400 000000
FINAL
C(AC)= 201600 000000 C(E)= 201600 000000
----------
*035437 FSBRB 6,000005
FLAGS - INT/FINAL 440200 440200
INITIAL
C(AC)= 203400 000000 C(E)= 200477 777775
FINAL
C(AC)= 202660 000001 C(E)= 202660 000001
----------
*035455 FSC 4,000000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 377400 000000 E= 000000 000000
FINAL
C(AC)= 377400 000000
----------
*035473 FSC 4,000001
FLAGS - INT/FINAL 000000 440200
INITIAL
C(AC)= 377400 000000 E= 000000 000001
FINAL
C(AC)= 000400 000000
----------
*035512 FSC 4,000200
FLAGS - INT/FINAL 000000 440200
INITIAL
C(AC)= 377400 000000 E= 000000 000200
FINAL
C(AC)= 177400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 58
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0266
*035531 FSC 4,000201
FLAGS - INT/FINAL 000000 440300
INITIAL
C(AC)= 377400 000000 E= 000000 000201
FINAL
C(AC)= 200400 000000
----------
*035556 FSC 4,000377
FLAGS - INT/FINAL 000000 440300
INITIAL
C(AC)= 377400 000000 E= 000000 000377
FINAL
C(AC)= 376400 000000
----------
*035603 FSC 4,000400
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 377400 000000 E= 000000 000400
FINAL
C(AC)= 377400 000000
----------
*035621 FSC 4,777401
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 377400 000000 E= 000000 777401
FINAL
C(AC)= 000400 000000
----------
*035637 FSC 4,777400
FLAGS - INT/FINAL 000000 440300
INITIAL
C(AC)= 377400 000000 E= 000000 777400
FINAL
C(AC)= 377400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 59
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0267
*035656 FSC 4,000000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000400 000000 E= 000000 000000
FINAL
C(AC)= 000400 000000
----------
*035674 FSC 4,777777
FLAGS - INT/FINAL 000000 440300
INITIAL
C(AC)= 000400 000000 E= 000000 777777
FINAL
C(AC)= 377400 000000
----------
*035713 FSC 4,777601
FLAGS - INT/FINAL 000000 440300
INITIAL
C(AC)= 000400 000000 E= 000000 777601
FINAL
C(AC)= 201400 000000
----------
*035732 FSC 4,777600
FLAGS - INT/FINAL 000000 440300
INITIAL
C(AC)= 000400 000000 E= 000000 777600
FINAL
C(AC)= 200400 000000
----------
*035751 FSC 4,777401
FLAGS - INT/FINAL 000000 440200
INITIAL
C(AC)= 000400 000000 E= 000000 777401
FINAL
C(AC)= 001400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 60
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0268
*035776 FSC 4,777400
FLAGS - INT/FINAL 000000 440200
INITIAL
C(AC)= 000400 000000 E= 000000 777400
FINAL
C(AC)= 000400 000000
----------
*036023 FSC 4,000377
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000400 000000 E= 000000 000377
FINAL
C(AC)= 377400 000000
----------
*036041 FSC 4,000400
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000400 000000 E= 000000 000400
FINAL
C(AC)= 000400 000000
----------
*036057 FSC 4,000000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 400400 000000 E= 000000 000000
FINAL
C(AC)= 400400 000000
----------
*036075 FSC 4,000001
FLAGS - INT/FINAL 000000 440200
INITIAL
C(AC)= 400400 000000 E= 000000 000001
FINAL
C(AC)= 777400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 61
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0269
*036114 FSC 4,000200
FLAGS - INT/FINAL 000000 440200
INITIAL
C(AC)= 400400 000000 E= 000000 000200
FINAL
C(AC)= 600400 000000
----------
*036133 FSC 4,000201
FLAGS - INT/FINAL 000000 440300
INITIAL
C(AC)= 400400 000000 E= 000000 000201
FINAL
C(AC)= 577400 000000
----------
*036160 FSC 4,000377
FLAGS - INT/FINAL 000000 440300
INITIAL
C(AC)= 400400 000000 E= 000000 000377
FINAL
C(AC)= 401400 000000
----------
*036205 FSC 4,000400
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 400400 000000 E= 000000 000400
FINAL
C(AC)= 400400 000000
----------
*036223 FSC 4,777401
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 400400 000000 E= 000000 777401
FINAL
C(AC)= 777400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 62
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0270
*036241 FSC 4,777400
FLAGS - INT/FINAL 000000 440300
INITIAL
C(AC)= 400400 000000 E= 000000 777400
FINAL
C(AC)= 400400 000000
----------
*036260 FSC 4,000000
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777400 000000 E= 000000 000000
FINAL
C(AC)= 777400 000000
----------
*036276 FSC 4,777777
FLAGS - INT/FINAL 000000 440300
INITIAL
C(AC)= 777400 000000 E= 000000 777777
FINAL
C(AC)= 400400 000000
----------
*036315 FSC 4,777601
FLAGS - INT/FINAL 000000 440300
INITIAL
C(AC)= 777400 000000 E= 000000 777601
FINAL
C(AC)= 576400 000000
----------
*036334 FSC 4,777600
FLAGS - INT/FINAL 000000 440300
INITIAL
C(AC)= 777400 000000 E= 000000 777600
FINAL
C(AC)= 577400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 63
DSKCA 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0271
*036353 FSC 4,777401
FLAGS - INT/FINAL 000000 440200
INITIAL
C(AC)= 777400 000000 E= 000000 777401
FINAL
C(AC)= 776400 000000
----------
*036400 FSC 4,777400
FLAGS - INT/FINAL 000000 440200
INITIAL
C(AC)= 777400 000000 E= 000000 777400
FINAL
C(AC)= 777400 000000
----------
*036425 FSC 4,000377
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777400 000000 E= 000000 000377
FINAL
C(AC)= 400400 000000
----------
*036443 FSC 4,000400
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777400 000000 E= 000000 000400
FINAL
C(AC)= 777400 000000
----------