Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dskcc.seq
There are no other files named dskcc.seq in the archive.
;DSKCC
IDENTIFICATION
--------------
PRODUCT CODE: AH-E329A-DD
DIAGNOSTIC CODE: DSKCC
PRODUCT NAME: DSKCCA0 DECSYSTEM 2020
ADVANCED INSTRUCTION DIAGNOSTIC (3)
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-DSKCC.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-DSKCC.TXT
PAGE 3 SEQ 0004
1.0 ABSTRACT
THIS DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC IS THE
THIRD IN A SERIES OF DECSYSTEM 2020 ADVANCED PROCESSOR
DIAGNOSTICS.
THE DIAGNOSTIC PERFORMS LOGIC TESTING OF THE PROCESSOR
AND MICRO-CODE FLOATING POINT INSTRUCTIONS: FIX, FIXR, FLTR.
IT ALSO TEST THE DOUBLE PRECISION MOVES: DMOVE, DMOVN, DMOVEM
AND DMOVNM.
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-DSKCC.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-DSKCC.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-DSKCC.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-DSKCC.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-DSKCC.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 'DSKCC.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-DSKCC.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 DSKCC SEQ 0011
----------------------
---------------------------------------------------------------
CODE: MAINDEC-10-DSKCC
TITLE: DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC (3)
VERSION: 0.1
DATE: MARCH 1978
REASON: ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10.
---------------------------------------------------------------
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 1
DSKCCT MAC 29-Mar-78 11:34 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0012
1 ;MAINDEC-10-DSKCC
2
3 000000 MCNVER=0
4 000001 DECVER=1
5
6 XLIST
7 LIST
8 LALL
9
10 NAME \MCNVER,\DECVER^
11
12 TITLE DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, 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
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 2
DSKCCT MAC 29-Mar-78 11:34 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 036503 LUUO1==ERRMES
42 036503 LUUO2==ERRMES
43 036503 LUUO3==ERRMES
44 036503 LUUO4==ERRMES
45 036503 LUUO5==ERRMES
46 036503 LUUO6==ERRMES
47 036503 LUUO7==ERRMES
48 036503 LUUO10==ERRMES
49 036503 LUUO11==ERRMES
50 036503 LUUO12==ERRMES
51 036503 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
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 3
DSKCCT MAC 29-Mar-78 11:34 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 434300 PAREA3=SIXBIT/DSKCC/
86 546064 000000 PAREA4=SIXBIT/LPT/
87 000000 PAREA5=0
88 000000 PAREA6=0
89
90 000001 ITERAT=1
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 4
DSKCCT MAC 29-Mar-78 11:34 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>
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 5
DSKCCT MAC 29-Mar-78 11:34 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>
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 6
DSKCCT MAC 29-Mar-78 11:34 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>
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 7
DSKCCT MAC 29-Mar-78 11:34 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>
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 8
DSKCCT MAC 29-Mar-78 11:34 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>
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 9
DSKCCT MAC 29-Mar-78 11:34 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>
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 10
DSKCCT MAC 29-Mar-78 11:34 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>
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 11
DSKCCT MAC 29-Mar-78 11:34 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>
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 12
DSKCCT MAC 29-Mar-78 11:34 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>
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 13
DSKCCT MAC 29-Mar-78 11:34 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>
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 14
DSKCCT MAC 29-Mar-78 11:34 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>
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 15
DSKCCT MAC 29-Mar-78 11:34 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>
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 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 !!!
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 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^;*********************************************************************^
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 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
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 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
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 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
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 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
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 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 ; "
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 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 434300 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
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 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
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 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 036503 030070 UUODIS: LUUO1,,$UUOER
938 030125 036503 036503 LUUO3,,LUUO2
939 030126 036503 036503 LUUO5,,LUUO4
940 030127 036503 036503 LUUO7,,LUUO6
941 030130 036503 036503 LUUO11,,LUUO10
942 030131 036503 036503 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
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 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
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 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
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 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
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 1
DSKCC1 MAC 29-Mar-78 11:34 *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 036671 CALL [SIXBIT .EXIT.]
1134
1135 030602 PGMNAM: ASCIZ?
1136 030602 015 012 104 105 103 DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3 (DSKCC)
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 063 040 050 104 123
1147 030615 113 103 103 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 036672 MOVE [ASCIZ/CC/]
1153 030621 202 00 0 00 036612 MOVEM TLET ;INITIALIZE TEST LETTER
1154
1155 030622 254 00 0 00 030623 STARTA: JRST .+1 ;GO PERFORM DIAGNOSTIC
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 2
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - CONVERSION OF 0 SEQ 0041
1156 SUBTTL DIAGNOSTIC SECTION - FIX - CONVERSION OF 0
1157
1158 DEFINE SAVEAC (A,B)<
1159 MOVEI SAC,.
1160 MOVEM SAC,TESTPC ;SETUP SUBTEST PC
1161 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH
1162 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION>
1163
1164 ;CHECK THAT 'FIX AC,E' DOES NOT MODIFY C(E)
1165 000004 CC00: AC=4
1166 000010 SAC=<AC+4>&17
1167 SAVEAC (1,1)^
1168 030623 201 10 0 00 030623 MOVEI SAC,.
1169 030624 202 10 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC
1170 030625 201 10 0 00 000010 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH
1171 030626 202 10 0 00 037141 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^
1172
1173 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION DOES NOT DESTROY C(E)
1174
1175 030627 200 02 0 00 036673 Q10: MOVE AC-2,[233525,,252525] ;LOAD 'E' WITH DATA
1176 030630 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN E TO FIX PT AND STORE IN AC
1177 030631 312 02 0 00 036673 CAME AC-2,[233525,,252525] ;WAS FLT PT NBR MODIFIED
1178 030632 005 02 0 00 000011 ER5 AC-2,11 ;C(E) WAS CLOBBERED
1179 030633 321 10 0 00 030627 JUMPL SAC,Q10 ;LOOP ON ERROR SWITCH
1180
1181 ;CONVERT A FLOAT POINT NO. OF ZEROS TO FIXED PT
1182
1183 000004 AC=4
1184 000010 SAC=<AC+4>&17
1185 SAVEAC (1,1)^
1186 030634 201 10 0 00 030634 MOVEI SAC,.
1187 030635 202 10 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC
1188 030636 201 10 0 00 000010 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH
1189 030637 202 10 0 00 037141 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^
1190
1191 ;THIS TEST VERIFIES THAT A FLT PT NO. OF 0 CONVERTED TO FIX PT BY
1192 ;FIX, REMAINS 0.
1193
1194 030640 402 00 0 00 000002 Q100: SETZM AC-2 ;INITIALIZE FLT PT NBR IN 'E'
1195 030641 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO OF 0 TO FIX PT
1196 030642 302 04 0 00 000000 CAIE AC,0 ;WAS FLT PT 0 CONVERTED CORRECTLY?
1197 030643 003 04 0 00 000101 ER3 AC,101 ;FIX PT NBR IS INCORRECT
1198 030644 321 10 0 00 030640 JUMPL SAC,Q100 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 3
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0042
1199 SUBTTL DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES
1200
1201 000200 SN=200
1202 200400 XX=200400
1203 000000 YY=0
1204
1205 Q200: REPEAT ^D18,<
1206 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1207 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1208 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1209
1210 SN=SN+1
1211 XX=XX+1000
1212 YY=YY+YY
1213 IFE YY,<YY=1>
1214 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1215 HRRZI AC-1,YY ;RESULT FOR COMPARISON
1216 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1217 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1218 ER3 AC,SN ;FIX PT NBR INCORRECT
1219 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1220 >
1221
1222 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1223 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1224 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1225
1226 000201 SN=SN+1
1227 201400 XX=XX+1000
1228 000000 YY=YY+YY
1229 000001 IFE YY,<YY=1>
1230 030645 205 02 0 00 201400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1231 030646 551 03 0 00 000001 HRRZI AC-1,YY ;RESULT FOR COMPARISON
1232 030647 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1233 030650 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1234 030651 003 04 0 00 000201 ER3 AC,SN ;FIX PT NBR INCORRECT
1235 030652 321 10 0 00 030645 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1236
1237
1238 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1239 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1240 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1241
1242 000202 SN=SN+1
1243 202400 XX=XX+1000
1244 000002 YY=YY+YY
1245 IFE YY,<YY=1>
1246 030653 205 02 0 00 202400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1247 030654 551 03 0 00 000002 HRRZI AC-1,YY ;RESULT FOR COMPARISON
1248 030655 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1249 030656 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1250 030657 003 04 0 00 000202 ER3 AC,SN ;FIX PT NBR INCORRECT
1251 030660 321 10 0 00 030653 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1252
1253
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 3-1
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0043
1254 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1255 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1256 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1257
1258 000203 SN=SN+1
1259 203400 XX=XX+1000
1260 000004 YY=YY+YY
1261 IFE YY,<YY=1>
1262 030661 205 02 0 00 203400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1263 030662 551 03 0 00 000004 HRRZI AC-1,YY ;RESULT FOR COMPARISON
1264 030663 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1265 030664 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1266 030665 003 04 0 00 000203 ER3 AC,SN ;FIX PT NBR INCORRECT
1267 030666 321 10 0 00 030661 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1268
1269
1270 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1271 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1272 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1273
1274 000204 SN=SN+1
1275 204400 XX=XX+1000
1276 000010 YY=YY+YY
1277 IFE YY,<YY=1>
1278 030667 205 02 0 00 204400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1279 030670 551 03 0 00 000010 HRRZI AC-1,YY ;RESULT FOR COMPARISON
1280 030671 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1281 030672 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1282 030673 003 04 0 00 000204 ER3 AC,SN ;FIX PT NBR INCORRECT
1283 030674 321 10 0 00 030667 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1284
1285
1286 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1287 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1288 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1289
1290 000205 SN=SN+1
1291 205400 XX=XX+1000
1292 000020 YY=YY+YY
1293 IFE YY,<YY=1>
1294 030675 205 02 0 00 205400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1295 030676 551 03 0 00 000020 HRRZI AC-1,YY ;RESULT FOR COMPARISON
1296 030677 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1297 030700 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1298 030701 003 04 0 00 000205 ER3 AC,SN ;FIX PT NBR INCORRECT
1299 030702 321 10 0 00 030675 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1300
1301
1302 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1303 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1304 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1305
1306 000206 SN=SN+1
1307 206400 XX=XX+1000
1308 000040 YY=YY+YY
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 3-2
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0044
1309 IFE YY,<YY=1>
1310 030703 205 02 0 00 206400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1311 030704 551 03 0 00 000040 HRRZI AC-1,YY ;RESULT FOR COMPARISON
1312 030705 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1313 030706 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1314 030707 003 04 0 00 000206 ER3 AC,SN ;FIX PT NBR INCORRECT
1315 030710 321 10 0 00 030703 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1316
1317
1318 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1319 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1320 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1321
1322 000207 SN=SN+1
1323 207400 XX=XX+1000
1324 000100 YY=YY+YY
1325 IFE YY,<YY=1>
1326 030711 205 02 0 00 207400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1327 030712 551 03 0 00 000100 HRRZI AC-1,YY ;RESULT FOR COMPARISON
1328 030713 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1329 030714 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1330 030715 003 04 0 00 000207 ER3 AC,SN ;FIX PT NBR INCORRECT
1331 030716 321 10 0 00 030711 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1332
1333
1334 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1335 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1336 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1337
1338 000210 SN=SN+1
1339 210400 XX=XX+1000
1340 000200 YY=YY+YY
1341 IFE YY,<YY=1>
1342 030717 205 02 0 00 210400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1343 030720 551 03 0 00 000200 HRRZI AC-1,YY ;RESULT FOR COMPARISON
1344 030721 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1345 030722 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1346 030723 003 04 0 00 000210 ER3 AC,SN ;FIX PT NBR INCORRECT
1347 030724 321 10 0 00 030717 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1348
1349
1350 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1351 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1352 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1353
1354 000211 SN=SN+1
1355 211400 XX=XX+1000
1356 000400 YY=YY+YY
1357 IFE YY,<YY=1>
1358 030725 205 02 0 00 211400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1359 030726 551 03 0 00 000400 HRRZI AC-1,YY ;RESULT FOR COMPARISON
1360 030727 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1361 030730 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1362 030731 003 04 0 00 000211 ER3 AC,SN ;FIX PT NBR INCORRECT
1363 030732 321 10 0 00 030725 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 3-3
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0045
1364
1365
1366 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1367 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1368 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1369
1370 000212 SN=SN+1
1371 212400 XX=XX+1000
1372 001000 YY=YY+YY
1373 IFE YY,<YY=1>
1374 030733 205 02 0 00 212400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1375 030734 551 03 0 00 001000 HRRZI AC-1,YY ;RESULT FOR COMPARISON
1376 030735 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1377 030736 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1378 030737 003 04 0 00 000212 ER3 AC,SN ;FIX PT NBR INCORRECT
1379 030740 321 10 0 00 030733 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1380
1381
1382 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1383 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1384 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1385
1386 000213 SN=SN+1
1387 213400 XX=XX+1000
1388 002000 YY=YY+YY
1389 IFE YY,<YY=1>
1390 030741 205 02 0 00 213400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1391 030742 551 03 0 00 002000 HRRZI AC-1,YY ;RESULT FOR COMPARISON
1392 030743 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1393 030744 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1394 030745 003 04 0 00 000213 ER3 AC,SN ;FIX PT NBR INCORRECT
1395 030746 321 10 0 00 030741 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1396
1397
1398 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1399 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1400 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1401
1402 000214 SN=SN+1
1403 214400 XX=XX+1000
1404 004000 YY=YY+YY
1405 IFE YY,<YY=1>
1406 030747 205 02 0 00 214400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1407 030750 551 03 0 00 004000 HRRZI AC-1,YY ;RESULT FOR COMPARISON
1408 030751 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1409 030752 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1410 030753 003 04 0 00 000214 ER3 AC,SN ;FIX PT NBR INCORRECT
1411 030754 321 10 0 00 030747 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1412
1413
1414 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1415 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1416 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1417
1418 000215 SN=SN+1
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 3-4
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0046
1419 215400 XX=XX+1000
1420 010000 YY=YY+YY
1421 IFE YY,<YY=1>
1422 030755 205 02 0 00 215400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1423 030756 551 03 0 00 010000 HRRZI AC-1,YY ;RESULT FOR COMPARISON
1424 030757 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1425 030760 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1426 030761 003 04 0 00 000215 ER3 AC,SN ;FIX PT NBR INCORRECT
1427 030762 321 10 0 00 030755 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1428
1429
1430 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1431 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1432 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1433
1434 000216 SN=SN+1
1435 216400 XX=XX+1000
1436 020000 YY=YY+YY
1437 IFE YY,<YY=1>
1438 030763 205 02 0 00 216400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1439 030764 551 03 0 00 020000 HRRZI AC-1,YY ;RESULT FOR COMPARISON
1440 030765 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1441 030766 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1442 030767 003 04 0 00 000216 ER3 AC,SN ;FIX PT NBR INCORRECT
1443 030770 321 10 0 00 030763 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1444
1445
1446 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1447 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1448 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1449
1450 000217 SN=SN+1
1451 217400 XX=XX+1000
1452 040000 YY=YY+YY
1453 IFE YY,<YY=1>
1454 030771 205 02 0 00 217400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1455 030772 551 03 0 00 040000 HRRZI AC-1,YY ;RESULT FOR COMPARISON
1456 030773 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1457 030774 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1458 030775 003 04 0 00 000217 ER3 AC,SN ;FIX PT NBR INCORRECT
1459 030776 321 10 0 00 030771 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1460
1461
1462 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1463 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1464 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1465
1466 000220 SN=SN+1
1467 220400 XX=XX+1000
1468 100000 YY=YY+YY
1469 IFE YY,<YY=1>
1470 030777 205 02 0 00 220400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1471 031000 551 03 0 00 100000 HRRZI AC-1,YY ;RESULT FOR COMPARISON
1472 031001 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1473 031002 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 3-5
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0047
1474 031003 003 04 0 00 000220 ER3 AC,SN ;FIX PT NBR INCORRECT
1475 031004 321 10 0 00 030777 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1476
1477
1478 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1479 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1480 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1481
1482 000221 SN=SN+1
1483 221400 XX=XX+1000
1484 200000 YY=YY+YY
1485 IFE YY,<YY=1>
1486 031005 205 02 0 00 221400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1487 031006 551 03 0 00 200000 HRRZI AC-1,YY ;RESULT FOR COMPARISON
1488 031007 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1489 031010 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1490 031011 003 04 0 00 000221 ER3 AC,SN ;FIX PT NBR INCORRECT
1491 031012 321 10 0 00 031005 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1492
1493
1494 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1495 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1496 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1497
1498 000222 SN=SN+1
1499 222400 XX=XX+1000
1500 400000 YY=YY+YY
1501 IFE YY,<YY=1>
1502 031013 205 02 0 00 222400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1503 031014 551 03 0 00 400000 HRRZI AC-1,YY ;RESULT FOR COMPARISON
1504 031015 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1505 031016 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1506 031017 003 04 0 00 000222 ER3 AC,SN ;FIX PT NBR INCORRECT
1507 031020 321 10 0 00 031013 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1508
1509 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 3-6
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0048
1510 000300 SN=300
1511 000000 YY=0
1512
1513 Q300: REPEAT ^D17,<
1514 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1515 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1516 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1517
1518 SN=SN+1
1519 XX=XX+1000
1520 YY=YY+YY
1521 IFE YY,<YY=1>
1522 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1523 MOVSI AC-1,YY ;RESULT FOR COMPARISON
1524 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1525 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1526 ER3 AC,SN ;FIX PT NBR INCORRECT
1527 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1528 >
1529
1530 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1531 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1532 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1533
1534 000301 SN=SN+1
1535 223400 XX=XX+1000
1536 000000 YY=YY+YY
1537 000001 IFE YY,<YY=1>
1538 031021 205 02 0 00 223400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1539 031022 205 03 0 00 000001 MOVSI AC-1,YY ;RESULT FOR COMPARISON
1540 031023 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1541 031024 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1542 031025 003 04 0 00 000301 ER3 AC,SN ;FIX PT NBR INCORRECT
1543 031026 321 10 0 00 031021 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1544
1545
1546 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1547 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1548 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1549
1550 000302 SN=SN+1
1551 224400 XX=XX+1000
1552 000002 YY=YY+YY
1553 IFE YY,<YY=1>
1554 031027 205 02 0 00 224400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1555 031030 205 03 0 00 000002 MOVSI AC-1,YY ;RESULT FOR COMPARISON
1556 031031 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1557 031032 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1558 031033 003 04 0 00 000302 ER3 AC,SN ;FIX PT NBR INCORRECT
1559 031034 321 10 0 00 031027 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1560
1561
1562 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1563 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1564 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 3-7
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0049
1565
1566 000303 SN=SN+1
1567 225400 XX=XX+1000
1568 000004 YY=YY+YY
1569 IFE YY,<YY=1>
1570 031035 205 02 0 00 225400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1571 031036 205 03 0 00 000004 MOVSI AC-1,YY ;RESULT FOR COMPARISON
1572 031037 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1573 031040 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1574 031041 003 04 0 00 000303 ER3 AC,SN ;FIX PT NBR INCORRECT
1575 031042 321 10 0 00 031035 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1576
1577
1578 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1579 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1580 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1581
1582 000304 SN=SN+1
1583 226400 XX=XX+1000
1584 000010 YY=YY+YY
1585 IFE YY,<YY=1>
1586 031043 205 02 0 00 226400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1587 031044 205 03 0 00 000010 MOVSI AC-1,YY ;RESULT FOR COMPARISON
1588 031045 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1589 031046 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1590 031047 003 04 0 00 000304 ER3 AC,SN ;FIX PT NBR INCORRECT
1591 031050 321 10 0 00 031043 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1592
1593
1594 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1595 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1596 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1597
1598 000305 SN=SN+1
1599 227400 XX=XX+1000
1600 000020 YY=YY+YY
1601 IFE YY,<YY=1>
1602 031051 205 02 0 00 227400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1603 031052 205 03 0 00 000020 MOVSI AC-1,YY ;RESULT FOR COMPARISON
1604 031053 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1605 031054 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1606 031055 003 04 0 00 000305 ER3 AC,SN ;FIX PT NBR INCORRECT
1607 031056 321 10 0 00 031051 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1608
1609
1610 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1611 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1612 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1613
1614 000306 SN=SN+1
1615 230400 XX=XX+1000
1616 000040 YY=YY+YY
1617 IFE YY,<YY=1>
1618 031057 205 02 0 00 230400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1619 031060 205 03 0 00 000040 MOVSI AC-1,YY ;RESULT FOR COMPARISON
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 3-8
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0050
1620 031061 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1621 031062 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1622 031063 003 04 0 00 000306 ER3 AC,SN ;FIX PT NBR INCORRECT
1623 031064 321 10 0 00 031057 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1624
1625
1626 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1627 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1628 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1629
1630 000307 SN=SN+1
1631 231400 XX=XX+1000
1632 000100 YY=YY+YY
1633 IFE YY,<YY=1>
1634 031065 205 02 0 00 231400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1635 031066 205 03 0 00 000100 MOVSI AC-1,YY ;RESULT FOR COMPARISON
1636 031067 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1637 031070 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1638 031071 003 04 0 00 000307 ER3 AC,SN ;FIX PT NBR INCORRECT
1639 031072 321 10 0 00 031065 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1640
1641
1642 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1643 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1644 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1645
1646 000310 SN=SN+1
1647 232400 XX=XX+1000
1648 000200 YY=YY+YY
1649 IFE YY,<YY=1>
1650 031073 205 02 0 00 232400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1651 031074 205 03 0 00 000200 MOVSI AC-1,YY ;RESULT FOR COMPARISON
1652 031075 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1653 031076 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1654 031077 003 04 0 00 000310 ER3 AC,SN ;FIX PT NBR INCORRECT
1655 031100 321 10 0 00 031073 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1656
1657
1658 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1659 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1660 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1661
1662 000311 SN=SN+1
1663 233400 XX=XX+1000
1664 000400 YY=YY+YY
1665 IFE YY,<YY=1>
1666 031101 205 02 0 00 233400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1667 031102 205 03 0 00 000400 MOVSI AC-1,YY ;RESULT FOR COMPARISON
1668 031103 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1669 031104 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1670 031105 003 04 0 00 000311 ER3 AC,SN ;FIX PT NBR INCORRECT
1671 031106 321 10 0 00 031101 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1672
1673
1674 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 3-9
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0051
1675 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1676 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1677
1678 000312 SN=SN+1
1679 234400 XX=XX+1000
1680 001000 YY=YY+YY
1681 IFE YY,<YY=1>
1682 031107 205 02 0 00 234400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1683 031110 205 03 0 00 001000 MOVSI AC-1,YY ;RESULT FOR COMPARISON
1684 031111 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1685 031112 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1686 031113 003 04 0 00 000312 ER3 AC,SN ;FIX PT NBR INCORRECT
1687 031114 321 10 0 00 031107 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1688
1689
1690 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1691 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1692 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1693
1694 000313 SN=SN+1
1695 235400 XX=XX+1000
1696 002000 YY=YY+YY
1697 IFE YY,<YY=1>
1698 031115 205 02 0 00 235400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1699 031116 205 03 0 00 002000 MOVSI AC-1,YY ;RESULT FOR COMPARISON
1700 031117 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1701 031120 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1702 031121 003 04 0 00 000313 ER3 AC,SN ;FIX PT NBR INCORRECT
1703 031122 321 10 0 00 031115 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1704
1705
1706 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1707 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1708 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1709
1710 000314 SN=SN+1
1711 236400 XX=XX+1000
1712 004000 YY=YY+YY
1713 IFE YY,<YY=1>
1714 031123 205 02 0 00 236400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1715 031124 205 03 0 00 004000 MOVSI AC-1,YY ;RESULT FOR COMPARISON
1716 031125 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1717 031126 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1718 031127 003 04 0 00 000314 ER3 AC,SN ;FIX PT NBR INCORRECT
1719 031130 321 10 0 00 031123 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1720
1721
1722 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1723 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1724 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1725
1726 000315 SN=SN+1
1727 237400 XX=XX+1000
1728 010000 YY=YY+YY
1729 IFE YY,<YY=1>
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 3-10
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0052
1730 031131 205 02 0 00 237400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1731 031132 205 03 0 00 010000 MOVSI AC-1,YY ;RESULT FOR COMPARISON
1732 031133 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1733 031134 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1734 031135 003 04 0 00 000315 ER3 AC,SN ;FIX PT NBR INCORRECT
1735 031136 321 10 0 00 031131 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1736
1737
1738 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1739 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1740 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1741
1742 000316 SN=SN+1
1743 240400 XX=XX+1000
1744 020000 YY=YY+YY
1745 IFE YY,<YY=1>
1746 031137 205 02 0 00 240400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1747 031140 205 03 0 00 020000 MOVSI AC-1,YY ;RESULT FOR COMPARISON
1748 031141 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1749 031142 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1750 031143 003 04 0 00 000316 ER3 AC,SN ;FIX PT NBR INCORRECT
1751 031144 321 10 0 00 031137 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1752
1753
1754 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1755 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1756 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1757
1758 000317 SN=SN+1
1759 241400 XX=XX+1000
1760 040000 YY=YY+YY
1761 IFE YY,<YY=1>
1762 031145 205 02 0 00 241400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1763 031146 205 03 0 00 040000 MOVSI AC-1,YY ;RESULT FOR COMPARISON
1764 031147 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1765 031150 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1766 031151 003 04 0 00 000317 ER3 AC,SN ;FIX PT NBR INCORRECT
1767 031152 321 10 0 00 031145 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1768
1769
1770 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1771 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1772 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1773
1774 000320 SN=SN+1
1775 242400 XX=XX+1000
1776 100000 YY=YY+YY
1777 IFE YY,<YY=1>
1778 031153 205 02 0 00 242400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1779 031154 205 03 0 00 100000 MOVSI AC-1,YY ;RESULT FOR COMPARISON
1780 031155 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1781 031156 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1782 031157 003 04 0 00 000320 ER3 AC,SN ;FIX PT NBR INCORRECT
1783 031160 321 10 0 00 031153 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1784
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 3-11
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - POSITIVE INTEGERS-RIPPLE ONES SEQ 0053
1785
1786 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1787 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1788 ;DATA: RIPPLE A "1" THROUGH A FIELD OF "0'S" - POSITIVE INTEGERS
1789
1790 000321 SN=SN+1
1791 243400 XX=XX+1000
1792 200000 YY=YY+YY
1793 IFE YY,<YY=1>
1794 031161 205 02 0 00 243400 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1795 031162 205 03 0 00 200000 MOVSI AC-1,YY ;RESULT FOR COMPARISON
1796 031163 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND PLACE IN AC
1797 031164 312 04 0 00 000003 CAME AC,AC-1 ;FAILURE IF TESTED BIT IS NOT SET
1798 031165 003 04 0 00 000321 ER3 AC,SN ;FIX PT NBR INCORRECT
1799 031166 321 10 0 00 031161 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1800
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 4
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1 SEQ 0054
1801 SUBTTL DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1
1802
1803 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
1804
1805 000500 SN=500
1806 200000 XX=200000
1807 001000 YY=1000
1808
1809 Q500: REPEAT ^D9,<
1810 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1811 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1812 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
1813
1814 SN=SN+1
1815 XX=XX+1000
1816 YY=YY/2
1817 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1818 TLO AC-2,YY ;RESULT FOR COMPARISON
1819 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC
1820 CAIE AC,1 ;IS RESULT IN AC = 1?
1821 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
1822 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1823 >
1824
1825 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1826 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1827 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
1828
1829 000501 SN=SN+1
1830 201000 XX=XX+1000
1831 000400 YY=YY/2
1832 031167 205 02 0 00 201000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1833 031170 661 02 0 00 000400 TLO AC-2,YY ;RESULT FOR COMPARISON
1834 031171 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC
1835 031172 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
1836 031173 003 04 0 00 000501 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
1837 031174 321 10 0 00 031167 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1838
1839
1840 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1841 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1842 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
1843
1844 000502 SN=SN+1
1845 202000 XX=XX+1000
1846 000200 YY=YY/2
1847 031175 205 02 0 00 202000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1848 031176 661 02 0 00 000200 TLO AC-2,YY ;RESULT FOR COMPARISON
1849 031177 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC
1850 031200 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
1851 031201 003 04 0 00 000502 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
1852 031202 321 10 0 00 031175 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1853
1854
1855 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 4-1
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1 SEQ 0055
1856 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1857 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
1858
1859 000503 SN=SN+1
1860 203000 XX=XX+1000
1861 000100 YY=YY/2
1862 031203 205 02 0 00 203000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1863 031204 661 02 0 00 000100 TLO AC-2,YY ;RESULT FOR COMPARISON
1864 031205 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC
1865 031206 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
1866 031207 003 04 0 00 000503 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
1867 031210 321 10 0 00 031203 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1868
1869
1870 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1871 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1872 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
1873
1874 000504 SN=SN+1
1875 204000 XX=XX+1000
1876 000040 YY=YY/2
1877 031211 205 02 0 00 204000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1878 031212 661 02 0 00 000040 TLO AC-2,YY ;RESULT FOR COMPARISON
1879 031213 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC
1880 031214 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
1881 031215 003 04 0 00 000504 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
1882 031216 321 10 0 00 031211 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1883
1884
1885 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1886 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1887 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
1888
1889 000505 SN=SN+1
1890 205000 XX=XX+1000
1891 000020 YY=YY/2
1892 031217 205 02 0 00 205000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1893 031220 661 02 0 00 000020 TLO AC-2,YY ;RESULT FOR COMPARISON
1894 031221 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC
1895 031222 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
1896 031223 003 04 0 00 000505 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
1897 031224 321 10 0 00 031217 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1898
1899
1900 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1901 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1902 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
1903
1904 000506 SN=SN+1
1905 206000 XX=XX+1000
1906 000010 YY=YY/2
1907 031225 205 02 0 00 206000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1908 031226 661 02 0 00 000010 TLO AC-2,YY ;RESULT FOR COMPARISON
1909 031227 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC
1910 031230 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 4-2
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1 SEQ 0056
1911 031231 003 04 0 00 000506 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
1912 031232 321 10 0 00 031225 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1913
1914
1915 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1916 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1917 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
1918
1919 000507 SN=SN+1
1920 207000 XX=XX+1000
1921 000004 YY=YY/2
1922 031233 205 02 0 00 207000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1923 031234 661 02 0 00 000004 TLO AC-2,YY ;RESULT FOR COMPARISON
1924 031235 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC
1925 031236 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
1926 031237 003 04 0 00 000507 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
1927 031240 321 10 0 00 031233 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1928
1929
1930 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1931 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1932 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
1933
1934 000510 SN=SN+1
1935 210000 XX=XX+1000
1936 000002 YY=YY/2
1937 031241 205 02 0 00 210000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1938 031242 661 02 0 00 000002 TLO AC-2,YY ;RESULT FOR COMPARISON
1939 031243 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC
1940 031244 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
1941 031245 003 04 0 00 000510 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
1942 031246 321 10 0 00 031241 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1943
1944
1945 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1946 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1947 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
1948
1949 000511 SN=SN+1
1950 211000 XX=XX+1000
1951 000001 YY=YY/2
1952 031247 205 02 0 00 211000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1953 031250 661 02 0 00 000001 TLO AC-2,YY ;RESULT FOR COMPARISON
1954 031251 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC
1955 031252 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
1956 031253 003 04 0 00 000511 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
1957 031254 321 10 0 00 031247 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1958
1959 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 4-3
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1 SEQ 0057
1960 000600 SN=600
1961 000000 YY=0
1962
1963 Q600: REPEAT ^D18,<
1964 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1965 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1966 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
1967
1968 SN=SN+1
1969 XX=XX+1000
1970 YY=YY/2
1971 IFE YY,<YY=400000>
1972 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1973 HRRI AC-2,YY
1974 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC
1975 CAIE AC,1 ;IS RESULT IN AC = 1?
1976 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
1977 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1978 >
1979
1980 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1981 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1982 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
1983
1984 000601 SN=SN+1
1985 212000 XX=XX+1000
1986 000000 YY=YY/2
1987 400000 IFE YY,<YY=400000>
1988 031255 205 02 0 00 212000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
1989 031256 541 02 0 00 400000 HRRI AC-2,YY
1990 031257 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC
1991 031260 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
1992 031261 003 04 0 00 000601 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
1993 031262 321 10 0 00 031255 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
1994
1995
1996 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
1997 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
1998 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
1999
2000 000602 SN=SN+1
2001 213000 XX=XX+1000
2002 200000 YY=YY/2
2003 IFE YY,<YY=400000>
2004 031263 205 02 0 00 213000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2005 031264 541 02 0 00 200000 HRRI AC-2,YY
2006 031265 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC
2007 031266 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
2008 031267 003 04 0 00 000602 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
2009 031270 321 10 0 00 031263 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
2010
2011
2012 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2013 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2014 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 4-4
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1 SEQ 0058
2015
2016 000603 SN=SN+1
2017 214000 XX=XX+1000
2018 100000 YY=YY/2
2019 IFE YY,<YY=400000>
2020 031271 205 02 0 00 214000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2021 031272 541 02 0 00 100000 HRRI AC-2,YY
2022 031273 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC
2023 031274 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
2024 031275 003 04 0 00 000603 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
2025 031276 321 10 0 00 031271 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
2026
2027
2028 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2029 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2030 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
2031
2032 000604 SN=SN+1
2033 215000 XX=XX+1000
2034 040000 YY=YY/2
2035 IFE YY,<YY=400000>
2036 031277 205 02 0 00 215000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2037 031300 541 02 0 00 040000 HRRI AC-2,YY
2038 031301 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC
2039 031302 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
2040 031303 003 04 0 00 000604 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
2041 031304 321 10 0 00 031277 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
2042
2043
2044 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2045 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2046 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
2047
2048 000605 SN=SN+1
2049 216000 XX=XX+1000
2050 020000 YY=YY/2
2051 IFE YY,<YY=400000>
2052 031305 205 02 0 00 216000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2053 031306 541 02 0 00 020000 HRRI AC-2,YY
2054 031307 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC
2055 031310 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
2056 031311 003 04 0 00 000605 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
2057 031312 321 10 0 00 031305 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
2058
2059
2060 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2061 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2062 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
2063
2064 000606 SN=SN+1
2065 217000 XX=XX+1000
2066 010000 YY=YY/2
2067 IFE YY,<YY=400000>
2068 031313 205 02 0 00 217000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2069 031314 541 02 0 00 010000 HRRI AC-2,YY
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 4-5
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1 SEQ 0059
2070 031315 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC
2071 031316 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
2072 031317 003 04 0 00 000606 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
2073 031320 321 10 0 00 031313 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
2074
2075
2076 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2077 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2078 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
2079
2080 000607 SN=SN+1
2081 220000 XX=XX+1000
2082 004000 YY=YY/2
2083 IFE YY,<YY=400000>
2084 031321 205 02 0 00 220000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2085 031322 541 02 0 00 004000 HRRI AC-2,YY
2086 031323 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC
2087 031324 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
2088 031325 003 04 0 00 000607 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
2089 031326 321 10 0 00 031321 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
2090
2091
2092 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2093 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2094 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
2095
2096 000610 SN=SN+1
2097 221000 XX=XX+1000
2098 002000 YY=YY/2
2099 IFE YY,<YY=400000>
2100 031327 205 02 0 00 221000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2101 031330 541 02 0 00 002000 HRRI AC-2,YY
2102 031331 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC
2103 031332 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
2104 031333 003 04 0 00 000610 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
2105 031334 321 10 0 00 031327 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
2106
2107
2108 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2109 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2110 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
2111
2112 000611 SN=SN+1
2113 222000 XX=XX+1000
2114 001000 YY=YY/2
2115 IFE YY,<YY=400000>
2116 031335 205 02 0 00 222000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2117 031336 541 02 0 00 001000 HRRI AC-2,YY
2118 031337 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC
2119 031340 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
2120 031341 003 04 0 00 000611 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
2121 031342 321 10 0 00 031335 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
2122
2123
2124 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 4-6
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1 SEQ 0060
2125 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2126 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
2127
2128 000612 SN=SN+1
2129 223000 XX=XX+1000
2130 000400 YY=YY/2
2131 IFE YY,<YY=400000>
2132 031343 205 02 0 00 223000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2133 031344 541 02 0 00 000400 HRRI AC-2,YY
2134 031345 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC
2135 031346 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
2136 031347 003 04 0 00 000612 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
2137 031350 321 10 0 00 031343 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
2138
2139
2140 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2141 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2142 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
2143
2144 000613 SN=SN+1
2145 224000 XX=XX+1000
2146 000200 YY=YY/2
2147 IFE YY,<YY=400000>
2148 031351 205 02 0 00 224000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2149 031352 541 02 0 00 000200 HRRI AC-2,YY
2150 031353 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC
2151 031354 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
2152 031355 003 04 0 00 000613 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
2153 031356 321 10 0 00 031351 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
2154
2155
2156 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2157 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2158 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
2159
2160 000614 SN=SN+1
2161 225000 XX=XX+1000
2162 000100 YY=YY/2
2163 IFE YY,<YY=400000>
2164 031357 205 02 0 00 225000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2165 031360 541 02 0 00 000100 HRRI AC-2,YY
2166 031361 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC
2167 031362 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
2168 031363 003 04 0 00 000614 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
2169 031364 321 10 0 00 031357 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
2170
2171
2172 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2173 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2174 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
2175
2176 000615 SN=SN+1
2177 226000 XX=XX+1000
2178 000040 YY=YY/2
2179 IFE YY,<YY=400000>
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 4-7
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1 SEQ 0061
2180 031365 205 02 0 00 226000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2181 031366 541 02 0 00 000040 HRRI AC-2,YY
2182 031367 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC
2183 031370 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
2184 031371 003 04 0 00 000615 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
2185 031372 321 10 0 00 031365 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
2186
2187
2188 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2189 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2190 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
2191
2192 000616 SN=SN+1
2193 227000 XX=XX+1000
2194 000020 YY=YY/2
2195 IFE YY,<YY=400000>
2196 031373 205 02 0 00 227000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2197 031374 541 02 0 00 000020 HRRI AC-2,YY
2198 031375 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC
2199 031376 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
2200 031377 003 04 0 00 000616 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
2201 031400 321 10 0 00 031373 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
2202
2203
2204 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2205 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2206 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
2207
2208 000617 SN=SN+1
2209 230000 XX=XX+1000
2210 000010 YY=YY/2
2211 IFE YY,<YY=400000>
2212 031401 205 02 0 00 230000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2213 031402 541 02 0 00 000010 HRRI AC-2,YY
2214 031403 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC
2215 031404 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
2216 031405 003 04 0 00 000617 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
2217 031406 321 10 0 00 031401 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
2218
2219
2220 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2221 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2222 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
2223
2224 000620 SN=SN+1
2225 231000 XX=XX+1000
2226 000004 YY=YY/2
2227 IFE YY,<YY=400000>
2228 031407 205 02 0 00 231000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2229 031410 541 02 0 00 000004 HRRI AC-2,YY
2230 031411 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC
2231 031412 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
2232 031413 003 04 0 00 000620 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
2233 031414 321 10 0 00 031407 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
2234
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 4-8
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - CONVERSION OF FLT PT 1 SEQ 0062
2235
2236 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2237 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2238 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
2239
2240 000621 SN=SN+1
2241 232000 XX=XX+1000
2242 000002 YY=YY/2
2243 IFE YY,<YY=400000>
2244 031415 205 02 0 00 232000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2245 031416 541 02 0 00 000002 HRRI AC-2,YY
2246 031417 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC
2247 031420 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
2248 031421 003 04 0 00 000621 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
2249 031422 321 10 0 00 031415 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
2250
2251
2252 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2253 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2254 ;VERIFY THAT ALL FLT PT NBRS EQUAL TO "1" CONVERT CORRECTLY TO FIX PT
2255
2256 000622 SN=SN+1
2257 233000 XX=XX+1000
2258 000001 YY=YY/2
2259 IFE YY,<YY=400000>
2260 031423 205 02 0 00 233000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2261 031424 541 02 0 00 000001 HRRI AC-2,YY
2262 031425 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT 1 IN 'E' TO FIX PT 1 AND PLACE IN AC
2263 031426 302 04 0 00 000001 CAIE AC,1 ;IS RESULT IN AC = 1?
2264 031427 003 04 0 00 000622 ER3 AC,SN ;FIX PT NBR NOT EQUAL TO 1
2265 031430 321 10 0 00 031423 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
2266
2267
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 5
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0063
2268 SUBTTL DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS
2269
2270 000700 SN=700
2271 577000 XX=577000
2272 000000 ZZ=0
2273
2274 Q700: REPEAT ^D2,<
2275 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2276 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2277 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2278
2279 SN=SN+1
2280 XX=XX-1000
2281 ZZ=<ZZ+ZZ>&777777
2282 IFE ZZ,<ZZ=777777>
2283 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2284 TLO AC-2,400
2285 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
2286 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
2287 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2288 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2289 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2290 >
2291
2292 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2293 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2294 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2295
2296 000701 SN=SN+1
2297 576000 XX=XX-1000
2298 000000 ZZ=<ZZ+ZZ>&777777
2299 777777 IFE ZZ,<ZZ=777777>
2300 031431 205 02 0 00 576000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2301 031432 661 02 0 00 000400 TLO AC-2,400
2302 031433 561 03 0 00 777777 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
2303 031434 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
2304 031435 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2305 031436 003 04 0 00 000701 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2306 031437 321 10 0 00 031431 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2307
2308
2309 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2310 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2311 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2312
2313 000702 SN=SN+1
2314 575000 XX=XX-1000
2315 777776 ZZ=<ZZ+ZZ>&777777
2316 IFE ZZ,<ZZ=777777>
2317 031440 205 02 0 00 575000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2318 031441 661 02 0 00 000400 TLO AC-2,400
2319 031442 561 03 0 00 777776 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
2320 031443 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
2321 031444 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2322 031445 003 04 0 00 000702 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 5-1
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0064
2323 031446 321 10 0 00 031440 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2324
2325 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 5-2
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0065
2326 001000 SN=1000
2327 576000 XX=576000
2328 000000 YY=0
2329 777776 ZZ=777776
2330
2331 Q1000: REPEAT ^D8,<
2332 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2333 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2334 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2335
2336 SN=SN+1
2337 XX=XX-1000
2338 YY=YY!<YY/2>
2339 ZZ=<ZZ+ZZ+1>&777777
2340 IFE YY,<YY=200>
2341 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2342 TLO AC-2,YY
2343 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
2344 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
2345 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2346 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2347 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2348 >
2349
2350 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2351 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2352 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2353
2354 001001 SN=SN+1
2355 575000 XX=XX-1000
2356 000000 YY=YY!<YY/2>
2357 777775 ZZ=<ZZ+ZZ+1>&777777
2358 000200 IFE YY,<YY=200>
2359 031447 205 02 0 00 575000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2360 031450 661 02 0 00 000200 TLO AC-2,YY
2361 031451 561 03 0 00 777775 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
2362 031452 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
2363 031453 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2364 031454 003 04 0 00 001001 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2365 031455 321 10 0 00 031447 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2366
2367
2368 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2369 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2370 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2371
2372 001002 SN=SN+1
2373 574000 XX=XX-1000
2374 000300 YY=YY!<YY/2>
2375 777773 ZZ=<ZZ+ZZ+1>&777777
2376 IFE YY,<YY=200>
2377 031456 205 02 0 00 574000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2378 031457 661 02 0 00 000300 TLO AC-2,YY
2379 031460 561 03 0 00 777773 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
2380 031461 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 5-3
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0066
2381 031462 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2382 031463 003 04 0 00 001002 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2383 031464 321 10 0 00 031456 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2384
2385
2386 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2387 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2388 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2389
2390 001003 SN=SN+1
2391 573000 XX=XX-1000
2392 000340 YY=YY!<YY/2>
2393 777767 ZZ=<ZZ+ZZ+1>&777777
2394 IFE YY,<YY=200>
2395 031465 205 02 0 00 573000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2396 031466 661 02 0 00 000340 TLO AC-2,YY
2397 031467 561 03 0 00 777767 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
2398 031470 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
2399 031471 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2400 031472 003 04 0 00 001003 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2401 031473 321 10 0 00 031465 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2402
2403
2404 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2405 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2406 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2407
2408 001004 SN=SN+1
2409 572000 XX=XX-1000
2410 000360 YY=YY!<YY/2>
2411 777757 ZZ=<ZZ+ZZ+1>&777777
2412 IFE YY,<YY=200>
2413 031474 205 02 0 00 572000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2414 031475 661 02 0 00 000360 TLO AC-2,YY
2415 031476 561 03 0 00 777757 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
2416 031477 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
2417 031500 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2418 031501 003 04 0 00 001004 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2419 031502 321 10 0 00 031474 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2420
2421
2422 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2423 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2424 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2425
2426 001005 SN=SN+1
2427 571000 XX=XX-1000
2428 000370 YY=YY!<YY/2>
2429 777737 ZZ=<ZZ+ZZ+1>&777777
2430 IFE YY,<YY=200>
2431 031503 205 02 0 00 571000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2432 031504 661 02 0 00 000370 TLO AC-2,YY
2433 031505 561 03 0 00 777737 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
2434 031506 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
2435 031507 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 5-4
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0067
2436 031510 003 04 0 00 001005 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2437 031511 321 10 0 00 031503 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2438
2439
2440 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2441 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2442 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2443
2444 001006 SN=SN+1
2445 570000 XX=XX-1000
2446 000374 YY=YY!<YY/2>
2447 777677 ZZ=<ZZ+ZZ+1>&777777
2448 IFE YY,<YY=200>
2449 031512 205 02 0 00 570000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2450 031513 661 02 0 00 000374 TLO AC-2,YY
2451 031514 561 03 0 00 777677 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
2452 031515 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
2453 031516 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2454 031517 003 04 0 00 001006 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2455 031520 321 10 0 00 031512 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2456
2457
2458 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2459 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2460 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2461
2462 001007 SN=SN+1
2463 567000 XX=XX-1000
2464 000376 YY=YY!<YY/2>
2465 777577 ZZ=<ZZ+ZZ+1>&777777
2466 IFE YY,<YY=200>
2467 031521 205 02 0 00 567000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2468 031522 661 02 0 00 000376 TLO AC-2,YY
2469 031523 561 03 0 00 777577 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
2470 031524 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
2471 031525 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2472 031526 003 04 0 00 001007 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2473 031527 321 10 0 00 031521 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2474
2475
2476 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2477 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2478 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2479
2480 001010 SN=SN+1
2481 566000 XX=XX-1000
2482 000377 YY=YY!<YY/2>
2483 777377 ZZ=<ZZ+ZZ+1>&777777
2484 IFE YY,<YY=200>
2485 031530 205 02 0 00 566000 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2486 031531 661 02 0 00 000377 TLO AC-2,YY
2487 031532 561 03 0 00 777377 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
2488 031533 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
2489 031534 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2490 031535 003 04 0 00 001010 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 5-5
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0068
2491 031536 321 10 0 00 031530 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2492
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 6
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0069
2493 001100 SN=1100
2494 566377 XX=566377
2495 000000 YY=0
2496 777377 ZZ=777377
2497
2498 Q1100: REPEAT ^D9,<
2499 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2500 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2501 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2502
2503 SN=SN+1
2504 XX=XX-1000
2505 YY=YY!<YY/2>
2506 ZZ=<ZZ+ZZ+1>&777777
2507 IFE YY,<YY=400000>
2508 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2509 HRRI AC-2,YY
2510 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
2511 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' T0 FIX PT
2512 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2513 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2514 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2515 >
2516
2517 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2518 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2519 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2520
2521 001101 SN=SN+1
2522 565377 XX=XX-1000
2523 000000 YY=YY!<YY/2>
2524 776777 ZZ=<ZZ+ZZ+1>&777777
2525 400000 IFE YY,<YY=400000>
2526 031537 205 02 0 00 565377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2527 031540 541 02 0 00 400000 HRRI AC-2,YY
2528 031541 561 03 0 00 776777 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
2529 031542 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' T0 FIX PT
2530 031543 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2531 031544 003 04 0 00 001101 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2532 031545 321 10 0 00 031537 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2533
2534
2535 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2536 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2537 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2538
2539 001102 SN=SN+1
2540 564377 XX=XX-1000
2541 600000 YY=YY!<YY/2>
2542 775777 ZZ=<ZZ+ZZ+1>&777777
2543 IFE YY,<YY=400000>
2544 031546 205 02 0 00 564377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2545 031547 541 02 0 00 600000 HRRI AC-2,YY
2546 031550 561 03 0 00 775777 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
2547 031551 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' T0 FIX PT
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 6-1
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0070
2548 031552 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2549 031553 003 04 0 00 001102 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2550 031554 321 10 0 00 031546 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2551
2552
2553 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2554 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2555 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2556
2557 001103 SN=SN+1
2558 563377 XX=XX-1000
2559 700000 YY=YY!<YY/2>
2560 773777 ZZ=<ZZ+ZZ+1>&777777
2561 IFE YY,<YY=400000>
2562 031555 205 02 0 00 563377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2563 031556 541 02 0 00 700000 HRRI AC-2,YY
2564 031557 561 03 0 00 773777 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
2565 031560 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' T0 FIX PT
2566 031561 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2567 031562 003 04 0 00 001103 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2568 031563 321 10 0 00 031555 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2569
2570
2571 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2572 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2573 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2574
2575 001104 SN=SN+1
2576 562377 XX=XX-1000
2577 740000 YY=YY!<YY/2>
2578 767777 ZZ=<ZZ+ZZ+1>&777777
2579 IFE YY,<YY=400000>
2580 031564 205 02 0 00 562377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2581 031565 541 02 0 00 740000 HRRI AC-2,YY
2582 031566 561 03 0 00 767777 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
2583 031567 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' T0 FIX PT
2584 031570 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2585 031571 003 04 0 00 001104 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2586 031572 321 10 0 00 031564 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2587
2588
2589 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2590 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2591 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2592
2593 001105 SN=SN+1
2594 561377 XX=XX-1000
2595 760000 YY=YY!<YY/2>
2596 757777 ZZ=<ZZ+ZZ+1>&777777
2597 IFE YY,<YY=400000>
2598 031573 205 02 0 00 561377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2599 031574 541 02 0 00 760000 HRRI AC-2,YY
2600 031575 561 03 0 00 757777 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
2601 031576 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' T0 FIX PT
2602 031577 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 6-2
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0071
2603 031600 003 04 0 00 001105 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2604 031601 321 10 0 00 031573 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2605
2606
2607 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2608 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2609 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2610
2611 001106 SN=SN+1
2612 560377 XX=XX-1000
2613 770000 YY=YY!<YY/2>
2614 737777 ZZ=<ZZ+ZZ+1>&777777
2615 IFE YY,<YY=400000>
2616 031602 205 02 0 00 560377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2617 031603 541 02 0 00 770000 HRRI AC-2,YY
2618 031604 561 03 0 00 737777 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
2619 031605 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' T0 FIX PT
2620 031606 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2621 031607 003 04 0 00 001106 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2622 031610 321 10 0 00 031602 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2623
2624
2625 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2626 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2627 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2628
2629 001107 SN=SN+1
2630 557377 XX=XX-1000
2631 774000 YY=YY!<YY/2>
2632 677777 ZZ=<ZZ+ZZ+1>&777777
2633 IFE YY,<YY=400000>
2634 031611 205 02 0 00 557377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2635 031612 541 02 0 00 774000 HRRI AC-2,YY
2636 031613 561 03 0 00 677777 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
2637 031614 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' T0 FIX PT
2638 031615 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2639 031616 003 04 0 00 001107 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2640 031617 321 10 0 00 031611 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2641
2642
2643 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2644 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2645 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2646
2647 001110 SN=SN+1
2648 556377 XX=XX-1000
2649 776000 YY=YY!<YY/2>
2650 577777 ZZ=<ZZ+ZZ+1>&777777
2651 IFE YY,<YY=400000>
2652 031620 205 02 0 00 556377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2653 031621 541 02 0 00 776000 HRRI AC-2,YY
2654 031622 561 03 0 00 577777 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
2655 031623 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' T0 FIX PT
2656 031624 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2657 031625 003 04 0 00 001110 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 6-3
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0072
2658 031626 321 10 0 00 031620 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2659
2660
2661 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2662 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2663 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2664
2665 001111 SN=SN+1
2666 555377 XX=XX-1000
2667 777000 YY=YY!<YY/2>
2668 377777 ZZ=<ZZ+ZZ+1>&777777
2669 IFE YY,<YY=400000>
2670 031627 205 02 0 00 555377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2671 031630 541 02 0 00 777000 HRRI AC-2,YY
2672 031631 561 03 0 00 377777 HRROI AC-1,ZZ ;RESULT FOR COMPARISON
2673 031632 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' T0 FIX PT
2674 031633 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2675 031634 003 04 0 00 001111 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2676 031635 321 10 0 00 031627 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2677
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 7
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0073
2678
2679
2680 001200 SN=1200
2681 000000 ZZ=0
2682
2683 Q1200: REPEAT ^D9,<
2684 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2685 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2686 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2687
2688 SN=SN+1
2689 XX=XX-1000
2690 YY=YY!<YY/2>
2691 ZZ=<ZZ+ZZ+1>&777777
2692 IFE <ZZ-1>,<ZZ=777776>
2693 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2694 HRRI AC-2,YY ;RESULT FOR COMPARISON
2695 HRLOI AC-1,ZZ
2696 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
2697 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2698 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2699 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2700 >
2701
2702 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2703 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2704 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2705
2706 001201 SN=SN+1
2707 554377 XX=XX-1000
2708 777400 YY=YY!<YY/2>
2709 000001 ZZ=<ZZ+ZZ+1>&777777
2710 777776 IFE <ZZ-1>,<ZZ=777776>
2711 031636 205 02 0 00 554377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2712 031637 541 02 0 00 777400 HRRI AC-2,YY ;RESULT FOR COMPARISON
2713 031640 525 03 0 00 777776 HRLOI AC-1,ZZ
2714 031641 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
2715 031642 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2716 031643 003 04 0 00 001201 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2717 031644 321 10 0 00 031636 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2718
2719
2720 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2721 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2722 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2723
2724 001202 SN=SN+1
2725 553377 XX=XX-1000
2726 777600 YY=YY!<YY/2>
2727 777775 ZZ=<ZZ+ZZ+1>&777777
2728 IFE <ZZ-1>,<ZZ=777776>
2729 031645 205 02 0 00 553377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2730 031646 541 02 0 00 777600 HRRI AC-2,YY ;RESULT FOR COMPARISON
2731 031647 525 03 0 00 777775 HRLOI AC-1,ZZ
2732 031650 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 7-1
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0074
2733 031651 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2734 031652 003 04 0 00 001202 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2735 031653 321 10 0 00 031645 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2736
2737
2738 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2739 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2740 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2741
2742 001203 SN=SN+1
2743 552377 XX=XX-1000
2744 777700 YY=YY!<YY/2>
2745 777773 ZZ=<ZZ+ZZ+1>&777777
2746 IFE <ZZ-1>,<ZZ=777776>
2747 031654 205 02 0 00 552377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2748 031655 541 02 0 00 777700 HRRI AC-2,YY ;RESULT FOR COMPARISON
2749 031656 525 03 0 00 777773 HRLOI AC-1,ZZ
2750 031657 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
2751 031660 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2752 031661 003 04 0 00 001203 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2753 031662 321 10 0 00 031654 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2754
2755
2756 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2757 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2758 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2759
2760 001204 SN=SN+1
2761 551377 XX=XX-1000
2762 777740 YY=YY!<YY/2>
2763 777767 ZZ=<ZZ+ZZ+1>&777777
2764 IFE <ZZ-1>,<ZZ=777776>
2765 031663 205 02 0 00 551377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2766 031664 541 02 0 00 777740 HRRI AC-2,YY ;RESULT FOR COMPARISON
2767 031665 525 03 0 00 777767 HRLOI AC-1,ZZ
2768 031666 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
2769 031667 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2770 031670 003 04 0 00 001204 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2771 031671 321 10 0 00 031663 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2772
2773
2774 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2775 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2776 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2777
2778 001205 SN=SN+1
2779 550377 XX=XX-1000
2780 777760 YY=YY!<YY/2>
2781 777757 ZZ=<ZZ+ZZ+1>&777777
2782 IFE <ZZ-1>,<ZZ=777776>
2783 031672 205 02 0 00 550377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2784 031673 541 02 0 00 777760 HRRI AC-2,YY ;RESULT FOR COMPARISON
2785 031674 525 03 0 00 777757 HRLOI AC-1,ZZ
2786 031675 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
2787 031676 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 7-2
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0075
2788 031677 003 04 0 00 001205 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2789 031700 321 10 0 00 031672 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2790
2791
2792 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2793 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2794 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2795
2796 001206 SN=SN+1
2797 547377 XX=XX-1000
2798 777770 YY=YY!<YY/2>
2799 777737 ZZ=<ZZ+ZZ+1>&777777
2800 IFE <ZZ-1>,<ZZ=777776>
2801 031701 205 02 0 00 547377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2802 031702 541 02 0 00 777770 HRRI AC-2,YY ;RESULT FOR COMPARISON
2803 031703 525 03 0 00 777737 HRLOI AC-1,ZZ
2804 031704 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
2805 031705 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2806 031706 003 04 0 00 001206 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2807 031707 321 10 0 00 031701 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2808
2809
2810 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2811 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2812 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2813
2814 001207 SN=SN+1
2815 546377 XX=XX-1000
2816 777774 YY=YY!<YY/2>
2817 777677 ZZ=<ZZ+ZZ+1>&777777
2818 IFE <ZZ-1>,<ZZ=777776>
2819 031710 205 02 0 00 546377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2820 031711 541 02 0 00 777774 HRRI AC-2,YY ;RESULT FOR COMPARISON
2821 031712 525 03 0 00 777677 HRLOI AC-1,ZZ
2822 031713 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
2823 031714 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2824 031715 003 04 0 00 001207 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2825 031716 321 10 0 00 031710 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2826
2827
2828 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2829 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2830 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2831
2832 001210 SN=SN+1
2833 545377 XX=XX-1000
2834 777776 YY=YY!<YY/2>
2835 777577 ZZ=<ZZ+ZZ+1>&777777
2836 IFE <ZZ-1>,<ZZ=777776>
2837 031717 205 02 0 00 545377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2838 031720 541 02 0 00 777776 HRRI AC-2,YY ;RESULT FOR COMPARISON
2839 031721 525 03 0 00 777577 HRLOI AC-1,ZZ
2840 031722 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
2841 031723 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2842 031724 003 04 0 00 001210 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 7-3
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0076
2843 031725 321 10 0 00 031717 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2844
2845
2846 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2847 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2848 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2849
2850 001211 SN=SN+1
2851 544377 XX=XX-1000
2852 777777 YY=YY!<YY/2>
2853 777377 ZZ=<ZZ+ZZ+1>&777777
2854 IFE <ZZ-1>,<ZZ=777776>
2855 031726 205 02 0 00 544377 MOVSI AC-2,XX ;INITIALIZE FLT PT NBR
2856 031727 541 02 0 00 777777 HRRI AC-2,YY ;RESULT FOR COMPARISON
2857 031730 525 03 0 00 777377 HRLOI AC-1,ZZ
2858 031731 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
2859 031732 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2860 031733 003 04 0 00 001211 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2861 031734 321 10 0 00 031726 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2862
2863 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 7-4
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0077
2864 001300 SN=1300
2865 544377 XX=544377
2866 777377 ZZ=777377
2867 777777 WW=777777
2868
2869 Q1300: REPEAT ^D8,<
2870 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2871 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2872 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2873
2874 SN=SN+1
2875 XX=XX-1000
2876 ZZ=<ZZ+ZZ+1>&777777
2877 WW=<WW+WW>&777777
2878 HRLOI AC-2,XX ;INITIALIZE FLT PT NBR
2879 HRLI AC-1,ZZ ;RESULT FOR COMPARISON
2880 HRRI AC-1,WW
2881 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
2882 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2883 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2884 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2885 >
2886
2887 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2888 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2889 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2890
2891 001301 SN=SN+1
2892 543377 XX=XX-1000
2893 776777 ZZ=<ZZ+ZZ+1>&777777
2894 777776 WW=<WW+WW>&777777
2895 031735 525 02 0 00 543377 HRLOI AC-2,XX ;INITIALIZE FLT PT NBR
2896 031736 505 03 0 00 776777 HRLI AC-1,ZZ ;RESULT FOR COMPARISON
2897 031737 541 03 0 00 777776 HRRI AC-1,WW
2898 031740 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
2899 031741 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2900 031742 003 04 0 00 001301 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2901 031743 321 10 0 00 031735 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2902
2903
2904 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2905 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2906 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2907
2908 001302 SN=SN+1
2909 542377 XX=XX-1000
2910 775777 ZZ=<ZZ+ZZ+1>&777777
2911 777774 WW=<WW+WW>&777777
2912 031744 525 02 0 00 542377 HRLOI AC-2,XX ;INITIALIZE FLT PT NBR
2913 031745 505 03 0 00 775777 HRLI AC-1,ZZ ;RESULT FOR COMPARISON
2914 031746 541 03 0 00 777774 HRRI AC-1,WW
2915 031747 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
2916 031750 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2917 031751 003 04 0 00 001302 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2918 031752 321 10 0 00 031744 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 7-5
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0078
2919
2920
2921 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2922 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2923 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2924
2925 001303 SN=SN+1
2926 541377 XX=XX-1000
2927 773777 ZZ=<ZZ+ZZ+1>&777777
2928 777770 WW=<WW+WW>&777777
2929 031753 525 02 0 00 541377 HRLOI AC-2,XX ;INITIALIZE FLT PT NBR
2930 031754 505 03 0 00 773777 HRLI AC-1,ZZ ;RESULT FOR COMPARISON
2931 031755 541 03 0 00 777770 HRRI AC-1,WW
2932 031756 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
2933 031757 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2934 031760 003 04 0 00 001303 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2935 031761 321 10 0 00 031753 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2936
2937
2938 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2939 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2940 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2941
2942 001304 SN=SN+1
2943 540377 XX=XX-1000
2944 767777 ZZ=<ZZ+ZZ+1>&777777
2945 777760 WW=<WW+WW>&777777
2946 031762 525 02 0 00 540377 HRLOI AC-2,XX ;INITIALIZE FLT PT NBR
2947 031763 505 03 0 00 767777 HRLI AC-1,ZZ ;RESULT FOR COMPARISON
2948 031764 541 03 0 00 777760 HRRI AC-1,WW
2949 031765 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
2950 031766 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2951 031767 003 04 0 00 001304 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2952 031770 321 10 0 00 031762 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2953
2954
2955 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2956 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2957 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2958
2959 001305 SN=SN+1
2960 537377 XX=XX-1000
2961 757777 ZZ=<ZZ+ZZ+1>&777777
2962 777740 WW=<WW+WW>&777777
2963 031771 525 02 0 00 537377 HRLOI AC-2,XX ;INITIALIZE FLT PT NBR
2964 031772 505 03 0 00 757777 HRLI AC-1,ZZ ;RESULT FOR COMPARISON
2965 031773 541 03 0 00 777740 HRRI AC-1,WW
2966 031774 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
2967 031775 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2968 031776 003 04 0 00 001305 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2969 031777 321 10 0 00 031771 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2970
2971
2972 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2973 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 7-6
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0079
2974 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2975
2976 001306 SN=SN+1
2977 536377 XX=XX-1000
2978 737777 ZZ=<ZZ+ZZ+1>&777777
2979 777700 WW=<WW+WW>&777777
2980 032000 525 02 0 00 536377 HRLOI AC-2,XX ;INITIALIZE FLT PT NBR
2981 032001 505 03 0 00 737777 HRLI AC-1,ZZ ;RESULT FOR COMPARISON
2982 032002 541 03 0 00 777700 HRRI AC-1,WW
2983 032003 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
2984 032004 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
2985 032005 003 04 0 00 001306 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
2986 032006 321 10 0 00 032000 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
2987
2988
2989 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
2990 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
2991 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
2992
2993 001307 SN=SN+1
2994 535377 XX=XX-1000
2995 677777 ZZ=<ZZ+ZZ+1>&777777
2996 777600 WW=<WW+WW>&777777
2997 032007 525 02 0 00 535377 HRLOI AC-2,XX ;INITIALIZE FLT PT NBR
2998 032010 505 03 0 00 677777 HRLI AC-1,ZZ ;RESULT FOR COMPARISON
2999 032011 541 03 0 00 777600 HRRI AC-1,WW
3000 032012 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
3001 032013 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
3002 032014 003 04 0 00 001307 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
3003 032015 321 10 0 00 032007 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
3004
3005
3006 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
3007 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
3008 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
3009
3010 001310 SN=SN+1
3011 534377 XX=XX-1000
3012 577777 ZZ=<ZZ+ZZ+1>&777777
3013 777400 WW=<WW+WW>&777777
3014 032016 525 02 0 00 534377 HRLOI AC-2,XX ;INITIALIZE FLT PT NBR
3015 032017 505 03 0 00 577777 HRLI AC-1,ZZ ;RESULT FOR COMPARISON
3016 032020 541 03 0 00 777400 HRRI AC-1,WW
3017 032021 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
3018 032022 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
3019 032023 003 04 0 00 001310 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
3020 032024 321 10 0 00 032016 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
3021
3022 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 7-7
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NEGATIVE INTEGERS-RIPPLE ZEROS SEQ 0080
3023 ;THIS TEST VERIFIES THAT THE FIX INSTRUCTION CONVERTS THE FLT PT NO.
3024 ;IN MEMORY TO FIX PT AND PLACES THE RESULT IN THE AC
3025 ;DATA: RIPPLE A "0" THROUGH A FIELD OF "1'S" - NEGATIVE NUMBERS
3026
3027 032025 525 02 0 00 243777 Q1400: HRLOI AC-2,243777 ;INITIALIZE FLT PT NBR
3028 032026 505 03 0 00 377777 HRLI AC-1,377777 ;RESULT FOR COMPARISON
3029 032027 541 03 0 00 777400 HRRI AC-1,777400
3030 032030 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT
3031 032031 312 04 0 00 000003 CAME AC,AC-1 ;IS TESTED BIT CLEAR?
3032 032032 003 04 0 00 001401 ER3 AC,1401 ;FAILURE IF TESTED BIT IS NOT CLEAR
3033 032033 321 10 0 00 032025 JUMPL SAC,Q1400 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 8
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - TRUNCATION SEQ 0081
3034 SUBTTL DIAGNOSTIC SECTION - FIX - TRUNCATION
3035
3036 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
3037 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
3038 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
3039 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
3040 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
3041 ;CONVERTED.
3042
3043 032034 205 02 0 00 576000 Q1500: MOVSI AC-2,576000 ;SET-UP FLT PT NBR
3044 032035 541 02 0 00 000001 HRRI AC-2,1
3045 032036 476 00 0 00 000003 SETOM AC-1 ;SET-UP EXPECTED RESULT
3046 032037 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
3047 ;TRUNCATE RESULT, AND PLACE IN AC
3048 032040 312 04 0 00 000003 CAME AC,AC-1 ;IS RESULT TRUNCATED?
3049 032041 003 04 0 00 001501 ER3 AC,1501 ;TRUNCATION FAILED IN CONVERSION
3050 032042 321 10 0 00 032034 JUMPL SAC,Q1500 ;LOOP ON ERROR SWITCH
3051
3052 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
3053 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
3054 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
3055 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
3056 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
3057 ;CONVERTED.
3058
3059 032043 515 02 0 00 576200 Q1600: HRLZI AC-2,576200 ;SET-UP FLT PT NBR
3060 032044 476 00 0 00 000003 SETOM AC-1 ;SET-UP EXPECTED RESULT
3061 032045 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
3062 ;TRUNCATE RESULT, AND PLACE IN AC
3063 032046 312 04 0 00 000003 CAME AC,AC-1 ;IS RESULT TRUNCATED?
3064 032047 003 04 0 00 001601 ER3 AC,1601 ;TRUNCATION FAILED IN CONVERSION
3065 032050 321 10 0 00 032043 JUMPL SAC,Q1600 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 9
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - TRUNCATION SEQ 0082
3066 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
3067 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
3068 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
3069 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
3070 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
3071 ;CONVERTED.
3072
3073 032051 205 02 0 00 576200 Q1700: MOVSI AC-2,576200 ;SET-UP FLT PT NBR
3074 032052 541 02 0 00 000001 HRRI AC-2,1
3075 032053 476 00 0 00 000003 SETOM AC-1 ;SET-UP EXPECTED RESULT
3076 032054 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
3077 ;TRUNCATE RESULT, AND PLACE IN AC
3078 032055 312 04 0 00 000003 CAME AC,AC-1 ;IS RESULT TRUNCATED?
3079 032056 003 04 0 00 001701 ER3 AC,1701 ;TRUNCATION FAILED IN CONVERSION
3080 032057 321 10 0 00 032051 JUMPL SAC,Q1700 ;LOOP ON ERROR SWITCH
3081
3082 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
3083 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
3084 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
3085 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
3086 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
3087 ;CONVERTED.
3088
3089 032060 205 02 0 00 577000 Q2000: MOVSI AC-2,577000 ;SET-UP FLT PT NBR
3090 032061 541 02 0 00 000001 HRRI AC-2,1 ;SET-UP EXPECTED RESULT
3091 032062 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
3092 ;TRUNCATE RESULT, AND PLACE IN AC
3093 032063 302 04 0 00 000000 CAIE AC,0 ;IS RESULT TRUNCATED?
3094 032064 003 04 0 00 002001 ER3 AC,2001 ;TRUNCATION FAILED IN CONVERSION
3095 032065 321 10 0 00 032060 JUMPL SAC,Q2000 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 10
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - TRUNCATION SEQ 0083
3096 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
3097 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
3098 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
3099 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
3100 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
3101 ;CONVERTED.
3102
3103 032066 205 02 0 00 577400 Q2100: MOVSI AC-2,577400 ;SET-UP FLT PT NBR
3104 032067 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
3105 ;TRUNCATE RESULT, AND PLACE IN AC
3106 032070 302 04 0 00 000000 CAIE AC,0 ;IS RESULT TRUNCATED?
3107 032071 003 04 0 00 002101 ER3 AC,2101 ;TRUNCATION FAILED IN CONVERSION
3108 032072 321 10 0 00 032066 JUMPL SAC,Q2100 ;LOOP ON ERROR SWITCH
3109
3110 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
3111 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
3112 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
3113 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
3114 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
3115 ;CONVERTED.
3116
3117 032073 205 02 0 00 600000 Q2200: MOVSI AC-2,600000 ;SET-UP FLT PT NBR
3118 032074 541 02 0 00 000001 HRRI AC-2,1
3119 032075 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
3120 ;TRUNCATE RESULT, AND PLACE IN AC
3121 032076 302 04 0 00 000000 CAIE AC,0 ;IS RESULT TRUNCATED?
3122 032077 003 04 0 00 002201 ER3 AC,2201 ;TRUNCATION FAILED IN CONVERSION
3123 032100 321 10 0 00 032073 JUMPL SAC,Q2200 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 11
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - TRUNCATION SEQ 0084
3124 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
3125 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
3126 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
3127 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
3128 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
3129 ;CONVERTED.
3130
3131 032101 525 02 0 00 177777 Q2300: HRLOI AC-2,177777 ;SET-UP FLT PT NBR
3132 032102 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
3133 ;TRUNCATE RESULT, AND PLACE IN AC
3134 032103 302 04 0 00 000000 CAIE AC,0 ;IS RESULT TRUNCATED?
3135 032104 003 04 0 00 002301 ER3 AC,2301 ;TRUNCATION FAILED IN CONVERSION
3136 032105 321 10 0 00 032101 JUMPL SAC,Q2300 ;LOOP ON ERROR SWITCH
3137
3138 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
3139 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
3140 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
3141 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
3142 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
3143 ;CONVERTED.
3144
3145 032106 205 02 0 00 200400 Q2400: MOVSI AC-2,200400 ;SET-UP FLT PT NBR
3146 032107 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
3147 ;TRUNCATE RESULT, AND PLACE IN AC
3148 032110 302 04 0 00 000000 CAIE AC,0 ;IS RESULT TRUNCATED?
3149 032111 003 04 0 00 002401 ER3 AC,2401 ;TRUNCATION FAILED IN CONVERSION
3150 032112 321 10 0 00 032106 JUMPL SAC,Q2400 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 12
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - TRUNCATION SEQ 0085
3151 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
3152 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
3153 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
3154 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
3155 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
3156 ;CONVERTED.
3157
3158 032113 525 02 0 00 200777 Q2500: HRLOI AC-2,200777 ;SET-UP FLT PT NBR
3159 032114 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
3160 ;TRUNCATE RESULT, AND PLACE IN AC
3161 032115 302 04 0 00 000000 CAIE AC,0 ;IS RESULT TRUNCATED?
3162 032116 003 04 0 00 002501 ER3 AC,2501 ;TRUNCATION FAILED IN CONVERSION
3163 032117 321 10 0 00 032113 JUMPL SAC,Q2500 ;LOOP ON ERROR SWITCH
3164
3165 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
3166 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
3167 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
3168 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
3169 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
3170 ;CONVERTED.
3171
3172 032120 525 02 0 00 201577 Q2600: HRLOI AC-2,201577 ;SET-UP FLT PT NBR
3173 032121 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
3174 ;TRUNCATE RESULT, AND PLACE IN AC
3175 032122 302 04 0 00 000001 CAIE AC,1 ;IS RESULT TRUNCATED?
3176 032123 003 04 0 00 002601 ER3 AC,2601 ;TRUNCATION FAILED IN CONVERSION
3177 032124 321 10 0 00 032120 JUMPL SAC,Q2600 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 13
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - TRUNCATION SEQ 0086
3178 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
3179 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
3180 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
3181 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
3182 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
3183 ;CONVERTED.
3184
3185 032125 205 02 0 00 201600 Q2700: MOVSI AC-2,201600 ;SET-UP FLT PT NBR
3186 032126 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
3187 ;TRUNCATE RESULT, AND PLACE IN AC
3188 032127 302 04 0 00 000001 CAIE AC,1 ;IS RESULT TRUNCATED?
3189 032130 003 04 0 00 002701 ER3 AC,2701 ;TRUNCATION FAILED IN CONVERSION
3190 032131 321 10 0 00 032125 JUMPL SAC,Q2700 ;LOOP ON ERROR SWITCH
3191
3192 ;CHECK THAT "FIX" TRUNCATES THE RESULT SUCH THAT
3193 ;IF THE VALUE OF 'X' IS GREATER THAN 'N' BUT LESS THAN
3194 ;N+1, "FIX" CONVERTS 'X' TO 'N' IF X IS POSITIVE,
3195 ;AND "FIX" CONVERTS 'X' TO N+1 IF X IS NEGATIVE WHERE N IS AN
3196 ;INTEGER AND 'X' IS THE FLOATING POINT NUMBER BEING
3197 ;CONVERTED.
3198
3199 032132 525 02 0 00 201777 Q3000: HRLOI AC-2,201777 ;SET-UP FLT PT NBR
3200 032133 122 04 0 00 000002 FIX AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
3201 ;TRUNCATE RESULT, AND PLACE IN AC
3202 032134 302 04 0 00 000001 CAIE AC,1 ;IS RESULT TRUNCATED?
3203 032135 003 04 0 00 003001 ER3 AC,3001 ;TRUNCATION FAILED IN CONVERSION
3204 032136 321 10 0 00 032132 JUMPL SAC,Q3000 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 14
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - NON-AC RANGE ADDRESS SEQ 0087
3205 SUBTTL DIAGNOSTIC SECTION - FIX - NON-AC RANGE ADDRESS
3206
3207 ;VERIFY THAT 'FIX AC,E' OPERATES FOR 'E' BEYOND THE 'AC' RANGE
3208
3209 SAVEAC^
3210 032137 201 10 0 00 032137 MOVEI SAC,.
3211 032140 202 10 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC
3212 032141 201 10 0 00 000010 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH
3213 032142 202 10 0 00 037141 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^
3214 032143 515 02 0 00 576200 Q3010: HRLZI AC-2,576200
3215 032144 202 02 0 00 036501 MOVEM AC-2,TSTWD ;LOAD 'E' WITH DATA
3216 032145 476 00 0 00 000003 SETOM AC-1 ;RESULT FOR COMPARISON
3217 032146 122 04 0 00 036501 FIX AC,TSTWD ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND STORE IN AC
3218 032147 312 04 0 00 000003 CAME AC,AC-1 ;DID 'FIX' GET CORRECT C(E)?
3219 032150 003 04 0 00 003011 ER3 AC,3011 ;FAILURE TO GET C(E)
3220 032151 321 10 0 00 032143 JUMPL SAC,Q3010 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 15
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIXR - ROUNDING SEQ 0088
3221 SUBTTL DIAGNOSTIC SECTION - FIXR - ROUNDING
3222
3223 ;CHECK THAT 'FIXR AC,E' DOES NOT MODIFY C(E)
3224
3225 032152 200 02 0 00 036673 Q3050: MOVE AC-2,[233525,,252525] ;LOAD 'E' WITH DATA
3226 032153 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND STORE IN AC
3227 032154 312 02 0 00 036673 CAME AC-2,[233525,,252525] ;WAS FLT PT NO. MODIFIED?
3228 032155 005 02 0 00 003051 ER5 AC-2,3051 ;C(E) WAS CLOBBERED
3229 032156 321 10 0 00 032152 JUMPL SAC,Q3050 ;LOOP ON ERROR SWITCH
3230
3231 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
3232 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
3233 ;THE RESULT IS ROUNDED DOWN TO 'N'
3234 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
3235 ;THE RESULT IS ROUNDED UP TO "N+1"
3236 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
3237 ;BEING CONVERTED
3238
3239 032157 205 02 0 00 576000 Q3100: MOVSI AC-2,576000 ;SET-UP FLT PT NBR
3240 032160 541 02 0 00 000001 HRRI AC-2,1
3241 032161 561 03 0 00 777776 HRROI AC-1,-2 ;SET-UP EXPECTED RESULT
3242 032162 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
3243 ;ROUND RESULT, AND PLACE IN AC
3244 032163 312 04 0 00 000003 CAME AC,AC-1 ;IS RESULT ROUNDED?
3245 032164 003 04 0 00 003101 ER3 AC,3101 ;ROUNDING FAILED IN CONVERSION
3246 032165 321 10 0 00 032157 JUMPL SAC,Q3100 ;LOOP ON ERROR SWITCH
3247
3248 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
3249 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
3250 ;THE RESULT IS ROUNDED DOWN TO 'N'
3251 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
3252 ;THE RESULT IS ROUNDED UP TO "N+1"
3253 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
3254 ;BEING CONVERTED
3255
3256 032166 205 02 0 00 576200 Q3200: MOVSI AC-2,576200 ;SET-UP FLT PT NBR
3257 032167 476 00 0 00 000003 SETOM AC-1 ;SET-UP EXPECTED RESULT
3258 032170 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
3259 ;ROUND RESULT, AND PLACE IN AC
3260 032171 312 04 0 00 000003 CAME AC,AC-1 ;IS RESULT ROUNDED?
3261 032172 003 04 0 00 003201 ER3 AC,3201 ;ROUNDING FAILED IN CONVERSION
3262 032173 321 10 0 00 032166 JUMPL SAC,Q3200 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 16
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIXR - ROUNDING SEQ 0089
3263 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
3264 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
3265 ;THE RESULT IS ROUNDED DOWN TO 'N'
3266 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
3267 ;THE RESULT IS ROUNDED UP TO "N+1"
3268 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
3269 ;BEING CONVERTED
3270
3271 032174 205 02 0 00 576200 Q3300: MOVSI AC-2,576200 ;SET-UP FLT PT NBR
3272 032175 541 02 0 00 000001 HRRI AC-2,1
3273 032176 476 00 0 00 000003 SETOM AC-1 ;SET-UP EXPECTED RESULT
3274 032177 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
3275 ;ROUND RESULT, AND PLACE IN AC
3276 032200 312 04 0 00 000003 CAME AC,AC-1 ;IS RESULT ROUNDED?
3277 032201 003 04 0 00 003301 ER3 AC,3301 ;ROUNDING FAILED IN CONVERSION
3278 032202 321 10 0 00 032174 JUMPL SAC,Q3300 ;LOOP ON ERROR SWITCH
3279
3280 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
3281 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
3282 ;THE RESULT IS ROUNDED DOWN TO 'N'
3283 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
3284 ;THE RESULT IS ROUNDED UP TO "N+1"
3285 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
3286 ;BEING CONVERTED
3287
3288 032203 205 02 0 00 577000 Q3400: MOVSI AC-2,577000 ;SET-UP FLT PT NBR
3289 032204 541 02 0 00 000001 HRRI AC-2,1
3290 032205 476 00 0 00 000003 SETOM AC-1 ;SET-UP EXPECTED RESULT
3291 032206 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
3292 ;ROUND RESULT, AND PLACE IN AC
3293 032207 312 04 0 00 000003 CAME AC,AC-1 ;IS RESULT ROUNDED?
3294 032210 003 04 0 00 003401 ER3 AC,3401 ;ROUNDING FAILED IN CONVERSION
3295 032211 321 10 0 00 032203 JUMPL SAC,Q3400 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 17
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIXR - ROUNDING SEQ 0090
3296 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
3297 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
3298 ;THE RESULT IS ROUNDED DOWN TO 'N'
3299 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
3300 ;THE RESULT IS ROUNDED UP TO "N+1"
3301 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
3302 ;BEING CONVERTED
3303
3304 032212 205 02 0 00 577400 Q3500: MOVSI AC-2,577400 ;SET-UP FLT PT NBR
3305 032213 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
3306 ;ROUND RESULT, AND PLACE IN AC
3307 032214 302 04 0 00 000000 CAIE AC,0 ;IS RESULT ROUNDED?
3308 032215 003 04 0 00 003501 ER3 AC,3501 ;ROUNDING FAILED IN CONVERSION
3309 032216 321 10 0 00 032212 JUMPL SAC,Q3500 ;LOOP ON ERROR SWITCH
3310
3311 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
3312 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
3313 ;THE RESULT IS ROUNDED DOWN TO 'N'
3314 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
3315 ;THE RESULT IS ROUNDED UP TO "N+1"
3316 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
3317 ;BEING CONVERTED
3318
3319 032217 205 02 0 00 600000 Q3600: MOVSI AC-2,600000 ;SET-UP FLT PT NBR
3320 032220 541 02 0 00 000001 HRRI AC-2,1
3321 032221 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
3322 ;ROUND RESULT, AND PLACE IN AC
3323 032222 302 04 0 00 000000 CAIE AC,0 ;IS RESULT ROUNDED?
3324 032223 003 04 0 00 003601 ER3 AC,3601 ;ROUNDING FAILED IN CONVERSION
3325 032224 321 10 0 00 032217 JUMPL SAC,Q3600 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 18
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIXR - ROUNDING SEQ 0091
3326 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
3327 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
3328 ;THE RESULT IS ROUNDED DOWN TO 'N'
3329 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
3330 ;THE RESULT IS ROUNDED UP TO "N+1"
3331 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
3332 ;BEING CONVERTED
3333
3334 032225 525 02 0 00 177777 Q3700: HRLOI AC-2,177777 ;SET-UP FLT PT NBR
3335 032226 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
3336 ;ROUND RESULT, AND PLACE IN AC
3337 032227 302 04 0 00 000000 CAIE AC,0 ;IS RESULT ROUNDED?
3338 032230 003 04 0 00 003701 ER3 AC,3701 ;ROUNDING FAILED IN CONVERSION
3339 032231 321 10 0 00 032225 JUMPL SAC,Q3700 ;LOOP ON ERROR SWITCH
3340
3341 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
3342 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
3343 ;THE RESULT IS ROUNDED DOWN TO 'N'
3344 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
3345 ;THE RESULT IS ROUNDED UP TO "N+1"
3346 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
3347 ;BEING CONVERTED
3348
3349 032232 205 02 0 00 200400 Q4000: MOVSI AC-2,200400 ;SET-UP FLT PT NBR
3350 032233 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
3351 ;ROUND RESULT, AND PLACE IN AC
3352 032234 302 04 0 00 000001 CAIE AC,1 ;IS RESULT ROUNDED?
3353 032235 003 04 0 00 004001 ER3 AC,4001 ;ROUNDING FAILED IN CONVERSION
3354 032236 321 10 0 00 032232 JUMPL SAC,Q4000 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 19
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIXR - ROUNDING SEQ 0092
3355 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
3356 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
3357 ;THE RESULT IS ROUNDED DOWN TO 'N'
3358 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
3359 ;THE RESULT IS ROUNDED UP TO "N+1"
3360 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
3361 ;BEING CONVERTED
3362
3363 032237 525 02 0 00 200777 Q4100: HRLOI AC-2,200777 ;SET-UP FLT PT NBR
3364 032240 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
3365 ;ROUND RESULT, AND PLACE IN AC
3366 032241 302 04 0 00 000001 CAIE AC,1 ;IS RESULT ROUNDED?
3367 032242 003 04 0 00 004101 ER3 AC,4101 ;ROUNDING FAILED IN CONVERSION
3368 032243 321 10 0 00 032237 JUMPL SAC,Q4100 ;LOOP ON ERROR SWITCH
3369
3370 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
3371 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
3372 ;THE RESULT IS ROUNDED DOWN TO 'N'
3373 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
3374 ;THE RESULT IS ROUNDED UP TO "N+1"
3375 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
3376 ;BEING CONVERTED
3377
3378 032244 525 02 0 00 201577 Q4200: HRLOI AC-2,201577 ;SET-UP FLT PT NBR
3379 032245 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
3380 ;ROUND RESULT, AND PLACE IN AC
3381 032246 302 04 0 00 000001 CAIE AC,1 ;IS RESULT ROUNDED?
3382 032247 003 04 0 00 004201 ER3 AC,4201 ;ROUNDING FAILED IN CONVERSION
3383 032250 321 10 0 00 032244 JUMPL SAC,Q4200 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 20
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIXR - ROUNDING SEQ 0093
3384 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
3385 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
3386 ;THE RESULT IS ROUNDED DOWN TO 'N'
3387 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
3388 ;THE RESULT IS ROUNDED UP TO "N+1"
3389 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
3390 ;BEING CONVERTED
3391
3392 032251 205 02 0 00 201600 Q4300: MOVSI AC-2,201600 ;SET-UP FLT PT NBR
3393 032252 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
3394 ;ROUND RESULT, AND PLACE IN AC
3395 032253 302 04 0 00 000002 CAIE AC,2 ;IS RESULT ROUNDED?
3396 032254 003 04 0 00 004301 ER3 AC,4301 ;ROUNDING FAILED IN CONVERSION
3397 032255 321 10 0 00 032251 JUMPL SAC,Q4300 ;LOOP ON ERROR SWITCH
3398
3399 ;CHECK THAT "FIXR" ROUNDS THE RESULT SUCH THAT
3400 ;IF 'X' IS GREATER THAN 'N' BUT LESS THAN 'N+0.5',
3401 ;THE RESULT IS ROUNDED DOWN TO 'N'
3402 ;AND IF 'X' IS GREATER THAN OR EQUAL TO 'N+.5' BUT LESS THAN 'N+1' ,
3403 ;THE RESULT IS ROUNDED UP TO "N+1"
3404 ;WHERE 'N' IS AN INTEGER AND 'X' IS THE FLOATING POINT NUMBER
3405 ;BEING CONVERTED
3406
3407 032256 525 02 0 00 201777 Q4400: HRLOI AC-2,201777 ;SET-UP FLT PT NBR
3408 032257 126 04 0 00 000002 FIXR AC,AC-2 ;*CONVERT FLT PT NO. IN 'E' TO FIX PT,
3409 ;ROUND RESULT, AND PLACE IN AC
3410 032260 302 04 0 00 000002 CAIE AC,2 ;IS RESULT ROUNDED?
3411 032261 003 04 0 00 004401 ER3 AC,4401 ;ROUNDING FAILED IN CONVERSION
3412 032262 321 10 0 00 032256 JUMPL SAC,Q4400 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 21
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIXR - NON-AC RANGE ADDRESS SEQ 0094
3413 SUBTTL DIAGNOSTIC SECTION - FIXR - NON-AC RANGE ADDRESS
3414
3415 ;CHECK THAT 'FIXR AC,E' OPERATES FOR 'E' BEYOND AC RANGE
3416
3417 032263 205 02 0 00 576000 Q4410: MOVSI AC-2,576000 ;LOAD 'E' WITH DATA
3418 032264 541 02 0 00 000001 HRRI AC-2,1
3419 032265 202 02 0 00 036501 MOVEM AC-2,TSTWD
3420 032266 561 03 0 00 777776 HRROI AC-1,-2 ;RESULT FOR COMPARISON
3421 032267 126 04 0 00 036501 FIXR AC,TSTWD ;*CONVERT FLT PT NO. IN 'E' TO FIX PT AND STORE IN AC
3422 032270 312 04 0 00 000003 CAME AC,AC-1 ;DID FIXR GET CORRECT C(E)?
3423 032271 003 04 0 00 004411 ER3 AC,4411 ;FAILURE TO GET C(E)
3424 032272 321 10 0 00 032263 JUMPL SAC,Q4410 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 22
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - ARITHMETIC OVERFLOW SEQ 0095
3425 SUBTTL DIAGNOSTIC SECTION - FIX - ARITHMETIC OVERFLOW
3426
3427 ;CHECK THAT ARITH OVFL FLG REMAINS CLEAR WHEN THE ABSOLUTE VALUE
3428 ;OF 'N' IS LESS THAN 2 RAISED THE 35TH POWER.
3429
3430 ;CHECK ABILITY TO CLEAR AROV BEFORE TESTING INTERACTION WITH 'FIX'
3431
3432 032273 255 10 0 00 032274 Q4500: JOV .+1 ;CLEAR ARITH OVFL FLG
3433 032274 265 04 0 00 032275 JSP AC,.+1 ;READ FLAGS
3434 032275 255 10 0 00 032277 JOV .+2 ;TEST AROV FLAG
3435 032276 254 00 0 00 032300 JRST .+2 ;SKIP ERROR CALL IF FLAG IS OK
3436 032277 013 04 0 00 004501 ER13 AC,4501 ;ARITH OVFL FLG SET
3437 032300 321 10 0 00 032273 JUMPL SAC,Q4500 ;LOOP ON ERROR SWITCH
3438
3439 ;CHECK THAT ARITH OVFL FLG REMAINS CLEAR WHEN THE ABSOLUTE VALUE
3440 ;OF 'N' IS LESS THAN 2 RAISED THE 35TH POWER.
3441
3442 032301 255 10 0 00 032302 Q4600: JOV .+1 ;CLEAR ARITH OVFL FLG
3443 032302 205 02 0 00 244400 MOVSI AC-2,244400 ;INITIALIZE FLOATING PT WORD
3444 032303 477 04 0 00 000003 SETOB AC,AC-1 ;SET-UP RESULT
3445 032304 122 04 0 00 000002 FIX AC,AC-2 ;*FIX SHOULD SET AROV
3446 032305 312 04 0 00 000003 CAME AC,AC-1 ;TEST AC
3447 032306 003 04 0 00 004601 ER3 AC,4601 ;C(AC) WAS MODIFIED
3448 032307 265 05 0 00 032310 JSP AC+1,.+1 ;READ FLAGS
3449 032310 255 10 0 00 032312 JOV .+2 ;TEST ARITH OVFL FLG
3450 032311 013 05 0 00 004601 ER13 AC+1,4601 ;ARITH OVFL FLAG CLEAR
3451 032312 321 10 0 00 032301 JUMPL SAC,Q4600 ;LOOP ON ERROR SWITCH
3452
3453 ;CHECK THAT ARITH OVFL FLG REMAINS CLEAR WHEN THE ABSOLUTE VALUE
3454 ;OF 'N' IS LESS THAN 2 RAISED THE 35TH POWER.
3455
3456 032313 255 10 0 00 032314 Q4700: JOV .+1 ;CLEAR ARITH OVFL FLG
3457 032314 525 02 0 00 243777 HRLOI AC-2,243777 ;INITIALIZE FLT. PT. WORD
3458 032315 561 03 0 00 777400 HRROI AC-1,777400 ;SET UP RESULT
3459 032316 621 03 0 00 400000 TLZ AC-1,AROV
3460 032317 122 04 0 00 000002 FIX AC,AC-2 ;*FIX SHOULD NOT SET AROV
3461 032320 312 04 0 00 000003 CAME AC,AC-1 ;TEST AC
3462 032321 003 04 0 00 004701 ER3 AC,4701 ;C(AC) INCORRECT
3463 032322 265 05 0 00 032323 JSP AC+1,.+1 ;READ FLAGS
3464 032323 255 10 0 00 032325 JOV .+2 ;TEST ARITH OVFL FLG
3465 032324 254 00 0 00 032326 JRST .+2 ;SKIP ERROR CALL IF AROV IS CLEAR
3466 032325 013 05 0 00 004701 ER13 AC+1,4701 ;ARITH OVFL FLAG SET
3467 032326 321 10 0 00 032313 JUMPL SAC,Q4700 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 23
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FIX - ARITHMETIC OVERFLOW SEQ 0096
3468 ;CHECK THAT ARITH OVFL FLG REMAINS CLEAR WHEN THE ABSOLUTE VALUE
3469 ;OF 'N' IS LESS THAN 2 RAISED THE 35TH POWER.
3470
3471 032327 255 10 0 00 032330 Q5000: JOV .+1 ;CLEAR ARITH OVFL FLG
3472 032330 205 02 0 00 533400 MOVSI AC-2,533400 ;INIT FLT. PT. WORD
3473 032331 477 04 0 00 000003 SETOB AC,AC-1 ;SET-UP RESULT
3474 032332 122 04 0 00 000002 FIX AC,AC-2 ;*FIX SHOULD SET AROV
3475 032333 312 04 0 00 000003 CAME AC,AC-1 ;TEST AC
3476 032334 003 04 0 00 005001 ER3 AC,5001 ;C(AC) WAS MODIFIED
3477 032335 265 05 0 00 032336 JSP AC+1,.+1 ;READ FLAGS
3478 032336 255 10 0 00 032340 JOV .+2 ;TEST ARITH OVFL FLG
3479 032337 013 05 0 00 005001 ER13 AC+1,5001 ;ARITH OVFL FLG CLEAR
3480 032340 321 10 0 00 032327 JUMPL SAC,Q5000 ;LOOP ON ERROR SWITCH
3481
3482 ;CHECK THAT ARITH OVFL FLG REMAINS CLEAR WHEN THE ABSOLUTE VALUE
3483 ;OF 'N' IS LESS THAN 2 RAISED THE 35TH POWER.
3484
3485 032341 255 10 0 00 032342 Q5100: JOV .+1 ;CLEAR ARITH OVFL FLG
3486 032342 205 02 0 00 534000 MOVSI AC-2,534000 ;INITIALIZE FLT. PT. WORD
3487 032343 660 02 0 00 000001 TRO AC-2,1
3488 032344 551 03 0 00 000400 HRRZI AC-1,400 ;SET-UP RESULT
3489 032345 661 03 0 00 400000 TLO AC-1,AROV
3490 032346 122 04 0 00 000002 FIX AC,AC-2 ;*FIX SHOULD NOT SET AROV
3491 032347 312 04 0 00 000003 CAME AC,AC-1 ;TEST AC
3492 032350 003 04 0 00 005101 ER3 AC,5101 ;C(AC) INCORRECT
3493 032351 265 05 0 00 032352 JSP AC+1,.+1 ;READ FLAGS
3494 032352 255 10 0 00 032354 JOV .+2 ;TEST ARITH OVFL FLG
3495 032353 254 00 0 00 032355 JRST .+2 ;SKIP ERROR CALL IF AROV IS CLEAR
3496 032354 013 05 0 00 005101 ER13 AC+1,5101 ;ARITH OVFL FLG SET
3497 032355 321 10 0 00 032341 JUMPL SAC,Q5100 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 24
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0097
3498 SUBTTL DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS
3499
3500 ;CHECK THAT 'FLTR AC,E' DOES NOT MODIFY C(E)
3501
3502 032356 200 02 0 00 036674 Q5150: MOVE AC-2,[252525,,252525] ;LOAD 'E' WITH DATA
3503 032357 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3504 032360 312 02 0 00 036674 CAME AC-2,[252525,,252525] ;WAS FIX PT NO. MODIFIED?
3505 032361 005 02 0 00 005151 ER5 AC-2,5151 ;C(E) WAS CLOBBERED
3506 032362 321 10 0 00 032356 JUMPL SAC,Q5150 ;LOOP ON ERROR SWITCH
3507
3508 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
3509
3510 005200 SN=5200
3511 400000 XX=400000
3512 244400 YY=244400
3513
3514 Q5200: REPEAT ^D17,<
3515 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3516 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
3517 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
3518
3519 SN=SN+1
3520 XX=XX/2
3521 YY=YY-1000
3522 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
3523 MOVSI AC-1,YY ;SET-UP RESULT
3524 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3525 CAME AC,AC-1 ;TEST EXPONENT
3526 ER3 AC,SN ;INCORRECT EXPONENT
3527 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
3528 >
3529
3530 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3531 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
3532 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
3533
3534 005201 SN=SN+1
3535 200000 XX=XX/2
3536 243400 YY=YY-1000
3537 032363 205 02 0 00 200000 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
3538 032364 205 03 0 00 243400 MOVSI AC-1,YY ;SET-UP RESULT
3539 032365 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3540 032366 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
3541 032367 003 04 0 00 005201 ER3 AC,SN ;INCORRECT EXPONENT
3542 032370 321 10 0 00 032363 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
3543
3544
3545 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3546 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
3547 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
3548
3549 005202 SN=SN+1
3550 100000 XX=XX/2
3551 242400 YY=YY-1000
3552 032371 205 02 0 00 100000 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 24-1
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0098
3553 032372 205 03 0 00 242400 MOVSI AC-1,YY ;SET-UP RESULT
3554 032373 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3555 032374 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
3556 032375 003 04 0 00 005202 ER3 AC,SN ;INCORRECT EXPONENT
3557 032376 321 10 0 00 032371 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
3558
3559
3560 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3561 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
3562 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
3563
3564 005203 SN=SN+1
3565 040000 XX=XX/2
3566 241400 YY=YY-1000
3567 032377 205 02 0 00 040000 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
3568 032400 205 03 0 00 241400 MOVSI AC-1,YY ;SET-UP RESULT
3569 032401 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3570 032402 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
3571 032403 003 04 0 00 005203 ER3 AC,SN ;INCORRECT EXPONENT
3572 032404 321 10 0 00 032377 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
3573
3574
3575 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3576 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
3577 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
3578
3579 005204 SN=SN+1
3580 020000 XX=XX/2
3581 240400 YY=YY-1000
3582 032405 205 02 0 00 020000 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
3583 032406 205 03 0 00 240400 MOVSI AC-1,YY ;SET-UP RESULT
3584 032407 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3585 032410 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
3586 032411 003 04 0 00 005204 ER3 AC,SN ;INCORRECT EXPONENT
3587 032412 321 10 0 00 032405 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
3588
3589
3590 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3591 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
3592 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
3593
3594 005205 SN=SN+1
3595 010000 XX=XX/2
3596 237400 YY=YY-1000
3597 032413 205 02 0 00 010000 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
3598 032414 205 03 0 00 237400 MOVSI AC-1,YY ;SET-UP RESULT
3599 032415 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3600 032416 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
3601 032417 003 04 0 00 005205 ER3 AC,SN ;INCORRECT EXPONENT
3602 032420 321 10 0 00 032413 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
3603
3604
3605 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3606 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
3607 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 24-2
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0099
3608
3609 005206 SN=SN+1
3610 004000 XX=XX/2
3611 236400 YY=YY-1000
3612 032421 205 02 0 00 004000 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
3613 032422 205 03 0 00 236400 MOVSI AC-1,YY ;SET-UP RESULT
3614 032423 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3615 032424 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
3616 032425 003 04 0 00 005206 ER3 AC,SN ;INCORRECT EXPONENT
3617 032426 321 10 0 00 032421 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
3618
3619
3620 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3621 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
3622 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
3623
3624 005207 SN=SN+1
3625 002000 XX=XX/2
3626 235400 YY=YY-1000
3627 032427 205 02 0 00 002000 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
3628 032430 205 03 0 00 235400 MOVSI AC-1,YY ;SET-UP RESULT
3629 032431 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3630 032432 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
3631 032433 003 04 0 00 005207 ER3 AC,SN ;INCORRECT EXPONENT
3632 032434 321 10 0 00 032427 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
3633
3634
3635 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3636 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
3637 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
3638
3639 005210 SN=SN+1
3640 001000 XX=XX/2
3641 234400 YY=YY-1000
3642 032435 205 02 0 00 001000 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
3643 032436 205 03 0 00 234400 MOVSI AC-1,YY ;SET-UP RESULT
3644 032437 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3645 032440 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
3646 032441 003 04 0 00 005210 ER3 AC,SN ;INCORRECT EXPONENT
3647 032442 321 10 0 00 032435 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
3648
3649
3650 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3651 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
3652 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
3653
3654 005211 SN=SN+1
3655 000400 XX=XX/2
3656 233400 YY=YY-1000
3657 032443 205 02 0 00 000400 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
3658 032444 205 03 0 00 233400 MOVSI AC-1,YY ;SET-UP RESULT
3659 032445 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3660 032446 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
3661 032447 003 04 0 00 005211 ER3 AC,SN ;INCORRECT EXPONENT
3662 032450 321 10 0 00 032443 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 24-3
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0100
3663
3664
3665 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3666 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
3667 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
3668
3669 005212 SN=SN+1
3670 000200 XX=XX/2
3671 232400 YY=YY-1000
3672 032451 205 02 0 00 000200 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
3673 032452 205 03 0 00 232400 MOVSI AC-1,YY ;SET-UP RESULT
3674 032453 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3675 032454 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
3676 032455 003 04 0 00 005212 ER3 AC,SN ;INCORRECT EXPONENT
3677 032456 321 10 0 00 032451 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
3678
3679
3680 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3681 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
3682 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
3683
3684 005213 SN=SN+1
3685 000100 XX=XX/2
3686 231400 YY=YY-1000
3687 032457 205 02 0 00 000100 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
3688 032460 205 03 0 00 231400 MOVSI AC-1,YY ;SET-UP RESULT
3689 032461 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3690 032462 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
3691 032463 003 04 0 00 005213 ER3 AC,SN ;INCORRECT EXPONENT
3692 032464 321 10 0 00 032457 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
3693
3694
3695 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3696 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
3697 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
3698
3699 005214 SN=SN+1
3700 000040 XX=XX/2
3701 230400 YY=YY-1000
3702 032465 205 02 0 00 000040 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
3703 032466 205 03 0 00 230400 MOVSI AC-1,YY ;SET-UP RESULT
3704 032467 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3705 032470 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
3706 032471 003 04 0 00 005214 ER3 AC,SN ;INCORRECT EXPONENT
3707 032472 321 10 0 00 032465 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
3708
3709
3710 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3711 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
3712 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
3713
3714 005215 SN=SN+1
3715 000020 XX=XX/2
3716 227400 YY=YY-1000
3717 032473 205 02 0 00 000020 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 24-4
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0101
3718 032474 205 03 0 00 227400 MOVSI AC-1,YY ;SET-UP RESULT
3719 032475 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3720 032476 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
3721 032477 003 04 0 00 005215 ER3 AC,SN ;INCORRECT EXPONENT
3722 032500 321 10 0 00 032473 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
3723
3724
3725 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3726 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
3727 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
3728
3729 005216 SN=SN+1
3730 000010 XX=XX/2
3731 226400 YY=YY-1000
3732 032501 205 02 0 00 000010 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
3733 032502 205 03 0 00 226400 MOVSI AC-1,YY ;SET-UP RESULT
3734 032503 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3735 032504 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
3736 032505 003 04 0 00 005216 ER3 AC,SN ;INCORRECT EXPONENT
3737 032506 321 10 0 00 032501 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
3738
3739
3740 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3741 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
3742 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
3743
3744 005217 SN=SN+1
3745 000004 XX=XX/2
3746 225400 YY=YY-1000
3747 032507 205 02 0 00 000004 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
3748 032510 205 03 0 00 225400 MOVSI AC-1,YY ;SET-UP RESULT
3749 032511 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3750 032512 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
3751 032513 003 04 0 00 005217 ER3 AC,SN ;INCORRECT EXPONENT
3752 032514 321 10 0 00 032507 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
3753
3754
3755 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3756 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
3757 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
3758
3759 005220 SN=SN+1
3760 000002 XX=XX/2
3761 224400 YY=YY-1000
3762 032515 205 02 0 00 000002 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
3763 032516 205 03 0 00 224400 MOVSI AC-1,YY ;SET-UP RESULT
3764 032517 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3765 032520 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
3766 032521 003 04 0 00 005220 ER3 AC,SN ;INCORRECT EXPONENT
3767 032522 321 10 0 00 032515 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
3768
3769
3770 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3771 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
3772 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 24-5
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0102
3773
3774 005221 SN=SN+1
3775 000001 XX=XX/2
3776 223400 YY=YY-1000
3777 032523 205 02 0 00 000001 MOVSI AC-2,XX ;INITIALIZE FIXED PT WORD
3778 032524 205 03 0 00 223400 MOVSI AC-1,YY ;SET-UP RESULT
3779 032525 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3780 032526 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
3781 032527 003 04 0 00 005221 ER3 AC,SN ;INCORRECT EXPONENT
3782 032530 321 10 0 00 032523 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
3783
3784 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 24-6
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0103
3785 005300 SN=5300
3786 000000 XX=0
3787 223400 YY=223400
3788
3789 Q5300: REPEAT ^D18,<
3790 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3791 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
3792 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
3793
3794 SN=SN+1
3795 XX=XX/2
3796 YY=YY-1000
3797 IFE XX,<XX=400000>
3798 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
3799 MOVSI AC-1,YY ;SET-UP RESULT
3800 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3801 CAME AC,AC-1 ;TEST EXPONENT
3802 ER3 AC,SN ;INCORRECT EXPONENT
3803 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
3804 >
3805
3806 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3807 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
3808 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
3809
3810 005301 SN=SN+1
3811 000000 XX=XX/2
3812 222400 YY=YY-1000
3813 400000 IFE XX,<XX=400000>
3814 032531 551 02 0 00 400000 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
3815 032532 205 03 0 00 222400 MOVSI AC-1,YY ;SET-UP RESULT
3816 032533 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3817 032534 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
3818 032535 003 04 0 00 005301 ER3 AC,SN ;INCORRECT EXPONENT
3819 032536 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
3820
3821
3822 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3823 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
3824 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
3825
3826 005302 SN=SN+1
3827 200000 XX=XX/2
3828 221400 YY=YY-1000
3829 IFE XX,<XX=400000>
3830 032537 551 02 0 00 200000 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
3831 032540 205 03 0 00 221400 MOVSI AC-1,YY ;SET-UP RESULT
3832 032541 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3833 032542 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
3834 032543 003 04 0 00 005302 ER3 AC,SN ;INCORRECT EXPONENT
3835 032544 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
3836
3837
3838 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3839 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 24-7
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0104
3840 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
3841
3842 005303 SN=SN+1
3843 100000 XX=XX/2
3844 220400 YY=YY-1000
3845 IFE XX,<XX=400000>
3846 032545 551 02 0 00 100000 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
3847 032546 205 03 0 00 220400 MOVSI AC-1,YY ;SET-UP RESULT
3848 032547 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3849 032550 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
3850 032551 003 04 0 00 005303 ER3 AC,SN ;INCORRECT EXPONENT
3851 032552 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
3852
3853
3854 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3855 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
3856 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
3857
3858 005304 SN=SN+1
3859 040000 XX=XX/2
3860 217400 YY=YY-1000
3861 IFE XX,<XX=400000>
3862 032553 551 02 0 00 040000 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
3863 032554 205 03 0 00 217400 MOVSI AC-1,YY ;SET-UP RESULT
3864 032555 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3865 032556 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
3866 032557 003 04 0 00 005304 ER3 AC,SN ;INCORRECT EXPONENT
3867 032560 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
3868
3869
3870 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3871 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
3872 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
3873
3874 005305 SN=SN+1
3875 020000 XX=XX/2
3876 216400 YY=YY-1000
3877 IFE XX,<XX=400000>
3878 032561 551 02 0 00 020000 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
3879 032562 205 03 0 00 216400 MOVSI AC-1,YY ;SET-UP RESULT
3880 032563 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3881 032564 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
3882 032565 003 04 0 00 005305 ER3 AC,SN ;INCORRECT EXPONENT
3883 032566 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
3884
3885
3886 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3887 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
3888 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
3889
3890 005306 SN=SN+1
3891 010000 XX=XX/2
3892 215400 YY=YY-1000
3893 IFE XX,<XX=400000>
3894 032567 551 02 0 00 010000 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 24-8
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0105
3895 032570 205 03 0 00 215400 MOVSI AC-1,YY ;SET-UP RESULT
3896 032571 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3897 032572 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
3898 032573 003 04 0 00 005306 ER3 AC,SN ;INCORRECT EXPONENT
3899 032574 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
3900
3901
3902 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3903 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
3904 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
3905
3906 005307 SN=SN+1
3907 004000 XX=XX/2
3908 214400 YY=YY-1000
3909 IFE XX,<XX=400000>
3910 032575 551 02 0 00 004000 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
3911 032576 205 03 0 00 214400 MOVSI AC-1,YY ;SET-UP RESULT
3912 032577 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3913 032600 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
3914 032601 003 04 0 00 005307 ER3 AC,SN ;INCORRECT EXPONENT
3915 032602 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
3916
3917
3918 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3919 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
3920 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
3921
3922 005310 SN=SN+1
3923 002000 XX=XX/2
3924 213400 YY=YY-1000
3925 IFE XX,<XX=400000>
3926 032603 551 02 0 00 002000 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
3927 032604 205 03 0 00 213400 MOVSI AC-1,YY ;SET-UP RESULT
3928 032605 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3929 032606 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
3930 032607 003 04 0 00 005310 ER3 AC,SN ;INCORRECT EXPONENT
3931 032610 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
3932
3933
3934 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3935 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
3936 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
3937
3938 005311 SN=SN+1
3939 001000 XX=XX/2
3940 212400 YY=YY-1000
3941 IFE XX,<XX=400000>
3942 032611 551 02 0 00 001000 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
3943 032612 205 03 0 00 212400 MOVSI AC-1,YY ;SET-UP RESULT
3944 032613 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3945 032614 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
3946 032615 003 04 0 00 005311 ER3 AC,SN ;INCORRECT EXPONENT
3947 032616 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
3948
3949
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 24-9
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0106
3950 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3951 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
3952 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
3953
3954 005312 SN=SN+1
3955 000400 XX=XX/2
3956 211400 YY=YY-1000
3957 IFE XX,<XX=400000>
3958 032617 551 02 0 00 000400 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
3959 032620 205 03 0 00 211400 MOVSI AC-1,YY ;SET-UP RESULT
3960 032621 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3961 032622 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
3962 032623 003 04 0 00 005312 ER3 AC,SN ;INCORRECT EXPONENT
3963 032624 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
3964
3965
3966 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3967 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
3968 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
3969
3970 005313 SN=SN+1
3971 000200 XX=XX/2
3972 210400 YY=YY-1000
3973 IFE XX,<XX=400000>
3974 032625 551 02 0 00 000200 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
3975 032626 205 03 0 00 210400 MOVSI AC-1,YY ;SET-UP RESULT
3976 032627 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3977 032630 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
3978 032631 003 04 0 00 005313 ER3 AC,SN ;INCORRECT EXPONENT
3979 032632 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
3980
3981
3982 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3983 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
3984 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
3985
3986 005314 SN=SN+1
3987 000100 XX=XX/2
3988 207400 YY=YY-1000
3989 IFE XX,<XX=400000>
3990 032633 551 02 0 00 000100 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
3991 032634 205 03 0 00 207400 MOVSI AC-1,YY ;SET-UP RESULT
3992 032635 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
3993 032636 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
3994 032637 003 04 0 00 005314 ER3 AC,SN ;INCORRECT EXPONENT
3995 032640 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
3996
3997
3998 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
3999 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4000 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
4001
4002 005315 SN=SN+1
4003 000040 XX=XX/2
4004 206400 YY=YY-1000
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 24-10
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0107
4005 IFE XX,<XX=400000>
4006 032641 551 02 0 00 000040 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
4007 032642 205 03 0 00 206400 MOVSI AC-1,YY ;SET-UP RESULT
4008 032643 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4009 032644 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4010 032645 003 04 0 00 005315 ER3 AC,SN ;INCORRECT EXPONENT
4011 032646 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
4012
4013
4014 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4015 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4016 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
4017
4018 005316 SN=SN+1
4019 000020 XX=XX/2
4020 205400 YY=YY-1000
4021 IFE XX,<XX=400000>
4022 032647 551 02 0 00 000020 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
4023 032650 205 03 0 00 205400 MOVSI AC-1,YY ;SET-UP RESULT
4024 032651 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4025 032652 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4026 032653 003 04 0 00 005316 ER3 AC,SN ;INCORRECT EXPONENT
4027 032654 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
4028
4029
4030 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4031 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4032 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
4033
4034 005317 SN=SN+1
4035 000010 XX=XX/2
4036 204400 YY=YY-1000
4037 IFE XX,<XX=400000>
4038 032655 551 02 0 00 000010 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
4039 032656 205 03 0 00 204400 MOVSI AC-1,YY ;SET-UP RESULT
4040 032657 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4041 032660 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4042 032661 003 04 0 00 005317 ER3 AC,SN ;INCORRECT EXPONENT
4043 032662 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
4044
4045
4046 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4047 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4048 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
4049
4050 005320 SN=SN+1
4051 000004 XX=XX/2
4052 203400 YY=YY-1000
4053 IFE XX,<XX=400000>
4054 032663 551 02 0 00 000004 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
4055 032664 205 03 0 00 203400 MOVSI AC-1,YY ;SET-UP RESULT
4056 032665 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4057 032666 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4058 032667 003 04 0 00 005320 ER3 AC,SN ;INCORRECT EXPONENT
4059 032670 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 24-11
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - POSITIVE NUMBERS SEQ 0108
4060
4061
4062 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4063 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4064 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
4065
4066 005321 SN=SN+1
4067 000002 XX=XX/2
4068 202400 YY=YY-1000
4069 IFE XX,<XX=400000>
4070 032671 551 02 0 00 000002 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
4071 032672 205 03 0 00 202400 MOVSI AC-1,YY ;SET-UP RESULT
4072 032673 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4073 032674 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4074 032675 003 04 0 00 005321 ER3 AC,SN ;INCORRECT EXPONENT
4075 032676 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
4076
4077
4078 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4079 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4080 ;TEST EXPONENT CALCULATION FOR POSITIVE NUMBERS
4081
4082 005322 SN=SN+1
4083 000001 XX=XX/2
4084 201400 YY=YY-1000
4085 IFE XX,<XX=400000>
4086 032677 551 02 0 00 000001 HRRZI AC-2,XX ;INITIALIZE FIXED PT WORD
4087 032700 205 03 0 00 201400 MOVSI AC-1,YY ;SET-UP RESULT
4088 032701 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4089 032702 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4090 032703 003 04 0 00 005322 ER3 AC,SN ;INCORRECT EXPONENT
4091 032704 321 10 0 00 777773 JUMPL SAC,-5 ;LOOP ON ERROR SWITCH
4092
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 25
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0109
4093 SUBTTL DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS
4094
4095 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4096
4097 005400 SN=5400
4098 000000 XX=0
4099 532400 YY=532400
4100
4101 Q5400: REPEAT ^D18,<
4102 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4103 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4104 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4105
4106 SN=SN+1
4107 XX=XX!<XX/2>
4108 YY=YY+1000
4109 IFE XX,<XX=400000>
4110 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
4111 MOVSI AC-1,YY ;SET-UP RESULT
4112 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4113 CAME AC,AC-1 ;TEST EXPONENT
4114 ER3 AC,SN ;INCORRECT EXPONENT
4115 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4116 >
4117
4118 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4119 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4120 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4121
4122 005401 SN=SN+1
4123 000000 XX=XX!<XX/2>
4124 533400 YY=YY+1000
4125 400000 IFE XX,<XX=400000>
4126 032705 205 02 0 00 400000 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
4127 032706 205 03 0 00 533400 MOVSI AC-1,YY ;SET-UP RESULT
4128 032707 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4129 032710 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4130 032711 003 04 0 00 005401 ER3 AC,SN ;INCORRECT EXPONENT
4131 032712 321 10 0 00 032705 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4132
4133
4134 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4135 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4136 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4137
4138 005402 SN=SN+1
4139 600000 XX=XX!<XX/2>
4140 534400 YY=YY+1000
4141 IFE XX,<XX=400000>
4142 032713 205 02 0 00 600000 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
4143 032714 205 03 0 00 534400 MOVSI AC-1,YY ;SET-UP RESULT
4144 032715 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4145 032716 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4146 032717 003 04 0 00 005402 ER3 AC,SN ;INCORRECT EXPONENT
4147 032720 321 10 0 00 032713 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 25-1
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0110
4148
4149
4150 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4151 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4152 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4153
4154 005403 SN=SN+1
4155 700000 XX=XX!<XX/2>
4156 535400 YY=YY+1000
4157 IFE XX,<XX=400000>
4158 032721 205 02 0 00 700000 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
4159 032722 205 03 0 00 535400 MOVSI AC-1,YY ;SET-UP RESULT
4160 032723 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4161 032724 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4162 032725 003 04 0 00 005403 ER3 AC,SN ;INCORRECT EXPONENT
4163 032726 321 10 0 00 032721 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4164
4165
4166 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4167 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4168 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4169
4170 005404 SN=SN+1
4171 740000 XX=XX!<XX/2>
4172 536400 YY=YY+1000
4173 IFE XX,<XX=400000>
4174 032727 205 02 0 00 740000 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
4175 032730 205 03 0 00 536400 MOVSI AC-1,YY ;SET-UP RESULT
4176 032731 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4177 032732 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4178 032733 003 04 0 00 005404 ER3 AC,SN ;INCORRECT EXPONENT
4179 032734 321 10 0 00 032727 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4180
4181
4182 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4183 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4184 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4185
4186 005405 SN=SN+1
4187 760000 XX=XX!<XX/2>
4188 537400 YY=YY+1000
4189 IFE XX,<XX=400000>
4190 032735 205 02 0 00 760000 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
4191 032736 205 03 0 00 537400 MOVSI AC-1,YY ;SET-UP RESULT
4192 032737 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4193 032740 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4194 032741 003 04 0 00 005405 ER3 AC,SN ;INCORRECT EXPONENT
4195 032742 321 10 0 00 032735 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4196
4197
4198 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4199 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4200 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4201
4202 005406 SN=SN+1
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 25-2
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0111
4203 770000 XX=XX!<XX/2>
4204 540400 YY=YY+1000
4205 IFE XX,<XX=400000>
4206 032743 205 02 0 00 770000 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
4207 032744 205 03 0 00 540400 MOVSI AC-1,YY ;SET-UP RESULT
4208 032745 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4209 032746 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4210 032747 003 04 0 00 005406 ER3 AC,SN ;INCORRECT EXPONENT
4211 032750 321 10 0 00 032743 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4212
4213
4214 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4215 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4216 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4217
4218 005407 SN=SN+1
4219 774000 XX=XX!<XX/2>
4220 541400 YY=YY+1000
4221 IFE XX,<XX=400000>
4222 032751 205 02 0 00 774000 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
4223 032752 205 03 0 00 541400 MOVSI AC-1,YY ;SET-UP RESULT
4224 032753 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4225 032754 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4226 032755 003 04 0 00 005407 ER3 AC,SN ;INCORRECT EXPONENT
4227 032756 321 10 0 00 032751 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4228
4229
4230 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4231 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4232 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4233
4234 005410 SN=SN+1
4235 776000 XX=XX!<XX/2>
4236 542400 YY=YY+1000
4237 IFE XX,<XX=400000>
4238 032757 205 02 0 00 776000 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
4239 032760 205 03 0 00 542400 MOVSI AC-1,YY ;SET-UP RESULT
4240 032761 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4241 032762 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4242 032763 003 04 0 00 005410 ER3 AC,SN ;INCORRECT EXPONENT
4243 032764 321 10 0 00 032757 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4244
4245
4246 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4247 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4248 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4249
4250 005411 SN=SN+1
4251 777000 XX=XX!<XX/2>
4252 543400 YY=YY+1000
4253 IFE XX,<XX=400000>
4254 032765 205 02 0 00 777000 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
4255 032766 205 03 0 00 543400 MOVSI AC-1,YY ;SET-UP RESULT
4256 032767 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4257 032770 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 25-3
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0112
4258 032771 003 04 0 00 005411 ER3 AC,SN ;INCORRECT EXPONENT
4259 032772 321 10 0 00 032765 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4260
4261
4262 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4263 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4264 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4265
4266 005412 SN=SN+1
4267 777400 XX=XX!<XX/2>
4268 544400 YY=YY+1000
4269 IFE XX,<XX=400000>
4270 032773 205 02 0 00 777400 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
4271 032774 205 03 0 00 544400 MOVSI AC-1,YY ;SET-UP RESULT
4272 032775 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4273 032776 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4274 032777 003 04 0 00 005412 ER3 AC,SN ;INCORRECT EXPONENT
4275 033000 321 10 0 00 032773 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4276
4277
4278 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4279 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4280 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4281
4282 005413 SN=SN+1
4283 777600 XX=XX!<XX/2>
4284 545400 YY=YY+1000
4285 IFE XX,<XX=400000>
4286 033001 205 02 0 00 777600 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
4287 033002 205 03 0 00 545400 MOVSI AC-1,YY ;SET-UP RESULT
4288 033003 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4289 033004 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4290 033005 003 04 0 00 005413 ER3 AC,SN ;INCORRECT EXPONENT
4291 033006 321 10 0 00 033001 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4292
4293
4294 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4295 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4296 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4297
4298 005414 SN=SN+1
4299 777700 XX=XX!<XX/2>
4300 546400 YY=YY+1000
4301 IFE XX,<XX=400000>
4302 033007 205 02 0 00 777700 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
4303 033010 205 03 0 00 546400 MOVSI AC-1,YY ;SET-UP RESULT
4304 033011 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4305 033012 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4306 033013 003 04 0 00 005414 ER3 AC,SN ;INCORRECT EXPONENT
4307 033014 321 10 0 00 033007 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4308
4309
4310 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4311 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4312 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 25-4
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0113
4313
4314 005415 SN=SN+1
4315 777740 XX=XX!<XX/2>
4316 547400 YY=YY+1000
4317 IFE XX,<XX=400000>
4318 033015 205 02 0 00 777740 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
4319 033016 205 03 0 00 547400 MOVSI AC-1,YY ;SET-UP RESULT
4320 033017 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4321 033020 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4322 033021 003 04 0 00 005415 ER3 AC,SN ;INCORRECT EXPONENT
4323 033022 321 10 0 00 033015 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4324
4325
4326 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4327 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4328 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4329
4330 005416 SN=SN+1
4331 777760 XX=XX!<XX/2>
4332 550400 YY=YY+1000
4333 IFE XX,<XX=400000>
4334 033023 205 02 0 00 777760 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
4335 033024 205 03 0 00 550400 MOVSI AC-1,YY ;SET-UP RESULT
4336 033025 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4337 033026 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4338 033027 003 04 0 00 005416 ER3 AC,SN ;INCORRECT EXPONENT
4339 033030 321 10 0 00 033023 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4340
4341
4342 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4343 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4344 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4345
4346 005417 SN=SN+1
4347 777770 XX=XX!<XX/2>
4348 551400 YY=YY+1000
4349 IFE XX,<XX=400000>
4350 033031 205 02 0 00 777770 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
4351 033032 205 03 0 00 551400 MOVSI AC-1,YY ;SET-UP RESULT
4352 033033 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4353 033034 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4354 033035 003 04 0 00 005417 ER3 AC,SN ;INCORRECT EXPONENT
4355 033036 321 10 0 00 033031 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4356
4357
4358 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4359 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4360 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4361
4362 005420 SN=SN+1
4363 777774 XX=XX!<XX/2>
4364 552400 YY=YY+1000
4365 IFE XX,<XX=400000>
4366 033037 205 02 0 00 777774 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
4367 033040 205 03 0 00 552400 MOVSI AC-1,YY ;SET-UP RESULT
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 25-5
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0114
4368 033041 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4369 033042 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4370 033043 003 04 0 00 005420 ER3 AC,SN ;INCORRECT EXPONENT
4371 033044 321 10 0 00 033037 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4372
4373
4374 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4375 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4376 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4377
4378 005421 SN=SN+1
4379 777776 XX=XX!<XX/2>
4380 553400 YY=YY+1000
4381 IFE XX,<XX=400000>
4382 033045 205 02 0 00 777776 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
4383 033046 205 03 0 00 553400 MOVSI AC-1,YY ;SET-UP RESULT
4384 033047 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4385 033050 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4386 033051 003 04 0 00 005421 ER3 AC,SN ;INCORRECT EXPONENT
4387 033052 321 10 0 00 033045 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4388
4389
4390 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4391 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4392 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4393
4394 005422 SN=SN+1
4395 777777 XX=XX!<XX/2>
4396 554400 YY=YY+1000
4397 IFE XX,<XX=400000>
4398 033053 205 02 0 00 777777 MOVSI AC-2,XX ;INITIALIZE FIXED POINT WORD
4399 033054 205 03 0 00 554400 MOVSI AC-1,YY ;SET-UP RESULT
4400 033055 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4401 033056 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4402 033057 003 04 0 00 005422 ER3 AC,SN ;INCORRECT EXPONENT
4403 033060 321 10 0 00 033053 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4404
4405 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 25-6
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0115
4406 005500 SN=5500
4407 000000 XX=0
4408 554000 YY=554000
4409
4410 Q5500: REPEAT ^D18,<
4411 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4412 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4413 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4414
4415 SN=SN+1
4416 XX=XX!<XX/2>
4417 YY=YY+1000
4418 IFE XX,<XX=400000>
4419 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
4420 MOVSI AC-1,YY+400 ;SET-UP RESULT
4421 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4422 CAME AC,AC-1 ;TEST EXPONENT
4423 ER3 AC,SN ;INCORRECT EXPONENT
4424 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4425 >
4426
4427 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4428 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4429 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4430
4431 005501 SN=SN+1
4432 000000 XX=XX!<XX/2>
4433 555000 YY=YY+1000
4434 400000 IFE XX,<XX=400000>
4435 033061 561 02 0 00 400000 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
4436 033062 205 03 0 00 555400 MOVSI AC-1,YY+400 ;SET-UP RESULT
4437 033063 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4438 033064 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4439 033065 003 04 0 00 005501 ER3 AC,SN ;INCORRECT EXPONENT
4440 033066 321 10 0 00 033061 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4441
4442
4443 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4444 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4445 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4446
4447 005502 SN=SN+1
4448 600000 XX=XX!<XX/2>
4449 556000 YY=YY+1000
4450 IFE XX,<XX=400000>
4451 033067 561 02 0 00 600000 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
4452 033070 205 03 0 00 556400 MOVSI AC-1,YY+400 ;SET-UP RESULT
4453 033071 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4454 033072 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4455 033073 003 04 0 00 005502 ER3 AC,SN ;INCORRECT EXPONENT
4456 033074 321 10 0 00 033067 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4457
4458
4459 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4460 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 25-7
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0116
4461 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4462
4463 005503 SN=SN+1
4464 700000 XX=XX!<XX/2>
4465 557000 YY=YY+1000
4466 IFE XX,<XX=400000>
4467 033075 561 02 0 00 700000 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
4468 033076 205 03 0 00 557400 MOVSI AC-1,YY+400 ;SET-UP RESULT
4469 033077 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4470 033100 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4471 033101 003 04 0 00 005503 ER3 AC,SN ;INCORRECT EXPONENT
4472 033102 321 10 0 00 033075 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4473
4474
4475 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4476 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4477 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4478
4479 005504 SN=SN+1
4480 740000 XX=XX!<XX/2>
4481 560000 YY=YY+1000
4482 IFE XX,<XX=400000>
4483 033103 561 02 0 00 740000 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
4484 033104 205 03 0 00 560400 MOVSI AC-1,YY+400 ;SET-UP RESULT
4485 033105 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4486 033106 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4487 033107 003 04 0 00 005504 ER3 AC,SN ;INCORRECT EXPONENT
4488 033110 321 10 0 00 033103 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4489
4490
4491 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4492 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4493 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4494
4495 005505 SN=SN+1
4496 760000 XX=XX!<XX/2>
4497 561000 YY=YY+1000
4498 IFE XX,<XX=400000>
4499 033111 561 02 0 00 760000 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
4500 033112 205 03 0 00 561400 MOVSI AC-1,YY+400 ;SET-UP RESULT
4501 033113 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4502 033114 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4503 033115 003 04 0 00 005505 ER3 AC,SN ;INCORRECT EXPONENT
4504 033116 321 10 0 00 033111 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4505
4506
4507 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4508 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4509 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4510
4511 005506 SN=SN+1
4512 770000 XX=XX!<XX/2>
4513 562000 YY=YY+1000
4514 IFE XX,<XX=400000>
4515 033117 561 02 0 00 770000 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 25-8
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0117
4516 033120 205 03 0 00 562400 MOVSI AC-1,YY+400 ;SET-UP RESULT
4517 033121 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4518 033122 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4519 033123 003 04 0 00 005506 ER3 AC,SN ;INCORRECT EXPONENT
4520 033124 321 10 0 00 033117 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4521
4522
4523 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4524 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4525 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4526
4527 005507 SN=SN+1
4528 774000 XX=XX!<XX/2>
4529 563000 YY=YY+1000
4530 IFE XX,<XX=400000>
4531 033125 561 02 0 00 774000 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
4532 033126 205 03 0 00 563400 MOVSI AC-1,YY+400 ;SET-UP RESULT
4533 033127 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4534 033130 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4535 033131 003 04 0 00 005507 ER3 AC,SN ;INCORRECT EXPONENT
4536 033132 321 10 0 00 033125 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4537
4538
4539 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4540 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4541 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4542
4543 005510 SN=SN+1
4544 776000 XX=XX!<XX/2>
4545 564000 YY=YY+1000
4546 IFE XX,<XX=400000>
4547 033133 561 02 0 00 776000 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
4548 033134 205 03 0 00 564400 MOVSI AC-1,YY+400 ;SET-UP RESULT
4549 033135 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4550 033136 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4551 033137 003 04 0 00 005510 ER3 AC,SN ;INCORRECT EXPONENT
4552 033140 321 10 0 00 033133 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4553
4554
4555 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4556 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4557 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4558
4559 005511 SN=SN+1
4560 777000 XX=XX!<XX/2>
4561 565000 YY=YY+1000
4562 IFE XX,<XX=400000>
4563 033141 561 02 0 00 777000 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
4564 033142 205 03 0 00 565400 MOVSI AC-1,YY+400 ;SET-UP RESULT
4565 033143 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4566 033144 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4567 033145 003 04 0 00 005511 ER3 AC,SN ;INCORRECT EXPONENT
4568 033146 321 10 0 00 033141 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4569
4570
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 25-9
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0118
4571 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4572 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4573 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4574
4575 005512 SN=SN+1
4576 777400 XX=XX!<XX/2>
4577 566000 YY=YY+1000
4578 IFE XX,<XX=400000>
4579 033147 561 02 0 00 777400 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
4580 033150 205 03 0 00 566400 MOVSI AC-1,YY+400 ;SET-UP RESULT
4581 033151 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4582 033152 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4583 033153 003 04 0 00 005512 ER3 AC,SN ;INCORRECT EXPONENT
4584 033154 321 10 0 00 033147 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4585
4586
4587 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4588 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4589 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4590
4591 005513 SN=SN+1
4592 777600 XX=XX!<XX/2>
4593 567000 YY=YY+1000
4594 IFE XX,<XX=400000>
4595 033155 561 02 0 00 777600 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
4596 033156 205 03 0 00 567400 MOVSI AC-1,YY+400 ;SET-UP RESULT
4597 033157 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4598 033160 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4599 033161 003 04 0 00 005513 ER3 AC,SN ;INCORRECT EXPONENT
4600 033162 321 10 0 00 033155 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4601
4602
4603 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4604 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4605 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4606
4607 005514 SN=SN+1
4608 777700 XX=XX!<XX/2>
4609 570000 YY=YY+1000
4610 IFE XX,<XX=400000>
4611 033163 561 02 0 00 777700 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
4612 033164 205 03 0 00 570400 MOVSI AC-1,YY+400 ;SET-UP RESULT
4613 033165 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4614 033166 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4615 033167 003 04 0 00 005514 ER3 AC,SN ;INCORRECT EXPONENT
4616 033170 321 10 0 00 033163 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4617
4618
4619 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4620 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4621 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4622
4623 005515 SN=SN+1
4624 777740 XX=XX!<XX/2>
4625 571000 YY=YY+1000
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 25-10
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0119
4626 IFE XX,<XX=400000>
4627 033171 561 02 0 00 777740 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
4628 033172 205 03 0 00 571400 MOVSI AC-1,YY+400 ;SET-UP RESULT
4629 033173 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4630 033174 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4631 033175 003 04 0 00 005515 ER3 AC,SN ;INCORRECT EXPONENT
4632 033176 321 10 0 00 033171 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4633
4634
4635 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4636 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4637 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4638
4639 005516 SN=SN+1
4640 777760 XX=XX!<XX/2>
4641 572000 YY=YY+1000
4642 IFE XX,<XX=400000>
4643 033177 561 02 0 00 777760 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
4644 033200 205 03 0 00 572400 MOVSI AC-1,YY+400 ;SET-UP RESULT
4645 033201 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4646 033202 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4647 033203 003 04 0 00 005516 ER3 AC,SN ;INCORRECT EXPONENT
4648 033204 321 10 0 00 033177 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4649
4650
4651 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4652 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4653 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4654
4655 005517 SN=SN+1
4656 777770 XX=XX!<XX/2>
4657 573000 YY=YY+1000
4658 IFE XX,<XX=400000>
4659 033205 561 02 0 00 777770 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
4660 033206 205 03 0 00 573400 MOVSI AC-1,YY+400 ;SET-UP RESULT
4661 033207 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4662 033210 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4663 033211 003 04 0 00 005517 ER3 AC,SN ;INCORRECT EXPONENT
4664 033212 321 10 0 00 033205 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4665
4666
4667 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4668 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4669 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4670
4671 005520 SN=SN+1
4672 777774 XX=XX!<XX/2>
4673 574000 YY=YY+1000
4674 IFE XX,<XX=400000>
4675 033213 561 02 0 00 777774 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
4676 033214 205 03 0 00 574400 MOVSI AC-1,YY+400 ;SET-UP RESULT
4677 033215 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4678 033216 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4679 033217 003 04 0 00 005520 ER3 AC,SN ;INCORRECT EXPONENT
4680 033220 321 10 0 00 033213 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 25-11
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0120
4681
4682
4683 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4684 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4685 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4686
4687 005521 SN=SN+1
4688 777776 XX=XX!<XX/2>
4689 575000 YY=YY+1000
4690 IFE XX,<XX=400000>
4691 033221 561 02 0 00 777776 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
4692 033222 205 03 0 00 575400 MOVSI AC-1,YY+400 ;SET-UP RESULT
4693 033223 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4694 033224 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4695 033225 003 04 0 00 005521 ER3 AC,SN ;INCORRECT EXPONENT
4696 033226 321 10 0 00 033221 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4697
4698
4699 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4700 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4701 ;TEST EXPONENT CALCULATION FOR NEGATIVE NUMBERS
4702
4703 005522 SN=SN+1
4704 777777 XX=XX!<XX/2>
4705 576000 YY=YY+1000
4706 IFE XX,<XX=400000>
4707 033227 561 02 0 00 777777 HRROI AC-2,XX ;INITIALIZE FIXED POINT WORD
4708 033230 205 03 0 00 576400 MOVSI AC-1,YY+400 ;SET-UP RESULT
4709 033231 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4710 033232 312 04 0 00 000003 CAME AC,AC-1 ;TEST EXPONENT
4711 033233 003 04 0 00 005522 ER3 AC,SN ;INCORRECT EXPONENT
4712 033234 321 10 0 00 033227 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
4713
4714 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 25-12
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - EXPONENT CALCULATION - NEGATIVE NUMBERS SEQ 0121
4715 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO. 0
4716 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4717 ;FLOAT A WORD OF ALL ZEROS
4718
4719 033235 403 02 0 00 000003 Q5600: SETZB AC-2,AC-1 ;INITIALIZE FIXED POINT WORD
4720 033236 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. 0 IN 'E' TO FLT PT
4721 033237 312 04 0 00 000003 CAME AC,AC-1 ;EXAMINE RESULT FOR 0
4722 033240 003 04 0 00 005601 ER3 AC,5601 ;CONVERSION FAILED
4723 033241 321 10 0 00 033235 JUMPL SAC,Q5600 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 26
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS SEQ 0122
4724 SUBTTL DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS
4725
4726 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4727 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4728 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
4729
4730 033242 201 02 0 00 777400 Q5700: MOVEI AC-2,777400 ;INITIALIZE FIX PT WORD
4731 033243 505 02 0 00 377777 HRLI AC-2,377777
4732 033244 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP RESULT
4733 033245 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4734 033246 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
4735 033247 003 04 0 00 005701 ER3 AC,5701 ;FRACTION NOT ALL ONES
4736 033250 321 10 0 00 033242 JUMPL SAC,Q5700 ;LOOP ON ERROR SWITCH
4737
4738 006000 SN=6000
4739 777200 XX=777200
4740 000000 YY=0
4741
4742 Q6000: REPEAT ^D10,<
4743 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4744 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4745 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
4746
4747 SN=SN+1
4748 XX=<XX+XX+400>&777777
4749 YY=<YY+YY+1>&777777
4750 IFE <YY-1>,<YY=777776>
4751 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR.
4752 TLZ AC-2,1B18
4753 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7
4754 HRRI AC-1,YY
4755 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4756 CAME AC,AC-1 ;TEST FRACTION
4757 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
4758 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
4759 >
4760
4761 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4762 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4763 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
4764
4765 006001 SN=SN+1
4766 777000 XX=<XX+XX+400>&777777
4767 000001 YY=<YY+YY+1>&777777
4768 777776 IFE <YY-1>,<YY=777776>
4769 033251 561 02 0 00 777000 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR.
4770 033252 621 02 0 00 400000 TLZ AC-2,1B18
4771 033253 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7
4772 033254 541 03 0 00 777776 HRRI AC-1,YY
4773 033255 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4774 033256 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
4775 033257 003 04 0 00 006001 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
4776 033260 321 10 0 00 033251 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
4777
4778
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 26-1
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS SEQ 0123
4779 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4780 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4781 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
4782
4783 006002 SN=SN+1
4784 776400 XX=<XX+XX+400>&777777
4785 777775 YY=<YY+YY+1>&777777
4786 IFE <YY-1>,<YY=777776>
4787 033261 561 02 0 00 776400 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR.
4788 033262 621 02 0 00 400000 TLZ AC-2,1B18
4789 033263 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7
4790 033264 541 03 0 00 777775 HRRI AC-1,YY
4791 033265 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4792 033266 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
4793 033267 003 04 0 00 006002 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
4794 033270 321 10 0 00 033261 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
4795
4796
4797 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4798 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4799 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
4800
4801 006003 SN=SN+1
4802 775400 XX=<XX+XX+400>&777777
4803 777773 YY=<YY+YY+1>&777777
4804 IFE <YY-1>,<YY=777776>
4805 033271 561 02 0 00 775400 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR.
4806 033272 621 02 0 00 400000 TLZ AC-2,1B18
4807 033273 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7
4808 033274 541 03 0 00 777773 HRRI AC-1,YY
4809 033275 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4810 033276 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
4811 033277 003 04 0 00 006003 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
4812 033300 321 10 0 00 033271 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
4813
4814
4815 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4816 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4817 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
4818
4819 006004 SN=SN+1
4820 773400 XX=<XX+XX+400>&777777
4821 777767 YY=<YY+YY+1>&777777
4822 IFE <YY-1>,<YY=777776>
4823 033301 561 02 0 00 773400 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR.
4824 033302 621 02 0 00 400000 TLZ AC-2,1B18
4825 033303 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7
4826 033304 541 03 0 00 777767 HRRI AC-1,YY
4827 033305 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4828 033306 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
4829 033307 003 04 0 00 006004 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
4830 033310 321 10 0 00 033301 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
4831
4832
4833 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 26-2
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS SEQ 0124
4834 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4835 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
4836
4837 006005 SN=SN+1
4838 767400 XX=<XX+XX+400>&777777
4839 777757 YY=<YY+YY+1>&777777
4840 IFE <YY-1>,<YY=777776>
4841 033311 561 02 0 00 767400 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR.
4842 033312 621 02 0 00 400000 TLZ AC-2,1B18
4843 033313 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7
4844 033314 541 03 0 00 777757 HRRI AC-1,YY
4845 033315 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4846 033316 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
4847 033317 003 04 0 00 006005 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
4848 033320 321 10 0 00 033311 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
4849
4850
4851 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4852 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4853 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
4854
4855 006006 SN=SN+1
4856 757400 XX=<XX+XX+400>&777777
4857 777737 YY=<YY+YY+1>&777777
4858 IFE <YY-1>,<YY=777776>
4859 033321 561 02 0 00 757400 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR.
4860 033322 621 02 0 00 400000 TLZ AC-2,1B18
4861 033323 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7
4862 033324 541 03 0 00 777737 HRRI AC-1,YY
4863 033325 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4864 033326 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
4865 033327 003 04 0 00 006006 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
4866 033330 321 10 0 00 033321 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
4867
4868
4869 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4870 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4871 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
4872
4873 006007 SN=SN+1
4874 737400 XX=<XX+XX+400>&777777
4875 777677 YY=<YY+YY+1>&777777
4876 IFE <YY-1>,<YY=777776>
4877 033331 561 02 0 00 737400 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR.
4878 033332 621 02 0 00 400000 TLZ AC-2,1B18
4879 033333 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7
4880 033334 541 03 0 00 777677 HRRI AC-1,YY
4881 033335 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4882 033336 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
4883 033337 003 04 0 00 006007 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
4884 033340 321 10 0 00 033331 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
4885
4886
4887 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4888 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 26-3
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS SEQ 0125
4889 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
4890
4891 006010 SN=SN+1
4892 677400 XX=<XX+XX+400>&777777
4893 777577 YY=<YY+YY+1>&777777
4894 IFE <YY-1>,<YY=777776>
4895 033341 561 02 0 00 677400 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR.
4896 033342 621 02 0 00 400000 TLZ AC-2,1B18
4897 033343 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7
4898 033344 541 03 0 00 777577 HRRI AC-1,YY
4899 033345 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4900 033346 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
4901 033347 003 04 0 00 006010 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
4902 033350 321 10 0 00 033341 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
4903
4904
4905 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4906 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4907 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
4908
4909 006011 SN=SN+1
4910 577400 XX=<XX+XX+400>&777777
4911 777377 YY=<YY+YY+1>&777777
4912 IFE <YY-1>,<YY=777776>
4913 033351 561 02 0 00 577400 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR.
4914 033352 621 02 0 00 400000 TLZ AC-2,1B18
4915 033353 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7
4916 033354 541 03 0 00 777377 HRRI AC-1,YY
4917 033355 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4918 033356 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
4919 033357 003 04 0 00 006011 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
4920 033360 321 10 0 00 033351 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
4921
4922
4923 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4924 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4925 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
4926
4927 006012 SN=SN+1
4928 377400 XX=<XX+XX+400>&777777
4929 776777 YY=<YY+YY+1>&777777
4930 IFE <YY-1>,<YY=777776>
4931 033361 561 02 0 00 377400 HRROI AC-2,XX ;INITIALIZE FIX PT. NBR.
4932 033362 621 02 0 00 400000 TLZ AC-2,1B18
4933 033363 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT7
4934 033364 541 03 0 00 776777 HRRI AC-1,YY
4935 033365 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4936 033366 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
4937 033367 003 04 0 00 006012 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
4938 033370 321 10 0 00 033361 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
4939
4940 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 26-4
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS SEQ 0126
4941 006100 SN=6100
4942 000000 XX=0
4943 776777 YY=776777
4944 Q6100: REPEAT ^D8,<
4945 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4946 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4947 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
4948
4949 SN=SN+1
4950 XX=<XX+XX+1>&377777
4951 YY=<YY+YY+1>&777777
4952 IFE <XX-1>,<XX=377776>
4953 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
4954 HRRI AC-2,777400
4955 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT
4956 HRRI AC-1,YY
4957 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4958 CAME AC,AC-1 ;TEST FRACTION
4959 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
4960 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
4961 >
4962
4963 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4964 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4965 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
4966
4967 006101 SN=SN+1
4968 000001 XX=<XX+XX+1>&377777
4969 775777 YY=<YY+YY+1>&777777
4970 377776 IFE <XX-1>,<XX=377776>
4971 033371 525 02 0 00 377776 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
4972 033372 541 02 0 00 777400 HRRI AC-2,777400
4973 033373 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT
4974 033374 541 03 0 00 775777 HRRI AC-1,YY
4975 033375 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4976 033376 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
4977 033377 003 04 0 00 006101 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
4978 033400 321 10 0 00 033371 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
4979
4980
4981 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
4982 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
4983 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
4984
4985 006102 SN=SN+1
4986 377775 XX=<XX+XX+1>&377777
4987 773777 YY=<YY+YY+1>&777777
4988 IFE <XX-1>,<XX=377776>
4989 033401 525 02 0 00 377775 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
4990 033402 541 02 0 00 777400 HRRI AC-2,777400
4991 033403 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT
4992 033404 541 03 0 00 773777 HRRI AC-1,YY
4993 033405 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
4994 033406 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
4995 033407 003 04 0 00 006102 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 26-5
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS SEQ 0127
4996 033410 321 10 0 00 033401 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
4997
4998
4999 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5000 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5001 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
5002
5003 006103 SN=SN+1
5004 377773 XX=<XX+XX+1>&377777
5005 767777 YY=<YY+YY+1>&777777
5006 IFE <XX-1>,<XX=377776>
5007 033411 525 02 0 00 377773 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
5008 033412 541 02 0 00 777400 HRRI AC-2,777400
5009 033413 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT
5010 033414 541 03 0 00 767777 HRRI AC-1,YY
5011 033415 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
5012 033416 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5013 033417 003 04 0 00 006103 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
5014 033420 321 10 0 00 033411 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
5015
5016
5017 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5018 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5019 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
5020
5021 006104 SN=SN+1
5022 377767 XX=<XX+XX+1>&377777
5023 757777 YY=<YY+YY+1>&777777
5024 IFE <XX-1>,<XX=377776>
5025 033421 525 02 0 00 377767 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
5026 033422 541 02 0 00 777400 HRRI AC-2,777400
5027 033423 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT
5028 033424 541 03 0 00 757777 HRRI AC-1,YY
5029 033425 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
5030 033426 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5031 033427 003 04 0 00 006104 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
5032 033430 321 10 0 00 033421 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
5033
5034
5035 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5036 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5037 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
5038
5039 006105 SN=SN+1
5040 377757 XX=<XX+XX+1>&377777
5041 737777 YY=<YY+YY+1>&777777
5042 IFE <XX-1>,<XX=377776>
5043 033431 525 02 0 00 377757 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
5044 033432 541 02 0 00 777400 HRRI AC-2,777400
5045 033433 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT
5046 033434 541 03 0 00 737777 HRRI AC-1,YY
5047 033435 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
5048 033436 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5049 033437 003 04 0 00 006105 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
5050 033440 321 10 0 00 033431 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 26-6
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS SEQ 0128
5051
5052
5053 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5054 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5055 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
5056
5057 006106 SN=SN+1
5058 377737 XX=<XX+XX+1>&377777
5059 677777 YY=<YY+YY+1>&777777
5060 IFE <XX-1>,<XX=377776>
5061 033441 525 02 0 00 377737 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
5062 033442 541 02 0 00 777400 HRRI AC-2,777400
5063 033443 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT
5064 033444 541 03 0 00 677777 HRRI AC-1,YY
5065 033445 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
5066 033446 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5067 033447 003 04 0 00 006106 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
5068 033450 321 10 0 00 033441 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
5069
5070
5071 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5072 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5073 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
5074
5075 006107 SN=SN+1
5076 377677 XX=<XX+XX+1>&377777
5077 577777 YY=<YY+YY+1>&777777
5078 IFE <XX-1>,<XX=377776>
5079 033451 525 02 0 00 377677 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
5080 033452 541 02 0 00 777400 HRRI AC-2,777400
5081 033453 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT
5082 033454 541 03 0 00 577777 HRRI AC-1,YY
5083 033455 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
5084 033456 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5085 033457 003 04 0 00 006107 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
5086 033460 321 10 0 00 033451 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
5087
5088
5089 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5090 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5091 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
5092
5093 006110 SN=SN+1
5094 377577 XX=<XX+XX+1>&377777
5095 377777 YY=<YY+YY+1>&777777
5096 IFE <XX-1>,<XX=377776>
5097 033461 525 02 0 00 377577 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
5098 033462 541 02 0 00 777400 HRRI AC-2,777400
5099 033463 525 03 0 00 243777 HRLOI AC-1,243777 ;SET-UP EXPECTED RESULT
5100 033464 541 03 0 00 377777 HRRI AC-1,YY
5101 033465 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
5102 033466 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5103 033467 003 04 0 00 006110 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
5104 033470 321 10 0 00 033461 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
5105
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 27
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS SEQ 0129
5106 006200 SN=6200
5107 377577 XX=377577
5108 000000 YY=0
5109
5110 Q6200: REPEAT ^D8,<
5111 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5112 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5113 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
5114
5115 SN=SN+1
5116 XX=<XX+XX+1>&377777
5117 YY=<YY+YY+1>&777
5118 IFE <YY-1>,<YY=776>
5119 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
5120 HRRI AC-2,777400
5121 HRLOI AC-1,243000+YY ;SET-UP EXPECTED RESULT
5122 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
5123 CAME AC,AC-1 ;TEST FRACTION
5124 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
5125 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
5126 >
5127
5128 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5129 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5130 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
5131
5132 006201 SN=SN+1
5133 377377 XX=<XX+XX+1>&377777
5134 000001 YY=<YY+YY+1>&777
5135 000776 IFE <YY-1>,<YY=776>
5136 033471 525 02 0 00 377377 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
5137 033472 541 02 0 00 777400 HRRI AC-2,777400
5138 033473 525 03 0 00 243776 HRLOI AC-1,243000+YY ;SET-UP EXPECTED RESULT
5139 033474 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
5140 033475 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5141 033476 003 04 0 00 006201 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
5142 033477 321 10 0 00 033471 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
5143
5144
5145 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5146 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5147 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
5148
5149 006202 SN=SN+1
5150 376777 XX=<XX+XX+1>&377777
5151 000775 YY=<YY+YY+1>&777
5152 IFE <YY-1>,<YY=776>
5153 033500 525 02 0 00 376777 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
5154 033501 541 02 0 00 777400 HRRI AC-2,777400
5155 033502 525 03 0 00 243775 HRLOI AC-1,243000+YY ;SET-UP EXPECTED RESULT
5156 033503 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
5157 033504 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5158 033505 003 04 0 00 006202 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
5159 033506 321 10 0 00 033500 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
5160
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 27-1
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS SEQ 0130
5161
5162 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5163 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5164 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
5165
5166 006203 SN=SN+1
5167 375777 XX=<XX+XX+1>&377777
5168 000773 YY=<YY+YY+1>&777
5169 IFE <YY-1>,<YY=776>
5170 033507 525 02 0 00 375777 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
5171 033510 541 02 0 00 777400 HRRI AC-2,777400
5172 033511 525 03 0 00 243773 HRLOI AC-1,243000+YY ;SET-UP EXPECTED RESULT
5173 033512 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
5174 033513 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5175 033514 003 04 0 00 006203 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
5176 033515 321 10 0 00 033507 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
5177
5178
5179 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5180 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5181 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
5182
5183 006204 SN=SN+1
5184 373777 XX=<XX+XX+1>&377777
5185 000767 YY=<YY+YY+1>&777
5186 IFE <YY-1>,<YY=776>
5187 033516 525 02 0 00 373777 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
5188 033517 541 02 0 00 777400 HRRI AC-2,777400
5189 033520 525 03 0 00 243767 HRLOI AC-1,243000+YY ;SET-UP EXPECTED RESULT
5190 033521 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
5191 033522 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5192 033523 003 04 0 00 006204 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
5193 033524 321 10 0 00 033516 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
5194
5195
5196 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5197 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5198 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
5199
5200 006205 SN=SN+1
5201 367777 XX=<XX+XX+1>&377777
5202 000757 YY=<YY+YY+1>&777
5203 IFE <YY-1>,<YY=776>
5204 033525 525 02 0 00 367777 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
5205 033526 541 02 0 00 777400 HRRI AC-2,777400
5206 033527 525 03 0 00 243757 HRLOI AC-1,243000+YY ;SET-UP EXPECTED RESULT
5207 033530 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
5208 033531 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5209 033532 003 04 0 00 006205 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
5210 033533 321 10 0 00 033525 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
5211
5212
5213 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5214 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5215 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 27-2
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ZEROS SEQ 0131
5216
5217 006206 SN=SN+1
5218 357777 XX=<XX+XX+1>&377777
5219 000737 YY=<YY+YY+1>&777
5220 IFE <YY-1>,<YY=776>
5221 033534 525 02 0 00 357777 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
5222 033535 541 02 0 00 777400 HRRI AC-2,777400
5223 033536 525 03 0 00 243737 HRLOI AC-1,243000+YY ;SET-UP EXPECTED RESULT
5224 033537 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
5225 033540 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5226 033541 003 04 0 00 006206 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
5227 033542 321 10 0 00 033534 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
5228
5229
5230 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5231 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5232 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
5233
5234 006207 SN=SN+1
5235 337777 XX=<XX+XX+1>&377777
5236 000677 YY=<YY+YY+1>&777
5237 IFE <YY-1>,<YY=776>
5238 033543 525 02 0 00 337777 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
5239 033544 541 02 0 00 777400 HRRI AC-2,777400
5240 033545 525 03 0 00 243677 HRLOI AC-1,243000+YY ;SET-UP EXPECTED RESULT
5241 033546 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
5242 033547 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5243 033550 003 04 0 00 006207 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
5244 033551 321 10 0 00 033543 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
5245
5246
5247 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5248 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5249 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - POS NOS.
5250
5251 006210 SN=SN+1
5252 277777 XX=<XX+XX+1>&377777
5253 000577 YY=<YY+YY+1>&777
5254 IFE <YY-1>,<YY=776>
5255 033552 525 02 0 00 277777 HRLOI AC-2,XX ;INITIALIZE FIX PT. NBR.
5256 033553 541 02 0 00 777400 HRRI AC-2,777400
5257 033554 525 03 0 00 243577 HRLOI AC-1,243000+YY ;SET-UP EXPECTED RESULT
5258 033555 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT
5259 033556 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5260 033557 003 04 0 00 006210 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
5261 033560 321 10 0 00 033552 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
5262
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 28
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES SEQ 0132
5263 SUBTTL DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES
5264
5265 ;RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS
5266
5267 006300 SN=6300
5268 000200 XX=200
5269 000000 YY=0
5270
5271 Q6300: REPEAT ^D10,<
5272 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5273 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5274 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
5275
5276 SN=SN+1
5277 XX=XX+XX
5278 YY=YY+YY
5279 IFE YY,<YY=1>
5280 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR.
5281 HRRI AC-2,XX
5282 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT
5283 HRRI AC-1,YY
5284 FLTR AC,AC-2 ;CONVERT TO FLT PT
5285 CAME AC,AC-1 ;TEST FRACTION
5286 ER3 AC,SN ;FAILURE
5287 JUMPL SAC,.-7 ;LOOP ON ERROR
5288 >
5289
5290 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5291 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5292 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
5293
5294 006301 SN=SN+1
5295 000400 XX=XX+XX
5296 000000 YY=YY+YY
5297 000001 IFE YY,<YY=1>
5298 033561 205 02 0 00 200000 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR.
5299 033562 541 02 0 00 000400 HRRI AC-2,XX
5300 033563 205 03 0 00 243400 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT
5301 033564 541 03 0 00 000001 HRRI AC-1,YY
5302 033565 127 04 0 00 000002 FLTR AC,AC-2 ;CONVERT TO FLT PT
5303 033566 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5304 033567 003 04 0 00 006301 ER3 AC,SN ;FAILURE
5305 033570 321 10 0 00 033561 JUMPL SAC,.-7 ;LOOP ON ERROR
5306
5307
5308 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5309 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5310 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
5311
5312 006302 SN=SN+1
5313 001000 XX=XX+XX
5314 000002 YY=YY+YY
5315 IFE YY,<YY=1>
5316 033571 205 02 0 00 200000 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR.
5317 033572 541 02 0 00 001000 HRRI AC-2,XX
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 28-1
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES SEQ 0133
5318 033573 205 03 0 00 243400 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT
5319 033574 541 03 0 00 000002 HRRI AC-1,YY
5320 033575 127 04 0 00 000002 FLTR AC,AC-2 ;CONVERT TO FLT PT
5321 033576 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5322 033577 003 04 0 00 006302 ER3 AC,SN ;FAILURE
5323 033600 321 10 0 00 033571 JUMPL SAC,.-7 ;LOOP ON ERROR
5324
5325
5326 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5327 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5328 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
5329
5330 006303 SN=SN+1
5331 002000 XX=XX+XX
5332 000004 YY=YY+YY
5333 IFE YY,<YY=1>
5334 033601 205 02 0 00 200000 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR.
5335 033602 541 02 0 00 002000 HRRI AC-2,XX
5336 033603 205 03 0 00 243400 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT
5337 033604 541 03 0 00 000004 HRRI AC-1,YY
5338 033605 127 04 0 00 000002 FLTR AC,AC-2 ;CONVERT TO FLT PT
5339 033606 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5340 033607 003 04 0 00 006303 ER3 AC,SN ;FAILURE
5341 033610 321 10 0 00 033601 JUMPL SAC,.-7 ;LOOP ON ERROR
5342
5343
5344 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5345 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5346 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
5347
5348 006304 SN=SN+1
5349 004000 XX=XX+XX
5350 000010 YY=YY+YY
5351 IFE YY,<YY=1>
5352 033611 205 02 0 00 200000 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR.
5353 033612 541 02 0 00 004000 HRRI AC-2,XX
5354 033613 205 03 0 00 243400 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT
5355 033614 541 03 0 00 000010 HRRI AC-1,YY
5356 033615 127 04 0 00 000002 FLTR AC,AC-2 ;CONVERT TO FLT PT
5357 033616 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5358 033617 003 04 0 00 006304 ER3 AC,SN ;FAILURE
5359 033620 321 10 0 00 033611 JUMPL SAC,.-7 ;LOOP ON ERROR
5360
5361
5362 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5363 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5364 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
5365
5366 006305 SN=SN+1
5367 010000 XX=XX+XX
5368 000020 YY=YY+YY
5369 IFE YY,<YY=1>
5370 033621 205 02 0 00 200000 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR.
5371 033622 541 02 0 00 010000 HRRI AC-2,XX
5372 033623 205 03 0 00 243400 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 28-2
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES SEQ 0134
5373 033624 541 03 0 00 000020 HRRI AC-1,YY
5374 033625 127 04 0 00 000002 FLTR AC,AC-2 ;CONVERT TO FLT PT
5375 033626 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5376 033627 003 04 0 00 006305 ER3 AC,SN ;FAILURE
5377 033630 321 10 0 00 033621 JUMPL SAC,.-7 ;LOOP ON ERROR
5378
5379
5380 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5381 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5382 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
5383
5384 006306 SN=SN+1
5385 020000 XX=XX+XX
5386 000040 YY=YY+YY
5387 IFE YY,<YY=1>
5388 033631 205 02 0 00 200000 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR.
5389 033632 541 02 0 00 020000 HRRI AC-2,XX
5390 033633 205 03 0 00 243400 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT
5391 033634 541 03 0 00 000040 HRRI AC-1,YY
5392 033635 127 04 0 00 000002 FLTR AC,AC-2 ;CONVERT TO FLT PT
5393 033636 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5394 033637 003 04 0 00 006306 ER3 AC,SN ;FAILURE
5395 033640 321 10 0 00 033631 JUMPL SAC,.-7 ;LOOP ON ERROR
5396
5397
5398 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5399 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5400 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
5401
5402 006307 SN=SN+1
5403 040000 XX=XX+XX
5404 000100 YY=YY+YY
5405 IFE YY,<YY=1>
5406 033641 205 02 0 00 200000 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR.
5407 033642 541 02 0 00 040000 HRRI AC-2,XX
5408 033643 205 03 0 00 243400 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT
5409 033644 541 03 0 00 000100 HRRI AC-1,YY
5410 033645 127 04 0 00 000002 FLTR AC,AC-2 ;CONVERT TO FLT PT
5411 033646 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5412 033647 003 04 0 00 006307 ER3 AC,SN ;FAILURE
5413 033650 321 10 0 00 033641 JUMPL SAC,.-7 ;LOOP ON ERROR
5414
5415
5416 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5417 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5418 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
5419
5420 006310 SN=SN+1
5421 100000 XX=XX+XX
5422 000200 YY=YY+YY
5423 IFE YY,<YY=1>
5424 033651 205 02 0 00 200000 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR.
5425 033652 541 02 0 00 100000 HRRI AC-2,XX
5426 033653 205 03 0 00 243400 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT
5427 033654 541 03 0 00 000200 HRRI AC-1,YY
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 28-3
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES SEQ 0135
5428 033655 127 04 0 00 000002 FLTR AC,AC-2 ;CONVERT TO FLT PT
5429 033656 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5430 033657 003 04 0 00 006310 ER3 AC,SN ;FAILURE
5431 033660 321 10 0 00 033651 JUMPL SAC,.-7 ;LOOP ON ERROR
5432
5433
5434 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5435 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5436 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
5437
5438 006311 SN=SN+1
5439 200000 XX=XX+XX
5440 000400 YY=YY+YY
5441 IFE YY,<YY=1>
5442 033661 205 02 0 00 200000 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR.
5443 033662 541 02 0 00 200000 HRRI AC-2,XX
5444 033663 205 03 0 00 243400 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT
5445 033664 541 03 0 00 000400 HRRI AC-1,YY
5446 033665 127 04 0 00 000002 FLTR AC,AC-2 ;CONVERT TO FLT PT
5447 033666 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5448 033667 003 04 0 00 006311 ER3 AC,SN ;FAILURE
5449 033670 321 10 0 00 033661 JUMPL SAC,.-7 ;LOOP ON ERROR
5450
5451
5452 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5453 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5454 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
5455
5456 006312 SN=SN+1
5457 400000 XX=XX+XX
5458 001000 YY=YY+YY
5459 IFE YY,<YY=1>
5460 033671 205 02 0 00 200000 MOVSI AC-2,1B19 ;INITIALIZE FIX PT NBR.
5461 033672 541 02 0 00 400000 HRRI AC-2,XX
5462 033673 205 03 0 00 243400 MOVSI AC-1,243400 ;SETUP EXPECTED RESULT
5463 033674 541 03 0 00 001000 HRRI AC-1,YY
5464 033675 127 04 0 00 000002 FLTR AC,AC-2 ;CONVERT TO FLT PT
5465 033676 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5466 033677 003 04 0 00 006312 ER3 AC,SN ;FAILURE
5467 033700 321 10 0 00 033671 JUMPL SAC,.-7 ;LOOP ON ERROR
5468
5469 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 28-4
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES SEQ 0136
5470 006400 SN=6400
5471 000000 XX=0
5472 001000 YY=1000
5473
5474 Q6400: REPEAT ^D8,<
5475 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT
5476 ;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5477 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
5478
5479 SN=SN+1
5480 XX=XX+XX
5481 YY=YY+YY
5482 IFE XX,<XX=1>
5483 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
5484 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT
5485 HRRI AC-1,YY
5486 FLTR AC,AC-2 ;*FIXED TO FLOAT
5487 CAME AC,AC-1 ;TEST FRACTION
5488 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
5489 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
5490 >
5491
5492 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT
5493 ;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5494 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
5495
5496 006401 SN=SN+1
5497 000000 XX=XX+XX
5498 002000 YY=YY+YY
5499 000001 IFE XX,<XX=1>
5500 033701 205 02 0 00 200001 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
5501 033702 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT
5502 033703 541 03 0 00 002000 HRRI AC-1,YY
5503 033704 127 04 0 00 000002 FLTR AC,AC-2 ;*FIXED TO FLOAT
5504 033705 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5505 033706 003 04 0 00 006401 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
5506 033707 321 10 0 00 033701 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
5507
5508
5509 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT
5510 ;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5511 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
5512
5513 006402 SN=SN+1
5514 000002 XX=XX+XX
5515 004000 YY=YY+YY
5516 IFE XX,<XX=1>
5517 033710 205 02 0 00 200002 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
5518 033711 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT
5519 033712 541 03 0 00 004000 HRRI AC-1,YY
5520 033713 127 04 0 00 000002 FLTR AC,AC-2 ;*FIXED TO FLOAT
5521 033714 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5522 033715 003 04 0 00 006402 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
5523 033716 321 10 0 00 033710 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
5524
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 28-5
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES SEQ 0137
5525
5526 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT
5527 ;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5528 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
5529
5530 006403 SN=SN+1
5531 000004 XX=XX+XX
5532 010000 YY=YY+YY
5533 IFE XX,<XX=1>
5534 033717 205 02 0 00 200004 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
5535 033720 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT
5536 033721 541 03 0 00 010000 HRRI AC-1,YY
5537 033722 127 04 0 00 000002 FLTR AC,AC-2 ;*FIXED TO FLOAT
5538 033723 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5539 033724 003 04 0 00 006403 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
5540 033725 321 10 0 00 033717 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
5541
5542
5543 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT
5544 ;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5545 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
5546
5547 006404 SN=SN+1
5548 000010 XX=XX+XX
5549 020000 YY=YY+YY
5550 IFE XX,<XX=1>
5551 033726 205 02 0 00 200010 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
5552 033727 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT
5553 033730 541 03 0 00 020000 HRRI AC-1,YY
5554 033731 127 04 0 00 000002 FLTR AC,AC-2 ;*FIXED TO FLOAT
5555 033732 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5556 033733 003 04 0 00 006404 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
5557 033734 321 10 0 00 033726 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
5558
5559
5560 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT
5561 ;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5562 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
5563
5564 006405 SN=SN+1
5565 000020 XX=XX+XX
5566 040000 YY=YY+YY
5567 IFE XX,<XX=1>
5568 033735 205 02 0 00 200020 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
5569 033736 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT
5570 033737 541 03 0 00 040000 HRRI AC-1,YY
5571 033740 127 04 0 00 000002 FLTR AC,AC-2 ;*FIXED TO FLOAT
5572 033741 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5573 033742 003 04 0 00 006405 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
5574 033743 321 10 0 00 033735 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
5575
5576
5577 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT
5578 ;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5579 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 28-6
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES SEQ 0138
5580
5581 006406 SN=SN+1
5582 000040 XX=XX+XX
5583 100000 YY=YY+YY
5584 IFE XX,<XX=1>
5585 033744 205 02 0 00 200040 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
5586 033745 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT
5587 033746 541 03 0 00 100000 HRRI AC-1,YY
5588 033747 127 04 0 00 000002 FLTR AC,AC-2 ;*FIXED TO FLOAT
5589 033750 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5590 033751 003 04 0 00 006406 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
5591 033752 321 10 0 00 033744 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
5592
5593
5594 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT
5595 ;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5596 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
5597
5598 006407 SN=SN+1
5599 000100 XX=XX+XX
5600 200000 YY=YY+YY
5601 IFE XX,<XX=1>
5602 033753 205 02 0 00 200100 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
5603 033754 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT
5604 033755 541 03 0 00 200000 HRRI AC-1,YY
5605 033756 127 04 0 00 000002 FLTR AC,AC-2 ;*FIXED TO FLOAT
5606 033757 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5607 033760 003 04 0 00 006407 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
5608 033761 321 10 0 00 033753 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
5609
5610
5611 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIXED PT
5612 ;NO IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5613 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
5614
5615 006410 SN=SN+1
5616 000200 XX=XX+XX
5617 400000 YY=YY+YY
5618 IFE XX,<XX=1>
5619 033762 205 02 0 00 200200 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
5620 033763 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT
5621 033764 541 03 0 00 400000 HRRI AC-1,YY
5622 033765 127 04 0 00 000002 FLTR AC,AC-2 ;*FIXED TO FLOAT
5623 033766 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5624 033767 003 04 0 00 006410 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
5625 033770 321 10 0 00 033762 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
5626
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 29
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES SEQ 0139
5627 006500 SN=6500
5628 000200 XX=200
5629 000000 YY=0
5630
5631 Q6500: REPEAT ^D8,<
5632 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5633 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5634 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
5635
5636 SN=SN+1
5637 XX=XX+XX
5638 YY=YY+YY
5639 IFE YY,<YY=1>
5640 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
5641 MOVSI AC-1,243400+YY ;SET-UP EXPECTED RESULT
5642 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
5643 IN AC
5644 CAME AC,AC-1 ;TEST FRACTION
5645 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
5646 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
5647 >
5648
5649 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5650 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5651 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
5652
5653 006501 SN=SN+1
5654 000400 XX=XX+XX
5655 000000 YY=YY+YY
5656 000001 IFE YY,<YY=1>
5657 033771 205 02 0 00 200400 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
5658 033772 205 03 0 00 243401 MOVSI AC-1,243400+YY ;SET-UP EXPECTED RESULT
5659 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
5660 033773 127 04 0 00 000002 IN AC
5661 033774 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5662 033775 003 04 0 00 006501 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
5663 033776 321 10 0 00 033771 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
5664
5665
5666 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5667 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5668 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
5669
5670 006502 SN=SN+1
5671 001000 XX=XX+XX
5672 000002 YY=YY+YY
5673 IFE YY,<YY=1>
5674 033777 205 02 0 00 201000 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
5675 034000 205 03 0 00 243402 MOVSI AC-1,243400+YY ;SET-UP EXPECTED RESULT
5676 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
5677 034001 127 04 0 00 000002 IN AC
5678 034002 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5679 034003 003 04 0 00 006502 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
5680 034004 321 10 0 00 033777 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
5681
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 29-1
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES SEQ 0140
5682
5683 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5684 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5685 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
5686
5687 006503 SN=SN+1
5688 002000 XX=XX+XX
5689 000004 YY=YY+YY
5690 IFE YY,<YY=1>
5691 034005 205 02 0 00 202000 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
5692 034006 205 03 0 00 243404 MOVSI AC-1,243400+YY ;SET-UP EXPECTED RESULT
5693 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
5694 034007 127 04 0 00 000002 IN AC
5695 034010 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5696 034011 003 04 0 00 006503 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
5697 034012 321 10 0 00 034005 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
5698
5699
5700 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5701 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5702 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
5703
5704 006504 SN=SN+1
5705 004000 XX=XX+XX
5706 000010 YY=YY+YY
5707 IFE YY,<YY=1>
5708 034013 205 02 0 00 204000 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
5709 034014 205 03 0 00 243410 MOVSI AC-1,243400+YY ;SET-UP EXPECTED RESULT
5710 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
5711 034015 127 04 0 00 000002 IN AC
5712 034016 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5713 034017 003 04 0 00 006504 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
5714 034020 321 10 0 00 034013 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
5715
5716
5717 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5718 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5719 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
5720
5721 006505 SN=SN+1
5722 010000 XX=XX+XX
5723 000020 YY=YY+YY
5724 IFE YY,<YY=1>
5725 034021 205 02 0 00 210000 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
5726 034022 205 03 0 00 243420 MOVSI AC-1,243400+YY ;SET-UP EXPECTED RESULT
5727 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
5728 034023 127 04 0 00 000002 IN AC
5729 034024 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5730 034025 003 04 0 00 006505 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
5731 034026 321 10 0 00 034021 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
5732
5733
5734 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5735 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5736 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 29-2
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - POSITIVE NUMBERS - RIPPLE ONES SEQ 0141
5737
5738 006506 SN=SN+1
5739 020000 XX=XX+XX
5740 000040 YY=YY+YY
5741 IFE YY,<YY=1>
5742 034027 205 02 0 00 220000 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
5743 034030 205 03 0 00 243440 MOVSI AC-1,243400+YY ;SET-UP EXPECTED RESULT
5744 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
5745 034031 127 04 0 00 000002 IN AC
5746 034032 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5747 034033 003 04 0 00 006506 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
5748 034034 321 10 0 00 034027 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
5749
5750
5751 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5752 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5753 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
5754
5755 006507 SN=SN+1
5756 040000 XX=XX+XX
5757 000100 YY=YY+YY
5758 IFE YY,<YY=1>
5759 034035 205 02 0 00 240000 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
5760 034036 205 03 0 00 243500 MOVSI AC-1,243400+YY ;SET-UP EXPECTED RESULT
5761 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
5762 034037 127 04 0 00 000002 IN AC
5763 034040 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5764 034041 003 04 0 00 006507 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
5765 034042 321 10 0 00 034035 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
5766
5767
5768 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5769 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5770 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - POS NOS.
5771
5772 006510 SN=SN+1
5773 100000 XX=XX+XX
5774 000200 YY=YY+YY
5775 IFE YY,<YY=1>
5776 034043 205 02 0 00 300000 MOVSI AC-2,1B19+XX ;INITIALIZE FIX PT. NBR.
5777 034044 205 03 0 00 243600 MOVSI AC-1,243400+YY ;SET-UP EXPECTED RESULT
5778 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
5779 034045 127 04 0 00 000002 IN AC
5780 034046 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5781 034047 003 04 0 00 006510 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
5782 034050 321 10 0 00 034043 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
5783
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 30
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0142
5784 SUBTTL DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES
5785
5786 ;RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS
5787
5788 006600 SN=6600
5789 000200 XX=200
5790 000000 YY=0
5791
5792 Q6600: REPEAT ^D10,<
5793 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5794 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5795 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
5796
5797 SN=SN+1
5798 XX=XX+XX
5799 YY=YY+YY
5800 IFE YY,<YY=1>
5801 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR.
5802 HRRI AC-2,XX
5803 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
5804 HRRI AC-1,YY
5805 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
5806 CAME AC,AC-1 ;TEST FRACTION
5807 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
5808 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
5809 >
5810
5811 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5812 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5813 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
5814
5815 006601 SN=SN+1
5816 000400 XX=XX+XX
5817 000000 YY=YY+YY
5818 000001 IFE YY,<YY=1>
5819 034051 205 02 0 00 400000 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR.
5820 034052 541 02 0 00 000400 HRRI AC-2,XX
5821 034053 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
5822 034054 541 03 0 00 000001 HRRI AC-1,YY
5823 034055 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
5824 034056 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5825 034057 003 04 0 00 006601 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
5826 034060 321 10 0 00 034051 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
5827
5828
5829 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5830 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5831 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
5832
5833 006602 SN=SN+1
5834 001000 XX=XX+XX
5835 000002 YY=YY+YY
5836 IFE YY,<YY=1>
5837 034061 205 02 0 00 400000 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR.
5838 034062 541 02 0 00 001000 HRRI AC-2,XX
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 30-1
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0143
5839 034063 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
5840 034064 541 03 0 00 000002 HRRI AC-1,YY
5841 034065 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
5842 034066 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5843 034067 003 04 0 00 006602 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
5844 034070 321 10 0 00 034061 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
5845
5846
5847 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5848 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5849 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
5850
5851 006603 SN=SN+1
5852 002000 XX=XX+XX
5853 000004 YY=YY+YY
5854 IFE YY,<YY=1>
5855 034071 205 02 0 00 400000 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR.
5856 034072 541 02 0 00 002000 HRRI AC-2,XX
5857 034073 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
5858 034074 541 03 0 00 000004 HRRI AC-1,YY
5859 034075 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
5860 034076 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5861 034077 003 04 0 00 006603 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
5862 034100 321 10 0 00 034071 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
5863
5864
5865 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5866 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5867 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
5868
5869 006604 SN=SN+1
5870 004000 XX=XX+XX
5871 000010 YY=YY+YY
5872 IFE YY,<YY=1>
5873 034101 205 02 0 00 400000 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR.
5874 034102 541 02 0 00 004000 HRRI AC-2,XX
5875 034103 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
5876 034104 541 03 0 00 000010 HRRI AC-1,YY
5877 034105 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
5878 034106 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5879 034107 003 04 0 00 006604 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
5880 034110 321 10 0 00 034101 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
5881
5882
5883 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5884 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5885 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
5886
5887 006605 SN=SN+1
5888 010000 XX=XX+XX
5889 000020 YY=YY+YY
5890 IFE YY,<YY=1>
5891 034111 205 02 0 00 400000 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR.
5892 034112 541 02 0 00 010000 HRRI AC-2,XX
5893 034113 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 30-2
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0144
5894 034114 541 03 0 00 000020 HRRI AC-1,YY
5895 034115 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
5896 034116 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5897 034117 003 04 0 00 006605 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
5898 034120 321 10 0 00 034111 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
5899
5900
5901 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5902 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5903 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
5904
5905 006606 SN=SN+1
5906 020000 XX=XX+XX
5907 000040 YY=YY+YY
5908 IFE YY,<YY=1>
5909 034121 205 02 0 00 400000 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR.
5910 034122 541 02 0 00 020000 HRRI AC-2,XX
5911 034123 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
5912 034124 541 03 0 00 000040 HRRI AC-1,YY
5913 034125 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
5914 034126 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5915 034127 003 04 0 00 006606 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
5916 034130 321 10 0 00 034121 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
5917
5918
5919 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5920 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5921 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
5922
5923 006607 SN=SN+1
5924 040000 XX=XX+XX
5925 000100 YY=YY+YY
5926 IFE YY,<YY=1>
5927 034131 205 02 0 00 400000 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR.
5928 034132 541 02 0 00 040000 HRRI AC-2,XX
5929 034133 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
5930 034134 541 03 0 00 000100 HRRI AC-1,YY
5931 034135 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
5932 034136 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5933 034137 003 04 0 00 006607 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
5934 034140 321 10 0 00 034131 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
5935
5936
5937 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5938 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5939 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
5940
5941 006610 SN=SN+1
5942 100000 XX=XX+XX
5943 000200 YY=YY+YY
5944 IFE YY,<YY=1>
5945 034141 205 02 0 00 400000 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR.
5946 034142 541 02 0 00 100000 HRRI AC-2,XX
5947 034143 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
5948 034144 541 03 0 00 000200 HRRI AC-1,YY
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 30-3
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0145
5949 034145 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
5950 034146 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5951 034147 003 04 0 00 006610 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
5952 034150 321 10 0 00 034141 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
5953
5954
5955 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5956 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5957 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
5958
5959 006611 SN=SN+1
5960 200000 XX=XX+XX
5961 000400 YY=YY+YY
5962 IFE YY,<YY=1>
5963 034151 205 02 0 00 400000 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR.
5964 034152 541 02 0 00 200000 HRRI AC-2,XX
5965 034153 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
5966 034154 541 03 0 00 000400 HRRI AC-1,YY
5967 034155 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
5968 034156 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5969 034157 003 04 0 00 006611 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
5970 034160 321 10 0 00 034151 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
5971
5972
5973 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5974 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5975 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
5976
5977 006612 SN=SN+1
5978 400000 XX=XX+XX
5979 001000 YY=YY+YY
5980 IFE YY,<YY=1>
5981 034161 205 02 0 00 400000 MOVSI AC-2,1B18 ;INITIALIZE FIX PT. NBR.
5982 034162 541 02 0 00 400000 HRRI AC-2,XX
5983 034163 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
5984 034164 541 03 0 00 001000 HRRI AC-1,YY
5985 034165 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
5986 034166 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
5987 034167 003 04 0 00 006612 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
5988 034170 321 10 0 00 034161 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
5989
5990 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 30-4
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0146
5991 006700 SN=6700
5992 000000 XX=0
5993 001000 YY=1000
5994
5995 Q6700: REPEAT ^D8,<
5996 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
5997 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
5998 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
5999
6000 SN=SN+1
6001 XX=XX+XX
6002 YY=YY+YY
6003 IFE XX,<XX=1>
6004 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6005 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
6006 HRRI AC-1,YY
6007 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6008 IN AC
6009 CAME AC,AC-1 ;TEST FRACTION
6010 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
6011 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
6012 >
6013
6014 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6015 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6016 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
6017
6018 006701 SN=SN+1
6019 000000 XX=XX+XX
6020 002000 YY=YY+YY
6021 000001 IFE XX,<XX=1>
6022 034171 205 02 0 00 400001 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6023 034172 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
6024 034173 541 03 0 00 002000 HRRI AC-1,YY
6025 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6026 034174 127 04 0 00 000002 IN AC
6027 034175 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6028 034176 003 04 0 00 006701 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
6029 034177 321 10 0 00 034171 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
6030
6031
6032 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6033 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6034 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
6035
6036 006702 SN=SN+1
6037 000002 XX=XX+XX
6038 004000 YY=YY+YY
6039 IFE XX,<XX=1>
6040 034200 205 02 0 00 400002 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6041 034201 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
6042 034202 541 03 0 00 004000 HRRI AC-1,YY
6043 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6044 034203 127 04 0 00 000002 IN AC
6045 034204 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 30-5
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0147
6046 034205 003 04 0 00 006702 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
6047 034206 321 10 0 00 034200 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
6048
6049
6050 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6051 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6052 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
6053
6054 006703 SN=SN+1
6055 000004 XX=XX+XX
6056 010000 YY=YY+YY
6057 IFE XX,<XX=1>
6058 034207 205 02 0 00 400004 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6059 034210 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
6060 034211 541 03 0 00 010000 HRRI AC-1,YY
6061 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6062 034212 127 04 0 00 000002 IN AC
6063 034213 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6064 034214 003 04 0 00 006703 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
6065 034215 321 10 0 00 034207 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
6066
6067
6068 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6069 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6070 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
6071
6072 006704 SN=SN+1
6073 000010 XX=XX+XX
6074 020000 YY=YY+YY
6075 IFE XX,<XX=1>
6076 034216 205 02 0 00 400010 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6077 034217 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
6078 034220 541 03 0 00 020000 HRRI AC-1,YY
6079 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6080 034221 127 04 0 00 000002 IN AC
6081 034222 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6082 034223 003 04 0 00 006704 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
6083 034224 321 10 0 00 034216 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
6084
6085
6086 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6087 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6088 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
6089
6090 006705 SN=SN+1
6091 000020 XX=XX+XX
6092 040000 YY=YY+YY
6093 IFE XX,<XX=1>
6094 034225 205 02 0 00 400020 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6095 034226 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
6096 034227 541 03 0 00 040000 HRRI AC-1,YY
6097 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6098 034230 127 04 0 00 000002 IN AC
6099 034231 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6100 034232 003 04 0 00 006705 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 30-6
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0148
6101 034233 321 10 0 00 034225 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
6102
6103
6104 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6105 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6106 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
6107
6108 006706 SN=SN+1
6109 000040 XX=XX+XX
6110 100000 YY=YY+YY
6111 IFE XX,<XX=1>
6112 034234 205 02 0 00 400040 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6113 034235 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
6114 034236 541 03 0 00 100000 HRRI AC-1,YY
6115 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6116 034237 127 04 0 00 000002 IN AC
6117 034240 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6118 034241 003 04 0 00 006706 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
6119 034242 321 10 0 00 034234 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
6120
6121
6122 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6123 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6124 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
6125
6126 006707 SN=SN+1
6127 000100 XX=XX+XX
6128 200000 YY=YY+YY
6129 IFE XX,<XX=1>
6130 034243 205 02 0 00 400100 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6131 034244 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
6132 034245 541 03 0 00 200000 HRRI AC-1,YY
6133 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6134 034246 127 04 0 00 000002 IN AC
6135 034247 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6136 034250 003 04 0 00 006707 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
6137 034251 321 10 0 00 034243 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
6138
6139
6140 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6141 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6142 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
6143
6144 006710 SN=SN+1
6145 000200 XX=XX+XX
6146 400000 YY=YY+YY
6147 IFE XX,<XX=1>
6148 034252 205 02 0 00 400200 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6149 034253 205 03 0 00 534000 MOVSI AC-1,534000 ;SET-UP EXPECTED RESULT
6150 034254 541 03 0 00 400000 HRRI AC-1,YY
6151 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6152 034255 127 04 0 00 000002 IN AC
6153 034256 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6154 034257 003 04 0 00 006710 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
6155 034260 321 10 0 00 034252 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 30-7
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0149
6156
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 31
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0150
6157 007000 SN=7000
6158 000200 XX=200
6159 000000 YY=0
6160
6161 Q7000: REPEAT ^D8,<
6162 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6163 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6164 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
6165
6166 SN=SN+1
6167 XX=XX+XX
6168 YY=YY+YY
6169 IFE YY,<YY=1>
6170 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6171 MOVSI AC-1,534000+YY ;SET-UP EXPECTED RESULT
6172 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6173 IN AC
6174 CAME AC,AC-1 ;TEST FRACTION
6175 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
6176 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
6177 >
6178
6179 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6180 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6181 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
6182
6183 007001 SN=SN+1
6184 000400 XX=XX+XX
6185 000000 YY=YY+YY
6186 000001 IFE YY,<YY=1>
6187 034261 205 02 0 00 400400 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6188 034262 205 03 0 00 534001 MOVSI AC-1,534000+YY ;SET-UP EXPECTED RESULT
6189 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6190 034263 127 04 0 00 000002 IN AC
6191 034264 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6192 034265 003 04 0 00 007001 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
6193 034266 321 10 0 00 034261 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
6194
6195
6196 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6197 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6198 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
6199
6200 007002 SN=SN+1
6201 001000 XX=XX+XX
6202 000002 YY=YY+YY
6203 IFE YY,<YY=1>
6204 034267 205 02 0 00 401000 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6205 034270 205 03 0 00 534002 MOVSI AC-1,534000+YY ;SET-UP EXPECTED RESULT
6206 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6207 034271 127 04 0 00 000002 IN AC
6208 034272 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6209 034273 003 04 0 00 007002 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
6210 034274 321 10 0 00 034267 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
6211
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 31-1
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0151
6212
6213 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6214 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6215 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
6216
6217 007003 SN=SN+1
6218 002000 XX=XX+XX
6219 000004 YY=YY+YY
6220 IFE YY,<YY=1>
6221 034275 205 02 0 00 402000 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6222 034276 205 03 0 00 534004 MOVSI AC-1,534000+YY ;SET-UP EXPECTED RESULT
6223 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6224 034277 127 04 0 00 000002 IN AC
6225 034300 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6226 034301 003 04 0 00 007003 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
6227 034302 321 10 0 00 034275 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
6228
6229
6230 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6231 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6232 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
6233
6234 007004 SN=SN+1
6235 004000 XX=XX+XX
6236 000010 YY=YY+YY
6237 IFE YY,<YY=1>
6238 034303 205 02 0 00 404000 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6239 034304 205 03 0 00 534010 MOVSI AC-1,534000+YY ;SET-UP EXPECTED RESULT
6240 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6241 034305 127 04 0 00 000002 IN AC
6242 034306 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6243 034307 003 04 0 00 007004 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
6244 034310 321 10 0 00 034303 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
6245
6246
6247 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6248 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6249 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
6250
6251 007005 SN=SN+1
6252 010000 XX=XX+XX
6253 000020 YY=YY+YY
6254 IFE YY,<YY=1>
6255 034311 205 02 0 00 410000 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6256 034312 205 03 0 00 534020 MOVSI AC-1,534000+YY ;SET-UP EXPECTED RESULT
6257 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6258 034313 127 04 0 00 000002 IN AC
6259 034314 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6260 034315 003 04 0 00 007005 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
6261 034316 321 10 0 00 034311 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
6262
6263
6264 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6265 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6266 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 31-2
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ONES SEQ 0152
6267
6268 007006 SN=SN+1
6269 020000 XX=XX+XX
6270 000040 YY=YY+YY
6271 IFE YY,<YY=1>
6272 034317 205 02 0 00 420000 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6273 034320 205 03 0 00 534040 MOVSI AC-1,534000+YY ;SET-UP EXPECTED RESULT
6274 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6275 034321 127 04 0 00 000002 IN AC
6276 034322 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6277 034323 003 04 0 00 007006 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
6278 034324 321 10 0 00 034317 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
6279
6280
6281 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6282 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6283 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
6284
6285 007007 SN=SN+1
6286 040000 XX=XX+XX
6287 000100 YY=YY+YY
6288 IFE YY,<YY=1>
6289 034325 205 02 0 00 440000 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6290 034326 205 03 0 00 534100 MOVSI AC-1,534000+YY ;SET-UP EXPECTED RESULT
6291 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6292 034327 127 04 0 00 000002 IN AC
6293 034330 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6294 034331 003 04 0 00 007007 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
6295 034332 321 10 0 00 034325 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
6296
6297
6298 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6299 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6300 ;DATA: RIPPLE A ONE THROUGH A FRACTION FIELD OF ZEROS - NEG NOS.
6301
6302 007010 SN=SN+1
6303 100000 XX=XX+XX
6304 000200 YY=YY+YY
6305 IFE YY,<YY=1>
6306 034333 205 02 0 00 500000 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6307 034334 205 03 0 00 534200 MOVSI AC-1,534000+YY ;SET-UP EXPECTED RESULT
6308 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6309 034335 127 04 0 00 000002 IN AC
6310 034336 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6311 034337 003 04 0 00 007010 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT SET
6312 034340 321 10 0 00 034333 JUMPL SAC,.-5 ;LOOP ON ERROR SWITCH
6313
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 32
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0153
6314 SUBTTL DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS
6315
6316 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6317 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6318 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
6319
6320 034341 205 02 0 00 577777 Q7100: MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR.
6321 034342 541 02 0 00 777400 HRRI AC-2,777400
6322 034343 525 03 0 00 534377 HRLOI AC-1,534377 ;SET-UP EXPECTED RESULT
6323 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6324 034344 127 04 0 00 000002 IN AC
6325 034345 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6326 034346 003 04 0 00 007101 ER3 AC,7101 ;FAILURE IF TESTED BIT IS NOT CLEAR
6327 034347 321 10 0 00 034341 JUMPL SAC,Q7100 ;LOOP ON ERROR SWITCH
6328
6329 007200 SN=7200
6330 777200 XX=777200
6331 000000 YY=0
6332
6333 Q7200: REPEAT ^D10,<
6334 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6335 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6336 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
6337
6338 SN=SN+1
6339 XX=<XX+XX+400>&777777
6340 YY=<YY+YY+1>&777777
6341 IFE <YY-1>,<YY=777776>
6342 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR.
6343 HRRI AC-2,XX
6344 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
6345 HRRI AC-1,YY
6346 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6347 IN AC
6348 CAME AC,AC-1 ;TEST FRACTION
6349 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
6350 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
6351 >
6352
6353 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6354 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6355 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
6356
6357 007201 SN=SN+1
6358 777000 XX=<XX+XX+400>&777777
6359 000001 YY=<YY+YY+1>&777777
6360 777776 IFE <YY-1>,<YY=777776>
6361 034350 205 02 0 00 577777 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR.
6362 034351 541 02 0 00 777000 HRRI AC-2,XX
6363 034352 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
6364 034353 541 03 0 00 777776 HRRI AC-1,YY
6365 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6366 034354 127 04 0 00 000002 IN AC
6367 034355 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6368 034356 003 04 0 00 007201 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 32-1
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0154
6369 034357 321 10 0 00 034350 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
6370
6371
6372 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6373 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6374 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
6375
6376 007202 SN=SN+1
6377 776400 XX=<XX+XX+400>&777777
6378 777775 YY=<YY+YY+1>&777777
6379 IFE <YY-1>,<YY=777776>
6380 034360 205 02 0 00 577777 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR.
6381 034361 541 02 0 00 776400 HRRI AC-2,XX
6382 034362 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
6383 034363 541 03 0 00 777775 HRRI AC-1,YY
6384 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6385 034364 127 04 0 00 000002 IN AC
6386 034365 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6387 034366 003 04 0 00 007202 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
6388 034367 321 10 0 00 034360 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
6389
6390
6391 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6392 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6393 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
6394
6395 007203 SN=SN+1
6396 775400 XX=<XX+XX+400>&777777
6397 777773 YY=<YY+YY+1>&777777
6398 IFE <YY-1>,<YY=777776>
6399 034370 205 02 0 00 577777 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR.
6400 034371 541 02 0 00 775400 HRRI AC-2,XX
6401 034372 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
6402 034373 541 03 0 00 777773 HRRI AC-1,YY
6403 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6404 034374 127 04 0 00 000002 IN AC
6405 034375 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6406 034376 003 04 0 00 007203 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
6407 034377 321 10 0 00 034370 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
6408
6409
6410 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6411 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6412 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
6413
6414 007204 SN=SN+1
6415 773400 XX=<XX+XX+400>&777777
6416 777767 YY=<YY+YY+1>&777777
6417 IFE <YY-1>,<YY=777776>
6418 034400 205 02 0 00 577777 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR.
6419 034401 541 02 0 00 773400 HRRI AC-2,XX
6420 034402 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
6421 034403 541 03 0 00 777767 HRRI AC-1,YY
6422 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6423 034404 127 04 0 00 000002 IN AC
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 32-2
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0155
6424 034405 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6425 034406 003 04 0 00 007204 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
6426 034407 321 10 0 00 034400 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
6427
6428
6429 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6430 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6431 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
6432
6433 007205 SN=SN+1
6434 767400 XX=<XX+XX+400>&777777
6435 777757 YY=<YY+YY+1>&777777
6436 IFE <YY-1>,<YY=777776>
6437 034410 205 02 0 00 577777 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR.
6438 034411 541 02 0 00 767400 HRRI AC-2,XX
6439 034412 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
6440 034413 541 03 0 00 777757 HRRI AC-1,YY
6441 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6442 034414 127 04 0 00 000002 IN AC
6443 034415 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6444 034416 003 04 0 00 007205 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
6445 034417 321 10 0 00 034410 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
6446
6447
6448 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6449 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6450 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
6451
6452 007206 SN=SN+1
6453 757400 XX=<XX+XX+400>&777777
6454 777737 YY=<YY+YY+1>&777777
6455 IFE <YY-1>,<YY=777776>
6456 034420 205 02 0 00 577777 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR.
6457 034421 541 02 0 00 757400 HRRI AC-2,XX
6458 034422 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
6459 034423 541 03 0 00 777737 HRRI AC-1,YY
6460 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6461 034424 127 04 0 00 000002 IN AC
6462 034425 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6463 034426 003 04 0 00 007206 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
6464 034427 321 10 0 00 034420 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
6465
6466
6467 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6468 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6469 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
6470
6471 007207 SN=SN+1
6472 737400 XX=<XX+XX+400>&777777
6473 777677 YY=<YY+YY+1>&777777
6474 IFE <YY-1>,<YY=777776>
6475 034430 205 02 0 00 577777 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR.
6476 034431 541 02 0 00 737400 HRRI AC-2,XX
6477 034432 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
6478 034433 541 03 0 00 777677 HRRI AC-1,YY
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 32-3
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0156
6479 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6480 034434 127 04 0 00 000002 IN AC
6481 034435 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6482 034436 003 04 0 00 007207 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
6483 034437 321 10 0 00 034430 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
6484
6485
6486 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6487 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6488 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
6489
6490 007210 SN=SN+1
6491 677400 XX=<XX+XX+400>&777777
6492 777577 YY=<YY+YY+1>&777777
6493 IFE <YY-1>,<YY=777776>
6494 034440 205 02 0 00 577777 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR.
6495 034441 541 02 0 00 677400 HRRI AC-2,XX
6496 034442 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
6497 034443 541 03 0 00 777577 HRRI AC-1,YY
6498 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6499 034444 127 04 0 00 000002 IN AC
6500 034445 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6501 034446 003 04 0 00 007210 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
6502 034447 321 10 0 00 034440 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
6503
6504
6505 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6506 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6507 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
6508
6509 007211 SN=SN+1
6510 577400 XX=<XX+XX+400>&777777
6511 777377 YY=<YY+YY+1>&777777
6512 IFE <YY-1>,<YY=777776>
6513 034450 205 02 0 00 577777 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR.
6514 034451 541 02 0 00 577400 HRRI AC-2,XX
6515 034452 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
6516 034453 541 03 0 00 777377 HRRI AC-1,YY
6517 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6518 034454 127 04 0 00 000002 IN AC
6519 034455 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6520 034456 003 04 0 00 007211 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
6521 034457 321 10 0 00 034450 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
6522
6523
6524 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6525 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6526 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
6527
6528 007212 SN=SN+1
6529 377400 XX=<XX+XX+400>&777777
6530 776777 YY=<YY+YY+1>&777777
6531 IFE <YY-1>,<YY=777776>
6532 034460 205 02 0 00 577777 MOVSI AC-2,577777 ;INITIALIZE FIX PT. NBR.
6533 034461 541 02 0 00 377400 HRRI AC-2,XX
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 32-4
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0157
6534 034462 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
6535 034463 541 03 0 00 776777 HRRI AC-1,YY
6536 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6537 034464 127 04 0 00 000002 IN AC
6538 034465 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6539 034466 003 04 0 00 007212 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
6540 034467 321 10 0 00 034460 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
6541
6542 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 32-5
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0158
6543 007300 SN=7300
6544 000000 XX=0
6545 776777 YY=776777
6546
6547 Q7300: REPEAT ^D8,<
6548 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6549 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6550 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
6551
6552 SN=SN+1
6553 XX=<XX+XX+1>&177777
6554 YY=<YY+YY+1>&777777
6555 IFE <XX-1>,<XX=177776>
6556 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6557 HRRI AC-2,777400
6558 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
6559 HRRI AC-1,YY
6560 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6561 IN AC
6562 CAME AC,AC-1 ;TEST FRACTION
6563 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
6564 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
6565 >
6566
6567 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6568 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6569 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
6570
6571 007301 SN=SN+1
6572 000001 XX=<XX+XX+1>&177777
6573 775777 YY=<YY+YY+1>&777777
6574 177776 IFE <XX-1>,<XX=177776>
6575 034470 205 02 0 00 577776 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6576 034471 541 02 0 00 777400 HRRI AC-2,777400
6577 034472 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
6578 034473 541 03 0 00 775777 HRRI AC-1,YY
6579 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6580 034474 127 04 0 00 000002 IN AC
6581 034475 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6582 034476 003 04 0 00 007301 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
6583 034477 321 10 0 00 034470 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
6584
6585
6586 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6587 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6588 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
6589
6590 007302 SN=SN+1
6591 177775 XX=<XX+XX+1>&177777
6592 773777 YY=<YY+YY+1>&777777
6593 IFE <XX-1>,<XX=177776>
6594 034500 205 02 0 00 577775 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6595 034501 541 02 0 00 777400 HRRI AC-2,777400
6596 034502 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
6597 034503 541 03 0 00 773777 HRRI AC-1,YY
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 32-6
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0159
6598 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6599 034504 127 04 0 00 000002 IN AC
6600 034505 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6601 034506 003 04 0 00 007302 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
6602 034507 321 10 0 00 034500 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
6603
6604
6605 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6606 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6607 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
6608
6609 007303 SN=SN+1
6610 177773 XX=<XX+XX+1>&177777
6611 767777 YY=<YY+YY+1>&777777
6612 IFE <XX-1>,<XX=177776>
6613 034510 205 02 0 00 577773 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6614 034511 541 02 0 00 777400 HRRI AC-2,777400
6615 034512 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
6616 034513 541 03 0 00 767777 HRRI AC-1,YY
6617 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6618 034514 127 04 0 00 000002 IN AC
6619 034515 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6620 034516 003 04 0 00 007303 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
6621 034517 321 10 0 00 034510 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
6622
6623
6624 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6625 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6626 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
6627
6628 007304 SN=SN+1
6629 177767 XX=<XX+XX+1>&177777
6630 757777 YY=<YY+YY+1>&777777
6631 IFE <XX-1>,<XX=177776>
6632 034520 205 02 0 00 577767 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6633 034521 541 02 0 00 777400 HRRI AC-2,777400
6634 034522 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
6635 034523 541 03 0 00 757777 HRRI AC-1,YY
6636 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6637 034524 127 04 0 00 000002 IN AC
6638 034525 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6639 034526 003 04 0 00 007304 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
6640 034527 321 10 0 00 034520 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
6641
6642
6643 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6644 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6645 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
6646
6647 007305 SN=SN+1
6648 177757 XX=<XX+XX+1>&177777
6649 737777 YY=<YY+YY+1>&777777
6650 IFE <XX-1>,<XX=177776>
6651 034530 205 02 0 00 577757 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6652 034531 541 02 0 00 777400 HRRI AC-2,777400
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 32-7
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0160
6653 034532 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
6654 034533 541 03 0 00 737777 HRRI AC-1,YY
6655 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6656 034534 127 04 0 00 000002 IN AC
6657 034535 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6658 034536 003 04 0 00 007305 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
6659 034537 321 10 0 00 034530 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
6660
6661
6662 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6663 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6664 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
6665
6666 007306 SN=SN+1
6667 177737 XX=<XX+XX+1>&177777
6668 677777 YY=<YY+YY+1>&777777
6669 IFE <XX-1>,<XX=177776>
6670 034540 205 02 0 00 577737 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6671 034541 541 02 0 00 777400 HRRI AC-2,777400
6672 034542 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
6673 034543 541 03 0 00 677777 HRRI AC-1,YY
6674 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6675 034544 127 04 0 00 000002 IN AC
6676 034545 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6677 034546 003 04 0 00 007306 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
6678 034547 321 10 0 00 034540 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
6679
6680
6681 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6682 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6683 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
6684
6685 007307 SN=SN+1
6686 177677 XX=<XX+XX+1>&177777
6687 577777 YY=<YY+YY+1>&777777
6688 IFE <XX-1>,<XX=177776>
6689 034550 205 02 0 00 577677 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6690 034551 541 02 0 00 777400 HRRI AC-2,777400
6691 034552 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
6692 034553 541 03 0 00 577777 HRRI AC-1,YY
6693 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6694 034554 127 04 0 00 000002 IN AC
6695 034555 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6696 034556 003 04 0 00 007307 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
6697 034557 321 10 0 00 034550 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
6698
6699
6700 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6701 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6702 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
6703
6704 007310 SN=SN+1
6705 177577 XX=<XX+XX+1>&177777
6706 377777 YY=<YY+YY+1>&777777
6707 IFE <XX-1>,<XX=177776>
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 32-8
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0161
6708 034560 205 02 0 00 577577 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6709 034561 541 02 0 00 777400 HRRI AC-2,777400
6710 034562 205 03 0 00 534377 MOVSI AC-1,534377 ;SET-UP EXPECTED RESULT
6711 034563 541 03 0 00 377777 HRRI AC-1,YY
6712 FLTR AC,AC-2 ;*CONVERT THE FIX PT NO. IN 'E' TO FLT PT AND STORE RESULT
6713 034564 127 04 0 00 000002 IN AC
6714 034565 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6715 034566 003 04 0 00 007310 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
6716 034567 321 10 0 00 034560 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
6717
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 33
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0162
6718
6719 007400 SN=7400
6720 177577 XX=177577
6721 000000 YY=0
6722
6723 Q7400: REPEAT ^D8,<
6724 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6725 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6726 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
6727
6728 SN=SN+1
6729 XX=<XX+XX+1>&177777
6730 YY=<YY+YY+1>&377
6731 IFE <YY-1>,<YY=376>
6732 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6733 HRRI AC-2,777400
6734 HRLOI AC-1,534000+YY ;SET-UP EXPECTED RESULT
6735 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
6736 CAME AC,AC-1 ;TEST FRACTION
6737 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
6738 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
6739 >
6740
6741 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6742 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6743 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
6744
6745 007401 SN=SN+1
6746 177377 XX=<XX+XX+1>&177777
6747 000001 YY=<YY+YY+1>&377
6748 000376 IFE <YY-1>,<YY=376>
6749 034570 205 02 0 00 577377 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6750 034571 541 02 0 00 777400 HRRI AC-2,777400
6751 034572 525 03 0 00 534376 HRLOI AC-1,534000+YY ;SET-UP EXPECTED RESULT
6752 034573 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
6753 034574 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6754 034575 003 04 0 00 007401 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
6755 034576 321 10 0 00 034570 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
6756
6757
6758 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6759 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6760 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
6761
6762 007402 SN=SN+1
6763 176777 XX=<XX+XX+1>&177777
6764 000375 YY=<YY+YY+1>&377
6765 IFE <YY-1>,<YY=376>
6766 034577 205 02 0 00 576777 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6767 034600 541 02 0 00 777400 HRRI AC-2,777400
6768 034601 525 03 0 00 534375 HRLOI AC-1,534000+YY ;SET-UP EXPECTED RESULT
6769 034602 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
6770 034603 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6771 034604 003 04 0 00 007402 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
6772 034605 321 10 0 00 034577 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 33-1
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0163
6773
6774
6775 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6776 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6777 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
6778
6779 007403 SN=SN+1
6780 175777 XX=<XX+XX+1>&177777
6781 000373 YY=<YY+YY+1>&377
6782 IFE <YY-1>,<YY=376>
6783 034606 205 02 0 00 575777 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6784 034607 541 02 0 00 777400 HRRI AC-2,777400
6785 034610 525 03 0 00 534373 HRLOI AC-1,534000+YY ;SET-UP EXPECTED RESULT
6786 034611 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
6787 034612 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6788 034613 003 04 0 00 007403 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
6789 034614 321 10 0 00 034606 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
6790
6791
6792 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6793 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6794 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
6795
6796 007404 SN=SN+1
6797 173777 XX=<XX+XX+1>&177777
6798 000367 YY=<YY+YY+1>&377
6799 IFE <YY-1>,<YY=376>
6800 034615 205 02 0 00 573777 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6801 034616 541 02 0 00 777400 HRRI AC-2,777400
6802 034617 525 03 0 00 534367 HRLOI AC-1,534000+YY ;SET-UP EXPECTED RESULT
6803 034620 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
6804 034621 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6805 034622 003 04 0 00 007404 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
6806 034623 321 10 0 00 034615 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
6807
6808
6809 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6810 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6811 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
6812
6813 007405 SN=SN+1
6814 167777 XX=<XX+XX+1>&177777
6815 000357 YY=<YY+YY+1>&377
6816 IFE <YY-1>,<YY=376>
6817 034624 205 02 0 00 567777 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6818 034625 541 02 0 00 777400 HRRI AC-2,777400
6819 034626 525 03 0 00 534357 HRLOI AC-1,534000+YY ;SET-UP EXPECTED RESULT
6820 034627 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
6821 034630 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6822 034631 003 04 0 00 007405 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
6823 034632 321 10 0 00 034624 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
6824
6825
6826 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6827 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 33-2
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NEGATIVE NUMBERS - RIPPLE ZEROS SEQ 0164
6828 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
6829
6830 007406 SN=SN+1
6831 157777 XX=<XX+XX+1>&177777
6832 000337 YY=<YY+YY+1>&377
6833 IFE <YY-1>,<YY=376>
6834 034633 205 02 0 00 557777 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6835 034634 541 02 0 00 777400 HRRI AC-2,777400
6836 034635 525 03 0 00 534337 HRLOI AC-1,534000+YY ;SET-UP EXPECTED RESULT
6837 034636 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
6838 034637 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6839 034640 003 04 0 00 007406 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
6840 034641 321 10 0 00 034633 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
6841
6842
6843 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6844 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6845 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
6846
6847 007407 SN=SN+1
6848 137777 XX=<XX+XX+1>&177777
6849 000277 YY=<YY+YY+1>&377
6850 IFE <YY-1>,<YY=376>
6851 034642 205 02 0 00 537777 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6852 034643 541 02 0 00 777400 HRRI AC-2,777400
6853 034644 525 03 0 00 534277 HRLOI AC-1,534000+YY ;SET-UP EXPECTED RESULT
6854 034645 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
6855 034646 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6856 034647 003 04 0 00 007407 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
6857 034650 321 10 0 00 034642 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
6858
6859
6860 ;THIS TEST VERIFIES THAT THE FLTR INSTRUCTION CONVERTS THE FIX PT NO.
6861 ;IN MEMORY TO FLT PT AND PLACES THE RESULT IN THE AC
6862 ;DATA: RIPPLE A ZERO THROUGH A FRACTION FIELD OF ONES - NEG NOS.
6863
6864 007410 SN=SN+1
6865 077777 XX=<XX+XX+1>&177777
6866 000177 YY=<YY+YY+1>&377
6867 IFE <YY-1>,<YY=376>
6868 034651 205 02 0 00 477777 MOVSI AC-2,1B18+XX ;INITIALIZE FIX PT. NBR.
6869 034652 541 02 0 00 777400 HRRI AC-2,777400
6870 034653 525 03 0 00 534177 HRLOI AC-1,534000+YY ;SET-UP EXPECTED RESULT
6871 034654 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX TO FLT
6872 034655 312 04 0 00 000003 CAME AC,AC-1 ;TEST FRACTION
6873 034656 003 04 0 00 007410 ER3 AC,SN ;FAILURE IF TESTED BIT IS NOT CLEAR
6874 034657 321 10 0 00 034651 JUMPL SAC,.-6 ;LOOP ON ERROR SWITCH
6875
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 34
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - ROUNDING SEQ 0165
6876 SUBTTL DIAGNOSTIC SECTION - FLTR - ROUNDING
6877
6878 ;TEST FOR ROUNDING
6879 ;CHECK THAT FLTR ROUNDS THE RESULTING FRACTION AWAY FROM 0 SUCH THAT
6880 ;IF THE PART OF THE FRACTION BEING DROPPED IS GREATER THAN OR EQUAL TO
6881 ;1/2 LSB OF THE FRACTION RETAINED, THE FRACTION IS INCREASED BY ONE LSB;
6882 ;OTHERWISE, THE FRACTION IS DECREASED BY THE PART BEING DROPPED.
6883
6884
6885 034660 205 02 0 00 200000 Q7500: MOVSI AC-2,1B19 ;INITIALIZE FIX PT. NBR.
6886 034661 541 02 0 00 000177 HRRI AC-2,177
6887 034662 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT
6888 034663 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX PT NO. IN 'E' TO FLT PT,
6889 ;ROUND RESULT, AND PLACE IN AC.
6890 034664 312 04 0 00 000003 CAME AC,AC-1 ;WAS FRACTION ROUNDED DOWN?
6891 034665 003 04 0 00 007501 ER3 AC,7501 ;RESULT DID NOT ROUND DOWN
6892 034666 321 10 0 00 034660 JUMPL SAC,Q7500 ;LOOP ON ERROR SWITCH
6893
6894 ;TEST FOR ROUNDING
6895 ;CHECK THAT FLTR ROUNDS THE RESULTING FRACTION AWAY FROM 0 SUCH THAT
6896 ;IF THE PART OF THE FRACTION BEING DROPPED IS GREATER THAN OR EQUAL TO
6897 ;1/2 LSB OF THE FRACTION RETAINED, THE FRACTION IS INCREASED BY ONE LSB;
6898 ;OTHERWISE, THE FRACTION IS DECREASED BY THE PART BEING DROPPED.
6899 034667 205 02 0 00 200000 Q7600: MOVSI AC-2,1B19 ;INITIALIZE FIX PT. NBR.
6900 034670 541 02 0 00 000200 HRRI AC-2,200
6901 034671 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT
6902 034672 541 03 0 00 000001 HRRI AC-1,1
6903 034673 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX PT NO. IN 'E' TO FLT PT,
6904 ;ROUND RESULT, AND PLACE IN AC.
6905 034674 312 04 0 00 000003 CAME AC,AC-1 ;WAS FRACTION ROUNDED UP?
6906 034675 003 04 0 00 007601 ER3 AC,7601 ;RESULT DID NOT ROUND UP
6907 034676 321 10 0 00 034667 JUMPL SAC,Q7600 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 35
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - ROUNDING SEQ 0166
6908 ;TEST FOR ROUNDING
6909 ;CHECK THAT FLTR ROUNDS THE RESULTING FRACTION AWAY FROM 0 SUCH THAT
6910 ;IF THE PART OF THE FRACTION BEING DROPPED IS GREATER THAN OR EQUAL TO
6911 ;1/2 LSB OF THE FRACTION RETAINED, THE FRACTION IS INCREASED BY ONE LSB;
6912 ;OTHERWISE, THE FRACTION IS DECREASED BY THE PART BEING DROPPED.
6913 034677 561 02 0 00 777600 Q7700: HRROI AC-2,777600 ;INITIALIZE FIX PT. NBR.
6914 034700 621 02 0 00 200000 TLZ AC-2,1B19
6915 034701 525 03 0 00 534377 HRLOI AC-1,534377 ;SET-UP EXPECTED RESULT
6916 034702 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX PT NO. IN 'E' TO FLT PT,
6917 ;ROUND RESULT, AND PLACE IN AC.
6918 034703 312 04 0 00 000003 CAME AC,AC-1 ;WAS FRACTION ROUNDED DOWN?
6919 034704 003 04 0 00 007701 ER3 AC,7701 ;RESULT DID NOT ROUND DOWN
6920 034705 321 10 0 00 034677 JUMPL SAC,Q7700 ;LOOP ON ERROR SWITCH
6921
6922 ;TEST FOR ROUNDING
6923 ;CHECK THAT FLTR ROUNDS THE RESULTING FRACTION AWAY FROM 0 SUCH THAT
6924 ;IF THE PART OF THE FRACTION BEING DROPPED IS GREATER THAN OR EQUAL TO
6925 ;1/2 LSB OF THE FRACTION RETAINED, THE FRACTION IS INCREASED BY ONE LSB;
6926 ;OTHERWISE, THE FRACTION IS DECREASED BY THE PART BEING DROPPED.
6927 034706 561 02 0 00 777601 Q10000: HRROI AC-2,777601 ;INITIALIZE FIX PT. NBR.
6928 034707 621 02 0 00 200000 TLZ AC-2,1B19
6929 034710 515 03 0 00 534400 HRLZI AC-1,534400 ;SET-UP EXPECTED RESULT
6930 034711 127 04 0 00 000002 FLTR AC,AC-2 ;*CONVERT FIX PT NO. IN 'E' TO FLT PT,
6931 ;ROUND RESULT, AND PLACE IN AC.
6932 034712 312 04 0 00 000003 CAME AC,AC-1 ;WAS FRACTION ROUNDED UP?
6933 034713 003 04 0 00 010001 ER3 AC,10001 ;RESULT DID NOT ROUND UP
6934 034714 321 10 0 00 034706 JUMPL SAC,Q10000 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 36
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - FLTR - NON-AC RANGE ADDRESS SEQ 0167
6935 SUBTTL DIAGNOSTIC SECTION - FLTR - NON-AC RANGE ADDRESS
6936
6937 ;VERIFY THAT 'FLTR AC,E' OPERATES FOR 'E' BEYOND 'AC' RANGE
6938
6939 034715 205 02 0 00 200000 Q10010: MOVSI AC-2,1B19 ;INITIALIZE FIX PT NO.
6940 034716 541 02 0 00 000177 HRRI AC-2,177
6941 034717 202 02 0 00 036501 MOVEM AC-2,TSTWD
6942 034720 205 03 0 00 243400 MOVSI AC-1,243400 ;SET-UP EXPECTED RESULT
6943 034721 127 04 0 00 036501 FLTR AC,TSTWD ;*CONVERT FIX PT NO. IN 'E' TO FLT PT AND STORE IN AC
6944 034722 312 04 0 00 000003 CAME AC,AC-1 ;DID FLTR GET CORRECT C(E)?
6945 034723 003 04 0 00 010011 ER3 AC,10011 ;FAILURE TO GET C(E)
6946 034724 321 10 0 00 034715 JUMPL SAC,Q10010 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 37
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVE - GENERAL DATA PATTERNS SEQ 0168
6947 SUBTTL DIAGNOSTIC SECTION - DMOVE - GENERAL DATA PATTERNS
6948
6949 ;CHECK THAT 'DMOVE AC,E' DOES NOT CLOBBER C(E) OR C(E+1)
6950
6951 034725 200 02 0 00 036675 Q10050: MOVE AC-2,[631463,,146314] ;INITIALIZE C(E), C(E+1)
6952 034726 200 03 0 00 036676 MOVE AC-1,[424242,,131313]
6953 034727 120 04 0 00 000002 DMOVE AC,AC-2 ;*MOVE DOUBLE WORD FROM E, E+1 TO AC, AC+1
6954 034730 312 02 0 00 036675 CAME AC-2,[631463,,146314] ;WAS C(E) MODIFIED?
6955 034731 005 02 0 00 010051 ER5 AC-2,10051 ;C(E) WAS CLOBBERED
6956 034732 312 03 0 00 036676 CAME AC-1,[424242,,131313] ;WAS C(E+1) MODIFIED?
6957 034733 006 03 0 00 010051 ER6 AC-1,10051 ;C(E+1) WAS CLOBBERED
6958 034734 321 10 0 00 034725 JUMPL SAC,Q10050
6959 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 37-1
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVE - GENERAL DATA PATTERNS SEQ 0169
6960 DMVE 1010,0,0,0,0^
6961 034735 200 11 0 00 036677 Q10100: MOVE AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS
6962 034736 200 12 0 00 036677 MOVE AC+6,[XWD 0,0] ;FOR COMPARISON
6963 034737 200 04 0 00 036700 MOVE AC,[XWD 707070,707070]
6964 034740 200 05 0 00 036701 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1
6965 DMOVE AC,[XWD 0,0 ;*MOVE DOUBLE WORD 0,0 ; 0,0
6966 034741 120 04 0 00 036702 XWD 0,0] ;FROM MEMORY TO AC, AC+1
6967 034742 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
6968 034743 003 04 0 00 010101 ER3 AC,10101 ;FAIL IF CONTENTS(AC) NOT = 0,0
6969 034744 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
6970 034745 004 05 0 00 010102 ER4 AC+1,10102 ;FAIL IF CONTENTS(AC+1) NOT = 0,0
6971 034746 321 10 0 00 034735 JUMPL SAC,Q10100 ;LOOP ON ERROR SWITCH^
6972
6973 DMVE 1020,-1,-1,-1,-1^
6974 034747 200 11 0 00 036704 Q10200: MOVE AC+5,[XWD -1,-1] ;INITIALIZE TEST WORDS
6975 034750 200 12 0 00 036704 MOVE AC+6,[XWD -1,-1] ;FOR COMPARISON
6976 034751 200 04 0 00 036700 MOVE AC,[XWD 707070,707070]
6977 034752 200 05 0 00 036701 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1
6978 DMOVE AC,[XWD -1,-1 ;*MOVE DOUBLE WORD -1,-1 ; -1,-1
6979 034753 120 04 0 00 036704 XWD -1,-1] ;FROM MEMORY TO AC, AC+1
6980 034754 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
6981 034755 003 04 0 00 010201 ER3 AC,10201 ;FAIL IF CONTENTS(AC) NOT = -1,-1
6982 034756 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
6983 034757 004 05 0 00 010202 ER4 AC+1,10202 ;FAIL IF CONTENTS(AC+1) NOT = -1,-1
6984 034760 321 10 0 00 034747 JUMPL SAC,Q10200 ;LOOP ON ERROR SWITCH^
6985 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 37-2
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVE - GENERAL DATA PATTERNS SEQ 0170
6986 DMVE 1030,0,0,-1,-1^
6987 034761 200 11 0 00 036677 Q10300: MOVE AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS
6988 034762 200 12 0 00 036704 MOVE AC+6,[XWD -1,-1] ;FOR COMPARISON
6989 034763 200 04 0 00 036700 MOVE AC,[XWD 707070,707070]
6990 034764 200 05 0 00 036701 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1
6991 DMOVE AC,[XWD 0,0 ;*MOVE DOUBLE WORD 0,0 ; -1,-1
6992 034765 120 04 0 00 036703 XWD -1,-1] ;FROM MEMORY TO AC, AC+1
6993 034766 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
6994 034767 003 04 0 00 010301 ER3 AC,10301 ;FAIL IF CONTENTS(AC) NOT = 0,0
6995 034770 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
6996 034771 004 05 0 00 010302 ER4 AC+1,10302 ;FAIL IF CONTENTS(AC+1) NOT = -1,-1
6997 034772 321 10 0 00 034761 JUMPL SAC,Q10300 ;LOOP ON ERROR SWITCH^
6998
6999 DMVE 1040,-1,-1,0,0^
7000 034773 200 11 0 00 036704 Q10400: MOVE AC+5,[XWD -1,-1] ;INITIALIZE TEST WORDS
7001 034774 200 12 0 00 036677 MOVE AC+6,[XWD 0,0] ;FOR COMPARISON
7002 034775 200 04 0 00 036700 MOVE AC,[XWD 707070,707070]
7003 034776 200 05 0 00 036701 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1
7004 DMOVE AC,[XWD -1,-1 ;*MOVE DOUBLE WORD -1,-1 ; 0,0
7005 034777 120 04 0 00 036705 XWD 0,0] ;FROM MEMORY TO AC, AC+1
7006 035000 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
7007 035001 003 04 0 00 010401 ER3 AC,10401 ;FAIL IF CONTENTS(AC) NOT = -1,-1
7008 035002 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
7009 035003 004 05 0 00 010402 ER4 AC+1,10402 ;FAIL IF CONTENTS(AC+1) NOT = 0,0
7010 035004 321 10 0 00 034773 JUMPL SAC,Q10400 ;LOOP ON ERROR SWITCH^
7011 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 37-3
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVE - GENERAL DATA PATTERNS SEQ 0171
7012 DMVE 1050,252525,252525,525252,525252^
7013 035005 200 11 0 00 036674 Q10500: MOVE AC+5,[XWD 252525,252525] ;INITIALIZE TEST WORDS
7014 035006 200 12 0 00 036707 MOVE AC+6,[XWD 525252,525252] ;FOR COMPARISON
7015 035007 200 04 0 00 036700 MOVE AC,[XWD 707070,707070]
7016 035010 200 05 0 00 036701 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1
7017 DMOVE AC,[XWD 252525,252525 ;*MOVE DOUBLE WORD 252525,252525 ; 525252,525252
7018 035011 120 04 0 00 036710 XWD 525252,525252] ;FROM MEMORY TO AC, AC+1
7019 035012 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
7020 035013 003 04 0 00 010501 ER3 AC,10501 ;FAIL IF CONTENTS(AC) NOT = 252525,252525
7021 035014 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
7022 035015 004 05 0 00 010502 ER4 AC+1,10502 ;FAIL IF CONTENTS(AC+1) NOT = 525252,525252
7023 035016 321 10 0 00 035005 JUMPL SAC,Q10500 ;LOOP ON ERROR SWITCH^
7024
7025 DMVE 1060,525252,525252,252525,252525^
7026 035017 200 11 0 00 036707 Q10600: MOVE AC+5,[XWD 525252,525252] ;INITIALIZE TEST WORDS
7027 035020 200 12 0 00 036674 MOVE AC+6,[XWD 252525,252525] ;FOR COMPARISON
7028 035021 200 04 0 00 036700 MOVE AC,[XWD 707070,707070]
7029 035022 200 05 0 00 036701 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1
7030 DMOVE AC,[XWD 525252,525252 ;*MOVE DOUBLE WORD 525252,525252 ; 252525,252525
7031 035023 120 04 0 00 036707 XWD 252525,252525] ;FROM MEMORY TO AC, AC+1
7032 035024 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
7033 035025 003 04 0 00 010601 ER3 AC,10601 ;FAIL IF CONTENTS(AC) NOT = 525252,525252
7034 035026 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
7035 035027 004 05 0 00 010602 ER4 AC+1,10602 ;FAIL IF CONTENTS(AC+1) NOT = 252525,252525
7036 035030 321 10 0 00 035017 JUMPL SAC,Q10600 ;LOOP ON ERROR SWITCH^
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 38
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVE - AC=17, AC+1=0 SEQ 0172
7037 SUBTTL DIAGNOSTIC SECTION - DMOVE - AC=17, AC+1=0
7038
7039 ;CHECK DMOVE FOR AC=17 AND AC+1=0
7040
7041 000017 AC=17
7042 000003 SAC=<AC+4>&17
7043 SAVEAC (1,1)^
7044 035031 201 03 0 00 035031 MOVEI SAC,.
7045 035032 202 03 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC
7046 035033 201 03 0 00 000003 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH
7047 035034 202 03 0 00 037141 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^
7048
7049 DMVE17 1070,1071,-1,-1,-1,-1^
7050 035035 202 17 0 00 037151 Q10710: MOVEM AC,%SV17# ;SAVE AC17
7051 035036 200 04 0 00 036704 Q10700: MOVE AC+5,[XWD -1,-1] ;INITIALIZE TEST WORDS
7052 035037 200 05 0 00 036704 MOVE AC+6,[XWD -1,-1] ;FOR COMPARISON
7053 035040 200 17 0 00 036700 MOVE AC,[XWD 707070,707070]
7054 035041 200 00 0 00 036701 MOVE AC+1,[XWD 070707,070707] ;INITIALIZE AC,AC+1
7055 DMOVE AC,[XWD -1,-1 ;*MOVE DOUBLE WORD -1,-1 ; -1,-1
7056 035042 120 17 0 00 036704 XWD -1,-1] ;FROM MEMORY TO AC, AC+1
7057 035043 316 17 0 00 000004 Q10713: CAMN AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
7058 035044 254 00 0 00 035050 JRST .+4 ;HERE IF NO ERROR
7059 035045 202 17 0 00 000016 MOVEM AC,AC-1 ;STORE INCORRECT RESULTS
7060 035046 200 17 0 00 037151 MOVE AC,%SV17 ;RESTORE P
7061 035047 003 16 0 00 010701 ER3 AC-1,10701 ;FAIL IF CONTENTS(AC) NOT = -1,-1
7062 035050 316 00 0 00 000005 CAMN AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
7063 035051 254 00 0 00 035055 JRST .+4 ;HERE IF NO ERROR
7064 035052 202 00 0 00 000016 MOVEM AC+1,AC-1 ;STORE INCORRECT WORD
7065 035053 200 17 0 00 037151 MOVE AC,%SV17 ;RESTORE P
7066 035054 004 16 0 00 010702 ER4 AC-1,10702
7067 035055 200 17 0 00 037151 MOVE AC,%SV17 ;RESTORE AC UNCONDITIONALLY
7068 035056 321 03 0 00 035035 JUMPL SAC,Q10710 ;LOOP ON ERROR SWITCH^
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 39
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVE - AC RANGE ADDRESS SEQ 0173
7069 SUBTTL DIAGNOSTIC SECTION - DMOVE - AC RANGE ADDRESS
7070
7071 ;CHECK DMOVE WHERE 'E' IS WITHIN THE 'AC' RANGE
7072
7073 000004 AC=4
7074 000010 SAC=<AC+4>&17
7075 SAVEAC(1,1)^
7076 035057 201 10 0 00 035057 MOVEI SAC,.
7077 035060 202 10 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC
7078 035061 201 10 0 00 000010 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH
7079 035062 202 10 0 00 037141 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^
7080 000002 E=AC-2
7081
7082 011000 SN=11000
7083 000001 E=<E-1>&17
7084
7085 Q11000: REPEAT ^D5,
7086 <SN=SN+1
7087 E=<E+1>&17
7088 SETZB AC,AC+1 ;INITIALIZE AC,AC+1
7089 SETOB E,E+1 ;INITIALIZE E,E+1
7090 HRRZI E+1,-1
7091 SETOB AC+5,<AC+6>&17 ;INITIALIZE TEST WORDS FOR COMPARISON
7092 HRRZI AC+6,-1
7093 DMOVE AC,E ;*MOVE DOUBLE WORD FROM E, E+1 TO AC, AC+1
7094 CAME AC,<AC+5>&17 ;DID DMOVE GET CORRECT C(E)?
7095 ER3 AC,SN ;FAIL IF C(AC) NOT = -1,-1
7096 CAME AC+1,<AC+6>&17 ;DID DMOVE GET CORRECT C(E+1)?
7097 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 0,-1
7098 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH
7099 >
7100 011001 SN=SN+1
7101 000002 E=<E+1>&17
7102 035063 403 04 0 00 000005 SETZB AC,AC+1 ;INITIALIZE AC,AC+1
7103 035064 477 02 0 00 000003 SETOB E,E+1 ;INITIALIZE E,E+1
7104 035065 551 03 0 00 777777 HRRZI E+1,-1
7105 035066 477 11 0 00 000012 SETOB AC+5,<AC+6>&17 ;INITIALIZE TEST WORDS FOR COMPARISON
7106 035067 551 12 0 00 777777 HRRZI AC+6,-1
7107 035070 120 04 0 00 000002 DMOVE AC,E ;*MOVE DOUBLE WORD FROM E, E+1 TO AC, AC+1
7108 035071 312 04 0 00 000011 CAME AC,<AC+5>&17 ;DID DMOVE GET CORRECT C(E)?
7109 035072 003 04 0 00 011001 ER3 AC,SN ;FAIL IF C(AC) NOT = -1,-1
7110 035073 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;DID DMOVE GET CORRECT C(E+1)?
7111 035074 004 05 0 00 011001 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 0,-1
7112 035075 321 10 0 00 035065 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH
7113
7114 011002 SN=SN+1
7115 000003 E=<E+1>&17
7116 035076 403 04 0 00 000005 SETZB AC,AC+1 ;INITIALIZE AC,AC+1
7117 035077 477 03 0 00 000004 SETOB E,E+1 ;INITIALIZE E,E+1
7118 035100 551 04 0 00 777777 HRRZI E+1,-1
7119 035101 477 11 0 00 000012 SETOB AC+5,<AC+6>&17 ;INITIALIZE TEST WORDS FOR COMPARISON
7120 035102 551 12 0 00 777777 HRRZI AC+6,-1
7121 035103 120 04 0 00 000003 DMOVE AC,E ;*MOVE DOUBLE WORD FROM E, E+1 TO AC, AC+1
7122 035104 312 04 0 00 000011 CAME AC,<AC+5>&17 ;DID DMOVE GET CORRECT C(E)?
7123 035105 003 04 0 00 011002 ER3 AC,SN ;FAIL IF C(AC) NOT = -1,-1
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 39-1
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVE - AC RANGE ADDRESS SEQ 0174
7124 035106 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;DID DMOVE GET CORRECT C(E+1)?
7125 035107 004 05 0 00 011002 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 0,-1
7126 035110 321 10 0 00 035100 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH
7127
7128 011003 SN=SN+1
7129 000004 E=<E+1>&17
7130 035111 403 04 0 00 000005 SETZB AC,AC+1 ;INITIALIZE AC,AC+1
7131 035112 477 04 0 00 000005 SETOB E,E+1 ;INITIALIZE E,E+1
7132 035113 551 05 0 00 777777 HRRZI E+1,-1
7133 035114 477 11 0 00 000012 SETOB AC+5,<AC+6>&17 ;INITIALIZE TEST WORDS FOR COMPARISON
7134 035115 551 12 0 00 777777 HRRZI AC+6,-1
7135 035116 120 04 0 00 000004 DMOVE AC,E ;*MOVE DOUBLE WORD FROM E, E+1 TO AC, AC+1
7136 035117 312 04 0 00 000011 CAME AC,<AC+5>&17 ;DID DMOVE GET CORRECT C(E)?
7137 035120 003 04 0 00 011003 ER3 AC,SN ;FAIL IF C(AC) NOT = -1,-1
7138 035121 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;DID DMOVE GET CORRECT C(E+1)?
7139 035122 004 05 0 00 011003 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 0,-1
7140 035123 321 10 0 00 035113 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH
7141
7142 011004 SN=SN+1
7143 000005 E=<E+1>&17
7144 035124 403 04 0 00 000005 SETZB AC,AC+1 ;INITIALIZE AC,AC+1
7145 035125 477 05 0 00 000006 SETOB E,E+1 ;INITIALIZE E,E+1
7146 035126 551 06 0 00 777777 HRRZI E+1,-1
7147 035127 477 11 0 00 000012 SETOB AC+5,<AC+6>&17 ;INITIALIZE TEST WORDS FOR COMPARISON
7148 035130 551 12 0 00 777777 HRRZI AC+6,-1
7149 035131 120 04 0 00 000005 DMOVE AC,E ;*MOVE DOUBLE WORD FROM E, E+1 TO AC, AC+1
7150 035132 312 04 0 00 000011 CAME AC,<AC+5>&17 ;DID DMOVE GET CORRECT C(E)?
7151 035133 003 04 0 00 011004 ER3 AC,SN ;FAIL IF C(AC) NOT = -1,-1
7152 035134 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;DID DMOVE GET CORRECT C(E+1)?
7153 035135 004 05 0 00 011004 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 0,-1
7154 035136 321 10 0 00 035126 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH
7155
7156 011005 SN=SN+1
7157 000006 E=<E+1>&17
7158 035137 403 04 0 00 000005 SETZB AC,AC+1 ;INITIALIZE AC,AC+1
7159 035140 477 06 0 00 000007 SETOB E,E+1 ;INITIALIZE E,E+1
7160 035141 551 07 0 00 777777 HRRZI E+1,-1
7161 035142 477 11 0 00 000012 SETOB AC+5,<AC+6>&17 ;INITIALIZE TEST WORDS FOR COMPARISON
7162 035143 551 12 0 00 777777 HRRZI AC+6,-1
7163 035144 120 04 0 00 000006 DMOVE AC,E ;*MOVE DOUBLE WORD FROM E, E+1 TO AC, AC+1
7164 035145 312 04 0 00 000011 CAME AC,<AC+5>&17 ;DID DMOVE GET CORRECT C(E)?
7165 035146 003 04 0 00 011005 ER3 AC,SN ;FAIL IF C(AC) NOT = -1,-1
7166 035147 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;DID DMOVE GET CORRECT C(E+1)?
7167 035150 004 05 0 00 011005 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 0,-1
7168 035151 321 10 0 00 035141 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH
7169
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 40
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS SEQ 0175
7170 SUBTTL DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS
7171
7172 ;CHECK THAT 'DMOVN AC,E' DOES NOT CLOBBER C(E) OR C(E+1)
7173
7174 Q11050: DMOVE AC-2,[631463,,146314 ;INITIALIZE C(E), C(E+1)
7175 035152 120 02 0 00 036675 424242,,131313]
7176 035153 121 04 0 00 000002 DMOVN AC,AC-2 ;*MOVE NEGATIVE OF DOUBLE WORD FROM E, E+1 TO AC, AC+1
7177 035154 312 02 0 00 036675 CAME AC-2,[631463,,146314] ;WAS C(E) MODIFIED?
7178 035155 005 02 0 00 011051 ER5 AC-2,11051 ;C(E) WAS CLOBBERED
7179 035156 312 03 0 00 036676 CAME AC-1,[424242,,131313] ;WAS C(E+1) MODIFIED?
7180 035157 006 03 0 00 011052 ER6 AC-1,11052 ;C(E+1) WAS CLOBBERED
7181 035160 321 10 0 00 035152 JUMPL SAC,Q11050 ;LOOP ON ERROR SWITCH
7182 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 40-1
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS SEQ 0176
7183 DMVN 1110,0,0,0,0^
7184 Q11100: DMOVE AC,[XWD 707070,707070
7185 035161 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE AC,AC+1
7186 035162 460 11 0 00 036677 SETCM AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS FOR COMPARISON
7187 035163 400 12 0 00 000000 SETZ AC+6,
7188 035164 271 11 0 00 000001 ADDI AC+5,1 >
7189 DMOVN AC,[XWD 0,0 ;*MOVE NEGATIVE OF DOUBLE WORD 0,0 ;
7190 035165 121 04 0 00 036702 XWD 0,0] ;0,0 FROM MEMORY TO AC, AC+1
7191 035166 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
7192 035167 003 04 0 00 011101 ER3 AC,11101 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 0,0
7193 035170 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
7194 035171 004 05 0 00 011102 ER4 AC+1,11102 ;FAIL IF CONTENTS(AC+1) NOT = MINUS 0,0
7195 035172 321 10 0 00 035161 JUMPL SAC,Q11100 ;LOOP ON ERROR SWITCH^
7196 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 40-2
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS SEQ 0177
7197 DMVN 1120,0,0,0,1^
7198 Q11200: DMOVE AC,[XWD 707070,707070
7199 035173 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE AC,AC+1
7200 035174 460 11 0 00 036677 SETCM AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS FOR COMPARISON
7201 035175 210 12 0 00 036712 MOVN AC+6,[XWD 0,1]
7202 035176 621 12 0 00 400000 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >>
7203 DMOVN AC,[XWD 0,0 ;*MOVE NEGATIVE OF DOUBLE WORD 0,0 ;
7204 035177 121 04 0 00 036713 XWD 0,1] ;0,1 FROM MEMORY TO AC, AC+1
7205 035200 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
7206 035201 003 04 0 00 011201 ER3 AC,11201 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 0,0
7207 035202 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
7208 035203 004 05 0 00 011202 ER4 AC+1,11202 ;FAIL IF CONTENTS(AC+1) NOT = MINUS 0,1
7209 035204 321 10 0 00 035173 JUMPL SAC,Q11200 ;LOOP ON ERROR SWITCH^
7210 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 40-3
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS SEQ 0178
7211 DMVN 1130,-1,-1,0,1^
7212 Q11300: DMOVE AC,[XWD 707070,707070
7213 035205 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE AC,AC+1
7214 035206 460 11 0 00 036704 SETCM AC+5,[XWD -1,-1] ;INITIALIZE TEST WORDS FOR COMPARISON
7215 035207 210 12 0 00 036712 MOVN AC+6,[XWD 0,1]
7216 035210 621 12 0 00 400000 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >>
7217 DMOVN AC,[XWD -1,-1 ;*MOVE NEGATIVE OF DOUBLE WORD -1,-1 ;
7218 035211 121 04 0 00 036715 XWD 0,1] ;0,1 FROM MEMORY TO AC, AC+1
7219 035212 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
7220 035213 003 04 0 00 011301 ER3 AC,11301 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF -1,-1
7221 035214 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
7222 035215 004 05 0 00 011302 ER4 AC+1,11302 ;FAIL IF CONTENTS(AC+1) NOT = MINUS 0,1
7223 035216 321 10 0 00 035205 JUMPL SAC,Q11300 ;LOOP ON ERROR SWITCH^
7224 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 40-4
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS SEQ 0179
7225 DMVN 1140,0,1,0,0^
7226 Q11400: DMOVE AC,[XWD 707070,707070
7227 035217 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE AC,AC+1
7228 035220 460 11 0 00 036712 SETCM AC+5,[XWD 0,1] ;INITIALIZE TEST WORDS FOR COMPARISON
7229 035221 400 12 0 00 000000 SETZ AC+6,
7230 035222 271 11 0 00 000001 ADDI AC+5,1 >
7231 DMOVN AC,[XWD 0,1 ;*MOVE NEGATIVE OF DOUBLE WORD 0,1 ;
7232 035223 121 04 0 00 036712 XWD 0,0] ;0,0 FROM MEMORY TO AC, AC+1
7233 035224 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
7234 035225 003 04 0 00 011401 ER3 AC,11401 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 0,1
7235 035226 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
7236 035227 004 05 0 00 011402 ER4 AC+1,11402 ;FAIL IF CONTENTS(AC+1) NOT = MINUS 0,0
7237 035230 321 10 0 00 035217 JUMPL SAC,Q11400 ;LOOP ON ERROR SWITCH^
7238 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 40-5
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS SEQ 0180
7239 DMVN 1150,525252,525252,252525,252526^
7240 Q11500: DMOVE AC,[XWD 707070,707070
7241 035231 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE AC,AC+1
7242 035232 460 11 0 00 036707 SETCM AC+5,[XWD 525252,525252] ;INITIALIZE TEST WORDS FOR COMPARISON
7243 035233 210 12 0 00 036717 MOVN AC+6,[XWD 252525,252526]
7244 035234 621 12 0 00 400000 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >>
7245 DMOVN AC,[XWD 525252,525252 ;*MOVE NEGATIVE OF DOUBLE WORD 525252,525252 ;
7246 035235 121 04 0 00 036720 XWD 252525,252526] ;252525,252526 FROM MEMORY TO AC, AC+1
7247 035236 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
7248 035237 003 04 0 00 011501 ER3 AC,11501 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 525252,525252
7249 035240 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
7250 035241 004 05 0 00 011502 ER4 AC+1,11502 ;FAIL IF CONTENTS(AC+1) NOT = MINUS 252525,252526
7251 035242 321 10 0 00 035231 JUMPL SAC,Q11500 ;LOOP ON ERROR SWITCH^
7252 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 40-6
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS SEQ 0181
7253 DMVN 1160,252525,252525,525252,525253^
7254 Q11600: DMOVE AC,[XWD 707070,707070
7255 035243 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE AC,AC+1
7256 035244 460 11 0 00 036674 SETCM AC+5,[XWD 252525,252525] ;INITIALIZE TEST WORDS FOR COMPARISON
7257 035245 210 12 0 00 036722 MOVN AC+6,[XWD 525252,525253]
7258 035246 621 12 0 00 400000 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >>
7259 DMOVN AC,[XWD 252525,252525 ;*MOVE NEGATIVE OF DOUBLE WORD 252525,252525 ;
7260 035247 121 04 0 00 036723 XWD 525252,525253] ;525252,525253 FROM MEMORY TO AC, AC+1
7261 035250 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
7262 035251 003 04 0 00 011601 ER3 AC,11601 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 252525,252525
7263 035252 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
7264 035253 004 05 0 00 011602 ER4 AC+1,11602 ;FAIL IF CONTENTS(AC+1) NOT = MINUS 525252,525253
7265 035254 321 10 0 00 035243 JUMPL SAC,Q11600 ;LOOP ON ERROR SWITCH^
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 41
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - AC=17, AC+1=0 SEQ 0182
7266 SUBTTL DIAGNOSTIC SECTION - DMOVN - AC=17, AC+1=0
7267
7268 ;CHECK DMOVN FOR AC=17 AND AC+1=0
7269
7270 000017 AC=17
7271 000003 SAC=<AC+4>&17
7272 SAVEAC (1,1)^
7273 035255 201 03 0 00 035255 MOVEI SAC,.
7274 035256 202 03 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC
7275 035257 201 03 0 00 000003 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH
7276 035260 202 03 0 00 037141 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^
7277
7278 DMVN17 1170,0,0,0,1^
7279 035261 202 17 0 00 037151 Q11700: MOVEM AC,%SV17 ;SAVE P
7280 DMOVE AC,[XWD 707070,707070
7281 035262 120 17 0 00 036700 XWD 070707,070707] ;INITIALIZE AC,AC+1
7282 035263 460 04 0 00 036677 SETCM AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS FOR COMPARISON
7283 035264 210 05 0 00 036712 MOVN AC+6,[XWD 0,1]
7284 035265 621 05 0 00 400000 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD >>
7285 DMOVN AC,[XWD 0,0 ;*MOVE NEGATIVE OF DOUBLE WORD 0,0 ;
7286 035266 121 17 0 00 036713 XWD 0,1] ;0,1 FROM MEMORY TO AC, AC+1
7287 035267 316 17 0 00 000004 CAMN AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
7288 035270 254 00 0 00 035274 JRST .+4 ;HERE IF TESTS OK
7289 035271 202 17 0 00 000016 MOVEM AC,AC-1 ;SAVE BAD WORD
7290 035272 200 17 0 00 037151 MOVE AC,%SV17 ;RESTORE P
7291 035273 003 16 0 00 011701 ER3 AC-1,11701 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 0,0
7292 035274 316 00 0 00 000005 CAMN AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
7293 035275 254 00 0 00 035301 JRST .+4 ;HERE IF TESTS OK
7294 035276 202 17 0 00 000016 MOVEM AC,AC-1
7295 035277 200 17 0 00 037151 MOVE AC,%SV17 ;RESTORE P
7296 035300 004 00 0 00 011702 ER4 AC+1,11702 ;FAIL IF CONTENTS(AC+1) NOT = MINUS 0,1
7297 035301 200 17 0 00 037151 MOVE AC,%SV17 ;RESTORE P UNCODITIONALLY
7298 035302 321 03 0 00 035261 JUMPL SAC,Q11700 ;LOOP ON ERROR SWITCH^
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 42
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - AC RANGE ADDRESS SEQ 0183
7299 SUBTTL DIAGNOSTIC SECTION - DMOVN - AC RANGE ADDRESS
7300
7301 ;CHECK DMOVN WHERE 'E' IS WITHIN THE 'AC' RANGE
7302
7303 000004 AC=4
7304 000010 SAC=<AC+4>&17
7305 SAVEAC (1,1)^
7306 035303 201 10 0 00 035303 MOVEI SAC,.
7307 035304 202 10 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC
7308 035305 201 10 0 00 000010 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH
7309 035306 202 10 0 00 037141 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^
7310 000002 E=AC-2
7311
7312 012000 SN=12000
7313 000001 E=<E-1>&17
7314
7315 Q12000: REPEAT ^D5,
7316 <SN=SN+1
7317 E=<E+1>&17
7318 DMOVE AC,[XWD 707070,707070
7319 XWD 070707,070707] ;INITIALIZE AC,AC+1
7320 SETCM AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS
7321 MOVN AC+6,[XWD 0,-1] ;FOR COMPARISON
7322 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD
7323 DMOVE E,[XWD 0,0
7324 XWD 0,-1] ;INITIALIZE E,E+1
7325 DMOVN AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM E, E+1 TO AC, AC+1
7326 CAME AC,<AC+5>&17 ;DID DMOVN GET CORRECT C(E)?
7327 ER3 AC,SN ;FAIL IF C(AC) NOT = 2'S COMPL OF C(E)
7328 CAME AC+1,<AC+6>&17 ;DID DMOVN GET CORRECT C(E+1)?
7329 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 2'S COMPL OF C(E+1)
7330 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH
7331 >
7332 012001 SN=SN+1
7333 000002 E=<E+1>&17
7334 DMOVE AC,[XWD 707070,707070
7335 035307 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE AC,AC+1
7336 035310 460 11 0 00 036677 SETCM AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS
7337 035311 210 12 0 00 036725 MOVN AC+6,[XWD 0,-1] ;FOR COMPARISON
7338 035312 621 12 0 00 400000 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD
7339 DMOVE E,[XWD 0,0
7340 035313 120 02 0 00 036726 XWD 0,-1] ;INITIALIZE E,E+1
7341 035314 121 04 0 00 000002 DMOVN AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM E, E+1 TO AC, AC+1
7342 035315 312 04 0 00 000011 CAME AC,<AC+5>&17 ;DID DMOVN GET CORRECT C(E)?
7343 035316 003 04 0 00 012001 ER3 AC,SN ;FAIL IF C(AC) NOT = 2'S COMPL OF C(E)
7344 035317 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;DID DMOVN GET CORRECT C(E+1)?
7345 035320 004 05 0 00 012001 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 2'S COMPL OF C(E+1)
7346 035321 321 10 0 00 035311 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH
7347
7348 012002 SN=SN+1
7349 000003 E=<E+1>&17
7350 DMOVE AC,[XWD 707070,707070
7351 035322 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE AC,AC+1
7352 035323 460 11 0 00 036677 SETCM AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS
7353 035324 210 12 0 00 036725 MOVN AC+6,[XWD 0,-1] ;FOR COMPARISON
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 42-1
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - AC RANGE ADDRESS SEQ 0184
7354 035325 621 12 0 00 400000 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD
7355 DMOVE E,[XWD 0,0
7356 035326 120 03 0 00 036726 XWD 0,-1] ;INITIALIZE E,E+1
7357 035327 121 04 0 00 000003 DMOVN AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM E, E+1 TO AC, AC+1
7358 035330 312 04 0 00 000011 CAME AC,<AC+5>&17 ;DID DMOVN GET CORRECT C(E)?
7359 035331 003 04 0 00 012002 ER3 AC,SN ;FAIL IF C(AC) NOT = 2'S COMPL OF C(E)
7360 035332 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;DID DMOVN GET CORRECT C(E+1)?
7361 035333 004 05 0 00 012002 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 2'S COMPL OF C(E+1)
7362 035334 321 10 0 00 035324 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH
7363
7364 012003 SN=SN+1
7365 000004 E=<E+1>&17
7366 DMOVE AC,[XWD 707070,707070
7367 035335 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE AC,AC+1
7368 035336 460 11 0 00 036677 SETCM AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS
7369 035337 210 12 0 00 036725 MOVN AC+6,[XWD 0,-1] ;FOR COMPARISON
7370 035340 621 12 0 00 400000 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD
7371 DMOVE E,[XWD 0,0
7372 035341 120 04 0 00 036726 XWD 0,-1] ;INITIALIZE E,E+1
7373 035342 121 04 0 00 000004 DMOVN AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM E, E+1 TO AC, AC+1
7374 035343 312 04 0 00 000011 CAME AC,<AC+5>&17 ;DID DMOVN GET CORRECT C(E)?
7375 035344 003 04 0 00 012003 ER3 AC,SN ;FAIL IF C(AC) NOT = 2'S COMPL OF C(E)
7376 035345 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;DID DMOVN GET CORRECT C(E+1)?
7377 035346 004 05 0 00 012003 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 2'S COMPL OF C(E+1)
7378 035347 321 10 0 00 035337 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH
7379
7380 012004 SN=SN+1
7381 000005 E=<E+1>&17
7382 DMOVE AC,[XWD 707070,707070
7383 035350 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE AC,AC+1
7384 035351 460 11 0 00 036677 SETCM AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS
7385 035352 210 12 0 00 036725 MOVN AC+6,[XWD 0,-1] ;FOR COMPARISON
7386 035353 621 12 0 00 400000 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD
7387 DMOVE E,[XWD 0,0
7388 035354 120 05 0 00 036726 XWD 0,-1] ;INITIALIZE E,E+1
7389 035355 121 04 0 00 000005 DMOVN AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM E, E+1 TO AC, AC+1
7390 035356 312 04 0 00 000011 CAME AC,<AC+5>&17 ;DID DMOVN GET CORRECT C(E)?
7391 035357 003 04 0 00 012004 ER3 AC,SN ;FAIL IF C(AC) NOT = 2'S COMPL OF C(E)
7392 035360 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;DID DMOVN GET CORRECT C(E+1)?
7393 035361 004 05 0 00 012004 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 2'S COMPL OF C(E+1)
7394 035362 321 10 0 00 035352 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH
7395
7396 012005 SN=SN+1
7397 000006 E=<E+1>&17
7398 DMOVE AC,[XWD 707070,707070
7399 035363 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE AC,AC+1
7400 035364 460 11 0 00 036677 SETCM AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS
7401 035365 210 12 0 00 036725 MOVN AC+6,[XWD 0,-1] ;FOR COMPARISON
7402 035366 621 12 0 00 400000 TLZ AC+6,1B18 ;CLEAR SIGN BIT OF LOW ORDER WORD
7403 DMOVE E,[XWD 0,0
7404 035367 120 06 0 00 036726 XWD 0,-1] ;INITIALIZE E,E+1
7405 035370 121 04 0 00 000006 DMOVN AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM E, E+1 TO AC, AC+1
7406 035371 312 04 0 00 000011 CAME AC,<AC+5>&17 ;DID DMOVN GET CORRECT C(E)?
7407 035372 003 04 0 00 012005 ER3 AC,SN ;FAIL IF C(AC) NOT = 2'S COMPL OF C(E)
7408 035373 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;DID DMOVN GET CORRECT C(E+1)?
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 42-2
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - AC RANGE ADDRESS SEQ 0185
7409 035374 004 05 0 00 012005 ER4 AC+1,SN ;FAIL IF C(AC+1) NOT = 2'S COMPL OF C(E+1)
7410 035375 321 10 0 00 035365 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH
7411
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 43
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS SEQ 0186
7412 SUBTTL DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS
7413
7414 DMVN 1210,400000,0,0,0^
7415 Q12100: DMOVE AC,[XWD 707070,707070
7416 035376 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE AC,AC+1
7417 035377 460 11 0 00 036730 SETCM AC+5,[XWD 400000,0] ;INITIALIZE TEST WORDS FOR COMPARISON
7418 035400 400 12 0 00 000000 SETZ AC+6,
7419 035401 271 11 0 00 000001 ADDI AC+5,1 >
7420 DMOVN AC,[XWD 400000,0 ;*MOVE NEGATIVE OF DOUBLE WORD 400000,0 ;
7421 035402 121 04 0 00 036730 XWD 0,0] ;0,0 FROM MEMORY TO AC, AC+1
7422 035403 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
7423 035404 003 04 0 00 012101 ER3 AC,12101 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 400000,0
7424 035405 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
7425 035406 004 05 0 00 012102 ER4 AC+1,12102 ;FAIL IF CONTENTS(AC+1) NOT = MINUS 0,0
7426 035407 321 10 0 00 035376 JUMPL SAC,Q12100 ;LOOP ON ERROR SWITCH^
7427 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 43-1
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS SEQ 0187
7428 DMVN 1220,0,0,400000,0^
7429 Q12200: DMOVE AC,[XWD 707070,707070
7430 035410 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE AC,AC+1
7431 035411 460 11 0 00 036677 SETCM AC+5,[XWD 0,0] ;INITIALIZE TEST WORDS FOR COMPARISON
7432 035412 400 12 0 00 000000 SETZ AC+6,
7433 035413 271 11 0 00 000001 ADDI AC+5,1 >
7434 DMOVN AC,[XWD 0,0 ;*MOVE NEGATIVE OF DOUBLE WORD 0,0 ;
7435 035414 121 04 0 00 036731 XWD 400000,0] ;400000,0 FROM MEMORY TO AC, AC+1
7436 035415 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
7437 035416 003 04 0 00 012201 ER3 AC,12201 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 0,0
7438 035417 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
7439 035420 004 05 0 00 012202 ER4 AC+1,12202 ;FAIL IF CONTENTS(AC+1) NOT = MINUS 400000,0
7440 035421 321 10 0 00 035410 JUMPL SAC,Q12200 ;LOOP ON ERROR SWITCH^
7441 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 43-2
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - GENERAL DATA PATTERNS SEQ 0188
7442 DMVN 1230,400000,0,400000,0^
7443 Q12300: DMOVE AC,[XWD 707070,707070
7444 035422 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE AC,AC+1
7445 035423 460 11 0 00 036730 SETCM AC+5,[XWD 400000,0] ;INITIALIZE TEST WORDS FOR COMPARISON
7446 035424 400 12 0 00 000000 SETZ AC+6,
7447 035425 271 11 0 00 000001 ADDI AC+5,1 >
7448 DMOVN AC,[XWD 400000,0 ;*MOVE NEGATIVE OF DOUBLE WORD 400000,0 ;
7449 035426 121 04 0 00 036732 XWD 400000,0] ;400000,0 FROM MEMORY TO AC, AC+1
7450 035427 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS AC LOADED CORRECTLY?
7451 035430 003 04 0 00 012301 ER3 AC,12301 ;FAIL IF CONTENTS(AC) NOT = COMPLEMENT OF 400000,0
7452 035431 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS AC+1 LOADED CORRECTLY?
7453 035432 004 05 0 00 012302 ER4 AC+1,12302 ;FAIL IF CONTENTS(AC+1) NOT = MINUS 400000,0
7454 035433 321 10 0 00 035422 JUMPL SAC,Q12300 ;LOOP ON ERROR SWITCH^
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 44
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - OVERFLOW AND CARRY FLAGS SEQ 0189
7455 SUBTTL DIAGNOSTIC SECTION - DMOVN - OVERFLOW AND CARRY FLAGS
7456
7457 ;CHECK ABILITY TO CLEAR OVFL AND CRY FLAGS BEFORE TESTING INTERACTION WITH DMOVN
7458
7459 035434 255 17 0 00 035435 Q12400: JFCL 17,.+1 ;CLEAR OVFL AND CRY FLAGS
7460 035435 265 04 0 00 035436 JSP AC,.+1 ;READ FLAGS
7461 035436 603 04 0 00 700000 TLNE AC,7B20 ;TEST OVFL AND CRY FLAGS
7462 035437 013 04 0 00 012401 ER13 AC,12401 ;FAIL IF OVFL OR CRY FLG SET
7463 035440 321 10 0 00 035434 JUMPL SAC,Q12400 ;LOOP ON ERROR SWITCH
7464
7465 DMVNF 1250,0,0,0,0,300000,310000,300000,310000^
7466 035441 255 17 0 00 035442 Q12500: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS
7467 DMOVN AC+1,[XWD 0,0 ;*DMOVN TEST
7468 035442 121 05 0 00 036702 XWD 0,0]
7469 035443 265 04 0 00 035444 JSP AC,.+1 ;READ FLAGS
7470 035444 621 04 0 00 027777 Q12501: TLZ AC,027777 ;CLEAR EXTRA JUNK
7471 035445 603 04 0 00 010000 TLNE AC,USERF ;IN USER MODE ?
7472 035446 254 00 0 00 035460 JRST Q12504 ;YES
7473 035447 336 00 0 00 030524 SKIPN SM10 ;KL10 ?
7474 035450 254 00 0 00 035455 JRST Q12503 ;YES
7475 035451 312 04 0 00 036734 CAME AC,[300000,,Q12501]
7476 035452 013 04 0 00 012501 ER13 AC,12501 ;FAIL IF FLAGS NOT SET
7477 035453 321 10 0 00 035441 Q12502: JUMPL SAC,Q12500 ;LOOP ON ERROR SWITCH
7478 035454 254 00 0 00 035470 JRST Q12506
7479 035455 312 04 0 00 036734 Q12503: CAME AC,[300000,,Q12501]
7480 035456 013 04 0 00 012501 ER13 AC,12501 ;FAIL IF FLAGS NOT SET
7481 035457 254 00 0 00 035453 JRST Q12502
7482 035460 336 00 0 00 030524 Q12504: SKIPN SM10 ;KL10 ?
7483 035461 254 00 0 00 035465 JRST Q12505 ;YES
7484 035462 312 04 0 00 036735 CAME AC,[310000,,Q12501]
7485 035463 013 04 0 00 012501 ER13 AC,12501 ;FAIL IF FLAGS NOT SET
7486 035464 254 00 0 00 035453 JRST Q12502
7487 035465 312 04 0 00 036735 Q12505: CAME AC,[310000,,Q12501]
7488 035466 013 04 0 00 012501 ER13 AC,12501 ;FAIL IF FLAGS NOT SET
7489 035467 254 00 0 00 035453 JRST Q12502
7490 035470 254 00 0 00 035471 Q12506: JRST .+1^
7491 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 44-1
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - OVERFLOW AND CARRY FLAGS SEQ 0190
7492 DMVNF 1260,400000,0,0,0,500000,510000,100000,510000^
7493 035471 255 17 0 00 035472 Q12600: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS
7494 DMOVN AC+1,[XWD 400000,0 ;*DMOVN TEST
7495 035472 121 05 0 00 036730 XWD 0,0]
7496 035473 265 04 0 00 035474 JSP AC,.+1 ;READ FLAGS
7497 035474 621 04 0 00 027777 Q12601: TLZ AC,027777 ;CLEAR EXTRA JUNK
7498 035475 603 04 0 00 010000 TLNE AC,USERF ;IN USER MODE ?
7499 035476 254 00 0 00 035510 JRST Q12604 ;YES
7500 035477 336 00 0 00 030524 SKIPN SM10 ;KL10 ?
7501 035500 254 00 0 00 035505 JRST Q12603 ;YES
7502 035501 312 04 0 00 036736 CAME AC,[500000,,Q12601]
7503 035502 013 04 0 00 012601 ER13 AC,12601 ;FAIL IF FLAGS NOT SET
7504 035503 321 10 0 00 035471 Q12602: JUMPL SAC,Q12600 ;LOOP ON ERROR SWITCH
7505 035504 254 00 0 00 035520 JRST Q12606
7506 035505 312 04 0 00 036737 Q12603: CAME AC,[100000,,Q12601]
7507 035506 013 04 0 00 012601 ER13 AC,12601 ;FAIL IF FLAGS NOT SET
7508 035507 254 00 0 00 035503 JRST Q12602
7509 035510 336 00 0 00 030524 Q12604: SKIPN SM10 ;KL10 ?
7510 035511 254 00 0 00 035515 JRST Q12605 ;YES
7511 035512 312 04 0 00 036740 CAME AC,[510000,,Q12601]
7512 035513 013 04 0 00 012601 ER13 AC,12601 ;FAIL IF FLAGS NOT SET
7513 035514 254 00 0 00 035503 JRST Q12602
7514 035515 312 04 0 00 036740 Q12605: CAME AC,[510000,,Q12601]
7515 035516 013 04 0 00 012601 ER13 AC,12601 ;FAIL IF FLAGS NOT SET
7516 035517 254 00 0 00 035503 JRST Q12602
7517 035520 254 00 0 00 035521 Q12606: JRST .+1^
7518 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 44-2
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - OVERFLOW AND CARRY FLAGS SEQ 0191
7519 DMVNF 1270,0,0,400000,0,300000,310000,300000,310000^
7520 035521 255 17 0 00 035522 Q12700: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS
7521 DMOVN AC+1,[XWD 0,0 ;*DMOVN TEST
7522 035522 121 05 0 00 036731 XWD 400000,0]
7523 035523 265 04 0 00 035524 JSP AC,.+1 ;READ FLAGS
7524 035524 621 04 0 00 027777 Q12701: TLZ AC,027777 ;CLEAR EXTRA JUNK
7525 035525 603 04 0 00 010000 TLNE AC,USERF ;IN USER MODE ?
7526 035526 254 00 0 00 035540 JRST Q12704 ;YES
7527 035527 336 00 0 00 030524 SKIPN SM10 ;KL10 ?
7528 035530 254 00 0 00 035535 JRST Q12703 ;YES
7529 035531 312 04 0 00 036741 CAME AC,[300000,,Q12701]
7530 035532 013 04 0 00 012701 ER13 AC,12701 ;FAIL IF FLAGS NOT SET
7531 035533 321 10 0 00 035521 Q12702: JUMPL SAC,Q12700 ;LOOP ON ERROR SWITCH
7532 035534 254 00 0 00 035550 JRST Q12706
7533 035535 312 04 0 00 036741 Q12703: CAME AC,[300000,,Q12701]
7534 035536 013 04 0 00 012701 ER13 AC,12701 ;FAIL IF FLAGS NOT SET
7535 035537 254 00 0 00 035533 JRST Q12702
7536 035540 336 00 0 00 030524 Q12704: SKIPN SM10 ;KL10 ?
7537 035541 254 00 0 00 035545 JRST Q12705 ;YES
7538 035542 312 04 0 00 036742 CAME AC,[310000,,Q12701]
7539 035543 013 04 0 00 012701 ER13 AC,12701 ;FAIL IF FLAGS NOT SET
7540 035544 254 00 0 00 035533 JRST Q12702
7541 035545 312 04 0 00 036742 Q12705: CAME AC,[310000,,Q12701]
7542 035546 013 04 0 00 012701 ER13 AC,12701 ;FAIL IF FLAGS NOT SET
7543 035547 254 00 0 00 035533 JRST Q12702
7544 035550 254 00 0 00 035551 Q12706: JRST .+1^
7545 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 44-3
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVN - OVERFLOW AND CARRY FLAGS SEQ 0192
7546 DMVNF 1300,400000,0,400000,0,500000,510000,100000,510000^
7547 035551 255 17 0 00 035552 Q13000: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS
7548 DMOVN AC+1,[XWD 400000,0 ;*DMOVN TEST
7549 035552 121 05 0 00 036732 XWD 400000,0]
7550 035553 265 04 0 00 035554 JSP AC,.+1 ;READ FLAGS
7551 035554 621 04 0 00 027777 Q13001: TLZ AC,027777 ;CLEAR EXTRA JUNK
7552 035555 603 04 0 00 010000 TLNE AC,USERF ;IN USER MODE ?
7553 035556 254 00 0 00 035570 JRST Q13004 ;YES
7554 035557 336 00 0 00 030524 SKIPN SM10 ;KL10 ?
7555 035560 254 00 0 00 035565 JRST Q13003 ;YES
7556 035561 312 04 0 00 036743 CAME AC,[500000,,Q13001]
7557 035562 013 04 0 00 013001 ER13 AC,13001 ;FAIL IF FLAGS NOT SET
7558 035563 321 10 0 00 035551 Q13002: JUMPL SAC,Q13000 ;LOOP ON ERROR SWITCH
7559 035564 254 00 0 00 035600 JRST Q13006
7560 035565 312 04 0 00 036744 Q13003: CAME AC,[100000,,Q13001]
7561 035566 013 04 0 00 013001 ER13 AC,13001 ;FAIL IF FLAGS NOT SET
7562 035567 254 00 0 00 035563 JRST Q13002
7563 035570 336 00 0 00 030524 Q13004: SKIPN SM10 ;KL10 ?
7564 035571 254 00 0 00 035575 JRST Q13005 ;YES
7565 035572 312 04 0 00 036745 CAME AC,[510000,,Q13001]
7566 035573 013 04 0 00 013001 ER13 AC,13001 ;FAIL IF FLAGS NOT SET
7567 035574 254 00 0 00 035563 JRST Q13002
7568 035575 312 04 0 00 036745 Q13005: CAME AC,[510000,,Q13001]
7569 035576 013 04 0 00 013001 ER13 AC,13001 ;FAIL IF FLAGS NOT SET
7570 035577 254 00 0 00 035563 JRST Q13002
7571 035600 254 00 0 00 035601 Q13006: JRST .+1^
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 45
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVEM - GENERAL DATA PATTERNS SEQ 0193
7572 SUBTTL DIAGNOSTIC SECTION - DMOVEM - GENERAL DATA PATTERNS
7573
7574 ;CHECK THAT 'DMOVEM AC,E' DOES NOT CLOBBER C(AC) OR C(AC+1)
7575
7576 Q13050: DMOVE AC,[631463,,146314 ;INITIALIZE C(AC), C(AC+1)
7577 035601 120 04 0 00 036675 424242,,131313]
7578 035602 124 04 0 00 000002 DMOVEM AC,AC-2 ;*MOVE DOUBLE WORD FROM AC, AC+1 TO MEMORY
7579 035603 312 04 0 00 036675 CAME AC,[631463,,146314] ;WAS C(AC) MODIFIED?
7580 035604 003 04 0 00 013051 ER3 AC,13051 ;C(AC) WAS CLOBBERED
7581 035605 312 05 0 00 036676 CAME AC+1,[424242,,131313] ;WAS C(AC+1) MODIFIED?
7582 035606 004 05 0 00 013051 ER4 AC+1,13051 ;C(AC+1) WAS CLOBBERED
7583 035607 321 10 0 00 035601 JUMPL SAC,Q13050 ;LOOP ON ERROR SWITCH
7584 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 45-1
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVEM - GENERAL DATA PATTERNS SEQ 0194
7585 DMVM 1310,0,0,0,0^
7586 Q13100: DMOVE AC,[XWD 707070,707070
7587 035610 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE TEST WORDS
7588 035611 202 04 0 00 036501 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST
7589 035612 202 05 0 00 036502 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM
7590 DMOVE AC,[XWD 0,0
7591 035613 120 04 0 00 036702 XWD 0,0] ;INITIALIZE AC,AC+1
7592 035614 124 04 0 00 036501 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1
7593 035615 120 04 0 00 036501 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON
7594 035616 312 04 0 00 036677 CAME AC,[XWD 0,0] ;WAS TSTWD LOADED CORRECTLY?
7595 035617 005 04 0 00 013101 ER5 AC,13101 ;FAIL IF CONTENTS(TSTWD) NOT = 0,0
7596 035620 312 05 0 00 036677 CAME AC+1,[XWD 0,0] ;WAS TSTWD+1 LOADED CORRECTLY?
7597 035621 006 05 0 00 013102 ER6 AC+1,13102 ;FAIL IF CONTENTS(TSTWD+1) NOT = 0,0
7598 035622 321 10 0 00 035610 JUMPL SAC,Q13100 ;LOOP ON ERROR SWITCH^
7599
7600 DMVM 1320,-1,-1,-1,-1^
7601 Q13200: DMOVE AC,[XWD 707070,707070
7602 035623 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE TEST WORDS
7603 035624 202 04 0 00 036501 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST
7604 035625 202 05 0 00 036502 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM
7605 DMOVE AC,[XWD -1,-1
7606 035626 120 04 0 00 036704 XWD -1,-1] ;INITIALIZE AC,AC+1
7607 035627 124 04 0 00 036501 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1
7608 035630 120 04 0 00 036501 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON
7609 035631 312 04 0 00 036704 CAME AC,[XWD -1,-1] ;WAS TSTWD LOADED CORRECTLY?
7610 035632 005 04 0 00 013201 ER5 AC,13201 ;FAIL IF CONTENTS(TSTWD) NOT = -1,-1
7611 035633 312 05 0 00 036704 CAME AC+1,[XWD -1,-1] ;WAS TSTWD+1 LOADED CORRECTLY?
7612 035634 006 05 0 00 013202 ER6 AC+1,13202 ;FAIL IF CONTENTS(TSTWD+1) NOT = -1,-1
7613 035635 321 10 0 00 035623 JUMPL SAC,Q13200 ;LOOP ON ERROR SWITCH^
7614 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 45-2
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVEM - GENERAL DATA PATTERNS SEQ 0195
7615 DMVM 1330,0,0,-1,-1^
7616 Q13300: DMOVE AC,[XWD 707070,707070
7617 035636 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE TEST WORDS
7618 035637 202 04 0 00 036501 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST
7619 035640 202 05 0 00 036502 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM
7620 DMOVE AC,[XWD 0,0
7621 035641 120 04 0 00 036703 XWD -1,-1] ;INITIALIZE AC,AC+1
7622 035642 124 04 0 00 036501 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1
7623 035643 120 04 0 00 036501 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON
7624 035644 312 04 0 00 036677 CAME AC,[XWD 0,0] ;WAS TSTWD LOADED CORRECTLY?
7625 035645 005 04 0 00 013301 ER5 AC,13301 ;FAIL IF CONTENTS(TSTWD) NOT = 0,0
7626 035646 312 05 0 00 036704 CAME AC+1,[XWD -1,-1] ;WAS TSTWD+1 LOADED CORRECTLY?
7627 035647 006 05 0 00 013302 ER6 AC+1,13302 ;FAIL IF CONTENTS(TSTWD+1) NOT = -1,-1
7628 035650 321 10 0 00 035636 JUMPL SAC,Q13300 ;LOOP ON ERROR SWITCH^
7629
7630 DMVM 1340,-1,-1,0,0^
7631 Q13400: DMOVE AC,[XWD 707070,707070
7632 035651 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE TEST WORDS
7633 035652 202 04 0 00 036501 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST
7634 035653 202 05 0 00 036502 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM
7635 DMOVE AC,[XWD -1,-1
7636 035654 120 04 0 00 036705 XWD 0,0] ;INITIALIZE AC,AC+1
7637 035655 124 04 0 00 036501 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1
7638 035656 120 04 0 00 036501 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON
7639 035657 312 04 0 00 036704 CAME AC,[XWD -1,-1] ;WAS TSTWD LOADED CORRECTLY?
7640 035660 005 04 0 00 013401 ER5 AC,13401 ;FAIL IF CONTENTS(TSTWD) NOT = -1,-1
7641 035661 312 05 0 00 036677 CAME AC+1,[XWD 0,0] ;WAS TSTWD+1 LOADED CORRECTLY?
7642 035662 006 05 0 00 013402 ER6 AC+1,13402 ;FAIL IF CONTENTS(TSTWD+1) NOT = 0,0
7643 035663 321 10 0 00 035651 JUMPL SAC,Q13400 ;LOOP ON ERROR SWITCH^
7644 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 45-3
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVEM - GENERAL DATA PATTERNS SEQ 0196
7645 DMVM 1350,252525,252525,525252,525252^
7646 Q13500: DMOVE AC,[XWD 707070,707070
7647 035664 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE TEST WORDS
7648 035665 202 04 0 00 036501 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST
7649 035666 202 05 0 00 036502 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM
7650 DMOVE AC,[XWD 252525,252525
7651 035667 120 04 0 00 036710 XWD 525252,525252] ;INITIALIZE AC,AC+1
7652 035670 124 04 0 00 036501 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1
7653 035671 120 04 0 00 036501 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON
7654 035672 312 04 0 00 036674 CAME AC,[XWD 252525,252525] ;WAS TSTWD LOADED CORRECTLY?
7655 035673 005 04 0 00 013501 ER5 AC,13501 ;FAIL IF CONTENTS(TSTWD) NOT = 252525,252525
7656 035674 312 05 0 00 036707 CAME AC+1,[XWD 525252,525252] ;WAS TSTWD+1 LOADED CORRECTLY?
7657 035675 006 05 0 00 013502 ER6 AC+1,13502 ;FAIL IF CONTENTS(TSTWD+1) NOT = 525252,525252
7658 035676 321 10 0 00 035664 JUMPL SAC,Q13500 ;LOOP ON ERROR SWITCH^
7659
7660 DMVM 1360,525252,525252,252525,252525^
7661 Q13600: DMOVE AC,[XWD 707070,707070
7662 035677 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE TEST WORDS
7663 035700 202 04 0 00 036501 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST
7664 035701 202 05 0 00 036502 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM
7665 DMOVE AC,[XWD 525252,525252
7666 035702 120 04 0 00 036707 XWD 252525,252525] ;INITIALIZE AC,AC+1
7667 035703 124 04 0 00 036501 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1
7668 035704 120 04 0 00 036501 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON
7669 035705 312 04 0 00 036707 CAME AC,[XWD 525252,525252] ;WAS TSTWD LOADED CORRECTLY?
7670 035706 005 04 0 00 013601 ER5 AC,13601 ;FAIL IF CONTENTS(TSTWD) NOT = 525252,525252
7671 035707 312 05 0 00 036674 CAME AC+1,[XWD 252525,252525] ;WAS TSTWD+1 LOADED CORRECTLY?
7672 035710 006 05 0 00 013602 ER6 AC+1,13602 ;FAIL IF CONTENTS(TSTWD+1) NOT = 252525,252525
7673 035711 321 10 0 00 035677 JUMPL SAC,Q13600 ;LOOP ON ERROR SWITCH^
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 46
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVEM - AC=17, AC+1=0 SEQ 0197
7674 SUBTTL DIAGNOSTIC SECTION - DMOVEM - AC=17, AC+1=0
7675
7676 ;CHECK DMOVEM FOR AC=17 AND AC+1=0
7677
7678 000017 AC=17
7679 000003 SAC=<AC+4>&17
7680 SAVEAC (1,1)^
7681 035712 201 03 0 00 035712 MOVEI SAC,.
7682 035713 202 03 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC
7683 035714 201 03 0 00 000003 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH
7684 035715 202 03 0 00 037141 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^
7685
7686 DMVM17 1370,-1,-1,-1,-1^
7687 035716 202 17 0 00 037151 Q13700: MOVEM AC,%SV17 ;SAVE AC17 CAUSE IT HAS PDP
7688 DMOVE AC,[XWD 707070,707070
7689 035717 120 17 0 00 036700 XWD 070707,070707] ;INITIALIZE TEST WORDS
7690 035720 202 17 0 00 036501 MOVEM AC,TSTWD ;TSTWD, TSTWD+1 ARE IN MEMORY JUST
7691 035721 202 00 0 00 036502 MOVEM AC+1,TSTWD+1 ;AFTER THE FINAL TEST OF THIS PROGRAM
7692 DMOVE AC,[XWD -1,-1
7693 035722 120 17 0 00 036704 XWD -1,-1] ;INITIALIZE AC,AC+1
7694 035723 124 17 0 00 036501 DMOVEM AC,TSTWD ;*MOVE DOUBLE WORD FROM AC, AC+1
7695 035724 120 17 0 00 036501 DMOVE AC,TSTWD ;PUT RESULTS OF TEST IN AC,AC+1 FOR COMPARISON
7696 035725 316 17 0 00 036704 CAMN AC,[XWD -1,-1] ;WAS TSTWD LOADED CORRECTLY?
7697 035726 254 00 0 00 035732 JRST .+4 ;HERE IF TESTS OK
7698 035727 202 17 0 00 000016 MOVEM AC,AC-1 ;SAVE BAD WORD
7699 035730 200 17 0 00 037151 MOVE AC,%SV17 ;RESTORE P
7700 035731 005 16 0 00 013701 ER5 AC-1,13701 ;FAIL IF CONTENTS(TSTWD) NOT = -1,-1
7701 035732 316 00 0 00 036704 CAMN AC+1,[XWD -1,-1] ;WAS TSTWD+1 LOADED CORRECTLY?
7702 035733 254 00 0 00 035737 JRST .+4 ;HERE IF TESTS OK
7703 035734 202 17 0 00 000016 MOVEM AC,AC-1 ;SAVE BAD WORD
7704 035735 200 17 0 00 037151 MOVE AC,%SV17 ;RESTORE P
7705 035736 006 00 0 00 013702 ER6 AC+1,13702 ;FAIL IF CONTENTS(TSTWD+1) NOT = -1,-1
7706 035737 200 17 0 00 037151 MOVE AC,%SV17 ;RESTORE AC UNCONDITIONALLY
7707 035740 321 03 0 00 035716 JUMPL SAC,Q13700 ;LOOP ON ERROR SWITCH^
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 47
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVEM - AC RANGE ADDRESS SEQ 0198
7708 SUBTTL DIAGNOSTIC SECTION - DMOVEM - AC RANGE ADDRESS
7709
7710 ;CHECK DMOVEM WHERE 'E' IS WITHIN THE 'AC' RANGE
7711
7712 000004 AC=4
7713 000010 SAC=<AC+4>&17
7714 SAVEAC (1,1)^
7715 035741 201 10 0 00 035741 MOVEI SAC,.
7716 035742 202 10 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC
7717 035743 201 10 0 00 000010 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH
7718 035744 202 10 0 00 037141 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^
7719 000002 E=<AC-2>&17
7720
7721 014000 SN=14000
7722 000001 E=<E-1>&17
7723
7724 Q14000: REPEAT ^D5,<
7725 ;CHECK DMOVEM WHERE 'E' IS WITHIN THE AC RANGE
7726
7727 SN=SN+1
7728 E=<E+1>&17
7729 DMOVE E,[XWD 707070,707070
7730 XWD 070707,070707] ;INITIALIZE E,E+1
7731 DMOVE AC,[XWD -1,-1 ;INITIALIZE AC, AC+1
7732 XWD 0,-1]
7733 DMOVEM AC,E ;*MOVE DOUBLE WORD FROM AC, AC+1 TO MEMORY
7734 CAME E,[XWD -1,-1] ;WAS 'E' UPDATED CORRECTLY?
7735 ER5 E,SN ;FAIL IF C(E) IS NOT = TO -1,-1
7736 IFN <E-<AC+1>>,<
7737 CAME E+1,[XWD 0,-1] ;FAIL IF C(E+1) IS NOT = 0,-1>
7738 IFE <E-<AC+1>>,<
7739 GO Q14001 ;THIS CASE DIFFERENT KI/KL>
7740 ER6 E+1,SN ;'E+1' WAS NOT UPDATED CORRECTLY
7741 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
7742 >
7743
7744 ;CHECK DMOVEM WHERE 'E' IS WITHIN THE AC RANGE
7745
7746 014001 SN=SN+1
7747 000002 E=<E+1>&17
7748 DMOVE E,[XWD 707070,707070
7749 035745 120 02 0 00 036700 XWD 070707,070707] ;INITIALIZE E,E+1
7750 DMOVE AC,[XWD -1,-1 ;INITIALIZE AC, AC+1
7751 035746 120 04 0 00 036746 XWD 0,-1]
7752 035747 124 04 0 00 000002 DMOVEM AC,E ;*MOVE DOUBLE WORD FROM AC, AC+1 TO MEMORY
7753 035750 312 02 0 00 036704 CAME E,[XWD -1,-1] ;WAS 'E' UPDATED CORRECTLY?
7754 035751 005 02 0 00 014001 ER5 E,SN ;FAIL IF C(E) IS NOT = TO -1,-1
7755 IFN <E-<AC+1>>,<
7756 035752 312 03 0 00 036725 CAME E+1,[XWD 0,-1] ;FAIL IF C(E+1) IS NOT = 0,-1>
7757 IFE <E-<AC+1>>,<
7758 GO Q14001 ;THIS CASE DIFFERENT KI/KL>
7759 035753 006 03 0 00 014001 ER6 E+1,SN ;'E+1' WAS NOT UPDATED CORRECTLY
7760 035754 321 10 0 00 035745 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
7761
7762
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 47-1
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVEM - AC RANGE ADDRESS SEQ 0199
7763 ;CHECK DMOVEM WHERE 'E' IS WITHIN THE AC RANGE
7764
7765 014002 SN=SN+1
7766 000003 E=<E+1>&17
7767 DMOVE E,[XWD 707070,707070
7768 035755 120 03 0 00 036700 XWD 070707,070707] ;INITIALIZE E,E+1
7769 DMOVE AC,[XWD -1,-1 ;INITIALIZE AC, AC+1
7770 035756 120 04 0 00 036746 XWD 0,-1]
7771 035757 124 04 0 00 000003 DMOVEM AC,E ;*MOVE DOUBLE WORD FROM AC, AC+1 TO MEMORY
7772 035760 312 03 0 00 036704 CAME E,[XWD -1,-1] ;WAS 'E' UPDATED CORRECTLY?
7773 035761 005 03 0 00 014002 ER5 E,SN ;FAIL IF C(E) IS NOT = TO -1,-1
7774 IFN <E-<AC+1>>,<
7775 035762 312 04 0 00 036725 CAME E+1,[XWD 0,-1] ;FAIL IF C(E+1) IS NOT = 0,-1>
7776 IFE <E-<AC+1>>,<
7777 GO Q14001 ;THIS CASE DIFFERENT KI/KL>
7778 035763 006 04 0 00 014002 ER6 E+1,SN ;'E+1' WAS NOT UPDATED CORRECTLY
7779 035764 321 10 0 00 035755 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
7780
7781
7782 ;CHECK DMOVEM WHERE 'E' IS WITHIN THE AC RANGE
7783
7784 014003 SN=SN+1
7785 000004 E=<E+1>&17
7786 DMOVE E,[XWD 707070,707070
7787 035765 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE E,E+1
7788 DMOVE AC,[XWD -1,-1 ;INITIALIZE AC, AC+1
7789 035766 120 04 0 00 036746 XWD 0,-1]
7790 035767 124 04 0 00 000004 DMOVEM AC,E ;*MOVE DOUBLE WORD FROM AC, AC+1 TO MEMORY
7791 035770 312 04 0 00 036704 CAME E,[XWD -1,-1] ;WAS 'E' UPDATED CORRECTLY?
7792 035771 005 04 0 00 014003 ER5 E,SN ;FAIL IF C(E) IS NOT = TO -1,-1
7793 IFN <E-<AC+1>>,<
7794 035772 312 05 0 00 036725 CAME E+1,[XWD 0,-1] ;FAIL IF C(E+1) IS NOT = 0,-1>
7795 IFE <E-<AC+1>>,<
7796 GO Q14001 ;THIS CASE DIFFERENT KI/KL>
7797 035773 006 05 0 00 014003 ER6 E+1,SN ;'E+1' WAS NOT UPDATED CORRECTLY
7798 035774 321 10 0 00 035765 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
7799
7800
7801 ;CHECK DMOVEM WHERE 'E' IS WITHIN THE AC RANGE
7802
7803 014004 SN=SN+1
7804 000005 E=<E+1>&17
7805 DMOVE E,[XWD 707070,707070
7806 035775 120 05 0 00 036700 XWD 070707,070707] ;INITIALIZE E,E+1
7807 DMOVE AC,[XWD -1,-1 ;INITIALIZE AC, AC+1
7808 035776 120 04 0 00 036746 XWD 0,-1]
7809 035777 124 04 0 00 000005 DMOVEM AC,E ;*MOVE DOUBLE WORD FROM AC, AC+1 TO MEMORY
7810 036000 312 05 0 00 036704 CAME E,[XWD -1,-1] ;WAS 'E' UPDATED CORRECTLY?
7811 036001 005 05 0 00 014004 ER5 E,SN ;FAIL IF C(E) IS NOT = TO -1,-1
7812 IFN <E-<AC+1>>,<
7813 CAME E+1,[XWD 0,-1] ;FAIL IF C(E+1) IS NOT = 0,-1>
7814 IFE <E-<AC+1>>,<
7815 036002 260 17 0 00 036016 GO Q14001 ;THIS CASE DIFFERENT KI/KL>
7816 036003 006 06 0 00 014004 ER6 E+1,SN ;'E+1' WAS NOT UPDATED CORRECTLY
7817 036004 321 10 0 00 035775 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 47-2
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVEM - AC RANGE ADDRESS SEQ 0200
7818
7819
7820 ;CHECK DMOVEM WHERE 'E' IS WITHIN THE AC RANGE
7821
7822 014005 SN=SN+1
7823 000006 E=<E+1>&17
7824 DMOVE E,[XWD 707070,707070
7825 036005 120 06 0 00 036700 XWD 070707,070707] ;INITIALIZE E,E+1
7826 DMOVE AC,[XWD -1,-1 ;INITIALIZE AC, AC+1
7827 036006 120 04 0 00 036746 XWD 0,-1]
7828 036007 124 04 0 00 000006 DMOVEM AC,E ;*MOVE DOUBLE WORD FROM AC, AC+1 TO MEMORY
7829 036010 312 06 0 00 036704 CAME E,[XWD -1,-1] ;WAS 'E' UPDATED CORRECTLY?
7830 036011 005 06 0 00 014005 ER5 E,SN ;FAIL IF C(E) IS NOT = TO -1,-1
7831 IFN <E-<AC+1>>,<
7832 036012 312 07 0 00 036725 CAME E+1,[XWD 0,-1] ;FAIL IF C(E+1) IS NOT = 0,-1>
7833 IFE <E-<AC+1>>,<
7834 GO Q14001 ;THIS CASE DIFFERENT KI/KL>
7835 036013 006 07 0 00 014005 ER6 E+1,SN ;'E+1' WAS NOT UPDATED CORRECTLY
7836 036014 321 10 0 00 036005 JUMPL SAC,.-7 ;LOOP ON ERROR SWITCH
7837
7838 036015 254 00 0 00 036026 JRST Q14021
7839
7840 036016 332 00 0 00 030041 Q14001: SKIPE KLFLG ;KL10 ?
7841 036017 254 00 0 00 036023 JRST Q14003 ;YES
7842
7843 036020 316 06 0 00 036704 Q14002: CAMN 6,[-1,,-1] ;KI10
7844 036021 350 00 0 17 000000 AOS (P) ;PASSED, SKIP RETURN OVER ERROR
7845 036022 263 17 0 00 000000 RTN
7846
7847 036023 316 06 0 00 036725 Q14003: CAMN 6,[0,,-1] ;KL10
7848 036024 350 00 0 17 000000 AOS (P) ;PASSED, SKIP RETURN OVER ERROR
7849 036025 263 17 0 00 000000 RTN
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 48
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVEM - BIS FLAG SEQ 0201
7850 SUBTTL DIAGNOSTIC SECTION - DMOVEM - BIS FLAG
7851
7852 036026 332 00 0 00 030041 Q14021: SKIPE KLFLG ;KL10 ?
7853 036027 254 00 0 00 036051 JRST Q14050 ;YES
7854
7855 ;**KI10 ONLY TEST**
7856 ;VERIFY THAT C(E) IS NOT MODIFIED BY "DMOVEM AC,E" IF 'BIS'
7857 ;FLAG IS SET; AND THAT THE SECOND PART OF "DMOVEM" CLEARS 'BIS'.
7858
7859 000004 AC=4
7860 000010 SAC=<AC+4>&17
7861 SAVEAC (1,1)^
7862 036030 201 10 0 00 036030 MOVEI SAC,.
7863 036031 202 10 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC
7864 036032 201 10 0 00 000010 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH
7865 036033 202 10 0 00 037141 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^
7866 000002 E=<AC-2>&17
7867
7868 Q14020: DMOVE AC,[631463,,146314
7869 036034 120 04 0 00 036675 424242,,131313] ;INITIALIZE AC,AC+1
7870 036035 477 02 0 00 000003 SETOB E,<E+1>&17 ;INITIALIZE E,E+1
7871 036036 254 02 1 00 036037 JRSTF @.+1 ;SET 'BIS' FLAG
7872 036037 020000 036040 XWD BIS,.+1
7873 036040 124 04 0 00 000002 DMOVEM AC,E ;*DMOVEM SHOULD MODIFY ONLY 'E+1' AND CLEAR BIS FLAG
7874 036041 312 02 0 00 036704 CAME E,[-1,,-1] ;WAS C(E) MODIFIED?
7875 036042 005 02 0 00 014021 ER5 E,14021 ;YES, C(E) WAS MODIFIED
7876 036043 312 03 0 00 000005 CAME E+1,<AC+1>&17 ;WAS C(E+1) MODIFIED?
7877 036044 006 03 0 00 014021 ER6 E+1,14021 ;NO, C(E+1) WAS NOT MODIFIED
7878 036045 265 06 0 00 036046 JSP AC+2,.+1 ;READ FLAGS
7879 036046 603 06 0 00 020000 TLNE AC+2,BIS ;IS 'BIS' FLAG CLEAR
7880 036047 013 06 0 00 014021 ER13 AC+2,14021 ;NO
7881 036050 321 10 0 00 036034 JUMPL SAC,Q14020 ;LOOP ON ERROR SWITCH
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 49
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS SEQ 0202
7882 SUBTTL DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS
7883
7884 ;CHECK THAT 'DMOVNM AC,E' DOES NOT CLOBBER C(AC) OR C(AC+1)
7885
7886 Q14050: DMOVE AC,[631463,,146314 ;INITIALIZE AC, AC+1
7887 036051 120 04 0 00 036675 424242,,131313]
7888 036052 125 04 0 00 000002 DMOVNM AC,AC-2 ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 TO MEMORY
7889 036053 312 04 0 00 036675 CAME AC,[631463,,146314] ;WAS C(AC) MODIFIED?
7890 036054 003 04 0 00 014051 ER3 AC,14051 ;C(AC) WAS CLOBBERED
7891 036055 312 05 0 00 036676 CAME AC+1,[424242,,131313] ;WAS C(AC+1) MODIFIED?
7892 036056 004 05 0 00 014051 ER4 AC+1,14051 ;C(AC+1) WAS CLOBBERED
7893 036057 321 10 0 00 036051 JUMPL SAC,Q14050 ;LOOP ON ERROR
7894 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 49-1
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS SEQ 0203
7895 DMVNM 1410,0,0,0,0^
7896 Q14100: DMOVE AC,[XWD 707070,707070
7897 036060 120 04 0 00 036700 XWD 070707,070707]
7898 036061 124 04 0 00 036501 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS
7899 DMOVE AC,[XWD 0,0
7900 036062 120 04 0 00 036702 XWD 0,0] ;INITIALIZE AC,AC+1
7901 DMOVN AC+5,[XWD 0,0
7902 036063 121 11 0 00 036702 XWD 0,0] ;SET-UP TO CHECK RESULTS
7903 036064 125 04 0 00 036501 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
7904 036065 120 04 0 00 036501 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1
7905 036066 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS TSTWD LOADED CORRECTLY?
7906 036067 005 04 0 00 014101 ER5 AC,14101 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF 0,0
7907 036070 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS TSTWD+1 LOADED CORRECTLY?
7908 036071 006 05 0 00 014102 ER6 AC+1,14102 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS 0,0
7909 036072 321 10 0 00 036060 JUMPL SAC,Q14100 ;LOOP ON ERROR SWITCH^
7910 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 49-2
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS SEQ 0204
7911 DMVNM 1420,0,0,0,1^
7912 Q14200: DMOVE AC,[XWD 707070,707070
7913 036073 120 04 0 00 036700 XWD 070707,070707]
7914 036074 124 04 0 00 036501 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS
7915 DMOVE AC,[XWD 0,0
7916 036075 120 04 0 00 036713 XWD 0,1] ;INITIALIZE AC,AC+1
7917 DMOVN AC+5,[XWD 0,0
7918 036076 121 11 0 00 036713 XWD 0,1] ;SET-UP TO CHECK RESULTS
7919 036077 125 04 0 00 036501 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
7920 036100 120 04 0 00 036501 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1
7921 036101 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS TSTWD LOADED CORRECTLY?
7922 036102 005 04 0 00 014201 ER5 AC,14201 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF 0,0
7923 036103 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS TSTWD+1 LOADED CORRECTLY?
7924 036104 006 05 0 00 014202 ER6 AC+1,14202 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS 0,1
7925 036105 321 10 0 00 036073 JUMPL SAC,Q14200 ;LOOP ON ERROR SWITCH^
7926 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 49-3
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS SEQ 0205
7927 DMVNM 1430,-1,-1,0,1^
7928 Q14300: DMOVE AC,[XWD 707070,707070
7929 036106 120 04 0 00 036700 XWD 070707,070707]
7930 036107 124 04 0 00 036501 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS
7931 DMOVE AC,[XWD -1,-1
7932 036110 120 04 0 00 036715 XWD 0,1] ;INITIALIZE AC,AC+1
7933 DMOVN AC+5,[XWD -1,-1
7934 036111 121 11 0 00 036715 XWD 0,1] ;SET-UP TO CHECK RESULTS
7935 036112 125 04 0 00 036501 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
7936 036113 120 04 0 00 036501 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1
7937 036114 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS TSTWD LOADED CORRECTLY?
7938 036115 005 04 0 00 014301 ER5 AC,14301 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF -1,-1
7939 036116 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS TSTWD+1 LOADED CORRECTLY?
7940 036117 006 05 0 00 014302 ER6 AC+1,14302 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS 0,1
7941 036120 321 10 0 00 036106 JUMPL SAC,Q14300 ;LOOP ON ERROR SWITCH^
7942 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 49-4
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS SEQ 0206
7943 DMVNM 1440,0,1,0,0^
7944 Q14400: DMOVE AC,[XWD 707070,707070
7945 036121 120 04 0 00 036700 XWD 070707,070707]
7946 036122 124 04 0 00 036501 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS
7947 DMOVE AC,[XWD 0,1
7948 036123 120 04 0 00 036712 XWD 0,0] ;INITIALIZE AC,AC+1
7949 DMOVN AC+5,[XWD 0,1
7950 036124 121 11 0 00 036712 XWD 0,0] ;SET-UP TO CHECK RESULTS
7951 036125 125 04 0 00 036501 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
7952 036126 120 04 0 00 036501 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1
7953 036127 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS TSTWD LOADED CORRECTLY?
7954 036130 005 04 0 00 014401 ER5 AC,14401 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF 0,1
7955 036131 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS TSTWD+1 LOADED CORRECTLY?
7956 036132 006 05 0 00 014402 ER6 AC+1,14402 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS 0,0
7957 036133 321 10 0 00 036121 JUMPL SAC,Q14400 ;LOOP ON ERROR SWITCH^
7958 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 49-5
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS SEQ 0207
7959 DMVNM 1450,525252,525252,252525,252526^
7960 Q14500: DMOVE AC,[XWD 707070,707070
7961 036134 120 04 0 00 036700 XWD 070707,070707]
7962 036135 124 04 0 00 036501 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS
7963 DMOVE AC,[XWD 525252,525252
7964 036136 120 04 0 00 036720 XWD 252525,252526] ;INITIALIZE AC,AC+1
7965 DMOVN AC+5,[XWD 525252,525252
7966 036137 121 11 0 00 036720 XWD 252525,252526] ;SET-UP TO CHECK RESULTS
7967 036140 125 04 0 00 036501 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
7968 036141 120 04 0 00 036501 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1
7969 036142 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS TSTWD LOADED CORRECTLY?
7970 036143 005 04 0 00 014501 ER5 AC,14501 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF 525252,525252
7971 036144 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS TSTWD+1 LOADED CORRECTLY?
7972 036145 006 05 0 00 014502 ER6 AC+1,14502 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS 252525,252526
7973 036146 321 10 0 00 036134 JUMPL SAC,Q14500 ;LOOP ON ERROR SWITCH^
7974 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 49-6
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS SEQ 0208
7975 DMVNM 1460,252525,252525,525252,525253^
7976 Q14600: DMOVE AC,[XWD 707070,707070
7977 036147 120 04 0 00 036700 XWD 070707,070707]
7978 036150 124 04 0 00 036501 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS
7979 DMOVE AC,[XWD 252525,252525
7980 036151 120 04 0 00 036723 XWD 525252,525253] ;INITIALIZE AC,AC+1
7981 DMOVN AC+5,[XWD 252525,252525
7982 036152 121 11 0 00 036723 XWD 525252,525253] ;SET-UP TO CHECK RESULTS
7983 036153 125 04 0 00 036501 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
7984 036154 120 04 0 00 036501 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1
7985 036155 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS TSTWD LOADED CORRECTLY?
7986 036156 005 04 0 00 014601 ER5 AC,14601 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF 252525,252525
7987 036157 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS TSTWD+1 LOADED CORRECTLY?
7988 036160 006 05 0 00 014602 ER6 AC+1,14602 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS 525252,525253
7989 036161 321 10 0 00 036147 JUMPL SAC,Q14600 ;LOOP ON ERROR SWITCH^
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 50
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - AC=17, AC+1=0 SEQ 0209
7990 SUBTTL DIAGNOSTIC SECTION - DMOVNM - AC=17, AC+1=0
7991
7992 ;CHECK DMOVNM FOR AC=17 AND AC+1=0
7993
7994 000017 AC=17
7995 000003 SAC=<AC+4>&17
7996 SAVEAC (1,1)^
7997 036162 201 03 0 00 036162 MOVEI SAC,.
7998 036163 202 03 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC
7999 036164 201 03 0 00 000003 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH
8000 036165 202 03 0 00 037141 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^
8001
8002 DMVNM17 1470,0,0,0,1^
8003 Q14700: DMOVE AC,[XWD 707070,707070
8004 036166 120 17 0 00 036700 XWD 070707,070707]
8005 036167 124 17 0 00 036501 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS
8006 DMOVE AC,[XWD 0,0
8007 036170 120 17 0 00 036713 XWD 0,1] ;INITIALIZE AC,AC+1
8008 DMOVN AC+5,[XWD 0,0
8009 036171 121 04 0 00 036713 XWD 0,1] ;SET-UP TO CHECK RESULTS
8010 036172 125 17 0 00 036501 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
8011 036173 120 17 0 00 036501 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1
8012 036174 316 17 0 00 000004 CAMN AC,<AC+5>&17 ;WAS TSTWD LOADED CORRECTLY?
8013 036175 254 00 0 00 036201 JRST .+4
8014 036176 202 17 0 00 000016 MOVEM AC,AC-1 ;SAVE BAD WORD
8015 036177 200 17 0 00 037151 MOVE AC,%SV17 ;RESTORE P
8016 036200 005 16 0 00 014701 ER5 AC-1,14701 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF 0,0
8017 036201 316 00 0 00 000005 CAMN AC+1,<AC+6>&17 ;WAS TSTWD+1 LOADED CORRECTLY?
8018 036202 254 00 0 00 036206 JRST .+4 ;HERE IF TESTS OK
8019 036203 202 17 0 00 000016 MOVEM AC,AC-1 ;SAVE BAD WORD
8020 036204 200 17 0 00 037151 MOVE AC,%SV17
8021 036205 006 00 0 00 014702 ER6 AC+1,14702 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS 0,1
8022 036206 200 17 0 00 037151 MOVE AC,%SV17
8023 036207 321 03 0 00 036166 JUMPL SAC,Q14700 ;LOOP ON ERROR SWITCH^
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 51
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - AC RANGE ADDRESS SEQ 0210
8024 SUBTTL DIAGNOSTIC SECTION - DMOVNM - AC RANGE ADDRESS
8025
8026 ;CHECK DMOVNM WHERE 'E' IS WITHIN THE 'AC' RANGE
8027
8028 000004 AC=4
8029 000010 SAC=<AC+4>&17
8030 SAVEAC (1,1)^
8031 036210 201 10 0 00 036210 MOVEI SAC,.
8032 036211 202 10 0 00 030051 MOVEM SAC,TESTPC ;SETUP SUBTEST PC
8033 036212 201 10 0 00 000010 MOVEI SAC,SAC ;INFORM ERROR ROUTINE WHICH
8034 036213 202 10 0 00 037141 MOVEM SAC,ERRLOP# ;AC IS USED FOR ITERATION^
8035 000002 E=AC-2
8036
8037 015000 SN=15000
8038 000001 E=<E-1>&17
8039
8040 Q15000: REPEAT ^D5,<
8041 ;CHECK DMOVNM WHERE 'E' IS WITHIN THE 'AC' RANGE
8042
8043 SN=SN+1
8044 E=<E+1>&17
8045 DMOVE E,[XWD 707070,707070
8046 XWD 070707,070707] ;INITIALIZE E,E+1
8047 DMOVE AC,[XWD 0,0
8048 XWD 0,-1] ;INITIALIZE AC,AC+1
8049 DMOVN AC+5,AC ;INITIALIZE TEST RESULTS
8050 IFE <E-<AC+1>>,<
8051 SKIPN KLFLG ;DON'T DO NEXT INST IF KL10
8052 MOVNM AC+5,<AC+6>&17>
8053 DMOVNM AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 TO MEMORY
8054 CAME E,AC+5 ;WAS 'E' UPDATED CORRECTLY?
8055 ER5 E,SN ;FAIL IF C(E) IS NOT = TO COMPLEMENT C(AC)
8056 CAME E+1,AC+6 ;WAS 'E+1' UPDATED CORRECTLY?
8057 ER6 E+1,SN ;FAIL IF C(E+1) IS NOT = NEGATIVE C(AC+1)
8058 IFN <E-<AC+1>>,<
8059 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH>
8060 IFE <E-<AC+1>>,<
8061 JUMPL SAC,.-^D10 ;LOOP ON ERROR SWITCH>
8062 >
8063
8064 ;CHECK DMOVNM WHERE 'E' IS WITHIN THE 'AC' RANGE
8065
8066 015001 SN=SN+1
8067 000002 E=<E+1>&17
8068 DMOVE E,[XWD 707070,707070
8069 036214 120 02 0 00 036700 XWD 070707,070707] ;INITIALIZE E,E+1
8070 DMOVE AC,[XWD 0,0
8071 036215 120 04 0 00 036726 XWD 0,-1] ;INITIALIZE AC,AC+1
8072 036216 121 11 0 00 000004 DMOVN AC+5,AC ;INITIALIZE TEST RESULTS
8073 IFE <E-<AC+1>>,<
8074 SKIPN KLFLG ;DON'T DO NEXT INST IF KL10
8075 MOVNM AC+5,<AC+6>&17>
8076 036217 125 04 0 00 000002 DMOVNM AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 TO MEMORY
8077 036220 312 02 0 00 000011 CAME E,AC+5 ;WAS 'E' UPDATED CORRECTLY?
8078 036221 005 02 0 00 015001 ER5 E,SN ;FAIL IF C(E) IS NOT = TO COMPLEMENT C(AC)
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 51-1
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - AC RANGE ADDRESS SEQ 0211
8079 036222 312 03 0 00 000012 CAME E+1,AC+6 ;WAS 'E+1' UPDATED CORRECTLY?
8080 036223 006 03 0 00 015001 ER6 E+1,SN ;FAIL IF C(E+1) IS NOT = NEGATIVE C(AC+1)
8081 IFN <E-<AC+1>>,<
8082 036224 321 10 0 00 036214 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH>
8083 IFE <E-<AC+1>>,<
8084 JUMPL SAC,.-^D10 ;LOOP ON ERROR SWITCH>
8085
8086
8087 ;CHECK DMOVNM WHERE 'E' IS WITHIN THE 'AC' RANGE
8088
8089 015002 SN=SN+1
8090 000003 E=<E+1>&17
8091 DMOVE E,[XWD 707070,707070
8092 036225 120 03 0 00 036700 XWD 070707,070707] ;INITIALIZE E,E+1
8093 DMOVE AC,[XWD 0,0
8094 036226 120 04 0 00 036726 XWD 0,-1] ;INITIALIZE AC,AC+1
8095 036227 121 11 0 00 000004 DMOVN AC+5,AC ;INITIALIZE TEST RESULTS
8096 IFE <E-<AC+1>>,<
8097 SKIPN KLFLG ;DON'T DO NEXT INST IF KL10
8098 MOVNM AC+5,<AC+6>&17>
8099 036230 125 04 0 00 000003 DMOVNM AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 TO MEMORY
8100 036231 312 03 0 00 000011 CAME E,AC+5 ;WAS 'E' UPDATED CORRECTLY?
8101 036232 005 03 0 00 015002 ER5 E,SN ;FAIL IF C(E) IS NOT = TO COMPLEMENT C(AC)
8102 036233 312 04 0 00 000012 CAME E+1,AC+6 ;WAS 'E+1' UPDATED CORRECTLY?
8103 036234 006 04 0 00 015002 ER6 E+1,SN ;FAIL IF C(E+1) IS NOT = NEGATIVE C(AC+1)
8104 IFN <E-<AC+1>>,<
8105 036235 321 10 0 00 036225 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH>
8106 IFE <E-<AC+1>>,<
8107 JUMPL SAC,.-^D10 ;LOOP ON ERROR SWITCH>
8108
8109
8110 ;CHECK DMOVNM WHERE 'E' IS WITHIN THE 'AC' RANGE
8111
8112 015003 SN=SN+1
8113 000004 E=<E+1>&17
8114 DMOVE E,[XWD 707070,707070
8115 036236 120 04 0 00 036700 XWD 070707,070707] ;INITIALIZE E,E+1
8116 DMOVE AC,[XWD 0,0
8117 036237 120 04 0 00 036726 XWD 0,-1] ;INITIALIZE AC,AC+1
8118 036240 121 11 0 00 000004 DMOVN AC+5,AC ;INITIALIZE TEST RESULTS
8119 IFE <E-<AC+1>>,<
8120 SKIPN KLFLG ;DON'T DO NEXT INST IF KL10
8121 MOVNM AC+5,<AC+6>&17>
8122 036241 125 04 0 00 000004 DMOVNM AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 TO MEMORY
8123 036242 312 04 0 00 000011 CAME E,AC+5 ;WAS 'E' UPDATED CORRECTLY?
8124 036243 005 04 0 00 015003 ER5 E,SN ;FAIL IF C(E) IS NOT = TO COMPLEMENT C(AC)
8125 036244 312 05 0 00 000012 CAME E+1,AC+6 ;WAS 'E+1' UPDATED CORRECTLY?
8126 036245 006 05 0 00 015003 ER6 E+1,SN ;FAIL IF C(E+1) IS NOT = NEGATIVE C(AC+1)
8127 IFN <E-<AC+1>>,<
8128 036246 321 10 0 00 036236 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH>
8129 IFE <E-<AC+1>>,<
8130 JUMPL SAC,.-^D10 ;LOOP ON ERROR SWITCH>
8131
8132
8133 ;CHECK DMOVNM WHERE 'E' IS WITHIN THE 'AC' RANGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 51-2
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - AC RANGE ADDRESS SEQ 0212
8134
8135 015004 SN=SN+1
8136 000005 E=<E+1>&17
8137 DMOVE E,[XWD 707070,707070
8138 036247 120 05 0 00 036700 XWD 070707,070707] ;INITIALIZE E,E+1
8139 DMOVE AC,[XWD 0,0
8140 036250 120 04 0 00 036726 XWD 0,-1] ;INITIALIZE AC,AC+1
8141 036251 121 11 0 00 000004 DMOVN AC+5,AC ;INITIALIZE TEST RESULTS
8142 IFE <E-<AC+1>>,<
8143 036252 336 00 0 00 030041 SKIPN KLFLG ;DON'T DO NEXT INST IF KL10
8144 036253 212 11 0 00 000012 MOVNM AC+5,<AC+6>&17>
8145 036254 125 04 0 00 000005 DMOVNM AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 TO MEMORY
8146 036255 312 05 0 00 000011 CAME E,AC+5 ;WAS 'E' UPDATED CORRECTLY?
8147 036256 005 05 0 00 015004 ER5 E,SN ;FAIL IF C(E) IS NOT = TO COMPLEMENT C(AC)
8148 036257 312 06 0 00 000012 CAME E+1,AC+6 ;WAS 'E+1' UPDATED CORRECTLY?
8149 036260 006 06 0 00 015004 ER6 E+1,SN ;FAIL IF C(E+1) IS NOT = NEGATIVE C(AC+1)
8150 IFN <E-<AC+1>>,<
8151 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH>
8152 IFE <E-<AC+1>>,<
8153 036261 321 10 0 00 036247 JUMPL SAC,.-^D10 ;LOOP ON ERROR SWITCH>
8154
8155
8156 ;CHECK DMOVNM WHERE 'E' IS WITHIN THE 'AC' RANGE
8157
8158 015005 SN=SN+1
8159 000006 E=<E+1>&17
8160 DMOVE E,[XWD 707070,707070
8161 036262 120 06 0 00 036700 XWD 070707,070707] ;INITIALIZE E,E+1
8162 DMOVE AC,[XWD 0,0
8163 036263 120 04 0 00 036726 XWD 0,-1] ;INITIALIZE AC,AC+1
8164 036264 121 11 0 00 000004 DMOVN AC+5,AC ;INITIALIZE TEST RESULTS
8165 IFE <E-<AC+1>>,<
8166 SKIPN KLFLG ;DON'T DO NEXT INST IF KL10
8167 MOVNM AC+5,<AC+6>&17>
8168 036265 125 04 0 00 000006 DMOVNM AC,E ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1 TO MEMORY
8169 036266 312 06 0 00 000011 CAME E,AC+5 ;WAS 'E' UPDATED CORRECTLY?
8170 036267 005 06 0 00 015005 ER5 E,SN ;FAIL IF C(E) IS NOT = TO COMPLEMENT C(AC)
8171 036270 312 07 0 00 000012 CAME E+1,AC+6 ;WAS 'E+1' UPDATED CORRECTLY?
8172 036271 006 07 0 00 015005 ER6 E+1,SN ;FAIL IF C(E+1) IS NOT = NEGATIVE C(AC+1)
8173 IFN <E-<AC+1>>,<
8174 036272 321 10 0 00 036262 JUMPL SAC,.-^D8 ;LOOP ON ERROR SWITCH>
8175 IFE <E-<AC+1>>,<
8176 JUMPL SAC,.-^D10 ;LOOP ON ERROR SWITCH>
8177
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 52
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS SEQ 0213
8178 SUBTTL DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS
8179
8180 DMVNM 1510,400000,0,0,0^
8181 Q15100: DMOVE AC,[XWD 707070,707070
8182 036273 120 04 0 00 036700 XWD 070707,070707]
8183 036274 124 04 0 00 036501 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS
8184 DMOVE AC,[XWD 400000,0
8185 036275 120 04 0 00 036730 XWD 0,0] ;INITIALIZE AC,AC+1
8186 DMOVN AC+5,[XWD 400000,0
8187 036276 121 11 0 00 036730 XWD 0,0] ;SET-UP TO CHECK RESULTS
8188 036277 125 04 0 00 036501 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
8189 036300 120 04 0 00 036501 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1
8190 036301 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS TSTWD LOADED CORRECTLY?
8191 036302 005 04 0 00 015101 ER5 AC,15101 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF 400000,0
8192 036303 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS TSTWD+1 LOADED CORRECTLY?
8193 036304 006 05 0 00 015102 ER6 AC+1,15102 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS 0,0
8194 036305 321 10 0 00 036273 JUMPL SAC,Q15100 ;LOOP ON ERROR SWITCH^
8195 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 52-1
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS SEQ 0214
8196 DMVNM 1520,0,0,400000,0^
8197 Q15200: DMOVE AC,[XWD 707070,707070
8198 036306 120 04 0 00 036700 XWD 070707,070707]
8199 036307 124 04 0 00 036501 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS
8200 DMOVE AC,[XWD 0,0
8201 036310 120 04 0 00 036731 XWD 400000,0] ;INITIALIZE AC,AC+1
8202 DMOVN AC+5,[XWD 0,0
8203 036311 121 11 0 00 036731 XWD 400000,0] ;SET-UP TO CHECK RESULTS
8204 036312 125 04 0 00 036501 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
8205 036313 120 04 0 00 036501 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1
8206 036314 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS TSTWD LOADED CORRECTLY?
8207 036315 005 04 0 00 015201 ER5 AC,15201 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF 0,0
8208 036316 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS TSTWD+1 LOADED CORRECTLY?
8209 036317 006 05 0 00 015202 ER6 AC+1,15202 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS 400000,0
8210 036320 321 10 0 00 036306 JUMPL SAC,Q15200 ;LOOP ON ERROR SWITCH^
8211 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 52-2
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - GENERAL DATA PATTERNS SEQ 0215
8212 DMVNM 1530,400000,0,400000,0^
8213 Q15300: DMOVE AC,[XWD 707070,707070
8214 036321 120 04 0 00 036700 XWD 070707,070707]
8215 036322 124 04 0 00 036501 DMOVEM AC,TSTWD ;INITIALIZE TEST WORDS
8216 DMOVE AC,[XWD 400000,0
8217 036323 120 04 0 00 036732 XWD 400000,0] ;INITIALIZE AC,AC+1
8218 DMOVN AC+5,[XWD 400000,0
8219 036324 121 11 0 00 036732 XWD 400000,0] ;SET-UP TO CHECK RESULTS
8220 036325 125 04 0 00 036501 DMOVNM AC,TSTWD ;*MOVE NEGATIVE OF DOUBLE WORD FROM AC, AC+1
8221 036326 120 04 0 00 036501 DMOVE AC,TSTWD ;PUT TEST RESULTS IN AC,AC+1
8222 036327 312 04 0 00 000011 CAME AC,<AC+5>&17 ;WAS TSTWD LOADED CORRECTLY?
8223 036330 005 04 0 00 015301 ER5 AC,15301 ;FAIL IF CONTENTS(TSTWD) NOT = COMPLEMENT OF 400000,0
8224 036331 312 05 0 00 000012 CAME AC+1,<AC+6>&17 ;WAS TSTWD+1 LOADED CORRECTLY?
8225 036332 006 05 0 00 015302 ER6 AC+1,15302 ;FAIL IF CONTENTS(TSTWD) NOT = MINUS 400000,0
8226 036333 321 10 0 00 036321 JUMPL SAC,Q15300 ;LOOP ON ERROR SWITCH^
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 53
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - OVERFLOW AND CARRY FLAGS SEQ 0216
8227 SUBTTL DIAGNOSTIC SECTION - DMOVNM - OVERFLOW AND CARRY FLAGS
8228
8229 DMVNMF 1540,0,0,0,0,300000,310000,300000,310000^
8230 036334 255 17 0 00 036335 Q15400: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS
8231 DMOVE AC,[XWD 0,0
8232 036335 120 04 0 00 036702 XWD 0,0] ;SETUP INITIAL
8233 036336 125 04 0 00 036501 DMOVNM AC,TSTWD ;*DMOVNM TEST
8234 036337 265 04 0 00 036340 JSP AC,.+1 ;READ FLAGS
8235 036340 621 04 0 00 027777 Q15401: TLZ AC,027777 ;CLEAR EXTRA JUNK
8236 036341 603 04 0 00 010000 TLNE AC,USERF ;IN USER MODE ?
8237 036342 254 00 0 00 036354 JRST Q15404 ;YES
8238 036343 336 00 0 00 030524 SKIPN SM10 ;KL10 ?
8239 036344 254 00 0 00 036351 JRST Q15403 ;YES
8240 036345 312 04 0 00 036750 CAME AC,[300000,,Q15401]
8241 036346 013 04 0 00 015401 ER13 AC,15401 ;FAIL IF FLAGS NOT SET
8242 036347 321 10 0 00 036334 Q15402: JUMPL SAC,Q15400 ;LOOP ON ERROR SWITCH
8243 036350 254 00 0 00 036364 JRST Q15406
8244 036351 312 04 0 00 036750 Q15403: CAME AC,[300000,,Q15401]
8245 036352 013 04 0 00 015401 ER13 AC,15401 ;FAIL IF FLAGS NOT SET
8246 036353 254 00 0 00 036347 JRST Q15402
8247 036354 336 00 0 00 030524 Q15404: SKIPN SM10 ;KL10 ?
8248 036355 254 00 0 00 036361 JRST Q15405 ;YES
8249 036356 312 04 0 00 036751 CAME AC,[310000,,Q15401]
8250 036357 013 04 0 00 015401 ER13 AC,15401 ;FAIL IF FLAGS NOT SET
8251 036360 254 00 0 00 036347 JRST Q15402
8252 036361 312 04 0 00 036751 Q15405: CAME AC,[310000,,Q15401]
8253 036362 013 04 0 00 015401 ER13 AC,15401 ;FAIL IF FLAGS NOT SET
8254 036363 254 00 0 00 036347 JRST Q15402
8255 036364 254 00 0 00 036365 Q15406: JRST .+1^
8256 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 53-1
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - OVERFLOW AND CARRY FLAGS SEQ 0217
8257 DMVNMF 1550,400000,0,0,0,500000,510000,100000,510000^
8258 036365 255 17 0 00 036366 Q15500: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS
8259 DMOVE AC,[XWD 400000,0
8260 036366 120 04 0 00 036730 XWD 0,0] ;SETUP INITIAL
8261 036367 125 04 0 00 036501 DMOVNM AC,TSTWD ;*DMOVNM TEST
8262 036370 265 04 0 00 036371 JSP AC,.+1 ;READ FLAGS
8263 036371 621 04 0 00 027777 Q15501: TLZ AC,027777 ;CLEAR EXTRA JUNK
8264 036372 603 04 0 00 010000 TLNE AC,USERF ;IN USER MODE ?
8265 036373 254 00 0 00 036405 JRST Q15504 ;YES
8266 036374 336 00 0 00 030524 SKIPN SM10 ;KL10 ?
8267 036375 254 00 0 00 036402 JRST Q15503 ;YES
8268 036376 312 04 0 00 036752 CAME AC,[500000,,Q15501]
8269 036377 013 04 0 00 015501 ER13 AC,15501 ;FAIL IF FLAGS NOT SET
8270 036400 321 10 0 00 036365 Q15502: JUMPL SAC,Q15500 ;LOOP ON ERROR SWITCH
8271 036401 254 00 0 00 036415 JRST Q15506
8272 036402 312 04 0 00 036753 Q15503: CAME AC,[100000,,Q15501]
8273 036403 013 04 0 00 015501 ER13 AC,15501 ;FAIL IF FLAGS NOT SET
8274 036404 254 00 0 00 036400 JRST Q15502
8275 036405 336 00 0 00 030524 Q15504: SKIPN SM10 ;KL10 ?
8276 036406 254 00 0 00 036412 JRST Q15505 ;YES
8277 036407 312 04 0 00 036754 CAME AC,[510000,,Q15501]
8278 036410 013 04 0 00 015501 ER13 AC,15501 ;FAIL IF FLAGS NOT SET
8279 036411 254 00 0 00 036400 JRST Q15502
8280 036412 312 04 0 00 036754 Q15505: CAME AC,[510000,,Q15501]
8281 036413 013 04 0 00 015501 ER13 AC,15501 ;FAIL IF FLAGS NOT SET
8282 036414 254 00 0 00 036400 JRST Q15502
8283 036415 254 00 0 00 036416 Q15506: JRST .+1^
8284 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 53-2
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - OVERFLOW AND CARRY FLAGS SEQ 0218
8285 DMVNMF 1560,0,0,400000,0,300000,310000,300000,310000^
8286 036416 255 17 0 00 036417 Q15600: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS
8287 DMOVE AC,[XWD 0,0
8288 036417 120 04 0 00 036731 XWD 400000,0] ;SETUP INITIAL
8289 036420 125 04 0 00 036501 DMOVNM AC,TSTWD ;*DMOVNM TEST
8290 036421 265 04 0 00 036422 JSP AC,.+1 ;READ FLAGS
8291 036422 621 04 0 00 027777 Q15601: TLZ AC,027777 ;CLEAR EXTRA JUNK
8292 036423 603 04 0 00 010000 TLNE AC,USERF ;IN USER MODE ?
8293 036424 254 00 0 00 036436 JRST Q15604 ;YES
8294 036425 336 00 0 00 030524 SKIPN SM10 ;KL10 ?
8295 036426 254 00 0 00 036433 JRST Q15603 ;YES
8296 036427 312 04 0 00 036755 CAME AC,[300000,,Q15601]
8297 036430 013 04 0 00 015601 ER13 AC,15601 ;FAIL IF FLAGS NOT SET
8298 036431 321 10 0 00 036416 Q15602: JUMPL SAC,Q15600 ;LOOP ON ERROR SWITCH
8299 036432 254 00 0 00 036446 JRST Q15606
8300 036433 312 04 0 00 036755 Q15603: CAME AC,[300000,,Q15601]
8301 036434 013 04 0 00 015601 ER13 AC,15601 ;FAIL IF FLAGS NOT SET
8302 036435 254 00 0 00 036431 JRST Q15602
8303 036436 336 00 0 00 030524 Q15604: SKIPN SM10 ;KL10 ?
8304 036437 254 00 0 00 036443 JRST Q15605 ;YES
8305 036440 312 04 0 00 036756 CAME AC,[310000,,Q15601]
8306 036441 013 04 0 00 015601 ER13 AC,15601 ;FAIL IF FLAGS NOT SET
8307 036442 254 00 0 00 036431 JRST Q15602
8308 036443 312 04 0 00 036756 Q15605: CAME AC,[310000,,Q15601]
8309 036444 013 04 0 00 015601 ER13 AC,15601 ;FAIL IF FLAGS NOT SET
8310 036445 254 00 0 00 036431 JRST Q15602
8311 036446 254 00 0 00 036447 Q15606: JRST .+1^
8312 PAGE
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 53-3
DSKCC1 MAC 29-Mar-78 11:34 DIAGNOSTIC SECTION - DMOVNM - OVERFLOW AND CARRY FLAGS SEQ 0219
8313 DMVNMF 1570,400000,0,400000,0,500000,510000,100000,510000^
8314 036447 255 17 0 00 036450 Q15700: JFCL 17,.+1 ;CLEAR OVFL AND CRY0,1 FLAGS
8315 DMOVE AC,[XWD 400000,0
8316 036450 120 04 0 00 036732 XWD 400000,0] ;SETUP INITIAL
8317 036451 125 04 0 00 036501 DMOVNM AC,TSTWD ;*DMOVNM TEST
8318 036452 265 04 0 00 036453 JSP AC,.+1 ;READ FLAGS
8319 036453 621 04 0 00 027777 Q15701: TLZ AC,027777 ;CLEAR EXTRA JUNK
8320 036454 603 04 0 00 010000 TLNE AC,USERF ;IN USER MODE ?
8321 036455 254 00 0 00 036467 JRST Q15704 ;YES
8322 036456 336 00 0 00 030524 SKIPN SM10 ;KL10 ?
8323 036457 254 00 0 00 036464 JRST Q15703 ;YES
8324 036460 312 04 0 00 036757 CAME AC,[500000,,Q15701]
8325 036461 013 04 0 00 015701 ER13 AC,15701 ;FAIL IF FLAGS NOT SET
8326 036462 321 10 0 00 036447 Q15702: JUMPL SAC,Q15700 ;LOOP ON ERROR SWITCH
8327 036463 254 00 0 00 036477 JRST Q15706
8328 036464 312 04 0 00 036760 Q15703: CAME AC,[100000,,Q15701]
8329 036465 013 04 0 00 015701 ER13 AC,15701 ;FAIL IF FLAGS NOT SET
8330 036466 254 00 0 00 036462 JRST Q15702
8331 036467 336 00 0 00 030524 Q15704: SKIPN SM10 ;KL10 ?
8332 036470 254 00 0 00 036474 JRST Q15705 ;YES
8333 036471 312 04 0 00 036761 CAME AC,[510000,,Q15701]
8334 036472 013 04 0 00 015701 ER13 AC,15701 ;FAIL IF FLAGS NOT SET
8335 036473 254 00 0 00 036462 JRST Q15702
8336 036474 312 04 0 00 036761 Q15705: CAME AC,[510000,,Q15701]
8337 036475 013 04 0 00 015701 ER13 AC,15701 ;FAIL IF FLAGS NOT SET
8338 036476 254 00 0 00 036462 JRST Q15702
8339 036477 254 00 0 00 036500 Q15706: JRST .+1^
8340
8341 036500 254 00 0 00 030057 JRST BEGEND
8342
8343 036501 TSTWD: BLOCK 2
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 1
UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0220
8344 SUBTTL *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978
8345
8346 ;THIS SUBROUTINE PROVIDES ERROR REPORTING THRU THE USE OF UUO'S.
8347
8348 036503 202 00 0 00 037145 ERRMES: MOVEM 0,%ERAC0# ;SAVE AC0
8349 036504 202 01 0 00 037146 MOVEM 1,%ERAC1# ;SAVE AC1
8350 036505 202 02 0 00 037147 MOVEM 2,%ERAC2# ;SAVE AC2
8351 036506 350 00 0 00 030053 AOS ERRTLS ;INCREMENT ERROR TOTALS
8352 036507 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO
8353 036510 316 00 0 00 030052 CAMN 0,ERRPC ;PC = PC OF LAST ERROR ?
8354 036511 350 00 0 00 037142 AOS MICNT# ;YES, ADD 1 TO ERROR COUNT
8355 036512 200 00 0 00 037142 MOVE 0,MICNT
8356 036513 504 00 0 00 030114 HRL 0,$SVUPC
8357 036514 402 00 0 00 037143 SETZM PROCED# ;CLEAR PROCEED FLAG
8358 036515 037 10 0 00 000002 SWITCH
8359 036516 603 00 0 00 040000 TLNE NOPNT ;PRINTOUT ?
8360 036517 254 00 0 00 036631 JRST %ERRS1 ;NO, RESTORE AC'S AND RETURN
8361 036520 200 01 0 00 030113 MOVE 1,$SVUUO
8362 036521 242 01 0 00 777745 LSH 1,-^D27
8363 036522 202 01 0 00 037144 MOVEM 1,%ACS1A# ;SAVE UUO NUMBER
8364 036523 200 00 0 00 037145 MOVE 0,%ERAC0
8365 036524 200 01 0 00 037146 MOVE 1,%ERAC1
8366 036525 335 00 1 00 037141 SKIPGE @ERRLOP ;ERR LOOP AC > OR = 0 ?
8367 036526 254 00 0 00 036663 JRST %ERRS4 ;NO, SEE IF PRINT ALL
8368 036527 402 00 0 00 037142 %ERMS1: SETZM MICNT ;CLEAR ERROR COUNT
8369 036530 331 00 0 00 030043 SKIPL MONCTL ;DIAG MON OR SYS EXER ?
8370 036531 254 00 0 00 036535 JRST .+4 ;NO, DON'T NEED TITLE
8371 036532 336 00 0 00 037150 SKIPN %ERFST# ;FIRST ERROR ?
8372 036533 037 04 0 00 000002 PNTNM ;YES, PRINT PROGRAM TITLE
8373 036534 476 00 0 00 037150 SETOM %ERFST
8374 036535 336 00 0 00 030047 SKIPN PASCNT ;FIRST PASS ?
8375 036536 254 00 0 00 036542 JRST .+4 ;YES
8376 PMSG <^TEST PASS COUNT = >^
8377 036537 037 02 0 00 036762 PSIXM [SIXBIT\^TEST PASS COUNT = _\]^
8378 036540 200 00 0 00 030047 MOVE PASCNT
8379 036541 037 15 0 00 000000 PNTDEC
8380 PMSG <^PC = >^
8381 036542 037 02 0 00 036766 PSIXM [SIXBIT\^PC = _\]^
8382 036543 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO
8383 036544 202 00 0 00 030052 MOVEM 0,ERRPC ;SAVE FOR COMPARE
8384 036545 037 06 0 00 000000 PNT6 ;PRINT UUO ADDRESS
8385 XLIST
8386 IFDEF ERDIAG,<LIST
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 2
UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0221
8387 ;DIAGNOSTIC FORMAT ERROR PRINTER
8388
8389 ;PRINT RESULT
8390
8391 036546 %ERMS2: PMSG <^RESULT = >^
8392 036546 037 02 0 00 036770 PSIXM [SIXBIT\^RESULT = _\]^
8393 036547 200 01 0 00 030113 MOVE 1,$SVUUO ;GET AC # OF UUO
8394 036550 242 01 0 00 777751 LSH 1,-27
8395 036551 405 01 0 00 000017 ANDI 1,17
8396 036552 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC)
8397 036553 307 01 0 00 000001 CAIG 1,1 ;IS AC # = TO SAVE AC ?
8398 036554 200 00 0 01 037145 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC
8399 036555 037 13 0 00 000000 PNTHW ;PRINT C(AC)
8400
8401 036556 200 00 0 00 030046 MOVE CONSW
8402 036557 603 00 0 00 000200 TLNE TXTINH ;PRINT FAILURE DES AND FLT NBR ?
8403 036560 254 00 0 00 036627 JRST %ERMORE ;NO, RESTORE AC'S ETC.
8404
8405 ;PRINT FAILURE DESCRIPTOR
8406
8407 036561 200 01 0 00 037144 MOVE 1,%ACS1A ;GET UUO NUMBER
8408 036562 307 01 0 00 000001 CAIG 1,1 ;PRINT DESCRIPTOR ?
8409 036563 254 00 0 00 036567 JRST %ERMS3 ;NO, JUST PRINT FAULT NUMBER
8410 036564 037 00 0 00 030242 PCRL
8411 036565 200 00 0 01 036613 MOVE %FLTTB(1)
8412 036566 037 17 0 00 000000 PNTAL ;PRINT FAULT DESCRIPTOR
8413
8414 ;PRINT FAULT NUMBER
8415
8416 036567 %ERMS3: PMSG <^FAULT NUMBER = >^
8417 036567 037 02 0 00 036772 PSIXM [SIXBIT\^FAULT NUMBER = _\]^
8418 036570 201 00 0 00 036612 MOVEI TLET
8419 036571 037 00 0 00 000000 PNTA ;PRINT TEST LETTER
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 3
UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0222
8420
8421 036572 550 00 0 00 030113 HRRZ $SVUUO
8422 036573 602 00 0 00 700000 TRNE 700000
8423 036574 254 00 0 00 036610 JRST %ER6X
8424 036575 602 00 0 00 070000 TRNE 070000
8425 036576 254 00 0 00 036606 JRST %ER5X
8426 036577 602 00 0 00 007000 TRNE 007000
8427 036600 254 00 0 00 036604 JRST %ER4X
8428 036601 037 03 0 00 000000 PNT3 ;PRINT FAULT NUMBER
8429 036602 037 00 0 00 030242 %ER7X: PCRL
8430 036603 254 00 0 00 036627 JRST %ERMORE
8431
8432 036604 037 04 0 00 000000 %ER4X: PNT4
8433 036605 254 00 0 00 036602 JRST %ER7X
8434 036606 037 05 0 00 000000 %ER5X: PNT5
8435 036607 254 00 0 00 036602 JRST %ER7X
8436 036610 037 06 0 00 000000 %ER6X: PNT6
8437 036611 254 00 0 00 036602 JRST %ER7X
8438
8439 ;FAILURE DESCRIPTORS
8440
8441 036612 000000 000000 TLET: 0 ;TEST LETTER
8442 036613 000000 000000 %FLTTB: 0 ;DESCRIPTOR TABLE
8443 036614 000000 036677 %NODES: [0] ;NO DESCRIPTOR
8444 036615 000000 036677 SPDES: [0] ;SPECIAL USER FAILURE DESCRIPTOR
8445 036616 000000 036775 $ACF: [ASCIZ/C(AC) FAILED/]
8446 036617 000000 037000 %AC1F: [ASCIZ/C(AC+1) FAILED/]
8447 036620 000000 037003 %EF: [ASCIZ/C(E) FAILED/]
8448 036621 000000 037006 %E1F: [ASCIZ/C(E+1) FAILED/]
8449 036622 000000 037011 %ARF: [ASCIZ/C(C(ACR)) FAILED/]
8450 036623 000000 037015 %AR1F: [ASCIZ/C(C(ACR+1)) FAILED/]
8451 036624 000000 037021 %ALF: [ASCIZ/C(C(ACL)) FAILED/]
8452 036625 000000 037025 %EEF: [ASCIZ/C(C(E)) FAILED/]
8453 036626 000000 037030 %FF: [ASCIZ/FLAG FAILED/]
8454 >
8455 XLIST
8456 LIST
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 8
UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0223
8457 ;RESTORE AC'S AND RETURN OR HALT
8458
8459 036627 256 00 0 00 030101 %ERMORE:XCT ERMORE
8460 036630 037 10 0 00 000002 SWITCH
8461
8462 036631 037 07 0 00 000003 %ERRS1: TTALTM ;ALTMODE CHECK
8463 036632 254 00 0 00 036636 JRST .+4 ;NONE
8464 036633 201 00 0 00 036636 MOVEI .+3 ;SAVE CONT ADDRESS
8465 036634 202 00 0 00 000130 MOVEM JOBOPC
8466 036635 254 00 1 00 030063 JRST @ALTMGO ;PERFORM TRANSFER
8467 036636 200 00 0 00 030046 MOVE CONSW
8468 036637 603 00 0 00 002000 TLNE 0,ERSTOP ;HALT ON ERROR SWITCH SET ?
8469 036640 037 14 0 00 000004 ERRHLT ;YES
8470 036641 607 00 0 00 004000 TLNN 0,LOOPER ;LOOP ON ERROR SWITCH SET ?
8471 036642 476 00 0 00 037143 SETOM PROCED ;NO, SET THE PROCEED FLAG
8472 036643 603 00 0 00 010000 TLNE 0,DING ;RING BELL SWITCH SET ?
8473 036644 037 01 0 00 000007 PBELL ;YES, GO RING BELL
8474
8475 036645 200 02 0 00 037147 %ERRS2: MOVE 2,%ERAC2 ;RESTORE AC'S
8476 036646 200 01 0 00 037146 MOVE 1,%ERAC1
8477 036647 476 00 1 00 037141 SETOM @ERRLOP ;SET C(ERR LOOP AC) TO -1
8478 036650 336 00 0 00 037143 SKIPN PROCED ;LOOP ON ERROR ?
8479 036651 254 00 0 00 036661 JRST %ERRS5 ;YES
8480 036652 350 00 1 00 037141 AOS @ERRLOP ;NO, INC C(ERR LOOP AC)
8481 036653 350 00 1 00 037141 AOS @ERRLOP ;SO IT ='S 1
8482 036654 331 00 0 00 030043 SKIPL MONCTL ;UNDER DIAGNOSTIC MONITOR ?
8483 036655 254 00 0 00 036661 JRST %ERRS5 ;NO, CONTINUE PROGRAM
8484 036656 200 00 0 00 030053 MOVE 0,ERRTLS ;YES
8485 036657 301 00 0 00 000024 CAIL 0,^D20 ;PRINTED ALLOWED ERRORS ?
8486 036660 254 00 0 00 036667 JRST %ERRS6
8487
8488 036661 200 00 0 00 037145 %ERRS5: MOVE 0,%ERAC0 ;NO, CONTINUE PROGRAM
8489 036662 254 00 0 00 030065 JRST UUOEXT
8490
8491 036663 200 00 0 00 030046 %ERRS4: MOVE 0,CONSW
8492 036664 607 00 0 00 001000 TLNN PALERS ;PRINT ALL ERRORS ?
8493 036665 254 00 0 00 036631 JRST %ERRS1 ;NO
8494 036666 254 00 0 00 036527 JRST %ERMS1 ;YES
8495
8496 036667 %ERRS6: PMSGF <^EXCEEDED ALLOWED ERRORS^>^
8497 036667 037 04 0 00 037033 PSIXMF [SIXBIT\^EXCEEDED ALLOWED ERRORS^_\]^
8498 036670 254 00 0 00 030061 JRST $BEND2
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 1
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0224
8499 SUBTTL *STOR* RESERVED STORAGE, MARCH 1978
8500
8501 ;PROGRAM LITERALS
8502
8503 XLIST
8504 IFNDEF $LPAPER,<LIST>
8505 036671 LIT
8506 036671 45 70 51 64 00 00
8507 036672 103 103 000 000 000
8508 036673 233525 252525
8509 036674 252525 252525
8510 036675 631463 146314
8511 036676 424242 131313
8512 036677 000000 000000
8513 036700 707070 707070
8514 036701 070707 070707
8515 036702 000000 000000
8516 036703 000000 000000
8517 036704 777777 777777
8518 036705 777777 777777
8519 036706 000000 000000
8520 036707 525252 525252
8521 036710 252525 252525
8522 036711 525252 525252
8523 036712 000000 000001
8524 036713 000000 000000
8525 036714 000000 000001
8526 036715 777777 777777
8527 036716 000000 000001
8528 036717 252525 252526
8529 036720 525252 525252
8530 036721 252525 252526
8531 036722 525252 525253
8532 036723 252525 252525
8533 036724 525252 525253
8534 036725 000000 777777
8535 036726 000000 000000
8536 036727 000000 777777
8537 036730 400000 000000
8538 036731 000000 000000
8539 036732 400000 000000
8540 036733 400000 000000
8541 036734 300000 035444
8542 036735 310000 035444
8543 036736 500000 035474
8544 036737 100000 035474
8545 036740 510000 035474
8546 036741 300000 035524
8547 036742 310000 035524
8548 036743 500000 035554
8549 036744 100000 035554
8550 036745 510000 035554
8551 036746 777777 777777
8552 036747 000000 777777
8553 036750 300000 036340
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 1-1
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0225
8554 036751 310000 036340
8555 036752 500000 036371
8556 036753 100000 036371
8557 036754 510000 036371
8558 036755 300000 036422
8559 036756 310000 036422
8560 036757 500000 036453
8561 036760 100000 036453
8562 036761 510000 036453
8563 036762 76 64 45 63 64 00
8564 036763 60 41 63 63 00 43
8565 036764 57 65 56 64 00 35
8566 036765 00 77 00 00 00 00
8567 036766 76 60 43 00 35 00
8568 036767 00 00 77 00 00 00
8569 036770 76 62 45 63 65 54
8570 036771 64 00 00 35 00 77
8571 036772 76 46 41 65 54 64
8572 036773 00 56 65 55 42 45
8573 036774 62 00 35 00 77 00
8574 036775 103 050 101 103 051
8575 036776 040 106 101 111 114
8576 036777 105 104 000 000 000
8577 037000 103 050 101 103 053
8578 037001 061 051 040 106 101
8579 037002 111 114 105 104 000
8580 037003 103 050 105 051 040
8581 037004 106 101 111 114 105
8582 037005 104 000 000 000 000
8583 037006 103 050 105 053 061
8584 037007 051 040 106 101 111
8585 037010 114 105 104 000 000
8586 037011 103 050 103 050 101
8587 037012 103 122 051 051 040
8588 037013 106 101 111 114 105
8589 037014 104 000 000 000 000
8590 037015 103 050 103 050 101
8591 037016 103 122 053 061 051
8592 037017 051 040 106 101 111
8593 037020 114 105 104 000 000
8594 037021 103 050 103 050 101
8595 037022 103 114 051 051 040
8596 037023 106 101 111 114 105
8597 037024 104 000 000 000 000
8598 037025 103 050 103 050 105
8599 037026 051 051 040 106 101
8600 037027 111 114 105 104 000
8601 037030 106 114 101 107 040
8602 037031 106 101 111 114 105
8603 037032 104 000 000 000 000
8604 037033 76 45 70 43 45 45
8605 037034 44 45 44 00 41 54
8606 037035 54 57 67 45 44 00
8607 037036 45 62 62 57 62 63
8608 037037 76 77 00 00 00 00
DSKCC DECSYSTEM 2020 ADVANCED INSTRUCTION DIAGNOSTIC #3, VER 0,1 MACRO %53(1020) 11:54 29-Mar-78 Page 1-2
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0226
8609 LIST
8610 037040 000000 000000 ENDSLD: 0
8611
8612 IFDEF DEBUG,<
8613 037041 PATCH: BLOCK DEBUG ;PATCHING AREA
8614 >
8615
8616 ;PROGRAM VARIABLES
8617 037141 VAR
8618
8619 IFDEF PGMEND,<
8620 037152 000000 000000 END: 0
8621 030000 END BEGIN >
NO ERRORS DETECTED
PROGRAM BREAK IS 000000
ABSOLUTE BREAK IS 037153
CPU TIME USED 00:27.608
28P CORE USED
ABORT 577#
AC 1165# 1166 1175 1176 1177 1178 1183# 1184 1194 1195 1196 1197 1230 1231 SEQ 0227
1232 1233 1234 1246 1247 1248 1249 1250 1262 1263 1264 1265 1266 1278
1279 1280 1281 1282 1294 1295 1296 1297 1298 1310 1311 1312 1313 1314
1326 1327 1328 1329 1330 1342 1343 1344 1345 1346 1358 1359 1360 1361
1362 1374 1375 1376 1377 1378 1390 1391 1392 1393 1394 1406 1407 1408
1409 1410 1422 1423 1424 1425 1426 1438 1439 1440 1441 1442 1454 1455
1456 1457 1458 1470 1471 1472 1473 1474 1486 1487 1488 1489 1490 1502
1503 1504 1505 1506 1538 1539 1540 1541 1542 1554 1555 1556 1557 1558
1570 1571 1572 1573 1574 1586 1587 1588 1589 1590 1602 1603 1604 1605
1606 1618 1619 1620 1621 1622 1634 1635 1636 1637 1638 1650 1651 1652
1653 1654 1666 1667 1668 1669 1670 1682 1683 1684 1685 1686 1698 1699
1700 1701 1702 1714 1715 1716 1717 1718 1730 1731 1732 1733 1734 1746
1747 1748 1749 1750 1762 1763 1764 1765 1766 1778 1779 1780 1781 1782
1794 1795 1796 1797 1798 1832 1833 1834 1835 1836 1847 1848 1849 1850
1851 1862 1863 1864 1865 1866 1877 1878 1879 1880 1881 1892 1893 1894
1895 1896 1907 1908 1909 1910 1911 1922 1923 1924 1925 1926 1937 1938
1939 1940 1941 1952 1953 1954 1955 1956 1988 1989 1990 1991 1992 2004
2005 2006 2007 2008 2020 2021 2022 2023 2024 2036 2037 2038 2039 2040
2052 2053 2054 2055 2056 2068 2069 2070 2071 2072 2084 2085 2086 2087
2088 2100 2101 2102 2103 2104 2116 2117 2118 2119 2120 2132 2133 2134
2135 2136 2148 2149 2150 2151 2152 2164 2165 2166 2167 2168 2180 2181
2182 2183 2184 2196 2197 2198 2199 2200 2212 2213 2214 2215 2216 2228
2229 2230 2231 2232 2244 2245 2246 2247 2248 2260 2261 2262 2263 2264
2300 2301 2302 2303 2304 2305 2317 2318 2319 2320 2321 2322 2359 2360
2361 2362 2363 2364 2377 2378 2379 2380 2381 2382 2395 2396 2397 2398
2399 2400 2413 2414 2415 2416 2417 2418 2431 2432 2433 2434 2435 2436
2449 2450 2451 2452 2453 2454 2467 2468 2469 2470 2471 2472 2485 2486
2487 2488 2489 2490 2526 2527 2528 2529 2530 2531 2544 2545 2546 2547
2548 2549 2562 2563 2564 2565 2566 2567 2580 2581 2582 2583 2584 2585
2598 2599 2600 2601 2602 2603 2616 2617 2618 2619 2620 2621 2634 2635
2636 2637 2638 2639 2652 2653 2654 2655 2656 2657 2670 2671 2672 2673
2674 2675 2711 2712 2713 2714 2715 2716 2729 2730 2731 2732 2733 2734
2747 2748 2749 2750 2751 2752 2765 2766 2767 2768 2769 2770 2783 2784
2785 2786 2787 2788 2801 2802 2803 2804 2805 2806 2819 2820 2821 2822
2823 2824 2837 2838 2839 2840 2841 2842 2855 2856 2857 2858 2859 2860
2895 2896 2897 2898 2899 2900 2912 2913 2914 2915 2916 2917 2929 2930
2931 2932 2933 2934 2946 2947 2948 2949 2950 2951 2963 2964 2965 2966
2967 2968 2980 2981 2982 2983 2984 2985 2997 2998 2999 3000 3001 3002
3014 3015 3016 3017 3018 3019 3027 3028 3029 3030 3031 3032 3043 3044
3045 3046 3048 3049 3059 3060 3061 3063 3064 3073 3074 3075 3076 3078
3079 3089 3090 3091 3093 3094 3103 3104 3106 3107 3117 3118 3119 3121
3122 3131 3132 3134 3135 3145 3146 3148 3149 3158 3159 3161 3162 3172
3173 3175 3176 3185 3186 3188 3189 3199 3200 3202 3203 3214 3215 3216
3217 3218 3219 3225 3226 3227 3228 3239 3240 3241 3242 3244 3245 3256
3257 3258 3260 3261 3271 3272 3273 3274 3276 3277 3288 3289 3290 3291
3293 3294 3304 3305 3307 3308 3319 3320 3321 3323 3324 3334 3335 3337
3338 3349 3350 3352 3353 3363 3364 3366 3367 3378 3379 3381 3382 3392
3393 3395 3396 3407 3408 3410 3411 3417 3418 3419 3420 3421 3422 3423
3433 3436 3443 3444 3445 3446 3447 3448 3450 3457 3458 3459 3460 3461
3462 3463 3466 3472 3473 3474 3475 3476 3477 3479 3486 3487 3488 3489
3490 3491 3492 3493 3496 3502 3503 3504 3505 3537 3538 3539 3540 3541
3552 3553 3554 3555 3556 3567 3568 3569 3570 3571 3582 3583 3584 3585
3586 3597 3598 3599 3600 3601 3612 3613 3614 3615 3616 3627 3628 3629
3630 3631 3642 3643 3644 3645 3646 3657 3658 3659 3660 3661 3672 3673 SEQ 0228
3674 3675 3676 3687 3688 3689 3690 3691 3702 3703 3704 3705 3706 3717
3718 3719 3720 3721 3732 3733 3734 3735 3736 3747 3748 3749 3750 3751
3762 3763 3764 3765 3766 3777 3778 3779 3780 3781 3814 3815 3816 3817
3818 3830 3831 3832 3833 3834 3846 3847 3848 3849 3850 3862 3863 3864
3865 3866 3878 3879 3880 3881 3882 3894 3895 3896 3897 3898 3910 3911
3912 3913 3914 3926 3927 3928 3929 3930 3942 3943 3944 3945 3946 3958
3959 3960 3961 3962 3974 3975 3976 3977 3978 3990 3991 3992 3993 3994
4006 4007 4008 4009 4010 4022 4023 4024 4025 4026 4038 4039 4040 4041
4042 4054 4055 4056 4057 4058 4070 4071 4072 4073 4074 4086 4087 4088
4089 4090 4126 4127 4128 4129 4130 4142 4143 4144 4145 4146 4158 4159
4160 4161 4162 4174 4175 4176 4177 4178 4190 4191 4192 4193 4194 4206
4207 4208 4209 4210 4222 4223 4224 4225 4226 4238 4239 4240 4241 4242
4254 4255 4256 4257 4258 4270 4271 4272 4273 4274 4286 4287 4288 4289
4290 4302 4303 4304 4305 4306 4318 4319 4320 4321 4322 4334 4335 4336
4337 4338 4350 4351 4352 4353 4354 4366 4367 4368 4369 4370 4382 4383
4384 4385 4386 4398 4399 4400 4401 4402 4435 4436 4437 4438 4439 4451
4452 4453 4454 4455 4467 4468 4469 4470 4471 4483 4484 4485 4486 4487
4499 4500 4501 4502 4503 4515 4516 4517 4518 4519 4531 4532 4533 4534
4535 4547 4548 4549 4550 4551 4563 4564 4565 4566 4567 4579 4580 4581
4582 4583 4595 4596 4597 4598 4599 4611 4612 4613 4614 4615 4627 4628
4629 4630 4631 4643 4644 4645 4646 4647 4659 4660 4661 4662 4663 4675
4676 4677 4678 4679 4691 4692 4693 4694 4695 4707 4708 4709 4710 4711
4719 4720 4721 4722 4730 4731 4732 4733 4734 4735 4769 4770 4771 4772
4773 4774 4775 4787 4788 4789 4790 4791 4792 4793 4805 4806 4807 4808
4809 4810 4811 4823 4824 4825 4826 4827 4828 4829 4841 4842 4843 4844
4845 4846 4847 4859 4860 4861 4862 4863 4864 4865 4877 4878 4879 4880
4881 4882 4883 4895 4896 4897 4898 4899 4900 4901 4913 4914 4915 4916
4917 4918 4919 4931 4932 4933 4934 4935 4936 4937 4971 4972 4973 4974
4975 4976 4977 4989 4990 4991 4992 4993 4994 4995 5007 5008 5009 5010
5011 5012 5013 5025 5026 5027 5028 5029 5030 5031 5043 5044 5045 5046
5047 5048 5049 5061 5062 5063 5064 5065 5066 5067 5079 5080 5081 5082
5083 5084 5085 5097 5098 5099 5100 5101 5102 5103 5136 5137 5138 5139
5140 5141 5153 5154 5155 5156 5157 5158 5170 5171 5172 5173 5174 5175
5187 5188 5189 5190 5191 5192 5204 5205 5206 5207 5208 5209 5221 5222
5223 5224 5225 5226 5238 5239 5240 5241 5242 5243 5255 5256 5257 5258
5259 5260 5298 5299 5300 5301 5302 5303 5304 5316 5317 5318 5319 5320
5321 5322 5334 5335 5336 5337 5338 5339 5340 5352 5353 5354 5355 5356
5357 5358 5370 5371 5372 5373 5374 5375 5376 5388 5389 5390 5391 5392
5393 5394 5406 5407 5408 5409 5410 5411 5412 5424 5425 5426 5427 5428
5429 5430 5442 5443 5444 5445 5446 5447 5448 5460 5461 5462 5463 5464
5465 5466 5500 5501 5502 5503 5504 5505 5517 5518 5519 5520 5521 5522
5534 5535 5536 5537 5538 5539 5551 5552 5553 5554 5555 5556 5568 5569
5570 5571 5572 5573 5585 5586 5587 5588 5589 5590 5602 5603 5604 5605
5606 5607 5619 5620 5621 5622 5623 5624 5657 5658 5659 5661 5662 5674
5675 5676 5678 5679 5691 5692 5693 5695 5696 5708 5709 5710 5712 5713
5725 5726 5727 5729 5730 5742 5743 5744 5746 5747 5759 5760 5761 5763
5764 5776 5777 5778 5780 5781 5819 5820 5821 5822 5823 5824 5825 5837
5838 5839 5840 5841 5842 5843 5855 5856 5857 5858 5859 5860 5861 5873
5874 5875 5876 5877 5878 5879 5891 5892 5893 5894 5895 5896 5897 5909
5910 5911 5912 5913 5914 5915 5927 5928 5929 5930 5931 5932 5933 5945
5946 5947 5948 5949 5950 5951 5963 5964 5965 5966 5967 5968 5969 5981
5982 5983 5984 5985 5986 5987 6022 6023 6024 6025 6027 6028 6040 6041
6042 6043 6045 6046 6058 6059 6060 6061 6063 6064 6076 6077 6078 6079 SEQ 0229
6081 6082 6094 6095 6096 6097 6099 6100 6112 6113 6114 6115 6117 6118
6130 6131 6132 6133 6135 6136 6148 6149 6150 6151 6153 6154 6187 6188
6189 6191 6192 6204 6205 6206 6208 6209 6221 6222 6223 6225 6226 6238
6239 6240 6242 6243 6255 6256 6257 6259 6260 6272 6273 6274 6276 6277
6289 6290 6291 6293 6294 6306 6307 6308 6310 6311 6320 6321 6322 6323
6325 6326 6361 6362 6363 6364 6365 6367 6368 6380 6381 6382 6383 6384
6386 6387 6399 6400 6401 6402 6403 6405 6406 6418 6419 6420 6421 6422
6424 6425 6437 6438 6439 6440 6441 6443 6444 6456 6457 6458 6459 6460
6462 6463 6475 6476 6477 6478 6479 6481 6482 6494 6495 6496 6497 6498
6500 6501 6513 6514 6515 6516 6517 6519 6520 6532 6533 6534 6535 6536
6538 6539 6575 6576 6577 6578 6579 6581 6582 6594 6595 6596 6597 6598
6600 6601 6613 6614 6615 6616 6617 6619 6620 6632 6633 6634 6635 6636
6638 6639 6651 6652 6653 6654 6655 6657 6658 6670 6671 6672 6673 6674
6676 6677 6689 6690 6691 6692 6693 6695 6696 6708 6709 6710 6711 6712
6714 6715 6749 6750 6751 6752 6753 6754 6766 6767 6768 6769 6770 6771
6783 6784 6785 6786 6787 6788 6800 6801 6802 6803 6804 6805 6817 6818
6819 6820 6821 6822 6834 6835 6836 6837 6838 6839 6851 6852 6853 6854
6855 6856 6868 6869 6870 6871 6872 6873 6885 6886 6887 6888 6890 6891
6899 6900 6901 6902 6903 6905 6906 6913 6914 6915 6916 6918 6919 6927
6928 6929 6930 6932 6933 6939 6940 6941 6942 6943 6944 6945 6951 6952
6953 6954 6955 6956 6957 6961 6962 6963 6964 6965 6967 6968 6969 6970
6974 6975 6976 6977 6978 6980 6981 6982 6983 6987 6988 6989 6990 6991
6993 6994 6995 6996 7000 7001 7002 7003 7004 7006 7007 7008 7009 7013
7014 7015 7016 7017 7019 7020 7021 7022 7026 7027 7028 7029 7030 7032
7033 7034 7035 7041# 7042 7050 7051 7052 7053 7054 7055 7057 7059 7060
7061 7062 7064 7065 7066 7067 7073# 7074 7080 7102 7105 7106 7107 7108
7109 7110 7111 7116 7119 7120 7121 7122 7123 7124 7125 7130 7133 7134
7135 7136 7137 7138 7139 7144 7147 7148 7149 7150 7151 7152 7153 7158
7161 7162 7163 7164 7165 7166 7167 7174 7176 7177 7178 7179 7180 7184
7186 7187 7188 7189 7191 7192 7193 7194 7198 7200 7201 7202 7203 7205
7206 7207 7208 7212 7214 7215 7216 7217 7219 7220 7221 7222 7226 7228
7229 7230 7231 7233 7234 7235 7236 7240 7242 7243 7244 7245 7247 7248
7249 7250 7254 7256 7257 7258 7259 7261 7262 7263 7264 7270# 7271 7279
7280 7282 7283 7284 7285 7287 7289 7290 7291 7292 7294 7295 7296 7297
7303# 7304 7310 7334 7336 7337 7338 7341 7342 7343 7344 7345 7350 7352
7353 7354 7357 7358 7359 7360 7361 7366 7368 7369 7370 7373 7374 7375
7376 7377 7382 7384 7385 7386 7389 7390 7391 7392 7393 7398 7400 7401
7402 7405 7406 7407 7408 7409 7415 7417 7418 7419 7420 7422 7423 7424
7425 7429 7431 7432 7433 7434 7436 7437 7438 7439 7443 7445 7446 7447
7448 7450 7451 7452 7453 7460 7461 7462 7467 7469 7470 7471 7475 7476
7479 7480 7484 7485 7487 7488 7494 7496 7497 7498 7502 7503 7506 7507
7511 7512 7514 7515 7521 7523 7524 7525 7529 7530 7533 7534 7538 7539
7541 7542 7548 7550 7551 7552 7556 7557 7560 7561 7565 7566 7568 7569
7576 7578 7579 7580 7581 7582 7586 7588 7589 7590 7592 7593 7594 7595
7596 7597 7601 7603 7604 7605 7607 7608 7609 7610 7611 7612 7616 7618
7619 7620 7622 7623 7624 7625 7626 7627 7631 7633 7634 7635 7637 7638
7639 7640 7641 7642 7646 7648 7649 7650 7652 7653 7654 7655 7656 7657
7661 7663 7664 7665 7667 7668 7669 7670 7671 7672 7678# 7679 7687 7688
7690 7691 7692 7694 7695 7696 7698 7699 7700 7701 7703 7704 7705 7706
7712# 7713 7719 7750 7752 7755 7757 7769 7771 7774 7776 7788 7790 7793
7795 7807 7809 7812 7814 7826 7828 7831 7833 7859# 7860 7866 7868 7873
7876 7878 7879 7880 7886 7888 7889 7890 7891 7892 7896 7898 7899 7901
7903 7904 7905 7906 7907 7908 7912 7914 7915 7917 7919 7920 7921 7922 SEQ 0230
7923 7924 7928 7930 7931 7933 7935 7936 7937 7938 7939 7940 7944 7946
7947 7949 7951 7952 7953 7954 7955 7956 7960 7962 7963 7965 7967 7968
7969 7970 7971 7972 7976 7978 7979 7981 7983 7984 7985 7986 7987 7988
7994# 7995 8003 8005 8006 8008 8010 8011 8012 8014 8015 8016 8017 8019
8020 8021 8022 8028# 8029 8035 8070 8072 8073 8076 8077 8079 8081 8083
8093 8095 8096 8099 8100 8102 8104 8106 8116 8118 8119 8122 8123 8125
8127 8129 8139 8141 8142 8144 8145 8146 8148 8150 8152 8162 8164 8165
8168 8169 8171 8173 8175 8181 8183 8184 8186 8188 8189 8190 8191 8192
8193 8197 8199 8200 8202 8204 8205 8206 8207 8208 8209 8213 8215 8216
8218 8220 8221 8222 8223 8224 8225 8231 8233 8234 8235 8236 8240 8241
8244 8245 8249 8250 8252 8253 8259 8261 8262 8263 8264 8268 8269 8272
8273 8277 8278 8280 8281 8287 8289 8290 8291 8292 8296 8297 8300 8301
8305 8306 8308 8309 8315 8317 8318 8319 8320 8324 8325 8328 8329 8333
8334 8336 8337
ALTMGO 889# 8466
AROV 803# 3459 3489
AROVTP 803#
AROVU 803#
AST 1004#
ATSIN 1005#
BEGEND 885# 8341
BEGIN 71 76 77 78 79 80 81 792 793 816# 8621
BEGIN1 832# 886
BELL 1008#
BIS 803# 7872 7879
CC00 1165#
CCA 803#
CHAIN 597#
CHNOFF 803#
CHNON 803#
CLKU 803#
CLOCKF 871#
CNTLC 888#
CNTRP 803#
COMMA 997#
CONSW 872# 8401 8467 8491
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# 8612 8613
DECVER 4# 10 23 851
DF22F 956#
DIAGMN 819# SEQ 0231
DING 583# 8472
DOLLAR 1011#
DSKUPD 856
E 7080# 7083 7083# 7101 7101# 7103 7104 7107 7115 7115# 7117 7118 7121 7129
7129# 7131 7132 7135 7143 7143# 7145 7146 7149 7157 7157# 7159 7160 7163
7310# 7313 7313# 7333 7333# 7339 7341 7349 7349# 7355 7357 7365 7365# 7371
7373 7381 7381# 7387 7389 7397 7397# 7403 7405 7719# 7722 7722# 7747 7747#
7748 7752 7753 7754 7755 7756 7757 7759 7766 7766# 7767 7771 7772 7773
7774 7775 7776 7778 7785 7785# 7786 7790 7791 7792 7793 7794 7795 7797
7804 7804# 7805 7809 7810 7811 7812 7814 7816 7823 7823# 7824 7828 7829
7830 7831 7832 7833 7835 7866# 7870 7873 7874 7875 7876 7877 8035# 8038
8038# 8067 8067# 8068 8073 8076 8077 8078 8079 8080 8081 8083 8090 8090#
8091 8096 8099 8100 8101 8102 8103 8104 8106 8113 8113# 8114 8119 8122
8123 8124 8125 8126 8127 8129 8136 8136# 8137 8142 8145 8146 8147 8148
8149 8150 8152 8159 8159# 8160 8165 8168 8169 8170 8171 8172 8173 8175
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 8620#
ENDFIX 1131#
ENDSLD 8610#
ERDIAG 59# 8386
ERMORE 905# 8459
EROLD 60# 803
ERRELB 8456
ERRLOP 1171# 1171 1189# 1189 3213# 3213 7047# 7047 7079# 7079 7276# 7276 7309# 7309
7684# 7684 7718# 7718 7865# 7865 8000# 8000 8034# 8034 8366 8477 8480 8481
ERRMES 41 42 43 44 45 46 47 48 49 50 51 8348#
ERRPC 876# 8353 8383
ERRTLS 877# 8351 8484
ERSTOP 586# 8468
EXCASB 56# 854
EXIOT 803#
FOV 803#
FOVU 803#
FRDLNK 609#
FSELNK 608#
FXU 803#
HYPEN 1002#
INHCSH 594# SEQ 0232
INHPAG 591#
IOCLR 803#
ITERAT 90# 849
ITRCH1 909#
ITRCNT 849#
JOB41 803#
JOBAPR 803#
JOBCNI 803#
JOBDDT 803#
JOBFF 803#
JOBOPC 803# 8465
JOBREL 803#
JOBREN 803#
JOBSA 803#
JOBSYM 803#
JOBTPC 803#
JOBUSY 803#
JOBUUO 803#
JOBVER 803#
KAIFLG 866#
KLFLG 867# 7840 7852 8143
KNTRP 803#
KTRP 803#
LACLK 803#
LACLKE 803#
LAPRAL 803#
LAPRP1 803#
LAPRP2 803#
LAPRP3 803#
LAPRP4 803#
LAPRP5 803#
LAPRP6 803#
LAPRP7 803#
LCHNOF 803#
LCHNON 803#
LCNTXT 803#
LCNXER 803#
LCPAER 803#
LCPSFT 803#
LCPWRF 803#
LDATAF 803#
LDLNK 610# 819 821
LDNXER 803#
LDPAER 803#
LDPSFT 803#
LDPWRF 803#
LEBXMH 803#
LEBXML 803#
LENXER 803#
LEPAER 803#
LEPSFT 803#
LEPWRF 803#
LEUPFW 803# SEQ 0233
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# 8470
LPAREN 803#
LPARER 803#
LPFWPC 803#
LPGFTR 803#
LPICH1 803#
LPICH2 803#
LPICH3 803#
LPICH4 803#
LPICH5 803#
LPICH6 803#
LPICH7 803#
LPICHA 803#
LPICLR 803#
LPIIP1 803#
LPIIP2 803#
LPIIP3 803#
LPIIP4 803#
LPIIP5 803#
LPIIP6 803#
LPIIP7 803#
LPIOFF 803#
LPION 803#
LPRCH1 803#
LPRCH2 803#
LPRCH3 803#
LPRCH4 803#
LPRCH5 803#
LPRCH6 803#
LPRCH7 803#
LPRFMH 803#
LPRFML 803#
LPSFT 803#
LPSFTE 803#
LPWRFE 803#
LPWRFL 803#
LREQSE 803#
LRQCLR 803# SEQ 0234
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
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 8354# 8354 8355 8368
MINUS 1001#
MODDVC 593#
MODDVL 792 792# 852
MODDVU 793 793# 853 SEQ 0235
MODLNK 612# 816
MONCTL 869# 8369 8482
MONFLG 868#
MONTEN 870#
MONTYP 1083#
MPVU 803#
MUUO 803#
MUUOPC 803#
NOPNT 581# 8359
NXMU 803#
OPRSEL 595#
OPTIME 971#
P 638 639 640 641 803# 891 7844 7848
PAG 803#
PALERS 587# 8492
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# 8374 8378
PATCH 8613#
PDISF 968#
PDLOVU 803#
PDOVTP 803#
PERIOD 998#
PFSTRT 825#
PGMEND 58# 8619
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# SEQ 0236
PNTNAM 845#
PNTRP 803#
PNTSPC 970#
PROCED 8357# 8357 8471 8478
PTRP 803#
PVPAGI 1064#
Q10 1175# 1179
Q100 1194# 1198
Q1000 2331#
Q10000 6927# 6934
Q10010 6939# 6946
Q10050 6951# 6958
Q10100 6961# 6971
Q10200 6974# 6984
Q10300 6987# 6997
Q10400 7000# 7010
Q10500 7013# 7023
Q10600 7026# 7036
Q10700 7051#
Q10710 7050# 7068
Q10713 7057#
Q1100 2498#
Q11000 7085#
Q11050 7174# 7181
Q11100 7184# 7195
Q11200 7198# 7209
Q11300 7212# 7223
Q11400 7226# 7237
Q11500 7240# 7251
Q11600 7254# 7265
Q11700 7279# 7298
Q1200 2683#
Q12000 7315#
Q12100 7415# 7426
Q12200 7429# 7440
Q12300 7443# 7454
Q12400 7459# 7463
Q12500 7466# 7477
Q12501 7470# 7475 7479 7484 7487
Q12502 7477# 7481 7486 7489
Q12503 7474 7479#
Q12504 7472 7482#
Q12505 7483 7487#
Q12506 7478 7490#
Q12600 7493# 7504
Q12601 7497# 7502 7506 7511 7514
Q12602 7504# 7508 7513 7516
Q12603 7501 7506#
Q12604 7499 7509#
Q12605 7510 7514#
Q12606 7505 7517#
Q12700 7520# 7531
Q12701 7524# 7529 7533 7538 7541 SEQ 0237
Q12702 7531# 7535 7540 7543
Q12703 7528 7533#
Q12704 7526 7536#
Q12705 7537 7541#
Q12706 7532 7544#
Q1300 2869#
Q13000 7547# 7558
Q13001 7551# 7556 7560 7565 7568
Q13002 7558# 7562 7567 7570
Q13003 7555 7560#
Q13004 7553 7563#
Q13005 7564 7568#
Q13006 7559 7571#
Q13050 7576# 7583
Q13100 7586# 7598
Q13200 7601# 7613
Q13300 7616# 7628
Q13400 7631# 7643
Q13500 7646# 7658
Q13600 7661# 7673
Q13700 7687# 7707
Q1400 3027# 3033
Q14000 7724#
Q14001 7815 7840#
Q14002 7843#
Q14003 7841 7847#
Q14020 7868# 7881
Q14021 7838 7852#
Q14050 7853 7886# 7893
Q14100 7896# 7909
Q14200 7912# 7925
Q14300 7928# 7941
Q14400 7944# 7957
Q14500 7960# 7973
Q14600 7976# 7989
Q14700 8003# 8023
Q1500 3043# 3050
Q15000 8040#
Q15100 8181# 8194
Q15200 8197# 8210
Q15300 8213# 8226
Q15400 8230# 8242
Q15401 8235# 8240 8244 8249 8252
Q15402 8242# 8246 8251 8254
Q15403 8239 8244#
Q15404 8237 8247#
Q15405 8248 8252#
Q15406 8243 8255#
Q15500 8258# 8270
Q15501 8263# 8268 8272 8277 8280
Q15502 8270# 8274 8279 8282
Q15503 8267 8272#
Q15504 8265 8275# SEQ 0238
Q15505 8276 8280#
Q15506 8271 8283#
Q15600 8286# 8298
Q15601 8291# 8296 8300 8305 8308
Q15602 8298# 8302 8307 8310
Q15603 8295 8300#
Q15604 8293 8303#
Q15605 8304 8308#
Q15606 8299 8311#
Q15700 8314# 8326
Q15701 8319# 8324 8328 8333 8336
Q15702 8326# 8330 8335 8338
Q15703 8323 8328#
Q15704 8321 8331#
Q15705 8332 8336#
Q15706 8327 8339#
Q1600 3059# 3065
Q1700 3073# 3080
Q200 1205#
Q2000 3089# 3095
Q2100 3103# 3108
Q2200 3117# 3123
Q2300 3131# 3136
Q2400 3145# 3150
Q2500 3158# 3163
Q2600 3172# 3177
Q2700 3185# 3190
Q300 1513#
Q3000 3199# 3204
Q3010 3214# 3220
Q3050 3225# 3229
Q3100 3239# 3246
Q3200 3256# 3262
Q3300 3271# 3278
Q3400 3288# 3295
Q3500 3304# 3309
Q3600 3319# 3325
Q3700 3334# 3339
Q4000 3349# 3354
Q4100 3363# 3368
Q4200 3378# 3383
Q4300 3392# 3397
Q4400 3407# 3412
Q4410 3417# 3424
Q4500 3432# 3437
Q4600 3442# 3451
Q4700 3456# 3467
Q500 1809#
Q5000 3471# 3480
Q5100 3485# 3497
Q5150 3502# 3506
Q5200 3514#
Q5300 3789# SEQ 0239
Q5400 4101#
Q5500 4410#
Q5600 4719# 4723
Q5700 4730# 4736
Q600 1963#
Q6000 4742#
Q6100 4944#
Q6200 5110#
Q6300 5271#
Q6400 5474#
Q6500 5631#
Q6600 5792#
Q6700 5995#
Q700 2274#
Q7000 6161#
Q7100 6320# 6327
Q7200 6333#
Q7300 6547#
Q7400 6723#
Q7500 6885# 6892
Q7600 6899# 6907
Q7700 6913# 6920
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#
SAC 1166# 1168 1169 1170 1171 1179 1184# 1186 1187 1188 1189 1198 1235 1251
1267 1283 1299 1315 1331 1347 1363 1379 1395 1411 1427 1443 1459 1475
1491 1507 1543 1559 1575 1591 1607 1623 1639 1655 1671 1687 1703 1719
1735 1751 1767 1783 1799 1837 1852 1867 1882 1897 1912 1927 1942 1957
1993 2009 2025 2041 2057 2073 2089 2105 2121 2137 2153 2169 2185 2201
2217 2233 2249 2265 2306 2323 2365 2383 2401 2419 2437 2455 2473 2491
2532 2550 2568 2586 2604 2622 2640 2658 2676 2717 2735 2753 2771 2789
2807 2825 2843 2861 2901 2918 2935 2952 2969 2986 3003 3020 3033 3050
3065 3080 3095 3108 3123 3136 3150 3163 3177 3190 3204 3210 3211 3212
3213 3220 3229 3246 3262 3278 3295 3309 3325 3339 3354 3368 3383 3397
3412 3424 3437 3451 3467 3480 3497 3506 3542 3557 3572 3587 3602 3617
3632 3647 3662 3677 3692 3707 3722 3737 3752 3767 3782 3819 3835 3851
3867 3883 3899 3915 3931 3947 3963 3979 3995 4011 4027 4043 4059 4075 SEQ 0240
4091 4131 4147 4163 4179 4195 4211 4227 4243 4259 4275 4291 4307 4323
4339 4355 4371 4387 4403 4440 4456 4472 4488 4504 4520 4536 4552 4568
4584 4600 4616 4632 4648 4664 4680 4696 4712 4723 4736 4776 4794 4812
4830 4848 4866 4884 4902 4920 4938 4978 4996 5014 5032 5050 5068 5086
5104 5142 5159 5176 5193 5210 5227 5244 5261 5305 5323 5341 5359 5377
5395 5413 5431 5449 5467 5506 5523 5540 5557 5574 5591 5608 5625 5663
5680 5697 5714 5731 5748 5765 5782 5826 5844 5862 5880 5898 5916 5934
5952 5970 5988 6029 6047 6065 6083 6101 6119 6137 6155 6193 6210 6227
6244 6261 6278 6295 6312 6327 6369 6388 6407 6426 6445 6464 6483 6502
6521 6540 6583 6602 6621 6640 6659 6678 6697 6716 6755 6772 6789 6806
6823 6840 6857 6874 6892 6907 6920 6934 6946 6958 6971 6984 6997 7010
7023 7036 7042# 7044 7045 7046 7047 7068 7074# 7076 7077 7078 7079 7112
7126 7140 7154 7168 7181 7195 7209 7223 7237 7251 7265 7271# 7273 7274
7275 7276 7298 7304# 7306 7307 7308 7309 7346 7362 7378 7394 7410 7426
7440 7454 7463 7477 7504 7531 7558 7583 7598 7613 7628 7643 7658 7673
7679# 7681 7682 7683 7684 7707 7713# 7715 7716 7717 7718 7760 7779 7798
7817 7836 7860# 7862 7863 7864 7865 7881 7893 7909 7925 7941 7957 7973
7989 7995# 7997 7998 7999 8000 8023 8029# 8031 8032 8033 8034 8082 8105
8128 8153 8174 8194 8210 8226 8242 8270 8298 8326
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# 7473 7482 7500 7509 7527 7536 7554 7563 8238 8247 8266 8275 8294
8303 8322 8331
SN 1201# 1226 1226# 1234 1242 1242# 1250 1258 1258# 1266 1274 1274# 1282 1290
1290# 1298 1306 1306# 1314 1322 1322# 1330 1338 1338# 1346 1354 1354# 1362
1370 1370# 1378 1386 1386# 1394 1402 1402# 1410 1418 1418# 1426 1434 1434#
1442 1450 1450# 1458 1466 1466# 1474 1482 1482# 1490 1498 1498# 1506 1510#
1534 1534# 1542 1550 1550# 1558 1566 1566# 1574 1582 1582# 1590 1598 1598#
1606 1614 1614# 1622 1630 1630# 1638 1646 1646# 1654 1662 1662# 1670 1678
1678# 1686 1694 1694# 1702 1710 1710# 1718 1726 1726# 1734 1742 1742# 1750
1758 1758# 1766 1774 1774# 1782 1790 1790# 1798 1805# 1829 1829# 1836 1844
1844# 1851 1859 1859# 1866 1874 1874# 1881 1889 1889# 1896 1904 1904# 1911
1919 1919# 1926 1934 1934# 1941 1949 1949# 1956 1960# 1984 1984# 1992 2000
2000# 2008 2016 2016# 2024 2032 2032# 2040 2048 2048# 2056 2064 2064# 2072
2080 2080# 2088 2096 2096# 2104 2112 2112# 2120 2128 2128# 2136 2144 2144#
2152 2160 2160# 2168 2176 2176# 2184 2192 2192# 2200 2208 2208# 2216 2224
2224# 2232 2240 2240# 2248 2256 2256# 2264 2270# 2296 2296# 2305 2313 2313#
2322 2326# 2354 2354# 2364 2372 2372# 2382 2390 2390# 2400 2408 2408# 2418
2426 2426# 2436 2444 2444# 2454 2462 2462# 2472 2480 2480# 2490 2493# 2521
2521# 2531 2539 2539# 2549 2557 2557# 2567 2575 2575# 2585 2593 2593# 2603 SEQ 0241
2611 2611# 2621 2629 2629# 2639 2647 2647# 2657 2665 2665# 2675 2680# 2706
2706# 2716 2724 2724# 2734 2742 2742# 2752 2760 2760# 2770 2778 2778# 2788
2796 2796# 2806 2814 2814# 2824 2832 2832# 2842 2850 2850# 2860 2864# 2891
2891# 2900 2908 2908# 2917 2925 2925# 2934 2942 2942# 2951 2959 2959# 2968
2976 2976# 2985 2993 2993# 3002 3010 3010# 3019 3510# 3534 3534# 3541 3549
3549# 3556 3564 3564# 3571 3579 3579# 3586 3594 3594# 3601 3609 3609# 3616
3624 3624# 3631 3639 3639# 3646 3654 3654# 3661 3669 3669# 3676 3684 3684#
3691 3699 3699# 3706 3714 3714# 3721 3729 3729# 3736 3744 3744# 3751 3759
3759# 3766 3774 3774# 3781 3785# 3810 3810# 3818 3826 3826# 3834 3842 3842#
3850 3858 3858# 3866 3874 3874# 3882 3890 3890# 3898 3906 3906# 3914 3922
3922# 3930 3938 3938# 3946 3954 3954# 3962 3970 3970# 3978 3986 3986# 3994
4002 4002# 4010 4018 4018# 4026 4034 4034# 4042 4050 4050# 4058 4066 4066#
4074 4082 4082# 4090 4097# 4122 4122# 4130 4138 4138# 4146 4154 4154# 4162
4170 4170# 4178 4186 4186# 4194 4202 4202# 4210 4218 4218# 4226 4234 4234#
4242 4250 4250# 4258 4266 4266# 4274 4282 4282# 4290 4298 4298# 4306 4314
4314# 4322 4330 4330# 4338 4346 4346# 4354 4362 4362# 4370 4378 4378# 4386
4394 4394# 4402 4406# 4431 4431# 4439 4447 4447# 4455 4463 4463# 4471 4479
4479# 4487 4495 4495# 4503 4511 4511# 4519 4527 4527# 4535 4543 4543# 4551
4559 4559# 4567 4575 4575# 4583 4591 4591# 4599 4607 4607# 4615 4623 4623#
4631 4639 4639# 4647 4655 4655# 4663 4671 4671# 4679 4687 4687# 4695 4703
4703# 4711 4738# 4765 4765# 4775 4783 4783# 4793 4801 4801# 4811 4819 4819#
4829 4837 4837# 4847 4855 4855# 4865 4873 4873# 4883 4891 4891# 4901 4909
4909# 4919 4927 4927# 4937 4941# 4967 4967# 4977 4985 4985# 4995 5003 5003#
5013 5021 5021# 5031 5039 5039# 5049 5057 5057# 5067 5075 5075# 5085 5093
5093# 5103 5106# 5132 5132# 5141 5149 5149# 5158 5166 5166# 5175 5183 5183#
5192 5200 5200# 5209 5217 5217# 5226 5234 5234# 5243 5251 5251# 5260 5267#
5294 5294# 5304 5312 5312# 5322 5330 5330# 5340 5348 5348# 5358 5366 5366#
5376 5384 5384# 5394 5402 5402# 5412 5420 5420# 5430 5438 5438# 5448 5456
5456# 5466 5470# 5496 5496# 5505 5513 5513# 5522 5530 5530# 5539 5547 5547#
5556 5564 5564# 5573 5581 5581# 5590 5598 5598# 5607 5615 5615# 5624 5627#
5653 5653# 5662 5670 5670# 5679 5687 5687# 5696 5704 5704# 5713 5721 5721#
5730 5738 5738# 5747 5755 5755# 5764 5772 5772# 5781 5788# 5815 5815# 5825
5833 5833# 5843 5851 5851# 5861 5869 5869# 5879 5887 5887# 5897 5905 5905#
5915 5923 5923# 5933 5941 5941# 5951 5959 5959# 5969 5977 5977# 5987 5991#
6018 6018# 6028 6036 6036# 6046 6054 6054# 6064 6072 6072# 6082 6090 6090#
6100 6108 6108# 6118 6126 6126# 6136 6144 6144# 6154 6157# 6183 6183# 6192
6200 6200# 6209 6217 6217# 6226 6234 6234# 6243 6251 6251# 6260 6268 6268#
6277 6285 6285# 6294 6302 6302# 6311 6329# 6357 6357# 6368 6376 6376# 6387
6395 6395# 6406 6414 6414# 6425 6433 6433# 6444 6452 6452# 6463 6471 6471#
6482 6490 6490# 6501 6509 6509# 6520 6528 6528# 6539 6543# 6571 6571# 6582
6590 6590# 6601 6609 6609# 6620 6628 6628# 6639 6647 6647# 6658 6666 6666#
6677 6685 6685# 6696 6704 6704# 6715 6719# 6745 6745# 6754 6762 6762# 6771
6779 6779# 6788 6796 6796# 6805 6813 6813# 6822 6830 6830# 6839 6847 6847#
6856 6864 6864# 6873 7082# 7100 7100# 7109 7111 7114 7114# 7123 7125 7128
7128# 7137 7139 7142 7142# 7151 7153 7156 7156# 7165 7167 7312# 7332 7332#
7343 7345 7348 7348# 7359 7361 7364 7364# 7375 7377 7380 7380# 7391 7393
7396 7396# 7407 7409 7721# 7746 7746# 7754 7759 7765 7765# 7773 7778 7784
7784# 7792 7797 7803 7803# 7811 7816 7822 7822# 7830 7835 8037# 8066 8066#
8078 8080 8089 8089# 8101 8103 8112 8112# 8124 8126 8135 8135# 8147 8149
8158 8158# 8170 8172
SNTRP 803#
SPACE 999#
SPDES 8444# SEQ 0242
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# 1169 1187 3211 7045 7077 7274 7307 7682 7716 7863 7998 8032
TICKS 878#
TLET 1153 8418 8441#
TN0 803#
TN1 803#
TOTALS 579#
TRP3TP 803#
TSTWD 3215 3217 3419 3421 6941 6943 7588 7589 7592 7593 7603 7604 7607 7608
7618 7619 7622 7623 7633 7634 7637 7638 7648 7649 7652 7653 7663 7664
7667 7668 7690 7691 7694 7695 7898 7903 7904 7914 7919 7920 7930 7935
7936 7946 7951 7952 7962 7967 7968 7978 7983 7984 8005 8010 8011 8183
8188 8189 8199 8204 8205 8215 8220 8221 8233 8261 8289 8317 8343#
TTNBRF 1058#
TTYFIL 974#
TTYSPD 975#
TXTINH 590# 8402
UBAVEC 803#
USER 865#
USERF 803# 7471 7498 7525 7552 8236 8264 8292 8320
USRASB 57# 855
USRCRF 984#
USRLFF 983#
UUODIS 937#
UUOEXT 893# 8489
UUORTN 894#
UUOSKP 891#
WW 2867# 2894 2894# 2897 2911 2911# 2914 2928 2928# 2931 2945 2945# 2948 2962
2962# 2965 2979 2979# 2982 2996 2996# 2999 3013 3013# 3016
XX 1202# 1227 1227# 1230 1243 1243# 1246 1259 1259# 1262 1275 1275# 1278 1291
1291# 1294 1307 1307# 1310 1323 1323# 1326 1339 1339# 1342 1355 1355# 1358
1371 1371# 1374 1387 1387# 1390 1403 1403# 1406 1419 1419# 1422 1435 1435#
1438 1451 1451# 1454 1467 1467# 1470 1483 1483# 1486 1499 1499# 1502 1535
1535# 1538 1551 1551# 1554 1567 1567# 1570 1583 1583# 1586 1599 1599# 1602
1615 1615# 1618 1631 1631# 1634 1647 1647# 1650 1663 1663# 1666 1679 1679#
1682 1695 1695# 1698 1711 1711# 1714 1727 1727# 1730 1743 1743# 1746 1759
1759# 1762 1775 1775# 1778 1791 1791# 1794 1806# 1830 1830# 1832 1845 1845#
1847 1860 1860# 1862 1875 1875# 1877 1890 1890# 1892 1905 1905# 1907 1920
1920# 1922 1935 1935# 1937 1950 1950# 1952 1985 1985# 1988 2001 2001# 2004
2017 2017# 2020 2033 2033# 2036 2049 2049# 2052 2065 2065# 2068 2081 2081# SEQ 0243
2084 2097 2097# 2100 2113 2113# 2116 2129 2129# 2132 2145 2145# 2148 2161
2161# 2164 2177 2177# 2180 2193 2193# 2196 2209 2209# 2212 2225 2225# 2228
2241 2241# 2244 2257 2257# 2260 2271# 2297 2297# 2300 2314 2314# 2317 2327#
2355 2355# 2359 2373 2373# 2377 2391 2391# 2395 2409 2409# 2413 2427 2427#
2431 2445 2445# 2449 2463 2463# 2467 2481 2481# 2485 2494# 2522 2522# 2526
2540 2540# 2544 2558 2558# 2562 2576 2576# 2580 2594 2594# 2598 2612 2612#
2616 2630 2630# 2634 2648 2648# 2652 2666 2666# 2670 2707 2707# 2711 2725
2725# 2729 2743 2743# 2747 2761 2761# 2765 2779 2779# 2783 2797 2797# 2801
2815 2815# 2819 2833 2833# 2837 2851 2851# 2855 2865# 2892 2892# 2895 2909
2909# 2912 2926 2926# 2929 2943 2943# 2946 2960 2960# 2963 2977 2977# 2980
2994 2994# 2997 3011 3011# 3014 3511# 3535 3535# 3537 3550 3550# 3552 3565
3565# 3567 3580 3580# 3582 3595 3595# 3597 3610 3610# 3612 3625 3625# 3627
3640 3640# 3642 3655 3655# 3657 3670 3670# 3672 3685 3685# 3687 3700 3700#
3702 3715 3715# 3717 3730 3730# 3732 3745 3745# 3747 3760 3760# 3762 3775
3775# 3777 3786# 3811 3811# 3813 3813# 3814 3827 3827# 3829 3830 3843 3843#
3845 3846 3859 3859# 3861 3862 3875 3875# 3877 3878 3891 3891# 3893 3894
3907 3907# 3909 3910 3923 3923# 3925 3926 3939 3939# 3941 3942 3955 3955#
3957 3958 3971 3971# 3973 3974 3987 3987# 3989 3990 4003 4003# 4005 4006
4019 4019# 4021 4022 4035 4035# 4037 4038 4051 4051# 4053 4054 4067 4067#
4069 4070 4083 4083# 4085 4086 4098# 4123 4123# 4125 4125# 4126 4139 4139#
4141 4142 4155 4155# 4157 4158 4171 4171# 4173 4174 4187 4187# 4189 4190
4203 4203# 4205 4206 4219 4219# 4221 4222 4235 4235# 4237 4238 4251 4251#
4253 4254 4267 4267# 4269 4270 4283 4283# 4285 4286 4299 4299# 4301 4302
4315 4315# 4317 4318 4331 4331# 4333 4334 4347 4347# 4349 4350 4363 4363#
4365 4366 4379 4379# 4381 4382 4395 4395# 4397 4398 4407# 4432 4432# 4434
4434# 4435 4448 4448# 4450 4451 4464 4464# 4466 4467 4480 4480# 4482 4483
4496 4496# 4498 4499 4512 4512# 4514 4515 4528 4528# 4530 4531 4544 4544#
4546 4547 4560 4560# 4562 4563 4576 4576# 4578 4579 4592 4592# 4594 4595
4608 4608# 4610 4611 4624 4624# 4626 4627 4640 4640# 4642 4643 4656 4656#
4658 4659 4672 4672# 4674 4675 4688 4688# 4690 4691 4704 4704# 4706 4707
4739# 4766 4766# 4769 4784 4784# 4787 4802 4802# 4805 4820 4820# 4823 4838
4838# 4841 4856 4856# 4859 4874 4874# 4877 4892 4892# 4895 4910 4910# 4913
4928 4928# 4931 4942# 4968 4968# 4970 4970# 4971 4986 4986# 4988 4989 5004
5004# 5006 5007 5022 5022# 5024 5025 5040 5040# 5042 5043 5058 5058# 5060
5061 5076 5076# 5078 5079 5094 5094# 5096 5097 5107# 5133 5133# 5136 5150
5150# 5153 5167 5167# 5170 5184 5184# 5187 5201 5201# 5204 5218 5218# 5221
5235 5235# 5238 5252 5252# 5255 5268# 5295 5295# 5299 5313 5313# 5317 5331
5331# 5335 5349 5349# 5353 5367 5367# 5371 5385 5385# 5389 5403 5403# 5407
5421 5421# 5425 5439 5439# 5443 5457 5457# 5461 5471# 5497 5497# 5499 5499#
5500 5514 5514# 5516 5517 5531 5531# 5533 5534 5548 5548# 5550 5551 5565
5565# 5567 5568 5582 5582# 5584 5585 5599 5599# 5601 5602 5616 5616# 5618
5619 5628# 5654 5654# 5657 5671 5671# 5674 5688 5688# 5691 5705 5705# 5708
5722 5722# 5725 5739 5739# 5742 5756 5756# 5759 5773 5773# 5776 5789# 5816
5816# 5820 5834 5834# 5838 5852 5852# 5856 5870 5870# 5874 5888 5888# 5892
5906 5906# 5910 5924 5924# 5928 5942 5942# 5946 5960 5960# 5964 5978 5978#
5982 5992# 6019 6019# 6021 6021# 6022 6037 6037# 6039 6040 6055 6055# 6057
6058 6073 6073# 6075 6076 6091 6091# 6093 6094 6109 6109# 6111 6112 6127
6127# 6129 6130 6145 6145# 6147 6148 6158# 6184 6184# 6187 6201 6201# 6204
6218 6218# 6221 6235 6235# 6238 6252 6252# 6255 6269 6269# 6272 6286 6286#
6289 6303 6303# 6306 6330# 6358 6358# 6362 6377 6377# 6381 6396 6396# 6400
6415 6415# 6419 6434 6434# 6438 6453 6453# 6457 6472 6472# 6476 6491 6491#
6495 6510 6510# 6514 6529 6529# 6533 6544# 6572 6572# 6574 6574# 6575 6591
6591# 6593 6594 6610 6610# 6612 6613 6629 6629# 6631 6632 6648 6648# 6650 SEQ 0244
6651 6667 6667# 6669 6670 6686 6686# 6688 6689 6705 6705# 6707 6708 6720#
6746 6746# 6749 6763 6763# 6766 6780 6780# 6783 6797 6797# 6800 6814 6814#
6817 6831 6831# 6834 6848 6848# 6851 6865 6865# 6868
YY 1203# 1228 1228# 1229 1229# 1231 1244 1244# 1245 1247 1260 1260# 1261 1263
1276 1276# 1277 1279 1292 1292# 1293 1295 1308 1308# 1309 1311 1324 1324#
1325 1327 1340 1340# 1341 1343 1356 1356# 1357 1359 1372 1372# 1373 1375
1388 1388# 1389 1391 1404 1404# 1405 1407 1420 1420# 1421 1423 1436 1436#
1437 1439 1452 1452# 1453 1455 1468 1468# 1469 1471 1484 1484# 1485 1487
1500 1500# 1501 1503 1511# 1536 1536# 1537 1537# 1539 1552 1552# 1553 1555
1568 1568# 1569 1571 1584 1584# 1585 1587 1600 1600# 1601 1603 1616 1616#
1617 1619 1632 1632# 1633 1635 1648 1648# 1649 1651 1664 1664# 1665 1667
1680 1680# 1681 1683 1696 1696# 1697 1699 1712 1712# 1713 1715 1728 1728#
1729 1731 1744 1744# 1745 1747 1760 1760# 1761 1763 1776 1776# 1777 1779
1792 1792# 1793 1795 1807# 1831 1831# 1833 1846 1846# 1848 1861 1861# 1863
1876 1876# 1878 1891 1891# 1893 1906 1906# 1908 1921 1921# 1923 1936 1936#
1938 1951 1951# 1953 1961# 1986 1986# 1987 1987# 1989 2002 2002# 2003 2005
2018 2018# 2019 2021 2034 2034# 2035 2037 2050 2050# 2051 2053 2066 2066#
2067 2069 2082 2082# 2083 2085 2098 2098# 2099 2101 2114 2114# 2115 2117
2130 2130# 2131 2133 2146 2146# 2147 2149 2162 2162# 2163 2165 2178 2178#
2179 2181 2194 2194# 2195 2197 2210 2210# 2211 2213 2226 2226# 2227 2229
2242 2242# 2243 2245 2258 2258# 2259 2261 2328# 2356 2356# 2358 2358# 2360
2374 2374# 2376 2378 2392 2392# 2394 2396 2410 2410# 2412 2414 2428 2428#
2430 2432 2446 2446# 2448 2450 2464 2464# 2466 2468 2482 2482# 2484 2486
2495# 2523 2523# 2525 2525# 2527 2541 2541# 2543 2545 2559 2559# 2561 2563
2577 2577# 2579 2581 2595 2595# 2597 2599 2613 2613# 2615 2617 2631 2631#
2633 2635 2649 2649# 2651 2653 2667 2667# 2669 2671 2708 2708# 2712 2726
2726# 2730 2744 2744# 2748 2762 2762# 2766 2780 2780# 2784 2798 2798# 2802
2816 2816# 2820 2834 2834# 2838 2852 2852# 2856 3512# 3536 3536# 3538 3551
3551# 3553 3566 3566# 3568 3581 3581# 3583 3596 3596# 3598 3611 3611# 3613
3626 3626# 3628 3641 3641# 3643 3656 3656# 3658 3671 3671# 3673 3686 3686#
3688 3701 3701# 3703 3716 3716# 3718 3731 3731# 3733 3746 3746# 3748 3761
3761# 3763 3776 3776# 3778 3787# 3812 3812# 3815 3828 3828# 3831 3844 3844#
3847 3860 3860# 3863 3876 3876# 3879 3892 3892# 3895 3908 3908# 3911 3924
3924# 3927 3940 3940# 3943 3956 3956# 3959 3972 3972# 3975 3988 3988# 3991
4004 4004# 4007 4020 4020# 4023 4036 4036# 4039 4052 4052# 4055 4068 4068#
4071 4084 4084# 4087 4099# 4124 4124# 4127 4140 4140# 4143 4156 4156# 4159
4172 4172# 4175 4188 4188# 4191 4204 4204# 4207 4220 4220# 4223 4236 4236#
4239 4252 4252# 4255 4268 4268# 4271 4284 4284# 4287 4300 4300# 4303 4316
4316# 4319 4332 4332# 4335 4348 4348# 4351 4364 4364# 4367 4380 4380# 4383
4396 4396# 4399 4408# 4433 4433# 4436 4449 4449# 4452 4465 4465# 4468 4481
4481# 4484 4497 4497# 4500 4513 4513# 4516 4529 4529# 4532 4545 4545# 4548
4561 4561# 4564 4577 4577# 4580 4593 4593# 4596 4609 4609# 4612 4625 4625#
4628 4641 4641# 4644 4657 4657# 4660 4673 4673# 4676 4689 4689# 4692 4705
4705# 4708 4740# 4767 4767# 4768 4768# 4772 4785 4785# 4786 4790 4803 4803#
4804 4808 4821 4821# 4822 4826 4839 4839# 4840 4844 4857 4857# 4858 4862
4875 4875# 4876 4880 4893 4893# 4894 4898 4911 4911# 4912 4916 4929 4929#
4930 4934 4943# 4969 4969# 4974 4987 4987# 4992 5005 5005# 5010 5023 5023#
5028 5041 5041# 5046 5059 5059# 5064 5077 5077# 5082 5095 5095# 5100 5108#
5134 5134# 5135 5135# 5138 5151 5151# 5152 5155 5168 5168# 5169 5172 5185
5185# 5186 5189 5202 5202# 5203 5206 5219 5219# 5220 5223 5236 5236# 5237
5240 5253 5253# 5254 5257 5269# 5296 5296# 5297 5297# 5301 5314 5314# 5315
5319 5332 5332# 5333 5337 5350 5350# 5351 5355 5368 5368# 5369 5373 5386
5386# 5387 5391 5404 5404# 5405 5409 5422 5422# 5423 5427 5440 5440# 5441 SEQ 0245
5445 5458 5458# 5459 5463 5472# 5498 5498# 5502 5515 5515# 5519 5532 5532#
5536 5549 5549# 5553 5566 5566# 5570 5583 5583# 5587 5600 5600# 5604 5617
5617# 5621 5629# 5655 5655# 5656 5656# 5658 5672 5672# 5673 5675 5689 5689#
5690 5692 5706 5706# 5707 5709 5723 5723# 5724 5726 5740 5740# 5741 5743
5757 5757# 5758 5760 5774 5774# 5775 5777 5790# 5817 5817# 5818 5818# 5822
5835 5835# 5836 5840 5853 5853# 5854 5858 5871 5871# 5872 5876 5889 5889#
5890 5894 5907 5907# 5908 5912 5925 5925# 5926 5930 5943 5943# 5944 5948
5961 5961# 5962 5966 5979 5979# 5980 5984 5993# 6020 6020# 6024 6038 6038#
6042 6056 6056# 6060 6074 6074# 6078 6092 6092# 6096 6110 6110# 6114 6128
6128# 6132 6146 6146# 6150 6159# 6185 6185# 6186 6186# 6188 6202 6202# 6203
6205 6219 6219# 6220 6222 6236 6236# 6237 6239 6253 6253# 6254 6256 6270
6270# 6271 6273 6287 6287# 6288 6290 6304 6304# 6305 6307 6331# 6359 6359#
6360 6360# 6364 6378 6378# 6379 6383 6397 6397# 6398 6402 6416 6416# 6417
6421 6435 6435# 6436 6440 6454 6454# 6455 6459 6473 6473# 6474 6478 6492
6492# 6493 6497 6511 6511# 6512 6516 6530 6530# 6531 6535 6545# 6573 6573#
6578 6592 6592# 6597 6611 6611# 6616 6630 6630# 6635 6649 6649# 6654 6668
6668# 6673 6687 6687# 6692 6706 6706# 6711 6721# 6747 6747# 6748 6748# 6751
6764 6764# 6765 6768 6781 6781# 6782 6785 6798 6798# 6799 6802 6815 6815#
6816 6819 6832 6832# 6833 6836 6849 6849# 6850 6853 6866 6866# 6867 6870
ZZ 2272# 2298 2298# 2299 2299# 2302 2315 2315# 2316 2319 2329# 2357 2357# 2361
2375 2375# 2379 2393 2393# 2397 2411 2411# 2415 2429 2429# 2433 2447 2447#
2451 2465 2465# 2469 2483 2483# 2487 2496# 2524 2524# 2528 2542 2542# 2546
2560 2560# 2564 2578 2578# 2582 2596 2596# 2600 2614 2614# 2618 2632 2632#
2636 2650 2650# 2654 2668 2668# 2672 2681# 2709 2709# 2710 2710# 2713 2727
2727# 2728 2731 2745 2745# 2746 2749 2763 2763# 2764 2767 2781 2781# 2782
2785 2799 2799# 2800 2803 2817 2817# 2818 2821 2835 2835# 2836 2839 2853
2853# 2854 2857 2866# 2893 2893# 2896 2910 2910# 2913 2927 2927# 2930 2944
2944# 2947 2961 2961# 2964 2978 2978# 2981 2995 2995# 2998 3012 3012# 3015
$$MUUO 1089#
$$OUTE 1095#
$$TAX1 1107#
$$TAX2 1108#
$$TOGG 1101#
$$UUO 1078#
$ACC0 916#
$ACF 8445#
$BEND1 886#
$BEND2 75 887# 8498
$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 8504
$MMAP 857#
$MODVL 852# SEQ 0246
$MODVU 853#
$OBUF 1020#
$ONETM 880#
$OUTEX 1022#
$OUTNM 1021#
$PAPER 803
$PARER 904#
$PNAME 850#
$PSHER 908#
$PVER 851#
$RSRTX 900#
$RSRTY 901#
$SPAG1 920#
$START 817#
$SVAPR 918#
$SVPAG 919#
$SVPI 917#
$SVUPC 923# 8352 8356 8382
$SVUUO 922# 8361 8393 8421
$TABF 980#
$TTCHR 976#
$TWCNT 972#
$TYPNB 978#
$UMODE 855#
$UORTX 895#
$USRHL 899#
$UUOER 896# 937
$VTF 982#
%AC1F 8446#
%ACS1A 8363# 8363 8407
%ACTFL 929#
%ACTUL 930#
%ALF 8451#
%AR1F 8450#
%ARF 8449#
%COREC 928#
%CORFL 927#
%DISCR 931#
%E1F 8448#
%EEF 8452#
%EF 8447#
%ER4X 8427 8432#
%ER5X 8425 8434#
%ER6X 8423 8436#
%ER7X 8429# 8433 8435 8437
%ERAC0 8348# 8348 8364 8398 8488
%ERAC1 8349# 8349 8365 8476
%ERAC2 8350# 8350 8475
%ERFST 8371# 8371 8373
%ERHI1 1070#
%ERHI2 1071#
%ERHI3 1072#
%ERMOR 8403 8430 8459# SEQ 0247
%ERMS1 8368# 8494
%ERMS2 8391#
%ERMS3 8409 8416#
%ERRS1 8360 8462# 8493
%ERRS2 8475#
%ERRS4 8367 8491#
%ERRS5 8479 8483 8488#
%ERRS6 8486 8496#
%FF 8453#
%FLTTB 8411 8442#
%NODES 8443#
%SV17 7050# 7050 7060 7065 7067 7279 7290 7295 7297 7687 7699 7704 7706 8015
8020 8022
.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 0248
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# 6960 6973 6986 6999 7012 7025
DMVE17 113# 7049
DMVM 253# 7585 7600 7615 7630 7645 7660
DMVM17 305# 7686
DMVN 141# 7183 7197 7211 7225 7239 7253 7414 7428 7442
DMVN17 171# 7278
DMVNF 209# 7465 7492 7519 7546
DMVNM 278# 7895 7911 7927 7943 7959 7975 8180 8196 8212
DMVNM1 337# 8002
DMVNMF 372# 8229 8257 8285 8313
DROPDV 724# 1132
ENDUUO 770# 885
EOPUUO 771# 887
ER1 29#
ER10 36#
ER11 37#
ER12 38#
ER13 39# 3436 3450 3466 3479 3496 7462 7476 7480 7485 7488 7503 7507 7512
7515 7530 7534 7539 7542 7557 7561 7566 7569 7880 8241 8245 8250 8253
8269 8273 8278 8281 8297 8301 8306 8309 8325 8329 8334 8337
ER2 30#
ER3 31# 1197 1234 1250 1266 1282 1298 1314 1330 1346 1362 1378 1394 1410
1426 1442 1458 1474 1490 1506 1542 1558 1574 1590 1606 1622 1638 1654
1670 1686 1702 1718 1734 1750 1766 1782 1798 1836 1851 1866 1881 1896
1911 1926 1941 1956 1992 2008 2024 2040 2056 2072 2088 2104 2120 2136
2152 2168 2184 2200 2216 2232 2248 2264 2305 2322 2364 2382 2400 2418
2436 2454 2472 2490 2531 2549 2567 2585 2603 2621 2639 2657 2675 2716
2734 2752 2770 2788 2806 2824 2842 2860 2900 2917 2934 2951 2968 2985
3002 3019 3032 3049 3064 3079 3094 3107 3122 3135 3149 3162 3176 3189
3203 3219 3245 3261 3277 3294 3308 3324 3338 3353 3367 3382 3396 3411
3423 3447 3462 3476 3492 3541 3556 3571 3586 3601 3616 3631 3646 3661
3676 3691 3706 3721 3736 3751 3766 3781 3818 3834 3850 3866 3882 3898
3914 3930 3946 3962 3978 3994 4010 4026 4042 4058 4074 4090 4130 4146
4162 4178 4194 4210 4226 4242 4258 4274 4290 4306 4322 4338 4354 4370
4386 4402 4439 4455 4471 4487 4503 4519 4535 4551 4567 4583 4599 4615
4631 4647 4663 4679 4695 4711 4722 4735 4775 4793 4811 4829 4847 4865
4883 4901 4919 4937 4977 4995 5013 5031 5049 5067 5085 5103 5141 5158
5175 5192 5209 5226 5243 5260 5304 5322 5340 5358 5376 5394 5412 5430
5448 5466 5505 5522 5539 5556 5573 5590 5607 5624 5662 5679 5696 5713
5730 5747 5764 5781 5825 5843 5861 5879 5897 5915 5933 5951 5969 5987 SEQ 0249
6028 6046 6064 6082 6100 6118 6136 6154 6192 6209 6226 6243 6260 6277
6294 6311 6326 6368 6387 6406 6425 6444 6463 6482 6501 6520 6539 6582
6601 6620 6639 6658 6677 6696 6715 6754 6771 6788 6805 6822 6839 6856
6873 6891 6906 6919 6933 6945 6968 6981 6994 7007 7020 7033 7061 7109
7123 7137 7151 7165 7192 7206 7220 7234 7248 7262 7291 7343 7359 7375
7391 7407 7423 7437 7451 7580 7890
ER4 32# 6970 6983 6996 7009 7022 7035 7066 7111 7125 7139 7153 7167 7194
7208 7222 7236 7250 7264 7296 7345 7361 7377 7393 7409 7425 7439 7453
7582 7892
ER5 33# 1178 3228 3505 6955 7178 7595 7610 7625 7640 7655 7670 7700 7754
7773 7792 7811 7830 7875 7906 7922 7938 7954 7970 7986 8016 8078 8101
8124 8147 8170 8191 8207 8223
ER6 34# 6957 7180 7597 7612 7627 7642 7657 7672 7705 7759 7778 7797 7816
7835 7877 7908 7924 7940 7956 7972 7988 8021 8080 8103 8126 8149 8172
8193 8209 8225
ER7 35#
ERRHLT 658# 8469
FATAL 657#
FRD36 799#
FRD8 800#
FREAD 798#
FSELEC 797#
GET 641#
GO 638# 7815
HALT 77 78 79 80 81 643# 906
JEN 645#
JRSTF 644# 7871
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# 8473
PCRL 727# 8410 8429
PCRL2 731#
PCRL2F 732#
PCRLF 728#
PFORCE 735#
PGMINT 651# 1151
PJRST 642#
PMSG 737# 8376 8380 8391 8416
PMSGF 740# 8496
PNT1 693#
PNT11 707#
PNT11F 708#
PNT1F 694#
PNT2 695# SEQ 0250
PNT2F 696#
PNT3 697# 8428
PNT3F 698#
PNT4 699# 8432
PNT4F 700#
PNT5 701# 8434
PNT5F 702#
PNT6 703# 8384 8436
PNT6F 704#
PNT7 705#
PNT7F 706#
PNTA 679# 8419
PNTADF 710#
PNTADR 709#
PNTAF 680#
PNTAL 681# 8412
PNTALF 682#
PNTCHF 692#
PNTCHR 691#
PNTCI 689#
PNTCIF 690#
PNTCW 725#
PNTCWF 726#
PNTDCF 718#
PNTDEC 717# 8379
PNTDS 719#
PNTDSF 720#
PNTHW 713# 8399
PNTHWF 714#
PNTMSF 686#
PNTMSG 685#
PNTNM 721# 8372
PNTOCF 716#
PNTOCS 715#
PNTOCT 711#
PNTOTF 712#
PNTSIX 722#
PNTSXF 723#
PSIXL 683#
PSIXLF 684#
PSIXM 687# 8377 8381 8392 8417
PSIXMF 688# 8497
PSP 729#
PSPF 730#
PUT 640#
RDAPR 803#
RDCSB 803#
RDCSTM 803#
RDEBR 803#
RDHSB 803#
RDINT 803#
RDIO 803#
RDIOB 803# SEQ 0251
RDPI 803#
RDPUR 803#
RDSPB 803#
RDTIM 803#
RDUBR 803#
RTN 639# 893 7845 7849
S 569# 571 575 604 606 615 618 633 634 636 647 649 653 655
660 664 803 808 814 841 843 861 863 881 883 912 914 932
934 952 954 962 964 985 990 1016 1018 1025 1027 1033 1035 1041
1043 1047 1049 1054 1056 1060 1062 1066 1068 1074 1076 1079 1081 1085
1087 1091 1093 1097 1099 1103 1105 1110 1112 1116 1118 1122 1124 1126
1128
SAVEAC 63# 1158# 1167 1185 3209 7043 7075 7272 7305 7680 7714 7861 7996 8030
SDFA 471#
SDFARP 557#
SDFD 525#
SDFDKL 535#
SDFM 493#
SDFMKL 503#
SDFS 482#
SIXBTZ 746#
SWITCH 752# 8358 8460
TIOE 803#
TIOEB 803#
TION 803#
TIONB 803#
TTALTM 673# 8462
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 7188 7230 7419 7433 7447
ANDI 8395 SEQ 0252
AOS 891 7844 7848 8351 8354 8480 8481
ASCII 992 994 997 998 999 1000 1002 1003 1004 1005 1006 1007 1009 1010
1011
ASCIZ 1135 1152 8445 8446 8447 8448 8449 8450 8451 8452 8453
BLOCK 960 1020 1023 1029 1032 1038 8343 8613
BYTE 1008
CAIE 1196 1835 1850 1865 1880 1895 1910 1925 1940 1955 1991 2007 2023 2039
2055 2071 2087 2103 2119 2135 2151 2167 2183 2199 2215 2231 2247 2263
3093 3106 3121 3134 3148 3161 3175 3188 3202 3307 3323 3337 3352 3366
3381 3395 3410
CAIG 8397 8408
CAIL 8485
CALL 1133
CAME 1177 1233 1249 1265 1281 1297 1313 1329 1345 1361 1377 1393 1409 1425
1441 1457 1473 1489 1505 1541 1557 1573 1589 1605 1621 1637 1653 1669
1685 1701 1717 1733 1749 1765 1781 1797 2304 2321 2363 2381 2399 2417
2435 2453 2471 2489 2530 2548 2566 2584 2602 2620 2638 2656 2674 2715
2733 2751 2769 2787 2805 2823 2841 2859 2899 2916 2933 2950 2967 2984
3001 3018 3031 3048 3063 3078 3218 3227 3244 3260 3276 3293 3422 3446
3461 3475 3491 3504 3540 3555 3570 3585 3600 3615 3630 3645 3660 3675
3690 3705 3720 3735 3750 3765 3780 3817 3833 3849 3865 3881 3897 3913
3929 3945 3961 3977 3993 4009 4025 4041 4057 4073 4089 4129 4145 4161
4177 4193 4209 4225 4241 4257 4273 4289 4305 4321 4337 4353 4369 4385
4401 4438 4454 4470 4486 4502 4518 4534 4550 4566 4582 4598 4614 4630
4646 4662 4678 4694 4710 4721 4734 4774 4792 4810 4828 4846 4864 4882
4900 4918 4936 4976 4994 5012 5030 5048 5066 5084 5102 5140 5157 5174
5191 5208 5225 5242 5259 5303 5321 5339 5357 5375 5393 5411 5429 5447
5465 5504 5521 5538 5555 5572 5589 5606 5623 5661 5678 5695 5712 5729
5746 5763 5780 5824 5842 5860 5878 5896 5914 5932 5950 5968 5986 6027
6045 6063 6081 6099 6117 6135 6153 6191 6208 6225 6242 6259 6276 6293
6310 6325 6367 6386 6405 6424 6443 6462 6481 6500 6519 6538 6581 6600
6619 6638 6657 6676 6695 6714 6753 6770 6787 6804 6821 6838 6855 6872
6890 6905 6918 6932 6944 6954 6956 6967 6969 6980 6982 6993 6995 7006
7008 7019 7021 7032 7034 7108 7110 7122 7124 7136 7138 7150 7152 7164
7166 7177 7179 7191 7193 7205 7207 7219 7221 7233 7235 7247 7249 7261
7263 7342 7344 7358 7360 7374 7376 7390 7392 7406 7408 7422 7424 7436
7438 7450 7452 7475 7479 7484 7487 7502 7506 7511 7514 7529 7533 7538
7541 7556 7560 7565 7568 7579 7581 7594 7596 7609 7611 7624 7626 7639
7641 7654 7656 7669 7671 7753 7756 7772 7775 7791 7794 7810 7829 7832
7874 7876 7889 7891 7905 7907 7921 7923 7937 7939 7953 7955 7969 7971
7985 7987 8077 8079 8100 8102 8123 8125 8146 8148 8169 8171 8190 8192
8206 8208 8222 8224 8240 8244 8249 8252 8268 8272 8277 8280 8296 8300
8305 8308 8324 8328 8333 8336
CAMN 7057 7062 7287 7292 7696 7701 7843 7847 8012 8017 8353
DEFINE 7 63 91 113 141 171 209 253 278 305 337 372 417 428
439 450 460 471 482 493 503 525 535 557 569 737 740 746
1158
DMOVE 6953 6965 6978 6991 7004 7017 7030 7055 7107 7121 7135 7149 7163 7174
7184 7198 7212 7226 7240 7254 7280 7334 7339 7350 7355 7366 7371 7382
7387 7398 7403 7415 7429 7443 7576 7586 7590 7593 7601 7605 7608 7616
7620 7623 7631 7635 7638 7646 7650 7653 7661 7665 7668 7688 7692 7695
7748 7750 7767 7769 7786 7788 7805 7807 7824 7826 7868 7886 7896 7899
7904 7912 7915 7920 7928 7931 7936 7944 7947 7952 7960 7963 7968 7976 SEQ 0253
7979 7984 8003 8006 8011 8068 8070 8091 8093 8114 8116 8137 8139 8160
8162 8181 8184 8189 8197 8200 8205 8213 8216 8221 8231 8259 8287 8315
DMOVEM 7578 7592 7607 7622 7637 7652 7667 7694 7752 7771 7790 7809 7828 7873
7898 7914 7930 7946 7962 7978 8005 8183 8199 8215
DMOVN 7176 7189 7203 7217 7231 7245 7259 7285 7341 7357 7373 7389 7405 7420
7434 7448 7467 7494 7521 7548 7901 7917 7933 7949 7965 7981 8008 8072
8095 8118 8141 8164 8186 8202 8218
DMOVNM 7888 7903 7919 7935 7951 7967 7983 8010 8076 8099 8122 8145 8168 8188
8204 8220 8233 8261 8289 8317
END 8621
FIX 1176 1195 1232 1248 1264 1280 1296 1312 1328 1344 1360 1376 1392 1408
1424 1440 1456 1472 1488 1504 1540 1556 1572 1588 1604 1620 1636 1652
1668 1684 1700 1716 1732 1748 1764 1780 1796 1834 1849 1864 1879 1894
1909 1924 1939 1954 1990 2006 2022 2038 2054 2070 2086 2102 2118 2134
2150 2166 2182 2198 2214 2230 2246 2262 2303 2320 2362 2380 2398 2416
2434 2452 2470 2488 2529 2547 2565 2583 2601 2619 2637 2655 2673 2714
2732 2750 2768 2786 2804 2822 2840 2858 2898 2915 2932 2949 2966 2983
3000 3017 3030 3046 3061 3076 3091 3104 3119 3132 3146 3159 3173 3186
3200 3217 3445 3460 3474 3490
FIXR 3226 3242 3258 3274 3291 3305 3321 3335 3350 3364 3379 3393 3408 3421
FLTR 3503 3539 3554 3569 3584 3599 3614 3629 3644 3659 3674 3689 3704 3719
3734 3749 3764 3779 3816 3832 3848 3864 3880 3896 3912 3928 3944 3960
3976 3992 4008 4024 4040 4056 4072 4088 4128 4144 4160 4176 4192 4208
4224 4240 4256 4272 4288 4304 4320 4336 4352 4368 4384 4400 4437 4453
4469 4485 4501 4517 4533 4549 4565 4581 4597 4613 4629 4645 4661 4677
4693 4709 4720 4733 4773 4791 4809 4827 4845 4863 4881 4899 4917 4935
4975 4993 5011 5029 5047 5065 5083 5101 5139 5156 5173 5190 5207 5224
5241 5258 5302 5320 5338 5356 5374 5392 5410 5428 5446 5464 5503 5520
5537 5554 5571 5588 5605 5622 5659 5676 5693 5710 5727 5744 5761 5778
5823 5841 5859 5877 5895 5913 5931 5949 5967 5985 6025 6043 6061 6079
6097 6115 6133 6151 6189 6206 6223 6240 6257 6274 6291 6308 6323 6365
6384 6403 6422 6441 6460 6479 6498 6517 6536 6579 6598 6617 6636 6655
6674 6693 6712 6752 6769 6786 6803 6820 6837 6854 6871 6888 6903 6916
6930 6943
HRL 8356
HRLI 2896 2913 2930 2947 2964 2981 2998 3015 3028 4731
HRLOI 2713 2731 2749 2767 2785 2803 2821 2839 2857 2895 2912 2929 2946 2963
2980 2997 3014 3027 3131 3158 3172 3199 3334 3363 3378 3407 3457 4732
4771 4789 4807 4825 4843 4861 4879 4897 4915 4933 4971 4973 4989 4991
5007 5009 5025 5027 5043 5045 5061 5063 5079 5081 5097 5099 5136 5138
5153 5155 5170 5172 5187 5189 5204 5206 5221 5223 5238 5240 5255 5257
6322 6751 6768 6785 6802 6819 6836 6853 6870 6915
HRLZI 3059 3214 6929
HRRI 1989 2005 2021 2037 2053 2069 2085 2101 2117 2133 2149 2165 2181 2197
2213 2229 2245 2261 2527 2545 2563 2581 2599 2617 2635 2653 2671 2712
2730 2748 2766 2784 2802 2820 2838 2856 2897 2914 2931 2948 2965 2982
2999 3016 3029 3044 3074 3090 3118 3240 3272 3289 3320 3418 4772 4790
4808 4826 4844 4862 4880 4898 4916 4934 4972 4974 4990 4992 5008 5010
5026 5028 5044 5046 5062 5064 5080 5082 5098 5100 5137 5154 5171 5188
5205 5222 5239 5256 5299 5301 5317 5319 5335 5337 5353 5355 5371 5373
5389 5391 5407 5409 5425 5427 5443 5445 5461 5463 5502 5519 5536 5553
5570 5587 5604 5621 5820 5822 5838 5840 5856 5858 5874 5876 5892 5894
5910 5912 5928 5930 5946 5948 5964 5966 5982 5984 6024 6042 6060 6078 SEQ 0254
6096 6114 6132 6150 6321 6362 6364 6381 6383 6400 6402 6419 6421 6438
6440 6457 6459 6476 6478 6495 6497 6514 6516 6533 6535 6576 6578 6595
6597 6614 6616 6633 6635 6652 6654 6671 6673 6690 6692 6709 6711 6750
6767 6784 6801 6818 6835 6852 6869 6886 6900 6902 6940
HRROI 2302 2319 2361 2379 2397 2415 2433 2451 2469 2487 2528 2546 2564 2582
2600 2618 2636 2654 2672 3241 3420 3458 4435 4451 4467 4483 4499 4515
4531 4547 4563 4579 4595 4611 4627 4643 4659 4675 4691 4707 4769 4787
4805 4823 4841 4859 4877 4895 4913 4931 6913 6927
HRRZ 8352 8382 8421
HRRZI 1231 1247 1263 1279 1295 1311 1327 1343 1359 1375 1391 1407 1423 1439
1455 1471 1487 1503 3488 3814 3830 3846 3862 3878 3894 3910 3926 3942
3958 3974 3990 4006 4022 4038 4054 4070 4086 7104 7106 7118 7120 7132
7134 7146 7148 7160 7162
IFDEF 803 854 855 856 857 8386 8456 8612 8619
IFDIF 7189 7201 7215 7231 7243 7257 7283 7420 7434 7448
IFE 1229 1245 1261 1277 1293 1309 1325 1341 1357 1373 1389 1405 1421 1437
1453 1469 1485 1501 1537 1553 1569 1585 1601 1617 1633 1649 1665 1681
1697 1713 1729 1745 1761 1777 1793 1987 2003 2019 2035 2051 2067 2083
2099 2115 2131 2147 2163 2179 2195 2211 2227 2243 2259 2299 2316 2358
2376 2394 2412 2430 2448 2466 2484 2525 2543 2561 2579 2597 2615 2633
2651 2669 2710 2728 2746 2764 2782 2800 2818 2836 2854 3813 3829 3845
3861 3877 3893 3909 3925 3941 3957 3973 3989 4005 4021 4037 4053 4069
4085 4125 4141 4157 4173 4189 4205 4221 4237 4253 4269 4285 4301 4317
4333 4349 4365 4381 4397 4434 4450 4466 4482 4498 4514 4530 4546 4562
4578 4594 4610 4626 4642 4658 4674 4690 4706 4768 4786 4804 4822 4840
4858 4876 4894 4912 4930 4970 4988 5006 5024 5042 5060 5078 5096 5135
5152 5169 5186 5203 5220 5237 5254 5297 5315 5333 5351 5369 5387 5405
5423 5441 5459 5499 5516 5533 5550 5567 5584 5601 5618 5656 5673 5690
5707 5724 5741 5758 5775 5818 5836 5854 5872 5890 5908 5926 5944 5962
5980 6021 6039 6057 6075 6093 6111 6129 6147 6186 6203 6220 6237 6254
6271 6288 6305 6360 6379 6398 6417 6436 6455 6474 6493 6512 6531 6574
6593 6612 6631 6650 6669 6688 6707 6748 6765 6782 6799 6816 6833 6850
6867 7757 7776 7795 7814 7833 8073 8083 8096 8106 8119 8129 8142 8152
8165 8175
IFIDN 7187 7189 7201 7215 7229 7231 7243 7257 7283 7418 7420 7432 7446
IFN 7755 7774 7793 7812 7831 8081 8104 8127 8150 8173
IFNDEF 792 793 803 854 855 856 857 936 8504
JFCL 894 895 896 897 898 899 900 901 902 903 904 905 7459 7466
7493 7520 7547 8230 8258 8286 8314
JOV 3432 3434 3442 3449 3456 3464 3471 3478 3485 3494
JRST 642 643 644 645 816 817 819 821 823 825 827 830 832 833
886 1155 3435 3465 3495 7058 7063 7288 7293 7472 7474 7478 7481 7483
7486 7489 7490 7499 7501 7505 7508 7510 7513 7516 7517 7526 7528 7532
7535 7537 7540 7543 7544 7553 7555 7559 7562 7564 7567 7570 7571 7697
7702 7838 7841 7853 8013 8018 8237 8239 8243 8246 8248 8251 8254 8255
8265 8267 8271 8274 8276 8279 8282 8283 8293 8295 8299 8302 8304 8307
8310 8311 8321 8323 8327 8330 8332 8335 8338 8339 8341 8360 8367 8370
8375 8403 8409 8423 8425 8427 8430 8433 8435 8437 8463 8466 8479 8483
8486 8489 8493 8494 8498
JSP 651 3433 3448 3463 3477 3493 7460 7469 7496 7523 7550 7878 8234 8262
8290 8318
JUMPL 1179 1198 1235 1251 1267 1283 1299 1315 1331 1347 1363 1379 1395 1411
1427 1443 1459 1475 1491 1507 1543 1559 1575 1591 1607 1623 1639 1655 SEQ 0255
1671 1687 1703 1719 1735 1751 1767 1783 1799 1837 1852 1867 1882 1897
1912 1927 1942 1957 1993 2009 2025 2041 2057 2073 2089 2105 2121 2137
2153 2169 2185 2201 2217 2233 2249 2265 2306 2323 2365 2383 2401 2419
2437 2455 2473 2491 2532 2550 2568 2586 2604 2622 2640 2658 2676 2717
2735 2753 2771 2789 2807 2825 2843 2861 2901 2918 2935 2952 2969 2986
3003 3020 3033 3050 3065 3080 3095 3108 3123 3136 3150 3163 3177 3190
3204 3220 3229 3246 3262 3278 3295 3309 3325 3339 3354 3368 3383 3397
3412 3424 3437 3451 3467 3480 3497 3506 3542 3557 3572 3587 3602 3617
3632 3647 3662 3677 3692 3707 3722 3737 3752 3767 3782 3819 3835 3851
3867 3883 3899 3915 3931 3947 3963 3979 3995 4011 4027 4043 4059 4075
4091 4131 4147 4163 4179 4195 4211 4227 4243 4259 4275 4291 4307 4323
4339 4355 4371 4387 4403 4440 4456 4472 4488 4504 4520 4536 4552 4568
4584 4600 4616 4632 4648 4664 4680 4696 4712 4723 4736 4776 4794 4812
4830 4848 4866 4884 4902 4920 4938 4978 4996 5014 5032 5050 5068 5086
5104 5142 5159 5176 5193 5210 5227 5244 5261 5305 5323 5341 5359 5377
5395 5413 5431 5449 5467 5506 5523 5540 5557 5574 5591 5608 5625 5663
5680 5697 5714 5731 5748 5765 5782 5826 5844 5862 5880 5898 5916 5934
5952 5970 5988 6029 6047 6065 6083 6101 6119 6137 6155 6193 6210 6227
6244 6261 6278 6295 6312 6327 6369 6388 6407 6426 6445 6464 6483 6502
6521 6540 6583 6602 6621 6640 6659 6678 6697 6716 6755 6772 6789 6806
6823 6840 6857 6874 6892 6907 6920 6934 6946 6958 6971 6984 6997 7010
7023 7036 7068 7112 7126 7140 7154 7168 7181 7195 7209 7223 7237 7251
7265 7298 7346 7362 7378 7394 7410 7426 7440 7454 7463 7477 7504 7531
7558 7583 7598 7613 7628 7643 7658 7673 7707 7760 7779 7798 7817 7836
7881 7893 7909 7925 7941 7957 7973 7989 8023 8082 8105 8128 8153 8174
8194 8210 8226 8242 8270 8298 8326
LALL 8
LIST 7 803 936 8386 8456 8504 8609
LIT 8505
LOC 22 806 1130
LSH 8362 8394
MOVE 1152 1175 3225 3502 6951 6952 6961 6962 6963 6964 6974 6975 6976 6977
6987 6988 6989 6990 7000 7001 7002 7003 7013 7014 7015 7016 7026 7027
7028 7029 7051 7052 7053 7054 7060 7065 7067 7290 7295 7297 7699 7704
7706 8015 8020 8022 8355 8361 8364 8365 8378 8393 8396 8398 8401 8407
8411 8467 8475 8476 8484 8488 8491
MOVEI 1168 1170 1186 1188 3210 3212 4730 7044 7046 7076 7078 7273 7275 7306
7308 7681 7683 7715 7717 7862 7864 7997 7999 8031 8033 8418 8464
MOVEM 1153 1169 1171 1187 1189 3211 3213 3215 3419 6941 7045 7047 7050 7059
7064 7077 7079 7274 7276 7279 7289 7294 7307 7309 7588 7589 7603 7604
7618 7619 7633 7634 7648 7649 7663 7664 7682 7684 7687 7690 7691 7698
7703 7716 7718 7863 7865 7998 8000 8014 8019 8032 8034 8348 8349 8350
8363 8383 8465
MOVN 7201 7215 7243 7257 7283 7337 7353 7369 7385 7401
MOVNM 8144
MOVSI 1230 1246 1262 1278 1294 1310 1326 1342 1358 1374 1390 1406 1422 1438
1454 1470 1486 1502 1538 1539 1554 1555 1570 1571 1586 1587 1602 1603
1618 1619 1634 1635 1650 1651 1666 1667 1682 1683 1698 1699 1714 1715
1730 1731 1746 1747 1762 1763 1778 1779 1794 1795 1832 1847 1862 1877
1892 1907 1922 1937 1952 1988 2004 2020 2036 2052 2068 2084 2100 2116
2132 2148 2164 2180 2196 2212 2228 2244 2260 2300 2317 2359 2377 2395
2413 2431 2449 2467 2485 2526 2544 2562 2580 2598 2616 2634 2652 2670
2711 2729 2747 2765 2783 2801 2819 2837 2855 3043 3073 3089 3103 3117 SEQ 0256
3145 3185 3239 3256 3271 3288 3304 3319 3349 3392 3417 3443 3472 3486
3537 3538 3552 3553 3567 3568 3582 3583 3597 3598 3612 3613 3627 3628
3642 3643 3657 3658 3672 3673 3687 3688 3702 3703 3717 3718 3732 3733
3747 3748 3762 3763 3777 3778 3815 3831 3847 3863 3879 3895 3911 3927
3943 3959 3975 3991 4007 4023 4039 4055 4071 4087 4126 4127 4142 4143
4158 4159 4174 4175 4190 4191 4206 4207 4222 4223 4238 4239 4254 4255
4270 4271 4286 4287 4302 4303 4318 4319 4334 4335 4350 4351 4366 4367
4382 4383 4398 4399 4436 4452 4468 4484 4500 4516 4532 4548 4564 4580
4596 4612 4628 4644 4660 4676 4692 4708 5298 5300 5316 5318 5334 5336
5352 5354 5370 5372 5388 5390 5406 5408 5424 5426 5442 5444 5460 5462
5500 5501 5517 5518 5534 5535 5551 5552 5568 5569 5585 5586 5602 5603
5619 5620 5657 5658 5674 5675 5691 5692 5708 5709 5725 5726 5742 5743
5759 5760 5776 5777 5819 5821 5837 5839 5855 5857 5873 5875 5891 5893
5909 5911 5927 5929 5945 5947 5963 5965 5981 5983 6022 6023 6040 6041
6058 6059 6076 6077 6094 6095 6112 6113 6130 6131 6148 6149 6187 6188
6204 6205 6221 6222 6238 6239 6255 6256 6272 6273 6289 6290 6306 6307
6320 6361 6363 6380 6382 6399 6401 6418 6420 6437 6439 6456 6458 6475
6477 6494 6496 6513 6515 6532 6534 6575 6577 6594 6596 6613 6615 6632
6634 6651 6653 6670 6672 6689 6691 6708 6710 6749 6766 6783 6800 6817
6834 6851 6868 6885 6887 6899 6901 6939 6942
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 1509 1959 2325 2863 3022 3784 4405 4714 4940 5469 5990 6542 6959 6985
7011 7182 7196 7210 7224 7238 7252 7427 7441 7491 7518 7545 7584 7614
7644 7894 7910 7926 7942 7958 7974 8195 8211 8256 8284 8312
POP 641
POPJ 639
PUSH 640
PUSHJ 638
REPEAT 1205 1513 1809 1963 2274 2331 2498 2683 2869 3514 3789 4101 4410 4742
4944 5110 5271 5474 5631 5792 5995 6161 6333 6547 6723 7085 7315 7724
8040
SETCM 7186 7200 7214 7228 7242 7256 7282 7336 7352 7368 7384 7400 7417 7431
7445
SETOB 3444 3473 7103 7105 7117 7119 7131 7133 7145 7147 7159 7161 7870
SETOM 3045 3060 3075 3216 3257 3273 3290 8373 8471 8477
SETZ 7187 7229 7418 7432 7446
SETZB 4719 7102 7116 7130 7144 7158
SETZM 1194 8357 8368
SIXBIT 85 86 1021 1022 1030 1031 1133 8377 8381 8392 8417 8497
SKIPE 7840 7852
SKIPGE 8366
SKIPL 8369 8482
SKIPN 7473 7482 7500 7509 7527 7536 7554 7563 8143 8238 8247 8266 8275 8294
8303 8322 8331 8371 8374 8478
SUBTTL 25 567 602 803 804 1156 1199 1801 2268 3034 3205 3221 3413 3425 SEQ 0257
3498 4093 4724 5263 5784 6314 6876 6935 6947 7037 7069 7170 7266 7299
7412 7455 7572 7674 7708 7850 7882 7990 8024 8178 8227 8344 8499
TITLE 12
TLNE 7461 7471 7498 7525 7552 7879 8236 8264 8292 8320 8359 8402 8468 8472
TLNN 8470 8492
TLO 1833 1848 1863 1878 1893 1908 1923 1938 1953 2301 2318 2360 2378 2396
2414 2432 2450 2468 2486 3489
TLZ 3459 4770 4788 4806 4824 4842 4860 4878 4896 4914 4932 6914 6928 7202
7216 7244 7258 7284 7338 7354 7370 7386 7402 7470 7497 7524 7551 8235
8263 8291 8319
TRNE 8422 8424 8426
TRO 3487
VAR 8617
XALL 14
XCT 8459
XLIST 6 802 803 935 8385 8455 8503
XWD 6961 6962 6963 6964 6965 6966 6974 6975 6976 6977 6978 6979 6987 6988
6989 6990 6991 6992 7000 7001 7002 7003 7004 7005 7013 7014 7015 7016
7017 7018 7026 7027 7028 7029 7030 7031 7051 7052 7053 7054 7055 7056
7184 7185 7186 7189 7190 7198 7199 7200 7201 7203 7204 7212 7213 7214
7215 7217 7218 7226 7227 7228 7231 7232 7240 7241 7242 7243 7245 7246
7254 7255 7256 7257 7259 7260 7280 7281 7282 7283 7285 7286 7334 7335
7336 7337 7339 7340 7350 7351 7352 7353 7355 7356 7366 7367 7368 7369
7371 7372 7382 7383 7384 7385 7387 7388 7398 7399 7400 7401 7403 7404
7415 7416 7417 7420 7421 7429 7430 7431 7434 7435 7443 7444 7445 7448
7449 7467 7468 7494 7495 7521 7522 7548 7549 7586 7587 7590 7591 7594
7596 7601 7602 7605 7606 7609 7611 7616 7617 7620 7621 7624 7626 7631
7632 7635 7636 7639 7641 7646 7647 7650 7651 7654 7656 7661 7662 7665
7666 7669 7671 7688 7689 7692 7693 7696 7701 7748 7749 7750 7751 7753
7756 7767 7768 7769 7770 7772 7775 7786 7787 7788 7789 7791 7794 7805
7806 7807 7808 7810 7824 7825 7826 7827 7829 7832 7872 7896 7897 7899
7900 7901 7902 7912 7913 7915 7916 7917 7918 7928 7929 7931 7932 7933
7934 7944 7945 7947 7948 7949 7950 7960 7961 7963 7964 7965 7966 7976
7977 7979 7980 7981 7982 8003 8004 8006 8007 8008 8009 8068 8069 8070
8071 8091 8092 8093 8094 8114 8115 8116 8117 8137 8138 8139 8140 8160
8161 8162 8163 8181 8182 8184 8185 8186 8187 8197 8198 8200 8201 8202
8203 8213 8214 8216 8217 8218 8219 8231 8232 8259 8260 8287 8288 8315
8316
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 1 SEQ 0258
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777
*030630 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(E)= 233525 252525
FINAL
C(AC)= 000525 252525
----------
*030641 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000525 252525 C(E)= 000000 000000
FINAL
C(AC)= 000000 000000
----------
*030647 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(E)= 201400 000000
FINAL
C(AC)= 000000 000001
----------
*030655 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 202400 000000
FINAL
C(AC)= 000000 000002
----------
*030663 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000002 C(E)= 203400 000000
FINAL
C(AC)= 000000 000004
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 2
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0259
*030671 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000004 C(E)= 204400 000000
FINAL
C(AC)= 000000 000010
----------
*030677 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000010 C(E)= 205400 000000
FINAL
C(AC)= 000000 000020
----------
*030705 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000020 C(E)= 206400 000000
FINAL
C(AC)= 000000 000040
----------
*030713 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000040 C(E)= 207400 000000
FINAL
C(AC)= 000000 000100
----------
*030721 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000100 C(E)= 210400 000000
FINAL
C(AC)= 000000 000200
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 3
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0260
*030727 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000200 C(E)= 211400 000000
FINAL
C(AC)= 000000 000400
----------
*030735 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000400 C(E)= 212400 000000
FINAL
C(AC)= 000000 001000
----------
*030743 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 001000 C(E)= 213400 000000
FINAL
C(AC)= 000000 002000
----------
*030751 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 002000 C(E)= 214400 000000
FINAL
C(AC)= 000000 004000
----------
*030757 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 004000 C(E)= 215400 000000
FINAL
C(AC)= 000000 010000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 4
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0261
*030765 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 010000 C(E)= 216400 000000
FINAL
C(AC)= 000000 020000
----------
*030773 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 020000 C(E)= 217400 000000
FINAL
C(AC)= 000000 040000
----------
*031001 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 040000 C(E)= 220400 000000
FINAL
C(AC)= 000000 100000
----------
*031007 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 100000 C(E)= 221400 000000
FINAL
C(AC)= 000000 200000
----------
*031015 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 200000 C(E)= 222400 000000
FINAL
C(AC)= 000000 400000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 5
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0262
*031023 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 400000 C(E)= 223400 000000
FINAL
C(AC)= 000001 000000
----------
*031031 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000001 000000 C(E)= 224400 000000
FINAL
C(AC)= 000002 000000
----------
*031037 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000002 000000 C(E)= 225400 000000
FINAL
C(AC)= 000004 000000
----------
*031045 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000004 000000 C(E)= 226400 000000
FINAL
C(AC)= 000010 000000
----------
*031053 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000010 000000 C(E)= 227400 000000
FINAL
C(AC)= 000020 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 6
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0263
*031061 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000020 000000 C(E)= 230400 000000
FINAL
C(AC)= 000040 000000
----------
*031067 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000040 000000 C(E)= 231400 000000
FINAL
C(AC)= 000100 000000
----------
*031075 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000100 000000 C(E)= 232400 000000
FINAL
C(AC)= 000200 000000
----------
*031103 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000200 000000 C(E)= 233400 000000
FINAL
C(AC)= 000400 000000
----------
*031111 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000400 000000 C(E)= 234400 000000
FINAL
C(AC)= 001000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 7
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0264
*031117 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 001000 000000 C(E)= 235400 000000
FINAL
C(AC)= 002000 000000
----------
*031125 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 002000 000000 C(E)= 236400 000000
FINAL
C(AC)= 004000 000000
----------
*031133 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 004000 000000 C(E)= 237400 000000
FINAL
C(AC)= 010000 000000
----------
*031141 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 010000 000000 C(E)= 240400 000000
FINAL
C(AC)= 020000 000000
----------
*031147 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 020000 000000 C(E)= 241400 000000
FINAL
C(AC)= 040000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 8
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0265
*031155 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 040000 000000 C(E)= 242400 000000
FINAL
C(AC)= 100000 000000
----------
*031163 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 100000 000000 C(E)= 243400 000000
FINAL
C(AC)= 200000 000000
----------
*031171 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(E)= 201400 000000
FINAL
C(AC)= 000000 000001
----------
*031177 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 202200 000000
FINAL
C(AC)= 000000 000001
----------
*031205 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 203100 000000
FINAL
C(AC)= 000000 000001
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 9
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0266
*031213 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 204040 000000
FINAL
C(AC)= 000000 000001
----------
*031221 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 205020 000000
FINAL
C(AC)= 000000 000001
----------
*031227 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 206010 000000
FINAL
C(AC)= 000000 000001
----------
*031235 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 207004 000000
FINAL
C(AC)= 000000 000001
----------
*031243 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 210002 000000
FINAL
C(AC)= 000000 000001
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 10
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0267
*031251 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 211001 000000
FINAL
C(AC)= 000000 000001
----------
*031257 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 212000 400000
FINAL
C(AC)= 000000 000001
----------
*031265 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 213000 200000
FINAL
C(AC)= 000000 000001
----------
*031273 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 214000 100000
FINAL
C(AC)= 000000 000001
----------
*031301 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 215000 040000
FINAL
C(AC)= 000000 000001
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 11
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0268
*031307 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 216000 020000
FINAL
C(AC)= 000000 000001
----------
*031315 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 217000 010000
FINAL
C(AC)= 000000 000001
----------
*031323 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 220000 004000
FINAL
C(AC)= 000000 000001
----------
*031331 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 221000 002000
FINAL
C(AC)= 000000 000001
----------
*031337 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 222000 001000
FINAL
C(AC)= 000000 000001
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 12
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0269
*031345 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 223000 000400
FINAL
C(AC)= 000000 000001
----------
*031353 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 224000 000200
FINAL
C(AC)= 000000 000001
----------
*031361 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 225000 000100
FINAL
C(AC)= 000000 000001
----------
*031367 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 226000 000040
FINAL
C(AC)= 000000 000001
----------
*031375 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 227000 000020
FINAL
C(AC)= 000000 000001
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 13
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0270
*031403 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 230000 000010
FINAL
C(AC)= 000000 000001
----------
*031411 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 231000 000004
FINAL
C(AC)= 000000 000001
----------
*031417 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 232000 000002
FINAL
C(AC)= 000000 000001
----------
*031425 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 233000 000001
FINAL
C(AC)= 000000 000001
----------
*031434 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 576400 000000
FINAL
C(AC)= 777777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 14
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0271
*031443 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(E)= 575400 000000
FINAL
C(AC)= 777777 777776
----------
*031452 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777776 C(E)= 575200 000000
FINAL
C(AC)= 777777 777775
----------
*031461 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777775 C(E)= 574300 000000
FINAL
C(AC)= 777777 777773
----------
*031470 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777773 C(E)= 573340 000000
FINAL
C(AC)= 777777 777767
----------
*031477 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777767 C(E)= 572360 000000
FINAL
C(AC)= 777777 777757
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 15
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0272
*031506 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777757 C(E)= 571370 000000
FINAL
C(AC)= 777777 777737
----------
*031515 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777737 C(E)= 570374 000000
FINAL
C(AC)= 777777 777677
----------
*031524 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777677 C(E)= 567376 000000
FINAL
C(AC)= 777777 777577
----------
*031533 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777577 C(E)= 566377 000000
FINAL
C(AC)= 777777 777377
----------
*031542 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777377 C(E)= 565377 400000
FINAL
C(AC)= 777777 776777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 16
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0273
*031551 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 776777 C(E)= 564377 600000
FINAL
C(AC)= 777777 775777
----------
*031560 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 775777 C(E)= 563377 700000
FINAL
C(AC)= 777777 773777
----------
*031567 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 773777 C(E)= 562377 740000
FINAL
C(AC)= 777777 767777
----------
*031576 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 767777 C(E)= 561377 760000
FINAL
C(AC)= 777777 757777
----------
*031605 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 757777 C(E)= 560377 770000
FINAL
C(AC)= 777777 737777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 17
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0274
*031614 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 737777 C(E)= 557377 774000
FINAL
C(AC)= 777777 677777
----------
*031623 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 677777 C(E)= 556377 776000
FINAL
C(AC)= 777777 577777
----------
*031632 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 577777 C(E)= 555377 777000
FINAL
C(AC)= 777777 377777
----------
*031641 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 377777 C(E)= 554377 777400
FINAL
C(AC)= 777776 777777
----------
*031650 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777776 777777 C(E)= 553377 777600
FINAL
C(AC)= 777775 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 18
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0275
*031657 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777775 777777 C(E)= 552377 777700
FINAL
C(AC)= 777773 777777
----------
*031666 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777773 777777 C(E)= 551377 777740
FINAL
C(AC)= 777767 777777
----------
*031675 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777767 777777 C(E)= 550377 777760
FINAL
C(AC)= 777757 777777
----------
*031704 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777757 777777 C(E)= 547377 777770
FINAL
C(AC)= 777737 777777
----------
*031713 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777737 777777 C(E)= 546377 777774
FINAL
C(AC)= 777677 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 19
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0276
*031722 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777677 777777 C(E)= 545377 777776
FINAL
C(AC)= 777577 777777
----------
*031731 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777577 777777 C(E)= 544377 777777
FINAL
C(AC)= 777377 777777
----------
*031740 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777377 777777 C(E)= 543377 777777
FINAL
C(AC)= 776777 777776
----------
*031747 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 776777 777776 C(E)= 542377 777777
FINAL
C(AC)= 775777 777774
----------
*031756 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 775777 777774 C(E)= 541377 777777
FINAL
C(AC)= 773777 777770
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 20
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0277
*031765 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 773777 777770 C(E)= 540377 777777
FINAL
C(AC)= 767777 777760
----------
*031774 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 767777 777760 C(E)= 537377 777777
FINAL
C(AC)= 757777 777740
----------
*032003 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 757777 777740 C(E)= 536377 777777
FINAL
C(AC)= 737777 777700
----------
*032012 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 737777 777700 C(E)= 535377 777777
FINAL
C(AC)= 677777 777600
----------
*032021 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 677777 777600 C(E)= 534377 777777
FINAL
C(AC)= 577777 777400
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 21
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0278
*032030 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 577777 777400 C(E)= 243777 777777
FINAL
C(AC)= 377777 777400
----------
*032037 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 377777 777400 C(E)= 576000 000001
FINAL
C(AC)= 777777 777777
----------
*032045 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(E)= 576200 000000
FINAL
C(AC)= 777777 777777
----------
*032054 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(E)= 576200 000001
FINAL
C(AC)= 777777 777777
----------
*032062 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(E)= 577000 000001
FINAL
C(AC)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 22
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0279
*032067 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(E)= 577400 000000
FINAL
C(AC)= 000000 000000
----------
*032075 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(E)= 600000 000001
FINAL
C(AC)= 000000 000000
----------
*032102 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(E)= 177777 777777
FINAL
C(AC)= 000000 000000
----------
*032107 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(E)= 200400 000000
FINAL
C(AC)= 000000 000000
----------
*032114 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(E)= 200777 777777
FINAL
C(AC)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 23
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0280
*032121 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(E)= 201577 777777
FINAL
C(AC)= 000000 000001
----------
*032126 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 201600 000000
FINAL
C(AC)= 000000 000001
----------
*032133 FIX 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 201777 777777
FINAL
C(AC)= 000000 000001
----------
*032146 FIX 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 576200 000000
FINAL
C(AC)= 777777 777777
----------
*032153 FIXR 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(E)= 233525 252525
FINAL
C(AC)= 000525 252525
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 24
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0281
*032162 FIXR 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000525 252525 C(E)= 576000 000001
FINAL
C(AC)= 777777 777776
----------
*032170 FIXR 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777776 C(E)= 576200 000000
FINAL
C(AC)= 777777 777777
----------
*032177 FIXR 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(E)= 576200 000001
FINAL
C(AC)= 777777 777777
----------
*032206 FIXR 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(E)= 577000 000001
FINAL
C(AC)= 777777 777777
----------
*032213 FIXR 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(E)= 577400 000000
FINAL
C(AC)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 25
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0282
*032221 FIXR 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(E)= 600000 000001
FINAL
C(AC)= 000000 000000
----------
*032226 FIXR 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(E)= 177777 777777
FINAL
C(AC)= 000000 000000
----------
*032233 FIXR 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(E)= 200400 000000
FINAL
C(AC)= 000000 000001
----------
*032240 FIXR 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 200777 777777
FINAL
C(AC)= 000000 000001
----------
*032245 FIXR 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 201577 777777
FINAL
C(AC)= 000000 000001
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 26
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0283
*032252 FIXR 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(E)= 201600 000000
FINAL
C(AC)= 000000 000002
----------
*032257 FIXR 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000002 C(E)= 201777 777777
FINAL
C(AC)= 000000 000002
----------
*032267 FIXR 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000002 C(E)= 576000 000001
FINAL
C(AC)= 777777 777776
----------
*032304 FIX 4,000002
FLAGS - INT/FINAL 000000 400200
INITIAL
C(AC)= 777777 777777 C(E)= 244400 000000
FINAL
C(AC)= 777777 777777
----------
*032317 FIX 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 777777 777777 C(E)= 243777 777777
FINAL
C(AC)= 377777 777400
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 27
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0284
*032332 FIX 4,000002
FLAGS - INT/FINAL 000200 400200
INITIAL
C(AC)= 777777 777777 C(E)= 533400 000000
FINAL
C(AC)= 777777 777777
----------
*032346 FIX 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 777777 777777 C(E)= 534000 000001
FINAL
C(AC)= 400000 000400
----------
*032357 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 400000 000400 C(E)= 252525 252525
FINAL
C(AC)= 243525 252525
----------
*032365 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243525 252525 C(E)= 200000 000000
FINAL
C(AC)= 243400 000000
----------
*032373 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243400 000000 C(E)= 100000 000000
FINAL
C(AC)= 242400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 28
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0285
*032401 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 242400 000000 C(E)= 040000 000000
FINAL
C(AC)= 241400 000000
----------
*032407 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 241400 000000 C(E)= 020000 000000
FINAL
C(AC)= 240400 000000
----------
*032415 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 240400 000000 C(E)= 010000 000000
FINAL
C(AC)= 237400 000000
----------
*032423 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 237400 000000 C(E)= 004000 000000
FINAL
C(AC)= 236400 000000
----------
*032431 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 236400 000000 C(E)= 002000 000000
FINAL
C(AC)= 235400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 29
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0286
*032437 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 235400 000000 C(E)= 001000 000000
FINAL
C(AC)= 234400 000000
----------
*032445 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 234400 000000 C(E)= 000400 000000
FINAL
C(AC)= 233400 000000
----------
*032453 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 233400 000000 C(E)= 000200 000000
FINAL
C(AC)= 232400 000000
----------
*032461 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 232400 000000 C(E)= 000100 000000
FINAL
C(AC)= 231400 000000
----------
*032467 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 231400 000000 C(E)= 000040 000000
FINAL
C(AC)= 230400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 30
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0287
*032475 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 230400 000000 C(E)= 000020 000000
FINAL
C(AC)= 227400 000000
----------
*032503 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 227400 000000 C(E)= 000010 000000
FINAL
C(AC)= 226400 000000
----------
*032511 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 226400 000000 C(E)= 000004 000000
FINAL
C(AC)= 225400 000000
----------
*032517 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 225400 000000 C(E)= 000002 000000
FINAL
C(AC)= 224400 000000
----------
*032525 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 224400 000000 C(E)= 000001 000000
FINAL
C(AC)= 223400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 31
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0288
*032533 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 223400 000000 C(E)= 000000 400000
FINAL
C(AC)= 222400 000000
----------
*032541 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 222400 000000 C(E)= 000000 200000
FINAL
C(AC)= 221400 000000
----------
*032547 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 221400 000000 C(E)= 000000 100000
FINAL
C(AC)= 220400 000000
----------
*032555 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 220400 000000 C(E)= 000000 040000
FINAL
C(AC)= 217400 000000
----------
*032563 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 217400 000000 C(E)= 000000 020000
FINAL
C(AC)= 216400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 32
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0289
*032571 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 216400 000000 C(E)= 000000 010000
FINAL
C(AC)= 215400 000000
----------
*032577 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 215400 000000 C(E)= 000000 004000
FINAL
C(AC)= 214400 000000
----------
*032605 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 214400 000000 C(E)= 000000 002000
FINAL
C(AC)= 213400 000000
----------
*032613 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 213400 000000 C(E)= 000000 001000
FINAL
C(AC)= 212400 000000
----------
*032621 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 212400 000000 C(E)= 000000 000400
FINAL
C(AC)= 211400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 33
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0290
*032627 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 211400 000000 C(E)= 000000 000200
FINAL
C(AC)= 210400 000000
----------
*032635 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 210400 000000 C(E)= 000000 000100
FINAL
C(AC)= 207400 000000
----------
*032643 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 207400 000000 C(E)= 000000 000040
FINAL
C(AC)= 206400 000000
----------
*032651 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 206400 000000 C(E)= 000000 000020
FINAL
C(AC)= 205400 000000
----------
*032657 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 205400 000000 C(E)= 000000 000010
FINAL
C(AC)= 204400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 34
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0291
*032665 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 204400 000000 C(E)= 000000 000004
FINAL
C(AC)= 203400 000000
----------
*032673 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 203400 000000 C(E)= 000000 000002
FINAL
C(AC)= 202400 000000
----------
*032701 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 202400 000000 C(E)= 000000 000001
FINAL
C(AC)= 201400 000000
----------
*032707 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 201400 000000 C(E)= 400000 000000
FINAL
C(AC)= 533400 000000
----------
*032715 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 533400 000000 C(E)= 600000 000000
FINAL
C(AC)= 534400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 35
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0292
*032723 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534400 000000 C(E)= 700000 000000
FINAL
C(AC)= 535400 000000
----------
*032731 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 535400 000000 C(E)= 740000 000000
FINAL
C(AC)= 536400 000000
----------
*032737 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 536400 000000 C(E)= 760000 000000
FINAL
C(AC)= 537400 000000
----------
*032745 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 537400 000000 C(E)= 770000 000000
FINAL
C(AC)= 540400 000000
----------
*032753 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 540400 000000 C(E)= 774000 000000
FINAL
C(AC)= 541400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 36
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0293
*032761 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 541400 000000 C(E)= 776000 000000
FINAL
C(AC)= 542400 000000
----------
*032767 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 542400 000000 C(E)= 777000 000000
FINAL
C(AC)= 543400 000000
----------
*032775 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 543400 000000 C(E)= 777400 000000
FINAL
C(AC)= 544400 000000
----------
*033003 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 544400 000000 C(E)= 777600 000000
FINAL
C(AC)= 545400 000000
----------
*033011 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 545400 000000 C(E)= 777700 000000
FINAL
C(AC)= 546400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 37
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0294
*033017 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 546400 000000 C(E)= 777740 000000
FINAL
C(AC)= 547400 000000
----------
*033025 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 547400 000000 C(E)= 777760 000000
FINAL
C(AC)= 550400 000000
----------
*033033 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 550400 000000 C(E)= 777770 000000
FINAL
C(AC)= 551400 000000
----------
*033041 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 551400 000000 C(E)= 777774 000000
FINAL
C(AC)= 552400 000000
----------
*033047 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 552400 000000 C(E)= 777776 000000
FINAL
C(AC)= 553400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 38
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0295
*033055 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 553400 000000 C(E)= 777777 000000
FINAL
C(AC)= 554400 000000
----------
*033063 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 554400 000000 C(E)= 777777 400000
FINAL
C(AC)= 555400 000000
----------
*033071 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 555400 000000 C(E)= 777777 600000
FINAL
C(AC)= 556400 000000
----------
*033077 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 556400 000000 C(E)= 777777 700000
FINAL
C(AC)= 557400 000000
----------
*033105 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 557400 000000 C(E)= 777777 740000
FINAL
C(AC)= 560400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 39
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0296
*033113 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 560400 000000 C(E)= 777777 760000
FINAL
C(AC)= 561400 000000
----------
*033121 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 561400 000000 C(E)= 777777 770000
FINAL
C(AC)= 562400 000000
----------
*033127 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 562400 000000 C(E)= 777777 774000
FINAL
C(AC)= 563400 000000
----------
*033135 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 563400 000000 C(E)= 777777 776000
FINAL
C(AC)= 564400 000000
----------
*033143 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 564400 000000 C(E)= 777777 777000
FINAL
C(AC)= 565400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 40
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0297
*033151 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 565400 000000 C(E)= 777777 777400
FINAL
C(AC)= 566400 000000
----------
*033157 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 566400 000000 C(E)= 777777 777600
FINAL
C(AC)= 567400 000000
----------
*033165 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 567400 000000 C(E)= 777777 777700
FINAL
C(AC)= 570400 000000
----------
*033173 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 570400 000000 C(E)= 777777 777740
FINAL
C(AC)= 571400 000000
----------
*033201 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 571400 000000 C(E)= 777777 777760
FINAL
C(AC)= 572400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 41
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0298
*033207 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 572400 000000 C(E)= 777777 777770
FINAL
C(AC)= 573400 000000
----------
*033215 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 573400 000000 C(E)= 777777 777774
FINAL
C(AC)= 574400 000000
----------
*033223 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 574400 000000 C(E)= 777777 777776
FINAL
C(AC)= 575400 000000
----------
*033231 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 575400 000000 C(E)= 777777 777777
FINAL
C(AC)= 576400 000000
----------
*033236 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 576400 000000 C(E)= 000000 000000
FINAL
C(AC)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 42
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0299
*033245 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 000000 000000 C(E)= 377777 777400
FINAL
C(AC)= 243777 777777
----------
*033255 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243777 777777 C(E)= 377777 777000
FINAL
C(AC)= 243777 777776
----------
*033265 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243777 777776 C(E)= 377777 776400
FINAL
C(AC)= 243777 777775
----------
*033275 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243777 777775 C(E)= 377777 775400
FINAL
C(AC)= 243777 777773
----------
*033305 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243777 777773 C(E)= 377777 773400
FINAL
C(AC)= 243777 777767
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 43
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0300
*033315 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243777 777767 C(E)= 377777 767400
FINAL
C(AC)= 243777 777757
----------
*033325 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243777 777757 C(E)= 377777 757400
FINAL
C(AC)= 243777 777737
----------
*033335 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243777 777737 C(E)= 377777 737400
FINAL
C(AC)= 243777 777677
----------
*033345 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243777 777677 C(E)= 377777 677400
FINAL
C(AC)= 243777 777577
----------
*033355 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243777 777577 C(E)= 377777 577400
FINAL
C(AC)= 243777 777377
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 44
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0301
*033365 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243777 777377 C(E)= 377777 377400
FINAL
C(AC)= 243777 776777
----------
*033375 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243777 776777 C(E)= 377776 777400
FINAL
C(AC)= 243777 775777
----------
*033405 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243777 775777 C(E)= 377775 777400
FINAL
C(AC)= 243777 773777
----------
*033415 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243777 773777 C(E)= 377773 777400
FINAL
C(AC)= 243777 767777
----------
*033425 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243777 767777 C(E)= 377767 777400
FINAL
C(AC)= 243777 757777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 45
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0302
*033435 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243777 757777 C(E)= 377757 777400
FINAL
C(AC)= 243777 737777
----------
*033445 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243777 737777 C(E)= 377737 777400
FINAL
C(AC)= 243777 677777
----------
*033455 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243777 677777 C(E)= 377677 777400
FINAL
C(AC)= 243777 577777
----------
*033465 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243777 577777 C(E)= 377577 777400
FINAL
C(AC)= 243777 377777
----------
*033474 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243777 377777 C(E)= 377377 777400
FINAL
C(AC)= 243776 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 46
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0303
*033503 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243776 777777 C(E)= 376777 777400
FINAL
C(AC)= 243775 777777
----------
*033512 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243775 777777 C(E)= 375777 777400
FINAL
C(AC)= 243773 777777
----------
*033521 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243773 777777 C(E)= 373777 777400
FINAL
C(AC)= 243767 777777
----------
*033530 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243767 777777 C(E)= 367777 777400
FINAL
C(AC)= 243757 777777
----------
*033537 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243757 777777 C(E)= 357777 777400
FINAL
C(AC)= 243737 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 47
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0304
*033546 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243737 777777 C(E)= 337777 777400
FINAL
C(AC)= 243677 777777
----------
*033555 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243677 777777 C(E)= 277777 777400
FINAL
C(AC)= 243577 777777
----------
*033565 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243577 777777 C(E)= 200000 000400
FINAL
C(AC)= 243400 000001
----------
*033575 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243400 000001 C(E)= 200000 001000
FINAL
C(AC)= 243400 000002
----------
*033605 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243400 000002 C(E)= 200000 002000
FINAL
C(AC)= 243400 000004
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 48
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0305
*033615 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243400 000004 C(E)= 200000 004000
FINAL
C(AC)= 243400 000010
----------
*033625 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243400 000010 C(E)= 200000 010000
FINAL
C(AC)= 243400 000020
----------
*033635 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243400 000020 C(E)= 200000 020000
FINAL
C(AC)= 243400 000040
----------
*033645 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243400 000040 C(E)= 200000 040000
FINAL
C(AC)= 243400 000100
----------
*033655 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243400 000100 C(E)= 200000 100000
FINAL
C(AC)= 243400 000200
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 49
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0306
*033665 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243400 000200 C(E)= 200000 200000
FINAL
C(AC)= 243400 000400
----------
*033675 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243400 000400 C(E)= 200000 400000
FINAL
C(AC)= 243400 001000
----------
*033704 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243400 001000 C(E)= 200001 000000
FINAL
C(AC)= 243400 002000
----------
*033713 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243400 002000 C(E)= 200002 000000
FINAL
C(AC)= 243400 004000
----------
*033722 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243400 004000 C(E)= 200004 000000
FINAL
C(AC)= 243400 010000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 50
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0307
*033731 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243400 010000 C(E)= 200010 000000
FINAL
C(AC)= 243400 020000
----------
*033740 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243400 020000 C(E)= 200020 000000
FINAL
C(AC)= 243400 040000
----------
*033747 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243400 040000 C(E)= 200040 000000
FINAL
C(AC)= 243400 100000
----------
*033756 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243400 100000 C(E)= 200100 000000
FINAL
C(AC)= 243400 200000
----------
*033765 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243400 200000 C(E)= 200200 000000
FINAL
C(AC)= 243400 400000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 51
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0308
*033773 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243400 400000 C(E)= 200400 000000
FINAL
C(AC)= 243401 000000
----------
*034001 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243401 000000 C(E)= 201000 000000
FINAL
C(AC)= 243402 000000
----------
*034007 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243402 000000 C(E)= 202000 000000
FINAL
C(AC)= 243404 000000
----------
*034015 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243404 000000 C(E)= 204000 000000
FINAL
C(AC)= 243410 000000
----------
*034023 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243410 000000 C(E)= 210000 000000
FINAL
C(AC)= 243420 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 52
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0309
*034031 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243420 000000 C(E)= 220000 000000
FINAL
C(AC)= 243440 000000
----------
*034037 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243440 000000 C(E)= 240000 000000
FINAL
C(AC)= 243500 000000
----------
*034045 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243500 000000 C(E)= 300000 000000
FINAL
C(AC)= 243600 000000
----------
*034055 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243600 000000 C(E)= 400000 000400
FINAL
C(AC)= 534000 000001
----------
*034065 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534000 000001 C(E)= 400000 001000
FINAL
C(AC)= 534000 000002
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 53
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0310
*034075 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534000 000002 C(E)= 400000 002000
FINAL
C(AC)= 534000 000004
----------
*034105 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534000 000004 C(E)= 400000 004000
FINAL
C(AC)= 534000 000010
----------
*034115 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534000 000010 C(E)= 400000 010000
FINAL
C(AC)= 534000 000020
----------
*034125 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534000 000020 C(E)= 400000 020000
FINAL
C(AC)= 534000 000040
----------
*034135 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534000 000040 C(E)= 400000 040000
FINAL
C(AC)= 534000 000100
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 54
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0311
*034145 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534000 000100 C(E)= 400000 100000
FINAL
C(AC)= 534000 000200
----------
*034155 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534000 000200 C(E)= 400000 200000
FINAL
C(AC)= 534000 000400
----------
*034165 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534000 000400 C(E)= 400000 400000
FINAL
C(AC)= 534000 001000
----------
*034174 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534000 001000 C(E)= 400001 000000
FINAL
C(AC)= 534000 002000
----------
*034203 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534000 002000 C(E)= 400002 000000
FINAL
C(AC)= 534000 004000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 55
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0312
*034212 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534000 004000 C(E)= 400004 000000
FINAL
C(AC)= 534000 010000
----------
*034221 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534000 010000 C(E)= 400010 000000
FINAL
C(AC)= 534000 020000
----------
*034230 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534000 020000 C(E)= 400020 000000
FINAL
C(AC)= 534000 040000
----------
*034237 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534000 040000 C(E)= 400040 000000
FINAL
C(AC)= 534000 100000
----------
*034246 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534000 100000 C(E)= 400100 000000
FINAL
C(AC)= 534000 200000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 56
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0313
*034255 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534000 200000 C(E)= 400200 000000
FINAL
C(AC)= 534000 400000
----------
*034263 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534000 400000 C(E)= 400400 000000
FINAL
C(AC)= 534001 000000
----------
*034271 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534001 000000 C(E)= 401000 000000
FINAL
C(AC)= 534002 000000
----------
*034277 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534002 000000 C(E)= 402000 000000
FINAL
C(AC)= 534004 000000
----------
*034305 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534004 000000 C(E)= 404000 000000
FINAL
C(AC)= 534010 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 57
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0314
*034313 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534010 000000 C(E)= 410000 000000
FINAL
C(AC)= 534020 000000
----------
*034321 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534020 000000 C(E)= 420000 000000
FINAL
C(AC)= 534040 000000
----------
*034327 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534040 000000 C(E)= 440000 000000
FINAL
C(AC)= 534100 000000
----------
*034335 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534100 000000 C(E)= 500000 000000
FINAL
C(AC)= 534200 000000
----------
*034344 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534200 000000 C(E)= 577777 777400
FINAL
C(AC)= 534377 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 58
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0315
*034354 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534377 777777 C(E)= 577777 777000
FINAL
C(AC)= 534377 777776
----------
*034364 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534377 777776 C(E)= 577777 776400
FINAL
C(AC)= 534377 777775
----------
*034374 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534377 777775 C(E)= 577777 775400
FINAL
C(AC)= 534377 777773
----------
*034404 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534377 777773 C(E)= 577777 773400
FINAL
C(AC)= 534377 777767
----------
*034414 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534377 777767 C(E)= 577777 767400
FINAL
C(AC)= 534377 777757
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 59
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0316
*034424 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534377 777757 C(E)= 577777 757400
FINAL
C(AC)= 534377 777737
----------
*034434 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534377 777737 C(E)= 577777 737400
FINAL
C(AC)= 534377 777677
----------
*034444 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534377 777677 C(E)= 577777 677400
FINAL
C(AC)= 534377 777577
----------
*034454 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534377 777577 C(E)= 577777 577400
FINAL
C(AC)= 534377 777377
----------
*034464 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534377 777377 C(E)= 577777 377400
FINAL
C(AC)= 534377 776777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 60
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0317
*034474 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534377 776777 C(E)= 577776 777400
FINAL
C(AC)= 534377 775777
----------
*034504 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534377 775777 C(E)= 577775 777400
FINAL
C(AC)= 534377 773777
----------
*034514 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534377 773777 C(E)= 577773 777400
FINAL
C(AC)= 534377 767777
----------
*034524 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534377 767777 C(E)= 577767 777400
FINAL
C(AC)= 534377 757777
----------
*034534 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534377 757777 C(E)= 577757 777400
FINAL
C(AC)= 534377 737777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 61
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0318
*034544 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534377 737777 C(E)= 577737 777400
FINAL
C(AC)= 534377 677777
----------
*034554 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534377 677777 C(E)= 577677 777400
FINAL
C(AC)= 534377 577777
----------
*034564 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534377 577777 C(E)= 577577 777400
FINAL
C(AC)= 534377 377777
----------
*034573 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534377 377777 C(E)= 577377 777400
FINAL
C(AC)= 534376 777777
----------
*034602 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534376 777777 C(E)= 576777 777400
FINAL
C(AC)= 534375 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 62
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0319
*034611 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534375 777777 C(E)= 575777 777400
FINAL
C(AC)= 534373 777777
----------
*034620 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534373 777777 C(E)= 573777 777400
FINAL
C(AC)= 534367 777777
----------
*034627 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534367 777777 C(E)= 567777 777400
FINAL
C(AC)= 534357 777777
----------
*034636 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534357 777777 C(E)= 557777 777400
FINAL
C(AC)= 534337 777777
----------
*034645 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534337 777777 C(E)= 537777 777400
FINAL
C(AC)= 534277 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 63
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0320
*034654 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534277 777777 C(E)= 477777 777400
FINAL
C(AC)= 534177 777777
----------
*034663 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534177 777777 C(E)= 200000 000177
FINAL
C(AC)= 243400 000000
----------
*034673 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243400 000000 C(E)= 200000 000200
FINAL
C(AC)= 243400 000001
----------
*034702 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243400 000001 C(E)= 577777 777600
FINAL
C(AC)= 534377 777777
----------
*034711 FLTR 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534377 777777 C(E)= 577777 777601
FINAL
C(AC)= 534400 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 64
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0321
*034721 FLTR 4,036501
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 534400 000000 C(E)= 200000 000177
FINAL
C(AC)= 243400 000000
----------
*034727 DMOVE 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 243400 000000 C(AC+1)= 000200 032352 C(E)= 631463 146314 C(E+1)= 424242 131313
FINAL
C(AC)= 631463 146314 C(AC+1)= 424242 131313
----------
*034741 DMOVE 4,036702
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000
----------
*034753 DMOVE 4,036704
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 777777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 777777 777777
----------
*034765 DMOVE 4,036703
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 777777 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 777777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 65
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0322
*034777 DMOVE 4,036705
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 777777 777777 C(E+1)= 000000 000000
FINAL
C(AC)= 777777 777777 C(AC+1)= 000000 000000
----------
*035011 DMOVE 4,036710
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 252525 252525 C(E+1)= 525252 525252
FINAL
C(AC)= 252525 252525 C(AC+1)= 525252 525252
----------
*035023 DMOVE 4,036707
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 525252 525252 C(E+1)= 252525 252525
FINAL
C(AC)= 525252 525252 C(AC+1)= 252525 252525
----------
*035042 DMOVE 17,036704
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 777777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 777777 777777
----------
*035070 DMOVE 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 777777 777777 C(E+1)= 000000 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 000000 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 66
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0323
*035103 DMOVE 4,000003
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 000000 777777 C(AC+1)= 000000 000000 C(E)= 777777 777777 C(E+1)= 000000 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 000000 777777
----------
*035116 DMOVE 4,000004
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 000000 777777 C(E)= 777777 777777 C(E+1)= 000000 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 000000 777777
----------
*035131 DMOVE 4,000005
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 777777 777777 C(E+1)= 000000 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 000000 777777
----------
*035144 DMOVE 4,000006
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 777777 777777 C(E+1)= 000000 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 000000 777777
----------
*035152 DMOVE 2,036675
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 631463 146314 C(E+1)= 424242 131313
FINAL
C(AC)= 631463 146314 C(AC+1)= 424242 131313
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 67
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0324
*035153 DMOVN 4,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 000000 777777 C(E)= 631463 146314 C(E+1)= 424242 131313
FINAL
C(AC)= 146314 631463 C(AC+1)= 353535 646465
----------
*035161 DMOVE 4,036700
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 146314 631463 C(AC+1)= 353535 646465 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*035165 DMOVN 4,036702
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000
----------
*035173 DMOVE 4,036700
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*035177 DMOVN 4,036713
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 000000 000001
FINAL
C(AC)= 777777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 68
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0325
*035205 DMOVE 4,036700
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 377777 777777 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*035211 DMOVN 4,036715
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 777777 777777 C(E+1)= 000000 000001
FINAL
C(AC)= 000000 000000 C(AC+1)= 377777 777777
----------
*035217 DMOVE 4,036700
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 000000 000000 C(AC+1)= 377777 777777 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*035223 DMOVN 4,036712
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000001 C(E+1)= 000000 000000
FINAL
C(AC)= 777777 777777 C(AC+1)= 000000 000000
----------
*035231 DMOVE 4,036700
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 69
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0326
*035235 DMOVN 4,036720
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 525252 525252 C(E+1)= 252525 252526
FINAL
C(AC)= 252525 252525 C(AC+1)= 125252 525252
----------
*035243 DMOVE 4,036700
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 252525 252525 C(AC+1)= 125252 525252 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*035247 DMOVN 4,036723
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 252525 252525 C(E+1)= 525252 525253
FINAL
C(AC)= 525252 525252 C(AC+1)= 252525 252525
----------
*035262 DMOVE 17,036700
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 777601 030305 C(AC+1)= 777777 777777 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*035266 DMOVN 17,036713
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 000000 000001
FINAL
C(AC)= 777777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 70
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0327
*035307 DMOVE 4,036700
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 377777 777777 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*035313 DMOVE 2,036726
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 631463 146314 C(AC+1)= 000000 000003 C(E)= 000000 000000 C(E+1)= 000000 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 777777
----------
*035314 DMOVN 4,000002
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 000000 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 377777 000001
----------
*035322 DMOVE 4,036700
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 377777 000001 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*035326 DMOVE 3,036726
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 000000 777777 C(AC+1)= 707070 707070 C(E)= 000000 000000 C(E+1)= 000000 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 71
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0328
*035327 DMOVN 4,000003
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 000000 777777 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 000000 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 377777 000001
----------
*035335 DMOVE 4,036700
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 377777 000001 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*035341 DMOVE 4,036726
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 000000 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 777777
----------
*035342 DMOVN 4,000004
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 777777 C(E)= 000000 000000 C(E+1)= 000000 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 377777 000001
----------
*035350 DMOVE 4,036700
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 377777 000001 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 72
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0329
*035354 DMOVE 5,036726
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 070707 070707 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 777777
----------
*035355 DMOVN 4,000005
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 000000 000000 C(E)= 000000 000000 C(E+1)= 000000 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 377777 000001
----------
*035363 DMOVE 4,036700
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 377777 000001 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*035367 DMOVE 6,036726
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 000000 777777 C(AC+1)= 000000 777777 C(E)= 000000 000000 C(E+1)= 000000 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 777777
----------
*035370 DMOVN 4,000006
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 000000 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 377777 000001
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 73
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0330
*035376 DMOVE 4,036700
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 377777 000001 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*035402 DMOVN 4,036730
FLAGS - INT/FINAL 700200 700200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 400000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 400000 000000 C(AC+1)= 000000 000000
----------
*035410 DMOVE 4,036700
FLAGS - INT/FINAL 700200 700200
INITIAL
C(AC)= 400000 000000 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*035414 DMOVN 4,036731
FLAGS - INT/FINAL 700200 700200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 400000 000000
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000
----------
*035422 DMOVE 4,036700
FLAGS - INT/FINAL 700200 700200
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 74
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0331
*035426 DMOVN 4,036732
FLAGS - INT/FINAL 700200 700200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 400000 000000 C(E+1)= 400000 000000
FINAL
C(AC)= 400000 000000 C(AC+1)= 000000 000000
----------
*035442 DMOVN 5,036702
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000
----------
*035472 DMOVN 5,036730
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 400000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 400000 000000 C(AC+1)= 000000 000000
----------
*035522 DMOVN 5,036731
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 400000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000000 C(E+1)= 400000 000000
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000
----------
*035552 DMOVN 5,036732
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 400000 000000 C(E+1)= 400000 000000
FINAL
C(AC)= 400000 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 75
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0332
*035601 DMOVE 4,036675
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 000000 035554 C(AC+1)= 400000 000000 C(E)= 631463 146314 C(E+1)= 424242 131313
FINAL
C(AC)= 631463 146314 C(AC+1)= 424242 131313
----------
*035602 DMOVM 4,000002
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 631463 146314 C(AC+1)= 424242 131313 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(E)= 631463 146314 C(E+1)= 424242 131313
----------
*035610 DMOVE 4,036700
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 631463 146314 C(AC+1)= 424242 131313 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*035613 DMOVE 4,036702
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000
----------
*035614 DMOVM 4,036501
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(E)= 000000 000000 C(E+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 76
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0333
*035615 DMOVE 4,036501
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000
----------
*035623 DMOVE 4,036700
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*035626 DMOVE 4,036704
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 777777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 777777 777777
----------
*035627 DMOVM 4,036501
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(E)= 777777 777777 C(E+1)= 777777 777777
----------
*035630 DMOVE 4,036501
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 777777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 77
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0334
*035636 DMOVE 4,036700
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*035641 DMOVE 4,036703
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 777777 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 777777 777777
----------
*035642 DMOVM 4,036501
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(E)= 000000 000000 C(E+1)= 777777 777777
----------
*035643 DMOVE 4,036501
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 777777 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 777777 777777
----------
*035651 DMOVE 4,036700
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 78
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0335
*035654 DMOVE 4,036705
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 777777 777777 C(E+1)= 000000 000000
FINAL
C(AC)= 777777 777777 C(AC+1)= 000000 000000
----------
*035655 DMOVM 4,036501
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(E)= 777777 777777 C(E+1)= 000000 000000
----------
*035656 DMOVE 4,036501
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 777777 777777 C(E+1)= 000000 000000
FINAL
C(AC)= 777777 777777 C(AC+1)= 000000 000000
----------
*035664 DMOVE 4,036700
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*035667 DMOVE 4,036710
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 252525 252525 C(E+1)= 525252 525252
FINAL
C(AC)= 252525 252525 C(AC+1)= 525252 525252
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 79
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0336
*035670 DMOVM 4,036501
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 252525 252525 C(AC+1)= 525252 525252 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(E)= 252525 252525 C(E+1)= 525252 525252
----------
*035671 DMOVE 4,036501
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 252525 252525 C(AC+1)= 525252 525252 C(E)= 252525 252525 C(E+1)= 525252 525252
FINAL
C(AC)= 252525 252525 C(AC+1)= 525252 525252
----------
*035677 DMOVE 4,036700
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 252525 252525 C(AC+1)= 525252 525252 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*035702 DMOVE 4,036707
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 525252 525252 C(E+1)= 252525 252525
FINAL
C(AC)= 525252 525252 C(AC+1)= 252525 252525
----------
*035703 DMOVM 4,036501
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 525252 525252 C(AC+1)= 252525 252525 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(E)= 525252 525252 C(E+1)= 252525 252525
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 80
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0337
*035704 DMOVE 4,036501
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 525252 525252 C(AC+1)= 252525 252525 C(E)= 525252 525252 C(E+1)= 252525 252525
FINAL
C(AC)= 525252 525252 C(AC+1)= 252525 252525
----------
*035717 DMOVE 17,036700
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 777601 030305 C(AC+1)= 377777 777777 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*035722 DMOVE 17,036704
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 777777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 777777 777777
----------
*035723 DMOVM 17,036501
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(E)= 777777 777777 C(E+1)= 777777 777777
----------
*035724 DMOVE 17,036501
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777777 777777 C(E+1)= 777777 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 777777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 81
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0338
*035745 DMOVE 2,036700
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 631463 146314 C(AC+1)= 000000 000003 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*035746 DMOVE 4,036746
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 525252 525252 C(AC+1)= 252525 252525 C(E)= 777777 777777 C(E+1)= 000000 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 000000 777777
----------
*035747 DMOVM 4,000002
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 000000 777777 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(E)= 777777 777777 C(E+1)= 000000 777777
----------
*035755 DMOVE 3,036700
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 000000 777777 C(AC+1)= 777777 777777 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*035756 DMOVE 4,036746
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 070707 070707 C(AC+1)= 000000 777777 C(E)= 777777 777777 C(E+1)= 000000 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 000000 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 82
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0339
*035757 DMOVM 4,000003
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 000000 777777 C(E)= 707070 707070 C(E+1)= 777777 777777
FINAL
C(E)= 777777 777777 C(E+1)= 000000 777777
----------
*035765 DMOVE 4,036700
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 000000 777777 C(AC+1)= 000000 777777 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*035766 DMOVE 4,036746
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 777777 777777 C(E+1)= 000000 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 000000 777777
----------
*035767 DMOVM 4,000004
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 000000 777777 C(E)= 777777 777777 C(E+1)= 000000 777777
FINAL
C(E)= 777777 777777 C(E+1)= 000000 777777
----------
*035775 DMOVE 5,036700
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 000000 777777 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 83
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0340
*035776 DMOVE 4,036746
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 707070 707070 C(E)= 777777 777777 C(E+1)= 000000 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 000000 777777
----------
*035777 DMOVM 4,000005
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 000000 777777 C(E)= 000000 777777 C(E+1)= 070707 070707
FINAL
C(E)= 777777 777777 C(E+1)= 777777 777777
----------
*036005 DMOVE 6,036700
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 000000 777777 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*036006 DMOVE 4,036746
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 777777 777777 C(E)= 777777 777777 C(E+1)= 000000 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 000000 777777
----------
*036007 DMOVM 4,000006
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 000000 777777 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(E)= 777777 777777 C(E+1)= 000000 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 84
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0341
*036034 DMOVE 4,036675
FLAGS - INT/FINAL 300200 300200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 000000 777777 C(E)= 631463 146314 C(E+1)= 424242 131313
FINAL
C(AC)= 631463 146314 C(AC+1)= 424242 131313
----------
*036040 DMOVM 4,000002
FLAGS - INT/FINAL 020000 000000
INITIAL
C(AC)= 631463 146314 C(AC+1)= 424242 131313 C(E)= 777777 777777 C(E+1)= 777777 777777
FINAL
C(E)= 777777 777777 C(E+1)= 424242 131313
----------
*036051 DMOVE 4,036675
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 631463 146314 C(AC+1)= 424242 131313 C(E)= 631463 146314 C(E+1)= 424242 131313
FINAL
C(AC)= 631463 146314 C(AC+1)= 424242 131313
----------
*036052 DMVNM 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 631463 146314 C(AC+1)= 424242 131313 C(E)= 777777 777777 C(E+1)= 424242 131313
FINAL
C(E)= 146314 631463 C(E+1)= 353535 646465
----------
*036060 DMOVE 4,036700
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 631463 146314 C(AC+1)= 424242 131313 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 85
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0342
*036061 DMOVM 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 777777 777777 C(E+1)= 777777 777777
FINAL
C(E)= 707070 707070 C(E+1)= 070707 070707
----------
*036062 DMOVE 4,036702
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000
----------
*036063 DMOVN 11,036702
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 400000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000
----------
*036064 DMVNM 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(E)= 000000 000000 C(E+1)= 000000 000000
----------
*036065 DMOVE 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 86
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0343
*036073 DMOVE 4,036700
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*036074 DMOVM 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(E)= 707070 707070 C(E+1)= 070707 070707
----------
*036075 DMOVE 4,036713
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 000000 000001
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000001
----------
*036076 DMOVN 11,036713
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000000 C(E+1)= 000000 000001
FINAL
C(AC)= 777777 777777 C(AC+1)= 377777 777777
----------
*036077 DMVNM 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000001 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(E)= 777777 777777 C(E+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 87
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0344
*036100 DMOVE 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000001 C(E)= 777777 777777 C(E+1)= 377777 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 377777 777777
----------
*036106 DMOVE 4,036700
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(AC+1)= 377777 777777 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*036107 DMOVM 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 777777 777777 C(E+1)= 377777 777777
FINAL
C(E)= 707070 707070 C(E+1)= 070707 070707
----------
*036110 DMOVE 4,036715
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 777777 777777 C(E+1)= 000000 000001
FINAL
C(AC)= 777777 777777 C(AC+1)= 000000 000001
----------
*036111 DMOVN 11,036715
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(AC+1)= 377777 777777 C(E)= 777777 777777 C(E+1)= 000000 000001
FINAL
C(AC)= 000000 000000 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 88
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0345
*036112 DMVNM 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(AC+1)= 000000 000001 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(E)= 000000 000000 C(E+1)= 377777 777777
----------
*036113 DMOVE 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(AC+1)= 000000 000001 C(E)= 000000 000000 C(E+1)= 377777 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 377777 777777
----------
*036121 DMOVE 4,036700
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 377777 777777 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*036122 DMOVM 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 377777 777777
FINAL
C(E)= 707070 707070 C(E+1)= 070707 070707
----------
*036123 DMOVE 4,036712
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000001 C(E+1)= 000000 000000
FINAL
C(AC)= 000000 000001 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 89
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0346
*036124 DMOVN 11,036712
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 377777 777777 C(E)= 000000 000001 C(E+1)= 000000 000000
FINAL
C(AC)= 777777 777777 C(AC+1)= 000000 000000
----------
*036125 DMVNM 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(E)= 777777 777777 C(E+1)= 000000 000000
----------
*036126 DMOVE 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(AC+1)= 000000 000000 C(E)= 777777 777777 C(E+1)= 000000 000000
FINAL
C(AC)= 777777 777777 C(AC+1)= 000000 000000
----------
*036134 DMOVE 4,036700
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*036135 DMOVM 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 777777 777777 C(E+1)= 000000 000000
FINAL
C(E)= 707070 707070 C(E+1)= 070707 070707
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 90
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0347
*036136 DMOVE 4,036720
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 525252 525252 C(E+1)= 252525 252526
FINAL
C(AC)= 525252 525252 C(AC+1)= 252525 252526
----------
*036137 DMOVN 11,036720
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(AC+1)= 000000 000000 C(E)= 525252 525252 C(E+1)= 252525 252526
FINAL
C(AC)= 252525 252525 C(AC+1)= 125252 525252
----------
*036140 DMVNM 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 525252 525252 C(AC+1)= 252525 252526 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(E)= 252525 252525 C(E+1)= 125252 525252
----------
*036141 DMOVE 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 525252 525252 C(AC+1)= 252525 252526 C(E)= 252525 252525 C(E+1)= 125252 525252
FINAL
C(AC)= 252525 252525 C(AC+1)= 125252 525252
----------
*036147 DMOVE 4,036700
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 252525 252525 C(AC+1)= 125252 525252 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 91
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0348
*036150 DMOVM 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 252525 252525 C(E+1)= 125252 525252
FINAL
C(E)= 707070 707070 C(E+1)= 070707 070707
----------
*036151 DMOVE 4,036723
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 252525 252525 C(E+1)= 525252 525253
FINAL
C(AC)= 252525 252525 C(AC+1)= 525252 525253
----------
*036152 DMOVN 11,036723
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 252525 252525 C(AC+1)= 125252 525252 C(E)= 252525 252525 C(E+1)= 525252 525253
FINAL
C(AC)= 525252 525252 C(AC+1)= 252525 252525
----------
*036153 DMVNM 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 252525 252525 C(AC+1)= 525252 525253 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(E)= 525252 525252 C(E+1)= 252525 252525
----------
*036154 DMOVE 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 252525 252525 C(AC+1)= 525252 525253 C(E)= 525252 525252 C(E+1)= 252525 252525
FINAL
C(AC)= 525252 525252 C(AC+1)= 252525 252525
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 92
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0349
*036166 DMOVE 17,036700
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777601 030305 C(AC+1)= 777777 777777 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*036167 DMOVM 17,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 525252 525252 C(E+1)= 252525 252525
FINAL
C(E)= 707070 707070 C(E+1)= 070707 070707
----------
*036170 DMOVE 17,036713
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 000000 000001
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000001
----------
*036171 DMOVN 4,036713
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 525252 525252 C(AC+1)= 252525 252525 C(E)= 000000 000000 C(E+1)= 000000 000001
FINAL
C(AC)= 777777 777777 C(AC+1)= 377777 777777
----------
*036172 DMVNM 17,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000001 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(E)= 777777 777777 C(E+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 93
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0350
*036173 DMOVE 17,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000001 C(E)= 777777 777777 C(E+1)= 377777 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 377777 777777
----------
*036214 DMOVE 2,036700
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 146314 631463 C(AC+1)= 000000 000003 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*036215 DMOVE 4,036726
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(AC+1)= 377777 777777 C(E)= 000000 000000 C(E+1)= 000000 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 777777
----------
*036216 DMOVN 11,000004
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 525252 525252 C(AC+1)= 252525 252525 C(E)= 000000 000000 C(E+1)= 000000 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 377777 000001
----------
*036217 DMVNM 4,000002
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 777777 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(E)= 777777 777777 C(E+1)= 377777 000001
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 94
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0351
*036225 DMOVE 3,036700
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 377777 000001 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*036226 DMOVE 4,036726
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 070707 070707 C(AC+1)= 000000 777777 C(E)= 000000 000000 C(E+1)= 000000 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 777777
----------
*036227 DMOVN 11,000004
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(AC+1)= 377777 000001 C(E)= 000000 000000 C(E+1)= 000000 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 377777 000001
----------
*036230 DMVNM 4,000003
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 777777 C(E)= 707070 707070 C(E+1)= 000000 000000
FINAL
C(E)= 777777 777777 C(E+1)= 377777 000001
----------
*036236 DMOVE 4,036700
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 377777 000001 C(AC+1)= 000000 777777 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 95
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0352
*036237 DMOVE 4,036726
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 000000 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 777777
----------
*036240 DMOVN 11,000004
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(AC+1)= 377777 000001 C(E)= 000000 000000 C(E+1)= 000000 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 377777 000001
----------
*036241 DMVNM 4,000004
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 777777 C(E)= 000000 000000 C(E+1)= 000000 777777
FINAL
C(E)= 777777 777777 C(E+1)= 377777 000001
----------
*036247 DMOVE 5,036700
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 377777 000001 C(AC+1)= 000000 036046 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*036250 DMOVE 4,036726
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(AC+1)= 707070 707070 C(E)= 000000 000000 C(E+1)= 000000 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 96
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0353
*036251 DMOVN 11,000004
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(AC+1)= 377777 000001 C(E)= 000000 000000 C(E+1)= 000000 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 377777 000001
----------
*036254 DMVNM 4,000005
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 777777 C(E)= 000000 777777 C(E+1)= 070707 070707
FINAL
C(E)= 777777 777777 C(E+1)= 000000 000001
----------
*036262 DMOVE 6,036700
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(AC+1)= 000000 777777 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*036263 DMOVE 4,036726
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 777777 777777 C(E)= 000000 000000 C(E+1)= 000000 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 777777
----------
*036264 DMOVN 11,000004
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(AC+1)= 000000 000001 C(E)= 000000 000000 C(E+1)= 000000 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 377777 000001
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 97
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0354
*036265 DMVNM 4,000006
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 777777 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(E)= 777777 777777 C(E+1)= 377777 000001
----------
*036273 DMOVE 4,036700
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 777777 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*036274 DMOVM 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 777777 777777 C(E+1)= 377777 777777
FINAL
C(E)= 707070 707070 C(E+1)= 070707 070707
----------
*036275 DMOVE 4,036730
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 400000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 400000 000000 C(AC+1)= 000000 000000
----------
*036276 DMOVN 11,036730
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(AC+1)= 377777 000001 C(E)= 400000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 400000 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 98
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0355
*036277 DMVNM 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 400000 000000 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(E)= 400000 000000 C(E+1)= 000000 000000
----------
*036300 DMOVE 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 400000 000000 C(AC+1)= 000000 000000 C(E)= 400000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 400000 000000 C(AC+1)= 000000 000000
----------
*036306 DMOVE 4,036700
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 400000 000000 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*036307 DMOVM 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 400000 000000 C(E+1)= 000000 000000
FINAL
C(E)= 707070 707070 C(E+1)= 070707 070707
----------
*036310 DMOVE 4,036731
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 400000 000000
FINAL
C(AC)= 000000 000000 C(AC+1)= 400000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 99
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0356
*036311 DMOVN 11,036731
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 400000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000000 C(E+1)= 400000 000000
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000
----------
*036312 DMVNM 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 400000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(E)= 000000 000000 C(E+1)= 000000 000000
----------
*036313 DMOVE 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 400000 000000 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000
----------
*036321 DMOVE 4,036700
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707
----------
*036322 DMOVM 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(E)= 707070 707070 C(E+1)= 070707 070707
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 100
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0357
*036323 DMOVE 4,036732
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 707070 707070 C(AC+1)= 070707 070707 C(E)= 400000 000000 C(E+1)= 400000 000000
FINAL
C(AC)= 400000 000000 C(AC+1)= 400000 000000
----------
*036324 DMOVN 11,036732
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 400000 000000 C(E+1)= 400000 000000
FINAL
C(AC)= 400000 000000 C(AC+1)= 000000 000000
----------
*036325 DMVNM 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 400000 000000 C(AC+1)= 400000 000000 C(E)= 707070 707070 C(E+1)= 070707 070707
FINAL
C(E)= 400000 000000 C(E+1)= 000000 000000
----------
*036326 DMOVE 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 400000 000000 C(AC+1)= 400000 000000 C(E)= 400000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 400000 000000 C(AC+1)= 000000 000000
----------
*036335 DMOVE 4,036702
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 400000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 101
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0358
*036336 DMVNM 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000000 C(E)= 400000 000000 C(E+1)= 000000 000000
FINAL
C(E)= 000000 000000 C(E+1)= 000000 000000
----------
*036366 DMOVE 4,036730
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 036340 C(AC+1)= 000000 000000 C(E)= 400000 000000 C(E+1)= 000000 000000
FINAL
C(AC)= 400000 000000 C(AC+1)= 000000 000000
----------
*036367 DMVNM 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 400000 000000 C(AC+1)= 000000 000000 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(E)= 400000 000000 C(E+1)= 000000 000000
----------
*036417 DMOVE 4,036731
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 036371 C(AC+1)= 000000 000000 C(E)= 000000 000000 C(E+1)= 400000 000000
FINAL
C(AC)= 000000 000000 C(AC+1)= 400000 000000
----------
*036420 DMVNM 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 400000 000000 C(E)= 400000 000000 C(E+1)= 000000 000000
FINAL
C(E)= 000000 000000 C(E+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 102
DSKCC 000000 000000 700000 000000 100000 000000 030000 777777 SEQ 0359
*036450 DMOVE 4,036732
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 036422 C(AC+1)= 400000 000000 C(E)= 400000 000000 C(E+1)= 400000 000000
FINAL
C(AC)= 400000 000000 C(AC+1)= 400000 000000
----------
*036451 DMVNM 4,036501
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 400000 000000 C(AC+1)= 400000 000000 C(E)= 000000 000000 C(E+1)= 000000 000000
FINAL
C(E)= 400000 000000 C(E+1)= 000000 000000
----------