Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dskaj.seq
There are no other files named dskaj.seq in the archive.
;DSKAJ
IDENTIFICATION
--------------
PRODUCT CODE: AH-E315A-DD
DIAGNOSTIC CODE: DSKAJ
PRODUCT NAME: DSKAJA0 DECSYSTEM 2020 BASIC
INSTRUCTION DIAGNOSTIC (10)
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-DSKAJ.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-DSKAJ.TXT
PAGE 3 SEQ 0004
1.0 ABSTRACT
THIS DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC IS THE
TENTH IN A SERIES OF DECSYSTEM 2020 PROCESSOR DIAGNOSTICS.
THE DIAGNOSTIC PERFORMS LOGIC TESTING OF THE PROCESSOR
AND MICRO-CODE LOGICAL SHIFT, ROTATE, ARITHMETIC SHIFT
(SINGLE & COMBINED) FUNCTIONS.
2.0 REQUIREMENTS
2.1 EQUIPMENT
A DECSYSTEM 2020 EQUIPPED WITH A MINIMUM OF 32K OF MEMORY
CONSOLE PROCESSOR
CONSOLE TELETYPE
LOAD DEVICE
2.2 STORAGE
THE PROGRAM RUNS WITHIN 32K OF MEMORY.
2.3 PRELIMINARY PROGRAMS
PREVIOUS PROCESSOR DIAGNOSTICS
3.0 PROGRAM PROCEDURES
3.1 LOADING PROCEDURE
****** NOTE ******
THIS DIAGNOSTIC REQUIRES THAT THE DECSYSTEM 2020 SUBROUTINE
PROGRAM BE RESIDENT IN THE DECSYSTEM 2020.
FOLLOW THE APPROPRIATE DIAGNOSTIC LOADING PROCEDURES.
MAINDEC-10-DSKAJ.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-DSKAJ.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-DSKAJ.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-DSKAJ.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-DSKAJ.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 'DSKAJ.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-DSKAJ.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 DSKAJ SEQ 0011
----------------------
---------------------------------------------------------------
CODE: MAINDEC-10-DSKAJ
TITLE: DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10)
VERSION: 0.1
DATE: MARCH 1978
REASON: ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10.
---------------------------------------------------------------
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 1
DSKAJT MAC 29-Mar-78 09:39 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0012
1 ;DSKAJ
2
3 000000 MCNVER==0
4 000001 DECVER==1
5
6
7 XLIST
8 LIST
9 LALL
10
11 NAME \MCNVER,\DECVER^
12
13 TITLE DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1
14 ^
15
16
17 ;LOGICAL SHIFT, ROTATE, ARITMETIC SHIFT (SINGLE & COMBINED)
18
19 ;COPYRIGHT 1978
20 ;DIGITAL EQUIPMENT CORPORATION
21 ;MARLBORO, MASS. 01752
22
23 ;JOHN R. KIRCHOFF
24
25 000137 LOC 137
26 000137 000000 000001 MCNVER,,DECVER
27
28 NOSYM
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 2
DSKAJT MAC 29-Mar-78 09:39 DIAGNOSTIC PARAMETERS SEQ 0013
29 SUBTTL DIAGNOSTIC PARAMETERS
30
31 ;OPERATOR DEFINITIONS
32
33 001000 000000 OPDEF ER1 [1B8]
34 002000 000000 OPDEF ER2 [2B8]
35 003000 000000 OPDEF ER3 [3B8]
36 004000 000000 OPDEF ER4 [4B8]
37 005000 000000 OPDEF ER5 [5B8]
38 006000 000000 OPDEF ER6 [6B8]
39 007000 000000 OPDEF ER7 [7B8]
40 010000 000000 OPDEF ER10 [10B8]
41 011000 000000 OPDEF ER11 [11B8]
42 012000 000000 OPDEF ER12 [12B8]
43 013000 000000 OPDEF ER13 [13B8]
44
45 036403 LUUO1=ERRMES
46 036403 LUUO2=ERRMES
47 036403 LUUO3=ERRMES
48 036403 LUUO4=ERRMES
49 036403 LUUO5=ERRMES
50 036403 LUUO6=ERRMES
51 036403 LUUO7=ERRMES
52 036403 LUUO10=ERRMES
53 036403 LUUO11=ERRMES
54 036403 LUUO12=ERRMES
55 036403 LUUO13=ERRMES
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 3
DSKAJT MAC 29-Mar-78 09:39 DIAGNOSTIC PARAMETERS SEQ 0014
56 ;SUBROUTINE ASSEMBLY DEFINITIONS
57
58 000040 DEBUG=40
59 000001 EXCASB=1
60 000001 USRASB=1
61 000001 PGMEND=1
62 000001 ERDIAG=1
63
64 ;SPECIAL FEATURE DEFINITIONS
65
66 030000 SADR1=BEGIN
67 030000 SADR2=BEGIN
68 030000 SADR3=BEGIN
69 030007 SADR4=SRTDDT
70 254000 030061 SADR5=JRST $BEND2
71 254000 030000 SADR6=JRST BEGIN
72 254000 030000 SADR7=JRST BEGIN
73 254000 030000 SADR8=JRST BEGIN
74 254000 030000 SADR9=JRST BEGIN
75 254000 030000 SADR10=JRST BEGIN
76 254000 030000 SADR11=JRST BEGIN
77
78 ;SPECIAL FEATURE PARAMETERS
79
80 000000 PAREA0=0
81 000000 PAREA1=0
82 000000 PAREA2=0
83 446353 415200 PAREA3=SIXBIT/DSKAJ/
84 645560 000000 PAREA4=SIXBIT/TMP/
85 000000 PAREA5=0
86 000000 PAREA6=0
87 000001 ITERAT==1
88
89 ;MACROS
90
91 DEFINE SAVEAC (A,B)<
92 MOVEI AC+2,. ;SAVE TEST PC
93 MOVEM AC+2,TESTPC
94 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
95 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION>
96
97 DEFINE SETACS (WW,XX)<
98 MOVEI AC-1,WW ;SETUP AC-1
99 HRLI AC-1,WW ;FOR COMPARISION
100 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
101 MOVEI AC,XX ;SETUP AC RIGHT
102 HRLI AC,XX ;SETUP AC LEFT
103 MOVEM AC,<AC+1>&17 ;SETUP AC2>
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 4
DSKAJT MAC 29-Mar-78 09:39 DIAGNOSTIC PARAMETERS SEQ 0015
104 ;USER DEFINED MACROS
105
106 DEFINE SR1 (T,D1A,D1B,R1A,R1B,OP,S)<
107 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD D1A,D1B] S BIT
108 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD R1A,R1B]
109 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
110
111 E'T'00: MOVE AC,[XWD D1A,D1B] ;INITIALIZE AC
112 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
113 OP AC,S ;*SHIFT/ROTATE S BIT POSITIONS
114 CAME AC,[XWD R1A,R1B] ;IS RESULT IN AC CORRECT?
115 ER3 AC,T'01 ;RESULT IN AC IS INCORRECT
116 CAME AC+1,[XWD 741703,607417]
117 ER4 AC+1,T'01 ;C(AC+1) WAS MODIFIED INCORRECTLY
118 JUMPL AC+2,E'T'00 ;LOOP ON ERROR SWITCH>
119
120
121 DEFINE SR2 (T,D1A,D1B,D2A,D2B,R1A,R1B,R2A,R2B,OP,S)<
122 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
123 ;DATA SPECIFIED IN [XWD D1A,D1B] AND [XWD D2A,D2B] S BIT POSITIONS AND
124 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD R1A,R1B] AND
125 ;[XWD R2A,R2B]
126
127 E'T'00: MOVE AC,[XWD D1A,D1B] ;INITIALIZE AC
128 MOVE AC+1,[XWD D2A,D2B] ;INITIALIZE AC+1
129 OP AC,S ;*SHIFT/ROTATE COMBINED S PLACES
130 CAME AC,[XWD R1A,R1B] ;IS RESULT IN AC CORRECT?
131 ER3 AC,T'01 ;RESULT IN AC IS INCORRECT
132 CAME AC+1,[XWD R2A,R2B] ;IS RESULT IN AC+1 CORRECT?
133 ER4 AC+1,T'01 ;RESULT IN AC+1 IS INCORRECT
134 JUMPL AC+2,E'T'00 ;LOOP ON ERROR SWITCH>
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 1
PARAM KSM 28-Mar-78 11:27 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0016
135 SUBTTL CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978
136
137 DEFINE S,<;*********************************************************************>
138
139 S^;*********************************************************************^
140 ;*DATA SWITCHES
141 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
142 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
143 S^;*********************************************************************^
144
145 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION
146 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS
147 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE
148
149 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
150 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
151 010000 DING== 010000 ;RING BELL ON ERROR
152
153 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR
154 002000 ERSTOP==002000 ;HALT ON TEST ERROR
155 001000 PALERS==001000 ;PRINT ALL ERRORS
156
157 000400 RELIAB==000400 ;RELIABILITY MODE
158 000200 TXTINH==000200 ;INHIBIT ERROR TEXT
159 000100 INHPAG==000100 ;INHIBIT PAGING
160
161 000040 MODDVC==000040 ;MODIFY DEVICE CODE
162 000020 INHCSH==000020 ;INHIBIT CACHE
163 000010 OPRSEL==000010 ;OPERATOR SELECTION
164
165 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH
166
167 ;SWITCH 16 RESERVED
168
169 ;SWITCH 17 RESERVED !!!
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 2
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0017
170 SUBTTL PROGRAM/SUBROUTINE PARAMETERS
171
172 S^;*********************************************************************^
173 ;*SPECIAL SUBPROGRAM LINKAGES
174 S^;*********************************************************************^
175
176 027772 FSELNK= 27772 ;FILE SELECT LINK
177 027773 FRDLNK= 27773 ;FILE READ LINK
178 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS
179 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS
180 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS
181 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS
182
183 S^;*********************************************************************^
184 ;*SPECIAL SUBROUTINE FATAL HALTS
185 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
186 S^;*********************************************************************^
187
188 ;ADDRESS TAG REASON
189 ;---------------------
190
191 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION
192 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR
193 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR
194 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT
195 ; 1014 SMBER ;KS-10 INTERRUPT WITHOUT DOORBELL
196 ; 1015 SMCER ;KS-10 CLOCK INTERRUPT WITHOUT FLAG SET
197 ; 1016 CPIERR ;CPU INITIALIZATION ERROR
198 ; 1017 EOPERR ;END OF PROGRAM ERROR
199 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT
200
201 S^;*********************************************************************^
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 3
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0018
202 S^;*********************************************************************^
203 ;OPERATOR DEFINITIONS (NON-UUO'S)
204 S^;*********************************************************************^
205
206 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL
207 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN
208 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST
209 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST
210 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S
211 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT
212 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT
213 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT
214
215 S^;*********************************************************************^
216 ;*SUBROUTINE INITIALIZATION CALL
217 S^;*********************************************************************^
218
219 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION
220
221 S^;*********************************************************************^
222 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
223 S^;*********************************************************************^
224
225 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT
226 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT
227
228 S^;*********************************************************************^
229 ;*TERMINAL INPUT UUO'S
230 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
231 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
232 S^;*********************************************************************^
233
234 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER
235 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y
236 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N
237 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD
238 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD
239 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD
240 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK
241 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK
242 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD
243 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT
244 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 4
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0019
245 ;*TERMINAL OUTPUT UUO'S.
246
247 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD
248 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED
249 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE
250 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED
251 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE
252 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED
253 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE
254 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED
255 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE
256 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED
257 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE
258 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED
259 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER
260 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED
261 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT
262 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED
263 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS
264 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED
265 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS
266 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED
267 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS
268 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED
269 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS
270 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED
271 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS
272 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED
273 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS
274 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED
275 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS
276 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED.
277 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS
278 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED
279 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL
280 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED
281 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6
282 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
283 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S
284 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
285 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S
286 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
287 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S
288 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 5
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0020
289 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME
290 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD
291 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED
292 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE
293 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD
294 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED
295 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
296 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
297 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE
298 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED
299 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
300 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
301 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL
302
303 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE
304
305 DEFINE PMSG (ARG),<
306 PSIXM [SIXBIT\ARG'_\]>
307
308 DEFINE PMSGF (ARG),<
309 PSIXMF [SIXBIT\ARG'_\]>
310
311 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
312 ;* CONSERVES CORE OVER ASCIZ
313
314 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]>
315
316 ;*CONSOLE SWITCH INPUT UUO.
317 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
318 ;* USER MODE.
319
320 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES
321
322 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
323 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
324
325 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - CLOCK
326 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - METER
327
328 ;*KS-10 CACHE OPERATION UUO'S
329
330 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE
331 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH
332 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 6
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0021
333 ;*END OF PASS/PROGRAM UUOS
334
335 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
336 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
337
338 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS
339 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO
340
341 ;*MEMORY MANAGEMENT UUO'S
342 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
343 ;*ADDRESS CONVERSION, ETC...
344
345 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY
346 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY
347 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT
348 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT
349 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK
350 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP
351 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP
352
353 ;*DEVICE CODE MODIFICATION UUO
354 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
355 ;*IOT'S TO A DIFFERENT DEVICE CODE.
356
357 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER
358 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM
359
360 030000 IFNDEF MODDVL,<MODDVL==BEGIN>
361 030000 IFNDEF MODDVU,<MODDVU==BEGIN>
362
363 ;*"DIAMON" FILE SELECTION AND READ UUOS
364
365 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION
366 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA
367 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA
368 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA
369
370 XLIST
371 IFNDEF EROLD,<LIST
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 7
PARAM KSM 28-Mar-78 11:27 ERROR HANDLING UUO DEFINITIONS SEQ 0022
372 SUBTTL ERROR HANDLING UUO DEFINITIONS
373
374 S^;*********************************************************************^
375 ;*ERROR HANDLER PARAMETERS
376 S^;*********************************************************************^
377
378 036000 000000 OPDEF ERUUO [36B8] ;ERROR CALL UUO
379 035000 000000 OPDEF ERLOOP [35B8] ;ERROR LOOP, CHECKS PC,REPT,REPT1,ERROR
380 035040 000000 OPDEF ERLP1 [35B8!1B12] ;ERROR LOOP IF PC'S MATCH
381 035100 000000 OPDEF ERLP2 [35B8!2B12] ;ERROR LOOP IF ANY ERROR
382 034000 000000 OPDEF REPTUO [34B8] ;REPEAT LOOP UUO
383
384 ;*THE ERROR HANDLER MACROS
385
386 ;*A MACRO TO REPORT AN ERROR AND LOOP
387
388 DEFINE ERROR (ADR,FORMAT,CORECT,ACTUAL,F,D,ERR)<
389 SALL
390 ERUUO FORMAT,[T,,[SIXBIT\F'_\]
391 CORECT,,ACTUAL
392 [SIXBIT\D'_\],,ERR]
393 XALL
394 ERLOOP ADR ;IF ERROR, LOOP TO ADR
395 >
396
397 ;*A MACRO TO REPORT AN ERROR AND NOT LOOP
398
399 DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)<
400 SALL
401 ERUUO FORMAT,[T,,[SIXBIT\F'_\]
402 CORECT,,ACTUAL
403 [SIXBIT\D'_\],,ERR]
404 XALL>
405
406 >;END OF EROLD CONDITIONAL
407
408 XLIST
409 LIST
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 1
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0023
410 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978
411
412 030000 LOC 30000
413
414 S^;*********************************************************************^
415 ;*PROGRAM STARTING ADDRESSES
416 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
417 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
418 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
419 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
420 S^;*********************************************************************^
421
422 030000 254 00 1 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START
423 030001 254 00 0 00 030620 $START: JRST START ;MODE CHECK STARTING ADDRESS
424
425 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START
426
427 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START
428
429 030004 254 00 0 00 030000 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START
430
431 030005 254 00 0 00 030000 PFSTRT: JRST SADR2 ;POWER FAIL RESTART
432
433 030006 254 00 0 00 030000 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY)
434
435 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT"
436 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START
437
438 030010 254 00 0 00 030623 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE)
439 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE
440 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE
441
442 030013 254000 030000 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS
443 030014 254000 030000 START2: SADR8 ; "
444 030015 254000 030000 START3: SADR9 ; "
445 030016 254000 030000 START4: SADR10 ; "
446 030017 254000 030000 START5: SADR11 ; "
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 2
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0024
447 S^;*********************************************************************^
448 ;*PROGRAM FIXED PARAMETER AREA
449 S^;*********************************************************************^
450
451 030020 446353 415200 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME
452 030021 645560 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION
453 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER
454 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES
455 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS
456 030025 000000 030602 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME
457 030026 000000 000001 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL
458 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT
459 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT
460 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED
461 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED
462 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE
463 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS
464 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER
465 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER
466
467 S^;*********************************************************************^
468 ;*PROGRAM VARIABLE PARAMETER AREA
469 S^;*********************************************************************^
470
471 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG
472 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10
473 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
474 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG
475 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG
476 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10
477 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG
478 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS
479 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT
480 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG
481 030051 000000 000000 TESTPC: 0 ;SUBTEST PC
482 030052 000000 000000 ERRPC: 0 ;ERROR PC
483 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS
484 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME
485 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE
486 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 3
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0025
487 S^;*********************************************************************^
488 ;*SPECIAL PROGRAM DISPATCH ADDRESSES
489 S^;*********************************************************************^
490
491 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS
492 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM
493 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN
494 030062 254000 030061 CNTLC: SADR5 ;CONTROL C XFER ADDRESS
495 030063 254000 030000 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS
496 030064 CPOPJ1: ;SKIP RETURN
497 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO
498 030065 CPOPJ: ;NON-SKIP REGULAR RETURN
499 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN
500 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE
501 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE
502 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX)
503 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE
504 030072 255 00 0 00 000000 $ITRX1: JFCL ; "
505 030073 255 00 0 00 000000 $USRHL: JFCL ; "
506 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE
507 030075 255 00 0 00 000000 $RSRTY: JFCL ; "
508 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX)
509 030077 255 00 0 00 000000 RESRT2: JFCL ; "
510 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE
511 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE
512 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT
513
514 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR)
515 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT
516 030105 000000 000000 0 ;INITED AS (JRST $ITRC1)
517
518 S^;*********************************************************************^
519 ;*PROCESSOR CONTROL STORAGE
520 S^;*********************************************************************^
521
522 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0
523 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI
524 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR
525 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI)
526 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI)
527
528 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO
529 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO
530
531 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS
532 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG
533 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG
534 030120 000000 000000 %COREC: 0 ; " CORRECT DATA
535 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG
536 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA
537 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 4
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0026
538 S^;*********************************************************************^
539 ;*UUO DISPATCH TABLE
540 S^;*********************************************************************^
541 XLIST
542 LIST
543 030124 036403 030070 UUODIS: LUUO1,,$UUOER
544 030125 036403 036403 LUUO3,,LUUO2
545 030126 036403 036403 LUUO5,,LUUO4
546 030127 036403 036403 LUUO7,,LUUO6
547 030130 036403 036403 LUUO11,,LUUO10
548 030131 036403 036403 LUUO13,,LUUO12
549 030132 030070 030070 LUUO15,,LUUO14
550 030133 030070 030070 LUUO17,,LUUO16
551 030134 030070 030070 LUUO21,,LUUO20
552 030135 030070 030070 LUUO23,,LUUO22
553 030136 030070 030070 LUUO25,,LUUO24
554 030137 030070 030070 LUUO27,,LUUO26
555 030140 030070 030070 LUUO31,,LUUO30
556 030141 030070 030070 LUUO33,,LUUO32
557
558 S^;*********************************************************************^
559 ;*MEMORY MANAGMENT STORAGE
560 S^;*********************************************************************^
561
562 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
563 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
564 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.)
565 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY
566 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE
567
568 S^;*********************************************************************^
569 ;*PRINT CONTROL STORAGE
570 S^;*********************************************************************^
571
572 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
573 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE
574 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG
575 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS
576 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL
577 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME
578 030225 000000 000000 $TWCNT: 0 ;TIME WAITED
579 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG
580 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG
581 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE
582 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR
583 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR
584 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER
585 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG
586 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG
587 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG
588 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG
589 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS
590 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 5
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0027
591 S^;*********************************************************************^
592 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
593 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
594 ;* MOVEI NAME
595 ;* PNTA ;OR PNTAF
596 S^;*********************************************************************^
597
598 030242 CRLF: ASCII/
599 030242 015 012 000 000 000 /
600 030243 CRLF2: ASCII/
601
602 030243 015 012 015 012 000 /
603 030244 054 000 000 000 000 COMMA: ASCII/,/
604 030245 056 000 000 000 000 PERIOD: ASCII/./
605 030246 040 000 000 000 000 SPACE: ASCII/ /
606 030247 011 000 000 000 000 TAB: ASCII/ /
607 030250 MINUS:
608 030250 055 000 000 000 000 HYPEN: ASCII/-/
609 030251 053 000 000 000 000 PLUS: ASCII/+/
610 030252 052 000 000 000 000 AST: ASCII/*/
611 030253 100 000 000 000 000 ATSIN: ASCII/@/
612 030254 050 000 000 000 000 LFP: ASCII/(/
613 030255 051 000 000 000 000 RTP: ASCII/)/
614 030256 007 0000000000 BELL: BYTE (7) 007
615 030257 077 000 000 000 000 QUEST: ASCII/?/
616 030260 057 000 000 000 000 SLASH: ASCII!/!
617 030261 044 000 000 000 000 DOLLAR: ASCII/$/
618 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX
619 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR
620 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT
621
622 S^;*********************************************************************^
623 ;*USER MODE OUTPUT FILE INFORMATION
624 S^;*********************************************************************^
625
626 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER
627 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME
628 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION
629 030272 BLOCK 2
630
631 S^;*********************************************************************^
632 ;*DISK UPDATE MODE FILE INFORMATION
633 S^;*********************************************************************^
634
635 030274 $IBUF: BLOCK 3
636 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/
637 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/
638 030301 BLOCK 2
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 6
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0028
639 S^;*********************************************************************^
640 ;*PUSHDOWN LIST CONTROL INFORMATION
641 S^;*********************************************************************^
642
643 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST
644 030304 PLISTS: BLOCK 200
645 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST
646
647 S^;*********************************************************************^
648 ;*POWER LINE CLOCK FREQUENCY FLAG
649 S^;*********************************************************************^
650
651 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE
652
653 S^;*********************************************************************^
654 ;*KL10 CACHE CONTROL FLAGS
655 S^;*********************************************************************^
656
657 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0
658 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0
659
660 S^;*********************************************************************^
661 ;*NUMBER INPUT DIGIT FLAG
662 S^;*********************************************************************^
663
664 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED
665
666 S^;*********************************************************************^
667 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
668 S^;*********************************************************************^
669
670 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
671
672 S^;*********************************************************************^
673 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
674 S^;*********************************************************************^
675
676 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO
677 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO
678 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
679
680 S^;*********************************************************************^
681 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION
682 S^;*********************************************************************^
683
684 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 7
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0029
685 S^;*********************************************************************^
686 ;*USER MODE MONITOR TYPE FLAG
687 S^;*********************************************************************^
688
689 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20
690
691 S^;*********************************************************************^
692 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION
693 S^;*********************************************************************^
694
695 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER
696
697 S^;*********************************************************************^
698 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
699 S^;*********************************************************************^
700
701 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
702
703 S^;*********************************************************************^
704 ;*"SWITCH" CALL USAGE CONTROL
705 S^;*********************************************************************^
706
707 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
708
709 S^;*********************************************************************^
710 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
711 S^;*********************************************************************^
712
713 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
714 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
715
716 S^;*********************************************************************^
717 ;*SM10 (KS-10) PROCESSOR TYPE FLAG
718 S^;*********************************************************************^
719
720 030524 000000 000000 SM10: 0 ;IF -1 THIS IS AN KS-10
721
722 S^;*********************************************************************^
723 ;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS
724 S^;*********************************************************************^
725
726 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE
727
728 S^;*********************************************************************^
729 ;*SPECIAL FUTURE EXPANSION ROOM
730 S^;*********************************************************************^
731
732 S^;*********************************************************************^
733 ;*END OF FIXED STORAGE
734 S^;*********************************************************************^
735
736 030577 LOC 30577
737 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 1
DSKAJ1 MAC 29-Mar-78 09:40 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0030
738 030600 037 05 0 00 000002 EXIT: DROPDV ;CLOSE LOGICAL OUTPUT FILE
739 030601 000000 030600 EXIT
740
741 030602 PGMNAM: ASCIZ %
742 030602 015 012 104 105 103 DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC [DSKAJ]
743 030603 123 131 123 124 105
744 030604 115 040 062 060 062
745 030605 060 040 102 101 123
746 030606 111 103 040 111 116
747 030607 123 124 122 125 103
748 030610 124 111 117 116 040
749 030611 104 111 101 107 116
750 030612 117 123 124 111 103
751 030613 040 133 104 123 113
752 030614 101 112 135 015 012 SHIFT/ROTATE
753 030615 123 110 111 106 124
754 030616 057 122 117 124 101
755 030617 124 105 015 012 000 %
756
757 ;INITIALIZE SUBROUTINES
758
759 030620 265 00 0 00 030011 START: PGMINT
760 030621 200 00 0 00 036571 MOVE [ASCIZ/AJ/]
761 030622 202 00 0 00 036512 MOVEM TLET
762
763 030623 254 00 0 00 030624 STARTA: JRST PART2 ;GO PERFORM DIAGNOSTIC
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0031
764 SUBTTL DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC)
765
766 000001 AC=1
767 030624 PART2: SAVEAC (1,1)^
768 030624 201 03 0 00 030624 MOVEI AC+2,. ;SAVE TEST PC
769 030625 202 03 0 00 030051 MOVEM AC+2,TESTPC
770 030626 201 03 0 00 000003 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
771 030627 202 03 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
772
773 ;END CONNECTIONS-LSHC
774 ;TEST AR-MQ END BIT INPUT GATES
775 ;TEST LEFT-AR0,1,34,35 SHLT INP GATES
776 ; MQ0,1,34,35 SHLT INP GATES
777 ;TEST RIGHT-AR0,1,34,35 SHRT INP GATES
778 ; MQ0,1,34,35 SHRT INPUT GATES
779 ;AC,AC+1 ARE LOGICALLY SHIFTED LEFT/RIGHT AND
780 ;END BITS ARE TESTED
781 ;TEST ASSUMES BOTH REGISTERS ARE
782 ;CAPABLE OF SHIFTING 1,-1 AND -2 BIT POSITIONS CORRECTLY
783 ;INPUT GATES PREVIOUSLY TESTED ARE AGAIN
784 ;TESTED HERE
785 ;AN ERROR IS MOST LIKELY DUE TO FAILURE
786 ;OF LSHC TO BRING UP ENABLING LEVEL
787
788 ;SHIFT CONNECTIONS TEST
789 ;TEST MQ35 SHLT INP-ZERO'S - LSHC AC,1
790 ;TEST ABILITY TO SHIFT INTO BIT 35 OF MQ
791 SR2 (243,-1,-1,-1,-1,-1,-1,-1,-2,LSHC,1)^
792 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
793 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-1] 1 BIT POSITIONS AND
794 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND
795 ;[XWD -1,-2]
796
797 030630 200 01 0 00 036572 E24300: MOVE AC,[XWD -1,-1] ;INITIALIZE AC
798 030631 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1
799 030632 246 01 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
800 030633 312 01 0 00 036572 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT?
801 030634 003 01 0 00 024301 ER3 AC,24301 ;RESULT IN AC IS INCORRECT
802 030635 312 02 0 00 036573 CAME AC+1,[XWD -1,-2] ;IS RESULT IN AC+1 CORRECT?
803 030636 004 02 0 00 024301 ER4 AC+1,24301 ;RESULT IN AC+1 IS INCORRECT
804 030637 321 03 0 00 030630 JUMPL AC+2,E24300 ;LOOP ON ERROR SWITCH^
805
806 ;SHIFT CONNECTIONS TEST
807 ;TEST MQ34 SHLT INP-ONE'S - LSHC AC,1
808 ;TEST ABILITY TO SHIFT INTO BIT 34 OF MQ
809 SR2 (244,0,0,0,1,0,0,0,2,LSHC,1)^
810 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
811 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,1] 1 BIT POSITIONS AND
812 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
813 ;[XWD 0,2]
814
815 030640 200 01 0 00 036574 E24400: MOVE AC,[XWD 0,0] ;INITIALIZE AC
816 030641 200 02 0 00 036575 MOVE AC+1,[XWD 0,1] ;INITIALIZE AC+1
817 030642 246 01 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
818 030643 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT?
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 2-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0032
819 030644 003 01 0 00 024401 ER3 AC,24401 ;RESULT IN AC IS INCORRECT
820 030645 312 02 0 00 036576 CAME AC+1,[XWD 0,2] ;IS RESULT IN AC+1 CORRECT?
821 030646 004 02 0 00 024401 ER4 AC+1,24401 ;RESULT IN AC+1 IS INCORRECT
822 030647 321 03 0 00 030640 JUMPL AC+2,E24400 ;LOOP ON ERROR SWITCH^
823
824 ;SHIFT CONNECTIONS TEST
825 ;TEST MQ34 SHLT INP-ZERO'S - LSHC AC,1
826 ;TEST ABILITY TO SHIFT INTO BIT 34 OF MQ
827 SR2 (245,-1,-1,-1,-2,-1,-1,-1,-4,LSHC,1)^
828 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
829 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-2] 1 BIT POSITIONS AND
830 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND
831 ;[XWD -1,-4]
832
833 030650 200 01 0 00 036572 E24500: MOVE AC,[XWD -1,-1] ;INITIALIZE AC
834 030651 200 02 0 00 036573 MOVE AC+1,[XWD -1,-2] ;INITIALIZE AC+1
835 030652 246 01 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
836 030653 312 01 0 00 036572 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT?
837 030654 003 01 0 00 024501 ER3 AC,24501 ;RESULT IN AC IS INCORRECT
838 030655 312 02 0 00 036577 CAME AC+1,[XWD -1,-4] ;IS RESULT IN AC+1 CORRECT?
839 030656 004 02 0 00 024501 ER4 AC+1,24501 ;RESULT IN AC+1 IS INCORRECT
840 030657 321 03 0 00 030650 JUMPL AC+2,E24500 ;LOOP ON ERROR SWITCH^
841 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 2-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0033
842 ;SHIFT CONNECTIONS TEST
843 ;TEST MQ1 SHLT INP-ONE'S - LSHC AC,1
844 ;TEST ABILITY TO SHIFT INTO BIT 1 OF MQ
845 SR2 (246,0,0,100000,0,0,0,200000,0,LSHC,1)^
846 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
847 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 100000,0] 1 BIT POSITIONS AND
848 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
849 ;[XWD 200000,0]
850
851 030660 200 01 0 00 036574 E24600: MOVE AC,[XWD 0,0] ;INITIALIZE AC
852 030661 200 02 0 00 036600 MOVE AC+1,[XWD 100000,0] ;INITIALIZE AC+1
853 030662 246 01 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
854 030663 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT?
855 030664 003 01 0 00 024601 ER3 AC,24601 ;RESULT IN AC IS INCORRECT
856 030665 312 02 0 00 036601 CAME AC+1,[XWD 200000,0] ;IS RESULT IN AC+1 CORRECT?
857 030666 004 02 0 00 024601 ER4 AC+1,24601 ;RESULT IN AC+1 IS INCORRECT
858 030667 321 03 0 00 030660 JUMPL AC+2,E24600 ;LOOP ON ERROR SWITCH^
859
860 ;SHIFT CONNECTIONS TEST
861 ;TEST MQ1 SHLT INP-ZERO'S - LSHC AC,1
862 ;TEST ABILITY TO SHIFT INTO BIT 1 OF MQ
863 SR2 (247,-1,-1,677777,-1,-1,-1,577777,-2,LSHC,1)^
864 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
865 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD 677777,-1] 1 BIT POSITIONS AND
866 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND
867 ;[XWD 577777,-2]
868
869 030670 200 01 0 00 036572 E24700: MOVE AC,[XWD -1,-1] ;INITIALIZE AC
870 030671 200 02 0 00 036602 MOVE AC+1,[XWD 677777,-1] ;INITIALIZE AC+1
871 030672 246 01 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
872 030673 312 01 0 00 036572 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT?
873 030674 003 01 0 00 024701 ER3 AC,24701 ;RESULT IN AC IS INCORRECT
874 030675 312 02 0 00 036603 CAME AC+1,[XWD 577777,-2] ;IS RESULT IN AC+1 CORRECT?
875 030676 004 02 0 00 024701 ER4 AC+1,24701 ;RESULT IN AC+1 IS INCORRECT
876 030677 321 03 0 00 030670 JUMPL AC+2,E24700 ;LOOP ON ERROR SWITCH^
877
878 ;SHIFT CONNECTIONS TEST
879 ;TEST MQ0 SHLT INP-ONE'S - LSHC AC,1
880 ;TEST ABILITY TO SHIFT INTO BIT 0 OF MQ
881 SR2 (250,0,0,200000,0,0,0,400000,0,LSHC,1)^
882 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
883 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 200000,0] 1 BIT POSITIONS AND
884 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
885 ;[XWD 400000,0]
886
887 030700 200 01 0 00 036574 E25000: MOVE AC,[XWD 0,0] ;INITIALIZE AC
888 030701 200 02 0 00 036601 MOVE AC+1,[XWD 200000,0] ;INITIALIZE AC+1
889 030702 246 01 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
890 030703 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT?
891 030704 003 01 0 00 025001 ER3 AC,25001 ;RESULT IN AC IS INCORRECT
892 030705 312 02 0 00 036604 CAME AC+1,[XWD 400000,0] ;IS RESULT IN AC+1 CORRECT?
893 030706 004 02 0 00 025001 ER4 AC+1,25001 ;RESULT IN AC+1 IS INCORRECT
894 030707 321 03 0 00 030700 JUMPL AC+2,E25000 ;LOOP ON ERROR SWITCH^
895
896 ;SHIFT CONNECTIONS TEST
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 2-3
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0034
897 ;TEST MQ0 SHLT INP-ZERO'S - LSHC AC,1
898 ;TEST ABILITY TO SHIFT INTO BIT 0 OF MQ
899 SR2 (251,-1,-1,577777,-1,-1,-1,377777,-2,LSHC,1)^
900 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
901 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD 577777,-1] 1 BIT POSITIONS AND
902 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND
903 ;[XWD 377777,-2]
904
905 030710 200 01 0 00 036572 E25100: MOVE AC,[XWD -1,-1] ;INITIALIZE AC
906 030711 200 02 0 00 036605 MOVE AC+1,[XWD 577777,-1] ;INITIALIZE AC+1
907 030712 246 01 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
908 030713 312 01 0 00 036572 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT?
909 030714 003 01 0 00 025101 ER3 AC,25101 ;RESULT IN AC IS INCORRECT
910 030715 312 02 0 00 036606 CAME AC+1,[XWD 377777,-2] ;IS RESULT IN AC+1 CORRECT?
911 030716 004 02 0 00 025101 ER4 AC+1,25101 ;RESULT IN AC+1 IS INCORRECT
912 030717 321 03 0 00 030710 JUMPL AC+2,E25100 ;LOOP ON ERROR SWITCH^
913
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 3
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0035
914 ;SHIFT CONNECTIONS TEST
915 ;TEST AR35 SHLT INP-ONE'S - LSHC AC,1
916 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR
917 SR2 (252,0,0,400000,0,0,1,0,0,LSHC,1)^
918 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
919 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 400000,0] 1 BIT POSITIONS AND
920 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,1] AND
921 ;[XWD 0,0]
922
923 030720 200 01 0 00 036574 E25200: MOVE AC,[XWD 0,0] ;INITIALIZE AC
924 030721 200 02 0 00 036604 MOVE AC+1,[XWD 400000,0] ;INITIALIZE AC+1
925 030722 246 01 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
926 030723 312 01 0 00 036575 CAME AC,[XWD 0,1] ;IS RESULT IN AC CORRECT?
927 030724 003 01 0 00 025201 ER3 AC,25201 ;RESULT IN AC IS INCORRECT
928 030725 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT?
929 030726 004 02 0 00 025201 ER4 AC+1,25201 ;RESULT IN AC+1 IS INCORRECT
930 030727 321 03 0 00 030720 JUMPL AC+2,E25200 ;LOOP ON ERROR SWITCH^
931
932 ;SHIFT CONNECTIONS TEST
933 ;TEST AR35 SHLT INP-ZERO'S - LSHC AC,1
934 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR
935 SR2 (253,-1,-1,377777,-1,-1,-2,-1,-2,LSHC,1)^
936 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
937 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD 377777,-1] 1 BIT POSITIONS AND
938 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-2] AND
939 ;[XWD -1,-2]
940
941 030730 200 01 0 00 036572 E25300: MOVE AC,[XWD -1,-1] ;INITIALIZE AC
942 030731 200 02 0 00 036607 MOVE AC+1,[XWD 377777,-1] ;INITIALIZE AC+1
943 030732 246 01 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
944 030733 312 01 0 00 036573 CAME AC,[XWD -1,-2] ;IS RESULT IN AC CORRECT?
945 030734 003 01 0 00 025301 ER3 AC,25301 ;RESULT IN AC IS INCORRECT
946 030735 312 02 0 00 036573 CAME AC+1,[XWD -1,-2] ;IS RESULT IN AC+1 CORRECT?
947 030736 004 02 0 00 025301 ER4 AC+1,25301 ;RESULT IN AC+1 IS INCORRECT
948 030737 321 03 0 00 030730 JUMPL AC+2,E25300 ;LOOP ON ERROR SWITCH^
949
950 ;SHIFT CONNECTIONS TEST
951 ;TEST AR34 SHLT INP-ONE'S - LSHC AC,1
952 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR
953 SR2 (254,0,1,0,0,0,2,0,0,LSHC,1)^
954 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
955 ;DATA SPECIFIED IN [XWD 0,1] AND [XWD 0,0] 1 BIT POSITIONS AND
956 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,2] AND
957 ;[XWD 0,0]
958
959 030740 200 01 0 00 036575 E25400: MOVE AC,[XWD 0,1] ;INITIALIZE AC
960 030741 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1
961 030742 246 01 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
962 030743 312 01 0 00 036576 CAME AC,[XWD 0,2] ;IS RESULT IN AC CORRECT?
963 030744 003 01 0 00 025401 ER3 AC,25401 ;RESULT IN AC IS INCORRECT
964 030745 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT?
965 030746 004 02 0 00 025401 ER4 AC+1,25401 ;RESULT IN AC+1 IS INCORRECT
966 030747 321 03 0 00 030740 JUMPL AC+2,E25400 ;LOOP ON ERROR SWITCH^
967
968 ;SHIFT CONNECTIONS TEST
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 3-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0036
969 ;TEST AR34 SHLT INP-ZERO'S - LSHC AC,1
970 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR
971 SR2 (255,-1,-2,-1,-1,-1,-3,-1,-2,LSHC,1)^
972 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
973 ;DATA SPECIFIED IN [XWD -1,-2] AND [XWD -1,-1] 1 BIT POSITIONS AND
974 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-3] AND
975 ;[XWD -1,-2]
976
977 030750 200 01 0 00 036573 E25500: MOVE AC,[XWD -1,-2] ;INITIALIZE AC
978 030751 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1
979 030752 246 01 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
980 030753 312 01 0 00 036610 CAME AC,[XWD -1,-3] ;IS RESULT IN AC CORRECT?
981 030754 003 01 0 00 025501 ER3 AC,25501 ;RESULT IN AC IS INCORRECT
982 030755 312 02 0 00 036573 CAME AC+1,[XWD -1,-2] ;IS RESULT IN AC+1 CORRECT?
983 030756 004 02 0 00 025501 ER4 AC+1,25501 ;RESULT IN AC+1 IS INCORRECT
984 030757 321 03 0 00 030750 JUMPL AC+2,E25500 ;LOOP ON ERROR SWITCH^
985 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 3-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0037
986 ;SHIFT CONNECTIONS TEST
987 ;TEST AR1 SHLT INP-ONE'S - LSHC AC,1
988 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR
989 SR2 (256,100000,0,0,0,200000,0,0,0,LSHC,1)^
990 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
991 ;DATA SPECIFIED IN [XWD 100000,0] AND [XWD 0,0] 1 BIT POSITIONS AND
992 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 200000,0] AND
993 ;[XWD 0,0]
994
995 030760 200 01 0 00 036600 E25600: MOVE AC,[XWD 100000,0] ;INITIALIZE AC
996 030761 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1
997 030762 246 01 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
998 030763 312 01 0 00 036601 CAME AC,[XWD 200000,0] ;IS RESULT IN AC CORRECT?
999 030764 003 01 0 00 025601 ER3 AC,25601 ;RESULT IN AC IS INCORRECT
1000 030765 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT?
1001 030766 004 02 0 00 025601 ER4 AC+1,25601 ;RESULT IN AC+1 IS INCORRECT
1002 030767 321 03 0 00 030760 JUMPL AC+2,E25600 ;LOOP ON ERROR SWITCH^
1003
1004 ;SHIFT CONNECTIONS TEST
1005 ;TEST AR1 SHLT INP-ZERO'S - LSHC AC,1
1006 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR
1007 SR2 (257,677777,-1,-1,-1,577777,-1,-1,-2,LSHC,1)^
1008 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1009 ;DATA SPECIFIED IN [XWD 677777,-1] AND [XWD -1,-1] 1 BIT POSITIONS AND
1010 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 577777,-1] AND
1011 ;[XWD -1,-2]
1012
1013 030770 200 01 0 00 036602 E25700: MOVE AC,[XWD 677777,-1] ;INITIALIZE AC
1014 030771 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1
1015 030772 246 01 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
1016 030773 312 01 0 00 036605 CAME AC,[XWD 577777,-1] ;IS RESULT IN AC CORRECT?
1017 030774 003 01 0 00 025701 ER3 AC,25701 ;RESULT IN AC IS INCORRECT
1018 030775 312 02 0 00 036573 CAME AC+1,[XWD -1,-2] ;IS RESULT IN AC+1 CORRECT?
1019 030776 004 02 0 00 025701 ER4 AC+1,25701 ;RESULT IN AC+1 IS INCORRECT
1020 030777 321 03 0 00 030770 JUMPL AC+2,E25700 ;LOOP ON ERROR SWITCH^
1021
1022 ;SHIFT CONNECTIONS TEST
1023 ;TEST AR0 SHLT INP-ONE'S - LSHC AC,1
1024 ;TEST ABILITY TO SHIFT INTO BIT 0 OF AR
1025 SR2 (260,200000,0,0,0,400000,0,0,0,LSHC,1)^
1026 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1027 ;DATA SPECIFIED IN [XWD 200000,0] AND [XWD 0,0] 1 BIT POSITIONS AND
1028 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 400000,0] AND
1029 ;[XWD 0,0]
1030
1031 031000 200 01 0 00 036601 E26000: MOVE AC,[XWD 200000,0] ;INITIALIZE AC
1032 031001 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1
1033 031002 246 01 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
1034 031003 312 01 0 00 036604 CAME AC,[XWD 400000,0] ;IS RESULT IN AC CORRECT?
1035 031004 003 01 0 00 026001 ER3 AC,26001 ;RESULT IN AC IS INCORRECT
1036 031005 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT?
1037 031006 004 02 0 00 026001 ER4 AC+1,26001 ;RESULT IN AC+1 IS INCORRECT
1038 031007 321 03 0 00 031000 JUMPL AC+2,E26000 ;LOOP ON ERROR SWITCH^
1039
1040 ;SHIFT CONNECTIONS TEST
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 3-3
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0038
1041 ;TEST AR0 SHLT INP-ZERO'S - LSHC AC,1
1042 ;TEST ABILITY TO SHIFT INTO BIT 0 OF AR
1043 SR2 (261,577777,-1,-1,-1,377777,-1,-1,-2,LSHC,1)^
1044 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1045 ;DATA SPECIFIED IN [XWD 577777,-1] AND [XWD -1,-1] 1 BIT POSITIONS AND
1046 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 377777,-1] AND
1047 ;[XWD -1,-2]
1048
1049 031010 200 01 0 00 036605 E26100: MOVE AC,[XWD 577777,-1] ;INITIALIZE AC
1050 031011 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1
1051 031012 246 01 0 00 000001 LSHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
1052 031013 312 01 0 00 036607 CAME AC,[XWD 377777,-1] ;IS RESULT IN AC CORRECT?
1053 031014 003 01 0 00 026101 ER3 AC,26101 ;RESULT IN AC IS INCORRECT
1054 031015 312 02 0 00 036573 CAME AC+1,[XWD -1,-2] ;IS RESULT IN AC+1 CORRECT?
1055 031016 004 02 0 00 026101 ER4 AC+1,26101 ;RESULT IN AC+1 IS INCORRECT
1056 031017 321 03 0 00 031010 JUMPL AC+2,E26100 ;LOOP ON ERROR SWITCH^
1057
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 4
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0039
1058 ;SHIFT CONNECTIONS TEST
1059 ;TEST AR0 SHRT INP-ZERO'S - LSHC AC,-1
1060 ;TEST ABILITY TO SHIFT INTO BIT 0 OF AR
1061 SR2 (262,-1,-1,-1,-1,377777,-1,-1,-1,LSHC,-1)^
1062 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1063 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-1] -1 BIT POSITIONS AND
1064 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 377777,-1] AND
1065 ;[XWD -1,-1]
1066
1067 031020 200 01 0 00 036572 E26200: MOVE AC,[XWD -1,-1] ;INITIALIZE AC
1068 031021 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1
1069 031022 246 01 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
1070 031023 312 01 0 00 036607 CAME AC,[XWD 377777,-1] ;IS RESULT IN AC CORRECT?
1071 031024 003 01 0 00 026201 ER3 AC,26201 ;RESULT IN AC IS INCORRECT
1072 031025 312 02 0 00 036572 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT?
1073 031026 004 02 0 00 026201 ER4 AC+1,26201 ;RESULT IN AC+1 IS INCORRECT
1074 031027 321 03 0 00 031020 JUMPL AC+2,E26200 ;LOOP ON ERROR SWITCH^
1075
1076 ;SHIFT CONNECTIONS TEST
1077 ;TEST AR1 SHRT INP-ONE'S - LSHC AC,-1
1078 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR
1079 SR2 (263,400000,0,0,0,200000,0,0,0,LSHC,-1)^
1080 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1081 ;DATA SPECIFIED IN [XWD 400000,0] AND [XWD 0,0] -1 BIT POSITIONS AND
1082 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 200000,0] AND
1083 ;[XWD 0,0]
1084
1085 031030 200 01 0 00 036604 E26300: MOVE AC,[XWD 400000,0] ;INITIALIZE AC
1086 031031 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1
1087 031032 246 01 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
1088 031033 312 01 0 00 036601 CAME AC,[XWD 200000,0] ;IS RESULT IN AC CORRECT?
1089 031034 003 01 0 00 026301 ER3 AC,26301 ;RESULT IN AC IS INCORRECT
1090 031035 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT?
1091 031036 004 02 0 00 026301 ER4 AC+1,26301 ;RESULT IN AC+1 IS INCORRECT
1092 031037 321 03 0 00 031030 JUMPL AC+2,E26300 ;LOOP ON ERROR SWITCH^
1093
1094 ;SHIFT CONNECTIONS TEST
1095 ;TEST AR1 SHRT INP-ZERO'S - LSHC AC,-1
1096 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR
1097 SR2 (264,377777,-1,-1,-1,177777,-1,-1,-1,LSHC,-1)^
1098 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1099 ;DATA SPECIFIED IN [XWD 377777,-1] AND [XWD -1,-1] -1 BIT POSITIONS AND
1100 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 177777,-1] AND
1101 ;[XWD -1,-1]
1102
1103 031040 200 01 0 00 036607 E26400: MOVE AC,[XWD 377777,-1] ;INITIALIZE AC
1104 031041 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1
1105 031042 246 01 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
1106 031043 312 01 0 00 036611 CAME AC,[XWD 177777,-1] ;IS RESULT IN AC CORRECT?
1107 031044 003 01 0 00 026401 ER3 AC,26401 ;RESULT IN AC IS INCORRECT
1108 031045 312 02 0 00 036572 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT?
1109 031046 004 02 0 00 026401 ER4 AC+1,26401 ;RESULT IN AC+1 IS INCORRECT
1110 031047 321 03 0 00 031040 JUMPL AC+2,E26400 ;LOOP ON ERROR SWITCH^
1111
1112 ;SHIFT CONNECTIONS TEST
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 4-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0040
1113 ;TEST AR34 SHRT INP-ONE'S - LSHC AC,-1
1114 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR
1115 SR2 (265,0,4,0,0,0,2,0,0,LSHC,-1)^
1116 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1117 ;DATA SPECIFIED IN [XWD 0,4] AND [XWD 0,0] -1 BIT POSITIONS AND
1118 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,2] AND
1119 ;[XWD 0,0]
1120
1121 031050 200 01 0 00 036612 E26500: MOVE AC,[XWD 0,4] ;INITIALIZE AC
1122 031051 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1
1123 031052 246 01 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
1124 031053 312 01 0 00 036576 CAME AC,[XWD 0,2] ;IS RESULT IN AC CORRECT?
1125 031054 003 01 0 00 026501 ER3 AC,26501 ;RESULT IN AC IS INCORRECT
1126 031055 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT?
1127 031056 004 02 0 00 026501 ER4 AC+1,26501 ;RESULT IN AC+1 IS INCORRECT
1128 031057 321 03 0 00 031050 JUMPL AC+2,E26500 ;LOOP ON ERROR SWITCH^
1129 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 4-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0041
1130 ;SHIFT CONNECTIONS TEST
1131 ;TEST AR34 SHRT INP-ZERO'S - LSHC AC,-1
1132 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR
1133 SR2 (266,-1,-5,-1,-1,377777,-3,-1,-1,LSHC,-1)^
1134 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1135 ;DATA SPECIFIED IN [XWD -1,-5] AND [XWD -1,-1] -1 BIT POSITIONS AND
1136 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 377777,-3] AND
1137 ;[XWD -1,-1]
1138
1139 031060 200 01 0 00 036613 E26600: MOVE AC,[XWD -1,-5] ;INITIALIZE AC
1140 031061 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1
1141 031062 246 01 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
1142 031063 312 01 0 00 036614 CAME AC,[XWD 377777,-3] ;IS RESULT IN AC CORRECT?
1143 031064 003 01 0 00 026601 ER3 AC,26601 ;RESULT IN AC IS INCORRECT
1144 031065 312 02 0 00 036572 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT?
1145 031066 004 02 0 00 026601 ER4 AC+1,26601 ;RESULT IN AC+1 IS INCORRECT
1146 031067 321 03 0 00 031060 JUMPL AC+2,E26600 ;LOOP ON ERROR SWITCH^
1147
1148 ;SHIFT CONNECTIONS TEST
1149 ;TEST AR35 SHRT INP-ONE'S - LSHC AC,-1
1150 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR
1151 SR2 (267,0,2,0,0,0,1,0,0,LSHC,-1)^
1152 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1153 ;DATA SPECIFIED IN [XWD 0,2] AND [XWD 0,0] -1 BIT POSITIONS AND
1154 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,1] AND
1155 ;[XWD 0,0]
1156
1157 031070 200 01 0 00 036576 E26700: MOVE AC,[XWD 0,2] ;INITIALIZE AC
1158 031071 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1
1159 031072 246 01 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
1160 031073 312 01 0 00 036575 CAME AC,[XWD 0,1] ;IS RESULT IN AC CORRECT?
1161 031074 003 01 0 00 026701 ER3 AC,26701 ;RESULT IN AC IS INCORRECT
1162 031075 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT?
1163 031076 004 02 0 00 026701 ER4 AC+1,26701 ;RESULT IN AC+1 IS INCORRECT
1164 031077 321 03 0 00 031070 JUMPL AC+2,E26700 ;LOOP ON ERROR SWITCH^
1165
1166 ;SHIFT CONNECTIONS TEST
1167 ;TEST AR35 SHRT INP-ZERO'S - LSHC AC,-1
1168 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR
1169 SR2 (270,-1,-3,-1,-1,377777,-2,-1,-1,LSHC,-1)^
1170 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1171 ;DATA SPECIFIED IN [XWD -1,-3] AND [XWD -1,-1] -1 BIT POSITIONS AND
1172 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 377777,-2] AND
1173 ;[XWD -1,-1]
1174
1175 031100 200 01 0 00 036610 E27000: MOVE AC,[XWD -1,-3] ;INITIALIZE AC
1176 031101 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1
1177 031102 246 01 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
1178 031103 312 01 0 00 036606 CAME AC,[XWD 377777,-2] ;IS RESULT IN AC CORRECT?
1179 031104 003 01 0 00 027001 ER3 AC,27001 ;RESULT IN AC IS INCORRECT
1180 031105 312 02 0 00 036572 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT?
1181 031106 004 02 0 00 027001 ER4 AC+1,27001 ;RESULT IN AC+1 IS INCORRECT
1182 031107 321 03 0 00 031100 JUMPL AC+2,E27000 ;LOOP ON ERROR SWITCH^
1183
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 5
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0042
1184 ;SHIFT CONNECTIONS TEST
1185 ;TEST MQ0 SHRT INP-ONE'S - LSHC AC,-1
1186 ;TEST ABILITY TO SHIFT INTO BIT 0 OF MQ
1187 SR2 (271,0,1,0,0,0,0,400000,0,LSHC,-1)^
1188 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1189 ;DATA SPECIFIED IN [XWD 0,1] AND [XWD 0,0] -1 BIT POSITIONS AND
1190 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
1191 ;[XWD 400000,0]
1192
1193 031110 200 01 0 00 036575 E27100: MOVE AC,[XWD 0,1] ;INITIALIZE AC
1194 031111 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1
1195 031112 246 01 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
1196 031113 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT?
1197 031114 003 01 0 00 027101 ER3 AC,27101 ;RESULT IN AC IS INCORRECT
1198 031115 312 02 0 00 036604 CAME AC+1,[XWD 400000,0] ;IS RESULT IN AC+1 CORRECT?
1199 031116 004 02 0 00 027101 ER4 AC+1,27101 ;RESULT IN AC+1 IS INCORRECT
1200 031117 321 03 0 00 031110 JUMPL AC+2,E27100 ;LOOP ON ERROR SWITCH^
1201
1202 ;SHIFT CONNECTIONS TEST
1203 ;TEST MQ0 SHRT INP-ZERO'S - LSHC AC,-1
1204 ;TEST ABILITY TO SHIFT INTO BIT 0 OF MQ
1205 SR2 (272,-1,-2,-1,-1,377777,-1,377777,-1,LSHC,-1)^
1206 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1207 ;DATA SPECIFIED IN [XWD -1,-2] AND [XWD -1,-1] -1 BIT POSITIONS AND
1208 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 377777,-1] AND
1209 ;[XWD 377777,-1]
1210
1211 031120 200 01 0 00 036573 E27200: MOVE AC,[XWD -1,-2] ;INITIALIZE AC
1212 031121 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1
1213 031122 246 01 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
1214 031123 312 01 0 00 036607 CAME AC,[XWD 377777,-1] ;IS RESULT IN AC CORRECT?
1215 031124 003 01 0 00 027201 ER3 AC,27201 ;RESULT IN AC IS INCORRECT
1216 031125 312 02 0 00 036607 CAME AC+1,[XWD 377777,-1] ;IS RESULT IN AC+1 CORRECT?
1217 031126 004 02 0 00 027201 ER4 AC+1,27201 ;RESULT IN AC+1 IS INCORRECT
1218 031127 321 03 0 00 031120 JUMPL AC+2,E27200 ;LOOP ON ERROR SWITCH^
1219
1220 ;SHIFT CONNECTIONS TEST
1221 ;TEST MQ1 SHRT INP-ONE'S - LSHC AC,-1
1222 ;TEST ABILITY TO SHIFT INTO BIT 1 OF MQ
1223 SR2 (273,0,0,400000,0,0,0,200000,0,LSHC,-1)^
1224 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1225 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 400000,0] -1 BIT POSITIONS AND
1226 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
1227 ;[XWD 200000,0]
1228
1229 031130 200 01 0 00 036574 E27300: MOVE AC,[XWD 0,0] ;INITIALIZE AC
1230 031131 200 02 0 00 036604 MOVE AC+1,[XWD 400000,0] ;INITIALIZE AC+1
1231 031132 246 01 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
1232 031133 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT?
1233 031134 003 01 0 00 027301 ER3 AC,27301 ;RESULT IN AC IS INCORRECT
1234 031135 312 02 0 00 036601 CAME AC+1,[XWD 200000,0] ;IS RESULT IN AC+1 CORRECT?
1235 031136 004 02 0 00 027301 ER4 AC+1,27301 ;RESULT IN AC+1 IS INCORRECT
1236 031137 321 03 0 00 031130 JUMPL AC+2,E27300 ;LOOP ON ERROR SWITCH^
1237
1238 ;SHIFT CONNECTIONS TEST
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 5-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0043
1239 ;TEST MQ1 SHRT INP-ZERO'S - LSHC AC,-1
1240 ;TEST ABILITY TO SHIFT INTO BIT 1 OF MQ
1241 SR2 (274,-1,-1,377777,-1,377777,-1,577777,-1,LSHC,-1)^
1242 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1243 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD 377777,-1] -1 BIT POSITIONS AND
1244 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 377777,-1] AND
1245 ;[XWD 577777,-1]
1246
1247 031140 200 01 0 00 036572 E27400: MOVE AC,[XWD -1,-1] ;INITIALIZE AC
1248 031141 200 02 0 00 036607 MOVE AC+1,[XWD 377777,-1] ;INITIALIZE AC+1
1249 031142 246 01 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
1250 031143 312 01 0 00 036607 CAME AC,[XWD 377777,-1] ;IS RESULT IN AC CORRECT?
1251 031144 003 01 0 00 027401 ER3 AC,27401 ;RESULT IN AC IS INCORRECT
1252 031145 312 02 0 00 036605 CAME AC+1,[XWD 577777,-1] ;IS RESULT IN AC+1 CORRECT?
1253 031146 004 02 0 00 027401 ER4 AC+1,27401 ;RESULT IN AC+1 IS INCORRECT
1254 031147 321 03 0 00 031140 JUMPL AC+2,E27400 ;LOOP ON ERROR SWITCH^
1255 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 5-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0044
1256 ;SHIFT CONNECTIONS TEST
1257 ;TEST MQ34 SHRT INP-ONE'S - LSHC AC,-1
1258 ;TEST ABILITY TO SHIFT INTO BIT 34 OF MQ
1259 SR2 (275,0,0,0,4,0,0,0,2,LSHC,-1)^
1260 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1261 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,4] -1 BIT POSITIONS AND
1262 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
1263 ;[XWD 0,2]
1264
1265 031150 200 01 0 00 036574 E27500: MOVE AC,[XWD 0,0] ;INITIALIZE AC
1266 031151 200 02 0 00 036612 MOVE AC+1,[XWD 0,4] ;INITIALIZE AC+1
1267 031152 246 01 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
1268 031153 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT?
1269 031154 003 01 0 00 027501 ER3 AC,27501 ;RESULT IN AC IS INCORRECT
1270 031155 312 02 0 00 036576 CAME AC+1,[XWD 0,2] ;IS RESULT IN AC+1 CORRECT?
1271 031156 004 02 0 00 027501 ER4 AC+1,27501 ;RESULT IN AC+1 IS INCORRECT
1272 031157 321 03 0 00 031150 JUMPL AC+2,E27500 ;LOOP ON ERROR SWITCH^
1273
1274 ;SHIFT CONNECTIONS TEST
1275 ;TEST MQ34 SHRT INP-ZERO'S - LSHC AC,-1
1276 ;TEST ABILITY TO SHIFT INTO BIT 34 OF MQ
1277 SR2 (276,-1,-1,-1,-5,377777,-1,-1,-3,LSHC,-1)^
1278 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1279 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-5] -1 BIT POSITIONS AND
1280 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 377777,-1] AND
1281 ;[XWD -1,-3]
1282
1283 031160 200 01 0 00 036572 E27600: MOVE AC,[XWD -1,-1] ;INITIALIZE AC
1284 031161 200 02 0 00 036613 MOVE AC+1,[XWD -1,-5] ;INITIALIZE AC+1
1285 031162 246 01 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
1286 031163 312 01 0 00 036607 CAME AC,[XWD 377777,-1] ;IS RESULT IN AC CORRECT?
1287 031164 003 01 0 00 027601 ER3 AC,27601 ;RESULT IN AC IS INCORRECT
1288 031165 312 02 0 00 036610 CAME AC+1,[XWD -1,-3] ;IS RESULT IN AC+1 CORRECT?
1289 031166 004 02 0 00 027601 ER4 AC+1,27601 ;RESULT IN AC+1 IS INCORRECT
1290 031167 321 03 0 00 031160 JUMPL AC+2,E27600 ;LOOP ON ERROR SWITCH^
1291
1292 ;SHIFT CONNECTIONS TEST
1293 ;TEST MQ35 SHRT INP-ONE'S - LSHC AC,-1
1294 ;TEST ABILITY TO SHIFT INTO BIT 35 OF MQ
1295 SR2 (277,0,0,0,2,0,0,0,1,LSHC,-1)^
1296 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1297 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,2] -1 BIT POSITIONS AND
1298 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
1299 ;[XWD 0,1]
1300
1301 031170 200 01 0 00 036574 E27700: MOVE AC,[XWD 0,0] ;INITIALIZE AC
1302 031171 200 02 0 00 036576 MOVE AC+1,[XWD 0,2] ;INITIALIZE AC+1
1303 031172 246 01 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
1304 031173 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT?
1305 031174 003 01 0 00 027701 ER3 AC,27701 ;RESULT IN AC IS INCORRECT
1306 031175 312 02 0 00 036575 CAME AC+1,[XWD 0,1] ;IS RESULT IN AC+1 CORRECT?
1307 031176 004 02 0 00 027701 ER4 AC+1,27701 ;RESULT IN AC+1 IS INCORRECT
1308 031177 321 03 0 00 031170 JUMPL AC+2,E27700 ;LOOP ON ERROR SWITCH^
1309
1310 ;SHIFT CONNECTIONS TEST
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 5-3
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0045
1311 ;TEST MQ35 SHRT INP-ZERO'S - LSHC AC,-1
1312 ;TEST ABILITY TO SHIFT INTO BIT 35 OF MQ
1313 SR2 (300,-1,-1,-1,-3,377777,-1,-1,-2,LSHC,-1)^
1314 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1315 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-3] -1 BIT POSITIONS AND
1316 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 377777,-1] AND
1317 ;[XWD -1,-2]
1318
1319 031200 200 01 0 00 036572 E30000: MOVE AC,[XWD -1,-1] ;INITIALIZE AC
1320 031201 200 02 0 00 036610 MOVE AC+1,[XWD -1,-3] ;INITIALIZE AC+1
1321 031202 246 01 0 00 777777 LSHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
1322 031203 312 01 0 00 036607 CAME AC,[XWD 377777,-1] ;IS RESULT IN AC CORRECT?
1323 031204 003 01 0 00 030001 ER3 AC,30001 ;RESULT IN AC IS INCORRECT
1324 031205 312 02 0 00 036573 CAME AC+1,[XWD -1,-2] ;IS RESULT IN AC+1 CORRECT?
1325 031206 004 02 0 00 030001 ER4 AC+1,30001 ;RESULT IN AC+1 IS INCORRECT
1326 031207 321 03 0 00 031200 JUMPL AC+2,E30000 ;LOOP ON ERROR SWITCH^
1327
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 6
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0046
1328 ;SHIFT CONNECTIONS TEST
1329 ;TEST AR0 SHRT INP-ZERO'S - LSHC AC,-2
1330 ;TEST ABILITY TO SHIFT INTO BIT 0 OF AR
1331 SR2 (301,-1,-1,-1,-1,177777,-1,-1,-1,LSHC,-2)^
1332 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1333 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-1] -2 BIT POSITIONS AND
1334 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 177777,-1] AND
1335 ;[XWD -1,-1]
1336
1337 031210 200 01 0 00 036572 E30100: MOVE AC,[XWD -1,-1] ;INITIALIZE AC
1338 031211 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1
1339 031212 246 01 0 00 777776 LSHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
1340 031213 312 01 0 00 036611 CAME AC,[XWD 177777,-1] ;IS RESULT IN AC CORRECT?
1341 031214 003 01 0 00 030101 ER3 AC,30101 ;RESULT IN AC IS INCORRECT
1342 031215 312 02 0 00 036572 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT?
1343 031216 004 02 0 00 030101 ER4 AC+1,30101 ;RESULT IN AC+1 IS INCORRECT
1344 031217 321 03 0 00 031210 JUMPL AC+2,E30100 ;LOOP ON ERROR SWITCH^
1345
1346 ;SHIFT CONNECTIONS TEST
1347 ;TEST AR1 SHRT INP-ZERO'S - LSHC AC,-2
1348 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR
1349 SR2 (302,-1,-1,-1,-1,177777,-1,-1,-1,LSHC,-2)^
1350 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1351 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-1] -2 BIT POSITIONS AND
1352 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 177777,-1] AND
1353 ;[XWD -1,-1]
1354
1355 031220 200 01 0 00 036572 E30200: MOVE AC,[XWD -1,-1] ;INITIALIZE AC
1356 031221 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1
1357 031222 246 01 0 00 777776 LSHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
1358 031223 312 01 0 00 036611 CAME AC,[XWD 177777,-1] ;IS RESULT IN AC CORRECT?
1359 031224 003 01 0 00 030201 ER3 AC,30201 ;RESULT IN AC IS INCORRECT
1360 031225 312 02 0 00 036572 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT?
1361 031226 004 02 0 00 030201 ER4 AC+1,30201 ;RESULT IN AC+1 IS INCORRECT
1362 031227 321 03 0 00 031220 JUMPL AC+2,E30200 ;LOOP ON ERROR SWITCH^
1363
1364 ;SHIFT CONNECTIONS TEST
1365 ;TEST AR34 SHRT INP-ONE'S - LSHC AC,-2
1366 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR
1367 SR2 (303,0,10,0,0,0,2,0,0,LSHC,-2)^
1368 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1369 ;DATA SPECIFIED IN [XWD 0,10] AND [XWD 0,0] -2 BIT POSITIONS AND
1370 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,2] AND
1371 ;[XWD 0,0]
1372
1373 031230 200 01 0 00 036615 E30300: MOVE AC,[XWD 0,10] ;INITIALIZE AC
1374 031231 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1
1375 031232 246 01 0 00 777776 LSHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
1376 031233 312 01 0 00 036576 CAME AC,[XWD 0,2] ;IS RESULT IN AC CORRECT?
1377 031234 003 01 0 00 030301 ER3 AC,30301 ;RESULT IN AC IS INCORRECT
1378 031235 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT?
1379 031236 004 02 0 00 030301 ER4 AC+1,30301 ;RESULT IN AC+1 IS INCORRECT
1380 031237 321 03 0 00 031230 JUMPL AC+2,E30300 ;LOOP ON ERROR SWITCH^
1381 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 6-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0047
1382 ;SHIFT CONNECTIONS TEST
1383 ;TEST AR34 SHRT INP-ZERO'S - LSHC AC,-2
1384 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR
1385 SR2 (304,-1,-11,-1,-1,177777,-3,-1,-1,LSHC,-2)^
1386 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1387 ;DATA SPECIFIED IN [XWD -1,-11] AND [XWD -1,-1] -2 BIT POSITIONS AND
1388 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 177777,-3] AND
1389 ;[XWD -1,-1]
1390
1391 031240 200 01 0 00 036616 E30400: MOVE AC,[XWD -1,-11] ;INITIALIZE AC
1392 031241 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1
1393 031242 246 01 0 00 777776 LSHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
1394 031243 312 01 0 00 036617 CAME AC,[XWD 177777,-3] ;IS RESULT IN AC CORRECT?
1395 031244 003 01 0 00 030401 ER3 AC,30401 ;RESULT IN AC IS INCORRECT
1396 031245 312 02 0 00 036572 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT?
1397 031246 004 02 0 00 030401 ER4 AC+1,30401 ;RESULT IN AC+1 IS INCORRECT
1398 031247 321 03 0 00 031240 JUMPL AC+2,E30400 ;LOOP ON ERROR SWITCH^
1399
1400 ;SHIFT CONNECTIONS TEST
1401 ;TEST AR35 SHRT INP-ONE'S - LSHC AC,-2
1402 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR
1403 SR2 (305,0,4,0,0,0,1,0,0,LSHC,-2)^
1404 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1405 ;DATA SPECIFIED IN [XWD 0,4] AND [XWD 0,0] -2 BIT POSITIONS AND
1406 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,1] AND
1407 ;[XWD 0,0]
1408
1409 031250 200 01 0 00 036612 E30500: MOVE AC,[XWD 0,4] ;INITIALIZE AC
1410 031251 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1
1411 031252 246 01 0 00 777776 LSHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
1412 031253 312 01 0 00 036575 CAME AC,[XWD 0,1] ;IS RESULT IN AC CORRECT?
1413 031254 003 01 0 00 030501 ER3 AC,30501 ;RESULT IN AC IS INCORRECT
1414 031255 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT?
1415 031256 004 02 0 00 030501 ER4 AC+1,30501 ;RESULT IN AC+1 IS INCORRECT
1416 031257 321 03 0 00 031250 JUMPL AC+2,E30500 ;LOOP ON ERROR SWITCH^
1417
1418 ;SHIFT CONNECTIONS TEST
1419 ;TEST AR35 SHRT INP-ZERO'S - LSHC AC,-2
1420 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR
1421 SR2 (306,-1,-5,-1,-1,177777,-2,-1,-1,LSHC,-2)^
1422 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1423 ;DATA SPECIFIED IN [XWD -1,-5] AND [XWD -1,-1] -2 BIT POSITIONS AND
1424 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 177777,-2] AND
1425 ;[XWD -1,-1]
1426
1427 031260 200 01 0 00 036613 E30600: MOVE AC,[XWD -1,-5] ;INITIALIZE AC
1428 031261 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1
1429 031262 246 01 0 00 777776 LSHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
1430 031263 312 01 0 00 036620 CAME AC,[XWD 177777,-2] ;IS RESULT IN AC CORRECT?
1431 031264 003 01 0 00 030601 ER3 AC,30601 ;RESULT IN AC IS INCORRECT
1432 031265 312 02 0 00 036572 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT?
1433 031266 004 02 0 00 030601 ER4 AC+1,30601 ;RESULT IN AC+1 IS INCORRECT
1434 031267 321 03 0 00 031260 JUMPL AC+2,E30600 ;LOOP ON ERROR SWITCH^
1435
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 7
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0048
1436 ;SHIFT CONNECTIONS TEST
1437 ;TEST MQ0 SHRT INP-ONE'S - LSHC AC,-2
1438 ;TEST ABILITY TO SHIFT INTO BIT 0 OF MQ
1439 SR2 (307,0,2,0,0,0,0,400000,0,LSHC,-2)^
1440 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1441 ;DATA SPECIFIED IN [XWD 0,2] AND [XWD 0,0] -2 BIT POSITIONS AND
1442 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
1443 ;[XWD 400000,0]
1444
1445 031270 200 01 0 00 036576 E30700: MOVE AC,[XWD 0,2] ;INITIALIZE AC
1446 031271 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1
1447 031272 246 01 0 00 777776 LSHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
1448 031273 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT?
1449 031274 003 01 0 00 030701 ER3 AC,30701 ;RESULT IN AC IS INCORRECT
1450 031275 312 02 0 00 036604 CAME AC+1,[XWD 400000,0] ;IS RESULT IN AC+1 CORRECT?
1451 031276 004 02 0 00 030701 ER4 AC+1,30701 ;RESULT IN AC+1 IS INCORRECT
1452 031277 321 03 0 00 031270 JUMPL AC+2,E30700 ;LOOP ON ERROR SWITCH^
1453
1454 ;SHIFT CONNECTIONS TEST
1455 ;TEST MQ0 SHRT INP-ZERO'S - LSHC AC,-2
1456 ;TEST ABILITY TO SHIFT INTO BIT 0 OF MQ
1457 SR2 (310,-1,-3,-1,-1,177777,-1,377777,-1,LSHC,-2)^
1458 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1459 ;DATA SPECIFIED IN [XWD -1,-3] AND [XWD -1,-1] -2 BIT POSITIONS AND
1460 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 177777,-1] AND
1461 ;[XWD 377777,-1]
1462
1463 031300 200 01 0 00 036610 E31000: MOVE AC,[XWD -1,-3] ;INITIALIZE AC
1464 031301 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1
1465 031302 246 01 0 00 777776 LSHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
1466 031303 312 01 0 00 036611 CAME AC,[XWD 177777,-1] ;IS RESULT IN AC CORRECT?
1467 031304 003 01 0 00 031001 ER3 AC,31001 ;RESULT IN AC IS INCORRECT
1468 031305 312 02 0 00 036607 CAME AC+1,[XWD 377777,-1] ;IS RESULT IN AC+1 CORRECT?
1469 031306 004 02 0 00 031001 ER4 AC+1,31001 ;RESULT IN AC+1 IS INCORRECT
1470 031307 321 03 0 00 031300 JUMPL AC+2,E31000 ;LOOP ON ERROR SWITCH^
1471
1472 ;SHIFT CONNECTIONS TEST
1473 ;TEST MQ1 SHRT INP-ONE'S - LSHC AC,-2
1474 ;TEST ABILITY TO SHIFT INTO BIT 1 OF MQ
1475 SR2 (311,0,1,0,0,0,0,200000,0,LSHC,-2)^
1476 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1477 ;DATA SPECIFIED IN [XWD 0,1] AND [XWD 0,0] -2 BIT POSITIONS AND
1478 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
1479 ;[XWD 200000,0]
1480
1481 031310 200 01 0 00 036575 E31100: MOVE AC,[XWD 0,1] ;INITIALIZE AC
1482 031311 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1
1483 031312 246 01 0 00 777776 LSHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
1484 031313 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT?
1485 031314 003 01 0 00 031101 ER3 AC,31101 ;RESULT IN AC IS INCORRECT
1486 031315 312 02 0 00 036601 CAME AC+1,[XWD 200000,0] ;IS RESULT IN AC+1 CORRECT?
1487 031316 004 02 0 00 031101 ER4 AC+1,31101 ;RESULT IN AC+1 IS INCORRECT
1488 031317 321 03 0 00 031310 JUMPL AC+2,E31100 ;LOOP ON ERROR SWITCH^
1489
1490 ;SHIFT CONNECTIONS TEST
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 7-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0049
1491 ;TEST MQ1 SHRT INP-ZERO'S - LSHC AC,-2
1492 ;TEST ABILITY TO SHIFT INTO BIT 1 OF MQ
1493 SR2 (312,-1,-2,-1,-1,177777,-1,577777,-1,LSHC,-2)^
1494 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1495 ;DATA SPECIFIED IN [XWD -1,-2] AND [XWD -1,-1] -2 BIT POSITIONS AND
1496 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 177777,-1] AND
1497 ;[XWD 577777,-1]
1498
1499 031320 200 01 0 00 036573 E31200: MOVE AC,[XWD -1,-2] ;INITIALIZE AC
1500 031321 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1
1501 031322 246 01 0 00 777776 LSHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
1502 031323 312 01 0 00 036611 CAME AC,[XWD 177777,-1] ;IS RESULT IN AC CORRECT?
1503 031324 003 01 0 00 031201 ER3 AC,31201 ;RESULT IN AC IS INCORRECT
1504 031325 312 02 0 00 036605 CAME AC+1,[XWD 577777,-1] ;IS RESULT IN AC+1 CORRECT?
1505 031326 004 02 0 00 031201 ER4 AC+1,31201 ;RESULT IN AC+1 IS INCORRECT
1506 031327 321 03 0 00 031320 JUMPL AC+2,E31200 ;LOOP ON ERROR SWITCH^
1507 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 7-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0050
1508 ;SHIFT CONNECTIONS TEST
1509 ;TEST MQ34 SHRT INP-ONE'S - LSHC AC,-2
1510 ;TEST ABILITY TO SHIFT INTO BIT 34 OF MQ
1511 SR2 (313,0,0,0,10,0,0,0,2,LSHC,-2)^
1512 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1513 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,10] -2 BIT POSITIONS AND
1514 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
1515 ;[XWD 0,2]
1516
1517 031330 200 01 0 00 036574 E31300: MOVE AC,[XWD 0,0] ;INITIALIZE AC
1518 031331 200 02 0 00 036615 MOVE AC+1,[XWD 0,10] ;INITIALIZE AC+1
1519 031332 246 01 0 00 777776 LSHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
1520 031333 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT?
1521 031334 003 01 0 00 031301 ER3 AC,31301 ;RESULT IN AC IS INCORRECT
1522 031335 312 02 0 00 036576 CAME AC+1,[XWD 0,2] ;IS RESULT IN AC+1 CORRECT?
1523 031336 004 02 0 00 031301 ER4 AC+1,31301 ;RESULT IN AC+1 IS INCORRECT
1524 031337 321 03 0 00 031330 JUMPL AC+2,E31300 ;LOOP ON ERROR SWITCH^
1525
1526 ;SHIFT CONNECTIONS TEST
1527 ;TEST MQ34 SHRT INP-ZERO'S - LSHC AC,-2
1528 ;TEST ABILITY TO SHIFT INTO BIT 34 OF MQ
1529 SR2 (314,-1,-1,-1,-11,177777,-1,-1,-3,LSHC,-2)^
1530 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1531 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-11] -2 BIT POSITIONS AND
1532 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 177777,-1] AND
1533 ;[XWD -1,-3]
1534
1535 031340 200 01 0 00 036572 E31400: MOVE AC,[XWD -1,-1] ;INITIALIZE AC
1536 031341 200 02 0 00 036616 MOVE AC+1,[XWD -1,-11] ;INITIALIZE AC+1
1537 031342 246 01 0 00 777776 LSHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
1538 031343 312 01 0 00 036611 CAME AC,[XWD 177777,-1] ;IS RESULT IN AC CORRECT?
1539 031344 003 01 0 00 031401 ER3 AC,31401 ;RESULT IN AC IS INCORRECT
1540 031345 312 02 0 00 036610 CAME AC+1,[XWD -1,-3] ;IS RESULT IN AC+1 CORRECT?
1541 031346 004 02 0 00 031401 ER4 AC+1,31401 ;RESULT IN AC+1 IS INCORRECT
1542 031347 321 03 0 00 031340 JUMPL AC+2,E31400 ;LOOP ON ERROR SWITCH^
1543
1544 ;SHIFT CONNECTIONS TEST
1545 ;TEST MQ35 SHRT INP-ONE'S - LSHC AC,-2
1546 ;TEST ABILITY TO SHIFT INTO BIT 35 OF MQ
1547 SR2 (315,0,0,0,4,0,0,0,1,LSHC,-2)^
1548 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1549 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,4] -2 BIT POSITIONS AND
1550 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
1551 ;[XWD 0,1]
1552
1553 031350 200 01 0 00 036574 E31500: MOVE AC,[XWD 0,0] ;INITIALIZE AC
1554 031351 200 02 0 00 036612 MOVE AC+1,[XWD 0,4] ;INITIALIZE AC+1
1555 031352 246 01 0 00 777776 LSHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
1556 031353 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT?
1557 031354 003 01 0 00 031501 ER3 AC,31501 ;RESULT IN AC IS INCORRECT
1558 031355 312 02 0 00 036575 CAME AC+1,[XWD 0,1] ;IS RESULT IN AC+1 CORRECT?
1559 031356 004 02 0 00 031501 ER4 AC+1,31501 ;RESULT IN AC+1 IS INCORRECT
1560 031357 321 03 0 00 031350 JUMPL AC+2,E31500 ;LOOP ON ERROR SWITCH^
1561
1562 ;SHIFT CONNECTIONS TEST
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 7-3
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (LSHC) SEQ 0051
1563 ;TEST MQ35 SHRT INP-ZERO'S - LSHC AC,-2
1564 ;TEST ABILITY TO SHIFT INTO BIT 35 OF MQ
1565 SR2 (316,-1,-1,-1,-5,177777,-1,-1,-2,LSHC,-2)^
1566 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1567 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-5] -2 BIT POSITIONS AND
1568 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 177777,-1] AND
1569 ;[XWD -1,-2]
1570
1571 031360 200 01 0 00 036572 E31600: MOVE AC,[XWD -1,-1] ;INITIALIZE AC
1572 031361 200 02 0 00 036613 MOVE AC+1,[XWD -1,-5] ;INITIALIZE AC+1
1573 031362 246 01 0 00 777776 LSHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
1574 031363 312 01 0 00 036611 CAME AC,[XWD 177777,-1] ;IS RESULT IN AC CORRECT?
1575 031364 003 01 0 00 031601 ER3 AC,31601 ;RESULT IN AC IS INCORRECT
1576 031365 312 02 0 00 036573 CAME AC+1,[XWD -1,-2] ;IS RESULT IN AC+1 CORRECT?
1577 031366 004 02 0 00 031601 ER4 AC+1,31601 ;RESULT IN AC+1 IS INCORRECT
1578 031367 321 03 0 00 031360 JUMPL AC+2,E31600 ;LOOP ON ERROR SWITCH^
1579
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 8
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0052
1580 SUBTTL DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC)
1581
1582 ;END CONNECTIONS-ASHC
1583 ;TEST AR-MQ END BIT INPUT GATES
1584 ;TEST LEFT-AR0,1,34,35 SHLT INP GATES
1585 ; MQ0,1,34,35 SHLT INP GATES
1586 ;TEST RIGHT-AR0,1,34,35 SHRT INP GATES
1587 ; MQ0,1,34,35 SHRT INPUT GATES
1588 ;AC,AC+1 ARE ARITHMETICALLY SHIFTED LEFT/RIGHT AND
1589 ;END BITS ARE TESTED
1590 ;TEST ASSUMES BOTH REGISTERS ARE
1591 ;CAPABLE OF SHIFTING 1,-1 AND -2 BIT POSITIONS CORRECTLY
1592
1593 ;GATES PREVIOUSLY TESTED,ARE AGAIN TESTED
1594 ;ERRORS MOST LIKELY DUE TO FAILURE OF
1595 ;ASHC TO BRING UP ENABLING LEVELS
1596
1597 ;SHIFT CONNECTIONS TEST
1598 ;TEST MQ35 SHLT INP-ZERO'S - ASHC AC,1
1599 ;TEST ABILITY TO SHIFT INTO BIT 35 OF MQ
1600 SR2 (317,-1,-1,-1,-1,-1,-1,-1,-2,ASHC,1)^
1601 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1602 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-1] 1 BIT POSITIONS AND
1603 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND
1604 ;[XWD -1,-2]
1605
1606 031370 200 01 0 00 036572 E31700: MOVE AC,[XWD -1,-1] ;INITIALIZE AC
1607 031371 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1
1608 031372 244 01 0 00 000001 ASHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
1609 031373 312 01 0 00 036572 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT?
1610 031374 003 01 0 00 031701 ER3 AC,31701 ;RESULT IN AC IS INCORRECT
1611 031375 312 02 0 00 036573 CAME AC+1,[XWD -1,-2] ;IS RESULT IN AC+1 CORRECT?
1612 031376 004 02 0 00 031701 ER4 AC+1,31701 ;RESULT IN AC+1 IS INCORRECT
1613 031377 321 03 0 00 031370 JUMPL AC+2,E31700 ;LOOP ON ERROR SWITCH^
1614
1615 ;SHIFT CONNECTIONS TEST
1616 ;TEST MQ34 SHLT INP-ONE'S - ASHC AC,1
1617 ;TEST ABILITY TO SHIFT INTO BIT 34 OF MQ
1618 SR2 (320,0,0,0,1,0,0,0,2,ASHC,1)^
1619 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1620 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,1] 1 BIT POSITIONS AND
1621 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
1622 ;[XWD 0,2]
1623
1624 031400 200 01 0 00 036574 E32000: MOVE AC,[XWD 0,0] ;INITIALIZE AC
1625 031401 200 02 0 00 036575 MOVE AC+1,[XWD 0,1] ;INITIALIZE AC+1
1626 031402 244 01 0 00 000001 ASHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
1627 031403 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT?
1628 031404 003 01 0 00 032001 ER3 AC,32001 ;RESULT IN AC IS INCORRECT
1629 031405 312 02 0 00 036576 CAME AC+1,[XWD 0,2] ;IS RESULT IN AC+1 CORRECT?
1630 031406 004 02 0 00 032001 ER4 AC+1,32001 ;RESULT IN AC+1 IS INCORRECT
1631 031407 321 03 0 00 031400 JUMPL AC+2,E32000 ;LOOP ON ERROR SWITCH^
1632
1633 ;SHIFT CONNECTIONS TEST
1634 ;TEST MQ34 SHLT INP-ZERO'S - ASHC AC,1
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 8-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0053
1635 ;TEST ABILITY TO SHIFT INTO BIT 34 OF MQ
1636 SR2 (321,-1,-1,-1,-2,-1,-1,-1,-4,ASHC,1)^
1637 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1638 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-2] 1 BIT POSITIONS AND
1639 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND
1640 ;[XWD -1,-4]
1641
1642 031410 200 01 0 00 036572 E32100: MOVE AC,[XWD -1,-1] ;INITIALIZE AC
1643 031411 200 02 0 00 036573 MOVE AC+1,[XWD -1,-2] ;INITIALIZE AC+1
1644 031412 244 01 0 00 000001 ASHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
1645 031413 312 01 0 00 036572 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT?
1646 031414 003 01 0 00 032101 ER3 AC,32101 ;RESULT IN AC IS INCORRECT
1647 031415 312 02 0 00 036577 CAME AC+1,[XWD -1,-4] ;IS RESULT IN AC+1 CORRECT?
1648 031416 004 02 0 00 032101 ER4 AC+1,32101 ;RESULT IN AC+1 IS INCORRECT
1649 031417 321 03 0 00 031410 JUMPL AC+2,E32100 ;LOOP ON ERROR SWITCH^
1650 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 8-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0054
1651 ;SHIFT CONNECTIONS TEST
1652 ;TEST MQ1 SHLT INP-ONE'S - ASHC AC,1
1653 ;TEST ABILITY TO SHIFT INTO BIT 1 OF MQ
1654 SR2 (322,0,0,100000,0,0,0,200000,0,ASHC,1)^
1655 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1656 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 100000,0] 1 BIT POSITIONS AND
1657 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
1658 ;[XWD 200000,0]
1659
1660 031420 200 01 0 00 036574 E32200: MOVE AC,[XWD 0,0] ;INITIALIZE AC
1661 031421 200 02 0 00 036600 MOVE AC+1,[XWD 100000,0] ;INITIALIZE AC+1
1662 031422 244 01 0 00 000001 ASHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
1663 031423 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT?
1664 031424 003 01 0 00 032201 ER3 AC,32201 ;RESULT IN AC IS INCORRECT
1665 031425 312 02 0 00 036601 CAME AC+1,[XWD 200000,0] ;IS RESULT IN AC+1 CORRECT?
1666 031426 004 02 0 00 032201 ER4 AC+1,32201 ;RESULT IN AC+1 IS INCORRECT
1667 031427 321 03 0 00 031420 JUMPL AC+2,E32200 ;LOOP ON ERROR SWITCH^
1668
1669 ;SHIFT CONNECTIONS TEST
1670 ;TEST MQ1 SHLT INP-ZERO'S - ASHC AC,1
1671 ;TEST ABILITY TO SHIFT INTO BIT 1 OF MQ
1672 SR2 (323,-1,-1,677777,-1,-1,-1,577777,-2,ASHC,1)^
1673 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1674 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD 677777,-1] 1 BIT POSITIONS AND
1675 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND
1676 ;[XWD 577777,-2]
1677
1678 031430 200 01 0 00 036572 E32300: MOVE AC,[XWD -1,-1] ;INITIALIZE AC
1679 031431 200 02 0 00 036602 MOVE AC+1,[XWD 677777,-1] ;INITIALIZE AC+1
1680 031432 244 01 0 00 000001 ASHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
1681 031433 312 01 0 00 036572 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT?
1682 031434 003 01 0 00 032301 ER3 AC,32301 ;RESULT IN AC IS INCORRECT
1683 031435 312 02 0 00 036603 CAME AC+1,[XWD 577777,-2] ;IS RESULT IN AC+1 CORRECT?
1684 031436 004 02 0 00 032301 ER4 AC+1,32301 ;RESULT IN AC+1 IS INCORRECT
1685 031437 321 03 0 00 031430 JUMPL AC+2,E32300 ;LOOP ON ERROR SWITCH^
1686
1687 ;SHIFT CONNECTIONS TEST
1688 ;TEST MQ0 SHLT INP-ONE'S - ASHC AC,1
1689 ;RESULT IN MQ0 SHOULD AGREE WITH INITIAL AR0
1690 ;TEST ABILITY TO SHIFT INTO BIT 0 OF MQ
1691 SR2 (324,400000,0,0,0,400000,0,400000,0,ASHC,1)^
1692 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1693 ;DATA SPECIFIED IN [XWD 400000,0] AND [XWD 0,0] 1 BIT POSITIONS AND
1694 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 400000,0] AND
1695 ;[XWD 400000,0]
1696
1697 031440 200 01 0 00 036604 E32400: MOVE AC,[XWD 400000,0] ;INITIALIZE AC
1698 031441 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1
1699 031442 244 01 0 00 000001 ASHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
1700 031443 312 01 0 00 036604 CAME AC,[XWD 400000,0] ;IS RESULT IN AC CORRECT?
1701 031444 003 01 0 00 032401 ER3 AC,32401 ;RESULT IN AC IS INCORRECT
1702 031445 312 02 0 00 036604 CAME AC+1,[XWD 400000,0] ;IS RESULT IN AC+1 CORRECT?
1703 031446 004 02 0 00 032401 ER4 AC+1,32401 ;RESULT IN AC+1 IS INCORRECT
1704 031447 321 03 0 00 031440 JUMPL AC+2,E32400 ;LOOP ON ERROR SWITCH^
1705
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 8-3
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0055
1706 ;SHIFT CONNECTIONS TEST
1707 ;TEST MQ0 SHLT INP-ZERO'S - ASHC AC,1
1708 ;RESULT IN MQ0 SHOULD AGREE WITH INITIAL AR0
1709 ;TEST ABILITY TO SHIFT INTO BIT 0 OF MQ
1710 SR2 (325,377777,-1,-1,-1,377777,-1,377777,-2,ASHC,1)^
1711 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1712 ;DATA SPECIFIED IN [XWD 377777,-1] AND [XWD -1,-1] 1 BIT POSITIONS AND
1713 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 377777,-1] AND
1714 ;[XWD 377777,-2]
1715
1716 031450 200 01 0 00 036607 E32500: MOVE AC,[XWD 377777,-1] ;INITIALIZE AC
1717 031451 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1
1718 031452 244 01 0 00 000001 ASHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
1719 031453 312 01 0 00 036607 CAME AC,[XWD 377777,-1] ;IS RESULT IN AC CORRECT?
1720 031454 003 01 0 00 032501 ER3 AC,32501 ;RESULT IN AC IS INCORRECT
1721 031455 312 02 0 00 036606 CAME AC+1,[XWD 377777,-2] ;IS RESULT IN AC+1 CORRECT?
1722 031456 004 02 0 00 032501 ER4 AC+1,32501 ;RESULT IN AC+1 IS INCORRECT
1723 031457 321 03 0 00 031450 JUMPL AC+2,E32500 ;LOOP ON ERROR SWITCH^
1724
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 9
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0056
1725 ;SHIFT CONNECTIONS TEST
1726 ;TEST AR35 SHLT INP-ONE'S - ASHC AC,1
1727 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR
1728 SR2 (326,0,0,200000,0,0,1,0,0,ASHC,1)^
1729 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1730 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 200000,0] 1 BIT POSITIONS AND
1731 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,1] AND
1732 ;[XWD 0,0]
1733
1734 031460 200 01 0 00 036574 E32600: MOVE AC,[XWD 0,0] ;INITIALIZE AC
1735 031461 200 02 0 00 036601 MOVE AC+1,[XWD 200000,0] ;INITIALIZE AC+1
1736 031462 244 01 0 00 000001 ASHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
1737 031463 312 01 0 00 036575 CAME AC,[XWD 0,1] ;IS RESULT IN AC CORRECT?
1738 031464 003 01 0 00 032601 ER3 AC,32601 ;RESULT IN AC IS INCORRECT
1739 031465 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT?
1740 031466 004 02 0 00 032601 ER4 AC+1,32601 ;RESULT IN AC+1 IS INCORRECT
1741 031467 321 03 0 00 031460 JUMPL AC+2,E32600 ;LOOP ON ERROR SWITCH^
1742
1743 ;SHIFT CONNECTIONS TEST
1744 ;TEST AR35 SHLT INP-ZERO'S - ASHC AC,1
1745 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR
1746 SR2 (327,-1,-1,577777,-1,-1,-2,-1,-2,ASHC,1)^
1747 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1748 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD 577777,-1] 1 BIT POSITIONS AND
1749 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-2] AND
1750 ;[XWD -1,-2]
1751
1752 031470 200 01 0 00 036572 E32700: MOVE AC,[XWD -1,-1] ;INITIALIZE AC
1753 031471 200 02 0 00 036605 MOVE AC+1,[XWD 577777,-1] ;INITIALIZE AC+1
1754 031472 244 01 0 00 000001 ASHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
1755 031473 312 01 0 00 036573 CAME AC,[XWD -1,-2] ;IS RESULT IN AC CORRECT?
1756 031474 003 01 0 00 032701 ER3 AC,32701 ;RESULT IN AC IS INCORRECT
1757 031475 312 02 0 00 036573 CAME AC+1,[XWD -1,-2] ;IS RESULT IN AC+1 CORRECT?
1758 031476 004 02 0 00 032701 ER4 AC+1,32701 ;RESULT IN AC+1 IS INCORRECT
1759 031477 321 03 0 00 031470 JUMPL AC+2,E32700 ;LOOP ON ERROR SWITCH^
1760
1761 ;SHIFT CONNECTIONS TEST
1762 ;TEST AR34 SHLT INP-ONE'S - ASHC AC,1
1763 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR
1764 SR2 (330,0,1,0,0,0,2,0,0,ASHC,1)^
1765 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1766 ;DATA SPECIFIED IN [XWD 0,1] AND [XWD 0,0] 1 BIT POSITIONS AND
1767 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,2] AND
1768 ;[XWD 0,0]
1769
1770 031500 200 01 0 00 036575 E33000: MOVE AC,[XWD 0,1] ;INITIALIZE AC
1771 031501 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1
1772 031502 244 01 0 00 000001 ASHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
1773 031503 312 01 0 00 036576 CAME AC,[XWD 0,2] ;IS RESULT IN AC CORRECT?
1774 031504 003 01 0 00 033001 ER3 AC,33001 ;RESULT IN AC IS INCORRECT
1775 031505 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT?
1776 031506 004 02 0 00 033001 ER4 AC+1,33001 ;RESULT IN AC+1 IS INCORRECT
1777 031507 321 03 0 00 031500 JUMPL AC+2,E33000 ;LOOP ON ERROR SWITCH^
1778
1779 ;SHIFT CONNECTIONS TEST
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 9-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0057
1780 ;TEST AR34 SHLT INP-ZERO'S - ASHC AC,1
1781 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR
1782 SR2 (331,-1,-2,-1,-1,-1,-3,-1,-2,ASHC,1)^
1783 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1784 ;DATA SPECIFIED IN [XWD -1,-2] AND [XWD -1,-1] 1 BIT POSITIONS AND
1785 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-3] AND
1786 ;[XWD -1,-2]
1787
1788 031510 200 01 0 00 036573 E33100: MOVE AC,[XWD -1,-2] ;INITIALIZE AC
1789 031511 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1
1790 031512 244 01 0 00 000001 ASHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
1791 031513 312 01 0 00 036610 CAME AC,[XWD -1,-3] ;IS RESULT IN AC CORRECT?
1792 031514 003 01 0 00 033101 ER3 AC,33101 ;RESULT IN AC IS INCORRECT
1793 031515 312 02 0 00 036573 CAME AC+1,[XWD -1,-2] ;IS RESULT IN AC+1 CORRECT?
1794 031516 004 02 0 00 033101 ER4 AC+1,33101 ;RESULT IN AC+1 IS INCORRECT
1795 031517 321 03 0 00 031510 JUMPL AC+2,E33100 ;LOOP ON ERROR SWITCH^
1796 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 9-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0058
1797 ;SHIFT CONNECTIONS TEST
1798 ;TEST AR1 SHLT INP-ONE'S - ASHC AC,1
1799 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR
1800 SR2 (332,100000,0,0,0,200000,0,0,0,ASHC,1)^
1801 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1802 ;DATA SPECIFIED IN [XWD 100000,0] AND [XWD 0,0] 1 BIT POSITIONS AND
1803 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 200000,0] AND
1804 ;[XWD 0,0]
1805
1806 031520 200 01 0 00 036600 E33200: MOVE AC,[XWD 100000,0] ;INITIALIZE AC
1807 031521 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1
1808 031522 244 01 0 00 000001 ASHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
1809 031523 312 01 0 00 036601 CAME AC,[XWD 200000,0] ;IS RESULT IN AC CORRECT?
1810 031524 003 01 0 00 033201 ER3 AC,33201 ;RESULT IN AC IS INCORRECT
1811 031525 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT?
1812 031526 004 02 0 00 033201 ER4 AC+1,33201 ;RESULT IN AC+1 IS INCORRECT
1813 031527 321 03 0 00 031520 JUMPL AC+2,E33200 ;LOOP ON ERROR SWITCH^
1814
1815 ;SHIFT CONNECTIONS TEST
1816 ;TEST AR1 SHLT INP-ZERO'S - ASHC AC,1
1817 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR
1818 SR2 (333,677777,-1,-1,-1,577777,-1,-1,-2,ASHC,1)^
1819 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1820 ;DATA SPECIFIED IN [XWD 677777,-1] AND [XWD -1,-1] 1 BIT POSITIONS AND
1821 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 577777,-1] AND
1822 ;[XWD -1,-2]
1823
1824 031530 200 01 0 00 036602 E33300: MOVE AC,[XWD 677777,-1] ;INITIALIZE AC
1825 031531 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1
1826 031532 244 01 0 00 000001 ASHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
1827 031533 312 01 0 00 036605 CAME AC,[XWD 577777,-1] ;IS RESULT IN AC CORRECT?
1828 031534 003 01 0 00 033301 ER3 AC,33301 ;RESULT IN AC IS INCORRECT
1829 031535 312 02 0 00 036573 CAME AC+1,[XWD -1,-2] ;IS RESULT IN AC+1 CORRECT?
1830 031536 004 02 0 00 033301 ER4 AC+1,33301 ;RESULT IN AC+1 IS INCORRECT
1831 031537 321 03 0 00 031530 JUMPL AC+2,E33300 ;LOOP ON ERROR SWITCH^
1832
1833 ;SHIFT CONNECTIONS TEST
1834 ;TEST AR0 SHLT INP-ONE'S - ASHC AC,1
1835 ;TEST ABILITY TO SHIFT INTO BIT 0 OF AR
1836 SR2 (334,400000,0,400000,0,400000,0,400000,0,ASHC,1)^
1837 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1838 ;DATA SPECIFIED IN [XWD 400000,0] AND [XWD 400000,0] 1 BIT POSITIONS AND
1839 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 400000,0] AND
1840 ;[XWD 400000,0]
1841
1842 031540 200 01 0 00 036604 E33400: MOVE AC,[XWD 400000,0] ;INITIALIZE AC
1843 031541 200 02 0 00 036604 MOVE AC+1,[XWD 400000,0] ;INITIALIZE AC+1
1844 031542 244 01 0 00 000001 ASHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
1845 031543 312 01 0 00 036604 CAME AC,[XWD 400000,0] ;IS RESULT IN AC CORRECT?
1846 031544 003 01 0 00 033401 ER3 AC,33401 ;RESULT IN AC IS INCORRECT
1847 031545 312 02 0 00 036604 CAME AC+1,[XWD 400000,0] ;IS RESULT IN AC+1 CORRECT?
1848 031546 004 02 0 00 033401 ER4 AC+1,33401 ;RESULT IN AC+1 IS INCORRECT
1849 031547 321 03 0 00 031540 JUMPL AC+2,E33400 ;LOOP ON ERROR SWITCH^
1850
1851 ;SHIFT CONNECTIONS TEST
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 9-3
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0059
1852 ;TEST AR0 SHLT INP-ZERO'S - ASHC AC,1
1853 ;TEST ABILITY TO SHIFT INTO BIT 0 OF AR
1854 SR2 (335,377777,-1,377777,-1,377777,-1,377777,-2,ASHC,1)^
1855 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1856 ;DATA SPECIFIED IN [XWD 377777,-1] AND [XWD 377777,-1] 1 BIT POSITIONS AND
1857 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 377777,-1] AND
1858 ;[XWD 377777,-2]
1859
1860 031550 200 01 0 00 036607 E33500: MOVE AC,[XWD 377777,-1] ;INITIALIZE AC
1861 031551 200 02 0 00 036607 MOVE AC+1,[XWD 377777,-1] ;INITIALIZE AC+1
1862 031552 244 01 0 00 000001 ASHC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
1863 031553 312 01 0 00 036607 CAME AC,[XWD 377777,-1] ;IS RESULT IN AC CORRECT?
1864 031554 003 01 0 00 033501 ER3 AC,33501 ;RESULT IN AC IS INCORRECT
1865 031555 312 02 0 00 036606 CAME AC+1,[XWD 377777,-2] ;IS RESULT IN AC+1 CORRECT?
1866 031556 004 02 0 00 033501 ER4 AC+1,33501 ;RESULT IN AC+1 IS INCORRECT
1867 031557 321 03 0 00 031550 JUMPL AC+2,E33500 ;LOOP ON ERROR SWITCH^
1868
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 10
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0060
1869 ;SHIFT CONNECTIONS TEST
1870 ;TEST AR0 SHRT INP-ONE'S - ASHC AC,-1
1871 ;TEST ABILITY TO SHIFT INTO BIT 0 OF AR
1872 SR2 (336,400000,0,400000,0,600000,0,400000,0,ASHC,-1)^
1873 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1874 ;DATA SPECIFIED IN [XWD 400000,0] AND [XWD 400000,0] -1 BIT POSITIONS AND
1875 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 600000,0] AND
1876 ;[XWD 400000,0]
1877
1878 031560 200 01 0 00 036604 E33600: MOVE AC,[XWD 400000,0] ;INITIALIZE AC
1879 031561 200 02 0 00 036604 MOVE AC+1,[XWD 400000,0] ;INITIALIZE AC+1
1880 031562 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
1881 031563 312 01 0 00 036621 CAME AC,[XWD 600000,0] ;IS RESULT IN AC CORRECT?
1882 031564 003 01 0 00 033601 ER3 AC,33601 ;RESULT IN AC IS INCORRECT
1883 031565 312 02 0 00 036604 CAME AC+1,[XWD 400000,0] ;IS RESULT IN AC+1 CORRECT?
1884 031566 004 02 0 00 033601 ER4 AC+1,33601 ;RESULT IN AC+1 IS INCORRECT
1885 031567 321 03 0 00 031560 JUMPL AC+2,E33600 ;LOOP ON ERROR SWITCH^
1886
1887 ;SHIFT CONNECTIONS TEST
1888 ;TEST AR0 SHRT INP-ZERO'S - ASHC AC,-1
1889 ;TEST ABILITY TO SHIFT INTO BIT 0 OF AR
1890 SR2 (337,377777,-1,377777,-1,177777,-1,377777,-1,ASHC,-1)^
1891 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1892 ;DATA SPECIFIED IN [XWD 377777,-1] AND [XWD 377777,-1] -1 BIT POSITIONS AND
1893 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 177777,-1] AND
1894 ;[XWD 377777,-1]
1895
1896 031570 200 01 0 00 036607 E33700: MOVE AC,[XWD 377777,-1] ;INITIALIZE AC
1897 031571 200 02 0 00 036607 MOVE AC+1,[XWD 377777,-1] ;INITIALIZE AC+1
1898 031572 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
1899 031573 312 01 0 00 036611 CAME AC,[XWD 177777,-1] ;IS RESULT IN AC CORRECT?
1900 031574 003 01 0 00 033701 ER3 AC,33701 ;RESULT IN AC IS INCORRECT
1901 031575 312 02 0 00 036607 CAME AC+1,[XWD 377777,-1] ;IS RESULT IN AC+1 CORRECT?
1902 031576 004 02 0 00 033701 ER4 AC+1,33701 ;RESULT IN AC+1 IS INCORRECT
1903 031577 321 03 0 00 031570 JUMPL AC+2,E33700 ;LOOP ON ERROR SWITCH^
1904
1905 ;SHIFT CONNECTIONS TEST
1906 ;TEST AR1 SHRT INP-ONE'S - ASHC AC,-1
1907 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR
1908 SR2 (340,400000,0,400000,0,600000,0,400000,0,ASHC,-1)^
1909 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1910 ;DATA SPECIFIED IN [XWD 400000,0] AND [XWD 400000,0] -1 BIT POSITIONS AND
1911 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 600000,0] AND
1912 ;[XWD 400000,0]
1913
1914 031600 200 01 0 00 036604 E34000: MOVE AC,[XWD 400000,0] ;INITIALIZE AC
1915 031601 200 02 0 00 036604 MOVE AC+1,[XWD 400000,0] ;INITIALIZE AC+1
1916 031602 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
1917 031603 312 01 0 00 036621 CAME AC,[XWD 600000,0] ;IS RESULT IN AC CORRECT?
1918 031604 003 01 0 00 034001 ER3 AC,34001 ;RESULT IN AC IS INCORRECT
1919 031605 312 02 0 00 036604 CAME AC+1,[XWD 400000,0] ;IS RESULT IN AC+1 CORRECT?
1920 031606 004 02 0 00 034001 ER4 AC+1,34001 ;RESULT IN AC+1 IS INCORRECT
1921 031607 321 03 0 00 031600 JUMPL AC+2,E34000 ;LOOP ON ERROR SWITCH^
1922
1923 ;SHIFT CONNECTIONS TEST
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 10-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0061
1924 ;TEST AR1 SHRT INP-ZERO'S - ASHC AC,-1
1925 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR
1926 SR2 (341,377777,-1,377777,-1,177777,-1,377777,-1,ASHC,-1)^
1927 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1928 ;DATA SPECIFIED IN [XWD 377777,-1] AND [XWD 377777,-1] -1 BIT POSITIONS AND
1929 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 177777,-1] AND
1930 ;[XWD 377777,-1]
1931
1932 031610 200 01 0 00 036607 E34100: MOVE AC,[XWD 377777,-1] ;INITIALIZE AC
1933 031611 200 02 0 00 036607 MOVE AC+1,[XWD 377777,-1] ;INITIALIZE AC+1
1934 031612 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
1935 031613 312 01 0 00 036611 CAME AC,[XWD 177777,-1] ;IS RESULT IN AC CORRECT?
1936 031614 003 01 0 00 034101 ER3 AC,34101 ;RESULT IN AC IS INCORRECT
1937 031615 312 02 0 00 036607 CAME AC+1,[XWD 377777,-1] ;IS RESULT IN AC+1 CORRECT?
1938 031616 004 02 0 00 034101 ER4 AC+1,34101 ;RESULT IN AC+1 IS INCORRECT
1939 031617 321 03 0 00 031610 JUMPL AC+2,E34100 ;LOOP ON ERROR SWITCH^
1940 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 10-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0062
1941 ;SHIFT CONNECTIONS TEST
1942 ;TEST AR34 SHRT INP-ONE'S - ASHC AC,-1
1943 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR
1944 SR2 (342,0,4,0,0,0,2,0,0,ASHC,-1)^
1945 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1946 ;DATA SPECIFIED IN [XWD 0,4] AND [XWD 0,0] -1 BIT POSITIONS AND
1947 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,2] AND
1948 ;[XWD 0,0]
1949
1950 031620 200 01 0 00 036612 E34200: MOVE AC,[XWD 0,4] ;INITIALIZE AC
1951 031621 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1
1952 031622 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
1953 031623 312 01 0 00 036576 CAME AC,[XWD 0,2] ;IS RESULT IN AC CORRECT?
1954 031624 003 01 0 00 034201 ER3 AC,34201 ;RESULT IN AC IS INCORRECT
1955 031625 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT?
1956 031626 004 02 0 00 034201 ER4 AC+1,34201 ;RESULT IN AC+1 IS INCORRECT
1957 031627 321 03 0 00 031620 JUMPL AC+2,E34200 ;LOOP ON ERROR SWITCH^
1958
1959 ;SHIFT CONNECTIONS TEST
1960 ;TEST AR34 SHRT INP-ZERO'S - ASHC AC,-1
1961 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR
1962 SR2 (343,-1,-5,-1,-1,-1,-3,-1,-1,ASHC,-1)^
1963 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1964 ;DATA SPECIFIED IN [XWD -1,-5] AND [XWD -1,-1] -1 BIT POSITIONS AND
1965 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-3] AND
1966 ;[XWD -1,-1]
1967
1968 031630 200 01 0 00 036613 E34300: MOVE AC,[XWD -1,-5] ;INITIALIZE AC
1969 031631 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1
1970 031632 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
1971 031633 312 01 0 00 036610 CAME AC,[XWD -1,-3] ;IS RESULT IN AC CORRECT?
1972 031634 003 01 0 00 034301 ER3 AC,34301 ;RESULT IN AC IS INCORRECT
1973 031635 312 02 0 00 036572 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT?
1974 031636 004 02 0 00 034301 ER4 AC+1,34301 ;RESULT IN AC+1 IS INCORRECT
1975 031637 321 03 0 00 031630 JUMPL AC+2,E34300 ;LOOP ON ERROR SWITCH^
1976
1977 ;SHIFT CONNECTIONS TEST
1978 ;TEST AR35 SHRT INP-ONE'S - ASHC AC,-1
1979 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR
1980 SR2 (344,0,2,0,0,0,1,0,0,ASHC,-1)^
1981 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
1982 ;DATA SPECIFIED IN [XWD 0,2] AND [XWD 0,0] -1 BIT POSITIONS AND
1983 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,1] AND
1984 ;[XWD 0,0]
1985
1986 031640 200 01 0 00 036576 E34400: MOVE AC,[XWD 0,2] ;INITIALIZE AC
1987 031641 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1
1988 031642 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
1989 031643 312 01 0 00 036575 CAME AC,[XWD 0,1] ;IS RESULT IN AC CORRECT?
1990 031644 003 01 0 00 034401 ER3 AC,34401 ;RESULT IN AC IS INCORRECT
1991 031645 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT?
1992 031646 004 02 0 00 034401 ER4 AC+1,34401 ;RESULT IN AC+1 IS INCORRECT
1993 031647 321 03 0 00 031640 JUMPL AC+2,E34400 ;LOOP ON ERROR SWITCH^
1994
1995 ;SHIFT CONNECTIONS TEST
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 10-3
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0063
1996 ;TEST AR35 SHRT INP-ZERO'S - ASHC AC,-1
1997 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR
1998 SR2 (345,-1,-3,-1,-1,-1,-2,-1,-1,ASHC,-1)^
1999 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
2000 ;DATA SPECIFIED IN [XWD -1,-3] AND [XWD -1,-1] -1 BIT POSITIONS AND
2001 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-2] AND
2002 ;[XWD -1,-1]
2003
2004 031650 200 01 0 00 036610 E34500: MOVE AC,[XWD -1,-3] ;INITIALIZE AC
2005 031651 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1
2006 031652 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
2007 031653 312 01 0 00 036573 CAME AC,[XWD -1,-2] ;IS RESULT IN AC CORRECT?
2008 031654 003 01 0 00 034501 ER3 AC,34501 ;RESULT IN AC IS INCORRECT
2009 031655 312 02 0 00 036572 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT?
2010 031656 004 02 0 00 034501 ER4 AC+1,34501 ;RESULT IN AC+1 IS INCORRECT
2011 031657 321 03 0 00 031650 JUMPL AC+2,E34500 ;LOOP ON ERROR SWITCH^
2012
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 11
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0064
2013 ;SHIFT CONNECTIONS TEST
2014 ;TEST MQ0 SHRT INP-ONE'S - ASHC AC,-1
2015 ;TEST ABILITY TO SHIFT INTO BIT 0 OF MQ
2016 SR2 (346,400000,0,0,0,600000,0,400000,0,ASHC,-1)^
2017 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
2018 ;DATA SPECIFIED IN [XWD 400000,0] AND [XWD 0,0] -1 BIT POSITIONS AND
2019 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 600000,0] AND
2020 ;[XWD 400000,0]
2021
2022 031660 200 01 0 00 036604 E34600: MOVE AC,[XWD 400000,0] ;INITIALIZE AC
2023 031661 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1
2024 031662 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
2025 031663 312 01 0 00 036621 CAME AC,[XWD 600000,0] ;IS RESULT IN AC CORRECT?
2026 031664 003 01 0 00 034601 ER3 AC,34601 ;RESULT IN AC IS INCORRECT
2027 031665 312 02 0 00 036604 CAME AC+1,[XWD 400000,0] ;IS RESULT IN AC+1 CORRECT?
2028 031666 004 02 0 00 034601 ER4 AC+1,34601 ;RESULT IN AC+1 IS INCORRECT
2029 031667 321 03 0 00 031660 JUMPL AC+2,E34600 ;LOOP ON ERROR SWITCH^
2030
2031 ;SHIFT CONNECTIONS TEST
2032 ;TEST MQ0 SHRT INP-ZERO'S - ASHC AC,-1
2033 ;TEST ABILITY TO SHIFT INTO BIT 0 OF MQ
2034 SR2 (347,377777,-1,-1,-1,177777,-1,377777,-1,ASHC,-1)^
2035 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
2036 ;DATA SPECIFIED IN [XWD 377777,-1] AND [XWD -1,-1] -1 BIT POSITIONS AND
2037 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 177777,-1] AND
2038 ;[XWD 377777,-1]
2039
2040 031670 200 01 0 00 036607 E34700: MOVE AC,[XWD 377777,-1] ;INITIALIZE AC
2041 031671 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1
2042 031672 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
2043 031673 312 01 0 00 036611 CAME AC,[XWD 177777,-1] ;IS RESULT IN AC CORRECT?
2044 031674 003 01 0 00 034701 ER3 AC,34701 ;RESULT IN AC IS INCORRECT
2045 031675 312 02 0 00 036607 CAME AC+1,[XWD 377777,-1] ;IS RESULT IN AC+1 CORRECT?
2046 031676 004 02 0 00 034701 ER4 AC+1,34701 ;RESULT IN AC+1 IS INCORRECT
2047 031677 321 03 0 00 031670 JUMPL AC+2,E34700 ;LOOP ON ERROR SWITCH^
2048
2049 ;SHIFT CONNECTIONS TEST
2050 ;TEST MQ1 SHRT INP-ONE'S - ASHC AC,-1
2051 ;TEST ABILITY TO SHIFT INTO BIT 1 OF MQ
2052 SR2 (350,0,1,0,0,0,0,200000,0,ASHC,-1)^
2053 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
2054 ;DATA SPECIFIED IN [XWD 0,1] AND [XWD 0,0] -1 BIT POSITIONS AND
2055 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
2056 ;[XWD 200000,0]
2057
2058 031700 200 01 0 00 036575 E35000: MOVE AC,[XWD 0,1] ;INITIALIZE AC
2059 031701 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1
2060 031702 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
2061 031703 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT?
2062 031704 003 01 0 00 035001 ER3 AC,35001 ;RESULT IN AC IS INCORRECT
2063 031705 312 02 0 00 036601 CAME AC+1,[XWD 200000,0] ;IS RESULT IN AC+1 CORRECT?
2064 031706 004 02 0 00 035001 ER4 AC+1,35001 ;RESULT IN AC+1 IS INCORRECT
2065 031707 321 03 0 00 031700 JUMPL AC+2,E35000 ;LOOP ON ERROR SWITCH^
2066
2067 ;SHIFT CONNECTIONS TEST
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 11-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0065
2068 ;TEST MQ1 SHRT INP-ZERO'S - ASHC AC,-1
2069 ;TEST ABILITY TO SHIFT INTO BIT 1 OF MQ
2070 SR2 (351,-1,-2,-1,-1,-1,-1,577777,-1,ASHC,-1)^
2071 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
2072 ;DATA SPECIFIED IN [XWD -1,-2] AND [XWD -1,-1] -1 BIT POSITIONS AND
2073 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND
2074 ;[XWD 577777,-1]
2075
2076 031710 200 01 0 00 036573 E35100: MOVE AC,[XWD -1,-2] ;INITIALIZE AC
2077 031711 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1
2078 031712 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
2079 031713 312 01 0 00 036572 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT?
2080 031714 003 01 0 00 035101 ER3 AC,35101 ;RESULT IN AC IS INCORRECT
2081 031715 312 02 0 00 036605 CAME AC+1,[XWD 577777,-1] ;IS RESULT IN AC+1 CORRECT?
2082 031716 004 02 0 00 035101 ER4 AC+1,35101 ;RESULT IN AC+1 IS INCORRECT
2083 031717 321 03 0 00 031710 JUMPL AC+2,E35100 ;LOOP ON ERROR SWITCH^
2084 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 11-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0066
2085 ;SHIFT CONNECTIONS TEST
2086 ;TEST MQ34 SHRT INP-ONE'S - ASHC AC,-1
2087 ;TEST ABILITY TO SHIFT INTO BIT 34 OF MQ
2088 SR2 (352,0,0,0,4,0,0,0,2,ASHC,-1)^
2089 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
2090 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,4] -1 BIT POSITIONS AND
2091 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
2092 ;[XWD 0,2]
2093
2094 031720 200 01 0 00 036574 E35200: MOVE AC,[XWD 0,0] ;INITIALIZE AC
2095 031721 200 02 0 00 036612 MOVE AC+1,[XWD 0,4] ;INITIALIZE AC+1
2096 031722 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
2097 031723 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT?
2098 031724 003 01 0 00 035201 ER3 AC,35201 ;RESULT IN AC IS INCORRECT
2099 031725 312 02 0 00 036576 CAME AC+1,[XWD 0,2] ;IS RESULT IN AC+1 CORRECT?
2100 031726 004 02 0 00 035201 ER4 AC+1,35201 ;RESULT IN AC+1 IS INCORRECT
2101 031727 321 03 0 00 031720 JUMPL AC+2,E35200 ;LOOP ON ERROR SWITCH^
2102
2103 ;SHIFT CONNECTIONS TEST
2104 ;TEST MQ34 SHRT INP-ZERO'S - ASHC AC,-1
2105 ;TEST ABILITY TO SHIFT INTO BIT 34 OF MQ
2106 SR2 (353,-1,-1,-1,-5,-1,-1,-1,-3,ASHC,-1)^
2107 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
2108 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-5] -1 BIT POSITIONS AND
2109 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND
2110 ;[XWD -1,-3]
2111
2112 031730 200 01 0 00 036572 E35300: MOVE AC,[XWD -1,-1] ;INITIALIZE AC
2113 031731 200 02 0 00 036613 MOVE AC+1,[XWD -1,-5] ;INITIALIZE AC+1
2114 031732 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
2115 031733 312 01 0 00 036572 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT?
2116 031734 003 01 0 00 035301 ER3 AC,35301 ;RESULT IN AC IS INCORRECT
2117 031735 312 02 0 00 036610 CAME AC+1,[XWD -1,-3] ;IS RESULT IN AC+1 CORRECT?
2118 031736 004 02 0 00 035301 ER4 AC+1,35301 ;RESULT IN AC+1 IS INCORRECT
2119 031737 321 03 0 00 031730 JUMPL AC+2,E35300 ;LOOP ON ERROR SWITCH^
2120
2121 ;SHIFT CONNECTIONS TEST
2122 ;TEST MQ35 SHRT INP-ONE'S - ASHC AC,-1
2123 ;TEST ABILITY TO SHIFT INTO BIT 35 OF MQ
2124 SR2 (354,0,0,0,2,0,0,0,1,ASHC,-1)^
2125 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
2126 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,2] -1 BIT POSITIONS AND
2127 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
2128 ;[XWD 0,1]
2129
2130 031740 200 01 0 00 036574 E35400: MOVE AC,[XWD 0,0] ;INITIALIZE AC
2131 031741 200 02 0 00 036576 MOVE AC+1,[XWD 0,2] ;INITIALIZE AC+1
2132 031742 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
2133 031743 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT?
2134 031744 003 01 0 00 035401 ER3 AC,35401 ;RESULT IN AC IS INCORRECT
2135 031745 312 02 0 00 036575 CAME AC+1,[XWD 0,1] ;IS RESULT IN AC+1 CORRECT?
2136 031746 004 02 0 00 035401 ER4 AC+1,35401 ;RESULT IN AC+1 IS INCORRECT
2137 031747 321 03 0 00 031740 JUMPL AC+2,E35400 ;LOOP ON ERROR SWITCH^
2138
2139 ;SHIFT CONNECTIONS TEST
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 11-3
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0067
2140 ;TEST MQ35 SHRT INP-ZERO'S - ASHC AC,-1
2141 ;TEST ABILITY TO SHIFT INTO BIT 35 OF MQ
2142 SR2 (355,-1,-1,-1,-3,-1,-1,-1,-2,ASHC,-1)^
2143 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
2144 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-3] -1 BIT POSITIONS AND
2145 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND
2146 ;[XWD -1,-2]
2147
2148 031750 200 01 0 00 036572 E35500: MOVE AC,[XWD -1,-1] ;INITIALIZE AC
2149 031751 200 02 0 00 036610 MOVE AC+1,[XWD -1,-3] ;INITIALIZE AC+1
2150 031752 244 01 0 00 777777 ASHC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
2151 031753 312 01 0 00 036572 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT?
2152 031754 003 01 0 00 035501 ER3 AC,35501 ;RESULT IN AC IS INCORRECT
2153 031755 312 02 0 00 036573 CAME AC+1,[XWD -1,-2] ;IS RESULT IN AC+1 CORRECT?
2154 031756 004 02 0 00 035501 ER4 AC+1,35501 ;RESULT IN AC+1 IS INCORRECT
2155 031757 321 03 0 00 031750 JUMPL AC+2,E35500 ;LOOP ON ERROR SWITCH^
2156
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 12
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0068
2157 ;SHIFT CONNECTIONS TEST
2158 ;TEST AR0 SHRT INP-ONE'S - ASHC AC,-2
2159 ;TEST ABILITY TO SHIFT INTO BIT 0 OF AR
2160 SR2 (356,400000,0,400000,0,700000,0,400000,0,ASHC,-2)^
2161 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
2162 ;DATA SPECIFIED IN [XWD 400000,0] AND [XWD 400000,0] -2 BIT POSITIONS AND
2163 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 700000,0] AND
2164 ;[XWD 400000,0]
2165
2166 031760 200 01 0 00 036604 E35600: MOVE AC,[XWD 400000,0] ;INITIALIZE AC
2167 031761 200 02 0 00 036604 MOVE AC+1,[XWD 400000,0] ;INITIALIZE AC+1
2168 031762 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
2169 031763 312 01 0 00 036622 CAME AC,[XWD 700000,0] ;IS RESULT IN AC CORRECT?
2170 031764 003 01 0 00 035601 ER3 AC,35601 ;RESULT IN AC IS INCORRECT
2171 031765 312 02 0 00 036604 CAME AC+1,[XWD 400000,0] ;IS RESULT IN AC+1 CORRECT?
2172 031766 004 02 0 00 035601 ER4 AC+1,35601 ;RESULT IN AC+1 IS INCORRECT
2173 031767 321 03 0 00 031760 JUMPL AC+2,E35600 ;LOOP ON ERROR SWITCH^
2174
2175 ;SHIFT CONNECTIONS TEST
2176 ;TEST AR0 SHRT INP-ZERO'S - ASHC AC,-2
2177 ;TEST ABILITY TO SHIFT INTO BIT 0 OF AR
2178 SR2 (357,377777,-1,377777,-1,077777,-1,377777,-1,ASHC,-2)^
2179 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
2180 ;DATA SPECIFIED IN [XWD 377777,-1] AND [XWD 377777,-1] -2 BIT POSITIONS AND
2181 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 077777,-1] AND
2182 ;[XWD 377777,-1]
2183
2184 031770 200 01 0 00 036607 E35700: MOVE AC,[XWD 377777,-1] ;INITIALIZE AC
2185 031771 200 02 0 00 036607 MOVE AC+1,[XWD 377777,-1] ;INITIALIZE AC+1
2186 031772 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
2187 031773 312 01 0 00 036623 CAME AC,[XWD 077777,-1] ;IS RESULT IN AC CORRECT?
2188 031774 003 01 0 00 035701 ER3 AC,35701 ;RESULT IN AC IS INCORRECT
2189 031775 312 02 0 00 036607 CAME AC+1,[XWD 377777,-1] ;IS RESULT IN AC+1 CORRECT?
2190 031776 004 02 0 00 035701 ER4 AC+1,35701 ;RESULT IN AC+1 IS INCORRECT
2191 031777 321 03 0 00 031770 JUMPL AC+2,E35700 ;LOOP ON ERROR SWITCH^
2192
2193 ;SHIFT CONNECTIONS TEST
2194 ;TEST AR1 SHRT INP-ONE'S - ASHC AC,-2
2195 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR
2196 SR2 (360,400000,0,400000,0,700000,0,400000,0,ASHC,-2)^
2197 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
2198 ;DATA SPECIFIED IN [XWD 400000,0] AND [XWD 400000,0] -2 BIT POSITIONS AND
2199 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 700000,0] AND
2200 ;[XWD 400000,0]
2201
2202 032000 200 01 0 00 036604 E36000: MOVE AC,[XWD 400000,0] ;INITIALIZE AC
2203 032001 200 02 0 00 036604 MOVE AC+1,[XWD 400000,0] ;INITIALIZE AC+1
2204 032002 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
2205 032003 312 01 0 00 036622 CAME AC,[XWD 700000,0] ;IS RESULT IN AC CORRECT?
2206 032004 003 01 0 00 036001 ER3 AC,36001 ;RESULT IN AC IS INCORRECT
2207 032005 312 02 0 00 036604 CAME AC+1,[XWD 400000,0] ;IS RESULT IN AC+1 CORRECT?
2208 032006 004 02 0 00 036001 ER4 AC+1,36001 ;RESULT IN AC+1 IS INCORRECT
2209 032007 321 03 0 00 032000 JUMPL AC+2,E36000 ;LOOP ON ERROR SWITCH^
2210
2211 ;SHIFT CONNECTIONS TEST
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 12-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0069
2212 ;TEST AR1 SHRT INP-ZERO'S - ASHC AC,-2
2213 ;TEST ABILITY TO SHIFT INTO BIT 1 OF AR
2214 SR2 (361,377777,-1,377777,-1,077777,-1,377777,-1,ASHC,-2)^
2215 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
2216 ;DATA SPECIFIED IN [XWD 377777,-1] AND [XWD 377777,-1] -2 BIT POSITIONS AND
2217 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 077777,-1] AND
2218 ;[XWD 377777,-1]
2219
2220 032010 200 01 0 00 036607 E36100: MOVE AC,[XWD 377777,-1] ;INITIALIZE AC
2221 032011 200 02 0 00 036607 MOVE AC+1,[XWD 377777,-1] ;INITIALIZE AC+1
2222 032012 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
2223 032013 312 01 0 00 036623 CAME AC,[XWD 077777,-1] ;IS RESULT IN AC CORRECT?
2224 032014 003 01 0 00 036101 ER3 AC,36101 ;RESULT IN AC IS INCORRECT
2225 032015 312 02 0 00 036607 CAME AC+1,[XWD 377777,-1] ;IS RESULT IN AC+1 CORRECT?
2226 032016 004 02 0 00 036101 ER4 AC+1,36101 ;RESULT IN AC+1 IS INCORRECT
2227 032017 321 03 0 00 032010 JUMPL AC+2,E36100 ;LOOP ON ERROR SWITCH^
2228 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 12-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0070
2229 ;SHIFT CONNECTIONS TEST
2230 ;TEST AR34 SHRT INP-ONE'S - ASHC AC,-2
2231 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR
2232 SR2 (362,0,10,0,0,0,2,0,0,ASHC,-2)^
2233 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
2234 ;DATA SPECIFIED IN [XWD 0,10] AND [XWD 0,0] -2 BIT POSITIONS AND
2235 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,2] AND
2236 ;[XWD 0,0]
2237
2238 032020 200 01 0 00 036615 E36200: MOVE AC,[XWD 0,10] ;INITIALIZE AC
2239 032021 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1
2240 032022 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
2241 032023 312 01 0 00 036576 CAME AC,[XWD 0,2] ;IS RESULT IN AC CORRECT?
2242 032024 003 01 0 00 036201 ER3 AC,36201 ;RESULT IN AC IS INCORRECT
2243 032025 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT?
2244 032026 004 02 0 00 036201 ER4 AC+1,36201 ;RESULT IN AC+1 IS INCORRECT
2245 032027 321 03 0 00 032020 JUMPL AC+2,E36200 ;LOOP ON ERROR SWITCH^
2246
2247 ;SHIFT CONNECTIONS TEST
2248 ;TEST AR34 SHRT INP-ZERO'S - ASHC AC,-2
2249 ;TEST ABILITY TO SHIFT INTO BIT 34 OF AR
2250 SR2 (363,-1,-11,-1,-1,-1,-3,-1,-1,ASHC,-2)^
2251 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
2252 ;DATA SPECIFIED IN [XWD -1,-11] AND [XWD -1,-1] -2 BIT POSITIONS AND
2253 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-3] AND
2254 ;[XWD -1,-1]
2255
2256 032030 200 01 0 00 036616 E36300: MOVE AC,[XWD -1,-11] ;INITIALIZE AC
2257 032031 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1
2258 032032 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
2259 032033 312 01 0 00 036610 CAME AC,[XWD -1,-3] ;IS RESULT IN AC CORRECT?
2260 032034 003 01 0 00 036301 ER3 AC,36301 ;RESULT IN AC IS INCORRECT
2261 032035 312 02 0 00 036572 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT?
2262 032036 004 02 0 00 036301 ER4 AC+1,36301 ;RESULT IN AC+1 IS INCORRECT
2263 032037 321 03 0 00 032030 JUMPL AC+2,E36300 ;LOOP ON ERROR SWITCH^
2264
2265 ;SHIFT CONNECTIONS TEST
2266 ;TEST AR35 SHRT INP-ONE'S - ASHC AC,-2
2267 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR
2268 SR2 (364,0,4,0,0,0,1,0,0,ASHC,-2)^
2269 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
2270 ;DATA SPECIFIED IN [XWD 0,4] AND [XWD 0,0] -2 BIT POSITIONS AND
2271 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,1] AND
2272 ;[XWD 0,0]
2273
2274 032040 200 01 0 00 036612 E36400: MOVE AC,[XWD 0,4] ;INITIALIZE AC
2275 032041 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1
2276 032042 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
2277 032043 312 01 0 00 036575 CAME AC,[XWD 0,1] ;IS RESULT IN AC CORRECT?
2278 032044 003 01 0 00 036401 ER3 AC,36401 ;RESULT IN AC IS INCORRECT
2279 032045 312 02 0 00 036574 CAME AC+1,[XWD 0,0] ;IS RESULT IN AC+1 CORRECT?
2280 032046 004 02 0 00 036401 ER4 AC+1,36401 ;RESULT IN AC+1 IS INCORRECT
2281 032047 321 03 0 00 032040 JUMPL AC+2,E36400 ;LOOP ON ERROR SWITCH^
2282
2283 ;SHIFT CONNECTIONS TEST
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 12-3
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0071
2284 ;TEST AR35 SHRT INP-ZERO'S - ASHC AC,-2
2285 ;TEST ABILITY TO SHIFT INTO BIT 35 OF AR
2286 SR2 (365,-1,-5,-1,-1,-1,-2,-1,-1,ASHC,-2)^
2287 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
2288 ;DATA SPECIFIED IN [XWD -1,-5] AND [XWD -1,-1] -2 BIT POSITIONS AND
2289 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-2] AND
2290 ;[XWD -1,-1]
2291
2292 032050 200 01 0 00 036613 E36500: MOVE AC,[XWD -1,-5] ;INITIALIZE AC
2293 032051 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1
2294 032052 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
2295 032053 312 01 0 00 036573 CAME AC,[XWD -1,-2] ;IS RESULT IN AC CORRECT?
2296 032054 003 01 0 00 036501 ER3 AC,36501 ;RESULT IN AC IS INCORRECT
2297 032055 312 02 0 00 036572 CAME AC+1,[XWD -1,-1] ;IS RESULT IN AC+1 CORRECT?
2298 032056 004 02 0 00 036501 ER4 AC+1,36501 ;RESULT IN AC+1 IS INCORRECT
2299 032057 321 03 0 00 032050 JUMPL AC+2,E36500 ;LOOP ON ERROR SWITCH^
2300
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 13
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0072
2301 ;SHIFT CONNECTIONS TEST
2302 ;TEST MQ0 SHRT INP-ONE'S - ASHC AC,-2
2303 ;TEST ABILITY TO SHIFT INTO BIT 0 OF MQ
2304 SR2 (366,400000,0,0,0,700000,0,400000,0,ASHC,-2)^
2305 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
2306 ;DATA SPECIFIED IN [XWD 400000,0] AND [XWD 0,0] -2 BIT POSITIONS AND
2307 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 700000,0] AND
2308 ;[XWD 400000,0]
2309
2310 032060 200 01 0 00 036604 E36600: MOVE AC,[XWD 400000,0] ;INITIALIZE AC
2311 032061 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1
2312 032062 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
2313 032063 312 01 0 00 036622 CAME AC,[XWD 700000,0] ;IS RESULT IN AC CORRECT?
2314 032064 003 01 0 00 036601 ER3 AC,36601 ;RESULT IN AC IS INCORRECT
2315 032065 312 02 0 00 036604 CAME AC+1,[XWD 400000,0] ;IS RESULT IN AC+1 CORRECT?
2316 032066 004 02 0 00 036601 ER4 AC+1,36601 ;RESULT IN AC+1 IS INCORRECT
2317 032067 321 03 0 00 032060 JUMPL AC+2,E36600 ;LOOP ON ERROR SWITCH^
2318
2319 ;SHIFT CONNECTIONS TEST
2320 ;TEST MQ0 SHRT INP-ZERO'S - ASHC AC,-2
2321 ;TEST ABILITY TO SHIFT INTO BIT 0 OF MQ
2322 SR2 (367,377777,-1,-1,-1,077777,-1,377777,-1,ASHC,-2)^
2323 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
2324 ;DATA SPECIFIED IN [XWD 377777,-1] AND [XWD -1,-1] -2 BIT POSITIONS AND
2325 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 077777,-1] AND
2326 ;[XWD 377777,-1]
2327
2328 032070 200 01 0 00 036607 E36700: MOVE AC,[XWD 377777,-1] ;INITIALIZE AC
2329 032071 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1
2330 032072 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
2331 032073 312 01 0 00 036623 CAME AC,[XWD 077777,-1] ;IS RESULT IN AC CORRECT?
2332 032074 003 01 0 00 036701 ER3 AC,36701 ;RESULT IN AC IS INCORRECT
2333 032075 312 02 0 00 036607 CAME AC+1,[XWD 377777,-1] ;IS RESULT IN AC+1 CORRECT?
2334 032076 004 02 0 00 036701 ER4 AC+1,36701 ;RESULT IN AC+1 IS INCORRECT
2335 032077 321 03 0 00 032070 JUMPL AC+2,E36700 ;LOOP ON ERROR SWITCH^
2336
2337 ;SHIFT CONNECTIONS TEST
2338 ;TEST MQ1 SHRT INP-ONE'S - ASHC AC,-2
2339 ;TEST ABILITY TO SHIFT INTO BIT 1 OF MQ
2340 SR2 (370,0,2,0,0,0,0,200000,0,ASHC,-2)^
2341 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
2342 ;DATA SPECIFIED IN [XWD 0,2] AND [XWD 0,0] -2 BIT POSITIONS AND
2343 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
2344 ;[XWD 200000,0]
2345
2346 032100 200 01 0 00 036576 E37000: MOVE AC,[XWD 0,2] ;INITIALIZE AC
2347 032101 200 02 0 00 036574 MOVE AC+1,[XWD 0,0] ;INITIALIZE AC+1
2348 032102 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
2349 032103 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT?
2350 032104 003 01 0 00 037001 ER3 AC,37001 ;RESULT IN AC IS INCORRECT
2351 032105 312 02 0 00 036601 CAME AC+1,[XWD 200000,0] ;IS RESULT IN AC+1 CORRECT?
2352 032106 004 02 0 00 037001 ER4 AC+1,37001 ;RESULT IN AC+1 IS INCORRECT
2353 032107 321 03 0 00 032100 JUMPL AC+2,E37000 ;LOOP ON ERROR SWITCH^
2354
2355 ;SHIFT CONNECTIONS TEST
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 13-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0073
2356 ;TEST MQ1 SHRT INP-ZERO'S - ASHC AC,-2
2357 ;TEST ABILITY TO SHIFT INTO BIT 1 OF MQ
2358 SR2 (371,-1,-3,-1,-1,-1,-1,577777,-1,ASHC,-2)^
2359 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
2360 ;DATA SPECIFIED IN [XWD -1,-3] AND [XWD -1,-1] -2 BIT POSITIONS AND
2361 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND
2362 ;[XWD 577777,-1]
2363
2364 032110 200 01 0 00 036610 E37100: MOVE AC,[XWD -1,-3] ;INITIALIZE AC
2365 032111 200 02 0 00 036572 MOVE AC+1,[XWD -1,-1] ;INITIALIZE AC+1
2366 032112 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
2367 032113 312 01 0 00 036572 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT?
2368 032114 003 01 0 00 037101 ER3 AC,37101 ;RESULT IN AC IS INCORRECT
2369 032115 312 02 0 00 036605 CAME AC+1,[XWD 577777,-1] ;IS RESULT IN AC+1 CORRECT?
2370 032116 004 02 0 00 037101 ER4 AC+1,37101 ;RESULT IN AC+1 IS INCORRECT
2371 032117 321 03 0 00 032110 JUMPL AC+2,E37100 ;LOOP ON ERROR SWITCH^
2372 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 13-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0074
2373 ;SHIFT CONNECTIONS TEST
2374 ;TEST MQ34 SHRT INP-ONE'S - ASHC AC,-2
2375 ;TEST ABILITY TO SHIFT INTO BIT 34 OF MQ
2376 SR2 (372,0,0,0,10,0,0,0,2,ASHC,-2)^
2377 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
2378 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,10] -2 BIT POSITIONS AND
2379 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
2380 ;[XWD 0,2]
2381
2382 032120 200 01 0 00 036574 E37200: MOVE AC,[XWD 0,0] ;INITIALIZE AC
2383 032121 200 02 0 00 036615 MOVE AC+1,[XWD 0,10] ;INITIALIZE AC+1
2384 032122 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
2385 032123 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT?
2386 032124 003 01 0 00 037201 ER3 AC,37201 ;RESULT IN AC IS INCORRECT
2387 032125 312 02 0 00 036576 CAME AC+1,[XWD 0,2] ;IS RESULT IN AC+1 CORRECT?
2388 032126 004 02 0 00 037201 ER4 AC+1,37201 ;RESULT IN AC+1 IS INCORRECT
2389 032127 321 03 0 00 032120 JUMPL AC+2,E37200 ;LOOP ON ERROR SWITCH^
2390
2391 ;SHIFT CONNECTIONS TEST
2392 ;TEST MQ34 SHRT INP-ZERO'S - ASHC AC,-2
2393 ;TEST ABILITY TO SHIFT INTO BIT 34 OF MQ
2394 SR2 (373,-1,-1,-1,-11,-1,-1,-1,-3,ASHC,-2)^
2395 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
2396 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-11] -2 BIT POSITIONS AND
2397 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND
2398 ;[XWD -1,-3]
2399
2400 032130 200 01 0 00 036572 E37300: MOVE AC,[XWD -1,-1] ;INITIALIZE AC
2401 032131 200 02 0 00 036616 MOVE AC+1,[XWD -1,-11] ;INITIALIZE AC+1
2402 032132 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
2403 032133 312 01 0 00 036572 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT?
2404 032134 003 01 0 00 037301 ER3 AC,37301 ;RESULT IN AC IS INCORRECT
2405 032135 312 02 0 00 036610 CAME AC+1,[XWD -1,-3] ;IS RESULT IN AC+1 CORRECT?
2406 032136 004 02 0 00 037301 ER4 AC+1,37301 ;RESULT IN AC+1 IS INCORRECT
2407 032137 321 03 0 00 032130 JUMPL AC+2,E37300 ;LOOP ON ERROR SWITCH^
2408
2409 ;SHIFT CONNECTIONS TEST
2410 ;TEST MQ35 SHRT INP-ONE'S - ASHC AC,-2
2411 ;TEST ABILITY TO SHIFT INTO BIT 35 OF MQ
2412 SR2 (374,0,0,0,4,0,0,0,1,ASHC,-2)^
2413 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
2414 ;DATA SPECIFIED IN [XWD 0,0] AND [XWD 0,4] -2 BIT POSITIONS AND
2415 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 0,0] AND
2416 ;[XWD 0,1]
2417
2418 032140 200 01 0 00 036574 E37400: MOVE AC,[XWD 0,0] ;INITIALIZE AC
2419 032141 200 02 0 00 036612 MOVE AC+1,[XWD 0,4] ;INITIALIZE AC+1
2420 032142 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
2421 032143 312 01 0 00 036574 CAME AC,[XWD 0,0] ;IS RESULT IN AC CORRECT?
2422 032144 003 01 0 00 037401 ER3 AC,37401 ;RESULT IN AC IS INCORRECT
2423 032145 312 02 0 00 036575 CAME AC+1,[XWD 0,1] ;IS RESULT IN AC+1 CORRECT?
2424 032146 004 02 0 00 037401 ER4 AC+1,37401 ;RESULT IN AC+1 IS INCORRECT
2425 032147 321 03 0 00 032140 JUMPL AC+2,E37400 ;LOOP ON ERROR SWITCH^
2426
2427 ;SHIFT CONNECTIONS TEST
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 13-3
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - END CONNECTIONS TEST (ASHC) SEQ 0075
2428 ;TEST MQ35 SHRT INP-ZERO'S - ASHC AC,-2
2429 ;TEST ABILITY TO SHIFT INTO BIT 35 OF MQ
2430 SR2 (375,-1,-1,-1,-5,-1,-1,-1,-2,ASHC,-2)^
2431 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
2432 ;DATA SPECIFIED IN [XWD -1,-1] AND [XWD -1,-5] -2 BIT POSITIONS AND
2433 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD -1,-1] AND
2434 ;[XWD -1,-2]
2435
2436 032150 200 01 0 00 036572 E37500: MOVE AC,[XWD -1,-1] ;INITIALIZE AC
2437 032151 200 02 0 00 036613 MOVE AC+1,[XWD -1,-5] ;INITIALIZE AC+1
2438 032152 244 01 0 00 777776 ASHC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
2439 032153 312 01 0 00 036572 CAME AC,[XWD -1,-1] ;IS RESULT IN AC CORRECT?
2440 032154 003 01 0 00 037501 ER3 AC,37501 ;RESULT IN AC IS INCORRECT
2441 032155 312 02 0 00 036573 CAME AC+1,[XWD -1,-2] ;IS RESULT IN AC+1 CORRECT?
2442 032156 004 02 0 00 037501 ER4 AC+1,37501 ;RESULT IN AC+1 IS INCORRECT
2443 032157 321 03 0 00 032150 JUMPL AC+2,E37500 ;LOOP ON ERROR SWITCH^
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 14
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - BIT POSITION RELIABILITY TEST SEQ 0076
2444 SUBTTL DIAGNOSTIC SECTION - BIT POSITION RELIABILITY TEST
2445
2446 ;BIT POSITION RELIABILITY TEST
2447 ;TEST ABILITY TO ROTATE ONES AND ZEROS INTO ALL BIT POSITIONS
2448 SR1 (445,252525,252525,525252,525252,ROT,1)^
2449 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 252525,252525] 1 BIT
2450 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 525252,525252]
2451 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
2452
2453 032160 200 01 0 00 036624 E44500: MOVE AC,[XWD 252525,252525] ;INITIALIZE AC
2454 032161 200 02 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
2455 032162 241 01 0 00 000001 ROT AC,1 ;*SHIFT/ROTATE 1 BIT POSITIONS
2456 032163 312 01 0 00 036626 CAME AC,[XWD 525252,525252] ;IS RESULT IN AC CORRECT?
2457 032164 003 01 0 00 044501 ER3 AC,44501 ;RESULT IN AC IS INCORRECT
2458 032165 312 02 0 00 036625 CAME AC+1,[XWD 741703,607417]
2459 032166 004 02 0 00 044501 ER4 AC+1,44501 ;C(AC+1) WAS MODIFIED INCORRECTLY
2460 032167 321 03 0 00 032160 JUMPL AC+2,E44500 ;LOOP ON ERROR SWITCH^
2461
2462 ;BIT POSITION RELIABILITY TEST
2463 ;TEST ABILITY TO ROTATE ONES AND ZEROS INTO ALL BIT POSITIONS
2464 SR1 (446,525252,525252,252525,252525,ROT,1)^
2465 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 525252,525252] 1 BIT
2466 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 252525,252525]
2467 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
2468
2469 032170 200 01 0 00 036626 E44600: MOVE AC,[XWD 525252,525252] ;INITIALIZE AC
2470 032171 200 02 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
2471 032172 241 01 0 00 000001 ROT AC,1 ;*SHIFT/ROTATE 1 BIT POSITIONS
2472 032173 312 01 0 00 036624 CAME AC,[XWD 252525,252525] ;IS RESULT IN AC CORRECT?
2473 032174 003 01 0 00 044601 ER3 AC,44601 ;RESULT IN AC IS INCORRECT
2474 032175 312 02 0 00 036625 CAME AC+1,[XWD 741703,607417]
2475 032176 004 02 0 00 044601 ER4 AC+1,44601 ;C(AC+1) WAS MODIFIED INCORRECTLY
2476 032177 321 03 0 00 032170 JUMPL AC+2,E44600 ;LOOP ON ERROR SWITCH^
2477
2478 ;BIT POSITION RELIABILITY TEST
2479 ;TEST ABILITY TO ROTATE ONES AND ZEROS INTO ALL BIT POSITIONS
2480 SR1 (447,252525,252525,525252,525252,ROT,-1)^
2481 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 252525,252525] -1 BIT
2482 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 525252,525252]
2483 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
2484
2485 032200 200 01 0 00 036624 E44700: MOVE AC,[XWD 252525,252525] ;INITIALIZE AC
2486 032201 200 02 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
2487 032202 241 01 0 00 777777 ROT AC,-1 ;*SHIFT/ROTATE -1 BIT POSITIONS
2488 032203 312 01 0 00 036626 CAME AC,[XWD 525252,525252] ;IS RESULT IN AC CORRECT?
2489 032204 003 01 0 00 044701 ER3 AC,44701 ;RESULT IN AC IS INCORRECT
2490 032205 312 02 0 00 036625 CAME AC+1,[XWD 741703,607417]
2491 032206 004 02 0 00 044701 ER4 AC+1,44701 ;C(AC+1) WAS MODIFIED INCORRECTLY
2492 032207 321 03 0 00 032200 JUMPL AC+2,E44700 ;LOOP ON ERROR SWITCH^
2493
2494 ;BIT POSITION RELIABILITY TEST
2495 ;TEST ABILITY TO ROTATE ONES AND ZEROS INTO ALL BIT POSITIONS
2496 SR1 (450,525252,525252,252525,252525,ROT,-1)^
2497 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 525252,525252] -1 BIT
2498 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 252525,252525]
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 14-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - BIT POSITION RELIABILITY TEST SEQ 0077
2499 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
2500
2501 032210 200 01 0 00 036626 E45000: MOVE AC,[XWD 525252,525252] ;INITIALIZE AC
2502 032211 200 02 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
2503 032212 241 01 0 00 777777 ROT AC,-1 ;*SHIFT/ROTATE -1 BIT POSITIONS
2504 032213 312 01 0 00 036624 CAME AC,[XWD 252525,252525] ;IS RESULT IN AC CORRECT?
2505 032214 003 01 0 00 045001 ER3 AC,45001 ;RESULT IN AC IS INCORRECT
2506 032215 312 02 0 00 036625 CAME AC+1,[XWD 741703,607417]
2507 032216 004 02 0 00 045001 ER4 AC+1,45001 ;C(AC+1) WAS MODIFIED INCORRECTLY
2508 032217 321 03 0 00 032210 JUMPL AC+2,E45000 ;LOOP ON ERROR SWITCH^
2509 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 14-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - BIT POSITION RELIABILITY TEST SEQ 0078
2510 ;BIT POSITION RELIABILITY TEST
2511 ;TEST ABILITY TO ROTATE ONES AND ZEROS INTO ALL BIT POSITIONS
2512 SR1 (451,146314,631463,631463,146314,ROT,-2)^
2513 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 146314,631463] -2 BIT
2514 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 631463,146314]
2515 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
2516
2517 032220 200 01 0 00 036627 E45100: MOVE AC,[XWD 146314,631463] ;INITIALIZE AC
2518 032221 200 02 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
2519 032222 241 01 0 00 777776 ROT AC,-2 ;*SHIFT/ROTATE -2 BIT POSITIONS
2520 032223 312 01 0 00 036630 CAME AC,[XWD 631463,146314] ;IS RESULT IN AC CORRECT?
2521 032224 003 01 0 00 045101 ER3 AC,45101 ;RESULT IN AC IS INCORRECT
2522 032225 312 02 0 00 036625 CAME AC+1,[XWD 741703,607417]
2523 032226 004 02 0 00 045101 ER4 AC+1,45101 ;C(AC+1) WAS MODIFIED INCORRECTLY
2524 032227 321 03 0 00 032220 JUMPL AC+2,E45100 ;LOOP ON ERROR SWITCH^
2525
2526 ;BIT POSITION RELIABILITY TEST
2527 ;TEST ABILITY TO ROTATE ONES AND ZEROS INTO ALL BIT POSITIONS
2528 SR1 (452,631463,146314,146314,631463,ROT,-2)^
2529 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 631463,146314] -2 BIT
2530 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 146314,631463]
2531 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
2532
2533 032230 200 01 0 00 036630 E45200: MOVE AC,[XWD 631463,146314] ;INITIALIZE AC
2534 032231 200 02 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
2535 032232 241 01 0 00 777776 ROT AC,-2 ;*SHIFT/ROTATE -2 BIT POSITIONS
2536 032233 312 01 0 00 036627 CAME AC,[XWD 146314,631463] ;IS RESULT IN AC CORRECT?
2537 032234 003 01 0 00 045201 ER3 AC,45201 ;RESULT IN AC IS INCORRECT
2538 032235 312 02 0 00 036625 CAME AC+1,[XWD 741703,607417]
2539 032236 004 02 0 00 045201 ER4 AC+1,45201 ;C(AC+1) WAS MODIFIED INCORRECTLY
2540 032237 321 03 0 00 032230 JUMPL AC+2,E45200 ;LOOP ON ERROR SWITCH^
2541
2542 ;BIT POSITION RELIABILITY TEST
2543 ;TEST ABILITY TO ROTATE ONES AND ZEROS INTO ALL BIT POSITIONS
2544 SR2 (453,252525,252525,252525,252525,525252,525252,525252,525252,ROTC,1)^
2545 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
2546 ;DATA SPECIFIED IN [XWD 252525,252525] AND [XWD 252525,252525] 1 BIT POSITIONS AND
2547 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 525252,525252] AND
2548 ;[XWD 525252,525252]
2549
2550 032240 200 01 0 00 036624 E45300: MOVE AC,[XWD 252525,252525] ;INITIALIZE AC
2551 032241 200 02 0 00 036624 MOVE AC+1,[XWD 252525,252525] ;INITIALIZE AC+1
2552 032242 245 01 0 00 000001 ROTC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
2553 032243 312 01 0 00 036626 CAME AC,[XWD 525252,525252] ;IS RESULT IN AC CORRECT?
2554 032244 003 01 0 00 045301 ER3 AC,45301 ;RESULT IN AC IS INCORRECT
2555 032245 312 02 0 00 036626 CAME AC+1,[XWD 525252,525252] ;IS RESULT IN AC+1 CORRECT?
2556 032246 004 02 0 00 045301 ER4 AC+1,45301 ;RESULT IN AC+1 IS INCORRECT
2557 032247 321 03 0 00 032240 JUMPL AC+2,E45300 ;LOOP ON ERROR SWITCH^
2558
2559 ;BIT POSITION RELIABILITY TEST
2560 ;TEST ABILITY TO ROTATE ONES AND ZEROS INTO ALL BIT POSITIONS
2561 SR2 (454,525252,525252,525252,525252,252525,252525,252525,252525,ROTC,1)^
2562 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
2563 ;DATA SPECIFIED IN [XWD 525252,525252] AND [XWD 525252,525252] 1 BIT POSITIONS AND
2564 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 252525,252525] AND
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 14-3
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - BIT POSITION RELIABILITY TEST SEQ 0079
2565 ;[XWD 252525,252525]
2566
2567 032250 200 01 0 00 036626 E45400: MOVE AC,[XWD 525252,525252] ;INITIALIZE AC
2568 032251 200 02 0 00 036626 MOVE AC+1,[XWD 525252,525252] ;INITIALIZE AC+1
2569 032252 245 01 0 00 000001 ROTC AC,1 ;*SHIFT/ROTATE COMBINED 1 PLACES
2570 032253 312 01 0 00 036624 CAME AC,[XWD 252525,252525] ;IS RESULT IN AC CORRECT?
2571 032254 003 01 0 00 045401 ER3 AC,45401 ;RESULT IN AC IS INCORRECT
2572 032255 312 02 0 00 036624 CAME AC+1,[XWD 252525,252525] ;IS RESULT IN AC+1 CORRECT?
2573 032256 004 02 0 00 045401 ER4 AC+1,45401 ;RESULT IN AC+1 IS INCORRECT
2574 032257 321 03 0 00 032250 JUMPL AC+2,E45400 ;LOOP ON ERROR SWITCH^
2575 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 14-4
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - BIT POSITION RELIABILITY TEST SEQ 0080
2576 ;BIT POSITION RELIABILITY TEST
2577 ;TEST ABILITY TO ROTATE ONES AND ZEROS INTO ALL BIT POSITIONS
2578 SR2 (455,252525,252525,252525,252525,525252,525252,525252,525252,ROTC,-1)^
2579 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
2580 ;DATA SPECIFIED IN [XWD 252525,252525] AND [XWD 252525,252525] -1 BIT POSITIONS AND
2581 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 525252,525252] AND
2582 ;[XWD 525252,525252]
2583
2584 032260 200 01 0 00 036624 E45500: MOVE AC,[XWD 252525,252525] ;INITIALIZE AC
2585 032261 200 02 0 00 036624 MOVE AC+1,[XWD 252525,252525] ;INITIALIZE AC+1
2586 032262 245 01 0 00 777777 ROTC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
2587 032263 312 01 0 00 036626 CAME AC,[XWD 525252,525252] ;IS RESULT IN AC CORRECT?
2588 032264 003 01 0 00 045501 ER3 AC,45501 ;RESULT IN AC IS INCORRECT
2589 032265 312 02 0 00 036626 CAME AC+1,[XWD 525252,525252] ;IS RESULT IN AC+1 CORRECT?
2590 032266 004 02 0 00 045501 ER4 AC+1,45501 ;RESULT IN AC+1 IS INCORRECT
2591 032267 321 03 0 00 032260 JUMPL AC+2,E45500 ;LOOP ON ERROR SWITCH^
2592
2593 ;BIT POSITION RELIABILITY TEST
2594 ;TEST ABILITY TO ROTATE ONES AND ZEROS INTO ALL BIT POSITIONS
2595 SR2 (456,525252,525252,525252,525252,252525,252525,252525,252525,ROTC,-1)^
2596 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
2597 ;DATA SPECIFIED IN [XWD 525252,525252] AND [XWD 525252,525252] -1 BIT POSITIONS AND
2598 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 252525,252525] AND
2599 ;[XWD 252525,252525]
2600
2601 032270 200 01 0 00 036626 E45600: MOVE AC,[XWD 525252,525252] ;INITIALIZE AC
2602 032271 200 02 0 00 036626 MOVE AC+1,[XWD 525252,525252] ;INITIALIZE AC+1
2603 032272 245 01 0 00 777777 ROTC AC,-1 ;*SHIFT/ROTATE COMBINED -1 PLACES
2604 032273 312 01 0 00 036624 CAME AC,[XWD 252525,252525] ;IS RESULT IN AC CORRECT?
2605 032274 003 01 0 00 045601 ER3 AC,45601 ;RESULT IN AC IS INCORRECT
2606 032275 312 02 0 00 036624 CAME AC+1,[XWD 252525,252525] ;IS RESULT IN AC+1 CORRECT?
2607 032276 004 02 0 00 045601 ER4 AC+1,45601 ;RESULT IN AC+1 IS INCORRECT
2608 032277 321 03 0 00 032270 JUMPL AC+2,E45600 ;LOOP ON ERROR SWITCH^
2609
2610 ;BIT POSITION RELIABILITY TEST
2611 ;TEST ABILITY TO ROTATE ONES AND ZEROS INTO ALL BIT POSITIONS
2612 SR2 (457,146314,631463,146314,631463,631463,146314,631463,146314,ROTC,-2)^
2613 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
2614 ;DATA SPECIFIED IN [XWD 146314,631463] AND [XWD 146314,631463] -2 BIT POSITIONS AND
2615 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 631463,146314] AND
2616 ;[XWD 631463,146314]
2617
2618 032300 200 01 0 00 036627 E45700: MOVE AC,[XWD 146314,631463] ;INITIALIZE AC
2619 032301 200 02 0 00 036627 MOVE AC+1,[XWD 146314,631463] ;INITIALIZE AC+1
2620 032302 245 01 0 00 777776 ROTC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
2621 032303 312 01 0 00 036630 CAME AC,[XWD 631463,146314] ;IS RESULT IN AC CORRECT?
2622 032304 003 01 0 00 045701 ER3 AC,45701 ;RESULT IN AC IS INCORRECT
2623 032305 312 02 0 00 036630 CAME AC+1,[XWD 631463,146314] ;IS RESULT IN AC+1 CORRECT?
2624 032306 004 02 0 00 045701 ER4 AC+1,45701 ;RESULT IN AC+1 IS INCORRECT
2625 032307 321 03 0 00 032300 JUMPL AC+2,E45700 ;LOOP ON ERROR SWITCH^
2626
2627 ;BIT POSITION RELIABILITY TEST
2628 ;TEST ABILITY TO ROTATE ONES AND ZEROS INTO ALL BIT POSITIONS
2629 SR2 (460,631463,146314,631463,146314,146314,631463,146314,631463,ROTC,-2)^
2630 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 14-5
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - BIT POSITION RELIABILITY TEST SEQ 0081
2631 ;DATA SPECIFIED IN [XWD 631463,146314] AND [XWD 631463,146314] -2 BIT POSITIONS AND
2632 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 146314,631463] AND
2633 ;[XWD 146314,631463]
2634
2635 032310 200 01 0 00 036630 E46000: MOVE AC,[XWD 631463,146314] ;INITIALIZE AC
2636 032311 200 02 0 00 036630 MOVE AC+1,[XWD 631463,146314] ;INITIALIZE AC+1
2637 032312 245 01 0 00 777776 ROTC AC,-2 ;*SHIFT/ROTATE COMBINED -2 PLACES
2638 032313 312 01 0 00 036627 CAME AC,[XWD 146314,631463] ;IS RESULT IN AC CORRECT?
2639 032314 003 01 0 00 046001 ER3 AC,46001 ;RESULT IN AC IS INCORRECT
2640 032315 312 02 0 00 036627 CAME AC+1,[XWD 146314,631463] ;IS RESULT IN AC+1 CORRECT?
2641 032316 004 02 0 00 046001 ER4 AC+1,46001 ;RESULT IN AC+1 IS INCORRECT
2642 032317 321 03 0 00 032310 JUMPL AC+2,E46000 ;LOOP ON ERROR SWITCH^
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 15
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC GATING TEST SEQ 0082
2643 SUBTTL DIAGNOSTIC SECTION - SC GATING TEST
2644
2645 000005 AC=5
2646 SAVEAC (1,1)^
2647 032320 201 07 0 00 032320 MOVEI AC+2,. ;SAVE TEST PC
2648 032321 202 07 0 00 030051 MOVEM AC+2,TESTPC
2649 032322 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2650 032323 202 07 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2651
2652 037600 SN=37600
2653 000017 ZZ=17
2654
2655 E37600: REPEAT ^D3,< ;SHIFT LEFT
2656 ;TEST SC HIGH ORDER BITS
2657 ;TEST THE ABILITY TO SET THE FOUR MOST
2658 ;SIGNIFICANT BITS
2659 ;AC IS LOGICALLY SHIFTED LEFT
2660 ;AND TESTED
2661 ;FAILURE TO SET BIT 0 RESULTS IN NO SHIFT
2662 ;AN ERROR WILL OCCUR IF AC EQUALS ZERO
2663 ;FOLLOWING A SHIFT
2664 ;FAILURE TO SET SC BIT 1,2 OR
2665 ;3 WILL RESULT IN EXCESSIVE SHIFTING
2666
2667 SN=SN+1
2668 ZZ=ZZ+1
2669 MOVEI AC,1 ;SET BIT 35
2670 LSH AC,ZZ ;*SHIFT LEFT (N) NUMBER OF TIMES
2671 CAIN AC,1 ;TEST FOR SHIFT
2672 ER3 AC,SN ;SC BIT 0 FAILED TO SET
2673 SKIPN AC ;SHIFT EXCEEDED OCTAL 44
2674 ER3 AC,SN ;SC BIT (N) FAILED TO SET
2675 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2676 >
2677 ;SHIFT LEFT
2678 ;TEST SC HIGH ORDER BITS
2679 ;TEST THE ABILITY TO SET THE FOUR MOST
2680 ;SIGNIFICANT BITS
2681 ;AC IS LOGICALLY SHIFTED LEFT
2682 ;AND TESTED
2683 ;FAILURE TO SET BIT 0 RESULTS IN NO SHIFT
2684 ;AN ERROR WILL OCCUR IF AC EQUALS ZERO
2685 ;FOLLOWING A SHIFT
2686 ;FAILURE TO SET SC BIT 1,2 OR
2687 ;3 WILL RESULT IN EXCESSIVE SHIFTING
2688
2689 037601 SN=SN+1
2690 000020 ZZ=ZZ+1
2691 032324 201 05 0 00 000001 MOVEI AC,1 ;SET BIT 35
2692 032325 242 05 0 00 000020 LSH AC,ZZ ;*SHIFT LEFT (N) NUMBER OF TIMES
2693 032326 306 05 0 00 000001 CAIN AC,1 ;TEST FOR SHIFT
2694 032327 003 05 0 00 037601 ER3 AC,SN ;SC BIT 0 FAILED TO SET
2695 032330 336 00 0 00 000005 SKIPN AC ;SHIFT EXCEEDED OCTAL 44
2696 032331 003 05 0 00 037601 ER3 AC,SN ;SC BIT (N) FAILED TO SET
2697 032332 321 07 0 00 032324 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 15-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC GATING TEST SEQ 0083
2698
2699 ;SHIFT LEFT
2700 ;TEST SC HIGH ORDER BITS
2701 ;TEST THE ABILITY TO SET THE FOUR MOST
2702 ;SIGNIFICANT BITS
2703 ;AC IS LOGICALLY SHIFTED LEFT
2704 ;AND TESTED
2705 ;FAILURE TO SET BIT 0 RESULTS IN NO SHIFT
2706 ;AN ERROR WILL OCCUR IF AC EQUALS ZERO
2707 ;FOLLOWING A SHIFT
2708 ;FAILURE TO SET SC BIT 1,2 OR
2709 ;3 WILL RESULT IN EXCESSIVE SHIFTING
2710
2711 037602 SN=SN+1
2712 000021 ZZ=ZZ+1
2713 032333 201 05 0 00 000001 MOVEI AC,1 ;SET BIT 35
2714 032334 242 05 0 00 000021 LSH AC,ZZ ;*SHIFT LEFT (N) NUMBER OF TIMES
2715 032335 306 05 0 00 000001 CAIN AC,1 ;TEST FOR SHIFT
2716 032336 003 05 0 00 037602 ER3 AC,SN ;SC BIT 0 FAILED TO SET
2717 032337 336 00 0 00 000005 SKIPN AC ;SHIFT EXCEEDED OCTAL 44
2718 032340 003 05 0 00 037602 ER3 AC,SN ;SC BIT (N) FAILED TO SET
2719 032341 321 07 0 00 032333 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2720
2721 ;SHIFT LEFT
2722 ;TEST SC HIGH ORDER BITS
2723 ;TEST THE ABILITY TO SET THE FOUR MOST
2724 ;SIGNIFICANT BITS
2725 ;AC IS LOGICALLY SHIFTED LEFT
2726 ;AND TESTED
2727 ;FAILURE TO SET BIT 0 RESULTS IN NO SHIFT
2728 ;AN ERROR WILL OCCUR IF AC EQUALS ZERO
2729 ;FOLLOWING A SHIFT
2730 ;FAILURE TO SET SC BIT 1,2 OR
2731 ;3 WILL RESULT IN EXCESSIVE SHIFTING
2732
2733 037603 SN=SN+1
2734 000022 ZZ=ZZ+1
2735 032342 201 05 0 00 000001 MOVEI AC,1 ;SET BIT 35
2736 032343 242 05 0 00 000022 LSH AC,ZZ ;*SHIFT LEFT (N) NUMBER OF TIMES
2737 032344 306 05 0 00 000001 CAIN AC,1 ;TEST FOR SHIFT
2738 032345 003 05 0 00 037603 ER3 AC,SN ;SC BIT 0 FAILED TO SET
2739 032346 336 00 0 00 000005 SKIPN AC ;SHIFT EXCEEDED OCTAL 44
2740 032347 003 05 0 00 037603 ER3 AC,SN ;SC BIT (N) FAILED TO SET
2741 032350 321 07 0 00 032342 JUMPL AC+2,.-6 ;LOOP ON ERROR SWITCH
2742
2743
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 16
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC AR CONTROL AND GATING TEST SEQ 0084
2744 SUBTTL DIAGNOSTIC SECTION - SC AR CONTROL AND GATING TEST
2745
2746 ;TEST SC AR EN
2747 ;TEST THE ABILITY OF SC AR EN TO
2748 ;AFFECT A TRANSFER BETWEEN SC AND AR
2749 ;MALFUNCTION OF SCAD OR SC COUNT GATES
2750 ;WILL AFFECT TEST
2751 ;AC IS ROTATED LEFT/RIGHT AND TESTED FOR
2752 ;EVIDENCE OF ROTATE
2753
2754 000007 AC=7
2755 SAVEAC (1,1)^
2756 032351 201 11 0 00 032351 MOVEI AC+2,. ;SAVE TEST PC
2757 032352 202 11 0 00 030051 MOVEM AC+2,TESTPC
2758 032353 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2759 032354 202 11 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2760
2761 032355 201 07 0 00 000001 E37700: MOVEI AC,1 ;SET BIT 35
2762 032356 241 07 0 00 777773 ROT AC,-5 ;*ROTATE RIGHT
2763 032357 241 07 0 00 000007 ROT AC,7 ;*ROTATE LEFT
2764 032360 306 07 0 00 000001 CAIN AC,1 ;TEST FOR PRESENCE
2765 032361 003 07 0 00 037701 ER3 AC,37701 ;OF PULSE
2766 032362 321 11 0 00 032355 JUMPL AC+2,E37700 ;LOOP ON ERROR SWITCH
2767
2768 ;TEST PULSE WITH SC BITS 5-8
2769 032363 201 07 0 00 000001 E40000: MOVEI AC,1 ;SET BIT 35
2770 032364 241 07 0 00 000017 ROT AC,17 ;*ROTATE LEFT
2771 032365 306 07 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE LEFT
2772 032366 003 07 0 00 040001 ER3 AC,40001 ;SC AR EN FAILED
2773 032367 321 11 0 00 032363 JUMPL AC+2,E40000 ;LOOP ON ERROR SWITCH
2774
2775 ;TEST PULSE WITH SC BITS 4-8
2776 032370 201 07 0 00 000001 E40100: MOVEI AC,1 ;SET BIT 35
2777 032371 241 07 0 00 000037 ROT AC,37 ;*ROTATE LEFT
2778 032372 306 07 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE LEFT
2779 032373 003 07 0 00 040101 ER3 AC,40101 ;TEST FOR ROTATE LEFT
2780 032374 321 11 0 00 032370 JUMPL AC+2,E40100 ;LOOP ON ERROR SWITCH
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 17
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC AR CONTROL AND GATING TEST SEQ 0085
2781 000006 AC=6
2782 SAVEAC (1,1)^
2783 032375 201 10 0 00 032375 MOVEI AC+2,. ;SAVE TEST PC
2784 032376 202 10 0 00 030051 MOVEM AC+2,TESTPC
2785 032377 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2786 032400 202 10 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2787
2788 040200 SN=40200
2789 000000 ZZ=0
2790
2791 E40200: REPEAT ^D8,<
2792 ;TEST SC-AR CONNECTION-ONE'S
2793 ;TEST THE ABILITY OF SC AR EN
2794 ;TO TRANSFER ONE'S TO SC
2795 ;SC BITS EIGHT THROUGH ONE ARE SET IN TURN
2796 ;MALFUNCTION OF SCAD OR SC COUNT GATES
2797 ;WILL AFFECT TEST
2798 ;FAILURE OF A SHIFT COUNTER BIT TO SET
2799 ;RESULTS IN NO ROTATE
2800
2801 SN=SN+1
2802 ZZ=ZZ+ZZ
2803 IFE ZZ,<ZZ=1>
2804 MOVEI AC,1 ;SET BIT 35
2805 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES
2806 CAIN AC,1 ;TEST FOR ROTATE
2807 ER3 AC,SN ;SC BIT (N) FAILED TO SET
2808 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
2809 >
2810
2811 ;TEST SC-AR CONNECTION-ONE'S
2812 ;TEST THE ABILITY OF SC AR EN
2813 ;TO TRANSFER ONE'S TO SC
2814 ;SC BITS EIGHT THROUGH ONE ARE SET IN TURN
2815 ;MALFUNCTION OF SCAD OR SC COUNT GATES
2816 ;WILL AFFECT TEST
2817 ;FAILURE OF A SHIFT COUNTER BIT TO SET
2818 ;RESULTS IN NO ROTATE
2819
2820 040201 SN=SN+1
2821 000000 ZZ=ZZ+ZZ
2822 000001 IFE ZZ,<ZZ=1>
2823 032401 201 06 0 00 000001 MOVEI AC,1 ;SET BIT 35
2824 032402 241 06 0 00 000001 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES
2825 032403 306 06 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE
2826 032404 003 06 0 00 040201 ER3 AC,SN ;SC BIT (N) FAILED TO SET
2827 032405 321 10 0 00 032401 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
2828
2829
2830 ;TEST SC-AR CONNECTION-ONE'S
2831 ;TEST THE ABILITY OF SC AR EN
2832 ;TO TRANSFER ONE'S TO SC
2833 ;SC BITS EIGHT THROUGH ONE ARE SET IN TURN
2834 ;MALFUNCTION OF SCAD OR SC COUNT GATES
2835 ;WILL AFFECT TEST
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 17-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC AR CONTROL AND GATING TEST SEQ 0086
2836 ;FAILURE OF A SHIFT COUNTER BIT TO SET
2837 ;RESULTS IN NO ROTATE
2838
2839 040202 SN=SN+1
2840 000002 ZZ=ZZ+ZZ
2841 IFE ZZ,<ZZ=1>
2842 032406 201 06 0 00 000001 MOVEI AC,1 ;SET BIT 35
2843 032407 241 06 0 00 000002 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES
2844 032410 306 06 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE
2845 032411 003 06 0 00 040202 ER3 AC,SN ;SC BIT (N) FAILED TO SET
2846 032412 321 10 0 00 032406 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
2847
2848
2849 ;TEST SC-AR CONNECTION-ONE'S
2850 ;TEST THE ABILITY OF SC AR EN
2851 ;TO TRANSFER ONE'S TO SC
2852 ;SC BITS EIGHT THROUGH ONE ARE SET IN TURN
2853 ;MALFUNCTION OF SCAD OR SC COUNT GATES
2854 ;WILL AFFECT TEST
2855 ;FAILURE OF A SHIFT COUNTER BIT TO SET
2856 ;RESULTS IN NO ROTATE
2857
2858 040203 SN=SN+1
2859 000004 ZZ=ZZ+ZZ
2860 IFE ZZ,<ZZ=1>
2861 032413 201 06 0 00 000001 MOVEI AC,1 ;SET BIT 35
2862 032414 241 06 0 00 000004 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES
2863 032415 306 06 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE
2864 032416 003 06 0 00 040203 ER3 AC,SN ;SC BIT (N) FAILED TO SET
2865 032417 321 10 0 00 032413 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
2866
2867
2868 ;TEST SC-AR CONNECTION-ONE'S
2869 ;TEST THE ABILITY OF SC AR EN
2870 ;TO TRANSFER ONE'S TO SC
2871 ;SC BITS EIGHT THROUGH ONE ARE SET IN TURN
2872 ;MALFUNCTION OF SCAD OR SC COUNT GATES
2873 ;WILL AFFECT TEST
2874 ;FAILURE OF A SHIFT COUNTER BIT TO SET
2875 ;RESULTS IN NO ROTATE
2876
2877 040204 SN=SN+1
2878 000010 ZZ=ZZ+ZZ
2879 IFE ZZ,<ZZ=1>
2880 032420 201 06 0 00 000001 MOVEI AC,1 ;SET BIT 35
2881 032421 241 06 0 00 000010 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES
2882 032422 306 06 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE
2883 032423 003 06 0 00 040204 ER3 AC,SN ;SC BIT (N) FAILED TO SET
2884 032424 321 10 0 00 032420 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
2885
2886
2887 ;TEST SC-AR CONNECTION-ONE'S
2888 ;TEST THE ABILITY OF SC AR EN
2889 ;TO TRANSFER ONE'S TO SC
2890 ;SC BITS EIGHT THROUGH ONE ARE SET IN TURN
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 17-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC AR CONTROL AND GATING TEST SEQ 0087
2891 ;MALFUNCTION OF SCAD OR SC COUNT GATES
2892 ;WILL AFFECT TEST
2893 ;FAILURE OF A SHIFT COUNTER BIT TO SET
2894 ;RESULTS IN NO ROTATE
2895
2896 040205 SN=SN+1
2897 000020 ZZ=ZZ+ZZ
2898 IFE ZZ,<ZZ=1>
2899 032425 201 06 0 00 000001 MOVEI AC,1 ;SET BIT 35
2900 032426 241 06 0 00 000020 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES
2901 032427 306 06 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE
2902 032430 003 06 0 00 040205 ER3 AC,SN ;SC BIT (N) FAILED TO SET
2903 032431 321 10 0 00 032425 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
2904
2905
2906 ;TEST SC-AR CONNECTION-ONE'S
2907 ;TEST THE ABILITY OF SC AR EN
2908 ;TO TRANSFER ONE'S TO SC
2909 ;SC BITS EIGHT THROUGH ONE ARE SET IN TURN
2910 ;MALFUNCTION OF SCAD OR SC COUNT GATES
2911 ;WILL AFFECT TEST
2912 ;FAILURE OF A SHIFT COUNTER BIT TO SET
2913 ;RESULTS IN NO ROTATE
2914
2915 040206 SN=SN+1
2916 000040 ZZ=ZZ+ZZ
2917 IFE ZZ,<ZZ=1>
2918 032432 201 06 0 00 000001 MOVEI AC,1 ;SET BIT 35
2919 032433 241 06 0 00 000040 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES
2920 032434 306 06 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE
2921 032435 003 06 0 00 040206 ER3 AC,SN ;SC BIT (N) FAILED TO SET
2922 032436 321 10 0 00 032432 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
2923
2924
2925 ;TEST SC-AR CONNECTION-ONE'S
2926 ;TEST THE ABILITY OF SC AR EN
2927 ;TO TRANSFER ONE'S TO SC
2928 ;SC BITS EIGHT THROUGH ONE ARE SET IN TURN
2929 ;MALFUNCTION OF SCAD OR SC COUNT GATES
2930 ;WILL AFFECT TEST
2931 ;FAILURE OF A SHIFT COUNTER BIT TO SET
2932 ;RESULTS IN NO ROTATE
2933
2934 040207 SN=SN+1
2935 000100 ZZ=ZZ+ZZ
2936 IFE ZZ,<ZZ=1>
2937 032437 201 06 0 00 000001 MOVEI AC,1 ;SET BIT 35
2938 032440 241 06 0 00 000100 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES
2939 032441 306 06 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE
2940 032442 003 06 0 00 040207 ER3 AC,SN ;SC BIT (N) FAILED TO SET
2941 032443 321 10 0 00 032437 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
2942
2943
2944 ;TEST SC-AR CONNECTION-ONE'S
2945 ;TEST THE ABILITY OF SC AR EN
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 17-3
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC AR CONTROL AND GATING TEST SEQ 0088
2946 ;TO TRANSFER ONE'S TO SC
2947 ;SC BITS EIGHT THROUGH ONE ARE SET IN TURN
2948 ;MALFUNCTION OF SCAD OR SC COUNT GATES
2949 ;WILL AFFECT TEST
2950 ;FAILURE OF A SHIFT COUNTER BIT TO SET
2951 ;RESULTS IN NO ROTATE
2952
2953 040210 SN=SN+1
2954 000200 ZZ=ZZ+ZZ
2955 IFE ZZ,<ZZ=1>
2956 032444 201 06 0 00 000001 MOVEI AC,1 ;SET BIT 35
2957 032445 241 06 0 00 000200 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES
2958 032446 306 06 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE
2959 032447 003 06 0 00 040210 ER3 AC,SN ;SC BIT (N) FAILED TO SET
2960 032450 321 10 0 00 032444 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
2961
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 18
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC AR CONTROL AND GATING TEST SEQ 0089
2962 000005 AC=5
2963 SAVEAC (1,1)^
2964 032451 201 07 0 00 032451 MOVEI AC+2,. ;SAVE TEST PC
2965 032452 202 07 0 00 030051 MOVEM AC+2,TESTPC
2966 032453 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
2967 032454 202 07 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
2968
2969 040300 SN=40300
2970 000000 XX=0
2971 777777 777777 ZZ=-1
2972
2973 E40300: REPEAT ^D6,<
2974 ;TEST SC AR CONNETION-ZERO'S
2975 ;TEST THE ABILITY OF A SC BIT TO REMAIN
2976 ;A ZERO WHEN TRANSFERRING BR TO SC
2977 ;TEST DETECTS A SC F/F PERMENTLY SET TO A ONE
2978 ;TEST BY ROTATING RIGHT TWO,LEFT ONE
2979 ;MALFUNTION OF SCAD OR SC COUNT GATES
2980 ;WILL AFFECT TEST
2981
2982 SN=SN+1
2983 XX=XX+XX
2984 ZZ=ZZ+ZZ
2985 IFE XX,<XX=1>
2986 MOVEI AC,1 ;SET BIT 35
2987 ROT AC,ZZ ;*ROTATE RIGHT (N) NUMBER OF TIMES
2988 ROT AC,XX ;*ROTATE LEFT (N) NUMBER OF TIMES
2989 CAIN AC,1 ;TEST FOR ROTATE
2990 ER3 AC,SN ;SC BIT (N) FAILED TO CLEAR
2991 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
2992 >
2993
2994 ;TEST SC AR CONNETION-ZERO'S
2995 ;TEST THE ABILITY OF A SC BIT TO REMAIN
2996 ;A ZERO WHEN TRANSFERRING BR TO SC
2997 ;TEST DETECTS A SC F/F PERMENTLY SET TO A ONE
2998 ;TEST BY ROTATING RIGHT TWO,LEFT ONE
2999 ;MALFUNTION OF SCAD OR SC COUNT GATES
3000 ;WILL AFFECT TEST
3001
3002 040301 SN=SN+1
3003 000000 XX=XX+XX
3004 777777 777776 ZZ=ZZ+ZZ
3005 000001 IFE XX,<XX=1>
3006 032455 201 05 0 00 000001 MOVEI AC,1 ;SET BIT 35
3007 032456 241 05 0 00 777776 ROT AC,ZZ ;*ROTATE RIGHT (N) NUMBER OF TIMES
3008 032457 241 05 0 00 000001 ROT AC,XX ;*ROTATE LEFT (N) NUMBER OF TIMES
3009 032460 306 05 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE
3010 032461 003 05 0 00 040301 ER3 AC,SN ;SC BIT (N) FAILED TO CLEAR
3011 032462 321 07 0 00 032455 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3012
3013
3014 ;TEST SC AR CONNETION-ZERO'S
3015 ;TEST THE ABILITY OF A SC BIT TO REMAIN
3016 ;A ZERO WHEN TRANSFERRING BR TO SC
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 18-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC AR CONTROL AND GATING TEST SEQ 0090
3017 ;TEST DETECTS A SC F/F PERMENTLY SET TO A ONE
3018 ;TEST BY ROTATING RIGHT TWO,LEFT ONE
3019 ;MALFUNTION OF SCAD OR SC COUNT GATES
3020 ;WILL AFFECT TEST
3021
3022 040302 SN=SN+1
3023 000002 XX=XX+XX
3024 777777 777774 ZZ=ZZ+ZZ
3025 IFE XX,<XX=1>
3026 032463 201 05 0 00 000001 MOVEI AC,1 ;SET BIT 35
3027 032464 241 05 0 00 777774 ROT AC,ZZ ;*ROTATE RIGHT (N) NUMBER OF TIMES
3028 032465 241 05 0 00 000002 ROT AC,XX ;*ROTATE LEFT (N) NUMBER OF TIMES
3029 032466 306 05 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE
3030 032467 003 05 0 00 040302 ER3 AC,SN ;SC BIT (N) FAILED TO CLEAR
3031 032470 321 07 0 00 032463 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3032
3033
3034 ;TEST SC AR CONNETION-ZERO'S
3035 ;TEST THE ABILITY OF A SC BIT TO REMAIN
3036 ;A ZERO WHEN TRANSFERRING BR TO SC
3037 ;TEST DETECTS A SC F/F PERMENTLY SET TO A ONE
3038 ;TEST BY ROTATING RIGHT TWO,LEFT ONE
3039 ;MALFUNTION OF SCAD OR SC COUNT GATES
3040 ;WILL AFFECT TEST
3041
3042 040303 SN=SN+1
3043 000004 XX=XX+XX
3044 777777 777770 ZZ=ZZ+ZZ
3045 IFE XX,<XX=1>
3046 032471 201 05 0 00 000001 MOVEI AC,1 ;SET BIT 35
3047 032472 241 05 0 00 777770 ROT AC,ZZ ;*ROTATE RIGHT (N) NUMBER OF TIMES
3048 032473 241 05 0 00 000004 ROT AC,XX ;*ROTATE LEFT (N) NUMBER OF TIMES
3049 032474 306 05 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE
3050 032475 003 05 0 00 040303 ER3 AC,SN ;SC BIT (N) FAILED TO CLEAR
3051 032476 321 07 0 00 032471 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3052
3053
3054 ;TEST SC AR CONNETION-ZERO'S
3055 ;TEST THE ABILITY OF A SC BIT TO REMAIN
3056 ;A ZERO WHEN TRANSFERRING BR TO SC
3057 ;TEST DETECTS A SC F/F PERMENTLY SET TO A ONE
3058 ;TEST BY ROTATING RIGHT TWO,LEFT ONE
3059 ;MALFUNTION OF SCAD OR SC COUNT GATES
3060 ;WILL AFFECT TEST
3061
3062 040304 SN=SN+1
3063 000010 XX=XX+XX
3064 777777 777760 ZZ=ZZ+ZZ
3065 IFE XX,<XX=1>
3066 032477 201 05 0 00 000001 MOVEI AC,1 ;SET BIT 35
3067 032500 241 05 0 00 777760 ROT AC,ZZ ;*ROTATE RIGHT (N) NUMBER OF TIMES
3068 032501 241 05 0 00 000010 ROT AC,XX ;*ROTATE LEFT (N) NUMBER OF TIMES
3069 032502 306 05 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE
3070 032503 003 05 0 00 040304 ER3 AC,SN ;SC BIT (N) FAILED TO CLEAR
3071 032504 321 07 0 00 032477 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 18-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC AR CONTROL AND GATING TEST SEQ 0091
3072
3073
3074 ;TEST SC AR CONNETION-ZERO'S
3075 ;TEST THE ABILITY OF A SC BIT TO REMAIN
3076 ;A ZERO WHEN TRANSFERRING BR TO SC
3077 ;TEST DETECTS A SC F/F PERMENTLY SET TO A ONE
3078 ;TEST BY ROTATING RIGHT TWO,LEFT ONE
3079 ;MALFUNTION OF SCAD OR SC COUNT GATES
3080 ;WILL AFFECT TEST
3081
3082 040305 SN=SN+1
3083 000020 XX=XX+XX
3084 777777 777740 ZZ=ZZ+ZZ
3085 IFE XX,<XX=1>
3086 032505 201 05 0 00 000001 MOVEI AC,1 ;SET BIT 35
3087 032506 241 05 0 00 777740 ROT AC,ZZ ;*ROTATE RIGHT (N) NUMBER OF TIMES
3088 032507 241 05 0 00 000020 ROT AC,XX ;*ROTATE LEFT (N) NUMBER OF TIMES
3089 032510 306 05 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE
3090 032511 003 05 0 00 040305 ER3 AC,SN ;SC BIT (N) FAILED TO CLEAR
3091 032512 321 07 0 00 032505 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3092
3093
3094 ;TEST SC AR CONNETION-ZERO'S
3095 ;TEST THE ABILITY OF A SC BIT TO REMAIN
3096 ;A ZERO WHEN TRANSFERRING BR TO SC
3097 ;TEST DETECTS A SC F/F PERMENTLY SET TO A ONE
3098 ;TEST BY ROTATING RIGHT TWO,LEFT ONE
3099 ;MALFUNTION OF SCAD OR SC COUNT GATES
3100 ;WILL AFFECT TEST
3101
3102 040306 SN=SN+1
3103 000040 XX=XX+XX
3104 777777 777700 ZZ=ZZ+ZZ
3105 IFE XX,<XX=1>
3106 032513 201 05 0 00 000001 MOVEI AC,1 ;SET BIT 35
3107 032514 241 05 0 00 777700 ROT AC,ZZ ;*ROTATE RIGHT (N) NUMBER OF TIMES
3108 032515 241 05 0 00 000040 ROT AC,XX ;*ROTATE LEFT (N) NUMBER OF TIMES
3109 032516 306 05 0 00 000001 CAIN AC,1 ;TEST FOR ROTATE
3110 032517 003 05 0 00 040306 ER3 AC,SN ;SC BIT (N) FAILED TO CLEAR
3111 032520 321 07 0 00 032513 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3112
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 19
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0092
3113 SUBTTL DIAGNOSTIC SECTION - SC-SCAD GATING TEST
3114
3115 ;TEST DIRECTION
3116 ;TEST THE ABILITY TO ROTATE IN THE
3117 ;SPECIFIED DIRECTION
3118 ;FAILURE OF AC TO ROTATE OR ROTATING IN THE
3119 ;WRONG DIRECTION WILL CAUSE AN ERROR
3120 ;MALFUNCTION OF SCAD OR SC COUNT GATES WILL
3121 ;CAUSE AN ERROR
3122
3123 000004 AC=4
3124 SAVEAC (1,1)^
3125 032521 201 06 0 00 032521 MOVEI AC+2,. ;SAVE TEST PC
3126 032522 202 06 0 00 030051 MOVEM AC+2,TESTPC
3127 032523 201 06 0 00 000006 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3128 032524 202 06 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3129
3130 ;TEST LEFT
3131 032525 201 04 0 00 400000 E40400: MOVEI AC,400000 ;SET AC BIT 18
3132 032526 205 03 0 00 777777 MOVSI AC-1,-1 ;SET LEFT,CLEAR RIGHT
3133 032527 241 04 0 00 000003 ROT AC,3 ;*ROTATE LEFT
3134 032530 616 04 0 00 000003 TDNN AC,AC-1 ;TEST DIRECTION
3135 032531 003 04 0 00 040401 ER3 AC,40401 ;FAILED OR WRONG DIRECTION
3136 032532 321 06 0 00 032525 JUMPL AC+2,E40400 ;LOOP ON ERROR SWITCH
3137
3138 ;TEST RIGHT
3139 032533 205 04 0 00 000001 E40500: MOVSI AC,1 ;SET AC BIT 17
3140 032534 201 03 0 00 777777 MOVEI AC-1,-1 ;CLEAR LEFT,SET RIGHT
3141 032535 241 04 0 00 777775 ROT AC,-3 ;*ROTATE RIGHT
3142 032536 616 04 0 00 000003 TDNN AC,AC-1 ;TEST DIRECTION
3143 032537 003 04 0 00 040501 ER3 AC,40501 ;FAILED OR WRONG DIRECTION
3144 032540 321 06 0 00 032533 JUMPL AC+2,E40500 ;LOOP ON ERROR SWITCH
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 20
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0093
3145 000003 AC=3
3146 SAVEAC (1,1)^
3147 032541 201 05 0 00 032541 MOVEI AC+2,. ;SAVE TEST PC
3148 032542 202 05 0 00 030051 MOVEM AC+2,TESTPC
3149 032543 201 05 0 00 000005 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3150 032544 202 05 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3151
3152 040600 SN=40600
3153 000000 ZZ=0
3154
3155 E40600: REPEAT ^D8,< ;TEST FOR NO ROTATE
3156 ;SCAD-SC NEGATE SET UP TEST
3157 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT
3158 ;TEST SC+1 ENABLE
3159 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE
3160 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS
3161 ;IN ROT LEFT ONE
3162 ;MALFUNCTION OF SCAD OR SC COUNT GATES
3163 ;WILL AFFECT TEST
3164
3165 SN=SN+1
3166 ZZ=ZZ+ZZ
3167 IFE ZZ,<ZZ=1>
3168 MOVEI AC,1 ;SET BIT 35
3169 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES
3170 CAIN AC,1 ;SC BIT (N) FAILED TO CLEAR
3171 ER3 AC,SN ;ON NEGATE
3172 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3173 >
3174 ;TEST FOR NO ROTATE
3175 ;SCAD-SC NEGATE SET UP TEST
3176 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT
3177 ;TEST SC+1 ENABLE
3178 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE
3179 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS
3180 ;IN ROT LEFT ONE
3181 ;MALFUNCTION OF SCAD OR SC COUNT GATES
3182 ;WILL AFFECT TEST
3183
3184 040601 SN=SN+1
3185 000000 ZZ=ZZ+ZZ
3186 000001 IFE ZZ,<ZZ=1>
3187 032545 201 03 0 00 000001 MOVEI AC,1 ;SET BIT 35
3188 032546 241 03 0 00 000001 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES
3189 032547 306 03 0 00 000001 CAIN AC,1 ;SC BIT (N) FAILED TO CLEAR
3190 032550 003 03 0 00 040601 ER3 AC,SN ;ON NEGATE
3191 032551 321 05 0 00 032545 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3192
3193 ;TEST FOR NO ROTATE
3194 ;SCAD-SC NEGATE SET UP TEST
3195 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT
3196 ;TEST SC+1 ENABLE
3197 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE
3198 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS
3199 ;IN ROT LEFT ONE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 20-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0094
3200 ;MALFUNCTION OF SCAD OR SC COUNT GATES
3201 ;WILL AFFECT TEST
3202
3203 040602 SN=SN+1
3204 000002 ZZ=ZZ+ZZ
3205 IFE ZZ,<ZZ=1>
3206 032552 201 03 0 00 000001 MOVEI AC,1 ;SET BIT 35
3207 032553 241 03 0 00 000002 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES
3208 032554 306 03 0 00 000001 CAIN AC,1 ;SC BIT (N) FAILED TO CLEAR
3209 032555 003 03 0 00 040602 ER3 AC,SN ;ON NEGATE
3210 032556 321 05 0 00 032552 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3211
3212 ;TEST FOR NO ROTATE
3213 ;SCAD-SC NEGATE SET UP TEST
3214 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT
3215 ;TEST SC+1 ENABLE
3216 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE
3217 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS
3218 ;IN ROT LEFT ONE
3219 ;MALFUNCTION OF SCAD OR SC COUNT GATES
3220 ;WILL AFFECT TEST
3221
3222 040603 SN=SN+1
3223 000004 ZZ=ZZ+ZZ
3224 IFE ZZ,<ZZ=1>
3225 032557 201 03 0 00 000001 MOVEI AC,1 ;SET BIT 35
3226 032560 241 03 0 00 000004 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES
3227 032561 306 03 0 00 000001 CAIN AC,1 ;SC BIT (N) FAILED TO CLEAR
3228 032562 003 03 0 00 040603 ER3 AC,SN ;ON NEGATE
3229 032563 321 05 0 00 032557 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3230
3231 ;TEST FOR NO ROTATE
3232 ;SCAD-SC NEGATE SET UP TEST
3233 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT
3234 ;TEST SC+1 ENABLE
3235 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE
3236 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS
3237 ;IN ROT LEFT ONE
3238 ;MALFUNCTION OF SCAD OR SC COUNT GATES
3239 ;WILL AFFECT TEST
3240
3241 040604 SN=SN+1
3242 000010 ZZ=ZZ+ZZ
3243 IFE ZZ,<ZZ=1>
3244 032564 201 03 0 00 000001 MOVEI AC,1 ;SET BIT 35
3245 032565 241 03 0 00 000010 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES
3246 032566 306 03 0 00 000001 CAIN AC,1 ;SC BIT (N) FAILED TO CLEAR
3247 032567 003 03 0 00 040604 ER3 AC,SN ;ON NEGATE
3248 032570 321 05 0 00 032564 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3249
3250 ;TEST FOR NO ROTATE
3251 ;SCAD-SC NEGATE SET UP TEST
3252 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT
3253 ;TEST SC+1 ENABLE
3254 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 20-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0095
3255 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS
3256 ;IN ROT LEFT ONE
3257 ;MALFUNCTION OF SCAD OR SC COUNT GATES
3258 ;WILL AFFECT TEST
3259
3260 040605 SN=SN+1
3261 000020 ZZ=ZZ+ZZ
3262 IFE ZZ,<ZZ=1>
3263 032571 201 03 0 00 000001 MOVEI AC,1 ;SET BIT 35
3264 032572 241 03 0 00 000020 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES
3265 032573 306 03 0 00 000001 CAIN AC,1 ;SC BIT (N) FAILED TO CLEAR
3266 032574 003 03 0 00 040605 ER3 AC,SN ;ON NEGATE
3267 032575 321 05 0 00 032571 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3268
3269 ;TEST FOR NO ROTATE
3270 ;SCAD-SC NEGATE SET UP TEST
3271 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT
3272 ;TEST SC+1 ENABLE
3273 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE
3274 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS
3275 ;IN ROT LEFT ONE
3276 ;MALFUNCTION OF SCAD OR SC COUNT GATES
3277 ;WILL AFFECT TEST
3278
3279 040606 SN=SN+1
3280 000040 ZZ=ZZ+ZZ
3281 IFE ZZ,<ZZ=1>
3282 032576 201 03 0 00 000001 MOVEI AC,1 ;SET BIT 35
3283 032577 241 03 0 00 000040 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES
3284 032600 306 03 0 00 000001 CAIN AC,1 ;SC BIT (N) FAILED TO CLEAR
3285 032601 003 03 0 00 040606 ER3 AC,SN ;ON NEGATE
3286 032602 321 05 0 00 032576 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3287
3288 ;TEST FOR NO ROTATE
3289 ;SCAD-SC NEGATE SET UP TEST
3290 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT
3291 ;TEST SC+1 ENABLE
3292 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE
3293 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS
3294 ;IN ROT LEFT ONE
3295 ;MALFUNCTION OF SCAD OR SC COUNT GATES
3296 ;WILL AFFECT TEST
3297
3298 040607 SN=SN+1
3299 000100 ZZ=ZZ+ZZ
3300 IFE ZZ,<ZZ=1>
3301 032603 201 03 0 00 000001 MOVEI AC,1 ;SET BIT 35
3302 032604 241 03 0 00 000100 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES
3303 032605 306 03 0 00 000001 CAIN AC,1 ;SC BIT (N) FAILED TO CLEAR
3304 032606 003 03 0 00 040607 ER3 AC,SN ;ON NEGATE
3305 032607 321 05 0 00 032603 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3306
3307 ;TEST FOR NO ROTATE
3308 ;SCAD-SC NEGATE SET UP TEST
3309 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 20-3
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0096
3310 ;TEST SC+1 ENABLE
3311 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE
3312 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS
3313 ;IN ROT LEFT ONE
3314 ;MALFUNCTION OF SCAD OR SC COUNT GATES
3315 ;WILL AFFECT TEST
3316
3317 040610 SN=SN+1
3318 000200 ZZ=ZZ+ZZ
3319 IFE ZZ,<ZZ=1>
3320 032610 201 03 0 00 000001 MOVEI AC,1 ;SET BIT 35
3321 032611 241 03 0 00 000200 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES
3322 032612 306 03 0 00 000001 CAIN AC,1 ;SC BIT (N) FAILED TO CLEAR
3323 032613 003 03 0 00 040610 ER3 AC,SN ;ON NEGATE
3324 032614 321 05 0 00 032610 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3325
3326 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 20-4
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0097
3327 040700 SN=40700
3328 000001 ZZ=1
3329
3330 E40700: REPEAT ^D7,< ;TEST FOR ROTATE LEFT ONE
3331 ;SCAD-SC NEGATE SET UP TEST
3332 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT
3333 ;TEST SC+1 ENABLE
3334 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE
3335 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS
3336 ;IN ROT LEFT ONE
3337 ;MALFUNCTION OF SCAD OR SC COUNT GATES
3338 ;WILL AFFECT TEST
3339
3340 SN=SN+1
3341 ZZ=ZZ+ZZ
3342 MOVEI AC,1 ;SET BIT 35
3343 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES
3344 CAIN AC,2 ;SC BIT (N) FAILED TO CLEAR
3345 ER3 AC,SN ;AND SC+1 FAILED
3346 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3347 >
3348 ;TEST FOR ROTATE LEFT ONE
3349 ;SCAD-SC NEGATE SET UP TEST
3350 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT
3351 ;TEST SC+1 ENABLE
3352 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE
3353 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS
3354 ;IN ROT LEFT ONE
3355 ;MALFUNCTION OF SCAD OR SC COUNT GATES
3356 ;WILL AFFECT TEST
3357
3358 040701 SN=SN+1
3359 000002 ZZ=ZZ+ZZ
3360 032615 201 03 0 00 000001 MOVEI AC,1 ;SET BIT 35
3361 032616 241 03 0 00 000002 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES
3362 032617 306 03 0 00 000002 CAIN AC,2 ;SC BIT (N) FAILED TO CLEAR
3363 032620 003 03 0 00 040701 ER3 AC,SN ;AND SC+1 FAILED
3364 032621 321 05 0 00 032615 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3365
3366 ;TEST FOR ROTATE LEFT ONE
3367 ;SCAD-SC NEGATE SET UP TEST
3368 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT
3369 ;TEST SC+1 ENABLE
3370 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE
3371 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS
3372 ;IN ROT LEFT ONE
3373 ;MALFUNCTION OF SCAD OR SC COUNT GATES
3374 ;WILL AFFECT TEST
3375
3376 040702 SN=SN+1
3377 000004 ZZ=ZZ+ZZ
3378 032622 201 03 0 00 000001 MOVEI AC,1 ;SET BIT 35
3379 032623 241 03 0 00 000004 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES
3380 032624 306 03 0 00 000002 CAIN AC,2 ;SC BIT (N) FAILED TO CLEAR
3381 032625 003 03 0 00 040702 ER3 AC,SN ;AND SC+1 FAILED
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 20-5
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0098
3382 032626 321 05 0 00 032622 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3383
3384 ;TEST FOR ROTATE LEFT ONE
3385 ;SCAD-SC NEGATE SET UP TEST
3386 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT
3387 ;TEST SC+1 ENABLE
3388 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE
3389 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS
3390 ;IN ROT LEFT ONE
3391 ;MALFUNCTION OF SCAD OR SC COUNT GATES
3392 ;WILL AFFECT TEST
3393
3394 040703 SN=SN+1
3395 000010 ZZ=ZZ+ZZ
3396 032627 201 03 0 00 000001 MOVEI AC,1 ;SET BIT 35
3397 032630 241 03 0 00 000010 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES
3398 032631 306 03 0 00 000002 CAIN AC,2 ;SC BIT (N) FAILED TO CLEAR
3399 032632 003 03 0 00 040703 ER3 AC,SN ;AND SC+1 FAILED
3400 032633 321 05 0 00 032627 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3401
3402 ;TEST FOR ROTATE LEFT ONE
3403 ;SCAD-SC NEGATE SET UP TEST
3404 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT
3405 ;TEST SC+1 ENABLE
3406 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE
3407 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS
3408 ;IN ROT LEFT ONE
3409 ;MALFUNCTION OF SCAD OR SC COUNT GATES
3410 ;WILL AFFECT TEST
3411
3412 040704 SN=SN+1
3413 000020 ZZ=ZZ+ZZ
3414 032634 201 03 0 00 000001 MOVEI AC,1 ;SET BIT 35
3415 032635 241 03 0 00 000020 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES
3416 032636 306 03 0 00 000002 CAIN AC,2 ;SC BIT (N) FAILED TO CLEAR
3417 032637 003 03 0 00 040704 ER3 AC,SN ;AND SC+1 FAILED
3418 032640 321 05 0 00 032634 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3419
3420 ;TEST FOR ROTATE LEFT ONE
3421 ;SCAD-SC NEGATE SET UP TEST
3422 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT
3423 ;TEST SC+1 ENABLE
3424 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE
3425 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS
3426 ;IN ROT LEFT ONE
3427 ;MALFUNCTION OF SCAD OR SC COUNT GATES
3428 ;WILL AFFECT TEST
3429
3430 040705 SN=SN+1
3431 000040 ZZ=ZZ+ZZ
3432 032641 201 03 0 00 000001 MOVEI AC,1 ;SET BIT 35
3433 032642 241 03 0 00 000040 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES
3434 032643 306 03 0 00 000002 CAIN AC,2 ;SC BIT (N) FAILED TO CLEAR
3435 032644 003 03 0 00 040705 ER3 AC,SN ;AND SC+1 FAILED
3436 032645 321 05 0 00 032641 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 20-6
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0099
3437
3438 ;TEST FOR ROTATE LEFT ONE
3439 ;SCAD-SC NEGATE SET UP TEST
3440 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT
3441 ;TEST SC+1 ENABLE
3442 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE
3443 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS
3444 ;IN ROT LEFT ONE
3445 ;MALFUNCTION OF SCAD OR SC COUNT GATES
3446 ;WILL AFFECT TEST
3447
3448 040706 SN=SN+1
3449 000100 ZZ=ZZ+ZZ
3450 032646 201 03 0 00 000001 MOVEI AC,1 ;SET BIT 35
3451 032647 241 03 0 00 000100 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES
3452 032650 306 03 0 00 000002 CAIN AC,2 ;SC BIT (N) FAILED TO CLEAR
3453 032651 003 03 0 00 040706 ER3 AC,SN ;AND SC+1 FAILED
3454 032652 321 05 0 00 032646 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3455
3456 ;TEST FOR ROTATE LEFT ONE
3457 ;SCAD-SC NEGATE SET UP TEST
3458 ;TEST A BIT FAILING TO CLEAR ON COMPLEMENT
3459 ;TEST SC+1 ENABLE
3460 ;A BIT FAILING TO CLEAR RESULTS IN NO ROTATE
3461 ;A BIT FAILING TO CLEAR AND SC+1 FAILING RESULTS
3462 ;IN ROT LEFT ONE
3463 ;MALFUNCTION OF SCAD OR SC COUNT GATES
3464 ;WILL AFFECT TEST
3465
3466 040707 SN=SN+1
3467 000200 ZZ=ZZ+ZZ
3468 032653 201 03 0 00 000001 MOVEI AC,1 ;SET BIT 35
3469 032654 241 03 0 00 000200 ROT AC,ZZ ;*ROTATE LEFT (N) NUMBER OF TIMES
3470 032655 306 03 0 00 000002 CAIN AC,2 ;SC BIT (N) FAILED TO CLEAR
3471 032656 003 03 0 00 040707 ER3 AC,SN ;AND SC+1 FAILED
3472 032657 321 05 0 00 032653 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3473
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 21
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0100
3474 000002 AC=2
3475 SAVEAC (1,1)^
3476 032660 201 04 0 00 032660 MOVEI AC+2,. ;SAVE TEST PC
3477 032661 202 04 0 00 030051 MOVEM AC+2,TESTPC
3478 032662 201 04 0 00 000004 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
3479 032663 202 04 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
3480
3481 041000 SN=41000
3482 000001 XX=1
3483 000000 ZZ=0
3484
3485 E41000: REPEAT ^D5,< ;ROTATE FROM 3 TO 17 TIMES
3486 ;SCAD SC COUNT TEST
3487 ;TEST THE ABILITY OF SCAD TO PROPERLY
3488 ;COUNT THE SHIFT COUNTER
3489 ;TEST SC-SCAD CONNECTION
3490 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES
3491 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE
3492 ;THE CORRECT NUMBER OF BITS
3493 ;ROTATING TO THE LEFT EXERCISES MAXIMUM
3494 ;LOGIC
3495
3496 SN=SN+1
3497 XX=XX*10
3498 ZZ=ZZ+3
3499 MOVEI AC,1 ;SET BIT 35
3500 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
3501 CAIE AC,XX ;TEST AC
3502 ER3 AC,SN ;INCORRECT ROTATE
3503 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3504 >
3505 ;ROTATE FROM 3 TO 17 TIMES
3506 ;SCAD SC COUNT TEST
3507 ;TEST THE ABILITY OF SCAD TO PROPERLY
3508 ;COUNT THE SHIFT COUNTER
3509 ;TEST SC-SCAD CONNECTION
3510 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES
3511 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE
3512 ;THE CORRECT NUMBER OF BITS
3513 ;ROTATING TO THE LEFT EXERCISES MAXIMUM
3514 ;LOGIC
3515
3516 041001 SN=SN+1
3517 000010 XX=XX*10
3518 000003 ZZ=ZZ+3
3519 032664 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35
3520 032665 241 02 0 00 000003 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
3521 032666 302 02 0 00 000010 CAIE AC,XX ;TEST AC
3522 032667 003 02 0 00 041001 ER3 AC,SN ;INCORRECT ROTATE
3523 032670 321 04 0 00 032664 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3524
3525 ;ROTATE FROM 3 TO 17 TIMES
3526 ;SCAD SC COUNT TEST
3527 ;TEST THE ABILITY OF SCAD TO PROPERLY
3528 ;COUNT THE SHIFT COUNTER
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 21-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0101
3529 ;TEST SC-SCAD CONNECTION
3530 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES
3531 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE
3532 ;THE CORRECT NUMBER OF BITS
3533 ;ROTATING TO THE LEFT EXERCISES MAXIMUM
3534 ;LOGIC
3535
3536 041002 SN=SN+1
3537 000100 XX=XX*10
3538 000006 ZZ=ZZ+3
3539 032671 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35
3540 032672 241 02 0 00 000006 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
3541 032673 302 02 0 00 000100 CAIE AC,XX ;TEST AC
3542 032674 003 02 0 00 041002 ER3 AC,SN ;INCORRECT ROTATE
3543 032675 321 04 0 00 032671 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3544
3545 ;ROTATE FROM 3 TO 17 TIMES
3546 ;SCAD SC COUNT TEST
3547 ;TEST THE ABILITY OF SCAD TO PROPERLY
3548 ;COUNT THE SHIFT COUNTER
3549 ;TEST SC-SCAD CONNECTION
3550 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES
3551 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE
3552 ;THE CORRECT NUMBER OF BITS
3553 ;ROTATING TO THE LEFT EXERCISES MAXIMUM
3554 ;LOGIC
3555
3556 041003 SN=SN+1
3557 001000 XX=XX*10
3558 000011 ZZ=ZZ+3
3559 032676 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35
3560 032677 241 02 0 00 000011 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
3561 032700 302 02 0 00 001000 CAIE AC,XX ;TEST AC
3562 032701 003 02 0 00 041003 ER3 AC,SN ;INCORRECT ROTATE
3563 032702 321 04 0 00 032676 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3564
3565 ;ROTATE FROM 3 TO 17 TIMES
3566 ;SCAD SC COUNT TEST
3567 ;TEST THE ABILITY OF SCAD TO PROPERLY
3568 ;COUNT THE SHIFT COUNTER
3569 ;TEST SC-SCAD CONNECTION
3570 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES
3571 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE
3572 ;THE CORRECT NUMBER OF BITS
3573 ;ROTATING TO THE LEFT EXERCISES MAXIMUM
3574 ;LOGIC
3575
3576 041004 SN=SN+1
3577 010000 XX=XX*10
3578 000014 ZZ=ZZ+3
3579 032703 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35
3580 032704 241 02 0 00 000014 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
3581 032705 302 02 0 00 010000 CAIE AC,XX ;TEST AC
3582 032706 003 02 0 00 041004 ER3 AC,SN ;INCORRECT ROTATE
3583 032707 321 04 0 00 032703 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 21-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0102
3584
3585 ;ROTATE FROM 3 TO 17 TIMES
3586 ;SCAD SC COUNT TEST
3587 ;TEST THE ABILITY OF SCAD TO PROPERLY
3588 ;COUNT THE SHIFT COUNTER
3589 ;TEST SC-SCAD CONNECTION
3590 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES
3591 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE
3592 ;THE CORRECT NUMBER OF BITS
3593 ;ROTATING TO THE LEFT EXERCISES MAXIMUM
3594 ;LOGIC
3595
3596 041005 SN=SN+1
3597 100000 XX=XX*10
3598 000017 ZZ=ZZ+3
3599 032710 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35
3600 032711 241 02 0 00 000017 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
3601 032712 302 02 0 00 100000 CAIE AC,XX ;TEST AC
3602 032713 003 02 0 00 041005 ER3 AC,SN ;INCORRECT ROTATE
3603 032714 321 04 0 00 032710 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3604
3605 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 21-3
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0103
3606 041100 SN=41100
3607 000000 XX=0
3608
3609 E41100: REPEAT ^D6,< ;ROTATE FROM 22 TO 41 TIMES
3610 ;SCAD SC COUNT TEST
3611 ;TEST THE ABILITY OF SCAD TO PROPERLY
3612 ;COUNT THE SHIFT COUNTER
3613 ;TEST SC-SCAD CONNECTION
3614 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES
3615 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE
3616 ;THE CORRECT NUMBER OF BITS
3617 ;ROTATING TO THE LEFT EXERCISES MAXIMUM
3618 ;LOGIC
3619
3620 SN=SN+1
3621 XX=XX*10
3622 ZZ=ZZ+3
3623 IFE XX,<XX=1>
3624 MOVEI AC,1 ;SET BIT 35
3625 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
3626 MOVSS AC ;SWAP CONTENTS OF AC
3627 CAIE AC,XX ;TEST AC
3628 ER3 AC,SN ;INCORRECT ROTATE
3629 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3630 >
3631 ;ROTATE FROM 22 TO 41 TIMES
3632 ;SCAD SC COUNT TEST
3633 ;TEST THE ABILITY OF SCAD TO PROPERLY
3634 ;COUNT THE SHIFT COUNTER
3635 ;TEST SC-SCAD CONNECTION
3636 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES
3637 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE
3638 ;THE CORRECT NUMBER OF BITS
3639 ;ROTATING TO THE LEFT EXERCISES MAXIMUM
3640 ;LOGIC
3641
3642 041101 SN=SN+1
3643 000000 XX=XX*10
3644 000022 ZZ=ZZ+3
3645 000001 IFE XX,<XX=1>
3646 032715 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35
3647 032716 241 02 0 00 000022 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
3648 032717 207 00 0 00 000002 MOVSS AC ;SWAP CONTENTS OF AC
3649 032720 302 02 0 00 000001 CAIE AC,XX ;TEST AC
3650 032721 003 02 0 00 041101 ER3 AC,SN ;INCORRECT ROTATE
3651 032722 321 04 0 00 032715 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3652
3653 ;ROTATE FROM 22 TO 41 TIMES
3654 ;SCAD SC COUNT TEST
3655 ;TEST THE ABILITY OF SCAD TO PROPERLY
3656 ;COUNT THE SHIFT COUNTER
3657 ;TEST SC-SCAD CONNECTION
3658 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES
3659 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE
3660 ;THE CORRECT NUMBER OF BITS
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 21-4
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0104
3661 ;ROTATING TO THE LEFT EXERCISES MAXIMUM
3662 ;LOGIC
3663
3664 041102 SN=SN+1
3665 000010 XX=XX*10
3666 000025 ZZ=ZZ+3
3667 IFE XX,<XX=1>
3668 032723 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35
3669 032724 241 02 0 00 000025 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
3670 032725 207 00 0 00 000002 MOVSS AC ;SWAP CONTENTS OF AC
3671 032726 302 02 0 00 000010 CAIE AC,XX ;TEST AC
3672 032727 003 02 0 00 041102 ER3 AC,SN ;INCORRECT ROTATE
3673 032730 321 04 0 00 032723 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3674
3675 ;ROTATE FROM 22 TO 41 TIMES
3676 ;SCAD SC COUNT TEST
3677 ;TEST THE ABILITY OF SCAD TO PROPERLY
3678 ;COUNT THE SHIFT COUNTER
3679 ;TEST SC-SCAD CONNECTION
3680 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES
3681 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE
3682 ;THE CORRECT NUMBER OF BITS
3683 ;ROTATING TO THE LEFT EXERCISES MAXIMUM
3684 ;LOGIC
3685
3686 041103 SN=SN+1
3687 000100 XX=XX*10
3688 000030 ZZ=ZZ+3
3689 IFE XX,<XX=1>
3690 032731 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35
3691 032732 241 02 0 00 000030 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
3692 032733 207 00 0 00 000002 MOVSS AC ;SWAP CONTENTS OF AC
3693 032734 302 02 0 00 000100 CAIE AC,XX ;TEST AC
3694 032735 003 02 0 00 041103 ER3 AC,SN ;INCORRECT ROTATE
3695 032736 321 04 0 00 032731 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3696
3697 ;ROTATE FROM 22 TO 41 TIMES
3698 ;SCAD SC COUNT TEST
3699 ;TEST THE ABILITY OF SCAD TO PROPERLY
3700 ;COUNT THE SHIFT COUNTER
3701 ;TEST SC-SCAD CONNECTION
3702 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES
3703 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE
3704 ;THE CORRECT NUMBER OF BITS
3705 ;ROTATING TO THE LEFT EXERCISES MAXIMUM
3706 ;LOGIC
3707
3708 041104 SN=SN+1
3709 001000 XX=XX*10
3710 000033 ZZ=ZZ+3
3711 IFE XX,<XX=1>
3712 032737 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35
3713 032740 241 02 0 00 000033 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
3714 032741 207 00 0 00 000002 MOVSS AC ;SWAP CONTENTS OF AC
3715 032742 302 02 0 00 001000 CAIE AC,XX ;TEST AC
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 21-5
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0105
3716 032743 003 02 0 00 041104 ER3 AC,SN ;INCORRECT ROTATE
3717 032744 321 04 0 00 032737 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3718
3719 ;ROTATE FROM 22 TO 41 TIMES
3720 ;SCAD SC COUNT TEST
3721 ;TEST THE ABILITY OF SCAD TO PROPERLY
3722 ;COUNT THE SHIFT COUNTER
3723 ;TEST SC-SCAD CONNECTION
3724 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES
3725 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE
3726 ;THE CORRECT NUMBER OF BITS
3727 ;ROTATING TO THE LEFT EXERCISES MAXIMUM
3728 ;LOGIC
3729
3730 041105 SN=SN+1
3731 010000 XX=XX*10
3732 000036 ZZ=ZZ+3
3733 IFE XX,<XX=1>
3734 032745 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35
3735 032746 241 02 0 00 000036 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
3736 032747 207 00 0 00 000002 MOVSS AC ;SWAP CONTENTS OF AC
3737 032750 302 02 0 00 010000 CAIE AC,XX ;TEST AC
3738 032751 003 02 0 00 041105 ER3 AC,SN ;INCORRECT ROTATE
3739 032752 321 04 0 00 032745 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3740
3741 ;ROTATE FROM 22 TO 41 TIMES
3742 ;SCAD SC COUNT TEST
3743 ;TEST THE ABILITY OF SCAD TO PROPERLY
3744 ;COUNT THE SHIFT COUNTER
3745 ;TEST SC-SCAD CONNECTION
3746 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES
3747 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE
3748 ;THE CORRECT NUMBER OF BITS
3749 ;ROTATING TO THE LEFT EXERCISES MAXIMUM
3750 ;LOGIC
3751
3752 041106 SN=SN+1
3753 100000 XX=XX*10
3754 000041 ZZ=ZZ+3
3755 IFE XX,<XX=1>
3756 032753 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35
3757 032754 241 02 0 00 000041 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
3758 032755 207 00 0 00 000002 MOVSS AC ;SWAP CONTENTS OF AC
3759 032756 302 02 0 00 100000 CAIE AC,XX ;TEST AC
3760 032757 003 02 0 00 041106 ER3 AC,SN ;INCORRECT ROTATE
3761 032760 321 04 0 00 032753 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3762
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 22
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0106
3763 041200 SN=41200
3764 000000 XX=0
3765
3766 E41200: REPEAT ^D6,< ;ROTATE FROM 44 TO 36 TIMES
3767 ;SCAD SC COUNT TEST
3768 ;TEST THE ABILITY OF SCAD TO PROPERLY
3769 ;COUNT THE SHIFT COUNTER
3770 ;TEST SC-SCAD CONNECTION
3771 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES
3772 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE
3773 ;THE CORRECT NUMBER OF BITS
3774 ;ROTATING TO THE LEFT EXERCISES MAXIMUM
3775 ;LOGIC
3776
3777 SN=SN+1
3778 XX=XX*10
3779 ZZ=ZZ+3
3780 IFE XX,<XX=1>
3781 MOVEI AC,1 ;SET BIT 35
3782 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
3783 CAIE AC,XX ;TEST AC
3784 ER3 AC,SN ;INCORRECT ROTATE
3785 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3786 >
3787 ;ROTATE FROM 44 TO 36 TIMES
3788 ;SCAD SC COUNT TEST
3789 ;TEST THE ABILITY OF SCAD TO PROPERLY
3790 ;COUNT THE SHIFT COUNTER
3791 ;TEST SC-SCAD CONNECTION
3792 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES
3793 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE
3794 ;THE CORRECT NUMBER OF BITS
3795 ;ROTATING TO THE LEFT EXERCISES MAXIMUM
3796 ;LOGIC
3797
3798 041201 SN=SN+1
3799 000000 XX=XX*10
3800 000044 ZZ=ZZ+3
3801 000001 IFE XX,<XX=1>
3802 032761 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35
3803 032762 241 02 0 00 000044 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
3804 032763 302 02 0 00 000001 CAIE AC,XX ;TEST AC
3805 032764 003 02 0 00 041201 ER3 AC,SN ;INCORRECT ROTATE
3806 032765 321 04 0 00 032761 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3807
3808 ;ROTATE FROM 44 TO 36 TIMES
3809 ;SCAD SC COUNT TEST
3810 ;TEST THE ABILITY OF SCAD TO PROPERLY
3811 ;COUNT THE SHIFT COUNTER
3812 ;TEST SC-SCAD CONNECTION
3813 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES
3814 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE
3815 ;THE CORRECT NUMBER OF BITS
3816 ;ROTATING TO THE LEFT EXERCISES MAXIMUM
3817 ;LOGIC
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 22-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0107
3818
3819 041202 SN=SN+1
3820 000010 XX=XX*10
3821 000047 ZZ=ZZ+3
3822 IFE XX,<XX=1>
3823 032766 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35
3824 032767 241 02 0 00 000047 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
3825 032770 302 02 0 00 000010 CAIE AC,XX ;TEST AC
3826 032771 003 02 0 00 041202 ER3 AC,SN ;INCORRECT ROTATE
3827 032772 321 04 0 00 032766 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3828
3829 ;ROTATE FROM 44 TO 36 TIMES
3830 ;SCAD SC COUNT TEST
3831 ;TEST THE ABILITY OF SCAD TO PROPERLY
3832 ;COUNT THE SHIFT COUNTER
3833 ;TEST SC-SCAD CONNECTION
3834 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES
3835 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE
3836 ;THE CORRECT NUMBER OF BITS
3837 ;ROTATING TO THE LEFT EXERCISES MAXIMUM
3838 ;LOGIC
3839
3840 041203 SN=SN+1
3841 000100 XX=XX*10
3842 000052 ZZ=ZZ+3
3843 IFE XX,<XX=1>
3844 032773 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35
3845 032774 241 02 0 00 000052 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
3846 032775 302 02 0 00 000100 CAIE AC,XX ;TEST AC
3847 032776 003 02 0 00 041203 ER3 AC,SN ;INCORRECT ROTATE
3848 032777 321 04 0 00 032773 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3849
3850 ;ROTATE FROM 44 TO 36 TIMES
3851 ;SCAD SC COUNT TEST
3852 ;TEST THE ABILITY OF SCAD TO PROPERLY
3853 ;COUNT THE SHIFT COUNTER
3854 ;TEST SC-SCAD CONNECTION
3855 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES
3856 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE
3857 ;THE CORRECT NUMBER OF BITS
3858 ;ROTATING TO THE LEFT EXERCISES MAXIMUM
3859 ;LOGIC
3860
3861 041204 SN=SN+1
3862 001000 XX=XX*10
3863 000055 ZZ=ZZ+3
3864 IFE XX,<XX=1>
3865 033000 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35
3866 033001 241 02 0 00 000055 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
3867 033002 302 02 0 00 001000 CAIE AC,XX ;TEST AC
3868 033003 003 02 0 00 041204 ER3 AC,SN ;INCORRECT ROTATE
3869 033004 321 04 0 00 033000 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3870
3871 ;ROTATE FROM 44 TO 36 TIMES
3872 ;SCAD SC COUNT TEST
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 22-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0108
3873 ;TEST THE ABILITY OF SCAD TO PROPERLY
3874 ;COUNT THE SHIFT COUNTER
3875 ;TEST SC-SCAD CONNECTION
3876 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES
3877 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE
3878 ;THE CORRECT NUMBER OF BITS
3879 ;ROTATING TO THE LEFT EXERCISES MAXIMUM
3880 ;LOGIC
3881
3882 041205 SN=SN+1
3883 010000 XX=XX*10
3884 000060 ZZ=ZZ+3
3885 IFE XX,<XX=1>
3886 033005 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35
3887 033006 241 02 0 00 000060 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
3888 033007 302 02 0 00 010000 CAIE AC,XX ;TEST AC
3889 033010 003 02 0 00 041205 ER3 AC,SN ;INCORRECT ROTATE
3890 033011 321 04 0 00 033005 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3891
3892 ;ROTATE FROM 44 TO 36 TIMES
3893 ;SCAD SC COUNT TEST
3894 ;TEST THE ABILITY OF SCAD TO PROPERLY
3895 ;COUNT THE SHIFT COUNTER
3896 ;TEST SC-SCAD CONNECTION
3897 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES
3898 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE
3899 ;THE CORRECT NUMBER OF BITS
3900 ;ROTATING TO THE LEFT EXERCISES MAXIMUM
3901 ;LOGIC
3902
3903 041206 SN=SN+1
3904 100000 XX=XX*10
3905 000063 ZZ=ZZ+3
3906 IFE XX,<XX=1>
3907 033012 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35
3908 033013 241 02 0 00 000063 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
3909 033014 302 02 0 00 100000 CAIE AC,XX ;TEST AC
3910 033015 003 02 0 00 041206 ER3 AC,SN ;INCORRECT ROTATE
3911 033016 321 04 0 00 033012 JUMPL AC+2,.-4 ;LOOP ON ERROR SWITCH
3912
3913 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 22-3
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0109
3914 041300 SN=41300
3915 000000 XX=0
3916
3917 E41300: REPEAT ^D6,< ;ROTATE FROM 66 TO 105 TIMES
3918 ;SCAD SC COUNT TEST
3919 ;TEST THE ABILITY OF SCAD TO PROPERLY
3920 ;COUNT THE SHIFT COUNTER
3921 ;TEST SC-SCAD CONNECTION
3922 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES
3923 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE
3924 ;THE CORRECT NUMBER OF BITS
3925 ;ROTATING TO THE LEFT EXERCISES MAXIMUM
3926 ;LOGIC
3927
3928 SN=SN+1
3929 XX=XX*10
3930 ZZ=ZZ+3
3931 IFE XX,<XX=1>
3932 MOVEI AC,1 ;SET BIT 35
3933 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
3934 MOVSS AC ;SWAP CONTENTS OF AC
3935 CAIE AC,XX ;TEST AC
3936 ER3 AC,SN ;INCORRECT ROTATE
3937 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3938 >
3939 ;ROTATE FROM 66 TO 105 TIMES
3940 ;SCAD SC COUNT TEST
3941 ;TEST THE ABILITY OF SCAD TO PROPERLY
3942 ;COUNT THE SHIFT COUNTER
3943 ;TEST SC-SCAD CONNECTION
3944 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES
3945 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE
3946 ;THE CORRECT NUMBER OF BITS
3947 ;ROTATING TO THE LEFT EXERCISES MAXIMUM
3948 ;LOGIC
3949
3950 041301 SN=SN+1
3951 000000 XX=XX*10
3952 000066 ZZ=ZZ+3
3953 000001 IFE XX,<XX=1>
3954 033017 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35
3955 033020 241 02 0 00 000066 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
3956 033021 207 00 0 00 000002 MOVSS AC ;SWAP CONTENTS OF AC
3957 033022 302 02 0 00 000001 CAIE AC,XX ;TEST AC
3958 033023 003 02 0 00 041301 ER3 AC,SN ;INCORRECT ROTATE
3959 033024 321 04 0 00 033017 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3960
3961 ;ROTATE FROM 66 TO 105 TIMES
3962 ;SCAD SC COUNT TEST
3963 ;TEST THE ABILITY OF SCAD TO PROPERLY
3964 ;COUNT THE SHIFT COUNTER
3965 ;TEST SC-SCAD CONNECTION
3966 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES
3967 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE
3968 ;THE CORRECT NUMBER OF BITS
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 22-4
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0110
3969 ;ROTATING TO THE LEFT EXERCISES MAXIMUM
3970 ;LOGIC
3971
3972 041302 SN=SN+1
3973 000010 XX=XX*10
3974 000071 ZZ=ZZ+3
3975 IFE XX,<XX=1>
3976 033025 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35
3977 033026 241 02 0 00 000071 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
3978 033027 207 00 0 00 000002 MOVSS AC ;SWAP CONTENTS OF AC
3979 033030 302 02 0 00 000010 CAIE AC,XX ;TEST AC
3980 033031 003 02 0 00 041302 ER3 AC,SN ;INCORRECT ROTATE
3981 033032 321 04 0 00 033025 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
3982
3983 ;ROTATE FROM 66 TO 105 TIMES
3984 ;SCAD SC COUNT TEST
3985 ;TEST THE ABILITY OF SCAD TO PROPERLY
3986 ;COUNT THE SHIFT COUNTER
3987 ;TEST SC-SCAD CONNECTION
3988 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES
3989 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE
3990 ;THE CORRECT NUMBER OF BITS
3991 ;ROTATING TO THE LEFT EXERCISES MAXIMUM
3992 ;LOGIC
3993
3994 041303 SN=SN+1
3995 000100 XX=XX*10
3996 000074 ZZ=ZZ+3
3997 IFE XX,<XX=1>
3998 033033 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35
3999 033034 241 02 0 00 000074 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
4000 033035 207 00 0 00 000002 MOVSS AC ;SWAP CONTENTS OF AC
4001 033036 302 02 0 00 000100 CAIE AC,XX ;TEST AC
4002 033037 003 02 0 00 041303 ER3 AC,SN ;INCORRECT ROTATE
4003 033040 321 04 0 00 033033 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
4004
4005 ;ROTATE FROM 66 TO 105 TIMES
4006 ;SCAD SC COUNT TEST
4007 ;TEST THE ABILITY OF SCAD TO PROPERLY
4008 ;COUNT THE SHIFT COUNTER
4009 ;TEST SC-SCAD CONNECTION
4010 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES
4011 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE
4012 ;THE CORRECT NUMBER OF BITS
4013 ;ROTATING TO THE LEFT EXERCISES MAXIMUM
4014 ;LOGIC
4015
4016 041304 SN=SN+1
4017 001000 XX=XX*10
4018 000077 ZZ=ZZ+3
4019 IFE XX,<XX=1>
4020 033041 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35
4021 033042 241 02 0 00 000077 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
4022 033043 207 00 0 00 000002 MOVSS AC ;SWAP CONTENTS OF AC
4023 033044 302 02 0 00 001000 CAIE AC,XX ;TEST AC
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 22-5
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SC-SCAD GATING TEST SEQ 0111
4024 033045 003 02 0 00 041304 ER3 AC,SN ;INCORRECT ROTATE
4025 033046 321 04 0 00 033041 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
4026
4027 ;ROTATE FROM 66 TO 105 TIMES
4028 ;SCAD SC COUNT TEST
4029 ;TEST THE ABILITY OF SCAD TO PROPERLY
4030 ;COUNT THE SHIFT COUNTER
4031 ;TEST SC-SCAD CONNECTION
4032 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES
4033 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE
4034 ;THE CORRECT NUMBER OF BITS
4035 ;ROTATING TO THE LEFT EXERCISES MAXIMUM
4036 ;LOGIC
4037
4038 041305 SN=SN+1
4039 010000 XX=XX*10
4040 000102 ZZ=ZZ+3
4041 IFE XX,<XX=1>
4042 033047 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35
4043 033050 241 02 0 00 000102 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
4044 033051 207 00 0 00 000002 MOVSS AC ;SWAP CONTENTS OF AC
4045 033052 302 02 0 00 010000 CAIE AC,XX ;TEST AC
4046 033053 003 02 0 00 041305 ER3 AC,SN ;INCORRECT ROTATE
4047 033054 321 04 0 00 033047 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
4048
4049 ;ROTATE FROM 66 TO 105 TIMES
4050 ;SCAD SC COUNT TEST
4051 ;TEST THE ABILITY OF SCAD TO PROPERLY
4052 ;COUNT THE SHIFT COUNTER
4053 ;TEST SC-SCAD CONNECTION
4054 ;AC IS ROTATED FROM 3 THROUGH 105 TIMES
4055 ;AN ERROR WILL OCCUR IF AC FAILS TO ROTATE
4056 ;THE CORRECT NUMBER OF BITS
4057 ;ROTATING TO THE LEFT EXERCISES MAXIMUM
4058 ;LOGIC
4059
4060 041306 SN=SN+1
4061 100000 XX=XX*10
4062 000105 ZZ=ZZ+3
4063 IFE XX,<XX=1>
4064 033055 201 02 0 00 000001 MOVEI AC,1 ;SET BIT 35
4065 033056 241 02 0 00 000105 ROT AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
4066 033057 207 00 0 00 000002 MOVSS AC ;SWAP CONTENTS OF AC
4067 033060 302 02 0 00 100000 CAIE AC,XX ;TEST AC
4068 033061 003 02 0 00 041306 ER3 AC,SN ;INCORRECT ROTATE
4069 033062 321 04 0 00 033055 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
4070
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 23
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SHIFT COUNTER RELIABILITY TEST SEQ 0112
4071 SUBTTL DIAGNOSTIC SECTION - SHIFT COUNTER RELIABILITY TEST
4072
4073 ;SHIFT COUNTER TEST
4074 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1
4075 SR1 (461,230703,603700,230703,603700,ROT,0)^
4076 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 0 BIT
4077 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700]
4078 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4079
4080 033063 200 02 0 00 036631 E46100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4081 033064 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4082 033065 241 02 0 00 000000 ROT AC,0 ;*SHIFT/ROTATE 0 BIT POSITIONS
4083 033066 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
4084 033067 003 02 0 00 046101 ER3 AC,46101 ;RESULT IN AC IS INCORRECT
4085 033070 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4086 033071 004 03 0 00 046101 ER4 AC+1,46101 ;C(AC+1) WAS MODIFIED INCORRECTLY
4087 033072 321 04 0 00 033063 JUMPL AC+2,E46100 ;LOOP ON ERROR SWITCH^
4088
4089 ;SHIFT COUNTER TEST
4090 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1
4091 SR1 (462,230703,603700,700230,703603,ROT,77)^
4092 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 77 BIT
4093 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 700230,703603]
4094 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4095
4096 033073 200 02 0 00 036631 E46200: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4097 033074 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4098 033075 241 02 0 00 000077 ROT AC,77 ;*SHIFT/ROTATE 77 BIT POSITIONS
4099 033076 312 02 0 00 036632 CAME AC,[XWD 700230,703603] ;IS RESULT IN AC CORRECT?
4100 033077 003 02 0 00 046201 ER3 AC,46201 ;RESULT IN AC IS INCORRECT
4101 033100 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4102 033101 004 03 0 00 046201 ER4 AC+1,46201 ;C(AC+1) WAS MODIFIED INCORRECTLY
4103 033102 321 04 0 00 033073 JUMPL AC+2,E46200 ;LOOP ON ERROR SWITCH^
4104
4105 ;SHIFT COUNTER TEST
4106 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1
4107 SR1 (463,230703,603700,740114,341701,ROT,76)^
4108 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 76 BIT
4109 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 740114,341701]
4110 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4111
4112 033103 200 02 0 00 036631 E46300: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4113 033104 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4114 033105 241 02 0 00 000076 ROT AC,76 ;*SHIFT/ROTATE 76 BIT POSITIONS
4115 033106 312 02 0 00 036633 CAME AC,[XWD 740114,341701] ;IS RESULT IN AC CORRECT?
4116 033107 003 02 0 00 046301 ER3 AC,46301 ;RESULT IN AC IS INCORRECT
4117 033110 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4118 033111 004 03 0 00 046301 ER4 AC+1,46301 ;C(AC+1) WAS MODIFIED INCORRECTLY
4119 033112 321 04 0 00 033103 JUMPL AC+2,E46300 ;LOOP ON ERROR SWITCH^
4120
4121 ;SHIFT COUNTER TEST
4122 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1
4123 SR1 (464,230703,603700,370023,070360,ROT,74)^
4124 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 74 BIT
4125 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 370023,070360]
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 23-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SHIFT COUNTER RELIABILITY TEST SEQ 0113
4126 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4127
4128 033113 200 02 0 00 036631 E46400: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4129 033114 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4130 033115 241 02 0 00 000074 ROT AC,74 ;*SHIFT/ROTATE 74 BIT POSITIONS
4131 033116 312 02 0 00 036634 CAME AC,[XWD 370023,070360] ;IS RESULT IN AC CORRECT?
4132 033117 003 02 0 00 046401 ER3 AC,46401 ;RESULT IN AC IS INCORRECT
4133 033120 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4134 033121 004 03 0 00 046401 ER4 AC+1,46401 ;C(AC+1) WAS MODIFIED INCORRECTLY
4135 033122 321 04 0 00 033113 JUMPL AC+2,E46400 ;LOOP ON ERROR SWITCH^
4136 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 23-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SHIFT COUNTER RELIABILITY TEST SEQ 0114
4137 ;SHIFT COUNTER TEST
4138 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1
4139 SR1 (465,230703,603700,017401,143417,ROT,70)^
4140 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 70 BIT
4141 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 017401,143417]
4142 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4143
4144 033123 200 02 0 00 036631 E46500: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4145 033124 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4146 033125 241 02 0 00 000070 ROT AC,70 ;*SHIFT/ROTATE 70 BIT POSITIONS
4147 033126 312 02 0 00 036635 CAME AC,[XWD 017401,143417] ;IS RESULT IN AC CORRECT?
4148 033127 003 02 0 00 046501 ER3 AC,46501 ;RESULT IN AC IS INCORRECT
4149 033130 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4150 033131 004 03 0 00 046501 ER4 AC+1,46501 ;C(AC+1) WAS MODIFIED INCORRECTLY
4151 033132 321 04 0 00 033123 JUMPL AC+2,E46500 ;LOOP ON ERROR SWITCH^
4152
4153 ;SHIFT COUNTER TEST
4154 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1
4155 SR1 (466,230703,603700,036037,002307,ROT,60)^
4156 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 60 BIT
4157 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 036037,002307]
4158 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4159
4160 033133 200 02 0 00 036631 E46600: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4161 033134 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4162 033135 241 02 0 00 000060 ROT AC,60 ;*SHIFT/ROTATE 60 BIT POSITIONS
4163 033136 312 02 0 00 036636 CAME AC,[XWD 036037,002307] ;IS RESULT IN AC CORRECT?
4164 033137 003 02 0 00 046601 ER3 AC,46601 ;RESULT IN AC IS INCORRECT
4165 033140 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4166 033141 004 03 0 00 046601 ER4 AC+1,46601 ;C(AC+1) WAS MODIFIED INCORRECTLY
4167 033142 321 04 0 00 033133 JUMPL AC+2,E46600 ;LOOP ON ERROR SWITCH^
4168
4169 ;SHIFT COUNTER TEST
4170 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1
4171 SR1 (467,230703,603700,011434,170174,ROT,40)^
4172 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 40 BIT
4173 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 011434,170174]
4174 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4175
4176 033143 200 02 0 00 036631 E46700: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4177 033144 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4178 033145 241 02 0 00 000040 ROT AC,40 ;*SHIFT/ROTATE 40 BIT POSITIONS
4179 033146 312 02 0 00 036637 CAME AC,[XWD 011434,170174] ;IS RESULT IN AC CORRECT?
4180 033147 003 02 0 00 046701 ER3 AC,46701 ;RESULT IN AC IS INCORRECT
4181 033150 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4182 033151 004 03 0 00 046701 ER4 AC+1,46701 ;C(AC+1) WAS MODIFIED INCORRECTLY
4183 033152 321 04 0 00 033143 JUMPL AC+2,E46700 ;LOOP ON ERROR SWITCH^
4184
4185 ;SHIFT COUNTER TEST
4186 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1
4187 SR1 (470,230703,603700,600461,607407,ROT,100)^
4188 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 100 BIT
4189 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 600461,607407]
4190 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4191
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 23-3
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SHIFT COUNTER RELIABILITY TEST SEQ 0115
4192 033153 200 02 0 00 036631 E47000: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4193 033154 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4194 033155 241 02 0 00 000100 ROT AC,100 ;*SHIFT/ROTATE 100 BIT POSITIONS
4195 033156 312 02 0 00 036640 CAME AC,[XWD 600461,607407] ;IS RESULT IN AC CORRECT?
4196 033157 003 02 0 00 047001 ER3 AC,47001 ;RESULT IN AC IS INCORRECT
4197 033160 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4198 033161 004 03 0 00 047001 ER4 AC+1,47001 ;C(AC+1) WAS MODIFIED INCORRECTLY
4199 033162 321 04 0 00 033153 JUMPL AC+2,E47000 ;LOOP ON ERROR SWITCH^
4200 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 23-4
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SHIFT COUNTER RELIABILITY TEST SEQ 0116
4201 ;SHIFT COUNTER TEST
4202 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1
4203 SR1 (471,230703,603700,461607,407600,ROT,1)^
4204 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 1 BIT
4205 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600]
4206 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4207
4208 033163 200 02 0 00 036631 E47100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4209 033164 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4210 033165 241 02 0 00 000001 ROT AC,1 ;*SHIFT/ROTATE 1 BIT POSITIONS
4211 033166 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT?
4212 033167 003 02 0 00 047101 ER3 AC,47101 ;RESULT IN AC IS INCORRECT
4213 033170 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4214 033171 004 03 0 00 047101 ER4 AC+1,47101 ;C(AC+1) WAS MODIFIED INCORRECTLY
4215 033172 321 04 0 00 033163 JUMPL AC+2,E47100 ;LOOP ON ERROR SWITCH^
4216
4217 ;SHIFT COUNTER TEST
4218 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1
4219 SR1 (472,230703,603700,143417,017401,ROT,2)^
4220 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 2 BIT
4221 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 143417,017401]
4222 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4223
4224 033173 200 02 0 00 036631 E47200: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4225 033174 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4226 033175 241 02 0 00 000002 ROT AC,2 ;*SHIFT/ROTATE 2 BIT POSITIONS
4227 033176 312 02 0 00 036642 CAME AC,[XWD 143417,017401] ;IS RESULT IN AC CORRECT?
4228 033177 003 02 0 00 047201 ER3 AC,47201 ;RESULT IN AC IS INCORRECT
4229 033200 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4230 033201 004 03 0 00 047201 ER4 AC+1,47201 ;C(AC+1) WAS MODIFIED INCORRECTLY
4231 033202 321 04 0 00 033173 JUMPL AC+2,E47200 ;LOOP ON ERROR SWITCH^
4232
4233 ;SHIFT COUNTER TEST
4234 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1
4235 SR1 (473,230703,603700,307036,037002,ROT,3)^
4236 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 3 BIT
4237 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 307036,037002]
4238 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4239
4240 033203 200 02 0 00 036631 E47300: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4241 033204 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4242 033205 241 02 0 00 000003 ROT AC,3 ;*SHIFT/ROTATE 3 BIT POSITIONS
4243 033206 312 02 0 00 036643 CAME AC,[XWD 307036,037002] ;IS RESULT IN AC CORRECT?
4244 033207 003 02 0 00 047301 ER3 AC,47301 ;RESULT IN AC IS INCORRECT
4245 033210 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4246 033211 004 03 0 00 047301 ER4 AC+1,47301 ;C(AC+1) WAS MODIFIED INCORRECTLY
4247 033212 321 04 0 00 033203 JUMPL AC+2,E47300 ;LOOP ON ERROR SWITCH^
4248
4249 ;SHIFT COUNTER TEST
4250 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1
4251 SR1 (474,230703,603700,434170,174011,ROT,5)^
4252 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 5 BIT
4253 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 434170,174011]
4254 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4255
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 23-5
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SHIFT COUNTER RELIABILITY TEST SEQ 0117
4256 033213 200 02 0 00 036631 E47400: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4257 033214 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4258 033215 241 02 0 00 000005 ROT AC,5 ;*SHIFT/ROTATE 5 BIT POSITIONS
4259 033216 312 02 0 00 036644 CAME AC,[XWD 434170,174011] ;IS RESULT IN AC CORRECT?
4260 033217 003 02 0 00 047401 ER3 AC,47401 ;RESULT IN AC IS INCORRECT
4261 033220 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4262 033221 004 03 0 00 047401 ER4 AC+1,47401 ;C(AC+1) WAS MODIFIED INCORRECTLY
4263 033222 321 04 0 00 033213 JUMPL AC+2,E47400 ;LOOP ON ERROR SWITCH^
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 24
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SHIFT COUNTER RELIABILITY TEST SEQ 0118
4264 ;SHIFT COUNTER TEST
4265 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1
4266 SR1 (475,230703,603700,703603,700230,ROT,11)^
4267 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 11 BIT
4268 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 703603,700230]
4269 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4270
4271 033223 200 02 0 00 036631 E47500: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4272 033224 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4273 033225 241 02 0 00 000011 ROT AC,11 ;*SHIFT/ROTATE 11 BIT POSITIONS
4274 033226 312 02 0 00 036645 CAME AC,[XWD 703603,700230] ;IS RESULT IN AC CORRECT?
4275 033227 003 02 0 00 047501 ER3 AC,47501 ;RESULT IN AC IS INCORRECT
4276 033230 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4277 033231 004 03 0 00 047501 ER4 AC+1,47501 ;C(AC+1) WAS MODIFIED INCORRECTLY
4278 033232 321 04 0 00 033223 JUMPL AC+2,E47500 ;LOOP ON ERROR SWITCH^
4279
4280 ;SHIFT COUNTER TEST
4281 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1
4282 SR1 (476,230703,603700,701740,114341,ROT,21)^
4283 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 21 BIT
4284 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 701740,114341]
4285 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4286
4287 033233 200 02 0 00 036631 E47600: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4288 033234 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4289 033235 241 02 0 00 000021 ROT AC,21 ;*SHIFT/ROTATE 21 BIT POSITIONS
4290 033236 312 02 0 00 036646 CAME AC,[XWD 701740,114341] ;IS RESULT IN AC CORRECT?
4291 033237 003 02 0 00 047601 ER3 AC,47601 ;RESULT IN AC IS INCORRECT
4292 033240 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4293 033241 004 03 0 00 047601 ER4 AC+1,47601 ;C(AC+1) WAS MODIFIED INCORRECTLY
4294 033242 321 04 0 00 033233 JUMPL AC+2,E47600 ;LOOP ON ERROR SWITCH^
4295
4296 ;SHIFT COUNTER TEST
4297 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1
4298 SR1 (477,230703,603700,023070,360370,ROT,41)^
4299 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 41 BIT
4300 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 023070,360370]
4301 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4302
4303 033243 200 02 0 00 036631 E47700: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4304 033244 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4305 033245 241 02 0 00 000041 ROT AC,41 ;*SHIFT/ROTATE 41 BIT POSITIONS
4306 033246 312 02 0 00 036647 CAME AC,[XWD 023070,360370] ;IS RESULT IN AC CORRECT?
4307 033247 003 02 0 00 047701 ER3 AC,47701 ;RESULT IN AC IS INCORRECT
4308 033250 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4309 033251 004 03 0 00 047701 ER4 AC+1,47701 ;C(AC+1) WAS MODIFIED INCORRECTLY
4310 033252 321 04 0 00 033243 JUMPL AC+2,E47700 ;LOOP ON ERROR SWITCH^
4311
4312 ;SHIFT COUNTER TEST
4313 ;TEST SHIFT COUNTER FOR ANY BITS S-A-0/1
4314 SR1 (500,230703,603700,401143,417017,ROT,101)^
4315 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 101 BIT
4316 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 401143,417017]
4317 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4318
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 24-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SHIFT COUNTER RELIABILITY TEST SEQ 0119
4319 033253 200 02 0 00 036631 E50000: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4320 033254 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4321 033255 241 02 0 00 000101 ROT AC,101 ;*SHIFT/ROTATE 101 BIT POSITIONS
4322 033256 312 02 0 00 036650 CAME AC,[XWD 401143,417017] ;IS RESULT IN AC CORRECT?
4323 033257 003 02 0 00 050001 ER3 AC,50001 ;RESULT IN AC IS INCORRECT
4324 033260 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4325 033261 004 03 0 00 050001 ER4 AC+1,50001 ;C(AC+1) WAS MODIFIED INCORRECTLY
4326 033262 321 04 0 00 033253 JUMPL AC+2,E50000 ;LOOP ON ERROR SWITCH^
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0120
4327 SUBTTL DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST
4328
4329 000476 ADR=501-3
4330 777777 777340 N=-374-44
4331
4332 REPEAT ^D15,<
4333 ADR=ADR+3
4334 N=N+44
4335
4336 ;SHIFT COUNTER TEST
4337 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
4338 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)
4339
4340 ;SHIFT COUNTER TEST
4341 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
4342 SR1 (\<ADR+1>,230703,603700,230703,603700,ROT,N)
4343
4344 ;SHIFT COUNTER TEST
4345 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
4346 SR1 (\<ADR+2>,230703,603700,461607,407600,ROT,N+1)
4347 PAGE>
4348
4349 000501 ADR=ADR+3
4350 777777 777404 N=N+44
4351
4352 ;SHIFT COUNTER TEST
4353 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
4354 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)^
4355 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N-1 BIT
4356 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 114341,701740]
4357 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4358
4359 033263 200 02 0 00 036631 E50100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4360 033264 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4361 033265 241 02 0 00 777403 ROT AC,N-1 ;*SHIFT/ROTATE N-1 BIT POSITIONS
4362 033266 312 02 0 00 036651 CAME AC,[XWD 114341,701740] ;IS RESULT IN AC CORRECT?
4363 033267 003 02 0 00 050101 ER3 AC,50101 ;RESULT IN AC IS INCORRECT
4364 033270 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4365 033271 004 03 0 00 050101 ER4 AC+1,50101 ;C(AC+1) WAS MODIFIED INCORRECTLY
4366 033272 321 04 0 00 033263 JUMPL AC+2,E50100 ;LOOP ON ERROR SWITCH^
4367
4368 ;SHIFT COUNTER TEST
4369 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
4370 SR1 (\<ADR+1>,230703,603700,230703,603700,ROT,N)^
4371 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N BIT
4372 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700]
4373 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4374
4375 033273 200 02 0 00 036631 E50200: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4376 033274 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4377 033275 241 02 0 00 777404 ROT AC,N ;*SHIFT/ROTATE N BIT POSITIONS
4378 033276 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
4379 033277 003 02 0 00 050201 ER3 AC,50201 ;RESULT IN AC IS INCORRECT
4380 033300 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4381 033301 004 03 0 00 050201 ER4 AC+1,50201 ;C(AC+1) WAS MODIFIED INCORRECTLY
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0121
4382 033302 321 04 0 00 033273 JUMPL AC+2,E50200 ;LOOP ON ERROR SWITCH^
4383
4384 ;SHIFT COUNTER TEST
4385 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
4386 SR1 (\<ADR+2>,230703,603700,461607,407600,ROT,N+1)^
4387 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N+1 BIT
4388 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600]
4389 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4390
4391 033303 200 02 0 00 036631 E50300: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4392 033304 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4393 033305 241 02 0 00 777405 ROT AC,N+1 ;*SHIFT/ROTATE N+1 BIT POSITIONS
4394 033306 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT?
4395 033307 003 02 0 00 050301 ER3 AC,50301 ;RESULT IN AC IS INCORRECT
4396 033310 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4397 033311 004 03 0 00 050301 ER4 AC+1,50301 ;C(AC+1) WAS MODIFIED INCORRECTLY
4398 033312 321 04 0 00 033303 JUMPL AC+2,E50300 ;LOOP ON ERROR SWITCH^
4399 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0122
4400
4401 000504 ADR=ADR+3
4402 777777 777450 N=N+44
4403
4404 ;SHIFT COUNTER TEST
4405 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
4406 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)^
4407 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N-1 BIT
4408 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 114341,701740]
4409 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4410
4411 033313 200 02 0 00 036631 E50400: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4412 033314 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4413 033315 241 02 0 00 777447 ROT AC,N-1 ;*SHIFT/ROTATE N-1 BIT POSITIONS
4414 033316 312 02 0 00 036651 CAME AC,[XWD 114341,701740] ;IS RESULT IN AC CORRECT?
4415 033317 003 02 0 00 050401 ER3 AC,50401 ;RESULT IN AC IS INCORRECT
4416 033320 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4417 033321 004 03 0 00 050401 ER4 AC+1,50401 ;C(AC+1) WAS MODIFIED INCORRECTLY
4418 033322 321 04 0 00 033313 JUMPL AC+2,E50400 ;LOOP ON ERROR SWITCH^
4419
4420 ;SHIFT COUNTER TEST
4421 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
4422 SR1 (\<ADR+1>,230703,603700,230703,603700,ROT,N)^
4423 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N BIT
4424 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700]
4425 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4426
4427 033323 200 02 0 00 036631 E50500: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4428 033324 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4429 033325 241 02 0 00 777450 ROT AC,N ;*SHIFT/ROTATE N BIT POSITIONS
4430 033326 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
4431 033327 003 02 0 00 050501 ER3 AC,50501 ;RESULT IN AC IS INCORRECT
4432 033330 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4433 033331 004 03 0 00 050501 ER4 AC+1,50501 ;C(AC+1) WAS MODIFIED INCORRECTLY
4434 033332 321 04 0 00 033323 JUMPL AC+2,E50500 ;LOOP ON ERROR SWITCH^
4435
4436 ;SHIFT COUNTER TEST
4437 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
4438 SR1 (\<ADR+2>,230703,603700,461607,407600,ROT,N+1)^
4439 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N+1 BIT
4440 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600]
4441 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4442
4443 033333 200 02 0 00 036631 E50600: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4444 033334 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4445 033335 241 02 0 00 777451 ROT AC,N+1 ;*SHIFT/ROTATE N+1 BIT POSITIONS
4446 033336 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT?
4447 033337 003 02 0 00 050601 ER3 AC,50601 ;RESULT IN AC IS INCORRECT
4448 033340 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4449 033341 004 03 0 00 050601 ER4 AC+1,50601 ;C(AC+1) WAS MODIFIED INCORRECTLY
4450 033342 321 04 0 00 033333 JUMPL AC+2,E50600 ;LOOP ON ERROR SWITCH^
4451 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25-3
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0123
4452
4453 000507 ADR=ADR+3
4454 777777 777514 N=N+44
4455
4456 ;SHIFT COUNTER TEST
4457 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
4458 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)^
4459 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N-1 BIT
4460 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 114341,701740]
4461 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4462
4463 033343 200 02 0 00 036631 E50700: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4464 033344 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4465 033345 241 02 0 00 777513 ROT AC,N-1 ;*SHIFT/ROTATE N-1 BIT POSITIONS
4466 033346 312 02 0 00 036651 CAME AC,[XWD 114341,701740] ;IS RESULT IN AC CORRECT?
4467 033347 003 02 0 00 050701 ER3 AC,50701 ;RESULT IN AC IS INCORRECT
4468 033350 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4469 033351 004 03 0 00 050701 ER4 AC+1,50701 ;C(AC+1) WAS MODIFIED INCORRECTLY
4470 033352 321 04 0 00 033343 JUMPL AC+2,E50700 ;LOOP ON ERROR SWITCH^
4471
4472 ;SHIFT COUNTER TEST
4473 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
4474 SR1 (\<ADR+1>,230703,603700,230703,603700,ROT,N)^
4475 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N BIT
4476 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700]
4477 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4478
4479 033353 200 02 0 00 036631 E51000: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4480 033354 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4481 033355 241 02 0 00 777514 ROT AC,N ;*SHIFT/ROTATE N BIT POSITIONS
4482 033356 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
4483 033357 003 02 0 00 051001 ER3 AC,51001 ;RESULT IN AC IS INCORRECT
4484 033360 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4485 033361 004 03 0 00 051001 ER4 AC+1,51001 ;C(AC+1) WAS MODIFIED INCORRECTLY
4486 033362 321 04 0 00 033353 JUMPL AC+2,E51000 ;LOOP ON ERROR SWITCH^
4487
4488 ;SHIFT COUNTER TEST
4489 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
4490 SR1 (\<ADR+2>,230703,603700,461607,407600,ROT,N+1)^
4491 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N+1 BIT
4492 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600]
4493 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4494
4495 033363 200 02 0 00 036631 E51100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4496 033364 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4497 033365 241 02 0 00 777515 ROT AC,N+1 ;*SHIFT/ROTATE N+1 BIT POSITIONS
4498 033366 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT?
4499 033367 003 02 0 00 051101 ER3 AC,51101 ;RESULT IN AC IS INCORRECT
4500 033370 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4501 033371 004 03 0 00 051101 ER4 AC+1,51101 ;C(AC+1) WAS MODIFIED INCORRECTLY
4502 033372 321 04 0 00 033363 JUMPL AC+2,E51100 ;LOOP ON ERROR SWITCH^
4503 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25-4
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0124
4504
4505 000512 ADR=ADR+3
4506 777777 777560 N=N+44
4507
4508 ;SHIFT COUNTER TEST
4509 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
4510 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)^
4511 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N-1 BIT
4512 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 114341,701740]
4513 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4514
4515 033373 200 02 0 00 036631 E51200: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4516 033374 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4517 033375 241 02 0 00 777557 ROT AC,N-1 ;*SHIFT/ROTATE N-1 BIT POSITIONS
4518 033376 312 02 0 00 036651 CAME AC,[XWD 114341,701740] ;IS RESULT IN AC CORRECT?
4519 033377 003 02 0 00 051201 ER3 AC,51201 ;RESULT IN AC IS INCORRECT
4520 033400 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4521 033401 004 03 0 00 051201 ER4 AC+1,51201 ;C(AC+1) WAS MODIFIED INCORRECTLY
4522 033402 321 04 0 00 033373 JUMPL AC+2,E51200 ;LOOP ON ERROR SWITCH^
4523
4524 ;SHIFT COUNTER TEST
4525 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
4526 SR1 (\<ADR+1>,230703,603700,230703,603700,ROT,N)^
4527 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N BIT
4528 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700]
4529 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4530
4531 033403 200 02 0 00 036631 E51300: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4532 033404 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4533 033405 241 02 0 00 777560 ROT AC,N ;*SHIFT/ROTATE N BIT POSITIONS
4534 033406 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
4535 033407 003 02 0 00 051301 ER3 AC,51301 ;RESULT IN AC IS INCORRECT
4536 033410 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4537 033411 004 03 0 00 051301 ER4 AC+1,51301 ;C(AC+1) WAS MODIFIED INCORRECTLY
4538 033412 321 04 0 00 033403 JUMPL AC+2,E51300 ;LOOP ON ERROR SWITCH^
4539
4540 ;SHIFT COUNTER TEST
4541 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
4542 SR1 (\<ADR+2>,230703,603700,461607,407600,ROT,N+1)^
4543 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N+1 BIT
4544 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600]
4545 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4546
4547 033413 200 02 0 00 036631 E51400: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4548 033414 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4549 033415 241 02 0 00 777561 ROT AC,N+1 ;*SHIFT/ROTATE N+1 BIT POSITIONS
4550 033416 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT?
4551 033417 003 02 0 00 051401 ER3 AC,51401 ;RESULT IN AC IS INCORRECT
4552 033420 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4553 033421 004 03 0 00 051401 ER4 AC+1,51401 ;C(AC+1) WAS MODIFIED INCORRECTLY
4554 033422 321 04 0 00 033413 JUMPL AC+2,E51400 ;LOOP ON ERROR SWITCH^
4555 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25-5
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0125
4556
4557 000515 ADR=ADR+3
4558 777777 777624 N=N+44
4559
4560 ;SHIFT COUNTER TEST
4561 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
4562 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)^
4563 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N-1 BIT
4564 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 114341,701740]
4565 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4566
4567 033423 200 02 0 00 036631 E51500: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4568 033424 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4569 033425 241 02 0 00 777623 ROT AC,N-1 ;*SHIFT/ROTATE N-1 BIT POSITIONS
4570 033426 312 02 0 00 036651 CAME AC,[XWD 114341,701740] ;IS RESULT IN AC CORRECT?
4571 033427 003 02 0 00 051501 ER3 AC,51501 ;RESULT IN AC IS INCORRECT
4572 033430 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4573 033431 004 03 0 00 051501 ER4 AC+1,51501 ;C(AC+1) WAS MODIFIED INCORRECTLY
4574 033432 321 04 0 00 033423 JUMPL AC+2,E51500 ;LOOP ON ERROR SWITCH^
4575
4576 ;SHIFT COUNTER TEST
4577 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
4578 SR1 (\<ADR+1>,230703,603700,230703,603700,ROT,N)^
4579 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N BIT
4580 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700]
4581 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4582
4583 033433 200 02 0 00 036631 E51600: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4584 033434 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4585 033435 241 02 0 00 777624 ROT AC,N ;*SHIFT/ROTATE N BIT POSITIONS
4586 033436 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
4587 033437 003 02 0 00 051601 ER3 AC,51601 ;RESULT IN AC IS INCORRECT
4588 033440 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4589 033441 004 03 0 00 051601 ER4 AC+1,51601 ;C(AC+1) WAS MODIFIED INCORRECTLY
4590 033442 321 04 0 00 033433 JUMPL AC+2,E51600 ;LOOP ON ERROR SWITCH^
4591
4592 ;SHIFT COUNTER TEST
4593 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
4594 SR1 (\<ADR+2>,230703,603700,461607,407600,ROT,N+1)^
4595 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N+1 BIT
4596 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600]
4597 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4598
4599 033443 200 02 0 00 036631 E51700: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4600 033444 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4601 033445 241 02 0 00 777625 ROT AC,N+1 ;*SHIFT/ROTATE N+1 BIT POSITIONS
4602 033446 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT?
4603 033447 003 02 0 00 051701 ER3 AC,51701 ;RESULT IN AC IS INCORRECT
4604 033450 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4605 033451 004 03 0 00 051701 ER4 AC+1,51701 ;C(AC+1) WAS MODIFIED INCORRECTLY
4606 033452 321 04 0 00 033443 JUMPL AC+2,E51700 ;LOOP ON ERROR SWITCH^
4607 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25-6
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0126
4608
4609 000520 ADR=ADR+3
4610 777777 777670 N=N+44
4611
4612 ;SHIFT COUNTER TEST
4613 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
4614 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)^
4615 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N-1 BIT
4616 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 114341,701740]
4617 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4618
4619 033453 200 02 0 00 036631 E52000: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4620 033454 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4621 033455 241 02 0 00 777667 ROT AC,N-1 ;*SHIFT/ROTATE N-1 BIT POSITIONS
4622 033456 312 02 0 00 036651 CAME AC,[XWD 114341,701740] ;IS RESULT IN AC CORRECT?
4623 033457 003 02 0 00 052001 ER3 AC,52001 ;RESULT IN AC IS INCORRECT
4624 033460 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4625 033461 004 03 0 00 052001 ER4 AC+1,52001 ;C(AC+1) WAS MODIFIED INCORRECTLY
4626 033462 321 04 0 00 033453 JUMPL AC+2,E52000 ;LOOP ON ERROR SWITCH^
4627
4628 ;SHIFT COUNTER TEST
4629 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
4630 SR1 (\<ADR+1>,230703,603700,230703,603700,ROT,N)^
4631 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N BIT
4632 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700]
4633 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4634
4635 033463 200 02 0 00 036631 E52100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4636 033464 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4637 033465 241 02 0 00 777670 ROT AC,N ;*SHIFT/ROTATE N BIT POSITIONS
4638 033466 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
4639 033467 003 02 0 00 052101 ER3 AC,52101 ;RESULT IN AC IS INCORRECT
4640 033470 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4641 033471 004 03 0 00 052101 ER4 AC+1,52101 ;C(AC+1) WAS MODIFIED INCORRECTLY
4642 033472 321 04 0 00 033463 JUMPL AC+2,E52100 ;LOOP ON ERROR SWITCH^
4643
4644 ;SHIFT COUNTER TEST
4645 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
4646 SR1 (\<ADR+2>,230703,603700,461607,407600,ROT,N+1)^
4647 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N+1 BIT
4648 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600]
4649 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4650
4651 033473 200 02 0 00 036631 E52200: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4652 033474 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4653 033475 241 02 0 00 777671 ROT AC,N+1 ;*SHIFT/ROTATE N+1 BIT POSITIONS
4654 033476 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT?
4655 033477 003 02 0 00 052201 ER3 AC,52201 ;RESULT IN AC IS INCORRECT
4656 033500 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4657 033501 004 03 0 00 052201 ER4 AC+1,52201 ;C(AC+1) WAS MODIFIED INCORRECTLY
4658 033502 321 04 0 00 033473 JUMPL AC+2,E52200 ;LOOP ON ERROR SWITCH^
4659 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25-7
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0127
4660
4661 000523 ADR=ADR+3
4662 777777 777734 N=N+44
4663
4664 ;SHIFT COUNTER TEST
4665 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
4666 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)^
4667 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N-1 BIT
4668 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 114341,701740]
4669 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4670
4671 033503 200 02 0 00 036631 E52300: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4672 033504 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4673 033505 241 02 0 00 777733 ROT AC,N-1 ;*SHIFT/ROTATE N-1 BIT POSITIONS
4674 033506 312 02 0 00 036651 CAME AC,[XWD 114341,701740] ;IS RESULT IN AC CORRECT?
4675 033507 003 02 0 00 052301 ER3 AC,52301 ;RESULT IN AC IS INCORRECT
4676 033510 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4677 033511 004 03 0 00 052301 ER4 AC+1,52301 ;C(AC+1) WAS MODIFIED INCORRECTLY
4678 033512 321 04 0 00 033503 JUMPL AC+2,E52300 ;LOOP ON ERROR SWITCH^
4679
4680 ;SHIFT COUNTER TEST
4681 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
4682 SR1 (\<ADR+1>,230703,603700,230703,603700,ROT,N)^
4683 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N BIT
4684 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700]
4685 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4686
4687 033513 200 02 0 00 036631 E52400: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4688 033514 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4689 033515 241 02 0 00 777734 ROT AC,N ;*SHIFT/ROTATE N BIT POSITIONS
4690 033516 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
4691 033517 003 02 0 00 052401 ER3 AC,52401 ;RESULT IN AC IS INCORRECT
4692 033520 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4693 033521 004 03 0 00 052401 ER4 AC+1,52401 ;C(AC+1) WAS MODIFIED INCORRECTLY
4694 033522 321 04 0 00 033513 JUMPL AC+2,E52400 ;LOOP ON ERROR SWITCH^
4695
4696 ;SHIFT COUNTER TEST
4697 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
4698 SR1 (\<ADR+2>,230703,603700,461607,407600,ROT,N+1)^
4699 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N+1 BIT
4700 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600]
4701 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4702
4703 033523 200 02 0 00 036631 E52500: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4704 033524 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4705 033525 241 02 0 00 777735 ROT AC,N+1 ;*SHIFT/ROTATE N+1 BIT POSITIONS
4706 033526 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT?
4707 033527 003 02 0 00 052501 ER3 AC,52501 ;RESULT IN AC IS INCORRECT
4708 033530 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4709 033531 004 03 0 00 052501 ER4 AC+1,52501 ;C(AC+1) WAS MODIFIED INCORRECTLY
4710 033532 321 04 0 00 033523 JUMPL AC+2,E52500 ;LOOP ON ERROR SWITCH^
4711 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25-8
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0128
4712
4713 000526 ADR=ADR+3
4714 000000 N=N+44
4715
4716 ;SHIFT COUNTER TEST
4717 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
4718 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)^
4719 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N-1 BIT
4720 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 114341,701740]
4721 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4722
4723 033533 200 02 0 00 036631 E52600: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4724 033534 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4725 033535 241 02 0 00 777777 ROT AC,N-1 ;*SHIFT/ROTATE N-1 BIT POSITIONS
4726 033536 312 02 0 00 036651 CAME AC,[XWD 114341,701740] ;IS RESULT IN AC CORRECT?
4727 033537 003 02 0 00 052601 ER3 AC,52601 ;RESULT IN AC IS INCORRECT
4728 033540 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4729 033541 004 03 0 00 052601 ER4 AC+1,52601 ;C(AC+1) WAS MODIFIED INCORRECTLY
4730 033542 321 04 0 00 033533 JUMPL AC+2,E52600 ;LOOP ON ERROR SWITCH^
4731
4732 ;SHIFT COUNTER TEST
4733 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
4734 SR1 (\<ADR+1>,230703,603700,230703,603700,ROT,N)^
4735 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N BIT
4736 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700]
4737 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4738
4739 033543 200 02 0 00 036631 E52700: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4740 033544 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4741 033545 241 02 0 00 000000 ROT AC,N ;*SHIFT/ROTATE N BIT POSITIONS
4742 033546 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
4743 033547 003 02 0 00 052701 ER3 AC,52701 ;RESULT IN AC IS INCORRECT
4744 033550 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4745 033551 004 03 0 00 052701 ER4 AC+1,52701 ;C(AC+1) WAS MODIFIED INCORRECTLY
4746 033552 321 04 0 00 033543 JUMPL AC+2,E52700 ;LOOP ON ERROR SWITCH^
4747
4748 ;SHIFT COUNTER TEST
4749 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
4750 SR1 (\<ADR+2>,230703,603700,461607,407600,ROT,N+1)^
4751 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N+1 BIT
4752 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600]
4753 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4754
4755 033553 200 02 0 00 036631 E53000: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4756 033554 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4757 033555 241 02 0 00 000001 ROT AC,N+1 ;*SHIFT/ROTATE N+1 BIT POSITIONS
4758 033556 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT?
4759 033557 003 02 0 00 053001 ER3 AC,53001 ;RESULT IN AC IS INCORRECT
4760 033560 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4761 033561 004 03 0 00 053001 ER4 AC+1,53001 ;C(AC+1) WAS MODIFIED INCORRECTLY
4762 033562 321 04 0 00 033553 JUMPL AC+2,E53000 ;LOOP ON ERROR SWITCH^
4763 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25-9
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0129
4764
4765 000531 ADR=ADR+3
4766 000044 N=N+44
4767
4768 ;SHIFT COUNTER TEST
4769 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
4770 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)^
4771 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N-1 BIT
4772 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 114341,701740]
4773 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4774
4775 033563 200 02 0 00 036631 E53100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4776 033564 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4777 033565 241 02 0 00 000043 ROT AC,N-1 ;*SHIFT/ROTATE N-1 BIT POSITIONS
4778 033566 312 02 0 00 036651 CAME AC,[XWD 114341,701740] ;IS RESULT IN AC CORRECT?
4779 033567 003 02 0 00 053101 ER3 AC,53101 ;RESULT IN AC IS INCORRECT
4780 033570 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4781 033571 004 03 0 00 053101 ER4 AC+1,53101 ;C(AC+1) WAS MODIFIED INCORRECTLY
4782 033572 321 04 0 00 033563 JUMPL AC+2,E53100 ;LOOP ON ERROR SWITCH^
4783
4784 ;SHIFT COUNTER TEST
4785 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
4786 SR1 (\<ADR+1>,230703,603700,230703,603700,ROT,N)^
4787 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N BIT
4788 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700]
4789 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4790
4791 033573 200 02 0 00 036631 E53200: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4792 033574 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4793 033575 241 02 0 00 000044 ROT AC,N ;*SHIFT/ROTATE N BIT POSITIONS
4794 033576 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
4795 033577 003 02 0 00 053201 ER3 AC,53201 ;RESULT IN AC IS INCORRECT
4796 033600 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4797 033601 004 03 0 00 053201 ER4 AC+1,53201 ;C(AC+1) WAS MODIFIED INCORRECTLY
4798 033602 321 04 0 00 033573 JUMPL AC+2,E53200 ;LOOP ON ERROR SWITCH^
4799
4800 ;SHIFT COUNTER TEST
4801 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
4802 SR1 (\<ADR+2>,230703,603700,461607,407600,ROT,N+1)^
4803 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N+1 BIT
4804 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600]
4805 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4806
4807 033603 200 02 0 00 036631 E53300: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4808 033604 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4809 033605 241 02 0 00 000045 ROT AC,N+1 ;*SHIFT/ROTATE N+1 BIT POSITIONS
4810 033606 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT?
4811 033607 003 02 0 00 053301 ER3 AC,53301 ;RESULT IN AC IS INCORRECT
4812 033610 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4813 033611 004 03 0 00 053301 ER4 AC+1,53301 ;C(AC+1) WAS MODIFIED INCORRECTLY
4814 033612 321 04 0 00 033603 JUMPL AC+2,E53300 ;LOOP ON ERROR SWITCH^
4815 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25-10
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0130
4816
4817 000534 ADR=ADR+3
4818 000110 N=N+44
4819
4820 ;SHIFT COUNTER TEST
4821 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
4822 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)^
4823 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N-1 BIT
4824 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 114341,701740]
4825 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4826
4827 033613 200 02 0 00 036631 E53400: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4828 033614 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4829 033615 241 02 0 00 000107 ROT AC,N-1 ;*SHIFT/ROTATE N-1 BIT POSITIONS
4830 033616 312 02 0 00 036651 CAME AC,[XWD 114341,701740] ;IS RESULT IN AC CORRECT?
4831 033617 003 02 0 00 053401 ER3 AC,53401 ;RESULT IN AC IS INCORRECT
4832 033620 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4833 033621 004 03 0 00 053401 ER4 AC+1,53401 ;C(AC+1) WAS MODIFIED INCORRECTLY
4834 033622 321 04 0 00 033613 JUMPL AC+2,E53400 ;LOOP ON ERROR SWITCH^
4835
4836 ;SHIFT COUNTER TEST
4837 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
4838 SR1 (\<ADR+1>,230703,603700,230703,603700,ROT,N)^
4839 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N BIT
4840 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700]
4841 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4842
4843 033623 200 02 0 00 036631 E53500: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4844 033624 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4845 033625 241 02 0 00 000110 ROT AC,N ;*SHIFT/ROTATE N BIT POSITIONS
4846 033626 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
4847 033627 003 02 0 00 053501 ER3 AC,53501 ;RESULT IN AC IS INCORRECT
4848 033630 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4849 033631 004 03 0 00 053501 ER4 AC+1,53501 ;C(AC+1) WAS MODIFIED INCORRECTLY
4850 033632 321 04 0 00 033623 JUMPL AC+2,E53500 ;LOOP ON ERROR SWITCH^
4851
4852 ;SHIFT COUNTER TEST
4853 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
4854 SR1 (\<ADR+2>,230703,603700,461607,407600,ROT,N+1)^
4855 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N+1 BIT
4856 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600]
4857 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4858
4859 033633 200 02 0 00 036631 E53600: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4860 033634 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4861 033635 241 02 0 00 000111 ROT AC,N+1 ;*SHIFT/ROTATE N+1 BIT POSITIONS
4862 033636 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT?
4863 033637 003 02 0 00 053601 ER3 AC,53601 ;RESULT IN AC IS INCORRECT
4864 033640 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4865 033641 004 03 0 00 053601 ER4 AC+1,53601 ;C(AC+1) WAS MODIFIED INCORRECTLY
4866 033642 321 04 0 00 033633 JUMPL AC+2,E53600 ;LOOP ON ERROR SWITCH^
4867 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25-11
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0131
4868
4869 000537 ADR=ADR+3
4870 000154 N=N+44
4871
4872 ;SHIFT COUNTER TEST
4873 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
4874 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)^
4875 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N-1 BIT
4876 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 114341,701740]
4877 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4878
4879 033643 200 02 0 00 036631 E53700: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4880 033644 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4881 033645 241 02 0 00 000153 ROT AC,N-1 ;*SHIFT/ROTATE N-1 BIT POSITIONS
4882 033646 312 02 0 00 036651 CAME AC,[XWD 114341,701740] ;IS RESULT IN AC CORRECT?
4883 033647 003 02 0 00 053701 ER3 AC,53701 ;RESULT IN AC IS INCORRECT
4884 033650 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4885 033651 004 03 0 00 053701 ER4 AC+1,53701 ;C(AC+1) WAS MODIFIED INCORRECTLY
4886 033652 321 04 0 00 033643 JUMPL AC+2,E53700 ;LOOP ON ERROR SWITCH^
4887
4888 ;SHIFT COUNTER TEST
4889 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
4890 SR1 (\<ADR+1>,230703,603700,230703,603700,ROT,N)^
4891 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N BIT
4892 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700]
4893 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4894
4895 033653 200 02 0 00 036631 E54000: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4896 033654 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4897 033655 241 02 0 00 000154 ROT AC,N ;*SHIFT/ROTATE N BIT POSITIONS
4898 033656 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
4899 033657 003 02 0 00 054001 ER3 AC,54001 ;RESULT IN AC IS INCORRECT
4900 033660 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4901 033661 004 03 0 00 054001 ER4 AC+1,54001 ;C(AC+1) WAS MODIFIED INCORRECTLY
4902 033662 321 04 0 00 033653 JUMPL AC+2,E54000 ;LOOP ON ERROR SWITCH^
4903
4904 ;SHIFT COUNTER TEST
4905 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
4906 SR1 (\<ADR+2>,230703,603700,461607,407600,ROT,N+1)^
4907 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N+1 BIT
4908 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600]
4909 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4910
4911 033663 200 02 0 00 036631 E54100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4912 033664 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4913 033665 241 02 0 00 000155 ROT AC,N+1 ;*SHIFT/ROTATE N+1 BIT POSITIONS
4914 033666 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT?
4915 033667 003 02 0 00 054101 ER3 AC,54101 ;RESULT IN AC IS INCORRECT
4916 033670 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4917 033671 004 03 0 00 054101 ER4 AC+1,54101 ;C(AC+1) WAS MODIFIED INCORRECTLY
4918 033672 321 04 0 00 033663 JUMPL AC+2,E54100 ;LOOP ON ERROR SWITCH^
4919 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25-12
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0132
4920
4921 000542 ADR=ADR+3
4922 000220 N=N+44
4923
4924 ;SHIFT COUNTER TEST
4925 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
4926 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)^
4927 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N-1 BIT
4928 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 114341,701740]
4929 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4930
4931 033673 200 02 0 00 036631 E54200: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4932 033674 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4933 033675 241 02 0 00 000217 ROT AC,N-1 ;*SHIFT/ROTATE N-1 BIT POSITIONS
4934 033676 312 02 0 00 036651 CAME AC,[XWD 114341,701740] ;IS RESULT IN AC CORRECT?
4935 033677 003 02 0 00 054201 ER3 AC,54201 ;RESULT IN AC IS INCORRECT
4936 033700 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4937 033701 004 03 0 00 054201 ER4 AC+1,54201 ;C(AC+1) WAS MODIFIED INCORRECTLY
4938 033702 321 04 0 00 033673 JUMPL AC+2,E54200 ;LOOP ON ERROR SWITCH^
4939
4940 ;SHIFT COUNTER TEST
4941 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
4942 SR1 (\<ADR+1>,230703,603700,230703,603700,ROT,N)^
4943 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N BIT
4944 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700]
4945 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4946
4947 033703 200 02 0 00 036631 E54300: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4948 033704 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4949 033705 241 02 0 00 000220 ROT AC,N ;*SHIFT/ROTATE N BIT POSITIONS
4950 033706 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
4951 033707 003 02 0 00 054301 ER3 AC,54301 ;RESULT IN AC IS INCORRECT
4952 033710 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4953 033711 004 03 0 00 054301 ER4 AC+1,54301 ;C(AC+1) WAS MODIFIED INCORRECTLY
4954 033712 321 04 0 00 033703 JUMPL AC+2,E54300 ;LOOP ON ERROR SWITCH^
4955
4956 ;SHIFT COUNTER TEST
4957 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
4958 SR1 (\<ADR+2>,230703,603700,461607,407600,ROT,N+1)^
4959 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N+1 BIT
4960 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600]
4961 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4962
4963 033713 200 02 0 00 036631 E54400: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4964 033714 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4965 033715 241 02 0 00 000221 ROT AC,N+1 ;*SHIFT/ROTATE N+1 BIT POSITIONS
4966 033716 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT?
4967 033717 003 02 0 00 054401 ER3 AC,54401 ;RESULT IN AC IS INCORRECT
4968 033720 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4969 033721 004 03 0 00 054401 ER4 AC+1,54401 ;C(AC+1) WAS MODIFIED INCORRECTLY
4970 033722 321 04 0 00 033713 JUMPL AC+2,E54400 ;LOOP ON ERROR SWITCH^
4971 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25-13
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0133
4972
4973 000545 ADR=ADR+3
4974 000264 N=N+44
4975
4976 ;SHIFT COUNTER TEST
4977 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
4978 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)^
4979 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N-1 BIT
4980 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 114341,701740]
4981 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4982
4983 033723 200 02 0 00 036631 E54500: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
4984 033724 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
4985 033725 241 02 0 00 000263 ROT AC,N-1 ;*SHIFT/ROTATE N-1 BIT POSITIONS
4986 033726 312 02 0 00 036651 CAME AC,[XWD 114341,701740] ;IS RESULT IN AC CORRECT?
4987 033727 003 02 0 00 054501 ER3 AC,54501 ;RESULT IN AC IS INCORRECT
4988 033730 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
4989 033731 004 03 0 00 054501 ER4 AC+1,54501 ;C(AC+1) WAS MODIFIED INCORRECTLY
4990 033732 321 04 0 00 033723 JUMPL AC+2,E54500 ;LOOP ON ERROR SWITCH^
4991
4992 ;SHIFT COUNTER TEST
4993 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
4994 SR1 (\<ADR+1>,230703,603700,230703,603700,ROT,N)^
4995 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N BIT
4996 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700]
4997 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
4998
4999 033733 200 02 0 00 036631 E54600: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5000 033734 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
5001 033735 241 02 0 00 000264 ROT AC,N ;*SHIFT/ROTATE N BIT POSITIONS
5002 033736 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
5003 033737 003 02 0 00 054601 ER3 AC,54601 ;RESULT IN AC IS INCORRECT
5004 033740 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
5005 033741 004 03 0 00 054601 ER4 AC+1,54601 ;C(AC+1) WAS MODIFIED INCORRECTLY
5006 033742 321 04 0 00 033733 JUMPL AC+2,E54600 ;LOOP ON ERROR SWITCH^
5007
5008 ;SHIFT COUNTER TEST
5009 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
5010 SR1 (\<ADR+2>,230703,603700,461607,407600,ROT,N+1)^
5011 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N+1 BIT
5012 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600]
5013 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
5014
5015 033743 200 02 0 00 036631 E54700: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5016 033744 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
5017 033745 241 02 0 00 000265 ROT AC,N+1 ;*SHIFT/ROTATE N+1 BIT POSITIONS
5018 033746 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT?
5019 033747 003 02 0 00 054701 ER3 AC,54701 ;RESULT IN AC IS INCORRECT
5020 033750 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
5021 033751 004 03 0 00 054701 ER4 AC+1,54701 ;C(AC+1) WAS MODIFIED INCORRECTLY
5022 033752 321 04 0 00 033743 JUMPL AC+2,E54700 ;LOOP ON ERROR SWITCH^
5023 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25-14
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0134
5024
5025 000550 ADR=ADR+3
5026 000330 N=N+44
5027
5028 ;SHIFT COUNTER TEST
5029 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
5030 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)^
5031 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N-1 BIT
5032 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 114341,701740]
5033 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
5034
5035 033753 200 02 0 00 036631 E55000: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5036 033754 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
5037 033755 241 02 0 00 000327 ROT AC,N-1 ;*SHIFT/ROTATE N-1 BIT POSITIONS
5038 033756 312 02 0 00 036651 CAME AC,[XWD 114341,701740] ;IS RESULT IN AC CORRECT?
5039 033757 003 02 0 00 055001 ER3 AC,55001 ;RESULT IN AC IS INCORRECT
5040 033760 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
5041 033761 004 03 0 00 055001 ER4 AC+1,55001 ;C(AC+1) WAS MODIFIED INCORRECTLY
5042 033762 321 04 0 00 033753 JUMPL AC+2,E55000 ;LOOP ON ERROR SWITCH^
5043
5044 ;SHIFT COUNTER TEST
5045 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
5046 SR1 (\<ADR+1>,230703,603700,230703,603700,ROT,N)^
5047 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N BIT
5048 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700]
5049 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
5050
5051 033763 200 02 0 00 036631 E55100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5052 033764 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
5053 033765 241 02 0 00 000330 ROT AC,N ;*SHIFT/ROTATE N BIT POSITIONS
5054 033766 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
5055 033767 003 02 0 00 055101 ER3 AC,55101 ;RESULT IN AC IS INCORRECT
5056 033770 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
5057 033771 004 03 0 00 055101 ER4 AC+1,55101 ;C(AC+1) WAS MODIFIED INCORRECTLY
5058 033772 321 04 0 00 033763 JUMPL AC+2,E55100 ;LOOP ON ERROR SWITCH^
5059
5060 ;SHIFT COUNTER TEST
5061 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
5062 SR1 (\<ADR+2>,230703,603700,461607,407600,ROT,N+1)^
5063 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N+1 BIT
5064 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600]
5065 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
5066
5067 033773 200 02 0 00 036631 E55200: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5068 033774 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
5069 033775 241 02 0 00 000331 ROT AC,N+1 ;*SHIFT/ROTATE N+1 BIT POSITIONS
5070 033776 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT?
5071 033777 003 02 0 00 055201 ER3 AC,55201 ;RESULT IN AC IS INCORRECT
5072 034000 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
5073 034001 004 03 0 00 055201 ER4 AC+1,55201 ;C(AC+1) WAS MODIFIED INCORRECTLY
5074 034002 321 04 0 00 033773 JUMPL AC+2,E55200 ;LOOP ON ERROR SWITCH^
5075 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 25-15
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0135
5076
5077 000553 ADR=ADR+3
5078 000374 N=N+44
5079
5080 ;SHIFT COUNTER TEST
5081 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
5082 SR1 (\ADR,230703,603700,114341,701740,ROT,N-1)^
5083 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N-1 BIT
5084 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 114341,701740]
5085 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
5086
5087 034003 200 02 0 00 036631 E55300: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5088 034004 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
5089 034005 241 02 0 00 000373 ROT AC,N-1 ;*SHIFT/ROTATE N-1 BIT POSITIONS
5090 034006 312 02 0 00 036651 CAME AC,[XWD 114341,701740] ;IS RESULT IN AC CORRECT?
5091 034007 003 02 0 00 055301 ER3 AC,55301 ;RESULT IN AC IS INCORRECT
5092 034010 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
5093 034011 004 03 0 00 055301 ER4 AC+1,55301 ;C(AC+1) WAS MODIFIED INCORRECTLY
5094 034012 321 04 0 00 034003 JUMPL AC+2,E55300 ;LOOP ON ERROR SWITCH^
5095
5096 ;SHIFT COUNTER TEST
5097 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
5098 SR1 (\<ADR+1>,230703,603700,230703,603700,ROT,N)^
5099 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N BIT
5100 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700]
5101 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
5102
5103 034013 200 02 0 00 036631 E55400: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5104 034014 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
5105 034015 241 02 0 00 000374 ROT AC,N ;*SHIFT/ROTATE N BIT POSITIONS
5106 034016 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
5107 034017 003 02 0 00 055401 ER3 AC,55401 ;RESULT IN AC IS INCORRECT
5108 034020 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
5109 034021 004 03 0 00 055401 ER4 AC+1,55401 ;C(AC+1) WAS MODIFIED INCORRECTLY
5110 034022 321 04 0 00 034013 JUMPL AC+2,E55400 ;LOOP ON ERROR SWITCH^
5111
5112 ;SHIFT COUNTER TEST
5113 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
5114 SR1 (\<ADR+2>,230703,603700,461607,407600,ROT,N+1)^
5115 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] N+1 BIT
5116 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 461607,407600]
5117 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
5118
5119 034023 200 02 0 00 036631 E55500: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5120 034024 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
5121 034025 241 02 0 00 000375 ROT AC,N+1 ;*SHIFT/ROTATE N+1 BIT POSITIONS
5122 034026 312 02 0 00 036641 CAME AC,[XWD 461607,407600] ;IS RESULT IN AC CORRECT?
5123 034027 003 02 0 00 055501 ER3 AC,55501 ;RESULT IN AC IS INCORRECT
5124 034030 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
5125 034031 004 03 0 00 055501 ER4 AC+1,55501 ;C(AC+1) WAS MODIFIED INCORRECTLY
5126 034032 321 04 0 00 034023 JUMPL AC+2,E55500 ;LOOP ON ERROR SWITCH^
5127 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 26
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0136
5128 777777 777340 N=-374-44
5129
5130 REPEAT ^D1,<
5131 000556 ADR=ADR+3
5132 777777 777404 N=N+44
5133
5134 ;SHIFT COUNTER TEST
5135 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
5136 SR2 (\ADR,230703,603700,770037,600377,374017,700177,514341,701740,ROTC,N-1)^
5137 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5138 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N-1 BIT POSITIONS AND
5139 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 374017,700177] AND
5140 ;[XWD 514341,701740]
5141
5142 034033 200 02 0 00 036631 E55600: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5143 034034 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5144 034035 245 02 0 00 777403 ROTC AC,N-1 ;*SHIFT/ROTATE COMBINED N-1 PLACES
5145 034036 312 02 0 00 036653 CAME AC,[XWD 374017,700177] ;IS RESULT IN AC CORRECT?
5146 034037 003 02 0 00 055601 ER3 AC,55601 ;RESULT IN AC IS INCORRECT
5147 034040 312 03 0 00 036654 CAME AC+1,[XWD 514341,701740] ;IS RESULT IN AC+1 CORRECT?
5148 034041 004 03 0 00 055601 ER4 AC+1,55601 ;RESULT IN AC+1 IS INCORRECT
5149 034042 321 04 0 00 034033 JUMPL AC+2,E55600 ;LOOP ON ERROR SWITCH^
5150
5151 ;SHIFT COUNTER TEST
5152 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
5153 SR2 (\<ADR+1>,230703,603700,770037,600377,770037,600377,230703,603700,ROTC,N)^
5154 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5155 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N BIT POSITIONS AND
5156 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 770037,600377] AND
5157 ;[XWD 230703,603700]
5158
5159 034043 200 02 0 00 036631 E55700: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5160 034044 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5161 034045 245 02 0 00 777404 ROTC AC,N ;*SHIFT/ROTATE COMBINED N PLACES
5162 034046 312 02 0 00 036652 CAME AC,[XWD 770037,600377] ;IS RESULT IN AC CORRECT?
5163 034047 003 02 0 00 055701 ER3 AC,55701 ;RESULT IN AC IS INCORRECT
5164 034050 312 03 0 00 036631 CAME AC+1,[XWD 230703,603700] ;IS RESULT IN AC+1 CORRECT?
5165 034051 004 03 0 00 055701 ER4 AC+1,55701 ;RESULT IN AC+1 IS INCORRECT
5166 034052 321 04 0 00 034043 JUMPL AC+2,E55700 ;LOOP ON ERROR SWITCH^
5167
5168 ;SHIFT COUNTER TEST
5169 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
5170 SR2 (\<ADR+2>,230703,603700,770037,600377,760077,400776,461607,407601,ROTC,N+1)
5171 ^
5172 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5173 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N+1 BIT POSITIONS AND
5174 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 760077,400776] AND
5175 ;[XWD 461607,407601]
5176
5177 034053 200 02 0 00 036631 E56000: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5178 034054 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5179 034055 245 02 0 00 777405 ROTC AC,N+1 ;*SHIFT/ROTATE COMBINED N+1 PLACES
5180 034056 312 02 0 00 036655 CAME AC,[XWD 760077,400776] ;IS RESULT IN AC CORRECT?
5181 034057 003 02 0 00 056001 ER3 AC,56001 ;RESULT IN AC IS INCORRECT
5182 034060 312 03 0 00 036656 CAME AC+1,[XWD 461607,407601] ;IS RESULT IN AC+1 CORRECT?
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 26-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0137
5183 034061 004 03 0 00 056001 ER4 AC+1,56001 ;RESULT IN AC+1 IS INCORRECT
5184 034062 321 04 0 00 034053 JUMPL AC+2,E56000 ;LOOP ON ERROR SWITCH^
5185 PAGE>
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 27
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0138
5186 REPEAT ^D7,<
5187 ADR=ADR+3
5188 N=N+44
5189
5190 ;SHIFT COUNTER TEST
5191 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
5192 SR2 (\ADR,230703,603700,770037,600377,514341,701740,374017,700177,ROTC,N-1)
5193
5194 ;SHIFT COUNTER TEST
5195 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
5196 SR2 (\<ADR+1>,230703,603700,770037,600377,230703,603700,770037,600377,ROTC,N)
5197
5198 ;SHIFT COUNTER TEST
5199 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
5200 SR2 (\<ADR+2>,230703,603700,770037,600377,461607,407601,760077,400776,ROTC,N+1)
5201
5202 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 28
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0139
5203 ADR=ADR+3
5204 N=N+44
5205
5206 ;SHIFT COUNTER TEST
5207 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
5208 SR2 (\ADR,230703,603700,770037,600377,374017,700177,514341,701740,ROTC,N-1)
5209
5210 ;SHIFT COUNTER TEST
5211 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
5212 SR2 (\<ADR+1>,230703,603700,770037,600377,770037,600377,230703,603700,ROTC,N)
5213
5214 ;SHIFT COUNTER TEST
5215 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
5216 SR2 (\<ADR+2>,230703,603700,770037,600377,760077,400776,461607,407601,ROTC,N+1)
5217
5218 PAGE>
5219
5220 000561 ADR=ADR+3
5221 777777 777450 N=N+44
5222
5223 ;SHIFT COUNTER TEST
5224 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
5225 SR2 (\ADR,230703,603700,770037,600377,514341,701740,374017,700177,ROTC,N-1)^
5226 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5227 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N-1 BIT POSITIONS AND
5228 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 514341,701740] AND
5229 ;[XWD 374017,700177]
5230
5231 034063 200 02 0 00 036631 E56100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5232 034064 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5233 034065 245 02 0 00 777447 ROTC AC,N-1 ;*SHIFT/ROTATE COMBINED N-1 PLACES
5234 034066 312 02 0 00 036654 CAME AC,[XWD 514341,701740] ;IS RESULT IN AC CORRECT?
5235 034067 003 02 0 00 056101 ER3 AC,56101 ;RESULT IN AC IS INCORRECT
5236 034070 312 03 0 00 036653 CAME AC+1,[XWD 374017,700177] ;IS RESULT IN AC+1 CORRECT?
5237 034071 004 03 0 00 056101 ER4 AC+1,56101 ;RESULT IN AC+1 IS INCORRECT
5238 034072 321 04 0 00 034063 JUMPL AC+2,E56100 ;LOOP ON ERROR SWITCH^
5239
5240 ;SHIFT COUNTER TEST
5241 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
5242 SR2 (\<ADR+1>,230703,603700,770037,600377,230703,603700,770037,600377,ROTC,N)^
5243 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5244 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N BIT POSITIONS AND
5245 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 230703,603700] AND
5246 ;[XWD 770037,600377]
5247
5248 034073 200 02 0 00 036631 E56200: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5249 034074 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5250 034075 245 02 0 00 777450 ROTC AC,N ;*SHIFT/ROTATE COMBINED N PLACES
5251 034076 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
5252 034077 003 02 0 00 056201 ER3 AC,56201 ;RESULT IN AC IS INCORRECT
5253 034100 312 03 0 00 036652 CAME AC+1,[XWD 770037,600377] ;IS RESULT IN AC+1 CORRECT?
5254 034101 004 03 0 00 056201 ER4 AC+1,56201 ;RESULT IN AC+1 IS INCORRECT
5255 034102 321 04 0 00 034073 JUMPL AC+2,E56200 ;LOOP ON ERROR SWITCH^
5256
5257 ;SHIFT COUNTER TEST
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 28-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0140
5258 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
5259 SR2 (\<ADR+2>,230703,603700,770037,600377,461607,407601,760077,400776,ROTC,N+1)
5260 ^
5261 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5262 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N+1 BIT POSITIONS AND
5263 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 461607,407601] AND
5264 ;[XWD 760077,400776]
5265
5266 034103 200 02 0 00 036631 E56300: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5267 034104 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5268 034105 245 02 0 00 777451 ROTC AC,N+1 ;*SHIFT/ROTATE COMBINED N+1 PLACES
5269 034106 312 02 0 00 036656 CAME AC,[XWD 461607,407601] ;IS RESULT IN AC CORRECT?
5270 034107 003 02 0 00 056301 ER3 AC,56301 ;RESULT IN AC IS INCORRECT
5271 034110 312 03 0 00 036655 CAME AC+1,[XWD 760077,400776] ;IS RESULT IN AC+1 CORRECT?
5272 034111 004 03 0 00 056301 ER4 AC+1,56301 ;RESULT IN AC+1 IS INCORRECT
5273 034112 321 04 0 00 034103 JUMPL AC+2,E56300 ;LOOP ON ERROR SWITCH^
5274 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 29
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0141
5275 000564 ADR=ADR+3
5276 777777 777514 N=N+44
5277
5278 ;SHIFT COUNTER TEST
5279 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
5280 SR2 (\ADR,230703,603700,770037,600377,374017,700177,514341,701740,ROTC,N-1)^
5281 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5282 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N-1 BIT POSITIONS AND
5283 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 374017,700177] AND
5284 ;[XWD 514341,701740]
5285
5286 034113 200 02 0 00 036631 E56400: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5287 034114 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5288 034115 245 02 0 00 777513 ROTC AC,N-1 ;*SHIFT/ROTATE COMBINED N-1 PLACES
5289 034116 312 02 0 00 036653 CAME AC,[XWD 374017,700177] ;IS RESULT IN AC CORRECT?
5290 034117 003 02 0 00 056401 ER3 AC,56401 ;RESULT IN AC IS INCORRECT
5291 034120 312 03 0 00 036654 CAME AC+1,[XWD 514341,701740] ;IS RESULT IN AC+1 CORRECT?
5292 034121 004 03 0 00 056401 ER4 AC+1,56401 ;RESULT IN AC+1 IS INCORRECT
5293 034122 321 04 0 00 034113 JUMPL AC+2,E56400 ;LOOP ON ERROR SWITCH^
5294
5295 ;SHIFT COUNTER TEST
5296 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
5297 SR2 (\<ADR+1>,230703,603700,770037,600377,770037,600377,230703,603700,ROTC,N)^
5298 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5299 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N BIT POSITIONS AND
5300 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 770037,600377] AND
5301 ;[XWD 230703,603700]
5302
5303 034123 200 02 0 00 036631 E56500: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5304 034124 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5305 034125 245 02 0 00 777514 ROTC AC,N ;*SHIFT/ROTATE COMBINED N PLACES
5306 034126 312 02 0 00 036652 CAME AC,[XWD 770037,600377] ;IS RESULT IN AC CORRECT?
5307 034127 003 02 0 00 056501 ER3 AC,56501 ;RESULT IN AC IS INCORRECT
5308 034130 312 03 0 00 036631 CAME AC+1,[XWD 230703,603700] ;IS RESULT IN AC+1 CORRECT?
5309 034131 004 03 0 00 056501 ER4 AC+1,56501 ;RESULT IN AC+1 IS INCORRECT
5310 034132 321 04 0 00 034123 JUMPL AC+2,E56500 ;LOOP ON ERROR SWITCH^
5311
5312 ;SHIFT COUNTER TEST
5313 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
5314 SR2 (\<ADR+2>,230703,603700,770037,600377,760077,400776,461607,407601,ROTC,N+1)
5315 ^
5316 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5317 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N+1 BIT POSITIONS AND
5318 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 760077,400776] AND
5319 ;[XWD 461607,407601]
5320
5321 034133 200 02 0 00 036631 E56600: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5322 034134 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5323 034135 245 02 0 00 777515 ROTC AC,N+1 ;*SHIFT/ROTATE COMBINED N+1 PLACES
5324 034136 312 02 0 00 036655 CAME AC,[XWD 760077,400776] ;IS RESULT IN AC CORRECT?
5325 034137 003 02 0 00 056601 ER3 AC,56601 ;RESULT IN AC IS INCORRECT
5326 034140 312 03 0 00 036656 CAME AC+1,[XWD 461607,407601] ;IS RESULT IN AC+1 CORRECT?
5327 034141 004 03 0 00 056601 ER4 AC+1,56601 ;RESULT IN AC+1 IS INCORRECT
5328 034142 321 04 0 00 034133 JUMPL AC+2,E56600 ;LOOP ON ERROR SWITCH^
5329 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 29-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0142
5330
5331 000567 ADR=ADR+3
5332 777777 777560 N=N+44
5333
5334 ;SHIFT COUNTER TEST
5335 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
5336 SR2 (\ADR,230703,603700,770037,600377,514341,701740,374017,700177,ROTC,N-1)^
5337 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5338 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N-1 BIT POSITIONS AND
5339 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 514341,701740] AND
5340 ;[XWD 374017,700177]
5341
5342 034143 200 02 0 00 036631 E56700: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5343 034144 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5344 034145 245 02 0 00 777557 ROTC AC,N-1 ;*SHIFT/ROTATE COMBINED N-1 PLACES
5345 034146 312 02 0 00 036654 CAME AC,[XWD 514341,701740] ;IS RESULT IN AC CORRECT?
5346 034147 003 02 0 00 056701 ER3 AC,56701 ;RESULT IN AC IS INCORRECT
5347 034150 312 03 0 00 036653 CAME AC+1,[XWD 374017,700177] ;IS RESULT IN AC+1 CORRECT?
5348 034151 004 03 0 00 056701 ER4 AC+1,56701 ;RESULT IN AC+1 IS INCORRECT
5349 034152 321 04 0 00 034143 JUMPL AC+2,E56700 ;LOOP ON ERROR SWITCH^
5350
5351 ;SHIFT COUNTER TEST
5352 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
5353 SR2 (\<ADR+1>,230703,603700,770037,600377,230703,603700,770037,600377,ROTC,N)^
5354 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5355 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N BIT POSITIONS AND
5356 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 230703,603700] AND
5357 ;[XWD 770037,600377]
5358
5359 034153 200 02 0 00 036631 E57000: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5360 034154 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5361 034155 245 02 0 00 777560 ROTC AC,N ;*SHIFT/ROTATE COMBINED N PLACES
5362 034156 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
5363 034157 003 02 0 00 057001 ER3 AC,57001 ;RESULT IN AC IS INCORRECT
5364 034160 312 03 0 00 036652 CAME AC+1,[XWD 770037,600377] ;IS RESULT IN AC+1 CORRECT?
5365 034161 004 03 0 00 057001 ER4 AC+1,57001 ;RESULT IN AC+1 IS INCORRECT
5366 034162 321 04 0 00 034153 JUMPL AC+2,E57000 ;LOOP ON ERROR SWITCH^
5367
5368 ;SHIFT COUNTER TEST
5369 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
5370 SR2 (\<ADR+2>,230703,603700,770037,600377,461607,407601,760077,400776,ROTC,N+1)
5371 ^
5372 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5373 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N+1 BIT POSITIONS AND
5374 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 461607,407601] AND
5375 ;[XWD 760077,400776]
5376
5377 034163 200 02 0 00 036631 E57100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5378 034164 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5379 034165 245 02 0 00 777561 ROTC AC,N+1 ;*SHIFT/ROTATE COMBINED N+1 PLACES
5380 034166 312 02 0 00 036656 CAME AC,[XWD 461607,407601] ;IS RESULT IN AC CORRECT?
5381 034167 003 02 0 00 057101 ER3 AC,57101 ;RESULT IN AC IS INCORRECT
5382 034170 312 03 0 00 036655 CAME AC+1,[XWD 760077,400776] ;IS RESULT IN AC+1 CORRECT?
5383 034171 004 03 0 00 057101 ER4 AC+1,57101 ;RESULT IN AC+1 IS INCORRECT
5384 034172 321 04 0 00 034163 JUMPL AC+2,E57100 ;LOOP ON ERROR SWITCH^
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 29-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0143
5385 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 30
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0144
5386 000572 ADR=ADR+3
5387 777777 777624 N=N+44
5388
5389 ;SHIFT COUNTER TEST
5390 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
5391 SR2 (\ADR,230703,603700,770037,600377,374017,700177,514341,701740,ROTC,N-1)^
5392 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5393 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N-1 BIT POSITIONS AND
5394 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 374017,700177] AND
5395 ;[XWD 514341,701740]
5396
5397 034173 200 02 0 00 036631 E57200: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5398 034174 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5399 034175 245 02 0 00 777623 ROTC AC,N-1 ;*SHIFT/ROTATE COMBINED N-1 PLACES
5400 034176 312 02 0 00 036653 CAME AC,[XWD 374017,700177] ;IS RESULT IN AC CORRECT?
5401 034177 003 02 0 00 057201 ER3 AC,57201 ;RESULT IN AC IS INCORRECT
5402 034200 312 03 0 00 036654 CAME AC+1,[XWD 514341,701740] ;IS RESULT IN AC+1 CORRECT?
5403 034201 004 03 0 00 057201 ER4 AC+1,57201 ;RESULT IN AC+1 IS INCORRECT
5404 034202 321 04 0 00 034173 JUMPL AC+2,E57200 ;LOOP ON ERROR SWITCH^
5405
5406 ;SHIFT COUNTER TEST
5407 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
5408 SR2 (\<ADR+1>,230703,603700,770037,600377,770037,600377,230703,603700,ROTC,N)^
5409 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5410 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N BIT POSITIONS AND
5411 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 770037,600377] AND
5412 ;[XWD 230703,603700]
5413
5414 034203 200 02 0 00 036631 E57300: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5415 034204 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5416 034205 245 02 0 00 777624 ROTC AC,N ;*SHIFT/ROTATE COMBINED N PLACES
5417 034206 312 02 0 00 036652 CAME AC,[XWD 770037,600377] ;IS RESULT IN AC CORRECT?
5418 034207 003 02 0 00 057301 ER3 AC,57301 ;RESULT IN AC IS INCORRECT
5419 034210 312 03 0 00 036631 CAME AC+1,[XWD 230703,603700] ;IS RESULT IN AC+1 CORRECT?
5420 034211 004 03 0 00 057301 ER4 AC+1,57301 ;RESULT IN AC+1 IS INCORRECT
5421 034212 321 04 0 00 034203 JUMPL AC+2,E57300 ;LOOP ON ERROR SWITCH^
5422
5423 ;SHIFT COUNTER TEST
5424 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
5425 SR2 (\<ADR+2>,230703,603700,770037,600377,760077,400776,461607,407601,ROTC,N+1)
5426 ^
5427 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5428 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N+1 BIT POSITIONS AND
5429 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 760077,400776] AND
5430 ;[XWD 461607,407601]
5431
5432 034213 200 02 0 00 036631 E57400: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5433 034214 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5434 034215 245 02 0 00 777625 ROTC AC,N+1 ;*SHIFT/ROTATE COMBINED N+1 PLACES
5435 034216 312 02 0 00 036655 CAME AC,[XWD 760077,400776] ;IS RESULT IN AC CORRECT?
5436 034217 003 02 0 00 057401 ER3 AC,57401 ;RESULT IN AC IS INCORRECT
5437 034220 312 03 0 00 036656 CAME AC+1,[XWD 461607,407601] ;IS RESULT IN AC+1 CORRECT?
5438 034221 004 03 0 00 057401 ER4 AC+1,57401 ;RESULT IN AC+1 IS INCORRECT
5439 034222 321 04 0 00 034213 JUMPL AC+2,E57400 ;LOOP ON ERROR SWITCH^
5440 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 30-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0145
5441
5442 000575 ADR=ADR+3
5443 777777 777670 N=N+44
5444
5445 ;SHIFT COUNTER TEST
5446 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
5447 SR2 (\ADR,230703,603700,770037,600377,514341,701740,374017,700177,ROTC,N-1)^
5448 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5449 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N-1 BIT POSITIONS AND
5450 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 514341,701740] AND
5451 ;[XWD 374017,700177]
5452
5453 034223 200 02 0 00 036631 E57500: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5454 034224 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5455 034225 245 02 0 00 777667 ROTC AC,N-1 ;*SHIFT/ROTATE COMBINED N-1 PLACES
5456 034226 312 02 0 00 036654 CAME AC,[XWD 514341,701740] ;IS RESULT IN AC CORRECT?
5457 034227 003 02 0 00 057501 ER3 AC,57501 ;RESULT IN AC IS INCORRECT
5458 034230 312 03 0 00 036653 CAME AC+1,[XWD 374017,700177] ;IS RESULT IN AC+1 CORRECT?
5459 034231 004 03 0 00 057501 ER4 AC+1,57501 ;RESULT IN AC+1 IS INCORRECT
5460 034232 321 04 0 00 034223 JUMPL AC+2,E57500 ;LOOP ON ERROR SWITCH^
5461
5462 ;SHIFT COUNTER TEST
5463 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
5464 SR2 (\<ADR+1>,230703,603700,770037,600377,230703,603700,770037,600377,ROTC,N)^
5465 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5466 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N BIT POSITIONS AND
5467 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 230703,603700] AND
5468 ;[XWD 770037,600377]
5469
5470 034233 200 02 0 00 036631 E57600: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5471 034234 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5472 034235 245 02 0 00 777670 ROTC AC,N ;*SHIFT/ROTATE COMBINED N PLACES
5473 034236 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
5474 034237 003 02 0 00 057601 ER3 AC,57601 ;RESULT IN AC IS INCORRECT
5475 034240 312 03 0 00 036652 CAME AC+1,[XWD 770037,600377] ;IS RESULT IN AC+1 CORRECT?
5476 034241 004 03 0 00 057601 ER4 AC+1,57601 ;RESULT IN AC+1 IS INCORRECT
5477 034242 321 04 0 00 034233 JUMPL AC+2,E57600 ;LOOP ON ERROR SWITCH^
5478
5479 ;SHIFT COUNTER TEST
5480 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
5481 SR2 (\<ADR+2>,230703,603700,770037,600377,461607,407601,760077,400776,ROTC,N+1)
5482 ^
5483 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5484 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N+1 BIT POSITIONS AND
5485 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 461607,407601] AND
5486 ;[XWD 760077,400776]
5487
5488 034243 200 02 0 00 036631 E57700: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5489 034244 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5490 034245 245 02 0 00 777671 ROTC AC,N+1 ;*SHIFT/ROTATE COMBINED N+1 PLACES
5491 034246 312 02 0 00 036656 CAME AC,[XWD 461607,407601] ;IS RESULT IN AC CORRECT?
5492 034247 003 02 0 00 057701 ER3 AC,57701 ;RESULT IN AC IS INCORRECT
5493 034250 312 03 0 00 036655 CAME AC+1,[XWD 760077,400776] ;IS RESULT IN AC+1 CORRECT?
5494 034251 004 03 0 00 057701 ER4 AC+1,57701 ;RESULT IN AC+1 IS INCORRECT
5495 034252 321 04 0 00 034243 JUMPL AC+2,E57700 ;LOOP ON ERROR SWITCH^
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 30-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0146
5496 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 31
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0147
5497 000600 ADR=ADR+3
5498 777777 777734 N=N+44
5499
5500 ;SHIFT COUNTER TEST
5501 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
5502 SR2 (\ADR,230703,603700,770037,600377,374017,700177,514341,701740,ROTC,N-1)^
5503 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5504 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N-1 BIT POSITIONS AND
5505 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 374017,700177] AND
5506 ;[XWD 514341,701740]
5507
5508 034253 200 02 0 00 036631 E60000: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5509 034254 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5510 034255 245 02 0 00 777733 ROTC AC,N-1 ;*SHIFT/ROTATE COMBINED N-1 PLACES
5511 034256 312 02 0 00 036653 CAME AC,[XWD 374017,700177] ;IS RESULT IN AC CORRECT?
5512 034257 003 02 0 00 060001 ER3 AC,60001 ;RESULT IN AC IS INCORRECT
5513 034260 312 03 0 00 036654 CAME AC+1,[XWD 514341,701740] ;IS RESULT IN AC+1 CORRECT?
5514 034261 004 03 0 00 060001 ER4 AC+1,60001 ;RESULT IN AC+1 IS INCORRECT
5515 034262 321 04 0 00 034253 JUMPL AC+2,E60000 ;LOOP ON ERROR SWITCH^
5516
5517 ;SHIFT COUNTER TEST
5518 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
5519 SR2 (\<ADR+1>,230703,603700,770037,600377,770037,600377,230703,603700,ROTC,N)^
5520 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5521 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N BIT POSITIONS AND
5522 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 770037,600377] AND
5523 ;[XWD 230703,603700]
5524
5525 034263 200 02 0 00 036631 E60100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5526 034264 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5527 034265 245 02 0 00 777734 ROTC AC,N ;*SHIFT/ROTATE COMBINED N PLACES
5528 034266 312 02 0 00 036652 CAME AC,[XWD 770037,600377] ;IS RESULT IN AC CORRECT?
5529 034267 003 02 0 00 060101 ER3 AC,60101 ;RESULT IN AC IS INCORRECT
5530 034270 312 03 0 00 036631 CAME AC+1,[XWD 230703,603700] ;IS RESULT IN AC+1 CORRECT?
5531 034271 004 03 0 00 060101 ER4 AC+1,60101 ;RESULT IN AC+1 IS INCORRECT
5532 034272 321 04 0 00 034263 JUMPL AC+2,E60100 ;LOOP ON ERROR SWITCH^
5533
5534 ;SHIFT COUNTER TEST
5535 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
5536 SR2 (\<ADR+2>,230703,603700,770037,600377,760077,400776,461607,407601,ROTC,N+1)
5537 ^
5538 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5539 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N+1 BIT POSITIONS AND
5540 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 760077,400776] AND
5541 ;[XWD 461607,407601]
5542
5543 034273 200 02 0 00 036631 E60200: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5544 034274 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5545 034275 245 02 0 00 777735 ROTC AC,N+1 ;*SHIFT/ROTATE COMBINED N+1 PLACES
5546 034276 312 02 0 00 036655 CAME AC,[XWD 760077,400776] ;IS RESULT IN AC CORRECT?
5547 034277 003 02 0 00 060201 ER3 AC,60201 ;RESULT IN AC IS INCORRECT
5548 034300 312 03 0 00 036656 CAME AC+1,[XWD 461607,407601] ;IS RESULT IN AC+1 CORRECT?
5549 034301 004 03 0 00 060201 ER4 AC+1,60201 ;RESULT IN AC+1 IS INCORRECT
5550 034302 321 04 0 00 034273 JUMPL AC+2,E60200 ;LOOP ON ERROR SWITCH^
5551 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 31-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0148
5552
5553 000603 ADR=ADR+3
5554 000000 N=N+44
5555
5556 ;SHIFT COUNTER TEST
5557 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
5558 SR2 (\ADR,230703,603700,770037,600377,514341,701740,374017,700177,ROTC,N-1)^
5559 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5560 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N-1 BIT POSITIONS AND
5561 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 514341,701740] AND
5562 ;[XWD 374017,700177]
5563
5564 034303 200 02 0 00 036631 E60300: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5565 034304 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5566 034305 245 02 0 00 777777 ROTC AC,N-1 ;*SHIFT/ROTATE COMBINED N-1 PLACES
5567 034306 312 02 0 00 036654 CAME AC,[XWD 514341,701740] ;IS RESULT IN AC CORRECT?
5568 034307 003 02 0 00 060301 ER3 AC,60301 ;RESULT IN AC IS INCORRECT
5569 034310 312 03 0 00 036653 CAME AC+1,[XWD 374017,700177] ;IS RESULT IN AC+1 CORRECT?
5570 034311 004 03 0 00 060301 ER4 AC+1,60301 ;RESULT IN AC+1 IS INCORRECT
5571 034312 321 04 0 00 034303 JUMPL AC+2,E60300 ;LOOP ON ERROR SWITCH^
5572
5573 ;SHIFT COUNTER TEST
5574 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
5575 SR2 (\<ADR+1>,230703,603700,770037,600377,230703,603700,770037,600377,ROTC,N)^
5576 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5577 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N BIT POSITIONS AND
5578 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 230703,603700] AND
5579 ;[XWD 770037,600377]
5580
5581 034313 200 02 0 00 036631 E60400: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5582 034314 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5583 034315 245 02 0 00 000000 ROTC AC,N ;*SHIFT/ROTATE COMBINED N PLACES
5584 034316 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
5585 034317 003 02 0 00 060401 ER3 AC,60401 ;RESULT IN AC IS INCORRECT
5586 034320 312 03 0 00 036652 CAME AC+1,[XWD 770037,600377] ;IS RESULT IN AC+1 CORRECT?
5587 034321 004 03 0 00 060401 ER4 AC+1,60401 ;RESULT IN AC+1 IS INCORRECT
5588 034322 321 04 0 00 034313 JUMPL AC+2,E60400 ;LOOP ON ERROR SWITCH^
5589
5590 ;SHIFT COUNTER TEST
5591 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
5592 SR2 (\<ADR+2>,230703,603700,770037,600377,461607,407601,760077,400776,ROTC,N+1)
5593 ^
5594 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5595 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N+1 BIT POSITIONS AND
5596 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 461607,407601] AND
5597 ;[XWD 760077,400776]
5598
5599 034323 200 02 0 00 036631 E60500: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5600 034324 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5601 034325 245 02 0 00 000001 ROTC AC,N+1 ;*SHIFT/ROTATE COMBINED N+1 PLACES
5602 034326 312 02 0 00 036656 CAME AC,[XWD 461607,407601] ;IS RESULT IN AC CORRECT?
5603 034327 003 02 0 00 060501 ER3 AC,60501 ;RESULT IN AC IS INCORRECT
5604 034330 312 03 0 00 036655 CAME AC+1,[XWD 760077,400776] ;IS RESULT IN AC+1 CORRECT?
5605 034331 004 03 0 00 060501 ER4 AC+1,60501 ;RESULT IN AC+1 IS INCORRECT
5606 034332 321 04 0 00 034323 JUMPL AC+2,E60500 ;LOOP ON ERROR SWITCH^
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 31-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0149
5607 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 32
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0150
5608 000606 ADR=ADR+3
5609 000044 N=N+44
5610
5611 ;SHIFT COUNTER TEST
5612 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
5613 SR2 (\ADR,230703,603700,770037,600377,374017,700177,514341,701740,ROTC,N-1)^
5614 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5615 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N-1 BIT POSITIONS AND
5616 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 374017,700177] AND
5617 ;[XWD 514341,701740]
5618
5619 034333 200 02 0 00 036631 E60600: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5620 034334 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5621 034335 245 02 0 00 000043 ROTC AC,N-1 ;*SHIFT/ROTATE COMBINED N-1 PLACES
5622 034336 312 02 0 00 036653 CAME AC,[XWD 374017,700177] ;IS RESULT IN AC CORRECT?
5623 034337 003 02 0 00 060601 ER3 AC,60601 ;RESULT IN AC IS INCORRECT
5624 034340 312 03 0 00 036654 CAME AC+1,[XWD 514341,701740] ;IS RESULT IN AC+1 CORRECT?
5625 034341 004 03 0 00 060601 ER4 AC+1,60601 ;RESULT IN AC+1 IS INCORRECT
5626 034342 321 04 0 00 034333 JUMPL AC+2,E60600 ;LOOP ON ERROR SWITCH^
5627
5628 ;SHIFT COUNTER TEST
5629 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
5630 SR2 (\<ADR+1>,230703,603700,770037,600377,770037,600377,230703,603700,ROTC,N)^
5631 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5632 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N BIT POSITIONS AND
5633 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 770037,600377] AND
5634 ;[XWD 230703,603700]
5635
5636 034343 200 02 0 00 036631 E60700: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5637 034344 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5638 034345 245 02 0 00 000044 ROTC AC,N ;*SHIFT/ROTATE COMBINED N PLACES
5639 034346 312 02 0 00 036652 CAME AC,[XWD 770037,600377] ;IS RESULT IN AC CORRECT?
5640 034347 003 02 0 00 060701 ER3 AC,60701 ;RESULT IN AC IS INCORRECT
5641 034350 312 03 0 00 036631 CAME AC+1,[XWD 230703,603700] ;IS RESULT IN AC+1 CORRECT?
5642 034351 004 03 0 00 060701 ER4 AC+1,60701 ;RESULT IN AC+1 IS INCORRECT
5643 034352 321 04 0 00 034343 JUMPL AC+2,E60700 ;LOOP ON ERROR SWITCH^
5644
5645 ;SHIFT COUNTER TEST
5646 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
5647 SR2 (\<ADR+2>,230703,603700,770037,600377,760077,400776,461607,407601,ROTC,N+1)
5648 ^
5649 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5650 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N+1 BIT POSITIONS AND
5651 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 760077,400776] AND
5652 ;[XWD 461607,407601]
5653
5654 034353 200 02 0 00 036631 E61000: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5655 034354 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5656 034355 245 02 0 00 000045 ROTC AC,N+1 ;*SHIFT/ROTATE COMBINED N+1 PLACES
5657 034356 312 02 0 00 036655 CAME AC,[XWD 760077,400776] ;IS RESULT IN AC CORRECT?
5658 034357 003 02 0 00 061001 ER3 AC,61001 ;RESULT IN AC IS INCORRECT
5659 034360 312 03 0 00 036656 CAME AC+1,[XWD 461607,407601] ;IS RESULT IN AC+1 CORRECT?
5660 034361 004 03 0 00 061001 ER4 AC+1,61001 ;RESULT IN AC+1 IS INCORRECT
5661 034362 321 04 0 00 034353 JUMPL AC+2,E61000 ;LOOP ON ERROR SWITCH^
5662 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 32-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0151
5663
5664 000611 ADR=ADR+3
5665 000110 N=N+44
5666
5667 ;SHIFT COUNTER TEST
5668 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
5669 SR2 (\ADR,230703,603700,770037,600377,514341,701740,374017,700177,ROTC,N-1)^
5670 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5671 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N-1 BIT POSITIONS AND
5672 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 514341,701740] AND
5673 ;[XWD 374017,700177]
5674
5675 034363 200 02 0 00 036631 E61100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5676 034364 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5677 034365 245 02 0 00 000107 ROTC AC,N-1 ;*SHIFT/ROTATE COMBINED N-1 PLACES
5678 034366 312 02 0 00 036654 CAME AC,[XWD 514341,701740] ;IS RESULT IN AC CORRECT?
5679 034367 003 02 0 00 061101 ER3 AC,61101 ;RESULT IN AC IS INCORRECT
5680 034370 312 03 0 00 036653 CAME AC+1,[XWD 374017,700177] ;IS RESULT IN AC+1 CORRECT?
5681 034371 004 03 0 00 061101 ER4 AC+1,61101 ;RESULT IN AC+1 IS INCORRECT
5682 034372 321 04 0 00 034363 JUMPL AC+2,E61100 ;LOOP ON ERROR SWITCH^
5683
5684 ;SHIFT COUNTER TEST
5685 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
5686 SR2 (\<ADR+1>,230703,603700,770037,600377,230703,603700,770037,600377,ROTC,N)^
5687 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5688 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N BIT POSITIONS AND
5689 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 230703,603700] AND
5690 ;[XWD 770037,600377]
5691
5692 034373 200 02 0 00 036631 E61200: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5693 034374 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5694 034375 245 02 0 00 000110 ROTC AC,N ;*SHIFT/ROTATE COMBINED N PLACES
5695 034376 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
5696 034377 003 02 0 00 061201 ER3 AC,61201 ;RESULT IN AC IS INCORRECT
5697 034400 312 03 0 00 036652 CAME AC+1,[XWD 770037,600377] ;IS RESULT IN AC+1 CORRECT?
5698 034401 004 03 0 00 061201 ER4 AC+1,61201 ;RESULT IN AC+1 IS INCORRECT
5699 034402 321 04 0 00 034373 JUMPL AC+2,E61200 ;LOOP ON ERROR SWITCH^
5700
5701 ;SHIFT COUNTER TEST
5702 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
5703 SR2 (\<ADR+2>,230703,603700,770037,600377,461607,407601,760077,400776,ROTC,N+1)
5704 ^
5705 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5706 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N+1 BIT POSITIONS AND
5707 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 461607,407601] AND
5708 ;[XWD 760077,400776]
5709
5710 034403 200 02 0 00 036631 E61300: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5711 034404 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5712 034405 245 02 0 00 000111 ROTC AC,N+1 ;*SHIFT/ROTATE COMBINED N+1 PLACES
5713 034406 312 02 0 00 036656 CAME AC,[XWD 461607,407601] ;IS RESULT IN AC CORRECT?
5714 034407 003 02 0 00 061301 ER3 AC,61301 ;RESULT IN AC IS INCORRECT
5715 034410 312 03 0 00 036655 CAME AC+1,[XWD 760077,400776] ;IS RESULT IN AC+1 CORRECT?
5716 034411 004 03 0 00 061301 ER4 AC+1,61301 ;RESULT IN AC+1 IS INCORRECT
5717 034412 321 04 0 00 034403 JUMPL AC+2,E61300 ;LOOP ON ERROR SWITCH^
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 32-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0152
5718 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 33
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0153
5719 000614 ADR=ADR+3
5720 000154 N=N+44
5721
5722 ;SHIFT COUNTER TEST
5723 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
5724 SR2 (\ADR,230703,603700,770037,600377,374017,700177,514341,701740,ROTC,N-1)^
5725 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5726 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N-1 BIT POSITIONS AND
5727 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 374017,700177] AND
5728 ;[XWD 514341,701740]
5729
5730 034413 200 02 0 00 036631 E61400: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5731 034414 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5732 034415 245 02 0 00 000153 ROTC AC,N-1 ;*SHIFT/ROTATE COMBINED N-1 PLACES
5733 034416 312 02 0 00 036653 CAME AC,[XWD 374017,700177] ;IS RESULT IN AC CORRECT?
5734 034417 003 02 0 00 061401 ER3 AC,61401 ;RESULT IN AC IS INCORRECT
5735 034420 312 03 0 00 036654 CAME AC+1,[XWD 514341,701740] ;IS RESULT IN AC+1 CORRECT?
5736 034421 004 03 0 00 061401 ER4 AC+1,61401 ;RESULT IN AC+1 IS INCORRECT
5737 034422 321 04 0 00 034413 JUMPL AC+2,E61400 ;LOOP ON ERROR SWITCH^
5738
5739 ;SHIFT COUNTER TEST
5740 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
5741 SR2 (\<ADR+1>,230703,603700,770037,600377,770037,600377,230703,603700,ROTC,N)^
5742 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5743 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N BIT POSITIONS AND
5744 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 770037,600377] AND
5745 ;[XWD 230703,603700]
5746
5747 034423 200 02 0 00 036631 E61500: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5748 034424 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5749 034425 245 02 0 00 000154 ROTC AC,N ;*SHIFT/ROTATE COMBINED N PLACES
5750 034426 312 02 0 00 036652 CAME AC,[XWD 770037,600377] ;IS RESULT IN AC CORRECT?
5751 034427 003 02 0 00 061501 ER3 AC,61501 ;RESULT IN AC IS INCORRECT
5752 034430 312 03 0 00 036631 CAME AC+1,[XWD 230703,603700] ;IS RESULT IN AC+1 CORRECT?
5753 034431 004 03 0 00 061501 ER4 AC+1,61501 ;RESULT IN AC+1 IS INCORRECT
5754 034432 321 04 0 00 034423 JUMPL AC+2,E61500 ;LOOP ON ERROR SWITCH^
5755
5756 ;SHIFT COUNTER TEST
5757 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
5758 SR2 (\<ADR+2>,230703,603700,770037,600377,760077,400776,461607,407601,ROTC,N+1)
5759 ^
5760 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5761 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N+1 BIT POSITIONS AND
5762 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 760077,400776] AND
5763 ;[XWD 461607,407601]
5764
5765 034433 200 02 0 00 036631 E61600: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5766 034434 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5767 034435 245 02 0 00 000155 ROTC AC,N+1 ;*SHIFT/ROTATE COMBINED N+1 PLACES
5768 034436 312 02 0 00 036655 CAME AC,[XWD 760077,400776] ;IS RESULT IN AC CORRECT?
5769 034437 003 02 0 00 061601 ER3 AC,61601 ;RESULT IN AC IS INCORRECT
5770 034440 312 03 0 00 036656 CAME AC+1,[XWD 461607,407601] ;IS RESULT IN AC+1 CORRECT?
5771 034441 004 03 0 00 061601 ER4 AC+1,61601 ;RESULT IN AC+1 IS INCORRECT
5772 034442 321 04 0 00 034433 JUMPL AC+2,E61600 ;LOOP ON ERROR SWITCH^
5773 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 33-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0154
5774
5775 000617 ADR=ADR+3
5776 000220 N=N+44
5777
5778 ;SHIFT COUNTER TEST
5779 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
5780 SR2 (\ADR,230703,603700,770037,600377,514341,701740,374017,700177,ROTC,N-1)^
5781 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5782 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N-1 BIT POSITIONS AND
5783 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 514341,701740] AND
5784 ;[XWD 374017,700177]
5785
5786 034443 200 02 0 00 036631 E61700: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5787 034444 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5788 034445 245 02 0 00 000217 ROTC AC,N-1 ;*SHIFT/ROTATE COMBINED N-1 PLACES
5789 034446 312 02 0 00 036654 CAME AC,[XWD 514341,701740] ;IS RESULT IN AC CORRECT?
5790 034447 003 02 0 00 061701 ER3 AC,61701 ;RESULT IN AC IS INCORRECT
5791 034450 312 03 0 00 036653 CAME AC+1,[XWD 374017,700177] ;IS RESULT IN AC+1 CORRECT?
5792 034451 004 03 0 00 061701 ER4 AC+1,61701 ;RESULT IN AC+1 IS INCORRECT
5793 034452 321 04 0 00 034443 JUMPL AC+2,E61700 ;LOOP ON ERROR SWITCH^
5794
5795 ;SHIFT COUNTER TEST
5796 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
5797 SR2 (\<ADR+1>,230703,603700,770037,600377,230703,603700,770037,600377,ROTC,N)^
5798 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5799 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N BIT POSITIONS AND
5800 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 230703,603700] AND
5801 ;[XWD 770037,600377]
5802
5803 034453 200 02 0 00 036631 E62000: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5804 034454 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5805 034455 245 02 0 00 000220 ROTC AC,N ;*SHIFT/ROTATE COMBINED N PLACES
5806 034456 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
5807 034457 003 02 0 00 062001 ER3 AC,62001 ;RESULT IN AC IS INCORRECT
5808 034460 312 03 0 00 036652 CAME AC+1,[XWD 770037,600377] ;IS RESULT IN AC+1 CORRECT?
5809 034461 004 03 0 00 062001 ER4 AC+1,62001 ;RESULT IN AC+1 IS INCORRECT
5810 034462 321 04 0 00 034453 JUMPL AC+2,E62000 ;LOOP ON ERROR SWITCH^
5811
5812 ;SHIFT COUNTER TEST
5813 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
5814 SR2 (\<ADR+2>,230703,603700,770037,600377,461607,407601,760077,400776,ROTC,N+1)
5815 ^
5816 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5817 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N+1 BIT POSITIONS AND
5818 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 461607,407601] AND
5819 ;[XWD 760077,400776]
5820
5821 034463 200 02 0 00 036631 E62100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5822 034464 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5823 034465 245 02 0 00 000221 ROTC AC,N+1 ;*SHIFT/ROTATE COMBINED N+1 PLACES
5824 034466 312 02 0 00 036656 CAME AC,[XWD 461607,407601] ;IS RESULT IN AC CORRECT?
5825 034467 003 02 0 00 062101 ER3 AC,62101 ;RESULT IN AC IS INCORRECT
5826 034470 312 03 0 00 036655 CAME AC+1,[XWD 760077,400776] ;IS RESULT IN AC+1 CORRECT?
5827 034471 004 03 0 00 062101 ER4 AC+1,62101 ;RESULT IN AC+1 IS INCORRECT
5828 034472 321 04 0 00 034463 JUMPL AC+2,E62100 ;LOOP ON ERROR SWITCH^
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 33-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0155
5829 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 34
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0156
5830 000622 ADR=ADR+3
5831 000264 N=N+44
5832
5833 ;SHIFT COUNTER TEST
5834 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
5835 SR2 (\ADR,230703,603700,770037,600377,374017,700177,514341,701740,ROTC,N-1)^
5836 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5837 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N-1 BIT POSITIONS AND
5838 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 374017,700177] AND
5839 ;[XWD 514341,701740]
5840
5841 034473 200 02 0 00 036631 E62200: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5842 034474 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5843 034475 245 02 0 00 000263 ROTC AC,N-1 ;*SHIFT/ROTATE COMBINED N-1 PLACES
5844 034476 312 02 0 00 036653 CAME AC,[XWD 374017,700177] ;IS RESULT IN AC CORRECT?
5845 034477 003 02 0 00 062201 ER3 AC,62201 ;RESULT IN AC IS INCORRECT
5846 034500 312 03 0 00 036654 CAME AC+1,[XWD 514341,701740] ;IS RESULT IN AC+1 CORRECT?
5847 034501 004 03 0 00 062201 ER4 AC+1,62201 ;RESULT IN AC+1 IS INCORRECT
5848 034502 321 04 0 00 034473 JUMPL AC+2,E62200 ;LOOP ON ERROR SWITCH^
5849
5850 ;SHIFT COUNTER TEST
5851 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
5852 SR2 (\<ADR+1>,230703,603700,770037,600377,770037,600377,230703,603700,ROTC,N)^
5853 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5854 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N BIT POSITIONS AND
5855 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 770037,600377] AND
5856 ;[XWD 230703,603700]
5857
5858 034503 200 02 0 00 036631 E62300: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5859 034504 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5860 034505 245 02 0 00 000264 ROTC AC,N ;*SHIFT/ROTATE COMBINED N PLACES
5861 034506 312 02 0 00 036652 CAME AC,[XWD 770037,600377] ;IS RESULT IN AC CORRECT?
5862 034507 003 02 0 00 062301 ER3 AC,62301 ;RESULT IN AC IS INCORRECT
5863 034510 312 03 0 00 036631 CAME AC+1,[XWD 230703,603700] ;IS RESULT IN AC+1 CORRECT?
5864 034511 004 03 0 00 062301 ER4 AC+1,62301 ;RESULT IN AC+1 IS INCORRECT
5865 034512 321 04 0 00 034503 JUMPL AC+2,E62300 ;LOOP ON ERROR SWITCH^
5866
5867 ;SHIFT COUNTER TEST
5868 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
5869 SR2 (\<ADR+2>,230703,603700,770037,600377,760077,400776,461607,407601,ROTC,N+1)
5870 ^
5871 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5872 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N+1 BIT POSITIONS AND
5873 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 760077,400776] AND
5874 ;[XWD 461607,407601]
5875
5876 034513 200 02 0 00 036631 E62400: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5877 034514 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5878 034515 245 02 0 00 000265 ROTC AC,N+1 ;*SHIFT/ROTATE COMBINED N+1 PLACES
5879 034516 312 02 0 00 036655 CAME AC,[XWD 760077,400776] ;IS RESULT IN AC CORRECT?
5880 034517 003 02 0 00 062401 ER3 AC,62401 ;RESULT IN AC IS INCORRECT
5881 034520 312 03 0 00 036656 CAME AC+1,[XWD 461607,407601] ;IS RESULT IN AC+1 CORRECT?
5882 034521 004 03 0 00 062401 ER4 AC+1,62401 ;RESULT IN AC+1 IS INCORRECT
5883 034522 321 04 0 00 034513 JUMPL AC+2,E62400 ;LOOP ON ERROR SWITCH^
5884 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 34-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0157
5885
5886 000625 ADR=ADR+3
5887 000330 N=N+44
5888
5889 ;SHIFT COUNTER TEST
5890 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
5891 SR2 (\ADR,230703,603700,770037,600377,514341,701740,374017,700177,ROTC,N-1)^
5892 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5893 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N-1 BIT POSITIONS AND
5894 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 514341,701740] AND
5895 ;[XWD 374017,700177]
5896
5897 034523 200 02 0 00 036631 E62500: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5898 034524 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5899 034525 245 02 0 00 000327 ROTC AC,N-1 ;*SHIFT/ROTATE COMBINED N-1 PLACES
5900 034526 312 02 0 00 036654 CAME AC,[XWD 514341,701740] ;IS RESULT IN AC CORRECT?
5901 034527 003 02 0 00 062501 ER3 AC,62501 ;RESULT IN AC IS INCORRECT
5902 034530 312 03 0 00 036653 CAME AC+1,[XWD 374017,700177] ;IS RESULT IN AC+1 CORRECT?
5903 034531 004 03 0 00 062501 ER4 AC+1,62501 ;RESULT IN AC+1 IS INCORRECT
5904 034532 321 04 0 00 034523 JUMPL AC+2,E62500 ;LOOP ON ERROR SWITCH^
5905
5906 ;SHIFT COUNTER TEST
5907 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
5908 SR2 (\<ADR+1>,230703,603700,770037,600377,230703,603700,770037,600377,ROTC,N)^
5909 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5910 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N BIT POSITIONS AND
5911 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 230703,603700] AND
5912 ;[XWD 770037,600377]
5913
5914 034533 200 02 0 00 036631 E62600: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5915 034534 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5916 034535 245 02 0 00 000330 ROTC AC,N ;*SHIFT/ROTATE COMBINED N PLACES
5917 034536 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
5918 034537 003 02 0 00 062601 ER3 AC,62601 ;RESULT IN AC IS INCORRECT
5919 034540 312 03 0 00 036652 CAME AC+1,[XWD 770037,600377] ;IS RESULT IN AC+1 CORRECT?
5920 034541 004 03 0 00 062601 ER4 AC+1,62601 ;RESULT IN AC+1 IS INCORRECT
5921 034542 321 04 0 00 034533 JUMPL AC+2,E62600 ;LOOP ON ERROR SWITCH^
5922
5923 ;SHIFT COUNTER TEST
5924 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
5925 SR2 (\<ADR+2>,230703,603700,770037,600377,461607,407601,760077,400776,ROTC,N+1)
5926 ^
5927 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5928 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N+1 BIT POSITIONS AND
5929 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 461607,407601] AND
5930 ;[XWD 760077,400776]
5931
5932 034543 200 02 0 00 036631 E62700: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5933 034544 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5934 034545 245 02 0 00 000331 ROTC AC,N+1 ;*SHIFT/ROTATE COMBINED N+1 PLACES
5935 034546 312 02 0 00 036656 CAME AC,[XWD 461607,407601] ;IS RESULT IN AC CORRECT?
5936 034547 003 02 0 00 062701 ER3 AC,62701 ;RESULT IN AC IS INCORRECT
5937 034550 312 03 0 00 036655 CAME AC+1,[XWD 760077,400776] ;IS RESULT IN AC+1 CORRECT?
5938 034551 004 03 0 00 062701 ER4 AC+1,62701 ;RESULT IN AC+1 IS INCORRECT
5939 034552 321 04 0 00 034543 JUMPL AC+2,E62700 ;LOOP ON ERROR SWITCH^
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 34-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0158
5940 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 35
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0159
5941 000630 ADR=ADR+3
5942 000374 N=N+44
5943
5944 ;SHIFT COUNTER TEST
5945 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS -1 POSITION
5946 SR2 (\ADR,230703,603700,770037,600377,374017,700177,514341,701740,ROTC,N-1)^
5947 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5948 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N-1 BIT POSITIONS AND
5949 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 374017,700177] AND
5950 ;[XWD 514341,701740]
5951
5952 034553 200 02 0 00 036631 E63000: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5953 034554 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5954 034555 245 02 0 00 000373 ROTC AC,N-1 ;*SHIFT/ROTATE COMBINED N-1 PLACES
5955 034556 312 02 0 00 036653 CAME AC,[XWD 374017,700177] ;IS RESULT IN AC CORRECT?
5956 034557 003 02 0 00 063001 ER3 AC,63001 ;RESULT IN AC IS INCORRECT
5957 034560 312 03 0 00 036654 CAME AC+1,[XWD 514341,701740] ;IS RESULT IN AC+1 CORRECT?
5958 034561 004 03 0 00 063001 ER4 AC+1,63001 ;RESULT IN AC+1 IS INCORRECT
5959 034562 321 04 0 00 034553 JUMPL AC+2,E63000 ;LOOP ON ERROR SWITCH^
5960
5961 ;SHIFT COUNTER TEST
5962 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS
5963 SR2 (\<ADR+1>,230703,603700,770037,600377,770037,600377,230703,603700,ROTC,N)^
5964 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5965 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N BIT POSITIONS AND
5966 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 770037,600377] AND
5967 ;[XWD 230703,603700]
5968
5969 034563 200 02 0 00 036631 E63100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5970 034564 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5971 034565 245 02 0 00 000374 ROTC AC,N ;*SHIFT/ROTATE COMBINED N PLACES
5972 034566 312 02 0 00 036652 CAME AC,[XWD 770037,600377] ;IS RESULT IN AC CORRECT?
5973 034567 003 02 0 00 063101 ER3 AC,63101 ;RESULT IN AC IS INCORRECT
5974 034570 312 03 0 00 036631 CAME AC+1,[XWD 230703,603700] ;IS RESULT IN AC+1 CORRECT?
5975 034571 004 03 0 00 063101 ER4 AC+1,63101 ;RESULT IN AC+1 IS INCORRECT
5976 034572 321 04 0 00 034563 JUMPL AC+2,E63100 ;LOOP ON ERROR SWITCH^
5977
5978 ;SHIFT COUNTER TEST
5979 ;TEST FOR CORRECT ROTATION BY A MULTIPLE OF 36 POSITIONS +1 POSITION
5980 SR2 (\<ADR+2>,230703,603700,770037,600377,760077,400776,461607,407601,ROTC,N+1)
5981 ^
5982 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
5983 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] N+1 BIT POSITIONS AND
5984 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 760077,400776] AND
5985 ;[XWD 461607,407601]
5986
5987 034573 200 02 0 00 036631 E63200: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
5988 034574 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
5989 034575 245 02 0 00 000375 ROTC AC,N+1 ;*SHIFT/ROTATE COMBINED N+1 PLACES
5990 034576 312 02 0 00 036655 CAME AC,[XWD 760077,400776] ;IS RESULT IN AC CORRECT?
5991 034577 003 02 0 00 063201 ER3 AC,63201 ;RESULT IN AC IS INCORRECT
5992 034600 312 03 0 00 036656 CAME AC+1,[XWD 461607,407601] ;IS RESULT IN AC+1 CORRECT?
5993 034601 004 03 0 00 063201 ER4 AC+1,63201 ;RESULT IN AC+1 IS INCORRECT
5994 034602 321 04 0 00 034573 JUMPL AC+2,E63200 ;LOOP ON ERROR SWITCH^
5995 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 36
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0160
5996 ;SHIFT COUNTER TEST
5997 ;TEST FOR MAXIMUM LEFT ROTATION (255 POSITIONS)
5998 SR1 (633,230703,603700,307036,037002,ROT,377)^
5999 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 377 BIT
6000 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 307036,037002]
6001 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
6002
6003 034603 200 02 0 00 036631 E63300: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
6004 034604 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
6005 034605 241 02 0 00 000377 ROT AC,377 ;*SHIFT/ROTATE 377 BIT POSITIONS
6006 034606 312 02 0 00 036643 CAME AC,[XWD 307036,037002] ;IS RESULT IN AC CORRECT?
6007 034607 003 02 0 00 063301 ER3 AC,63301 ;RESULT IN AC IS INCORRECT
6008 034610 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
6009 034611 004 03 0 00 063301 ER4 AC+1,63301 ;C(AC+1) WAS MODIFIED INCORRECTLY
6010 034612 321 04 0 00 034603 JUMPL AC+2,E63300 ;LOOP ON ERROR SWITCH^
6011
6012 ;SHIFT COUNTER TEST
6013 ;TEST FOR MAXIMUM RIGHT ROTATION -1 (255 POSITIONS)
6014 SR1 (634,230703,603700,023070,360370,ROT,-377)^
6015 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] -377 BIT
6016 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 023070,360370]
6017 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
6018
6019 034613 200 02 0 00 036631 E63400: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
6020 034614 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
6021 034615 241 02 0 00 777401 ROT AC,-377 ;*SHIFT/ROTATE -377 BIT POSITIONS
6022 034616 312 02 0 00 036647 CAME AC,[XWD 023070,360370] ;IS RESULT IN AC CORRECT?
6023 034617 003 02 0 00 063401 ER3 AC,63401 ;RESULT IN AC IS INCORRECT
6024 034620 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
6025 034621 004 03 0 00 063401 ER4 AC+1,63401 ;C(AC+1) WAS MODIFIED INCORRECTLY
6026 034622 321 04 0 00 034613 JUMPL AC+2,E63400 ;LOOP ON ERROR SWITCH^
6027
6028 ;SHIFT COUNTER TEST
6029 ;TEST FOR MAXIMUM LEFT ROTATION (255 POSITIONS)
6030 SR2 (635,230703,603700,770037,600377,700376,003772,307036,037007,ROTC,377)^
6031 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
6032 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] 377 BIT POSITIONS AND
6033 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 700376,003772] AND
6034 ;[XWD 307036,037007]
6035
6036 034623 200 02 0 00 036631 E63500: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
6037 034624 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
6038 034625 245 02 0 00 000377 ROTC AC,377 ;*SHIFT/ROTATE COMBINED 377 PLACES
6039 034626 312 02 0 00 036657 CAME AC,[XWD 700376,003772] ;IS RESULT IN AC CORRECT?
6040 034627 003 02 0 00 063501 ER3 AC,63501 ;RESULT IN AC IS INCORRECT
6041 034630 312 03 0 00 036660 CAME AC+1,[XWD 307036,037007] ;IS RESULT IN AC+1 CORRECT?
6042 034631 004 03 0 00 063501 ER4 AC+1,63501 ;RESULT IN AC+1 IS INCORRECT
6043 034632 321 04 0 00 034623 JUMPL AC+2,E63500 ;LOOP ON ERROR SWITCH^
6044
6045 ;SHIFT COUNTER TEST
6046 ;TEST FOR MAXIMUM RIGHT ROTATION -1 (255 POSITIONS)
6047 SR2 (636,230703,603700,770037,600377,077003,760037,723070,360370,ROTC,-377)^
6048 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
6049 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] -377 BIT POSITIONS AND
6050 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 077003,760037] AND
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 36-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0161
6051 ;[XWD 723070,360370]
6052
6053 034633 200 02 0 00 036631 E63600: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
6054 034634 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
6055 034635 245 02 0 00 777401 ROTC AC,-377 ;*SHIFT/ROTATE COMBINED -377 PLACES
6056 034636 312 02 0 00 036661 CAME AC,[XWD 077003,760037] ;IS RESULT IN AC CORRECT?
6057 034637 003 02 0 00 063601 ER3 AC,63601 ;RESULT IN AC IS INCORRECT
6058 034640 312 03 0 00 036662 CAME AC+1,[XWD 723070,360370] ;IS RESULT IN AC+1 CORRECT?
6059 034641 004 03 0 00 063601 ER4 AC+1,63601 ;RESULT IN AC+1 IS INCORRECT
6060 034642 321 04 0 00 034633 JUMPL AC+2,E63600 ;LOOP ON ERROR SWITCH^
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 37
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0162
6061 ;SHIFT COUNTER TEST
6062 ;VERIFY THAT NO ROTATION TO LEFT GREATER THAN 255 POSITIONS CAN OCCUR
6063 ;RESULT SHOULD INDICATE NO ROTATION
6064 SR1 (637,230703,603700,230703,603700,ROT,400)^
6065 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 400 BIT
6066 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700]
6067 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
6068
6069 034643 200 02 0 00 036631 E63700: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
6070 034644 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
6071 034645 241 02 0 00 000400 ROT AC,400 ;*SHIFT/ROTATE 400 BIT POSITIONS
6072 034646 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
6073 034647 003 02 0 00 063701 ER3 AC,63701 ;RESULT IN AC IS INCORRECT
6074 034650 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
6075 034651 004 03 0 00 063701 ER4 AC+1,63701 ;C(AC+1) WAS MODIFIED INCORRECTLY
6076 034652 321 04 0 00 034643 JUMPL AC+2,E63700 ;LOOP ON ERROR SWITCH^
6077
6078 ;SHIFT COUNTER TEST
6079 ;VERIFY THAT NO ROTATION TO LEFT GREATER THAN 255 POSITIONS CAN OCCUR
6080 ;RESULT SHOULD INDICATE NO ROTATION
6081 SR1 (640,230703,603700,230703,603700,ROT,1000)^
6082 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 1000 BIT
6083 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700]
6084 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
6085
6086 034653 200 02 0 00 036631 E64000: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
6087 034654 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
6088 034655 241 02 0 00 001000 ROT AC,1000 ;*SHIFT/ROTATE 1000 BIT POSITIONS
6089 034656 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
6090 034657 003 02 0 00 064001 ER3 AC,64001 ;RESULT IN AC IS INCORRECT
6091 034660 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
6092 034661 004 03 0 00 064001 ER4 AC+1,64001 ;C(AC+1) WAS MODIFIED INCORRECTLY
6093 034662 321 04 0 00 034653 JUMPL AC+2,E64000 ;LOOP ON ERROR SWITCH^
6094
6095 ;SHIFT COUNTER TEST
6096 ;VERIFY THAT NO ROTATION TO LEFT GREATER THAN 255 POSITIONS CAN OCCUR
6097 ;RESULT SHOULD INDICATE NO ROTATION
6098 SR1 (641,230703,603700,230703,603700,ROT,2000)^
6099 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 2000 BIT
6100 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700]
6101 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
6102
6103 034663 200 02 0 00 036631 E64100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
6104 034664 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
6105 034665 241 02 0 00 002000 ROT AC,2000 ;*SHIFT/ROTATE 2000 BIT POSITIONS
6106 034666 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
6107 034667 003 02 0 00 064101 ER3 AC,64101 ;RESULT IN AC IS INCORRECT
6108 034670 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
6109 034671 004 03 0 00 064101 ER4 AC+1,64101 ;C(AC+1) WAS MODIFIED INCORRECTLY
6110 034672 321 04 0 00 034663 JUMPL AC+2,E64100 ;LOOP ON ERROR SWITCH^
6111
6112 ;SHIFT COUNTER TEST
6113 ;VERIFY THAT NO ROTATION TO LEFT GREATER THAN 255 POSITIONS CAN OCCUR
6114 ;RESULT SHOULD INDICATE NO ROTATION
6115 SR1 (642,230703,603700,230703,603700,ROT,4000)^
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 37-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0163
6116 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 4000 BIT
6117 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700]
6118 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
6119
6120 034673 200 02 0 00 036631 E64200: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
6121 034674 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
6122 034675 241 02 0 00 004000 ROT AC,4000 ;*SHIFT/ROTATE 4000 BIT POSITIONS
6123 034676 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
6124 034677 003 02 0 00 064201 ER3 AC,64201 ;RESULT IN AC IS INCORRECT
6125 034700 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
6126 034701 004 03 0 00 064201 ER4 AC+1,64201 ;C(AC+1) WAS MODIFIED INCORRECTLY
6127 034702 321 04 0 00 034673 JUMPL AC+2,E64200 ;LOOP ON ERROR SWITCH^
6128 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 37-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0164
6129 ;SHIFT COUNTER TEST
6130 ;VERIFY THAT NO ROTATION TO LEFT GREATER THAN 255 POSITIONS CAN OCCUR
6131 ;RESULT SHOULD INDICATE NO ROTATION
6132 SR1 (643,230703,603700,230703,603700,ROT,10000)^
6133 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 10000 BIT
6134 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700]
6135 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
6136
6137 034703 200 02 0 00 036631 E64300: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
6138 034704 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
6139 034705 241 02 0 00 010000 ROT AC,10000 ;*SHIFT/ROTATE 10000 BIT POSITIONS
6140 034706 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
6141 034707 003 02 0 00 064301 ER3 AC,64301 ;RESULT IN AC IS INCORRECT
6142 034710 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
6143 034711 004 03 0 00 064301 ER4 AC+1,64301 ;C(AC+1) WAS MODIFIED INCORRECTLY
6144 034712 321 04 0 00 034703 JUMPL AC+2,E64300 ;LOOP ON ERROR SWITCH^
6145
6146 ;SHIFT COUNTER TEST
6147 ;VERIFY THAT NO ROTATION TO LEFT GREATER THAN 255 POSITIONS CAN OCCUR
6148 ;RESULT SHOULD INDICATE NO ROTATION
6149 SR1 (644,230703,603700,230703,603700,ROT,20000)^
6150 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 20000 BIT
6151 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700]
6152 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
6153
6154 034713 200 02 0 00 036631 E64400: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
6155 034714 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
6156 034715 241 02 0 00 020000 ROT AC,20000 ;*SHIFT/ROTATE 20000 BIT POSITIONS
6157 034716 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
6158 034717 003 02 0 00 064401 ER3 AC,64401 ;RESULT IN AC IS INCORRECT
6159 034720 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
6160 034721 004 03 0 00 064401 ER4 AC+1,64401 ;C(AC+1) WAS MODIFIED INCORRECTLY
6161 034722 321 04 0 00 034713 JUMPL AC+2,E64400 ;LOOP ON ERROR SWITCH^
6162
6163 ;SHIFT COUNTER TEST
6164 ;VERIFY THAT NO ROTATION TO LEFT GREATER THAN 255 POSITIONS CAN OCCUR
6165 ;RESULT SHOULD INDICATE NO ROTATION
6166 SR1 (645,230703,603700,230703,603700,ROT,40000)^
6167 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 40000 BIT
6168 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700]
6169 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
6170
6171 034723 200 02 0 00 036631 E64500: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
6172 034724 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
6173 034725 241 02 0 00 040000 ROT AC,40000 ;*SHIFT/ROTATE 40000 BIT POSITIONS
6174 034726 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
6175 034727 003 02 0 00 064501 ER3 AC,64501 ;RESULT IN AC IS INCORRECT
6176 034730 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
6177 034731 004 03 0 00 064501 ER4 AC+1,64501 ;C(AC+1) WAS MODIFIED INCORRECTLY
6178 034732 321 04 0 00 034723 JUMPL AC+2,E64500 ;LOOP ON ERROR SWITCH^
6179
6180 ;SHIFT COUNTER TEST
6181 ;VERIFY THAT NO ROTATION TO LEFT GREATER THAN 255 POSITIONS CAN OCCUR
6182 ;RESULT SHOULD INDICATE NO ROTATION
6183 SR1 (646,230703,603700,230703,603700,ROT,100000)^
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 37-3
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0165
6184 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 100000 BIT
6185 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700]
6186 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
6187
6188 034733 200 02 0 00 036631 E64600: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
6189 034734 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
6190 034735 241 02 0 00 100000 ROT AC,100000 ;*SHIFT/ROTATE 100000 BIT POSITIONS
6191 034736 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
6192 034737 003 02 0 00 064601 ER3 AC,64601 ;RESULT IN AC IS INCORRECT
6193 034740 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
6194 034741 004 03 0 00 064601 ER4 AC+1,64601 ;C(AC+1) WAS MODIFIED INCORRECTLY
6195 034742 321 04 0 00 034733 JUMPL AC+2,E64600 ;LOOP ON ERROR SWITCH^
6196 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 37-4
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY SHIFT COUNTER RELIABILITY TEST SEQ 0166
6197 ;SHIFT COUNTER TEST
6198 ;VERIFY THAT NO ROTATION TO LEFT GREATER THAN 255 POSITIONS CAN OCCUR
6199 ;RESULT SHOULD INDICATE NO ROTATION
6200 SR1 (647,230703,603700,230703,603700,ROT,200000)^
6201 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 200000 BIT
6202 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 230703,603700]
6203 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
6204
6205 034743 200 02 0 00 036631 E64700: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
6206 034744 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
6207 034745 241 02 0 00 200000 ROT AC,200000 ;*SHIFT/ROTATE 200000 BIT POSITIONS
6208 034746 312 02 0 00 036631 CAME AC,[XWD 230703,603700] ;IS RESULT IN AC CORRECT?
6209 034747 003 02 0 00 064701 ER3 AC,64701 ;RESULT IN AC IS INCORRECT
6210 034750 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
6211 034751 004 03 0 00 064701 ER4 AC+1,64701 ;C(AC+1) WAS MODIFIED INCORRECTLY
6212 034752 321 04 0 00 034743 JUMPL AC+2,E64700 ;LOOP ON ERROR SWITCH^
6213
6214 ;SHIFT COUNTER TEST
6215 ;TEST FOR MAXIMUM RIGHT ROTATION (256 POSITIONS)
6216 SR1 (650,230703,603700,011434,170174,ROT,400000)^
6217 ;THIS MACRO SHIFTS/ROTATES THE DATA SPECIFIED IN [XWD 230703,603700] 400000 BIT
6218 ;POSITIONS AND COMPARES THE RESULT IN THE AC TO THE DATA SPECIFIED IN [XWD 011434,170174]
6219 ;IT ALSO CHECKS THAT C(AC+1) WAS NOT MODIFIED
6220
6221 034753 200 02 0 00 036631 E65000: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
6222 034754 200 03 0 00 036625 MOVE AC+1,[XWD 741703,607417];INITIALIZE AC+1
6223 034755 241 02 0 00 400000 ROT AC,400000 ;*SHIFT/ROTATE 400000 BIT POSITIONS
6224 034756 312 02 0 00 036637 CAME AC,[XWD 011434,170174] ;IS RESULT IN AC CORRECT?
6225 034757 003 02 0 00 065001 ER3 AC,65001 ;RESULT IN AC IS INCORRECT
6226 034760 312 03 0 00 036625 CAME AC+1,[XWD 741703,607417]
6227 034761 004 03 0 00 065001 ER4 AC+1,65001 ;C(AC+1) WAS MODIFIED INCORRECTLY
6228 034762 321 04 0 00 034753 JUMPL AC+2,E65000 ;LOOP ON ERROR SWITCH^
6229
6230 ;SHIFT COUNTER TEST
6231 ;TEST FOR MAXIMUM RIGHT ROTATION (256 POSITIONS)
6232 SR2 (651,230703,603700,770037,600377,037401,770017,751434,170174,ROTC,400000)^
6233
6234 ;THIS MACRO PERFORMS A COMBINED SHIFT/ROTATE OPERATION ON THE
6235 ;DATA SPECIFIED IN [XWD 230703,603700] AND [XWD 770037,600377] 400000 BIT POSITIONS AND
6236 ;COMPARES THE RESULT IN AC AND AC+1 TO THE DATA SPECIFIED IN [XWD 037401,770017] AND
6237 ;[XWD 751434,170174]
6238
6239 034763 200 02 0 00 036631 E65100: MOVE AC,[XWD 230703,603700] ;INITIALIZE AC
6240 034764 200 03 0 00 036652 MOVE AC+1,[XWD 770037,600377] ;INITIALIZE AC+1
6241 034765 245 02 0 00 400000 ROTC AC,400000 ;*SHIFT/ROTATE COMBINED 400000 PLACES
6242 034766 312 02 0 00 036663 CAME AC,[XWD 037401,770017] ;IS RESULT IN AC CORRECT?
6243 034767 003 02 0 00 065101 ER3 AC,65101 ;RESULT IN AC IS INCORRECT
6244 034770 312 03 0 00 036664 CAME AC+1,[XWD 751434,170174] ;IS RESULT IN AC+1 CORRECT?
6245 034771 004 03 0 00 065101 ER4 AC+1,65101 ;RESULT IN AC+1 IS INCORRECT
6246 034772 321 04 0 00 034763 JUMPL AC+2,E65100 ;LOOP ON ERROR SWITCH^
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 38
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - ACCUMULATOR ADDRESSING TEST SEQ 0167
6247 SUBTTL DIAGNOSTIC SECTION - ACCUMULATOR ADDRESSING TEST
6248
6249 ;TEST ACCUMULATOR ADDRESSING
6250 ;TEST THE ABILITY OF ROTC,LSHC,ASHC
6251 ;TO ADDRESS THE CORRECT ACCUMULATORS
6252 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS
6253 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING
6254 ;LEFT ZERO TIMES
6255 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER
6256 ;FROM AC'S ADDRESSED BY INSTRUCTION
6257 ;THE NUMBER OF THE AC REFERENCED IN ERROR
6258 ;IS IN AC
6259 ;INADVERTENT SHIFTING OR PICKING UP OF
6260 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR
6261
6262 777777 777776 AC=-2
6263 777777 777776 ZZ=-2
6264 REPEAT ^D7, ;SET UP ACCUMULATOR'S
6265 < ZZ=ZZ+2
6266 AC=AC+2
6267 MOVEI AC,ZZ ;AC NUMBER TO AC
6268 MOVEI AC+1,ZZ+1 ;AC NUMBER TO AC+1
6269 >
6270 000000 ZZ=ZZ+2
6271 000000 AC=AC+2
6272 034773 201 00 0 00 000000 MOVEI AC,ZZ ;AC NUMBER TO AC
6273 034774 201 01 0 00 000001 MOVEI AC+1,ZZ+1 ;AC NUMBER TO AC+1
6274
6275 000002 ZZ=ZZ+2
6276 000002 AC=AC+2
6277 034775 201 02 0 00 000002 MOVEI AC,ZZ ;AC NUMBER TO AC
6278 034776 201 03 0 00 000003 MOVEI AC+1,ZZ+1 ;AC NUMBER TO AC+1
6279
6280 000004 ZZ=ZZ+2
6281 000004 AC=AC+2
6282 034777 201 04 0 00 000004 MOVEI AC,ZZ ;AC NUMBER TO AC
6283 035000 201 05 0 00 000005 MOVEI AC+1,ZZ+1 ;AC NUMBER TO AC+1
6284
6285 000006 ZZ=ZZ+2
6286 000006 AC=AC+2
6287 035001 201 06 0 00 000006 MOVEI AC,ZZ ;AC NUMBER TO AC
6288 035002 201 07 0 00 000007 MOVEI AC+1,ZZ+1 ;AC NUMBER TO AC+1
6289
6290 000010 ZZ=ZZ+2
6291 000010 AC=AC+2
6292 035003 201 10 0 00 000010 MOVEI AC,ZZ ;AC NUMBER TO AC
6293 035004 201 11 0 00 000011 MOVEI AC+1,ZZ+1 ;AC NUMBER TO AC+1
6294
6295 000012 ZZ=ZZ+2
6296 000012 AC=AC+2
6297 035005 201 12 0 00 000012 MOVEI AC,ZZ ;AC NUMBER TO AC
6298 035006 201 13 0 00 000013 MOVEI AC+1,ZZ+1 ;AC NUMBER TO AC+1
6299
6300 000014 ZZ=ZZ+2
6301 000014 AC=AC+2
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 38-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - ACCUMULATOR ADDRESSING TEST SEQ 0168
6302 035007 201 14 0 00 000014 MOVEI AC,ZZ ;AC NUMBER TO AC
6303 035010 201 15 0 00 000015 MOVEI AC+1,ZZ+1 ;AC NUMBER TO AC+1
6304
6305 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 38-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - ACCUMULATOR ADDRESSING TEST SEQ 0169
6306 000001 AC=1
6307 SAVEAC (1,1)^
6308 035011 201 03 0 00 035011 MOVEI AC+2,. ;SAVE TEST PC
6309 035012 202 03 0 00 030051 MOVEM AC+2,TESTPC
6310 035013 201 03 0 00 000003 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6311 035014 202 03 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6312
6313 041400 SN=41400
6314 000014 AC=14
6315 000014 ZZ=14
6316
6317 E41400: REPEAT ^D5,< ;TEST ROTC-ACCUMULATOR'S 7-14
6318 ;TEST ACCUMULATOR ADDRESSING
6319 ;TEST THE ABILITY OF ROTC,LSHC,ASHC
6320 ;TO ADDRESS THE CORRECT ACCUMULATORS
6321 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS
6322 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING
6323 ;LEFT ZERO TIMES
6324 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER
6325 ;FROM AC'S ADDRESSED BY INSTRUCTION
6326 ;THE NUMBER OF THE AC REFERENCED IN ERROR
6327 ;IS IN AC
6328 ;INADVERTENT SHIFTING OR PICKING UP OF
6329 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR
6330
6331 SN=SN+1
6332 ZZ=ZZ-1
6333 AC=AC-1
6334 ROTC AC,0 ;*ROTATE LEFT ZERO TIMES
6335 CAIE AC,ZZ ;TEST FOR CORRECT AC
6336 ER3 AC,SN ;INCORRECT AC
6337 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1
6338 ER4 AC,SN ;INCORRECT AC+1
6339 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
6340 >
6341 ;TEST ROTC-ACCUMULATOR'S 7-14
6342 ;TEST ACCUMULATOR ADDRESSING
6343 ;TEST THE ABILITY OF ROTC,LSHC,ASHC
6344 ;TO ADDRESS THE CORRECT ACCUMULATORS
6345 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS
6346 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING
6347 ;LEFT ZERO TIMES
6348 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER
6349 ;FROM AC'S ADDRESSED BY INSTRUCTION
6350 ;THE NUMBER OF THE AC REFERENCED IN ERROR
6351 ;IS IN AC
6352 ;INADVERTENT SHIFTING OR PICKING UP OF
6353 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR
6354
6355 041401 SN=SN+1
6356 000013 ZZ=ZZ-1
6357 000013 AC=AC-1
6358 035015 245 13 0 00 000000 ROTC AC,0 ;*ROTATE LEFT ZERO TIMES
6359 035016 302 13 0 00 000013 CAIE AC,ZZ ;TEST FOR CORRECT AC
6360 035017 003 13 0 00 041401 ER3 AC,SN ;INCORRECT AC
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 38-3
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - ACCUMULATOR ADDRESSING TEST SEQ 0170
6361 035020 302 14 0 00 000014 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1
6362 035021 004 13 0 00 041401 ER4 AC,SN ;INCORRECT AC+1
6363 035022 321 15 0 00 035015 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
6364
6365 ;TEST ROTC-ACCUMULATOR'S 7-14
6366 ;TEST ACCUMULATOR ADDRESSING
6367 ;TEST THE ABILITY OF ROTC,LSHC,ASHC
6368 ;TO ADDRESS THE CORRECT ACCUMULATORS
6369 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS
6370 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING
6371 ;LEFT ZERO TIMES
6372 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER
6373 ;FROM AC'S ADDRESSED BY INSTRUCTION
6374 ;THE NUMBER OF THE AC REFERENCED IN ERROR
6375 ;IS IN AC
6376 ;INADVERTENT SHIFTING OR PICKING UP OF
6377 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR
6378
6379 041402 SN=SN+1
6380 000012 ZZ=ZZ-1
6381 000012 AC=AC-1
6382 035023 245 12 0 00 000000 ROTC AC,0 ;*ROTATE LEFT ZERO TIMES
6383 035024 302 12 0 00 000012 CAIE AC,ZZ ;TEST FOR CORRECT AC
6384 035025 003 12 0 00 041402 ER3 AC,SN ;INCORRECT AC
6385 035026 302 13 0 00 000013 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1
6386 035027 004 12 0 00 041402 ER4 AC,SN ;INCORRECT AC+1
6387 035030 321 14 0 00 035023 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
6388
6389 ;TEST ROTC-ACCUMULATOR'S 7-14
6390 ;TEST ACCUMULATOR ADDRESSING
6391 ;TEST THE ABILITY OF ROTC,LSHC,ASHC
6392 ;TO ADDRESS THE CORRECT ACCUMULATORS
6393 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS
6394 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING
6395 ;LEFT ZERO TIMES
6396 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER
6397 ;FROM AC'S ADDRESSED BY INSTRUCTION
6398 ;THE NUMBER OF THE AC REFERENCED IN ERROR
6399 ;IS IN AC
6400 ;INADVERTENT SHIFTING OR PICKING UP OF
6401 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR
6402
6403 041403 SN=SN+1
6404 000011 ZZ=ZZ-1
6405 000011 AC=AC-1
6406 035031 245 11 0 00 000000 ROTC AC,0 ;*ROTATE LEFT ZERO TIMES
6407 035032 302 11 0 00 000011 CAIE AC,ZZ ;TEST FOR CORRECT AC
6408 035033 003 11 0 00 041403 ER3 AC,SN ;INCORRECT AC
6409 035034 302 12 0 00 000012 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1
6410 035035 004 11 0 00 041403 ER4 AC,SN ;INCORRECT AC+1
6411 035036 321 13 0 00 035031 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
6412
6413 ;TEST ROTC-ACCUMULATOR'S 7-14
6414 ;TEST ACCUMULATOR ADDRESSING
6415 ;TEST THE ABILITY OF ROTC,LSHC,ASHC
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 38-4
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - ACCUMULATOR ADDRESSING TEST SEQ 0171
6416 ;TO ADDRESS THE CORRECT ACCUMULATORS
6417 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS
6418 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING
6419 ;LEFT ZERO TIMES
6420 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER
6421 ;FROM AC'S ADDRESSED BY INSTRUCTION
6422 ;THE NUMBER OF THE AC REFERENCED IN ERROR
6423 ;IS IN AC
6424 ;INADVERTENT SHIFTING OR PICKING UP OF
6425 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR
6426
6427 041404 SN=SN+1
6428 000010 ZZ=ZZ-1
6429 000010 AC=AC-1
6430 035037 245 10 0 00 000000 ROTC AC,0 ;*ROTATE LEFT ZERO TIMES
6431 035040 302 10 0 00 000010 CAIE AC,ZZ ;TEST FOR CORRECT AC
6432 035041 003 10 0 00 041404 ER3 AC,SN ;INCORRECT AC
6433 035042 302 11 0 00 000011 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1
6434 035043 004 10 0 00 041404 ER4 AC,SN ;INCORRECT AC+1
6435 035044 321 12 0 00 035037 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
6436
6437 ;TEST ROTC-ACCUMULATOR'S 7-14
6438 ;TEST ACCUMULATOR ADDRESSING
6439 ;TEST THE ABILITY OF ROTC,LSHC,ASHC
6440 ;TO ADDRESS THE CORRECT ACCUMULATORS
6441 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS
6442 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING
6443 ;LEFT ZERO TIMES
6444 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER
6445 ;FROM AC'S ADDRESSED BY INSTRUCTION
6446 ;THE NUMBER OF THE AC REFERENCED IN ERROR
6447 ;IS IN AC
6448 ;INADVERTENT SHIFTING OR PICKING UP OF
6449 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR
6450
6451 041405 SN=SN+1
6452 000007 ZZ=ZZ-1
6453 000007 AC=AC-1
6454 035045 245 07 0 00 000000 ROTC AC,0 ;*ROTATE LEFT ZERO TIMES
6455 035046 302 07 0 00 000007 CAIE AC,ZZ ;TEST FOR CORRECT AC
6456 035047 003 07 0 00 041405 ER3 AC,SN ;INCORRECT AC
6457 035050 302 10 0 00 000010 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1
6458 035051 004 07 0 00 041405 ER4 AC,SN ;INCORRECT AC+1
6459 035052 321 11 0 00 035045 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
6460
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 39
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - ACCUMULATOR ADDRESSING TEST SEQ 0172
6461 000011 AC=11
6462 SAVEAC (1,1)^
6463 035053 201 13 0 00 035053 MOVEI AC+2,. ;SAVE TEST PC
6464 035054 202 13 0 00 030051 MOVEM AC+2,TESTPC
6465 035055 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6466 035056 202 13 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6467
6468 041500 SN=41500
6469 000012 AC=12
6470 000012 ZZ=12
6471
6472 E41500: REPEAT ^D5,< ;TEST LSHC-ACCUMULATORS 5-12
6473 ;TEST ACCUMULATOR ADDRESSING
6474 ;TEST THE ABILITY OF ROTC,LSHC,ASHC
6475 ;TO ADDRESS THE CORRECT ACCUMULATORS
6476 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS
6477 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING
6478 ;LEFT ZERO TIMES
6479 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER
6480 ;FROM AC'S ADDRESSED BY INSTRUCTION
6481 ;THE NUMBER OF THE AC REFERENCED IN ERROR
6482 ;IS IN AC
6483 ;INADVERTENT SHIFTING OR PICKING UP OF
6484 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR
6485
6486 SN=SN+1
6487 ZZ=ZZ-1
6488 AC=AC-1
6489 LSHC AC,0 ;*SHIFT LEFT ZERO TIMES
6490 CAIE AC,ZZ ;TEST FOR CORRECT AC
6491 ER3 AC,SN ;INCORRECT AC
6492 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1
6493 ER4 AC,SN ;INCORRECT AC+1
6494 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
6495 >
6496 ;TEST LSHC-ACCUMULATORS 5-12
6497 ;TEST ACCUMULATOR ADDRESSING
6498 ;TEST THE ABILITY OF ROTC,LSHC,ASHC
6499 ;TO ADDRESS THE CORRECT ACCUMULATORS
6500 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS
6501 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING
6502 ;LEFT ZERO TIMES
6503 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER
6504 ;FROM AC'S ADDRESSED BY INSTRUCTION
6505 ;THE NUMBER OF THE AC REFERENCED IN ERROR
6506 ;IS IN AC
6507 ;INADVERTENT SHIFTING OR PICKING UP OF
6508 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR
6509
6510 041501 SN=SN+1
6511 000011 ZZ=ZZ-1
6512 000011 AC=AC-1
6513 035057 246 11 0 00 000000 LSHC AC,0 ;*SHIFT LEFT ZERO TIMES
6514 035060 302 11 0 00 000011 CAIE AC,ZZ ;TEST FOR CORRECT AC
6515 035061 003 11 0 00 041501 ER3 AC,SN ;INCORRECT AC
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 39-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - ACCUMULATOR ADDRESSING TEST SEQ 0173
6516 035062 302 12 0 00 000012 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1
6517 035063 004 11 0 00 041501 ER4 AC,SN ;INCORRECT AC+1
6518 035064 321 13 0 00 035057 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
6519
6520 ;TEST LSHC-ACCUMULATORS 5-12
6521 ;TEST ACCUMULATOR ADDRESSING
6522 ;TEST THE ABILITY OF ROTC,LSHC,ASHC
6523 ;TO ADDRESS THE CORRECT ACCUMULATORS
6524 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS
6525 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING
6526 ;LEFT ZERO TIMES
6527 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER
6528 ;FROM AC'S ADDRESSED BY INSTRUCTION
6529 ;THE NUMBER OF THE AC REFERENCED IN ERROR
6530 ;IS IN AC
6531 ;INADVERTENT SHIFTING OR PICKING UP OF
6532 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR
6533
6534 041502 SN=SN+1
6535 000010 ZZ=ZZ-1
6536 000010 AC=AC-1
6537 035065 246 10 0 00 000000 LSHC AC,0 ;*SHIFT LEFT ZERO TIMES
6538 035066 302 10 0 00 000010 CAIE AC,ZZ ;TEST FOR CORRECT AC
6539 035067 003 10 0 00 041502 ER3 AC,SN ;INCORRECT AC
6540 035070 302 11 0 00 000011 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1
6541 035071 004 10 0 00 041502 ER4 AC,SN ;INCORRECT AC+1
6542 035072 321 12 0 00 035065 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
6543
6544 ;TEST LSHC-ACCUMULATORS 5-12
6545 ;TEST ACCUMULATOR ADDRESSING
6546 ;TEST THE ABILITY OF ROTC,LSHC,ASHC
6547 ;TO ADDRESS THE CORRECT ACCUMULATORS
6548 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS
6549 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING
6550 ;LEFT ZERO TIMES
6551 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER
6552 ;FROM AC'S ADDRESSED BY INSTRUCTION
6553 ;THE NUMBER OF THE AC REFERENCED IN ERROR
6554 ;IS IN AC
6555 ;INADVERTENT SHIFTING OR PICKING UP OF
6556 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR
6557
6558 041503 SN=SN+1
6559 000007 ZZ=ZZ-1
6560 000007 AC=AC-1
6561 035073 246 07 0 00 000000 LSHC AC,0 ;*SHIFT LEFT ZERO TIMES
6562 035074 302 07 0 00 000007 CAIE AC,ZZ ;TEST FOR CORRECT AC
6563 035075 003 07 0 00 041503 ER3 AC,SN ;INCORRECT AC
6564 035076 302 10 0 00 000010 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1
6565 035077 004 07 0 00 041503 ER4 AC,SN ;INCORRECT AC+1
6566 035100 321 11 0 00 035073 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
6567
6568 ;TEST LSHC-ACCUMULATORS 5-12
6569 ;TEST ACCUMULATOR ADDRESSING
6570 ;TEST THE ABILITY OF ROTC,LSHC,ASHC
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 39-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - ACCUMULATOR ADDRESSING TEST SEQ 0174
6571 ;TO ADDRESS THE CORRECT ACCUMULATORS
6572 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS
6573 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING
6574 ;LEFT ZERO TIMES
6575 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER
6576 ;FROM AC'S ADDRESSED BY INSTRUCTION
6577 ;THE NUMBER OF THE AC REFERENCED IN ERROR
6578 ;IS IN AC
6579 ;INADVERTENT SHIFTING OR PICKING UP OF
6580 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR
6581
6582 041504 SN=SN+1
6583 000006 ZZ=ZZ-1
6584 000006 AC=AC-1
6585 035101 246 06 0 00 000000 LSHC AC,0 ;*SHIFT LEFT ZERO TIMES
6586 035102 302 06 0 00 000006 CAIE AC,ZZ ;TEST FOR CORRECT AC
6587 035103 003 06 0 00 041504 ER3 AC,SN ;INCORRECT AC
6588 035104 302 07 0 00 000007 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1
6589 035105 004 06 0 00 041504 ER4 AC,SN ;INCORRECT AC+1
6590 035106 321 10 0 00 035101 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
6591
6592 ;TEST LSHC-ACCUMULATORS 5-12
6593 ;TEST ACCUMULATOR ADDRESSING
6594 ;TEST THE ABILITY OF ROTC,LSHC,ASHC
6595 ;TO ADDRESS THE CORRECT ACCUMULATORS
6596 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS
6597 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING
6598 ;LEFT ZERO TIMES
6599 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER
6600 ;FROM AC'S ADDRESSED BY INSTRUCTION
6601 ;THE NUMBER OF THE AC REFERENCED IN ERROR
6602 ;IS IN AC
6603 ;INADVERTENT SHIFTING OR PICKING UP OF
6604 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR
6605
6606 041505 SN=SN+1
6607 000005 ZZ=ZZ-1
6608 000005 AC=AC-1
6609 035107 246 05 0 00 000000 LSHC AC,0 ;*SHIFT LEFT ZERO TIMES
6610 035110 302 05 0 00 000005 CAIE AC,ZZ ;TEST FOR CORRECT AC
6611 035111 003 05 0 00 041505 ER3 AC,SN ;INCORRECT AC
6612 035112 302 06 0 00 000006 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1
6613 035113 004 05 0 00 041505 ER4 AC,SN ;INCORRECT AC+1
6614 035114 321 07 0 00 035107 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
6615
6616
6617
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 40
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - ACCUMULATOR ADDRESSING TEST SEQ 0175
6618 000004 AC=4
6619 SAVEAC (1,1)^
6620 035115 201 06 0 00 035115 MOVEI AC+2,. ;SAVE TEST PC
6621 035116 202 06 0 00 030051 MOVEM AC+2,TESTPC
6622 035117 201 06 0 00 000006 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6623 035120 202 06 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6624
6625 041600 SN=41600
6626 000005 AC=5
6627 000005 ZZ=5
6628
6629 E41600: REPEAT ^D5,< ;TEST ASHC-ACCUMULATORS 0-5
6630 ;TEST ACCUMULATOR ADDRESSING
6631 ;TEST THE ABILITY OF ROTC,LSHC,ASHC
6632 ;TO ADDRESS THE CORRECT ACCUMULATORS
6633 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS
6634 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING
6635 ;LEFT ZERO TIMES
6636 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER
6637 ;FROM AC'S ADDRESSED BY INSTRUCTION
6638 ;THE NUMBER OF THE AC REFERENCED IN ERROR
6639 ;IS IN AC
6640 ;INADVERTENT SHIFTING OR PICKING UP OF
6641 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR
6642
6643 SN=SN+1
6644 ZZ=ZZ-1
6645 AC=AC-1
6646 ASHC AC,0 ;*SHIFT LEFT ZERO TIMES
6647 CAIE AC,ZZ ;TEST FOR CORRECT AC
6648 ER3 AC,SN ;INCORRECT AC
6649 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1
6650 ER4 AC+1,SN ;INCORRECT AC+1
6651 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
6652 >
6653 ;TEST ASHC-ACCUMULATORS 0-5
6654 ;TEST ACCUMULATOR ADDRESSING
6655 ;TEST THE ABILITY OF ROTC,LSHC,ASHC
6656 ;TO ADDRESS THE CORRECT ACCUMULATORS
6657 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS
6658 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING
6659 ;LEFT ZERO TIMES
6660 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER
6661 ;FROM AC'S ADDRESSED BY INSTRUCTION
6662 ;THE NUMBER OF THE AC REFERENCED IN ERROR
6663 ;IS IN AC
6664 ;INADVERTENT SHIFTING OR PICKING UP OF
6665 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR
6666
6667 041601 SN=SN+1
6668 000004 ZZ=ZZ-1
6669 000004 AC=AC-1
6670 035121 244 04 0 00 000000 ASHC AC,0 ;*SHIFT LEFT ZERO TIMES
6671 035122 302 04 0 00 000004 CAIE AC,ZZ ;TEST FOR CORRECT AC
6672 035123 003 04 0 00 041601 ER3 AC,SN ;INCORRECT AC
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 40-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - ACCUMULATOR ADDRESSING TEST SEQ 0176
6673 035124 302 05 0 00 000005 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1
6674 035125 004 05 0 00 041601 ER4 AC+1,SN ;INCORRECT AC+1
6675 035126 321 06 0 00 035121 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
6676
6677 ;TEST ASHC-ACCUMULATORS 0-5
6678 ;TEST ACCUMULATOR ADDRESSING
6679 ;TEST THE ABILITY OF ROTC,LSHC,ASHC
6680 ;TO ADDRESS THE CORRECT ACCUMULATORS
6681 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS
6682 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING
6683 ;LEFT ZERO TIMES
6684 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER
6685 ;FROM AC'S ADDRESSED BY INSTRUCTION
6686 ;THE NUMBER OF THE AC REFERENCED IN ERROR
6687 ;IS IN AC
6688 ;INADVERTENT SHIFTING OR PICKING UP OF
6689 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR
6690
6691 041602 SN=SN+1
6692 000003 ZZ=ZZ-1
6693 000003 AC=AC-1
6694 035127 244 03 0 00 000000 ASHC AC,0 ;*SHIFT LEFT ZERO TIMES
6695 035130 302 03 0 00 000003 CAIE AC,ZZ ;TEST FOR CORRECT AC
6696 035131 003 03 0 00 041602 ER3 AC,SN ;INCORRECT AC
6697 035132 302 04 0 00 000004 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1
6698 035133 004 04 0 00 041602 ER4 AC+1,SN ;INCORRECT AC+1
6699 035134 321 05 0 00 035127 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
6700
6701 ;TEST ASHC-ACCUMULATORS 0-5
6702 ;TEST ACCUMULATOR ADDRESSING
6703 ;TEST THE ABILITY OF ROTC,LSHC,ASHC
6704 ;TO ADDRESS THE CORRECT ACCUMULATORS
6705 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS
6706 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING
6707 ;LEFT ZERO TIMES
6708 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER
6709 ;FROM AC'S ADDRESSED BY INSTRUCTION
6710 ;THE NUMBER OF THE AC REFERENCED IN ERROR
6711 ;IS IN AC
6712 ;INADVERTENT SHIFTING OR PICKING UP OF
6713 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR
6714
6715 041603 SN=SN+1
6716 000002 ZZ=ZZ-1
6717 000002 AC=AC-1
6718 035135 244 02 0 00 000000 ASHC AC,0 ;*SHIFT LEFT ZERO TIMES
6719 035136 302 02 0 00 000002 CAIE AC,ZZ ;TEST FOR CORRECT AC
6720 035137 003 02 0 00 041603 ER3 AC,SN ;INCORRECT AC
6721 035140 302 03 0 00 000003 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1
6722 035141 004 03 0 00 041603 ER4 AC+1,SN ;INCORRECT AC+1
6723 035142 321 04 0 00 035135 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
6724
6725 ;TEST ASHC-ACCUMULATORS 0-5
6726 ;TEST ACCUMULATOR ADDRESSING
6727 ;TEST THE ABILITY OF ROTC,LSHC,ASHC
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 40-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - ACCUMULATOR ADDRESSING TEST SEQ 0177
6728 ;TO ADDRESS THE CORRECT ACCUMULATORS
6729 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS
6730 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING
6731 ;LEFT ZERO TIMES
6732 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER
6733 ;FROM AC'S ADDRESSED BY INSTRUCTION
6734 ;THE NUMBER OF THE AC REFERENCED IN ERROR
6735 ;IS IN AC
6736 ;INADVERTENT SHIFTING OR PICKING UP OF
6737 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR
6738
6739 041604 SN=SN+1
6740 000001 ZZ=ZZ-1
6741 000001 AC=AC-1
6742 035143 244 01 0 00 000000 ASHC AC,0 ;*SHIFT LEFT ZERO TIMES
6743 035144 302 01 0 00 000001 CAIE AC,ZZ ;TEST FOR CORRECT AC
6744 035145 003 01 0 00 041604 ER3 AC,SN ;INCORRECT AC
6745 035146 302 02 0 00 000002 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1
6746 035147 004 02 0 00 041604 ER4 AC+1,SN ;INCORRECT AC+1
6747 035150 321 03 0 00 035143 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
6748
6749 ;TEST ASHC-ACCUMULATORS 0-5
6750 ;TEST ACCUMULATOR ADDRESSING
6751 ;TEST THE ABILITY OF ROTC,LSHC,ASHC
6752 ;TO ADDRESS THE CORRECT ACCUMULATORS
6753 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS
6754 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING
6755 ;LEFT ZERO TIMES
6756 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER
6757 ;FROM AC'S ADDRESSED BY INSTRUCTION
6758 ;THE NUMBER OF THE AC REFERENCED IN ERROR
6759 ;IS IN AC
6760 ;INADVERTENT SHIFTING OR PICKING UP OF
6761 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR
6762
6763 041605 SN=SN+1
6764 000000 ZZ=ZZ-1
6765 000000 AC=AC-1
6766 035151 244 00 0 00 000000 ASHC AC,0 ;*SHIFT LEFT ZERO TIMES
6767 035152 302 00 0 00 000000 CAIE AC,ZZ ;TEST FOR CORRECT AC
6768 035153 003 00 0 00 041605 ER3 AC,SN ;INCORRECT AC
6769 035154 302 01 0 00 000001 CAIE AC+1,ZZ+1 ;TEST FOR CORRECT AC+1
6770 035155 004 01 0 00 041605 ER4 AC+1,SN ;INCORRECT AC+1
6771 035156 321 02 0 00 035151 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
6772
6773 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 40-3
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - ACCUMULATOR ADDRESSING TEST SEQ 0178
6774 ; AC=17
6775 ; SAVEAC (1,1)
6776
6777 041700 SN=41700
6778
6779 E41700: REPEAT ^D0,< ;TEST ASHC-ACUMMULATORS 17-0
6780 ;TEST ACCUMULATOR ADDRESSING
6781 ;TEST THE ABILITY OF ROTC,LSHC,ASHC
6782 ;TO ADDRESS THE CORRECT ACCUMULATORS
6783 ;EACH AC IS LOADED WITH IT'S RESPECTIVE ADDRESS
6784 ;TESTING IS ACCOMPLISHED BY SHIFTING/ROTATING
6785 ;LEFT ZERO TIMES
6786 ;AN ERROR WILL OCCUR IF C(AC),C(AC+1) DIFFER
6787 ;FROM AC'S ADDRESSED BY INSTRUCTION
6788 ;THE NUMBER OF THE AC REFERENCED IN ERROR
6789 ;IS IN AC
6790 ;INADVERTENT SHIFTING OR PICKING UP OF
6791 ;BITS DURING FAC OR SAC WILL CAUSE AN ERROR
6792
6793 SN=SN+1
6794 ASHC AC,0 ;*SHIFT LEFT ZERO TIMES
6795 CAIE AC,17 ;TEST FOR CORRECT AC
6796 ER3 AC,SN ;INCORRECT AC
6797 CAIE AC+1,0 ;TEST FOR CORRECT AC+1
6798 ER4 AC+1,SN ;INCORRECT AC+1
6799 JUMPL AC+2,.-5 ;LOOP ON ERROR SWITCH
6800 >
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 41
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0179
6801 SUBTTL DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST
6802
6803 000012 AC=12
6804 SAVEAC (1,1)^
6805 035157 201 14 0 00 035157 MOVEI AC+2,. ;SAVE TEST PC
6806 035160 202 14 0 00 030051 MOVEM AC+2,TESTPC
6807 035161 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6808 035162 202 14 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6809
6810 042000 SN=42000
6811 030303 WW=030303 ;USED FOR COMPARISON
6812 030303 XX=030303 ;SELECTED PATTERN
6813 000000 ZZ=0
6814
6815 E42000: REPEAT ^D4,< ;ROT LEFT (011)-TEST AC,AC+1
6816 ;TEST SELECTED BIT CONFIGURATIONS
6817 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
6818 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
6819 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
6820 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
6821 ; AC-1 CONTAINS BIT(S) THAT FAILED
6822 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
6823 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
6824 ; AC CONTAINS BIT(S) THAT FAILED
6825
6826 SN=SN+1
6827 WW=WW+WW
6828 ZZ=ZZ+1
6829 SETACS (WW,XX) ;SET UP ACCUMULATORS
6830 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
6831 XOR AC-1,AC ;COMPARE AC
6832 SKIPE <AC-1>&17 ;SHOULD =0
6833 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
6834 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
6835 SKIPE <AC-2>&17 ;SHOULD =0
6836 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
6837 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
6838 >
6839 ;ROT LEFT (011)-TEST AC,AC+1
6840 ;TEST SELECTED BIT CONFIGURATIONS
6841 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
6842 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
6843 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
6844 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
6845 ; AC-1 CONTAINS BIT(S) THAT FAILED
6846 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
6847 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
6848 ; AC CONTAINS BIT(S) THAT FAILED
6849
6850 042001 SN=SN+1
6851 060606 WW=WW+WW
6852 000001 ZZ=ZZ+1
6853 SETACS (WW,XX)^
6854 035163 201 11 0 00 060606 MOVEI AC-1,WW ;SETUP AC-1
6855 035164 505 11 0 00 060606 HRLI AC-1,WW ;FOR COMPARISION
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 41-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0180
6856 035165 200 10 0 00 000011 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
6857 035166 201 12 0 00 030303 MOVEI AC,XX ;SETUP AC RIGHT
6858 035167 505 12 0 00 030303 HRLI AC,XX ;SETUP AC LEFT
6859 035170 202 12 0 00 000013 MOVEM AC,<AC+1>&17 ;SETUP AC2^ ;SET UP ACCUMULATORS
6860 035171 245 12 0 00 000001 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
6861 035172 430 11 0 00 000012 XOR AC-1,AC ;COMPARE AC
6862 035173 332 00 0 00 000011 SKIPE <AC-1>&17 ;SHOULD =0
6863 035174 003 12 0 00 042001 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
6864 035175 430 10 0 00 000013 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
6865 035176 332 00 0 00 000010 SKIPE <AC-2>&17 ;SHOULD =0
6866 035177 004 13 0 00 042001 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
6867 035200 321 14 0 00 035163 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
6868
6869 ;ROT LEFT (011)-TEST AC,AC+1
6870 ;TEST SELECTED BIT CONFIGURATIONS
6871 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
6872 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
6873 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
6874 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
6875 ; AC-1 CONTAINS BIT(S) THAT FAILED
6876 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
6877 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
6878 ; AC CONTAINS BIT(S) THAT FAILED
6879
6880 042002 SN=SN+1
6881 141414 WW=WW+WW
6882 000002 ZZ=ZZ+1
6883 SETACS (WW,XX)^
6884 035201 201 11 0 00 141414 MOVEI AC-1,WW ;SETUP AC-1
6885 035202 505 11 0 00 141414 HRLI AC-1,WW ;FOR COMPARISION
6886 035203 200 10 0 00 000011 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
6887 035204 201 12 0 00 030303 MOVEI AC,XX ;SETUP AC RIGHT
6888 035205 505 12 0 00 030303 HRLI AC,XX ;SETUP AC LEFT
6889 035206 202 12 0 00 000013 MOVEM AC,<AC+1>&17 ;SETUP AC2^ ;SET UP ACCUMULATORS
6890 035207 245 12 0 00 000002 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
6891 035210 430 11 0 00 000012 XOR AC-1,AC ;COMPARE AC
6892 035211 332 00 0 00 000011 SKIPE <AC-1>&17 ;SHOULD =0
6893 035212 003 12 0 00 042002 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
6894 035213 430 10 0 00 000013 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
6895 035214 332 00 0 00 000010 SKIPE <AC-2>&17 ;SHOULD =0
6896 035215 004 13 0 00 042002 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
6897 035216 321 14 0 00 035201 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
6898
6899 ;ROT LEFT (011)-TEST AC,AC+1
6900 ;TEST SELECTED BIT CONFIGURATIONS
6901 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
6902 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
6903 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
6904 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
6905 ; AC-1 CONTAINS BIT(S) THAT FAILED
6906 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
6907 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
6908 ; AC CONTAINS BIT(S) THAT FAILED
6909
6910 042003 SN=SN+1
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 41-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0181
6911 303030 WW=WW+WW
6912 000003 ZZ=ZZ+1
6913 SETACS (WW,XX)^
6914 035217 201 11 0 00 303030 MOVEI AC-1,WW ;SETUP AC-1
6915 035220 505 11 0 00 303030 HRLI AC-1,WW ;FOR COMPARISION
6916 035221 200 10 0 00 000011 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
6917 035222 201 12 0 00 030303 MOVEI AC,XX ;SETUP AC RIGHT
6918 035223 505 12 0 00 030303 HRLI AC,XX ;SETUP AC LEFT
6919 035224 202 12 0 00 000013 MOVEM AC,<AC+1>&17 ;SETUP AC2^ ;SET UP ACCUMULATORS
6920 035225 245 12 0 00 000003 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
6921 035226 430 11 0 00 000012 XOR AC-1,AC ;COMPARE AC
6922 035227 332 00 0 00 000011 SKIPE <AC-1>&17 ;SHOULD =0
6923 035230 003 12 0 00 042003 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
6924 035231 430 10 0 00 000013 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
6925 035232 332 00 0 00 000010 SKIPE <AC-2>&17 ;SHOULD =0
6926 035233 004 13 0 00 042003 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
6927 035234 321 14 0 00 035217 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
6928
6929 ;ROT LEFT (011)-TEST AC,AC+1
6930 ;TEST SELECTED BIT CONFIGURATIONS
6931 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
6932 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
6933 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
6934 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
6935 ; AC-1 CONTAINS BIT(S) THAT FAILED
6936 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
6937 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
6938 ; AC CONTAINS BIT(S) THAT FAILED
6939
6940 042004 SN=SN+1
6941 606060 WW=WW+WW
6942 000004 ZZ=ZZ+1
6943 SETACS (WW,XX)^
6944 035235 201 11 0 00 606060 MOVEI AC-1,WW ;SETUP AC-1
6945 035236 505 11 0 00 606060 HRLI AC-1,WW ;FOR COMPARISION
6946 035237 200 10 0 00 000011 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
6947 035240 201 12 0 00 030303 MOVEI AC,XX ;SETUP AC RIGHT
6948 035241 505 12 0 00 030303 HRLI AC,XX ;SETUP AC LEFT
6949 035242 202 12 0 00 000013 MOVEM AC,<AC+1>&17 ;SETUP AC2^ ;SET UP ACCUMULATORS
6950 035243 245 12 0 00 000004 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
6951 035244 430 11 0 00 000012 XOR AC-1,AC ;COMPARE AC
6952 035245 332 00 0 00 000011 SKIPE <AC-1>&17 ;SHOULD =0
6953 035246 003 12 0 00 042004 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
6954 035247 430 10 0 00 000013 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
6955 035250 332 00 0 00 000010 SKIPE <AC-2>&17 ;SHOULD =0
6956 035251 004 13 0 00 042004 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
6957 035252 321 14 0 00 035235 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
6958
6959 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 41-3
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0182
6960 000014 AC=14
6961 SAVEAC (1,1)^
6962 035253 201 16 0 00 035253 MOVEI AC+2,. ;SAVE TEST PC
6963 035254 202 16 0 00 030051 MOVEM AC+2,TESTPC
6964 035255 201 16 0 00 000016 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
6965 035256 202 16 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
6966
6967 042100 SN=42100
6968 606060 WW=606060 ;USED FOR COMPARISON
6969 606060 XX=606060 ;SELECTED PATTERN
6970 000000 ZZ=0
6971
6972 E42100: REPEAT ^D4,< ;ROT RIGHT (110)-TEST AC,AC+1
6973 ;TEST SELECTED BIT CONFIGURATIONS
6974 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
6975 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
6976 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
6977 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
6978 ; AC-1 CONTAINS BIT(S) THAT FAILED
6979 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
6980 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
6981 ; AC CONTAINS BIT(S) THAT FAILED
6982
6983 SN=SN+1
6984 WW=WW/2
6985 ZZ=ZZ-1
6986 SETACS (WW,XX)
6987 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
6988 XOR AC-1,AC ;COMPARE AC
6989 SKIPE <AC-1>&17 ;SHOULD =0
6990 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
6991 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
6992 SKIPE <AC-2>&17 ;SHOULD =0
6993 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
6994 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
6995 >
6996 ;ROT RIGHT (110)-TEST AC,AC+1
6997 ;TEST SELECTED BIT CONFIGURATIONS
6998 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
6999 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7000 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7001 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7002 ; AC-1 CONTAINS BIT(S) THAT FAILED
7003 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7004 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7005 ; AC CONTAINS BIT(S) THAT FAILED
7006
7007 042101 SN=SN+1
7008 303030 WW=WW/2
7009 777777 777777 ZZ=ZZ-1
7010 SETACS (WW,XX)^
7011 035257 201 13 0 00 303030 MOVEI AC-1,WW ;SETUP AC-1
7012 035260 505 13 0 00 303030 HRLI AC-1,WW ;FOR COMPARISION
7013 035261 200 12 0 00 000013 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
7014 035262 201 14 0 00 606060 MOVEI AC,XX ;SETUP AC RIGHT
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 41-4
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0183
7015 035263 505 14 0 00 606060 HRLI AC,XX ;SETUP AC LEFT
7016 035264 202 14 0 00 000015 MOVEM AC,<AC+1>&17 ;SETUP AC2^
7017 035265 245 14 0 00 777777 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7018 035266 430 13 0 00 000014 XOR AC-1,AC ;COMPARE AC
7019 035267 332 00 0 00 000013 SKIPE <AC-1>&17 ;SHOULD =0
7020 035270 003 14 0 00 042101 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7021 035271 430 12 0 00 000015 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7022 035272 332 00 0 00 000012 SKIPE <AC-2>&17 ;SHOULD =0
7023 035273 004 15 0 00 042101 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7024 035274 321 16 0 00 035257 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7025
7026 ;ROT RIGHT (110)-TEST AC,AC+1
7027 ;TEST SELECTED BIT CONFIGURATIONS
7028 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7029 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7030 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7031 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7032 ; AC-1 CONTAINS BIT(S) THAT FAILED
7033 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7034 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7035 ; AC CONTAINS BIT(S) THAT FAILED
7036
7037 042102 SN=SN+1
7038 141414 WW=WW/2
7039 777777 777776 ZZ=ZZ-1
7040 SETACS (WW,XX)^
7041 035275 201 13 0 00 141414 MOVEI AC-1,WW ;SETUP AC-1
7042 035276 505 13 0 00 141414 HRLI AC-1,WW ;FOR COMPARISION
7043 035277 200 12 0 00 000013 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
7044 035300 201 14 0 00 606060 MOVEI AC,XX ;SETUP AC RIGHT
7045 035301 505 14 0 00 606060 HRLI AC,XX ;SETUP AC LEFT
7046 035302 202 14 0 00 000015 MOVEM AC,<AC+1>&17 ;SETUP AC2^
7047 035303 245 14 0 00 777776 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7048 035304 430 13 0 00 000014 XOR AC-1,AC ;COMPARE AC
7049 035305 332 00 0 00 000013 SKIPE <AC-1>&17 ;SHOULD =0
7050 035306 003 14 0 00 042102 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7051 035307 430 12 0 00 000015 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7052 035310 332 00 0 00 000012 SKIPE <AC-2>&17 ;SHOULD =0
7053 035311 004 15 0 00 042102 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7054 035312 321 16 0 00 035275 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7055
7056 ;ROT RIGHT (110)-TEST AC,AC+1
7057 ;TEST SELECTED BIT CONFIGURATIONS
7058 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7059 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7060 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7061 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7062 ; AC-1 CONTAINS BIT(S) THAT FAILED
7063 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7064 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7065 ; AC CONTAINS BIT(S) THAT FAILED
7066
7067 042103 SN=SN+1
7068 060606 WW=WW/2
7069 777777 777775 ZZ=ZZ-1
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 41-5
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0184
7070 SETACS (WW,XX)^
7071 035313 201 13 0 00 060606 MOVEI AC-1,WW ;SETUP AC-1
7072 035314 505 13 0 00 060606 HRLI AC-1,WW ;FOR COMPARISION
7073 035315 200 12 0 00 000013 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
7074 035316 201 14 0 00 606060 MOVEI AC,XX ;SETUP AC RIGHT
7075 035317 505 14 0 00 606060 HRLI AC,XX ;SETUP AC LEFT
7076 035320 202 14 0 00 000015 MOVEM AC,<AC+1>&17 ;SETUP AC2^
7077 035321 245 14 0 00 777775 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7078 035322 430 13 0 00 000014 XOR AC-1,AC ;COMPARE AC
7079 035323 332 00 0 00 000013 SKIPE <AC-1>&17 ;SHOULD =0
7080 035324 003 14 0 00 042103 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7081 035325 430 12 0 00 000015 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7082 035326 332 00 0 00 000012 SKIPE <AC-2>&17 ;SHOULD =0
7083 035327 004 15 0 00 042103 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7084 035330 321 16 0 00 035313 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7085
7086 ;ROT RIGHT (110)-TEST AC,AC+1
7087 ;TEST SELECTED BIT CONFIGURATIONS
7088 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7089 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7090 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7091 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7092 ; AC-1 CONTAINS BIT(S) THAT FAILED
7093 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7094 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7095 ; AC CONTAINS BIT(S) THAT FAILED
7096
7097 042104 SN=SN+1
7098 030303 WW=WW/2
7099 777777 777774 ZZ=ZZ-1
7100 SETACS (WW,XX)^
7101 035331 201 13 0 00 030303 MOVEI AC-1,WW ;SETUP AC-1
7102 035332 505 13 0 00 030303 HRLI AC-1,WW ;FOR COMPARISION
7103 035333 200 12 0 00 000013 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
7104 035334 201 14 0 00 606060 MOVEI AC,XX ;SETUP AC RIGHT
7105 035335 505 14 0 00 606060 HRLI AC,XX ;SETUP AC LEFT
7106 035336 202 14 0 00 000015 MOVEM AC,<AC+1>&17 ;SETUP AC2^
7107 035337 245 14 0 00 777774 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7108 035340 430 13 0 00 000014 XOR AC-1,AC ;COMPARE AC
7109 035341 332 00 0 00 000013 SKIPE <AC-1>&17 ;SHOULD =0
7110 035342 003 14 0 00 042104 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7111 035343 430 12 0 00 000015 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7112 035344 332 00 0 00 000012 SKIPE <AC-2>&17 ;SHOULD =0
7113 035345 004 15 0 00 042104 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7114 035346 321 16 0 00 035331 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7115
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 42
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0185
7116 000013 AC=13
7117 SAVEAC (1,1)^
7118 035347 201 15 0 00 035347 MOVEI AC+2,. ;SAVE TEST PC
7119 035350 202 15 0 00 030051 MOVEM AC+2,TESTPC
7120 035351 201 15 0 00 000015 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7121 035352 202 15 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7122
7123 042200 SN=42200
7124 050505 WW=050505 ;USED FOR COMPARISON
7125 050505 XX=050505 ;SELECTED PATTERN
7126 000000 ZZ=0
7127
7128 E42200: REPEAT ^D3,< ;ROT LEFT (101)-TEST AC,AC+1
7129 ;TEST SELECTED BIT CONFIGURATIONS
7130 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7131 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7132 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7133 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7134 ; AC-1 CONTAINS BIT(S) THAT FAILED
7135 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7136 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7137 ; AC CONTAINS BIT(S) THAT FAILED
7138
7139 SN=SN+1
7140 WW=WW+WW
7141 ZZ=ZZ+1
7142 SETACS (WW,XX)
7143 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7144 XOR AC-1,AC ;COMPARE AC
7145 SKIPE <AC-1>&17 ;SHOULD = 0
7146 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7147 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7148 SKIPE <AC-2>&17 ;SHOULD = 0
7149 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7150 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7151 >
7152 ;ROT LEFT (101)-TEST AC,AC+1
7153 ;TEST SELECTED BIT CONFIGURATIONS
7154 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7155 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7156 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7157 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7158 ; AC-1 CONTAINS BIT(S) THAT FAILED
7159 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7160 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7161 ; AC CONTAINS BIT(S) THAT FAILED
7162
7163 042201 SN=SN+1
7164 121212 WW=WW+WW
7165 000001 ZZ=ZZ+1
7166 SETACS (WW,XX)^
7167 035353 201 12 0 00 121212 MOVEI AC-1,WW ;SETUP AC-1
7168 035354 505 12 0 00 121212 HRLI AC-1,WW ;FOR COMPARISION
7169 035355 200 11 0 00 000012 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
7170 035356 201 13 0 00 050505 MOVEI AC,XX ;SETUP AC RIGHT
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 42-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0186
7171 035357 505 13 0 00 050505 HRLI AC,XX ;SETUP AC LEFT
7172 035360 202 13 0 00 000014 MOVEM AC,<AC+1>&17 ;SETUP AC2^
7173 035361 245 13 0 00 000001 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7174 035362 430 12 0 00 000013 XOR AC-1,AC ;COMPARE AC
7175 035363 332 00 0 00 000012 SKIPE <AC-1>&17 ;SHOULD = 0
7176 035364 003 13 0 00 042201 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7177 035365 430 11 0 00 000014 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7178 035366 332 00 0 00 000011 SKIPE <AC-2>&17 ;SHOULD = 0
7179 035367 004 14 0 00 042201 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7180 035370 321 15 0 00 035353 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7181
7182 ;ROT LEFT (101)-TEST AC,AC+1
7183 ;TEST SELECTED BIT CONFIGURATIONS
7184 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7185 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7186 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7187 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7188 ; AC-1 CONTAINS BIT(S) THAT FAILED
7189 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7190 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7191 ; AC CONTAINS BIT(S) THAT FAILED
7192
7193 042202 SN=SN+1
7194 242424 WW=WW+WW
7195 000002 ZZ=ZZ+1
7196 SETACS (WW,XX)^
7197 035371 201 12 0 00 242424 MOVEI AC-1,WW ;SETUP AC-1
7198 035372 505 12 0 00 242424 HRLI AC-1,WW ;FOR COMPARISION
7199 035373 200 11 0 00 000012 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
7200 035374 201 13 0 00 050505 MOVEI AC,XX ;SETUP AC RIGHT
7201 035375 505 13 0 00 050505 HRLI AC,XX ;SETUP AC LEFT
7202 035376 202 13 0 00 000014 MOVEM AC,<AC+1>&17 ;SETUP AC2^
7203 035377 245 13 0 00 000002 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7204 035400 430 12 0 00 000013 XOR AC-1,AC ;COMPARE AC
7205 035401 332 00 0 00 000012 SKIPE <AC-1>&17 ;SHOULD = 0
7206 035402 003 13 0 00 042202 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7207 035403 430 11 0 00 000014 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7208 035404 332 00 0 00 000011 SKIPE <AC-2>&17 ;SHOULD = 0
7209 035405 004 14 0 00 042202 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7210 035406 321 15 0 00 035371 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7211
7212 ;ROT LEFT (101)-TEST AC,AC+1
7213 ;TEST SELECTED BIT CONFIGURATIONS
7214 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7215 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7216 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7217 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7218 ; AC-1 CONTAINS BIT(S) THAT FAILED
7219 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7220 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7221 ; AC CONTAINS BIT(S) THAT FAILED
7222
7223 042203 SN=SN+1
7224 505050 WW=WW+WW
7225 000003 ZZ=ZZ+1
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 42-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0187
7226 SETACS (WW,XX)^
7227 035407 201 12 0 00 505050 MOVEI AC-1,WW ;SETUP AC-1
7228 035410 505 12 0 00 505050 HRLI AC-1,WW ;FOR COMPARISION
7229 035411 200 11 0 00 000012 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
7230 035412 201 13 0 00 050505 MOVEI AC,XX ;SETUP AC RIGHT
7231 035413 505 13 0 00 050505 HRLI AC,XX ;SETUP AC LEFT
7232 035414 202 13 0 00 000014 MOVEM AC,<AC+1>&17 ;SETUP AC2^
7233 035415 245 13 0 00 000003 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7234 035416 430 12 0 00 000013 XOR AC-1,AC ;COMPARE AC
7235 035417 332 00 0 00 000012 SKIPE <AC-1>&17 ;SHOULD = 0
7236 035420 003 13 0 00 042203 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7237 035421 430 11 0 00 000014 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7238 035422 332 00 0 00 000011 SKIPE <AC-2>&17 ;SHOULD = 0
7239 035423 004 14 0 00 042203 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7240 035424 321 15 0 00 035407 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7241
7242 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 42-3
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0188
7243 000012 AC=12
7244 SAVEAC (1,1)^
7245 035425 201 14 0 00 035425 MOVEI AC+2,. ;SAVE TEST PC
7246 035426 202 14 0 00 030051 MOVEM AC+2,TESTPC
7247 035427 201 14 0 00 000014 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7248 035430 202 14 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7249
7250 042300 SN=42300
7251 505050 WW=505050 ;USED FOR COMPARISON
7252 505050 XX=505050 ;SELECTED PATTERN
7253 000000 ZZ=0
7254
7255 E42300: REPEAT ^D3,< ;ROT RIGHT (101)-TEST AC,AC+1
7256 ;TEST SELECTED BIT CONFIGURATIONS
7257 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7258 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7259 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7260 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7261 ; AC-1 CONTAINS BIT(S) THAT FAILED
7262 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7263 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7264 ; AC CONTAINS BIT(S) THAT FAILED
7265
7266 SN=SN+1
7267 WW=WW/2
7268 ZZ=ZZ-1
7269 SETACS (WW,XX)
7270 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7271 XOR AC-1,AC ;COMPARE AC
7272 SKIPE <AC-1>&17 ;SHOULD =0
7273 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7274 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7275 SKIPE <AC-2>&17 ;SHOULD = 0
7276 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7277 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7278 >
7279 ;ROT RIGHT (101)-TEST AC,AC+1
7280 ;TEST SELECTED BIT CONFIGURATIONS
7281 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7282 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7283 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7284 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7285 ; AC-1 CONTAINS BIT(S) THAT FAILED
7286 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7287 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7288 ; AC CONTAINS BIT(S) THAT FAILED
7289
7290 042301 SN=SN+1
7291 242424 WW=WW/2
7292 777777 777777 ZZ=ZZ-1
7293 SETACS (WW,XX)^
7294 035431 201 11 0 00 242424 MOVEI AC-1,WW ;SETUP AC-1
7295 035432 505 11 0 00 242424 HRLI AC-1,WW ;FOR COMPARISION
7296 035433 200 10 0 00 000011 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
7297 035434 201 12 0 00 505050 MOVEI AC,XX ;SETUP AC RIGHT
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 42-4
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0189
7298 035435 505 12 0 00 505050 HRLI AC,XX ;SETUP AC LEFT
7299 035436 202 12 0 00 000013 MOVEM AC,<AC+1>&17 ;SETUP AC2^
7300 035437 245 12 0 00 777777 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7301 035440 430 11 0 00 000012 XOR AC-1,AC ;COMPARE AC
7302 035441 332 00 0 00 000011 SKIPE <AC-1>&17 ;SHOULD =0
7303 035442 003 12 0 00 042301 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7304 035443 430 10 0 00 000013 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7305 035444 332 00 0 00 000010 SKIPE <AC-2>&17 ;SHOULD = 0
7306 035445 004 13 0 00 042301 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7307 035446 321 14 0 00 035431 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7308
7309 ;ROT RIGHT (101)-TEST AC,AC+1
7310 ;TEST SELECTED BIT CONFIGURATIONS
7311 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7312 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7313 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7314 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7315 ; AC-1 CONTAINS BIT(S) THAT FAILED
7316 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7317 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7318 ; AC CONTAINS BIT(S) THAT FAILED
7319
7320 042302 SN=SN+1
7321 121212 WW=WW/2
7322 777777 777776 ZZ=ZZ-1
7323 SETACS (WW,XX)^
7324 035447 201 11 0 00 121212 MOVEI AC-1,WW ;SETUP AC-1
7325 035450 505 11 0 00 121212 HRLI AC-1,WW ;FOR COMPARISION
7326 035451 200 10 0 00 000011 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
7327 035452 201 12 0 00 505050 MOVEI AC,XX ;SETUP AC RIGHT
7328 035453 505 12 0 00 505050 HRLI AC,XX ;SETUP AC LEFT
7329 035454 202 12 0 00 000013 MOVEM AC,<AC+1>&17 ;SETUP AC2^
7330 035455 245 12 0 00 777776 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7331 035456 430 11 0 00 000012 XOR AC-1,AC ;COMPARE AC
7332 035457 332 00 0 00 000011 SKIPE <AC-1>&17 ;SHOULD =0
7333 035460 003 12 0 00 042302 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7334 035461 430 10 0 00 000013 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7335 035462 332 00 0 00 000010 SKIPE <AC-2>&17 ;SHOULD = 0
7336 035463 004 13 0 00 042302 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7337 035464 321 14 0 00 035447 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7338
7339 ;ROT RIGHT (101)-TEST AC,AC+1
7340 ;TEST SELECTED BIT CONFIGURATIONS
7341 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7342 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7343 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7344 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7345 ; AC-1 CONTAINS BIT(S) THAT FAILED
7346 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7347 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7348 ; AC CONTAINS BIT(S) THAT FAILED
7349
7350 042303 SN=SN+1
7351 050505 WW=WW/2
7352 777777 777775 ZZ=ZZ-1
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 42-5
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0190
7353 SETACS (WW,XX)^
7354 035465 201 11 0 00 050505 MOVEI AC-1,WW ;SETUP AC-1
7355 035466 505 11 0 00 050505 HRLI AC-1,WW ;FOR COMPARISION
7356 035467 200 10 0 00 000011 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
7357 035470 201 12 0 00 505050 MOVEI AC,XX ;SETUP AC RIGHT
7358 035471 505 12 0 00 505050 HRLI AC,XX ;SETUP AC LEFT
7359 035472 202 12 0 00 000013 MOVEM AC,<AC+1>&17 ;SETUP AC2^
7360 035473 245 12 0 00 777775 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7361 035474 430 11 0 00 000012 XOR AC-1,AC ;COMPARE AC
7362 035475 332 00 0 00 000011 SKIPE <AC-1>&17 ;SHOULD =0
7363 035476 003 12 0 00 042303 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7364 035477 430 10 0 00 000013 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7365 035500 332 00 0 00 000010 SKIPE <AC-2>&17 ;SHOULD = 0
7366 035501 004 13 0 00 042303 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7367 035502 321 14 0 00 035465 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7368
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 43
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0191
7369 000011 AC=11
7370 SAVEAC (1,1)^
7371 035503 201 13 0 00 035503 MOVEI AC+2,. ;SAVE TEST PC
7372 035504 202 13 0 00 030051 MOVEM AC+2,TESTPC
7373 035505 201 13 0 00 000013 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7374 035506 202 13 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7375
7376 042400 SN=42400
7377 070707 WW=070707 ;USED FOR COMPARISON
7378 070707 XX=070707 ;SELECTED PATTERN
7379 000000 ZZ=0
7380
7381 E42400: REPEAT ^D3,< ;ROT LEFT (111)-TEST AC,AC+1
7382 ;TEST SELECTED BIT CONFIGURATIONS
7383 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7384 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7385 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7386 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7387 ; AC-1 CONTAINS BIT(S) THAT FAILED
7388 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7389 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7390 ; AC CONTAINS BIT(S) THAT FAILED
7391
7392 SN=SN+1
7393 WW=WW+WW
7394 ZZ=ZZ+1
7395 SETACS (WW,XX)
7396 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7397 XOR AC-1,AC ;COMPARE AC
7398 SKIPE <AC-1>&17 ;SHOULD = 0
7399 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7400 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7401 SKIPE <AC-2>&17 ;SHOULD = 0
7402 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7403 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7404 >
7405 ;ROT LEFT (111)-TEST AC,AC+1
7406 ;TEST SELECTED BIT CONFIGURATIONS
7407 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7408 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7409 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7410 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7411 ; AC-1 CONTAINS BIT(S) THAT FAILED
7412 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7413 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7414 ; AC CONTAINS BIT(S) THAT FAILED
7415
7416 042401 SN=SN+1
7417 161616 WW=WW+WW
7418 000001 ZZ=ZZ+1
7419 SETACS (WW,XX)^
7420 035507 201 10 0 00 161616 MOVEI AC-1,WW ;SETUP AC-1
7421 035510 505 10 0 00 161616 HRLI AC-1,WW ;FOR COMPARISION
7422 035511 200 07 0 00 000010 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
7423 035512 201 11 0 00 070707 MOVEI AC,XX ;SETUP AC RIGHT
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 43-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0192
7424 035513 505 11 0 00 070707 HRLI AC,XX ;SETUP AC LEFT
7425 035514 202 11 0 00 000012 MOVEM AC,<AC+1>&17 ;SETUP AC2^
7426 035515 245 11 0 00 000001 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7427 035516 430 10 0 00 000011 XOR AC-1,AC ;COMPARE AC
7428 035517 332 00 0 00 000010 SKIPE <AC-1>&17 ;SHOULD = 0
7429 035520 003 11 0 00 042401 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7430 035521 430 07 0 00 000012 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7431 035522 332 00 0 00 000007 SKIPE <AC-2>&17 ;SHOULD = 0
7432 035523 004 12 0 00 042401 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7433 035524 321 13 0 00 035507 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7434
7435 ;ROT LEFT (111)-TEST AC,AC+1
7436 ;TEST SELECTED BIT CONFIGURATIONS
7437 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7438 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7439 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7440 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7441 ; AC-1 CONTAINS BIT(S) THAT FAILED
7442 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7443 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7444 ; AC CONTAINS BIT(S) THAT FAILED
7445
7446 042402 SN=SN+1
7447 343434 WW=WW+WW
7448 000002 ZZ=ZZ+1
7449 SETACS (WW,XX)^
7450 035525 201 10 0 00 343434 MOVEI AC-1,WW ;SETUP AC-1
7451 035526 505 10 0 00 343434 HRLI AC-1,WW ;FOR COMPARISION
7452 035527 200 07 0 00 000010 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
7453 035530 201 11 0 00 070707 MOVEI AC,XX ;SETUP AC RIGHT
7454 035531 505 11 0 00 070707 HRLI AC,XX ;SETUP AC LEFT
7455 035532 202 11 0 00 000012 MOVEM AC,<AC+1>&17 ;SETUP AC2^
7456 035533 245 11 0 00 000002 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7457 035534 430 10 0 00 000011 XOR AC-1,AC ;COMPARE AC
7458 035535 332 00 0 00 000010 SKIPE <AC-1>&17 ;SHOULD = 0
7459 035536 003 11 0 00 042402 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7460 035537 430 07 0 00 000012 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7461 035540 332 00 0 00 000007 SKIPE <AC-2>&17 ;SHOULD = 0
7462 035541 004 12 0 00 042402 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7463 035542 321 13 0 00 035525 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7464
7465 ;ROT LEFT (111)-TEST AC,AC+1
7466 ;TEST SELECTED BIT CONFIGURATIONS
7467 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7468 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7469 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7470 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7471 ; AC-1 CONTAINS BIT(S) THAT FAILED
7472 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7473 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7474 ; AC CONTAINS BIT(S) THAT FAILED
7475
7476 042403 SN=SN+1
7477 707070 WW=WW+WW
7478 000003 ZZ=ZZ+1
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 43-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0193
7479 SETACS (WW,XX)^
7480 035543 201 10 0 00 707070 MOVEI AC-1,WW ;SETUP AC-1
7481 035544 505 10 0 00 707070 HRLI AC-1,WW ;FOR COMPARISION
7482 035545 200 07 0 00 000010 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
7483 035546 201 11 0 00 070707 MOVEI AC,XX ;SETUP AC RIGHT
7484 035547 505 11 0 00 070707 HRLI AC,XX ;SETUP AC LEFT
7485 035550 202 11 0 00 000012 MOVEM AC,<AC+1>&17 ;SETUP AC2^
7486 035551 245 11 0 00 000003 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7487 035552 430 10 0 00 000011 XOR AC-1,AC ;COMPARE AC
7488 035553 332 00 0 00 000010 SKIPE <AC-1>&17 ;SHOULD = 0
7489 035554 003 11 0 00 042403 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7490 035555 430 07 0 00 000012 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7491 035556 332 00 0 00 000007 SKIPE <AC-2>&17 ;SHOULD = 0
7492 035557 004 12 0 00 042403 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7493 035560 321 13 0 00 035543 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7494
7495 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 43-3
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0194
7496 000010 AC=10
7497 SAVEAC (1,1)^
7498 035561 201 12 0 00 035561 MOVEI AC+2,. ;SAVE TEST PC
7499 035562 202 12 0 00 030051 MOVEM AC+2,TESTPC
7500 035563 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7501 035564 202 12 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7502
7503 042500 SN=42500
7504 707070 WW=707070 ;USED FOR COMPARISON
7505 707070 XX=707070 ;SELECTED PATTERN
7506 000000 ZZ=0
7507
7508 E42500: REPEAT ^D3,< ;ROT RIGHT (111)-TEST AC,AC+1
7509 ;TEST SELECTED BIT CONFIGURATIONS
7510 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7511 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7512 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7513 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7514 ; AC-1 CONTAINS BIT(S) THAT FAILED
7515 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7516 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7517 ; AC CONTAINS BIT(S) THAT FAILED
7518
7519 SN=SN+1
7520 WW=WW/2
7521 ZZ=ZZ-1
7522 SETACS (WW,XX)
7523 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7524 XOR AC-1,AC ;COMPARE
7525 SKIPE <AC-1>&17 ;SHOULD = 0
7526 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7527 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7528 SKIPE <AC-2>&17 ;SHOULD = 0
7529 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7530 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7531 >
7532 ;ROT RIGHT (111)-TEST AC,AC+1
7533 ;TEST SELECTED BIT CONFIGURATIONS
7534 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7535 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7536 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7537 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7538 ; AC-1 CONTAINS BIT(S) THAT FAILED
7539 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7540 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7541 ; AC CONTAINS BIT(S) THAT FAILED
7542
7543 042501 SN=SN+1
7544 343434 WW=WW/2
7545 777777 777777 ZZ=ZZ-1
7546 SETACS (WW,XX)^
7547 035565 201 07 0 00 343434 MOVEI AC-1,WW ;SETUP AC-1
7548 035566 505 07 0 00 343434 HRLI AC-1,WW ;FOR COMPARISION
7549 035567 200 06 0 00 000007 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
7550 035570 201 10 0 00 707070 MOVEI AC,XX ;SETUP AC RIGHT
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 43-4
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0195
7551 035571 505 10 0 00 707070 HRLI AC,XX ;SETUP AC LEFT
7552 035572 202 10 0 00 000011 MOVEM AC,<AC+1>&17 ;SETUP AC2^
7553 035573 245 10 0 00 777777 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7554 035574 430 07 0 00 000010 XOR AC-1,AC ;COMPARE
7555 035575 332 00 0 00 000007 SKIPE <AC-1>&17 ;SHOULD = 0
7556 035576 003 10 0 00 042501 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7557 035577 430 06 0 00 000011 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7558 035600 332 00 0 00 000006 SKIPE <AC-2>&17 ;SHOULD = 0
7559 035601 004 11 0 00 042501 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7560 035602 321 12 0 00 035565 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7561
7562 ;ROT RIGHT (111)-TEST AC,AC+1
7563 ;TEST SELECTED BIT CONFIGURATIONS
7564 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7565 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7566 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7567 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7568 ; AC-1 CONTAINS BIT(S) THAT FAILED
7569 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7570 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7571 ; AC CONTAINS BIT(S) THAT FAILED
7572
7573 042502 SN=SN+1
7574 161616 WW=WW/2
7575 777777 777776 ZZ=ZZ-1
7576 SETACS (WW,XX)^
7577 035603 201 07 0 00 161616 MOVEI AC-1,WW ;SETUP AC-1
7578 035604 505 07 0 00 161616 HRLI AC-1,WW ;FOR COMPARISION
7579 035605 200 06 0 00 000007 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
7580 035606 201 10 0 00 707070 MOVEI AC,XX ;SETUP AC RIGHT
7581 035607 505 10 0 00 707070 HRLI AC,XX ;SETUP AC LEFT
7582 035610 202 10 0 00 000011 MOVEM AC,<AC+1>&17 ;SETUP AC2^
7583 035611 245 10 0 00 777776 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7584 035612 430 07 0 00 000010 XOR AC-1,AC ;COMPARE
7585 035613 332 00 0 00 000007 SKIPE <AC-1>&17 ;SHOULD = 0
7586 035614 003 10 0 00 042502 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7587 035615 430 06 0 00 000011 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7588 035616 332 00 0 00 000006 SKIPE <AC-2>&17 ;SHOULD = 0
7589 035617 004 11 0 00 042502 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7590 035620 321 12 0 00 035603 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7591
7592 ;ROT RIGHT (111)-TEST AC,AC+1
7593 ;TEST SELECTED BIT CONFIGURATIONS
7594 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7595 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7596 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7597 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7598 ; AC-1 CONTAINS BIT(S) THAT FAILED
7599 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7600 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7601 ; AC CONTAINS BIT(S) THAT FAILED
7602
7603 042503 SN=SN+1
7604 070707 WW=WW/2
7605 777777 777775 ZZ=ZZ-1
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 43-5
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0196
7606 SETACS (WW,XX)^
7607 035621 201 07 0 00 070707 MOVEI AC-1,WW ;SETUP AC-1
7608 035622 505 07 0 00 070707 HRLI AC-1,WW ;FOR COMPARISION
7609 035623 200 06 0 00 000007 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
7610 035624 201 10 0 00 707070 MOVEI AC,XX ;SETUP AC RIGHT
7611 035625 505 10 0 00 707070 HRLI AC,XX ;SETUP AC LEFT
7612 035626 202 10 0 00 000011 MOVEM AC,<AC+1>&17 ;SETUP AC2^
7613 035627 245 10 0 00 777775 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7614 035630 430 07 0 00 000010 XOR AC-1,AC ;COMPARE
7615 035631 332 00 0 00 000007 SKIPE <AC-1>&17 ;SHOULD = 0
7616 035632 003 10 0 00 042503 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7617 035633 430 06 0 00 000011 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7618 035634 332 00 0 00 000006 SKIPE <AC-2>&17 ;SHOULD = 0
7619 035635 004 11 0 00 042503 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7620 035636 321 12 0 00 035621 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7621
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 44
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0197
7622 000007 AC=7
7623 SAVEAC (1,1)^
7624 035637 201 11 0 00 035637 MOVEI AC+2,. ;SAVE TEST PC
7625 035640 202 11 0 00 030051 MOVEM AC+2,TESTPC
7626 035641 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7627 035642 202 11 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7628
7629 042600 SN=42600
7630 025025 WW=025025 ;USED FOR COMPARISON
7631 025025 XX=025025 ;SELECTED PATTERN
7632 000000 ZZ=0
7633
7634 E42600: REPEAT ^D4,< ;ROT LEFT (010101)-TEST AC,AC+1
7635 ;TEST SELECTED BIT CONFIGURATIONS
7636 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7637 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7638 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7639 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7640 ; AC-1 CONTAINS BIT(S) THAT FAILED
7641 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7642 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7643 ; AC CONTAINS BIT(S) THAT FAILED
7644
7645 SN=SN+1
7646 WW=WW+WW
7647 ZZ=ZZ+1
7648 SETACS (WW,XX)
7649 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7650 XOR AC-1,AC ;COMPARE AC
7651 SKIPE <AC-1>&17 ;SHOULD = 0
7652 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7653 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7654 SKIPE <AC-2>&17 ;SHOULD = 0
7655 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7656 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7657 >
7658 ;ROT LEFT (010101)-TEST AC,AC+1
7659 ;TEST SELECTED BIT CONFIGURATIONS
7660 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7661 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7662 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7663 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7664 ; AC-1 CONTAINS BIT(S) THAT FAILED
7665 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7666 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7667 ; AC CONTAINS BIT(S) THAT FAILED
7668
7669 042601 SN=SN+1
7670 052052 WW=WW+WW
7671 000001 ZZ=ZZ+1
7672 SETACS (WW,XX)^
7673 035643 201 06 0 00 052052 MOVEI AC-1,WW ;SETUP AC-1
7674 035644 505 06 0 00 052052 HRLI AC-1,WW ;FOR COMPARISION
7675 035645 200 05 0 00 000006 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
7676 035646 201 07 0 00 025025 MOVEI AC,XX ;SETUP AC RIGHT
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 44-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0198
7677 035647 505 07 0 00 025025 HRLI AC,XX ;SETUP AC LEFT
7678 035650 202 07 0 00 000010 MOVEM AC,<AC+1>&17 ;SETUP AC2^
7679 035651 245 07 0 00 000001 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7680 035652 430 06 0 00 000007 XOR AC-1,AC ;COMPARE AC
7681 035653 332 00 0 00 000006 SKIPE <AC-1>&17 ;SHOULD = 0
7682 035654 003 07 0 00 042601 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7683 035655 430 05 0 00 000010 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7684 035656 332 00 0 00 000005 SKIPE <AC-2>&17 ;SHOULD = 0
7685 035657 004 10 0 00 042601 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7686 035660 321 11 0 00 035643 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7687
7688 ;ROT LEFT (010101)-TEST AC,AC+1
7689 ;TEST SELECTED BIT CONFIGURATIONS
7690 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7691 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7692 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7693 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7694 ; AC-1 CONTAINS BIT(S) THAT FAILED
7695 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7696 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7697 ; AC CONTAINS BIT(S) THAT FAILED
7698
7699 042602 SN=SN+1
7700 124124 WW=WW+WW
7701 000002 ZZ=ZZ+1
7702 SETACS (WW,XX)^
7703 035661 201 06 0 00 124124 MOVEI AC-1,WW ;SETUP AC-1
7704 035662 505 06 0 00 124124 HRLI AC-1,WW ;FOR COMPARISION
7705 035663 200 05 0 00 000006 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
7706 035664 201 07 0 00 025025 MOVEI AC,XX ;SETUP AC RIGHT
7707 035665 505 07 0 00 025025 HRLI AC,XX ;SETUP AC LEFT
7708 035666 202 07 0 00 000010 MOVEM AC,<AC+1>&17 ;SETUP AC2^
7709 035667 245 07 0 00 000002 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7710 035670 430 06 0 00 000007 XOR AC-1,AC ;COMPARE AC
7711 035671 332 00 0 00 000006 SKIPE <AC-1>&17 ;SHOULD = 0
7712 035672 003 07 0 00 042602 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7713 035673 430 05 0 00 000010 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7714 035674 332 00 0 00 000005 SKIPE <AC-2>&17 ;SHOULD = 0
7715 035675 004 10 0 00 042602 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7716 035676 321 11 0 00 035661 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7717
7718 ;ROT LEFT (010101)-TEST AC,AC+1
7719 ;TEST SELECTED BIT CONFIGURATIONS
7720 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7721 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7722 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7723 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7724 ; AC-1 CONTAINS BIT(S) THAT FAILED
7725 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7726 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7727 ; AC CONTAINS BIT(S) THAT FAILED
7728
7729 042603 SN=SN+1
7730 250250 WW=WW+WW
7731 000003 ZZ=ZZ+1
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 44-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0199
7732 SETACS (WW,XX)^
7733 035677 201 06 0 00 250250 MOVEI AC-1,WW ;SETUP AC-1
7734 035700 505 06 0 00 250250 HRLI AC-1,WW ;FOR COMPARISION
7735 035701 200 05 0 00 000006 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
7736 035702 201 07 0 00 025025 MOVEI AC,XX ;SETUP AC RIGHT
7737 035703 505 07 0 00 025025 HRLI AC,XX ;SETUP AC LEFT
7738 035704 202 07 0 00 000010 MOVEM AC,<AC+1>&17 ;SETUP AC2^
7739 035705 245 07 0 00 000003 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7740 035706 430 06 0 00 000007 XOR AC-1,AC ;COMPARE AC
7741 035707 332 00 0 00 000006 SKIPE <AC-1>&17 ;SHOULD = 0
7742 035710 003 07 0 00 042603 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7743 035711 430 05 0 00 000010 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7744 035712 332 00 0 00 000005 SKIPE <AC-2>&17 ;SHOULD = 0
7745 035713 004 10 0 00 042603 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7746 035714 321 11 0 00 035677 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7747
7748 ;ROT LEFT (010101)-TEST AC,AC+1
7749 ;TEST SELECTED BIT CONFIGURATIONS
7750 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7751 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7752 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7753 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7754 ; AC-1 CONTAINS BIT(S) THAT FAILED
7755 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7756 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7757 ; AC CONTAINS BIT(S) THAT FAILED
7758
7759 042604 SN=SN+1
7760 520520 WW=WW+WW
7761 000004 ZZ=ZZ+1
7762 SETACS (WW,XX)^
7763 035715 201 06 0 00 520520 MOVEI AC-1,WW ;SETUP AC-1
7764 035716 505 06 0 00 520520 HRLI AC-1,WW ;FOR COMPARISION
7765 035717 200 05 0 00 000006 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
7766 035720 201 07 0 00 025025 MOVEI AC,XX ;SETUP AC RIGHT
7767 035721 505 07 0 00 025025 HRLI AC,XX ;SETUP AC LEFT
7768 035722 202 07 0 00 000010 MOVEM AC,<AC+1>&17 ;SETUP AC2^
7769 035723 245 07 0 00 000004 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7770 035724 430 06 0 00 000007 XOR AC-1,AC ;COMPARE AC
7771 035725 332 00 0 00 000006 SKIPE <AC-1>&17 ;SHOULD = 0
7772 035726 003 07 0 00 042604 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7773 035727 430 05 0 00 000010 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7774 035730 332 00 0 00 000005 SKIPE <AC-2>&17 ;SHOULD = 0
7775 035731 004 10 0 00 042604 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7776 035732 321 11 0 00 035715 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7777
7778 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 44-3
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0200
7779 000006 AC=6
7780 SAVEAC (1,1)^
7781 035733 201 10 0 00 035733 MOVEI AC+2,. ;SAVE TEST PC
7782 035734 202 10 0 00 030051 MOVEM AC+2,TESTPC
7783 035735 201 10 0 00 000010 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7784 035736 202 10 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7785
7786 042700 SN=42700
7787 520520 WW=520520 ;USED FOR COMPARISON
7788 520520 XX=520520 ;SELECTED PATTERN
7789 000000 ZZ=0
7790
7791 E42700: REPEAT ^D4,< ;ROT RIGHT (101010)-TEST AC,AC+1
7792 ;TEST SELECTED BIT CONFIGURATIONS
7793 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7794 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7795 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7796 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7797 ; AC-1 CONTAINS BIT(S) THAT FAILED
7798 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7799 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7800 ; AC CONTAINS BIT(S) THAT FAILED
7801
7802 SN=SN+1
7803 WW=WW/2
7804 ZZ=ZZ-1
7805 SETACS (WW,XX)
7806 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7807 XOR AC-1,AC ;COMPARE AC
7808 SKIPE <AC-1>&17 ;SHOULD = 0
7809 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7810 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7811 SKIPE <AC-2>&17 ;SHOULD = 0
7812 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7813 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7814 >
7815 ;ROT RIGHT (101010)-TEST AC,AC+1
7816 ;TEST SELECTED BIT CONFIGURATIONS
7817 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7818 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7819 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7820 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7821 ; AC-1 CONTAINS BIT(S) THAT FAILED
7822 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7823 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7824 ; AC CONTAINS BIT(S) THAT FAILED
7825
7826 042701 SN=SN+1
7827 250250 WW=WW/2
7828 777777 777777 ZZ=ZZ-1
7829 SETACS (WW,XX)^
7830 035737 201 05 0 00 250250 MOVEI AC-1,WW ;SETUP AC-1
7831 035740 505 05 0 00 250250 HRLI AC-1,WW ;FOR COMPARISION
7832 035741 200 04 0 00 000005 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
7833 035742 201 06 0 00 520520 MOVEI AC,XX ;SETUP AC RIGHT
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 44-4
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0201
7834 035743 505 06 0 00 520520 HRLI AC,XX ;SETUP AC LEFT
7835 035744 202 06 0 00 000007 MOVEM AC,<AC+1>&17 ;SETUP AC2^
7836 035745 245 06 0 00 777777 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7837 035746 430 05 0 00 000006 XOR AC-1,AC ;COMPARE AC
7838 035747 332 00 0 00 000005 SKIPE <AC-1>&17 ;SHOULD = 0
7839 035750 003 06 0 00 042701 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7840 035751 430 04 0 00 000007 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7841 035752 332 00 0 00 000004 SKIPE <AC-2>&17 ;SHOULD = 0
7842 035753 004 07 0 00 042701 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7843 035754 321 10 0 00 035737 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7844
7845 ;ROT RIGHT (101010)-TEST AC,AC+1
7846 ;TEST SELECTED BIT CONFIGURATIONS
7847 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7848 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7849 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7850 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7851 ; AC-1 CONTAINS BIT(S) THAT FAILED
7852 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7853 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7854 ; AC CONTAINS BIT(S) THAT FAILED
7855
7856 042702 SN=SN+1
7857 124124 WW=WW/2
7858 777777 777776 ZZ=ZZ-1
7859 SETACS (WW,XX)^
7860 035755 201 05 0 00 124124 MOVEI AC-1,WW ;SETUP AC-1
7861 035756 505 05 0 00 124124 HRLI AC-1,WW ;FOR COMPARISION
7862 035757 200 04 0 00 000005 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
7863 035760 201 06 0 00 520520 MOVEI AC,XX ;SETUP AC RIGHT
7864 035761 505 06 0 00 520520 HRLI AC,XX ;SETUP AC LEFT
7865 035762 202 06 0 00 000007 MOVEM AC,<AC+1>&17 ;SETUP AC2^
7866 035763 245 06 0 00 777776 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7867 035764 430 05 0 00 000006 XOR AC-1,AC ;COMPARE AC
7868 035765 332 00 0 00 000005 SKIPE <AC-1>&17 ;SHOULD = 0
7869 035766 003 06 0 00 042702 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7870 035767 430 04 0 00 000007 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7871 035770 332 00 0 00 000004 SKIPE <AC-2>&17 ;SHOULD = 0
7872 035771 004 07 0 00 042702 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7873 035772 321 10 0 00 035755 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7874
7875 ;ROT RIGHT (101010)-TEST AC,AC+1
7876 ;TEST SELECTED BIT CONFIGURATIONS
7877 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7878 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7879 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7880 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7881 ; AC-1 CONTAINS BIT(S) THAT FAILED
7882 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7883 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7884 ; AC CONTAINS BIT(S) THAT FAILED
7885
7886 042703 SN=SN+1
7887 052052 WW=WW/2
7888 777777 777775 ZZ=ZZ-1
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 44-5
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0202
7889 SETACS (WW,XX)^
7890 035773 201 05 0 00 052052 MOVEI AC-1,WW ;SETUP AC-1
7891 035774 505 05 0 00 052052 HRLI AC-1,WW ;FOR COMPARISION
7892 035775 200 04 0 00 000005 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
7893 035776 201 06 0 00 520520 MOVEI AC,XX ;SETUP AC RIGHT
7894 035777 505 06 0 00 520520 HRLI AC,XX ;SETUP AC LEFT
7895 036000 202 06 0 00 000007 MOVEM AC,<AC+1>&17 ;SETUP AC2^
7896 036001 245 06 0 00 777775 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7897 036002 430 05 0 00 000006 XOR AC-1,AC ;COMPARE AC
7898 036003 332 00 0 00 000005 SKIPE <AC-1>&17 ;SHOULD = 0
7899 036004 003 06 0 00 042703 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7900 036005 430 04 0 00 000007 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7901 036006 332 00 0 00 000004 SKIPE <AC-2>&17 ;SHOULD = 0
7902 036007 004 07 0 00 042703 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7903 036010 321 10 0 00 035773 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7904
7905 ;ROT RIGHT (101010)-TEST AC,AC+1
7906 ;TEST SELECTED BIT CONFIGURATIONS
7907 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7908 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7909 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7910 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7911 ; AC-1 CONTAINS BIT(S) THAT FAILED
7912 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7913 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7914 ; AC CONTAINS BIT(S) THAT FAILED
7915
7916 042704 SN=SN+1
7917 025025 WW=WW/2
7918 777777 777774 ZZ=ZZ-1
7919 SETACS (WW,XX)^
7920 036011 201 05 0 00 025025 MOVEI AC-1,WW ;SETUP AC-1
7921 036012 505 05 0 00 025025 HRLI AC-1,WW ;FOR COMPARISION
7922 036013 200 04 0 00 000005 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
7923 036014 201 06 0 00 520520 MOVEI AC,XX ;SETUP AC RIGHT
7924 036015 505 06 0 00 520520 HRLI AC,XX ;SETUP AC LEFT
7925 036016 202 06 0 00 000007 MOVEM AC,<AC+1>&17 ;SETUP AC2^
7926 036017 245 06 0 00 777774 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7927 036020 430 05 0 00 000006 XOR AC-1,AC ;COMPARE AC
7928 036021 332 00 0 00 000005 SKIPE <AC-1>&17 ;SHOULD = 0
7929 036022 003 06 0 00 042704 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7930 036023 430 04 0 00 000007 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7931 036024 332 00 0 00 000004 SKIPE <AC-2>&17 ;SHOULD = 0
7932 036025 004 07 0 00 042704 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7933 036026 321 10 0 00 036011 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7934
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 45
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0203
7935 000005 AC=5
7936 SAVEAC (1,1)^
7937 036027 201 07 0 00 036027 MOVEI AC+2,. ;SAVE TEST PC
7938 036030 202 07 0 00 030051 MOVEM AC+2,TESTPC
7939 036031 201 07 0 00 000007 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
7940 036032 202 07 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
7941
7942 043000 SN=43000
7943 033033 WW=033033 ;USED FOR COMPARISON
7944 033033 XX=033033 ;SELECTED PATTERN
7945 000000 ZZ=0
7946
7947 E43000: REPEAT ^D4,< ;ROT LEFT (011011)-TEST AC,AC+1
7948 ;TEST SELECTED BIT CONFIGURATIONS
7949 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7950 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7951 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7952 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7953 ; AC-1 CONTAINS BIT(S) THAT FAILED
7954 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7955 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7956 ; AC CONTAINS BIT(S) THAT FAILED
7957
7958 SN=SN+1
7959 WW=WW+WW
7960 ZZ=ZZ+1
7961 SETACS (WW,XX)
7962 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7963 XOR AC-1,AC ;COMPARE AC
7964 SKIPE <AC-1>&17 ;SHOULD = 0
7965 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7966 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7967 SKIPE <AC-2>&17 ;SHOULD = 0
7968 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7969 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
7970 >
7971 ;ROT LEFT (011011)-TEST AC,AC+1
7972 ;TEST SELECTED BIT CONFIGURATIONS
7973 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
7974 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
7975 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
7976 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
7977 ; AC-1 CONTAINS BIT(S) THAT FAILED
7978 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
7979 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
7980 ; AC CONTAINS BIT(S) THAT FAILED
7981
7982 043001 SN=SN+1
7983 066066 WW=WW+WW
7984 000001 ZZ=ZZ+1
7985 SETACS (WW,XX)^
7986 036033 201 04 0 00 066066 MOVEI AC-1,WW ;SETUP AC-1
7987 036034 505 04 0 00 066066 HRLI AC-1,WW ;FOR COMPARISION
7988 036035 200 03 0 00 000004 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
7989 036036 201 05 0 00 033033 MOVEI AC,XX ;SETUP AC RIGHT
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 45-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0204
7990 036037 505 05 0 00 033033 HRLI AC,XX ;SETUP AC LEFT
7991 036040 202 05 0 00 000006 MOVEM AC,<AC+1>&17 ;SETUP AC2^
7992 036041 245 05 0 00 000001 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
7993 036042 430 04 0 00 000005 XOR AC-1,AC ;COMPARE AC
7994 036043 332 00 0 00 000004 SKIPE <AC-1>&17 ;SHOULD = 0
7995 036044 003 05 0 00 043001 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
7996 036045 430 03 0 00 000006 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
7997 036046 332 00 0 00 000003 SKIPE <AC-2>&17 ;SHOULD = 0
7998 036047 004 06 0 00 043001 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
7999 036050 321 07 0 00 036033 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
8000
8001 ;ROT LEFT (011011)-TEST AC,AC+1
8002 ;TEST SELECTED BIT CONFIGURATIONS
8003 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
8004 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
8005 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
8006 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
8007 ; AC-1 CONTAINS BIT(S) THAT FAILED
8008 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
8009 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
8010 ; AC CONTAINS BIT(S) THAT FAILED
8011
8012 043002 SN=SN+1
8013 154154 WW=WW+WW
8014 000002 ZZ=ZZ+1
8015 SETACS (WW,XX)^
8016 036051 201 04 0 00 154154 MOVEI AC-1,WW ;SETUP AC-1
8017 036052 505 04 0 00 154154 HRLI AC-1,WW ;FOR COMPARISION
8018 036053 200 03 0 00 000004 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
8019 036054 201 05 0 00 033033 MOVEI AC,XX ;SETUP AC RIGHT
8020 036055 505 05 0 00 033033 HRLI AC,XX ;SETUP AC LEFT
8021 036056 202 05 0 00 000006 MOVEM AC,<AC+1>&17 ;SETUP AC2^
8022 036057 245 05 0 00 000002 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
8023 036060 430 04 0 00 000005 XOR AC-1,AC ;COMPARE AC
8024 036061 332 00 0 00 000004 SKIPE <AC-1>&17 ;SHOULD = 0
8025 036062 003 05 0 00 043002 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
8026 036063 430 03 0 00 000006 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
8027 036064 332 00 0 00 000003 SKIPE <AC-2>&17 ;SHOULD = 0
8028 036065 004 06 0 00 043002 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
8029 036066 321 07 0 00 036051 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
8030
8031 ;ROT LEFT (011011)-TEST AC,AC+1
8032 ;TEST SELECTED BIT CONFIGURATIONS
8033 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
8034 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
8035 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
8036 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
8037 ; AC-1 CONTAINS BIT(S) THAT FAILED
8038 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
8039 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
8040 ; AC CONTAINS BIT(S) THAT FAILED
8041
8042 043003 SN=SN+1
8043 330330 WW=WW+WW
8044 000003 ZZ=ZZ+1
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 45-2
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0205
8045 SETACS (WW,XX)^
8046 036067 201 04 0 00 330330 MOVEI AC-1,WW ;SETUP AC-1
8047 036070 505 04 0 00 330330 HRLI AC-1,WW ;FOR COMPARISION
8048 036071 200 03 0 00 000004 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
8049 036072 201 05 0 00 033033 MOVEI AC,XX ;SETUP AC RIGHT
8050 036073 505 05 0 00 033033 HRLI AC,XX ;SETUP AC LEFT
8051 036074 202 05 0 00 000006 MOVEM AC,<AC+1>&17 ;SETUP AC2^
8052 036075 245 05 0 00 000003 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
8053 036076 430 04 0 00 000005 XOR AC-1,AC ;COMPARE AC
8054 036077 332 00 0 00 000004 SKIPE <AC-1>&17 ;SHOULD = 0
8055 036100 003 05 0 00 043003 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
8056 036101 430 03 0 00 000006 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
8057 036102 332 00 0 00 000003 SKIPE <AC-2>&17 ;SHOULD = 0
8058 036103 004 06 0 00 043003 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
8059 036104 321 07 0 00 036067 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
8060
8061 ;ROT LEFT (011011)-TEST AC,AC+1
8062 ;TEST SELECTED BIT CONFIGURATIONS
8063 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
8064 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
8065 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
8066 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
8067 ; AC-1 CONTAINS BIT(S) THAT FAILED
8068 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
8069 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
8070 ; AC CONTAINS BIT(S) THAT FAILED
8071
8072 043004 SN=SN+1
8073 660660 WW=WW+WW
8074 000004 ZZ=ZZ+1
8075 SETACS (WW,XX)^
8076 036105 201 04 0 00 660660 MOVEI AC-1,WW ;SETUP AC-1
8077 036106 505 04 0 00 660660 HRLI AC-1,WW ;FOR COMPARISION
8078 036107 200 03 0 00 000004 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
8079 036110 201 05 0 00 033033 MOVEI AC,XX ;SETUP AC RIGHT
8080 036111 505 05 0 00 033033 HRLI AC,XX ;SETUP AC LEFT
8081 036112 202 05 0 00 000006 MOVEM AC,<AC+1>&17 ;SETUP AC2^
8082 036113 245 05 0 00 000004 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
8083 036114 430 04 0 00 000005 XOR AC-1,AC ;COMPARE AC
8084 036115 332 00 0 00 000004 SKIPE <AC-1>&17 ;SHOULD = 0
8085 036116 003 05 0 00 043004 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
8086 036117 430 03 0 00 000006 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
8087 036120 332 00 0 00 000003 SKIPE <AC-2>&17 ;SHOULD = 0
8088 036121 004 06 0 00 043004 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
8089 036122 321 07 0 00 036105 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
8090
8091 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 45-3
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0206
8092 000004 AC=4
8093 SAVEAC (1,1)^
8094 036123 201 06 0 00 036123 MOVEI AC+2,. ;SAVE TEST PC
8095 036124 202 06 0 00 030051 MOVEM AC+2,TESTPC
8096 036125 201 06 0 00 000006 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8097 036126 202 06 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8098
8099 043100 SN=43100
8100 660660 WW=660660 ;USED FOR COMPARISON
8101 660660 XX=660660 ;SELECTED PATTERN
8102 000000 ZZ=0
8103
8104 E43100: REPEAT ^D4,< ;ROT RIGHT (110110)-TEST AC,AC+1
8105 ;TEST SELECTED BIT CONFIGURATIONS
8106 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
8107 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
8108 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
8109 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
8110 ; AC-1 CONTAINS BIT(S) THAT FAILED
8111 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
8112 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
8113 ; AC CONTAINS BIT(S) THAT FAILED
8114
8115 SN=SN+1
8116 WW=WW/2
8117 ZZ=ZZ-1
8118 SETACS (WW,XX)
8119 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
8120 XOR AC-1,AC ;COMPARE AC
8121 SKIPE <AC-1>&17 ;SHOULD = 0
8122 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
8123 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
8124 SKIPE <AC-2>&17 ;SHOULD = 0
8125 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
8126 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
8127 >
8128 ;ROT RIGHT (110110)-TEST AC,AC+1
8129 ;TEST SELECTED BIT CONFIGURATIONS
8130 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
8131 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
8132 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
8133 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
8134 ; AC-1 CONTAINS BIT(S) THAT FAILED
8135 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
8136 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
8137 ; AC CONTAINS BIT(S) THAT FAILED
8138
8139 043101 SN=SN+1
8140 330330 WW=WW/2
8141 777777 777777 ZZ=ZZ-1
8142 SETACS (WW,XX)^
8143 036127 201 03 0 00 330330 MOVEI AC-1,WW ;SETUP AC-1
8144 036130 505 03 0 00 330330 HRLI AC-1,WW ;FOR COMPARISION
8145 036131 200 02 0 00 000003 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
8146 036132 201 04 0 00 660660 MOVEI AC,XX ;SETUP AC RIGHT
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 45-4
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0207
8147 036133 505 04 0 00 660660 HRLI AC,XX ;SETUP AC LEFT
8148 036134 202 04 0 00 000005 MOVEM AC,<AC+1>&17 ;SETUP AC2^
8149 036135 245 04 0 00 777777 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
8150 036136 430 03 0 00 000004 XOR AC-1,AC ;COMPARE AC
8151 036137 332 00 0 00 000003 SKIPE <AC-1>&17 ;SHOULD = 0
8152 036140 003 04 0 00 043101 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
8153 036141 430 02 0 00 000005 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
8154 036142 332 00 0 00 000002 SKIPE <AC-2>&17 ;SHOULD = 0
8155 036143 004 05 0 00 043101 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
8156 036144 321 06 0 00 036127 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
8157
8158 ;ROT RIGHT (110110)-TEST AC,AC+1
8159 ;TEST SELECTED BIT CONFIGURATIONS
8160 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
8161 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
8162 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
8163 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
8164 ; AC-1 CONTAINS BIT(S) THAT FAILED
8165 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
8166 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
8167 ; AC CONTAINS BIT(S) THAT FAILED
8168
8169 043102 SN=SN+1
8170 154154 WW=WW/2
8171 777777 777776 ZZ=ZZ-1
8172 SETACS (WW,XX)^
8173 036145 201 03 0 00 154154 MOVEI AC-1,WW ;SETUP AC-1
8174 036146 505 03 0 00 154154 HRLI AC-1,WW ;FOR COMPARISION
8175 036147 200 02 0 00 000003 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
8176 036150 201 04 0 00 660660 MOVEI AC,XX ;SETUP AC RIGHT
8177 036151 505 04 0 00 660660 HRLI AC,XX ;SETUP AC LEFT
8178 036152 202 04 0 00 000005 MOVEM AC,<AC+1>&17 ;SETUP AC2^
8179 036153 245 04 0 00 777776 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
8180 036154 430 03 0 00 000004 XOR AC-1,AC ;COMPARE AC
8181 036155 332 00 0 00 000003 SKIPE <AC-1>&17 ;SHOULD = 0
8182 036156 003 04 0 00 043102 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
8183 036157 430 02 0 00 000005 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
8184 036160 332 00 0 00 000002 SKIPE <AC-2>&17 ;SHOULD = 0
8185 036161 004 05 0 00 043102 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
8186 036162 321 06 0 00 036145 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
8187
8188 ;ROT RIGHT (110110)-TEST AC,AC+1
8189 ;TEST SELECTED BIT CONFIGURATIONS
8190 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
8191 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
8192 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
8193 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
8194 ; AC-1 CONTAINS BIT(S) THAT FAILED
8195 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
8196 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
8197 ; AC CONTAINS BIT(S) THAT FAILED
8198
8199 043103 SN=SN+1
8200 066066 WW=WW/2
8201 777777 777775 ZZ=ZZ-1
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 45-5
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - SUPPLEMENTARY BIT POSITION RELIABILITY TEST SEQ 0208
8202 SETACS (WW,XX)^
8203 036163 201 03 0 00 066066 MOVEI AC-1,WW ;SETUP AC-1
8204 036164 505 03 0 00 066066 HRLI AC-1,WW ;FOR COMPARISION
8205 036165 200 02 0 00 000003 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
8206 036166 201 04 0 00 660660 MOVEI AC,XX ;SETUP AC RIGHT
8207 036167 505 04 0 00 660660 HRLI AC,XX ;SETUP AC LEFT
8208 036170 202 04 0 00 000005 MOVEM AC,<AC+1>&17 ;SETUP AC2^
8209 036171 245 04 0 00 777775 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
8210 036172 430 03 0 00 000004 XOR AC-1,AC ;COMPARE AC
8211 036173 332 00 0 00 000003 SKIPE <AC-1>&17 ;SHOULD = 0
8212 036174 003 04 0 00 043103 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
8213 036175 430 02 0 00 000005 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
8214 036176 332 00 0 00 000002 SKIPE <AC-2>&17 ;SHOULD = 0
8215 036177 004 05 0 00 043103 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
8216 036200 321 06 0 00 036163 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
8217
8218 ;ROT RIGHT (110110)-TEST AC,AC+1
8219 ;TEST SELECTED BIT CONFIGURATIONS
8220 ;TEST ABILITY TO ROTATE SELECTED PATTERNS
8221 ;AC,AC+1 ARE ROTATED LEFT/RIGHT AND TESTED
8222 ;TEST AC-AC-1 IS UTILIZED AS COMPARISON REGISTER
8223 ; ERROR WILL OCCUR IF AC-1 DIFFERS FROM 0
8224 ; AC-1 CONTAINS BIT(S) THAT FAILED
8225 ;TEST AC+1-AC IS UTILIZED AS COMPARISON REGISTER
8226 ; ERROR WILL OCCUR IF AC DIFFERS FROM 0
8227 ; AC CONTAINS BIT(S) THAT FAILED
8228
8229 043104 SN=SN+1
8230 033033 WW=WW/2
8231 777777 777774 ZZ=ZZ-1
8232 SETACS (WW,XX)^
8233 036201 201 03 0 00 033033 MOVEI AC-1,WW ;SETUP AC-1
8234 036202 505 03 0 00 033033 HRLI AC-1,WW ;FOR COMPARISION
8235 036203 200 02 0 00 000003 MOVE AC-2,<AC-1>&17 ;SETUP AC-2 FOR COMPARISON
8236 036204 201 04 0 00 660660 MOVEI AC,XX ;SETUP AC RIGHT
8237 036205 505 04 0 00 660660 HRLI AC,XX ;SETUP AC LEFT
8238 036206 202 04 0 00 000005 MOVEM AC,<AC+1>&17 ;SETUP AC2^
8239 036207 245 04 0 00 777774 ROTC AC,ZZ ;*ROTATE (N) NUMBER OF TIMES
8240 036210 430 03 0 00 000004 XOR AC-1,AC ;COMPARE AC
8241 036211 332 00 0 00 000003 SKIPE <AC-1>&17 ;SHOULD = 0
8242 036212 003 04 0 00 043104 ER3 AC,SN ;AC-1 CONTAINS BIT(S) THAT FAILED
8243 036213 430 02 0 00 000005 XOR AC-2,<AC+1>&17 ;COMPARE AC+1
8244 036214 332 00 0 00 000002 SKIPE <AC-2>&17 ;SHOULD = 0
8245 036215 004 05 0 00 043104 ER4 AC+1,SN ;AC CONTAINS BIT(S) THAT FAILED
8246 036216 321 06 0 00 036201 JUMPL AC+2,.-^D13 ;LOOP ON ERROR SWITCH
8247
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 46
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - ARITHMETIC OVERFLOW FLAG TEST SEQ 0209
8248 SUBTTL DIAGNOSTIC SECTION - ARITHMETIC OVERFLOW FLAG TEST
8249
8250 ;TEST AROV FLAG-ASH,ASHC
8251 ;TEST THE ABILITY OF ASH,ASHC TO
8252 ;SET AROV FLAG
8253 ;TEST (00),(11) FOR SET NOT CONDITION
8254 ;TEST (01),(10) FOR SET CONDITION
8255 ;AN ERROR WILL OCCUR IF FLAG IS
8256 ;SET/SET NOT AS APPROPRIATE
8257
8258 000010 AC=10
8259 SAVEAC (1,1)^
8260 036217 201 12 0 00 036217 MOVEI AC+2,. ;SAVE TEST PC
8261 036220 202 12 0 00 030051 MOVEM AC+2,TESTPC
8262 036221 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8263 036222 202 12 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8264
8265 ;ASH AROV SET NOT (11)
8266 036223 255 10 0 00 036224 E43200: JFCL 10,.+1 ;CLR FLAG EXEC NEXT INST
8267 036224 205 10 0 00 777777 MOVSI AC,-1 ;SET LEFT,CLEAR RIGHT
8268 036225 240 10 0 00 000001 ASH AC,1 ;*SHIFT LEFT ONE
8269 036226 265 06 0 00 036227 JSP AC-2,.+1 ;SAVE FLAGS
8270 036227 255 10 0 00 036231 JFCL 10,.+2 ;TEST FOR SET NOT COND
8271 036230 254 00 0 00 036232 JRST 0,.+2 ;FLAG NOT SET
8272 036231 013 06 0 00 043201 ER13 AC-2,43201 ;FLAG IS SET
8273 036232 321 12 0 00 036223 JUMPL AC+2,E43200 ;LOOP ON ERROR SWITCH
8274
8275 ;ASH AROV SET NOT (00)
8276 036233 255 10 0 00 036234 E43300: JFCL 10,.+1 ;CLR FLAG EXEC NEXT INST
8277 036234 400 10 0 00 000000 SETZ AC, ;CLEAR AC
8278 036235 240 10 0 00 000001 ASH AC,1 ;*SHIFT LEFT ONE
8279 036236 265 06 0 00 036237 JSP AC-2,.+1 ;SAVE FLAGS
8280 036237 255 10 0 00 036241 JFCL 10,.+2 ;TEST FOR SET NOT COND
8281 036240 254 00 0 00 036242 JRST 0,.+2 ;FLAG NOT SET
8282 036241 013 06 0 00 043301 ER13 AC-2,43301 ;FLAG IS SET
8283 036242 321 12 0 00 036233 JUMPL AC+2,E43300 ;LOOP ON ERROR SWITCH
8284 PAGE
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 46-1
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - ARITHMETIC OVERFLOW FLAG TEST SEQ 0210
8285 000007 AC=7
8286 SAVEAC (1,1)^
8287 036243 201 11 0 00 036243 MOVEI AC+2,. ;SAVE TEST PC
8288 036244 202 11 0 00 030051 MOVEM AC+2,TESTPC
8289 036245 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8290 036246 202 11 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8291
8292 ;ASH AROV SET (01)
8293 036247 255 10 0 00 036250 E43400: JFCL 10,.+1 ;CLR FLAG EXEC NEXT INST
8294 036250 205 07 0 00 377777 MOVSI AC,377777 ;CLEAR 0 AND RIGHT HALF
8295 036251 240 07 0 00 000001 ASH AC,1 ;*SHIFT LEFT ONE
8296 036252 265 05 0 00 036253 JSP AC-2,.+1 ;SAVE FLAGS
8297 036253 255 10 0 00 036255 JFCL 10,.+2 ;TEST FOR SET COND
8298 036254 013 05 0 00 043401 ER13 AC-2,43401 ;FLAG IS NOT SET
8299 036255 321 11 0 00 036247 JUMPL AC+2,E43400 ;LOOP ON ERROR SWITCH
8300
8301 ;ASH AROV SET (10)
8302 036256 255 10 0 00 036257 E43500: JFCL 10,.+1 ;CLR FLAG EXEC NEXT INST
8303 036257 205 07 0 00 400000 MOVSI AC,400000 ;SET BIT 0
8304 036260 240 07 0 00 000001 ASH AC,1 ;*SHIFT LEFT ONE
8305 036261 265 05 0 00 036262 JSP AC-2,.+1 ;SAVE FLAGS
8306 036262 255 10 0 00 036264 JFCL 10,.+2 ;TEST FOR SET COND
8307 036263 013 05 0 00 043501 ER13 AC-2,43501 ;FLAG IS NOT SET
8308 036264 321 11 0 00 036256 JUMPL AC+2,E43500 ;LOOP ON ERROR SWITCH
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 47
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - ARITHMETIC OVERFLOW FLAG TEST SEQ 0211
8309 000010 AC=10
8310 SAVEAC (1,1)^
8311 036265 201 12 0 00 036265 MOVEI AC+2,. ;SAVE TEST PC
8312 036266 202 12 0 00 030051 MOVEM AC+2,TESTPC
8313 036267 201 12 0 00 000012 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8314 036270 202 12 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8315
8316 ;ASHC AROV SET NOT (11)
8317 036271 255 10 0 00 036272 E43600: JFCL 10,.+1 ;CLR FLAG EXEC NEXT INST
8318 036272 205 10 0 00 777777 MOVSI AC,-1 ;SET LEFT, CLEAR RIGHT
8319 036273 244 10 0 00 000001 ASHC AC,1 ;*SHIFT LEFT ONE
8320 036274 265 06 0 00 036275 JSP AC-2,.+1 ;SAVE FLAGS
8321 036275 255 10 0 00 036277 JFCL 10,.+2 ;TEST FOR SET NOT COND
8322 036276 254 00 0 00 036300 JRST 0,.+2 ;FLAG NOT SET
8323 036277 013 06 0 00 043601 ER13 AC-2,43601 ;FLAG IS SET
8324 036300 321 12 0 00 036271 JUMPL AC+2,E43600 ;LOOP ON ERROR SWITCH
8325
8326
8327 ;ASHC AROV SET NOT (00)
8328 036301 255 10 0 00 036302 E43700: JFCL 10,.+1 ;CLR FLAG EXEC NEXT INST
8329 036302 400 10 0 00 000000 SETZ AC, ;CLEAR AC
8330 036303 244 10 0 00 000001 ASHC AC,1 ;*SHIFT LEFT ONE
8331 036304 265 06 0 00 036305 JSP AC-2,.+1 ;SAVE FLAGS
8332 036305 255 10 0 00 036307 JFCL 10,.+2 ;TEST FOR SET NOT COND
8333 036306 254 00 0 00 036310 JRST 0,.+2 ;FLAG NOT SET
8334 036307 013 06 0 00 043701 ER13 AC-2,43701 ;FLAG IS SET
8335 036310 321 12 0 00 036301 JUMPL AC+2,E43700 ;LOOP ON ERROR SWITCH
8336
8337 000007 AC=7
8338 SAVEAC (1,1)^
8339 036311 201 11 0 00 036311 MOVEI AC+2,. ;SAVE TEST PC
8340 036312 202 11 0 00 030051 MOVEM AC+2,TESTPC
8341 036313 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8342 036314 202 11 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8343
8344 ;ASHC AROV SET (01)
8345 036315 255 10 0 00 036316 E44000: JFCL 10,.+1 ;CLR FLAG EXEC NEXT INST
8346 036316 205 07 0 00 377777 MOVSI AC,377777 ;CLEAR 0 AND RIGHT HALF
8347 036317 244 07 0 00 000001 ASHC AC,1 ;*SHIFT LEFT ONE
8348 036320 265 05 0 00 036321 JSP AC-2,.+1 ;SAVE FLAGS
8349 036321 255 10 0 00 036323 JFCL 10,.+2 ;TEST FOR SET COND
8350 036322 013 05 0 00 044001 ER13 AC-2,44001 ;FLAG IS NOT SET
8351 036323 321 11 0 00 036315 JUMPL AC+2,E44000 ;LOOP ON ERROR SWITCH
8352
8353 ;ASHC AROV SET (10)
8354 036324 255 10 0 00 036325 E44100: JFCL 10,.+1 ;CLR FLAG EXEC NEXT INST
8355 036325 205 07 0 00 400000 MOVSI AC,400000 ;SET BIT 0
8356 036326 244 07 0 00 000001 ASHC AC,1 ;*SHIFT LEFT ONE
8357 036327 265 05 0 00 036330 JSP AC-2,.+1 ;SAVE FLAGS
8358 036330 255 10 0 00 036332 JFCL 10,.+2 ;TEST FOR SET COND
8359 036331 013 05 0 00 044101 ER13 AC-2,44101 ;FLAG IS NOT SET
8360 036332 321 11 0 00 036324 JUMPL AC+2,E44100 ;LOOP ON ERROR SWITCH
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 48
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - TEST INDEXING, INDIRECT ADDRESSING AND XCT OF ROT SEQ 0212
8361 SUBTTL DIAGNOSTIC SECTION - TEST INDEXING, INDIRECT ADDRESSING AND XCT OF ROT
8362
8363 ;THIS TEST VERIFIES THAT THE ROT INSTRUCTION FUNCTIONS CORRECTLY WHEN IT IS
8364 ;INDEXED. THE NUMBER OF BIT POSITIONS SHIFTED IS EQUAL TO E + C(X),
8365 ;WHERE E IS THE ADDRESS PORTION OF THE INSTRUCTION WORD AND X IS THE INDEX REG.
8366 ;IN THIS CASE, C(AC)=230703,,603700, E=0, X=6 AND C(X)=3;
8367 ;HENCE, THE NET ROTATION SHOULD BE 3 BIT POSITIONS LEFT,
8368 ;AND THE RESULT IN THE AC SHOULD BE 307036,,037002
8369
8370 000007 AC=7
8371 SAVEAC (1,1)^
8372 036333 201 11 0 00 036333 MOVEI AC+2,. ;SAVE TEST PC
8373 036334 202 11 0 00 030051 MOVEM AC+2,TESTPC
8374 036335 201 11 0 00 000011 MOVEI AC+2,<AC+2>&17 ;INFORM ERROR ROUTINE WHICH
8375 036336 202 11 0 00 037007 MOVEM AC+2,ERRLOP# ;AC IS USED FOR ITERATION^
8376
8377 036337 201 06 0 00 000003 E70000: MOVEI 6,3 ;PRELOAD INDEX REG WITH 3
8378 036340 200 07 0 00 036631 MOVE AC,[230703,,603700] ;INITIALIZE AC WITH 230703,,603700
8379 036341 241 07 0 06 000000 ROT AC,(6) ;*ROT C(AC) 3 BIT POSITIONS LEFT
8380 036342 312 07 0 00 036643 CAME AC,[307036,,037002] ;IS RESULT IN AC CORRECT?
8381 036343 003 07 0 00 070001 ER3 AC,70001 ;INDEXING FAILED
8382 036344 321 11 0 00 036337 JUMPL AC+2,E70000 ;LOOP ON ERROR SWITCH
8383
8384 ;THIS TEST VERIFIES THAT THE ROT INSTRUCTION FUNCTIONS CORRECTLY WHEN IT IS
8385 ;INDEXED. THE NUMBER OF BIT POSITIONS SHIFTED IS EQUAL TO E + C(X),
8386 ;WHERE E IS THE ADDRESS PORTION OF THE INSTRUCTION WORD AND X IS THE INDEX REG.
8387 ;IN THIS CASE, C(AC)=230703,,603700, E=4, X=5 AND C(X)=0;
8388 ;HENCE, THE NET ROTATION SHOULD BE 4 BIT POSITIONS LEFT,
8389 ;AND THE RESULT IN THE AC SHOULD BE 616074,,076004.
8390
8391 036345 201 05 0 00 000000 E70100: MOVEI 5,0 ;PRELOAD INDEX REG WITH 0
8392 036346 200 07 0 00 036631 MOVE AC,[230703,,603700] ;INITIALIZE AC WITH 230703,,603700
8393 036347 241 07 0 05 000004 ROT AC,4(5) ;*ROT C(AC) 4 BIT POSITIONS LEFT
8394 036350 312 07 0 00 036665 CAME AC,[616074,,076004] ;IS RESULT IN AC CORRECT?
8395 036351 003 07 0 00 070101 ER3 AC,70101 ;INDEXING FAILED
8396 036352 321 11 0 00 036345 JUMPL AC+2,E70100 ;LOOP ON ERROR SWITCH
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 49
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - TEST INDEXING, INDIRECT ADDRESSING AND XCT OF ROT SEQ 0213
8397 ;THIS TEST VERIFIES THAT THE ROT INSTRUCTION FUNCTIONS CORRECTLY WHEN IT IS
8398 ;INDEXED. THE NUMBER OF BIT POSITIONS SHIFTED IS EQUAL TO E + C(X),
8399 ;WHERE E IS THE ADDRESS PORTION OF THE INSTRUCTION WORD AND X IS THE INDEX REG.
8400 ;IN THIS CASE, C(AC)=230703,,603700, E=16, X=6 AND C(X)=5;
8401 ;HENCE, THE NET ROTATION SHOULD BE 21 BIT POSITIONS LEFT,
8402 ;AND THE RESULT IN THE AC SHOULD BE 407600,,461607.
8403
8404 036353 201 06 0 00 000005 E70200: MOVEI 6,5 ;PRELOAD INDEX REG WITH 5
8405 036354 200 07 0 00 036631 MOVE AC,[230703,,603700] ;INITIALIZE AC WITH 230703,,603700
8406 036355 241 07 0 06 000016 ROT AC,16(6) ;*ROT C(AC) 21 BIT POSITIONS LEFT
8407 036356 312 07 0 00 036666 CAME AC,[407600,,461607] ;IS RESULT IN AC CORRECT?
8408 036357 003 07 0 00 070201 ER3 AC,70201 ;INDEXING FAILED
8409 036360 321 11 0 00 036353 JUMPL AC+2,E70200 ;LOOP ON ERROR SWITCH
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 50
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - TEST INDEXING, INDIRECT ADDRESSING AND XCT OF ROT SEQ 0214
8410 ;THIS TEST VERIFIES THAT THE ROT INSTRUCTION FUNCTIONS CORRECTLY WHEN E IS
8411 ;INDIRECTLY ADDRESSED. THE NUMBER OF BIT POSITIONS SHIFTED IS EQUAL TO C(E),
8412 ;WHERE E IS THE ADDRESS PORTION OF THE INSTRUCTION WORD.
8413 ;IN THIS CASE, C(AC)=230703,,603700, E=6 AND C(E)=35;
8414 ;HENCE, THE NET ROTATION SHOULD BE 35 BIT POSITIONS LEFT,
8415 ;AND THE RESULT IN THE AC SHOULD BE 401143,,417017.
8416
8417 036361 201 06 0 00 000035 E70300: MOVEI 6,35 ;PRELOAD E WITH 35
8418 036362 200 07 0 00 036631 MOVE AC,[230703,,603700] ;INITIALIZE AC WITH 230703,,603700
8419 036363 241 07 1 00 000006 ROT AC,@6 ;*ROT C(AC) 35 BIT POSITIONS LEFT
8420 036364 312 07 0 00 036650 CAME AC,[401143,,417017] ;IS RESULT IN AC CORRECT?
8421 036365 003 07 0 00 070301 ER3 AC,70301 ;INDIRECT ADDRESSING FAILED
8422 036366 321 11 0 00 036367 JUMPL AC+2,E70400 ;LOOP ON ERROR SWITCH
8423
8424 ;THIS TEST VERIFIES THAT THE ROT INSTRUCTION FUNCTIONS CORRECTLY WHEN E IS
8425 ;INDIRECTLY ADDRESSED. THE NUMBER OF BIT POSITIONS SHIFTED IS EQUAL TO THE RIGHT HALF OF C
8426 (E),
8427 ;WHERE E IS THE ADDRESS PORTION OF THE INSTRUCTION WORD.
8428 ;IN THIS CASE, C(AC)=230703,,603700, E=[0,,1] AND C(E)=15;
8429 ;HENCE, THE NET ROTATION SHOULD BE 1 BIT POSITION LEFT,
8430 ;AND THE RESULT IN THE AC SHOULD BE 461607,,407600.
8431
8432 036367 476 00 0 00 000001 E70400: SETOM 1 ;PRELOAD AC1 WITH -1,,-1 IN CASE IND. ADR. FAILS
8433 036370 200 07 0 00 036631 MOVE AC,[230703,,603700] ;INITIALIZE AC WITH 230703,,603700
8434 036371 241 07 1 00 036575 ROT AC,@[0,,1] ;*ROT C(AC) 1 BIT POSITION LEFT
8435 036372 312 07 0 00 036641 CAME AC,[461607,,407600] ;IS RESULT IN AC CORRECT?
8436 036373 003 07 0 00 070401 ER3 AC,70401 ;INDIRECT ADDRESSING FAILED
8437 036374 321 11 0 00 036367 JUMPL AC+2,E70400 ;LOOP ON ERROR SWITCH
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 51
DSKAJ1 MAC 29-Mar-78 09:40 DIAGNOSTIC SECTION - TEST INDEXING, INDIRECT ADDRESSING AND XCT OF ROT SEQ 0215
8438 ;THIS TEST VERIFIES THAT THE ROT INSTRUCTION FUNCTIONS CORRECTLY WHEN IT IS
8439 ;EXECUTED BY AN XCT INSTRUCTION.
8440 ;IN THIS CASE, C(AC)=230703,,603700 AND E=2.
8441 ;HENCE, THE NET ROTATION SHOULD BE 2 BIT POSITIONS LEFT,
8442 ;AND THE RESULT IN THE AC SHOULD BE 143417,,017401.
8443
8444 036375 200 07 0 00 036631 E70500: MOVE AC,[230703,,603700] ;INITIALIZE AC WITH 230703,,603700
8445 036376 256 00 0 00 036667 XCT [ROT AC,2] ;*XCT SHOULD ROT C(AC) 2 BIT POSITIONS LEFT
8446 036377 312 07 0 00 036642 CAME AC,[143417,,017401] ;IS RESULT IN AC CORRECT?
8447 036400 003 07 0 00 070501 ER3 AC,70501 ;XCT OF ROT FAILED
8448 036401 321 11 0 00 036375 JUMPL AC+2,E70500 ;LOOP ON ERROR SWITCH
8449
8450 036402 254 00 0 00 030057 JRST BEGEND
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 1
UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0216
8451 SUBTTL *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978
8452
8453 ;THIS SUBROUTINE PROVIDES ERROR REPORTING THRU THE USE OF UUO'S.
8454
8455 036403 202 00 0 00 037013 ERRMES: MOVEM 0,%ERAC0# ;SAVE AC0
8456 036404 202 01 0 00 037014 MOVEM 1,%ERAC1# ;SAVE AC1
8457 036405 202 02 0 00 037015 MOVEM 2,%ERAC2# ;SAVE AC2
8458 036406 350 00 0 00 030053 AOS ERRTLS ;INCREMENT ERROR TOTALS
8459 036407 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO
8460 036410 316 00 0 00 030052 CAMN 0,ERRPC ;PC = PC OF LAST ERROR ?
8461 036411 350 00 0 00 037010 AOS MICNT# ;YES, ADD 1 TO ERROR COUNT
8462 036412 200 00 0 00 037010 MOVE 0,MICNT
8463 036413 504 00 0 00 030114 HRL 0,$SVUPC
8464 036414 402 00 0 00 037011 SETZM PROCED# ;CLEAR PROCEED FLAG
8465 036415 037 10 0 00 000002 SWITCH
8466 036416 603 00 0 00 040000 TLNE NOPNT ;PRINTOUT ?
8467 036417 254 00 0 00 036531 JRST %ERRS1 ;NO, RESTORE AC'S AND RETURN
8468 036420 200 01 0 00 030113 MOVE 1,$SVUUO
8469 036421 242 01 0 00 777745 LSH 1,-^D27
8470 036422 202 01 0 00 037012 MOVEM 1,%ACS1A# ;SAVE UUO NUMBER
8471 036423 200 00 0 00 037013 MOVE 0,%ERAC0
8472 036424 200 01 0 00 037014 MOVE 1,%ERAC1
8473 036425 335 00 1 00 037007 SKIPGE @ERRLOP ;ERR LOOP AC > OR = 0 ?
8474 036426 254 00 0 00 036563 JRST %ERRS4 ;NO, SEE IF PRINT ALL
8475 036427 402 00 0 00 037010 %ERMS1: SETZM MICNT ;CLEAR ERROR COUNT
8476 036430 331 00 0 00 030043 SKIPL MONCTL ;DIAG MON OR SYS EXER ?
8477 036431 254 00 0 00 036435 JRST .+4 ;NO, DON'T NEED TITLE
8478 036432 336 00 0 00 037016 SKIPN %ERFST# ;FIRST ERROR ?
8479 036433 037 04 0 00 000002 PNTNM ;YES, PRINT PROGRAM TITLE
8480 036434 476 00 0 00 037016 SETOM %ERFST
8481 036435 336 00 0 00 030047 SKIPN PASCNT ;FIRST PASS ?
8482 036436 254 00 0 00 036442 JRST .+4 ;YES
8483 PMSG <^TEST PASS COUNT = >^
8484 036437 037 02 0 00 036670 PSIXM [SIXBIT\^TEST PASS COUNT = _\]^
8485 036440 200 00 0 00 030047 MOVE PASCNT
8486 036441 037 15 0 00 000000 PNTDEC
8487 PMSG <^PC = >^
8488 036442 037 02 0 00 036674 PSIXM [SIXBIT\^PC = _\]^
8489 036443 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO
8490 036444 202 00 0 00 030052 MOVEM 0,ERRPC ;SAVE FOR COMPARE
8491 036445 037 06 0 00 000000 PNT6 ;PRINT UUO ADDRESS
8492 XLIST
8493 IFDEF ERDIAG,<LIST
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 2
UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0217
8494 ;DIAGNOSTIC FORMAT ERROR PRINTER
8495
8496 ;PRINT RESULT
8497
8498 036446 %ERMS2: PMSG <^RESULT = >^
8499 036446 037 02 0 00 036676 PSIXM [SIXBIT\^RESULT = _\]^
8500 036447 200 01 0 00 030113 MOVE 1,$SVUUO ;GET AC # OF UUO
8501 036450 242 01 0 00 777751 LSH 1,-27
8502 036451 405 01 0 00 000017 ANDI 1,17
8503 036452 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC)
8504 036453 307 01 0 00 000001 CAIG 1,1 ;IS AC # = TO SAVE AC ?
8505 036454 200 00 0 01 037013 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC
8506 036455 037 13 0 00 000000 PNTHW ;PRINT C(AC)
8507
8508 036456 200 00 0 00 030046 MOVE CONSW
8509 036457 603 00 0 00 000200 TLNE TXTINH ;PRINT FAILURE DES AND FLT NBR ?
8510 036460 254 00 0 00 036527 JRST %ERMORE ;NO, RESTORE AC'S ETC.
8511
8512 ;PRINT FAILURE DESCRIPTOR
8513
8514 036461 200 01 0 00 037012 MOVE 1,%ACS1A ;GET UUO NUMBER
8515 036462 307 01 0 00 000001 CAIG 1,1 ;PRINT DESCRIPTOR ?
8516 036463 254 00 0 00 036467 JRST %ERMS3 ;NO, JUST PRINT FAULT NUMBER
8517 036464 037 00 0 00 030242 PCRL
8518 036465 200 00 0 01 036513 MOVE %FLTTB(1)
8519 036466 037 17 0 00 000000 PNTAL ;PRINT FAULT DESCRIPTOR
8520
8521 ;PRINT FAULT NUMBER
8522
8523 036467 %ERMS3: PMSG <^FAULT NUMBER = >^
8524 036467 037 02 0 00 036700 PSIXM [SIXBIT\^FAULT NUMBER = _\]^
8525 036470 201 00 0 00 036512 MOVEI TLET
8526 036471 037 00 0 00 000000 PNTA ;PRINT TEST LETTER
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 3
UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0218
8527
8528 036472 550 00 0 00 030113 HRRZ $SVUUO
8529 036473 602 00 0 00 700000 TRNE 700000
8530 036474 254 00 0 00 036510 JRST %ER6X
8531 036475 602 00 0 00 070000 TRNE 070000
8532 036476 254 00 0 00 036506 JRST %ER5X
8533 036477 602 00 0 00 007000 TRNE 007000
8534 036500 254 00 0 00 036504 JRST %ER4X
8535 036501 037 03 0 00 000000 PNT3 ;PRINT FAULT NUMBER
8536 036502 037 00 0 00 030242 %ER7X: PCRL
8537 036503 254 00 0 00 036527 JRST %ERMORE
8538
8539 036504 037 04 0 00 000000 %ER4X: PNT4
8540 036505 254 00 0 00 036502 JRST %ER7X
8541 036506 037 05 0 00 000000 %ER5X: PNT5
8542 036507 254 00 0 00 036502 JRST %ER7X
8543 036510 037 06 0 00 000000 %ER6X: PNT6
8544 036511 254 00 0 00 036502 JRST %ER7X
8545
8546 ;FAILURE DESCRIPTORS
8547
8548 036512 000000 000000 TLET: 0 ;TEST LETTER
8549 036513 000000 000000 %FLTTB: 0 ;DESCRIPTOR TABLE
8550 036514 000000 036574 %NODES: [0] ;NO DESCRIPTOR
8551 036515 000000 036574 SPDES: [0] ;SPECIAL USER FAILURE DESCRIPTOR
8552 036516 000000 036703 $ACF: [ASCIZ/C(AC) FAILED/]
8553 036517 000000 036706 %AC1F: [ASCIZ/C(AC+1) FAILED/]
8554 036520 000000 036711 %EF: [ASCIZ/C(E) FAILED/]
8555 036521 000000 036714 %E1F: [ASCIZ/C(E+1) FAILED/]
8556 036522 000000 036717 %ARF: [ASCIZ/C(C(ACR)) FAILED/]
8557 036523 000000 036723 %AR1F: [ASCIZ/C(C(ACR+1)) FAILED/]
8558 036524 000000 036727 %ALF: [ASCIZ/C(C(ACL)) FAILED/]
8559 036525 000000 036733 %EEF: [ASCIZ/C(C(E)) FAILED/]
8560 036526 000000 036736 %FF: [ASCIZ/FLAG FAILED/]
8561 >
8562 XLIST
8563 LIST
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 8
UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0219
8564 ;RESTORE AC'S AND RETURN OR HALT
8565
8566 036527 256 00 0 00 030101 %ERMORE:XCT ERMORE
8567 036530 037 10 0 00 000002 SWITCH
8568
8569 036531 037 07 0 00 000003 %ERRS1: TTALTM ;ALTMODE CHECK
8570 036532 254 00 0 00 036536 JRST .+4 ;NONE
8571 036533 201 00 0 00 036536 MOVEI .+3 ;SAVE CONT ADDRESS
8572 036534 202 00 0 00 000130 MOVEM JOBOPC
8573 036535 254 00 1 00 030063 JRST @ALTMGO ;PERFORM TRANSFER
8574 036536 200 00 0 00 030046 MOVE CONSW
8575 036537 603 00 0 00 002000 TLNE 0,ERSTOP ;HALT ON ERROR SWITCH SET ?
8576 036540 037 14 0 00 000004 ERRHLT ;YES
8577 036541 607 00 0 00 004000 TLNN 0,LOOPER ;LOOP ON ERROR SWITCH SET ?
8578 036542 476 00 0 00 037011 SETOM PROCED ;NO, SET THE PROCEED FLAG
8579 036543 603 00 0 00 010000 TLNE 0,DING ;RING BELL SWITCH SET ?
8580 036544 037 01 0 00 000007 PBELL ;YES, GO RING BELL
8581
8582 036545 200 02 0 00 037015 %ERRS2: MOVE 2,%ERAC2 ;RESTORE AC'S
8583 036546 200 01 0 00 037014 MOVE 1,%ERAC1
8584 036547 476 00 1 00 037007 SETOM @ERRLOP ;SET C(ERR LOOP AC) TO -1
8585 036550 336 00 0 00 037011 SKIPN PROCED ;LOOP ON ERROR ?
8586 036551 254 00 0 00 036561 JRST %ERRS5 ;YES
8587 036552 350 00 1 00 037007 AOS @ERRLOP ;NO, INC C(ERR LOOP AC)
8588 036553 350 00 1 00 037007 AOS @ERRLOP ;SO IT ='S 1
8589 036554 331 00 0 00 030043 SKIPL MONCTL ;UNDER DIAGNOSTIC MONITOR ?
8590 036555 254 00 0 00 036561 JRST %ERRS5 ;NO, CONTINUE PROGRAM
8591 036556 200 00 0 00 030053 MOVE 0,ERRTLS ;YES
8592 036557 301 00 0 00 000024 CAIL 0,^D20 ;PRINTED ALLOWED ERRORS ?
8593 036560 254 00 0 00 036567 JRST %ERRS6
8594
8595 036561 200 00 0 00 037013 %ERRS5: MOVE 0,%ERAC0 ;NO, CONTINUE PROGRAM
8596 036562 254 00 0 00 030065 JRST UUOEXT
8597
8598 036563 200 00 0 00 030046 %ERRS4: MOVE 0,CONSW
8599 036564 607 00 0 00 001000 TLNN PALERS ;PRINT ALL ERRORS ?
8600 036565 254 00 0 00 036531 JRST %ERRS1 ;NO
8601 036566 254 00 0 00 036427 JRST %ERMS1 ;YES
8602
8603 036567 %ERRS6: PMSGF <^EXCEEDED ALLOWED ERRORS^>^
8604 036567 037 04 0 00 036741 PSIXMF [SIXBIT\^EXCEEDED ALLOWED ERRORS^_\]^
8605 036570 254 00 0 00 030061 JRST $BEND2
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 1
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0220
8606 SUBTTL *STOR* RESERVED STORAGE, MARCH 1978
8607
8608 ;PROGRAM LITERALS
8609
8610 XLIST
8611 IFNDEF $LPAPER,<LIST>
8612 036571 LIT
8613 036571 101 112 000 000 000
8614 036572 777777 777777
8615 036573 777777 777776
8616 036574 000000 000000
8617 036575 000000 000001
8618 036576 000000 000002
8619 036577 777777 777774
8620 036600 100000 000000
8621 036601 200000 000000
8622 036602 677777 777777
8623 036603 577777 777776
8624 036604 400000 000000
8625 036605 577777 777777
8626 036606 377777 777776
8627 036607 377777 777777
8628 036610 777777 777775
8629 036611 177777 777777
8630 036612 000000 000004
8631 036613 777777 777773
8632 036614 377777 777775
8633 036615 000000 000010
8634 036616 777777 777767
8635 036617 177777 777775
8636 036620 177777 777776
8637 036621 600000 000000
8638 036622 700000 000000
8639 036623 077777 777777
8640 036624 252525 252525
8641 036625 741703 607417
8642 036626 525252 525252
8643 036627 146314 631463
8644 036630 631463 146314
8645 036631 230703 603700
8646 036632 700230 703603
8647 036633 740114 341701
8648 036634 370023 070360
8649 036635 017401 143417
8650 036636 036037 002307
8651 036637 011434 170174
8652 036640 600461 607407
8653 036641 461607 407600
8654 036642 143417 017401
8655 036643 307036 037002
8656 036644 434170 174011
8657 036645 703603 700230
8658 036646 701740 114341
8659 036647 023070 360370
8660 036650 401143 417017
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 1-1
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0221
8661 036651 114341 701740
8662 036652 770037 600377
8663 036653 374017 700177
8664 036654 514341 701740
8665 036655 760077 400776
8666 036656 461607 407601
8667 036657 700376 003772
8668 036660 307036 037007
8669 036661 077003 760037
8670 036662 723070 360370
8671 036663 037401 770017
8672 036664 751434 170174
8673 036665 616074 076004
8674 036666 407600 461607
8675 036667 241 07 0 00 000002
8676 036670 76 64 45 63 64 00
8677 036671 60 41 63 63 00 43
8678 036672 57 65 56 64 00 35
8679 036673 00 77 00 00 00 00
8680 036674 76 60 43 00 35 00
8681 036675 00 00 77 00 00 00
8682 036676 76 62 45 63 65 54
8683 036677 64 00 00 35 00 77
8684 036700 76 46 41 65 54 64
8685 036701 00 56 65 55 42 45
8686 036702 62 00 35 00 77 00
8687 036703 103 050 101 103 051
8688 036704 040 106 101 111 114
8689 036705 105 104 000 000 000
8690 036706 103 050 101 103 053
8691 036707 061 051 040 106 101
8692 036710 111 114 105 104 000
8693 036711 103 050 105 051 040
8694 036712 106 101 111 114 105
8695 036713 104 000 000 000 000
8696 036714 103 050 105 053 061
8697 036715 051 040 106 101 111
8698 036716 114 105 104 000 000
8699 036717 103 050 103 050 101
8700 036720 103 122 051 051 040
8701 036721 106 101 111 114 105
8702 036722 104 000 000 000 000
8703 036723 103 050 103 050 101
8704 036724 103 122 053 061 051
8705 036725 051 040 106 101 111
8706 036726 114 105 104 000 000
8707 036727 103 050 103 050 101
8708 036730 103 114 051 051 040
8709 036731 106 101 111 114 105
8710 036732 104 000 000 000 000
8711 036733 103 050 103 050 105
8712 036734 051 051 040 106 101
8713 036735 111 114 105 104 000
8714 036736 106 114 101 107 040
8715 036737 106 101 111 114 105
DSKAJ DECSYSTEM 2020 BASIC INSTRUCTION DIAGNOSTIC (10) 0,1 MACRO %53(1020) 10:33 29-Mar-78 Page 1-2
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0222
8716 036740 104 000 000 000 000
8717 036741 76 45 70 43 45 45
8718 036742 44 45 44 00 41 54
8719 036743 54 57 67 45 44 00
8720 036744 45 62 62 57 62 63
8721 036745 76 77 00 00 00 00
8722 LIST
8723 036746 000000 000000 ENDSLD: 0
8724
8725 IFDEF DEBUG,<
8726 036747 PATCH: BLOCK DEBUG ;PATCHING AREA
8727 >
8728
8729 ;PROGRAM VARIABLES
8730 037007 VAR
8731
8732 IFDEF PGMEND,<
8733 037017 000000 000000 END: 0
8734 030000 END BEGIN >
NO ERRORS DETECTED
PROGRAM BREAK IS 000000
ABSOLUTE BREAK IS 037020
CPU TIME USED 00:28.557
24P CORE USED
ABORT 145#
AC 766# 768 769 770 771 797 798 799 800 801 802 803 804 815 SEQ 0223
816 817 818 819 820 821 822 833 834 835 836 837 838 839
840 851 852 853 854 855 856 857 858 869 870 871 872 873
874 875 876 887 888 889 890 891 892 893 894 905 906 907
908 909 910 911 912 923 924 925 926 927 928 929 930 941
942 943 944 945 946 947 948 959 960 961 962 963 964 965
966 977 978 979 980 981 982 983 984 995 996 997 998 999
1000 1001 1002 1013 1014 1015 1016 1017 1018 1019 1020 1031 1032 1033
1034 1035 1036 1037 1038 1049 1050 1051 1052 1053 1054 1055 1056 1067
1068 1069 1070 1071 1072 1073 1074 1085 1086 1087 1088 1089 1090 1091
1092 1103 1104 1105 1106 1107 1108 1109 1110 1121 1122 1123 1124 1125
1126 1127 1128 1139 1140 1141 1142 1143 1144 1145 1146 1157 1158 1159
1160 1161 1162 1163 1164 1175 1176 1177 1178 1179 1180 1181 1182 1193
1194 1195 1196 1197 1198 1199 1200 1211 1212 1213 1214 1215 1216 1217
1218 1229 1230 1231 1232 1233 1234 1235 1236 1247 1248 1249 1250 1251
1252 1253 1254 1265 1266 1267 1268 1269 1270 1271 1272 1283 1284 1285
1286 1287 1288 1289 1290 1301 1302 1303 1304 1305 1306 1307 1308 1319
1320 1321 1322 1323 1324 1325 1326 1337 1338 1339 1340 1341 1342 1343
1344 1355 1356 1357 1358 1359 1360 1361 1362 1373 1374 1375 1376 1377
1378 1379 1380 1391 1392 1393 1394 1395 1396 1397 1398 1409 1410 1411
1412 1413 1414 1415 1416 1427 1428 1429 1430 1431 1432 1433 1434 1445
1446 1447 1448 1449 1450 1451 1452 1463 1464 1465 1466 1467 1468 1469
1470 1481 1482 1483 1484 1485 1486 1487 1488 1499 1500 1501 1502 1503
1504 1505 1506 1517 1518 1519 1520 1521 1522 1523 1524 1535 1536 1537
1538 1539 1540 1541 1542 1553 1554 1555 1556 1557 1558 1559 1560 1571
1572 1573 1574 1575 1576 1577 1578 1606 1607 1608 1609 1610 1611 1612
1613 1624 1625 1626 1627 1628 1629 1630 1631 1642 1643 1644 1645 1646
1647 1648 1649 1660 1661 1662 1663 1664 1665 1666 1667 1678 1679 1680
1681 1682 1683 1684 1685 1697 1698 1699 1700 1701 1702 1703 1704 1716
1717 1718 1719 1720 1721 1722 1723 1734 1735 1736 1737 1738 1739 1740
1741 1752 1753 1754 1755 1756 1757 1758 1759 1770 1771 1772 1773 1774
1775 1776 1777 1788 1789 1790 1791 1792 1793 1794 1795 1806 1807 1808
1809 1810 1811 1812 1813 1824 1825 1826 1827 1828 1829 1830 1831 1842
1843 1844 1845 1846 1847 1848 1849 1860 1861 1862 1863 1864 1865 1866
1867 1878 1879 1880 1881 1882 1883 1884 1885 1896 1897 1898 1899 1900
1901 1902 1903 1914 1915 1916 1917 1918 1919 1920 1921 1932 1933 1934
1935 1936 1937 1938 1939 1950 1951 1952 1953 1954 1955 1956 1957 1968
1969 1970 1971 1972 1973 1974 1975 1986 1987 1988 1989 1990 1991 1992
1993 2004 2005 2006 2007 2008 2009 2010 2011 2022 2023 2024 2025 2026
2027 2028 2029 2040 2041 2042 2043 2044 2045 2046 2047 2058 2059 2060
2061 2062 2063 2064 2065 2076 2077 2078 2079 2080 2081 2082 2083 2094
2095 2096 2097 2098 2099 2100 2101 2112 2113 2114 2115 2116 2117 2118
2119 2130 2131 2132 2133 2134 2135 2136 2137 2148 2149 2150 2151 2152
2153 2154 2155 2166 2167 2168 2169 2170 2171 2172 2173 2184 2185 2186
2187 2188 2189 2190 2191 2202 2203 2204 2205 2206 2207 2208 2209 2220
2221 2222 2223 2224 2225 2226 2227 2238 2239 2240 2241 2242 2243 2244
2245 2256 2257 2258 2259 2260 2261 2262 2263 2274 2275 2276 2277 2278
2279 2280 2281 2292 2293 2294 2295 2296 2297 2298 2299 2310 2311 2312
2313 2314 2315 2316 2317 2328 2329 2330 2331 2332 2333 2334 2335 2346
2347 2348 2349 2350 2351 2352 2353 2364 2365 2366 2367 2368 2369 2370
2371 2382 2383 2384 2385 2386 2387 2388 2389 2400 2401 2402 2403 2404
2405 2406 2407 2418 2419 2420 2421 2422 2423 2424 2425 2436 2437 2438
2439 2440 2441 2442 2443 2453 2454 2455 2456 2457 2458 2459 2460 2469
2470 2471 2472 2473 2474 2475 2476 2485 2486 2487 2488 2489 2490 2491 SEQ 0224
2492 2501 2502 2503 2504 2505 2506 2507 2508 2517 2518 2519 2520 2521
2522 2523 2524 2533 2534 2535 2536 2537 2538 2539 2540 2550 2551 2552
2553 2554 2555 2556 2557 2567 2568 2569 2570 2571 2572 2573 2574 2584
2585 2586 2587 2588 2589 2590 2591 2601 2602 2603 2604 2605 2606 2607
2608 2618 2619 2620 2621 2622 2623 2624 2625 2635 2636 2637 2638 2639
2640 2641 2642 2645# 2647 2648 2649 2650 2691 2692 2693 2694 2695 2696
2697 2713 2714 2715 2716 2717 2718 2719 2735 2736 2737 2738 2739 2740
2741 2754# 2756 2757 2758 2759 2761 2762 2763 2764 2765 2766 2769 2770
2771 2772 2773 2776 2777 2778 2779 2780 2781# 2783 2784 2785 2786 2823
2824 2825 2826 2827 2842 2843 2844 2845 2846 2861 2862 2863 2864 2865
2880 2881 2882 2883 2884 2899 2900 2901 2902 2903 2918 2919 2920 2921
2922 2937 2938 2939 2940 2941 2956 2957 2958 2959 2960 2962# 2964 2965
2966 2967 3006 3007 3008 3009 3010 3011 3026 3027 3028 3029 3030 3031
3046 3047 3048 3049 3050 3051 3066 3067 3068 3069 3070 3071 3086 3087
3088 3089 3090 3091 3106 3107 3108 3109 3110 3111 3123# 3125 3126 3127
3128 3131 3132 3133 3134 3135 3136 3139 3140 3141 3142 3143 3144 3145#
3147 3148 3149 3150 3187 3188 3189 3190 3191 3206 3207 3208 3209 3210
3225 3226 3227 3228 3229 3244 3245 3246 3247 3248 3263 3264 3265 3266
3267 3282 3283 3284 3285 3286 3301 3302 3303 3304 3305 3320 3321 3322
3323 3324 3360 3361 3362 3363 3364 3378 3379 3380 3381 3382 3396 3397
3398 3399 3400 3414 3415 3416 3417 3418 3432 3433 3434 3435 3436 3450
3451 3452 3453 3454 3468 3469 3470 3471 3472 3474# 3476 3477 3478 3479
3519 3520 3521 3522 3523 3539 3540 3541 3542 3543 3559 3560 3561 3562
3563 3579 3580 3581 3582 3583 3599 3600 3601 3602 3603 3646 3647 3648
3649 3650 3651 3668 3669 3670 3671 3672 3673 3690 3691 3692 3693 3694
3695 3712 3713 3714 3715 3716 3717 3734 3735 3736 3737 3738 3739 3756
3757 3758 3759 3760 3761 3802 3803 3804 3805 3806 3823 3824 3825 3826
3827 3844 3845 3846 3847 3848 3865 3866 3867 3868 3869 3886 3887 3888
3889 3890 3907 3908 3909 3910 3911 3954 3955 3956 3957 3958 3959 3976
3977 3978 3979 3980 3981 3998 3999 4000 4001 4002 4003 4020 4021 4022
4023 4024 4025 4042 4043 4044 4045 4046 4047 4064 4065 4066 4067 4068
4069 4080 4081 4082 4083 4084 4085 4086 4087 4096 4097 4098 4099 4100
4101 4102 4103 4112 4113 4114 4115 4116 4117 4118 4119 4128 4129 4130
4131 4132 4133 4134 4135 4144 4145 4146 4147 4148 4149 4150 4151 4160
4161 4162 4163 4164 4165 4166 4167 4176 4177 4178 4179 4180 4181 4182
4183 4192 4193 4194 4195 4196 4197 4198 4199 4208 4209 4210 4211 4212
4213 4214 4215 4224 4225 4226 4227 4228 4229 4230 4231 4240 4241 4242
4243 4244 4245 4246 4247 4256 4257 4258 4259 4260 4261 4262 4263 4271
4272 4273 4274 4275 4276 4277 4278 4287 4288 4289 4290 4291 4292 4293
4294 4303 4304 4305 4306 4307 4308 4309 4310 4319 4320 4321 4322 4323
4324 4325 4326 4359 4360 4361 4362 4363 4364 4365 4366 4375 4376 4377
4378 4379 4380 4381 4382 4391 4392 4393 4394 4395 4396 4397 4398 4411
4412 4413 4414 4415 4416 4417 4418 4427 4428 4429 4430 4431 4432 4433
4434 4443 4444 4445 4446 4447 4448 4449 4450 4463 4464 4465 4466 4467
4468 4469 4470 4479 4480 4481 4482 4483 4484 4485 4486 4495 4496 4497
4498 4499 4500 4501 4502 4515 4516 4517 4518 4519 4520 4521 4522 4531
4532 4533 4534 4535 4536 4537 4538 4547 4548 4549 4550 4551 4552 4553
4554 4567 4568 4569 4570 4571 4572 4573 4574 4583 4584 4585 4586 4587
4588 4589 4590 4599 4600 4601 4602 4603 4604 4605 4606 4619 4620 4621
4622 4623 4624 4625 4626 4635 4636 4637 4638 4639 4640 4641 4642 4651
4652 4653 4654 4655 4656 4657 4658 4671 4672 4673 4674 4675 4676 4677
4678 4687 4688 4689 4690 4691 4692 4693 4694 4703 4704 4705 4706 4707
4708 4709 4710 4723 4724 4725 4726 4727 4728 4729 4730 4739 4740 4741 SEQ 0225
4742 4743 4744 4745 4746 4755 4756 4757 4758 4759 4760 4761 4762 4775
4776 4777 4778 4779 4780 4781 4782 4791 4792 4793 4794 4795 4796 4797
4798 4807 4808 4809 4810 4811 4812 4813 4814 4827 4828 4829 4830 4831
4832 4833 4834 4843 4844 4845 4846 4847 4848 4849 4850 4859 4860 4861
4862 4863 4864 4865 4866 4879 4880 4881 4882 4883 4884 4885 4886 4895
4896 4897 4898 4899 4900 4901 4902 4911 4912 4913 4914 4915 4916 4917
4918 4931 4932 4933 4934 4935 4936 4937 4938 4947 4948 4949 4950 4951
4952 4953 4954 4963 4964 4965 4966 4967 4968 4969 4970 4983 4984 4985
4986 4987 4988 4989 4990 4999 5000 5001 5002 5003 5004 5005 5006 5015
5016 5017 5018 5019 5020 5021 5022 5035 5036 5037 5038 5039 5040 5041
5042 5051 5052 5053 5054 5055 5056 5057 5058 5067 5068 5069 5070 5071
5072 5073 5074 5087 5088 5089 5090 5091 5092 5093 5094 5103 5104 5105
5106 5107 5108 5109 5110 5119 5120 5121 5122 5123 5124 5125 5126 5142
5143 5144 5145 5146 5147 5148 5149 5159 5160 5161 5162 5163 5164 5165
5166 5177 5178 5179 5180 5181 5182 5183 5184 5231 5232 5233 5234 5235
5236 5237 5238 5248 5249 5250 5251 5252 5253 5254 5255 5266 5267 5268
5269 5270 5271 5272 5273 5286 5287 5288 5289 5290 5291 5292 5293 5303
5304 5305 5306 5307 5308 5309 5310 5321 5322 5323 5324 5325 5326 5327
5328 5342 5343 5344 5345 5346 5347 5348 5349 5359 5360 5361 5362 5363
5364 5365 5366 5377 5378 5379 5380 5381 5382 5383 5384 5397 5398 5399
5400 5401 5402 5403 5404 5414 5415 5416 5417 5418 5419 5420 5421 5432
5433 5434 5435 5436 5437 5438 5439 5453 5454 5455 5456 5457 5458 5459
5460 5470 5471 5472 5473 5474 5475 5476 5477 5488 5489 5490 5491 5492
5493 5494 5495 5508 5509 5510 5511 5512 5513 5514 5515 5525 5526 5527
5528 5529 5530 5531 5532 5543 5544 5545 5546 5547 5548 5549 5550 5564
5565 5566 5567 5568 5569 5570 5571 5581 5582 5583 5584 5585 5586 5587
5588 5599 5600 5601 5602 5603 5604 5605 5606 5619 5620 5621 5622 5623
5624 5625 5626 5636 5637 5638 5639 5640 5641 5642 5643 5654 5655 5656
5657 5658 5659 5660 5661 5675 5676 5677 5678 5679 5680 5681 5682 5692
5693 5694 5695 5696 5697 5698 5699 5710 5711 5712 5713 5714 5715 5716
5717 5730 5731 5732 5733 5734 5735 5736 5737 5747 5748 5749 5750 5751
5752 5753 5754 5765 5766 5767 5768 5769 5770 5771 5772 5786 5787 5788
5789 5790 5791 5792 5793 5803 5804 5805 5806 5807 5808 5809 5810 5821
5822 5823 5824 5825 5826 5827 5828 5841 5842 5843 5844 5845 5846 5847
5848 5858 5859 5860 5861 5862 5863 5864 5865 5876 5877 5878 5879 5880
5881 5882 5883 5897 5898 5899 5900 5901 5902 5903 5904 5914 5915 5916
5917 5918 5919 5920 5921 5932 5933 5934 5935 5936 5937 5938 5939 5952
5953 5954 5955 5956 5957 5958 5959 5969 5970 5971 5972 5973 5974 5975
5976 5987 5988 5989 5990 5991 5992 5993 5994 6003 6004 6005 6006 6007
6008 6009 6010 6019 6020 6021 6022 6023 6024 6025 6026 6036 6037 6038
6039 6040 6041 6042 6043 6053 6054 6055 6056 6057 6058 6059 6060 6069
6070 6071 6072 6073 6074 6075 6076 6086 6087 6088 6089 6090 6091 6092
6093 6103 6104 6105 6106 6107 6108 6109 6110 6120 6121 6122 6123 6124
6125 6126 6127 6137 6138 6139 6140 6141 6142 6143 6144 6154 6155 6156
6157 6158 6159 6160 6161 6171 6172 6173 6174 6175 6176 6177 6178 6188
6189 6190 6191 6192 6193 6194 6195 6205 6206 6207 6208 6209 6210 6211
6212 6221 6222 6223 6224 6225 6226 6227 6228 6239 6240 6241 6242 6243
6244 6245 6246 6262# 6271 6271# 6272 6273 6276 6276# 6277 6278 6281 6281#
6282 6283 6286 6286# 6287 6288 6291 6291# 6292 6293 6296 6296# 6297 6298
6301 6301# 6302 6303 6306# 6308 6309 6310 6311 6314# 6357 6357# 6358 6359
6360 6361 6362 6363 6381 6381# 6382 6383 6384 6385 6386 6387 6405 6405#
6406 6407 6408 6409 6410 6411 6429 6429# 6430 6431 6432 6433 6434 6435
6453 6453# 6454 6455 6456 6457 6458 6459 6461# 6463 6464 6465 6466 6469# SEQ 0226
6512 6512# 6513 6514 6515 6516 6517 6518 6536 6536# 6537 6538 6539 6540
6541 6542 6560 6560# 6561 6562 6563 6564 6565 6566 6584 6584# 6585 6586
6587 6588 6589 6590 6608 6608# 6609 6610 6611 6612 6613 6614 6618# 6620
6621 6622 6623 6626# 6669 6669# 6670 6671 6672 6673 6674 6675 6693 6693#
6694 6695 6696 6697 6698 6699 6717 6717# 6718 6719 6720 6721 6722 6723
6741 6741# 6742 6743 6744 6745 6746 6747 6765 6765# 6766 6767 6768 6769
6770 6771 6803# 6805 6806 6807 6808 6854 6855 6856 6857 6858 6859 6860
6861 6862 6863 6864 6865 6866 6867 6884 6885 6886 6887 6888 6889 6890
6891 6892 6893 6894 6895 6896 6897 6914 6915 6916 6917 6918 6919 6920
6921 6922 6923 6924 6925 6926 6927 6944 6945 6946 6947 6948 6949 6950
6951 6952 6953 6954 6955 6956 6957 6960# 6962 6963 6964 6965 7011 7012
7013 7014 7015 7016 7017 7018 7019 7020 7021 7022 7023 7024 7041 7042
7043 7044 7045 7046 7047 7048 7049 7050 7051 7052 7053 7054 7071 7072
7073 7074 7075 7076 7077 7078 7079 7080 7081 7082 7083 7084 7101 7102
7103 7104 7105 7106 7107 7108 7109 7110 7111 7112 7113 7114 7116# 7118
7119 7120 7121 7167 7168 7169 7170 7171 7172 7173 7174 7175 7176 7177
7178 7179 7180 7197 7198 7199 7200 7201 7202 7203 7204 7205 7206 7207
7208 7209 7210 7227 7228 7229 7230 7231 7232 7233 7234 7235 7236 7237
7238 7239 7240 7243# 7245 7246 7247 7248 7294 7295 7296 7297 7298 7299
7300 7301 7302 7303 7304 7305 7306 7307 7324 7325 7326 7327 7328 7329
7330 7331 7332 7333 7334 7335 7336 7337 7354 7355 7356 7357 7358 7359
7360 7361 7362 7363 7364 7365 7366 7367 7369# 7371 7372 7373 7374 7420
7421 7422 7423 7424 7425 7426 7427 7428 7429 7430 7431 7432 7433 7450
7451 7452 7453 7454 7455 7456 7457 7458 7459 7460 7461 7462 7463 7480
7481 7482 7483 7484 7485 7486 7487 7488 7489 7490 7491 7492 7493 7496#
7498 7499 7500 7501 7547 7548 7549 7550 7551 7552 7553 7554 7555 7556
7557 7558 7559 7560 7577 7578 7579 7580 7581 7582 7583 7584 7585 7586
7587 7588 7589 7590 7607 7608 7609 7610 7611 7612 7613 7614 7615 7616
7617 7618 7619 7620 7622# 7624 7625 7626 7627 7673 7674 7675 7676 7677
7678 7679 7680 7681 7682 7683 7684 7685 7686 7703 7704 7705 7706 7707
7708 7709 7710 7711 7712 7713 7714 7715 7716 7733 7734 7735 7736 7737
7738 7739 7740 7741 7742 7743 7744 7745 7746 7763 7764 7765 7766 7767
7768 7769 7770 7771 7772 7773 7774 7775 7776 7779# 7781 7782 7783 7784
7830 7831 7832 7833 7834 7835 7836 7837 7838 7839 7840 7841 7842 7843
7860 7861 7862 7863 7864 7865 7866 7867 7868 7869 7870 7871 7872 7873
7890 7891 7892 7893 7894 7895 7896 7897 7898 7899 7900 7901 7902 7903
7920 7921 7922 7923 7924 7925 7926 7927 7928 7929 7930 7931 7932 7933
7935# 7937 7938 7939 7940 7986 7987 7988 7989 7990 7991 7992 7993 7994
7995 7996 7997 7998 7999 8016 8017 8018 8019 8020 8021 8022 8023 8024
8025 8026 8027 8028 8029 8046 8047 8048 8049 8050 8051 8052 8053 8054
8055 8056 8057 8058 8059 8076 8077 8078 8079 8080 8081 8082 8083 8084
8085 8086 8087 8088 8089 8092# 8094 8095 8096 8097 8143 8144 8145 8146
8147 8148 8149 8150 8151 8152 8153 8154 8155 8156 8173 8174 8175 8176
8177 8178 8179 8180 8181 8182 8183 8184 8185 8186 8203 8204 8205 8206
8207 8208 8209 8210 8211 8212 8213 8214 8215 8216 8233 8234 8235 8236
8237 8238 8239 8240 8241 8242 8243 8244 8245 8246 8258# 8260 8261 8262
8263 8267 8268 8269 8272 8273 8277 8278 8279 8282 8283 8285# 8287 8288
8289 8290 8294 8295 8296 8298 8299 8303 8304 8305 8307 8308 8309# 8311
8312 8313 8314 8318 8319 8320 8323 8324 8329 8330 8331 8334 8335 8337#
8339 8340 8341 8342 8346 8347 8348 8350 8351 8355 8356 8357 8359 8360
8370# 8372 8373 8374 8375 8378 8379 8380 8381 8382 8392 8393 8394 8395
8396 8405 8406 8407 8408 8409 8418 8419 8420 8421 8422 8433 8434 8435
8436 8437 8444 8445 8446 8447 8448 SEQ 0227
ADR 4329# 4349 4349# 4354 4370 4386 4401 4401# 4406 4422 4438 4453 4453# 4458
4474 4490 4505 4505# 4510 4526 4542 4557 4557# 4562 4578 4594 4609 4609#
4614 4630 4646 4661 4661# 4666 4682 4698 4713 4713# 4718 4734 4750 4765
4765# 4770 4786 4802 4817 4817# 4822 4838 4854 4869 4869# 4874 4890 4906
4921 4921# 4926 4942 4958 4973 4973# 4978 4994 5010 5025 5025# 5030 5046
5062 5077 5077# 5082 5098 5114 5131 5131# 5136 5153 5170 5220 5220# 5225
5242 5259 5275 5275# 5280 5297 5314 5331 5331# 5336 5353 5370 5386 5386#
5391 5408 5425 5442 5442# 5447 5464 5481 5497 5497# 5502 5519 5536 5553
5553# 5558 5575 5592 5608 5608# 5613 5630 5647 5664 5664# 5669 5686 5703
5719 5719# 5724 5741 5758 5775 5775# 5780 5797 5814 5830 5830# 5835 5852
5869 5886 5886# 5891 5908 5925 5941 5941# 5946 5963 5980
ALTMGO 495# 8573
AROV 409#
AROVTP 409#
AROVU 409#
AST 610#
ATSIN 611#
BEGEND 491# 8450
BEGIN 66 67 68 71 72 73 74 75 76 360 361 422# 8734
BEGIN1 438# 492
BELL 614#
BIS 409#
CCA 409#
CHAIN 165#
CHNOFF 409#
CHNON 409#
CLKU 409#
CLOCKF 477#
CNTLC 494#
CNTRP 409#
COMMA 603#
CONSW 478# 8508 8574 8598
CPOPJ 498#
CPOPJ1 496#
CRLF 295 296 598#
CRLF2 299 300 600#
CRY0 409#
CRY1 409#
CSHFLG 657#
CSHMEM 658#
CTRP 409#
CYCL60 651#
DCK 409#
DDTLNK 179# 436
DDTSRT 436#
DEBUG 58# 8725 8726
DECVER 4# 11 26 457
DF22F 562#
DIAGMN 425#
DING 151# 8579
DOLLAR 617#
DSKUPD 462
E24300 797# 804 SEQ 0228
E24400 815# 822
E24500 833# 840
E24600 851# 858
E24700 869# 876
E25000 887# 894
E25100 905# 912
E25200 923# 930
E25300 941# 948
E25400 959# 966
E25500 977# 984
E25600 995# 1002
E25700 1013# 1020
E26000 1031# 1038
E26100 1049# 1056
E26200 1067# 1074
E26300 1085# 1092
E26400 1103# 1110
E26500 1121# 1128
E26600 1139# 1146
E26700 1157# 1164
E27000 1175# 1182
E27100 1193# 1200
E27200 1211# 1218
E27300 1229# 1236
E27400 1247# 1254
E27500 1265# 1272
E27600 1283# 1290
E27700 1301# 1308
E30000 1319# 1326
E30100 1337# 1344
E30200 1355# 1362
E30300 1373# 1380
E30400 1391# 1398
E30500 1409# 1416
E30600 1427# 1434
E30700 1445# 1452
E31000 1463# 1470
E31100 1481# 1488
E31200 1499# 1506
E31300 1517# 1524
E31400 1535# 1542
E31500 1553# 1560
E31600 1571# 1578
E31700 1606# 1613
E32000 1624# 1631
E32100 1642# 1649
E32200 1660# 1667
E32300 1678# 1685
E32400 1697# 1704
E32500 1716# 1723
E32600 1734# 1741
E32700 1752# 1759
E33000 1770# 1777 SEQ 0229
E33100 1788# 1795
E33200 1806# 1813
E33300 1824# 1831
E33400 1842# 1849
E33500 1860# 1867
E33600 1878# 1885
E33700 1896# 1903
E34000 1914# 1921
E34100 1932# 1939
E34200 1950# 1957
E34300 1968# 1975
E34400 1986# 1993
E34500 2004# 2011
E34600 2022# 2029
E34700 2040# 2047
E35000 2058# 2065
E35100 2076# 2083
E35200 2094# 2101
E35300 2112# 2119
E35400 2130# 2137
E35500 2148# 2155
E35600 2166# 2173
E35700 2184# 2191
E36000 2202# 2209
E36100 2220# 2227
E36200 2238# 2245
E36300 2256# 2263
E36400 2274# 2281
E36500 2292# 2299
E36600 2310# 2317
E36700 2328# 2335
E37000 2346# 2353
E37100 2364# 2371
E37200 2382# 2389
E37300 2400# 2407
E37400 2418# 2425
E37500 2436# 2443
E37600 2655#
E37700 2761# 2766
E40000 2769# 2773
E40100 2776# 2780
E40200 2791#
E40300 2973#
E40400 3131# 3136
E40500 3139# 3144
E40600 3155#
E40700 3330#
E41000 3485#
E41100 3609#
E41200 3766#
E41300 3917#
E41400 6317#
E41500 6472# SEQ 0230
E41600 6629#
E41700 6779#
E42000 6815#
E42100 6972#
E42200 7128#
E42300 7255#
E42400 7381#
E42500 7508#
E42600 7634#
E42700 7791#
E43000 7947#
E43100 8104#
E43200 8266# 8273
E43300 8276# 8283
E43400 8293# 8299
E43500 8302# 8308
E43600 8317# 8324
E43700 8328# 8335
E44000 8345# 8351
E44100 8354# 8360
E44500 2453# 2460
E44600 2469# 2476
E44700 2485# 2492
E45000 2501# 2508
E45100 2517# 2524
E45200 2533# 2540
E45300 2550# 2557
E45400 2567# 2574
E45500 2584# 2591
E45600 2601# 2608
E45700 2618# 2625
E46000 2635# 2642
E46100 4080# 4087
E46200 4096# 4103
E46300 4112# 4119
E46400 4128# 4135
E46500 4144# 4151
E46600 4160# 4167
E46700 4176# 4183
E47000 4192# 4199
E47100 4208# 4215
E47200 4224# 4231
E47300 4240# 4247
E47400 4256# 4263
E47500 4271# 4278
E47600 4287# 4294
E47700 4303# 4310
E50000 4319# 4326
E50100 4359# 4366
E50200 4375# 4382
E50300 4391# 4398
E50400 4411# 4418
E50500 4427# 4434 SEQ 0231
E50600 4443# 4450
E50700 4463# 4470
E51000 4479# 4486
E51100 4495# 4502
E51200 4515# 4522
E51300 4531# 4538
E51400 4547# 4554
E51500 4567# 4574
E51600 4583# 4590
E51700 4599# 4606
E52000 4619# 4626
E52100 4635# 4642
E52200 4651# 4658
E52300 4671# 4678
E52400 4687# 4694
E52500 4703# 4710
E52600 4723# 4730
E52700 4739# 4746
E53000 4755# 4762
E53100 4775# 4782
E53200 4791# 4798
E53300 4807# 4814
E53400 4827# 4834
E53500 4843# 4850
E53600 4859# 4866
E53700 4879# 4886
E54000 4895# 4902
E54100 4911# 4918
E54200 4931# 4938
E54300 4947# 4954
E54400 4963# 4970
E54500 4983# 4990
E54600 4999# 5006
E54700 5015# 5022
E55000 5035# 5042
E55100 5051# 5058
E55200 5067# 5074
E55300 5087# 5094
E55400 5103# 5110
E55500 5119# 5126
E55600 5142# 5149
E55700 5159# 5166
E56000 5177# 5184
E56100 5231# 5238
E56200 5248# 5255
E56300 5266# 5273
E56400 5286# 5293
E56500 5303# 5310
E56600 5321# 5328
E56700 5342# 5349
E57000 5359# 5366
E57100 5377# 5384
E57200 5397# 5404 SEQ 0232
E57300 5414# 5421
E57400 5432# 5439
E57500 5453# 5460
E57600 5470# 5477
E57700 5488# 5495
E60000 5508# 5515
E60100 5525# 5532
E60200 5543# 5550
E60300 5564# 5571
E60400 5581# 5588
E60500 5599# 5606
E60600 5619# 5626
E60700 5636# 5643
E61000 5654# 5661
E61100 5675# 5682
E61200 5692# 5699
E61300 5710# 5717
E61400 5730# 5737
E61500 5747# 5754
E61600 5765# 5772
E61700 5786# 5793
E62000 5803# 5810
E62100 5821# 5828
E62200 5841# 5848
E62300 5858# 5865
E62400 5876# 5883
E62500 5897# 5904
E62600 5914# 5921
E62700 5932# 5939
E63000 5952# 5959
E63100 5969# 5976
E63200 5987# 5994
E63300 6003# 6010
E63400 6019# 6026
E63500 6036# 6043
E63600 6053# 6060
E63700 6069# 6076
E64000 6086# 6093
E64100 6103# 6110
E64200 6120# 6127
E64300 6137# 6144
E64400 6154# 6161
E64500 6171# 6178
E64600 6188# 6195
E64700 6205# 6212
E65000 6221# 6228
E65100 6239# 6246
E70000 8377# 8382
E70100 8391# 8396
E70200 8404# 8409
E70300 8417#
E70400 8422 8432# 8437
E70500 8444# 8448 SEQ 0233
EBIT0 409#
EBIT1 409#
EBIT10 409#
EBIT11 409#
EBIT12 409#
EBIT13 409#
EBIT14 409#
EBIT15 409#
EBIT2 409#
EBIT3 409#
EBIT4 409#
EBIT5 409#
EBIT6 409#
EBIT7 409#
EBIT8 409#
EBIT9 409#
END 8733#
ENDFIX 737#
ENDSLD 8723#
ERDIAG 62# 8493
ERMORE 511# 8566
EROLD 371
ERRELB 8563
ERRLOP 771# 771 2650# 2650 2759# 2759 2786# 2786 2967# 2967 3128# 3128 3150# 3150
3479# 3479 6311# 6311 6466# 6466 6623# 6623 6808# 6808 6965# 6965 7121# 7121
7248# 7248 7374# 7374 7501# 7501 7627# 7627 7784# 7784 7940# 7940 8097# 8097
8263# 8263 8290# 8290 8314# 8314 8342# 8342 8375# 8375 8473 8584 8587 8588
ERRMES 45 46 47 48 49 50 51 52 53 54 55 8455#
ERRPC 482# 8460 8490
ERRTLS 483# 8458 8591
ERSTOP 154# 8575
EXCASB 59# 460
EXIOT 409#
EXIT 738# 739
FOV 409#
FOVU 409#
FRDLNK 177#
FSELNK 176#
FXU 409#
HYPEN 608#
INHCSH 162#
INHPAG 159#
IOCLR 409#
ITERAT 87# 455
ITRCH1 515#
ITRCNT 455#
JOB41 409#
JOBAPR 409#
JOBCNI 409#
JOBDDT 409#
JOBFF 409#
JOBOPC 409# 8572
JOBREL 409# SEQ 0234
JOBREN 409#
JOBSA 409#
JOBSYM 409#
JOBTPC 409#
JOBUSY 409#
JOBUUO 409#
JOBVER 409#
KAIFLG 472#
KLFLG 473#
KNTRP 409#
KTRP 409#
LACLK 409#
LACLKE 409#
LAPRAL 409#
LAPRP1 409#
LAPRP2 409#
LAPRP3 409#
LAPRP4 409#
LAPRP5 409#
LAPRP6 409#
LAPRP7 409#
LCHNOF 409#
LCHNON 409#
LCNTXT 409#
LCNXER 409#
LCPAER 409#
LCPSFT 409#
LCPWRF 409#
LDATAF 409#
LDLNK 178# 425 427
LDNXER 409#
LDPAER 409#
LDPSFT 409#
LDPWRF 409#
LEBXMH 409#
LEBXML 409#
LENXER 409#
LEPAER 409#
LEPSFT 409#
LEPWRF 409#
LEUPFW 409#
LEXCMP 409#
LFLGCL 409#
LFLGDS 409#
LFLGEN 409#
LFLGST 409#
LFP 612#
LINSTF 409#
LINT 409#
LIOCLR 409#
LLACBL 409#
LLDUSB 409#
LMBXMH 409# SEQ 0235
LMBXML 409#
LNXMEN 409#
LNXMER 409#
LOOPER 153# 8577
LPAREN 409#
LPARER 409#
LPFWPC 409#
LPGFTR 409#
LPICH1 409#
LPICH2 409#
LPICH3 409#
LPICH4 409#
LPICH5 409#
LPICH6 409#
LPICH7 409#
LPICHA 409#
LPICLR 409#
LPIIP1 409#
LPIIP2 409#
LPIIP3 409#
LPIIP4 409#
LPIIP5 409#
LPIIP6 409#
LPIIP7 409#
LPIOFF 409#
LPION 409#
LPRCH1 409#
LPRCH2 409#
LPRCH3 409#
LPRCH4 409#
LPRCH5 409#
LPRCH6 409#
LPRCH7 409#
LPRFMH 409#
LPRFML 409#
LPSFT 409#
LPSFTE 409#
LPWRFE 409#
LPWRFL 409#
LREQSE 409#
LRQCLR 409#
LSECMO 409#
LSMODE 409#
LSNXER 409#
LSPAER 409#
LSPSFT 409#
LSPWRF 409#
LTBASH 409#
LTBASL 409#
LTRPAE 409#
LTRPEN 409#
LUSCMP 409#
LUUO 409# SEQ 0236
LUUO1 45# 542 543
LUUO10 52# 542 547
LUUO11 53# 542 547
LUUO12 54# 542 548
LUUO13 55# 542 548
LUUO14 542 549
LUUO15 542 549
LUUO16 542 550
LUUO17 542 550
LUUO2 46# 542 544
LUUO20 542 551
LUUO21 542 551
LUUO22 542 552
LUUO23 542 552
LUUO24 542 553
LUUO25 542 553
LUUO26 542 554
LUUO27 542 554
LUUO3 47# 542 544
LUUO30 542 555
LUUO31 542 555
LUUO32 542 556
LUUO33 542 556
LUUO4 48# 542 545
LUUO5 49# 542 545
LUUO6 50# 542 546
LUUO7 51# 542 546
LUUOI 409#
LWRITE 409#
MAPNEW 563#
MARGIN 485#
MCNVER 3# 11 26 457
MEMLOW 565#
MEMMAP 463
MEMSIZ 566#
MEMTOT 564#
MICNT 8461# 8461 8462 8475
MINUS 607#
MODDVC 161#
MODDVL 360 360# 458
MODDVU 361 361# 459
MODLNK 180# 422
MONCTL 475# 8476 8589
MONFLG 474#
MONTEN 476#
MONTYP 689#
MPVU 409#
MUUO 409#
MUUOPC 409#
N 4330# 4350 4350# 4361 4377 4393 4402 4402# 4413 4429 4445 4454 4454# 4465
4481 4497 4506 4506# 4517 4533 4549 4558 4558# 4569 4585 4601 4610 4610#
4621 4637 4653 4662 4662# 4673 4689 4705 4714 4714# 4725 4741 4757 4766
4766# 4777 4793 4809 4818 4818# 4829 4845 4861 4870 4870# 4881 4897 4913 SEQ 0237
4922 4922# 4933 4949 4965 4974 4974# 4985 5001 5017 5026 5026# 5037 5053
5069 5078 5078# 5089 5105 5121 5128# 5132 5132# 5144 5161 5179 5221 5221#
5233 5250 5268 5276 5276# 5288 5305 5323 5332 5332# 5344 5361 5379 5387
5387# 5399 5416 5434 5443 5443# 5455 5472 5490 5498 5498# 5510 5527 5545
5554 5554# 5566 5583 5601 5609 5609# 5621 5638 5656 5665 5665# 5677 5694
5712 5720 5720# 5732 5749 5767 5776 5776# 5788 5805 5823 5831 5831# 5843
5860 5878 5887 5887# 5899 5916 5934 5942 5942# 5954 5971 5989
NOPNT 149# 8466
NXMU 409#
OPRSEL 163#
OPTIME 577#
P 206 207 208 209 409# 497
PAG 409#
PALERS 155# 8599
PAREA0 80#
PAREA1 81# 453
PAREA2 82# 454
PAREA3 83# 451
PAREA4 84# 452
PAREA5 85# 464
PAREA6 86# 465
PAREA7 464#
PAREA8 465#
PART2 763 767#
PARU 409#
PASCNT 479# 8481 8485
PATCH 8726#
PDISF 574#
PDLOVU 409#
PDOVTP 409#
PERIOD 604#
PFSTRT 431#
PGMEND 61# 8732
PGMNAM 456 741#
PICHN1 409#
PICHN2 409#
PICHN3 409#
PICHN4 409#
PICHN5 409#
PICHN6 409#
PICHN7 409#
PICHNA 409#
PICLR 409#
PIOFF 409#
PION 409#
PLIST 643# 643
PLISTE 643 645#
PLISTS 644#
PLUS 609#
PNTENB 573#
PNTEXT 452#
PNTFLG 572#
PNTINH 575# SEQ 0238
PNTLPT 150#
PNTNAM 451#
PNTRP 409#
PNTSPC 576#
PROCED 8464# 8464 8578 8585
PTRP 409#
PVPAGI 670#
QUEST 615#
RADIX 618#
RADLSC 620#
RADLSP 619#
RANDBS 453#
REENTR 433#
RELIAB 157#
REPT 409#
REPT1 409#
REPTU 531#
REQSET 409#
RESRT1 508#
RESRT2 509#
RETURN 440#
RSTART 146#
RTP 613#
RUNFLG 480#
SADR1 66# 429
SADR10 75# 445
SADR11 76# 446
SADR2 67# 431
SADR3 68# 433
SADR4 69#
SADR5 70# 494
SADR6 71# 495
SADR7 72# 442
SADR8 73# 443
SADR9 74# 444
SBINIT 219 439#
SCOPE 532#
SFSTRT 429#
SLASH 616#
SM10 720#
SN 2652# 2689 2689# 2694 2696 2711 2711# 2716 2718 2733 2733# 2738 2740 2788#
2820 2820# 2826 2839 2839# 2845 2858 2858# 2864 2877 2877# 2883 2896 2896#
2902 2915 2915# 2921 2934 2934# 2940 2953 2953# 2959 2969# 3002 3002# 3010
3022 3022# 3030 3042 3042# 3050 3062 3062# 3070 3082 3082# 3090 3102 3102#
3110 3152# 3184 3184# 3190 3203 3203# 3209 3222 3222# 3228 3241 3241# 3247
3260 3260# 3266 3279 3279# 3285 3298 3298# 3304 3317 3317# 3323 3327# 3358
3358# 3363 3376 3376# 3381 3394 3394# 3399 3412 3412# 3417 3430 3430# 3435
3448 3448# 3453 3466 3466# 3471 3481# 3516 3516# 3522 3536 3536# 3542 3556
3556# 3562 3576 3576# 3582 3596 3596# 3602 3606# 3642 3642# 3650 3664 3664#
3672 3686 3686# 3694 3708 3708# 3716 3730 3730# 3738 3752 3752# 3760 3763#
3798 3798# 3805 3819 3819# 3826 3840 3840# 3847 3861 3861# 3868 3882 3882#
3889 3903 3903# 3910 3914# 3950 3950# 3958 3972 3972# 3980 3994 3994# 4002
4016 4016# 4024 4038 4038# 4046 4060 4060# 4068 6313# 6355 6355# 6360 6362 SEQ 0239
6379 6379# 6384 6386 6403 6403# 6408 6410 6427 6427# 6432 6434 6451 6451#
6456 6458 6468# 6510 6510# 6515 6517 6534 6534# 6539 6541 6558 6558# 6563
6565 6582 6582# 6587 6589 6606 6606# 6611 6613 6625# 6667 6667# 6672 6674
6691 6691# 6696 6698 6715 6715# 6720 6722 6739 6739# 6744 6746 6763 6763#
6768 6770 6777# 6810# 6850 6850# 6863 6866 6880 6880# 6893 6896 6910 6910#
6923 6926 6940 6940# 6953 6956 6967# 7007 7007# 7020 7023 7037 7037# 7050
7053 7067 7067# 7080 7083 7097 7097# 7110 7113 7123# 7163 7163# 7176 7179
7193 7193# 7206 7209 7223 7223# 7236 7239 7250# 7290 7290# 7303 7306 7320
7320# 7333 7336 7350 7350# 7363 7366 7376# 7416 7416# 7429 7432 7446 7446#
7459 7462 7476 7476# 7489 7492 7503# 7543 7543# 7556 7559 7573 7573# 7586
7589 7603 7603# 7616 7619 7629# 7669 7669# 7682 7685 7699 7699# 7712 7715
7729 7729# 7742 7745 7759 7759# 7772 7775 7786# 7826 7826# 7839 7842 7856
7856# 7869 7872 7886 7886# 7899 7902 7916 7916# 7929 7932 7942# 7982 7982#
7995 7998 8012 8012# 8025 8028 8042 8042# 8055 8058 8072 8072# 8085 8088
8099# 8139 8139# 8152 8155 8169 8169# 8182 8185 8199 8199# 8212 8215 8229
8229# 8242 8245
SNTRP 409#
SPACE 605#
SPDES 8551#
SRTDDT 69 435#
START 423 759#
START1 442#
START2 443#
START3 444#
START4 445#
START5 446#
STARTA 438 763#
STRP 409#
SUBLNK 181# 439
SWPTAB 726#
SWTEXR 454#
SYSEXR 427#
TAB 606#
TESTPC 481# 769 2648 2757 2784 2965 3126 3148 3477 6309 6464 6621 6806 6963
7119 7246 7372 7499 7625 7782 7938 8095 8261 8288 8312 8340 8373
TICKS 484#
TLET 761 8525 8548#
TN0 409#
TN1 409#
TOTALS 147#
TRP3TP 409#
TTNBRF 664#
TTYFIL 580#
TTYSPD 581#
TXTINH 158# 8509
UBAVEC 409#
USER 471#
USERF 409#
USRASB 60# 461
USRCRF 590#
USRLFF 589#
UUODIS 543#
UUOEXT 499# 8596 SEQ 0240
UUORTN 500#
UUOSKP 497#
WW 6811# 6851 6851# 6854 6855 6881 6881# 6884 6885 6911 6911# 6914 6915 6941
6941# 6944 6945 6968# 7008 7008# 7011 7012 7038 7038# 7041 7042 7068 7068#
7071 7072 7098 7098# 7101 7102 7124# 7164 7164# 7167 7168 7194 7194# 7197
7198 7224 7224# 7227 7228 7251# 7291 7291# 7294 7295 7321 7321# 7324 7325
7351 7351# 7354 7355 7377# 7417 7417# 7420 7421 7447 7447# 7450 7451 7477
7477# 7480 7481 7504# 7544 7544# 7547 7548 7574 7574# 7577 7578 7604 7604#
7607 7608 7630# 7670 7670# 7673 7674 7700 7700# 7703 7704 7730 7730# 7733
7734 7760 7760# 7763 7764 7787# 7827 7827# 7830 7831 7857 7857# 7860 7861
7887 7887# 7890 7891 7917 7917# 7920 7921 7943# 7983 7983# 7986 7987 8013
8013# 8016 8017 8043 8043# 8046 8047 8073 8073# 8076 8077 8100# 8140 8140#
8143 8144 8170 8170# 8173 8174 8200 8200# 8203 8204 8230 8230# 8233 8234
XX 2970# 3003 3003# 3005 3005# 3008 3023 3023# 3025 3028 3043 3043# 3045 3048
3063 3063# 3065 3068 3083 3083# 3085 3088 3103 3103# 3105 3108 3482# 3517
3517# 3521 3537 3537# 3541 3557 3557# 3561 3577 3577# 3581 3597 3597# 3601
3607# 3643 3643# 3645 3645# 3649 3665 3665# 3667 3671 3687 3687# 3689 3693
3709 3709# 3711 3715 3731 3731# 3733 3737 3753 3753# 3755 3759 3764# 3799
3799# 3801 3801# 3804 3820 3820# 3822 3825 3841 3841# 3843 3846 3862 3862#
3864 3867 3883 3883# 3885 3888 3904 3904# 3906 3909 3915# 3951 3951# 3953
3953# 3957 3973 3973# 3975 3979 3995 3995# 3997 4001 4017 4017# 4019 4023
4039 4039# 4041 4045 4061 4061# 4063 4067 6812# 6857 6858 6887 6888 6917
6918 6947 6948 6969# 7014 7015 7044 7045 7074 7075 7104 7105 7125# 7170
7171 7200 7201 7230 7231 7252# 7297 7298 7327 7328 7357 7358 7378# 7423
7424 7453 7454 7483 7484 7505# 7550 7551 7580 7581 7610 7611 7631# 7676
7677 7706 7707 7736 7737 7766 7767 7788# 7833 7834 7863 7864 7893 7894
7923 7924 7944# 7989 7990 8019 8020 8049 8050 8079 8080 8101# 8146 8147
8176 8177 8206 8207 8236 8237
ZZ 2653# 2690 2690# 2692 2712 2712# 2714 2734 2734# 2736 2789# 2821 2821# 2822
2822# 2824 2840 2840# 2841 2843 2859 2859# 2860 2862 2878 2878# 2879 2881
2897 2897# 2898 2900 2916 2916# 2917 2919 2935 2935# 2936 2938 2954 2954#
2955 2957 2971# 3004 3004# 3007 3024 3024# 3027 3044 3044# 3047 3064 3064#
3067 3084 3084# 3087 3104 3104# 3107 3153# 3185 3185# 3186 3186# 3188 3204
3204# 3205 3207 3223 3223# 3224 3226 3242 3242# 3243 3245 3261 3261# 3262
3264 3280 3280# 3281 3283 3299 3299# 3300 3302 3318 3318# 3319 3321 3328#
3359 3359# 3361 3377 3377# 3379 3395 3395# 3397 3413 3413# 3415 3431 3431#
3433 3449 3449# 3451 3467 3467# 3469 3483# 3518 3518# 3520 3538 3538# 3540
3558 3558# 3560 3578 3578# 3580 3598 3598# 3600 3644 3644# 3647 3666 3666#
3669 3688 3688# 3691 3710 3710# 3713 3732 3732# 3735 3754 3754# 3757 3800
3800# 3803 3821 3821# 3824 3842 3842# 3845 3863 3863# 3866 3884 3884# 3887
3905 3905# 3908 3952 3952# 3955 3974 3974# 3977 3996 3996# 3999 4018 4018#
4021 4040 4040# 4043 4062 4062# 4065 6263# 6270 6270# 6272 6273 6275 6275#
6277 6278 6280 6280# 6282 6283 6285 6285# 6287 6288 6290 6290# 6292 6293
6295 6295# 6297 6298 6300 6300# 6302 6303 6315# 6356 6356# 6359 6361 6380
6380# 6383 6385 6404 6404# 6407 6409 6428 6428# 6431 6433 6452 6452# 6455
6457 6470# 6511 6511# 6514 6516 6535 6535# 6538 6540 6559 6559# 6562 6564
6583 6583# 6586 6588 6607 6607# 6610 6612 6627# 6668 6668# 6671 6673 6692
6692# 6695 6697 6716 6716# 6719 6721 6740 6740# 6743 6745 6764 6764# 6767
6769 6813# 6852 6852# 6860 6882 6882# 6890 6912 6912# 6920 6942 6942# 6950
6970# 7009 7009# 7017 7039 7039# 7047 7069 7069# 7077 7099 7099# 7107 7126#
7165 7165# 7173 7195 7195# 7203 7225 7225# 7233 7253# 7292 7292# 7300 7322
7322# 7330 7352 7352# 7360 7379# 7418 7418# 7426 7448 7448# 7456 7478 7478#
7486 7506# 7545 7545# 7553 7575 7575# 7583 7605 7605# 7613 7632# 7671 7671# SEQ 0241
7679 7701 7701# 7709 7731 7731# 7739 7761 7761# 7769 7789# 7828 7828# 7836
7858 7858# 7866 7888 7888# 7896 7918 7918# 7926 7945# 7984 7984# 7992 8014
8014# 8022 8044 8044# 8052 8074 8074# 8082 8102# 8141 8141# 8149 8171 8171#
8179 8201 8201# 8209 8231 8231# 8239
$$MUUO 695#
$$OUTE 701#
$$TAX1 713#
$$TAX2 714#
$$TOGG 707#
$$UUO 684#
$ACC0 522#
$ACF 8552#
$BEND1 492#
$BEND2 70 493# 8605
$CHRIN 583#
$CRLF 585#
$DEVCH 409#
$DSKUP 462#
$DVOFF 579#
$EMODE 460#
$FFF 587#
$IBUF 635#
$INEXT 637#
$INNM 636#
$ITRHL 503#
$ITRX1 504#
$LPAPE 8611
$MMAP 463#
$MODVL 458#
$MODVU 459#
$OBUF 626#
$ONETM 486#
$OUTEX 628#
$OUTNM 627#
$PAPER 409
$PARER 510#
$PNAME 456#
$PSHER 514#
$PVER 457#
$RSRTX 506#
$RSRTY 507#
$SPAG1 526#
$START 423#
$SVAPR 524#
$SVPAG 525#
$SVPI 523#
$SVUPC 529# 8459 8463 8489
$SVUUO 528# 8468 8500 8528
$TABF 586#
$TTCHR 582#
$TWCNT 578#
$TYPNB 584#
$UMODE 461# SEQ 0242
$UORTX 501#
$USRHL 505#
$UUOER 502# 543
$VTF 588#
%AC1F 8553#
%ACS1A 8470# 8470 8514
%ACTFL 535#
%ACTUL 536#
%ALF 8558#
%AR1F 8557#
%ARF 8556#
%COREC 534#
%CORFL 533#
%DISCR 537#
%E1F 8555#
%EEF 8559#
%EF 8554#
%ER4X 8534 8539#
%ER5X 8532 8541#
%ER6X 8530 8543#
%ER7X 8536# 8540 8542 8544
%ERAC0 8455# 8455 8471 8505 8595
%ERAC1 8456# 8456 8472 8583
%ERAC2 8457# 8457 8582
%ERFST 8478# 8478 8480
%ERHI1 676#
%ERHI2 677#
%ERHI3 678#
%ERMOR 8510 8537 8566#
%ERMS1 8475# 8601
%ERMS2 8498#
%ERMS3 8516 8523#
%ERRS1 8467 8569# 8600
%ERRS2 8582#
%ERRS4 8474 8598#
%ERRS5 8586 8590 8595#
%ERRS6 8593 8603#
%FF 8560#
%FLTTB 8518 8549#
%NODES 8550#
.JB41 409#
.JBAPR 409#
.JBCNI 409#
.JBDDT 409#
.JBFF 409#
.JBOPC 409#
.JBREL 409#
.JBREN 409#
.JBSA 409#
.JBSYM 409#
.JBTPC 409#
.JBUSY 409#
.JBUUO 409# SEQ 0243
.JBVER 409#
APRID 409#
BCIO 409# SEQ 0244
BCIOB 409#
BSIO 409#
BSIOB 409#
CFLUSH 331#
CINVAL 330#
CLOKOP 325#
CLRPT 409#
CWRTBI 332#
DROPDV 292# 738
ENDUUO 338# 491
EOPUUO 339# 493
ER1 33#
ER10 40#
ER11 41#
ER12 42#
ER13 43# 8272 8282 8298 8307 8323 8334 8350 8359
ER2 34#
ER3 35# 801 819 837 855 873 891 909 927 945 963 981 999 1017
1035 1053 1071 1089 1107 1125 1143 1161 1179 1197 1215 1233 1251 1269
1287 1305 1323 1341 1359 1377 1395 1413 1431 1449 1467 1485 1503 1521
1539 1557 1575 1610 1628 1646 1664 1682 1701 1720 1738 1756 1774 1792
1810 1828 1846 1864 1882 1900 1918 1936 1954 1972 1990 2008 2026 2044
2062 2080 2098 2116 2134 2152 2170 2188 2206 2224 2242 2260 2278 2296
2314 2332 2350 2368 2386 2404 2422 2440 2457 2473 2489 2505 2521 2537
2554 2571 2588 2605 2622 2639 2694 2696 2716 2718 2738 2740 2765 2772
2779 2826 2845 2864 2883 2902 2921 2940 2959 3010 3030 3050 3070 3090
3110 3135 3143 3190 3209 3228 3247 3266 3285 3304 3323 3363 3381 3399
3417 3435 3453 3471 3522 3542 3562 3582 3602 3650 3672 3694 3716 3738
3760 3805 3826 3847 3868 3889 3910 3958 3980 4002 4024 4046 4068 4084
4100 4116 4132 4148 4164 4180 4196 4212 4228 4244 4260 4275 4291 4307
4323 4363 4379 4395 4415 4431 4447 4467 4483 4499 4519 4535 4551 4571
4587 4603 4623 4639 4655 4675 4691 4707 4727 4743 4759 4779 4795 4811
4831 4847 4863 4883 4899 4915 4935 4951 4967 4987 5003 5019 5039 5055
5071 5091 5107 5123 5146 5163 5181 5235 5252 5270 5290 5307 5325 5346
5363 5381 5401 5418 5436 5457 5474 5492 5512 5529 5547 5568 5585 5603
5623 5640 5658 5679 5696 5714 5734 5751 5769 5790 5807 5825 5845 5862
5880 5901 5918 5936 5956 5973 5991 6007 6023 6040 6057 6073 6090 6107
6124 6141 6158 6175 6192 6209 6225 6243 6360 6384 6408 6432 6456 6515
6539 6563 6587 6611 6672 6696 6720 6744 6768 6863 6893 6923 6953 7020
7050 7080 7110 7176 7206 7236 7303 7333 7363 7429 7459 7489 7556 7586
7616 7682 7712 7742 7772 7839 7869 7899 7929 7995 8025 8055 8085 8152
8182 8212 8242 8381 8395 8408 8421 8436 8447
ER4 36# 803 821 839 857 875 893 911 929 947 965 983 1001 1019
1037 1055 1073 1091 1109 1127 1145 1163 1181 1199 1217 1235 1253 1271
1289 1307 1325 1343 1361 1379 1397 1415 1433 1451 1469 1487 1505 1523
1541 1559 1577 1612 1630 1648 1666 1684 1703 1722 1740 1758 1776 1794
1812 1830 1848 1866 1884 1902 1920 1938 1956 1974 1992 2010 2028 2046
2064 2082 2100 2118 2136 2154 2172 2190 2208 2226 2244 2262 2280 2298
2316 2334 2352 2370 2388 2406 2424 2442 2459 2475 2491 2507 2523 2539
2556 2573 2590 2607 2624 2641 4086 4102 4118 4134 4150 4166 4182 4198
4214 4230 4246 4262 4277 4293 4309 4325 4365 4381 4397 4417 4433 4449
4469 4485 4501 4521 4537 4553 4573 4589 4605 4625 4641 4657 4677 4693
4709 4729 4745 4761 4781 4797 4813 4833 4849 4865 4885 4901 4917 4937 SEQ 0245
4953 4969 4989 5005 5021 5041 5057 5073 5093 5109 5125 5148 5165 5183
5237 5254 5272 5292 5309 5327 5348 5365 5383 5403 5420 5438 5459 5476
5494 5514 5531 5549 5570 5587 5605 5625 5642 5660 5681 5698 5716 5736
5753 5771 5792 5809 5827 5847 5864 5882 5903 5920 5938 5958 5975 5993
6009 6025 6042 6059 6075 6092 6109 6126 6143 6160 6177 6194 6211 6227
6245 6362 6386 6410 6434 6458 6517 6541 6565 6589 6613 6674 6698 6722
6746 6770 6866 6896 6926 6956 7023 7053 7083 7113 7179 7209 7239 7306
7336 7366 7432 7462 7492 7559 7589 7619 7685 7715 7745 7775 7842 7872
7902 7932 7998 8028 8058 8088 8155 8185 8215 8245
ER5 37#
ER6 38#
ER7 39#
ERLOOP 379#
ERLP1 380#
ERLP2 381#
ERRHLT 226# 8576
ERROR 388#
ERROR1 399#
ERUUO 378#
FATAL 225#
FRD36 367#
FRD8 368#
FREAD 366#
FSELEC 365#
GET 209#
GO 206#
HALT 211# 512
JEN 213#
JRSTF 212#
MAPADR 348#
MAPCNK 349#
MAPMEM 345#
MAPPNT 351#
MAPSET 350#
MEMSEG 347#
MEMZRO 346#
MODPCP 358#
MODPCU 357#
MTROP 326#
NAME 8# 11
PBELL 301# 8580
PCRL 295# 8517 8536
PCRL2 299#
PCRL2F 300#
PCRLF 296#
PFORCE 303#
PGMINT 219# 759
PJRST 210#
PMSG 305# 8483 8487 8498 8523
PMSGF 308# 8603
PNT1 261#
PNT11 275#
PNT11F 276# SEQ 0246
PNT1F 262#
PNT2 263#
PNT2F 264#
PNT3 265# 8535
PNT3F 266#
PNT4 267# 8539
PNT4F 268#
PNT5 269# 8541
PNT5F 270#
PNT6 271# 8491 8543
PNT6F 272#
PNT7 273#
PNT7F 274#
PNTA 247# 8526
PNTADF 278#
PNTADR 277#
PNTAF 248#
PNTAL 249# 8519
PNTALF 250#
PNTCHF 260#
PNTCHR 259#
PNTCI 257#
PNTCIF 258#
PNTCW 293#
PNTCWF 294#
PNTDCF 286#
PNTDEC 285# 8486
PNTDS 287#
PNTDSF 288#
PNTHW 281# 8506
PNTHWF 282#
PNTMSF 254#
PNTMSG 253#
PNTNM 289# 8479
PNTOCF 284#
PNTOCS 283#
PNTOCT 279#
PNTOTF 280#
PNTSIX 290#
PNTSXF 291#
PSIXL 251#
PSIXLF 252#
PSIXM 255# 8484 8488 8499 8524
PSIXMF 256# 8604
PSP 297#
PSPF 298#
PUT 208#
RDAPR 409#
RDCSB 409#
RDCSTM 409#
RDEBR 409#
RDHSB 409#
RDINT 409# SEQ 0247
RDIO 409#
RDIOB 409#
RDPI 409#
RDPUR 409#
RDSPB 409#
RDTIM 409#
RDUBR 409#
REPTUO 382#
RTN 207# 499
S 137# 139 143 172 174 183 186 201 202 204 215 217 221 223
228 232 374 376 409 414 420 447 449 467 469 487 489 518
520 538 540 558 560 568 570 591 596 622 624 631 633 639
641 647 649 653 655 660 662 666 668 672 674 680 682 685
687 691 693 697 699 703 705 709 711 716 718 722 724 728
730 732 734
SAVEAC 91# 767 2646 2755 2782 2963 3124 3146 3475 6307 6462 6619 6804 6961
7117 7244 7370 7497 7623 7780 7936 8093 8259 8286 8310 8338 8371
SETACS 97# 6853 6883 6913 6943 7010 7040 7070 7100 7166 7196 7226 7293 7323
7353 7419 7449 7479 7546 7576 7606 7672 7702 7732 7762 7829 7859 7889
7919 7985 8015 8045 8075 8142 8172 8202 8232
SIXBTZ 314#
SR1 106# 2448 2464 2480 2496 2512 2528 4075 4091 4107 4123 4139 4155 4171
4187 4203 4219 4235 4251 4266 4282 4298 4314 4354 4370 4386 4406 4422
4438 4458 4474 4490 4510 4526 4542 4562 4578 4594 4614 4630 4646 4666
4682 4698 4718 4734 4750 4770 4786 4802 4822 4838 4854 4874 4890 4906
4926 4942 4958 4978 4994 5010 5030 5046 5062 5082 5098 5114 5998 6014
6064 6081 6098 6115 6132 6149 6166 6183 6200 6216
SR2 121# 791 809 827 845 863 881 899 917 935 953 971 989 1007
1025 1043 1061 1079 1097 1115 1133 1151 1169 1187 1205 1223 1241 1259
1277 1295 1313 1331 1349 1367 1385 1403 1421 1439 1457 1475 1493 1511
1529 1547 1565 1600 1618 1636 1654 1672 1691 1710 1728 1746 1764 1782
1800 1818 1836 1854 1872 1890 1908 1926 1944 1962 1980 1998 2016 2034
2052 2070 2088 2106 2124 2142 2160 2178 2196 2214 2232 2250 2268 2286
2304 2322 2340 2358 2376 2394 2412 2430 2544 2561 2578 2595 2612 2629
5136 5153 5170 5225 5242 5259 5280 5297 5314 5336 5353 5370 5391 5408
5425 5447 5464 5481 5502 5519 5536 5558 5575 5592 5613 5630 5647 5669
5686 5703 5724 5741 5758 5780 5797 5814 5835 5852 5869 5891 5908 5925
5946 5963 5980 6030 6047 6232
SWITCH 320# 8465 8567
TIOE 409#
TIOEB 409#
TION 409#
TIONB 409#
TTALTM 241# 8569
TTICHR 234#
TTICLR 244#
TTICNV 239#
TTIDEC 238#
TTINO 236#
TTIOCT 237#
TTIYES 235#
TTLOOK 240#
TTSIXB 242# SEQ 0248
TTYINP 243#
WRAPR 409#
WRCSB 409#
WRCSTM 409#
WREBR 409#
WRHSB 409#
WRINT 409#
WRIO 409#
WRIOB 409#
WRPI 409#
WRPUR 409#
WRSPB 409#
WRTIM 409#
WRUBR 409#
ANDI 8502
AOS 497 8458 8461 8587 8588 SEQ 0249
ASCII 598 600 603 604 605 606 608 609 610 611 612 613 615 616
617
ASCIZ 741 760 8552 8553 8554 8555 8556 8557 8558 8559 8560
ASH 8268 8278 8295 8304
ASHC 1608 1626 1644 1662 1680 1699 1718 1736 1754 1772 1790 1808 1826 1844
1862 1880 1898 1916 1934 1952 1970 1988 2006 2024 2042 2060 2078 2096
2114 2132 2150 2168 2186 2204 2222 2240 2258 2276 2294 2312 2330 2348
2366 2384 2402 2420 2438 6670 6694 6718 6742 6766 8319 8330 8347 8356
BLOCK 566 626 629 635 638 644 8726
BYTE 614
CAIE 3521 3541 3561 3581 3601 3649 3671 3693 3715 3737 3759 3804 3825 3846
3867 3888 3909 3957 3979 4001 4023 4045 4067 6359 6361 6383 6385 6407
6409 6431 6433 6455 6457 6514 6516 6538 6540 6562 6564 6586 6588 6610
6612 6671 6673 6695 6697 6719 6721 6743 6745 6767 6769
CAIG 8504 8515
CAIL 8592
CAIN 2693 2715 2737 2764 2771 2778 2825 2844 2863 2882 2901 2920 2939 2958
3009 3029 3049 3069 3089 3109 3189 3208 3227 3246 3265 3284 3303 3322
3362 3380 3398 3416 3434 3452 3470
CAME 800 802 818 820 836 838 854 856 872 874 890 892 908 910
926 928 944 946 962 964 980 982 998 1000 1016 1018 1034 1036
1052 1054 1070 1072 1088 1090 1106 1108 1124 1126 1142 1144 1160 1162
1178 1180 1196 1198 1214 1216 1232 1234 1250 1252 1268 1270 1286 1288
1304 1306 1322 1324 1340 1342 1358 1360 1376 1378 1394 1396 1412 1414
1430 1432 1448 1450 1466 1468 1484 1486 1502 1504 1520 1522 1538 1540
1556 1558 1574 1576 1609 1611 1627 1629 1645 1647 1663 1665 1681 1683
1700 1702 1719 1721 1737 1739 1755 1757 1773 1775 1791 1793 1809 1811
1827 1829 1845 1847 1863 1865 1881 1883 1899 1901 1917 1919 1935 1937
1953 1955 1971 1973 1989 1991 2007 2009 2025 2027 2043 2045 2061 2063
2079 2081 2097 2099 2115 2117 2133 2135 2151 2153 2169 2171 2187 2189
2205 2207 2223 2225 2241 2243 2259 2261 2277 2279 2295 2297 2313 2315
2331 2333 2349 2351 2367 2369 2385 2387 2403 2405 2421 2423 2439 2441
2456 2458 2472 2474 2488 2490 2504 2506 2520 2522 2536 2538 2553 2555
2570 2572 2587 2589 2604 2606 2621 2623 2638 2640 4083 4085 4099 4101
4115 4117 4131 4133 4147 4149 4163 4165 4179 4181 4195 4197 4211 4213
4227 4229 4243 4245 4259 4261 4274 4276 4290 4292 4306 4308 4322 4324
4362 4364 4378 4380 4394 4396 4414 4416 4430 4432 4446 4448 4466 4468
4482 4484 4498 4500 4518 4520 4534 4536 4550 4552 4570 4572 4586 4588
4602 4604 4622 4624 4638 4640 4654 4656 4674 4676 4690 4692 4706 4708
4726 4728 4742 4744 4758 4760 4778 4780 4794 4796 4810 4812 4830 4832
4846 4848 4862 4864 4882 4884 4898 4900 4914 4916 4934 4936 4950 4952
4966 4968 4986 4988 5002 5004 5018 5020 5038 5040 5054 5056 5070 5072
5090 5092 5106 5108 5122 5124 5145 5147 5162 5164 5180 5182 5234 5236
5251 5253 5269 5271 5289 5291 5306 5308 5324 5326 5345 5347 5362 5364
5380 5382 5400 5402 5417 5419 5435 5437 5456 5458 5473 5475 5491 5493
5511 5513 5528 5530 5546 5548 5567 5569 5584 5586 5602 5604 5622 5624
5639 5641 5657 5659 5678 5680 5695 5697 5713 5715 5733 5735 5750 5752
5768 5770 5789 5791 5806 5808 5824 5826 5844 5846 5861 5863 5879 5881
5900 5902 5917 5919 5935 5937 5955 5957 5972 5974 5990 5992 6006 6008
6022 6024 6039 6041 6056 6058 6072 6074 6089 6091 6106 6108 6123 6125
6140 6142 6157 6159 6174 6176 6191 6193 6208 6210 6224 6226 6242 6244
8380 8394 8407 8420 8435 8446
CAMN 8460 SEQ 0250
DEFINE 8 91 97 106 121 137 305 308 314 388 399
END 8734
HRL 8463
HRLI 6855 6858 6885 6888 6915 6918 6945 6948 7012 7015 7042 7045 7072 7075
7102 7105 7168 7171 7198 7201 7228 7231 7295 7298 7325 7328 7355 7358
7421 7424 7451 7454 7481 7484 7548 7551 7578 7581 7608 7611 7674 7677
7704 7707 7734 7737 7764 7767 7831 7834 7861 7864 7891 7894 7921 7924
7987 7990 8017 8020 8047 8050 8077 8080 8144 8147 8174 8177 8204 8207
8234 8237
HRRZ 8459 8489 8528
IFDEF 409 460 461 462 463 8493 8563 8725 8732
IFE 2822 2841 2860 2879 2898 2917 2936 2955 3005 3025 3045 3065 3085 3105
3186 3205 3224 3243 3262 3281 3300 3319 3645 3667 3689 3711 3733 3755
3801 3822 3843 3864 3885 3906 3953 3975 3997 4019 4041 4063
IFNDEF 360 361 371 460 461 462 463 542 8611
JFCL 500 501 502 503 504 505 506 507 508 509 510 511 8266 8270
8276 8280 8293 8297 8302 8306 8317 8321 8328 8332 8345 8349 8354 8358
JRST 70 71 72 73 74 75 76 210 211 212 213 422 423 425
427 429 431 433 436 438 439 492 763 8271 8281 8322 8333 8450
8467 8474 8477 8482 8510 8516 8530 8532 8534 8537 8540 8542 8544 8570
8573 8586 8590 8593 8596 8600 8601 8605
JSP 219 8269 8279 8296 8305 8320 8331 8348 8357
JUMPL 804 822 840 858 876 894 912 930 948 966 984 1002 1020 1038
1056 1074 1092 1110 1128 1146 1164 1182 1200 1218 1236 1254 1272 1290
1308 1326 1344 1362 1380 1398 1416 1434 1452 1470 1488 1506 1524 1542
1560 1578 1613 1631 1649 1667 1685 1704 1723 1741 1759 1777 1795 1813
1831 1849 1867 1885 1903 1921 1939 1957 1975 1993 2011 2029 2047 2065
2083 2101 2119 2137 2155 2173 2191 2209 2227 2245 2263 2281 2299 2317
2335 2353 2371 2389 2407 2425 2443 2460 2476 2492 2508 2524 2540 2557
2574 2591 2608 2625 2642 2697 2719 2741 2766 2773 2780 2827 2846 2865
2884 2903 2922 2941 2960 3011 3031 3051 3071 3091 3111 3136 3144 3191
3210 3229 3248 3267 3286 3305 3324 3364 3382 3400 3418 3436 3454 3472
3523 3543 3563 3583 3603 3651 3673 3695 3717 3739 3761 3806 3827 3848
3869 3890 3911 3959 3981 4003 4025 4047 4069 4087 4103 4119 4135 4151
4167 4183 4199 4215 4231 4247 4263 4278 4294 4310 4326 4366 4382 4398
4418 4434 4450 4470 4486 4502 4522 4538 4554 4574 4590 4606 4626 4642
4658 4678 4694 4710 4730 4746 4762 4782 4798 4814 4834 4850 4866 4886
4902 4918 4938 4954 4970 4990 5006 5022 5042 5058 5074 5094 5110 5126
5149 5166 5184 5238 5255 5273 5293 5310 5328 5349 5366 5384 5404 5421
5439 5460 5477 5495 5515 5532 5550 5571 5588 5606 5626 5643 5661 5682
5699 5717 5737 5754 5772 5793 5810 5828 5848 5865 5883 5904 5921 5939
5959 5976 5994 6010 6026 6043 6060 6076 6093 6110 6127 6144 6161 6178
6195 6212 6228 6246 6363 6387 6411 6435 6459 6518 6542 6566 6590 6614
6675 6699 6723 6747 6771 6867 6897 6927 6957 7024 7054 7084 7114 7180
7210 7240 7307 7337 7367 7433 7463 7493 7560 7590 7620 7686 7716 7746
7776 7843 7873 7903 7933 7999 8029 8059 8089 8156 8186 8216 8246 8273
8283 8299 8308 8324 8335 8351 8360 8382 8396 8409 8422 8437 8448
LALL 9
LIST 8 371 409 542 8493 8563 8611 8722
LIT 8612
LOC 25 412 736
LSH 2692 2714 2736 8469 8501
LSHC 799 817 835 853 871 889 907 925 943 961 979 997 1015 1033 SEQ 0251
1051 1069 1087 1105 1123 1141 1159 1177 1195 1213 1231 1249 1267 1285
1303 1321 1339 1357 1375 1393 1411 1429 1447 1465 1483 1501 1519 1537
1555 1573 6513 6537 6561 6585 6609
MOVE 760 797 798 815 816 833 834 851 852 869 870 887 888 905
906 923 924 941 942 959 960 977 978 995 996 1013 1014 1031
1032 1049 1050 1067 1068 1085 1086 1103 1104 1121 1122 1139 1140 1157
1158 1175 1176 1193 1194 1211 1212 1229 1230 1247 1248 1265 1266 1283
1284 1301 1302 1319 1320 1337 1338 1355 1356 1373 1374 1391 1392 1409
1410 1427 1428 1445 1446 1463 1464 1481 1482 1499 1500 1517 1518 1535
1536 1553 1554 1571 1572 1606 1607 1624 1625 1642 1643 1660 1661 1678
1679 1697 1698 1716 1717 1734 1735 1752 1753 1770 1771 1788 1789 1806
1807 1824 1825 1842 1843 1860 1861 1878 1879 1896 1897 1914 1915 1932
1933 1950 1951 1968 1969 1986 1987 2004 2005 2022 2023 2040 2041 2058
2059 2076 2077 2094 2095 2112 2113 2130 2131 2148 2149 2166 2167 2184
2185 2202 2203 2220 2221 2238 2239 2256 2257 2274 2275 2292 2293 2310
2311 2328 2329 2346 2347 2364 2365 2382 2383 2400 2401 2418 2419 2436
2437 2453 2454 2469 2470 2485 2486 2501 2502 2517 2518 2533 2534 2550
2551 2567 2568 2584 2585 2601 2602 2618 2619 2635 2636 4080 4081 4096
4097 4112 4113 4128 4129 4144 4145 4160 4161 4176 4177 4192 4193 4208
4209 4224 4225 4240 4241 4256 4257 4271 4272 4287 4288 4303 4304 4319
4320 4359 4360 4375 4376 4391 4392 4411 4412 4427 4428 4443 4444 4463
4464 4479 4480 4495 4496 4515 4516 4531 4532 4547 4548 4567 4568 4583
4584 4599 4600 4619 4620 4635 4636 4651 4652 4671 4672 4687 4688 4703
4704 4723 4724 4739 4740 4755 4756 4775 4776 4791 4792 4807 4808 4827
4828 4843 4844 4859 4860 4879 4880 4895 4896 4911 4912 4931 4932 4947
4948 4963 4964 4983 4984 4999 5000 5015 5016 5035 5036 5051 5052 5067
5068 5087 5088 5103 5104 5119 5120 5142 5143 5159 5160 5177 5178 5231
5232 5248 5249 5266 5267 5286 5287 5303 5304 5321 5322 5342 5343 5359
5360 5377 5378 5397 5398 5414 5415 5432 5433 5453 5454 5470 5471 5488
5489 5508 5509 5525 5526 5543 5544 5564 5565 5581 5582 5599 5600 5619
5620 5636 5637 5654 5655 5675 5676 5692 5693 5710 5711 5730 5731 5747
5748 5765 5766 5786 5787 5803 5804 5821 5822 5841 5842 5858 5859 5876
5877 5897 5898 5914 5915 5932 5933 5952 5953 5969 5970 5987 5988 6003
6004 6019 6020 6036 6037 6053 6054 6069 6070 6086 6087 6103 6104 6120
6121 6137 6138 6154 6155 6171 6172 6188 6189 6205 6206 6221 6222 6239
6240 6856 6886 6916 6946 7013 7043 7073 7103 7169 7199 7229 7296 7326
7356 7422 7452 7482 7549 7579 7609 7675 7705 7735 7765 7832 7862 7892
7922 7988 8018 8048 8078 8145 8175 8205 8235 8378 8392 8405 8418 8433
8444 8462 8468 8471 8472 8485 8500 8503 8505 8508 8514 8518 8574 8582
8583 8591 8595 8598
MOVEI 768 770 2647 2649 2691 2713 2735 2756 2758 2761 2769 2776 2783 2785
2823 2842 2861 2880 2899 2918 2937 2956 2964 2966 3006 3026 3046 3066
3086 3106 3125 3127 3131 3140 3147 3149 3187 3206 3225 3244 3263 3282
3301 3320 3360 3378 3396 3414 3432 3450 3468 3476 3478 3519 3539 3559
3579 3599 3646 3668 3690 3712 3734 3756 3802 3823 3844 3865 3886 3907
3954 3976 3998 4020 4042 4064 6272 6273 6277 6278 6282 6283 6287 6288
6292 6293 6297 6298 6302 6303 6308 6310 6463 6465 6620 6622 6805 6807
6854 6857 6884 6887 6914 6917 6944 6947 6962 6964 7011 7014 7041 7044
7071 7074 7101 7104 7118 7120 7167 7170 7197 7200 7227 7230 7245 7247
7294 7297 7324 7327 7354 7357 7371 7373 7420 7423 7450 7453 7480 7483
7498 7500 7547 7550 7577 7580 7607 7610 7624 7626 7673 7676 7703 7706
7733 7736 7763 7766 7781 7783 7830 7833 7860 7863 7890 7893 7920 7923
7937 7939 7986 7989 8016 8019 8046 8049 8076 8079 8094 8096 8143 8146 SEQ 0252
8173 8176 8203 8206 8233 8236 8260 8262 8287 8289 8311 8313 8339 8341
8372 8374 8377 8391 8404 8417 8525 8571
MOVEM 761 769 771 2648 2650 2757 2759 2784 2786 2965 2967 3126 3128 3148
3150 3477 3479 6309 6311 6464 6466 6621 6623 6806 6808 6859 6889 6919
6949 6963 6965 7016 7046 7076 7106 7119 7121 7172 7202 7232 7246 7248
7299 7329 7359 7372 7374 7425 7455 7485 7499 7501 7552 7582 7612 7625
7627 7678 7708 7738 7768 7782 7784 7835 7865 7895 7925 7938 7940 7991
8021 8051 8081 8095 8097 8148 8178 8208 8238 8261 8263 8288 8290 8312
8314 8340 8342 8373 8375 8455 8456 8457 8470 8490 8572
MOVSI 3132 3139 8267 8294 8303 8318 8346 8355
MOVSS 3648 3670 3692 3714 3736 3758 3956 3978 4000 4022 4044 4066
NOSYM 28
OPDEF 33 34 35 36 37 38 39 40 41 42 43 206 207 208
209 210 211 212 213 219 225 226 234 235 236 237 238 239
240 241 242 243 244 247 248 249 250 251 252 253 254 255
256 257 258 259 260 261 262 263 264 265 266 267 268 269
270 271 272 273 274 275 276 277 278 279 280 281 282 283
284 285 286 287 288 289 290 291 292 293 294 295 296 297
298 299 300 301 303 320 325 326 330 331 332 338 339 345
346 347 348 349 350 351 357 358 365 366 367 368 378 379
380 381 382 409
PAGE 841 985 1129 1255 1381 1507 1650 1796 1940 2084 2228 2372 2509 2575
3326 3605 3913 4136 4200 4399 4451 4503 4555 4607 4659 4711 4763 4815
4867 4919 4971 5023 5075 5127 5185 5274 5329 5385 5440 5496 5551 5607
5662 5718 5773 5829 5884 5940 5995 6128 6196 6305 6773 6959 7242 7495
7778 8091 8284
POP 209
POPJ 207
PUSH 208
PUSHJ 206
REPEAT 2655 2791 2973 3155 3330 3485 3609 3766 3917 4332 5130 5186 6264 6317
6472 6629 6779 6815 6972 7128 7255 7381 7508 7634 7791 7947 8104
ROT 2455 2471 2487 2503 2519 2535 2762 2763 2770 2777 2824 2843 2862 2881
2900 2919 2938 2957 3007 3008 3027 3028 3047 3048 3067 3068 3087 3088
3107 3108 3133 3141 3188 3207 3226 3245 3264 3283 3302 3321 3361 3379
3397 3415 3433 3451 3469 3520 3540 3560 3580 3600 3647 3669 3691 3713
3735 3757 3803 3824 3845 3866 3887 3908 3955 3977 3999 4021 4043 4065
4082 4098 4114 4130 4146 4162 4178 4194 4210 4226 4242 4258 4273 4289
4305 4321 4361 4377 4393 4413 4429 4445 4465 4481 4497 4517 4533 4549
4569 4585 4601 4621 4637 4653 4673 4689 4705 4725 4741 4757 4777 4793
4809 4829 4845 4861 4881 4897 4913 4933 4949 4965 4985 5001 5017 5037
5053 5069 5089 5105 5121 6005 6021 6071 6088 6105 6122 6139 6156 6173
6190 6207 6223 8379 8393 8406 8419 8434 8445
ROTC 2552 2569 2586 2603 2620 2637 5144 5161 5179 5233 5250 5268 5288 5305
5323 5344 5361 5379 5399 5416 5434 5455 5472 5490 5510 5527 5545 5566
5583 5601 5621 5638 5656 5677 5694 5712 5732 5749 5767 5788 5805 5823
5843 5860 5878 5899 5916 5934 5954 5971 5989 6038 6055 6241 6358 6382
6406 6430 6454 6860 6890 6920 6950 7017 7047 7077 7107 7173 7203 7233
7300 7330 7360 7426 7456 7486 7553 7583 7613 7679 7709 7739 7769 7836
7866 7896 7926 7992 8022 8052 8082 8149 8179 8209 8239
SETOM 8432 8480 8578 8584
SETZ 8277 8329
SETZM 8464 8475 SEQ 0253
SIXBIT 83 84 627 628 636 637 8484 8488 8499 8524 8604
SKIPE 6862 6865 6892 6895 6922 6925 6952 6955 7019 7022 7049 7052 7079 7082
7109 7112 7175 7178 7205 7208 7235 7238 7302 7305 7332 7335 7362 7365
7428 7431 7458 7461 7488 7491 7555 7558 7585 7588 7615 7618 7681 7684
7711 7714 7741 7744 7771 7774 7838 7841 7868 7871 7898 7901 7928 7931
7994 7997 8024 8027 8054 8057 8084 8087 8151 8154 8181 8184 8211 8214
8241 8244
SKIPGE 8473
SKIPL 8476 8589
SKIPN 2695 2717 2739 8478 8481 8585
SUBTTL 29 135 170 372 409 410 764 1580 2444 2643 2744 3113 4071 4327
6247 6801 8248 8361 8451 8606
TDNN 3134 3142
TITLE 13
TLNE 8466 8509 8575 8579
TLNN 8577 8599
TRNE 8529 8531 8533
VAR 8730
XCT 8445 8566
XLIST 7 370 408 541 8492 8562 8610
XOR 6861 6864 6891 6894 6921 6924 6951 6954 7018 7021 7048 7051 7078 7081
7108 7111 7174 7177 7204 7207 7234 7237 7301 7304 7331 7334 7361 7364
7427 7430 7457 7460 7487 7490 7554 7557 7584 7587 7614 7617 7680 7683
7710 7713 7740 7743 7770 7773 7837 7840 7867 7870 7897 7900 7927 7930
7993 7996 8023 8026 8053 8056 8083 8086 8150 8153 8180 8183 8210 8213
8240 8243
XWD 797 798 800 802 815 816 818 820 833 834 836 838 851 852
854 856 869 870 872 874 887 888 890 892 905 906 908 910
923 924 926 928 941 942 944 946 959 960 962 964 977 978
980 982 995 996 998 1000 1013 1014 1016 1018 1031 1032 1034 1036
1049 1050 1052 1054 1067 1068 1070 1072 1085 1086 1088 1090 1103 1104
1106 1108 1121 1122 1124 1126 1139 1140 1142 1144 1157 1158 1160 1162
1175 1176 1178 1180 1193 1194 1196 1198 1211 1212 1214 1216 1229 1230
1232 1234 1247 1248 1250 1252 1265 1266 1268 1270 1283 1284 1286 1288
1301 1302 1304 1306 1319 1320 1322 1324 1337 1338 1340 1342 1355 1356
1358 1360 1373 1374 1376 1378 1391 1392 1394 1396 1409 1410 1412 1414
1427 1428 1430 1432 1445 1446 1448 1450 1463 1464 1466 1468 1481 1482
1484 1486 1499 1500 1502 1504 1517 1518 1520 1522 1535 1536 1538 1540
1553 1554 1556 1558 1571 1572 1574 1576 1606 1607 1609 1611 1624 1625
1627 1629 1642 1643 1645 1647 1660 1661 1663 1665 1678 1679 1681 1683
1697 1698 1700 1702 1716 1717 1719 1721 1734 1735 1737 1739 1752 1753
1755 1757 1770 1771 1773 1775 1788 1789 1791 1793 1806 1807 1809 1811
1824 1825 1827 1829 1842 1843 1845 1847 1860 1861 1863 1865 1878 1879
1881 1883 1896 1897 1899 1901 1914 1915 1917 1919 1932 1933 1935 1937
1950 1951 1953 1955 1968 1969 1971 1973 1986 1987 1989 1991 2004 2005
2007 2009 2022 2023 2025 2027 2040 2041 2043 2045 2058 2059 2061 2063
2076 2077 2079 2081 2094 2095 2097 2099 2112 2113 2115 2117 2130 2131
2133 2135 2148 2149 2151 2153 2166 2167 2169 2171 2184 2185 2187 2189
2202 2203 2205 2207 2220 2221 2223 2225 2238 2239 2241 2243 2256 2257
2259 2261 2274 2275 2277 2279 2292 2293 2295 2297 2310 2311 2313 2315
2328 2329 2331 2333 2346 2347 2349 2351 2364 2365 2367 2369 2382 2383
2385 2387 2400 2401 2403 2405 2418 2419 2421 2423 2436 2437 2439 2441
2453 2454 2456 2458 2469 2470 2472 2474 2485 2486 2488 2490 2501 2502 SEQ 0254
2504 2506 2517 2518 2520 2522 2533 2534 2536 2538 2550 2551 2553 2555
2567 2568 2570 2572 2584 2585 2587 2589 2601 2602 2604 2606 2618 2619
2621 2623 2635 2636 2638 2640 4080 4081 4083 4085 4096 4097 4099 4101
4112 4113 4115 4117 4128 4129 4131 4133 4144 4145 4147 4149 4160 4161
4163 4165 4176 4177 4179 4181 4192 4193 4195 4197 4208 4209 4211 4213
4224 4225 4227 4229 4240 4241 4243 4245 4256 4257 4259 4261 4271 4272
4274 4276 4287 4288 4290 4292 4303 4304 4306 4308 4319 4320 4322 4324
4359 4360 4362 4364 4375 4376 4378 4380 4391 4392 4394 4396 4411 4412
4414 4416 4427 4428 4430 4432 4443 4444 4446 4448 4463 4464 4466 4468
4479 4480 4482 4484 4495 4496 4498 4500 4515 4516 4518 4520 4531 4532
4534 4536 4547 4548 4550 4552 4567 4568 4570 4572 4583 4584 4586 4588
4599 4600 4602 4604 4619 4620 4622 4624 4635 4636 4638 4640 4651 4652
4654 4656 4671 4672 4674 4676 4687 4688 4690 4692 4703 4704 4706 4708
4723 4724 4726 4728 4739 4740 4742 4744 4755 4756 4758 4760 4775 4776
4778 4780 4791 4792 4794 4796 4807 4808 4810 4812 4827 4828 4830 4832
4843 4844 4846 4848 4859 4860 4862 4864 4879 4880 4882 4884 4895 4896
4898 4900 4911 4912 4914 4916 4931 4932 4934 4936 4947 4948 4950 4952
4963 4964 4966 4968 4983 4984 4986 4988 4999 5000 5002 5004 5015 5016
5018 5020 5035 5036 5038 5040 5051 5052 5054 5056 5067 5068 5070 5072
5087 5088 5090 5092 5103 5104 5106 5108 5119 5120 5122 5124 5142 5143
5145 5147 5159 5160 5162 5164 5177 5178 5180 5182 5231 5232 5234 5236
5248 5249 5251 5253 5266 5267 5269 5271 5286 5287 5289 5291 5303 5304
5306 5308 5321 5322 5324 5326 5342 5343 5345 5347 5359 5360 5362 5364
5377 5378 5380 5382 5397 5398 5400 5402 5414 5415 5417 5419 5432 5433
5435 5437 5453 5454 5456 5458 5470 5471 5473 5475 5488 5489 5491 5493
5508 5509 5511 5513 5525 5526 5528 5530 5543 5544 5546 5548 5564 5565
5567 5569 5581 5582 5584 5586 5599 5600 5602 5604 5619 5620 5622 5624
5636 5637 5639 5641 5654 5655 5657 5659 5675 5676 5678 5680 5692 5693
5695 5697 5710 5711 5713 5715 5730 5731 5733 5735 5747 5748 5750 5752
5765 5766 5768 5770 5786 5787 5789 5791 5803 5804 5806 5808 5821 5822
5824 5826 5841 5842 5844 5846 5858 5859 5861 5863 5876 5877 5879 5881
5897 5898 5900 5902 5914 5915 5917 5919 5932 5933 5935 5937 5952 5953
5955 5957 5969 5970 5972 5974 5987 5988 5990 5992 6003 6004 6006 6008
6019 6020 6022 6024 6036 6037 6039 6041 6053 6054 6056 6058 6069 6070
6072 6074 6086 6087 6089 6091 6103 6104 6106 6108 6120 6121 6123 6125
6137 6138 6140 6142 6154 6155 6157 6159 6171 6172 6174 6176 6188 6189
6191 6193 6205 6206 6208 6210 6221 6222 6224 6226 6239 6240 6242 6244
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 1 SEQ 0255
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777
*030632 LSHC 1,000001
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(AC+1)= 777777 777777 E= 000000 000001
FINAL
C(AC)= 777777 777777 C(AC+1)= 777777 777776
----------
*030642 LSHC 1,000001
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000001 E= 000000 000001
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000002
----------
*030652 LSHC 1,000001
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(AC+1)= 777777 777776 E= 000000 000001
FINAL
C(AC)= 777777 777777 C(AC+1)= 777777 777774
----------
*030662 LSHC 1,000001
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 100000 000000 E= 000000 000001
FINAL
C(AC)= 000000 000000 C(AC+1)= 200000 000000
----------
*030672 LSHC 1,000001
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(AC+1)= 677777 777777 E= 000000 000001
FINAL
C(AC)= 777777 777777 C(AC+1)= 577777 777776
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 2
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0256
*030702 LSHC 1,000001
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 200000 000000 E= 000000 000001
FINAL
C(AC)= 000000 000000 C(AC+1)= 400000 000000
----------
*030712 LSHC 1,000001
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(AC+1)= 577777 777777 E= 000000 000001
FINAL
C(AC)= 777777 777777 C(AC+1)= 377777 777776
----------
*030722 LSHC 1,000001
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 400000 000000 E= 000000 000001
FINAL
C(AC)= 000000 000001 C(AC+1)= 000000 000000
----------
*030732 LSHC 1,000001
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(AC+1)= 377777 777777 E= 000000 000001
FINAL
C(AC)= 777777 777776 C(AC+1)= 777777 777776
----------
*030742 LSHC 1,000001
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(AC+1)= 000000 000000 E= 000000 000001
FINAL
C(AC)= 000000 000002 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 3
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0257
*030752 LSHC 1,000001
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777776 C(AC+1)= 777777 777777 E= 000000 000001
FINAL
C(AC)= 777777 777775 C(AC+1)= 777777 777776
----------
*030762 LSHC 1,000001
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 100000 000000 C(AC+1)= 000000 000000 E= 000000 000001
FINAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000
----------
*030772 LSHC 1,000001
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 677777 777777 C(AC+1)= 777777 777777 E= 000000 000001
FINAL
C(AC)= 577777 777777 C(AC+1)= 777777 777776
----------
*031002 LSHC 1,000001
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000 E= 000000 000001
FINAL
C(AC)= 400000 000000 C(AC+1)= 000000 000000
----------
*031012 LSHC 1,000001
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 577777 777777 C(AC+1)= 777777 777777 E= 000000 000001
FINAL
C(AC)= 377777 777777 C(AC+1)= 777777 777776
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 4
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0258
*031022 LSHC 1,777777
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(AC+1)= 777777 777777 E= 000000 777777
FINAL
C(AC)= 377777 777777 C(AC+1)= 777777 777777
----------
*031032 LSHC 1,777777
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 400000 000000 C(AC+1)= 000000 000000 E= 000000 777777
FINAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000
----------
*031042 LSHC 1,777777
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 377777 777777 C(AC+1)= 777777 777777 E= 000000 777777
FINAL
C(AC)= 177777 777777 C(AC+1)= 777777 777777
----------
*031052 LSHC 1,777777
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000004 C(AC+1)= 000000 000000 E= 000000 777777
FINAL
C(AC)= 000000 000002 C(AC+1)= 000000 000000
----------
*031062 LSHC 1,777777
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777773 C(AC+1)= 777777 777777 E= 000000 777777
FINAL
C(AC)= 377777 777775 C(AC+1)= 777777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 5
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0259
*031072 LSHC 1,777777
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000002 C(AC+1)= 000000 000000 E= 000000 777777
FINAL
C(AC)= 000000 000001 C(AC+1)= 000000 000000
----------
*031102 LSHC 1,777777
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777775 C(AC+1)= 777777 777777 E= 000000 777777
FINAL
C(AC)= 377777 777776 C(AC+1)= 777777 777777
----------
*031112 LSHC 1,777777
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(AC+1)= 000000 000000 E= 000000 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 400000 000000
----------
*031122 LSHC 1,777777
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777776 C(AC+1)= 777777 777777 E= 000000 777777
FINAL
C(AC)= 377777 777777 C(AC+1)= 377777 777777
----------
*031132 LSHC 1,777777
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 400000 000000 E= 000000 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 200000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 6
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0260
*031142 LSHC 1,777777
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(AC+1)= 377777 777777 E= 000000 777777
FINAL
C(AC)= 377777 777777 C(AC+1)= 577777 777777
----------
*031152 LSHC 1,777777
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000004 E= 000000 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000002
----------
*031162 LSHC 1,777777
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(AC+1)= 777777 777773 E= 000000 777777
FINAL
C(AC)= 377777 777777 C(AC+1)= 777777 777775
----------
*031172 LSHC 1,777777
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000002 E= 000000 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000001
----------
*031202 LSHC 1,777777
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(AC+1)= 777777 777775 E= 000000 777777
FINAL
C(AC)= 377777 777777 C(AC+1)= 777777 777776
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 7
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0261
*031212 LSHC 1,777776
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(AC+1)= 777777 777777 E= 000000 777776
FINAL
C(AC)= 177777 777777 C(AC+1)= 777777 777777
----------
*031222 LSHC 1,777776
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(AC+1)= 777777 777777 E= 000000 777776
FINAL
C(AC)= 177777 777777 C(AC+1)= 777777 777777
----------
*031232 LSHC 1,777776
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000010 C(AC+1)= 000000 000000 E= 000000 777776
FINAL
C(AC)= 000000 000002 C(AC+1)= 000000 000000
----------
*031242 LSHC 1,777776
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777767 C(AC+1)= 777777 777777 E= 000000 777776
FINAL
C(AC)= 177777 777775 C(AC+1)= 777777 777777
----------
*031252 LSHC 1,777776
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000004 C(AC+1)= 000000 000000 E= 000000 777776
FINAL
C(AC)= 000000 000001 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 8
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0262
*031262 LSHC 1,777776
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777773 C(AC+1)= 777777 777777 E= 000000 777776
FINAL
C(AC)= 177777 777776 C(AC+1)= 777777 777777
----------
*031272 LSHC 1,777776
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000002 C(AC+1)= 000000 000000 E= 000000 777776
FINAL
C(AC)= 000000 000000 C(AC+1)= 400000 000000
----------
*031302 LSHC 1,777776
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777775 C(AC+1)= 777777 777777 E= 000000 777776
FINAL
C(AC)= 177777 777777 C(AC+1)= 377777 777777
----------
*031312 LSHC 1,777776
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000001 C(AC+1)= 000000 000000 E= 000000 777776
FINAL
C(AC)= 000000 000000 C(AC+1)= 200000 000000
----------
*031322 LSHC 1,777776
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777776 C(AC+1)= 777777 777777 E= 000000 777776
FINAL
C(AC)= 177777 777777 C(AC+1)= 577777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 9
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0263
*031332 LSHC 1,777776
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000010 E= 000000 777776
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000002
----------
*031342 LSHC 1,777776
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(AC+1)= 777777 777767 E= 000000 777776
FINAL
C(AC)= 177777 777777 C(AC+1)= 777777 777775
----------
*031352 LSHC 1,777776
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000004 E= 000000 777776
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000001
----------
*031362 LSHC 1,777776
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(AC+1)= 777777 777773 E= 000000 777776
FINAL
C(AC)= 177777 777777 C(AC+1)= 777777 777776
----------
*031372 ASHC 1,000001
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(AC+1)= 777777 777777 E= 000000 000001
FINAL
C(AC)= 777777 777777 C(AC+1)= 777777 777776
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 10
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0264
*031402 ASHC 1,000001
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000001 E= 000000 000001
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000002
----------
*031412 ASHC 1,000001
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(AC+1)= 777777 777776 E= 000000 000001
FINAL
C(AC)= 777777 777777 C(AC+1)= 777777 777774
----------
*031422 ASHC 1,000001
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 000000 000000 C(AC+1)= 100000 000000 E= 000000 000001
FINAL
C(AC)= 000000 000000 C(AC+1)= 200000 000000
----------
*031432 ASHC 1,000001
FLAGS - INT/FINAL 000000 000000
INITIAL
C(AC)= 777777 777777 C(AC+1)= 677777 777777 E= 000000 000001
FINAL
C(AC)= 777777 777777 C(AC+1)= 577777 777776
----------
*031442 ASHC 1,000001
FLAGS - INT/FINAL 000000 400200
INITIAL
C(AC)= 400000 000000 C(AC+1)= 000000 000000 E= 000000 000001
FINAL
C(AC)= 400000 000000 C(AC+1)= 400000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 11
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0265
*031452 ASHC 1,000001
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 377777 777777 C(AC+1)= 777777 777777 E= 000000 000001
FINAL
C(AC)= 377777 777777 C(AC+1)= 377777 777776
----------
*031462 ASHC 1,000001
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000000 C(AC+1)= 200000 000000 E= 000000 000001
FINAL
C(AC)= 000000 000001 C(AC+1)= 000000 000000
----------
*031472 ASHC 1,000001
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 577777 777777 E= 000000 000001
FINAL
C(AC)= 777777 777776 C(AC+1)= 777777 777776
----------
*031502 ASHC 1,000001
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 C(AC+1)= 000000 000000 E= 000000 000001
FINAL
C(AC)= 000000 000002 C(AC+1)= 000000 000000
----------
*031512 ASHC 1,000001
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 777777 777776 C(AC+1)= 777777 777777 E= 000000 000001
FINAL
C(AC)= 777777 777775 C(AC+1)= 777777 777776
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 12
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0266
*031522 ASHC 1,000001
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 100000 000000 C(AC+1)= 000000 000000 E= 000000 000001
FINAL
C(AC)= 200000 000000 C(AC+1)= 000000 000000
----------
*031532 ASHC 1,000001
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 677777 777777 C(AC+1)= 777777 777777 E= 000000 000001
FINAL
C(AC)= 577777 777777 C(AC+1)= 777777 777776
----------
*031542 ASHC 1,000001
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 400000 000000 C(AC+1)= 400000 000000 E= 000000 000001
FINAL
C(AC)= 400000 000000 C(AC+1)= 400000 000000
----------
*031552 ASHC 1,000001
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 377777 777777 C(AC+1)= 377777 777777 E= 000000 000001
FINAL
C(AC)= 377777 777777 C(AC+1)= 377777 777776
----------
*031562 ASHC 1,777777
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 400000 000000 C(AC+1)= 400000 000000 E= 000000 777777
FINAL
C(AC)= 600000 000000 C(AC+1)= 400000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 13
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0267
*031572 ASHC 1,777777
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 377777 777777 C(AC+1)= 377777 777777 E= 000000 777777
FINAL
C(AC)= 177777 777777 C(AC+1)= 377777 777777
----------
*031602 ASHC 1,777777
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 400000 000000 C(AC+1)= 400000 000000 E= 000000 777777
FINAL
C(AC)= 600000 000000 C(AC+1)= 400000 000000
----------
*031612 ASHC 1,777777
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 377777 777777 C(AC+1)= 377777 777777 E= 000000 777777
FINAL
C(AC)= 177777 777777 C(AC+1)= 377777 777777
----------
*031622 ASHC 1,777777
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000004 C(AC+1)= 000000 000000 E= 000000 777777
FINAL
C(AC)= 000000 000002 C(AC+1)= 000000 000000
----------
*031632 ASHC 1,777777
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 777777 777773 C(AC+1)= 777777 777777 E= 000000 777777
FINAL
C(AC)= 777777 777775 C(AC+1)= 777777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 14
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0268
*031642 ASHC 1,777777
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000002 C(AC+1)= 000000 000000 E= 000000 777777
FINAL
C(AC)= 000000 000001 C(AC+1)= 000000 000000
----------
*031652 ASHC 1,777777
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 777777 777775 C(AC+1)= 777777 777777 E= 000000 777777
FINAL
C(AC)= 777777 777776 C(AC+1)= 777777 777777
----------
*031662 ASHC 1,777777
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 400000 000000 C(AC+1)= 000000 000000 E= 000000 777777
FINAL
C(AC)= 600000 000000 C(AC+1)= 400000 000000
----------
*031672 ASHC 1,777777
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 377777 777777 C(AC+1)= 777777 777777 E= 000000 777777
FINAL
C(AC)= 177777 777777 C(AC+1)= 377777 777777
----------
*031702 ASHC 1,777777
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 C(AC+1)= 000000 000000 E= 000000 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 200000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 15
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0269
*031712 ASHC 1,777777
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 777777 777776 C(AC+1)= 777777 777777 E= 000000 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 577777 777777
----------
*031722 ASHC 1,777777
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000004 E= 000000 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000002
----------
*031732 ASHC 1,777777
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 777777 777773 E= 000000 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 777777 777775
----------
*031742 ASHC 1,777777
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000002 E= 000000 777777
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000001
----------
*031752 ASHC 1,777777
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 777777 777775 E= 000000 777777
FINAL
C(AC)= 777777 777777 C(AC+1)= 777777 777776
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 16
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0270
*031762 ASHC 1,777776
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 400000 000000 C(AC+1)= 400000 000000 E= 000000 777776
FINAL
C(AC)= 700000 000000 C(AC+1)= 400000 000000
----------
*031772 ASHC 1,777776
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 377777 777777 C(AC+1)= 377777 777777 E= 000000 777776
FINAL
C(AC)= 077777 777777 C(AC+1)= 377777 777777
----------
*032002 ASHC 1,777776
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 400000 000000 C(AC+1)= 400000 000000 E= 000000 777776
FINAL
C(AC)= 700000 000000 C(AC+1)= 400000 000000
----------
*032012 ASHC 1,777776
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 377777 777777 C(AC+1)= 377777 777777 E= 000000 777776
FINAL
C(AC)= 077777 777777 C(AC+1)= 377777 777777
----------
*032022 ASHC 1,777776
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000010 C(AC+1)= 000000 000000 E= 000000 777776
FINAL
C(AC)= 000000 000002 C(AC+1)= 000000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 17
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0271
*032032 ASHC 1,777776
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 777777 777767 C(AC+1)= 777777 777777 E= 000000 777776
FINAL
C(AC)= 777777 777775 C(AC+1)= 777777 777777
----------
*032042 ASHC 1,777776
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000004 C(AC+1)= 000000 000000 E= 000000 777776
FINAL
C(AC)= 000000 000001 C(AC+1)= 000000 000000
----------
*032052 ASHC 1,777776
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 777777 777773 C(AC+1)= 777777 777777 E= 000000 777776
FINAL
C(AC)= 777777 777776 C(AC+1)= 777777 777777
----------
*032062 ASHC 1,777776
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 400000 000000 C(AC+1)= 000000 000000 E= 000000 777776
FINAL
C(AC)= 700000 000000 C(AC+1)= 400000 000000
----------
*032072 ASHC 1,777776
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 377777 777777 C(AC+1)= 777777 777777 E= 000000 777776
FINAL
C(AC)= 077777 777777 C(AC+1)= 377777 777777
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 18
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0272
*032102 ASHC 1,777776
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000002 C(AC+1)= 000000 000000 E= 000000 777776
FINAL
C(AC)= 000000 000000 C(AC+1)= 200000 000000
----------
*032112 ASHC 1,777776
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 777777 777775 C(AC+1)= 777777 777777 E= 000000 777776
FINAL
C(AC)= 777777 777777 C(AC+1)= 577777 777777
----------
*032122 ASHC 1,777776
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000010 E= 000000 777776
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000002
----------
*032132 ASHC 1,777776
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 777777 777767 E= 000000 777776
FINAL
C(AC)= 777777 777777 C(AC+1)= 777777 777775
----------
*032142 ASHC 1,777776
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000004 E= 000000 777776
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000001
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 19
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0273
*032152 ASHC 1,777776
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 777777 777777 C(AC+1)= 777777 777773 E= 000000 777776
FINAL
C(AC)= 777777 777777 C(AC+1)= 777777 777776
----------
*032162 ROT 1,000001
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 252525 252525 E= 000000 000001
FINAL
C(AC)= 525252 525252
----------
*032172 ROT 1,000001
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 525252 525252 E= 000000 000001
FINAL
C(AC)= 252525 252525
----------
*032202 ROT 1,777777
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 252525 252525 E= 000000 777777
FINAL
C(AC)= 525252 525252
----------
*032212 ROT 1,777777
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 525252 525252 E= 000000 777777
FINAL
C(AC)= 252525 252525
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 20
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0274
*032222 ROT 1,777776
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 146314 631463 E= 000000 777776
FINAL
C(AC)= 631463 146314
----------
*032232 ROT 1,777776
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 631463 146314 E= 000000 777776
FINAL
C(AC)= 146314 631463
----------
*032242 ROTC 1,000001
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 252525 252525 C(AC+1)= 252525 252525 E= 000000 000001
FINAL
C(AC)= 525252 525252 C(AC+1)= 525252 525252
----------
*032252 ROTC 1,000001
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 525252 525252 C(AC+1)= 525252 525252 E= 000000 000001
FINAL
C(AC)= 252525 252525 C(AC+1)= 252525 252525
----------
*032262 ROTC 1,777777
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 252525 252525 C(AC+1)= 252525 252525 E= 000000 777777
FINAL
C(AC)= 525252 525252 C(AC+1)= 525252 525252
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 21
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0275
*032272 ROTC 1,777777
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 525252 525252 C(AC+1)= 525252 525252 E= 000000 777777
FINAL
C(AC)= 252525 252525 C(AC+1)= 252525 252525
----------
*032302 ROTC 1,777776
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 146314 631463 C(AC+1)= 146314 631463 E= 000000 777776
FINAL
C(AC)= 631463 146314 C(AC+1)= 631463 146314
----------
*032312 ROTC 1,777776
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 631463 146314 C(AC+1)= 631463 146314 E= 000000 777776
FINAL
C(AC)= 146314 631463 C(AC+1)= 146314 631463
----------
*032325 LSH 5,000020
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000020
FINAL
C(AC)= 000000 200000
----------
*032334 LSH 5,000021
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000021
FINAL
C(AC)= 000000 400000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 22
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0276
*032343 LSH 5,000022
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000022
FINAL
C(AC)= 000001 000000
----------
*032356 ROT 7,777773
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 777773
FINAL
C(AC)= 020000 000000
----------
*032357 ROT 7,000007
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 020000 000000 E= 000000 000007
FINAL
C(AC)= 000000 000004
----------
*032364 ROT 7,000017
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000017
FINAL
C(AC)= 000000 100000
----------
*032371 ROT 7,000037
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000037
FINAL
C(AC)= 020000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 23
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0277
*032402 ROT 6,000001
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000001
FINAL
C(AC)= 000000 000002
----------
*032407 ROT 6,000002
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000002
FINAL
C(AC)= 000000 000004
----------
*032414 ROT 6,000004
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000004
FINAL
C(AC)= 000000 000020
----------
*032421 ROT 6,000010
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000010
FINAL
C(AC)= 000000 000400
----------
*032426 ROT 6,000020
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000020
FINAL
C(AC)= 000000 200000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 24
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0278
*032433 ROT 6,000040
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000040
FINAL
C(AC)= 040000 000000
----------
*032440 ROT 6,000100
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000100
FINAL
C(AC)= 002000 000000
----------
*032445 ROT 6,000200
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000200
FINAL
C(AC)= 000004 000000
----------
*032456 ROT 5,777776
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 777776
FINAL
C(AC)= 200000 000000
----------
*032457 ROT 5,000001
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 200000 000000 E= 000000 000001
FINAL
C(AC)= 400000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 25
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0279
*032464 ROT 5,777774
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 777774
FINAL
C(AC)= 040000 000000
----------
*032465 ROT 5,000002
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 040000 000000 E= 000000 000002
FINAL
C(AC)= 200000 000000
----------
*032472 ROT 5,777770
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 777770
FINAL
C(AC)= 002000 000000
----------
*032473 ROT 5,000004
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 002000 000000 E= 000000 000004
FINAL
C(AC)= 040000 000000
----------
*032500 ROT 5,777760
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 777760
FINAL
C(AC)= 000004 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 26
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0280
*032501 ROT 5,000010
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000004 000000 E= 000000 000010
FINAL
C(AC)= 002000 000000
----------
*032506 ROT 5,777740
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 777740
FINAL
C(AC)= 000000 000020
----------
*032507 ROT 5,000020
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000020 E= 000000 000020
FINAL
C(AC)= 000004 000000
----------
*032514 ROT 5,777700
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 777700
FINAL
C(AC)= 000000 000400
----------
*032515 ROT 5,000040
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000400 E= 000000 000040
FINAL
C(AC)= 000000 000020
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 27
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0281
*032527 ROT 4,000003
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 400000 E= 000000 000003
FINAL
C(AC)= 000004 000000
----------
*032535 ROT 4,777775
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000001 000000 E= 000000 777775
FINAL
C(AC)= 000000 100000
----------
*032546 ROT 3,000001
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000001
FINAL
C(AC)= 000000 000002
----------
*032553 ROT 3,000002
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000002
FINAL
C(AC)= 000000 000004
----------
*032560 ROT 3,000004
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000004
FINAL
C(AC)= 000000 000020
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 28
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0282
*032565 ROT 3,000010
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000010
FINAL
C(AC)= 000000 000400
----------
*032572 ROT 3,000020
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000020
FINAL
C(AC)= 000000 200000
----------
*032577 ROT 3,000040
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000040
FINAL
C(AC)= 040000 000000
----------
*032604 ROT 3,000100
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000100
FINAL
C(AC)= 002000 000000
----------
*032611 ROT 3,000200
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000200
FINAL
C(AC)= 000004 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 29
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0283
*032616 ROT 3,000002
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000002
FINAL
C(AC)= 000000 000004
----------
*032623 ROT 3,000004
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000004
FINAL
C(AC)= 000000 000020
----------
*032630 ROT 3,000010
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000010
FINAL
C(AC)= 000000 000400
----------
*032635 ROT 3,000020
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000020
FINAL
C(AC)= 000000 200000
----------
*032642 ROT 3,000040
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000040
FINAL
C(AC)= 040000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 30
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0284
*032647 ROT 3,000100
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000100
FINAL
C(AC)= 002000 000000
----------
*032654 ROT 3,000200
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000200
FINAL
C(AC)= 000004 000000
----------
*032665 ROT 2,000003
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000003
FINAL
C(AC)= 000000 000010
----------
*032672 ROT 2,000006
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000006
FINAL
C(AC)= 000000 000100
----------
*032677 ROT 2,000011
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000011
FINAL
C(AC)= 000000 001000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 31
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0285
*032704 ROT 2,000014
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000014
FINAL
C(AC)= 000000 010000
----------
*032711 ROT 2,000017
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000017
FINAL
C(AC)= 000000 100000
----------
*032716 ROT 2,000022
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000022
FINAL
C(AC)= 000001 000000
----------
*032724 ROT 2,000025
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000025
FINAL
C(AC)= 000010 000000
----------
*032732 ROT 2,000030
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000030
FINAL
C(AC)= 000100 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 32
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0286
*032740 ROT 2,000033
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000033
FINAL
C(AC)= 001000 000000
----------
*032746 ROT 2,000036
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000036
FINAL
C(AC)= 010000 000000
----------
*032754 ROT 2,000041
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000041
FINAL
C(AC)= 100000 000000
----------
*032762 ROT 2,000044
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000044
FINAL
C(AC)= 000000 000001
----------
*032767 ROT 2,000047
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000047
FINAL
C(AC)= 000000 000010
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 33
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0287
*032774 ROT 2,000052
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000052
FINAL
C(AC)= 000000 000100
----------
*033001 ROT 2,000055
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000055
FINAL
C(AC)= 000000 001000
----------
*033006 ROT 2,000060
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000060
FINAL
C(AC)= 000000 010000
----------
*033013 ROT 2,000063
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000063
FINAL
C(AC)= 000000 100000
----------
*033020 ROT 2,000066
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000066
FINAL
C(AC)= 000001 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 34
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0288
*033026 ROT 2,000071
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000071
FINAL
C(AC)= 000010 000000
----------
*033034 ROT 2,000074
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000074
FINAL
C(AC)= 000100 000000
----------
*033042 ROT 2,000077
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000077
FINAL
C(AC)= 001000 000000
----------
*033050 ROT 2,000102
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000102
FINAL
C(AC)= 010000 000000
----------
*033056 ROT 2,000105
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 E= 000000 000105
FINAL
C(AC)= 100000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 35
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0289
*033065 ROT 2,000000
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000000
FINAL
C(AC)= 230703 603700
----------
*033075 ROT 2,000077
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000077
FINAL
C(AC)= 700230 703603
----------
*033105 ROT 2,000076
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000076
FINAL
C(AC)= 740114 341701
----------
*033115 ROT 2,000074
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000074
FINAL
C(AC)= 370023 070360
----------
*033125 ROT 2,000070
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000070
FINAL
C(AC)= 017401 143417
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 36
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0290
*033135 ROT 2,000060
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000060
FINAL
C(AC)= 036037 002307
----------
*033145 ROT 2,000040
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000040
FINAL
C(AC)= 011434 170174
----------
*033155 ROT 2,000100
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000100
FINAL
C(AC)= 600461 607407
----------
*033165 ROT 2,000001
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000001
FINAL
C(AC)= 461607 407600
----------
*033175 ROT 2,000002
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000002
FINAL
C(AC)= 143417 017401
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 37
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0291
*033205 ROT 2,000003
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000003
FINAL
C(AC)= 307036 037002
----------
*033215 ROT 2,000005
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000005
FINAL
C(AC)= 434170 174011
----------
*033225 ROT 2,000011
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000011
FINAL
C(AC)= 703603 700230
----------
*033235 ROT 2,000021
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000021
FINAL
C(AC)= 701740 114341
----------
*033245 ROT 2,000041
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000041
FINAL
C(AC)= 023070 360370
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 38
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0292
*033255 ROT 2,000101
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000101
FINAL
C(AC)= 401143 417017
----------
*033265 ROT 2,777403
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 777403
FINAL
C(AC)= 114341 701740
----------
*033275 ROT 2,777404
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 777404
FINAL
C(AC)= 230703 603700
----------
*033305 ROT 2,777405
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 777405
FINAL
C(AC)= 461607 407600
----------
*033315 ROT 2,777447
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 777447
FINAL
C(AC)= 114341 701740
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 39
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0293
*033325 ROT 2,777450
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 777450
FINAL
C(AC)= 230703 603700
----------
*033335 ROT 2,777451
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 777451
FINAL
C(AC)= 461607 407600
----------
*033345 ROT 2,777513
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 777513
FINAL
C(AC)= 114341 701740
----------
*033355 ROT 2,777514
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 777514
FINAL
C(AC)= 230703 603700
----------
*033365 ROT 2,777515
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 777515
FINAL
C(AC)= 461607 407600
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 40
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0294
*033375 ROT 2,777557
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 777557
FINAL
C(AC)= 114341 701740
----------
*033405 ROT 2,777560
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 777560
FINAL
C(AC)= 230703 603700
----------
*033415 ROT 2,777561
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 777561
FINAL
C(AC)= 461607 407600
----------
*033425 ROT 2,777623
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 777623
FINAL
C(AC)= 114341 701740
----------
*033435 ROT 2,777624
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 777624
FINAL
C(AC)= 230703 603700
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 41
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0295
*033445 ROT 2,777625
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 777625
FINAL
C(AC)= 461607 407600
----------
*033455 ROT 2,777667
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 777667
FINAL
C(AC)= 114341 701740
----------
*033465 ROT 2,777670
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 777670
FINAL
C(AC)= 230703 603700
----------
*033475 ROT 2,777671
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 777671
FINAL
C(AC)= 461607 407600
----------
*033505 ROT 2,777733
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 777733
FINAL
C(AC)= 114341 701740
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 42
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0296
*033515 ROT 2,777734
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 777734
FINAL
C(AC)= 230703 603700
----------
*033525 ROT 2,777735
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 777735
FINAL
C(AC)= 461607 407600
----------
*033535 ROT 2,777777
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 777777
FINAL
C(AC)= 114341 701740
----------
*033545 ROT 2,000000
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000000
FINAL
C(AC)= 230703 603700
----------
*033555 ROT 2,000001
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000001
FINAL
C(AC)= 461607 407600
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 43
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0297
*033565 ROT 2,000043
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000043
FINAL
C(AC)= 114341 701740
----------
*033575 ROT 2,000044
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000044
FINAL
C(AC)= 230703 603700
----------
*033605 ROT 2,000045
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000045
FINAL
C(AC)= 461607 407600
----------
*033615 ROT 2,000107
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000107
FINAL
C(AC)= 114341 701740
----------
*033625 ROT 2,000110
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000110
FINAL
C(AC)= 230703 603700
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 44
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0298
*033635 ROT 2,000111
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000111
FINAL
C(AC)= 461607 407600
----------
*033645 ROT 2,000153
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000153
FINAL
C(AC)= 114341 701740
----------
*033655 ROT 2,000154
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000154
FINAL
C(AC)= 230703 603700
----------
*033665 ROT 2,000155
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000155
FINAL
C(AC)= 461607 407600
----------
*033675 ROT 2,000217
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000217
FINAL
C(AC)= 114341 701740
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 45
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0299
*033705 ROT 2,000220
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000220
FINAL
C(AC)= 230703 603700
----------
*033715 ROT 2,000221
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000221
FINAL
C(AC)= 461607 407600
----------
*033725 ROT 2,000263
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000263
FINAL
C(AC)= 114341 701740
----------
*033735 ROT 2,000264
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000264
FINAL
C(AC)= 230703 603700
----------
*033745 ROT 2,000265
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000265
FINAL
C(AC)= 461607 407600
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 46
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0300
*033755 ROT 2,000327
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000327
FINAL
C(AC)= 114341 701740
----------
*033765 ROT 2,000330
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000330
FINAL
C(AC)= 230703 603700
----------
*033775 ROT 2,000331
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000331
FINAL
C(AC)= 461607 407600
----------
*034005 ROT 2,000373
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000373
FINAL
C(AC)= 114341 701740
----------
*034015 ROT 2,000374
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000374
FINAL
C(AC)= 230703 603700
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 47
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0301
*034025 ROT 2,000375
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000375
FINAL
C(AC)= 461607 407600
----------
*034035 ROTC 2,777403
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777403
FINAL
C(AC)= 374017 700177 C(AC+1)= 514341 701740
----------
*034045 ROTC 2,777404
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777404
FINAL
C(AC)= 770037 600377 C(AC+1)= 230703 603700
----------
*034055 ROTC 2,777405
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777405
FINAL
C(AC)= 760077 400776 C(AC+1)= 461607 407601
----------
*034065 ROTC 2,777447
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777447
FINAL
C(AC)= 514341 701740 C(AC+1)= 374017 700177
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 48
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0302
*034075 ROTC 2,777450
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777450
FINAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377
----------
*034105 ROTC 2,777451
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777451
FINAL
C(AC)= 461607 407601 C(AC+1)= 760077 400776
----------
*034115 ROTC 2,777513
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777513
FINAL
C(AC)= 374017 700177 C(AC+1)= 514341 701740
----------
*034125 ROTC 2,777514
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777514
FINAL
C(AC)= 770037 600377 C(AC+1)= 230703 603700
----------
*034135 ROTC 2,777515
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777515
FINAL
C(AC)= 760077 400776 C(AC+1)= 461607 407601
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 49
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0303
*034145 ROTC 2,777557
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777557
FINAL
C(AC)= 514341 701740 C(AC+1)= 374017 700177
----------
*034155 ROTC 2,777560
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777560
FINAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377
----------
*034165 ROTC 2,777561
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777561
FINAL
C(AC)= 461607 407601 C(AC+1)= 760077 400776
----------
*034175 ROTC 2,777623
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777623
FINAL
C(AC)= 374017 700177 C(AC+1)= 514341 701740
----------
*034205 ROTC 2,777624
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777624
FINAL
C(AC)= 770037 600377 C(AC+1)= 230703 603700
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 50
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0304
*034215 ROTC 2,777625
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777625
FINAL
C(AC)= 760077 400776 C(AC+1)= 461607 407601
----------
*034225 ROTC 2,777667
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777667
FINAL
C(AC)= 514341 701740 C(AC+1)= 374017 700177
----------
*034235 ROTC 2,777670
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777670
FINAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377
----------
*034245 ROTC 2,777671
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777671
FINAL
C(AC)= 461607 407601 C(AC+1)= 760077 400776
----------
*034255 ROTC 2,777733
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777733
FINAL
C(AC)= 374017 700177 C(AC+1)= 514341 701740
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 51
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0305
*034265 ROTC 2,777734
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777734
FINAL
C(AC)= 770037 600377 C(AC+1)= 230703 603700
----------
*034275 ROTC 2,777735
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777735
FINAL
C(AC)= 760077 400776 C(AC+1)= 461607 407601
----------
*034305 ROTC 2,777777
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777777
FINAL
C(AC)= 514341 701740 C(AC+1)= 374017 700177
----------
*034315 ROTC 2,000000
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000000
FINAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377
----------
*034325 ROTC 2,000001
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000001
FINAL
C(AC)= 461607 407601 C(AC+1)= 760077 400776
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 52
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0306
*034335 ROTC 2,000043
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000043
FINAL
C(AC)= 374017 700177 C(AC+1)= 514341 701740
----------
*034345 ROTC 2,000044
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000044
FINAL
C(AC)= 770037 600377 C(AC+1)= 230703 603700
----------
*034355 ROTC 2,000045
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000045
FINAL
C(AC)= 760077 400776 C(AC+1)= 461607 407601
----------
*034365 ROTC 2,000107
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000107
FINAL
C(AC)= 514341 701740 C(AC+1)= 374017 700177
----------
*034375 ROTC 2,000110
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000110
FINAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 53
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0307
*034405 ROTC 2,000111
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000111
FINAL
C(AC)= 461607 407601 C(AC+1)= 760077 400776
----------
*034415 ROTC 2,000153
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000153
FINAL
C(AC)= 374017 700177 C(AC+1)= 514341 701740
----------
*034425 ROTC 2,000154
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000154
FINAL
C(AC)= 770037 600377 C(AC+1)= 230703 603700
----------
*034435 ROTC 2,000155
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000155
FINAL
C(AC)= 760077 400776 C(AC+1)= 461607 407601
----------
*034445 ROTC 2,000217
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000217
FINAL
C(AC)= 514341 701740 C(AC+1)= 374017 700177
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 54
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0308
*034455 ROTC 2,000220
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000220
FINAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377
----------
*034465 ROTC 2,000221
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000221
FINAL
C(AC)= 461607 407601 C(AC+1)= 760077 400776
----------
*034475 ROTC 2,000263
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000263
FINAL
C(AC)= 374017 700177 C(AC+1)= 514341 701740
----------
*034505 ROTC 2,000264
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000264
FINAL
C(AC)= 770037 600377 C(AC+1)= 230703 603700
----------
*034515 ROTC 2,000265
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000265
FINAL
C(AC)= 760077 400776 C(AC+1)= 461607 407601
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 55
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0309
*034525 ROTC 2,000327
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000327
FINAL
C(AC)= 514341 701740 C(AC+1)= 374017 700177
----------
*034535 ROTC 2,000330
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000330
FINAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377
----------
*034545 ROTC 2,000331
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000331
FINAL
C(AC)= 461607 407601 C(AC+1)= 760077 400776
----------
*034555 ROTC 2,000373
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000373
FINAL
C(AC)= 374017 700177 C(AC+1)= 514341 701740
----------
*034565 ROTC 2,000374
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000374
FINAL
C(AC)= 770037 600377 C(AC+1)= 230703 603700
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 56
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0310
*034575 ROTC 2,000375
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000375
FINAL
C(AC)= 760077 400776 C(AC+1)= 461607 407601
----------
*034605 ROT 2,000377
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000377
FINAL
C(AC)= 307036 037002
----------
*034615 ROT 2,777401
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 777401
FINAL
C(AC)= 023070 360370
----------
*034625 ROTC 2,000377
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 000377
FINAL
C(AC)= 700376 003772 C(AC+1)= 307036 037007
----------
*034635 ROTC 2,777401
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 777401
FINAL
C(AC)= 077003 760037 C(AC+1)= 723070 360370
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 57
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0311
*034645 ROT 2,000400
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 000400
FINAL
C(AC)= 230703 603700
----------
*034655 ROT 2,001000
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 001000
FINAL
C(AC)= 230703 603700
----------
*034665 ROT 2,002000
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 002000
FINAL
C(AC)= 230703 603700
----------
*034675 ROT 2,004000
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 004000
FINAL
C(AC)= 230703 603700
----------
*034705 ROT 2,010000
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 010000
FINAL
C(AC)= 230703 603700
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 58
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0312
*034715 ROT 2,020000
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 020000
FINAL
C(AC)= 230703 603700
----------
*034725 ROT 2,040000
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 040000
FINAL
C(AC)= 230703 603700
----------
*034735 ROT 2,100000
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 100000
FINAL
C(AC)= 230703 603700
----------
*034745 ROT 2,200000
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 200000
FINAL
C(AC)= 230703 603700
----------
*034755 ROT 2,400000
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 E= 000000 400000
FINAL
C(AC)= 011434 170174
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 59
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0313
*034765 ROTC 2,400000
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 230703 603700 C(AC+1)= 770037 600377 E= 000000 400000
FINAL
C(AC)= 037401 770017 C(AC+1)= 751434 170174
----------
*035015 ROTC 13,000000
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000013 C(AC+1)= 000000 000014 E= 000000 000000
FINAL
C(AC)= 000000 000013 C(AC+1)= 000000 000014
----------
*035023 ROTC 12,000000
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000012 C(AC+1)= 000000 000013 E= 000000 000000
FINAL
C(AC)= 000000 000012 C(AC+1)= 000000 000013
----------
*035031 ROTC 11,000000
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000011 C(AC+1)= 000000 000012 E= 000000 000000
FINAL
C(AC)= 000000 000011 C(AC+1)= 000000 000012
----------
*035037 ROTC 10,000000
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000010 C(AC+1)= 000000 000011 E= 000000 000000
FINAL
C(AC)= 000000 000010 C(AC+1)= 000000 000011
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 60
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0314
*035045 ROTC 7,000000
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000007 C(AC+1)= 000000 000010 E= 000000 000000
FINAL
C(AC)= 000000 000007 C(AC+1)= 000000 000010
----------
*035057 LSHC 11,000000
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000011 C(AC+1)= 000000 000012 E= 000000 000000
FINAL
C(AC)= 000000 000011 C(AC+1)= 000000 000012
----------
*035065 LSHC 10,000000
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000010 C(AC+1)= 000000 000011 E= 000000 000000
FINAL
C(AC)= 000000 000010 C(AC+1)= 000000 000011
----------
*035073 LSHC 7,000000
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000007 C(AC+1)= 000000 000010 E= 000000 000000
FINAL
C(AC)= 000000 000007 C(AC+1)= 000000 000010
----------
*035101 LSHC 6,000000
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000006 C(AC+1)= 000000 000007 E= 000000 000000
FINAL
C(AC)= 000000 000006 C(AC+1)= 000000 000007
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 61
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0315
*035107 LSHC 5,000000
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000005 C(AC+1)= 000000 000006 E= 000000 000000
FINAL
C(AC)= 000000 000005 C(AC+1)= 000000 000006
----------
*035121 ASHC 4,000000
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000004 C(AC+1)= 000000 000005 E= 000000 000000
FINAL
C(AC)= 000000 000004 C(AC+1)= 000000 000005
----------
*035127 ASHC 3,000000
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000003 C(AC+1)= 000000 000004 E= 000000 000000
FINAL
C(AC)= 000000 000003 C(AC+1)= 000000 000004
----------
*035135 ASHC 2,000000
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000002 C(AC+1)= 000000 000003 E= 000000 000000
FINAL
C(AC)= 000000 000002 C(AC+1)= 000000 000003
----------
*035143 ASHC 1,000000
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000001 C(AC+1)= 000000 000002 E= 000000 000000
FINAL
C(AC)= 000000 000001 C(AC+1)= 000000 000002
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 62
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0316
*035151 ASHC 0,000000
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 000000 000000 C(AC+1)= 000000 000001 E= 000000 000000
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000001
----------
*035171 ROTC 12,000001
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 030303 030303 C(AC+1)= 030303 030303 E= 000000 000001
FINAL
C(AC)= 060606 060606 C(AC+1)= 060606 060606
----------
*035207 ROTC 12,000002
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 030303 030303 C(AC+1)= 030303 030303 E= 000000 000002
FINAL
C(AC)= 141414 141414 C(AC+1)= 141414 141414
----------
*035225 ROTC 12,000003
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 030303 030303 C(AC+1)= 030303 030303 E= 000000 000003
FINAL
C(AC)= 303030 303030 C(AC+1)= 303030 303030
----------
*035243 ROTC 12,000004
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 030303 030303 C(AC+1)= 030303 030303 E= 000000 000004
FINAL
C(AC)= 606060 606060 C(AC+1)= 606060 606060
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 63
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0317
*035265 ROTC 14,777777
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 606060 606060 C(AC+1)= 606060 606060 E= 000000 777777
FINAL
C(AC)= 303030 303030 C(AC+1)= 303030 303030
----------
*035303 ROTC 14,777776
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 606060 606060 C(AC+1)= 606060 606060 E= 000000 777776
FINAL
C(AC)= 141414 141414 C(AC+1)= 141414 141414
----------
*035321 ROTC 14,777775
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 606060 606060 C(AC+1)= 606060 606060 E= 000000 777775
FINAL
C(AC)= 060606 060606 C(AC+1)= 060606 060606
----------
*035337 ROTC 14,777774
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 606060 606060 C(AC+1)= 606060 606060 E= 000000 777774
FINAL
C(AC)= 030303 030303 C(AC+1)= 030303 030303
----------
*035361 ROTC 13,000001
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 050505 050505 C(AC+1)= 050505 050505 E= 000000 000001
FINAL
C(AC)= 121212 121212 C(AC+1)= 121212 121212
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 64
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0318
*035377 ROTC 13,000002
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 050505 050505 C(AC+1)= 050505 050505 E= 000000 000002
FINAL
C(AC)= 242424 242424 C(AC+1)= 242424 242424
----------
*035415 ROTC 13,000003
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 050505 050505 C(AC+1)= 050505 050505 E= 000000 000003
FINAL
C(AC)= 505050 505050 C(AC+1)= 505050 505050
----------
*035437 ROTC 12,777777
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 505050 505050 C(AC+1)= 505050 505050 E= 000000 777777
FINAL
C(AC)= 242424 242424 C(AC+1)= 242424 242424
----------
*035455 ROTC 12,777776
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 505050 505050 C(AC+1)= 505050 505050 E= 000000 777776
FINAL
C(AC)= 121212 121212 C(AC+1)= 121212 121212
----------
*035473 ROTC 12,777775
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 505050 505050 C(AC+1)= 505050 505050 E= 000000 777775
FINAL
C(AC)= 050505 050505 C(AC+1)= 050505 050505
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 65
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0319
*035515 ROTC 11,000001
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 070707 070707 C(AC+1)= 070707 070707 E= 000000 000001
FINAL
C(AC)= 161616 161616 C(AC+1)= 161616 161616
----------
*035533 ROTC 11,000002
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 070707 070707 C(AC+1)= 070707 070707 E= 000000 000002
FINAL
C(AC)= 343434 343434 C(AC+1)= 343434 343434
----------
*035551 ROTC 11,000003
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 070707 070707 C(AC+1)= 070707 070707 E= 000000 000003
FINAL
C(AC)= 707070 707070 C(AC+1)= 707070 707070
----------
*035573 ROTC 10,777777
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 707070 707070 E= 000000 777777
FINAL
C(AC)= 343434 343434 C(AC+1)= 343434 343434
----------
*035611 ROTC 10,777776
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 707070 707070 E= 000000 777776
FINAL
C(AC)= 161616 161616 C(AC+1)= 161616 161616
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 66
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0320
*035627 ROTC 10,777775
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 707070 707070 C(AC+1)= 707070 707070 E= 000000 777775
FINAL
C(AC)= 070707 070707 C(AC+1)= 070707 070707
----------
*035651 ROTC 7,000001
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 025025 025025 C(AC+1)= 025025 025025 E= 000000 000001
FINAL
C(AC)= 052052 052052 C(AC+1)= 052052 052052
----------
*035667 ROTC 7,000002
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 025025 025025 C(AC+1)= 025025 025025 E= 000000 000002
FINAL
C(AC)= 124124 124124 C(AC+1)= 124124 124124
----------
*035705 ROTC 7,000003
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 025025 025025 C(AC+1)= 025025 025025 E= 000000 000003
FINAL
C(AC)= 250250 250250 C(AC+1)= 250250 250250
----------
*035723 ROTC 7,000004
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 025025 025025 C(AC+1)= 025025 025025 E= 000000 000004
FINAL
C(AC)= 520520 520520 C(AC+1)= 520520 520520
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 67
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0321
*035745 ROTC 6,777777
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 520520 520520 C(AC+1)= 520520 520520 E= 000000 777777
FINAL
C(AC)= 250250 250250 C(AC+1)= 250250 250250
----------
*035763 ROTC 6,777776
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 520520 520520 C(AC+1)= 520520 520520 E= 000000 777776
FINAL
C(AC)= 124124 124124 C(AC+1)= 124124 124124
----------
*036001 ROTC 6,777775
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 520520 520520 C(AC+1)= 520520 520520 E= 000000 777775
FINAL
C(AC)= 052052 052052 C(AC+1)= 052052 052052
----------
*036017 ROTC 6,777774
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 520520 520520 C(AC+1)= 520520 520520 E= 000000 777774
FINAL
C(AC)= 025025 025025 C(AC+1)= 025025 025025
----------
*036041 ROTC 5,000001
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 033033 033033 C(AC+1)= 033033 033033 E= 000000 000001
FINAL
C(AC)= 066066 066066 C(AC+1)= 066066 066066
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 68
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0322
*036057 ROTC 5,000002
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 033033 033033 C(AC+1)= 033033 033033 E= 000000 000002
FINAL
C(AC)= 154154 154154 C(AC+1)= 154154 154154
----------
*036075 ROTC 5,000003
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 033033 033033 C(AC+1)= 033033 033033 E= 000000 000003
FINAL
C(AC)= 330330 330330 C(AC+1)= 330330 330330
----------
*036113 ROTC 5,000004
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 033033 033033 C(AC+1)= 033033 033033 E= 000000 000004
FINAL
C(AC)= 660660 660660 C(AC+1)= 660660 660660
----------
*036135 ROTC 4,777777
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 660660 660660 C(AC+1)= 660660 660660 E= 000000 777777
FINAL
C(AC)= 330330 330330 C(AC+1)= 330330 330330
----------
*036153 ROTC 4,777776
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 660660 660660 C(AC+1)= 660660 660660 E= 000000 777776
FINAL
C(AC)= 154154 154154 C(AC+1)= 154154 154154
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 69
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0323
*036171 ROTC 4,777775
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 660660 660660 C(AC+1)= 660660 660660 E= 000000 777775
FINAL
C(AC)= 066066 066066 C(AC+1)= 066066 066066
----------
*036207 ROTC 4,777774
FLAGS - INT/FINAL 400200 400200
INITIAL
C(AC)= 660660 660660 C(AC+1)= 660660 660660 E= 000000 777774
FINAL
C(AC)= 033033 033033 C(AC+1)= 033033 033033
----------
*036225 ASH 10,000001
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 777777 000000 E= 000000 000001
FINAL
C(AC)= 777776 000000
----------
*036235 ASH 10,000001
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 000000 000000 E= 000000 000001
FINAL
C(AC)= 000000 000000
----------
*036251 ASH 7,000001
FLAGS - INT/FINAL 000200 400200
INITIAL
C(AC)= 377777 000000 E= 000000 000001
FINAL
C(AC)= 377776 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 70
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0324
*036260 ASH 7,000001
FLAGS - INT/FINAL 000200 400200
INITIAL
C(AC)= 400000 000000 E= 000000 000001
FINAL
C(AC)= 400000 000000
----------
*036273 ASHC 10,000001
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 777777 000000 C(AC+1)= 000000 000011 E= 000000 000001
FINAL
C(AC)= 777776 000000 C(AC+1)= 400000 000022
----------
*036303 ASHC 10,000001
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 000000 000000 C(AC+1)= 400000 000022 E= 000000 000001
FINAL
C(AC)= 000000 000000 C(AC+1)= 000000 000044
----------
*036317 ASHC 7,000001
FLAGS - INT/FINAL 000200 400200
INITIAL
C(AC)= 377777 000000 C(AC+1)= 000000 000000 E= 000000 000001
FINAL
C(AC)= 377776 000000 C(AC+1)= 000000 000000
----------
*036326 ASHC 7,000001
FLAGS - INT/FINAL 000200 400200
INITIAL
C(AC)= 400000 000000 C(AC+1)= 000000 000000 E= 000000 000001
FINAL
C(AC)= 400000 000000 C(AC+1)= 400000 000000
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 71
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0325
*036341 ROT 7,000000(6)
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 230703 603700 E= 000000 000003
FINAL
C(AC)= 307036 037002
----------
*036347 ROT 7,000004(5)
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 230703 603700 E= 000000 000004
FINAL
C(AC)= 616074 076004
----------
*036355 ROT 7,000016(6)
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 230703 603700 E= 000000 000023
FINAL
C(AC)= 407600 461607
----------
*036363 ROT 7,@000006
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 230703 603700 E= 000000 000035
FINAL
C(AC)= 401143 417017
----------
*036371 ROT 7,@036575
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 230703 603700 E= 000000 000001
FINAL
C(AC)= 461607 407600
----------
PROGRAM SWITCHES MASK INSTR CNTLPC UPRPC KSSIM VER 4.0 29-MAR-78 PAGE 72
DSKAJ 000000 000000 770000 000000 240000 000000 030000 777777 SEQ 0326
*036376 ROT 7,000002
FLAGS - INT/FINAL 000200 000200
INITIAL
C(AC)= 230703 603700 E= 000000 000002
FINAL
C(AC)= 143417 017401
----------