Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dskcb.seq
There are no other files named dskcb.seq in the archive.
;DSKCB
IDENTIFICATION
--------------
PRODUCT CODE: AH-E327A-DD
DIAGNOSTIC CODE: DSKCB
PRODUCT NAME: DSKCBA0 DECSYSTEM 2020
ADVANCED INSTRUCTION DIAGNOSTIC (2)
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-DSKCB.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-DSKCB.TXT
PAGE 3 SEQ 0004
1.0 ABSTRACT
THIS DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC IS THE
SECOND IN A SERIES OF DECSYSTEM 2020 ADVANCED PROCESSOR
DIAGNOSTICS.
THE DIAGNOSTIC PERFORMS LOGIC TESTING OF THE PROCESSOR
AND MICRO-CODE FLOATING MULTIPLY AND FLOATING DIVIDE FUNCTIONS.
THE FLOATING MULTIPLY INSTRUCTION IS USED TO TEST THE
EXPONENT CALCULATION 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-DSKCB.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-DSKCB.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-DSKCB.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-DSKCB.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-DSKCB.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 'DSKCB.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-DSKCB.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 DSKCB SEQ 0011
----------------------
---------------------------------------------------------------
CODE: MAINDEC-10-DSKCB
TITLE: DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (2)
VERSION: 0.1
DATE: MARCH 1978
REASON: ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10.
---------------------------------------------------------------
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 1
DSKCBT MAC 29-Mar-78 11:24 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0012
1 ;MAINDEC-10-DSKCB
2
3 000000 MCNVER=0
4 000001 DECVER=1
5
6 XLIST
7 LIST
8 LALL
9
10 NAME \MCNVER,\DECVER^
11
12 TITLE DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, 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
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 2
DSKCBT MAC 29-Mar-78 11:24 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 033265 LUUO1==ERRMES
42 033265 LUUO2==ERRMES
43 033265 LUUO3==ERRMES
44 033265 LUUO4==ERRMES
45 033265 LUUO5==ERRMES
46 033265 LUUO6==ERRMES
47 033265 LUUO7==ERRMES
48 033265 LUUO10==ERRMES
49 033265 LUUO11==ERRMES
50 033265 LUUO12==ERRMES
51 033265 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
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 3
DSKCBT MAC 29-Mar-78 11:24 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 434200 PAREA3=SIXBIT/DSKCB/
86 546064 000000 PAREA4=SIXBIT/LPT/
87 000000 PAREA5=0
88 000000 PAREA6=0
89
90 000001 ITERAT=1
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 4
DSKCBT MAC 29-Mar-78 11:24 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>
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 5
DSKCBT MAC 29-Mar-78 11:24 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>
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 6
DSKCBT MAC 29-Mar-78 11:24 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>
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 7
DSKCBT MAC 29-Mar-78 11:24 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>
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 8
DSKCBT MAC 29-Mar-78 11:24 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>
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 9
DSKCBT MAC 29-Mar-78 11:24 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>
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 10
DSKCBT MAC 29-Mar-78 11:24 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>
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 11
DSKCBT MAC 29-Mar-78 11:24 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>
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 12
DSKCBT MAC 29-Mar-78 11:24 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>
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 13
DSKCBT MAC 29-Mar-78 11:24 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>
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 14
DSKCBT MAC 29-Mar-78 11:24 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>
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 15
DSKCBT MAC 29-Mar-78 11:24 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>
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 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 !!!
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 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^;*********************************************************************^
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 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
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 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
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 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
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 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
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 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 ; "
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 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 434200 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
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 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
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 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 033265 030070 UUODIS: LUUO1,,$UUOER
938 030125 033265 033265 LUUO3,,LUUO2
939 030126 033265 033265 LUUO5,,LUUO4
940 030127 033265 033265 LUUO7,,LUUO6
941 030130 033265 033265 LUUO11,,LUUO10
942 030131 033265 033265 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
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 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
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 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
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 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
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 1
DSKCB1 MAC 29-Mar-78 11:24 *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 033453 CALL [SIXBIT .EXIT.]
1134
1135 030602 PGMNAM: ASCIZ?
1136 030602 015 012 104 105 103 DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2 (DSKCB)
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 062 040 050 104 123
1147 030615 113 103 102 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 033454 MOVE [ASCIZ/CB/]
1153 030621 202 00 0 00 033374 MOVEM TLET ;INITIALIZE TEST LETTER
1154
1155 030622 254 00 0 00 030623 STARTA: JRST .+1 ;GO PERFORM DIAGNOSTIC
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 2
DSKCB1 MAC 29-Mar-78 11:24 DIAGNOSTIC SECTION, PART TWO SEQ 0041
1156 SUBTTL DIAGNOSTIC SECTION, PART TWO
1157
1158 ; GENERAL DESCRIPTION
1159 ;PART I-FMP AND EXPONENT CALCULATE
1160 ;PART II-GEN TEST-FMP,FDV
1161 ;PART III - FMP AND EXPONENT CALCULATE
1162 LALL
1163 ;TEST FMP
1164 ;TEST APPARENT ABILITY TO FCE,
1165 ;SCA AND DECODE
1166 ;FCE FAILING RESULTS IN -NR ALL ZERO
1167 ;SAC FAILS - C(AC)=ORIGINAL
1168
1169 000014 CB00: AC=14
1170 SAVEAC (1,1)^
1171 030623 201 16 0 00 030623 MOVEI AC+2,.
1172 030624 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1173 030625 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1174 030626 202 16 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1175
1176 ;TEST FCE
1177 030627 205 14 0 00 200400 P100: MOVSI AC,200400 ;SETUP AC
1178 030630 400 13 0 00 000000 SETZ AC-1, ;SETUP BR
1179 030631 160 14 0 00 000013 FMP AC,AC-1 ;C(AC) X C(E)
1180 030632 332 00 0 00 000014 SKIPE AC ;TEST PROD=0
1181 030633 003 14 0 00 000101 ER3 AC,101 ;FCE FAILED
1182 030634 321 16 0 00 030627 JUMPL AC+2,P100 ;LOOP ON ERROR SWITCH
1183
1184 ;TEST SAC
1185 030635 205 14 0 00 200400 P200: MOVSI AC,200400 ;SETUP AC
1186 030636 205 13 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
1187 030637 160 14 0 00 000013 FMP AC,AC-1 ;C(AC) X C(E)
1188 030640 316 14 0 00 000013 CAMN AC,AC-1 ;TEST C(AC)=ORIG
1189 030641 003 14 0 00 000201 ER3 AC,201 ;SAC FAILED
1190 030642 321 16 0 00 030635 JUMPL AC+2,P200 ;LOOP ON ERROR SWITCH
1191
1192 ;TEST FMP-EXP CAL
1193 ;AR=000400000000
1194 ;BR=000400000000
1195 ;CORR PROD=177400000000 AND OVERFLOW
1196 ;ERR PROD=177400000000 AND NOT OVERFLOW
1197
1198 000014 AC=14
1199 SAVEAC (1,1)^
1200 030643 201 16 0 00 030643 MOVEI AC+2,.
1201 030644 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1202 030645 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1203 030646 202 16 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1204
1205 030647 255 10 0 00 030650 P300: JFCL 10,.+1 ;CLEAR AROV, EXEC NEXT INST
1206 030650 205 12 0 00 177400 MOVSI AC-2,177400 ;SETUP FOR COMPARISON
1207 030651 205 14 0 00 000400 MOVSI AC,400 ;SETUP AC
1208 030652 205 13 0 00 000400 MOVSI AC-1,400 ;SETUP BR
1209 030653 160 14 0 00 000013 FMP AC,AC-1 ;C(AC) X C(E)
1210 030654 265 11 0 00 030655 JSP AC-3,.+1 ;SAVE FLAGS
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 2-1
DSKCB1 MAC 29-Mar-78 11:24 DIAGNOSTIC SECTION, PART TWO SEQ 0042
1211 030655 255 10 0 00 030657 JFCL 10,.+2 ;TEST FOR OVERFLOW
1212 030656 013 11 0 00 000301 ER13 AC-3,301 ;AROV FLAG WAS NOT SET
1213 030657 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD=177400000000
1214 030660 003 14 0 00 000301 ER3 AC,301
1215 030661 321 16 0 00 030647 JUMPL AC+2,P300 ;LOOP ON ERROR SWITCH
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 3
DSKCB1 MAC 29-Mar-78 11:24 DIAGNOSTIC SECTION, PART TWO SEQ 0043
1216 ;TEST FMP - EXP CAL
1217 ;AR=000400000000
1218 ;BR=000400000000
1219 ;CORR PROD=177400000000 AND UNDERFLOW
1220 ;ERR PROD=377400000000 AND UNDERFLOW
1221
1222 000013 AC=13
1223 SAVEAC (1,1)^
1224 030662 201 15 0 00 030662 MOVEI AC+2,.
1225 030663 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1226 030664 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1227 030665 202 15 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1228
1229 030666 254 02 1 00 033455 P400: JRST 2,@[.+1] ;CLEAR AR FXU FLAG
1230 030667 205 11 0 00 177400 MOVSI AC-2,177400 ;SETUP FOR COMPARISON
1231 030670 205 13 0 00 000400 MOVSI AC,400 ;SETUP AC
1232 030671 205 12 0 00 000400 MOVSI AC-1,400 ;SETUP BR
1233 030672 160 13 0 00 000012 FMP AC,AC-1 ;C(AC) X C(E)
1234 030673 265 10 0 00 030674 JSP AC-3,.+1 ;STORE FLAGS AND PC
1235 030674 607 10 0 00 000100 TLNN AC-3,FXU ;EXAMINE FXU FLAG
1236 030675 013 10 0 00 000401 ER13 AC-3,401 ;FXU FLAG WAS NOT SET
1237 030676 312 13 0 00 000011 CAME AC,AC-2 ;TEST PROD=177400000000
1238 030677 003 13 0 00 000401 ER3 AC,401
1239 030700 255 10 0 00 030702 JOV .+2 ;EXAMINE AROV FLAG
1240 030701 013 10 0 00 000401 ER13 AC-3,401 ;AROV WAS NOT SET
1241 030702 255 01 0 00 030704 JFOV .+2 ;EXAMINE FOV FLAG
1242 030703 013 10 0 00 000401 ER13 AC-3,401 ;FOV WAS NOT SET
1243 030704 321 15 0 00 030666 JUMPL AC+2,P400 ;LOOP ON ERROR SWITCH
1244
1245 ;TEST FMP
1246 ;AR=000400000000
1247 ;BR=000400000000
1248 ;CORR PROD=177400000000 AND OVERFLOW
1249 ;ERR PROD=600400000000 AND OVERFLOW
1250
1251 000012 AC=12
1252 SAVEAC (1,1)^
1253 030705 201 14 0 00 030705 MOVEI AC+2,.
1254 030706 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1255 030707 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1256 030710 202 14 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1257
1258 030711 255 10 0 00 030712 P500: JFCL 10,.+1 ;CLEAR AROV, EXEC NEXT INST
1259 030712 205 10 0 00 177400 MOVSI AC-2,177400 ;SETUP FOR COMPARISON
1260 030713 205 12 0 00 000400 MOVSI AC,400 ;SETUP AC
1261 030714 205 11 0 00 000400 MOVSI AC-1,400 ;SETUP BR
1262 030715 160 12 0 00 000011 FMP AC,AC-1 ;C(AC) X C(E)
1263 030716 265 07 0 00 030717 JSP AC-3,.+1 ;SAVE FLAGS
1264 030717 255 10 0 00 030721 JFCL 10,.+2 ;TEST AROV FLAG
1265 030720 013 07 0 00 000501 ER13 AC-3,501 ;NOT OVERFLOW
1266 030721 312 12 0 00 000010 CAME AC,AC-2 ;TEST PROD=177400000000
1267 030722 003 12 0 00 000501 ER3 AC,501
1268 030723 321 14 0 00 030711 JUMPL AC+2,P500 ;LOOP ON ERROR SWITCH
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 4
DSKCB1 MAC 29-Mar-78 11:24 DIAGNOSTIC SECTION, PART TWO SEQ 0044
1269 ;TEST FMP
1270 ;AR=200400000000
1271 ;BR=000400000000
1272 ;CORR PROD=377400000000 AND OVERFLOW
1273 ;ERR PROD=1774000000000 AND NOT OVERFLOW
1274
1275 000005 AC=5
1276 SAVEAC (1,1)^
1277 030724 201 07 0 00 030724 MOVEI AC+2,.
1278 030725 202 07 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1279 030726 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1280 030727 202 07 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1281
1282 030730 255 10 0 00 030731 P600: JFCL 10,.+1 ;CLR AROV,EXEC NEXT INST
1283 030731 205 03 0 00 377400 MOVSI AC-2,377400 ;SETUP FOR COMPARISON
1284 030732 205 05 0 00 200400 MOVSI AC,200400 ;SETUP AC
1285 030733 205 04 0 00 000400 MOVSI AC-1,400 ;SETUP BR
1286 030734 160 05 0 00 000004 FMP AC,AC-1 ;C(AC) X C(E)
1287 030735 265 02 0 00 030736 JSP AC-3,.+1 ;SAVE FLAGS
1288 030736 255 10 0 00 030740 JFCL 10,.+2 ;TEST AROV FLAG
1289 030737 013 02 0 00 000601 ER13 AC-3,601 ;AROV NOT SET
1290 030740 312 05 0 00 000003 CAME AC,AC-2 ;TEST PROD=377400000000
1291 030741 003 05 0 00 000601 ER3 AC,601
1292 030742 321 07 0 00 030730 JUMPL AC+2,P600 ;LOOP ON ERROR SWITCH
1293
1294 ;TEST FMP
1295 ;AR=000400000000
1296 ;BR=000400000000
1297 ;CORRECT PROD=177400000000 AND OVERFLOW
1298 ;FAILURE OF EITHER RESULTS IN AN
1299 ;ERROR PROD=144400000000 AND OVERFLOW
1300
1301 000011 AC=11
1302 SAVEAC (1,1)^
1303 030743 201 13 0 00 030743 MOVEI AC+2,.
1304 030744 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1305 030745 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1306 030746 202 13 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1307
1308 030747 205 07 0 00 177400 P700: MOVSI AC-2,177400 ;SETUP FOR COMPARISON
1309 030750 205 11 0 00 000400 MOVSI AC,400 ;SETUP AC
1310 030751 205 10 0 00 000400 MOVSI AC-1,400 ;SETUP BR
1311 030752 160 11 0 00 000010 FMP AC,AC-1 ;C(AC) X C(E)
1312 030753 265 06 0 00 030754 JSP AC-3,.+1 ;SAVE FLAGS
1313 030754 255 10 0 00 030756 JOV .+2 ;EXAMINE AROV FLAG
1314 030755 013 06 0 00 000701 ER13 AC-3,701 ;AROV NOT SET
1315 030756 255 01 0 00 030760 JFOV .+2 ;EXAMINE FOV FLAG
1316 030757 013 06 0 00 000701 ER13 AC-3,701 ;FOV NOT SET
1317 030760 312 11 0 00 000007 CAME AC,AC-2 ;TEST PROD=144400000000
1318 030761 003 11 0 00 000701 ER3 AC,701
1319 030762 321 13 0 00 030747 JUMPL AC+2,P700 ;LOOP ON ERROR SWITCH
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 5
DSKCB1 MAC 29-Mar-78 11:24 DIAGNOSTIC SECTION, PART TWO SEQ 0045
1320 ;TEST FMP
1321 ;AR=000400000000
1322 ;BR=000400000000
1323 ;FAILURE OF A BIT TO SET RESULTS
1324 ;IN A PROD=176.4, 173.4, 137.4,
1325 ;165.4,153.4
1326 ;CORRECT PROD=177400000000 AND OVERFLOW
1327 ;NOTE-FAILURE TO INH FP EXP ADD LEVEL
1328 ;(TEST NOT FP EXP ADD
1329 ;MAY LOOK LIKE BIT 8 FAILING TO SET
1330
1331 000010 AC=10
1332 SAVEAC (1,1)^
1333 030763 201 12 0 00 030763 MOVEI AC+2,.
1334 030764 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1335 030765 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1336 030766 202 12 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1337
1338 001000 SN=1000
1339 201400 ZZ=201400
1340
1341 P1000: REPEAT ^D2, ;TEST SC8,6 SET
1342 <SN=SN+1
1343 ZZ=ZZ-3000
1344 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON
1345 MOVSI AC,400 ;SETUP AC
1346 MOVSI AC-1,400 ;SETUP BR
1347 FMP AC,AC-1 ;C(AC) X C(E)
1348 CAMN AC,AC-2 ;TEST PROD
1349 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
1350 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
1351 >
1352 001001 SN=SN+1
1353 176400 ZZ=ZZ-3000
1354 030767 205 06 0 00 176400 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON
1355 030770 205 10 0 00 000400 MOVSI AC,400 ;SETUP AC
1356 030771 205 07 0 00 000400 MOVSI AC-1,400 ;SETUP BR
1357 030772 160 10 0 00 000007 FMP AC,AC-1 ;C(AC) X C(E)
1358 030773 316 10 0 00 000006 CAMN AC,AC-2 ;TEST PROD
1359 030774 003 10 0 00 001001 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
1360 030775 321 12 0 00 030767 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
1361
1362 001002 SN=SN+1
1363 173400 ZZ=ZZ-3000
1364 030776 205 06 0 00 173400 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON
1365 030777 205 10 0 00 000400 MOVSI AC,400 ;SETUP AC
1366 031000 205 07 0 00 000400 MOVSI AC-1,400 ;SETUP BR
1367 031001 160 10 0 00 000007 FMP AC,AC-1 ;C(AC) X C(E)
1368 031002 316 10 0 00 000006 CAMN AC,AC-2 ;TEST PROD
1369 031003 003 10 0 00 001002 ER3 AC,SN ;BIT UNDER TEST FAILED TO SET
1370 031004 321 12 0 00 030776 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
1371
1372 PAGE
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 5-1
DSKCB1 MAC 29-Mar-78 11:24 DIAGNOSTIC SECTION, PART TWO SEQ 0046
1373 001100 SN=1100
1374 011400 ZZ=11400
1375
1376 P1100: REPEAT ^D2, ;TEST SC3, 2 SET
1377 <SN=SN+1
1378 ZZ=ZZ+26000
1379 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON
1380 MOVSI AC,400 ;SETUP AC
1381 MOVSI AC-1,400 ;SETUP BR
1382 FMP AC,AC-1 ;C(AC) X C(E)
1383 CAMN AC,AC-2 ;TEST PROD
1384 ER3 AC,SN ;BIT UNDER TEST FAILED
1385 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
1386 >
1387 001101 SN=SN+1
1388 037400 ZZ=ZZ+26000
1389 031005 205 06 0 00 037400 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON
1390 031006 205 10 0 00 000400 MOVSI AC,400 ;SETUP AC
1391 031007 205 07 0 00 000400 MOVSI AC-1,400 ;SETUP BR
1392 031010 160 10 0 00 000007 FMP AC,AC-1 ;C(AC) X C(E)
1393 031011 316 10 0 00 000006 CAMN AC,AC-2 ;TEST PROD
1394 031012 003 10 0 00 001101 ER3 AC,SN ;BIT UNDER TEST FAILED
1395 031013 321 12 0 00 031005 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
1396
1397 001102 SN=SN+1
1398 065400 ZZ=ZZ+26000
1399 031014 205 06 0 00 065400 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON
1400 031015 205 10 0 00 000400 MOVSI AC,400 ;SETUP AC
1401 031016 205 07 0 00 000400 MOVSI AC-1,400 ;SETUP BR
1402 031017 160 10 0 00 000007 FMP AC,AC-1 ;C(AC) X C(E)
1403 031020 316 10 0 00 000006 CAMN AC,AC-2 ;TEST PROD
1404 031021 003 10 0 00 001102 ER3 AC,SN ;BIT UNDER TEST FAILED
1405 031022 321 12 0 00 031014 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
1406
1407
1408 ;TEST SC1 SET
1409 031023 205 06 0 00 153400 P1200: MOVSI AC-2,153400 ;SETUP FOR COMPARISON
1410 031024 205 10 0 00 000400 MOVSI AC,400 ;SETUP AC
1411 031025 205 07 0 00 000400 MOVSI AC-1,400 ;SETUP BR
1412 031026 160 10 0 00 000007 FMP AC,AC-1 ;C(AC) + C(E)
1413 031027 316 10 0 00 000006 CAMN AC,AC-2 ;TEST PROD
1414 031030 003 10 0 00 001201 ER3 AC,1201 ;SC1 FAILED TO SET
1415 031031 321 12 0 00 031023 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 6
DSKCB1 MAC 29-Mar-78 11:24 DIAGNOSTIC SECTION, PART TWO SEQ 0047
1416 ;TEST FMP
1417 ;AR=000400000000
1418 ;BR=000400000000
1419 ;CORR PROD=177400000000 AND OVERFLOW
1420 ;FAILURE RESULTS IN LOSS OF MULTIPLICAND
1421 ;AND AN NR ALL ZERO COND
1422
1423 000007 AC=7
1424 SAVEAC (1,1)^
1425 031032 201 11 0 00 031032 MOVEI AC+2,.
1426 031033 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1427 031034 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1428 031035 202 11 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1429
1430 031036 205 07 0 00 000400 P1300: MOVSI AC,400 ;SETUP AC
1431 031037 205 06 0 00 000400 MOVSI AC-1,400 ;SETUP BR
1432 031040 160 07 0 00 000006 FMP AC,AC-1 ;C(AC) X C(E)
1433 031041 336 00 0 00 000007 SKIPN AC ;TEST PROD=0
1434 031042 003 07 0 00 001301 ER3 AC,1301
1435 031043 321 11 0 00 031036 JUMPL AC+2,P1300 ;LOOP ON ERROR SWITCH
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 7
DSKCB1 MAC 29-Mar-78 11:24 DIAGNOSTIC SECTION, PART TWO SEQ 0048
1436 ;TEST FMP - EXP CAL
1437 ;AR=200400000000
1438 ;BR=000400000000
1439 ;CORR PROD=377400000000 AND OVERFLOW
1440 ;ERR PROD=177400000000 AND OVERFLOW
1441
1442 000006 AC=6
1443 SAVEAC (1,1)^
1444 031044 201 10 0 00 031044 MOVEI AC+2,.
1445 031045 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1446 031046 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1447 031047 202 10 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1448
1449 031050 255 10 0 00 031051 P1400: JFCL 10,.+1 ;CLEAR AROV, EXEC NEXT INST
1450 031051 205 04 0 00 177400 MOVSI AC-2,177400 ;SETUP FOR COMPARISON
1451 031052 205 06 0 00 200400 MOVSI AC,200400 ;SETUP AC
1452 031053 205 05 0 00 000400 MOVSI AC-1,400 ;SETUP BR
1453 031054 160 06 0 00 000005 FMP AC,AC-1 ;C(AC) X C(E)
1454 031055 265 03 0 00 031056 JSP AC-3,.+1 ;SAVE FLAGS
1455 031056 255 10 0 00 031060 JFCL 10,.+2 ;TEST AROV FLAG
1456 031057 013 03 0 00 001401 ER13 AC-3,1401 ;NOT OVERFLOW
1457 031060 316 06 0 00 000004 CAMN AC,AC-2 ;TEST PROD=177400000000
1458 031061 003 06 0 00 001401 ER3 AC,1401
1459 031062 321 10 0 00 031050 JUMPL AC+2,P1400 ;LOOP ON ERROR SWITCH
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 8
DSKCB1 MAC 29-Mar-78 11:24 DIAGNOSTIC SECTION, PART TWO SEQ 0049
1460 ;TEST FMP - EXP CAL
1461 ;TEST ABILITY TO SET INDIVIDUAL BITS
1462 ;OF FE AND SC
1463 ;AR=177400000000
1464 ;BR=000400000000
1465 ;CORR PROD=376400000000 AND UNDERFLOW
1466 ;ERR PRODS=375.4, 374.4, 372.4,
1467 ;366.4, 356.4, 336.4, 276.4, 176.4, 376.4 (CORR PROD, NOT UNDERFLOW)
1468
1469 000014 AC=14
1470 SAVEAC (1,1)^
1471 031063 201 16 0 00 031063 MOVEI AC+2,.
1472 031064 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1473 031065 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1474 031066 202 16 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1475
1476 001500 SN=1500
1477 376400 ZZ=376400
1478
1479 P1500: REPEAT ^D2, ;TEST BITS 8, 7 SET
1480 <SN=SN+1
1481 ZZ=ZZ-1000
1482 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON
1483 MOVSI AC,177400 ;SETUP AC
1484 MOVSI AC-1,400 ;SETUP BR
1485 FMP AC,AC-1 ;C(AC) X C(E)
1486 CAMN AC,AC-2 ;TEST PROD
1487 ER3 AC,SN ;BIT UNDER TEST FAILED
1488 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
1489 >
1490 001501 SN=SN+1
1491 375400 ZZ=ZZ-1000
1492 031067 205 12 0 00 375400 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON
1493 031070 205 14 0 00 177400 MOVSI AC,177400 ;SETUP AC
1494 031071 205 13 0 00 000400 MOVSI AC-1,400 ;SETUP BR
1495 031072 160 14 0 00 000013 FMP AC,AC-1 ;C(AC) X C(E)
1496 031073 316 14 0 00 000012 CAMN AC,AC-2 ;TEST PROD
1497 031074 003 14 0 00 001501 ER3 AC,SN ;BIT UNDER TEST FAILED
1498 031075 321 16 0 00 031067 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
1499
1500 001502 SN=SN+1
1501 374400 ZZ=ZZ-1000
1502 031076 205 12 0 00 374400 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON
1503 031077 205 14 0 00 177400 MOVSI AC,177400 ;SETUP AC
1504 031100 205 13 0 00 000400 MOVSI AC-1,400 ;SETUP BR
1505 031101 160 14 0 00 000013 FMP AC,AC-1 ;C(AC) X C(E)
1506 031102 316 14 0 00 000012 CAMN AC,AC-2 ;TEST PROD
1507 031103 003 14 0 00 001502 ER3 AC,SN ;BIT UNDER TEST FAILED
1508 031104 321 16 0 00 031076 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
1509
1510 PAGE
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 8-1
DSKCB1 MAC 29-Mar-78 11:24 DIAGNOSTIC SECTION, PART TWO SEQ 0050
1511 ;TEST BIT 6 SET
1512 031105 205 12 0 00 372400 P1600: MOVSI AC-2,372400 ;SETUP FOR COMPARISON
1513 031106 205 14 0 00 177400 MOVSI AC,177400 ;SETUP AC
1514 031107 205 13 0 00 000400 MOVSI AC-1,400 ;SETUP BR
1515 031110 160 14 0 00 000013 FMP AC,AC-1 ;C(AC) X C(E)
1516 031111 316 14 0 00 000012 CAMN AC,AC-2 ;TEST PROD
1517 031112 003 14 0 00 001601 ER3 AC,1601 ;FE BIT 6 FAILED TO SET
1518 031113 321 16 0 00 031105 JUMPL AC+2,P1600 ;LOOP ON ERROR SWITCH
1519
1520 001700 SN=1700
1521 367400 ZZ=367400
1522
1523 P1700: REPEAT ^D2, ;TEST BITS 5-4 SET
1524 <SN=SN+1
1525 ZZ=ZZ-1000
1526 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON
1527 MOVSI AC,177400 ;SETUP AC
1528 MOVSI AC-1,400 ;SETUP BR
1529 FMP AC,AC-1 ;C(AC) X C(E)
1530 CAMN AC,AC-2 ;TEST PROD
1531 ER3 AC,SN ;BIT UNDER TEST FAILED
1532 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
1533 >
1534 001701 SN=SN+1
1535 366400 ZZ=ZZ-1000
1536 031114 205 12 0 00 366400 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON
1537 031115 205 14 0 00 177400 MOVSI AC,177400 ;SETUP AC
1538 031116 205 13 0 00 000400 MOVSI AC-1,400 ;SETUP BR
1539 031117 160 14 0 00 000013 FMP AC,AC-1 ;C(AC) X C(E)
1540 031120 316 14 0 00 000012 CAMN AC,AC-2 ;TEST PROD
1541 031121 003 14 0 00 001701 ER3 AC,SN ;BIT UNDER TEST FAILED
1542 031122 321 16 0 00 031114 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
1543
1544 001702 SN=SN+1
1545 365400 ZZ=ZZ-1000
1546 031123 205 12 0 00 365400 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON
1547 031124 205 14 0 00 177400 MOVSI AC,177400 ;SETUP AC
1548 031125 205 13 0 00 000400 MOVSI AC-1,400 ;SETUP BR
1549 031126 160 14 0 00 000013 FMP AC,AC-1 ;C(AC) X C(E)
1550 031127 316 14 0 00 000012 CAMN AC,AC-2 ;TEST PROD
1551 031130 003 14 0 00 001702 ER3 AC,SN ;BIT UNDER TEST FAILED
1552 031131 321 16 0 00 031123 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
1553
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 9
DSKCB1 MAC 29-Mar-78 11:24 DIAGNOSTIC SECTION, PART TWO SEQ 0051
1554 002000 SN=2000
1555 376400 ZZ=376400
1556
1557 P2000: REPEAT ^D2, ;TEST BITS 3,2 SET
1558 <SN=SN+1
1559 ZZ=ZZ-40000
1560 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON
1561 MOVSI AC,177400 ;SETUP AC
1562 MOVSI AC-1,400 ;SETUP BR
1563 FMP AC,AC-1 ;C(AC) X C(E)
1564 CAMN AC,AC-2 ;TEST PROD
1565 ER3 AC,SN ;BIT UNDER TEST FAILED
1566 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
1567 >
1568 002001 SN=SN+1
1569 336400 ZZ=ZZ-40000
1570 031132 205 12 0 00 336400 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON
1571 031133 205 14 0 00 177400 MOVSI AC,177400 ;SETUP AC
1572 031134 205 13 0 00 000400 MOVSI AC-1,400 ;SETUP BR
1573 031135 160 14 0 00 000013 FMP AC,AC-1 ;C(AC) X C(E)
1574 031136 316 14 0 00 000012 CAMN AC,AC-2 ;TEST PROD
1575 031137 003 14 0 00 002001 ER3 AC,SN ;BIT UNDER TEST FAILED
1576 031140 321 16 0 00 031132 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
1577
1578 002002 SN=SN+1
1579 276400 ZZ=ZZ-40000
1580 031141 205 12 0 00 276400 MOVSI AC-2,ZZ ;SETUP FOR COMPARISON
1581 031142 205 14 0 00 177400 MOVSI AC,177400 ;SETUP AC
1582 031143 205 13 0 00 000400 MOVSI AC-1,400 ;SETUP BR
1583 031144 160 14 0 00 000013 FMP AC,AC-1 ;C(AC) X C(E)
1584 031145 316 14 0 00 000012 CAMN AC,AC-2 ;TEST PROD
1585 031146 003 14 0 00 002002 ER3 AC,SN ;BIT UNDER TEST FAILED
1586 031147 321 16 0 00 031141 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
1587
1588
1589 ;TEST BIT 1 SET
1590 031150 205 12 0 00 176400 P2100: MOVSI AC-2,176400 ;SETUP FOR COMPARISON
1591 031151 205 14 0 00 177400 MOVSI AC,177400 ;SETUP AC
1592 031152 205 13 0 00 000400 MOVSI AC-1,400 ;SETUP BR
1593 031153 160 14 0 00 000013 FMP AC,AC-1 ;C(AC) X C(E)
1594 031154 316 14 0 00 000012 CAMN AC,AC-2 ;TEST PROD
1595 031155 003 14 0 00 002101 ER3 AC,2101 ;BIT UNDER TEST FAILED
1596 031156 321 16 0 00 031150 JUMPL AC+2,P2100 ;LOOP ON ERROR SWITCH
1597 PAGE
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 9-1
DSKCB1 MAC 29-Mar-78 11:24 DIAGNOSTIC SECTION, PART TWO SEQ 0052
1598
1599 ;TEST BIT 0 SET
1600 031157 254 02 1 00 033456 P2200: JRST 2,@[.+1] ;CLEAR ARFXU FLAG
1601 031160 205 12 0 00 376400 MOVSI AC-2,376400 ;SETUP FOR COMPARISON
1602 031161 205 14 0 00 177400 MOVSI AC,177400 ;SETUP AC
1603 031162 205 13 0 00 000400 MOVSI AC-1,400 ;SETUP BR
1604 031163 160 14 0 00 000013 FMP AC,AC-1 ;C(AC) X C(E)
1605 031164 265 11 0 00 031165 JSP AC-3,.+1 ;STORE FLAGS AND PC
1606 031165 607 11 0 00 000100 TLNN AC-3,FXU ;EXAMINE FXU FLAG
1607 031166 013 11 0 00 002201 ER13 AC-3,2201 ;FXU NOT SET
1608 031167 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD=376400000000
1609 031170 003 14 0 00 002201 ER3 AC,2201 ;BIT 0 FAILED TO SET
1610 031171 254 02 0 11 000005 JRST 2,5(AC-3) ;CLEAR AROV, ARFOV FLAGS
1611 031172 321 16 0 00 031157 JUMPL AC+2,P2200 ;LOOP ON ERROR SWITCH
1612
1613 ;TEST FMP - EXP CAL
1614 ;AR=377400000000
1615 ;BR=000400000000
1616 ;CORR PROD=176400000000
1617 ;ERR PROD=142400000000
1618
1619 000014 AC=14
1620 SAVEAC (1,1)^
1621 031173 201 16 0 00 031173 MOVEI AC+2,.
1622 031174 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1623 031175 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1624 031176 202 16 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1625
1626 031177 205 12 0 00 142400 P2300: MOVSI AC-2,142400 ;SETUP FOR COMPARISON
1627 031200 205 14 0 00 377400 MOVSI AC,377400 ;SETUP AC
1628 031201 205 13 0 00 000400 MOVSI AC-1,400 ;SETUP BR
1629 031202 160 14 0 00 000013 FMP AC,AC-1 ;C(AC) X C(E)
1630 031203 316 14 0 00 000012 CAMN AC,AC-2 ;TEST PROD=142400000000
1631 031204 003 14 0 00 002301 ER3 AC,2301
1632 031205 321 16 0 00 031177 JUMPL AC+2,P2300 ;LOOP ON ERROR SWITCH
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 10
DSKCB1 MAC 29-Mar-78 11:24 DIAGNOSTIC SECTION, PART TWO SEQ 0053
1633 ;TEST FMP - EXP CAL
1634 ;TEST ABILITY TO CLEAR SC BITS 7, 5, 4
1635 ;AR=377400000000
1636 ;BR=000400000000
1637 ;CORR PROD=176400000000
1638 ;ERR PRODS=112.4, 120.4, 130.4
1639
1640 000013 AC=13
1641 SAVEAC (1,1)^
1642 031206 201 15 0 00 031206 MOVEI AC+2,.
1643 031207 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1644 031210 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1645 031211 202 15 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1646
1647 ;TEST SC7 CLEARING
1648 031212 205 11 0 00 112400 P2400: MOVSI AC-2,112400 ;SETUP FOR COMPARISON
1649 031213 205 13 0 00 377400 MOVSI AC,377400 ;SETUP AC
1650 031214 205 12 0 00 000400 MOVSI AC-1,400 ;SETUP BR
1651 031215 160 13 0 00 000012 FMP AC,AC-1 ;C(AC) X C(E)
1652 031216 316 13 0 00 000011 CAMN AC,AC-2 ;TEST PROD=112400000000
1653 031217 003 13 0 00 002401 ER3 AC,2401 ;SC7 FAILED TO CLEAR
1654 031220 321 15 0 00 031212 JUMPL AC+2,P2400 ;LOOP ON ERROR SWITCH
1655
1656 ;TEST SC5 CLEARING
1657 031221 205 11 0 00 120400 P2500: MOVSI AC-2,120400 ;SETUP FOR COMPARISON
1658 031222 205 13 0 00 377400 MOVSI AC,377400 ;SETUP AC
1659 031223 205 12 0 00 000400 MOVSI AC-1,400 ;SETUP BR
1660 031224 160 13 0 00 000012 FMP AC,AC-1 ;C(AC) X C(E)
1661 031225 316 13 0 00 000011 CAMN AC,AC-2 ;TEST PROD=120400000000
1662 031226 003 13 0 00 002501 ER3 AC,2501 ;SC5 FAILED TO CLEAR
1663 031227 321 15 0 00 031221 JUMPL AC+2,P2500 ;LOOP ON ERROR SWITCH
1664 ;TEST SC4 CLEARING
1665 031230 205 11 0 00 130400 P2600: MOVSI AC-2,130400 ;SETUP FOR COMPARISON
1666 031231 205 13 0 00 377400 MOVSI AC,377400 ;SETUP AC
1667 031232 205 12 0 00 000400 MOVSI AC-1,400 ;SETUP BR
1668 031233 160 13 0 00 000012 FMP AC,AC-1 ;C(AC) X C(E)
1669 031234 316 13 0 00 000011 CAMN AC,AC-2 ;TEST PROD=130400000000
1670 031235 003 13 0 00 002601 ER3 AC,2601 ;SC4 FAILED TO CLEAR
1671 031236 321 15 0 00 031230 JUMPL AC+2,P2600 ;LOOP ON ERROR SWITCH
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 11
DSKCB1 MAC 29-Mar-78 11:24 DIAGNOSTIC SECTION, PART TWO SEQ 0054
1672 ;TEST FMP - EXP CAL
1673 ;AR=377400000000
1674 ;BR=000400000000
1675 ;CORR PROD=176400000000
1676 ;ERR PROD=601400000000
1677
1678 000012 AC=12
1679 SAVEAC (1,1)^
1680 031237 201 14 0 00 031237 MOVEI AC+2,.
1681 031240 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1682 031241 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1683 031242 202 14 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1684
1685 031243 205 10 0 00 601400 P2700: MOVSI AC-2,601400 ;SETUP FOR COMPARISON
1686 031244 205 12 0 00 377400 MOVSI AC,377400 ;SETUP AC
1687 031245 205 11 0 00 000400 MOVSI AC-1,400 ;SETUP BR
1688 031246 160 12 0 00 000011 FMP AC,AC-1 ;C(AC) X C(E)
1689 031247 316 12 0 00 000010 CAMN AC,AC-2 ;TEST PROD=601400000000
1690 031250 003 12 0 00 002701 ER3 AC,2701
1691 031251 321 14 0 00 031243 JUMPL AC+2,P2700 ;LOOP ON ERROR SWITCH
1692
1693 ;TEST FMP - EXP CAL
1694 ;AR=577400000000
1695 ;BR=000400000000
1696 ;CORR PROD=377400000000 AND UNDERFLOW
1697 ;ERR PROD=376400000000
1698
1699 000011 AC=11
1700 SAVEAC (1,1)^
1701 031252 201 13 0 00 031252 MOVEI AC+2,.
1702 031253 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1703 031254 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1704 031255 202 13 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1705
1706 031256 205 07 0 00 376400 P3000: MOVSI AC-2,376400 ;SETUP FOR COMPARISON
1707 031257 205 11 0 00 577400 MOVSI AC,577400 ;SETUP AC
1708 031260 205 10 0 00 000400 MOVSI AC-1,400 ;SETUP BR
1709 031261 160 11 0 00 000010 FMP AC,AC-1 ;C(AC) X C(E)
1710 031262 316 11 0 00 000007 CAMN AC,AC-2 ;TEST PROD=376400000000
1711 031263 003 11 0 00 003001 ER3 AC,3001
1712 031264 321 13 0 00 031256 JUMPL AC+2,P3000 ;LOOP ON ERROR SWITCH
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 12
DSKCB1 MAC 29-Mar-78 11:24 DIAGNOSTIC SECTION, PART TWO SEQ 0055
1713 ;TEST FMP - EXP CAL
1714 ;AR=000400000000
1715 ;BR=200400000000
1716 ;CORR PROD=377400000000 AND UNDERFLOW
1717 ;ERR PROD=177400000000 AND OVERFLOW
1718
1719 000010 AC=10
1720 SAVEAC (1,1)^
1721 031265 201 12 0 00 031265 MOVEI AC+2,.
1722 031266 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1723 031267 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1724 031270 202 12 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1725
1726 031271 255 10 0 00 031272 P3100: JFCL 10,.+1 ;CLEAR AROV, EXEC NEXT INST
1727 031272 205 06 0 00 177400 MOVSI AC-2,177400 ;SETUP FOR COMPARISON
1728 031273 205 10 0 00 000400 MOVSI AC,400 ;SETUP AC
1729 031274 205 07 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
1730 031275 160 10 0 00 000007 FMP AC,AC-1 ;C(AC) X C(E)
1731 031276 265 05 0 00 031277 JSP AC-3,.+1 ;READ FLAGS
1732 031277 255 10 0 00 031301 JFCL 10,.+2 ;TEST FOR OVERFLOW
1733 031300 013 05 0 00 003101 ER13 AC-3,3101 ;AROV NOT SET
1734 031301 607 05 0 00 000100 TLNN AC-3,FXU ;EXAMINE FXU FLAG
1735 031302 013 05 0 00 003101 ER13 AC-3,3101 ;FXU NOT SET
1736 031303 316 10 0 00 000006 CAMN AC,AC-2 ;TEST PROD=177400000000
1737 031304 003 10 0 00 003101 ER3 AC,3101
1738 031305 321 12 0 00 031271 JUMPL AC+2,P3100 ;LOOP ON ERROR SWITCH
1739
1740 ;TEST FMP - EXP CAL
1741 ;AR=000400000000
1742 ;BR=200400000000
1743 ;CORR PROD=377400000000 AND UNDERFLOW
1744 ;ERR PROD=376400000000 AND OVER/UNDERFLOW NOT
1745
1746 000007 AC=7
1747 SAVEAC (1,1)^
1748 031306 201 11 0 00 031306 MOVEI AC+2,.
1749 031307 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1750 031310 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1751 031311 202 11 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1752
1753 031312 205 05 0 00 376400 P3200: MOVSI AC-2,376400 ;SETUP FOR COMPARISON
1754 031313 205 07 0 00 000400 MOVSI AC,400 ;SETUP AC
1755 031314 205 06 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
1756 031315 160 07 0 00 000006 FMP AC,AC-1 ;C(AC) X C(E)
1757 031316 316 07 0 00 000005 CAMN AC,AC-2 ;TEST PROD=376400000000
1758 031317 003 07 0 00 003201 ER3 AC,3201 ;FP EXP ADD ASSERTED
1759 031320 321 11 0 00 031312 JUMPL AC+2,P3200 ;LOOP ON ERROR SWITCH
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 13
DSKCB1 MAC 29-Mar-78 11:24 DIAGNOSTIC SECTION, PART TWO SEQ 0056
1760 ;TEST FMP - EXP CAL
1761 ;AR=200400000000 (+1/2)
1762 ;BR=577400000000 (-1/2)
1763 ;CORR PROD=600400000000 (-1/4)
1764 ;ERR PROD=401400000000
1765
1766 000006 AC=6
1767 SAVEAC (1,1)^
1768 031321 201 10 0 00 031321 MOVEI AC+2,.
1769 031322 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1770 031323 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1771 031324 202 10 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1772
1773 031325 205 04 0 00 401400 P3300: MOVSI AC-2,401400 ;SETUP FOR COMPARISON
1774 031326 205 06 0 00 200400 MOVSI AC,200400 ;SETUP AC
1775 031327 205 05 0 00 577400 MOVSI AC-1,577400 ;SETUP BR
1776 031330 160 06 0 00 000005 FMP AC,AC-1 ;C(AC) X C(E)
1777 031331 316 06 0 00 000004 CAMN AC,AC-2 ;TEST PROD=401400000000
1778 031332 003 06 0 00 003301 ER3 AC,3301 ;FP EXP ADD FAILED
1779 031333 321 10 0 00 031325 JUMPL AC+2,P3300 ;LOOP ON ERROR SWITCH
1780
1781 ;TEST FMP - EXP CAL
1782 ;AR=200400000000
1783 ;BR=200400000000
1784 ;CORR PROD=177400000000
1785 ;ERR PROD=377400000000 AND UNDERFLOW
1786
1787 000005 AC=5
1788 SAVEAC (1,1)^
1789 031334 201 07 0 00 031334 MOVEI AC+2,.
1790 031335 202 07 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1791 031336 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1792 031337 202 07 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1793
1794 031340 254 02 1 00 033457 P3400: JRST 2,@[.+1] ;CLEAR AR FXU, EXEC NEXT INST
1795 031341 205 03 0 00 377400 MOVSI AC-2,377400 ;SETUP FOR COMPARISON
1796 031342 205 05 0 00 200400 MOVSI AC,200400 ;SETUP AC
1797 031343 205 04 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
1798 031344 160 05 0 00 000004 FMP AC,AC-1 ;C(AC) X C(E)
1799 031345 265 02 0 00 031346 JSP AC-3,.+1 ;STORE FLAGS, PC
1800 031346 603 02 0 00 000100 TLNE AC-3,FXU ;EXAMINE FXU FLAG
1801 031347 013 02 0 00 003401 ER13 AC-3,3401 ;FXU IS SET
1802 031350 316 05 0 00 000003 CAMN AC,AC-2 ;TEST PROD=377400000000
1803 031351 003 05 0 00 003401 ER3 AC,3401
1804 031352 254 02 0 02 000005 JRST 2,5(AC-3) ;CLEAR AROV, ARFOV FLAGS
1805 031353 321 07 0 00 031340 JUMPL AC+2,P3400 ;LOOP ON ERROR SWITCH
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 14
DSKCB1 MAC 29-Mar-78 11:24 DIAGNOSTIC SECTION, PART TWO SEQ 0057
1806
1807 ;TEST FMP - EXP CAL
1808 ;AR=200400000000 (+1/2)
1809 ;BR=205400000000 (+20)
1810 ;CORR PROD=204400000000 (+10)
1811 ;ERR PROD=372400000000 AND OVERFLOW
1812
1813 000014 AC=14
1814 SAVEAC (1,1)^
1815 031354 201 16 0 00 031354 MOVEI AC+2,.
1816 031355 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1817 031356 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1818 031357 202 16 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1819
1820 031360 255 10 0 00 031361 P3500: JFCL 10,.+1 ;CLEAR AROV, EXEC NEXT INST
1821 031361 205 12 0 00 372400 MOVSI AC-2,372400 ;SETUP FOR COMPARISON
1822 031362 205 14 0 00 200400 MOVSI AC,200400 ;SETUP AC
1823 031363 205 13 0 00 205400 MOVSI AC-1,205400 ;SETUP BR
1824 031364 160 14 0 00 000013 FMP AC,AC-1 ;C(AC) X C(E)
1825 031365 265 11 0 00 031366 JSP AC-3,.+1 ;SAVE FLAGS
1826 031366 255 10 0 00 031370 JFCL 10,.+2 ;TEST AROV
1827 031367 254 00 0 00 031371 JRST .+2
1828 031370 013 11 0 00 003501 ER13 AC-3,3501 ;AROV SET
1829 031371 316 14 0 00 000012 CAMN AC,AC-2 ;TEST PROD=372400000000
1830 031372 003 14 0 00 003501 ER3 AC,3501
1831 031373 321 16 0 00 031360 JUMPL AC+2,P3500 ;LOOP ON ERROR SWITCH
1832
1833 ;TEST FMP
1834 ;AR=0
1835 ;BR=577400000000
1836 ;CORR PROD=0 (NR ALL ZERO COND)
1837 ;ERR PROD=312400000000 AND UNDERFLOW
1838
1839 000014 AC=14
1840 SAVEAC (1,1)^
1841 031374 201 16 0 00 031374 MOVEI AC+2,.
1842 031375 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1843 031376 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1844 031377 202 16 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1845
1846 031400 205 12 0 00 312400 P3600: MOVSI AC-2,312400 ;SETUP FOR COMPARISON
1847 031401 400 14 0 00 000000 SETZ AC, ;SETUP AC
1848 031402 205 13 0 00 577400 MOVSI AC-1,577400 ;SETUP BR
1849 031403 160 14 0 00 000013 FMP AC,AC-1 ;C(AC) X C(E)
1850 031404 316 14 0 00 000012 CAMN AC,AC-2 ;TEST PROD=312400000000
1851 031405 003 14 0 00 003601 ER3 AC,3601
1852 031406 321 16 0 00 031400 JUMPL AC+2,P3600 ;LOOP ON ERROR SWITCH
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 15
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0058
1853 SUBTTL PART IIIB-GEN TEST-FMP,FDV
1854
1855 ;PART IIIB-GENTEST -FMP, FDV
1856 ;TEST FMP-EXPCAL
1857 ;NR NORMAL
1858 ;TWO POSITIVES, INCREASING BR EXPONENT
1859 ;AR=200400000000
1860 ;BR=201.4,202.4,204.4,210.4,220.4
1861 ;240.4,300.4
1862 ;PRODS=200.4,201.4,203.4,207.4,217.4
1863 ;237.4,277.4
1864
1865 000014 AC=14
1866 SAVEAC (1,1)^
1867 031407 201 16 0 00 031407 MOVEI AC+2,.
1868 031410 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1869 031411 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1870 031412 202 16 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1871 003700 SN=3700
1872 000400 ZZ=400
1873
1874 P3700: REPEAT ^D7, ;TEST FMP
1875 <SN=SN+1
1876 ZZ=ZZ+ZZ
1877 XX=ZZ-1000
1878 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
1879 MOVSI AC,200400 ;SETUP AC
1880 MOVSI AC-1,200400+ZZ ;SETUP BR
1881 FMP AC,AC-1 ;C(AC)XC(E)
1882 CAME AC,AC-2 ;TEST PROD
1883 ER3 AC,SN ;FMP FAILED
1884 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
1885 >
1886 003701 SN=SN+1
1887 001000 ZZ=ZZ+ZZ
1888 000000 XX=ZZ-1000
1889 031413 205 12 0 00 200400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
1890 031414 205 14 0 00 200400 MOVSI AC,200400 ;SETUP AC
1891 031415 205 13 0 00 201400 MOVSI AC-1,200400+ZZ ;SETUP BR
1892 031416 160 14 0 00 000013 FMP AC,AC-1 ;C(AC)XC(E)
1893 031417 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
1894 031420 003 14 0 00 003701 ER3 AC,SN ;FMP FAILED
1895 031421 321 16 0 00 031413 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
1896
1897 003702 SN=SN+1
1898 002000 ZZ=ZZ+ZZ
1899 001000 XX=ZZ-1000
1900 031422 205 12 0 00 201400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
1901 031423 205 14 0 00 200400 MOVSI AC,200400 ;SETUP AC
1902 031424 205 13 0 00 202400 MOVSI AC-1,200400+ZZ ;SETUP BR
1903 031425 160 14 0 00 000013 FMP AC,AC-1 ;C(AC)XC(E)
1904 031426 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
1905 031427 003 14 0 00 003702 ER3 AC,SN ;FMP FAILED
1906 031430 321 16 0 00 031422 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
1907
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 15-1
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0059
1908 003703 SN=SN+1
1909 004000 ZZ=ZZ+ZZ
1910 003000 XX=ZZ-1000
1911 031431 205 12 0 00 203400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
1912 031432 205 14 0 00 200400 MOVSI AC,200400 ;SETUP AC
1913 031433 205 13 0 00 204400 MOVSI AC-1,200400+ZZ ;SETUP BR
1914 031434 160 14 0 00 000013 FMP AC,AC-1 ;C(AC)XC(E)
1915 031435 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
1916 031436 003 14 0 00 003703 ER3 AC,SN ;FMP FAILED
1917 031437 321 16 0 00 031431 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
1918
1919 003704 SN=SN+1
1920 010000 ZZ=ZZ+ZZ
1921 007000 XX=ZZ-1000
1922 031440 205 12 0 00 207400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
1923 031441 205 14 0 00 200400 MOVSI AC,200400 ;SETUP AC
1924 031442 205 13 0 00 210400 MOVSI AC-1,200400+ZZ ;SETUP BR
1925 031443 160 14 0 00 000013 FMP AC,AC-1 ;C(AC)XC(E)
1926 031444 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
1927 031445 003 14 0 00 003704 ER3 AC,SN ;FMP FAILED
1928 031446 321 16 0 00 031440 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
1929
1930 003705 SN=SN+1
1931 020000 ZZ=ZZ+ZZ
1932 017000 XX=ZZ-1000
1933 031447 205 12 0 00 217400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
1934 031450 205 14 0 00 200400 MOVSI AC,200400 ;SETUP AC
1935 031451 205 13 0 00 220400 MOVSI AC-1,200400+ZZ ;SETUP BR
1936 031452 160 14 0 00 000013 FMP AC,AC-1 ;C(AC)XC(E)
1937 031453 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
1938 031454 003 14 0 00 003705 ER3 AC,SN ;FMP FAILED
1939 031455 321 16 0 00 031447 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
1940
1941 003706 SN=SN+1
1942 040000 ZZ=ZZ+ZZ
1943 037000 XX=ZZ-1000
1944 031456 205 12 0 00 237400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
1945 031457 205 14 0 00 200400 MOVSI AC,200400 ;SETUP AC
1946 031460 205 13 0 00 240400 MOVSI AC-1,200400+ZZ ;SETUP BR
1947 031461 160 14 0 00 000013 FMP AC,AC-1 ;C(AC)XC(E)
1948 031462 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
1949 031463 003 14 0 00 003706 ER3 AC,SN ;FMP FAILED
1950 031464 321 16 0 00 031456 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
1951
1952 003707 SN=SN+1
1953 100000 ZZ=ZZ+ZZ
1954 077000 XX=ZZ-1000
1955 031465 205 12 0 00 277400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
1956 031466 205 14 0 00 200400 MOVSI AC,200400 ;SETUP AC
1957 031467 205 13 0 00 300400 MOVSI AC-1,200400+ZZ ;SETUP BR
1958 031470 160 14 0 00 000013 FMP AC,AC-1 ;C(AC)XC(E)
1959 031471 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
1960 031472 003 14 0 00 003707 ER3 AC,SN ;FMP FAILED
1961 031473 321 16 0 00 031465 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
1962
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 16
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0060
1963 ;TEST FMP-EXP CAL
1964 ;NR NORMAL
1965 ;TWO POSITIVES, INCREASING AR EXPONENT
1966 ;AR=201.4,202.4,204.4,210.4,220.4,
1967 ;240.4,300.4
1968 ;BR=200400000000
1969 ;PRODS=200.4 201.4,203.4,207.4,217.4,237.4,277.4
1970
1971 000014 AC=14
1972 SAVEAC (1,1)^
1973 031474 201 16 0 00 031474 MOVEI AC+2,.
1974 031475 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
1975 031476 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
1976 031477 202 16 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
1977 004000 SN=4000
1978 000400 ZZ=400
1979
1980 P4000: REPEAT ^D7, ;TEST FMP
1981 <SN=SN+1
1982 ZZ=ZZ+ZZ
1983 XX=ZZ-1000
1984 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
1985 MOVSI AC,200400+ZZ ;SETUP AC
1986 MOVSI AC-1,200400 ;SETUP BR
1987 FMP AC,AC-1 ;C(AC)XC(E)
1988 CAME AC,AC-2 ;TEST PROD
1989 ER3 AC,SN ;FMP FAILED
1990 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
1991 >
1992 004001 SN=SN+1
1993 001000 ZZ=ZZ+ZZ
1994 000000 XX=ZZ-1000
1995 031500 205 12 0 00 200400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
1996 031501 205 14 0 00 201400 MOVSI AC,200400+ZZ ;SETUP AC
1997 031502 205 13 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
1998 031503 160 14 0 00 000013 FMP AC,AC-1 ;C(AC)XC(E)
1999 031504 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
2000 031505 003 14 0 00 004001 ER3 AC,SN ;FMP FAILED
2001 031506 321 16 0 00 031500 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2002
2003 004002 SN=SN+1
2004 002000 ZZ=ZZ+ZZ
2005 001000 XX=ZZ-1000
2006 031507 205 12 0 00 201400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
2007 031510 205 14 0 00 202400 MOVSI AC,200400+ZZ ;SETUP AC
2008 031511 205 13 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
2009 031512 160 14 0 00 000013 FMP AC,AC-1 ;C(AC)XC(E)
2010 031513 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
2011 031514 003 14 0 00 004002 ER3 AC,SN ;FMP FAILED
2012 031515 321 16 0 00 031507 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2013
2014 004003 SN=SN+1
2015 004000 ZZ=ZZ+ZZ
2016 003000 XX=ZZ-1000
2017 031516 205 12 0 00 203400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 16-1
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0061
2018 031517 205 14 0 00 204400 MOVSI AC,200400+ZZ ;SETUP AC
2019 031520 205 13 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
2020 031521 160 14 0 00 000013 FMP AC,AC-1 ;C(AC)XC(E)
2021 031522 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
2022 031523 003 14 0 00 004003 ER3 AC,SN ;FMP FAILED
2023 031524 321 16 0 00 031516 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2024
2025 004004 SN=SN+1
2026 010000 ZZ=ZZ+ZZ
2027 007000 XX=ZZ-1000
2028 031525 205 12 0 00 207400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
2029 031526 205 14 0 00 210400 MOVSI AC,200400+ZZ ;SETUP AC
2030 031527 205 13 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
2031 031530 160 14 0 00 000013 FMP AC,AC-1 ;C(AC)XC(E)
2032 031531 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
2033 031532 003 14 0 00 004004 ER3 AC,SN ;FMP FAILED
2034 031533 321 16 0 00 031525 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2035
2036 004005 SN=SN+1
2037 020000 ZZ=ZZ+ZZ
2038 017000 XX=ZZ-1000
2039 031534 205 12 0 00 217400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
2040 031535 205 14 0 00 220400 MOVSI AC,200400+ZZ ;SETUP AC
2041 031536 205 13 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
2042 031537 160 14 0 00 000013 FMP AC,AC-1 ;C(AC)XC(E)
2043 031540 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
2044 031541 003 14 0 00 004005 ER3 AC,SN ;FMP FAILED
2045 031542 321 16 0 00 031534 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2046
2047 004006 SN=SN+1
2048 040000 ZZ=ZZ+ZZ
2049 037000 XX=ZZ-1000
2050 031543 205 12 0 00 237400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
2051 031544 205 14 0 00 240400 MOVSI AC,200400+ZZ ;SETUP AC
2052 031545 205 13 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
2053 031546 160 14 0 00 000013 FMP AC,AC-1 ;C(AC)XC(E)
2054 031547 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
2055 031550 003 14 0 00 004006 ER3 AC,SN ;FMP FAILED
2056 031551 321 16 0 00 031543 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2057
2058 004007 SN=SN+1
2059 100000 ZZ=ZZ+ZZ
2060 077000 XX=ZZ-1000
2061 031552 205 12 0 00 277400 MOVSI AC-2,200400+XX ;SETUP FOR COMPARISON
2062 031553 205 14 0 00 300400 MOVSI AC,200400+ZZ ;SETUP AC
2063 031554 205 13 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
2064 031555 160 14 0 00 000013 FMP AC,AC-1 ;C(AC)XC(E)
2065 031556 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
2066 031557 003 14 0 00 004007 ER3 AC,SN ;FMP FAILED
2067 031560 321 16 0 00 031552 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2068
2069 PAGE
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 16-2
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0062
2070 ;TEST FMP - EXP CAL
2071 ;FP EXP ADD, NR NORMAL
2072 ;AR=200400000000
2073 ;BR=577.4,576.4,575.4
2074 ;PRODS=600.4,577.4,576.4
2075
2076 000013 AC=13
2077 SAVEAC (1,1)^
2078 031561 201 15 0 00 031561 MOVEI AC+2,.
2079 031562 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2080 031563 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2081 031564 202 15 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2082 004100 SN=4100
2083 601400 XX=601400
2084 600400 ZZ=600400
2085
2086 P4100: REPEAT ^D3, ;TEST FMP
2087 <SN=SN+1
2088 XX=XX-1000
2089 ZZ=ZZ-1000
2090 MOVSI AC-2,XX ;SETUP FOR COMPARISON
2091 MOVSI AC,200400 ;SETUP AC
2092 MOVSI AC-1,ZZ ;SETUP BR
2093 FMP AC,AC-1 ;C(AC)XC(E)
2094 CAME AC,AC-2 ;TEST PROD
2095 ER3 AC,SN ;FMP FAILED
2096 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2097 >
2098 004101 SN=SN+1
2099 600400 XX=XX-1000
2100 577400 ZZ=ZZ-1000
2101 031565 205 11 0 00 600400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
2102 031566 205 13 0 00 200400 MOVSI AC,200400 ;SETUP AC
2103 031567 205 12 0 00 577400 MOVSI AC-1,ZZ ;SETUP BR
2104 031570 160 13 0 00 000012 FMP AC,AC-1 ;C(AC)XC(E)
2105 031571 312 13 0 00 000011 CAME AC,AC-2 ;TEST PROD
2106 031572 003 13 0 00 004101 ER3 AC,SN ;FMP FAILED
2107 031573 321 15 0 00 031565 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2108
2109 004102 SN=SN+1
2110 577400 XX=XX-1000
2111 576400 ZZ=ZZ-1000
2112 031574 205 11 0 00 577400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
2113 031575 205 13 0 00 200400 MOVSI AC,200400 ;SETUP AC
2114 031576 205 12 0 00 576400 MOVSI AC-1,ZZ ;SETUP BR
2115 031577 160 13 0 00 000012 FMP AC,AC-1 ;C(AC)XC(E)
2116 031600 312 13 0 00 000011 CAME AC,AC-2 ;TEST PROD
2117 031601 003 13 0 00 004102 ER3 AC,SN ;FMP FAILED
2118 031602 321 15 0 00 031574 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2119
2120 004103 SN=SN+1
2121 576400 XX=XX-1000
2122 575400 ZZ=ZZ-1000
2123 031603 205 11 0 00 576400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
2124 031604 205 13 0 00 200400 MOVSI AC,200400 ;SETUP AC
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 16-3
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0063
2125 031605 205 12 0 00 575400 MOVSI AC-1,ZZ ;SETUP BR
2126 031606 160 13 0 00 000012 FMP AC,AC-1 ;C(AC)XC(E)
2127 031607 312 13 0 00 000011 CAME AC,AC-2 ;TEST PROD
2128 031610 003 13 0 00 004103 ER3 AC,SN ;FMP FAILED
2129 031611 321 15 0 00 031603 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2130
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 17
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0064
2131 ;TEST FMP
2132 ;AR=200777777777,6,5,4
2133 ;BR=200400000000
2134 ;PRODS=177777777777,6,5,4
2135
2136 000012 AC=12
2137 SAVEAC (1,1)^
2138 031612 201 14 0 00 031612 MOVEI AC+2,.
2139 031613 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2140 031614 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2141 031615 202 14 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2142 004200 SN=4200
2143 000000 ZZ=0
2144 P4200: REPEAT ^D4, ;TEST FMP
2145 <SN=SN+1
2146 ZZ=ZZ-1
2147 HRLI AC-2,177777 ;SETUP AC-2
2148 HRRI AC-2,ZZ ;FOR COMPARISON
2149 HRLI AC,200777 ;SETUP
2150 HRRI AC,ZZ ;AC
2151 MOVSI AC-1,200400 ;SETUP BR
2152 FMP AC,AC-1 ;C(AC)XC(E)
2153 CAME AC,AC-2 ;TEST PROD
2154 ER3 AC,SN ;FMP FAILED
2155 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
2156 >
2157 004201 SN=SN+1
2158 777777 777777 ZZ=ZZ-1
2159 031616 505 10 0 00 177777 HRLI AC-2,177777 ;SETUP AC-2
2160 031617 541 10 0 00 777777 HRRI AC-2,ZZ ;FOR COMPARISON
2161 031620 505 12 0 00 200777 HRLI AC,200777 ;SETUP
2162 031621 541 12 0 00 777777 HRRI AC,ZZ ;AC
2163 031622 205 11 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
2164 031623 160 12 0 00 000011 FMP AC,AC-1 ;C(AC)XC(E)
2165 031624 312 12 0 00 000010 CAME AC,AC-2 ;TEST PROD
2166 031625 003 12 0 00 004201 ER3 AC,SN ;FMP FAILED
2167 031626 321 14 0 00 031616 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
2168
2169 004202 SN=SN+1
2170 777777 777776 ZZ=ZZ-1
2171 031627 505 10 0 00 177777 HRLI AC-2,177777 ;SETUP AC-2
2172 031630 541 10 0 00 777776 HRRI AC-2,ZZ ;FOR COMPARISON
2173 031631 505 12 0 00 200777 HRLI AC,200777 ;SETUP
2174 031632 541 12 0 00 777776 HRRI AC,ZZ ;AC
2175 031633 205 11 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
2176 031634 160 12 0 00 000011 FMP AC,AC-1 ;C(AC)XC(E)
2177 031635 312 12 0 00 000010 CAME AC,AC-2 ;TEST PROD
2178 031636 003 12 0 00 004202 ER3 AC,SN ;FMP FAILED
2179 031637 321 14 0 00 031627 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
2180
2181 004203 SN=SN+1
2182 777777 777775 ZZ=ZZ-1
2183 031640 505 10 0 00 177777 HRLI AC-2,177777 ;SETUP AC-2
2184 031641 541 10 0 00 777775 HRRI AC-2,ZZ ;FOR COMPARISON
2185 031642 505 12 0 00 200777 HRLI AC,200777 ;SETUP
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 17-1
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0065
2186 031643 541 12 0 00 777775 HRRI AC,ZZ ;AC
2187 031644 205 11 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
2188 031645 160 12 0 00 000011 FMP AC,AC-1 ;C(AC)XC(E)
2189 031646 312 12 0 00 000010 CAME AC,AC-2 ;TEST PROD
2190 031647 003 12 0 00 004203 ER3 AC,SN ;FMP FAILED
2191 031650 321 14 0 00 031640 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
2192
2193 004204 SN=SN+1
2194 777777 777774 ZZ=ZZ-1
2195 031651 505 10 0 00 177777 HRLI AC-2,177777 ;SETUP AC-2
2196 031652 541 10 0 00 777774 HRRI AC-2,ZZ ;FOR COMPARISON
2197 031653 505 12 0 00 200777 HRLI AC,200777 ;SETUP
2198 031654 541 12 0 00 777774 HRRI AC,ZZ ;AC
2199 031655 205 11 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
2200 031656 160 12 0 00 000011 FMP AC,AC-1 ;C(AC)XC(E)
2201 031657 312 12 0 00 000010 CAME AC,AC-2 ;TEST PROD
2202 031660 003 12 0 00 004204 ER3 AC,SN ;FMP FAILED
2203 031661 321 14 0 00 031651 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
2204
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 18
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0066
2205 ;TEST FMP-EXP CAL
2206 ;NR ALL ZERO
2207 ;AR=0
2208 ;BR=200400000000
2209 ;PROD=0
2210
2211 000011 AC=11
2212 SAVEAC (1,1)^
2213 031662 201 13 0 00 031662 MOVEI AC+2,.
2214 031663 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2215 031664 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2216 031665 202 13 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2217
2218 031666 400 11 0 00 000000 P4300: SETZ AC, ;SETUP AC
2219 031667 205 10 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
2220 031670 160 11 0 00 000010 FMP AC,AC-1 ;C(AC)XC(E)
2221 031671 332 00 0 00 000011 SKIPE AC ;TEST PROD
2222 031672 003 11 0 00 004301 ER3 AC,4301 ;FMP FAILED
2223 031673 321 13 0 00 031666 JUMPL AC+2,P4300 ;LOOP ON ERROR SWITCH
2224
2225 ;TEST FMP-EXP CAL
2226 ;NEGATIVE AR EXP
2227 ;AR=577400000000
2228 ;BR=200400000000
2229 ;PROD=600400000000
2230
2231 000010 AC=10
2232 SAVEAC (1,1)^
2233 031674 201 12 0 00 031674 MOVEI AC+2,.
2234 031675 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2235 031676 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2236 031677 202 12 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2237
2238 031700 205 06 0 00 600400 P4400: MOVSI AC-2,600400 ;SETUP FOR COMPARISON
2239 031701 205 10 0 00 577400 MOVSI AC,577400 ;SETUP AC
2240 031702 205 07 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
2241 031703 160 10 0 00 000007 FMP AC,AC-1 ;C(AC) X C(E)
2242 031704 312 10 0 00 000006 CAME AC,AC-2 ;TEST PROD
2243 031705 003 10 0 00 004401 ER3 AC,4401 ;FMP FAILED
2244 031706 321 12 0 00 031700 JUMPL AC+2,P4400 ;LOOP ON ERROR SWITCH
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 19
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0067
2245 ;TEST FMP-EXP CAL
2246 ;TWO NEGATIVES-INCREASING AR EXPONENT
2247 ;AR=501.7,502.7,503.7,504.7,505.7
2248 ;BR=500400000000
2249 ;PRODS=372.4,371.4,370.4,367.4,366.4
2250
2251 000011 AC=11
2252 SAVEAC (1,1)^
2253 031707 201 13 0 00 031707 MOVEI AC+2,.
2254 031710 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2255 031711 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2256 031712 202 13 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2257 004500 SN=4500
2258 373400 XX=373400
2259 500700 ZZ=500700
2260
2261 P4500: REPEAT ^D5, ;TEST FMP
2262 <SN=SN+1
2263 XX=XX-1000
2264 ZZ=ZZ+1000
2265 MOVSI AC-2,XX ;SETUP FOR COMPARISON
2266 MOVSI AC,ZZ ;SETUP AC
2267 MOVSI AC-1,500400 ;SETUP BR
2268 FMP AC,AC-1 ;C(AC)+C(E)
2269 CAME AC,AC-2 ;TEST PROD
2270 ER3 AC,SN ;FMP FAILED
2271 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2272 >
2273 004501 SN=SN+1
2274 372400 XX=XX-1000
2275 501700 ZZ=ZZ+1000
2276 031713 205 07 0 00 372400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
2277 031714 205 11 0 00 501700 MOVSI AC,ZZ ;SETUP AC
2278 031715 205 10 0 00 500400 MOVSI AC-1,500400 ;SETUP BR
2279 031716 160 11 0 00 000010 FMP AC,AC-1 ;C(AC)+C(E)
2280 031717 312 11 0 00 000007 CAME AC,AC-2 ;TEST PROD
2281 031720 003 11 0 00 004501 ER3 AC,SN ;FMP FAILED
2282 031721 321 13 0 00 031713 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2283
2284 004502 SN=SN+1
2285 371400 XX=XX-1000
2286 502700 ZZ=ZZ+1000
2287 031722 205 07 0 00 371400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
2288 031723 205 11 0 00 502700 MOVSI AC,ZZ ;SETUP AC
2289 031724 205 10 0 00 500400 MOVSI AC-1,500400 ;SETUP BR
2290 031725 160 11 0 00 000010 FMP AC,AC-1 ;C(AC)+C(E)
2291 031726 312 11 0 00 000007 CAME AC,AC-2 ;TEST PROD
2292 031727 003 11 0 00 004502 ER3 AC,SN ;FMP FAILED
2293 031730 321 13 0 00 031722 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2294
2295 004503 SN=SN+1
2296 370400 XX=XX-1000
2297 503700 ZZ=ZZ+1000
2298 031731 205 07 0 00 370400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
2299 031732 205 11 0 00 503700 MOVSI AC,ZZ ;SETUP AC
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 19-1
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0068
2300 031733 205 10 0 00 500400 MOVSI AC-1,500400 ;SETUP BR
2301 031734 160 11 0 00 000010 FMP AC,AC-1 ;C(AC)+C(E)
2302 031735 312 11 0 00 000007 CAME AC,AC-2 ;TEST PROD
2303 031736 003 11 0 00 004503 ER3 AC,SN ;FMP FAILED
2304 031737 321 13 0 00 031731 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2305
2306 004504 SN=SN+1
2307 367400 XX=XX-1000
2308 504700 ZZ=ZZ+1000
2309 031740 205 07 0 00 367400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
2310 031741 205 11 0 00 504700 MOVSI AC,ZZ ;SETUP AC
2311 031742 205 10 0 00 500400 MOVSI AC-1,500400 ;SETUP BR
2312 031743 160 11 0 00 000010 FMP AC,AC-1 ;C(AC)+C(E)
2313 031744 312 11 0 00 000007 CAME AC,AC-2 ;TEST PROD
2314 031745 003 11 0 00 004504 ER3 AC,SN ;FMP FAILED
2315 031746 321 13 0 00 031740 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2316
2317 004505 SN=SN+1
2318 366400 XX=XX-1000
2319 505700 ZZ=ZZ+1000
2320 031747 205 07 0 00 366400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
2321 031750 205 11 0 00 505700 MOVSI AC,ZZ ;SETUP AC
2322 031751 205 10 0 00 500400 MOVSI AC-1,500400 ;SETUP BR
2323 031752 160 11 0 00 000010 FMP AC,AC-1 ;C(AC)+C(E)
2324 031753 312 11 0 00 000007 CAME AC,AC-2 ;TEST PROD
2325 031754 003 11 0 00 004505 ER3 AC,SN ;FMP FAILED
2326 031755 321 13 0 00 031747 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2327
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 20
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0069
2328 ;TEST FMP-EXP CAL
2329 ;TWO POSITIVES
2330 ;AR MANTISSA DECREASING
2331 ;NR NORM TEST
2332 ;AR=200.2,200.1,200.04,200.02,200.01,200.004,200.002
2333 ;BR=200400000000
2334 ;PRODS=176.4,175.4,174.4,173.4,172.4,171.4,170.4
2335
2336 000007 AC=7
2337 SAVEAC (1,1)^
2338 031756 201 11 0 00 031756 MOVEI AC+2,.
2339 031757 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2340 031760 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2341 031761 202 11 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2342 004600 SN=4600
2343 177400 XX=177400
2344 000400 ZZ=400
2345
2346 P4600: REPEAT ^D7, ;TEST FMP
2347 <SN=SN+1
2348 XX=XX-1000
2349 ZZ=ZZ/2
2350 MOVSI AC-2,XX ;SETUP FOR COMPARISON
2351 MOVSI AC,200000+ZZ ;SETUP AC
2352 MOVSI AC-1,200400 ;SETUP BR
2353 FMP AC,AC-1 ;C(AC)XC(E)
2354 CAME AC,AC-2 ;TEST PROD
2355 ER3 AC,SN ;FMP FAILED
2356 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2357 >
2358 004601 SN=SN+1
2359 176400 XX=XX-1000
2360 000200 ZZ=ZZ/2
2361 031762 205 05 0 00 176400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
2362 031763 205 07 0 00 200200 MOVSI AC,200000+ZZ ;SETUP AC
2363 031764 205 06 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
2364 031765 160 07 0 00 000006 FMP AC,AC-1 ;C(AC)XC(E)
2365 031766 312 07 0 00 000005 CAME AC,AC-2 ;TEST PROD
2366 031767 003 07 0 00 004601 ER3 AC,SN ;FMP FAILED
2367 031770 321 11 0 00 031762 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2368
2369 004602 SN=SN+1
2370 175400 XX=XX-1000
2371 000100 ZZ=ZZ/2
2372 031771 205 05 0 00 175400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
2373 031772 205 07 0 00 200100 MOVSI AC,200000+ZZ ;SETUP AC
2374 031773 205 06 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
2375 031774 160 07 0 00 000006 FMP AC,AC-1 ;C(AC)XC(E)
2376 031775 312 07 0 00 000005 CAME AC,AC-2 ;TEST PROD
2377 031776 003 07 0 00 004602 ER3 AC,SN ;FMP FAILED
2378 031777 321 11 0 00 031771 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2379
2380 004603 SN=SN+1
2381 174400 XX=XX-1000
2382 000040 ZZ=ZZ/2
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 20-1
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0070
2383 032000 205 05 0 00 174400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
2384 032001 205 07 0 00 200040 MOVSI AC,200000+ZZ ;SETUP AC
2385 032002 205 06 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
2386 032003 160 07 0 00 000006 FMP AC,AC-1 ;C(AC)XC(E)
2387 032004 312 07 0 00 000005 CAME AC,AC-2 ;TEST PROD
2388 032005 003 07 0 00 004603 ER3 AC,SN ;FMP FAILED
2389 032006 321 11 0 00 032000 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2390
2391 004604 SN=SN+1
2392 173400 XX=XX-1000
2393 000020 ZZ=ZZ/2
2394 032007 205 05 0 00 173400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
2395 032010 205 07 0 00 200020 MOVSI AC,200000+ZZ ;SETUP AC
2396 032011 205 06 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
2397 032012 160 07 0 00 000006 FMP AC,AC-1 ;C(AC)XC(E)
2398 032013 312 07 0 00 000005 CAME AC,AC-2 ;TEST PROD
2399 032014 003 07 0 00 004604 ER3 AC,SN ;FMP FAILED
2400 032015 321 11 0 00 032007 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2401
2402 004605 SN=SN+1
2403 172400 XX=XX-1000
2404 000010 ZZ=ZZ/2
2405 032016 205 05 0 00 172400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
2406 032017 205 07 0 00 200010 MOVSI AC,200000+ZZ ;SETUP AC
2407 032020 205 06 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
2408 032021 160 07 0 00 000006 FMP AC,AC-1 ;C(AC)XC(E)
2409 032022 312 07 0 00 000005 CAME AC,AC-2 ;TEST PROD
2410 032023 003 07 0 00 004605 ER3 AC,SN ;FMP FAILED
2411 032024 321 11 0 00 032016 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2412
2413 004606 SN=SN+1
2414 171400 XX=XX-1000
2415 000004 ZZ=ZZ/2
2416 032025 205 05 0 00 171400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
2417 032026 205 07 0 00 200004 MOVSI AC,200000+ZZ ;SETUP AC
2418 032027 205 06 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
2419 032030 160 07 0 00 000006 FMP AC,AC-1 ;C(AC)XC(E)
2420 032031 312 07 0 00 000005 CAME AC,AC-2 ;TEST PROD
2421 032032 003 07 0 00 004606 ER3 AC,SN ;FMP FAILED
2422 032033 321 11 0 00 032025 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2423
2424 004607 SN=SN+1
2425 170400 XX=XX-1000
2426 000002 ZZ=ZZ/2
2427 032034 205 05 0 00 170400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
2428 032035 205 07 0 00 200002 MOVSI AC,200000+ZZ ;SETUP AC
2429 032036 205 06 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
2430 032037 160 07 0 00 000006 FMP AC,AC-1 ;C(AC)XC(E)
2431 032040 312 07 0 00 000005 CAME AC,AC-2 ;TEST PROD
2432 032041 003 07 0 00 004607 ER3 AC,SN ;FMP FAILED
2433 032042 321 11 0 00 032034 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2434
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 21
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0071
2435 ;TEST FMP-EXP CAL
2436 ;AR=500.7,500.77
2437 ;BR=200400000000
2438 ;PRODS=503.4,506.4
2439
2440 000006 AC=6
2441 SAVEAC (1,1)^
2442 032043 201 10 0 00 032043 MOVEI AC+2,.
2443 032044 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2444 032045 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2445 032046 202 10 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2446 004700 SN=4700
2447 500400 XX=500400
2448 500610 ZZ=500610
2449
2450 P4700: REPEAT ^D2, ;TEST FMP
2451 <SN=SN+1
2452 XX=XX+3000
2453 ZZ=ZZ+70
2454 MOVSI AC-2,XX ;SETUP FOR COMPARISON
2455 MOVSI AC,ZZ ;SETUP AC
2456 MOVSI AC-1,200400 ;SETUP BR
2457 FMP AC,AC-1 ;C(AC)XC(E)
2458 CAME AC,AC-2 ;TEST PROD
2459 ER3 AC,SN ;FMP FAILED
2460 CAME AC-1,[200400,,0];EXAMINE C(E)
2461 ER5 AC-1,SN ;C(E) WAS CLOBBERED
2462 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
2463 >
2464 004701 SN=SN+1
2465 503400 XX=XX+3000
2466 500700 ZZ=ZZ+70
2467 032047 205 04 0 00 503400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
2468 032050 205 06 0 00 500700 MOVSI AC,ZZ ;SETUP AC
2469 032051 205 05 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
2470 032052 160 06 0 00 000005 FMP AC,AC-1 ;C(AC)XC(E)
2471 032053 312 06 0 00 000004 CAME AC,AC-2 ;TEST PROD
2472 032054 003 06 0 00 004701 ER3 AC,SN ;FMP FAILED
2473 032055 312 05 0 00 033460 CAME AC-1,[200400,,0];EXAMINE C(E)
2474 032056 005 05 0 00 004701 ER5 AC-1,SN ;C(E) WAS CLOBBERED
2475 032057 321 10 0 00 032047 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
2476
2477 004702 SN=SN+1
2478 506400 XX=XX+3000
2479 500770 ZZ=ZZ+70
2480 032060 205 04 0 00 506400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
2481 032061 205 06 0 00 500770 MOVSI AC,ZZ ;SETUP AC
2482 032062 205 05 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
2483 032063 160 06 0 00 000005 FMP AC,AC-1 ;C(AC)XC(E)
2484 032064 312 06 0 00 000004 CAME AC,AC-2 ;TEST PROD
2485 032065 003 06 0 00 004702 ER3 AC,SN ;FMP FAILED
2486 032066 312 05 0 00 033460 CAME AC-1,[200400,,0];EXAMINE C(E)
2487 032067 005 05 0 00 004702 ER5 AC-1,SN ;C(E) WAS CLOBBERED
2488 032070 321 10 0 00 032060 JUMPL AC+2,.-^D8 ;LOOP ON ERROR SWITCH
2489
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 21-1
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0072
2490 ;TEST ECO49
2491 ;TEST UNDERFLOW
2492 ;AR=000400000000
2493 ;BR=000400000000
2494 ;FLAGS=440100
2495 ;SMALLEST NORMALIZED NUMBER SQUARED SHOULD CAUSE UNDERFLOW
2496
2497 000006 AC=6
2498 SAVEAC (1,1)^
2499 032071 201 10 0 00 032071 MOVEI AC+2,.
2500 032072 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2501 032073 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2502 032074 202 10 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2503
2504 032075 254 02 1 00 032076 P5000: JRST 2,@.+1 ;CLEAR PC FLAGS
2505 032076 000000 032077 XWD 0,.+1
2506 032077 205 06 0 00 000400 MOVSI AC,000400 ;GET SMALLEST NORMALIZED NUMBER
2507 032100 160 06 0 00 000006 FMP AC,AC ;SQUARE IT AND CAUSE UNDERFLOW
2508 032101 265 04 0 00 032102 JSP AC-2,.+1 ;GET PC FLAGS
2509 032102 607 04 0 00 000100 TLNN AC-2,FXU ;UNDERFLOW SHOULD BE A ONE
2510 032103 013 04 0 00 005001 ER13 AC-2,5001 ;ERROR
2511 032104 321 10 0 00 032075 JUMPL AC+2,P5000 ;LOOP ON ERROR SWITCH
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 22
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0073
2512 ;TEST FMPB
2513 ;AR=200775000000
2514 ;BR=200775000000
2515 ;PROD=200772011000
2516
2517 000005 AC=5
2518 SAVEAC (1,1)^
2519 032105 201 07 0 00 032105 MOVEI AC+2,.
2520 032106 202 07 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2521 032107 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2522 032110 202 07 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2523
2524 032111 505 03 0 00 200772 P5100: HRLI AC-2,200772 ;SETUP AC-2
2525 032112 541 03 0 00 011000 HRRI AC-2,11000 ;FOR COMPARISON
2526 032113 205 05 0 00 200775 MOVSI AC,200775 ;SETUP AC
2527 032114 205 04 0 00 200775 MOVSI AC-1,200775 ;SETUP BR
2528 032115 163 05 0 00 000004 FMPB AC,AC-1 ;C(AC)XC(E)
2529 032116 312 05 0 00 000003 CAME AC,AC-2 ;TEST PROD (AC)
2530 032117 003 05 0 00 005101 ER3 AC,5101 ;C(AC) FAILED
2531 032120 312 04 0 00 000003 CAME AC-1,AC-2 ;TEST PROD (E)
2532 032121 005 04 0 00 005101 ER5 AC-1,5101 ;C(E) FAILED
2533 032122 321 07 0 00 032111 JUMPL AC+2,P5100 ;LOOP ON ERROR SWITCH
2534
2535 ;TEST FMPB
2536 ;AR=200774000000
2537 ;BR=200774000000
2538 ;PROD=200770020000
2539
2540 000014 AC=14
2541 SAVEAC (1,1)^
2542 032123 201 16 0 00 032123 MOVEI AC+2,.
2543 032124 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2544 032125 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2545 032126 202 16 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2546
2547 032127 505 12 0 00 200770 P5200: HRLI AC-2,200770 ;SETUP AC-2
2548 032130 541 12 0 00 020000 HRRI AC-2,20000 ;FOR COMPARISON
2549 032131 205 14 0 00 200774 MOVSI AC,200774 ;SETUP AC
2550 032132 205 13 0 00 200774 MOVSI AC-1,200774 ;SETUP BR
2551 032133 163 14 0 00 000013 FMPB AC,AC-1 ;C(AC)XC(E)
2552 032134 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD (AC)
2553 032135 003 14 0 00 005201 ER3 AC,5201 ;C(AC) FAILED
2554 032136 312 13 0 00 000012 CAME AC-1,AC-2 ;TEST PROD (E)
2555 032137 005 13 0 00 005201 ER5 AC-1,5201 ;C(E) FAILED
2556 032140 321 16 0 00 032127 JUMPL AC+2,P5200 ;LOOP ON ERROR SWITCH
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 23
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0074
2557 ;TEST FMPM
2558 ;AR=200773000000
2559 ;BR=200773000000
2560 ;PROD=200766031000
2561
2562 000014 AC=14
2563 SAVEAC (1,1)^
2564 032141 201 16 0 00 032141 MOVEI AC+2,.
2565 032142 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2566 032143 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2567 032144 202 16 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2568
2569 032145 505 12 0 00 200766 P5300: HRLI AC-2,200766 ;SETUP AC-2
2570 032146 541 12 0 00 031000 HRRI AC-2,31000 ;FOR COMPARISON
2571 032147 205 14 0 00 200773 MOVSI AC,200773 ;SETUP AC
2572 032150 205 13 0 00 200773 MOVSI AC-1,200773 ;SETUP BR
2573 032151 162 14 0 00 000013 FMPM AC,AC-1 ;C(AC)XC(E)
2574 032152 312 13 0 00 000012 CAME AC-1,AC-2 ;TEST PROD
2575 032153 005 13 0 00 005301 ER5 AC-1,5301 ;FMPM FAILED
2576 032154 321 16 0 00 032145 JUMPL AC+2,P5300 ;LOOP ON ERROR SWITCH
2577
2578 ;TEST FMPM
2579 ;AR=177477000000
2580 ;BR=200700000000
2581 ;PROD=177427100000
2582
2583 000013 AC=13
2584 SAVEAC (1,1)^
2585 032155 201 15 0 00 032155 MOVEI AC+2,.
2586 032156 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2587 032157 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2588 032160 202 15 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2589
2590 032161 505 11 0 00 177427 P5400: HRLI AC-2,177427 ;SETUP AC-2
2591 032162 541 11 0 00 100000 HRRI AC-2,100000 ;FOR COMPARISON
2592 032163 205 13 0 00 177477 MOVSI AC,177477 ;SETUP AC
2593 032164 205 12 0 00 200700 MOVSI AC-1,200700 ;SETUP BR
2594 032165 162 13 0 00 000012 FMPM AC,AC-1 ;C(AC)XC(E)
2595 032166 312 13 0 00 033461 CAME AC,[177477,,0] ;EXAMINE C(AC)
2596 032167 003 13 0 00 005401 ER3 AC,5401 ;C(AC) WAS CLOBBERED
2597 032170 312 12 0 00 000011 CAME AC-1,AC-2 ;TEST PROD
2598 032171 005 12 0 00 005401 ER5 AC-1,5401 ;FMPM FAILED
2599 032172 321 15 0 00 032161 JUMPL AC+2,P5400 ;LOOP ON ERROR SWITCH
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 24
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0075
2600 ;TEST FMPR
2601 ;(NOT ROUND COND)
2602 ;AR=200777777777
2603 ;BR=200000000002
2604 ;PROD=146777777777
2605
2606 000006 AC=6
2607 SAVEAC (1,1)^
2608 032173 201 10 0 00 032173 MOVEI AC+2,.
2609 032174 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2610 032175 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2611 032176 202 10 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2612
2613 032177 505 04 0 00 146777 P6100: HRLI AC-2,146777 ;SETUP AC-2
2614 032200 541 04 0 00 777777 HRRI AC-2,-1 ;FOR COMPARISON
2615 032201 505 06 0 00 200777 HRLI AC,200777 ;SETUP
2616 032202 541 06 0 00 777777 HRRI AC,-1 ;AC
2617 032203 205 05 0 00 200000 MOVSI AC-1,200000 ;SETUP
2618 032204 271 05 0 00 000002 ADDI AC-1,2 ;BR
2619 032205 164 06 0 00 000005 FMPR AC,AC-1 ;C(AC)XC(E)
2620 032206 312 06 0 00 000004 CAME AC,AC-2 ;TEST PROD
2621 032207 003 06 0 00 006101 ER3 AC,6101 ;FMPR FAILED
2622 032210 321 10 0 00 032177 JUMPL AC+2,P6100 ;LOOP ON ERROR SWITCH
2623 PAGE
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 24-1
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0076
2624 ;TEST FMPR
2625 ;AR=200700000000
2626 ;BR=200400000077,(76)
2627 ;PROD=177700000156,(155)
2628
2629 000014 AC=14
2630 SAVEAC (1,1)^
2631 032211 201 16 0 00 032211 MOVEI AC+2,.
2632 032212 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2633 032213 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2634 032214 202 16 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2635 006200 SN=6200
2636 000100 XX=100
2637 000157 ZZ=157
2638
2639 P6200: REPEAT ^D2, ;TEST FMPR
2640 <SN=SN+1
2641 XX=XX-1
2642 ZZ=ZZ-1
2643 HRLI AC-2,177700 ;SETUP AC-2
2644 HRRI AC-2,ZZ ;FOR COMPARISON
2645 MOVSI AC,200700 ;SETUP AC
2646 HRLI AC-1,200400 ;SETUP
2647 HRRI AC-1,XX ;BR
2648 FMPR AC,AC-1 ;C(AC)XC(E)
2649 CAME AC,AC-2 ;TEST PROD
2650 ER3 AC,SN ;FMPR FAILED
2651 CAME AC-1,[200400,,XX] ;EXAMINE C(E)
2652 ER5 AC-1,SN ;C(E) WAS CLOBBERED
2653 JUMPL AC-2,.-^D10 ;LOOP ON ERROR SWITCH
2654 >
2655 006201 SN=SN+1
2656 000077 XX=XX-1
2657 000156 ZZ=ZZ-1
2658 032215 505 12 0 00 177700 HRLI AC-2,177700 ;SETUP AC-2
2659 032216 541 12 0 00 000156 HRRI AC-2,ZZ ;FOR COMPARISON
2660 032217 205 14 0 00 200700 MOVSI AC,200700 ;SETUP AC
2661 032220 505 13 0 00 200400 HRLI AC-1,200400 ;SETUP
2662 032221 541 13 0 00 000077 HRRI AC-1,XX ;BR
2663 032222 164 14 0 00 000013 FMPR AC,AC-1 ;C(AC)XC(E)
2664 032223 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
2665 032224 003 14 0 00 006201 ER3 AC,SN ;FMPR FAILED
2666 032225 312 13 0 00 033462 CAME AC-1,[200400,,XX] ;EXAMINE C(E)
2667 032226 005 13 0 00 006201 ER5 AC-1,SN ;C(E) WAS CLOBBERED
2668 032227 321 12 0 00 032215 JUMPL AC-2,.-^D10 ;LOOP ON ERROR SWITCH
2669
2670 006202 SN=SN+1
2671 000076 XX=XX-1
2672 000155 ZZ=ZZ-1
2673 032230 505 12 0 00 177700 HRLI AC-2,177700 ;SETUP AC-2
2674 032231 541 12 0 00 000155 HRRI AC-2,ZZ ;FOR COMPARISON
2675 032232 205 14 0 00 200700 MOVSI AC,200700 ;SETUP AC
2676 032233 505 13 0 00 200400 HRLI AC-1,200400 ;SETUP
2677 032234 541 13 0 00 000076 HRRI AC-1,XX ;BR
2678 032235 164 14 0 00 000013 FMPR AC,AC-1 ;C(AC)XC(E)
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 24-2
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0077
2679 032236 312 14 0 00 000012 CAME AC,AC-2 ;TEST PROD
2680 032237 003 14 0 00 006202 ER3 AC,SN ;FMPR FAILED
2681 032240 312 13 0 00 033463 CAME AC-1,[200400,,XX] ;EXAMINE C(E)
2682 032241 005 13 0 00 006202 ER5 AC-1,SN ;C(E) WAS CLOBBERED
2683 032242 321 12 0 00 032230 JUMPL AC-2,.-^D10 ;LOOP ON ERROR SWITCH
2684
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 25
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0078
2685 ;TEST FMPRM
2686 ;AR=200700000000
2687 ;BR=200400000075
2688 ;PROD=177700000153
2689
2690 000014 AC=14
2691 SAVEAC (1,1)^
2692 032243 201 16 0 00 032243 MOVEI AC+2,.
2693 032244 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2694 032245 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2695 032246 202 16 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2696
2697 032247 505 12 0 00 177700 P6300: HRLI AC-2,177700 ;SETUP AC-2
2698 032250 541 12 0 00 000153 HRRI AC-2,153 ;FOR COMPARISON
2699 032251 205 14 0 00 200700 MOVSI AC,200700 ;SETUP AC
2700 032252 505 13 0 00 200400 HRLI AC-1,200400 ;SETUP
2701 032253 541 13 0 00 000075 HRRI AC-1,75 ;BR
2702 032254 166 14 0 00 000013 FMPRM AC,AC-1 ;C(AC)XC(E)
2703 032255 312 14 0 00 033464 CAME AC,[200700,,0] ;EXAMINE C(AC)
2704 032256 003 14 0 00 006301 ER3 AC,6301 ;C(AC) WAS CLOBBERED
2705 032257 312 13 0 00 000012 CAME AC-1,AC-2 ;TEST PROD
2706 032260 005 13 0 00 006301 ER5 AC-1,6301 ;FMPRM FAILED
2707 032261 321 16 0 00 032247 JUMPL AC+2,P6300 ;LOOP ON ERROR SWITCH
2708
2709 ;TEST FMPRB
2710 ;AR=577400000000
2711 ;BR=600400000000
2712 ;PROD=176400000000
2713
2714 000013 AC=13
2715 SAVEAC (1,1)^
2716 032262 201 15 0 00 032262 MOVEI AC+2,.
2717 032263 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2718 032264 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2719 032265 202 15 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2720
2721 032266 205 11 0 00 176400 P6400: MOVSI AC-2,176400 ;SETUP FOR COMPARISON
2722 032267 205 13 0 00 577400 MOVSI AC,577400 ;SETUP AC
2723 032270 205 12 0 00 600400 MOVSI AC-1,600400 ;SETUP BR
2724 032271 167 13 0 00 000012 FMPRB AC,AC-1 ;C(AC)XC(E)
2725 032272 312 13 0 00 000011 CAME AC,AC-2 ;TEST PROD (AC)
2726 032273 003 13 0 00 006401 ER3 AC,6401 ;C(AC) FAILED
2727 032274 312 12 0 00 000011 CAME AC-1,AC-2 ;TEST PROD (E)
2728 032275 005 12 0 00 006401 ER5 AC-1,6401 ;FMPRB FAILED
2729 032276 321 15 0 00 032266 JUMPL AC+2,P6400 ;LOOP ON ERROR SWITCH
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 26
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0079
2730 ;TEST FMPRI
2731 ;AR=600400000077,(76)
2732 ;E=177600
2733 ;PRODS=602200000136,(135),
2734
2735 000012 AC=12
2736 SAVEAC (1,1)^
2737 032277 201 14 0 00 032277 MOVEI AC+2,.
2738 032300 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2739 032301 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2740 032302 202 14 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2741 006500 SN=6500
2742 000137 XX=137
2743 000100 ZZ=100
2744
2745 P6500: REPEAT ^D2, ;TEST FMPRI
2746 <SN=SN+1
2747 XX=XX-1
2748 ZZ=ZZ-1
2749 HRLI AC-2,602200 ;SETUP AC-2
2750 HRRI AC-2,XX ;FOR COMPARISON
2751 HRLI AC,600400 ;SETUP
2752 HRRI AC,ZZ ;AC
2753 FMPRI AC,177600 ;C(AC)X E
2754 CAME AC,AC-2 ;TEST PROD
2755 ER3 AC,SN ;FMPRI FAILED
2756 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
2757 >
2758 006501 SN=SN+1
2759 000136 XX=XX-1
2760 000077 ZZ=ZZ-1
2761 032303 505 10 0 00 602200 HRLI AC-2,602200 ;SETUP AC-2
2762 032304 541 10 0 00 000136 HRRI AC-2,XX ;FOR COMPARISON
2763 032305 505 12 0 00 600400 HRLI AC,600400 ;SETUP
2764 032306 541 12 0 00 000077 HRRI AC,ZZ ;AC
2765 032307 165 12 0 00 177600 FMPRI AC,177600 ;C(AC)X E
2766 032310 312 12 0 00 000010 CAME AC,AC-2 ;TEST PROD
2767 032311 003 12 0 00 006501 ER3 AC,SN ;FMPRI FAILED
2768 032312 321 14 0 00 032303 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
2769
2770 006502 SN=SN+1
2771 000135 XX=XX-1
2772 000076 ZZ=ZZ-1
2773 032313 505 10 0 00 602200 HRLI AC-2,602200 ;SETUP AC-2
2774 032314 541 10 0 00 000135 HRRI AC-2,XX ;FOR COMPARISON
2775 032315 505 12 0 00 600400 HRLI AC,600400 ;SETUP
2776 032316 541 12 0 00 000076 HRRI AC,ZZ ;AC
2777 032317 165 12 0 00 177600 FMPRI AC,177600 ;C(AC)X E
2778 032320 312 12 0 00 000010 CAME AC,AC-2 ;TEST PROD
2779 032321 003 12 0 00 006502 ER3 AC,SN ;FMPRI FAILED
2780 032322 321 14 0 00 032313 JUMPL AC+2,.-7 ;LOOP ON ERROR SWITCH
2781
2782 PAGE
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 26-1
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0080
2783 ;TEST FMPRI
2784 ;AR=600400000000
2785 ;E=576400,575400
2786 ;PROD=177400000000,200400000000
2787
2788 000011 AC=11
2789 SAVEAC (1,1)^
2790 032323 201 13 0 00 032323 MOVEI AC+2,.
2791 032324 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2792 032325 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2793 032326 202 13 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2794
2795 006600 SN=6600
2796 176400 XX=176400
2797 577400 ZZ=577400
2798
2799 P6600: REPEAT ^D2, ;TEST FMPRI
2800 <SN=SN+1
2801 XX=XX+1000
2802 ZZ=ZZ-1000
2803 MOVSI AC-2,XX ;SETUP FOR COMPARISON
2804 MOVSI AC,600400 ;SETUP AC
2805 FMPRI AC,ZZ ;C(AC)X E
2806 CAME AC,AC-2 ;TEST PROD
2807 ER3 AC,6601 ;FMPRI FAILED
2808 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
2809
2810 >
2811 006601 SN=SN+1
2812 177400 XX=XX+1000
2813 576400 ZZ=ZZ-1000
2814 032327 205 07 0 00 177400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
2815 032330 205 11 0 00 600400 MOVSI AC,600400 ;SETUP AC
2816 032331 165 11 0 00 576400 FMPRI AC,ZZ ;C(AC)X E
2817 032332 312 11 0 00 000007 CAME AC,AC-2 ;TEST PROD
2818 032333 003 11 0 00 006601 ER3 AC,6601 ;FMPRI FAILED
2819 032334 321 13 0 00 032327 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
2820
2821
2822 006602 SN=SN+1
2823 200400 XX=XX+1000
2824 575400 ZZ=ZZ-1000
2825 032335 205 07 0 00 200400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
2826 032336 205 11 0 00 600400 MOVSI AC,600400 ;SETUP AC
2827 032337 165 11 0 00 575400 FMPRI AC,ZZ ;C(AC)X E
2828 032340 312 11 0 00 000007 CAME AC,AC-2 ;TEST PROD
2829 032341 003 11 0 00 006601 ER3 AC,6601 ;FMPRI FAILED
2830 032342 321 13 0 00 032335 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
2831
2832
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 27
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0081
2833 ;TEST ECO49
2834 ;TEST CLEAR MQ LOGIC
2835 ;AR=400000000001
2836 ;E=1.0
2837 ;PROD=400000000001
2838 ;ERROR PROD=777400000000
2839 ;FLAGS=0
2840
2841 000011 AC=11
2842 SAVEAC (1,1)^
2843 032343 201 13 0 00 032343 MOVEI AC+2,.
2844 032344 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2845 032345 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2846 032346 202 13 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2847
2848 032347 254 02 1 00 032350 P6700: JRST 2,@.+1 ;CLEAR PC FLAGS
2849 032350 000000 032351 XWD 0,.+1
2850 032351 200 11 0 00 033465 MOVE AC,[XWD 400000,000001] ;GET LARGEST NEGATIVE FP NUMBER
2851 032352 165 11 0 00 201400 FMPRI AC,(1.0) ;MULTIPLY IT BY ONE
2852 032353 316 11 0 00 033466 CAMN AC,[XWD 777400,0] ;CLEAR MQ LOGIC WORKING
2853 032354 003 11 0 00 006701 ER3 AC,6701 ;NO
2854 032355 312 11 0 00 033465 CAME AC,[XWD 400000,000001] ;CORRECT ANSWER
2855 032356 003 11 0 00 006701 ER3 AC,6701 ;NO
2856 032357 265 07 0 00 032360 JSP AC-2,.+1 ;GET PC FLAGS
2857 032360 603 07 0 00 640140 TLNE AC-2,640140 ;ARE ALL FLAGS ZERO
2858 032361 013 07 0 00 006701 ER13 AC-2,6701 ;NO, THEY SHOULD BE
2859 032362 255 10 0 00 032364 JOV .+2 ;EXAMINE ARCV FLAG
2860 032363 254 00 0 00 032365 JRST .+2
2861 032364 013 07 0 00 006701 ER13 AC-2,6701 ;AROV IS SET
2862 032365 321 13 0 00 032347 JUMPL AC+2,P6700 ;LOOP ON ERROR SWITCH
2863 PAGE
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 27-1
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0082
2864 ;TEST FDV
2865 ;AR=200.4,201.4,202.4
2866 ;BR=200.4,201.4,202.4
2867 ;QUOT=201400000000
2868
2869 000014 AC=14
2870 SAVEAC (1,1)^
2871 032366 201 16 0 00 032366 MOVEI AC+2,.
2872 032367 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2873 032370 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2874 032371 202 16 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2875 007000 SN=7000
2876 177400 ZZ=177400
2877
2878 P7000: REPEAT ^D3, ;TEST FDV
2879 <SN=SN+1
2880 ZZ=ZZ+1000
2881 MOVSI AC-2,201400 ;SETUP FOR COMPARISON
2882 MOVSI AC,ZZ ;SETUP AC
2883 MOVSI AC-1,ZZ ;SETUP BR
2884 FDV AC,AC-1 ;C(AC)/C(E)
2885 CAME AC,AC-2 ;TEST QUOT
2886 ER3 AC,7001 ;FDV FAILED
2887 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2888 >
2889 007001 SN=SN+1
2890 200400 ZZ=ZZ+1000
2891 032372 205 12 0 00 201400 MOVSI AC-2,201400 ;SETUP FOR COMPARISON
2892 032373 205 14 0 00 200400 MOVSI AC,ZZ ;SETUP AC
2893 032374 205 13 0 00 200400 MOVSI AC-1,ZZ ;SETUP BR
2894 032375 170 14 0 00 000013 FDV AC,AC-1 ;C(AC)/C(E)
2895 032376 312 14 0 00 000012 CAME AC,AC-2 ;TEST QUOT
2896 032377 003 14 0 00 007001 ER3 AC,7001 ;FDV FAILED
2897 032400 321 16 0 00 032372 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2898
2899 007002 SN=SN+1
2900 201400 ZZ=ZZ+1000
2901 032401 205 12 0 00 201400 MOVSI AC-2,201400 ;SETUP FOR COMPARISON
2902 032402 205 14 0 00 201400 MOVSI AC,ZZ ;SETUP AC
2903 032403 205 13 0 00 201400 MOVSI AC-1,ZZ ;SETUP BR
2904 032404 170 14 0 00 000013 FDV AC,AC-1 ;C(AC)/C(E)
2905 032405 312 14 0 00 000012 CAME AC,AC-2 ;TEST QUOT
2906 032406 003 14 0 00 007001 ER3 AC,7001 ;FDV FAILED
2907 032407 321 16 0 00 032401 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2908
2909 007003 SN=SN+1
2910 202400 ZZ=ZZ+1000
2911 032410 205 12 0 00 201400 MOVSI AC-2,201400 ;SETUP FOR COMPARISON
2912 032411 205 14 0 00 202400 MOVSI AC,ZZ ;SETUP AC
2913 032412 205 13 0 00 202400 MOVSI AC-1,ZZ ;SETUP BR
2914 032413 170 14 0 00 000013 FDV AC,AC-1 ;C(AC)/C(E)
2915 032414 312 14 0 00 000012 CAME AC,AC-2 ;TEST QUOT
2916 032415 003 14 0 00 007001 ER3 AC,7001 ;FDV FAILED
2917 032416 321 16 0 00 032410 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2918
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 28
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0083
2919 ;TEST FDV
2920 ;AR=201.4,202.4,203.4
2921 ;BR=200400000000
2922 ;QUOT=202.4,203.4,204.4
2923
2924 000014 AC=14
2925 SAVEAC (1,1)^
2926 032417 201 16 0 00 032417 MOVEI AC+2,.
2927 032420 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2928 032421 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2929 032422 202 16 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2930 007100 SN=7100
2931 201400 XX=201400
2932 200400 ZZ=200400
2933
2934 P7100: REPEAT ^D3, ;TEST FDV
2935 <SN=SN+1
2936 XX=XX+1000
2937 ZZ=ZZ+1000
2938 MOVSI AC-2,XX ;SETUP FOR COMPARISON
2939 MOVSI AC,ZZ ;SETUP AC
2940 MOVSI AC-1,200400 ;SETUP BR
2941 FDV AC,AC-1 ;C(AC)/C(E)
2942 CAME AC,AC-2 ;TEST QUOT
2943 ER3 AC,7101 ;FDV FAILED
2944 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2945 >
2946 007101 SN=SN+1
2947 202400 XX=XX+1000
2948 201400 ZZ=ZZ+1000
2949 032423 205 12 0 00 202400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
2950 032424 205 14 0 00 201400 MOVSI AC,ZZ ;SETUP AC
2951 032425 205 13 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
2952 032426 170 14 0 00 000013 FDV AC,AC-1 ;C(AC)/C(E)
2953 032427 312 14 0 00 000012 CAME AC,AC-2 ;TEST QUOT
2954 032430 003 14 0 00 007101 ER3 AC,7101 ;FDV FAILED
2955 032431 321 16 0 00 032423 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2956
2957 007102 SN=SN+1
2958 203400 XX=XX+1000
2959 202400 ZZ=ZZ+1000
2960 032432 205 12 0 00 203400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
2961 032433 205 14 0 00 202400 MOVSI AC,ZZ ;SETUP AC
2962 032434 205 13 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
2963 032435 170 14 0 00 000013 FDV AC,AC-1 ;C(AC)/C(E)
2964 032436 312 14 0 00 000012 CAME AC,AC-2 ;TEST QUOT
2965 032437 003 14 0 00 007101 ER3 AC,7101 ;FDV FAILED
2966 032440 321 16 0 00 032432 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2967
2968 007103 SN=SN+1
2969 204400 XX=XX+1000
2970 203400 ZZ=ZZ+1000
2971 032441 205 12 0 00 204400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
2972 032442 205 14 0 00 203400 MOVSI AC,ZZ ;SETUP AC
2973 032443 205 13 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 28-1
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0084
2974 032444 170 14 0 00 000013 FDV AC,AC-1 ;C(AC)/C(E)
2975 032445 312 14 0 00 000012 CAME AC,AC-2 ;TEST QUOT
2976 032446 003 14 0 00 007101 ER3 AC,7101 ;FDV FAILED
2977 032447 321 16 0 00 032441 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2978
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 29
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0085
2979 ;TEST FDV
2980 ;AR=200.6,200.7,200.74
2981 ;BR=200400000000
2982 ;QUOT=201.6,201.7,201.74
2983
2984 000013 AC=13
2985 SAVEAC (1,1)^
2986 032450 201 15 0 00 032450 MOVEI AC+2,.
2987 032451 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
2988 032452 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2989 032453 202 15 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2990 007200 SN=7200
2991 000200 WW=200
2992 201400 XX=201400
2993 200400 ZZ=200400
2994
2995 P7200: REPEAT ^D3, ;TEST FDV
2996 <SN=SN+1
2997 XX=XX+WW
2998 ZZ=ZZ+WW
2999 WW=WW/2
3000 MOVSI AC-2,XX ;SETUP FOR COMPARISON
3001 MOVSI AC,ZZ ;SETUP AC
3002 MOVSI AC-1,200400 ;SETUP BR
3003 FDV AC,AC-1 ;C(AC)/C(E)
3004 CAME AC,AC-2 ;TEST QUOT
3005 ER3 AC,SN ;FDV FAILED
3006 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
3007 >
3008 007201 SN=SN+1
3009 201600 XX=XX+WW
3010 200600 ZZ=ZZ+WW
3011 000100 WW=WW/2
3012 032454 205 11 0 00 201600 MOVSI AC-2,XX ;SETUP FOR COMPARISON
3013 032455 205 13 0 00 200600 MOVSI AC,ZZ ;SETUP AC
3014 032456 205 12 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
3015 032457 170 13 0 00 000012 FDV AC,AC-1 ;C(AC)/C(E)
3016 032460 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT
3017 032461 003 13 0 00 007201 ER3 AC,SN ;FDV FAILED
3018 032462 321 15 0 00 032454 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
3019
3020 007202 SN=SN+1
3021 201700 XX=XX+WW
3022 200700 ZZ=ZZ+WW
3023 000040 WW=WW/2
3024 032463 205 11 0 00 201700 MOVSI AC-2,XX ;SETUP FOR COMPARISON
3025 032464 205 13 0 00 200700 MOVSI AC,ZZ ;SETUP AC
3026 032465 205 12 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
3027 032466 170 13 0 00 000012 FDV AC,AC-1 ;C(AC)/C(E)
3028 032467 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT
3029 032470 003 13 0 00 007202 ER3 AC,SN ;FDV FAILED
3030 032471 321 15 0 00 032463 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
3031
3032 007203 SN=SN+1
3033 201740 XX=XX+WW
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 29-1
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0086
3034 200740 ZZ=ZZ+WW
3035 000020 WW=WW/2
3036 032472 205 11 0 00 201740 MOVSI AC-2,XX ;SETUP FOR COMPARISON
3037 032473 205 13 0 00 200740 MOVSI AC,ZZ ;SETUP AC
3038 032474 205 12 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
3039 032475 170 13 0 00 000012 FDV AC,AC-1 ;C(AC)/C(E)
3040 032476 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT
3041 032477 003 13 0 00 007203 ER3 AC,SN ;FDV FAILED
3042 032500 321 15 0 00 032472 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
3043
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 30
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0087
3044 ;TEST FDV
3045 ;AR=200.4,200.6
3046 ;BR=577400000000
3047 ;QUOT=576.4,576.2
3048
3049 000012 AC=12
3050 SAVEAC (1,1)^
3051 032501 201 14 0 00 032501 MOVEI AC+2,.
3052 032502 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3053 032503 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3054 032504 202 14 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3055
3056 007300 SN=7300
3057 576600 XX=576600
3058 200200 ZZ=200200
3059
3060 P7300: REPEAT ^D2, ;TEST FDV
3061 <SN=SN+1
3062 XX=XX-200
3063 ZZ=ZZ+200
3064 MOVSI AC-2,XX ;SETUP FOR COMPARISON
3065 MOVSI AC,ZZ ;SETUP AC
3066 MOVSI AC-1,577400 ;SETUP BR
3067 FDV AC,AC-1 ;C(AC)/C(E)
3068 CAME AC,AC-2 ;TEST QUOT
3069 ER3 AC,SN ;FDV FAILED
3070 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
3071 >
3072 007301 SN=SN+1
3073 576400 XX=XX-200
3074 200400 ZZ=ZZ+200
3075 032505 205 10 0 00 576400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
3076 032506 205 12 0 00 200400 MOVSI AC,ZZ ;SETUP AC
3077 032507 205 11 0 00 577400 MOVSI AC-1,577400 ;SETUP BR
3078 032510 170 12 0 00 000011 FDV AC,AC-1 ;C(AC)/C(E)
3079 032511 312 12 0 00 000010 CAME AC,AC-2 ;TEST QUOT
3080 032512 003 12 0 00 007301 ER3 AC,SN ;FDV FAILED
3081 032513 321 14 0 00 032505 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
3082
3083 007302 SN=SN+1
3084 576200 XX=XX-200
3085 200600 ZZ=ZZ+200
3086 032514 205 10 0 00 576200 MOVSI AC-2,XX ;SETUP FOR COMPARISON
3087 032515 205 12 0 00 200600 MOVSI AC,ZZ ;SETUP AC
3088 032516 205 11 0 00 577400 MOVSI AC-1,577400 ;SETUP BR
3089 032517 170 12 0 00 000011 FDV AC,AC-1 ;C(AC)/C(E)
3090 032520 312 12 0 00 000010 CAME AC,AC-2 ;TEST QUOT
3091 032521 003 12 0 00 007302 ER3 AC,SN ;FDV FAILED
3092 032522 321 14 0 00 032514 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
3093
3094 PAGE
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 30-1
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0088
3095 ;TEST FDV
3096 ;AR=177400000000
3097 ;BR=204400000000
3098 ;QUOT=1744000000
3099
3100
3101 000011 AC=11
3102 SAVEAC (1,1)^
3103 032523 201 13 0 00 032523 MOVEI AC+2,.
3104 032524 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3105 032525 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3106 032526 202 13 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3107
3108 032527 205 07 0 00 174400 P7400: MOVSI AC-2,174400 ;SETUP FOR COMPARISON
3109 032530 205 11 0 00 177400 MOVSI AC,177400 ;SETUP AC
3110 032531 205 10 0 00 204400 MOVSI AC-1,204400 ;SETUP BR
3111 032532 170 11 0 00 000010 FDV AC,AC-1 ;C(AC)/C(E)
3112 032533 312 11 0 00 000007 CAME AC,AC-2 ;TEST QUOT
3113 032534 003 11 0 00 007401 ER3 AC,7401 ;FDV FAILED
3114 032535 321 13 0 00 032527 JUMPL AC+2,P7400 ;LOOP ON ERROR SWITCH
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 31
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0089
3115 ;TEST FDV
3116 ;AR=576400000000
3117 ;BR=200600000000
3118 ;QUOT=576252525252
3119
3120 000010 AC=10
3121 SAVEAC (1,1)^
3122 032536 201 12 0 00 032536 MOVEI AC+2,.
3123 032537 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3124 032540 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3125 032541 202 12 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3126
3127 032542 505 06 0 00 576252 P7500: HRLI AC-2,576252 ;SETUP AC-2
3128 032543 541 06 0 00 525252 HRRI AC-2,525252 ;FOR COMPARISON
3129 032544 205 10 0 00 576400 MOVSI AC,576400 ;SETUP AC
3130 032545 205 07 0 00 200600 MOVSI AC-1,200600 ;SETUP BR
3131 032546 170 10 0 00 000007 FDV AC,AC-1 ;C(AC)/C(E)
3132 032547 312 10 0 00 000006 CAME AC,AC-2 ;TEST QUOT
3133 032550 003 10 0 00 007501 ER3 AC,7501 ;FDV FAILED
3134 032551 321 12 0 00 032542 JUMPL AC+2,P7500 ;LOOP ON ERROR SWITCH
3135 PAGE
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 31-1
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0090
3136 ;TEST FDV
3137 ;AR=600.6,600.4
3138 ;BR=577400000000
3139 ;QUOT=177.4,200.4
3140
3141
3142 000007 AC=7
3143 SAVEAC (1,1)^
3144 032552 201 11 0 00 032552 MOVEI AC+2,.
3145 032553 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3146 032554 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3147 032555 202 11 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3148 007600 SN=7600
3149 176400 XX=176400
3150 601000 ZZ=601000
3151
3152 P7600: REPEAT ^D2, ;TEST FDV
3153 <SN=SN+1
3154 XX=XX+1000
3155 ZZ=ZZ-200
3156 MOVSI AC-2,XX ;SETUP FOR COMPARISON
3157 MOVSI AC,ZZ ;SETUP AC
3158 MOVSI AC-1,577400 ;SETUP BR
3159 FDV AC,AC-1 ;C(AC)/C(E)
3160 CAME AC,AC-2 ;TEST QUOT
3161 ER3 AC,SN ;FDV FAILED
3162 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
3163 >
3164 007601 SN=SN+1
3165 177400 XX=XX+1000
3166 600600 ZZ=ZZ-200
3167 032556 205 05 0 00 177400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
3168 032557 205 07 0 00 600600 MOVSI AC,ZZ ;SETUP AC
3169 032560 205 06 0 00 577400 MOVSI AC-1,577400 ;SETUP BR
3170 032561 170 07 0 00 000006 FDV AC,AC-1 ;C(AC)/C(E)
3171 032562 312 07 0 00 000005 CAME AC,AC-2 ;TEST QUOT
3172 032563 003 07 0 00 007601 ER3 AC,SN ;FDV FAILED
3173 032564 321 11 0 00 032556 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
3174
3175 007602 SN=SN+1
3176 200400 XX=XX+1000
3177 600400 ZZ=ZZ-200
3178 032565 205 05 0 00 200400 MOVSI AC-2,XX ;SETUP FOR COMPARISON
3179 032566 205 07 0 00 600400 MOVSI AC,ZZ ;SETUP AC
3180 032567 205 06 0 00 577400 MOVSI AC-1,577400 ;SETUP BR
3181 032570 170 07 0 00 000006 FDV AC,AC-1 ;C(AC)/C(E)
3182 032571 312 07 0 00 000005 CAME AC,AC-2 ;TEST QUOT
3183 032572 003 07 0 00 007602 ER3 AC,SN ;FDV FAILED
3184 032573 321 11 0 00 032565 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
3185
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 32
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0091
3186 ;TEST FDV
3187 ;AR=377400777777
3188 ;BR=577400777777
3189 ;QUOT=777375773771
3190
3191 000006 AC=6
3192 SAVEAC (1,1)^
3193 032574 201 10 0 00 032574 MOVEI AC+2,.
3194 032575 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3195 032576 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3196 032577 202 10 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3197
3198 032600 505 04 0 00 777375 P7700: HRLI AC-2,777375 ;SETUP AC-2
3199 032601 541 04 0 00 773771 HRRI AC-2,773771 ;FOR COMPARISON
3200 032602 505 06 0 00 377400 HRLI AC,377400 ;SETUP
3201 032603 541 06 0 00 777777 HRRI AC,-1 ;AC
3202 032604 505 05 0 00 577400 HRLI AC-1,577400 ;SETUP
3203 032605 541 05 0 00 777777 HRRI AC-1,-1 ;BR
3204 032606 170 06 0 00 000005 FDV AC,AC-1 ;C(AC)/C(E)
3205 032607 312 06 0 00 000004 CAME AC,AC-2 ;TEST QUOT
3206 032610 003 06 0 00 007701 ER3 AC,7701 ;FDV FAILED
3207 032611 312 05 0 00 033467 CAME AC-1,[577400,,-1] ;EXAMINE C(E)
3208 032612 005 05 0 00 007701 ER5 AC-1,7701 ;C(E) WAS CLOBBERED
3209 032613 321 10 0 00 032600 JUMPL AC+2,P7700 ;LOOP ON ERROR SWITCH
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 33
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0092
3210 ;TEST ECO49
3211 ;TEST FDV DIVIDE CHECK
3212 ;AR=201400000000, 1.0
3213 ;BR=0
3214 ;FLAGS=440040
3215
3216 000006 AC=6
3217 SAVEAC (1,1)^
3218 032614 201 10 0 00 032614 MOVEI AC+2,.
3219 032615 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3220 032616 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3221 032617 202 10 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3222
3223 032620 254 02 1 00 032621 P10000: JRST 2,@.+1 ;CLEAR PC FLAGS
3224 032621 000000 032622 XWD 0,.+1
3225 032622 205 06 0 00 201400 MOVSI AC,201400 ;SETUP DVND
3226 032623 201 05 0 00 000000 MOVEI AC-1,0 ;SETUP DVSR
3227 032624 170 06 0 00 000005 FDV AC,AC-1 ;FLOATING DIVIDE 1.0 BY 0
3228 032625 265 04 0 00 032626 JSP AC-2,.+1 ;STORE PC AND FLAGS
3229 032626 607 04 0 00 000040 TLNN AC-2,40 ;TEST BIT 12
3230 032627 013 04 0 00 010001 ER13 AC-2,10001 ;AR DCK FAILED TO SET
3231 032630 321 10 0 00 032620 JUMPL AC+2,P10000 ;LOOP ON ERROR SWITCH
3232
3233
3234 ;TEST ECO49
3235 ;TEST UNDERFLOW
3236 ;AR=377400000000
3237 ;BR=000400000000
3238 ;FLAGS=440000
3239
3240 000006 AC=6
3241 SAVEAC (1,1)^
3242 032631 201 10 0 00 032631 MOVEI AC+2,.
3243 032632 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3244 032633 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3245 032634 202 10 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3246
3247 032635 254 02 1 00 032636 P10100: JRST 2,@.+1 ;CLEAR PC FLAGS
3248 032636 000000 032637 XWD 0,.+1
3249 032637 205 06 0 00 377400 MOVSI AC,377400 ;SETUP DVND
3250 032640 205 05 0 00 000400 MOVSI AC-1,000400 ;SETUP DVSR
3251 032641 170 06 0 00 000005 FDV AC,AC-1 ;FLOATING DIVIDE
3252 032642 265 04 0 00 032643 JSP AC-2,.+1 ;GET PC FLAGS
3253 032643 603 04 0 00 000100 TLNE AC-2,FXU ;UNDERFLOW SHOULD BE 0
3254 032644 013 04 0 00 010101 ER13 AC-2,10101 ;ERROR
3255 032645 321 10 0 00 032635 JUMPL AC+2,P10100 ;LOOP ON ERROR SWITCH
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 34
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0093
3256 ;TEST FDVM
3257 ;AR=577775000000,577774000000
3258 ;BR=577777000000
3259 ;QUOT=577777000000
3260
3261 000005 AC=5
3262 SAVEAC (1,1)^
3263 032646 201 07 0 00 032646 MOVEI AC+2,.
3264 032647 202 07 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3265 032650 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3266 032651 202 07 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3267 010200 SN=10200
3268 577776 ZZ=577776
3269
3270 P10200: REPEAT ^D2, ;TEST FDVM
3271 <SN=SN+1
3272 ZZ=ZZ-1
3273 MOVSI AC-2,577777 ;SETUP FOR COMPARISON
3274 MOVSI AC,ZZ ;SETUP AC
3275 MOVSI AC-1,577777 ;SETUP BR
3276 FDVM AC,AC-1 ;C(AC)/C(E)
3277 CAME AC-1,AC-2 ;TEST QUOT
3278 ER5 AC-1,SN ;FDVM FAILED
3279 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
3280 >
3281 010201 SN=SN+1
3282 577775 ZZ=ZZ-1
3283 032652 205 03 0 00 577777 MOVSI AC-2,577777 ;SETUP FOR COMPARISON
3284 032653 205 05 0 00 577775 MOVSI AC,ZZ ;SETUP AC
3285 032654 205 04 0 00 577777 MOVSI AC-1,577777 ;SETUP BR
3286 032655 172 05 0 00 000004 FDVM AC,AC-1 ;C(AC)/C(E)
3287 032656 312 04 0 00 000003 CAME AC-1,AC-2 ;TEST QUOT
3288 032657 005 04 0 00 010201 ER5 AC-1,SN ;FDVM FAILED
3289 032660 321 07 0 00 032652 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
3290
3291 010202 SN=SN+1
3292 577774 ZZ=ZZ-1
3293 032661 205 03 0 00 577777 MOVSI AC-2,577777 ;SETUP FOR COMPARISON
3294 032662 205 05 0 00 577774 MOVSI AC,ZZ ;SETUP AC
3295 032663 205 04 0 00 577777 MOVSI AC-1,577777 ;SETUP BR
3296 032664 172 05 0 00 000004 FDVM AC,AC-1 ;C(AC)/C(E)
3297 032665 312 04 0 00 000003 CAME AC-1,AC-2 ;TEST QUOT
3298 032666 005 04 0 00 010202 ER5 AC-1,SN ;FDVM FAILED
3299 032667 321 07 0 00 032661 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
3300
3301 PAGE
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 34-1
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0094
3302 ;TEST FDVM
3303 ;AR=210777777777
3304 ;BR=170750000000
3305 ;QUOT=221414456123
3306
3307 000014 AC=14
3308 SAVEAC (1,1)^
3309 032670 201 16 0 00 032670 MOVEI AC+2,.
3310 032671 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3311 032672 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3312 032673 202 16 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3313
3314 032674 505 12 0 00 221414 P10300: HRLI AC-2,221414 ;SETUP AC-2
3315 032675 541 12 0 00 456123 HRRI AC-2,456123 ;FOR COMPARISON
3316 032676 505 14 0 00 210777 HRLI AC,210777 ;SETUP
3317 032677 541 14 0 00 777777 HRRI AC,-1 ;AC
3318 032700 205 13 0 00 170750 MOVSI AC-1,170750 ;SETUP BR
3319 032701 172 14 0 00 000013 FDVM AC,AC-1 ;C(AC)/C(E)
3320 032702 312 14 0 00 033470 CAME AC,[210777,,-1] ;EXAMINE C(AC)
3321 032703 003 14 0 00 010301 ER3 AC,10301 ;C(AC) WAS CLOBBERED
3322 032704 312 13 0 00 000012 CAME AC-1,AC-2 ;TEST QUOT
3323 032705 005 13 0 00 010301 ER5 AC-1,10301 ;FDVM FAILED
3324 032706 321 16 0 00 032674 JUMPL AC+2,P10300 ;LOOP ON ERROR SWITCH
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 35
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0095
3325 ;TEST FDVB
3326 ;AR=210777777777
3327 ;BR=170555000000
3328 ;QUOT=221547063714
3329
3330 000014 AC=14
3331 SAVEAC (1,1)^
3332 032707 201 16 0 00 032707 MOVEI AC+2,.
3333 032710 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3334 032711 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3335 032712 202 16 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3336
3337 032713 505 12 0 00 221547 P10400: HRLI AC-2,221547 ;SETUP AC-2
3338 032714 541 12 0 00 063714 HRRI AC-2,63714 ;FOR COMPARISON
3339 032715 505 14 0 00 210777 HRLI AC,210777 ;SETUP
3340 032716 541 14 0 00 777777 HRRI AC,-1 ;AC
3341 032717 205 13 0 00 170555 MOVSI AC-1,170555 ;SETUP BR
3342 032720 173 14 0 00 000013 FDVB AC,AC-1 ;C(AC)/C(E)
3343 032721 312 14 0 00 000012 CAME AC,AC-2 ;TEST QUOT(AC)
3344 032722 003 14 0 00 010401 ER3 AC,10401 ;C(AC) FAILED
3345 032723 312 13 0 00 000012 CAME AC-1,AC-2 ;TEST QUOT(E)
3346 032724 005 13 0 00 010401 ER5 AC-1,10401 ;FDVB FAILED
3347 032725 321 16 0 00 032713 JUMPL AC+2,P10400 ;LOOP ON ERROR SWITCH
3348
3349 ;TEST FDVB
3350 ;AR=577000555555
3351 ;BR=200400000000
3352 ;QUOT=576000555555
3353
3354 000013 AC=13
3355 SAVEAC (1,1)^
3356 032726 201 15 0 00 032726 MOVEI AC+2,.
3357 032727 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3358 032730 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3359 032731 202 15 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3360
3361 032732 505 11 0 00 576000 P10500: HRLI AC-2,576000 ;SETUP AC-2
3362 032733 541 11 0 00 555555 HRRI AC-2,555555 ;FOR COMPARISON
3363 032734 505 13 0 00 577000 HRLI AC,577000 ;SETUP
3364 032735 541 13 0 00 555555 HRRI AC,555555 ;AC
3365 032736 205 12 0 00 200400 MOVSI AC-1,200400 ;SETUP BR
3366 032737 173 13 0 00 000012 FDVB AC,AC-1 ;C(AC)/C(E)
3367 032740 312 13 0 00 000011 CAME AC,AC-2 ;TEST QUOT(AC)
3368 032741 003 13 0 00 010501 ER3 AC,10501 ;C(AC) FAILED
3369 032742 312 12 0 00 000011 CAME AC-1,AC-2 ;TEST QUOT(E)
3370 032743 005 12 0 00 010501 ER5 AC-1,10501 ;FDVB FAILED
3371 032744 321 15 0 00 032732 JUMPL AC+2,P10500 ;LOOP ON ERROR SWITCH
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 36
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0096
3372 ;TEST FDVR
3373 ;AR=200777777777
3374 ;BR=200777777776,200777777774
3375 ;QUOT=201400000001,201400000002
3376
3377 000006 AC=6
3378 SAVEAC (1,1)^
3379 032745 201 10 0 00 032745 MOVEI AC+2,.
3380 032746 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3381 032747 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3382 032750 202 10 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3383
3384 011200 SN=11200
3385 000000 XX=0
3386 000002 ZZ=2
3387
3388 P11200: REPEAT ^D2, ;TEST FDVR
3389 <SN=SN+1
3390 XX=XX+1
3391 ZZ=ZZ-2
3392 IFE ZZ,<ZZ=-2>
3393 HRLI AC-2,201400 ;SETUP AC-2
3394 HRRI AC-2,XX ;FOR COMPARISON
3395 HRLI AC,200777 ;SETUP
3396 HRRI AC,-1 ;AC
3397 HRLI AC-1,200777 ;SETUP
3398 HRRI AC-1,ZZ ;BR
3399 FDVR AC,AC-1 ;C(AC)/C(E)
3400 CAME AC,AC-2 ;TEST QUOT
3401 ER3 AC,SN ;FDVR FAILED
3402 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
3403 >
3404 011201 SN=SN+1
3405 000001 XX=XX+1
3406 000000 ZZ=ZZ-2
3407 777777 777776 IFE ZZ,<ZZ=-2>
3408 032751 505 04 0 00 201400 HRLI AC-2,201400 ;SETUP AC-2
3409 032752 541 04 0 00 000001 HRRI AC-2,XX ;FOR COMPARISON
3410 032753 505 06 0 00 200777 HRLI AC,200777 ;SETUP
3411 032754 541 06 0 00 777777 HRRI AC,-1 ;AC
3412 032755 505 05 0 00 200777 HRLI AC-1,200777 ;SETUP
3413 032756 541 05 0 00 777776 HRRI AC-1,ZZ ;BR
3414 032757 174 06 0 00 000005 FDVR AC,AC-1 ;C(AC)/C(E)
3415 032760 312 06 0 00 000004 CAME AC,AC-2 ;TEST QUOT
3416 032761 003 06 0 00 011201 ER3 AC,SN ;FDVR FAILED
3417 032762 321 10 0 00 032751 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
3418
3419 011202 SN=SN+1
3420 000002 XX=XX+1
3421 777777 777774 ZZ=ZZ-2
3422 IFE ZZ,<ZZ=-2>
3423 032763 505 04 0 00 201400 HRLI AC-2,201400 ;SETUP AC-2
3424 032764 541 04 0 00 000002 HRRI AC-2,XX ;FOR COMPARISON
3425 032765 505 06 0 00 200777 HRLI AC,200777 ;SETUP
3426 032766 541 06 0 00 777777 HRRI AC,-1 ;AC
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 36-1
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0097
3427 032767 505 05 0 00 200777 HRLI AC-1,200777 ;SETUP
3428 032770 541 05 0 00 777774 HRRI AC-1,ZZ ;BR
3429 032771 174 06 0 00 000005 FDVR AC,AC-1 ;C(AC)/C(E)
3430 032772 312 06 0 00 000004 CAME AC,AC-2 ;TEST QUOT
3431 032773 003 06 0 00 011202 ER3 AC,SN ;FDVR FAILED
3432 032774 321 10 0 00 032763 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
3433
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 37
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0098
3434 ;TEST FDVR
3435 ;AR=210777777777
3436 ;BR=170555000000
3437 ;QUOT=221547063715
3438
3439 000005 AC=5
3440 SAVEAC (1,1)^
3441 032775 201 07 0 00 032775 MOVEI AC+2,.
3442 032776 202 07 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3443 032777 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3444 033000 202 07 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3445
3446 033001 505 03 0 00 221547 P11300: HRLI AC-2,221547 ;SETUP AC-2
3447 033002 541 03 0 00 063715 HRRI AC-2,63715 ;FOR COMPARISON
3448 033003 505 05 0 00 210777 HRLI AC,210777 ;SETUP
3449 033004 541 05 0 00 777777 HRRI AC,-1 ;AC
3450 033005 205 04 0 00 170555 MOVSI AC-1,170555 ;SETUP BR
3451 033006 174 05 0 00 000004 FDVR AC,AC-1 ;C(AC)/C(E)
3452 033007 312 05 0 00 000003 CAME AC,AC-2 ;TEST QUOT
3453 033010 003 05 0 00 011301 ER3 AC,11301 ;FDVR FAILED
3454 033011 321 07 0 00 033001 JUMPL AC+2,P11300 ;LOOP ON ERROR SWITCH
3455
3456 ;TEST FDVR
3457 ;AR=210777777776
3458 ;BR=170555000000
3459 ;QUOT=221547063714(NOT ROUND)
3460
3461 000014 AC=14
3462 SAVEAC (1,1)^
3463 033012 201 16 0 00 033012 MOVEI AC+2,.
3464 033013 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3465 033014 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3466 033015 202 16 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3467
3468 033016 505 12 0 00 221547 P11400: HRLI AC-2,221547 ;SETUP AC-2
3469 033017 541 12 0 00 063714 HRRI AC-2,63714 ;FOR COMPARISON
3470 033020 505 14 0 00 210777 HRLI AC,210777 ;SETUP
3471 033021 541 14 0 00 777776 HRRI AC,-2 ;AC
3472 033022 205 13 0 00 170555 MOVSI AC-1,170555 ;SETUP BR
3473 033023 174 14 0 00 000013 FDVR AC,AC-1 ;C(AC)/C(E)
3474 033024 312 14 0 00 000012 CAME AC,AC-2 ;TEST QUOT
3475 033025 003 14 0 00 011401 ER3 AC,11401 ;FDVR FAILED
3476 033026 321 16 0 00 033016 JUMPL AC+2,P11400 ;LOOP ON ERROR SWITCH
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 38
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0099
3477 ;TEST FDVR
3478 ;AR=210777777777
3479 ;BR=170555600000
3480 ;QUOT=221546272703
3481
3482 000014 AC=14
3483 SAVEAC (1,1)^
3484 033027 201 16 0 00 033027 MOVEI AC+2,.
3485 033030 202 16 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3486 033031 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3487 033032 202 16 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3488
3489 033033 505 12 0 00 221546 P11500: HRLI AC-2,221546 ;SETUP AC-2
3490 033034 541 12 0 00 272703 HRRI AC-2,272703 ;FOR COMPARISON
3491 033035 505 14 0 00 210777 HRLI AC,210777 ;SETUP
3492 033036 541 14 0 00 777777 HRRI AC,-1 ;AC
3493 033037 505 13 0 00 170555 HRLI AC-1,170555 ;SETUP
3494 033040 541 13 0 00 600000 HRRI AC-1,600000 ;BR
3495 033041 174 14 0 00 000013 FDVR AC,AC-1 ;C(AC)/C(E)
3496 033042 312 14 0 00 000012 CAME AC,AC-2 ;TEST QUOT
3497 033043 003 14 0 00 011501 ER3 AC,11501 ;FDVR FAILED
3498 033044 312 13 0 00 033471 CAME AC-1,[170555,,600000] ;EXAMINE C(E)
3499 033045 005 13 0 00 011501 ER5 AC-1,11501 ;C(E) WAS CLOBBERED
3500 033046 321 16 0 00 033033 JUMPL AC+2,P11500 ;LOOP ON ERROR SWITCH
3501
3502 ;TEST FDVRM
3503 ;AR=210777777777
3504 ;BR=170557000000
3505 ;QUOT=221545111741
3506
3507 000013 AC=13
3508 SAVEAC (1,1)^
3509 033047 201 15 0 00 033047 MOVEI AC+2,.
3510 033050 202 15 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3511 033051 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3512 033052 202 15 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3513
3514 033053 505 11 0 00 221545 P11600: HRLI AC-2,221545 ;SETUP AC-2
3515 033054 541 11 0 00 111741 HRRI AC-2,111741 ;FOR COMPARISON
3516 033055 505 13 0 00 210777 HRLI AC,210777 ;SETUP
3517 033056 541 13 0 00 777777 HRRI AC,-1 ;AC
3518 033057 205 12 0 00 170557 MOVSI AC-1,170557 ;SETUP BR
3519 033060 176 13 0 00 000012 FDVRM AC,AC-1 ;C(AC)/C(E)
3520 033061 312 12 0 00 000011 CAME AC-1,AC-2 ;TEST QUOT
3521 033062 005 12 0 00 011601 ER5 AC-1,11601 ;FDVRM FAILED
3522 033063 321 15 0 00 033053 JUMPL AC+2,P11600 ;LOOP ON ERROR SWITCH
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 39
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0100
3523 ;TEST FDVRM
3524 ;AR=210777777777
3525 ;BR=170560000000
3526 ;QUOT=221544131026
3527
3528 000012 AC=12
3529 SAVEAC (1,1)^
3530 033064 201 14 0 00 033064 MOVEI AC+2,.
3531 033065 202 14 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3532 033066 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3533 033067 202 14 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3534
3535 033070 505 10 0 00 221544 P11700: HRLI AC-2,221544 ;SETUP AC-2
3536 033071 541 10 0 00 131026 HRRI AC-2,131026 ;FOR COMPARISON
3537 033072 505 12 0 00 210777 HRLI AC,210777 ;SETUP
3538 033073 541 12 0 00 777777 HRRI AC,-1 ;AC
3539 033074 205 11 0 00 170560 MOVSI AC-1,170560 ;SETUP BR
3540 033075 176 12 0 00 000011 FDVRM AC,AC-1 ;C(AC)/C(E)
3541 033076 312 12 0 00 033470 CAME AC,[210777,,-1] ;EXAMINE C(AC)
3542 033077 003 12 0 00 011701 ER3 AC,11701 ;C(AC) WAS CLOBBERED
3543 033100 312 11 0 00 000010 CAME AC-1,AC-2 ;TEST QUOT
3544 033101 005 11 0 00 011701 ER5 AC-1,11701 ;FDVRM FAILED
3545 033102 321 14 0 00 033070 JUMPL AC+2,P11700 ;LOOP ON ERROR SWITCH
3546
3547 ;TEST FDVRB
3548 ;AR=377400000000
3549 ;BR=100777000000
3550 ;QUOT=077400400401
3551
3552 000011 AC=11
3553 SAVEAC (1,1)^
3554 033103 201 13 0 00 033103 MOVEI AC+2,.
3555 033104 202 13 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3556 033105 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3557 033106 202 13 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3558
3559 033107 505 07 0 00 077400 P12000: HRLI AC-2,77400 ;SETUP AC-2
3560 033110 541 07 0 00 400401 HRRI AC-2,400401 ;FOR COMPARISON
3561 033111 205 11 0 00 377400 MOVSI AC,377400 ;SETUP AC
3562 033112 205 10 0 00 100777 MOVSI AC-1,100777 ;SETUP BR
3563 033113 177 11 0 00 000010 FDVRB AC,AC-1 ;C(AC(/C(E)
3564 033114 316 11 0 00 000007 CAMN AC,AC-2 ;TEST QUOT(AC)
3565 033115 312 10 0 00 000007 CAME AC-1,AC-2 ;TEST QUOT(E)
3566 033116 005 10 0 00 012001 ER5 AC-1,12001 ;FDVRB FAILED
3567 033117 321 13 0 00 033107 JUMPL AC+2,P12000 ;LOOP ON ERROR SWITCH
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 40
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0101
3568 ;TEST FDVRB
3569 ;AR=376.4,375.4,374.4,373.4,372.4
3570 ;BR=100777000000
3571 ;QUOT=076,075,074,073,072:400400401
3572
3573 000010 AC=10
3574 SAVEAC (1,1)^
3575 033120 201 12 0 00 033120 MOVEI AC+2,.
3576 033121 202 12 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3577 033122 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3578 033123 202 12 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3579
3580 012100 SN=12100
3581 077400 XX=77400
3582 377400 ZZ=377400
3583
3584 P12100: REPEAT ^D5, ;TEST FDVRB
3585 <SN=SN+1
3586 XX=XX-1000
3587 ZZ=ZZ-1000
3588 HRLI AC-2,XX ;SETUP AC-2
3589 HRRI AC-2,400401 ;FOR COMPARISON
3590 MOVSI AC,ZZ ;SETUP AC
3591 MOVSI AC-1,100777 ;SETUP BR
3592 FDVRB AC,AC-1 ;C(AC)/C(E)
3593 CAME AC,AC-2 ;TEST QUOT(AC)
3594 ER3 AC,SN ;C(AC) FAILED
3595 CAME AC-1,AC-2 ;TEST QUOT(E)
3596 ER5 AC-1,SN ;FDVRB FAILED
3597 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
3598 >
3599 012101 SN=SN+1
3600 076400 XX=XX-1000
3601 376400 ZZ=ZZ-1000
3602 033124 505 06 0 00 076400 HRLI AC-2,XX ;SETUP AC-2
3603 033125 541 06 0 00 400401 HRRI AC-2,400401 ;FOR COMPARISON
3604 033126 205 10 0 00 376400 MOVSI AC,ZZ ;SETUP AC
3605 033127 205 07 0 00 100777 MOVSI AC-1,100777 ;SETUP BR
3606 033130 177 10 0 00 000007 FDVRB AC,AC-1 ;C(AC)/C(E)
3607 033131 312 10 0 00 000006 CAME AC,AC-2 ;TEST QUOT(AC)
3608 033132 003 10 0 00 012101 ER3 AC,SN ;C(AC) FAILED
3609 033133 312 07 0 00 000006 CAME AC-1,AC-2 ;TEST QUOT(E)
3610 033134 005 07 0 00 012101 ER5 AC-1,SN ;FDVRB FAILED
3611 033135 321 12 0 00 033124 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
3612
3613 012102 SN=SN+1
3614 075400 XX=XX-1000
3615 375400 ZZ=ZZ-1000
3616 033136 505 06 0 00 075400 HRLI AC-2,XX ;SETUP AC-2
3617 033137 541 06 0 00 400401 HRRI AC-2,400401 ;FOR COMPARISON
3618 033140 205 10 0 00 375400 MOVSI AC,ZZ ;SETUP AC
3619 033141 205 07 0 00 100777 MOVSI AC-1,100777 ;SETUP BR
3620 033142 177 10 0 00 000007 FDVRB AC,AC-1 ;C(AC)/C(E)
3621 033143 312 10 0 00 000006 CAME AC,AC-2 ;TEST QUOT(AC)
3622 033144 003 10 0 00 012102 ER3 AC,SN ;C(AC) FAILED
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 40-1
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0102
3623 033145 312 07 0 00 000006 CAME AC-1,AC-2 ;TEST QUOT(E)
3624 033146 005 07 0 00 012102 ER5 AC-1,SN ;FDVRB FAILED
3625 033147 321 12 0 00 033136 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
3626
3627 012103 SN=SN+1
3628 074400 XX=XX-1000
3629 374400 ZZ=ZZ-1000
3630 033150 505 06 0 00 074400 HRLI AC-2,XX ;SETUP AC-2
3631 033151 541 06 0 00 400401 HRRI AC-2,400401 ;FOR COMPARISON
3632 033152 205 10 0 00 374400 MOVSI AC,ZZ ;SETUP AC
3633 033153 205 07 0 00 100777 MOVSI AC-1,100777 ;SETUP BR
3634 033154 177 10 0 00 000007 FDVRB AC,AC-1 ;C(AC)/C(E)
3635 033155 312 10 0 00 000006 CAME AC,AC-2 ;TEST QUOT(AC)
3636 033156 003 10 0 00 012103 ER3 AC,SN ;C(AC) FAILED
3637 033157 312 07 0 00 000006 CAME AC-1,AC-2 ;TEST QUOT(E)
3638 033160 005 07 0 00 012103 ER5 AC-1,SN ;FDVRB FAILED
3639 033161 321 12 0 00 033150 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
3640
3641 012104 SN=SN+1
3642 073400 XX=XX-1000
3643 373400 ZZ=ZZ-1000
3644 033162 505 06 0 00 073400 HRLI AC-2,XX ;SETUP AC-2
3645 033163 541 06 0 00 400401 HRRI AC-2,400401 ;FOR COMPARISON
3646 033164 205 10 0 00 373400 MOVSI AC,ZZ ;SETUP AC
3647 033165 205 07 0 00 100777 MOVSI AC-1,100777 ;SETUP BR
3648 033166 177 10 0 00 000007 FDVRB AC,AC-1 ;C(AC)/C(E)
3649 033167 312 10 0 00 000006 CAME AC,AC-2 ;TEST QUOT(AC)
3650 033170 003 10 0 00 012104 ER3 AC,SN ;C(AC) FAILED
3651 033171 312 07 0 00 000006 CAME AC-1,AC-2 ;TEST QUOT(E)
3652 033172 005 07 0 00 012104 ER5 AC-1,SN ;FDVRB FAILED
3653 033173 321 12 0 00 033162 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
3654
3655 012105 SN=SN+1
3656 072400 XX=XX-1000
3657 372400 ZZ=ZZ-1000
3658 033174 505 06 0 00 072400 HRLI AC-2,XX ;SETUP AC-2
3659 033175 541 06 0 00 400401 HRRI AC-2,400401 ;FOR COMPARISON
3660 033176 205 10 0 00 372400 MOVSI AC,ZZ ;SETUP AC
3661 033177 205 07 0 00 100777 MOVSI AC-1,100777 ;SETUP BR
3662 033200 177 10 0 00 000007 FDVRB AC,AC-1 ;C(AC)/C(E)
3663 033201 312 10 0 00 000006 CAME AC,AC-2 ;TEST QUOT(AC)
3664 033202 003 10 0 00 012105 ER3 AC,SN ;C(AC) FAILED
3665 033203 312 07 0 00 000006 CAME AC-1,AC-2 ;TEST QUOT(E)
3666 033204 005 07 0 00 012105 ER5 AC-1,SN ;FDVRB FAILED
3667 033205 321 12 0 00 033174 JUMPL AC+2,.-^D9 ;LOOP ON ERROR SWITCH
3668
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 41
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0103
3669 ;TEST FDVRI
3670 ;AR=210777000000
3671 ;E=210777
3672 ;QUOT=201400000000
3673
3674 000007 AC=7
3675 SAVEAC (1,1)^
3676 033206 201 11 0 00 033206 MOVEI AC+2,.
3677 033207 202 11 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3678 033210 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3679 033211 202 11 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3680
3681 033212 205 05 0 00 201400 P12200: MOVSI AC-2,201400 ;SETUP FOR COMPARISON
3682 033213 205 07 0 00 210777 MOVSI AC,210777 ;SETUP AC
3683 033214 175 07 0 00 210777 FDVRI AC,210777 ;C(AC)/E
3684 033215 312 07 0 00 000005 CAME AC,AC-2 ;TEST QUOT
3685 033216 003 07 0 00 012201 ER3 AC,12201 ;FDVRI FAILED
3686 033217 321 11 0 00 033212 JUMPL AC+2,P12200 ;LOOP ON ERROR SWITCH
3687
3688 ;TEST FDVRI
3689 ;AR=200400000000
3690 ;E=210777
3691 ;QUOT=170400400401
3692
3693 000006 AC=6
3694 SAVEAC (1,1)^
3695 033220 201 10 0 00 033220 MOVEI AC+2,.
3696 033221 202 10 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3697 033222 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3698 033223 202 10 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3699
3700 033224 505 04 0 00 170400 P12300: HRLI AC-2,170400 ;SETUP AC-2
3701 033225 541 04 0 00 400401 HRRI AC-2,400401 ;FOR COMPARISON
3702 033226 205 06 0 00 200400 MOVSI AC,200400 ;SETUP AC
3703 033227 175 06 0 00 210777 FDVRI AC,210777 ;C(AC)/E
3704 033230 312 06 0 00 000004 CAME AC,AC-2 ;TEST QUOT
3705 033231 003 06 0 00 012301 ER3 AC,12301 ;FDVRI FAILED
3706 033232 321 10 0 00 033224 JUMPL AC+2,P12300 ;LOOP ON ERROR SWITCH
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 42
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0104
3707 ;TEST FDVRI
3708 ;AR=371.4,370.4,367.4
3709 ;E=100777
3710 ;QUOT=071,070,067:400400401
3711
3712 000005 AC=5
3713 SAVEAC (1,1)^
3714 033233 201 07 0 00 033233 MOVEI AC+2,.
3715 033234 202 07 0 00 030051 MOVEM AC+2,TESTPC ;SETUP SUBTEST PC
3716 033235 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3717 033236 202 07 0 00 033652 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3718
3719 012400 SN=12400
3720 072400 XX=72400
3721 372400 ZZ=372400
3722
3723 P12400: REPEAT ^D3, ;TEST FDVRI
3724 <SN=SN+1
3725 XX=XX-1000
3726 ZZ=ZZ-1000
3727 HRLI AC-2,XX ;SETUP AC-2
3728 HRRI AC-2,400401 ;FOR COMPARISON
3729 MOVSI AC,ZZ ;SETUP AC
3730 FDVRI AC,100777 ;C(AC)/E
3731 CAME AC,AC-2 ;TEST QUOT
3732 ER3 AC,SN ;FDVRI FAILED
3733 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
3734 >
3735 012401 SN=SN+1
3736 071400 XX=XX-1000
3737 371400 ZZ=ZZ-1000
3738 033237 505 03 0 00 071400 HRLI AC-2,XX ;SETUP AC-2
3739 033240 541 03 0 00 400401 HRRI AC-2,400401 ;FOR COMPARISON
3740 033241 205 05 0 00 371400 MOVSI AC,ZZ ;SETUP AC
3741 033242 175 05 0 00 100777 FDVRI AC,100777 ;C(AC)/E
3742 033243 312 05 0 00 000003 CAME AC,AC-2 ;TEST QUOT
3743 033244 003 05 0 00 012401 ER3 AC,SN ;FDVRI FAILED
3744 033245 321 07 0 00 033237 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
3745
3746 012402 SN=SN+1
3747 070400 XX=XX-1000
3748 370400 ZZ=ZZ-1000
3749 033246 505 03 0 00 070400 HRLI AC-2,XX ;SETUP AC-2
3750 033247 541 03 0 00 400401 HRRI AC-2,400401 ;FOR COMPARISON
3751 033250 205 05 0 00 370400 MOVSI AC,ZZ ;SETUP AC
3752 033251 175 05 0 00 100777 FDVRI AC,100777 ;C(AC)/E
3753 033252 312 05 0 00 000003 CAME AC,AC-2 ;TEST QUOT
3754 033253 003 05 0 00 012402 ER3 AC,SN ;FDVRI FAILED
3755 033254 321 07 0 00 033246 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
3756
3757 012403 SN=SN+1
3758 067400 XX=XX-1000
3759 367400 ZZ=ZZ-1000
3760 033255 505 03 0 00 067400 HRLI AC-2,XX ;SETUP AC-2
3761 033256 541 03 0 00 400401 HRRI AC-2,400401 ;FOR COMPARISON
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 42-1
DSKCB1 MAC 29-Mar-78 11:24 PART IIIB-GEN TEST-FMP,FDV SEQ 0105
3762 033257 205 05 0 00 367400 MOVSI AC,ZZ ;SETUP AC
3763 033260 175 05 0 00 100777 FDVRI AC,100777 ;C(AC)/E
3764 033261 312 05 0 00 000003 CAME AC,AC-2 ;TEST QUOT
3765 033262 003 05 0 00 012403 ER3 AC,SN ;FDVRI FAILED
3766 033263 321 07 0 00 033255 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
3767
3768 033264 254 00 0 00 030057 JRST BEGEND
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 1
UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0106
3769 SUBTTL *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978
3770
3771 ;THIS SUBROUTINE PROVIDES ERROR REPORTING THRU THE USE OF UUO'S.
3772
3773 033265 202 00 0 00 033656 ERRMES: MOVEM 0,%ERAC0# ;SAVE AC0
3774 033266 202 01 0 00 033657 MOVEM 1,%ERAC1# ;SAVE AC1
3775 033267 202 02 0 00 033660 MOVEM 2,%ERAC2# ;SAVE AC2
3776 033270 350 00 0 00 030053 AOS ERRTLS ;INCREMENT ERROR TOTALS
3777 033271 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO
3778 033272 316 00 0 00 030052 CAMN 0,ERRPC ;PC = PC OF LAST ERROR ?
3779 033273 350 00 0 00 033653 AOS MICNT# ;YES, ADD 1 TO ERROR COUNT
3780 033274 200 00 0 00 033653 MOVE 0,MICNT
3781 033275 504 00 0 00 030114 HRL 0,$SVUPC
3782 033276 402 00 0 00 033654 SETZM PROCED# ;CLEAR PROCEED FLAG
3783 033277 037 10 0 00 000002 SWITCH
3784 033300 603 00 0 00 040000 TLNE NOPNT ;PRINTOUT ?
3785 033301 254 00 0 00 033413 JRST %ERRS1 ;NO, RESTORE AC'S AND RETURN
3786 033302 200 01 0 00 030113 MOVE 1,$SVUUO
3787 033303 242 01 0 00 777745 LSH 1,-^D27
3788 033304 202 01 0 00 033655 MOVEM 1,%ACS1A# ;SAVE UUO NUMBER
3789 033305 200 00 0 00 033656 MOVE 0,%ERAC0
3790 033306 200 01 0 00 033657 MOVE 1,%ERAC1
3791 033307 335 00 1 00 033652 SKIPGE @ERRLOP ;ERR LOOP AC > OR = 0 ?
3792 033310 254 00 0 00 033445 JRST %ERRS4 ;NO, SEE IF PRINT ALL
3793 033311 402 00 0 00 033653 %ERMS1: SETZM MICNT ;CLEAR ERROR COUNT
3794 033312 331 00 0 00 030043 SKIPL MONCTL ;DIAG MON OR SYS EXER ?
3795 033313 254 00 0 00 033317 JRST .+4 ;NO, DON'T NEED TITLE
3796 033314 336 00 0 00 033661 SKIPN %ERFST# ;FIRST ERROR ?
3797 033315 037 04 0 00 000002 PNTNM ;YES, PRINT PROGRAM TITLE
3798 033316 476 00 0 00 033661 SETOM %ERFST
3799 033317 336 00 0 00 030047 SKIPN PASCNT ;FIRST PASS ?
3800 033320 254 00 0 00 033324 JRST .+4 ;YES
3801 PMSG <^TEST PASS COUNT = >^
3802 033321 037 02 0 00 033472 PSIXM [SIXBIT\^TEST PASS COUNT = _\]^
3803 033322 200 00 0 00 030047 MOVE PASCNT
3804 033323 037 15 0 00 000000 PNTDEC
3805 PMSG <^PC = >^
3806 033324 037 02 0 00 033476 PSIXM [SIXBIT\^PC = _\]^
3807 033325 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO
3808 033326 202 00 0 00 030052 MOVEM 0,ERRPC ;SAVE FOR COMPARE
3809 033327 037 06 0 00 000000 PNT6 ;PRINT UUO ADDRESS
3810 XLIST
3811 IFDEF ERDIAG,<LIST
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 2
UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0107
3812 ;DIAGNOSTIC FORMAT ERROR PRINTER
3813
3814 ;PRINT RESULT
3815
3816 033330 %ERMS2: PMSG <^RESULT = >^
3817 033330 037 02 0 00 033500 PSIXM [SIXBIT\^RESULT = _\]^
3818 033331 200 01 0 00 030113 MOVE 1,$SVUUO ;GET AC # OF UUO
3819 033332 242 01 0 00 777751 LSH 1,-27
3820 033333 405 01 0 00 000017 ANDI 1,17
3821 033334 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC)
3822 033335 307 01 0 00 000001 CAIG 1,1 ;IS AC # = TO SAVE AC ?
3823 033336 200 00 0 01 033656 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC
3824 033337 037 13 0 00 000000 PNTHW ;PRINT C(AC)
3825
3826 033340 200 00 0 00 030046 MOVE CONSW
3827 033341 603 00 0 00 000200 TLNE TXTINH ;PRINT FAILURE DES AND FLT NBR ?
3828 033342 254 00 0 00 033411 JRST %ERMORE ;NO, RESTORE AC'S ETC.
3829
3830 ;PRINT FAILURE DESCRIPTOR
3831
3832 033343 200 01 0 00 033655 MOVE 1,%ACS1A ;GET UUO NUMBER
3833 033344 307 01 0 00 000001 CAIG 1,1 ;PRINT DESCRIPTOR ?
3834 033345 254 00 0 00 033351 JRST %ERMS3 ;NO, JUST PRINT FAULT NUMBER
3835 033346 037 00 0 00 030242 PCRL
3836 033347 200 00 0 01 033375 MOVE %FLTTB(1)
3837 033350 037 17 0 00 000000 PNTAL ;PRINT FAULT DESCRIPTOR
3838
3839 ;PRINT FAULT NUMBER
3840
3841 033351 %ERMS3: PMSG <^FAULT NUMBER = >^
3842 033351 037 02 0 00 033502 PSIXM [SIXBIT\^FAULT NUMBER = _\]^
3843 033352 201 00 0 00 033374 MOVEI TLET
3844 033353 037 00 0 00 000000 PNTA ;PRINT TEST LETTER
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 3
UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0108
3845
3846 033354 550 00 0 00 030113 HRRZ $SVUUO
3847 033355 602 00 0 00 700000 TRNE 700000
3848 033356 254 00 0 00 033372 JRST %ER6X
3849 033357 602 00 0 00 070000 TRNE 070000
3850 033360 254 00 0 00 033370 JRST %ER5X
3851 033361 602 00 0 00 007000 TRNE 007000
3852 033362 254 00 0 00 033366 JRST %ER4X
3853 033363 037 03 0 00 000000 PNT3 ;PRINT FAULT NUMBER
3854 033364 037 00 0 00 030242 %ER7X: PCRL
3855 033365 254 00 0 00 033411 JRST %ERMORE
3856
3857 033366 037 04 0 00 000000 %ER4X: PNT4
3858 033367 254 00 0 00 033364 JRST %ER7X
3859 033370 037 05 0 00 000000 %ER5X: PNT5
3860 033371 254 00 0 00 033364 JRST %ER7X
3861 033372 037 06 0 00 000000 %ER6X: PNT6
3862 033373 254 00 0 00 033364 JRST %ER7X
3863
3864 ;FAILURE DESCRIPTORS
3865
3866 033374 000000 000000 TLET: 0 ;TEST LETTER
3867 033375 000000 000000 %FLTTB: 0 ;DESCRIPTOR TABLE
3868 033376 000000 033505 %NODES: [0] ;NO DESCRIPTOR
3869 033377 000000 033505 SPDES: [0] ;SPECIAL USER FAILURE DESCRIPTOR
3870 033400 000000 033506 $ACF: [ASCIZ/C(AC) FAILED/]
3871 033401 000000 033511 %AC1F: [ASCIZ/C(AC+1) FAILED/]
3872 033402 000000 033514 %EF: [ASCIZ/C(E) FAILED/]
3873 033403 000000 033517 %E1F: [ASCIZ/C(E+1) FAILED/]
3874 033404 000000 033522 %ARF: [ASCIZ/C(C(ACR)) FAILED/]
3875 033405 000000 033526 %AR1F: [ASCIZ/C(C(ACR+1)) FAILED/]
3876 033406 000000 033532 %ALF: [ASCIZ/C(C(ACL)) FAILED/]
3877 033407 000000 033536 %EEF: [ASCIZ/C(C(E)) FAILED/]
3878 033410 000000 033541 %FF: [ASCIZ/FLAG FAILED/]
3879 >
3880 XLIST
3881 LIST
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 8
UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0109
3882 ;RESTORE AC'S AND RETURN OR HALT
3883
3884 033411 256 00 0 00 030101 %ERMORE:XCT ERMORE
3885 033412 037 10 0 00 000002 SWITCH
3886
3887 033413 037 07 0 00 000003 %ERRS1: TTALTM ;ALTMODE CHECK
3888 033414 254 00 0 00 033420 JRST .+4 ;NONE
3889 033415 201 00 0 00 033420 MOVEI .+3 ;SAVE CONT ADDRESS
3890 033416 202 00 0 00 000130 MOVEM JOBOPC
3891 033417 254 00 1 00 030063 JRST @ALTMGO ;PERFORM TRANSFER
3892 033420 200 00 0 00 030046 MOVE CONSW
3893 033421 603 00 0 00 002000 TLNE 0,ERSTOP ;HALT ON ERROR SWITCH SET ?
3894 033422 037 14 0 00 000004 ERRHLT ;YES
3895 033423 607 00 0 00 004000 TLNN 0,LOOPER ;LOOP ON ERROR SWITCH SET ?
3896 033424 476 00 0 00 033654 SETOM PROCED ;NO, SET THE PROCEED FLAG
3897 033425 603 00 0 00 010000 TLNE 0,DING ;RING BELL SWITCH SET ?
3898 033426 037 01 0 00 000007 PBELL ;YES, GO RING BELL
3899
3900 033427 200 02 0 00 033660 %ERRS2: MOVE 2,%ERAC2 ;RESTORE AC'S
3901 033430 200 01 0 00 033657 MOVE 1,%ERAC1
3902 033431 476 00 1 00 033652 SETOM @ERRLOP ;SET C(ERR LOOP AC) TO -1
3903 033432 336 00 0 00 033654 SKIPN PROCED ;LOOP ON ERROR ?
3904 033433 254 00 0 00 033443 JRST %ERRS5 ;YES
3905 033434 350 00 1 00 033652 AOS @ERRLOP ;NO, INC C(ERR LOOP AC)
3906 033435 350 00 1 00 033652 AOS @ERRLOP ;SO IT ='S 1
3907 033436 331 00 0 00 030043 SKIPL MONCTL ;UNDER DIAGNOSTIC MONITOR ?
3908 033437 254 00 0 00 033443 JRST %ERRS5 ;NO, CONTINUE PROGRAM
3909 033440 200 00 0 00 030053 MOVE 0,ERRTLS ;YES
3910 033441 301 00 0 00 000024 CAIL 0,^D20 ;PRINTED ALLOWED ERRORS ?
3911 033442 254 00 0 00 033451 JRST %ERRS6
3912
3913 033443 200 00 0 00 033656 %ERRS5: MOVE 0,%ERAC0 ;NO, CONTINUE PROGRAM
3914 033444 254 00 0 00 030065 JRST UUOEXT
3915
3916 033445 200 00 0 00 030046 %ERRS4: MOVE 0,CONSW
3917 033446 607 00 0 00 001000 TLNN PALERS ;PRINT ALL ERRORS ?
3918 033447 254 00 0 00 033413 JRST %ERRS1 ;NO
3919 033450 254 00 0 00 033311 JRST %ERMS1 ;YES
3920
3921 033451 %ERRS6: PMSGF <^EXCEEDED ALLOWED ERRORS^>^
3922 033451 037 04 0 00 033544 PSIXMF [SIXBIT\^EXCEEDED ALLOWED ERRORS^_\]^
3923 033452 254 00 0 00 030061 JRST $BEND2
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 1
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0110
3924 SUBTTL *STOR* RESERVED STORAGE, MARCH 1978
3925
3926 ;PROGRAM LITERALS
3927
3928 XLIST
3929 IFNDEF $LPAPER,<LIST>
3930 033453 LIT
3931 033453 45 70 51 64 00 00
3932 033454 103 102 000 000 000
3933 033455 000000 030667
3934 033456 000000 031160
3935 033457 000000 031341
3936 033460 200400 000000
3937 033461 177477 000000
3938 033462 200400 000077
3939 033463 200400 000076
3940 033464 200700 000000
3941 033465 400000 000001
3942 033466 777400 000000
3943 033467 577400 777777
3944 033470 210777 777777
3945 033471 170555 600000
3946 033472 76 64 45 63 64 00
3947 033473 60 41 63 63 00 43
3948 033474 57 65 56 64 00 35
3949 033475 00 77 00 00 00 00
3950 033476 76 60 43 00 35 00
3951 033477 00 00 77 00 00 00
3952 033500 76 62 45 63 65 54
3953 033501 64 00 00 35 00 77
3954 033502 76 46 41 65 54 64
3955 033503 00 56 65 55 42 45
3956 033504 62 00 35 00 77 00
3957 033505 000000 000000
3958 033506 103 050 101 103 051
3959 033507 040 106 101 111 114
3960 033510 105 104 000 000 000
3961 033511 103 050 101 103 053
3962 033512 061 051 040 106 101
3963 033513 111 114 105 104 000
3964 033514 103 050 105 051 040
3965 033515 106 101 111 114 105
3966 033516 104 000 000 000 000
3967 033517 103 050 105 053 061
3968 033520 051 040 106 101 111
3969 033521 114 105 104 000 000
3970 033522 103 050 103 050 101
3971 033523 103 122 051 051 040
3972 033524 106 101 111 114 105
3973 033525 104 000 000 000 000
3974 033526 103 050 103 050 101
3975 033527 103 122 053 061 051
3976 033530 051 040 106 101 111
3977 033531 114 105 104 000 000
3978 033532 103 050 103 050 101
DSKCB DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #2, VER 0,1 MACRO %53(1020) 11:43 29-Mar-78 Page 1-1
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0111
3979 033533 103 114 051 051 040
3980 033534 106 101 111 114 105
3981 033535 104 000 000 000 000
3982 033536 103 050 103 050 105
3983 033537 051 051 040 106 101
3984 033540 111 114 105 104 000
3985 033541 106 114 101 107 040
3986 033542 106 101 111 114 105
3987 033543 104 000 000 000 000
3988 033544 76 45 70 43 45 45
3989 033545 44 45 44 00 41 54
3990 033546 54 57 67 45 44 00
3991 033547 45 62 62 57 62 63
3992 033550 76 77 00 00 00 00
3993 LIST
3994 033551 000000 000000 ENDSLD: 0
3995
3996 IFDEF DEBUG,<
3997 033552 PATCH: BLOCK DEBUG ;PATCHING AREA
3998 >
3999
4000 ;PROGRAM VARIABLES
4001 033652 VAR
4002
4003 IFDEF PGMEND,<
4004 033662 000000 000000 END: 0
4005 030000 END BEGIN >
NO ERRORS DETECTED
PROGRAM BREAK IS 000000
ABSOLUTE BREAK IS 033663
CPU TIME USED 00:12.453
28P CORE USED
ABORT 577#
AC 1169# 1171 1172 1173 1174 1177 1178 1179 1180 1181 1182 1185 1186 1187 SEQ 0112
1188 1189 1190 1198# 1200 1201 1202 1203 1206 1207 1208 1209 1210 1212
1213 1214 1215 1222# 1224 1225 1226 1227 1230 1231 1232 1233 1234 1235
1236 1237 1238 1240 1242 1243 1251# 1253 1254 1255 1256 1259 1260 1261
1262 1263 1265 1266 1267 1268 1275# 1277 1278 1279 1280 1283 1284 1285
1286 1287 1289 1290 1291 1292 1301# 1303 1304 1305 1306 1308 1309 1310
1311 1312 1314 1316 1317 1318 1319 1331# 1333 1334 1335 1336 1354 1355
1356 1357 1358 1359 1360 1364 1365 1366 1367 1368 1369 1370 1389 1390
1391 1392 1393 1394 1395 1399 1400 1401 1402 1403 1404 1405 1409 1410
1411 1412 1413 1414 1415 1423# 1425 1426 1427 1428 1430 1431 1432 1433
1434 1435 1442# 1444 1445 1446 1447 1450 1451 1452 1453 1454 1456 1457
1458 1459 1469# 1471 1472 1473 1474 1492 1493 1494 1495 1496 1497 1498
1502 1503 1504 1505 1506 1507 1508 1512 1513 1514 1515 1516 1517 1518
1536 1537 1538 1539 1540 1541 1542 1546 1547 1548 1549 1550 1551 1552
1570 1571 1572 1573 1574 1575 1576 1580 1581 1582 1583 1584 1585 1586
1590 1591 1592 1593 1594 1595 1596 1601 1602 1603 1604 1605 1606 1607
1608 1609 1610 1611 1619# 1621 1622 1623 1624 1626 1627 1628 1629 1630
1631 1632 1640# 1642 1643 1644 1645 1648 1649 1650 1651 1652 1653 1654
1657 1658 1659 1660 1661 1662 1663 1665 1666 1667 1668 1669 1670 1671
1678# 1680 1681 1682 1683 1685 1686 1687 1688 1689 1690 1691 1699# 1701
1702 1703 1704 1706 1707 1708 1709 1710 1711 1712 1719# 1721 1722 1723
1724 1727 1728 1729 1730 1731 1733 1734 1735 1736 1737 1738 1746# 1748
1749 1750 1751 1753 1754 1755 1756 1757 1758 1759 1766# 1768 1769 1770
1771 1773 1774 1775 1776 1777 1778 1779 1787# 1789 1790 1791 1792 1795
1796 1797 1798 1799 1800 1801 1802 1803 1804 1805 1813# 1815 1816 1817
1818 1821 1822 1823 1824 1825 1828 1829 1830 1831 1839# 1841 1842 1843
1844 1846 1847 1848 1849 1850 1851 1852 1865# 1867 1868 1869 1870 1889
1890 1891 1892 1893 1894 1895 1900 1901 1902 1903 1904 1905 1906 1911
1912 1913 1914 1915 1916 1917 1922 1923 1924 1925 1926 1927 1928 1933
1934 1935 1936 1937 1938 1939 1944 1945 1946 1947 1948 1949 1950 1955
1956 1957 1958 1959 1960 1961 1971# 1973 1974 1975 1976 1995 1996 1997
1998 1999 2000 2001 2006 2007 2008 2009 2010 2011 2012 2017 2018 2019
2020 2021 2022 2023 2028 2029 2030 2031 2032 2033 2034 2039 2040 2041
2042 2043 2044 2045 2050 2051 2052 2053 2054 2055 2056 2061 2062 2063
2064 2065 2066 2067 2076# 2078 2079 2080 2081 2101 2102 2103 2104 2105
2106 2107 2112 2113 2114 2115 2116 2117 2118 2123 2124 2125 2126 2127
2128 2129 2136# 2138 2139 2140 2141 2159 2160 2161 2162 2163 2164 2165
2166 2167 2171 2172 2173 2174 2175 2176 2177 2178 2179 2183 2184 2185
2186 2187 2188 2189 2190 2191 2195 2196 2197 2198 2199 2200 2201 2202
2203 2211# 2213 2214 2215 2216 2218 2219 2220 2221 2222 2223 2231# 2233
2234 2235 2236 2238 2239 2240 2241 2242 2243 2244 2251# 2253 2254 2255
2256 2276 2277 2278 2279 2280 2281 2282 2287 2288 2289 2290 2291 2292
2293 2298 2299 2300 2301 2302 2303 2304 2309 2310 2311 2312 2313 2314
2315 2320 2321 2322 2323 2324 2325 2326 2336# 2338 2339 2340 2341 2361
2362 2363 2364 2365 2366 2367 2372 2373 2374 2375 2376 2377 2378 2383
2384 2385 2386 2387 2388 2389 2394 2395 2396 2397 2398 2399 2400 2405
2406 2407 2408 2409 2410 2411 2416 2417 2418 2419 2420 2421 2422 2427
2428 2429 2430 2431 2432 2433 2440# 2442 2443 2444 2445 2467 2468 2469
2470 2471 2472 2473 2474 2475 2480 2481 2482 2483 2484 2485 2486 2487
2488 2497# 2499 2500 2501 2502 2506 2507 2508 2509 2510 2511 2517# 2519
2520 2521 2522 2524 2525 2526 2527 2528 2529 2530 2531 2532 2533 2540#
2542 2543 2544 2545 2547 2548 2549 2550 2551 2552 2553 2554 2555 2556
2562# 2564 2565 2566 2567 2569 2570 2571 2572 2573 2574 2575 2576 2583#
2585 2586 2587 2588 2590 2591 2592 2593 2594 2595 2596 2597 2598 2599 SEQ 0113
2606# 2608 2609 2610 2611 2613 2614 2615 2616 2617 2618 2619 2620 2621
2622 2629# 2631 2632 2633 2634 2658 2659 2660 2661 2662 2663 2664 2665
2666 2667 2668 2673 2674 2675 2676 2677 2678 2679 2680 2681 2682 2683
2690# 2692 2693 2694 2695 2697 2698 2699 2700 2701 2702 2703 2704 2705
2706 2707 2714# 2716 2717 2718 2719 2721 2722 2723 2724 2725 2726 2727
2728 2729 2735# 2737 2738 2739 2740 2761 2762 2763 2764 2765 2766 2767
2768 2773 2774 2775 2776 2777 2778 2779 2780 2788# 2790 2791 2792 2793
2814 2815 2816 2817 2818 2819 2825 2826 2827 2828 2829 2830 2841# 2843
2844 2845 2846 2850 2851 2852 2853 2854 2855 2856 2857 2858 2861 2862
2869# 2871 2872 2873 2874 2891 2892 2893 2894 2895 2896 2897 2901 2902
2903 2904 2905 2906 2907 2911 2912 2913 2914 2915 2916 2917 2924# 2926
2927 2928 2929 2949 2950 2951 2952 2953 2954 2955 2960 2961 2962 2963
2964 2965 2966 2971 2972 2973 2974 2975 2976 2977 2984# 2986 2987 2988
2989 3012 3013 3014 3015 3016 3017 3018 3024 3025 3026 3027 3028 3029
3030 3036 3037 3038 3039 3040 3041 3042 3049# 3051 3052 3053 3054 3075
3076 3077 3078 3079 3080 3081 3086 3087 3088 3089 3090 3091 3092 3101#
3103 3104 3105 3106 3108 3109 3110 3111 3112 3113 3114 3120# 3122 3123
3124 3125 3127 3128 3129 3130 3131 3132 3133 3134 3142# 3144 3145 3146
3147 3167 3168 3169 3170 3171 3172 3173 3178 3179 3180 3181 3182 3183
3184 3191# 3193 3194 3195 3196 3198 3199 3200 3201 3202 3203 3204 3205
3206 3207 3208 3209 3216# 3218 3219 3220 3221 3225 3226 3227 3228 3229
3230 3231 3240# 3242 3243 3244 3245 3249 3250 3251 3252 3253 3254 3255
3261# 3263 3264 3265 3266 3283 3284 3285 3286 3287 3288 3289 3293 3294
3295 3296 3297 3298 3299 3307# 3309 3310 3311 3312 3314 3315 3316 3317
3318 3319 3320 3321 3322 3323 3324 3330# 3332 3333 3334 3335 3337 3338
3339 3340 3341 3342 3343 3344 3345 3346 3347 3354# 3356 3357 3358 3359
3361 3362 3363 3364 3365 3366 3367 3368 3369 3370 3371 3377# 3379 3380
3381 3382 3408 3409 3410 3411 3412 3413 3414 3415 3416 3417 3423 3424
3425 3426 3427 3428 3429 3430 3431 3432 3439# 3441 3442 3443 3444 3446
3447 3448 3449 3450 3451 3452 3453 3454 3461# 3463 3464 3465 3466 3468
3469 3470 3471 3472 3473 3474 3475 3476 3482# 3484 3485 3486 3487 3489
3490 3491 3492 3493 3494 3495 3496 3497 3498 3499 3500 3507# 3509 3510
3511 3512 3514 3515 3516 3517 3518 3519 3520 3521 3522 3528# 3530 3531
3532 3533 3535 3536 3537 3538 3539 3540 3541 3542 3543 3544 3545 3552#
3554 3555 3556 3557 3559 3560 3561 3562 3563 3564 3565 3566 3567 3573#
3575 3576 3577 3578 3602 3603 3604 3605 3606 3607 3608 3609 3610 3611
3616 3617 3618 3619 3620 3621 3622 3623 3624 3625 3630 3631 3632 3633
3634 3635 3636 3637 3638 3639 3644 3645 3646 3647 3648 3649 3650 3651
3652 3653 3658 3659 3660 3661 3662 3663 3664 3665 3666 3667 3674# 3676
3677 3678 3679 3681 3682 3683 3684 3685 3686 3693# 3695 3696 3697 3698
3700 3701 3702 3703 3704 3705 3706 3712# 3714 3715 3716 3717 3738 3739
3740 3741 3742 3743 3744 3749 3750 3751 3752 3753 3754 3755 3760 3761
3762 3763 3764 3765 3766
ALTMGO 889# 3891
AROV 803#
AROVTP 803#
AROVU 803#
AST 1004#
ATSIN 1005#
BEGEND 885# 3768
BEGIN 71 76 77 78 79 80 81 792 793 816# 4005
BEGIN1 832# 886
BELL 1008# SEQ 0114
BIS 803#
CB00 1169#
CCA 803#
CHAIN 597#
CHNOFF 803#
CHNON 803#
CLKU 803#
CLOCKF 871#
CNTLC 888#
CNTRP 803#
COMMA 997#
CONSW 872# 3826 3892 3916
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# 3996 3997
DECVER 4# 10 23 851
DF22F 956#
DIAGMN 819#
DING 583# 3897
DOLLAR 1011#
DSKUPD 856
EBIT0 803#
EBIT1 803#
EBIT10 803#
EBIT11 803#
EBIT12 803#
EBIT13 803#
EBIT14 803#
EBIT15 803#
EBIT2 803#
EBIT3 803#
EBIT4 803#
EBIT5 803#
EBIT6 803#
EBIT7 803#
EBIT8 803#
EBIT9 803#
END 4004#
ENDFIX 1131#
ENDSLD 3994#
ERDIAG 59# 3811
ERMORE 905# 3884 SEQ 0115
EROLD 60# 803
ERRELB 3881
ERRLOP 1174# 1174 1203# 1203 1227# 1227 1256# 1256 1280# 1280 1306# 1306 1336# 1336
1428# 1428 1447# 1447 1474# 1474 1624# 1624 1645# 1645 1683# 1683 1704# 1704
1724# 1724 1751# 1751 1771# 1771 1792# 1792 1818# 1818 1844# 1844 1870# 1870
1976# 1976 2081# 2081 2141# 2141 2216# 2216 2236# 2236 2256# 2256 2341# 2341
2445# 2445 2502# 2502 2522# 2522 2545# 2545 2567# 2567 2588# 2588 2611# 2611
2634# 2634 2695# 2695 2719# 2719 2740# 2740 2793# 2793 2846# 2846 2874# 2874
2929# 2929 2989# 2989 3054# 3054 3106# 3106 3125# 3125 3147# 3147 3196# 3196
3221# 3221 3245# 3245 3266# 3266 3312# 3312 3335# 3335 3359# 3359 3382# 3382
3444# 3444 3466# 3466 3487# 3487 3512# 3512 3533# 3533 3557# 3557 3578# 3578
3679# 3679 3698# 3698 3717# 3717 3791 3902 3905 3906
ERRMES 41 42 43 44 45 46 47 48 49 50 51 3773#
ERRPC 876# 3778 3808
ERRTLS 877# 3776 3909
ERSTOP 586# 3893
EXCASB 56# 854
EXIOT 803#
FOV 803#
FOVU 803#
FRDLNK 609#
FSELNK 608#
FXU 803# 1235 1606 1734 1800 2509 3253
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# 3890
JOBREL 803#
JOBREN 803#
JOBSA 803#
JOBSYM 803#
JOBTPC 803#
JOBUSY 803#
JOBUUO 803#
JOBVER 803#
KAIFLG 866#
KLFLG 867#
KNTRP 803#
KTRP 803#
LACLK 803#
LACLKE 803#
LAPRAL 803#
LAPRP1 803#
LAPRP2 803# SEQ 0116
LAPRP3 803#
LAPRP4 803#
LAPRP5 803#
LAPRP6 803#
LAPRP7 803#
LCHNOF 803#
LCHNON 803#
LCNTXT 803#
LCNXER 803#
LCPAER 803#
LCPSFT 803#
LCPWRF 803#
LDATAF 803#
LDLNK 610# 819 821
LDNXER 803#
LDPAER 803#
LDPSFT 803#
LDPWRF 803#
LEBXMH 803#
LEBXML 803#
LENXER 803#
LEPAER 803#
LEPSFT 803#
LEPWRF 803#
LEUPFW 803#
LEXCMP 803#
LFLGCL 803#
LFLGDS 803#
LFLGEN 803#
LFLGST 803#
LFP 1006#
LINSTF 803#
LINT 803#
LIOCLR 803#
LLACBL 803#
LLDUSB 803#
LMBXMH 803#
LMBXML 803#
LNXMEN 803#
LNXMER 803#
LOOPER 585# 3895
LPAREN 803#
LPARER 803#
LPFWPC 803#
LPGFTR 803#
LPICH1 803#
LPICH2 803#
LPICH3 803#
LPICH4 803#
LPICH5 803#
LPICH6 803#
LPICH7 803#
LPICHA 803# SEQ 0117
LPICLR 803#
LPIIP1 803#
LPIIP2 803#
LPIIP3 803#
LPIIP4 803#
LPIIP5 803#
LPIIP6 803#
LPIIP7 803#
LPIOFF 803#
LPION 803#
LPRCH1 803#
LPRCH2 803#
LPRCH3 803#
LPRCH4 803#
LPRCH5 803#
LPRCH6 803#
LPRCH7 803#
LPRFMH 803#
LPRFML 803#
LPSFT 803#
LPSFTE 803#
LPWRFE 803#
LPWRFL 803#
LREQSE 803#
LRQCLR 803#
LSECMO 803#
LSMODE 803#
LSNXER 803#
LSPAER 803#
LSPSFT 803#
LSPWRF 803#
LTBASH 803#
LTBASL 803#
LTRPAE 803#
LTRPEN 803#
LUSCMP 803#
LUUO 803#
LUUO1 41# 936 937
LUUO10 48# 936 941
LUUO11 49# 936 941
LUUO12 50# 936 942
LUUO13 51# 936 942
LUUO14 936 943
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 SEQ 0118
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 3779# 3779 3780 3793
MINUS 1001#
MODDVC 593#
MODDVL 792 792# 852
MODDVU 793 793# 853
MODLNK 612# 816
MONCTL 869# 3794 3907
MONFLG 868#
MONTEN 870#
MONTYP 1083#
MPVU 803#
MUUO 803#
MUUOPC 803#
NOPNT 581# 3784
NXMU 803#
OPRSEL 595#
OPTIME 971#
P 638 639 640 641 803# 891
P100 1177# 1182
P1000 1341#
P10000 3223# 3231
P10100 3247# 3255
P10200 3270#
P10300 3314# 3324
P10400 3337# 3347
P10500 3361# 3371
P1100 1376#
P11200 3388#
P11300 3446# 3454
P11400 3468# 3476
P11500 3489# 3500
P11600 3514# 3522
P11700 3535# 3545 SEQ 0119
P1200 1409#
P12000 3559# 3567
P12100 3584#
P12200 3681# 3686
P12300 3700# 3706
P12400 3723#
P1300 1430# 1435
P1400 1449# 1459
P1500 1479#
P1600 1512# 1518
P1700 1523#
P200 1185# 1190
P2000 1557#
P2100 1590# 1596
P2200 1600# 1611
P2300 1626# 1632
P2400 1648# 1654
P2500 1657# 1663
P2600 1665# 1671
P2700 1685# 1691
P300 1205# 1215
P3000 1706# 1712
P3100 1726# 1738
P3200 1753# 1759
P3300 1773# 1779
P3400 1794# 1805
P3500 1820# 1831
P3600 1846# 1852
P3700 1874#
P400 1229# 1243
P4000 1980#
P4100 2086#
P4200 2144#
P4300 2218# 2223
P4400 2238# 2244
P4500 2261#
P4600 2346#
P4700 2450#
P500 1258# 1268
P5000 2504# 2511
P5100 2524# 2533
P5200 2547# 2556
P5300 2569# 2576
P5400 2590# 2599
P600 1282# 1292
P6100 2613# 2622
P6200 2639#
P6300 2697# 2707
P6400 2721# 2729
P6500 2745#
P6600 2799#
P6700 2848# 2862
P700 1308# 1319 SEQ 0120
P7000 2878#
P7100 2934#
P7200 2995#
P7300 3060#
P7400 3108# 3114
P7500 3127# 3134
P7600 3152#
P7700 3198# 3209
PAG 803#
PALERS 587# 3917
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# 3799 3803
PATCH 3997#
PDISF 968#
PDLOVU 803#
PDOVTP 803#
PERIOD 998#
PFSTRT 825#
PGMEND 58# 4003
PGMNAM 850 1135#
PICHN1 803#
PICHN2 803#
PICHN3 803#
PICHN4 803#
PICHN5 803#
PICHN6 803#
PICHN7 803#
PICHNA 803#
PICLR 803#
PIOFF 803#
PION 803#
PLIST 1037# 1037
PLISTE 1037 1039#
PLISTS 1038#
PLUS 1003#
PNTENB 967#
PNTEXT 846#
PNTFLG 966#
PNTINH 969#
PNTLPT 582#
PNTNAM 845#
PNTRP 803#
PNTSPC 970#
PROCED 3782# 3782 3896 3903
PTRP 803# SEQ 0121
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 1338# 1352 1352# 1359 1362 1362# 1369 1373# 1387 1387# 1394 1397 1397# 1404
1476# 1490 1490# 1497 1500 1500# 1507 1520# 1534 1534# 1541 1544 1544# 1551
1554# 1568 1568# 1575 1578 1578# 1585 1871# 1886 1886# 1894 1897 1897# 1905
1908 1908# 1916 1919 1919# 1927 1930 1930# 1938 1941 1941# 1949 1952 1952#
1960 1977# 1992 1992# 2000 2003 2003# 2011 2014 2014# 2022 2025 2025# 2033
2036 2036# 2044 2047 2047# 2055 2058 2058# 2066 2082# 2098 2098# 2106 2109
2109# 2117 2120 2120# 2128 2142# 2157 2157# 2166 2169 2169# 2178 2181 2181#
2190 2193 2193# 2202 2257# 2273 2273# 2281 2284 2284# 2292 2295 2295# 2303
2306 2306# 2314 2317 2317# 2325 2342# 2358 2358# 2366 2369 2369# 2377 2380
2380# 2388 2391 2391# 2399 2402 2402# 2410 2413 2413# 2421 2424 2424# 2432
2446# 2464 2464# 2472 2474 2477 2477# 2485 2487 2635# 2655 2655# 2665 2667
2670 2670# 2680 2682 2741# 2758 2758# 2767 2770 2770# 2779 2795# 2811 2811#
2822 2822# 2875# 2889 2889# 2899 2899# 2909 2909# 2930# 2946 2946# 2957 2957#
2968 2968# 2990# 3008 3008# 3017 3020 3020# 3029 3032 3032# 3041 3056# 3072
3072# 3080 3083 3083# 3091 3148# 3164 3164# 3172 3175 3175# 3183 3267# 3281
3281# 3288 3291 3291# 3298 3384# 3404 3404# 3416 3419 3419# 3431 3580# 3599
3599# 3608 3610 3613 3613# 3622 3624 3627 3627# 3636 3638 3641 3641# 3650
3652 3655 3655# 3664 3666 3719# 3735 3735# 3743 3746 3746# 3754 3757 3757# SEQ 0122
3765
SNTRP 803#
SPACE 999#
SPDES 3869#
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# 1172 1201 1225 1254 1278 1304 1334 1426 1445 1472 1622 1643 1681
1702 1722 1749 1769 1790 1816 1842 1868 1974 2079 2139 2214 2234 2254
2339 2443 2500 2520 2543 2565 2586 2609 2632 2693 2717 2738 2791 2844
2872 2927 2987 3052 3104 3123 3145 3194 3219 3243 3264 3310 3333 3357
3380 3442 3464 3485 3510 3531 3555 3576 3677 3696 3715
TICKS 878#
TLET 1153 3843 3866#
TN0 803#
TN1 803#
TOTALS 579#
TRP3TP 803#
TTNBRF 1058#
TTYFIL 974#
TTYSPD 975#
TXTINH 590# 3827
UBAVEC 803#
USER 865#
USERF 803#
USRASB 57# 855
USRCRF 984#
USRLFF 983#
UUODIS 937#
UUOEXT 893# 3914
UUORTN 894#
UUOSKP 891#
WW 2991# 3009 3010 3011 3011# 3021 3022 3023 3023# 3033 3034 3035 3035#
XX 1888# 1889 1899# 1900 1910# 1911 1921# 1922 1932# 1933 1943# 1944 1954# 1955
1994# 1995 2005# 2006 2016# 2017 2027# 2028 2038# 2039 2049# 2050 2060# 2061
2083# 2099 2099# 2101 2110 2110# 2112 2121 2121# 2123 2258# 2274 2274# 2276
2285 2285# 2287 2296 2296# 2298 2307 2307# 2309 2318 2318# 2320 2343# 2359
2359# 2361 2370 2370# 2372 2381 2381# 2383 2392 2392# 2394 2403 2403# 2405
2414 2414# 2416 2425 2425# 2427 2447# 2465 2465# 2467 2478 2478# 2480 2636#
2656 2656# 2662 2666 2671 2671# 2677 2681 2742# 2759 2759# 2762 2771 2771#
2774 2796# 2812 2812# 2814 2823 2823# 2825 2931# 2947 2947# 2949 2958 2958#
2960 2969 2969# 2971 2992# 3009 3009# 3012 3021 3021# 3024 3033 3033# 3036 SEQ 0123
3057# 3073 3073# 3075 3084 3084# 3086 3149# 3165 3165# 3167 3176 3176# 3178
3385# 3405 3405# 3409 3420 3420# 3424 3581# 3600 3600# 3602 3614 3614# 3616
3628 3628# 3630 3642 3642# 3644 3656 3656# 3658 3720# 3736 3736# 3738 3747
3747# 3749 3758 3758# 3760
ZZ 1339# 1353 1353# 1354 1363 1363# 1364 1374# 1388 1388# 1389 1398 1398# 1399
1477# 1491 1491# 1492 1501 1501# 1502 1521# 1535 1535# 1536 1545 1545# 1546
1555# 1569 1569# 1570 1579 1579# 1580 1872# 1887 1887# 1888 1891 1898 1898#
1899 1902 1909 1909# 1910 1913 1920 1920# 1921 1924 1931 1931# 1932 1935
1942 1942# 1943 1946 1953 1953# 1954 1957 1978# 1993 1993# 1994 1996 2004
2004# 2005 2007 2015 2015# 2016 2018 2026 2026# 2027 2029 2037 2037# 2038
2040 2048 2048# 2049 2051 2059 2059# 2060 2062 2084# 2100 2100# 2103 2111
2111# 2114 2122 2122# 2125 2143# 2158 2158# 2160 2162 2170 2170# 2172 2174
2182 2182# 2184 2186 2194 2194# 2196 2198 2259# 2275 2275# 2277 2286 2286#
2288 2297 2297# 2299 2308 2308# 2310 2319 2319# 2321 2344# 2360 2360# 2362
2371 2371# 2373 2382 2382# 2384 2393 2393# 2395 2404 2404# 2406 2415 2415#
2417 2426 2426# 2428 2448# 2466 2466# 2468 2479 2479# 2481 2637# 2657 2657#
2659 2672 2672# 2674 2743# 2760 2760# 2764 2772 2772# 2776 2797# 2813 2813#
2816 2824 2824# 2827 2876# 2890 2890# 2892 2893 2900 2900# 2902 2903 2910
2910# 2912 2913 2932# 2948 2948# 2950 2959 2959# 2961 2970 2970# 2972 2993#
3010 3010# 3013 3022 3022# 3025 3034 3034# 3037 3058# 3074 3074# 3076 3085
3085# 3087 3150# 3166 3166# 3168 3177 3177# 3179 3268# 3282 3282# 3284 3292
3292# 3294 3386# 3406 3406# 3407 3407# 3413 3421 3421# 3422 3428 3582# 3601
3601# 3604 3615 3615# 3618 3629 3629# 3632 3643 3643# 3646 3657 3657# 3660
3721# 3737 3737# 3740 3748 3748# 3751 3759 3759# 3762
$$MUUO 1089#
$$OUTE 1095#
$$TAX1 1107#
$$TAX2 1108#
$$TOGG 1101#
$$UUO 1078#
$ACC0 916#
$ACF 3870#
$BEND1 886#
$BEND2 75 887# 3923
$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 3929
$MMAP 857#
$MODVL 852#
$MODVU 853#
$OBUF 1020#
$ONETM 880#
$OUTEX 1022# SEQ 0124
$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# 3777 3781 3807
$SVUUO 922# 3786 3818 3846
$TABF 980#
$TTCHR 976#
$TWCNT 972#
$TYPNB 978#
$UMODE 855#
$UORTX 895#
$USRHL 899#
$UUOER 896# 937
$VTF 982#
%AC1F 3871#
%ACS1A 3788# 3788 3832
%ACTFL 929#
%ACTUL 930#
%ALF 3876#
%AR1F 3875#
%ARF 3874#
%COREC 928#
%CORFL 927#
%DISCR 931#
%E1F 3873#
%EEF 3877#
%EF 3872#
%ER4X 3852 3857#
%ER5X 3850 3859#
%ER6X 3848 3861#
%ER7X 3854# 3858 3860 3862
%ERAC0 3773# 3773 3789 3823 3913
%ERAC1 3774# 3774 3790 3901
%ERAC2 3775# 3775 3900
%ERFST 3796# 3796 3798
%ERHI1 1070#
%ERHI2 1071#
%ERHI3 1072#
%ERMOR 3828 3855 3884#
%ERMS1 3793# 3919
%ERMS2 3816#
%ERMS3 3834 3841#
%ERRS1 3785 3887# 3918 SEQ 0125
%ERRS2 3900#
%ERRS4 3792 3916#
%ERRS5 3904 3908 3913#
%ERRS6 3911 3921#
%FF 3878#
%FLTTB 3836 3867#
%NODES 3868#
.JB41 803#
.JBAPR 803#
.JBCNI 803#
.JBDDT 803#
.JBFF 803#
.JBOPC 803#
.JBREL 803#
.JBREN 803#
.JBSA 803#
.JBSYM 803#
.JBTPC 803#
.JBUSY 803#
.JBUUO 803#
.JBVER 803#
APRID 803#
BCIO 803# SEQ 0126
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# 1212 1236 1240 1242 1265 1289 1314 1316 1456 1607 1733 1735 1801
1828 2510 2858 2861 3230 3254
ER2 30#
ER3 31# 1181 1189 1214 1238 1267 1291 1318 1359 1369 1394 1404 1414 1434
1458 1497 1507 1517 1541 1551 1575 1585 1595 1609 1631 1653 1662 1670
1690 1711 1737 1758 1778 1803 1830 1851 1894 1905 1916 1927 1938 1949
1960 2000 2011 2022 2033 2044 2055 2066 2106 2117 2128 2166 2178 2190
2202 2222 2243 2281 2292 2303 2314 2325 2366 2377 2388 2399 2410 2421
2432 2472 2485 2530 2553 2596 2621 2665 2680 2704 2726 2767 2779 2818
2829 2853 2855 2896 2906 2916 2954 2965 2976 3017 3029 3041 3080 3091
3113 3133 3172 3183 3206 3321 3344 3368 3416 3431 3453 3475 3497 3542
3608 3622 3636 3650 3664 3685 3705 3743 3754 3765
ER4 32#
ER5 33# 2474 2487 2532 2555 2575 2598 2667 2682 2706 2728 3208 3288 3298
3323 3346 3370 3499 3521 3544 3566 3610 3624 3638 3652 3666
ER6 34#
ER7 35#
ERRHLT 658# 3894
FATAL 657#
FRD36 799#
FRD8 800#
FREAD 798#
FSELEC 797# SEQ 0127
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# 3898
PCRL 727# 3835 3854
PCRL2 731#
PCRL2F 732#
PCRLF 728#
PFORCE 735#
PGMINT 651# 1151
PJRST 642#
PMSG 737# 3801 3805 3816 3841
PMSGF 740# 3921
PNT1 693#
PNT11 707#
PNT11F 708#
PNT1F 694#
PNT2 695#
PNT2F 696#
PNT3 697# 3853
PNT3F 698#
PNT4 699# 3857
PNT4F 700#
PNT5 701# 3859
PNT5F 702#
PNT6 703# 3809 3861
PNT6F 704#
PNT7 705#
PNT7F 706#
PNTA 679# 3844
PNTADF 710#
PNTADR 709#
PNTAF 680#
PNTAL 681# 3837
PNTALF 682#
PNTCHF 692#
PNTCHR 691#
PNTCI 689#
PNTCIF 690#
PNTCW 725# SEQ 0128
PNTCWF 726#
PNTDCF 718#
PNTDEC 717# 3804
PNTDS 719#
PNTDSF 720#
PNTHW 713# 3824
PNTHWF 714#
PNTMSF 686#
PNTMSG 685#
PNTNM 721# 3797
PNTOCF 716#
PNTOCS 715#
PNTOCT 711#
PNTOTF 712#
PNTSIX 722#
PNTSXF 723#
PSIXL 683#
PSIXLF 684#
PSIXM 687# 3802 3806 3817 3842
PSIXMF 688# 3922
PSP 729#
PSPF 730#
PUT 640#
RDAPR 803#
RDCSB 803#
RDCSTM 803#
RDEBR 803#
RDHSB 803#
RDINT 803#
RDIO 803#
RDIOB 803#
RDPI 803#
RDPUR 803#
RDSPB 803#
RDTIM 803#
RDUBR 803#
RTN 639# 893
S 569# 571 575 604 606 615 618 633 634 636 647 649 653 655
660 664 803 808 814 841 843 861 863 881 883 912 914 932
934 952 954 962 964 985 990 1016 1018 1025 1027 1033 1035 1041
1043 1047 1049 1054 1056 1060 1062 1066 1068 1074 1076 1079 1081 1085
1087 1091 1093 1097 1099 1103 1105 1110 1112 1116 1118 1122 1124 1126
1128
SAVEAC 63# 1170 1199 1223 1252 1276 1302 1332 1424 1443 1470 1620 1641 1679
1700 1720 1747 1767 1788 1814 1840 1866 1972 2077 2137 2212 2232 2252
2337 2441 2498 2518 2541 2563 2584 2607 2630 2691 2715 2736 2789 2842
2870 2925 2985 3050 3102 3121 3143 3192 3217 3241 3262 3308 3331 3355
3378 3440 3462 3483 3508 3529 3553 3574 3675 3694 3713
SDFA 471#
SDFARP 557#
SDFD 525#
SDFDKL 535#
SDFM 493# SEQ 0129
SDFMKL 503#
SDFS 482#
SIXBTZ 746#
SWITCH 752# 3783 3885
TIOE 803#
TIOEB 803#
TION 803#
TIONB 803#
TTALTM 673# 3887
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#
WRSPB 803#
WRTIM 803#
WRUBR 803#
ADDI 2618
ANDI 3820 SEQ 0130
AOS 891 3776 3779 3905 3906
ASCII 992 994 997 998 999 1000 1002 1003 1004 1005 1006 1007 1009 1010
1011
ASCIZ 1135 1152 3870 3871 3872 3873 3874 3875 3876 3877 3878
BLOCK 960 1020 1023 1029 1032 1038 3997
BYTE 1008
CAIG 3822 3833
CAIL 3910
CALL 1133
CAME 1213 1237 1266 1290 1317 1608 1893 1904 1915 1926 1937 1948 1959 1999
2010 2021 2032 2043 2054 2065 2105 2116 2127 2165 2177 2189 2201 2242
2280 2291 2302 2313 2324 2365 2376 2387 2398 2409 2420 2431 2471 2473
2484 2486 2529 2531 2552 2554 2574 2595 2597 2620 2664 2666 2679 2681
2703 2705 2725 2727 2766 2778 2817 2828 2854 2895 2905 2915 2953 2964
2975 3016 3028 3040 3079 3090 3112 3132 3171 3182 3205 3207 3287 3297
3320 3322 3343 3345 3367 3369 3415 3430 3452 3474 3496 3498 3520 3541
3543 3565 3607 3609 3621 3623 3635 3637 3649 3651 3663 3665 3684 3704
3742 3753 3764
CAMN 1188 1358 1368 1393 1403 1413 1457 1496 1506 1516 1540 1550 1574 1584
1594 1630 1652 1661 1669 1689 1710 1736 1757 1777 1802 1829 1850 2852
3564 3778
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 4005
FDV 2894 2904 2914 2952 2963 2974 3015 3027 3039 3078 3089 3111 3131 3170
3181 3204 3227 3251
FDVB 3342 3366
FDVM 3286 3296 3319
FDVR 3414 3429 3451 3473 3495
FDVRB 3563 3606 3620 3634 3648 3662
FDVRI 3683 3703 3741 3752 3763
FDVRM 3519 3540
FMP 1179 1187 1209 1233 1262 1286 1311 1357 1367 1392 1402 1412 1432 1453
1495 1505 1515 1539 1549 1573 1583 1593 1604 1629 1651 1660 1668 1688
1709 1730 1756 1776 1798 1824 1849 1892 1903 1914 1925 1936 1947 1958
1998 2009 2020 2031 2042 2053 2064 2104 2115 2126 2164 2176 2188 2200
2220 2241 2279 2290 2301 2312 2323 2364 2375 2386 2397 2408 2419 2430
2470 2483 2507
FMPB 2528 2551
FMPM 2573 2594
FMPR 2619 2663 2678
FMPRB 2724
FMPRI 2765 2777 2816 2827 2851
FMPRM 2702
HRL 3781
HRLI 2159 2161 2171 2173 2183 2185 2195 2197 2524 2547 2569 2590 2613 2615
2658 2661 2673 2676 2697 2700 2761 2763 2773 2775 3127 3198 3200 3202
3314 3316 3337 3339 3361 3363 3408 3410 3412 3423 3425 3427 3446 3448
3468 3470 3489 3491 3493 3514 3516 3535 3537 3559 3602 3616 3630 3644
3658 3700 3738 3749 3760
HRRI 2160 2162 2172 2174 2184 2186 2196 2198 2525 2548 2570 2591 2614 2616
2659 2662 2674 2677 2698 2701 2762 2764 2774 2776 3128 3199 3201 3203
3315 3317 3338 3340 3362 3364 3409 3411 3413 3424 3426 3428 3447 3449 SEQ 0131
3469 3471 3490 3492 3494 3515 3517 3536 3538 3560 3603 3617 3631 3645
3659 3701 3739 3750 3761
HRRZ 3777 3807 3846
IFDEF 803 854 855 856 857 3811 3881 3996 4003
IFE 3407 3422
IFNDEF 792 793 803 854 855 856 857 936 3929
JFCL 894 895 896 897 898 899 900 901 902 903 904 905 1205 1211
1258 1264 1282 1288 1449 1455 1726 1732 1820 1826
JFOV 1241 1315
JOV 1239 1313 2859
JRST 642 643 644 645 816 817 819 821 823 825 827 830 832 833
886 1155 1229 1600 1610 1794 1804 1827 2504 2848 2860 3223 3247 3768
3785 3792 3795 3800 3828 3834 3848 3850 3852 3855 3858 3860 3862 3888
3891 3904 3908 3911 3914 3918 3919 3923
JSP 651 1210 1234 1263 1287 1312 1454 1605 1731 1799 1825 2508 2856 3228
3252
JUMPL 1182 1190 1215 1243 1268 1292 1319 1360 1370 1395 1405 1415 1435 1459
1498 1508 1518 1542 1552 1576 1586 1596 1611 1632 1654 1663 1671 1691
1712 1738 1759 1779 1805 1831 1852 1895 1906 1917 1928 1939 1950 1961
2001 2012 2023 2034 2045 2056 2067 2107 2118 2129 2167 2179 2191 2203
2223 2244 2282 2293 2304 2315 2326 2367 2378 2389 2400 2411 2422 2433
2475 2488 2511 2533 2556 2576 2599 2622 2668 2683 2707 2729 2768 2780
2819 2830 2862 2897 2907 2917 2955 2966 2977 3018 3030 3042 3081 3092
3114 3134 3173 3184 3209 3231 3255 3289 3299 3324 3347 3371 3417 3432
3454 3476 3500 3522 3545 3567 3611 3625 3639 3653 3667 3686 3706 3744
3755 3766
LALL 8 1162
LIST 7 803 936 3811 3881 3929 3993
LIT 3930
LOC 22 806 1130
LSH 3787 3819
MOVE 1152 2850 3780 3786 3789 3790 3803 3818 3821 3823 3826 3832 3836 3892
3900 3901 3909 3913 3916
MOVEI 1171 1173 1200 1202 1224 1226 1253 1255 1277 1279 1303 1305 1333 1335
1425 1427 1444 1446 1471 1473 1621 1623 1642 1644 1680 1682 1701 1703
1721 1723 1748 1750 1768 1770 1789 1791 1815 1817 1841 1843 1867 1869
1973 1975 2078 2080 2138 2140 2213 2215 2233 2235 2253 2255 2338 2340
2442 2444 2499 2501 2519 2521 2542 2544 2564 2566 2585 2587 2608 2610
2631 2633 2692 2694 2716 2718 2737 2739 2790 2792 2843 2845 2871 2873
2926 2928 2986 2988 3051 3053 3103 3105 3122 3124 3144 3146 3193 3195
3218 3220 3226 3242 3244 3263 3265 3309 3311 3332 3334 3356 3358 3379
3381 3441 3443 3463 3465 3484 3486 3509 3511 3530 3532 3554 3556 3575
3577 3676 3678 3695 3697 3714 3716 3843 3889
MOVEM 1153 1172 1174 1201 1203 1225 1227 1254 1256 1278 1280 1304 1306 1334
1336 1426 1428 1445 1447 1472 1474 1622 1624 1643 1645 1681 1683 1702
1704 1722 1724 1749 1751 1769 1771 1790 1792 1816 1818 1842 1844 1868
1870 1974 1976 2079 2081 2139 2141 2214 2216 2234 2236 2254 2256 2339
2341 2443 2445 2500 2502 2520 2522 2543 2545 2565 2567 2586 2588 2609
2611 2632 2634 2693 2695 2717 2719 2738 2740 2791 2793 2844 2846 2872
2874 2927 2929 2987 2989 3052 3054 3104 3106 3123 3125 3145 3147 3194
3196 3219 3221 3243 3245 3264 3266 3310 3312 3333 3335 3357 3359 3380
3382 3442 3444 3464 3466 3485 3487 3510 3512 3531 3533 3555 3557 3576
3578 3677 3679 3696 3698 3715 3717 3773 3774 3775 3788 3808 3890 SEQ 0132
MOVSI 1177 1185 1186 1206 1207 1208 1230 1231 1232 1259 1260 1261 1283 1284
1285 1308 1309 1310 1354 1355 1356 1364 1365 1366 1389 1390 1391 1399
1400 1401 1409 1410 1411 1430 1431 1450 1451 1452 1492 1493 1494 1502
1503 1504 1512 1513 1514 1536 1537 1538 1546 1547 1548 1570 1571 1572
1580 1581 1582 1590 1591 1592 1601 1602 1603 1626 1627 1628 1648 1649
1650 1657 1658 1659 1665 1666 1667 1685 1686 1687 1706 1707 1708 1727
1728 1729 1753 1754 1755 1773 1774 1775 1795 1796 1797 1821 1822 1823
1846 1848 1889 1890 1891 1900 1901 1902 1911 1912 1913 1922 1923 1924
1933 1934 1935 1944 1945 1946 1955 1956 1957 1995 1996 1997 2006 2007
2008 2017 2018 2019 2028 2029 2030 2039 2040 2041 2050 2051 2052 2061
2062 2063 2101 2102 2103 2112 2113 2114 2123 2124 2125 2163 2175 2187
2199 2219 2238 2239 2240 2276 2277 2278 2287 2288 2289 2298 2299 2300
2309 2310 2311 2320 2321 2322 2361 2362 2363 2372 2373 2374 2383 2384
2385 2394 2395 2396 2405 2406 2407 2416 2417 2418 2427 2428 2429 2467
2468 2469 2480 2481 2482 2506 2526 2527 2549 2550 2571 2572 2592 2593
2617 2660 2675 2699 2721 2722 2723 2814 2815 2825 2826 2891 2892 2893
2901 2902 2903 2911 2912 2913 2949 2950 2951 2960 2961 2962 2971 2972
2973 3012 3013 3014 3024 3025 3026 3036 3037 3038 3075 3076 3077 3086
3087 3088 3108 3109 3110 3129 3130 3167 3168 3169 3178 3179 3180 3225
3249 3250 3283 3284 3285 3293 3294 3295 3318 3341 3365 3450 3472 3518
3539 3561 3562 3604 3605 3618 3619 3632 3633 3646 3647 3660 3661 3681
3682 3702 3740 3751 3762
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 1372 1510 1597 2069 2623 2782 2863 3094 3135 3301
POP 641
POPJ 639
PUSH 640
PUSHJ 638
REPEAT 1341 1376 1479 1523 1557 1874 1980 2086 2144 2261 2346 2450 2639 2745
2799 2878 2934 2995 3060 3152 3270 3388 3584 3723
SETOM 3798 3896 3902
SETZ 1178 1847 2218
SETZM 3782 3793
SIXBIT 85 86 1021 1022 1030 1031 1133 3802 3806 3817 3842 3922
SKIPE 1180 2221
SKIPGE 3791
SKIPL 3794 3907
SKIPN 1433 3796 3799 3903
SUBTTL 25 567 602 803 804 1156 1853 3769 3924
TITLE 12
TLNE 1800 2857 3253 3784 3827 3893 3897
TLNN 1235 1606 1734 2509 3229 3895 3917
TRNE 3847 3849 3851
VAR 4001
XALL 14 SEQ 0133
XCT 3884
XLIST 6 802 803 935 3810 3880 3928
XWD 2505 2849 2850 2852 2854 3224 3248
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 1 SEQ 0134
DSKCB 000000 000000 700000 000000 100000 000000 030000 777777
*030631 FMP 14,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200400 000000 C(E)= 000000 000000
FINAL
C(AC)= 000000 000000
----------
*030637 FMP 14,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200400 000000 C(E)= 200400 000000
FINAL
C(AC)= 177400 000000
----------
*030653 FMP 14,000013
FLAGS - INT/FINAL 000000 440300
INITIAL
C(AC)= 000400 000000 C(E)= 000400 000000
FINAL
C(AC)= 177400 000000
----------
*030672 FMP 13,000012
FLAGS - INT/FINAL 000000 440300
INITIAL
C(AC)= 000400 000000 C(E)= 000400 000000
FINAL
C(AC)= 177400 000000
----------
*030715 FMP 12,000011
FLAGS - INT/FINAL 000300 440300
INITIAL
C(AC)= 000400 000000 C(E)= 000400 000000
FINAL
C(AC)= 177400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 2
DSKCB 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0135
*030734 FMP 5,000004
FLAGS - INT/FINAL 040300 440300
INITIAL
C(AC)= 200400 000000 C(E)= 000400 000000
FINAL
C(AC)= 377400 000000
----------
*030752 FMP 11,000010
FLAGS - INT/FINAL 040300 440300
INITIAL
C(AC)= 000400 000000 C(E)= 000400 000000
FINAL
C(AC)= 177400 000000
----------
*030772 FMP 10,000007
FLAGS - INT/FINAL 000300 440300
INITIAL
C(AC)= 000400 000000 C(E)= 000400 000000
FINAL
C(AC)= 177400 000000
----------
*031001 FMP 10,000007
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 000400 000000 C(E)= 000400 000000
FINAL
C(AC)= 177400 000000
----------
*031010 FMP 10,000007
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 000400 000000 C(E)= 000400 000000
FINAL
C(AC)= 177400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 3
DSKCB 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0136
*031017 FMP 10,000007
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 000400 000000 C(E)= 000400 000000
FINAL
C(AC)= 177400 000000
----------
*031026 FMP 10,000007
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 000400 000000 C(E)= 000400 000000
FINAL
C(AC)= 177400 000000
----------
*031040 FMP 7,000006
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 000400 000000 C(E)= 000400 000000
FINAL
C(AC)= 177400 000000
----------
*031054 FMP 6,000005
FLAGS - INT/FINAL 040300 440300
INITIAL
C(AC)= 200400 000000 C(E)= 000400 000000
FINAL
C(AC)= 377400 000000
----------
*031072 FMP 14,000013
FLAGS - INT/FINAL 040300 440300
INITIAL
C(AC)= 177400 000000 C(E)= 000400 000000
FINAL
C(AC)= 376400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 4
DSKCB 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0137
*031101 FMP 14,000013
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 177400 000000 C(E)= 000400 000000
FINAL
C(AC)= 376400 000000
----------
*031110 FMP 14,000013
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 177400 000000 C(E)= 000400 000000
FINAL
C(AC)= 376400 000000
----------
*031117 FMP 14,000013
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 177400 000000 C(E)= 000400 000000
FINAL
C(AC)= 376400 000000
----------
*031126 FMP 14,000013
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 177400 000000 C(E)= 000400 000000
FINAL
C(AC)= 376400 000000
----------
*031135 FMP 14,000013
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 177400 000000 C(E)= 000400 000000
FINAL
C(AC)= 376400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 5
DSKCB 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0138
*031144 FMP 14,000013
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 177400 000000 C(E)= 000400 000000
FINAL
C(AC)= 376400 000000
----------
*031153 FMP 14,000013
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 177400 000000 C(E)= 000400 000000
FINAL
C(AC)= 376400 000000
----------
*031163 FMP 14,000013
FLAGS - INT/FINAL 000000 440300
INITIAL
C(AC)= 177400 000000 C(E)= 000400 000000
FINAL
C(AC)= 376400 000000
----------
*031202 FMP 14,000013
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 377400 000000 C(E)= 000400 000000
FINAL
C(AC)= 176400 000000
----------
*031215 FMP 13,000012
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 377400 000000 C(E)= 000400 000000
FINAL
C(AC)= 176400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 6
DSKCB 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0139
*031224 FMP 13,000012
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 377400 000000 C(E)= 000400 000000
FINAL
C(AC)= 176400 000000
----------
*031233 FMP 13,000012
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 377400 000000 C(E)= 000400 000000
FINAL
C(AC)= 176400 000000
----------
*031246 FMP 12,000011
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 377400 000000 C(E)= 000400 000000
FINAL
C(AC)= 176400 000000
----------
*031261 FMP 11,000010
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 577400 000000 C(E)= 000400 000000
FINAL
C(AC)= 400400 000000
----------
*031275 FMP 10,000007
FLAGS - INT/FINAL 040300 440300
INITIAL
C(AC)= 000400 000000 C(E)= 200400 000000
FINAL
C(AC)= 377400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 7
DSKCB 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0140
*031315 FMP 7,000006
FLAGS - INT/FINAL 040300 440300
INITIAL
C(AC)= 000400 000000 C(E)= 200400 000000
FINAL
C(AC)= 377400 000000
----------
*031330 FMP 6,000005
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 200400 000000 C(E)= 577400 000000
FINAL
C(AC)= 600400 000000
----------
*031344 FMP 5,000004
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200400 000000 C(E)= 200400 000000
FINAL
C(AC)= 177400 000000
----------
*031364 FMP 14,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200400 000000 C(E)= 205400 000000
FINAL
C(AC)= 204400 000000
----------
*031403 FMP 14,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(E)= 577400 000000
FINAL
C(AC)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 8
DSKCB 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0141
*031416 FMP 14,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200400 000000 C(E)= 201400 000000
FINAL
C(AC)= 200400 000000
----------
*031425 FMP 14,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200400 000000 C(E)= 202400 000000
FINAL
C(AC)= 201400 000000
----------
*031434 FMP 14,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200400 000000 C(E)= 204400 000000
FINAL
C(AC)= 203400 000000
----------
*031443 FMP 14,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200400 000000 C(E)= 210400 000000
FINAL
C(AC)= 207400 000000
----------
*031452 FMP 14,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200400 000000 C(E)= 220400 000000
FINAL
C(AC)= 217400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 9
DSKCB 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0142
*031461 FMP 14,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200400 000000 C(E)= 240400 000000
FINAL
C(AC)= 237400 000000
----------
*031470 FMP 14,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200400 000000 C(E)= 300400 000000
FINAL
C(AC)= 277400 000000
----------
*031503 FMP 14,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 201400 000000 C(E)= 200400 000000
FINAL
C(AC)= 200400 000000
----------
*031512 FMP 14,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 202400 000000 C(E)= 200400 000000
FINAL
C(AC)= 201400 000000
----------
*031521 FMP 14,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 204400 000000 C(E)= 200400 000000
FINAL
C(AC)= 203400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 10
DSKCB 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0143
*031530 FMP 14,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 210400 000000 C(E)= 200400 000000
FINAL
C(AC)= 207400 000000
----------
*031537 FMP 14,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 220400 000000 C(E)= 200400 000000
FINAL
C(AC)= 217400 000000
----------
*031546 FMP 14,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 240400 000000 C(E)= 200400 000000
FINAL
C(AC)= 237400 000000
----------
*031555 FMP 14,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 300400 000000 C(E)= 200400 000000
FINAL
C(AC)= 277400 000000
----------
*031570 FMP 13,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200400 000000 C(E)= 577400 000000
FINAL
C(AC)= 600400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 11
DSKCB 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0144
*031577 FMP 13,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200400 000000 C(E)= 576400 000000
FINAL
C(AC)= 577400 000000
----------
*031606 FMP 13,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200400 000000 C(E)= 575400 000000
FINAL
C(AC)= 576400 000000
----------
*031623 FMP 12,000011
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777777 C(E)= 200400 000000
FINAL
C(AC)= 177777 777777
----------
*031634 FMP 12,000011
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777776 C(E)= 200400 000000
FINAL
C(AC)= 177777 777776
----------
*031645 FMP 12,000011
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777775 C(E)= 200400 000000
FINAL
C(AC)= 177777 777775
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 12
DSKCB 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0145
*031656 FMP 12,000011
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200777 777774 C(E)= 200400 000000
FINAL
C(AC)= 177777 777774
----------
*031670 FMP 11,000010
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(E)= 200400 000000
FINAL
C(AC)= 000000 000000
----------
*031703 FMP 10,000007
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 577400 000000 C(E)= 200400 000000
FINAL
C(AC)= 600400 000000
----------
*031716 FMP 11,000010
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 501700 000000 C(E)= 500400 000000
FINAL
C(AC)= 372400 000000
----------
*031725 FMP 11,000010
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 502700 000000 C(E)= 500400 000000
FINAL
C(AC)= 371400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 13
DSKCB 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0146
*031734 FMP 11,000010
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 503700 000000 C(E)= 500400 000000
FINAL
C(AC)= 370400 000000
----------
*031743 FMP 11,000010
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 504700 000000 C(E)= 500400 000000
FINAL
C(AC)= 367400 000000
----------
*031752 FMP 11,000010
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 505700 000000 C(E)= 500400 000000
FINAL
C(AC)= 366400 000000
----------
*031765 FMP 7,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200200 000000 C(E)= 200400 000000
FINAL
C(AC)= 176400 000000
----------
*031774 FMP 7,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200100 000000 C(E)= 200400 000000
FINAL
C(AC)= 175400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 14
DSKCB 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0147
*032003 FMP 7,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200040 000000 C(E)= 200400 000000
FINAL
C(AC)= 174400 000000
----------
*032012 FMP 7,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200020 000000 C(E)= 200400 000000
FINAL
C(AC)= 173400 000000
----------
*032021 FMP 7,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200010 000000 C(E)= 200400 000000
FINAL
C(AC)= 172400 000000
----------
*032030 FMP 7,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200004 000000 C(E)= 200400 000000
FINAL
C(AC)= 171400 000000
----------
*032037 FMP 7,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200002 000000 C(E)= 200400 000000
FINAL
C(AC)= 170400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 15
DSKCB 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0148
*032052 FMP 6,000005
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 500700 000000 C(E)= 200400 000000
FINAL
C(AC)= 503400 000000
----------
*032063 FMP 6,000005
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 500770 000000 C(E)= 200400 000000
FINAL
C(AC)= 506400 000000
----------
*032100 FMP 6,000006
FLAGS - INT/FINAL 000000 440300
INITIAL
C(AC)= 000400 000000 C(E)= 000400 000000
FINAL
C(AC)= 177400 000000
----------
*032115 FMPB 5,000004
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 200775 000000 C(E)= 200775 000000
FINAL
C(AC)= 200772 011000 C(E)= 200772 011000
----------
*032133 FMPB 14,000013
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 200774 000000 C(E)= 200774 000000
FINAL
C(AC)= 200770 020000 C(E)= 200770 020000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 16
DSKCB 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0149
*032151 FMPM 14,000013
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 200773 000000 C(E)= 200773 000000
FINAL
C(E)= 200766 031000
----------
*032165 FMPM 13,000012
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 177477 000000 C(E)= 200700 000000
FINAL
C(E)= 177427 100000
----------
*032205 FMPR 6,000005
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 200777 777777 C(E)= 200000 000002
FINAL
C(AC)= 146777 777777
----------
*032222 FMPR 14,000013
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 200700 000000 C(E)= 200400 000077
FINAL
C(AC)= 177700 000156
----------
*032235 FMPR 14,000013
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 200700 000000 C(E)= 200400 000076
FINAL
C(AC)= 177700 000155
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 17
DSKCB 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0150
*032254 FMPRM 14,000013
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 200700 000000 C(E)= 200400 000075
FINAL
C(E)= 177700 000153
----------
*032271 FMPRB 13,000012
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 577400 000000 C(E)= 600400 000000
FINAL
C(AC)= 176400 000000 C(E)= 176400 000000
----------
*032307 FMPRI 12,177600
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 600400 000077 E= 000000 177600
FINAL
C(AC)= 602200 000136
----------
*032317 FMPRI 12,177600
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 600400 000076 E= 000000 177600
FINAL
C(AC)= 602200 000135
----------
*032331 FMPRI 11,576400
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 600400 000000 E= 000000 576400
FINAL
C(AC)= 177400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 18
DSKCB 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0151
*032337 FMPRI 11,575400
FLAGS - INT/FINAL 440300 440300
INITIAL
C(AC)= 600400 000000 E= 000000 575400
FINAL
C(AC)= 200400 000000
----------
*032352 FMPRI 11,201400
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 400000 000001 E= 000000 201400
FINAL
C(AC)= 400000 000001
----------
*032375 FDV 14,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200400 000000 C(E)= 200400 000000
FINAL
C(AC)= 201400 000000
----------
*032404 FDV 14,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 201400 000000 C(E)= 201400 000000
FINAL
C(AC)= 201400 000000
----------
*032413 FDV 14,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 202400 000000 C(E)= 202400 000000
FINAL
C(AC)= 201400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 19
DSKCB 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0152
*032426 FDV 14,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 201400 000000 C(E)= 200400 000000
FINAL
C(AC)= 202400 000000
----------
*032435 FDV 14,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 202400 000000 C(E)= 200400 000000
FINAL
C(AC)= 203400 000000
----------
*032444 FDV 14,000013
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 203400 000000 C(E)= 200400 000000
FINAL
C(AC)= 204400 000000
----------
*032457 FDV 13,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200600 000000 C(E)= 200400 000000
FINAL
C(AC)= 201600 000000
----------
*032466 FDV 13,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200700 000000 C(E)= 200400 000000
FINAL
C(AC)= 201700 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 20
DSKCB 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0153
*032475 FDV 13,000012
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200740 000000 C(E)= 200400 000000
FINAL
C(AC)= 201740 000000
----------
*032510 FDV 12,000011
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200400 000000 C(E)= 577400 000000
FINAL
C(AC)= 576400 000000
----------
*032517 FDV 12,000011
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200600 000000 C(E)= 577400 000000
FINAL
C(AC)= 576200 000000
----------
*032532 FDV 11,000010
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 177400 000000 C(E)= 204400 000000
FINAL
C(AC)= 174400 000000
----------
*032546 FDV 10,000007
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 576400 000000 C(E)= 200600 000000
FINAL
C(AC)= 576252 525253
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 21
DSKCB 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0154
*032561 FDV 7,000006
FLAGS - INT/FINAL 300000 300000
INITIAL
C(AC)= 600600 000000 C(E)= 577400 000000
FINAL
C(AC)= 177400 000000
----------
*032570 FDV 7,000006
FLAGS - INT/FINAL 300000 300000
INITIAL
C(AC)= 600400 000000 C(E)= 577400 000000
FINAL
C(AC)= 200400 000000
----------
*032606 FDV 6,000005
FLAGS - INT/FINAL 300000 740200
INITIAL
C(AC)= 377400 777777 C(E)= 577400 777777
FINAL
C(AC)= 777375 773772
----------
*032624 FDV 6,000005
FLAGS - INT/FINAL 000000 440240
INITIAL
C(AC)= 201400 000000 C(E)= 000000 000000
FINAL
C(AC)= 201400 000000
----------
*032641 FDV 6,000005
FLAGS - INT/FINAL 000000 440200
INITIAL
C(AC)= 377400 000000 C(E)= 000400 000000
FINAL
C(AC)= 200400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 22
DSKCB 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0155
*032655 FDVM 5,000004
FLAGS - INT/FINAL 440200 440240
INITIAL
C(AC)= 577775 000000 C(E)= 577777 000000
FINAL
C(E)= 577777 000000
----------
*032664 FDVM 5,000004
FLAGS - INT/FINAL 440240 440240
INITIAL
C(AC)= 577774 000000 C(E)= 577777 000000
FINAL
C(E)= 577777 000000
----------
*032701 FDVM 14,000013
FLAGS - INT/FINAL 440240 440240
INITIAL
C(AC)= 210777 777777 C(E)= 170750 000000
FINAL
C(E)= 221414 456123
----------
*032720 FDVB 14,000013
FLAGS - INT/FINAL 440240 440240
INITIAL
C(AC)= 210777 777777 C(E)= 170555 000000
FINAL
C(AC)= 221547 063714 C(E)= 221547 063714
----------
*032737 FDVB 13,000012
FLAGS - INT/FINAL 440240 440240
INITIAL
C(AC)= 577000 555555 C(E)= 200400 000000
FINAL
C(AC)= 576000 555555 C(E)= 576000 555555
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 23
DSKCB 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0156
*032757 FDVR 6,000005
FLAGS - INT/FINAL 440240 440240
INITIAL
C(AC)= 200777 777777 C(E)= 200777 777776
FINAL
C(AC)= 201400 000001
----------
*032771 FDVR 6,000005
FLAGS - INT/FINAL 440240 440240
INITIAL
C(AC)= 200777 777777 C(E)= 200777 777774
FINAL
C(AC)= 201400 000002
----------
*033006 FDVR 5,000004
FLAGS - INT/FINAL 440240 440240
INITIAL
C(AC)= 210777 777777 C(E)= 170555 000000
FINAL
C(AC)= 221547 063715
----------
*033023 FDVR 14,000013
FLAGS - INT/FINAL 440240 440240
INITIAL
C(AC)= 210777 777776 C(E)= 170555 000000
FINAL
C(AC)= 221547 063714
----------
*033041 FDVR 14,000013
FLAGS - INT/FINAL 440240 440240
INITIAL
C(AC)= 210777 777777 C(E)= 170555 600000
FINAL
C(AC)= 221546 272703
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 24
DSKCB 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0157
*033060 FDVRM 13,000012
FLAGS - INT/FINAL 440240 440240
INITIAL
C(AC)= 210777 777777 C(E)= 170557 000000
FINAL
C(E)= 221545 111741
----------
*033075 FDVRM 12,000011
FLAGS - INT/FINAL 440240 440240
INITIAL
C(AC)= 210777 777777 C(E)= 170560 000000
FINAL
C(E)= 221544 131026
----------
*033113 FDVRB 11,000010
FLAGS - INT/FINAL 440240 440240
INITIAL
C(AC)= 377400 000000 C(E)= 100777 000000
FINAL
C(AC)= 077400 400401 C(E)= 077400 400401
----------
*033130 FDVRB 10,000007
FLAGS - INT/FINAL 440240 440240
INITIAL
C(AC)= 376400 000000 C(E)= 100777 000000
FINAL
C(AC)= 076400 400401 C(E)= 076400 400401
----------
*033142 FDVRB 10,000007
FLAGS - INT/FINAL 440240 440240
INITIAL
C(AC)= 375400 000000 C(E)= 100777 000000
FINAL
C(AC)= 075400 400401 C(E)= 075400 400401
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 25
DSKCB 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0158
*033154 FDVRB 10,000007
FLAGS - INT/FINAL 440240 440240
INITIAL
C(AC)= 374400 000000 C(E)= 100777 000000
FINAL
C(AC)= 074400 400401 C(E)= 074400 400401
----------
*033166 FDVRB 10,000007
FLAGS - INT/FINAL 440240 440240
INITIAL
C(AC)= 373400 000000 C(E)= 100777 000000
FINAL
C(AC)= 073400 400401 C(E)= 073400 400401
----------
*033200 FDVRB 10,000007
FLAGS - INT/FINAL 440240 440240
INITIAL
C(AC)= 372400 000000 C(E)= 100777 000000
FINAL
C(AC)= 072400 400401 C(E)= 072400 400401
----------
*033214 FDVRI 7,210777
FLAGS - INT/FINAL 440240 440240
INITIAL
C(AC)= 210777 000000 E= 000000 210777
FINAL
C(AC)= 201400 000000
----------
*033227 FDVRI 6,210777
FLAGS - INT/FINAL 440240 440240
INITIAL
C(AC)= 200400 000000 E= 000000 210777
FINAL
C(AC)= 170400 400401
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 26
DSKCB 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0159
*033242 FDVRI 5,100777
FLAGS - INT/FINAL 440240 440240
INITIAL
C(AC)= 371400 000000 E= 000000 100777
FINAL
C(AC)= 071400 400401
----------
*033251 FDVRI 5,100777
FLAGS - INT/FINAL 440240 440240
INITIAL
C(AC)= 370400 000000 E= 000000 100777
FINAL
C(AC)= 070400 400401
----------
*033260 FDVRI 5,100777
FLAGS - INT/FINAL 440240 440240
INITIAL
C(AC)= 367400 000000 E= 000000 100777
FINAL
C(AC)= 067400 400401
----------