Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dskba.seq
There are no other files named dskba.seq in the archive.
;DSKBA
IDENTIFICATION
--------------
PRODUCT CODE: AH-E323A-DD
DIAGNOSTIC CODE: DSKBA
PRODUCT NAME: DSKBAA0 DECSYSTEM 2020 BASIC
INSTRUCTION RELIABILITY DIAGNOSTIC (1)
VERSION: 0.1
DATE RELEASED: MARCH 1978
MAINTAINED BY: DIAGNOSTIC ENGINEERING
AUTHOR: JOHN R. KIRCHOFF
COPYRIGHT (C) 1978
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE
TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO
AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE
SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL EQUIPMENT
CORPORATION.
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE
USE OR RELIABILITY OF ITS SOFTWARE IN EQUIPMENT WHICH IS NOT
SUPPLIED BY DIGITAL EQUIPMENT CORPORATION.
MAINDEC-10-DSKBA.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-DSKBA.TXT
PAGE 3 SEQ 0004
1.0 ABSTRACT
THIS DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST VERIFIES
THE FUNCTIONALITY OF THE DECSYSTEM 2020 BASIC INSTRUCTIONS.
THIS PROGRAM TESTS ALL OF THE BASIC INSTRUCTIONS WITH
THE EXCEPTION OF FIXED POINT MULTIPLY/DIVIDE, FLOATING
POINT AND BYTE.
IN THE MAJORITY OF CASES EACH INSTRUCTION IS TESTED BY
SIMULATING THE INSTRUCTION, WITH SIMPLER INSTRUCTIONS, AND
THEN EXECUTING THE INSTRUCTION. RANDOM NUMBERS ARE USED AS
THE OPERANDS IN AC AND/OR C(E). THE RESULTS OF THE
SIMULATION AND EXECUTION ARE COMPARED AND AN ERROR MESSAGE
IS PRINTED IF THE RESULTS ARE NOT EQUAL.
IN THE MEMORY AND BOTH MODES A RANDOM NUMBER IS PLACED
IN THE AC AND C(E) AND A SERIES OF 4 OR 5 INSTRUCTIONS
ARE EXECUTED. THE ANSWER IN THE AC AND/OR C(E) IS
CHECKED AND AN ERROR MESSAGE IS PRINTED IF THE NUMBER
IS NOT CORRECT. EACH SET OF 4 OR 5 INSTRUCTIONS ACTS
ON EACH MEMORY LOCATION FROM THE END OF THE PROGRAM
TO THE DESIGNATED END OF MEMORY.
ALSO TESTED ARE ALL OF THE PC SENSITIVE INSTRUCTIONS. THESE
INSTRUCTIONS ARE: JSR, JSA, JSP, JRA, PUSH, POP, PUSHJ
AND POPJ. IN THE MAJORITY OF CASES A JRST OR JSP
BACK TO THE PROGRAM IS PLACED IN EVERY LOCATION FROM
THE END OF THE PROGRAM TO THE DESIGNATED END OF
MEMORY. THE PROGRAM THEN DOES A PC SENSITIVE
INSTRUCTION TO THE FIRST TESTING LOCATION. WHEN
THE PROGRAM RETURNS, A CHECK IS MADE TO SEE THAT
THE PC SENSITIVE INSTRUCTION WENT TO THE RIGHT ADDRESS.
IF IT DIDN'T, AN ERROR MESSAGE IS PRINTED. THE
MEMORY ADDRESS IS THEN INCREMENTED AND THE PC
SENSITIVE INSTRUCTION REPEATED. THE PROGRAM ALSO
INCLUDES A DEFER TEST AND BOTH INDIRECT AND INDEXING
ARE TESTED.
MAINDEC-10-DSKBA.TXT
PAGE 4 SEQ 0005
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
THIS DIAGNOSTIC REQUIRES THAT THE DECSYSTEM 2020 SUBROUTINE
PROGRAM BE RESIDENT IN THE PDP-10.
FOLLOW THE APPROPRIATE DIAGNOSTIC LOADING PROCEDURES.
MAINDEC-10-DSKBA.TXT
PAGE 5 SEQ 0006
3.2 STARTING PROCEDURE
A. SELECT OPERATIONAL CONSOLE DATA SWITCH SETTINGS (REFER TO
4.0 DATA SWITCH FUNCTIONS).
B. 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-DSKBA.TXT
PAGE 6 SEQ 0007
3.3 OPERATING PROCEDURE
NORMAL OPERATION WITH ALL SWITCHES SET TO ZERO IS QUICK
VERIFY MODE. TO RELIABILITY TEST SET THE "RELIAB" SWITCH.
WITHOUT EITHER THE OPRSEL SWITCH OR THE RELIAB SWITCH SET OR
THE MEMORY SIZE SELECTED VIA THE SWITCHES THE PROGRAM WILL
RUN USING ONLY 32K. SETTING JUST THE OPRSEL SWITCH ALLOWS
THE PROGRAM TO RUN IN QUICK VERIFY MODE USING ALL AVAILABLE
MEMORY.
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-DSKBA.TXT
PAGE 7 SEQ 0008
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
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 0 FAST CYCLE OPERATION
1 RELIABILITY MODE - USE ALL OF MEMORY
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
14 OPRSEL 0 RUN IN 32K UNLESS RELIAB MODE
1 USE ALL AVAILABLE MEMORY
MAINDEC-10-DSKBA.TXT
PAGE 8 SEQ 0009
4.0 DATA SWITCH FUNCTIONS (CON'T)
RIGHT HALF SWITCHES
-------------------
27-35 SIZE OF MEMORY, HIGH ORDER 9 BITS
LOW ORDER 9 BITS ARE APPENDED AS 1'S
THE SIZE OF MEMORY IS DETERMINED BY:
A. EXEC MODE
1. SWITCHES 27-35 = 0, USE AVAILABLE MEMORY
2. SWITCHES 27-35 INDICATE SIZE OF TESTED MEMORY, (32K=77).
B. USER MODE
CONTENTS OF 'JOBREL', LOC 44, DETERMINE SIZE OF MEMORY.
SELECT DESIRED SIZE WHEN LOADING PROGRAM.
5.0 ERRORS
ERRORS ARE PRINTED ON THE TTY OR LINE PRINTER. THE ERROR
PRINTOUT CONTAINS THE TEST TITLE, THE PC OF THE FAILURE, AC
NUMBER, ERROR WORD AND CORRECT WORD.
THE PC VALUE IS USEFUL IN RELATING THE FAILURE TO THE LISTING.
WHEN THE SCOPE LOOP MODE IS USED, IF AN AUDIO INDICATION OF
A CONTINUING ERROR IS DESIRED THE 'DING' SWITCH MAY BE SET.
THE FOLLOWING IS THE DIFFERENT ERROR FORMATS WITH THEIR
RESPECTIVE UUO'S AND ERROR MESSAGES.
A. ERROR #1 - ERR AC,E
-------------------------------
EXAMPLE: AC E
2053 / CAME AC1,AC2 ;RESULT CORRECT
2054 / ERR AC,RAN1 ;ORIG C(AC) ORIG C(E)
AC1=5 ;TEST DATA
C(AC1) = 201532107642
C(AC2) = 201432107642
C(RAN1)= 777777777777
C(AC) = 576345670135
ERROR MESSAGE:
(SOURCE OF NUMBERS PRINTED)
PC = 002054 ;PC OF ERROR UUO
AC = 05 ;AC FIELD OF UUO-1
C(AC)= 201532107642 ;C(C(AC)) OF UUO-1
COR = 201432107642 ;C(C(ADDRESS FIELD)) OF UUO-1
ORIGINAL
C(AC)= 777777777777 ;C(C(ADDRESS FIELD)) OF UUO
C(E) = 576345670135 ;C(C(AC)) OF UUO
MAINDEC-10-DSKBA.TXT
PAGE 9 SEQ 0010
5.0 ERRORS (CON'T)
B. ERROR #2 - ERRM AC,E
--------------------------------
EXAMPLE: AC E
2053 / CAME AC2,MUD ;CORRECT RESULT
2054 / ERRM AC,RAN1 ;ORIG C(AC) ORIG C(E)
MUD=5033 ;TEST DATA
C(MUD) = 201532107642
C(AC2) = 201432107642
C(RAN1)= 777777777777
C(AC) = 576345670135
ERROR MESSAGE:
(SOURCE OF NUMBERS PRINTED)
PC = 002054 ;PC OF ERROR UUO
E = 5033 ;BITS 18-35 (E) OF UUO-1
C(E) = 201532107642 ;C(C(E)) OF UUO-1
COR = 201432107642 ;C(C(AC)) OF UUO-1
ORIGINAL
C(AC)= 777777777777 ;C(C(E)) OF UUO
C(E) = 576345670135 ;C(C(AC)) OF UUO
MAINDEC-10-DSKBA.TXT
PAGE 10 SEQ 0011
5.0 ERRORS (CON'T)
C. ERROR #3 - ERRI AC,E
--------------------------------
EXAMPLE: AC E
2053 / CAME AC1,AC2 ;RESULT CORRECT
2054 / ERRI RAN1,(AC) ;ORIG C(AC) ORIG E
AC1=5 ;TEST DATA
C(AC1) = 107742670135
C(AC2) = 107642670135
C(RAN1)= 777777777777
C(AC) = 576345670135
ERROR MESSAGE:
(SOURCE OF NUMBERS PRINTED)
PC = 002054 ;PC OF ERROR UUO
AC = 5 ;AC FIELD OF UUO-1
C(AC)= 107742670135 ;C(C(AC)) OF UUO-1
COR = 107642670135 ;C(C(E)) OF UUO-1
ORIGINAL
C(AC)= 777777777777 ;C(C(AC)) OF UUO
E = 670135 ;C(ADDRESS FIELD) OF UUO
D. ERROR #4 - ERROR AC,E
---------------------------------
EXAMPLE: AC E
2053 / CAME AC,RAN
2054 / ERROR AC,RAN ;RESULT CORRECT
AC=5 ;TEST DATA
C(AC) = 201532107642
C(RAN) = 201432107642
ERROR MESSAGE:
(SOURCE OF NUMBERS PRINTED)
PC = 002054 ;PC OF ERROR UUO
AC = 5 ;AC FIELD OF UUO
C(AC)= 201532107642 ;C(C(AC)) OF UUO
COR = 201432107642 ;C(C(E)) OF UUO
MAINDEC-10-DSKBA.TXT
PAGE 11 SEQ 0012
5.0 ERRORS (CON'T)
E. ERROR #5 - ER AC,[ASCII/MESSAGE/]
---------------------------------------------
EXAMPLE: AC E
2053 / JFCL 10,.+2
2054 / ER AC,[ASCII/OV/] ;RESULT MESSAGE
AC=5 ;TEST DATA
C(AC) = 201432107642
ERROR MESSAGE:
(SOURCE OF NUMBERS PRINTED)
PC = 002054 ;PC OF ERROR UUO
AC = 5 ;AC FIELD OF UUO
C(AC)= 201432107642 OV ;C(C(AC)) OF UUO
;ADDRESS FIELD OF UUO POINTS TO AN
;ASCII MESSAGE
F. ERROR #6 - ERM AC,E
-------------------------------
EXAMPLE: AC E
2053 / SOJ AC2,
2054 / ERM AC1,(AC2) ;C(AC) RESULT
C(AC2)=5033 ;TEST DATA
C(AC) = 740000005756
C(C(AC2)=254000004041
ERROR MESSAGE:
(SOURCE OF NUMBERS PRINTED)
PC = 002054 ;PC OF ERROR UUO
E = 5033 ;BITS 18-35 (E) OF UUO
C(AC)= 740000005756 ;C(AC) OF UUO
C(E) = 254000004041 ;C(C(E)) OF UUO
MAINDEC-10-DSKBA.TXT
PAGE 12 SEQ 0013
5.0 ERRORS (CON'T)
G. ERROR #7 - ERMM AC,E
--------------------------------
EXAMPLE: AC E
2053 / SOJ AC2,
2054 / ERMM AC1,(AC2) ;C(AC) RESULT
C(AC2)=5033 ;TEST DATA
C(AC1) = 740000005756
ERROR MESSAGE:
(SOURCE OF NUMBERS PRINTED)
PC = 002054 ;PC OF ERROR UUO
E = 5033 ;BITS 18-35 (E) OF UUO
C(AC)= 740000005756 ;C(AC) OF UUO
H. ERROR #11 - EERR ,E
--------------------------------
I. ERROR #12 - EERRM ,E
--------------------------------
J. ERROR #13 - EERRI ,E
--------------------------------
ERRORS 11,12 AND 13 ARE THE SAME AS ERRORS 1,2 AND 3 EXCEPT
THAT THE AC OF THE UUO IS REPLACED BY C(RAN). IN
OTHER WORDS C(RAN) WILL BE PRINTED FOR THE ORIGINAL
C(E).
MAINDEC-10-DSKBA.TXT
PAGE 13 SEQ 0014
6.0 ITERATION COUNTER
THE PASS COUNT IS TYPED OUT ON THE CONSOLE TELETYPE.
7.0 CYCLE TIME
THE CYCLE TIME DEPENDS UPON MEMORY SIZE AND INCREASES AS
MEMORY SIZE INCREASES.
A. NORMAL OPERATION - APPROXIMATELY ONE MINUTE IN 32K.
B. RELIABILITY MODE - APPROXIMATELY 3 TO 5 MINUTES.
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.
MAINDEC-10-DSKBA.TXT
PAGE 14 SEQ 0015
8.0 OPERATIONAL VARIATIONS (CON'T)
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 'DSKBA.LPT'
EXAMPLE DEVICE ASSIGNMENT:
.ASSIGN DSK DEV
IN USER MODE THE PROGRAM WILL MAKE 1000(8) PASSES AND THEN
RETURN TO DIAMON COMMAND MODE.
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 DSKBA SEQ 0016
----------------------
---------------------------------------------------------------
CODE: MAINDEC-10-DSKBA
TITLE: DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY DIAGNOSTIC (1)
VERSION: 0.1
DATE: MARCH 1978
REASON: ORIGINAL RELEASE OF THIS PROGRAM FOR KS-10.
---------------------------------------------------------------
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 1
DSKBAT MAC 29-Mar-78 12:26 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0017
1 ;MAINDEC-10-DSKBA
2
3 000000 MCNVER=0
4 000001 DECVER=1
5
6 XLIST
7 LIST
8 LALL
9
10 NAME \MCNVER,\DECVER^
11
12 TITLE DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 ^
13
14 XALL
15
16 ;TEST DESIGNED FOR RANDOM NUMBER TESTING OF THE PDP-10 BASIC INSTRUCTIONS
17
18 ;COPYRIGHT 1978
19 ;DIGITAL EQUIPMENT CORPORATION
20 ;MARLBORO, MASS. 01752
21
22 ;JOHN R. KIRCHOFF
23
24 000137 LOC 137
25 000137 000000 000001 MCNVER,,DECVER
26 NOSYM
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 2
DSKBAT MAC 29-Mar-78 12:26 TEST CONTROL SWITCHES SEQ 0018
27 SUBTTL TEST CONTROL SWITCHES
28
29 ;OPRSEL OR RELIAB = ALLOW FULL MEMORY USAGE
30 ;OTHERWISE MEMORY LIMITED TO 32K UNLESS SWITCH SELECTED.
31
32 ;SWITCHES 27-35 , SIZE OF MEMORY, HIGH ORDER 9 BITS
33
34 ;ACCUMULATOR ASSIGNMENTS
35
36 000010 RA=10
37
38 SUBTTL DIAGNOSTIC PARAMETERS
39
40 ;LUUO DEFINITIONS
41
42 001000 000000 OPDEF ERR [1B8]
43 002000 000000 OPDEF ERRM [2B8]
44 003000 000000 OPDEF ERRI [3B8]
45 004000 000000 OPDEF ERROR [4B8]
46 005000 000000 OPDEF ER [5B8]
47 006000 000000 OPDEF ERM [6B8]
48 007000 000000 OPDEF ERMM [7B8]
49 011000 000000 OPDEF EERR [11B8]
50 012000 000000 OPDEF EERRM [12B8]
51 013000 000000 OPDEF EERRI [13B8]
52 060416 LUUO1=ERRMES
53 060416 LUUO2=ERRMES
54 060416 LUUO3=ERRMES
55 060416 LUUO4=ERRMES
56 060416 LUUO5=ERRMES
57 060416 LUUO6=ERRMES
58 060416 LUUO7=ERRMES
59 060416 LUUO11=ERRMES
60 060416 LUUO12=ERRMES
61 060416 LUUO13=ERRMES
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 3
DSKBAT MAC 29-Mar-78 12:26 DIAGNOSTIC PARAMETERS SEQ 0019
62 ;SUBROUTINE ASSEMBLY DEFINITIONS
63
64 000001 EXCASB==1
65 000001 USRASB==1
66 000001 MEMMAP==1
67 000040 DEBUG==40
68 000001 EROLD==1
69 000001 PGMEND==1
70 000001 ERRELB==1
71 030000 SADR1==BEGIN
72 030076 SADR2==RESRT1
73 030636 SADR3==RENTR1
74 030000 SADR4==BEGIN
75 030061 SADR5==$BEND2
76 030000 SADR6==BEGIN
77 254200 030000 SADR7==HALT BEGIN
78 254200 030000 SADR8==HALT BEGIN
79 254200 030000 SADR9==HALT BEGIN
80 254200 030000 SADR10==HALT BEGIN
81 254200 030000 SADR11==HALT BEGIN
82 123457 654321 PAREA1==123457,,654321
83 000000 PAREA2==0
84 446353 424100 PAREA3==SIXBIT/DSKBA/
85 546064 000000 PAREA4==SIXBIT/LPT/
86 000000 PAREA5==0
87 000000 PAREA6==0
88 000001 ITERAT==1
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 4
DSKBAT MAC 29-Mar-78 12:26 DIAGNOSTIC PARAMETERS SEQ 0020
89 ;MACROS
90
91 DEFINE SETUP (A,B)<
92 AC1=<AC+1>&17
93 AC2=<AC+2>&17
94 AC3=<AC+3>&17
95 AC4=<AC+4>&17
96 AC5=<AC+5>&17
97 RAN1=<AC-2>&17
98 MOVEI AC-1,.
99 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
100 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
101 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
102 MOVEI AC-1,A ;ROUTINE WEIGHTING
103 ASH AC-1,@CMPLXT+B ;ROUTINE COMPLEXITY
104 ASH AC-1,@RTIME ;RUN TIME CONTROLLER >
105
106 DEFINE RANDOM (A)<
107 MOVE AC,RAN# ;GENERATE A PSEUDO RANDOM NUMBER
108 ADD AC,[142536475076]
109 ROT AC,-1 ;IN BOTH AC AND
110 EQVB AC,RAN ;REGISTER RAN >
111
112 DEFINE LOOP (A,B)<
113 SOJG AC-1,A ;ITERATION COUNTER
114 MOVE AC,RAN ;RESTORE RANDOM NUMBER
115 JUMPL AC-1,B ;LOOP ON ERROR SWITCH >
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 5
DSKBAT MAC 29-Mar-78 12:26 DIAGNOSTIC PARAMETERS SEQ 0021
116 ;MACROS
117
118 DEFINE MSETUP <
119 AC1=<AC+1>&17
120 AC2=<AC+2>&17
121 AC3=<AC+3>&17
122 AC4=<AC+4>&17
123 MOVEI AC-1,.
124 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
125 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
126 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
127 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. >
128
129 DEFINE MRANDOM <
130 ADD RA,[142536475076]
131 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
132 EQVB RA,AC ;IN BOTH RA AND AC.
133 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
134 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
135 CAME RA,(AC1) ;DID IT MAKE IT ?
136 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. >
137
138 DEFINE SETUP1 (A,B)<
139 AC1=<AC+1>&17
140 AC2=<AC+2>&17
141 AC3=<AC+3>&17
142 AC4=<AC+4>&17
143 AC5=<AC+5>&17
144 RAN1=<AC-2>&17
145 MOVEI AC-1,.
146 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
147 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
148 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
149 MOVEI AC-1,A ;ROUTINE WEIGHTING
150 ASH AC-1,@CMPLXT+B ;ROUTINE COMPLEXITY
151 ASH AC-1,@RTIME ;RUN TIME CONTROLLER >
152
153 DEFINE RANDM1 (A)<
154 MOVE AC,RAN# ;GENERATE A PSEUDO RANDOM NUMBER
155 ADD AC,[142536475076]
156 ROT AC,-1
157 EQVB AC,RAN ;IN BOTH AC AND REGISTER RAN. >
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 1
PARAM KSM 28-Mar-78 11:27 CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978 SEQ 0022
158 SUBTTL CONSOLE DATA SWITCH ASSIGNMENTS, MARCH 1978
159
160 DEFINE S,<;*********************************************************************>
161
162 S^;*********************************************************************^
163 ;*DATA SWITCHES
164 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
165 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
166 S^;*********************************************************************^
167
168 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION
169 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS
170 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE
171
172 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
173 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
174 010000 DING== 010000 ;RING BELL ON ERROR
175
176 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR
177 002000 ERSTOP==002000 ;HALT ON TEST ERROR
178 001000 PALERS==001000 ;PRINT ALL ERRORS
179
180 000400 RELIAB==000400 ;RELIABILITY MODE
181 000200 TXTINH==000200 ;INHIBIT ERROR TEXT
182 000100 INHPAG==000100 ;INHIBIT PAGING
183
184 000040 MODDVC==000040 ;MODIFY DEVICE CODE
185 000020 INHCSH==000020 ;INHIBIT CACHE
186 000010 OPRSEL==000010 ;OPERATOR SELECTION
187
188 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH
189
190 ;SWITCH 16 RESERVED
191
192 ;SWITCH 17 RESERVED !!!
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 2
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0023
193 SUBTTL PROGRAM/SUBROUTINE PARAMETERS
194
195 S^;*********************************************************************^
196 ;*SPECIAL SUBPROGRAM LINKAGES
197 S^;*********************************************************************^
198
199 027772 FSELNK= 27772 ;FILE SELECT LINK
200 027773 FRDLNK= 27773 ;FILE READ LINK
201 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS
202 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS
203 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS
204 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS
205
206 S^;*********************************************************************^
207 ;*SPECIAL SUBROUTINE FATAL HALTS
208 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
209 S^;*********************************************************************^
210
211 ;ADDRESS TAG REASON
212 ;---------------------
213
214 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION
215 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR
216 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR
217 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT
218 ; 1014 SMBER ;KS-10 INTERRUPT WITHOUT DOORBELL
219 ; 1015 SMCER ;KS-10 CLOCK INTERRUPT WITHOUT FLAG SET
220 ; 1016 CPIERR ;CPU INITIALIZATION ERROR
221 ; 1017 EOPERR ;END OF PROGRAM ERROR
222 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT
223
224 S^;*********************************************************************^
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 3
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0024
225 S^;*********************************************************************^
226 ;OPERATOR DEFINITIONS (NON-UUO'S)
227 S^;*********************************************************************^
228
229 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL
230 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN
231 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST
232 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST
233 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S
234 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT
235 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT
236 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT
237
238 S^;*********************************************************************^
239 ;*SUBROUTINE INITIALIZATION CALL
240 S^;*********************************************************************^
241
242 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION
243
244 S^;*********************************************************************^
245 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
246 S^;*********************************************************************^
247
248 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT
249 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT
250
251 S^;*********************************************************************^
252 ;*TERMINAL INPUT UUO'S
253 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
254 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
255 S^;*********************************************************************^
256
257 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER
258 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y
259 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N
260 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD
261 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD
262 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD
263 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK
264 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK
265 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD
266 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT
267 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 4
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0025
268 ;*TERMINAL OUTPUT UUO'S.
269
270 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD
271 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED
272 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE
273 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED
274 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE
275 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED
276 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE
277 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED
278 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE
279 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED
280 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE
281 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED
282 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER
283 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED
284 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT
285 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED
286 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS
287 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED
288 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS
289 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED
290 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS
291 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED
292 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS
293 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED
294 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS
295 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED
296 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS
297 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED
298 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS
299 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED.
300 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS
301 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED
302 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL
303 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED
304 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6
305 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
306 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S
307 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
308 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S
309 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
310 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S
311 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 5
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0026
312 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME
313 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD
314 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED
315 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE
316 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD
317 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED
318 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
319 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
320 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE
321 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED
322 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
323 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
324 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL
325
326 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE
327
328 DEFINE PMSG (ARG),<
329 PSIXM [SIXBIT\ARG'_\]>
330
331 DEFINE PMSGF (ARG),<
332 PSIXMF [SIXBIT\ARG'_\]>
333
334 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
335 ;* CONSERVES CORE OVER ASCIZ
336
337 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]>
338
339 ;*CONSOLE SWITCH INPUT UUO.
340 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
341 ;* USER MODE.
342
343 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES
344
345 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
346 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
347
348 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - CLOCK
349 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - METER
350
351 ;*KS-10 CACHE OPERATION UUO'S
352
353 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE
354 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH
355 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 6
PARAM KSM 28-Mar-78 11:27 PROGRAM/SUBROUTINE PARAMETERS SEQ 0027
356 ;*END OF PASS/PROGRAM UUOS
357
358 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
359 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
360
361 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS
362 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO
363
364 ;*MEMORY MANAGEMENT UUO'S
365 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
366 ;*ADDRESS CONVERSION, ETC...
367
368 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY
369 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY
370 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT
371 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT
372 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK
373 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP
374 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP
375
376 ;*DEVICE CODE MODIFICATION UUO
377 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
378 ;*IOT'S TO A DIFFERENT DEVICE CODE.
379
380 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER
381 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM
382
383 030000 IFNDEF MODDVL,<MODDVL==BEGIN>
384 030000 IFNDEF MODDVU,<MODDVU==BEGIN>
385
386 ;*"DIAMON" FILE SELECTION AND READ UUOS
387
388 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION
389 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA
390 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA
391 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA
392
393 XLIST
394 LIST
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 1
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0028
395 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978
396
397 030000 LOC 30000
398
399 S^;*********************************************************************^
400 ;*PROGRAM STARTING ADDRESSES
401 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
402 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
403 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
404 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
405 S^;*********************************************************************^
406
407 030000 254 00 1 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START
408 030001 254 00 0 00 030600 $START: JRST START ;MODE CHECK STARTING ADDRESS
409
410 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START
411
412 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START
413
414 030004 254 00 0 00 030000 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START
415
416 030005 254 00 0 00 030076 PFSTRT: JRST SADR2 ;POWER FAIL RESTART
417
418 030006 254 00 0 00 030636 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY)
419
420 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT"
421 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START
422
423 030010 254 00 0 00 030606 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE)
424 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE
425 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE
426
427 030013 254200 030000 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS
428 030014 254200 030000 START2: SADR8 ; "
429 030015 254200 030000 START3: SADR9 ; "
430 030016 254200 030000 START4: SADR10 ; "
431 030017 254200 030000 START5: SADR11 ; "
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 2
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0029
432 S^;*********************************************************************^
433 ;*PROGRAM FIXED PARAMETER AREA
434 S^;*********************************************************************^
435
436 030020 446353 424100 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME
437 030021 546064 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION
438 030022 123457 654321 RANDBS: PAREA1 ;RANDOM BASE NUMBER
439 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES
440 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS
441 030025 000000 030640 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME
442 030026 000000 000001 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL
443 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT
444 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT
445 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED
446 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED
447 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE
448 030034 777777 777777 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS
449 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER
450 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER
451
452 S^;*********************************************************************^
453 ;*PROGRAM VARIABLE PARAMETER AREA
454 S^;*********************************************************************^
455
456 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG
457 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10
458 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
459 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG
460 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG
461 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10
462 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG
463 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS
464 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT
465 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG
466 030051 000000 000000 TESTPC: 0 ;SUBTEST PC
467 030052 000000 000000 ERRPC: 0 ;ERROR PC
468 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS
469 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME
470 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE
471 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 3
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0030
472 S^;*********************************************************************^
473 ;*SPECIAL PROGRAM DISPATCH ADDRESSES
474 S^;*********************************************************************^
475
476 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS
477 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM
478 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN
479 030062 000000 030061 CNTLC: SADR5 ;CONTROL C XFER ADDRESS
480 030063 000000 030000 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS
481 030064 CPOPJ1: ;SKIP RETURN
482 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO
483 030065 CPOPJ: ;NON-SKIP REGULAR RETURN
484 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN
485 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE
486 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE
487 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX)
488 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE
489 030072 255 00 0 00 000000 $ITRX1: JFCL ; "
490 030073 255 00 0 00 000000 $USRHL: JFCL ; "
491 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE
492 030075 255 00 0 00 000000 $RSRTY: JFCL ; "
493 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX)
494 030077 255 00 0 00 000000 RESRT2: JFCL ; "
495 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE
496 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE
497 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT
498
499 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR)
500 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT
501 030105 000000 000000 0 ;INITED AS (JRST $ITRC1)
502
503 S^;*********************************************************************^
504 ;*PROCESSOR CONTROL STORAGE
505 S^;*********************************************************************^
506
507 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0
508 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI
509 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR
510 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI)
511 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI)
512
513 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO
514 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO
515
516 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS
517 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG
518 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG
519 030120 000000 000000 %COREC: 0 ; " CORRECT DATA
520 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG
521 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA
522 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 4
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0031
523 S^;*********************************************************************^
524 ;*UUO DISPATCH TABLE
525 S^;*********************************************************************^
526 XLIST
527 LIST
528 030124 060416 030070 UUODIS: LUUO1,,$UUOER
529 030125 060416 060416 LUUO3,,LUUO2
530 030126 060416 060416 LUUO5,,LUUO4
531 030127 060416 060416 LUUO7,,LUUO6
532 030130 060416 030070 LUUO11,,LUUO10
533 030131 060416 060416 LUUO13,,LUUO12
534 030132 030070 030070 LUUO15,,LUUO14
535 030133 030070 030070 LUUO17,,LUUO16
536 030134 030070 030070 LUUO21,,LUUO20
537 030135 030070 030070 LUUO23,,LUUO22
538 030136 030070 030070 LUUO25,,LUUO24
539 030137 030070 030070 LUUO27,,LUUO26
540 030140 030070 030070 LUUO31,,LUUO30
541 030141 030070 030070 LUUO33,,LUUO32
542
543 S^;*********************************************************************^
544 ;*MEMORY MANAGMENT STORAGE
545 S^;*********************************************************************^
546
547 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
548 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
549 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.)
550 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY
551 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE
552
553 S^;*********************************************************************^
554 ;*PRINT CONTROL STORAGE
555 S^;*********************************************************************^
556
557 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
558 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE
559 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG
560 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS
561 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL
562 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME
563 030225 000000 000000 $TWCNT: 0 ;TIME WAITED
564 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG
565 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG
566 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE
567 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR
568 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR
569 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER
570 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG
571 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG
572 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG
573 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG
574 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS
575 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 5
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0032
576 S^;*********************************************************************^
577 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
578 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
579 ;* MOVEI NAME
580 ;* PNTA ;OR PNTAF
581 S^;*********************************************************************^
582
583 030242 CRLF: ASCII/
584 030242 015 012 000 000 000 /
585 030243 CRLF2: ASCII/
586
587 030243 015 012 015 012 000 /
588 030244 054 000 000 000 000 COMMA: ASCII/,/
589 030245 056 000 000 000 000 PERIOD: ASCII/./
590 030246 040 000 000 000 000 SPACE: ASCII/ /
591 030247 011 000 000 000 000 TAB: ASCII/ /
592 030250 MINUS:
593 030250 055 000 000 000 000 HYPEN: ASCII/-/
594 030251 053 000 000 000 000 PLUS: ASCII/+/
595 030252 052 000 000 000 000 AST: ASCII/*/
596 030253 100 000 000 000 000 ATSIN: ASCII/@/
597 030254 050 000 000 000 000 LFP: ASCII/(/
598 030255 051 000 000 000 000 RTP: ASCII/)/
599 030256 007 0000000000 BELL: BYTE (7) 007
600 030257 077 000 000 000 000 QUEST: ASCII/?/
601 030260 057 000 000 000 000 SLASH: ASCII!/!
602 030261 044 000 000 000 000 DOLLAR: ASCII/$/
603 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX
604 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR
605 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT
606
607 S^;*********************************************************************^
608 ;*USER MODE OUTPUT FILE INFORMATION
609 S^;*********************************************************************^
610
611 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER
612 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME
613 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION
614 030272 BLOCK 2
615
616 S^;*********************************************************************^
617 ;*DISK UPDATE MODE FILE INFORMATION
618 S^;*********************************************************************^
619
620 030274 $IBUF: BLOCK 3
621 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/
622 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/
623 030301 BLOCK 2
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 6
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0033
624 S^;*********************************************************************^
625 ;*PUSHDOWN LIST CONTROL INFORMATION
626 S^;*********************************************************************^
627
628 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST
629 030304 PLISTS: BLOCK 200
630 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST
631
632 S^;*********************************************************************^
633 ;*POWER LINE CLOCK FREQUENCY FLAG
634 S^;*********************************************************************^
635
636 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE
637
638 S^;*********************************************************************^
639 ;*KL10 CACHE CONTROL FLAGS
640 S^;*********************************************************************^
641
642 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0
643 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0
644
645 S^;*********************************************************************^
646 ;*NUMBER INPUT DIGIT FLAG
647 S^;*********************************************************************^
648
649 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED
650
651 S^;*********************************************************************^
652 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
653 S^;*********************************************************************^
654
655 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
656
657 S^;*********************************************************************^
658 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
659 S^;*********************************************************************^
660
661 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO
662 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO
663 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
664
665 S^;*********************************************************************^
666 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION
667 S^;*********************************************************************^
668
669 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 7
FIXED KSM 28-Mar-78 11:28 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, MARCH 1978 SEQ 0034
670 S^;*********************************************************************^
671 ;*USER MODE MONITOR TYPE FLAG
672 S^;*********************************************************************^
673
674 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20
675
676 S^;*********************************************************************^
677 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION
678 S^;*********************************************************************^
679
680 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER
681
682 S^;*********************************************************************^
683 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
684 S^;*********************************************************************^
685
686 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
687
688 S^;*********************************************************************^
689 ;*"SWITCH" CALL USAGE CONTROL
690 S^;*********************************************************************^
691
692 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
693
694 S^;*********************************************************************^
695 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
696 S^;*********************************************************************^
697
698 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
699 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
700
701 S^;*********************************************************************^
702 ;*SM10 (KS-10) PROCESSOR TYPE FLAG
703 S^;*********************************************************************^
704
705 030524 000000 000000 SM10: 0 ;IF -1 THIS IS AN KS-10
706
707 S^;*********************************************************************^
708 ;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS
709 S^;*********************************************************************^
710
711 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE
712
713 S^;*********************************************************************^
714 ;*SPECIAL FUTURE EXPANSION ROOM
715 S^;*********************************************************************^
716
717 S^;*********************************************************************^
718 ;*END OF FIXED STORAGE
719 S^;*********************************************************************^
720
721 030577 LOC 30577
722 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 1
DSKBA1 MAC 29-Mar-78 12:27 INITIALIZE PROGRAM CONTROL SEQ 0035
723 SUBTTL INITIALIZE PROGRAM CONTROL
724
725 030600 265 00 0 00 030011 START: PGMINT ;INITIALIZE SUBROUTINES
726 030601 402 00 0 00 061121 SETZM MEMONC#
727 030602 200 00 0 00 030022 MOVE 0,RANDBS ;EXEC, SETUP RANDOM BASE
728 030603 332 00 0 00 030037 SKIPE USER ;USER, USE TIME OF DAY IN JIFFIES
729 030604 040 00 0 00 060655 CALL 0,[SIXBIT/TIMER/]
730 030605 202 00 0 00 061125 MOVEM 0,RAN ;SETUP RANDOM BASE
731
732 ;INITIALIZE COMPLEXITY TABLE
733 000000 A=0
734 030606 402 00 0 00 030656 STARTA: SETZM CMPLXT ;STORE A TABLE OF POWERS OF 2
735 030607 201 01 0 00 000001 MOVEI 1,1 ;OR 0.
736 030610 037 10 0 00 000002 SWITCH
737 030611 607 00 0 00 000400 TLNN RELIAB ;FAST CYCLE SWITCH SET ?
738 030612 402 00 0 00 000001 SETZM 1 ;YES, STORE ZERO'S
739 REPEAT 7,
740 < MOVEM 1,CMPLXT+1+A
741 LSH 1,1
742 A=A+1>
743 030613 202 01 0 00 030657 MOVEM 1,CMPLXT+1+A
744 030614 242 01 0 00 000001 LSH 1,1
745 000001 A=A+1
746 030615 202 01 0 00 030660 MOVEM 1,CMPLXT+1+A
747 030616 242 01 0 00 000001 LSH 1,1
748 000002 A=A+1
749 030617 202 01 0 00 030661 MOVEM 1,CMPLXT+1+A
750 030620 242 01 0 00 000001 LSH 1,1
751 000003 A=A+1
752 030621 202 01 0 00 030662 MOVEM 1,CMPLXT+1+A
753 030622 242 01 0 00 000001 LSH 1,1
754 000004 A=A+1
755 030623 202 01 0 00 030663 MOVEM 1,CMPLXT+1+A
756 030624 242 01 0 00 000001 LSH 1,1
757 000005 A=A+1
758 030625 202 01 0 00 030664 MOVEM 1,CMPLXT+1+A
759 030626 242 01 0 00 000001 LSH 1,1
760 000006 A=A+1
761 030627 202 01 0 00 030665 MOVEM 1,CMPLXT+1+A
762 030630 242 01 0 00 000001 LSH 1,1
763 000007 A=A+1
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 2
DSKBA1 MAC 29-Mar-78 12:27 INITIALIZE PROGRAM CONTROL SEQ 0036
764 ;INITIALIZE RUN TIME
765
766 030631 201 01 0 00 000001 MOVEI 1,1
767 030632 603 00 0 00 000400 TLNE RELIAB ;FAST CYCLE SWITCH SET ?
768 030633 201 01 0 00 000007 MOVEI 1,7 ;NO, MULTIPLY RUNNING TIME
769 030634 202 01 0 00 030655 MOVEM 1,RTIME ;STORE IN RTIME
770
771 030635 254 00 0 00 030676 JRST CAM1 ;GO PERFORM DIAGNOSTIC
772
773 030636 037 05 0 00 000002 RENTR1: DROPDV ;CLOSE LOGICAL OUTPUT FILE
774 030637 040 00 0 00 060656 CALL [SIXBIT .EXIT.]
775
776 030640 PGMNAM: ASCIZ/
777 030640 015 012 104 105 103 DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST 1 (DSKBA)
778 030641 123 131 123 124 105
779 030642 115 040 062 060 062
780 030643 060 040 102 101 123
781 030644 111 103 040 111 116
782 030645 123 124 122 125 103
783 030646 124 111 117 116 040
784 030647 122 105 114 111 101
785 030650 102 111 114 111 124
786 030651 131 040 124 105 123
787 030652 124 040 061 040 050
788 030653 104 123 113 102 101
789 030654 051 015 012 000 000 /
790 ;CONSTANTS
791
792 030655 000000 000000 RTIME: 0
793 030656 CMPLXT: BLOCK 20
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 3
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0037
794 SUBTTL DIAGNOSTIC SECTION ONE
795 LALL
796
797 ;TEST CAMN,CAME (SIMPLE)
798 ;THE CONTENTS OF THE AC IS COMPARED WITH ITSELF
799 ;AN ERROR WILL OCCUR IF CAMN SKIPS OR CAME FAILS TO SKIP
800 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
801 ;15 ACS ARE USED IN THE TEST
802
803 000002 AC=2
804 030676 CAM1: SETUP 20,0^
805 000003 AC1=<AC+1>&17
806 000004 AC2=<AC+2>&17
807 000005 AC3=<AC+3>&17
808 000006 AC4=<AC+4>&17
809 000007 AC5=<AC+5>&17
810 000000 RAN1=<AC-2>&17
811 030676 201 01 0 00 030676 MOVEI AC-1,.
812 030677 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
813 030700 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
814 030701 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
815 030702 201 01 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
816 030703 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
817 030704 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
818 RANDOM^
819 030705 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
820 030706 270 02 0 00 060657 ADD AC,[142536475076]
821 030707 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
822 030710 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
823 CAMNE1: REPEAT ^D10,
824 < MOVE AC,RAN
825 CAMN AC,AC ;C(AC) = C(AC)
826 CAME AC,AC
827 ERROR AC,AC ;CHECK CAME,CAMN
828 AC=<AC+1>&17
829 >
830 030711 200 02 0 00 061125 MOVE AC,RAN
831 030712 316 02 0 00 000002 CAMN AC,AC ;C(AC) = C(AC)
832 030713 312 02 0 00 000002 CAME AC,AC
833 030714 004 02 0 00 000002 ERROR AC,AC ;CHECK CAME,CAMN
834 000003 AC=<AC+1>&17
835
836 030715 200 03 0 00 061125 MOVE AC,RAN
837 030716 316 03 0 00 000003 CAMN AC,AC ;C(AC) = C(AC)
838 030717 312 03 0 00 000003 CAME AC,AC
839 030720 004 03 0 00 000003 ERROR AC,AC ;CHECK CAME,CAMN
840 000004 AC=<AC+1>&17
841
842 030721 200 04 0 00 061125 MOVE AC,RAN
843 030722 316 04 0 00 000004 CAMN AC,AC ;C(AC) = C(AC)
844 030723 312 04 0 00 000004 CAME AC,AC
845 030724 004 04 0 00 000004 ERROR AC,AC ;CHECK CAME,CAMN
846 000005 AC=<AC+1>&17
847
848 030725 200 05 0 00 061125 MOVE AC,RAN
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 3-1
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0038
849 030726 316 05 0 00 000005 CAMN AC,AC ;C(AC) = C(AC)
850 030727 312 05 0 00 000005 CAME AC,AC
851 030730 004 05 0 00 000005 ERROR AC,AC ;CHECK CAME,CAMN
852 000006 AC=<AC+1>&17
853
854 030731 200 06 0 00 061125 MOVE AC,RAN
855 030732 316 06 0 00 000006 CAMN AC,AC ;C(AC) = C(AC)
856 030733 312 06 0 00 000006 CAME AC,AC
857 030734 004 06 0 00 000006 ERROR AC,AC ;CHECK CAME,CAMN
858 000007 AC=<AC+1>&17
859
860 030735 200 07 0 00 061125 MOVE AC,RAN
861 030736 316 07 0 00 000007 CAMN AC,AC ;C(AC) = C(AC)
862 030737 312 07 0 00 000007 CAME AC,AC
863 030740 004 07 0 00 000007 ERROR AC,AC ;CHECK CAME,CAMN
864 000010 AC=<AC+1>&17
865
866 030741 200 10 0 00 061125 MOVE AC,RAN
867 030742 316 10 0 00 000010 CAMN AC,AC ;C(AC) = C(AC)
868 030743 312 10 0 00 000010 CAME AC,AC
869 030744 004 10 0 00 000010 ERROR AC,AC ;CHECK CAME,CAMN
870 000011 AC=<AC+1>&17
871
872 030745 200 11 0 00 061125 MOVE AC,RAN
873 030746 316 11 0 00 000011 CAMN AC,AC ;C(AC) = C(AC)
874 030747 312 11 0 00 000011 CAME AC,AC
875 030750 004 11 0 00 000011 ERROR AC,AC ;CHECK CAME,CAMN
876 000012 AC=<AC+1>&17
877
878 030751 200 12 0 00 061125 MOVE AC,RAN
879 030752 316 12 0 00 000012 CAMN AC,AC ;C(AC) = C(AC)
880 030753 312 12 0 00 000012 CAME AC,AC
881 030754 004 12 0 00 000012 ERROR AC,AC ;CHECK CAME,CAMN
882 000013 AC=<AC+1>&17
883
884 030755 200 13 0 00 061125 MOVE AC,RAN
885 030756 316 13 0 00 000013 CAMN AC,AC ;C(AC) = C(AC)
886 030757 312 13 0 00 000013 CAME AC,AC
887 030760 004 13 0 00 000013 ERROR AC,AC ;CHECK CAME,CAMN
888 000014 AC=<AC+1>&17
889
890 000002 AC=2
891 LOOP CAMNE1-3,CAMNE1^
892 030761 367 01 0 00 030706 SOJG AC-1,CAMNE1-3 ;ITERATION COUNTER
893 030762 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
894 030763 321 01 0 00 030711 JUMPL AC-1,CAMNE1 ;LOOP ON ERROR SWITCH ^
895
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 4
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0039
896
897 ;TEST MOVE TO AC,FURTHER TEST OF CAME
898 ;THE C(AC) IS COMPARED WITH THE CONTENTS OF THE RANDOM
899 ;NUMBER GENERATOR. 15 ACS ARE USED IN THE TEST
900 ;ERRORS ARE PRINTED IN THE FORM (PC,AC,C(AC),CORRECT)
901
902 000002 AC=2
903 030764 MOVAC: SETUP 20,0^
904 000003 AC1=<AC+1>&17
905 000004 AC2=<AC+2>&17
906 000005 AC3=<AC+3>&17
907 000006 AC4=<AC+4>&17
908 000007 AC5=<AC+5>&17
909 000000 RAN1=<AC-2>&17
910 030764 201 01 0 00 030764 MOVEI AC-1,.
911 030765 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
912 030766 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
913 030767 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
914 030770 201 01 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
915 030771 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
916 030772 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
917 RANDOM^
918 030773 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
919 030774 270 02 0 00 060657 ADD AC,[142536475076]
920 030775 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
921 030776 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
922 MOVAC1: REPEAT ^D10,
923 < MOVE AC,RAN ;MOVE RAN INTO AC.
924 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
925 ERROR AC,RAN ;IF NOT MOVE FAILED
926 CAME AC,RAN# ;IF AC=RAN CAME FAILED
927 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
928 AC=<AC+1>&17 ;AC ON CAME FAILED
929 >
930 030777 200 02 0 00 061125 MOVE AC,RAN ;MOVE RAN INTO AC.
931 031000 312 02 0 00 061125 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
932 031001 004 02 0 00 061125 ERROR AC,RAN ;IF NOT MOVE FAILED
933 031002 312 02 0 00 061125 CAME AC,RAN# ;IF AC=RAN CAME FAILED
934 031003 004 02 0 00 061125 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
935 000003 AC=<AC+1>&17 ;AC ON CAME FAILED
936
937 031004 200 03 0 00 061125 MOVE AC,RAN ;MOVE RAN INTO AC.
938 031005 312 03 0 00 061125 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
939 031006 004 03 0 00 061125 ERROR AC,RAN ;IF NOT MOVE FAILED
940 031007 312 03 0 00 061125 CAME AC,RAN# ;IF AC=RAN CAME FAILED
941 031010 004 03 0 00 061125 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
942 000004 AC=<AC+1>&17 ;AC ON CAME FAILED
943
944 031011 200 04 0 00 061125 MOVE AC,RAN ;MOVE RAN INTO AC.
945 031012 312 04 0 00 061125 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
946 031013 004 04 0 00 061125 ERROR AC,RAN ;IF NOT MOVE FAILED
947 031014 312 04 0 00 061125 CAME AC,RAN# ;IF AC=RAN CAME FAILED
948 031015 004 04 0 00 061125 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
949 000005 AC=<AC+1>&17 ;AC ON CAME FAILED
950
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 4-1
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0040
951 031016 200 05 0 00 061125 MOVE AC,RAN ;MOVE RAN INTO AC.
952 031017 312 05 0 00 061125 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
953 031020 004 05 0 00 061125 ERROR AC,RAN ;IF NOT MOVE FAILED
954 031021 312 05 0 00 061125 CAME AC,RAN# ;IF AC=RAN CAME FAILED
955 031022 004 05 0 00 061125 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
956 000006 AC=<AC+1>&17 ;AC ON CAME FAILED
957
958 031023 200 06 0 00 061125 MOVE AC,RAN ;MOVE RAN INTO AC.
959 031024 312 06 0 00 061125 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
960 031025 004 06 0 00 061125 ERROR AC,RAN ;IF NOT MOVE FAILED
961 031026 312 06 0 00 061125 CAME AC,RAN# ;IF AC=RAN CAME FAILED
962 031027 004 06 0 00 061125 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
963 000007 AC=<AC+1>&17 ;AC ON CAME FAILED
964
965 031030 200 07 0 00 061125 MOVE AC,RAN ;MOVE RAN INTO AC.
966 031031 312 07 0 00 061125 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
967 031032 004 07 0 00 061125 ERROR AC,RAN ;IF NOT MOVE FAILED
968 031033 312 07 0 00 061125 CAME AC,RAN# ;IF AC=RAN CAME FAILED
969 031034 004 07 0 00 061125 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
970 000010 AC=<AC+1>&17 ;AC ON CAME FAILED
971
972 031035 200 10 0 00 061125 MOVE AC,RAN ;MOVE RAN INTO AC.
973 031036 312 10 0 00 061125 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
974 031037 004 10 0 00 061125 ERROR AC,RAN ;IF NOT MOVE FAILED
975 031040 312 10 0 00 061125 CAME AC,RAN# ;IF AC=RAN CAME FAILED
976 031041 004 10 0 00 061125 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
977 000011 AC=<AC+1>&17 ;AC ON CAME FAILED
978
979 031042 200 11 0 00 061125 MOVE AC,RAN ;MOVE RAN INTO AC.
980 031043 312 11 0 00 061125 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
981 031044 004 11 0 00 061125 ERROR AC,RAN ;IF NOT MOVE FAILED
982 031045 312 11 0 00 061125 CAME AC,RAN# ;IF AC=RAN CAME FAILED
983 031046 004 11 0 00 061125 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
984 000012 AC=<AC+1>&17 ;AC ON CAME FAILED
985
986 031047 200 12 0 00 061125 MOVE AC,RAN ;MOVE RAN INTO AC.
987 031050 312 12 0 00 061125 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
988 031051 004 12 0 00 061125 ERROR AC,RAN ;IF NOT MOVE FAILED
989 031052 312 12 0 00 061125 CAME AC,RAN# ;IF AC=RAN CAME FAILED
990 031053 004 12 0 00 061125 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
991 000013 AC=<AC+1>&17 ;AC ON CAME FAILED
992
993 031054 200 13 0 00 061125 MOVE AC,RAN ;MOVE RAN INTO AC.
994 031055 312 13 0 00 061125 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
995 031056 004 13 0 00 061125 ERROR AC,RAN ;IF NOT MOVE FAILED
996 031057 312 13 0 00 061125 CAME AC,RAN# ;IF AC=RAN CAME FAILED
997 031060 004 13 0 00 061125 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
998 000014 AC=<AC+1>&17 ;AC ON CAME FAILED
999
1000 000002 AC=2
1001 LOOP MOVAC1-3,MOVAC1^
1002 031061 367 01 0 00 030774 SOJG AC-1,MOVAC1-3 ;ITERATION COUNTER
1003 031062 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1004 031063 321 01 0 00 030777 JUMPL AC-1,MOVAC1 ;LOOP ON ERROR SWITCH ^
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 5
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0041
1005
1006 ;TEST THE SKIP INST FOR NO SKIP,ABILITY TO LOAD
1007 ;AN AC,AC SELECTION,AND AC0 LOGIC(NOT LOADING 0)
1008 ;ERRORS ARE PRESENTED IN THE FORM(PC,AC,C(AC),CORRECT)
1009
1010 000005 AC=5
1011 031064 SKP: SETUP 30,0^
1012 000006 AC1=<AC+1>&17
1013 000007 AC2=<AC+2>&17
1014 000010 AC3=<AC+3>&17
1015 000011 AC4=<AC+4>&17
1016 000012 AC5=<AC+5>&17
1017 000003 RAN1=<AC-2>&17
1018 031064 201 04 0 00 031064 MOVEI AC-1,.
1019 031065 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1020 031066 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1021 031067 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1022 031070 201 04 0 00 000030 MOVEI AC-1,30 ;ROUTINE WEIGHTING
1023 031071 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1024 031072 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1025 RANDOM^
1026 031073 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1027 031074 270 05 0 00 060657 ADD AC,[142536475076]
1028 031075 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1029 031076 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
1030 031077 200 00 0 00 060660 SKP1: MOVE [0] ;DO NOT USE AC0 FOR SKIP
1031 REPEAT ^D8,
1032 < SKIP AC1,RAN# ;STORE IN AC,DO NOT SKIP,CHECK
1033 CAME AC1,AC ;NEW AC AGAINST PREVIOUSLY
1034 ERROR AC1,AC ;STORED AC. IF AC=AC+1(SKIP LOGIC)
1035 CAME [0] ;IF NOT= STORE CYCLE
1036 ERROR [0] ;IF 0 NONE ZERO ADDR/STORE
1037 AC=<AC+1>&17
1038 AC1=<AC+1>&17
1039 >
1040 031100 330 06 0 00 061125 SKIP AC1,RAN# ;STORE IN AC,DO NOT SKIP,CHECK
1041 031101 312 06 0 00 000005 CAME AC1,AC ;NEW AC AGAINST PREVIOUSLY
1042 031102 004 06 0 00 000005 ERROR AC1,AC ;STORED AC. IF AC=AC+1(SKIP LOGIC)
1043 031103 312 00 0 00 060660 CAME [0] ;IF NOT= STORE CYCLE
1044 031104 004 00 0 00 060660 ERROR [0] ;IF 0 NONE ZERO ADDR/STORE
1045 000006 AC=<AC+1>&17
1046 000007 AC1=<AC+1>&17
1047
1048 031105 330 07 0 00 061125 SKIP AC1,RAN# ;STORE IN AC,DO NOT SKIP,CHECK
1049 031106 312 07 0 00 000006 CAME AC1,AC ;NEW AC AGAINST PREVIOUSLY
1050 031107 004 07 0 00 000006 ERROR AC1,AC ;STORED AC. IF AC=AC+1(SKIP LOGIC)
1051 031110 312 00 0 00 060660 CAME [0] ;IF NOT= STORE CYCLE
1052 031111 004 00 0 00 060660 ERROR [0] ;IF 0 NONE ZERO ADDR/STORE
1053 000007 AC=<AC+1>&17
1054 000010 AC1=<AC+1>&17
1055
1056 031112 330 10 0 00 061125 SKIP AC1,RAN# ;STORE IN AC,DO NOT SKIP,CHECK
1057 031113 312 10 0 00 000007 CAME AC1,AC ;NEW AC AGAINST PREVIOUSLY
1058 031114 004 10 0 00 000007 ERROR AC1,AC ;STORED AC. IF AC=AC+1(SKIP LOGIC)
1059 031115 312 00 0 00 060660 CAME [0] ;IF NOT= STORE CYCLE
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 5-1
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0042
1060 031116 004 00 0 00 060660 ERROR [0] ;IF 0 NONE ZERO ADDR/STORE
1061 000010 AC=<AC+1>&17
1062 000011 AC1=<AC+1>&17
1063
1064 031117 330 11 0 00 061125 SKIP AC1,RAN# ;STORE IN AC,DO NOT SKIP,CHECK
1065 031120 312 11 0 00 000010 CAME AC1,AC ;NEW AC AGAINST PREVIOUSLY
1066 031121 004 11 0 00 000010 ERROR AC1,AC ;STORED AC. IF AC=AC+1(SKIP LOGIC)
1067 031122 312 00 0 00 060660 CAME [0] ;IF NOT= STORE CYCLE
1068 031123 004 00 0 00 060660 ERROR [0] ;IF 0 NONE ZERO ADDR/STORE
1069 000011 AC=<AC+1>&17
1070 000012 AC1=<AC+1>&17
1071
1072 031124 330 12 0 00 061125 SKIP AC1,RAN# ;STORE IN AC,DO NOT SKIP,CHECK
1073 031125 312 12 0 00 000011 CAME AC1,AC ;NEW AC AGAINST PREVIOUSLY
1074 031126 004 12 0 00 000011 ERROR AC1,AC ;STORED AC. IF AC=AC+1(SKIP LOGIC)
1075 031127 312 00 0 00 060660 CAME [0] ;IF NOT= STORE CYCLE
1076 031130 004 00 0 00 060660 ERROR [0] ;IF 0 NONE ZERO ADDR/STORE
1077 000012 AC=<AC+1>&17
1078 000013 AC1=<AC+1>&17
1079
1080 031131 330 13 0 00 061125 SKIP AC1,RAN# ;STORE IN AC,DO NOT SKIP,CHECK
1081 031132 312 13 0 00 000012 CAME AC1,AC ;NEW AC AGAINST PREVIOUSLY
1082 031133 004 13 0 00 000012 ERROR AC1,AC ;STORED AC. IF AC=AC+1(SKIP LOGIC)
1083 031134 312 00 0 00 060660 CAME [0] ;IF NOT= STORE CYCLE
1084 031135 004 00 0 00 060660 ERROR [0] ;IF 0 NONE ZERO ADDR/STORE
1085 000013 AC=<AC+1>&17
1086 000014 AC1=<AC+1>&17
1087
1088 031136 330 14 0 00 061125 SKIP AC1,RAN# ;STORE IN AC,DO NOT SKIP,CHECK
1089 031137 312 14 0 00 000013 CAME AC1,AC ;NEW AC AGAINST PREVIOUSLY
1090 031140 004 14 0 00 000013 ERROR AC1,AC ;STORED AC. IF AC=AC+1(SKIP LOGIC)
1091 031141 312 00 0 00 060660 CAME [0] ;IF NOT= STORE CYCLE
1092 031142 004 00 0 00 060660 ERROR [0] ;IF 0 NONE ZERO ADDR/STORE
1093 000014 AC=<AC+1>&17
1094 000015 AC1=<AC+1>&17
1095
1096 031143 330 15 0 00 061125 SKIP AC1,RAN# ;STORE IN AC,DO NOT SKIP,CHECK
1097 031144 312 15 0 00 000014 CAME AC1,AC ;NEW AC AGAINST PREVIOUSLY
1098 031145 004 15 0 00 000014 ERROR AC1,AC ;STORED AC. IF AC=AC+1(SKIP LOGIC)
1099 031146 312 00 0 00 060660 CAME [0] ;IF NOT= STORE CYCLE
1100 031147 004 00 0 00 060660 ERROR [0] ;IF 0 NONE ZERO ADDR/STORE
1101 000015 AC=<AC+1>&17
1102 000016 AC1=<AC+1>&17
1103
1104 000005 AC=5
1105 LOOP SKP1-4,SKP1^
1106 031150 367 04 0 00 031073 SOJG AC-1,SKP1-4 ;ITERATION COUNTER
1107 031151 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1108 031152 321 04 0 00 031077 JUMPL AC-1,SKP1 ;LOOP ON ERROR SWITCH ^
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 6
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0043
1109
1110 ;TEST SKIPA INST FOR PC INCREMENT,ABILITY TO LOAD AN AC,
1111 ;AC SELECTION AND AC0 LOGIC(NOT LOADING 0).ERRORS ARE
1112 ;PRESENTED IN THE FORM (PC,AC,C(AC),CORRECT)
1113
1114 000005 AC=5
1115 031153 SKPA: SETUP 30,0^
1116 000006 AC1=<AC+1>&17
1117 000007 AC2=<AC+2>&17
1118 000010 AC3=<AC+3>&17
1119 000011 AC4=<AC+4>&17
1120 000012 AC5=<AC+5>&17
1121 000003 RAN1=<AC-2>&17
1122 031153 201 04 0 00 031153 MOVEI AC-1,.
1123 031154 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1124 031155 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1125 031156 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1126 031157 201 04 0 00 000030 MOVEI AC-1,30 ;ROUTINE WEIGHTING
1127 031160 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1128 031161 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1129 RANDOM^
1130 031162 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1131 031163 270 05 0 00 060657 ADD AC,[142536475076]
1132 031164 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1133 031165 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
1134 031166 200 00 0 00 060660 SKPA1: MOVE [0] ;DO NOT USE AC0 FOR SKIPA
1135 REPEAT ^D8,
1136 < SKIPA AC1,AC ;LOAD AC1 AND SKIP
1137 ER AC,[ASCII /SKP/] ;FAILED TO SKIP.
1138 CAME AC,RAN ;C(E) GET CHANGED?
1139 ERROR AC,RAN ;YES.
1140 CAME AC1,RAN ;AC GET LOADED WITH RAN?
1141 ERROR AC1,RAN ;NO.
1142 CAME 0,[0] ;C(AC0) STILL = 0?
1143 ERROR [0] ;CHECK STORE CYCLE,AC ADDRESS
1144 AC=<AC+1>&17
1145 AC1=<AC+1>&17
1146 >
1147 031167 334 06 0 00 000005 SKIPA AC1,AC ;LOAD AC1 AND SKIP
1148 031170 005 05 0 00 060661 ER AC,[ASCII /SKP/] ;FAILED TO SKIP.
1149 031171 312 05 0 00 061125 CAME AC,RAN ;C(E) GET CHANGED?
1150 031172 004 05 0 00 061125 ERROR AC,RAN ;YES.
1151 031173 312 06 0 00 061125 CAME AC1,RAN ;AC GET LOADED WITH RAN?
1152 031174 004 06 0 00 061125 ERROR AC1,RAN ;NO.
1153 031175 312 00 0 00 060660 CAME 0,[0] ;C(AC0) STILL = 0?
1154 031176 004 00 0 00 060660 ERROR [0] ;CHECK STORE CYCLE,AC ADDRESS
1155 000006 AC=<AC+1>&17
1156 000007 AC1=<AC+1>&17
1157
1158 031177 334 07 0 00 000006 SKIPA AC1,AC ;LOAD AC1 AND SKIP
1159 031200 005 06 0 00 060661 ER AC,[ASCII /SKP/] ;FAILED TO SKIP.
1160 031201 312 06 0 00 061125 CAME AC,RAN ;C(E) GET CHANGED?
1161 031202 004 06 0 00 061125 ERROR AC,RAN ;YES.
1162 031203 312 07 0 00 061125 CAME AC1,RAN ;AC GET LOADED WITH RAN?
1163 031204 004 07 0 00 061125 ERROR AC1,RAN ;NO.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 6-1
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0044
1164 031205 312 00 0 00 060660 CAME 0,[0] ;C(AC0) STILL = 0?
1165 031206 004 00 0 00 060660 ERROR [0] ;CHECK STORE CYCLE,AC ADDRESS
1166 000007 AC=<AC+1>&17
1167 000010 AC1=<AC+1>&17
1168
1169 031207 334 10 0 00 000007 SKIPA AC1,AC ;LOAD AC1 AND SKIP
1170 031210 005 07 0 00 060661 ER AC,[ASCII /SKP/] ;FAILED TO SKIP.
1171 031211 312 07 0 00 061125 CAME AC,RAN ;C(E) GET CHANGED?
1172 031212 004 07 0 00 061125 ERROR AC,RAN ;YES.
1173 031213 312 10 0 00 061125 CAME AC1,RAN ;AC GET LOADED WITH RAN?
1174 031214 004 10 0 00 061125 ERROR AC1,RAN ;NO.
1175 031215 312 00 0 00 060660 CAME 0,[0] ;C(AC0) STILL = 0?
1176 031216 004 00 0 00 060660 ERROR [0] ;CHECK STORE CYCLE,AC ADDRESS
1177 000010 AC=<AC+1>&17
1178 000011 AC1=<AC+1>&17
1179
1180 031217 334 11 0 00 000010 SKIPA AC1,AC ;LOAD AC1 AND SKIP
1181 031220 005 10 0 00 060661 ER AC,[ASCII /SKP/] ;FAILED TO SKIP.
1182 031221 312 10 0 00 061125 CAME AC,RAN ;C(E) GET CHANGED?
1183 031222 004 10 0 00 061125 ERROR AC,RAN ;YES.
1184 031223 312 11 0 00 061125 CAME AC1,RAN ;AC GET LOADED WITH RAN?
1185 031224 004 11 0 00 061125 ERROR AC1,RAN ;NO.
1186 031225 312 00 0 00 060660 CAME 0,[0] ;C(AC0) STILL = 0?
1187 031226 004 00 0 00 060660 ERROR [0] ;CHECK STORE CYCLE,AC ADDRESS
1188 000011 AC=<AC+1>&17
1189 000012 AC1=<AC+1>&17
1190
1191 031227 334 12 0 00 000011 SKIPA AC1,AC ;LOAD AC1 AND SKIP
1192 031230 005 11 0 00 060661 ER AC,[ASCII /SKP/] ;FAILED TO SKIP.
1193 031231 312 11 0 00 061125 CAME AC,RAN ;C(E) GET CHANGED?
1194 031232 004 11 0 00 061125 ERROR AC,RAN ;YES.
1195 031233 312 12 0 00 061125 CAME AC1,RAN ;AC GET LOADED WITH RAN?
1196 031234 004 12 0 00 061125 ERROR AC1,RAN ;NO.
1197 031235 312 00 0 00 060660 CAME 0,[0] ;C(AC0) STILL = 0?
1198 031236 004 00 0 00 060660 ERROR [0] ;CHECK STORE CYCLE,AC ADDRESS
1199 000012 AC=<AC+1>&17
1200 000013 AC1=<AC+1>&17
1201
1202 031237 334 13 0 00 000012 SKIPA AC1,AC ;LOAD AC1 AND SKIP
1203 031240 005 12 0 00 060661 ER AC,[ASCII /SKP/] ;FAILED TO SKIP.
1204 031241 312 12 0 00 061125 CAME AC,RAN ;C(E) GET CHANGED?
1205 031242 004 12 0 00 061125 ERROR AC,RAN ;YES.
1206 031243 312 13 0 00 061125 CAME AC1,RAN ;AC GET LOADED WITH RAN?
1207 031244 004 13 0 00 061125 ERROR AC1,RAN ;NO.
1208 031245 312 00 0 00 060660 CAME 0,[0] ;C(AC0) STILL = 0?
1209 031246 004 00 0 00 060660 ERROR [0] ;CHECK STORE CYCLE,AC ADDRESS
1210 000013 AC=<AC+1>&17
1211 000014 AC1=<AC+1>&17
1212
1213 031247 334 14 0 00 000013 SKIPA AC1,AC ;LOAD AC1 AND SKIP
1214 031250 005 13 0 00 060661 ER AC,[ASCII /SKP/] ;FAILED TO SKIP.
1215 031251 312 13 0 00 061125 CAME AC,RAN ;C(E) GET CHANGED?
1216 031252 004 13 0 00 061125 ERROR AC,RAN ;YES.
1217 031253 312 14 0 00 061125 CAME AC1,RAN ;AC GET LOADED WITH RAN?
1218 031254 004 14 0 00 061125 ERROR AC1,RAN ;NO.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 6-2
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0045
1219 031255 312 00 0 00 060660 CAME 0,[0] ;C(AC0) STILL = 0?
1220 031256 004 00 0 00 060660 ERROR [0] ;CHECK STORE CYCLE,AC ADDRESS
1221 000014 AC=<AC+1>&17
1222 000015 AC1=<AC+1>&17
1223
1224 031257 334 15 0 00 000014 SKIPA AC1,AC ;LOAD AC1 AND SKIP
1225 031260 005 14 0 00 060661 ER AC,[ASCII /SKP/] ;FAILED TO SKIP.
1226 031261 312 14 0 00 061125 CAME AC,RAN ;C(E) GET CHANGED?
1227 031262 004 14 0 00 061125 ERROR AC,RAN ;YES.
1228 031263 312 15 0 00 061125 CAME AC1,RAN ;AC GET LOADED WITH RAN?
1229 031264 004 15 0 00 061125 ERROR AC1,RAN ;NO.
1230 031265 312 00 0 00 060660 CAME 0,[0] ;C(AC0) STILL = 0?
1231 031266 004 00 0 00 060660 ERROR [0] ;CHECK STORE CYCLE,AC ADDRESS
1232 000015 AC=<AC+1>&17
1233 000016 AC1=<AC+1>&17
1234
1235 000005 AC=5
1236 LOOP SKPA1-4,SKPA1^
1237 031267 367 04 0 00 031162 SOJG AC-1,SKPA1-4 ;ITERATION COUNTER
1238 031270 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1239 031271 321 04 0 00 031166 JUMPL AC-1,SKPA1 ;LOOP ON ERROR SWITCH ^
1240
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 7
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0046
1241
1242 ;TEST EXCH. BOTH AC AND E ARE AC'S. CHECK FOR
1243 ;CORRECT DATA IN AC AND C(E).
1244 ;C(E) = -1, C(AC) = RAN NUM.
1245
1246 000005 AC=5
1247 031272 EXCH1: SETUP 200,0^
1248 000006 AC1=<AC+1>&17
1249 000007 AC2=<AC+2>&17
1250 000010 AC3=<AC+3>&17
1251 000011 AC4=<AC+4>&17
1252 000012 AC5=<AC+5>&17
1253 000003 RAN1=<AC-2>&17
1254 031272 201 04 0 00 031272 MOVEI AC-1,.
1255 031273 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1256 031274 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1257 031275 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1258 031276 201 04 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
1259 031277 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1260 031300 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1261 031301 EXCH2: RANDOM^
1262 031301 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1263 031302 270 05 0 00 060657 ADD AC,[142536475076]
1264 031303 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1265 031304 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
1266 031305 477 06 0 00 000003 EXCH3: SETOB AC1,RAN1 ;MAKE C(E) = -1.
1267 031306 250 05 0 00 000006 EXCH AC,AC1 ;DO THE EXCH.
1268 031307 312 05 0 00 000003 CAME AC,RAN1 ;THE C(AC) SHOULD = ORIG C(E).
1269 031310 001 03 0 00 061125 ERR RAN1,RAN
1270 031311 312 06 0 00 061125 CAME AC1,RAN ;THE C(E) SHOULD = ORIG C(AC).
1271 031312 001 03 0 00 061125 ERR RAN1,RAN
1272 LOOP EXCH2,EXCH3^
1273 031313 367 04 0 00 031301 SOJG AC-1,EXCH2 ;ITERATION COUNTER
1274 031314 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1275 031315 321 04 0 00 031305 JUMPL AC-1,EXCH3 ;LOOP ON ERROR SWITCH ^
1276
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 8
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0047
1277
1278 ;TEST SETCA FOR COMPLEMENT AC AND NOT STORING IN C(E)
1279 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
1280 ;SETCA DOES NOT NORMALLY CHANGE THE CONTENTS OF "E"
1281
1282 000010 AC=10
1283 BOLCA: REPEAT 2,
1284 < SETUP 100,2
1285 RANDOM
1286 MOVE AC2,[0] ;CLEAR AC2, USED TO INSURE
1287 SETCA AC,AC2 ;SETCA DOES NOT STORE IN C(E)
1288 CAMN AC,RAN# ;IF AC UNCHANGED CNTL PULSES
1289 ERROR AC,RAN ;FOR INST SETCA FAILED
1290 REPEAT 3,
1291 < SETCA AC,AC2>
1292 CAME AC,RAN# ;A TOTAL OF 4 COMPLEMENTS
1293 ERROR AC,RAN ;SHOULD PRODUCE ORIGINAL NUM
1294 CAME AC2,[0] ;IF SETCA STORED C(E)
1295 ERROR AC2,[0] ;C(AC2) WILL NO LONGER BE 0.
1296 LOOP .-16,.-15
1297 AC=AC+17
1298 >
1299 SETUP 100,2^
1300 000011 AC1=<AC+1>&17
1301 000012 AC2=<AC+2>&17
1302 000013 AC3=<AC+3>&17
1303 000014 AC4=<AC+4>&17
1304 000015 AC5=<AC+5>&17
1305 000006 RAN1=<AC-2>&17
1306 031316 201 07 0 00 031316 MOVEI AC-1,.
1307 031317 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1308 031320 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1309 031321 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1310 031322 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1311 031323 240 07 1 00 030660 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
1312 031324 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1313 RANDOM^
1314 031325 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1315 031326 270 10 0 00 060657 ADD AC,[142536475076]
1316 031327 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1317 031330 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
1318 031331 200 12 0 00 060660 MOVE AC2,[0] ;CLEAR AC2, USED TO INSURE
1319 031332 450 10 0 00 000012 SETCA AC,AC2 ;SETCA DOES NOT STORE IN C(E)
1320 031333 316 10 0 00 061125 CAMN AC,RAN# ;IF AC UNCHANGED CNTL PULSES
1321 031334 004 10 0 00 061125 ERROR AC,RAN ;FOR INST SETCA FAILED
1322 REPEAT 3,
1323 031335 450 10 0 00 000012 SETCA AC,AC2
1324 031336 450 10 0 00 000012 SETCA AC,AC2
1325 031337 450 10 0 00 000012 SETCA AC,AC2
1326 031340 312 10 0 00 061125 CAME AC,RAN# ;A TOTAL OF 4 COMPLEMENTS
1327 031341 004 10 0 00 061125 ERROR AC,RAN ;SHOULD PRODUCE ORIGINAL NUM
1328 031342 312 12 0 00 060660 CAME AC2,[0] ;IF SETCA STORED C(E)
1329 031343 004 12 0 00 060660 ERROR AC2,[0] ;C(AC2) WILL NO LONGER BE 0.
1330 LOOP .-16,.-15^
1331 031344 367 07 0 00 031326 SOJG AC-1,.-16 ;ITERATION COUNTER
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 8-1
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0048
1332 031345 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1333 031346 321 07 0 00 031331 JUMPL AC-1,.-15 ;LOOP ON ERROR SWITCH ^
1334 000027 AC=AC+17
1335
1336 SETUP 100,2^
1337 000010 AC1=<AC+1>&17
1338 000011 AC2=<AC+2>&17
1339 000012 AC3=<AC+3>&17
1340 000013 AC4=<AC+4>&17
1341 000014 AC5=<AC+5>&17
1342 000005 RAN1=<AC-2>&17
1343 031347 201 06 0 00 031347 MOVEI AC-1,.
1344 031350 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1345 031351 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1346 031352 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1347 031353 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1348 031354 240 06 1 00 030660 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
1349 031355 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1350 RANDOM^
1351 031356 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1352 031357 270 07 0 00 060657 ADD AC,[142536475076]
1353 031360 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1354 031361 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
1355 031362 200 11 0 00 060660 MOVE AC2,[0] ;CLEAR AC2, USED TO INSURE
1356 031363 450 07 0 00 000011 SETCA AC,AC2 ;SETCA DOES NOT STORE IN C(E)
1357 031364 316 07 0 00 061125 CAMN AC,RAN# ;IF AC UNCHANGED CNTL PULSES
1358 031365 004 07 0 00 061125 ERROR AC,RAN ;FOR INST SETCA FAILED
1359 REPEAT 3,
1360 031366 450 07 0 00 000011 SETCA AC,AC2
1361 031367 450 07 0 00 000011 SETCA AC,AC2
1362 031370 450 07 0 00 000011 SETCA AC,AC2
1363 031371 312 07 0 00 061125 CAME AC,RAN# ;A TOTAL OF 4 COMPLEMENTS
1364 031372 004 07 0 00 061125 ERROR AC,RAN ;SHOULD PRODUCE ORIGINAL NUM
1365 031373 312 11 0 00 060660 CAME AC2,[0] ;IF SETCA STORED C(E)
1366 031374 004 11 0 00 060660 ERROR AC2,[0] ;C(AC2) WILL NO LONGER BE 0.
1367 LOOP .-16,.-15^
1368 031375 367 06 0 00 031357 SOJG AC-1,.-16 ;ITERATION COUNTER
1369 031376 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1370 031377 321 06 0 00 031362 JUMPL AC-1,.-15 ;LOOP ON ERROR SWITCH ^
1371 000046 AC=AC+17
1372
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 9
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0049
1373
1374 ;TEST SETCAI ABILITY TO COMPLEMENT AC AND FAILURE TO FETCH C(E)
1375 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT
1376 ;SETCA IS INDEXED FOR NOISE PURPOSES
1377
1378 000005 AC=5
1379 031400 BOLCAI: SETUP 40,0^
1380 000006 AC1=<AC+1>&17
1381 000007 AC2=<AC+2>&17
1382 000010 AC3=<AC+3>&17
1383 000011 AC4=<AC+4>&17
1384 000012 AC5=<AC+5>&17
1385 000003 RAN1=<AC-2>&17
1386 031400 201 04 0 00 031400 MOVEI AC-1,.
1387 031401 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1388 031402 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1389 031403 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1390 031404 201 04 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
1391 031405 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1392 031406 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1393 031407 BOLCA1: RANDOM^
1394 031407 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1395 031410 270 05 0 00 060657 ADD AC,[142536475076]
1396 031411 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1397 031412 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
1398 BOLCA2: REPEAT 4,
1399 < MOVE AC1,AC ;MOVE RANDOM TO AN AC
1400 SETCAI AC1,-1(AC) ;TWO COMP SHOULD PRODUCE
1401 SETCAI AC1,777000(AC) ;ORIGINAL NUMBER
1402 CAME AC1,AC ;SETCAI FAILED
1403 ERROR AC1,AC
1404 AC=<AC+1>&17
1405 AC1=<AC+1>&17
1406 >
1407 031413 200 06 0 00 000005 MOVE AC1,AC ;MOVE RANDOM TO AN AC
1408 031414 451 06 0 05 777777 SETCAI AC1,-1(AC) ;TWO COMP SHOULD PRODUCE
1409 031415 451 06 0 05 777000 SETCAI AC1,777000(AC) ;ORIGINAL NUMBER
1410 031416 312 06 0 00 000005 CAME AC1,AC ;SETCAI FAILED
1411 031417 004 06 0 00 000005 ERROR AC1,AC
1412 000006 AC=<AC+1>&17
1413 000007 AC1=<AC+1>&17
1414
1415 031420 200 07 0 00 000006 MOVE AC1,AC ;MOVE RANDOM TO AN AC
1416 031421 451 07 0 06 777777 SETCAI AC1,-1(AC) ;TWO COMP SHOULD PRODUCE
1417 031422 451 07 0 06 777000 SETCAI AC1,777000(AC) ;ORIGINAL NUMBER
1418 031423 312 07 0 00 000006 CAME AC1,AC ;SETCAI FAILED
1419 031424 004 07 0 00 000006 ERROR AC1,AC
1420 000007 AC=<AC+1>&17
1421 000010 AC1=<AC+1>&17
1422
1423 031425 200 10 0 00 000007 MOVE AC1,AC ;MOVE RANDOM TO AN AC
1424 031426 451 10 0 07 777777 SETCAI AC1,-1(AC) ;TWO COMP SHOULD PRODUCE
1425 031427 451 10 0 07 777000 SETCAI AC1,777000(AC) ;ORIGINAL NUMBER
1426 031430 312 10 0 00 000007 CAME AC1,AC ;SETCAI FAILED
1427 031431 004 10 0 00 000007 ERROR AC1,AC
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 9-1
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0050
1428 000010 AC=<AC+1>&17
1429 000011 AC1=<AC+1>&17
1430
1431 031432 200 11 0 00 000010 MOVE AC1,AC ;MOVE RANDOM TO AN AC
1432 031433 451 11 0 10 777777 SETCAI AC1,-1(AC) ;TWO COMP SHOULD PRODUCE
1433 031434 451 11 0 10 777000 SETCAI AC1,777000(AC) ;ORIGINAL NUMBER
1434 031435 312 11 0 00 000010 CAME AC1,AC ;SETCAI FAILED
1435 031436 004 11 0 00 000010 ERROR AC1,AC
1436 000011 AC=<AC+1>&17
1437 000012 AC1=<AC+1>&17
1438
1439 000005 AC=5
1440 LOOP BOLCA1,BOLCA2^
1441 031437 367 04 0 00 031407 SOJG AC-1,BOLCA1 ;ITERATION COUNTER
1442 031440 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1443 031441 321 04 0 00 031413 JUMPL AC-1,BOLCA2 ;LOOP ON ERROR SWITCH ^
1444
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 10
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0051
1445
1446 ;TEST XOR TO ZERO,XOR 0 TO N,N TO N,-1 TO N
1447 ;THREE ACS ARE USED IN THE TEST
1448 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT
1449
1450 000001 AC=1
1451 BOLX: REPEAT 3,
1452 < SETUP 200,0
1453 RANDOM
1454 MOVE AC,[0] ;CLEAR THE AC
1455 XOR AC,RAN ;0 EXCLUSIVE ORED WITH
1456 CAME AC,RAN ;RANDOM SHOULD = RANDOM
1457 ERROR AC,RAN ;XOR FAILED
1458 XOR AC,[0] ;ANY NUMBER XORED
1459 CAME AC,RAN ;WITH THE NUMBER 0
1460 ERROR AC,RAN ;SHOULD REMAIN UNCHANGED
1461 XOR AC,RAN ;ANY NUMBER XORED
1462 CAME AC,[0] ;WITH ITSELF SHOULD
1463 ERROR AC,[0] ;EQUAL 0
1464 XOR AC,[-1] ;SET AC TO ALL ONES
1465 XOR AC,RAN ;AC SHOULD CONTAIN COMP OF RAN
1466 XOR AC,[-1] ;RECOMPLEMENT AC TO ORIG
1467 CAME AC,RAN ;CHECK FOR RANDOM
1468 ERROR AC,RAN ;XOR FAILED
1469 LOOP .-22,.-21
1470 AC=AC+1
1471 >
1472 SETUP 200,0^
1473 000002 AC1=<AC+1>&17
1474 000003 AC2=<AC+2>&17
1475 000004 AC3=<AC+3>&17
1476 000005 AC4=<AC+4>&17
1477 000006 AC5=<AC+5>&17
1478 000017 RAN1=<AC-2>&17
1479 031442 201 00 0 00 031442 MOVEI AC-1,.
1480 031443 202 00 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1481 031444 201 00 0 00 000000 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1482 031445 202 00 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1483 031446 201 00 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
1484 031447 240 00 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1485 031450 240 00 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1486 RANDOM^
1487 031451 200 01 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1488 031452 270 01 0 00 060657 ADD AC,[142536475076]
1489 031453 241 01 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1490 031454 447 01 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
1491 031455 200 01 0 00 060660 MOVE AC,[0] ;CLEAR THE AC
1492 031456 430 01 0 00 061125 XOR AC,RAN ;0 EXCLUSIVE ORED WITH
1493 031457 312 01 0 00 061125 CAME AC,RAN ;RANDOM SHOULD = RANDOM
1494 031460 004 01 0 00 061125 ERROR AC,RAN ;XOR FAILED
1495 031461 430 01 0 00 060660 XOR AC,[0] ;ANY NUMBER XORED
1496 031462 312 01 0 00 061125 CAME AC,RAN ;WITH THE NUMBER 0
1497 031463 004 01 0 00 061125 ERROR AC,RAN ;SHOULD REMAIN UNCHANGED
1498 031464 430 01 0 00 061125 XOR AC,RAN ;ANY NUMBER XORED
1499 031465 312 01 0 00 060660 CAME AC,[0] ;WITH ITSELF SHOULD
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 10-1
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0052
1500 031466 004 01 0 00 060660 ERROR AC,[0] ;EQUAL 0
1501 031467 430 01 0 00 060662 XOR AC,[-1] ;SET AC TO ALL ONES
1502 031470 430 01 0 00 061125 XOR AC,RAN ;AC SHOULD CONTAIN COMP OF RAN
1503 031471 430 01 0 00 060662 XOR AC,[-1] ;RECOMPLEMENT AC TO ORIG
1504 031472 312 01 0 00 061125 CAME AC,RAN ;CHECK FOR RANDOM
1505 031473 004 01 0 00 061125 ERROR AC,RAN ;XOR FAILED
1506 LOOP .-22,.-21^
1507 031474 367 00 0 00 031452 SOJG AC-1,.-22 ;ITERATION COUNTER
1508 031475 200 01 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1509 031476 321 00 0 00 031455 JUMPL AC-1,.-21 ;LOOP ON ERROR SWITCH ^
1510 000002 AC=AC+1
1511
1512 SETUP 200,0^
1513 000003 AC1=<AC+1>&17
1514 000004 AC2=<AC+2>&17
1515 000005 AC3=<AC+3>&17
1516 000006 AC4=<AC+4>&17
1517 000007 AC5=<AC+5>&17
1518 000000 RAN1=<AC-2>&17
1519 031477 201 01 0 00 031477 MOVEI AC-1,.
1520 031500 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1521 031501 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1522 031502 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1523 031503 201 01 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
1524 031504 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1525 031505 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1526 RANDOM^
1527 031506 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1528 031507 270 02 0 00 060657 ADD AC,[142536475076]
1529 031510 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1530 031511 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
1531 031512 200 02 0 00 060660 MOVE AC,[0] ;CLEAR THE AC
1532 031513 430 02 0 00 061125 XOR AC,RAN ;0 EXCLUSIVE ORED WITH
1533 031514 312 02 0 00 061125 CAME AC,RAN ;RANDOM SHOULD = RANDOM
1534 031515 004 02 0 00 061125 ERROR AC,RAN ;XOR FAILED
1535 031516 430 02 0 00 060660 XOR AC,[0] ;ANY NUMBER XORED
1536 031517 312 02 0 00 061125 CAME AC,RAN ;WITH THE NUMBER 0
1537 031520 004 02 0 00 061125 ERROR AC,RAN ;SHOULD REMAIN UNCHANGED
1538 031521 430 02 0 00 061125 XOR AC,RAN ;ANY NUMBER XORED
1539 031522 312 02 0 00 060660 CAME AC,[0] ;WITH ITSELF SHOULD
1540 031523 004 02 0 00 060660 ERROR AC,[0] ;EQUAL 0
1541 031524 430 02 0 00 060662 XOR AC,[-1] ;SET AC TO ALL ONES
1542 031525 430 02 0 00 061125 XOR AC,RAN ;AC SHOULD CONTAIN COMP OF RAN
1543 031526 430 02 0 00 060662 XOR AC,[-1] ;RECOMPLEMENT AC TO ORIG
1544 031527 312 02 0 00 061125 CAME AC,RAN ;CHECK FOR RANDOM
1545 031530 004 02 0 00 061125 ERROR AC,RAN ;XOR FAILED
1546 LOOP .-22,.-21^
1547 031531 367 01 0 00 031507 SOJG AC-1,.-22 ;ITERATION COUNTER
1548 031532 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1549 031533 321 01 0 00 031512 JUMPL AC-1,.-21 ;LOOP ON ERROR SWITCH ^
1550 000003 AC=AC+1
1551
1552 SETUP 200,0^
1553 000004 AC1=<AC+1>&17
1554 000005 AC2=<AC+2>&17
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 10-2
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0053
1555 000006 AC3=<AC+3>&17
1556 000007 AC4=<AC+4>&17
1557 000010 AC5=<AC+5>&17
1558 000001 RAN1=<AC-2>&17
1559 031534 201 02 0 00 031534 MOVEI AC-1,.
1560 031535 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1561 031536 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1562 031537 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1563 031540 201 02 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
1564 031541 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1565 031542 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1566 RANDOM^
1567 031543 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1568 031544 270 03 0 00 060657 ADD AC,[142536475076]
1569 031545 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1570 031546 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
1571 031547 200 03 0 00 060660 MOVE AC,[0] ;CLEAR THE AC
1572 031550 430 03 0 00 061125 XOR AC,RAN ;0 EXCLUSIVE ORED WITH
1573 031551 312 03 0 00 061125 CAME AC,RAN ;RANDOM SHOULD = RANDOM
1574 031552 004 03 0 00 061125 ERROR AC,RAN ;XOR FAILED
1575 031553 430 03 0 00 060660 XOR AC,[0] ;ANY NUMBER XORED
1576 031554 312 03 0 00 061125 CAME AC,RAN ;WITH THE NUMBER 0
1577 031555 004 03 0 00 061125 ERROR AC,RAN ;SHOULD REMAIN UNCHANGED
1578 031556 430 03 0 00 061125 XOR AC,RAN ;ANY NUMBER XORED
1579 031557 312 03 0 00 060660 CAME AC,[0] ;WITH ITSELF SHOULD
1580 031560 004 03 0 00 060660 ERROR AC,[0] ;EQUAL 0
1581 031561 430 03 0 00 060662 XOR AC,[-1] ;SET AC TO ALL ONES
1582 031562 430 03 0 00 061125 XOR AC,RAN ;AC SHOULD CONTAIN COMP OF RAN
1583 031563 430 03 0 00 060662 XOR AC,[-1] ;RECOMPLEMENT AC TO ORIG
1584 031564 312 03 0 00 061125 CAME AC,RAN ;CHECK FOR RANDOM
1585 031565 004 03 0 00 061125 ERROR AC,RAN ;XOR FAILED
1586 LOOP .-22,.-21^
1587 031566 367 02 0 00 031544 SOJG AC-1,.-22 ;ITERATION COUNTER
1588 031567 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1589 031570 321 02 0 00 031547 JUMPL AC-1,.-21 ;LOOP ON ERROR SWITCH ^
1590 000004 AC=AC+1
1591
1592
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 11
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0054
1593
1594 ;TEST SETZI AND IOR. SETZI ABILITY TO CLEAR,IOR RAN TO 0,
1595 ;RANDOM TO RANDOM,RANDOM TO COMP RANDOM,0 TO RANDOM
1596 ;ERROR IN THE FORM (PC,AC,C(AC),CORRECT)
1597
1598 000005 AC=5
1599 031571 BOLZI: SETUP 100,0^
1600 000006 AC1=<AC+1>&17
1601 000007 AC2=<AC+2>&17
1602 000010 AC3=<AC+3>&17
1603 000011 AC4=<AC+4>&17
1604 000012 AC5=<AC+5>&17
1605 000003 RAN1=<AC-2>&17
1606 031571 201 04 0 00 031571 MOVEI AC-1,.
1607 031572 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1608 031573 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1609 031574 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1610 031575 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1611 031576 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1612 031577 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1613 RANDOM^
1614 031600 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1615 031601 270 05 0 00 060657 ADD AC,[142536475076]
1616 031602 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1617 031603 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
1618 BOLZI1: REPEAT 2,
1619 < MOVE AC,RAN# ;LOAD THE AC THEN
1620 SETZI AC,(AC) ;TRY TO CLEAR IT,INDEX REDUNDANT
1621 CAME AC,[0] ;IF NOT 0
1622 ERROR AC,[0] ;SETZI FAILED
1623 IOR AC,RAN ;INCLUSIVE OR OF A
1624 CAME AC,RAN ;NUMBER TO 0 SHOULD PRODUCE
1625 ERROR AC,RAN ;THE NUMBER
1626 IOR AC,RAN ;IOR SAME NUMBERS
1627 CAME AC,RAN ;SHOULD HAVE NO EFFECT
1628 ERROR AC,RAN ;ON AC.IOR FAILED
1629 IOR AC,[0] ;IOR OF NO BITS SHOULD DO NOTHING
1630 CAME AC,RAN
1631 ERROR AC,RAN ;IOR FAILED
1632 SETCA AC,0
1633 IOR AC,RAN ;INCLUSIVE OR OF COMP NUMBERS
1634 CAME AC,[-1] ;SHOULD SET ALL BITS
1635 ERROR AC,[-1] ;IOR FAILED
1636 IOR AC,[-1] ;ALL BITS TO ALL BITS
1637 CAME AC,[-1] ;PRODUCE ALL BITS
1638 ERROR AC,[-1]
1639 AC=<AC+1>&17
1640 >
1641 031604 200 05 0 00 061125 MOVE AC,RAN# ;LOAD THE AC THEN
1642 031605 401 05 0 05 000000 SETZI AC,(AC) ;TRY TO CLEAR IT,INDEX REDUNDANT
1643 031606 312 05 0 00 060660 CAME AC,[0] ;IF NOT 0
1644 031607 004 05 0 00 060660 ERROR AC,[0] ;SETZI FAILED
1645 031610 434 05 0 00 061125 IOR AC,RAN ;INCLUSIVE OR OF A
1646 031611 312 05 0 00 061125 CAME AC,RAN ;NUMBER TO 0 SHOULD PRODUCE
1647 031612 004 05 0 00 061125 ERROR AC,RAN ;THE NUMBER
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 11-1
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0055
1648 031613 434 05 0 00 061125 IOR AC,RAN ;IOR SAME NUMBERS
1649 031614 312 05 0 00 061125 CAME AC,RAN ;SHOULD HAVE NO EFFECT
1650 031615 004 05 0 00 061125 ERROR AC,RAN ;ON AC.IOR FAILED
1651 031616 434 05 0 00 060660 IOR AC,[0] ;IOR OF NO BITS SHOULD DO NOTHING
1652 031617 312 05 0 00 061125 CAME AC,RAN
1653 031620 004 05 0 00 061125 ERROR AC,RAN ;IOR FAILED
1654 031621 450 05 0 00 000000 SETCA AC,0
1655 031622 434 05 0 00 061125 IOR AC,RAN ;INCLUSIVE OR OF COMP NUMBERS
1656 031623 312 05 0 00 060662 CAME AC,[-1] ;SHOULD SET ALL BITS
1657 031624 004 05 0 00 060662 ERROR AC,[-1] ;IOR FAILED
1658 031625 434 05 0 00 060662 IOR AC,[-1] ;ALL BITS TO ALL BITS
1659 031626 312 05 0 00 060662 CAME AC,[-1] ;PRODUCE ALL BITS
1660 031627 004 05 0 00 060662 ERROR AC,[-1]
1661 000006 AC=<AC+1>&17
1662
1663 031630 200 06 0 00 061125 MOVE AC,RAN# ;LOAD THE AC THEN
1664 031631 401 06 0 06 000000 SETZI AC,(AC) ;TRY TO CLEAR IT,INDEX REDUNDANT
1665 031632 312 06 0 00 060660 CAME AC,[0] ;IF NOT 0
1666 031633 004 06 0 00 060660 ERROR AC,[0] ;SETZI FAILED
1667 031634 434 06 0 00 061125 IOR AC,RAN ;INCLUSIVE OR OF A
1668 031635 312 06 0 00 061125 CAME AC,RAN ;NUMBER TO 0 SHOULD PRODUCE
1669 031636 004 06 0 00 061125 ERROR AC,RAN ;THE NUMBER
1670 031637 434 06 0 00 061125 IOR AC,RAN ;IOR SAME NUMBERS
1671 031640 312 06 0 00 061125 CAME AC,RAN ;SHOULD HAVE NO EFFECT
1672 031641 004 06 0 00 061125 ERROR AC,RAN ;ON AC.IOR FAILED
1673 031642 434 06 0 00 060660 IOR AC,[0] ;IOR OF NO BITS SHOULD DO NOTHING
1674 031643 312 06 0 00 061125 CAME AC,RAN
1675 031644 004 06 0 00 061125 ERROR AC,RAN ;IOR FAILED
1676 031645 450 06 0 00 000000 SETCA AC,0
1677 031646 434 06 0 00 061125 IOR AC,RAN ;INCLUSIVE OR OF COMP NUMBERS
1678 031647 312 06 0 00 060662 CAME AC,[-1] ;SHOULD SET ALL BITS
1679 031650 004 06 0 00 060662 ERROR AC,[-1] ;IOR FAILED
1680 031651 434 06 0 00 060662 IOR AC,[-1] ;ALL BITS TO ALL BITS
1681 031652 312 06 0 00 060662 CAME AC,[-1] ;PRODUCE ALL BITS
1682 031653 004 06 0 00 060662 ERROR AC,[-1]
1683 000007 AC=<AC+1>&17
1684
1685 000005 AC=5
1686 LOOP BOLZI1-4,BOLZI1^
1687 031654 367 04 0 00 031600 SOJG AC-1,BOLZI1-4 ;ITERATION COUNTER
1688 031655 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1689 031656 321 04 0 00 031604 JUMPL AC-1,BOLZI1 ;LOOP ON ERROR SWITCH ^
1690
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 12
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0056
1691 ;TEST AND FOR 0 TO 0,1 TO 1,0 TO 1,1 TO 0
1692 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
1693
1694 000010 AC=10
1695 031657 BOLA: SETUP 400,0^
1696 000011 AC1=<AC+1>&17
1697 000012 AC2=<AC+2>&17
1698 000013 AC3=<AC+3>&17
1699 000014 AC4=<AC+4>&17
1700 000015 AC5=<AC+5>&17
1701 000006 RAN1=<AC-2>&17
1702 031657 201 07 0 00 031657 MOVEI AC-1,.
1703 031660 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1704 031661 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1705 031662 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1706 031663 201 07 0 00 000400 MOVEI AC-1,400 ;ROUTINE WEIGHTING
1707 031664 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1708 031665 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1709 RANDOM^
1710 031666 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1711 031667 270 10 0 00 060657 ADD AC,[142536475076]
1712 031670 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1713 031671 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
1714 031672 404 10 0 00 061125 BOLA1: AND AC,RAN ;NUMBER AND NUMBeR
1715 031673 312 10 0 00 061125 CAME AC,RAN ;SHOULD EQUAL NUMBER
1716 031674 004 10 0 00 061125 ERROR AC,RAN ;IF NOT, "AND" FAILED.
1717 031675 404 10 0 00 060662 AND AC,[-1] ;"AND" OF ALL BITS WITH
1718 031676 312 10 0 00 061125 CAME AC,RAN ;ANY NUMBER SHOULD
1719 031677 004 10 0 00 061125 ERROR AC,RAN ;LEAVE THE NUMBER UNCHANGED
1720 031700 450 10 0 00 000000 SETCA AC,
1721 031701 404 10 0 00 061125 AND AC,RAN ;"AND" OF A NUMBER WITH ITS
1722 031702 312 10 0 00 060660 CAME AC,[0] ;COMPLEMENT SHOULD
1723 031703 004 10 0 00 060660 ERROR AC,[0] ;PRODUCE 0
1724 LOOP BOLA1-4,BOLA1^
1725 031704 367 07 0 00 031666 SOJG AC-1,BOLA1-4 ;ITERATION COUNTER
1726 031705 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1727 031706 321 07 0 00 031672 JUMPL AC-1,BOLA1 ;LOOP ON ERROR SWITCH ^
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 13
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0057
1728
1729 ;TEST ORCA AND SETO. 1 TO 0,1 TO 1, 0 TO 0, 1 TO 0,0 TO 1
1730 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
1731 ;ONE AC IS USED FOR TESTING
1732
1733 000012 AC=12
1734 031707 BOLOS: SETUP 300,0^
1735 000013 AC1=<AC+1>&17
1736 000014 AC2=<AC+2>&17
1737 000015 AC3=<AC+3>&17
1738 000016 AC4=<AC+4>&17
1739 000017 AC5=<AC+5>&17
1740 000010 RAN1=<AC-2>&17
1741 031707 201 11 0 00 031707 MOVEI AC-1,.
1742 031710 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1743 031711 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1744 031712 202 11 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1745 031713 201 11 0 00 000300 MOVEI AC-1,300 ;ROUTINE WEIGHTING
1746 031714 240 11 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1747 031715 240 11 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1748 RANDOM^
1749 031716 200 12 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1750 031717 270 12 0 00 060657 ADD AC,[142536475076]
1751 031720 241 12 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1752 031721 447 12 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
1753 031722 474 12 0 00 031722 BOLOS1: SETO AC,. ;WILL CHANGE THIS INST IF FETCH/STORE C(E).
1754 031723 312 12 0 00 060662 CAME AC,[-1] ;CHECK FOR ALL BITS SET
1755 031724 004 12 0 00 060662 ERROR AC,[-1] ;SETO FAILED
1756 031725 454 12 0 00 061125 ORCA AC,RAN ;-1 ORED TO RANDOM
1757 031726 312 12 0 00 061125 CAME AC,RAN ;SHOULD PRODUCE RANDOM
1758 031727 004 12 0 00 061125 ERROR AC,RAN ;IF AC COMP PROBELY
1759 031730 454 12 0 00 061125 ORCA AC,RAN ;RANDOM TO RANDOM SHOULD
1760 031731 312 12 0 00 060662 CAME AC,[-1] ;PRODUCE -1
1761 031732 004 12 0 00 060662 ERROR AC,[-1] ;IF AC COMPLEMENTED PROPERLY
1762 031733 454 12 0 00 060660 ORCA AC,[0] ;WITH NO BITS EFFECT IC COMP AC
1763 031734 454 12 0 00 061125 ORCA AC,RAN
1764 031735 312 12 0 00 060662 CAME AC,[-1] ;NO BITS COMPLEMENTS TO PRODUCE
1765 031736 004 12 0 00 060662 ERROR AC,[-1] ;ALL ONES
1766 LOOP BOLOS1-4,BOLOS1^
1767 031737 367 11 0 00 031716 SOJG AC-1,BOLOS1-4 ;ITERATION COUNTER
1768 031740 200 12 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1769 031741 321 11 0 00 031722 JUMPL AC-1,BOLOS1 ;LOOP ON ERROR SWITCH ^
1770
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 14
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0058
1771
1772 ;TEST ANDCA.1 TO 1,0 TO 0, 0 TO 1,0 TO 0,1 TO 1,1 TO 0
1773 ;ERRORS ARE IN THE FORM(PC,AC,C(AC),CORRECT
1774 ;ONE AC IS USED
1775
1776 000013 AC=13
1777 031742 BOLAC: SETUP 200,1^
1778 000014 AC1=<AC+1>&17
1779 000015 AC2=<AC+2>&17
1780 000016 AC3=<AC+3>&17
1781 000017 AC4=<AC+4>&17
1782 000000 AC5=<AC+5>&17
1783 000011 RAN1=<AC-2>&17
1784 031742 201 12 0 00 031742 MOVEI AC-1,.
1785 031743 202 12 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1786 031744 201 12 0 00 000012 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1787 031745 202 12 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1788 031746 201 12 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
1789 031747 240 12 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
1790 031750 240 12 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1791 RANDOM^
1792 031751 200 13 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1793 031752 270 13 0 00 060657 ADD AC,[142536475076]
1794 031753 241 13 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1795 031754 447 13 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
1796 031755 410 13 0 00 061125 BOLAC1: ANDCA AC,RAN ;ANDCA OF LIKE NUMBERS
1797 031756 312 13 0 00 060660 CAME AC,[0] ;SHOULD PRODUCE 0
1798 031757 004 13 0 00 060660 ERROR AC,[0] ;ANDCA FAILED
1799 031760 410 13 0 00 061125 ANDCA AC,RAN
1800 031761 312 13 0 00 061125 CAME AC,RAN ;ANDCA OF ZERO AND NUMBER
1801 031762 004 13 0 00 061125 ERROR AC,RAN ;SHOULD PRODUCE NUMBER
1802 031763 474 13 0 00 031763 SETO AC,. ;SET ALL BITS
1803 031764 410 13 0 00 061125 ANDCA AC,RAN
1804 031765 312 13 0 00 060660 CAME AC,[0] ;ANDCA OF ALL BITS WITH NUMBER
1805 031766 004 13 0 00 060660 ERROR AC,[0] ;SHOULD PRODUCE 0
1806 LOOP BOLAC1-4,BOLAC1^
1807 031767 367 12 0 00 031751 SOJG AC-1,BOLAC1-4 ;ITERATION COUNTER
1808 031770 200 13 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1809 031771 321 12 0 00 031755 JUMPL AC-1,BOLAC1 ;LOOP ON ERROR SWITCH ^
1810
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 15
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0059
1811
1812 ;TEST EQV,1 TO 1,0 TO 0,1 TO 0,0 TO 1. EQV =(SET ALL LIKE BITS)
1813 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
1814
1815 000014 AC=14
1816 031772 BOLEQ: SETUP 200,2^
1817 000015 AC1=<AC+1>&17
1818 000016 AC2=<AC+2>&17
1819 000017 AC3=<AC+3>&17
1820 000000 AC4=<AC+4>&17
1821 000001 AC5=<AC+5>&17
1822 000012 RAN1=<AC-2>&17
1823 031772 201 13 0 00 031772 MOVEI AC-1,.
1824 031773 202 13 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1825 031774 201 13 0 00 000013 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1826 031775 202 13 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1827 031776 201 13 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
1828 031777 240 13 1 00 030660 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
1829 032000 240 13 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1830 RANDOM^
1831 032001 200 14 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1832 032002 270 14 0 00 060657 ADD AC,[142536475076]
1833 032003 241 14 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1834 032004 447 14 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
1835 032005 444 14 0 00 061125 BOLEQ1: EQV AC,RAN ;WHEN NUMBERS ARE EQUAL
1836 032006 312 14 0 00 060662 CAME AC,[-1] ;EQV SHOULD PRODUCE ALL
1837 032007 004 14 0 00 060662 ERROR AC,[-1] ;BITS SET.EQV FAILED
1838 032010 444 14 0 00 061125 EQV AC,RAN#
1839 032011 312 14 0 00 061125 CAME AC,RAN ;WITH AC SET,EQV SHOULD
1840 032012 004 14 0 00 061125 ERROR AC,RAN ;PRODUCE C(E) IN THE AC
1841 032013 401 14 0 00 777777 SETZI AC,-1
1842 032014 444 14 0 00 061125 EQV AC,RAN ;WHEN AC=0 EQV SHOULD
1843 032015 450 14 0 00 032015 SETCA AC,. ;PRODUCE COMPLEMENT OF
1844 032016 312 14 0 00 061125 CAME AC,RAN ;C(E)
1845 032017 004 14 0 00 061125 ERROR AC,RAN ;EQV FAILED
1846 LOOP BOLEQ1-3,BOLEQ1^
1847 032020 367 13 0 00 032002 SOJG AC-1,BOLEQ1-3 ;ITERATION COUNTER
1848 032021 200 14 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1849 032022 321 13 0 00 032005 JUMPL AC-1,BOLEQ1 ;LOOP ON ERROR SWITCH ^
1850
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 16
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0060
1851
1852 ;TEST SETM. SET THE CONTENTS OF MEMORY TO THE AC
1853 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
1854
1855 000010 AC=10
1856 032023 BOLSM: SETUP 100,0^
1857 000011 AC1=<AC+1>&17
1858 000012 AC2=<AC+2>&17
1859 000013 AC3=<AC+3>&17
1860 000014 AC4=<AC+4>&17
1861 000015 AC5=<AC+5>&17
1862 000006 RAN1=<AC-2>&17
1863 032023 201 07 0 00 032023 MOVEI AC-1,.
1864 032024 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1865 032025 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1866 032026 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1867 032027 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1868 032030 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1869 032031 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1870 RANDOM^
1871 032032 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1872 032033 270 10 0 00 060657 ADD AC,[142536475076]
1873 032034 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1874 032035 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
1875 BOLSM1: REPEAT 2,
1876 < SETM AC1,RAN ;THE NET RESULT OF SETM
1877 CAME AC1,AC ;IS THE SAME AS MOVE
1878 ERROR AC1,RAN ;SETM FAILED
1879 AC=<AC+1>&17
1880 AC1=<AC+1>&17
1881 >
1882 032036 414 11 0 00 061125 SETM AC1,RAN ;THE NET RESULT OF SETM
1883 032037 312 11 0 00 000010 CAME AC1,AC ;IS THE SAME AS MOVE
1884 032040 004 11 0 00 061125 ERROR AC1,RAN ;SETM FAILED
1885 000011 AC=<AC+1>&17
1886 000012 AC1=<AC+1>&17
1887
1888 032041 414 12 0 00 061125 SETM AC1,RAN ;THE NET RESULT OF SETM
1889 032042 312 12 0 00 000011 CAME AC1,AC ;IS THE SAME AS MOVE
1890 032043 004 12 0 00 061125 ERROR AC1,RAN ;SETM FAILED
1891 000012 AC=<AC+1>&17
1892 000013 AC1=<AC+1>&17
1893
1894 000010 AC=10
1895 LOOP BOLSM1-4,BOLSM1^
1896 032044 367 07 0 00 032032 SOJG AC-1,BOLSM1-4 ;ITERATION COUNTER
1897 032045 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1898 032046 321 07 0 00 032036 JUMPL AC-1,BOLSM1 ;LOOP ON ERROR SWITCH ^
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 17
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0061
1899
1900 ;TEST SETCM. (MOVE THE COMPLEMENT OF MEMORY TO AC)
1901 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
1902
1903 000014 AC=14
1904 032047 BOLCM: SETUP 100,0^
1905 000015 AC1=<AC+1>&17
1906 000016 AC2=<AC+2>&17
1907 000017 AC3=<AC+3>&17
1908 000000 AC4=<AC+4>&17
1909 000001 AC5=<AC+5>&17
1910 000012 RAN1=<AC-2>&17
1911 032047 201 13 0 00 032047 MOVEI AC-1,.
1912 032050 202 13 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1913 032051 201 13 0 00 000013 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1914 032052 202 13 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1915 032053 201 13 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1916 032054 240 13 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1917 032055 240 13 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1918 RANDOM^
1919 032056 200 14 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1920 032057 270 14 0 00 060657 ADD AC,[142536475076]
1921 032060 241 14 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1922 032061 447 14 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
1923 032062 460 15 0 00 061125 BOLCM1: SETCM AC1,RAN ;COMP OF RANDOM TO AC
1924 032063 460 16 0 00 000015 SETCM AC2,AC1 ;RECOMP TO AC2
1925 032064 312 16 0 00 061125 CAME AC2,RAN
1926 032065 004 16 0 00 061125 ERROR AC2,RAN ;SETCM 1 OR 2 FAILED
1927 LOOP BOLCM1-3,BOLCM1^
1928 032066 367 13 0 00 032057 SOJG AC-1,BOLCM1-3 ;ITERATION COUNTER
1929 032067 200 14 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1930 032070 321 13 0 00 032062 JUMPL AC-1,BOLCM1 ;LOOP ON ERROR SWITCH ^
1931
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 18
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0062
1932
1933 ;TEST ORCM. (INCLUSIVE OR THE CONTENTS OF COMPLEMENTED MEMORY
1934 ;TO THE CONTENTS OF AC.) ERRORS ARE IN THE FORM (PC,AC,
1935 ;C(AC),CORRECT
1936
1937 000005 AC=5
1938 032071 BOLOC: SETUP 140,0^
1939 000006 AC1=<AC+1>&17
1940 000007 AC2=<AC+2>&17
1941 000010 AC3=<AC+3>&17
1942 000011 AC4=<AC+4>&17
1943 000012 AC5=<AC+5>&17
1944 000003 RAN1=<AC-2>&17
1945 032071 201 04 0 00 032071 MOVEI AC-1,.
1946 032072 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1947 032073 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1948 032074 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1949 032075 201 04 0 00 000140 MOVEI AC-1,140 ;ROUTINE WEIGHTING
1950 032076 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1951 032077 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1952 RANDOM^
1953 032100 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1954 032101 270 05 0 00 060657 ADD AC,[142536475076]
1955 032102 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1956 032103 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
1957 032104 464 05 0 00 061125 BOLOC1: ORCM AC,RAN ;LIKE NUMBERS SHOULD PRODUCE
1958 032105 312 05 0 00 060662 CAME AC,[-1] ;ALL BITS SET
1959 032106 004 05 0 00 060662 ERROR AC,[-1]
1960 032107 464 05 0 00 061125 ORCM AC,RAN ;ANY NUMBER ORED WITH ALL
1961 032110 312 05 0 00 060662 CAME AC,[-1] ;ONES SHOULD PRODUCE
1962 032111 004 05 0 00 060662 ERROR AC,[-1] ;ALL ONES
1963 032112 401 05 0 00 777777 SETZI AC,-1
1964 032113 464 05 0 00 061125 ORCM AC,RAN ;THE RANDOM NUMBER IS
1965 032114 450 05 0 00 032114 SETCA AC,. ;ORED TO 0. THIS SHOULD
1966 032115 312 05 0 00 061125 CAME AC,RAN ;PRODUCE THE COMPLEMENT
1967 032116 004 05 0 00 061125 ERROR AC,RAN ;OF RANDOM
1968 032117 464 05 0 00 060662 ORCM AC,[-1]
1969 032120 312 05 0 00 061125 CAME AC,RAN ;ORING -1 SHOULD LEAVE
1970 032121 004 05 0 00 061125 ERROR AC,RAN ;AC UNCHANGED
1971 LOOP BOLOC1-3,BOLOC1^
1972 032122 367 04 0 00 032101 SOJG AC-1,BOLOC1-3 ;ITERATION COUNTER
1973 032123 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1974 032124 321 04 0 00 032104 JUMPL AC-1,BOLOC1 ;LOOP ON ERROR SWITCH ^
1975
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 19
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0063
1976
1977 ;TEST ANDCM (AND WITH THE COMP OF MEMORY)
1978 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
1979
1980 000010 AC=10
1981 032125 BOLAX: SETUP 140,0^
1982 000011 AC1=<AC+1>&17
1983 000012 AC2=<AC+2>&17
1984 000013 AC3=<AC+3>&17
1985 000014 AC4=<AC+4>&17
1986 000015 AC5=<AC+5>&17
1987 000006 RAN1=<AC-2>&17
1988 032125 201 07 0 00 032125 MOVEI AC-1,.
1989 032126 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1990 032127 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1991 032130 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1992 032131 201 07 0 00 000140 MOVEI AC-1,140 ;ROUTINE WEIGHTING
1993 032132 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1994 032133 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1995 RANDOM^
1996 032134 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1997 032135 270 10 0 00 060657 ADD AC,[142536475076]
1998 032136 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1999 032137 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
2000 032140 420 10 0 00 061125 BOLAX1: ANDCM AC,RAN ;LIKE NUMBERS SHOULD
2001 032141 312 10 0 00 060660 CAME AC,[0] ;PRODUCE 0
2002 032142 004 10 0 00 060660 ERROR AC,[0] ;ANDCM FAILED
2003 032143 420 10 0 00 061125 ANDCM AC,RAN ;ANYTHING ANDED TO
2004 032144 312 10 0 00 060660 CAME AC,[0] ;ZERO SHOULD = 0
2005 032145 004 10 0 00 060660 ERROR AC,[0]
2006 032146 474 10 0 00 000000 SETO AC,
2007 032147 420 10 0 00 061125 ANDCM AC,RAN ;AC SHOULD - COMP OF MEMORY
2008 032150 420 10 0 00 060660 ANDCM AC,[0] ;AC SHOULD REMAIN UNCHANGED
2009 032151 430 10 0 00 060662 XOR AC,[-1] ;COMP AC
2010 032152 312 10 0 00 061125 CAME AC,RAN ;AFTER COMP SHOULD EQUAL
2011 032153 004 10 0 00 061125 ERROR AC,RAN ;RANDOM. ANDCM FAILED
2012 LOOP BOLAX1-3,BOLAX1^
2013 032154 367 07 0 00 032135 SOJG AC-1,BOLAX1-3 ;ITERATION COUNTER
2014 032155 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2015 032156 321 07 0 00 032140 JUMPL AC-1,BOLAX1 ;LOOP ON ERROR SWITCH ^
2016
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 20
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0064
2017
2018 ;TEST ORCB (INCLUSIVE OR THE COMPLEMENT OF AC AND C(E))
2019 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2020
2021 000001 AC=1
2022 032157 BOLOB: SETUP 140,0^
2023 000002 AC1=<AC+1>&17
2024 000003 AC2=<AC+2>&17
2025 000004 AC3=<AC+3>&17
2026 000005 AC4=<AC+4>&17
2027 000006 AC5=<AC+5>&17
2028 000017 RAN1=<AC-2>&17
2029 032157 201 00 0 00 032157 MOVEI AC-1,.
2030 032160 202 00 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2031 032161 201 00 0 00 000000 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2032 032162 202 00 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2033 032163 201 00 0 00 000140 MOVEI AC-1,140 ;ROUTINE WEIGHTING
2034 032164 240 00 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2035 032165 240 00 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2036 RANDOM^
2037 032166 200 01 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2038 032167 270 01 0 00 060657 ADD AC,[142536475076]
2039 032170 241 01 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2040 032171 447 01 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
2041 032172 470 01 0 00 061125 BOLOB1: ORCB AC,RAN ;PRODUCE COMP OF RAN
2042 032173 470 01 0 00 060662 ORCB AC,[-1] ;COMP AC
2043 032174 312 01 0 00 061125 CAME AC,RAN ;CHECK ORCB
2044 032175 004 01 0 00 061125 ERROR AC,RAN
2045 032176 470 01 0 00 060662 ORCB AC,[-1] ;COMP AC
2046 032177 470 01 0 00 061125 ORCB AC,RAN ;ANY TWO COMPLEMENTED NUMBERS
2047 032200 312 01 0 00 060662 CAME AC,[-1] ;SHOULD PRODUCE ALL ONES
2048 032201 004 01 0 00 060662 ERROR AC,[-1]
2049 032202 470 01 0 00 060660 ORCB AC,[0] ;AC COMPLEMENTS TO 0
2050 032203 312 01 0 00 060662 CAME AC,[-1]
2051 032204 004 01 0 00 060662 ERROR AC,[-1] ;ORCB FAILED
2052 LOOP BOLOB1-4,BOLOB1^
2053 032205 367 00 0 00 032166 SOJG AC-1,BOLOB1-4 ;ITERATION COUNTER
2054 032206 200 01 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2055 032207 321 00 0 00 032172 JUMPL AC-1,BOLOB1 ;LOOP ON ERROR SWITCH ^
2056
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 21
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0065
2057
2058 ;TEST ANDCB (AND WITH BOTH OPERANDS COMPLEMENTED)
2059 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2060
2061 000002 AC=2
2062 032210 BOLAB: SETUP 140,0^
2063 000003 AC1=<AC+1>&17
2064 000004 AC2=<AC+2>&17
2065 000005 AC3=<AC+3>&17
2066 000006 AC4=<AC+4>&17
2067 000007 AC5=<AC+5>&17
2068 000000 RAN1=<AC-2>&17
2069 032210 201 01 0 00 032210 MOVEI AC-1,.
2070 032211 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2071 032212 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2072 032213 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2073 032214 201 01 0 00 000140 MOVEI AC-1,140 ;ROUTINE WEIGHTING
2074 032215 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2075 032216 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2076 RANDOM^
2077 032217 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2078 032220 270 02 0 00 060657 ADD AC,[142536475076]
2079 032221 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2080 032222 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
2081 032223 440 02 0 00 061125 BOLAB1: ANDCB AC,RAN ;PRODUCE COMP OF RAN
2082 032224 440 02 0 00 060660 ANDCB AC,[0] ;COMP AC
2083 032225 312 02 0 00 061125 CAME AC,RAN ;CHECK FOR ORIGIONAL NUMBER
2084 032226 004 02 0 00 061125 ERROR AC,RAN ;ANDCB FAILED
2085 032227 440 02 0 00 060660 ANDCB AC,[0] ;COMPLEMENT AC
2086 032230 440 02 0 00 060660 ANDCB AC,[0] ;RECOMPLEMENT AC
2087 032231 312 02 0 00 061125 CAME AC,RAN ;SHOULD PRODUCE ORIGIONAL
2088 032232 004 02 0 00 061125 ERROR AC,RAN ;ANDCB FAILED
2089 032233 440 02 0 00 060662 ANDCB AC,[-1] ;RESULT SHOULD BE 0 IF
2090 032234 312 02 0 00 060660 CAME AC,[0] ;CONTENTS OF E
2091 032235 004 02 0 00 060660 ERROR AC,[0] ;CONTAINS NO BITS AFTER COMP
2092 032236 440 02 0 00 061125 ANDCB AC,RAN ;AC SHOULD EQUAL COMP OF RAN
2093 032237 440 02 0 00 060660 ANDCB AC,[0] ;COMP AC
2094 032240 312 02 0 00 061125 CAME AC,RAN ;THE AND TO 0
2095 032241 004 02 0 00 061125 ERROR AC,RAN ;FAILED
2096 LOOP BOLAB1-3,BOLAB1^
2097 032242 367 01 0 00 032220 SOJG AC-1,BOLAB1-3 ;ITERATION COUNTER
2098 032243 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2099 032244 321 01 0 00 032223 JUMPL AC-1,BOLAB1 ;LOOP ON ERROR SWITCH ^
2100
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 22
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0066
2101
2102 ;TEST SETA (EFFECTIVELY A NO OPERATION IN THIS MODE)
2103 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2104
2105 000003 AC=3
2106 032245 BOLSA: SETUP 100,0^
2107 000004 AC1=<AC+1>&17
2108 000005 AC2=<AC+2>&17
2109 000006 AC3=<AC+3>&17
2110 000007 AC4=<AC+4>&17
2111 000010 AC5=<AC+5>&17
2112 000001 RAN1=<AC-2>&17
2113 032245 201 02 0 00 032245 MOVEI AC-1,.
2114 032246 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2115 032247 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2116 032250 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2117 032251 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2118 032252 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2119 032253 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2120 RANDOM^
2121 032254 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2122 032255 270 03 0 00 060657 ADD AC,[142536475076]
2123 032256 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2124 032257 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
2125 BOLSA1: REPEAT 7, ;DO 7 SETA'S.
2126 < SETA AC,.>
2127 032260 424 03 0 00 032260 SETA AC,.
2128 032261 424 03 0 00 032261 SETA AC,.
2129 032262 424 03 0 00 032262 SETA AC,.
2130 032263 424 03 0 00 032263 SETA AC,.
2131 032264 424 03 0 00 032264 SETA AC,.
2132 032265 424 03 0 00 032265 SETA AC,.
2133 032266 424 03 0 00 032266 SETA AC,.
2134 032267 312 03 0 00 061125 CAME AC,RAN ;C(AC) SHOULD = ORIG. C(AC)
2135 032270 004 03 0 00 061125 ERROR AC,RAN
2136 LOOP BOLSA1-3,BOLSA1^
2137 032271 367 02 0 00 032255 SOJG AC-1,BOLSA1-3 ;ITERATION COUNTER
2138 032272 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2139 032273 321 02 0 00 032260 JUMPL AC-1,BOLSA1 ;LOOP ON ERROR SWITCH ^
2140
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 23
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0067
2141
2142 ;TEST IORM, WHERE E IS AN AC. THE INST IS TESTED
2143 ;FOR NOT STORING IN AC AS WELL AS STORING PROPERLY
2144 ;IN E.
2145 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2146
2147 000011 AC=11
2148 032274 BMIOR: SETUP 100,1^
2149 000012 AC1=<AC+1>&17
2150 000013 AC2=<AC+2>&17
2151 000014 AC3=<AC+3>&17
2152 000015 AC4=<AC+4>&17
2153 000016 AC5=<AC+5>&17
2154 000007 RAN1=<AC-2>&17
2155 032274 201 10 0 00 032274 MOVEI AC-1,.
2156 032275 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2157 032276 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2158 032277 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2159 032300 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2160 032301 240 10 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
2161 032302 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2162 032303 BMIOR1: RANDOM^
2163 032303 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2164 032304 270 11 0 00 060657 ADD AC,[142536475076]
2165 032305 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2166 032306 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
2167 032307 204 12 0 00 000011 BMIOR2: MOVS AC1,AC ;AC=C(E) ORIG
2168 032310 316 11 0 00 000012 CAMN AC,AC1 ;HALVES SAME?
2169 032311 254 00 0 00 032303 JRST BMIOR1 ;YES. REJECT.
2170 032312 460 00 0 00 000011 SETCM AC ;SIM AN
2171 032313 404 00 0 00 000012 AND AC1 ;IOR
2172 032314 430 00 0 00 000011 XOR AC ;INST
2173 032315 436 11 0 00 000012 IORM AC,AC1 ;RESULT TO AC1
2174 032316 316 11 0 00 000012 CAMN AC,AC1 ;BOTH SAME?
2175 032317 004 11 0 00 000012 ERROR AC,AC1 ;YES. STORED IN AC.
2176 032320 312 12 0 00 000000 CAME AC1,0 ;C(E) = SIM. ANS?
2177 032321 004 11 0 00 000000 ERROR AC,0 ;NO. IORM FAILED.
2178 LOOP BMIOR1,BMIOR2^
2179 032322 367 10 0 00 032303 SOJG AC-1,BMIOR1 ;ITERATION COUNTER
2180 032323 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2181 032324 321 10 0 00 032307 JUMPL AC-1,BMIOR2 ;LOOP ON ERROR SWITCH ^
2182
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 24
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0068
2183
2184 ;TEST ORCAM, WHERE E IS AN AC. THE INSTRUCTION IS TESTED
2185 ;FOR NOT STORING IN AC AS WELL AS STORING PROPERLY IN C(E).
2186 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2187
2188 000012 AC=12
2189 032325 BMICA: SETUP 100,1^
2190 000013 AC1=<AC+1>&17
2191 000014 AC2=<AC+2>&17
2192 000015 AC3=<AC+3>&17
2193 000016 AC4=<AC+4>&17
2194 000017 AC5=<AC+5>&17
2195 000010 RAN1=<AC-2>&17
2196 032325 201 11 0 00 032325 MOVEI AC-1,.
2197 032326 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2198 032327 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2199 032330 202 11 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2200 032331 201 11 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2201 032332 240 11 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
2202 032333 240 11 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2203 032334 BMICA1: RANDOM^
2204 032334 200 12 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2205 032335 270 12 0 00 060657 ADD AC,[142536475076]
2206 032336 241 12 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2207 032337 447 12 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
2208 032340 204 13 0 00 000012 BMICA2: MOVS AC1,AC ;SECOND RANDOM NUMBER
2209 032341 460 14 0 00 000013 SETCM AC2,AC1 ;MOVE COMPLEMENT OF NUMBER
2210 032342 460 00 0 00 000012 SETCM AC ;SIMULATE
2211 032343 404 00 0 00 000014 AND AC2 ;THE INSTRUCTION
2212 032344 430 00 0 00 000012 XOR AC ;IN AC0.
2213 032345 456 13 0 00 000012 ORCAM AC1,AC ;RESULT TO C(E)
2214 032346 316 13 0 00 000012 CAMN AC1,AC ;EQUAL?
2215 032347 004 13 0 00 000012 ERROR AC1,AC ;YES. STORED IN AC.
2216 032350 312 12 0 00 000000 CAME AC,0 ;C(E) = SIM. ANS?
2217 032351 004 12 0 00 000000 ERROR AC,0 ;NO. ORCAM FAILED.
2218 LOOP BMICA1,BMICA2^
2219 032352 367 11 0 00 032334 SOJG AC-1,BMICA1 ;ITERATION COUNTER
2220 032353 200 12 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2221 032354 321 11 0 00 032340 JUMPL AC-1,BMICA2 ;LOOP ON ERROR SWITCH ^
2222
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 25
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0069
2223
2224 ;TEST ORCMM, WHERE E IS AN AC. THE INSTRUCTION
2225 ;IS TESTED FOR NOT STORING IN AC AS WELL AS THE
2226 ;CORRECT ANSWER IN C(E).
2227 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2228
2229 000013 AC=13
2230 032355 BMICM: SETUP 100,0^
2231 000014 AC1=<AC+1>&17
2232 000015 AC2=<AC+2>&17
2233 000016 AC3=<AC+3>&17
2234 000017 AC4=<AC+4>&17
2235 000000 AC5=<AC+5>&17
2236 000011 RAN1=<AC-2>&17
2237 032355 201 12 0 00 032355 MOVEI AC-1,.
2238 032356 202 12 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2239 032357 201 12 0 00 000012 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2240 032360 202 12 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2241 032361 201 12 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2242 032362 240 12 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2243 032363 240 12 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2244 032364 BMICM1: RANDOM^
2245 032364 200 13 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2246 032365 270 13 0 00 060657 ADD AC,[142536475076]
2247 032366 241 13 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2248 032367 447 13 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
2249 032370 204 14 0 00 000013 BMICM2: MOVS AC1,AC ;SECOND RANDOM NUMBER
2250 032371 460 15 0 00 000013 SETCM AC2,AC ;SIMULATE
2251 032372 460 00 0 00 000014 SETCM AC1 ;THE
2252 032373 404 00 0 00 000015 AND AC2 ;INSTRUCTION
2253 032374 430 00 0 00 000014 XOR AC1 ;IN AC0
2254 032375 316 00 0 00 000014 CAMN 0,AC1 ;IS SIMULATED ANS
2255 032376 254 00 0 00 032364 JRST BMICM1 ;= C(AC)?...REJECT.
2256 032377 466 14 0 00 000013 ORCMM AC1,AC ;IF AC1 = AC, STORE INHIBIT
2257 032400 316 14 0 00 000013 CAMN AC1,AC
2258 032401 004 14 0 00 000013 ERROR AC1,AC ;FAILED.
2259 032402 312 13 0 00 000000 CAME AC,0 ;C(E) SHOULD = SIM. ANS.
2260 032403 004 13 0 00 000000 ERROR AC,0 ;ORCMM FAILED.
2261 LOOP BMICM1,BMICM2^
2262 032404 367 12 0 00 032364 SOJG AC-1,BMICM1 ;ITERATION COUNTER
2263 032405 200 13 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2264 032406 321 12 0 00 032370 JUMPL AC-1,BMICM2 ;LOOP ON ERROR SWITCH ^
2265
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 26
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0070
2266
2267 ;TEST ORCBM, WHERE E IS AN AC. THE INSTRUCTION
2268 ;IS TESTED FOR NOT STORING IN AC AS WELL AS THE
2269 ;CORRECT ANSWER IN C(E).
2270 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2271
2272 000014 AC=14
2273 032407 BMICB: SETUP 200,0^
2274 000015 AC1=<AC+1>&17
2275 000016 AC2=<AC+2>&17
2276 000017 AC3=<AC+3>&17
2277 000000 AC4=<AC+4>&17
2278 000001 AC5=<AC+5>&17
2279 000012 RAN1=<AC-2>&17
2280 032407 201 13 0 00 032407 MOVEI AC-1,.
2281 032410 202 13 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2282 032411 201 13 0 00 000013 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2283 032412 202 13 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2284 032413 201 13 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
2285 032414 240 13 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2286 032415 240 13 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2287 032416 BMICB1: RANDOM^
2288 032416 200 14 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2289 032417 270 14 0 00 060657 ADD AC,[142536475076]
2290 032420 241 14 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2291 032421 447 14 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
2292 032422 204 15 0 00 000014 BMICB2: MOVS AC1,AC ;AC1= 0101,0011
2293 032423 460 16 0 00 000014 SETCM AC2,AC ;AC2= 1100,1010
2294 032424 460 00 0 00 000016 SETCM AC2 ;AC0 = 0011,0101
2295 032425 420 00 0 00 000015 ANDCM AC1 ;AC0 = 0010,0100
2296 032426 430 00 0 00 000016 XOR AC2 ;AC0 = 1110,1110
2297 032427 472 15 0 00 000014 ORCBM AC1,AC ;SHOULD PRODUCE SAME LOGIC
2298 032430 316 15 0 00 000014 CAMN AC1,AC ;EQUAL?
2299 032431 004 15 0 00 000014 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2300 032432 312 14 0 00 000000 CAME AC,0 ;C(E) SHOULD = SIM. ANS.
2301 032433 004 14 0 00 000000 ERROR AC,0 ;ORCBM FAILED.
2302 LOOP BMICB1,BMICB2^
2303 032434 367 13 0 00 032416 SOJG AC-1,BMICB1 ;ITERATION COUNTER
2304 032435 200 14 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2305 032436 321 13 0 00 032422 JUMPL AC-1,BMICB2 ;LOOP ON ERROR SWITCH ^
2306
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 27
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0071
2307
2308 ;TEST XORM, WHERE E IS AN AC. THE INSTRUCTION IS
2309 ;TESTED FOR NOT STORING AC AS WELL AS CONTENTS
2310 ;OF E CORRECTNESS.
2311 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2312
2313 000010 AC=10
2314 032437 BMX: SETUP 200,1^
2315 000011 AC1=<AC+1>&17
2316 000012 AC2=<AC+2>&17
2317 000013 AC3=<AC+3>&17
2318 000014 AC4=<AC+4>&17
2319 000015 AC5=<AC+5>&17
2320 000006 RAN1=<AC-2>&17
2321 032437 201 07 0 00 032437 MOVEI AC-1,.
2322 032440 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2323 032441 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2324 032442 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2325 032443 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
2326 032444 240 07 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
2327 032445 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2328 032446 BMX1: RANDOM^
2329 032446 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2330 032447 270 10 0 00 060657 ADD AC,[142536475076]
2331 032450 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2332 032451 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
2333 032452 322 10 0 00 032446 BMX2: JUMPE AC,BMX1 ;REJECT IF RAN = 0.
2334 032453 204 11 0 00 000010 MOVS AC1,AC ;SECOND RANDOM NUMBER.
2335 032454 460 00 0 00 000010 SETCM AC
2336 032455 410 00 0 00 000011 ANDCA AC1 ;PERFORM
2337 032456 200 12 0 00 000010 MOVE AC2,AC ;A PSEUDO
2338 032457 434 12 0 00 000011 IOR AC2,AC1 ;EXCLUSIVE
2339 032460 410 00 0 00 000012 ANDCA AC2 ;OR INSTRUCTION
2340 032461 432 11 0 00 000010 XORM AC1,AC ;DO THE XOR
2341 032462 316 11 0 00 000010 CAMN AC1,AC ;EQUAL?
2342 032463 004 11 0 00 000010 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2343 032464 312 10 0 00 000000 CAME AC,0 ;C(E) SHOULD = SIM. ANS.
2344 032465 004 10 0 00 000000 ERROR AC,0 ;XORM FAILED.
2345 LOOP BMX1,BMX2^
2346 032466 367 07 0 00 032446 SOJG AC-1,BMX1 ;ITERATION COUNTER
2347 032467 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2348 032470 321 07 0 00 032452 JUMPL AC-1,BMX2 ;LOOP ON ERROR SWITCH ^
2349
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 28
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0072
2350
2351 ;TEST EQVM, WHERE E IS AN AC. THE INSTRUCTION
2352 ;IS TESTED FOR NOT STORING AC AS WELL AS
2353 ;CORRECTNESS OF C(E).
2354 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2355
2356 000010 AC=10
2357 032471 BMEQ: SETUP 100,0^
2358 000011 AC1=<AC+1>&17
2359 000012 AC2=<AC+2>&17
2360 000013 AC3=<AC+3>&17
2361 000014 AC4=<AC+4>&17
2362 000015 AC5=<AC+5>&17
2363 000006 RAN1=<AC-2>&17
2364 032471 201 07 0 00 032471 MOVEI AC-1,.
2365 032472 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2366 032473 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2367 032474 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2368 032475 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2369 032476 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2370 032477 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2371 032500 BMEQ1: RANDOM^
2372 032500 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2373 032501 270 10 0 00 060657 ADD AC,[142536475076]
2374 032502 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2375 032503 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
2376 032504 204 11 0 00 000010 BMEQ2: MOVS AC1,AC ;SECOND RANDOM NUMBER
2377 032505 460 00 0 00 000011 SETCM AC1 ;EQV IS SAME LOGIC
2378 032506 430 00 0 00 000010 XOR AC ;AS XOR WITH COMP AC
2379 032507 446 11 0 00 000010 EQVM AC1,AC ;EQV SETS ALL LIKE BITS
2380 032510 316 11 0 00 000010 CAMN AC1,AC ;EQUAL?
2381 032511 004 11 0 00 000010 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2382 032512 312 10 0 00 000000 CAME AC,0 ;C(E) SHOULD = SIM. ANS.
2383 032513 004 10 0 00 000000 ERROR AC,0 ;EQVM FAILED.
2384 LOOP BMEQ1,BMEQ2^
2385 032514 367 07 0 00 032500 SOJG AC-1,BMEQ1 ;ITERATION COUNTER
2386 032515 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2387 032516 321 07 0 00 032504 JUMPL AC-1,BMEQ2 ;LOOP ON ERROR SWITCH ^
2388
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 29
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0073
2389
2390
2391 ;TEST ANDM, WHERE E IS AN AC. THE INSTRUCTION IS
2392 ;TESTED FOR NOT STORING IN AC AS WELL AS STORING
2393 ;PROPERLY IN C(E).
2394 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2395
2396 000003 AC=3
2397 032517 BMAN: SETUP 100,0^
2398 000004 AC1=<AC+1>&17
2399 000005 AC2=<AC+2>&17
2400 000006 AC3=<AC+3>&17
2401 000007 AC4=<AC+4>&17
2402 000010 AC5=<AC+5>&17
2403 000001 RAN1=<AC-2>&17
2404 032517 201 02 0 00 032517 MOVEI AC-1,.
2405 032520 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2406 032521 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2407 032522 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2408 032523 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2409 032524 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2410 032525 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2411 032526 BMAN1: RANDOM^
2412 032526 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2413 032527 270 03 0 00 060657 ADD AC,[142536475076]
2414 032530 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2415 032531 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
2416 032532 204 04 0 00 000003 BMAN2: MOVS AC1,AC ;SECOND RANDOM NUMBER
2417 032533 200 00 0 00 000003 MOVE AC ;SIMULATE
2418 032534 434 00 0 00 000004 IOR AC1 ;AN "AND"
2419 032535 430 00 0 00 000004 XOR AC1 ;INSTRUCTION.
2420 032536 430 00 0 00 000003 XOR AC ;IN AC0
2421 032537 316 04 0 00 000003 CAMN AC1,AC ;REJECT THE NUMBER
2422 032540 254 00 0 00 032526 JRST BMAN1 ;IF EQUAL.
2423 032541 406 04 0 00 000003 ANDM AC1,AC ;THE INSTRUCTION
2424 032542 316 04 0 00 000003 CAMN AC1,AC ;EQUAL?
2425 032543 004 04 0 00 000003 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2426 032544 312 03 0 00 000000 CAME AC,0 ;C(E) SHOULD = SIM. ANS.
2427 032545 004 03 0 00 000000 ERROR AC,0 ;AND FAILED.
2428 LOOP BMAN1,BMAN2^
2429 032546 367 02 0 00 032526 SOJG AC-1,BMAN1 ;ITERATION COUNTER
2430 032547 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2431 032550 321 02 0 00 032532 JUMPL AC-1,BMAN2 ;LOOP ON ERROR SWITCH ^
2432
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 30
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0074
2433
2434
2435 ;TEST ANDCAM, WHERE E IS AN AC. THE INSTRUCTION IS
2436 ;TESTED FOR NOT STORING IN AN AC AS WELL AS
2437 ;STORING C(E) PROPERLY.
2438 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2439
2440 000004 AC=4
2441 032551 BMACA: SETUP 100,0^
2442 000005 AC1=<AC+1>&17
2443 000006 AC2=<AC+2>&17
2444 000007 AC3=<AC+3>&17
2445 000010 AC4=<AC+4>&17
2446 000011 AC5=<AC+5>&17
2447 000002 RAN1=<AC-2>&17
2448 032551 201 03 0 00 032551 MOVEI AC-1,.
2449 032552 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2450 032553 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2451 032554 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2452 032555 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2453 032556 240 03 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2454 032557 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2455 032560 BMACA1: RANDOM^
2456 032560 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2457 032561 270 04 0 00 060657 ADD AC,[142536475076]
2458 032562 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2459 032563 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
2460 032564 322 04 0 00 032560 BMACA2: JUMPE AC,BMACA1 ;REJECT IF RAN = 0.
2461 032565 204 05 0 00 000004 MOVS AC1,AC ;SECOND RANDOM NUMBER
2462 032566 414 00 0 00 000004 SETM AC ;SIMULATE
2463 032567 454 00 0 00 000005 ORCA AC1 ;ANDCA
2464 032570 450 00 0 00 000000 SETCA ;LOGIC
2465 032571 412 05 0 00 000004 ANDCAM AC1,AC ;THE INSTRUCTION
2466 032572 316 05 0 00 000004 CAMN AC1,AC ;EQUAL?
2467 032573 004 05 0 00 000004 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2468 032574 312 04 0 00 000000 CAME AC,0 ;C(E) SHOULD = SIM. ANS.
2469 032575 004 04 0 00 000000 ERROR AC,0 ;ANDCA FAILED.
2470 LOOP BMACA1,BMACA2^
2471 032576 367 03 0 00 032560 SOJG AC-1,BMACA1 ;ITERATION COUNTER
2472 032577 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2473 032600 321 03 0 00 032564 JUMPL AC-1,BMACA2 ;LOOP ON ERROR SWITCH ^
2474
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 31
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0075
2475
2476 ;TEST ANDCMM, WHERE E IS AN AC. THE INSTRUCTION IS
2477 ;TESTED FOR NOT STORING IN AN AC AS WELL AS
2478 ;STORING C(E) PROPERLY.
2479 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2480
2481 000005 AC=5
2482 032601 BMACM: SETUP 100,0^
2483 000006 AC1=<AC+1>&17
2484 000007 AC2=<AC+2>&17
2485 000010 AC3=<AC+3>&17
2486 000011 AC4=<AC+4>&17
2487 000012 AC5=<AC+5>&17
2488 000003 RAN1=<AC-2>&17
2489 032601 201 04 0 00 032601 MOVEI AC-1,.
2490 032602 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2491 032603 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2492 032604 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2493 032605 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2494 032606 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2495 032607 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2496 032610 BMACM1: RANDOM^
2497 032610 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2498 032611 270 05 0 00 060657 ADD AC,[142536475076]
2499 032612 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2500 032613 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
2501 032614 322 05 0 00 032610 BMACM2: JUMPE AC,BMACM1 ;REJECT IF RAN = 0.
2502 032615 204 06 0 00 000005 MOVS AC1,AC ;SECOND RANDOM NUMBER
2503 032616 426 06 0 00 000000 SETAM AC1,0 ;AC1 TO AC0.
2504 032617 434 00 0 00 000005 IOR AC ;SIMULATE
2505 032620 430 00 0 00 000005 XOR AC ;THE INSTUCTION
2506 032621 316 00 0 00 000006 CAMN 0,AC1 ;SIM ANS = C(AC)?
2507 032622 254 00 0 00 032610 JRST BMACM1 ;YES. REJECT.
2508 032623 422 06 0 00 000005 ANDCMM AC1,AC ;DO AN ANDCMM INSTRUCTION.
2509 032624 316 06 0 00 000005 CAMN AC1,AC ;EQUAL?
2510 032625 004 06 0 00 000005 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2511 032626 312 05 0 00 000000 CAME AC,0 ;C(E) SHOULD = SIM. ANS.
2512 032627 004 05 0 00 000000 ERROR AC,0 ;ANDCMM FAILED.
2513 LOOP BMACM1,BMACM2^
2514 032630 367 04 0 00 032610 SOJG AC-1,BMACM1 ;ITERATION COUNTER
2515 032631 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2516 032632 321 04 0 00 032614 JUMPL AC-1,BMACM2 ;LOOP ON ERROR SWITCH ^
2517
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 32
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0076
2518
2519 ;TEST ANDCBM, WHERE E IS AN AC. THE INSTRUCTION
2520 ;IS TESTED FOR NOT STORING IN AC AS WELL AS STORING
2521 ;PROPERLY IN C(E).
2522 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2523
2524 000007 AC=7
2525 032633 BMACB: SETUP 100,0^
2526 000010 AC1=<AC+1>&17
2527 000011 AC2=<AC+2>&17
2528 000012 AC3=<AC+3>&17
2529 000013 AC4=<AC+4>&17
2530 000014 AC5=<AC+5>&17
2531 000005 RAN1=<AC-2>&17
2532 032633 201 06 0 00 032633 MOVEI AC-1,.
2533 032634 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2534 032635 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2535 032636 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2536 032637 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2537 032640 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2538 032641 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2539 032642 BMACB1: RANDOM^
2540 032642 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2541 032643 270 07 0 00 060657 ADD AC,[142536475076]
2542 032644 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2543 032645 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
2544 032646 204 10 0 00 000007 BMACB2: MOVS AC1,AC ;SECOND RANDOM NUMBER.
2545 032647 460 00 0 00 000010 SETCM AC1 ;SIMULATE
2546 032650 460 01 0 00 000007 SETCM 1,AC ;AN
2547 032651 404 00 0 00 000001 AND 1 ;ANDCBM INST.
2548 032652 442 10 0 00 000007 ANDCBM AC1,AC ;DO AN ANDCBM.
2549 032653 316 10 0 00 000007 CAMN AC1,AC ;EQUAL?
2550 032654 004 10 0 00 000007 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2551 032655 312 07 0 00 000000 CAME AC,0 ;C(E) SHOULD = SIM. ANS.
2552 032656 004 07 0 00 000000 ERROR AC,0 ;ANDCBM FAILED.
2553 LOOP BMACB1,BMACB2^
2554 032657 367 06 0 00 032642 SOJG AC-1,BMACB1 ;ITERATION COUNTER
2555 032660 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2556 032661 321 06 0 00 032646 JUMPL AC-1,BMACB2 ;LOOP ON ERROR SWITCH ^
2557
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 33
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0077
2558
2559 ;TEST SETCAM, WHERE E IS AN AC. THE INSTRUCTION
2560 ;IS TESTED FOR NOT STORING IN AC AS WELL AS
2561 ;PROPER C(E).
2562 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2563
2564 000010 AC=10
2565 032662 BMCMM: SETUP 200,0^
2566 000011 AC1=<AC+1>&17
2567 000012 AC2=<AC+2>&17
2568 000013 AC3=<AC+3>&17
2569 000014 AC4=<AC+4>&17
2570 000015 AC5=<AC+5>&17
2571 000006 RAN1=<AC-2>&17
2572 032662 201 07 0 00 032662 MOVEI AC-1,.
2573 032663 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2574 032664 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2575 032665 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2576 032666 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
2577 032667 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2578 032670 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2579 032671 BMCMM1: RANDOM^
2580 032671 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2581 032672 270 10 0 00 060657 ADD AC,[142536475076]
2582 032673 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2583 032674 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
2584 032675 204 11 0 00 000010 BMCMM2: MOVS AC1,AC ;CHECK FOR NO CHANGE
2585 032676 316 11 0 00 000010 CAMN AC1,AC ;IN 8 COMPLEMENTS
2586 032677 254 00 0 00 032671 JRST BMCMM1 ;REJECT IF HALF SAME.
2587 REPEAT 10,
2588 < SETCMM AC1,AC>
2589 032700 462 11 0 00 000010 SETCMM AC1,AC
2590 032701 462 11 0 00 000010 SETCMM AC1,AC
2591 032702 462 11 0 00 000010 SETCMM AC1,AC
2592 032703 462 11 0 00 000010 SETCMM AC1,AC
2593 032704 462 11 0 00 000010 SETCMM AC1,AC
2594 032705 462 11 0 00 000010 SETCMM AC1,AC
2595 032706 462 11 0 00 000010 SETCMM AC1,AC
2596 032707 462 11 0 00 000010 SETCMM AC1,AC
2597 032710 316 11 0 00 000010 CAMN AC1,AC ;EQUAL?
2598 032711 004 11 0 00 000010 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2599 032712 312 10 0 00 061125 CAME AC,RAN ;C(E) SHOULD = ORIG. C(E).
2600 032713 004 10 0 00 061125 ERROR AC,RAN ;SETCMM FAILED.
2601 LOOP BMCMM1,BMCMM2^
2602 032714 367 07 0 00 032671 SOJG AC-1,BMCMM1 ;ITERATION COUNTER
2603 032715 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2604 032716 321 07 0 00 032675 JUMPL AC-1,BMCMM2 ;LOOP ON ERROR SWITCH ^
2605
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 34
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0078
2606
2607 ;TEST SETCAM, WHERE E IS AN AC. TEST FOR NOT
2608 ;STORING IN AC AS WELL AS PROPER STORAGE IN C(E).
2609 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2610
2611 000011 AC=11
2612 032717 BMCAM: SETUP 100,0^
2613 000012 AC1=<AC+1>&17
2614 000013 AC2=<AC+2>&17
2615 000014 AC3=<AC+3>&17
2616 000015 AC4=<AC+4>&17
2617 000016 AC5=<AC+5>&17
2618 000007 RAN1=<AC-2>&17
2619 032717 201 10 0 00 032717 MOVEI AC-1,.
2620 032720 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2621 032721 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2622 032722 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2623 032723 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2624 032724 240 10 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2625 032725 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2626 032726 BMCAM1: RANDOM^
2627 032726 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2628 032727 270 11 0 00 060657 ADD AC,[142536475076]
2629 032730 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2630 032731 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
2631 032732 204 12 0 00 000011 BMCAM2: MOVS AC1,AC ;SECOND RANDOM NUMBER.
2632 032733 460 00 0 00 000012 SETCM AC1 ;SIMULATE SETCAM.
2633 032734 452 12 0 00 000011 SETCAM AC1,AC ;DO SETCAM.
2634 032735 316 12 0 00 000011 CAMN AC1,AC ;EQUAL?
2635 032736 004 12 0 00 000011 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2636 032737 312 11 0 00 000000 CAME AC,0 ;C(E) SHOULD = SIM. ANS.
2637 032740 004 11 0 00 000000 ERROR AC,0 ;SETCAM FAILED.
2638 LOOP BMCAM1,BMACM2^
2639 032741 367 10 0 00 032726 SOJG AC-1,BMCAM1 ;ITERATION COUNTER
2640 032742 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2641 032743 321 10 0 00 032614 JUMPL AC-1,BMACM2 ;LOOP ON ERROR SWITCH ^
2642
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 35
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0079
2643
2644 ;TEST SETAM, WHERE E IS AN AC.
2645 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2646
2647 000010 AC=10
2648 032744 BMSA: SETUP 100,0^
2649 000011 AC1=<AC+1>&17
2650 000012 AC2=<AC+2>&17
2651 000013 AC3=<AC+3>&17
2652 000014 AC4=<AC+4>&17
2653 000015 AC5=<AC+5>&17
2654 000006 RAN1=<AC-2>&17
2655 032744 201 07 0 00 032744 MOVEI AC-1,.
2656 032745 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2657 032746 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2658 032747 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2659 032750 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2660 032751 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2661 032752 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2662 032753 BMSA1: RANDOM^
2663 032753 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2664 032754 270 10 0 00 060657 ADD AC,[142536475076]
2665 032755 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2666 032756 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
2667 032757 204 11 0 00 000010 BMSA2: MOVS AC1,AC ;SECOND RANDOM NUMBER
2668 032760 316 11 0 00 000010 CAMN AC1,AC
2669 032761 254 00 0 00 032753 JRST BMSA1 ;REJECT IF SAME.
2670 032762 426 10 0 00 000011 SETAM AC,AC1 ;C(AC) TO C(AC1)
2671 032763 312 10 0 00 000011 CAME AC,AC1 ;EQUAL?
2672 032764 004 10 0 00 000011 ERROR AC,AC1 ;NO.
2673 032765 312 11 0 00 061125 CAME AC1,RAN ;C(E) SHOULD = ORIG C(AC).
2674 032766 004 11 0 00 061125 ERROR AC1,RAN ;SETAM FAILED.
2675 LOOP BMSA1,BMSA2^
2676 032767 367 07 0 00 032753 SOJG AC-1,BMSA1 ;ITERATION COUNTER
2677 032770 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2678 032771 321 07 0 00 032757 JUMPL AC-1,BMSA2 ;LOOP ON ERROR SWITCH ^
2679
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 36
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0080
2680
2681 ;TEST SETOM, WHERE E IS AN AC.
2682 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2683
2684 000010 AC=10
2685 032772 BMSM: SETUP 100,0^
2686 000011 AC1=<AC+1>&17
2687 000012 AC2=<AC+2>&17
2688 000013 AC3=<AC+3>&17
2689 000014 AC4=<AC+4>&17
2690 000015 AC5=<AC+5>&17
2691 000006 RAN1=<AC-2>&17
2692 032772 201 07 0 00 032772 MOVEI AC-1,.
2693 032773 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2694 032774 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2695 032775 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2696 032776 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2697 032777 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2698 033000 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2699 033001 BMSM1: RANDOM^
2700 033001 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2701 033002 270 10 0 00 060657 ADD AC,[142536475076]
2702 033003 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2703 033004 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
2704 033005 204 11 0 00 000010 BMSM2: MOVS AC1,AC ;SECOND RANDOM NUMBER
2705 033006 476 11 0 00 000010 SETOM AC1,AC ;DO SETOM INST.
2706 033007 316 11 0 00 000010 CAMN AC1,AC ;EQUAL?
2707 033010 004 11 0 00 000010 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2708 033011 312 10 0 00 060662 CAME AC,[-1] ;C(E) SHOULD = A -1.
2709 033012 004 10 0 00 060662 ERROR AC,[-1] ;SETOM FAILED.
2710 LOOP BMSM1,BMSM2^
2711 033013 367 07 0 00 033001 SOJG AC-1,BMSM1 ;ITERATION COUNTER
2712 033014 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2713 033015 321 07 0 00 033005 JUMPL AC-1,BMSM2 ;LOOP ON ERROR SWITCH ^
2714
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 37
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0081
2715
2716 ;TEST SETMM, WHERE E IS AN AC.
2717 ;ERRORS ARE IN THE FORM (PC, AC,C(AC),CORRECT)
2718
2719 000010 AC=10
2720 033016 BMSMM: SETUP 100,0^
2721 000011 AC1=<AC+1>&17
2722 000012 AC2=<AC+2>&17
2723 000013 AC3=<AC+3>&17
2724 000014 AC4=<AC+4>&17
2725 000015 AC5=<AC+5>&17
2726 000006 RAN1=<AC-2>&17
2727 033016 201 07 0 00 033016 MOVEI AC-1,.
2728 033017 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2729 033020 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2730 033021 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2731 033022 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2732 033023 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2733 033024 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2734 033025 BMSMM1: RANDOM^
2735 033025 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2736 033026 270 10 0 00 060657 ADD AC,[142536475076]
2737 033027 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2738 033030 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
2739 033031 204 11 0 00 000010 BMSMM2: MOVS AC1,AC ;A SECOND RANDOM NUMBER
2740 033032 316 10 0 00 000011 CAMN AC,AC1 ;REJECT IF
2741 033033 254 00 0 00 033025 JRST BMSMM1 ;HALF SAME
2742 REPEAT 10, ;DO 8 SETMM...SHOULD NOT CHANGE C(E).
2743 < SETMM AC1,AC>
2744 033034 416 11 0 00 000010 SETMM AC1,AC
2745 033035 416 11 0 00 000010 SETMM AC1,AC
2746 033036 416 11 0 00 000010 SETMM AC1,AC
2747 033037 416 11 0 00 000010 SETMM AC1,AC
2748 033040 416 11 0 00 000010 SETMM AC1,AC
2749 033041 416 11 0 00 000010 SETMM AC1,AC
2750 033042 416 11 0 00 000010 SETMM AC1,AC
2751 033043 416 11 0 00 000010 SETMM AC1,AC
2752 033044 316 11 0 00 000010 CAMN AC1,AC ;EQUAL?
2753 033045 004 11 0 00 000010 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2754 033046 312 10 0 00 061125 CAME AC,RAN ;C(E) SHOULD = ORIG. C(E).
2755 033047 004 10 0 00 061125 ERROR AC,RAN ;SETMM FAILED.
2756 LOOP BMSMM1,BMSMM2^
2757 033050 367 07 0 00 033025 SOJG AC-1,BMSMM1 ;ITERATION COUNTER
2758 033051 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2759 033052 321 07 0 00 033031 JUMPL AC-1,BMSMM2 ;LOOP ON ERROR SWITCH ^
2760
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 38
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0082
2761
2762 ;TEST SETZM, WHERE E IS AN AC. TESTS FOR NOT STORING
2763 ;IN AC AS WELL AS STORING IN C(E) PROPERLY.
2764
2765 000010 AC=10
2766 033053 SETZM1: SETUP 40,0^
2767 000011 AC1=<AC+1>&17
2768 000012 AC2=<AC+2>&17
2769 000013 AC3=<AC+3>&17
2770 000014 AC4=<AC+4>&17
2771 000015 AC5=<AC+5>&17
2772 000006 RAN1=<AC-2>&17
2773 033053 201 07 0 00 033053 MOVEI AC-1,.
2774 033054 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2775 033055 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2776 033056 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2777 033057 201 07 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
2778 033060 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2779 033061 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2780 033062 SETZM2: RANDOM^
2781 033062 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2782 033063 270 10 0 00 060657 ADD AC,[142536475076]
2783 033064 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2784 033065 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
2785 033066 322 10 0 00 033062 SETZM3: JUMPE AC,SETZM2 ;REJECT IF C(AC) = 0.
2786 033067 477 11 0 00 000006 SETOB AC1,RAN1 ;SET C(AC) TO ALL ONES.
2787 033070 402 11 0 00 000010 SETZM AC1,AC ;DO SETZM
2788 033071 312 10 0 00 060660 CAME AC,[0] ;DID AC GET CLEARED?
2789 033072 011 00 0 00 000006 EERR ,RAN1 ;NO.
2790 033073 312 11 0 00 060662 CAME AC1,[-1] ;DOES C(AC1) STILL = -1?
2791 033074 011 00 0 00 000006 EERR ,RAN1 ;NO.
2792 LOOP SETZM2,SETZM3^
2793 033075 367 07 0 00 033062 SOJG AC-1,SETZM2 ;ITERATION COUNTER
2794 033076 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2795 033077 321 07 0 00 033066 JUMPL AC-1,SETZM3 ;LOOP ON ERROR SWITCH ^
2796
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 39
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0083
2797
2798 ;TEST ROT LEFT 3X(2X18). CHECKING FOR AC1 NOT CHANGED
2799 ;AS WELL AS C(AC) BEING THE PROPER NUMBER.
2800 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2801
2802 000010 AC=10
2803 033100 ROTL2: SETUP 200,2^
2804 000011 AC1=<AC+1>&17
2805 000012 AC2=<AC+2>&17
2806 000013 AC3=<AC+3>&17
2807 000014 AC4=<AC+4>&17
2808 000015 AC5=<AC+5>&17
2809 000006 RAN1=<AC-2>&17
2810 033100 201 07 0 00 033100 MOVEI AC-1,.
2811 033101 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2812 033102 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2813 033103 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2814 033104 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
2815 033105 240 07 1 00 030660 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
2816 033106 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2817 033107 ROTL2A: RANDOM^
2818 033107 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2819 033110 270 10 0 00 060657 ADD AC,[142536475076]
2820 033111 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2821 033112 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
2822 033113 477 11 0 00 000006 ROTL2B: SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
2823 REPEAT 3, ;DO 6 X (ROT LEFT 18 PLACES).
2824 < ROT AC,22
2825 ROT AC,22>
2826 033114 241 10 0 00 000022 ROT AC,22
2827 033115 241 10 0 00 000022 ROT AC,22
2828 033116 241 10 0 00 000022 ROT AC,22
2829 033117 241 10 0 00 000022 ROT AC,22
2830 033120 241 10 0 00 000022 ROT AC,22
2831 033121 241 10 0 00 000022 ROT AC,22
2832 033122 312 10 0 00 061125 CAME AC,RAN ;C(AC)SHOULD = C(AC) BEFORE ROT.
2833 033123 013 00 0 00 000022 EERRI ,22
2834 033124 312 11 0 00 060662 CAME AC1,[-1] ;AC1 SHOULD NOT HAVE CHANGED.
2835 033125 001 06 0 00 000022 ERR RAN1,22
2836 LOOP ROTL2A,ROTL2B^
2837 033126 367 07 0 00 033107 SOJG AC-1,ROTL2A ;ITERATION COUNTER
2838 033127 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2839 033130 321 07 0 00 033113 JUMPL AC-1,ROTL2B ;LOOP ON ERROR SWITCH ^
2840
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 40
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0084
2841 ;TEST ROT RIGHT 3X(2X18)..CHECKING FOR AC1 NOT
2842 ;CHANGED AS WELL AS C(AC) ENDING UP BEING
2843 ;THE SAME AS IT WAS BEFORE THE ROT.
2844 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2845
2846 000010 AC=10
2847 033131 ROTR2: SETUP 300,2^
2848 000011 AC1=<AC+1>&17
2849 000012 AC2=<AC+2>&17
2850 000013 AC3=<AC+3>&17
2851 000014 AC4=<AC+4>&17
2852 000015 AC5=<AC+5>&17
2853 000006 RAN1=<AC-2>&17
2854 033131 201 07 0 00 033131 MOVEI AC-1,.
2855 033132 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2856 033133 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2857 033134 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2858 033135 201 07 0 00 000300 MOVEI AC-1,300 ;ROUTINE WEIGHTING
2859 033136 240 07 1 00 030660 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
2860 033137 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2861 033140 ROTR2A: RANDOM^
2862 033140 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2863 033141 270 10 0 00 060657 ADD AC,[142536475076]
2864 033142 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2865 033143 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
2866 033144 477 11 0 00 000006 ROTR2B: SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
2867 REPEAT 3, ;DO 6 X (ROT RIGHT 18 PLACES).
2868 < ROT AC,-22
2869 ROT AC,-22>
2870 033145 241 10 0 00 777756 ROT AC,-22
2871 033146 241 10 0 00 777756 ROT AC,-22
2872 033147 241 10 0 00 777756 ROT AC,-22
2873 033150 241 10 0 00 777756 ROT AC,-22
2874 033151 241 10 0 00 777756 ROT AC,-22
2875 033152 241 10 0 00 777756 ROT AC,-22
2876 033153 312 10 0 00 061125 CAME AC,RAN ;C(AC) SHOULD = C(AC) BEFORE ROT.
2877 033154 011 00 0 00 777756 EERR ,-22
2878 033155 312 11 0 00 060662 CAME AC1,[-1] ;C(AC1) SHOULD STILL = -1.
2879 033156 003 06 0 00 777756 ERRI RAN1,-22
2880 LOOP ROTR2A,ROTR2B^
2881 033157 367 07 0 00 033140 SOJG AC-1,ROTR2A ;ITERATION COUNTER
2882 033160 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2883 033161 321 07 0 00 033144 JUMPL AC-1,ROTR2B ;LOOP ON ERROR SWITCH ^
2884
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 41
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0085
2885
2886 ;TEST ROT LEFT 3X36. CHECKING FOR AC1 NOT
2887 ;CHANGED AND C(AC) = WHAT IT WAS BEFORE
2888 ;ROT.
2889 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2890
2891 000002 AC=2
2892 033162 RTL36: SETUP 300,2^
2893 000003 AC1=<AC+1>&17
2894 000004 AC2=<AC+2>&17
2895 000005 AC3=<AC+3>&17
2896 000006 AC4=<AC+4>&17
2897 000007 AC5=<AC+5>&17
2898 000000 RAN1=<AC-2>&17
2899 033162 201 01 0 00 033162 MOVEI AC-1,.
2900 033163 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2901 033164 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2902 033165 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2903 033166 201 01 0 00 000300 MOVEI AC-1,300 ;ROUTINE WEIGHTING
2904 033167 240 01 1 00 030660 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
2905 033170 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2906 033171 RTL36A: RANDOM^
2907 033171 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2908 033172 270 02 0 00 060657 ADD AC,[142536475076]
2909 033173 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2910 033174 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
2911 033175 477 03 0 00 000000 RTL36B: SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
2912 REPEAT 3, ;DO 3 X (ROT LEFT 36 PLACES).
2913 < ROT AC,44>
2914 033176 241 02 0 00 000044 ROT AC,44
2915 033177 241 02 0 00 000044 ROT AC,44
2916 033200 241 02 0 00 000044 ROT AC,44
2917 033201 312 02 0 00 061125 CAME AC,RAN ;C(AC) SHOULD = C(AC) BEFORE ROT.
2918 033202 013 00 0 00 000044 EERRI ,44
2919 033203 312 03 0 00 060662 CAME AC1,[-1] ;C(AC1) SHOULD STILL = -1.
2920 033204 003 00 0 00 000044 ERRI RAN1,44
2921 LOOP RTL36A,RTL36B^
2922 033205 367 01 0 00 033171 SOJG AC-1,RTL36A ;ITERATION COUNTER
2923 033206 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2924 033207 321 01 0 00 033175 JUMPL AC-1,RTL36B ;LOOP ON ERROR SWITCH ^
2925
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 42
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0086
2926
2927 ;TEST ROT RIGHT 3X36. CHECKING FOR AC1 NOT
2928 ;CHANGED AND C(AC) = WHAT IT DID BEFORE ROT.
2929 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2930
2931 000002 AC=2
2932 033210 RTR36: SETUP 300,2^
2933 000003 AC1=<AC+1>&17
2934 000004 AC2=<AC+2>&17
2935 000005 AC3=<AC+3>&17
2936 000006 AC4=<AC+4>&17
2937 000007 AC5=<AC+5>&17
2938 000000 RAN1=<AC-2>&17
2939 033210 201 01 0 00 033210 MOVEI AC-1,.
2940 033211 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2941 033212 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2942 033213 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2943 033214 201 01 0 00 000300 MOVEI AC-1,300 ;ROUTINE WEIGHTING
2944 033215 240 01 1 00 030660 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
2945 033216 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2946 033217 RTR36A: RANDOM^
2947 033217 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2948 033220 270 02 0 00 060657 ADD AC,[142536475076]
2949 033221 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2950 033222 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
2951 033223 477 03 0 00 000000 RTR36B: SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
2952 REPEAT 3, ;DO 3 X (ROT RIGHT 36 PLACES).
2953 < ROT AC,-44>
2954 033224 241 02 0 00 777734 ROT AC,-44
2955 033225 241 02 0 00 777734 ROT AC,-44
2956 033226 241 02 0 00 777734 ROT AC,-44
2957 033227 312 02 0 00 061125 CAME AC,RAN ;C(AC) SHOULD = RAN.
2958 033230 013 00 0 00 777734 EERRI ,-44
2959 033231 312 03 0 00 060662 CAME AC1,[-1] ;C(AC1) SHOULD STILL = -1.
2960 033232 003 00 0 00 777734 ERRI RAN1,-44
2961 LOOP RTR36A,RTR36B^
2962 033233 367 01 0 00 033217 SOJG AC-1,RTR36A ;ITERATION COUNTER
2963 033234 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2964 033235 321 01 0 00 033223 JUMPL AC-1,RTR36B ;LOOP ON ERROR SWITCH ^
2965
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 43
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0087
2966
2967 ;TEST ROTC LEFT 3X36 THROUGH ALL AC'S CHECKING
2968 ;FOR C(AC) AND C(AC1) BEING EXCHANGED
2969 ;AFTER THE ROTC.
2970 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2971
2972 000002 AC=2
2973 033236 RTCL: SETUP 100,2^
2974 000003 AC1=<AC+1>&17
2975 000004 AC2=<AC+2>&17
2976 000005 AC3=<AC+3>&17
2977 000006 AC4=<AC+4>&17
2978 000007 AC5=<AC+5>&17
2979 000000 RAN1=<AC-2>&17
2980 033236 201 01 0 00 033236 MOVEI AC-1,.
2981 033237 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2982 033240 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2983 033241 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2984 033242 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2985 033243 240 01 1 00 030660 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
2986 033244 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2987 033245 RTCLA: RANDOM^
2988 033245 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2989 033246 270 02 0 00 060657 ADD AC,[142536475076]
2990 033247 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2991 033250 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
2992 RTCLB: REPEAT ^D10,
2993 < MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
2994 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
2995 REPEAT 3, ;DO 3 X (ROTC LEFT 36 PLACES).
2996 < ROTC AC,44>
2997 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
2998 EERRI ,44
2999 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3000 ERRI RAN1,44
3001 AC=<AC+1>&17
3002 AC1=<AC+1>&17
3003 >
3004 033251 200 02 0 00 061125 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3005 033252 477 03 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3006 REPEAT 3,
3007 033253 245 02 0 00 000044 ROTC AC,44
3008 033254 245 02 0 00 000044 ROTC AC,44
3009 033255 245 02 0 00 000044 ROTC AC,44
3010 033256 312 03 0 00 061125 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
3011 033257 013 00 0 00 000044 EERRI ,44
3012 033260 312 02 0 00 060662 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3013 033261 003 00 0 00 000044 ERRI RAN1,44
3014 000003 AC=<AC+1>&17
3015 000004 AC1=<AC+1>&17
3016
3017 033262 200 03 0 00 061125 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3018 033263 477 04 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3019 REPEAT 3,
3020 033264 245 03 0 00 000044 ROTC AC,44
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 43-1
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0088
3021 033265 245 03 0 00 000044 ROTC AC,44
3022 033266 245 03 0 00 000044 ROTC AC,44
3023 033267 312 04 0 00 061125 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
3024 033270 013 00 0 00 000044 EERRI ,44
3025 033271 312 03 0 00 060662 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3026 033272 003 00 0 00 000044 ERRI RAN1,44
3027 000004 AC=<AC+1>&17
3028 000005 AC1=<AC+1>&17
3029
3030 033273 200 04 0 00 061125 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3031 033274 477 05 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3032 REPEAT 3,
3033 033275 245 04 0 00 000044 ROTC AC,44
3034 033276 245 04 0 00 000044 ROTC AC,44
3035 033277 245 04 0 00 000044 ROTC AC,44
3036 033300 312 05 0 00 061125 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
3037 033301 013 00 0 00 000044 EERRI ,44
3038 033302 312 04 0 00 060662 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3039 033303 003 00 0 00 000044 ERRI RAN1,44
3040 000005 AC=<AC+1>&17
3041 000006 AC1=<AC+1>&17
3042
3043 033304 200 05 0 00 061125 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3044 033305 477 06 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3045 REPEAT 3,
3046 033306 245 05 0 00 000044 ROTC AC,44
3047 033307 245 05 0 00 000044 ROTC AC,44
3048 033310 245 05 0 00 000044 ROTC AC,44
3049 033311 312 06 0 00 061125 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
3050 033312 013 00 0 00 000044 EERRI ,44
3051 033313 312 05 0 00 060662 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3052 033314 003 00 0 00 000044 ERRI RAN1,44
3053 000006 AC=<AC+1>&17
3054 000007 AC1=<AC+1>&17
3055
3056 033315 200 06 0 00 061125 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3057 033316 477 07 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3058 REPEAT 3,
3059 033317 245 06 0 00 000044 ROTC AC,44
3060 033320 245 06 0 00 000044 ROTC AC,44
3061 033321 245 06 0 00 000044 ROTC AC,44
3062 033322 312 07 0 00 061125 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
3063 033323 013 00 0 00 000044 EERRI ,44
3064 033324 312 06 0 00 060662 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3065 033325 003 00 0 00 000044 ERRI RAN1,44
3066 000007 AC=<AC+1>&17
3067 000010 AC1=<AC+1>&17
3068
3069 033326 200 07 0 00 061125 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3070 033327 477 10 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3071 REPEAT 3,
3072 033330 245 07 0 00 000044 ROTC AC,44
3073 033331 245 07 0 00 000044 ROTC AC,44
3074 033332 245 07 0 00 000044 ROTC AC,44
3075 033333 312 10 0 00 061125 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 43-2
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0089
3076 033334 013 00 0 00 000044 EERRI ,44
3077 033335 312 07 0 00 060662 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3078 033336 003 00 0 00 000044 ERRI RAN1,44
3079 000010 AC=<AC+1>&17
3080 000011 AC1=<AC+1>&17
3081
3082 033337 200 10 0 00 061125 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3083 033340 477 11 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3084 REPEAT 3,
3085 033341 245 10 0 00 000044 ROTC AC,44
3086 033342 245 10 0 00 000044 ROTC AC,44
3087 033343 245 10 0 00 000044 ROTC AC,44
3088 033344 312 11 0 00 061125 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
3089 033345 013 00 0 00 000044 EERRI ,44
3090 033346 312 10 0 00 060662 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3091 033347 003 00 0 00 000044 ERRI RAN1,44
3092 000011 AC=<AC+1>&17
3093 000012 AC1=<AC+1>&17
3094
3095 033350 200 11 0 00 061125 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3096 033351 477 12 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3097 REPEAT 3,
3098 033352 245 11 0 00 000044 ROTC AC,44
3099 033353 245 11 0 00 000044 ROTC AC,44
3100 033354 245 11 0 00 000044 ROTC AC,44
3101 033355 312 12 0 00 061125 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
3102 033356 013 00 0 00 000044 EERRI ,44
3103 033357 312 11 0 00 060662 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3104 033360 003 00 0 00 000044 ERRI RAN1,44
3105 000012 AC=<AC+1>&17
3106 000013 AC1=<AC+1>&17
3107
3108 033361 200 12 0 00 061125 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3109 033362 477 13 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3110 REPEAT 3,
3111 033363 245 12 0 00 000044 ROTC AC,44
3112 033364 245 12 0 00 000044 ROTC AC,44
3113 033365 245 12 0 00 000044 ROTC AC,44
3114 033366 312 13 0 00 061125 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
3115 033367 013 00 0 00 000044 EERRI ,44
3116 033370 312 12 0 00 060662 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3117 033371 003 00 0 00 000044 ERRI RAN1,44
3118 000013 AC=<AC+1>&17
3119 000014 AC1=<AC+1>&17
3120
3121 033372 200 13 0 00 061125 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3122 033373 477 14 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3123 REPEAT 3,
3124 033374 245 13 0 00 000044 ROTC AC,44
3125 033375 245 13 0 00 000044 ROTC AC,44
3126 033376 245 13 0 00 000044 ROTC AC,44
3127 033377 312 14 0 00 061125 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
3128 033400 013 00 0 00 000044 EERRI ,44
3129 033401 312 13 0 00 060662 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3130 033402 003 00 0 00 000044 ERRI RAN1,44
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 43-3
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0090
3131 000014 AC=<AC+1>&17
3132 000015 AC1=<AC+1>&17
3133
3134 000002 AC=2
3135 LOOP RTCLA,RTCLB^
3136 033403 367 01 0 00 033245 SOJG AC-1,RTCLA ;ITERATION COUNTER
3137 033404 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3138 033405 321 01 0 00 033251 JUMPL AC-1,RTCLB ;LOOP ON ERROR SWITCH ^
3139
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 44
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0091
3140
3141 ;TEST ROTC RIGHT 3X36 THROUGH ALL AC'S. CHECKING
3142 ;FOR C(AC) AND C(AC1) BEING EXCHANGED.
3143 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
3144
3145 000002 AC=2
3146 033406 RTCR: SETUP 100,2^
3147 000003 AC1=<AC+1>&17
3148 000004 AC2=<AC+2>&17
3149 000005 AC3=<AC+3>&17
3150 000006 AC4=<AC+4>&17
3151 000007 AC5=<AC+5>&17
3152 000000 RAN1=<AC-2>&17
3153 033406 201 01 0 00 033406 MOVEI AC-1,.
3154 033407 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3155 033410 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3156 033411 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3157 033412 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3158 033413 240 01 1 00 030660 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
3159 033414 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3160 033415 RTCRA: RANDOM^
3161 033415 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3162 033416 270 02 0 00 060657 ADD AC,[142536475076]
3163 033417 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3164 033420 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
3165 RTCRB: REPEAT ^D10,
3166 < MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3167 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3168 REPEAT 3, ;DO 3 X (ROTC RIGHT 36 PLACES).
3169 < ROTC AC,-44>
3170 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3171 EERRI ,-44
3172 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3173 ERRI RAN1,-44
3174 AC=<AC+1>&17
3175 AC1=<AC+1>&17
3176 >
3177 033421 200 02 0 00 061125 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3178 033422 477 03 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3179 REPEAT 3,
3180 033423 245 02 0 00 777734 ROTC AC,-44
3181 033424 245 02 0 00 777734 ROTC AC,-44
3182 033425 245 02 0 00 777734 ROTC AC,-44
3183 033426 312 03 0 00 061125 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3184 033427 013 00 0 00 777734 EERRI ,-44
3185 033430 312 02 0 00 060662 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3186 033431 003 00 0 00 777734 ERRI RAN1,-44
3187 000003 AC=<AC+1>&17
3188 000004 AC1=<AC+1>&17
3189
3190 033432 200 03 0 00 061125 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3191 033433 477 04 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3192 REPEAT 3,
3193 033434 245 03 0 00 777734 ROTC AC,-44
3194 033435 245 03 0 00 777734 ROTC AC,-44
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 44-1
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0092
3195 033436 245 03 0 00 777734 ROTC AC,-44
3196 033437 312 04 0 00 061125 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3197 033440 013 00 0 00 777734 EERRI ,-44
3198 033441 312 03 0 00 060662 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3199 033442 003 00 0 00 777734 ERRI RAN1,-44
3200 000004 AC=<AC+1>&17
3201 000005 AC1=<AC+1>&17
3202
3203 033443 200 04 0 00 061125 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3204 033444 477 05 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3205 REPEAT 3,
3206 033445 245 04 0 00 777734 ROTC AC,-44
3207 033446 245 04 0 00 777734 ROTC AC,-44
3208 033447 245 04 0 00 777734 ROTC AC,-44
3209 033450 312 05 0 00 061125 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3210 033451 013 00 0 00 777734 EERRI ,-44
3211 033452 312 04 0 00 060662 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3212 033453 003 00 0 00 777734 ERRI RAN1,-44
3213 000005 AC=<AC+1>&17
3214 000006 AC1=<AC+1>&17
3215
3216 033454 200 05 0 00 061125 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3217 033455 477 06 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3218 REPEAT 3,
3219 033456 245 05 0 00 777734 ROTC AC,-44
3220 033457 245 05 0 00 777734 ROTC AC,-44
3221 033460 245 05 0 00 777734 ROTC AC,-44
3222 033461 312 06 0 00 061125 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3223 033462 013 00 0 00 777734 EERRI ,-44
3224 033463 312 05 0 00 060662 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3225 033464 003 00 0 00 777734 ERRI RAN1,-44
3226 000006 AC=<AC+1>&17
3227 000007 AC1=<AC+1>&17
3228
3229 033465 200 06 0 00 061125 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3230 033466 477 07 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3231 REPEAT 3,
3232 033467 245 06 0 00 777734 ROTC AC,-44
3233 033470 245 06 0 00 777734 ROTC AC,-44
3234 033471 245 06 0 00 777734 ROTC AC,-44
3235 033472 312 07 0 00 061125 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3236 033473 013 00 0 00 777734 EERRI ,-44
3237 033474 312 06 0 00 060662 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3238 033475 003 00 0 00 777734 ERRI RAN1,-44
3239 000007 AC=<AC+1>&17
3240 000010 AC1=<AC+1>&17
3241
3242 033476 200 07 0 00 061125 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3243 033477 477 10 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3244 REPEAT 3,
3245 033500 245 07 0 00 777734 ROTC AC,-44
3246 033501 245 07 0 00 777734 ROTC AC,-44
3247 033502 245 07 0 00 777734 ROTC AC,-44
3248 033503 312 10 0 00 061125 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3249 033504 013 00 0 00 777734 EERRI ,-44
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 44-2
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0093
3250 033505 312 07 0 00 060662 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3251 033506 003 00 0 00 777734 ERRI RAN1,-44
3252 000010 AC=<AC+1>&17
3253 000011 AC1=<AC+1>&17
3254
3255 033507 200 10 0 00 061125 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3256 033510 477 11 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3257 REPEAT 3,
3258 033511 245 10 0 00 777734 ROTC AC,-44
3259 033512 245 10 0 00 777734 ROTC AC,-44
3260 033513 245 10 0 00 777734 ROTC AC,-44
3261 033514 312 11 0 00 061125 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3262 033515 013 00 0 00 777734 EERRI ,-44
3263 033516 312 10 0 00 060662 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3264 033517 003 00 0 00 777734 ERRI RAN1,-44
3265 000011 AC=<AC+1>&17
3266 000012 AC1=<AC+1>&17
3267
3268 033520 200 11 0 00 061125 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3269 033521 477 12 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3270 REPEAT 3,
3271 033522 245 11 0 00 777734 ROTC AC,-44
3272 033523 245 11 0 00 777734 ROTC AC,-44
3273 033524 245 11 0 00 777734 ROTC AC,-44
3274 033525 312 12 0 00 061125 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3275 033526 013 00 0 00 777734 EERRI ,-44
3276 033527 312 11 0 00 060662 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3277 033530 003 00 0 00 777734 ERRI RAN1,-44
3278 000012 AC=<AC+1>&17
3279 000013 AC1=<AC+1>&17
3280
3281 033531 200 12 0 00 061125 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3282 033532 477 13 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3283 REPEAT 3,
3284 033533 245 12 0 00 777734 ROTC AC,-44
3285 033534 245 12 0 00 777734 ROTC AC,-44
3286 033535 245 12 0 00 777734 ROTC AC,-44
3287 033536 312 13 0 00 061125 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3288 033537 013 00 0 00 777734 EERRI ,-44
3289 033540 312 12 0 00 060662 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3290 033541 003 00 0 00 777734 ERRI RAN1,-44
3291 000013 AC=<AC+1>&17
3292 000014 AC1=<AC+1>&17
3293
3294 033542 200 13 0 00 061125 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3295 033543 477 14 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3296 REPEAT 3,
3297 033544 245 13 0 00 777734 ROTC AC,-44
3298 033545 245 13 0 00 777734 ROTC AC,-44
3299 033546 245 13 0 00 777734 ROTC AC,-44
3300 033547 312 14 0 00 061125 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3301 033550 013 00 0 00 777734 EERRI ,-44
3302 033551 312 13 0 00 060662 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3303 033552 003 00 0 00 777734 ERRI RAN1,-44
3304 000014 AC=<AC+1>&17
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 44-3
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0094
3305 000015 AC1=<AC+1>&17
3306
3307 000002 AC=2
3308 LOOP RTCRA,RTCRB^
3309 033553 367 01 0 00 033415 SOJG AC-1,RTCRA ;ITERATION COUNTER
3310 033554 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3311 033555 321 01 0 00 033421 JUMPL AC-1,RTCRB ;LOOP ON ERROR SWITCH ^
3312
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 45
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0095
3313
3314 ;TEST ROT. ROT A RANDOM NUMBER A RANDOM NUMBER OF TIMES
3315 ;IN ONE DIRECTION AND THEN THE SAME NUMBER OF TIMES
3316 ;IN THE OPPOSITE DIRECTION.
3317 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT).
3318
3319 000002 AC=2
3320 033556 ROTLR: SETUP 100,4^
3321 000003 AC1=<AC+1>&17
3322 000004 AC2=<AC+2>&17
3323 000005 AC3=<AC+3>&17
3324 000006 AC4=<AC+4>&17
3325 000007 AC5=<AC+5>&17
3326 000000 RAN1=<AC-2>&17
3327 033556 201 01 0 00 033556 MOVEI AC-1,.
3328 033557 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3329 033560 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3330 033561 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3331 033562 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3332 033563 240 01 1 00 030662 ASH AC-1,@CMPLXT+4 ;ROUTINE COMPLEXITY
3333 033564 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3334 033565 ROTLR1: RANDOM^
3335 033565 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3336 033566 270 02 0 00 060657 ADD AC,[142536475076]
3337 033567 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3338 033570 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
3339 033571 200 05 0 00 061125 MOVE AC3,RAN ;CHECK TO SEE
3340 033572 404 05 0 00 060663 AND AC3,[377] ;THAT THE RIGHT MOST 8 BITS
3341 033573 322 05 0 00 033565 JUMPE AC3,ROTLR1 ;DO NOT = 0..REJECT IF THEY DO.
3342 033574 210 04 0 00 061125 ROTLR2: MOVN AC2,RAN ;PUT 2'S COMP OF RAN INTO AC2.
3343 033575 477 03 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3344 033576 241 02 0 02 000000 ROT AC,(AC) ;ROT AC A RANDOM NUMBER OF TIMES.
3345 033577 241 02 0 04 000000 ROT AC,(AC2) ;ROT AC THE SAME NUM OF TIMES
3346 ;IN THE OPPOSITE DIRECTION.
3347 033600 312 02 0 00 061125 CAME AC,RAN ;C(AC) SHOULD STILL = C(RAN).
3348 033601 004 02 0 00 061125 ERROR AC,RAN
3349 033602 312 03 0 00 060662 CAME AC1,[-1] ;C(AC1) SHOULD STILL = -1.
3350 033603 004 03 0 00 060662 ERROR AC1,[-1]
3351 LOOP ROTLR1,ROTLR2^
3352 033604 367 01 0 00 033565 SOJG AC-1,ROTLR1 ;ITERATION COUNTER
3353 033605 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3354 033606 321 01 0 00 033574 JUMPL AC-1,ROTLR2 ;LOOP ON ERROR SWITCH ^
3355
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 46
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0096
3356
3357 ;TEST ROTC. DO A ROTC WITH A RANDOM NUMBER A RANDOM
3358 ;NUMBER OF TIMES IN ONE DIRECTION AND THEN THE SAME
3359 ;NUMBER OF TIMES IN THE OPPOSITE DIRECTION.
3360 ;REPEAT THIS TEST FOR ALL AC'S.
3361 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
3362
3363 000002 AC=2
3364 033607 RTCLR: SETUP 200,3^
3365 000003 AC1=<AC+1>&17
3366 000004 AC2=<AC+2>&17
3367 000005 AC3=<AC+3>&17
3368 000006 AC4=<AC+4>&17
3369 000007 AC5=<AC+5>&17
3370 000000 RAN1=<AC-2>&17
3371 033607 201 01 0 00 033607 MOVEI AC-1,.
3372 033610 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3373 033611 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3374 033612 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3375 033613 201 01 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
3376 033614 240 01 1 00 030661 ASH AC-1,@CMPLXT+3 ;ROUTINE COMPLEXITY
3377 033615 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3378 033616 RTCLR1: RANDOM^
3379 033616 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3380 033617 270 02 0 00 060657 ADD AC,[142536475076]
3381 033620 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3382 033621 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
3383 033622 200 05 0 00 061125 MOVE AC3,RAN ;CHECK TO SEE
3384 033623 404 05 0 00 060663 AND AC3,[377] ;THAT THE RIGHT MOST 8 BITS
3385 033624 322 05 0 00 033616 JUMPE AC3,RTCLR1 ;DO NOT = 0..REJECT IF THEY DO.
3386 RTCLR2: REPEAT ^D10,
3387 < MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3388 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3389 SETO AC1, ;SET AC1 TO ALL ONES.
3390 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3391 ;TIMES IN ONE DIRECTION.
3392 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
3393 ;TIMES IN THE OPPOSITE DIRECTION.
3394 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3395 ERROR AC,RAN
3396 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3397 ERROR AC1,[-1]
3398 AC=<AC+1>&17
3399 AC1=<AC+1>&17
3400 AC2=<AC+2>&17
3401
3402 >
3403 033625 200 02 0 00 061125 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3404 033626 210 04 0 00 061125 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3405 033627 474 03 0 00 000000 SETO AC1, ;SET AC1 TO ALL ONES.
3406 033630 245 02 0 02 000000 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3407 ;TIMES IN ONE DIRECTION.
3408 033631 245 02 0 04 000000 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
3409 ;TIMES IN THE OPPOSITE DIRECTION.
3410 033632 312 02 0 00 061125 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 46-1
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0097
3411 033633 004 02 0 00 061125 ERROR AC,RAN
3412 033634 312 03 0 00 060662 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3413 033635 004 03 0 00 060662 ERROR AC1,[-1]
3414 000003 AC=<AC+1>&17
3415 000004 AC1=<AC+1>&17
3416 000005 AC2=<AC+2>&17
3417
3418
3419 033636 200 03 0 00 061125 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3420 033637 210 05 0 00 061125 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3421 033640 474 04 0 00 000000 SETO AC1, ;SET AC1 TO ALL ONES.
3422 033641 245 03 0 03 000000 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3423 ;TIMES IN ONE DIRECTION.
3424 033642 245 03 0 05 000000 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
3425 ;TIMES IN THE OPPOSITE DIRECTION.
3426 033643 312 03 0 00 061125 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3427 033644 004 03 0 00 061125 ERROR AC,RAN
3428 033645 312 04 0 00 060662 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3429 033646 004 04 0 00 060662 ERROR AC1,[-1]
3430 000004 AC=<AC+1>&17
3431 000005 AC1=<AC+1>&17
3432 000006 AC2=<AC+2>&17
3433
3434
3435 033647 200 04 0 00 061125 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3436 033650 210 06 0 00 061125 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3437 033651 474 05 0 00 000000 SETO AC1, ;SET AC1 TO ALL ONES.
3438 033652 245 04 0 04 000000 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3439 ;TIMES IN ONE DIRECTION.
3440 033653 245 04 0 06 000000 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
3441 ;TIMES IN THE OPPOSITE DIRECTION.
3442 033654 312 04 0 00 061125 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3443 033655 004 04 0 00 061125 ERROR AC,RAN
3444 033656 312 05 0 00 060662 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3445 033657 004 05 0 00 060662 ERROR AC1,[-1]
3446 000005 AC=<AC+1>&17
3447 000006 AC1=<AC+1>&17
3448 000007 AC2=<AC+2>&17
3449
3450
3451 033660 200 05 0 00 061125 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3452 033661 210 07 0 00 061125 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3453 033662 474 06 0 00 000000 SETO AC1, ;SET AC1 TO ALL ONES.
3454 033663 245 05 0 05 000000 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3455 ;TIMES IN ONE DIRECTION.
3456 033664 245 05 0 07 000000 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
3457 ;TIMES IN THE OPPOSITE DIRECTION.
3458 033665 312 05 0 00 061125 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3459 033666 004 05 0 00 061125 ERROR AC,RAN
3460 033667 312 06 0 00 060662 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3461 033670 004 06 0 00 060662 ERROR AC1,[-1]
3462 000006 AC=<AC+1>&17
3463 000007 AC1=<AC+1>&17
3464 000010 AC2=<AC+2>&17
3465
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 46-2
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0098
3466
3467 033671 200 06 0 00 061125 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3468 033672 210 10 0 00 061125 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3469 033673 474 07 0 00 000000 SETO AC1, ;SET AC1 TO ALL ONES.
3470 033674 245 06 0 06 000000 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3471 ;TIMES IN ONE DIRECTION.
3472 033675 245 06 0 10 000000 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
3473 ;TIMES IN THE OPPOSITE DIRECTION.
3474 033676 312 06 0 00 061125 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3475 033677 004 06 0 00 061125 ERROR AC,RAN
3476 033700 312 07 0 00 060662 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3477 033701 004 07 0 00 060662 ERROR AC1,[-1]
3478 000007 AC=<AC+1>&17
3479 000010 AC1=<AC+1>&17
3480 000011 AC2=<AC+2>&17
3481
3482
3483 033702 200 07 0 00 061125 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3484 033703 210 11 0 00 061125 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3485 033704 474 10 0 00 000000 SETO AC1, ;SET AC1 TO ALL ONES.
3486 033705 245 07 0 07 000000 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3487 ;TIMES IN ONE DIRECTION.
3488 033706 245 07 0 11 000000 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
3489 ;TIMES IN THE OPPOSITE DIRECTION.
3490 033707 312 07 0 00 061125 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3491 033710 004 07 0 00 061125 ERROR AC,RAN
3492 033711 312 10 0 00 060662 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3493 033712 004 10 0 00 060662 ERROR AC1,[-1]
3494 000010 AC=<AC+1>&17
3495 000011 AC1=<AC+1>&17
3496 000012 AC2=<AC+2>&17
3497
3498
3499 033713 200 10 0 00 061125 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3500 033714 210 12 0 00 061125 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3501 033715 474 11 0 00 000000 SETO AC1, ;SET AC1 TO ALL ONES.
3502 033716 245 10 0 10 000000 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3503 ;TIMES IN ONE DIRECTION.
3504 033717 245 10 0 12 000000 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
3505 ;TIMES IN THE OPPOSITE DIRECTION.
3506 033720 312 10 0 00 061125 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3507 033721 004 10 0 00 061125 ERROR AC,RAN
3508 033722 312 11 0 00 060662 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3509 033723 004 11 0 00 060662 ERROR AC1,[-1]
3510 000011 AC=<AC+1>&17
3511 000012 AC1=<AC+1>&17
3512 000013 AC2=<AC+2>&17
3513
3514
3515 033724 200 11 0 00 061125 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3516 033725 210 13 0 00 061125 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3517 033726 474 12 0 00 000000 SETO AC1, ;SET AC1 TO ALL ONES.
3518 033727 245 11 0 11 000000 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3519 ;TIMES IN ONE DIRECTION.
3520 033730 245 11 0 13 000000 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 46-3
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0099
3521 ;TIMES IN THE OPPOSITE DIRECTION.
3522 033731 312 11 0 00 061125 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3523 033732 004 11 0 00 061125 ERROR AC,RAN
3524 033733 312 12 0 00 060662 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3525 033734 004 12 0 00 060662 ERROR AC1,[-1]
3526 000012 AC=<AC+1>&17
3527 000013 AC1=<AC+1>&17
3528 000014 AC2=<AC+2>&17
3529
3530
3531 033735 200 12 0 00 061125 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3532 033736 210 14 0 00 061125 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3533 033737 474 13 0 00 000000 SETO AC1, ;SET AC1 TO ALL ONES.
3534 033740 245 12 0 12 000000 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3535 ;TIMES IN ONE DIRECTION.
3536 033741 245 12 0 14 000000 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
3537 ;TIMES IN THE OPPOSITE DIRECTION.
3538 033742 312 12 0 00 061125 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3539 033743 004 12 0 00 061125 ERROR AC,RAN
3540 033744 312 13 0 00 060662 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3541 033745 004 13 0 00 060662 ERROR AC1,[-1]
3542 000013 AC=<AC+1>&17
3543 000014 AC1=<AC+1>&17
3544 000015 AC2=<AC+2>&17
3545
3546
3547 033746 200 13 0 00 061125 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3548 033747 210 15 0 00 061125 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3549 033750 474 14 0 00 000000 SETO AC1, ;SET AC1 TO ALL ONES.
3550 033751 245 13 0 13 000000 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3551 ;TIMES IN ONE DIRECTION.
3552 033752 245 13 0 15 000000 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
3553 ;TIMES IN THE OPPOSITE DIRECTION.
3554 033753 312 13 0 00 061125 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3555 033754 004 13 0 00 061125 ERROR AC,RAN
3556 033755 312 14 0 00 060662 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3557 033756 004 14 0 00 060662 ERROR AC1,[-1]
3558 000014 AC=<AC+1>&17
3559 000015 AC1=<AC+1>&17
3560 000016 AC2=<AC+2>&17
3561
3562
3563 000002 AC=2
3564 LOOP RTCLR1,RTCLR2^
3565 033757 367 01 0 00 033616 SOJG AC-1,RTCLR1 ;ITERATION COUNTER
3566 033760 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3567 033761 321 01 0 00 033625 JUMPL AC-1,RTCLR2 ;LOOP ON ERROR SWITCH ^
3568
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 47
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0100
3569
3570 ;TEST OVERFLOW ON A ROT LEFT...AROV SHOULD NOT COME UP.
3571
3572 000002 AC=2
3573 033762 ROTOV: SETUP 20,0^
3574 000003 AC1=<AC+1>&17
3575 000004 AC2=<AC+2>&17
3576 000005 AC3=<AC+3>&17
3577 000006 AC4=<AC+4>&17
3578 000007 AC5=<AC+5>&17
3579 000000 RAN1=<AC-2>&17
3580 033762 201 01 0 00 033762 MOVEI AC-1,.
3581 033763 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3582 033764 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3583 033765 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3584 033766 201 01 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
3585 033767 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3586 033770 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3587 033771 ROTOV1: RANDOM^
3588 033771 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3589 033772 270 02 0 00 060657 ADD AC,[142536475076]
3590 033773 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3591 033774 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
3592 033775 322 02 0 00 033771 ROTOV2: JUMPE AC,ROTOV1 ;REJECT IF RAN = 0.
3593 033776 316 02 0 00 060662 CAMN AC,[-1] ;ALSO REJECT IF RAN = -1.
3594 033777 254 00 0 00 033771 JRST ROTOV1
3595 034000 255 10 0 00 034001 JFCL 10,.+1 ;CLEAR OV FLAG.
3596 034001 241 02 0 00 000256 ROT AC,256 ;ROT C(AC) 256 TIMES.
3597 034002 255 10 0 00 034004 JFCL 10,.+2 ;OV FLAG GET SET?
3598 034003 254 00 0 00 034005 JRST .+2 ;NO.
3599 034004 005 02 0 00 060664 ER AC,[ASCII /OV/] ;YES. SHOULD NOT SET ON A ROT.
3600 LOOP ROTOV1,ROTOV2^
3601 034005 367 01 0 00 033771 SOJG AC-1,ROTOV1 ;ITERATION COUNTER
3602 034006 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3603 034007 321 01 0 00 033775 JUMPL AC-1,ROTOV2 ;LOOP ON ERROR SWITCH ^
3604
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 48
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0101
3605
3606 ;TEST OVERFLOW FLAG ON A ROT RIGHT...SHOULD NEVER GET SET.
3607
3608 000003 AC=3
3609 034010 RTROV: SETUP 20,0^
3610 000004 AC1=<AC+1>&17
3611 000005 AC2=<AC+2>&17
3612 000006 AC3=<AC+3>&17
3613 000007 AC4=<AC+4>&17
3614 000010 AC5=<AC+5>&17
3615 000001 RAN1=<AC-2>&17
3616 034010 201 02 0 00 034010 MOVEI AC-1,.
3617 034011 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3618 034012 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3619 034013 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3620 034014 201 02 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
3621 034015 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3622 034016 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3623 034017 RTROV1: RANDOM^
3624 034017 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3625 034020 270 03 0 00 060657 ADD AC,[142536475076]
3626 034021 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3627 034022 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
3628 034023 322 03 0 00 034017 RTROV2: JUMPE AC,RTROV1 ;REJECT IF RAN = 0.
3629 034024 316 03 0 00 060662 CAMN AC,[-1] ;ALSO REJECT IF RAN = -1.
3630 034025 254 00 0 00 034017 JRST RTROV1
3631 034026 255 10 0 00 034027 JFCL 10,.+1 ;CLEAR OVERFLOW FLAG.
3632 034027 241 03 0 00 777522 ROT AC,-256 ;ROT AC RIGHT 256 TIMES.
3633 034030 255 10 0 00 034032 JFCL 10,.+2 ;OVERFLOW FALG GET SET?
3634 034031 254 00 0 00 034033 JRST .+2 ;NO.
3635 034032 005 03 0 00 060664 ER AC,[ASCII /OV/]
3636 LOOP RTROV1,RTROV2^
3637 034033 367 02 0 00 034017 SOJG AC-1,RTROV1 ;ITERATION COUNTER
3638 034034 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3639 034035 321 02 0 00 034023 JUMPL AC-1,RTROV2 ;LOOP ON ERROR SWITCH ^
3640
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 49
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0102
3641
3642 ;TEST MOVEM. AFTER <MOVEM AC,AC1> FOLLOWED BY
3643 ;<MOVEM AC1,AC>, C(AC) SHOULD = ORIG C(AC).
3644 ;RAN TO RAN1.
3645
3646 000002 AC=2
3647 034036 MVEM1: SETUP 30,0^
3648 000003 AC1=<AC+1>&17
3649 000004 AC2=<AC+2>&17
3650 000005 AC3=<AC+3>&17
3651 000006 AC4=<AC+4>&17
3652 000007 AC5=<AC+5>&17
3653 000000 RAN1=<AC-2>&17
3654 034036 201 01 0 00 034036 MOVEI AC-1,.
3655 034037 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3656 034040 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3657 034041 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3658 034042 201 01 0 00 000030 MOVEI AC-1,30 ;ROUTINE WEIGHTING
3659 034043 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3660 034044 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3661 034045 MVEM2: RANDOM^
3662 034045 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3663 034046 270 02 0 00 060657 ADD AC,[142536475076]
3664 034047 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3665 034050 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
3666 MVEM3: REPEAT 3, ;DO 3 SETS OF MOVEM'S.
3667 < MOVEM AC,AC1
3668 MOVEM AC1,AC>
3669 034051 202 02 0 00 000003 MOVEM AC,AC1
3670 034052 202 03 0 00 000002 MOVEM AC1,AC
3671 034053 202 02 0 00 000003 MOVEM AC,AC1
3672 034054 202 03 0 00 000002 MOVEM AC1,AC
3673 034055 202 02 0 00 000003 MOVEM AC,AC1
3674 034056 202 03 0 00 000002 MOVEM AC1,AC
3675 034057 312 02 0 00 061125 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
3676 034060 004 02 0 00 061125 ERROR AC,RAN
3677 034061 312 03 0 00 061125 CAME AC1,RAN ;C(AC1) SHOULD ALSO = ORIG. C(AC).
3678 034062 004 03 0 00 061125 ERROR AC1,RAN
3679 LOOP MVEM2,MVEM3^
3680 034063 367 01 0 00 034045 SOJG AC-1,MVEM2 ;ITERATION COUNTER
3681 034064 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3682 034065 321 01 0 00 034051 JUMPL AC-1,MVEM3 ;LOOP ON ERROR SWITCH ^
3683
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 50
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0103
3684
3685 ;TEST MOVES. AFTER 6 MOVES IN A ROW, THE C(E)
3686 ;SHOULD = ORIG C(E).
3687
3688 000002 AC=2
3689 034066 MVES1: SETUP 200,1^
3690 000003 AC1=<AC+1>&17
3691 000004 AC2=<AC+2>&17
3692 000005 AC3=<AC+3>&17
3693 000006 AC4=<AC+4>&17
3694 000007 AC5=<AC+5>&17
3695 000000 RAN1=<AC-2>&17
3696 034066 201 01 0 00 034066 MOVEI AC-1,.
3697 034067 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3698 034070 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3699 034071 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3700 034072 201 01 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
3701 034073 240 01 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
3702 034074 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3703 034075 MVES2: RANDOM^
3704 034075 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3705 034076 270 02 0 00 060657 ADD AC,[142536475076]
3706 034077 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3707 034100 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
3708 MVES3: REPEAT 3, ;DO 6 MOVE INSTRUCTIONS.
3709 < MOVES AC1,AC
3710 MOVES AC1,AC>
3711 034101 203 03 0 00 000002 MOVES AC1,AC
3712 034102 203 03 0 00 000002 MOVES AC1,AC
3713 034103 203 03 0 00 000002 MOVES AC1,AC
3714 034104 203 03 0 00 000002 MOVES AC1,AC
3715 034105 203 03 0 00 000002 MOVES AC1,AC
3716 034106 203 03 0 00 000002 MOVES AC1,AC
3717 034107 312 03 0 00 000002 CAME AC1,AC ;C(AC) SHOULD = C(E).
3718 034110 004 03 0 00 000002 ERROR AC1,AC
3719 034111 312 02 0 00 061125 CAME AC,RAN ;C(E) SHOULD = ORIG C(E).
3720 034112 004 02 0 00 061125 ERROR AC,RAN
3721 LOOP MVES2,MVES3^
3722 034113 367 01 0 00 034075 SOJG AC-1,MVES2 ;ITERATION COUNTER
3723 034114 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3724 034115 321 01 0 00 034101 JUMPL AC-1,MVES3 ;LOOP ON ERROR SWITCH ^
3725
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 51
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0104
3726
3727 ;TEST MOVS INSTRUCTION...TWO MOVS SHOULD GIVE SAME NUMBER.
3728
3729 000004 AC=4
3730 034116 MOVSA: SETUP 200,2^
3731 000005 AC1=<AC+1>&17
3732 000006 AC2=<AC+2>&17
3733 000007 AC3=<AC+3>&17
3734 000010 AC4=<AC+4>&17
3735 000011 AC5=<AC+5>&17
3736 000002 RAN1=<AC-2>&17
3737 034116 201 03 0 00 034116 MOVEI AC-1,.
3738 034117 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3739 034120 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3740 034121 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3741 034122 201 03 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
3742 034123 240 03 1 00 030660 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
3743 034124 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3744 034125 MOVSB: RANDOM^
3745 034125 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3746 034126 270 04 0 00 060657 ADD AC,[142536475076]
3747 034127 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3748 034130 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
3749 MOVSC: REPEAT 3, ;DO 6 MOVS INSTRUCTIONS.
3750 < MOVS AC,AC
3751 MOVS AC,AC>
3752 034131 204 04 0 00 000004 MOVS AC,AC
3753 034132 204 04 0 00 000004 MOVS AC,AC
3754 034133 204 04 0 00 000004 MOVS AC,AC
3755 034134 204 04 0 00 000004 MOVS AC,AC
3756 034135 204 04 0 00 000004 MOVS AC,AC
3757 034136 204 04 0 00 000004 MOVS AC,AC
3758 034137 312 04 0 00 061125 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3759 034140 011 00 0 00 061125 EERR ,RAN
3760 LOOP MOVSB,MOVSC^
3761 034141 367 03 0 00 034125 SOJG AC-1,MOVSB ;ITERATION COUNTER
3762 034142 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3763 034143 321 03 0 00 034131 JUMPL AC-1,MOVSC ;LOOP ON ERROR SWITCH ^
3764
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 52
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0105
3765
3766 ;TEST MOVS INSTRUCTION...MOVS FOLLOWED BY ROT SHOULD GIVE
3767 ;SAME NUMBER.
3768
3769 000005 AC=5
3770 034144 MOVS1: SETUP 200,1^
3771 000006 AC1=<AC+1>&17
3772 000007 AC2=<AC+2>&17
3773 000010 AC3=<AC+3>&17
3774 000011 AC4=<AC+4>&17
3775 000012 AC5=<AC+5>&17
3776 000003 RAN1=<AC-2>&17
3777 034144 201 04 0 00 034144 MOVEI AC-1,.
3778 034145 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3779 034146 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3780 034147 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3781 034150 201 04 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
3782 034151 240 04 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
3783 034152 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3784 034153 MOVS2: RANDOM^
3785 034153 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3786 034154 270 05 0 00 060657 ADD AC,[142536475076]
3787 034155 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3788 034156 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
3789 034157 204 05 0 00 000005 MOVS3: MOVS AC,AC ;DO MOVS INSTRUCTION.
3790 034160 241 05 0 00 000022 ROT AC,22 ;ROT LEFT 18 PLACES.
3791 034161 312 05 0 00 061125 CAME AC,RAN ;C(AC) SHOULD NOW = RAN.
3792 034162 011 00 0 00 061125 EERR ,RAN
3793 LOOP MOVS2,MOVS3^
3794 034163 367 04 0 00 034153 SOJG AC-1,MOVS2 ;ITERATION COUNTER
3795 034164 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3796 034165 321 04 0 00 034157 JUMPL AC-1,MOVS3 ;LOOP ON ERROR SWITCH ^
3797
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 53
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0106
3798
3799 ;TEST MOVSM....TWO MOVSM SHOULD GIVE THE ORIG. NUM.
3800
3801 000006 AC=6
3802 034166 MOVSMA: SETUP 300,1^
3803 000007 AC1=<AC+1>&17
3804 000010 AC2=<AC+2>&17
3805 000011 AC3=<AC+3>&17
3806 000012 AC4=<AC+4>&17
3807 000013 AC5=<AC+5>&17
3808 000004 RAN1=<AC-2>&17
3809 034166 201 05 0 00 034166 MOVEI AC-1,.
3810 034167 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3811 034170 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3812 034171 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3813 034172 201 05 0 00 000300 MOVEI AC-1,300 ;ROUTINE WEIGHTING
3814 034173 240 05 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
3815 034174 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3816 034175 MOVSMB: RANDOM^
3817 034175 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3818 034176 270 06 0 00 060657 ADD AC,[142536475076]
3819 034177 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3820 034200 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
3821 MOVSMC: REPEAT 3,
3822 < MOVSM AC,AC1
3823 MOVSM AC1,AC>
3824 034201 206 06 0 00 000007 MOVSM AC,AC1
3825 034202 206 07 0 00 000006 MOVSM AC1,AC
3826 034203 206 06 0 00 000007 MOVSM AC,AC1
3827 034204 206 07 0 00 000006 MOVSM AC1,AC
3828 034205 206 06 0 00 000007 MOVSM AC,AC1
3829 034206 206 07 0 00 000006 MOVSM AC1,AC
3830 034207 312 06 0 00 061125 CAME AC,RAN ;C(AC) SHOULD NOW BE = TO RAN.
3831 034210 004 06 0 00 061125 ERROR AC,RAN
3832 LOOP MOVSMB,MOVSMC^
3833 034211 367 05 0 00 034175 SOJG AC-1,MOVSMB ;ITERATION COUNTER
3834 034212 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3835 034213 321 05 0 00 034201 JUMPL AC-1,MOVSMC ;LOOP ON ERROR SWITCH ^
3836
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 54
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0107
3837
3838 ;TEST MOVSS...TWO MOVSS SHOULD GIVE THE ORIGINAL NUMBER.
3839
3840 000007 AC=7
3841 034214 MOVSSA: SETUP 200,0^
3842 000010 AC1=<AC+1>&17
3843 000011 AC2=<AC+2>&17
3844 000012 AC3=<AC+3>&17
3845 000013 AC4=<AC+4>&17
3846 000014 AC5=<AC+5>&17
3847 000005 RAN1=<AC-2>&17
3848 034214 201 06 0 00 034214 MOVEI AC-1,.
3849 034215 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3850 034216 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3851 034217 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3852 034220 201 06 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
3853 034221 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3854 034222 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3855 034223 MOVSSB: RANDOM^
3856 034223 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3857 034224 270 07 0 00 060657 ADD AC,[142536475076]
3858 034225 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3859 034226 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
3860 034227 403 00 0 00 000005 MOVSSC: SETZB 0,RAN1 ;CLEAR AC0.
3861 REPEAT 3,
3862 < MOVSS AC
3863 MOVSS AC>
3864 034230 207 00 0 00 000007 MOVSS AC
3865 034231 207 00 0 00 000007 MOVSS AC
3866 034232 207 00 0 00 000007 MOVSS AC
3867 034233 207 00 0 00 000007 MOVSS AC
3868 034234 207 00 0 00 000007 MOVSS AC
3869 034235 207 00 0 00 000007 MOVSS AC
3870 034236 312 07 0 00 061125 CAME AC,RAN ;C(AC) SHOULD NOW BE = TO RAN.
3871 034237 011 00 0 00 000005 EERR ,RAN1
3872 034240 312 00 0 00 060660 CAME [0] ;C(AC0) SHOULD STILL = 0.
3873 034241 011 00 0 00 000005 EERR ,RAN1
3874 LOOP MOVSSB,MOVSSC^
3875 034242 367 06 0 00 034223 SOJG AC-1,MOVSSB ;ITERATION COUNTER
3876 034243 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3877 034244 321 06 0 00 034227 JUMPL AC-1,MOVSSC ;LOOP ON ERROR SWITCH ^
3878
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 55
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0108
3879
3880 ;TEST MOVSI.
3881
3882 000010 AC=10
3883 034245 MOVSIA: SETUP 100,0^
3884 000011 AC1=<AC+1>&17
3885 000012 AC2=<AC+2>&17
3886 000013 AC3=<AC+3>&17
3887 000014 AC4=<AC+4>&17
3888 000015 AC5=<AC+5>&17
3889 000006 RAN1=<AC-2>&17
3890 034245 201 07 0 00 034245 MOVEI AC-1,.
3891 034246 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3892 034247 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3893 034250 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3894 034251 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3895 034252 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3896 034253 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3897 034254 MOVSIB: RANDOM^
3898 034254 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3899 034255 270 10 0 00 060657 ADD AC,[142536475076]
3900 034256 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3901 034257 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
3902 034260 200 12 0 00 061125 MOVE AC2,RAN ;PUT RAN INTO AN AC.
3903 034261 405 10 0 00 777777 MOVSIC: ANDI AC,-1 ;SIMULATE
3904 034262 241 10 0 00 000022 ROT AC,22 ;A MOVSI INST.
3905 034263 205 11 0 12 000000 MOVSI AC1,(AC2) ;DO MOVSI.
3906 034264 312 11 0 00 000010 CAME AC1,AC ;C(AC1) SHOULD = SIM. ANS.
3907 034265 004 11 0 00 000010 ERROR AC1,AC
3908 LOOP MOVSIB,MOVSIC^
3909 034266 367 07 0 00 034254 SOJG AC-1,MOVSIB ;ITERATION COUNTER
3910 034267 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3911 034270 321 07 0 00 034261 JUMPL AC-1,MOVSIC ;LOOP ON ERROR SWITCH ^
3912
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 56
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0109
3913
3914 ;TEST LSH. SIMULATE A LSH 18 PLACES WITH A MOVSI.
3915
3916 000011 AC=11
3917 034271 LSHA: SETUP 200,1^
3918 000012 AC1=<AC+1>&17
3919 000013 AC2=<AC+2>&17
3920 000014 AC3=<AC+3>&17
3921 000015 AC4=<AC+4>&17
3922 000016 AC5=<AC+5>&17
3923 000007 RAN1=<AC-2>&17
3924 034271 201 10 0 00 034271 MOVEI AC-1,.
3925 034272 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3926 034273 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3927 034274 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3928 034275 201 10 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
3929 034276 240 10 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
3930 034277 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3931 034300 LSHB: RANDOM^
3932 034300 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3933 034301 270 11 0 00 060657 ADD AC,[142536475076]
3934 034302 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3935 034303 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
3936 034304 474 12 0 00 000000 LSHC: SETO AC1, ;SET AC+1 TO ALL ONES.
3937 034305 205 13 0 11 000000 MOVSI AC2,(AC) ;SIMULATE LSH 18 PLACES.
3938 034306 242 11 0 00 000022 LSH AC,22 ;DO LSH
3939 034307 312 11 0 00 000013 CAME AC,AC2 ;C(AC) SHOULD = SIM. ANS.
3940 034310 004 11 0 00 000013 ERROR AC,AC2
3941 034311 312 12 0 00 060662 CAME AC1,[-1] ;AC1 GET CHANGED?
3942 034312 004 12 0 00 060662 ERROR AC1,[-1] ;YES.
3943 LOOP LSHB,LSHC^
3944 034313 367 10 0 00 034300 SOJG AC-1,LSHB ;ITERATION COUNTER
3945 034314 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3946 034315 321 10 0 00 034304 JUMPL AC-1,LSHC ;LOOP ON ERROR SWITCH ^
3947
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 57
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0110
3948
3949 ;TEST LSH RIGHT 18 PLACES.
3950
3951 000010 AC=10
3952 034316 LSH1: SETUP 200,1^
3953 000011 AC1=<AC+1>&17
3954 000012 AC2=<AC+2>&17
3955 000013 AC3=<AC+3>&17
3956 000014 AC4=<AC+4>&17
3957 000015 AC5=<AC+5>&17
3958 000006 RAN1=<AC-2>&17
3959 034316 201 07 0 00 034316 MOVEI AC-1,.
3960 034317 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3961 034320 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3962 034321 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3963 034322 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
3964 034323 240 07 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
3965 034324 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3966 034325 LSH2: RANDOM^
3967 034325 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3968 034326 270 10 0 00 060657 ADD AC,[142536475076]
3969 034327 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3970 034330 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
3971 034331 477 11 0 00 000006 LSH3: SETOB AC1,RAN1 ;SET C(AC+1) TO ALL ONES.
3972 034332 242 10 0 00 777756 LSH AC,-22 ;DO LSH RIGHT 18 PLACES.
3973 034333 204 12 0 00 061125 MOVS AC2,RAN ;SIMULATE
3974 034334 405 12 0 00 777777 ANDI AC2,-1 ;LSH.
3975 034335 312 10 0 00 000012 CAME AC,AC2 ;C(AC) SHOULD = SIM. ANS.
3976 034336 013 00 0 00 777756 EERRI ,-22
3977 034337 312 11 0 00 060662 CAME AC1,[-1] ;C(AC+1) GET CHANGED?
3978 034340 003 06 0 00 777756 ERRI RAN1,-22
3979 LOOP LSH2,LSH3^
3980 034341 367 07 0 00 034325 SOJG AC-1,LSH2 ;ITERATION COUNTER
3981 034342 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3982 034343 321 07 0 00 034331 JUMPL AC-1,LSH3 ;LOOP ON ERROR SWITCH ^
3983
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 58
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0111
3984
3985 ;TEST ASH ABILITY TO SET OR NOT SET OVERFLOW FLAG.
3986
3987 000010 AC=10
3988 034344 ASHOV: SETUP 30,0^
3989 000011 AC1=<AC+1>&17
3990 000012 AC2=<AC+2>&17
3991 000013 AC3=<AC+3>&17
3992 000014 AC4=<AC+4>&17
3993 000015 AC5=<AC+5>&17
3994 000006 RAN1=<AC-2>&17
3995 034344 201 07 0 00 034344 MOVEI AC-1,.
3996 034345 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3997 034346 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3998 034347 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3999 034350 201 07 0 00 000030 MOVEI AC-1,30 ;ROUTINE WEIGHTING
4000 034351 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4001 034352 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4002 034353 474 10 0 00 000000 ASHOV1: SETO AC, ;SET AC TO ALL ONES..1,1 CONDITION.
4003 034354 255 10 0 00 034355 JFCL 10,.+1 ;CLEAR OV FLAG.
4004 034355 240 10 0 00 000001 ASH AC,1 ;DO ASH.
4005 034356 255 10 0 00 034360 JFCL 10,.+2 ;OVERFLOW FLAG GET SET?
4006 034357 254 00 0 00 034361 JRST .+2 ;NO.
4007 034360 005 10 0 00 060664 ER AC,[ASCII /OV/] ;YES. 1,1 CONDITION SHOULD NOT SET IT.
4008 034361 255 10 0 00 034362 JFCL 10,.+1 ;CLEAR OV FLAG.
4009 034362 400 10 0 00 000000 SETZ AC, ;CLEAR AC...0,0 CONDITION.
4010 034363 240 10 0 00 000001 ASH AC,1 ;DO ASH.
4011 034364 255 10 0 00 034366 JFCL 10,.+2 ;OVERFLOW FLAG GET SET?
4012 034365 254 00 0 00 034367 JRST .+2 ;NO.
4013 034366 005 10 0 00 060664 ER AC,[ASCII /OV/] ;YES. 0,0 COND. SHOULDN'T SET IT.
4014 034367 255 10 0 00 034370 JFCL 10,.+1 ;CLEAR OV FLAG.
4015 034370 205 10 0 00 377777 MOVSI AC,377777 ;SET AC FOR 0,1 CONDITION.
4016 034371 240 10 0 00 000001 ASH AC,1 ;DO ASH.
4017 034372 255 10 0 00 034374 JFCL 10,.+2 ;OVERFLOW FLAG GET SET?
4018 034373 005 10 0 00 060664 ER AC,[ASCII /OV/] ;NO. 0,1 COND. SHOULD SET IT.
4019 034374 255 10 0 00 034375 JFCL 10,.+1 ;CLEAR OV FLAG.
4020 034375 205 10 0 00 400000 MOVSI AC,400000 ;SET AC FOR 1,0 CONDITION.
4021 034376 240 10 0 00 000001 ASH AC,1 ;DO ASH.
4022 034377 255 10 0 00 034401 JFCL 10,.+2 ;OV FLAG GET SET?
4023 034400 005 10 0 00 060664 ER AC,[ASCII /OV/] ;NO. 1,0 COND. SHOULD SET IT.
4024 LOOP ASHOV1,ASHOV1^
4025 034401 367 07 0 00 034353 SOJG AC-1,ASHOV1 ;ITERATION COUNTER
4026 034402 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4027 034403 321 07 0 00 034353 JUMPL AC-1,ASHOV1 ;LOOP ON ERROR SWITCH ^
4028
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 59
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0112
4029
4030 ;TEST ASH. DO ASH RIGHT 36 PLACES WITH ORIG.
4031 ;C(AC) = 400000000000. AFTER ASH THE C(AC) SHOULD = A -1.
4032
4033 000010 AC=10
4034 034404 ASH1: SETUP 20,0^
4035 000011 AC1=<AC+1>&17
4036 000012 AC2=<AC+2>&17
4037 000013 AC3=<AC+3>&17
4038 000014 AC4=<AC+4>&17
4039 000015 AC5=<AC+5>&17
4040 000006 RAN1=<AC-2>&17
4041 034404 201 07 0 00 034404 MOVEI AC-1,.
4042 034405 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4043 034406 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4044 034407 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4045 034410 201 07 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
4046 034411 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4047 034412 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4048 034413 200 10 0 00 060665 ASH2: MOVE AC,[XWD 400000,0] ;MAKE C(AC) = ALL 0'S WITH SIGN BIT SET.
4049 034414 240 10 0 00 777734 ASH AC,-44 ;DO ASH RIGHT 36 PLACES...SIGN
4050 034415 312 10 0 00 060662 CAME AC,[-1] ;BIT SHOULD HAVE SET ALL BITS TO A ONE.
4051 034416 004 10 0 00 060662 ERROR AC,[-1]
4052 LOOP ASH2,ASH2^
4053 034417 367 07 0 00 034413 SOJG AC-1,ASH2 ;ITERATION COUNTER
4054 034420 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4055 034421 321 07 0 00 034413 JUMPL AC-1,ASH2 ;LOOP ON ERROR SWITCH ^
4056
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 60
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0113
4057
4058 ;TEST ASH. DO ASH LEFT 36 PLACES WITH ORIG. C(AC) =
4059 ;TO A -1. AFTER ASH THE C(AC) SHOULD = THE SIGN
4060 ;BIT SET AND THE REST ZEROS.
4061
4062 000011 AC=11
4063 034422 ASH3: SETUP 20,0^
4064 000012 AC1=<AC+1>&17
4065 000013 AC2=<AC+2>&17
4066 000014 AC3=<AC+3>&17
4067 000015 AC4=<AC+4>&17
4068 000016 AC5=<AC+5>&17
4069 000007 RAN1=<AC-2>&17
4070 034422 201 10 0 00 034422 MOVEI AC-1,.
4071 034423 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4072 034424 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4073 034425 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4074 034426 201 10 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
4075 034427 240 10 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4076 034430 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4077 034431 200 11 0 00 060662 ASH4: MOVE AC,[-1] ;MAKE C(AC) = A -1.
4078 034432 240 11 0 00 000044 ASH AC,44 ;DO ASH LEFT 36 PLACES..0'S GOING
4079 034433 312 11 0 00 060665 CAME AC,[XWD 400000,0] ;INTO BIT 35 SHOULD JUST LEAVE SIGN BIT SET.
4080 034434 004 11 0 00 060660 ERROR AC,[0]
4081 LOOP ASH4,ASH4^
4082 034435 367 10 0 00 034431 SOJG AC-1,ASH4 ;ITERATION COUNTER
4083 034436 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4084 034437 321 10 0 00 034431 JUMPL AC-1,ASH4 ;LOOP ON ERROR SWITCH ^
4085
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 61
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0114
4086
4087 ;TEST ADD. RAN TO 0 CONDITION.
4088
4089 000010 AC=10
4090 034440 ADD1: SETUP 100,0^
4091 000011 AC1=<AC+1>&17
4092 000012 AC2=<AC+2>&17
4093 000013 AC3=<AC+3>&17
4094 000014 AC4=<AC+4>&17
4095 000015 AC5=<AC+5>&17
4096 000006 RAN1=<AC-2>&17
4097 034440 201 07 0 00 034440 MOVEI AC-1,.
4098 034441 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4099 034442 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4100 034443 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4101 034444 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4102 034445 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4103 034446 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4104 034447 ADD2: RANDOM^
4105 034447 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4106 034450 270 10 0 00 060657 ADD AC,[142536475076]
4107 034451 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4108 034452 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
4109 034453 400 10 0 00 000000 ADD3: SETZ AC, ;CLEAR AC.
4110 034454 270 10 0 00 061125 ADD AC,RAN ;ADD RAN TO 0.
4111 034455 312 10 0 00 061125 CAME AC,RAN ;C(AC) SHOULD = RAN NUM.
4112 034456 004 10 0 00 061125 ERROR AC,RAN
4113 LOOP ADD2,ADD3^
4114 034457 367 07 0 00 034447 SOJG AC-1,ADD2 ;ITERATION COUNTER
4115 034460 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4116 034461 321 07 0 00 034453 JUMPL AC-1,ADD3 ;LOOP ON ERROR SWITCH ^
4117
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 62
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0115
4118
4119 ; TEST ADD. 0 TO RAN CONDITION.
4120
4121 000010 AC=10
4122 034462 ADD1A: SETUP 100,0^
4123 000011 AC1=<AC+1>&17
4124 000012 AC2=<AC+2>&17
4125 000013 AC3=<AC+3>&17
4126 000014 AC4=<AC+4>&17
4127 000015 AC5=<AC+5>&17
4128 000006 RAN1=<AC-2>&17
4129 034462 201 07 0 00 034462 MOVEI AC-1,.
4130 034463 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4131 034464 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4132 034465 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4133 034466 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4134 034467 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4135 034470 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4136 034471 ADD2A: RANDOM^
4137 034471 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4138 034472 270 10 0 00 060657 ADD AC,[142536475076]
4139 034473 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4140 034474 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
4141 ADD3A: REPEAT 5, ;ADD A CONSTANT 0 TO RAN 5 TIMES.
4142 < ADD AC,[0]>
4143 034475 270 10 0 00 060660 ADD AC,[0]
4144 034476 270 10 0 00 060660 ADD AC,[0]
4145 034477 270 10 0 00 060660 ADD AC,[0]
4146 034500 270 10 0 00 060660 ADD AC,[0]
4147 034501 270 10 0 00 060660 ADD AC,[0]
4148 034502 312 10 0 00 061125 CAME AC,RAN ;C(AC) SHOULD STILL = RAN NUM.
4149 034503 004 10 0 00 061125 ERROR AC,RAN
4150 LOOP ADD2A,ADD3A^
4151 034504 367 07 0 00 034471 SOJG AC-1,ADD2A ;ITERATION COUNTER
4152 034505 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4153 034506 321 07 0 00 034475 JUMPL AC-1,ADD3A ;LOOP ON ERROR SWITCH ^
4154
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 63
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0116
4155
4156 ;TEST ADD. ADD 1'S COMP OF RAN TO RAN.
4157 ;SHOULD GET A -1.
4158
4159 000010 AC=10
4160 034507 ADD1B: SETUP 100,0^
4161 000011 AC1=<AC+1>&17
4162 000012 AC2=<AC+2>&17
4163 000013 AC3=<AC+3>&17
4164 000014 AC4=<AC+4>&17
4165 000015 AC5=<AC+5>&17
4166 000006 RAN1=<AC-2>&17
4167 034507 201 07 0 00 034507 MOVEI AC-1,.
4168 034510 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4169 034511 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4170 034512 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4171 034513 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4172 034514 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4173 034515 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4174 034516 ADD2B: RANDOM^
4175 034516 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4176 034517 270 10 0 00 060657 ADD AC,[142536475076]
4177 034520 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4178 034521 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
4179 034522 460 11 0 00 061125 ADD3B: SETCM AC1,RAN ;1'S COMP OF RAN TO AC1.
4180 034523 270 10 0 00 000011 ADD AC,AC1 ;ADD IT TO RAN.
4181 034524 312 10 0 00 060662 CAME AC,[-1] ;C(AC) SHOULD = -1.
4182 034525 004 10 0 00 060662 ERROR AC,[-1]
4183 LOOP ADD2B,ADD3B^
4184 034526 367 07 0 00 034516 SOJG AC-1,ADD2B ;ITERATION COUNTER
4185 034527 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4186 034530 321 07 0 00 034522 JUMPL AC-1,ADD3B ;LOOP ON ERROR SWITCH ^
4187
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 64
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0117
4188
4189 ;TEST ADD. CHECK CRY0,CRY1,AND OV FLAGS.
4190 ;ADD, TO A RANDOM NUMBER, A -1 AND THEN A +1.
4191 ;CRY0 AND CRY1 SHOULD BOTH GET SET AND AROV SHOULD NOT GET SET.
4192
4193 000010 AC=10
4194 034531 ADD1C: SETUP 400,2^
4195 000011 AC1=<AC+1>&17
4196 000012 AC2=<AC+2>&17
4197 000013 AC3=<AC+3>&17
4198 000014 AC4=<AC+4>&17
4199 000015 AC5=<AC+5>&17
4200 000006 RAN1=<AC-2>&17
4201 034531 201 07 0 00 034531 MOVEI AC-1,.
4202 034532 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4203 034533 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4204 034534 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4205 034535 201 07 0 00 000400 MOVEI AC-1,400 ;ROUTINE WEIGHTING
4206 034536 240 07 1 00 030660 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
4207 034537 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4208 034540 ADD2C: RANDOM^
4209 034540 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4210 034541 270 10 0 00 060657 ADD AC,[142536475076]
4211 034542 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4212 034543 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
4213 034544 255 17 0 00 034545 ADD3C: JFCL 17,.+1 ;CLEAR ALL FLAGS.
4214 034545 270 10 0 00 060662 ADD AC,[-1] ;ADD A -1 TO RAN.
4215 034546 270 10 0 00 060666 ADD AC,[1] ;ADD A +1 TO ANS OF ADDITION OF RAN AND A -1.
4216 034547 312 10 0 00 061125 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
4217 034550 004 10 0 00 061125 ERROR AC,RAN
4218 034551 255 04 0 00 034555 JFCL 4,CRY0A
4219 034552 255 02 0 00 034554 JFCL 2,.+2
4220 034553 254 00 0 00 034560 JRST BOTHF
4221 034554 005 10 0 00 060667 ER AC,[ASCII /CRY0/];CRY0 FAILED TO GET SET.
4222 034555 255 02 0 00 034557 CRY0A: JFCL 2,.+2
4223 034556 005 10 0 00 060670 ER AC,[ASCII /CRY1/];CRY1 FAILED TO GET SET.
4224 034557 254 00 0 00 034561 JRST AROVA
4225 034560 005 10 0 00 060671 BOTHF: ER AC,[ASCII /CRY01/];BOTH CRY0 + CRY1 FAILED TO GET SET.
4226 034561 255 10 0 00 034563 AROVA: JFCL 10,.+2
4227 034562 254 00 0 00 034564 JRST ADD4C
4228 034563 005 10 0 00 060664 ER AC,[ASCII /OV/] ;AROV GOT SET.
4229 034564 ADD4C: LOOP ADD2C,ADD3C^
4230 034564 367 07 0 00 034540 SOJG AC-1,ADD2C ;ITERATION COUNTER
4231 034565 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4232 034566 321 07 0 00 034544 JUMPL AC-1,ADD3C ;LOOP ON ERROR SWITCH ^
4233
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 65
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0118
4234
4235 ;TEST ADDM. WHERE E IS AN AC.
4236 ;RAN TO 0 CONDITION.
4237
4238 000004 AC=4
4239 034567 ADDM1: SETUP 100,0^
4240 000005 AC1=<AC+1>&17
4241 000006 AC2=<AC+2>&17
4242 000007 AC3=<AC+3>&17
4243 000010 AC4=<AC+4>&17
4244 000011 AC5=<AC+5>&17
4245 000002 RAN1=<AC-2>&17
4246 034567 201 03 0 00 034567 MOVEI AC-1,.
4247 034570 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4248 034571 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4249 034572 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4250 034573 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4251 034574 240 03 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4252 034575 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4253 034576 ADDM2: RANDOM^
4254 034576 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4255 034577 270 04 0 00 060657 ADD AC,[142536475076]
4256 034600 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4257 034601 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
4258 034602 200 06 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
4259 034603 403 05 0 00 000002 ADDM3: SETZB AC1,RAN1 ;MAKE C(E) = 0.
4260 034604 272 04 0 00 000005 ADDM AC,AC1 ;DO ADDM.
4261 034605 312 06 0 00 000005 CAME AC2,AC1 ;C(E) SHOULD =ORIG C(AC).
4262 034606 002 02 0 00 061125 ERRM RAN1,RAN
4263 LOOP ADDM2,ADDM3^
4264 034607 367 03 0 00 034576 SOJG AC-1,ADDM2 ;ITERATION COUNTER
4265 034610 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4266 034611 321 03 0 00 034603 JUMPL AC-1,ADDM3 ;LOOP ON ERROR SWITCH ^
4267
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 66
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0119
4268
4269 ;TEST ADDM. WHERE E IS AN AC.
4270 ;0 TO RAN CONDITION.
4271
4272 000005 AC=5
4273 034612 ADDM1A: SETUP 100,0^
4274 000006 AC1=<AC+1>&17
4275 000007 AC2=<AC+2>&17
4276 000010 AC3=<AC+3>&17
4277 000011 AC4=<AC+4>&17
4278 000012 AC5=<AC+5>&17
4279 000003 RAN1=<AC-2>&17
4280 034612 201 04 0 00 034612 MOVEI AC-1,.
4281 034613 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4282 034614 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4283 034615 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4284 034616 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4285 034617 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4286 034620 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4287 034621 ADDM2A: RANDOM^
4288 034621 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4289 034622 270 05 0 00 060657 ADD AC,[142536475076]
4290 034623 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4291 034624 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
4292 034625 200 07 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
4293 034626 403 06 0 00 000003 ADDM3A: SETZB AC1,RAN1 ;MAKE C(AC) = 0.
4294 034627 272 06 0 00 000005 ADDM AC1,AC ;DO ADDM.
4295 034630 312 07 0 00 000005 CAME AC2,AC ;C(E) SHOULD = ORIG C(E).
4296 034631 012 00 0 00 000003 EERRM ,RAN1
4297 LOOP ADDM2A,ADDM3A^
4298 034632 367 04 0 00 034621 SOJG AC-1,ADDM2A ;ITERATION COUNTER
4299 034633 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4300 034634 321 04 0 00 034626 JUMPL AC-1,ADDM3A ;LOOP ON ERROR SWITCH ^
4301
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 67
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0120
4302
4303 ;TEST ADDM. WHERE E IS AN AC.
4304 ;1'S COMP RAN TO RAN.
4305
4306 000006 AC=6
4307 034635 ADDM1B: SETUP 100,0^
4308 000007 AC1=<AC+1>&17
4309 000010 AC2=<AC+2>&17
4310 000011 AC3=<AC+3>&17
4311 000012 AC4=<AC+4>&17
4312 000013 AC5=<AC+5>&17
4313 000004 RAN1=<AC-2>&17
4314 034635 201 05 0 00 034635 MOVEI AC-1,.
4315 034636 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4316 034637 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4317 034640 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4318 034641 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4319 034642 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4320 034643 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4321 034644 ADDM2B: RANDOM^
4322 034644 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4323 034645 270 06 0 00 060657 ADD AC,[142536475076]
4324 034646 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4325 034647 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
4326 034650 460 07 0 00 000006 ADDM3B: SETCM AC1,AC ;MAKE C(AC) = 1'S COMP OF C(E).
4327 034651 200 04 0 00 000007 MOVE RAN1,AC1 ;SAVE C(AC) IN CASE OF ERROR.
4328 034652 272 07 0 00 000006 ADDM AC1,AC ;DO ADDM.
4329 034653 312 06 0 00 060662 CAME AC,[-1] ;C(E) SHOULD = A -1.
4330 034654 012 00 0 00 000004 EERRM ,RAN1
4331 LOOP ADDM2B,ADDM3B^
4332 034655 367 05 0 00 034644 SOJG AC-1,ADDM2B ;ITERATION COUNTER
4333 034656 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4334 034657 321 05 0 00 034650 JUMPL AC-1,ADDM3B ;LOOP ON ERROR SWITCH ^
4335
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 68
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0121
4336
4337 ;TEST ADDI. CHECK C(AC) FOR CORRECT DATA.
4338 ;0 TO RAN CONDITION.
4339
4340 000002 AC=2
4341 034660 ADDI1: SETUP 20,0^
4342 000003 AC1=<AC+1>&17
4343 000004 AC2=<AC+2>&17
4344 000005 AC3=<AC+3>&17
4345 000006 AC4=<AC+4>&17
4346 000007 AC5=<AC+5>&17
4347 000000 RAN1=<AC-2>&17
4348 034660 201 01 0 00 034660 MOVEI AC-1,.
4349 034661 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4350 034662 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4351 034663 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4352 034664 201 01 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
4353 034665 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4354 034666 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4355 034667 ADDI2: RANDOM^
4356 034667 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4357 034670 270 02 0 00 060657 ADD AC,[142536475076]
4358 034671 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4359 034672 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
4360 034673 271 02 0 00 000000 ADDI3: ADDI AC,0 ;DO ADDI.
4361 034674 312 02 0 00 061125 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
4362 034675 013 00 0 00 000000 EERRI ,0
4363 LOOP ADDI2,ADDI3^
4364 034676 367 01 0 00 034667 SOJG AC-1,ADDI2 ;ITERATION COUNTER
4365 034677 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4366 034700 321 01 0 00 034673 JUMPL AC-1,ADDI3 ;LOOP ON ERROR SWITCH ^
4367
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 69
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0122
4368
4369 ;TEST ADDI. CHECK FOR CORRECT DATA IN AC.
4370 ;RAN TO 0 CONDITION.
4371
4372 000002 AC=2
4373 034701 ADDI1A: SETUP 100,0^
4374 000003 AC1=<AC+1>&17
4375 000004 AC2=<AC+2>&17
4376 000005 AC3=<AC+3>&17
4377 000006 AC4=<AC+4>&17
4378 000007 AC5=<AC+5>&17
4379 000000 RAN1=<AC-2>&17
4380 034701 201 01 0 00 034701 MOVEI AC-1,.
4381 034702 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4382 034703 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4383 034704 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4384 034705 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4385 034706 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4386 034707 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4387 034710 ADDI2A: RANDOM^
4388 034710 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4389 034711 270 02 0 00 060657 ADD AC,[142536475076]
4390 034712 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4391 034713 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
4392 034714 403 03 0 00 000000 ADDI3A: SETZB AC1,RAN1 ;CLEAR C(AC).
4393 034715 201 04 0 02 000000 MOVEI AC2,(AC) ;SIMULATE ADDI.
4394 034716 271 03 0 02 000000 ADDI AC1,(AC) ;DO ADDI.
4395 034717 312 03 0 00 000004 CAME AC1,AC2 ;C(AC) SHOULD = SIM. ANS.
4396 034720 003 00 0 02 000000 ERRI RAN1,(AC)
4397 LOOP ADDI2A,ADDI3A^
4398 034721 367 01 0 00 034710 SOJG AC-1,ADDI2A ;ITERATION COUNTER
4399 034722 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4400 034723 321 01 0 00 034714 JUMPL AC-1,ADDI3A ;LOOP ON ERROR SWITCH ^
4401
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 70
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0123
4402
4403 ;TEST ADDI. CHECK FOR CORRECT DATA IN AC.
4404 ;1'S COMP RAN TO RAN.
4405
4406 000003 AC=3
4407 034724 ADDI1B: SETUP 40,0^
4408 000004 AC1=<AC+1>&17
4409 000005 AC2=<AC+2>&17
4410 000006 AC3=<AC+3>&17
4411 000007 AC4=<AC+4>&17
4412 000010 AC5=<AC+5>&17
4413 000001 RAN1=<AC-2>&17
4414 034724 201 02 0 00 034724 MOVEI AC-1,.
4415 034725 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4416 034726 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4417 034727 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4418 034730 201 02 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
4419 034731 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4420 034732 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4421 034733 ADDI2B: RANDOM^
4422 034733 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4423 034734 270 03 0 00 060657 ADD AC,[142536475076]
4424 034735 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4425 034736 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
4426 034737 460 04 0 00 000003 ADDI3B: SETCM AC1,AC ;MAKE C(AC) = 1'S COMP OF E.
4427 034740 200 05 0 00 000004 MOVE AC2,AC1 ;SIMULATE
4428 034741 435 05 0 00 777777 IORI AC2,-1 ;ADDI INST.
4429 034742 200 01 0 00 000004 MOVE RAN1,AC1 ;SAVE C(AC) IN CASE OF ERROR.
4430 034743 271 04 0 03 000000 ADDI AC1,(AC) ;DO ADDI.
4431 034744 312 04 0 00 000005 CAME AC1,AC2 ;C(AC) SHOULD = SIM. ANS.
4432 034745 003 01 0 03 000000 ERRI RAN1,(AC)
4433 LOOP ADDI2B,ADDI3B^
4434 034746 367 02 0 00 034733 SOJG AC-1,ADDI2B ;ITERATION COUNTER
4435 034747 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4436 034750 321 02 0 00 034737 JUMPL AC-1,ADDI3B ;LOOP ON ERROR SWITCH ^
4437
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 71
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0124
4438
4439 ;TEST ADDB. CHECK FOR C(AC) = C(E), AND CORRECT
4440 ;DATA IN AC FOR 0 TO RAN CONDITION.
4441
4442 000004 AC=4
4443 034751 ADDB1: SETUP 100,0^
4444 000005 AC1=<AC+1>&17
4445 000006 AC2=<AC+2>&17
4446 000007 AC3=<AC+3>&17
4447 000010 AC4=<AC+4>&17
4448 000011 AC5=<AC+5>&17
4449 000002 RAN1=<AC-2>&17
4450 034751 201 03 0 00 034751 MOVEI AC-1,.
4451 034752 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4452 034753 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4453 034754 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4454 034755 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4455 034756 240 03 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4456 034757 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4457 034760 ADDB2: RANDOM^
4458 034760 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4459 034761 270 04 0 00 060657 ADD AC,[142536475076]
4460 034762 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4461 034763 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
4462 034764 403 05 0 00 000002 ADDB3: SETZB AC1,RAN1 ;CLEAR C(E).
4463 034765 273 04 0 00 000005 ADDB AC,AC1 ;DO ADDB.
4464 034766 312 04 0 00 000005 CAME AC,AC1 ;C(AC) SHOULLD = C(E).
4465 034767 001 02 0 00 061125 ERR RAN1,RAN
4466 034770 312 04 0 00 061125 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
4467 034771 001 02 0 00 061125 ERR RAN1,RAN
4468 LOOP ADDB2,ADDB3^
4469 034772 367 03 0 00 034760 SOJG AC-1,ADDB2 ;ITERATION COUNTER
4470 034773 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4471 034774 321 03 0 00 034764 JUMPL AC-1,ADDB3 ;LOOP ON ERROR SWITCH ^
4472
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 72
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0125
4473
4474 ;TEST ADDB. CHECK FOR C(AC) = C(E), AND CORRECT
4475 ;DATA IN AC FOR RAN TO 0 CONDITION.
4476
4477 000005 AC=5
4478 034775 ADDB1A: SETUP 100,0^
4479 000006 AC1=<AC+1>&17
4480 000007 AC2=<AC+2>&17
4481 000010 AC3=<AC+3>&17
4482 000011 AC4=<AC+4>&17
4483 000012 AC5=<AC+5>&17
4484 000003 RAN1=<AC-2>&17
4485 034775 201 04 0 00 034775 MOVEI AC-1,.
4486 034776 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4487 034777 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4488 035000 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4489 035001 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4490 035002 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4491 035003 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4492 035004 ADDB2A: RANDOM^
4493 035004 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4494 035005 270 05 0 00 060657 ADD AC,[142536475076]
4495 035006 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4496 035007 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
4497 035010 403 06 0 00 000003 ADDB3A: SETZB AC1,RAN1 ;CLEAR C(AC).
4498 035011 273 06 0 00 000005 ADDB AC1,AC ;DO ADDB.
4499 035012 312 06 0 00 000005 CAME AC1,AC ;C(AC) SHOULD = C(E).
4500 035013 011 00 0 00 000003 EERR ,RAN1
4501 035014 312 06 0 00 061125 CAME AC1,RAN ;C(AC) SHOULD = ORIG C(E).
4502 035015 011 00 0 00 000003 EERR ,RAN1
4503 LOOP ADDB2A,ADDB3A^
4504 035016 367 04 0 00 035004 SOJG AC-1,ADDB2A ;ITERATION COUNTER
4505 035017 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4506 035020 321 04 0 00 035010 JUMPL AC-1,ADDB3A ;LOOP ON ERROR SWITCH ^
4507
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 73
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0126
4508
4509 ;TEST ADDB. CHECK FOR C(AC) = C(E), AND CORRECT DATA
4510 ;IN AC FOR NOT RAN TO RAN CONDITION.
4511
4512 000006 AC=6
4513 035021 ADDB1B: SETUP 100,0^
4514 000007 AC1=<AC+1>&17
4515 000010 AC2=<AC+2>&17
4516 000011 AC3=<AC+3>&17
4517 000012 AC4=<AC+4>&17
4518 000013 AC5=<AC+5>&17
4519 000004 RAN1=<AC-2>&17
4520 035021 201 05 0 00 035021 MOVEI AC-1,.
4521 035022 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4522 035023 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4523 035024 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4524 035025 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4525 035026 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4526 035027 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4527 035030 ADDB2B: RANDOM^
4528 035030 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4529 035031 270 06 0 00 060657 ADD AC,[142536475076]
4530 035032 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4531 035033 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
4532 035034 460 07 0 00 000006 ADDB3B: SETCM AC1,AC ;MAKE C(E) = 1'S COMP OF C(AC).
4533 035035 200 04 0 00 000007 MOVE RAN1,AC1 ;SAVE C(E) IN CASE OF ERROR.
4534 035036 273 06 0 00 000007 ADDB AC,AC1 ;DO ADDB.
4535 035037 312 06 0 00 000007 CAME AC,AC1 ;C(AC) SHOULD = C(E).
4536 035040 001 04 0 00 061125 ERR RAN1,RAN
4537 035041 312 06 0 00 060662 CAME AC,[-1] ;C(AC) SHOULD = A -1.
4538 035042 001 04 0 00 061125 ERR RAN1,RAN
4539 LOOP ADDB2B,ADDB3B^
4540 035043 367 05 0 00 035030 SOJG AC-1,ADDB2B ;ITERATION COUNTER
4541 035044 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4542 035045 321 05 0 00 035034 JUMPL AC-1,ADDB3B ;LOOP ON ERROR SWITCH ^
4543
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 74
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0127
4544
4545 ;TEST SUB. CHECK C(AC) FOR CORRECT DATA.
4546 ;0 TO RAN CONDITION.
4547
4548 000002 AC=2
4549 035046 SUB1: SETUP 100,0^
4550 000003 AC1=<AC+1>&17
4551 000004 AC2=<AC+2>&17
4552 000005 AC3=<AC+3>&17
4553 000006 AC4=<AC+4>&17
4554 000007 AC5=<AC+5>&17
4555 000000 RAN1=<AC-2>&17
4556 035046 201 01 0 00 035046 MOVEI AC-1,.
4557 035047 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4558 035050 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4559 035051 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4560 035052 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4561 035053 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4562 035054 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4563 035055 SUB2: RANDOM^
4564 035055 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4565 035056 270 02 0 00 060657 ADD AC,[142536475076]
4566 035057 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4567 035060 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
4568 035061 403 03 0 00 000000 SUB3: SETZB AC1,RAN1 ;CLEAR C(E).
4569 REPEAT 3,
4570 < SUB AC,AC1>
4571 035062 274 02 0 00 000003 SUB AC,AC1
4572 035063 274 02 0 00 000003 SUB AC,AC1
4573 035064 274 02 0 00 000003 SUB AC,AC1
4574 035065 312 02 0 00 061125 CAME AC,RAN ;C(AC) SHOULD STILL = ORIG C(AC).
4575 035066 001 00 0 00 061125 ERR RAN1,RAN
4576 LOOP SUB2,SUB3^
4577 035067 367 01 0 00 035055 SOJG AC-1,SUB2 ;ITERATION COUNTER
4578 035070 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4579 035071 321 01 0 00 035061 JUMPL AC-1,SUB3 ;LOOP ON ERROR SWITCH ^
4580
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 75
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0128
4581
4582 ;TEST SUB. CHECK C(AC) FOR CORRECT DATA.
4583 ;RAN TO 0 CONDITION.
4584
4585 000002 AC=2
4586 035072 SUB1A: SETUP 100,0^
4587 000003 AC1=<AC+1>&17
4588 000004 AC2=<AC+2>&17
4589 000005 AC3=<AC+3>&17
4590 000006 AC4=<AC+4>&17
4591 000007 AC5=<AC+5>&17
4592 000000 RAN1=<AC-2>&17
4593 035072 201 01 0 00 035072 MOVEI AC-1,.
4594 035073 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4595 035074 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4596 035075 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4597 035076 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4598 035077 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4599 035100 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4600 035101 SUB1B: RANDOM^
4601 035101 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4602 035102 270 02 0 00 060657 ADD AC,[142536475076]
4603 035103 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4604 035104 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
4605 035105 403 03 0 00 000000 SUB1C: SETZB AC1,RAN1 ;CLEAR C(AC).
4606 035106 210 04 0 00 061125 MOVN AC2,RAN ;ANY NUM FROM 0 = 2'S COMP OF THAT NUM.
4607 035107 274 03 0 00 000002 SUB AC1,AC ;SUBTRACT RAN FROM 0.
4608 035110 312 03 0 00 000004 CAME AC1,AC2 ;C(AC) SHOULD = SIM. ANS.
4609 035111 011 00 0 00 000000 EERR ,RAN1
4610 LOOP SUB1B,SUB1C^
4611 035112 367 01 0 00 035101 SOJG AC-1,SUB1B ;ITERATION COUNTER
4612 035113 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4613 035114 321 01 0 00 035105 JUMPL AC-1,SUB1C ;LOOP ON ERROR SWITCH ^
4614
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 76
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0129
4615
4616 ;TEST SUB. CHECK C(AC) FOR CORRECT DATA.
4617 ;SUB RAN FROM RAN.
4618
4619 000002 AC=2
4620 035115 SUB2A: SETUP 100,0^
4621 000003 AC1=<AC+1>&17
4622 000004 AC2=<AC+2>&17
4623 000005 AC3=<AC+3>&17
4624 000006 AC4=<AC+4>&17
4625 000007 AC5=<AC+5>&17
4626 000000 RAN1=<AC-2>&17
4627 035115 201 01 0 00 035115 MOVEI AC-1,.
4628 035116 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4629 035117 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4630 035120 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4631 035121 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4632 035122 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4633 035123 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4634 035124 SUB2B: RANDOM^
4635 035124 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4636 035125 270 02 0 00 060657 ADD AC,[142536475076]
4637 035126 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4638 035127 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
4639 035130 200 03 0 00 000002 SUB2C: MOVE AC1,AC ;MAKE C(E) = C(AC).
4640 035131 274 02 0 00 000003 SUB AC,AC1 ;SUB RAN FROM RAN.
4641 035132 312 02 0 00 060660 CAME AC,[0] ;C(AC) SHOULD = 0.
4642 035133 011 00 0 00 061125 EERR ,RAN
4643 LOOP SUB2B,SUB2C^
4644 035134 367 01 0 00 035124 SOJG AC-1,SUB2B ;ITERATION COUNTER
4645 035135 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4646 035136 321 01 0 00 035130 JUMPL AC-1,SUB2C ;LOOP ON ERROR SWITCH ^
4647
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 77
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0130
4648
4649 ;TEST SUBM. WHERE E IS AN AC.
4650 ;RAN TO 0 CONDITION.
4651
4652 000007 AC=7
4653 035137 SUBM1: SETUP 100,0^
4654 000010 AC1=<AC+1>&17
4655 000011 AC2=<AC+2>&17
4656 000012 AC3=<AC+3>&17
4657 000013 AC4=<AC+4>&17
4658 000014 AC5=<AC+5>&17
4659 000005 RAN1=<AC-2>&17
4660 035137 201 06 0 00 035137 MOVEI AC-1,.
4661 035140 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4662 035141 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4663 035142 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4664 035143 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4665 035144 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4666 035145 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4667 035146 SUBM2: RANDOM^
4668 035146 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4669 035147 270 07 0 00 060657 ADD AC,[142536475076]
4670 035150 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4671 035151 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
4672 035152 403 10 0 00 000005 SUBM3: SETZB AC1,RAN1 ;CLEAR C(AC).
4673 035153 210 11 0 00 000007 MOVN AC2,AC ;SIM SUB..RAN FROM 0 = 2'S COMP RAN.
4674 035154 276 10 0 00 000007 SUBM AC1,AC ;DO SUBM.
4675 035155 312 11 0 00 000007 CAME AC2,AC ;C(E) SHOULD = SIM. ANS.
4676 035156 012 00 0 00 000005 EERRM ,RAN1
4677 LOOP SUBM2,SUBM3^
4678 035157 367 06 0 00 035146 SOJG AC-1,SUBM2 ;ITERATION COUNTER
4679 035160 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4680 035161 321 06 0 00 035152 JUMPL AC-1,SUBM3 ;LOOP ON ERROR SWITCH ^
4681
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 78
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0131
4682 ;TEST SUBM. SHERE E IS AN AC.
4683 ;0 TO RAN CONDITION.
4684
4685 000010 AC=10
4686 035162 SUBM1A: SETUP 100,0^
4687 000011 AC1=<AC+1>&17
4688 000012 AC2=<AC+2>&17
4689 000013 AC3=<AC+3>&17
4690 000014 AC4=<AC+4>&17
4691 000015 AC5=<AC+5>&17
4692 000006 RAN1=<AC-2>&17
4693 035162 201 07 0 00 035162 MOVEI AC-1,.
4694 035163 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4695 035164 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4696 035165 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4697 035166 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4698 035167 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4699 035170 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4700 035171 SUBM2A: RANDOM^
4701 035171 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4702 035172 270 10 0 00 060657 ADD AC,[142536475076]
4703 035173 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4704 035174 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
4705 035175 200 12 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
4706 035176 403 11 0 00 000006 SUBM3A: SETZB AC1,RAN1 ;CLEAR C(E).
4707 035177 276 10 0 00 000011 SUBM AC,AC1 ;DO SUBM...0 FROM RAN = RAN.
4708 035200 312 12 0 00 000011 CAME AC2,AC1 ;C(E) SHOULD = ORIG C(AC).
4709 035201 002 06 0 00 061125 ERRM RAN1,RAN
4710 035202 312 10 0 00 061125 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
4711 035203 002 06 0 00 061125 ERRM RAN1,RAN
4712 LOOP SUBM2A,SUBM3A^
4713 035204 367 07 0 00 035171 SOJG AC-1,SUBM2A ;ITERATION COUNTER
4714 035205 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4715 035206 321 07 0 00 035176 JUMPL AC-1,SUBM3A ;LOOP ON ERROR SWITCH ^
4716
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 79
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0132
4717
4718 ;TEST SUBM. WHERE E IS AN AC.
4719 ;RAN TO RAN CONDITION.
4720
4721 000011 AC=11
4722 035207 SUBM1B: SETUP 100,0^
4723 000012 AC1=<AC+1>&17
4724 000013 AC2=<AC+2>&17
4725 000014 AC3=<AC+3>&17
4726 000015 AC4=<AC+4>&17
4727 000016 AC5=<AC+5>&17
4728 000007 RAN1=<AC-2>&17
4729 035207 201 10 0 00 035207 MOVEI AC-1,.
4730 035210 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4731 035211 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4732 035212 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4733 035213 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4734 035214 240 10 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4735 035215 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4736 035216 SUBM2B: RANDOM^
4737 035216 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4738 035217 270 11 0 00 060657 ADD AC,[142536475076]
4739 035220 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4740 035221 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
4741 035222 200 12 0 00 000011 SUBM3B: MOVE AC1,AC ;MAKE C(E) = C(AC).
4742 035223 276 11 0 00 000012 SUBM AC,AC1 ;DO SUBM.
4743 035224 312 12 0 00 060660 CAME AC1,[0] ;C(E) SHOULD = 0.
4744 035225 012 00 0 00 061125 EERRM ,RAN
4745 035226 312 11 0 00 061125 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
4746 035227 012 00 0 00 061125 EERRM ,RAN
4747 LOOP SUBM2B,SUBM3B^
4748 035230 367 10 0 00 035216 SOJG AC-1,SUBM2B ;ITERATION COUNTER
4749 035231 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4750 035232 321 10 0 00 035222 JUMPL AC-1,SUBM3B ;LOOP ON ERROR SWITCH ^
4751
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 80
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0133
4752
4753 ;TEST SUBI. CHECK C(AC) FOR CORRECT DATA.
4754 ;0 TO RAN CONDITION.
4755
4756 000010 AC=10
4757 035233 SUBI1: SETUP 20,0^
4758 000011 AC1=<AC+1>&17
4759 000012 AC2=<AC+2>&17
4760 000013 AC3=<AC+3>&17
4761 000014 AC4=<AC+4>&17
4762 000015 AC5=<AC+5>&17
4763 000006 RAN1=<AC-2>&17
4764 035233 201 07 0 00 035233 MOVEI AC-1,.
4765 035234 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4766 035235 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4767 035236 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4768 035237 201 07 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
4769 035240 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4770 035241 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4771 035242 SUBI2: RANDOM^
4772 035242 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4773 035243 270 10 0 00 060657 ADD AC,[142536475076]
4774 035244 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4775 035245 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
4776 035246 275 10 0 00 000000 SUBI3: SUBI AC,0 ;DO SUBI..0 FROM RAN = RAN.
4777 035247 312 10 0 00 061125 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
4778 035250 013 00 0 00 000000 EERRI ,0
4779 LOOP SUBI2,SUBI3^
4780 035251 367 07 0 00 035242 SOJG AC-1,SUBI2 ;ITERATION COUNTER
4781 035252 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4782 035253 321 07 0 00 035246 JUMPL AC-1,SUBI3 ;LOOP ON ERROR SWITCH ^
4783
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 81
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0134
4784
4785 ;TEST SUBI. CHECK C(AC) FOR CORRECT DATA.
4786 ;RAN TO 0 CONDITION.
4787
4788 000010 AC=10
4789 035254 SUBI1A: SETUP 20,0^
4790 000011 AC1=<AC+1>&17
4791 000012 AC2=<AC+2>&17
4792 000013 AC3=<AC+3>&17
4793 000014 AC4=<AC+4>&17
4794 000015 AC5=<AC+5>&17
4795 000006 RAN1=<AC-2>&17
4796 035254 201 07 0 00 035254 MOVEI AC-1,.
4797 035255 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4798 035256 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4799 035257 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4800 035260 201 07 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
4801 035261 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4802 035262 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4803 035263 SUBI2A: RANDOM^
4804 035263 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4805 035264 270 10 0 00 060657 ADD AC,[142536475076]
4806 035265 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4807 035266 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
4808 035267 403 11 0 00 000006 SUBI3A: SETZB AC1,RAN1 ;CLEAR C(AC).
4809 035270 211 12 0 10 000000 MOVNI AC2,(AC) ;SIM SUB..RAN FROM 0 = 2'S COMP RAN.
4810 035271 275 11 0 10 000000 SUBI AC1,(AC) ;DO SUBI.
4811 035272 312 11 0 00 000012 CAME AC1,AC2 ;C(AC) SHOULD = SIM ANS.
4812 035273 003 06 0 10 000000 ERRI RAN1,(AC)
4813 LOOP SUBI2A,SUBI3A^
4814 035274 367 07 0 00 035263 SOJG AC-1,SUBI2A ;ITERATION COUNTER
4815 035275 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4816 035276 321 07 0 00 035267 JUMPL AC-1,SUBI3A ;LOOP ON ERROR SWITCH ^
4817
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 82
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0135
4818
4819 ;TEST SUBI. CHECK C(AC) FOR CORRECT DATA.
4820 ;RAN TO RAN CONDITION.
4821
4822 000010 AC=10
4823 035277 SUBI1B: SETUP 20,0^
4824 000011 AC1=<AC+1>&17
4825 000012 AC2=<AC+2>&17
4826 000013 AC3=<AC+3>&17
4827 000014 AC4=<AC+4>&17
4828 000015 AC5=<AC+5>&17
4829 000006 RAN1=<AC-2>&17
4830 035277 201 07 0 00 035277 MOVEI AC-1,.
4831 035300 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4832 035301 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4833 035302 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4834 035303 201 07 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
4835 035304 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4836 035305 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4837 035306 SUBI2B: RANDOM^
4838 035306 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4839 035307 270 10 0 00 060657 ADD AC,[142536475076]
4840 035310 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4841 035311 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
4842 035312 200 06 0 00 000010 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
4843 035313 200 11 0 00 000010 SUBI3B: MOVE AC1,AC ;SIMULATE A
4844 035314 404 11 0 00 060672 AND AC1,[XWD -1,0] ;SUBI RAN FROM RAN.
4845 035315 275 10 0 10 000000 SUBI AC,(AC) ;DO SUBI.
4846 035316 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD = SIM. ANS.
4847 035317 003 06 0 06 000000 ERRI RAN1,(RAN1)
4848 LOOP SUBI2B,SUBI3B^
4849 035320 367 07 0 00 035306 SOJG AC-1,SUBI2B ;ITERATION COUNTER
4850 035321 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4851 035322 321 07 0 00 035313 JUMPL AC-1,SUBI3B ;LOOP ON ERROR SWITCH ^
4852
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 83
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0136
4853
4854 ;TEST SUBB. CHECK THAT C(AC) = C(E) AND C(AC)
4855 ;= CORRECT DATA.
4856 ;0 TO RAN.
4857
4858 000010 AC=10
4859 035323 SUBB1: SETUP 20,0^
4860 000011 AC1=<AC+1>&17
4861 000012 AC2=<AC+2>&17
4862 000013 AC3=<AC+3>&17
4863 000014 AC4=<AC+4>&17
4864 000015 AC5=<AC+5>&17
4865 000006 RAN1=<AC-2>&17
4866 035323 201 07 0 00 035323 MOVEI AC-1,.
4867 035324 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4868 035325 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4869 035326 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4870 035327 201 07 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
4871 035330 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4872 035331 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4873 035332 SUBB2: RANDOM^
4874 035332 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4875 035333 270 10 0 00 060657 ADD AC,[142536475076]
4876 035334 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4877 035335 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
4878 035336 403 11 0 00 000006 SUBB3: SETZB AC1,RAN1 ;CLEAR C(E).
4879 035337 277 10 0 00 000011 SUBB AC,AC1 ;DO SUBB..0 FROM RAN = RAN.
4880 035340 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD = C(E).
4881 035341 001 06 0 00 061125 ERR RAN1,RAN
4882 035342 312 10 0 00 061125 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
4883 035343 001 06 0 00 061125 ERR RAN1,RAN
4884 LOOP SUBB2,SUBB3^
4885 035344 367 07 0 00 035332 SOJG AC-1,SUBB2 ;ITERATION COUNTER
4886 035345 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4887 035346 321 07 0 00 035336 JUMPL AC-1,SUBB3 ;LOOP ON ERROR SWITCH ^
4888
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 84
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0137
4889
4890 ;TEST SUBB. CHECK C(AC) = C(E) AND C(AC) FOR
4891 ;CORRECT DATA.
4892 ;RAN TO 0 CONDITION.
4893
4894 000010 AC=10
4895 035347 SUBB1A: SETUP 20,0^
4896 000011 AC1=<AC+1>&17
4897 000012 AC2=<AC+2>&17
4898 000013 AC3=<AC+3>&17
4899 000014 AC4=<AC+4>&17
4900 000015 AC5=<AC+5>&17
4901 000006 RAN1=<AC-2>&17
4902 035347 201 07 0 00 035347 MOVEI AC-1,.
4903 035350 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4904 035351 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4905 035352 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4906 035353 201 07 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
4907 035354 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4908 035355 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4909 035356 SUBB2A: RANDOM^
4910 035356 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4911 035357 270 10 0 00 060657 ADD AC,[142536475076]
4912 035360 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4913 035361 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
4914 035362 403 11 0 00 000006 SUBB3A: SETZB AC1,RAN1 ;CLEAR C(AC).
4915 035363 210 12 0 00 000010 MOVN AC2,AC ;SIMULATE SUB...RAN FROM 0 = 2'S COMP RAN.
4916 035364 277 11 0 00 000010 SUBB AC1,AC ;DO SUBB.
4917 035365 312 11 0 00 000010 CAME AC1,AC ;C(AC) SHOULD = C(E).
4918 035366 011 00 0 00 000006 EERR ,RAN1
4919 035367 312 11 0 00 000012 CAME AC1,AC2 ;C(AC) SHOULD = SIM. ANS.
4920 035370 011 00 0 00 000006 EERR ,RAN1
4921 LOOP SUBB2A,SUBB3A^
4922 035371 367 07 0 00 035356 SOJG AC-1,SUBB2A ;ITERATION COUNTER
4923 035372 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4924 035373 321 07 0 00 035362 JUMPL AC-1,SUBB3A ;LOOP ON ERROR SWITCH ^
4925
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 85
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0138
4926
4927 ;TEST SUBB. CHECK C(AC) = C(E) AND FOR
4928 ;CORRECT DATA IN AC.
4929 ;RAN TO RAN CONDITION.
4930
4931 000010 AC=10
4932 035374 SUBB1B: SETUP 40,0^
4933 000011 AC1=<AC+1>&17
4934 000012 AC2=<AC+2>&17
4935 000013 AC3=<AC+3>&17
4936 000014 AC4=<AC+4>&17
4937 000015 AC5=<AC+5>&17
4938 000006 RAN1=<AC-2>&17
4939 035374 201 07 0 00 035374 MOVEI AC-1,.
4940 035375 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4941 035376 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4942 035377 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4943 035400 201 07 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
4944 035401 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4945 035402 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4946 035403 SUBB2B: RANDOM^
4947 035403 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4948 035404 270 10 0 00 060657 ADD AC,[142536475076]
4949 035405 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4950 035406 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
4951 035407 200 11 0 00 000010 SUBB3B: MOVE AC1,AC ;MAKE C(E) = C(AC).
4952 035410 277 10 0 00 000011 SUBB AC,AC1 ;DO SUBB..RAN FROM RAN = 0.
4953 035411 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD = C(E).
4954 035412 011 00 0 00 061125 EERR ,RAN
4955 035413 312 10 0 00 060660 CAME AC,[0] ;C(AC) SHOULD = 0.
4956 035414 011 00 0 00 061125 EERR ,RAN
4957 LOOP SUBB2B,SUBB3B^
4958 035415 367 07 0 00 035403 SOJG AC-1,SUBB2B ;ITERATION COUNTER
4959 035416 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4960 035417 321 07 0 00 035407 JUMPL AC-1,SUBB3B ;LOOP ON ERROR SWITCH ^
4961
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 86
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0139
4962
4963
4964 ;TEST MOVEI. CHECK C(AC) FOR CORRECT DATA.
4965 ;RAN TO RAN1.
4966
4967 000002 AC=2
4968 035420 MVEI1: SETUP 20,0^
4969 000003 AC1=<AC+1>&17
4970 000004 AC2=<AC+2>&17
4971 000005 AC3=<AC+3>&17
4972 000006 AC4=<AC+4>&17
4973 000007 AC5=<AC+5>&17
4974 000000 RAN1=<AC-2>&17
4975 035420 201 01 0 00 035420 MOVEI AC-1,.
4976 035421 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4977 035422 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4978 035423 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4979 035424 201 01 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
4980 035425 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4981 035426 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4982 035427 MVEI2: RANDOM^
4983 035427 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4984 035430 270 02 0 00 060657 ADD AC,[142536475076]
4985 035431 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4986 035432 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
4987 035433 200 04 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
4988 035434 207 00 0 00 000002 MVEI3: MOVSS RAN1,AC ;MAKE C(AC) = SEC RAN NUM.
4989 035435 200 03 0 00 061125 MOVE AC1,RAN ;SIMULATE
4990 035436 242 03 0 00 000022 LSH AC1,22 ;A
4991 035437 242 03 0 00 777756 LSH AC1,-22 ;MOVEI.
4992 035440 201 02 0 04 000000 MOVEI AC,(AC2) ;DO A MOVEI.
4993 035441 312 02 0 00 000003 CAME AC,AC1 ;C(AC) SHOULD = SIM. ANS.
4994 035442 003 00 0 04 000000 ERRI RAN1,(AC2)
4995 LOOP MVEI2,MVEI3^
4996 035443 367 01 0 00 035427 SOJG AC-1,MVEI2 ;ITERATION COUNTER
4997 035444 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4998 035445 321 01 0 00 035434 JUMPL AC-1,MVEI3 ;LOOP ON ERROR SWITCH ^
4999
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 87
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0140
5000
5001 ;TEST MOVN. TWO MOVN INSTRUCTIONS SHOULD NOT CHANGE C(AC).
5002
5003 000002 AC=2
5004 035446 MOVN1: SETUP 200,0^
5005 000003 AC1=<AC+1>&17
5006 000004 AC2=<AC+2>&17
5007 000005 AC3=<AC+3>&17
5008 000006 AC4=<AC+4>&17
5009 000007 AC5=<AC+5>&17
5010 000000 RAN1=<AC-2>&17
5011 035446 201 01 0 00 035446 MOVEI AC-1,.
5012 035447 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5013 035450 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5014 035451 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5015 035452 201 01 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5016 035453 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5017 035454 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5018 035455 MOVN2: RANDOM^
5019 035455 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5020 035456 270 02 0 00 060657 ADD AC,[142536475076]
5021 035457 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5022 035460 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
5023 MOVN3: REPEAT 3, ;DO 6 X (MOVN RAN TO RAN).
5024 < MOVN AC,AC
5025 MOVN AC,AC>
5026 035461 210 02 0 00 000002 MOVN AC,AC
5027 035462 210 02 0 00 000002 MOVN AC,AC
5028 035463 210 02 0 00 000002 MOVN AC,AC
5029 035464 210 02 0 00 000002 MOVN AC,AC
5030 035465 210 02 0 00 000002 MOVN AC,AC
5031 035466 210 02 0 00 000002 MOVN AC,AC
5032 035467 312 02 0 00 061125 CAME AC,RAN ;C(AC) SHOULD STILL = RAN NUM.
5033 035470 004 02 0 00 061125 ERROR AC,RAN
5034 LOOP MOVN2,MOVN3^
5035 035471 367 01 0 00 035455 SOJG AC-1,MOVN2 ;ITERATION COUNTER
5036 035472 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5037 035473 321 01 0 00 035461 JUMPL AC-1,MOVN3 ;LOOP ON ERROR SWITCH ^
5038
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 88
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0141
5039
5040 ;TEST MOVNI. CHECK C(AC) FOR CORRECT DATA.
5041 ;RAN TO RAN1.
5042
5043 000002 AC=2
5044 035474 MVNI1: SETUP 40,0^
5045 000003 AC1=<AC+1>&17
5046 000004 AC2=<AC+2>&17
5047 000005 AC3=<AC+3>&17
5048 000006 AC4=<AC+4>&17
5049 000007 AC5=<AC+5>&17
5050 000000 RAN1=<AC-2>&17
5051 035474 201 01 0 00 035474 MOVEI AC-1,.
5052 035475 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5053 035476 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5054 035477 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5055 035500 201 01 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
5056 035501 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5057 035502 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5058 035503 MVNI2: RANDOM^
5059 035503 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5060 035504 270 02 0 00 060657 ADD AC,[142536475076]
5061 035505 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5062 035506 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
5063 035507 200 04 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
5064 035510 207 00 0 00 000002 MVNI3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
5065 035511 201 03 0 04 000000 MOVEI AC1,(AC2) ;SIMULATE
5066 035512 450 03 0 00 000000 SETCA AC1, ;A
5067 035513 270 03 0 00 060666 ADD AC1,[1] ;MOVNI INST.
5068 035514 211 02 0 04 000000 MOVNI AC,(AC2) ;DO A MOVNI.
5069 035515 312 02 0 00 000003 CAME AC,AC1 ;C(AC) SHOULD = SIM. ANS.
5070 035516 003 00 0 04 000000 ERRI RAN1,(AC2)
5071 LOOP MVNI2,MVNI3^
5072 035517 367 01 0 00 035503 SOJG AC-1,MVNI2 ;ITERATION COUNTER
5073 035520 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5074 035521 321 01 0 00 035510 JUMPL AC-1,MVNI3 ;LOOP ON ERROR SWITCH ^
5075
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 89
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0142
5076
5077 ;TEST MOVNM. WHERE E IS AN AC.
5078 ;CHECK C(E) FOR CORRECT DATA.
5079 ;RAN TO RAN.
5080
5081 000002 AC=2
5082 035522 MVNM1: SETUP 100,0^
5083 000003 AC1=<AC+1>&17
5084 000004 AC2=<AC+2>&17
5085 000005 AC3=<AC+3>&17
5086 000006 AC4=<AC+4>&17
5087 000007 AC5=<AC+5>&17
5088 000000 RAN1=<AC-2>&17
5089 035522 201 01 0 00 035522 MOVEI AC-1,.
5090 035523 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5091 035524 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5092 035525 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5093 035526 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5094 035527 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5095 035530 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5096 035531 MVNM2: RANDOM^
5097 035531 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5098 035532 270 02 0 00 060657 ADD AC,[142536475076]
5099 035533 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5100 035534 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
5101 035535 200 00 0 00 061125 MOVE RAN1,RAN ;SAVE RAN IN AN AC.
5102 035536 200 03 0 00 000002 MVNM3: MOVE AC1,AC ;MAKE C(E) = C(AC).
5103 REPEAT 3, ;DO 3 X 2(MOVNM).
5104 < MOVNM AC,AC1
5105 MOVNM AC1,AC>
5106 035537 212 02 0 00 000003 MOVNM AC,AC1
5107 035540 212 03 0 00 000002 MOVNM AC1,AC
5108 035541 212 02 0 00 000003 MOVNM AC,AC1
5109 035542 212 03 0 00 000002 MOVNM AC1,AC
5110 035543 212 02 0 00 000003 MOVNM AC,AC1
5111 035544 212 03 0 00 000002 MOVNM AC1,AC
5112 035545 312 00 0 00 000002 CAME RAN1,AC ;C(E) SHOULD = ORIG C(E).
5113 035546 012 00 0 00 061125 EERRM ,RAN
5114 LOOP MVNM2,MVNM3^
5115 035547 367 01 0 00 035531 SOJG AC-1,MVNM2 ;ITERATION COUNTER
5116 035550 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5117 035551 321 01 0 00 035536 JUMPL AC-1,MVNM3 ;LOOP ON ERROR SWITCH ^
5118
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 90
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0143
5119
5120 ;TEST MOVNS. WHERE E IS AN AC.
5121 ;CHECK PROPER STORING OF C(E) INTO AC.
5122 ;TWO MOVNS = ORIG NUMBER.
5123 ;C(E) = RAN.
5124
5125 000003 AC=3
5126 035552 MVNS1: SETUP 100,0^
5127 000004 AC1=<AC+1>&17
5128 000005 AC2=<AC+2>&17
5129 000006 AC3=<AC+3>&17
5130 000007 AC4=<AC+4>&17
5131 000010 AC5=<AC+5>&17
5132 000001 RAN1=<AC-2>&17
5133 035552 201 02 0 00 035552 MOVEI AC-1,.
5134 035553 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5135 035554 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5136 035555 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5137 035556 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5138 035557 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5139 035560 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5140 035561 MVNS2: RANDOM^
5141 035561 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5142 035562 270 03 0 00 060657 ADD AC,[142536475076]
5143 035563 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5144 035564 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
5145 035565 200 05 0 00 061125 MOVE AC2,RAN ;PUT C(RAN) INTO AC2 FOR FUTURE COMPARE.
5146 035566 477 04 0 00 000001 MVNS3: SETOB AC1,RAN1 ;MAKE C(AC) = -1.
5147 REPEAT 3, ;DO 3 X 2(MOVNS).
5148 < MOVNS AC1,AC
5149 MOVNS AC1,AC>
5150 035567 213 04 0 00 000003 MOVNS AC1,AC
5151 035570 213 04 0 00 000003 MOVNS AC1,AC
5152 035571 213 04 0 00 000003 MOVNS AC1,AC
5153 035572 213 04 0 00 000003 MOVNS AC1,AC
5154 035573 213 04 0 00 000003 MOVNS AC1,AC
5155 035574 213 04 0 00 000003 MOVNS AC1,AC
5156 035575 312 04 0 00 000003 CAME AC1,AC ;C(AC) SHOULD = C(E).
5157 035576 012 00 0 00 000001 EERRM ,RAN1
5158 035577 312 05 0 00 000003 CAME AC2,AC ;C(E) SHOULD = ORIG. C(E).
5159 035600 012 00 0 00 000001 EERRM ,RAN1
5160 LOOP MVNS2,MVNS3^
5161 035601 367 02 0 00 035561 SOJG AC-1,MVNS2 ;ITERATION COUNTER
5162 035602 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5163 035603 321 02 0 00 035566 JUMPL AC-1,MVNS3 ;LOOP ON ERROR SWITCH ^
5164
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 91
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0144
5165
5166 ;TEST MOVNS. WHERE E IS AN AC.
5167 ;CHECK FOR NOT LOADING C(E) INTO AC WHEN AC= 0.
5168 ;TWO MOVNS = ORIGINAL NUM.
5169 ;C(E) = RAN.
5170
5171 000010 AC=10
5172 035604 MVNSA: SETUP 40,0^
5173 000011 AC1=<AC+1>&17
5174 000012 AC2=<AC+2>&17
5175 000013 AC3=<AC+3>&17
5176 000014 AC4=<AC+4>&17
5177 000015 AC5=<AC+5>&17
5178 000006 RAN1=<AC-2>&17
5179 035604 201 07 0 00 035604 MOVEI AC-1,.
5180 035605 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5181 035606 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5182 035607 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5183 035610 201 07 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
5184 035611 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5185 035612 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5186 035613 MVNSB: RANDOM^
5187 035613 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5188 035614 270 10 0 00 060657 ADD AC,[142536475076]
5189 035615 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5190 035616 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
5191 035617 200 12 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
5192 035620 477 00 0 00 000006 MVNSC: SETOB RAN1 ;MAKE C(AC) = -1.
5193 REPEAT 3, ;DO 3 X 2(MOVNS).
5194 < MOVNS AC
5195 MOVNS AC>
5196 035621 213 00 0 00 000010 MOVNS AC
5197 035622 213 00 0 00 000010 MOVNS AC
5198 035623 213 00 0 00 000010 MOVNS AC
5199 035624 213 00 0 00 000010 MOVNS AC
5200 035625 213 00 0 00 000010 MOVNS AC
5201 035626 213 00 0 00 000010 MOVNS AC
5202 035627 316 00 0 00 000010 CAMN AC ;C(AC) SHOULD NOT = C(E).
5203 035630 012 00 0 00 000006 EERRM ,RAN1
5204 035631 312 12 0 00 000010 CAME AC2,AC ;C(AC) SHOULD = ORIG C(AC).
5205 035632 012 00 0 00 000006 EERRM ,RAN1
5206 LOOP MVNSB, MVNSC^
5207 035633 367 07 0 00 035613 SOJG AC-1,MVNSB ;ITERATION COUNTER
5208 035634 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5209 035635 321 07 0 00 035620 JUMPL AC-1,MVNSC ;LOOP ON ERROR SWITCH ^
5210
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 92
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0145
5211
5212 ;TEST MOVM. CHECK F(AC) FOR CORRECT DATA.
5213 ;RAN TO RAN1.
5214
5215 000007 AC=7
5216 035636 MVM1: SETUP 40,0^
5217 000010 AC1=<AC+1>&17
5218 000011 AC2=<AC+2>&17
5219 000012 AC3=<AC+3>&17
5220 000013 AC4=<AC+4>&17
5221 000014 AC5=<AC+5>&17
5222 000005 RAN1=<AC-2>&17
5223 035636 201 06 0 00 035636 MOVEI AC-1,.
5224 035637 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5225 035640 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5226 035641 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5227 035642 201 06 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
5228 035643 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5229 035644 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5230 035645 MVM2: RANDOM^
5231 035645 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5232 035646 270 07 0 00 060657 ADD AC,[142536475076]
5233 035647 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5234 035650 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
5235 035651 207 05 0 00 000007 MVM3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
5236 035652 200 10 0 00 061125 MOVE AC1,RAN ;C(E) = 1ST RAN NUM.
5237 035653 460 11 0 00 000010 SETCM AC2,AC1 ;SIMULATE
5238 035654 607 10 0 00 400000 TLNN AC1,400000 ;A
5239 035655 200 11 0 00 000010 MOVE AC2,AC1 ;MOVM
5240 035656 603 10 0 00 400000 TLNE AC1,400000 ;INST.
5241 035657 270 11 0 00 060666 ADD AC2,[1]
5242 035660 214 07 0 00 000010 MOVM AC,AC1 ;DO A MOVM.
5243 035661 312 07 0 00 000011 CAME AC,AC2 ;C(AC) SHOULD = SIM. ANS.
5244 035662 011 00 0 00 000005 EERR ,RAN1
5245 LOOP MVM2, MVM3^
5246 035663 367 06 0 00 035645 SOJG AC-1,MVM2 ;ITERATION COUNTER
5247 035664 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5248 035665 321 06 0 00 035651 JUMPL AC-1,MVM3 ;LOOP ON ERROR SWITCH ^
5249
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 93
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0146
5250
5251 ;TEST MOVMI. CHECK C(AC) FOR CORRECT DATA.
5252 ;RAN TO RAN1.
5253
5254 000010 AC=10
5255 035666 MVMI1: SETUP 40,0^
5256 000011 AC1=<AC+1>&17
5257 000012 AC2=<AC+2>&17
5258 000013 AC3=<AC+3>&17
5259 000014 AC4=<AC+4>&17
5260 000015 AC5=<AC+5>&17
5261 000006 RAN1=<AC-2>&17
5262 035666 201 07 0 00 035666 MOVEI AC-1,.
5263 035667 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5264 035670 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5265 035671 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5266 035672 201 07 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
5267 035673 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5268 035674 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5269 035675 MVMI2: RANDOM^
5270 035675 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5271 035676 270 10 0 00 060657 ADD AC,[142536475076]
5272 035677 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5273 035700 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
5274 035701 201 11 0 00 000010 MVMI3: MOVEI AC1,AC ;SIMULATE A MOVMI INST...MOVEI.
5275 035702 207 06 0 00 000010 MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
5276 035703 215 10 0 11 000000 MOVMI AC,(AC1) ;DO MOVMI.
5277 035704 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD = SIM ANS.
5278 035705 003 06 0 11 000000 ERRI RAN1,(AC1)
5279 LOOP MVMI2, MVMI3^
5280 035706 367 07 0 00 035675 SOJG AC-1,MVMI2 ;ITERATION COUNTER
5281 035707 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5282 035710 321 07 0 00 035701 JUMPL AC-1,MVMI3 ;LOOP ON ERROR SWITCH ^
5283
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 94
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0147
5284
5285 ;TEST MOVMM. CHECK C(AC) + C(E) FOR CORRECT DATA.
5286 ;RAN TO RAN1.
5287
5288 000011 AC=11
5289 035711 MVMM1: SETUP 200,0^
5290 000012 AC1=<AC+1>&17
5291 000013 AC2=<AC+2>&17
5292 000014 AC3=<AC+3>&17
5293 000015 AC4=<AC+4>&17
5294 000016 AC5=<AC+5>&17
5295 000007 RAN1=<AC-2>&17
5296 035711 201 10 0 00 035711 MOVEI AC-1,.
5297 035712 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5298 035713 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5299 035714 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5300 035715 201 10 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5301 035716 240 10 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5302 035717 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5303 035720 MVMM2: RANDOM^
5304 035720 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5305 035721 270 11 0 00 060657 ADD AC,[142536475076]
5306 035722 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5307 035723 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
5308 035724 207 07 0 00 000011 MVMM3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
5309 035725 200 12 0 00 061125 MOVE AC1,RAN ;C(E) = RAN.
5310 035726 460 13 0 00 000011 SETCM AC2,AC ;SIMULATE
5311 035727 607 11 0 00 400000 TLNN AC,400000 ;A
5312 035730 200 13 0 00 000011 MOVE AC2,AC ;MOVMM
5313 035731 603 11 0 00 400000 TLNE AC,400000 ;INST
5314 035732 270 13 0 00 060666 ADD AC2,[1]
5315 035733 216 11 0 00 000012 MOVMM AC,AC1 ;DO A MOVMM INST.
5316 035734 312 11 0 00 000007 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
5317 035735 012 00 0 00 000007 EERRM ,RAN1
5318 035736 312 12 0 00 000013 CAME AC1,AC2 ;C(E) SHOULD = SIM. ANS.
5319 035737 012 00 0 00 000007 EERRM ,RAN1
5320 LOOP MVMM2, MVMM3^
5321 035740 367 10 0 00 035720 SOJG AC-1,MVMM2 ;ITERATION COUNTER
5322 035741 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5323 035742 321 10 0 00 035724 JUMPL AC-1,MVMM3 ;LOOP ON ERROR SWITCH ^
5324
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 95
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0148
5325
5326 ;TEST MOVMS. CHECK C(E) FOR CORRECT DATA.
5327 ;RAN TO RAN1.
5328
5329 000010 AC=10
5330 035743 MVMS1: SETUP 200,0^
5331 000011 AC1=<AC+1>&17
5332 000012 AC2=<AC+2>&17
5333 000013 AC3=<AC+3>&17
5334 000014 AC4=<AC+4>&17
5335 000015 AC5=<AC+5>&17
5336 000006 RAN1=<AC-2>&17
5337 035743 201 07 0 00 035743 MOVEI AC-1,.
5338 035744 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5339 035745 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5340 035746 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5341 035747 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5342 035750 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5343 035751 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5344 035752 MVMS2: RANDOM^
5345 035752 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5346 035753 270 10 0 00 060657 ADD AC,[142536475076]
5347 035754 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5348 035755 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
5349 035756 207 06 0 00 000010 MVMS3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
5350 035757 200 11 0 00 061125 MOVE AC1,RAN ;C(E) = RAN.
5351 035760 460 12 0 00 061125 SETCM AC2,RAN ;SIMULATE
5352 035761 607 11 0 00 400000 TLNN AC1,400000 ;A
5353 035762 200 12 0 00 000011 MOVE AC2,AC1 ;MOVMS
5354 035763 603 11 0 00 400000 TLNE AC1,400000 ;INST.
5355 035764 270 12 0 00 060666 ADD AC2,[1]
5356 035765 217 10 0 00 000011 MOVMS AC,AC1 ;DO A MOVMS.
5357 035766 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD = C(E).
5358 035767 012 00 0 00 000006 EERRM ,RAN1
5359 035770 312 11 0 00 000012 CAME AC1,AC2 ;C(E) SHOULD = SIM. ANS.
5360 035771 012 00 0 00 000006 EERRM ,RAN1
5361 LOOP MVMS2, MVMS3^
5362 035772 367 07 0 00 035752 SOJG AC-1,MVMS2 ;ITERATION COUNTER
5363 035773 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5364 035774 321 07 0 00 035756 JUMPL AC-1,MVMS3 ;LOOP ON ERROR SWITCH ^
5365
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 96
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0149
5366
5367 ;TEST LSH. A LSH LEFT AND A LSH RIGHT SHOULD
5368 ;GIVE THE SAME NUMBER WITH A ZERO SIGN BIT.
5369
5370 000002 AC=2
5371 035775 LSH1P: SETUP 40,0^
5372 000003 AC1=<AC+1>&17
5373 000004 AC2=<AC+2>&17
5374 000005 AC3=<AC+3>&17
5375 000006 AC4=<AC+4>&17
5376 000007 AC5=<AC+5>&17
5377 000000 RAN1=<AC-2>&17
5378 035775 201 01 0 00 035775 MOVEI AC-1,.
5379 035776 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5380 035777 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5381 036000 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5382 036001 201 01 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
5383 036002 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5384 036003 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5385 036004 LSH1PA: RANDOM^
5386 036004 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5387 036005 270 02 0 00 060657 ADD AC,[142536475076]
5388 036006 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5389 036007 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
5390 036010 404 02 0 00 060673 LSH1PB: AND AC,[XWD 377777,-1] ;SIMULATE A LSH LEFT THEN RIGHT.
5391 036011 200 03 0 00 061125 MOVE AC1,RAN ;MOVE RANDOM NUM INTO AN AC
5392 REPEAT 3, ;AND DO 3(LSH LEFT 1 PLACE THEN RIGHT 1 PLACE).
5393 < LSH AC1,1
5394 LSH AC1,-1>
5395 036012 242 03 0 00 000001 LSH AC1,1
5396 036013 242 03 0 00 777777 LSH AC1,-1
5397 036014 242 03 0 00 000001 LSH AC1,1
5398 036015 242 03 0 00 777777 LSH AC1,-1
5399 036016 242 03 0 00 000001 LSH AC1,1
5400 036017 242 03 0 00 777777 LSH AC1,-1
5401 036020 312 03 0 00 000002 CAME AC1,AC ;C(AC1) = SIM. ANS?
5402 036021 004 03 0 00 000002 ERROR AC1,AC ;NO. LSH FAILED.
5403 LOOP LSH1PA,LSH1PB^
5404 036022 367 01 0 00 036004 SOJG AC-1,LSH1PA ;ITERATION COUNTER
5405 036023 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5406 036024 321 01 0 00 036010 JUMPL AC-1,LSH1PB ;LOOP ON ERROR SWITCH ^
5407
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 97
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0150
5408
5409 ;TEST TDN,TDNA. CHECK FOR SKIP/NO SKIP AND
5410 ;NO DATA CHANGE IN AC FOR RAN1 TO RAN CONDITION.
5411
5412 000002 AC=2
5413 036025 TDN1: SETUP 100,0^
5414 000003 AC1=<AC+1>&17
5415 000004 AC2=<AC+2>&17
5416 000005 AC3=<AC+3>&17
5417 000006 AC4=<AC+4>&17
5418 000007 AC5=<AC+5>&17
5419 000000 RAN1=<AC-2>&17
5420 036025 201 01 0 00 036025 MOVEI AC-1,.
5421 036026 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5422 036027 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5423 036030 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5424 036031 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5425 036032 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5426 036033 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5427 036034 TDN2: RANDOM^
5428 036034 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5429 036035 270 02 0 00 060657 ADD AC,[142536475076]
5430 036036 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5431 036037 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
5432 036040 204 03 0 00 000002 TDN3: MOVS AC1,AC ;PUT SECOND RAN. NUM. INTO "E".
5433 036041 610 02 0 00 000003 TDN AC,AC1 ;NO SKIP, NO DATA CHANGE.
5434 036042 254 00 0 00 036044 JRST .+2 ;HERE..GO AROUND ERR UUO.
5435 036043 005 02 0 00 060674 ER AC,[ASCII /TST/];TDN SKIPPED.
5436 036044 614 02 0 00 000003 TDNA AC,AC1 ;SKIP, NO DATA CHANGE.
5437 036045 005 02 0 00 060674 ER AC,[ASCII /TST/]
5438 036046 312 02 0 00 061125 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
5439 036047 001 03 0 00 061125 ERR AC1,RAN
5440 LOOP TDN2,TDN3^
5441 036050 367 01 0 00 036034 SOJG AC-1,TDN2 ;ITERATION COUNTER
5442 036051 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5443 036052 321 01 0 00 036040 JUMPL AC-1,TDN3 ;LOOP ON ERROR SWITCH ^
5444
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 98
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0151
5445
5446 ;TEST TDNN,TDNE. CHECK FOR SKIP/ NO SKIP AND
5447 ;NO DATA CHANGE IN AC FOR RAN TO 0 CONDITION.
5448
5449 000003 AC=3
5450 036053 TDNE1A: SETUP 100,0^
5451 000004 AC1=<AC+1>&17
5452 000005 AC2=<AC+2>&17
5453 000006 AC3=<AC+3>&17
5454 000007 AC4=<AC+4>&17
5455 000010 AC5=<AC+5>&17
5456 000001 RAN1=<AC-2>&17
5457 036053 201 02 0 00 036053 MOVEI AC-1,.
5458 036054 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5459 036055 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5460 036056 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5461 036057 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5462 036060 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5463 036061 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5464 036062 TDNE2A: RANDOM^
5465 036062 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5466 036063 270 03 0 00 060657 ADD AC,[142536475076]
5467 036064 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5468 036065 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
5469 036066 403 04 0 00 000001 TDNE3A: SETZB AC1,RAN1 ;CLEAR C(AC).
5470 036067 616 04 0 00 000003 TDNN AC1,AC ;C(E) + C(AC) =0..NO SKIP.
5471 036070 254 00 0 00 036072 JRST .+2
5472 036071 005 04 0 00 060674 ER AC1,[ASCII /TST/];TDNN SKIPPED.
5473 036072 612 04 0 00 000003 TDNE AC1,AC ;C(E) + C(AC) = 0. SKIP.
5474 036073 005 04 0 00 060674 ER AC1,[ASCII /TST/]
5475 036074 312 04 0 00 060660 CAME AC1,[0] ;C(AC) SHOULD STILL = 0.
5476 036075 001 03 0 00 000001 ERR AC,RAN1
5477 LOOP TDNE2A,TDNE3A^
5478 036076 367 02 0 00 036062 SOJG AC-1,TDNE2A ;ITERATION COUNTER
5479 036077 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5480 036100 321 02 0 00 036066 JUMPL AC-1,TDNE3A ;LOOP ON ERROR SWITCH ^
5481
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 99
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0152
5482
5483 ;TEST TDNN,TDNE. CHECK FOR SKIP/ NO SKIP AND
5484 ;NO DATA CHANGE FOR 0 TO RAN CONDITION.
5485
5486 000004 AC=4
5487 036101 TDNE1B: SETUP 40,0^
5488 000005 AC1=<AC+1>&17
5489 000006 AC2=<AC+2>&17
5490 000007 AC3=<AC+3>&17
5491 000010 AC4=<AC+4>&17
5492 000011 AC5=<AC+5>&17
5493 000002 RAN1=<AC-2>&17
5494 036101 201 03 0 00 036101 MOVEI AC-1,.
5495 036102 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5496 036103 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5497 036104 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5498 036105 201 03 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
5499 036106 240 03 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5500 036107 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5501 036110 TDNE2B: RANDOM^
5502 036110 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5503 036111 270 04 0 00 060657 ADD AC,[142536475076]
5504 036112 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5505 036113 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
5506 036114 400 05 0 00 000000 TDNE3B: SETZ AC1, ;CLEAR C(E).
5507 036115 616 04 0 00 000005 TDNN AC,AC1 ;C(E) + C(AC) = 0. NO SKIP.
5508 036116 254 00 0 00 036120 JRST .+2
5509 036117 005 04 0 00 060674 ER AC,[ASCII /TST/];TDNN SKIPPED.
5510 036120 612 04 0 00 000005 TDNE AC,AC1 ;C(E) + C(AC) = 0. SKIP.
5511 036121 005 04 0 00 060674 ER AC,[ASCII /TST/]
5512 036122 312 04 0 00 061125 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
5513 036123 001 05 0 00 061125 ERR AC1,RAN
5514 LOOP TDNE2B,TDNE3B^
5515 036124 367 03 0 00 036110 SOJG AC-1,TDNE2B ;ITERATION COUNTER
5516 036125 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5517 036126 321 03 0 00 036114 JUMPL AC-1,TDNE3B ;LOOP ON ERROR SWITCH ^
5518
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 100
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0153
5519
5520 ;TEST TDNN,TDNE. CHECK FOR SKIP/ NO SKIP AND
5521 ;NO DATA CHANGE IN AC FOR RAN TO -1 CONDITION.
5522
5523 000005 AC=5
5524 036127 TDNE1C: SETUP 40,0^
5525 000006 AC1=<AC+1>&17
5526 000007 AC2=<AC+2>&17
5527 000010 AC3=<AC+3>&17
5528 000011 AC4=<AC+4>&17
5529 000012 AC5=<AC+5>&17
5530 000003 RAN1=<AC-2>&17
5531 036127 201 04 0 00 036127 MOVEI AC-1,.
5532 036130 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5533 036131 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5534 036132 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5535 036133 201 04 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
5536 036134 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5537 036135 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5538 036136 TDNE2C: RANDOM^
5539 036136 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5540 036137 270 05 0 00 060657 ADD AC,[142536475076]
5541 036140 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5542 036141 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
5543 036142 322 05 0 00 036136 JUMPE AC,TDNE2C ;REJECT IF RAN = 0.
5544 036143 477 06 0 00 000003 TDNE3C: SETOB AC1,RAN1 ;SET C(AC) TO ALL ONES.
5545 036144 612 06 0 00 000005 TDNE AC1,AC ;C(E) + C(AC) NOT = 0..NO SKIP.
5546 036145 254 00 0 00 036147 JRST .+2
5547 036146 005 06 0 00 060674 ER AC1,[ASCII /TST/];TDNE SKIPPED.
5548 036147 616 06 0 00 000005 TDNN AC1,AC ;C(E) + C(AC) NOT = 0..SKIP.
5549 036150 005 06 0 00 060674 ER AC1,[ASCII /TST/]
5550 036151 312 06 0 00 060662 CAME AC1,[-1] ;C(AC) SHOULD = ORIG C(AC).
5551 036152 001 05 0 00 000003 ERR AC,RAN1
5552 LOOP TDNE2C,TDNE3C^
5553 036153 367 04 0 00 036136 SOJG AC-1,TDNE2C ;ITERATION COUNTER
5554 036154 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5555 036155 321 04 0 00 036143 JUMPL AC-1,TDNE3C ;LOOP ON ERROR SWITCH ^
5556
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 101
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0154
5557
5558 ;TEST TDNE,TDNN. CHECK FOR SKIP/ NO SKIP AND
5559 ;NO DATA CHANGE IN AC FOR -1 TO RAN CONDITION.
5560
5561 000006 AC=6
5562 036156 TDNE1D: SETUP 40,0^
5563 000007 AC1=<AC+1>&17
5564 000010 AC2=<AC+2>&17
5565 000011 AC3=<AC+3>&17
5566 000012 AC4=<AC+4>&17
5567 000013 AC5=<AC+5>&17
5568 000004 RAN1=<AC-2>&17
5569 036156 201 05 0 00 036156 MOVEI AC-1,.
5570 036157 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5571 036160 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5572 036161 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5573 036162 201 05 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
5574 036163 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5575 036164 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5576 036165 TDNE2D: RANDOM^
5577 036165 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5578 036166 270 06 0 00 060657 ADD AC,[142536475076]
5579 036167 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5580 036170 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
5581 036171 322 06 0 00 036165 JUMPE AC,TDNE2D ;REJECT IF RAN = 0.
5582 036172 474 07 0 00 000000 TDNE3D: SETO AC1, ;SET C(E) TO ALL ONES.
5583 036173 612 06 0 00 000007 TDNE AC,AC1 ;C(E) + C(AC) NOT = 0..NO SKIP.
5584 036174 254 00 0 00 036176 JRST .+2
5585 036175 005 06 0 00 060674 ER AC,[ASCII /TST/];TDNE SKIPPED.
5586 036176 616 06 0 00 000007 TDNN AC,AC1 ;C(E) + C(AC) NOT = 0..SKIP.
5587 036177 005 06 0 00 060674 ER AC,[ASCII /TST/]
5588 036200 312 06 0 00 061125 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
5589 036201 001 07 0 00 061125 ERR AC1,RAN
5590 LOOP TDNE2D,TDNE3D^
5591 036202 367 05 0 00 036165 SOJG AC-1,TDNE2D ;ITERATION COUNTER
5592 036203 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5593 036204 321 05 0 00 036172 JUMPL AC-1,TDNE3D ;LOOP ON ERROR SWITCH ^
5594
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 102
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0155
5595
5596 ;TEST TDNE,TDNN. CHECK FOR SKIP/ NO SKIP AND
5597 ;NO DATA CHANGE IN AC FOR RAN TO RAN CONDITION.
5598
5599 000007 AC=7
5600 036205 TDNE1E: SETUP 20,0^
5601 000010 AC1=<AC+1>&17
5602 000011 AC2=<AC+2>&17
5603 000012 AC3=<AC+3>&17
5604 000013 AC4=<AC+4>&17
5605 000014 AC5=<AC+5>&17
5606 000005 RAN1=<AC-2>&17
5607 036205 201 06 0 00 036205 MOVEI AC-1,.
5608 036206 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5609 036207 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5610 036210 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5611 036211 201 06 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
5612 036212 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5613 036213 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5614 036214 TDNE2E: RANDOM^
5615 036214 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5616 036215 270 07 0 00 060657 ADD AC,[142536475076]
5617 036216 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5618 036217 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
5619 036220 322 07 0 00 036214 JUMPE AC,TDNE2E ;REJECT IF RAN = 0.
5620 036221 200 10 0 00 000007 TDNE3E: MOVE AC1,AC ;MAKE C(E) = C(AC).
5621 036222 612 07 0 00 000010 TDNE AC,AC1 ;C(E) + C(AC) NOT = 0..NO SKIP.
5622 036223 254 00 0 00 036225 JRST .+2
5623 036224 005 07 0 00 060674 ER AC,[ASCII /TST/];TDNE SKIPPED.
5624 036225 616 07 0 00 000010 TDNN AC,AC1 ;C(E) + C(AC) NOT = 0. SKIP.
5625 036226 005 07 0 00 060674 ER AC,[ASCII /TST/]
5626 036227 312 07 0 00 061125 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
5627 036230 001 10 0 00 061125 ERR AC1,RAN
5628 LOOP TDNE2E,TDNE3E^
5629 036231 367 06 0 00 036214 SOJG AC-1,TDNE2E ;ITERATION COUNTER
5630 036232 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5631 036233 321 06 0 00 036221 JUMPL AC-1,TDNE3E ;LOOP ON ERROR SWITCH ^
5632
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 103
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0156
5633
5634 ;TEST TDNE,TDNN. CHECK FOR SKIP/ NO SKIP AND
5635 ;NO DATA CHANGE IN AC FOR NOT RAN TO RAN CONDITON.
5636
5637 000010 AC=10
5638 036234 TDNE1F: SETUP 20,0^
5639 000011 AC1=<AC+1>&17
5640 000012 AC2=<AC+2>&17
5641 000013 AC3=<AC+3>&17
5642 000014 AC4=<AC+4>&17
5643 000015 AC5=<AC+5>&17
5644 000006 RAN1=<AC-2>&17
5645 036234 201 07 0 00 036234 MOVEI AC-1,.
5646 036235 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5647 036236 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5648 036237 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5649 036240 201 07 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
5650 036241 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5651 036242 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5652 036243 TDNE2F: RANDOM^
5653 036243 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5654 036244 270 10 0 00 060657 ADD AC,[142536475076]
5655 036245 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5656 036246 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
5657 036247 460 11 0 00 000010 TDNE3F: SETCM AC1,AC ;MAKE C(E) = 1'S COMP OF C(AC).
5658 036250 616 10 0 00 000011 TDNN AC,AC1 ;C(E) + C(AC) = 0..NO SKIP.
5659 036251 254 00 0 00 036253 JRST .+2
5660 036252 005 10 0 00 060674 ER AC,[ASCII /TST/];TDNN SKIPPED.
5661 036253 612 10 0 00 000011 TDNE AC,AC1 ;C(E) + C(AC) = 0..SKIP.
5662 036254 005 10 0 00 060674 ER AC,[ASCII /TST/]
5663 036255 312 10 0 00 061125 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
5664 036256 001 11 0 00 061125 ERR AC1,RAN
5665 LOOP TDNE2F,TDNE3F^
5666 036257 367 07 0 00 036243 SOJG AC-1,TDNE2F ;ITERATION COUNTER
5667 036260 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5668 036261 321 07 0 00 036247 JUMPL AC-1,TDNE3F ;LOOP ON ERROR SWITCH ^
5669
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 104
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0157
5670
5671 ;TEST TDZ,TDZA. CHECK FOR SKIP/ NO SKIP AND
5672 ;CORRECT DATA IN AC FOR NOT RAN TO RAN CONDITION.
5673
5674 000011 AC=11
5675 036262 TDZA1: SETUP 100,0^
5676 000012 AC1=<AC+1>&17
5677 000013 AC2=<AC+2>&17
5678 000014 AC3=<AC+3>&17
5679 000015 AC4=<AC+4>&17
5680 000016 AC5=<AC+5>&17
5681 000007 RAN1=<AC-2>&17
5682 036262 201 10 0 00 036262 MOVEI AC-1,.
5683 036263 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5684 036264 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5685 036265 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5686 036266 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5687 036267 240 10 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5688 036270 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5689 036271 TDZA2: RANDOM^
5690 036271 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5691 036272 270 11 0 00 060657 ADD AC,[142536475076]
5692 036273 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5693 036274 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
5694 036275 460 12 0 00 000011 TDZA3: SETCM AC1,AC ;MAKE C(E) 1'S COMP OF C(AC).
5695 036276 630 11 0 00 000012 TDZ AC,AC1 ;SHOULD NOT SKIP.
5696 036277 254 00 0 00 036301 JRST .+2
5697 036300 005 11 0 00 060674 ER AC,[ASCII/TST/] ;TDZ SKIPPED.
5698 036301 634 11 0 00 000012 TDZA AC,AC1 ;SHOULD SKIP.
5699 036302 005 11 0 00 060674 ER AC,[ASCII /TST/]
5700 036303 312 11 0 00 061125 CAME AC,RAN ;C(AC) SHOULD STILL = RAN NUM.
5701 036304 001 12 0 00 061125 ERR AC1,RAN
5702 036305 316 12 0 00 061125 CAMN AC1,RAN ;C(E) SHOULD NOT = RAN.
5703 036306 001 12 0 00 061125 ERR AC1,RAN
5704 LOOP TDZA2,TDZA3^
5705 036307 367 10 0 00 036271 SOJG AC-1,TDZA2 ;ITERATION COUNTER
5706 036310 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5707 036311 321 10 0 00 036275 JUMPL AC-1,TDZA3 ;LOOP ON ERROR SWITCH ^
5708
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 105
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0158
5709
5710 ;TEST TDZ,TDZA. CHECK FOR SKIP/NO SKIP AND
5711 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION.
5712
5713 000010 AC=10
5714 036312 TDZAA: SETUP 100,1^
5715 000011 AC1=<AC+1>&17
5716 000012 AC2=<AC+2>&17
5717 000013 AC3=<AC+3>&17
5718 000014 AC4=<AC+4>&17
5719 000015 AC5=<AC+5>&17
5720 000006 RAN1=<AC-2>&17
5721 036312 201 07 0 00 036312 MOVEI AC-1,.
5722 036313 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5723 036314 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5724 036315 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5725 036316 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5726 036317 240 07 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
5727 036320 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5728 036321 TDZAB: RANDOM^
5729 036321 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5730 036322 270 10 0 00 060657 ADD AC,[142536475076]
5731 036323 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5732 036324 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
5733 036325 630 10 0 00 000010 TDZAC: TDZ AC,AC ;SHOULD NOT SKIP.
5734 036326 312 10 0 00 060660 CAME AC,[0] ;SHOULD CLEAR C(AC).
5735 036327 011 00 0 00 061125 EERR ,RAN
5736 036330 200 10 0 00 061125 MOVE AC,RAN ;RESTORE AC.
5737 036331 634 10 0 00 000010 TDZA AC,AC ;SHOULD SKIP.
5738 036332 005 10 0 00 060674 ER AC,[ASCII /TST/]
5739 036333 312 10 0 00 060660 CAME AC,[0] ;C(AC) SHOULD BE CLEARED.
5740 036334 011 00 0 00 061125 EERR ,RAN
5741 LOOP TDZAB,TDZAC^
5742 036335 367 07 0 00 036321 SOJG AC-1,TDZAB ;ITERATION COUNTER
5743 036336 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5744 036337 321 07 0 00 036325 JUMPL AC-1,TDZAC ;LOOP ON ERROR SWITCH ^
5745
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 106
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0159
5746
5747
5748 ;TEST TDZ,TDZA. CHECK FOR SKIP/ NO SKIP AND
5749 ;CORRECT DATA IN AC FOR RAN1 TO RAN CONDITION.
5750
5751 000010 AC=10
5752 036340 TDZB1: SETUP 100,0^
5753 000011 AC1=<AC+1>&17
5754 000012 AC2=<AC+2>&17
5755 000013 AC3=<AC+3>&17
5756 000014 AC4=<AC+4>&17
5757 000015 AC5=<AC+5>&17
5758 000006 RAN1=<AC-2>&17
5759 036340 201 07 0 00 036340 MOVEI AC-1,.
5760 036341 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5761 036342 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5762 036343 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5763 036344 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5764 036345 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5765 036346 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5766 036347 TDZB2: RANDOM^
5767 036347 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5768 036350 270 10 0 00 060657 ADD AC,[142536475076]
5769 036351 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5770 036352 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
5771 036353 204 11 0 00 000010 TDZB3: MOVS AC1,AC ;MAKE C(E) A DIFF. RAN. NUM.
5772 036354 200 12 0 00 000011 MOVE AC2,AC1 ;SIMULATE
5773 036355 430 12 0 00 000010 XOR AC2,AC ;A
5774 036356 404 12 0 00 000010 AND AC2,AC ;TDZ.
5775 036357 630 10 0 00 000011 TDZ AC,AC1 ;TDZ SHOULD NOT SKIP.
5776 036360 312 10 0 00 000012 CAME AC,AC2 ;C(AC) SHOULD = SIM. ANS.
5777 036361 001 11 0 00 061125 ERR AC1,RAN
5778 036362 200 10 0 00 061125 MOVE AC,RAN ;RESTORE AC.
5779 036363 634 10 0 00 000011 TDZA AC,AC1 ;SHOULD SKIP.
5780 036364 005 10 0 00 060674 ER AC,[ASCII /TST/]
5781 036365 312 10 0 00 000012 CAME AC,AC2 ;C(AC) SHOULD = SIM. ANS.
5782 036366 001 11 0 00 061125 ERR AC1,RAN
5783 LOOP TDZB2,TDZB3^
5784 036367 367 07 0 00 036347 SOJG AC-1,TDZB2 ;ITERATION COUNTER
5785 036370 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5786 036371 321 07 0 00 036353 JUMPL AC-1,TDZB3 ;LOOP ON ERROR SWITCH ^
5787
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 107
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0160
5788 ;TEST TDZE, TDZN. CHECK FOR SKIP/NO SKIP AND
5789 ;CORRECT DATA IN AC FOR FLOATING ONE IN C(E) AND
5790 ;THAT BIT CLEARED IN RANDOM NUM. IN AC.
5791
5792 000010 AC=10
5793 036372 TDZE1: SETUP 100,0^
5794 000011 AC1=<AC+1>&17
5795 000012 AC2=<AC+2>&17
5796 000013 AC3=<AC+3>&17
5797 000014 AC4=<AC+4>&17
5798 000015 AC5=<AC+5>&17
5799 000006 RAN1=<AC-2>&17
5800 036372 201 07 0 00 036372 MOVEI AC-1,.
5801 036373 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5802 036374 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5803 036375 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5804 036376 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5805 036377 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5806 036400 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5807 036401 201 11 0 00 000001 MOVEI AC1,1 ;SETUP AC1 TO CONTAIN A MASK BIT.
5808 036402 TDZE2: RANDOM^
5809 036402 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5810 036403 270 10 0 00 060657 ADD AC,[142536475076]
5811 036404 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5812 036405 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
5813 036406 241 11 0 00 000001 ROT AC1,1 ;ROT TO TEST NEXT BIT.
5814 036407 420 10 0 00 000011 TDZE3: ANDCM AC,AC1 ;CLEAR MASK BIT IN AC.
5815 036410 200 12 0 00 000010 MOVE AC2,AC ;SAVE FOR FUTURE COMPARE.
5816 036411 636 10 0 00 000011 TDZN AC,AC1 ;C(E) + C(AC) = 0...NO SKIP.
5817 036412 254 00 0 00 036414 JRST .+2
5818 036413 005 10 0 00 060674 ER AC,[ASCII /TST/] ;TDZN SKIPPED.
5819 036414 632 10 0 00 000011 TDZE AC,AC1 ;C(E) + C(AC) = 0...SKIP.
5820 036415 005 10 0 00 060674 ER AC,[ASCII /TST/]
5821 036416 312 10 0 00 000012 CAME AC,AC2 ;C(AC) SHOULD = ORIG C(AC).
5822 036417 001 11 0 00 000012 ERR AC1,AC2
5823 LOOP TDZE2,TDZE3^
5824 036420 367 07 0 00 036402 SOJG AC-1,TDZE2 ;ITERATION COUNTER
5825 036421 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5826 036422 321 07 0 00 036407 JUMPL AC-1,TDZE3 ;LOOP ON ERROR SWITCH ^
5827
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 108
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0161
5828
5829 ;TEST TDZE, TDZN. CHECK FOR SKIP/ NO SKIP AND
5830 ;CORRECT DATA IN AC FOR FLOATING ONE IN C(E)
5831 ;AND THAT BIT SET IN RAN. NUM. IN C(AC).
5832
5833 000010 AC=10
5834 036423 TDZEA: SETUP 100,0^
5835 000011 AC1=<AC+1>&17
5836 000012 AC2=<AC+2>&17
5837 000013 AC3=<AC+3>&17
5838 000014 AC4=<AC+4>&17
5839 000015 AC5=<AC+5>&17
5840 000006 RAN1=<AC-2>&17
5841 036423 201 07 0 00 036423 MOVEI AC-1,.
5842 036424 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5843 036425 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5844 036426 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5845 036427 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5846 036430 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5847 036431 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5848 036432 201 11 0 00 000001 MOVEI AC1,1 ;SET MASK BIT IN C(E).
5849 036433 TDZEB: RANDOM^
5850 036433 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5851 036434 270 10 0 00 060657 ADD AC,[142536475076]
5852 036435 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5853 036436 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
5854 036437 241 11 0 00 000001 ROT AC1,1 ;ROT MASK BIT TO TEST NEXT BIT.
5855 036440 434 10 0 00 000011 TDZEC: IOR AC,AC1 ;SET MASK BIT IN AC.
5856 036441 200 06 0 00 000010 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
5857 036442 200 12 0 00 000010 MOVE AC2,AC ;SIMULATE
5858 036443 420 12 0 00 000011 ANDCM AC2,AC1 ;A TDZ.
5859 036444 632 10 0 00 000011 TDZE AC,AC1 ;C(E) + C(AC) NOT = 0...NO SKIP.
5860 036445 312 10 0 00 000012 CAME AC,AC2 ;C(AC) SHOULD = SIM. ANS.
5861 036446 001 11 0 00 000006 ERR AC1,RAN1
5862 036447 434 10 0 00 000011 IOR AC,AC1 ;RESET MASK BIT IN AC.
5863 036450 636 10 0 00 000011 TDZN AC,AC1 ;C(E) + C(AC) NOT = 0...SKIP.
5864 036451 005 10 0 00 060674 ER AC,[ASCII /TST/]
5865 036452 312 10 0 00 000012 CAME AC,AC2 ;AND C(AC) SHOULD = SIM. ANS.
5866 036453 001 11 0 00 000006 ERR AC1,RAN1
5867 LOOP TDZEB,TDZEC^
5868 036454 367 07 0 00 036433 SOJG AC-1,TDZEB ;ITERATION COUNTER
5869 036455 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5870 036456 321 07 0 00 036440 JUMPL AC-1,TDZEC ;LOOP ON ERROR SWITCH ^
5871
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 109
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0162
5872
5873 ;TEST TDZE,TDZN. SET AND ROT A MASK BIT IN AC
5874 ;AND CHECK SKIP/NO SKIP AND PROPER C(AC)
5875 ;FOR MASK BIT IN AC ANS RANDOM NUMBER IN E.
5876
5877 000010 AC=10
5878 036457 TDZNA: SETUP 100,0^
5879 000011 AC1=<AC+1>&17
5880 000012 AC2=<AC+2>&17
5881 000013 AC3=<AC+3>&17
5882 000014 AC4=<AC+4>&17
5883 000015 AC5=<AC+5>&17
5884 000006 RAN1=<AC-2>&17
5885 036457 201 07 0 00 036457 MOVEI AC-1,.
5886 036460 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5887 036461 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5888 036462 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5889 036463 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5890 036464 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5891 036465 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5892 036466 201 11 0 00 000001 MOVEI AC1,1 ;SETUP AC1 FOR MASK BIT.
5893 036467 TDZNB: RANDOM^
5894 036467 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5895 036470 270 10 0 00 060657 ADD AC,[142536475076]
5896 036471 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5897 036472 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
5898 036473 241 11 0 00 000001 ROT AC1,1 ;ROT AC1 TO TEST NEXT BIT.
5899 036474 200 12 0 00 000011 MOVE AC2,AC1 ;SAVE MASK BIT.
5900 036475 200 11 0 00 000012 TDZNC: MOVE AC1,AC2 ;RESTORE MASK BIT IF ERROR.
5901 036476 420 10 0 00 000011 ANDCM AC,AC1 ;CLEAR MASK BIT IN RAN NUM.
5902 036477 636 11 0 00 000010 TDZN AC1,AC ;C(E) + C(AC) =0..SHOULDN'T SKIP.
5903 036500 254 00 0 00 036502 JRST .+2
5904 036501 005 11 0 00 060674 ER AC1,[ASCII /TST/];TDZN SKIPPED.
5905 036502 632 11 0 00 000010 TDZE AC1,AC ;C(E) + C(AC) = 0..SKIP.
5906 036503 005 11 0 00 060674 ER AC1,[ASCII /TST/]
5907 036504 312 11 0 00 000012 CAME AC1,AC2 ;C(AC1) SHOULD NOT HAVE CHANGED.
5908 036505 001 10 0 00 000012 ERR AC,AC2
5909 LOOP TDZNB,TDZNC^
5910 036506 367 07 0 00 036467 SOJG AC-1,TDZNB ;ITERATION COUNTER
5911 036507 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5912 036510 321 07 0 00 036475 JUMPL AC-1,TDZNC ;LOOP ON ERROR SWITCH ^
5913
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 110
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0163
5914
5915 ;TEST TDZE,TDZN. SET AND ROT A MASK BIT IN AC
5916 ;AND CHECK SKIP/NO SKIP AND PROPER C(AC)
5917 ;FOR MASK BIT IN AC AND RANDOM NUMBER IN E.
5918 ;RANDOM NUMBER HAS MASK BIT SET.
5919
5920 000010 AC=10
5921 036511 TDZN1: SETUP 40,0^
5922 000011 AC1=<AC+1>&17
5923 000012 AC2=<AC+2>&17
5924 000013 AC3=<AC+3>&17
5925 000014 AC4=<AC+4>&17
5926 000015 AC5=<AC+5>&17
5927 000006 RAN1=<AC-2>&17
5928 036511 201 07 0 00 036511 MOVEI AC-1,.
5929 036512 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5930 036513 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5931 036514 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5932 036515 201 07 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
5933 036516 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5934 036517 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5935 036520 201 11 0 00 000001 MOVEI AC1,1 ;SETUP AC1 FOR MASK BIT.
5936 036521 TDZN2: RANDOM^
5937 036521 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5938 036522 270 10 0 00 060657 ADD AC,[142536475076]
5939 036523 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5940 036524 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
5941 036525 241 11 0 00 000001 ROT AC1,1 ;ROT AC1 TO TEST NEXT BIT.
5942 036526 200 12 0 00 000011 TDZN3: MOVE AC2,AC1 ;SAVE MASK BIT.
5943 036527 434 10 0 00 000011 IOR AC,AC1 ;SET MASK BIT IN RAN.
5944 036530 632 11 0 00 000010 TDZE AC1,AC ;C(E) + C(AC) NOT = 0...NO SKIP.
5945 036531 312 11 0 00 060660 CAME AC1,[0] ;C(AC) SHOULD = 0.
5946 036532 001 10 0 00 000012 ERR AC,AC2
5947 036533 200 11 0 00 000012 MOVE AC1,AC2 ;RESTORE MASK BIT.
5948 036534 636 11 0 00 000010 TDZN AC1,AC ;C(E) + C(AC) NOT = 0...SKIP.
5949 036535 005 11 0 00 060674 ER AC1,[ASCII /TST/]
5950 036536 312 11 0 00 060660 CAME AC1,[0] ;AC1 SHOULD HAVE GOTTEN CLEARED OUT.
5951 036537 001 10 0 00 000012 ERR AC,AC2
5952 036540 200 11 0 00 000012 MOVE AC1,AC2 ;RESTORE MASK BIT.
5953 LOOP TDZN2,TDZN3^
5954 036541 367 07 0 00 036521 SOJG AC-1,TDZN2 ;ITERATION COUNTER
5955 036542 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5956 036543 321 07 0 00 036526 JUMPL AC-1,TDZN3 ;LOOP ON ERROR SWITCH ^
5957
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 111
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0164
5958
5959 ;TEST TDO TDOA. CHECK FOR SKIP/NO SKIP ANS CORRECT DATA
5960 ;IN AC FOR RAN TO NOT RAN.
5961
5962 000010 AC=10
5963 036544 TDOA1: SETUP 100,0^
5964 000011 AC1=<AC+1>&17
5965 000012 AC2=<AC+2>&17
5966 000013 AC3=<AC+3>&17
5967 000014 AC4=<AC+4>&17
5968 000015 AC5=<AC+5>&17
5969 000006 RAN1=<AC-2>&17
5970 036544 201 07 0 00 036544 MOVEI AC-1,.
5971 036545 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5972 036546 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5973 036547 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5974 036550 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5975 036551 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5976 036552 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5977 036553 TDOA2: RANDOM^
5978 036553 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5979 036554 270 10 0 00 060657 ADD AC,[142536475076]
5980 036555 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5981 036556 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
5982 036557 460 11 0 00 000010 TDOA3: SETCM AC1,AC ;MAKE "C(E)" = COMP OF RAN.
5983 036560 670 10 0 00 000011 TDO AC,AC1 ;SHOULD NOT SKIP.
5984 036561 312 10 0 00 060662 CAME AC,[-1] ;AC SHOULD HAVE ALL BITS SET.
5985 036562 001 11 0 00 061125 ERR AC1,RAN
5986 036563 200 10 0 00 061125 MOVE AC,RAN ;RESTORE AC.
5987 036564 674 10 0 00 000011 TDOA AC,AC1 ;SHOULD SKIP.
5988 036565 005 10 0 00 060674 ER AC,[ASCII /TST/]
5989 036566 312 10 0 00 060662 CAME AC,[-1] ;AC SHOULD HAVE ALL BITS SET.
5990 036567 001 11 0 00 061125 ERR AC1,RAN
5991 LOOP TDOA2,TDOA3^
5992 036570 367 07 0 00 036553 SOJG AC-1,TDOA2 ;ITERATION COUNTER
5993 036571 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5994 036572 321 07 0 00 036557 JUMPL AC-1,TDOA3 ;LOOP ON ERROR SWITCH ^
5995
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 112
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0165
5996
5997 ;TEST TDO,TDOA. CHECK SKIP/NO SKIP AND
5998 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION.
5999
6000 000002 AC=2
6001 036573 TDOAA: SETUP 40,0^
6002 000003 AC1=<AC+1>&17
6003 000004 AC2=<AC+2>&17
6004 000005 AC3=<AC+3>&17
6005 000006 AC4=<AC+4>&17
6006 000007 AC5=<AC+5>&17
6007 000000 RAN1=<AC-2>&17
6008 036573 201 01 0 00 036573 MOVEI AC-1,.
6009 036574 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6010 036575 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6011 036576 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6012 036577 201 01 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
6013 036600 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6014 036601 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6015 036602 TDOAB: RANDOM^
6016 036602 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6017 036603 270 02 0 00 060657 ADD AC,[142536475076]
6018 036604 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6019 036605 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
6020 036606 670 02 0 00 000002 TDOAC: TDO AC,AC ;SHOULD NOT SKIP.
6021 036607 254 00 0 00 036611 JRST .+2
6022 036610 005 02 0 00 060674 ER AC,[ASCII /TST/] ;TDO SKIPPED.
6023 036611 674 02 0 00 000002 TDOA AC,AC ;SHOULD SKIP.
6024 036612 005 02 0 00 060674 ER AC,[ASCII /TST/]
6025 036613 312 02 0 00 061125 CAME AC,RAN ;C(AC) SHOULD NOT HAVE CHANGED.
6026 036614 011 00 0 00 061125 EERR ,RAN
6027 LOOP TDOAB,TDOAC^
6028 036615 367 01 0 00 036602 SOJG AC-1,TDOAB ;ITERATION COUNTER
6029 036616 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6030 036617 321 01 0 00 036606 JUMPL AC-1,TDOAC ;LOOP ON ERROR SWITCH ^
6031
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 113
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0166
6032
6033 ;TEST TDO, TDOA. CHECK FOR SKIP/NO SKIP
6034 ;AND CORRECT DATA IN AC FOR RAN1 TO RAN CONDITION.
6035
6036 000002 AC=2
6037 036620 TDOB1: SETUP 400,3^
6038 000003 AC1=<AC+1>&17
6039 000004 AC2=<AC+2>&17
6040 000005 AC3=<AC+3>&17
6041 000006 AC4=<AC+4>&17
6042 000007 AC5=<AC+5>&17
6043 000000 RAN1=<AC-2>&17
6044 036620 201 01 0 00 036620 MOVEI AC-1,.
6045 036621 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6046 036622 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6047 036623 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6048 036624 201 01 0 00 000400 MOVEI AC-1,400 ;ROUTINE WEIGHTING
6049 036625 240 01 1 00 030661 ASH AC-1,@CMPLXT+3 ;ROUTINE COMPLEXITY
6050 036626 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6051 036627 TDOB2: RANDOM^
6052 036627 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6053 036630 270 02 0 00 060657 ADD AC,[142536475076]
6054 036631 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6055 036632 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
6056 036633 204 03 0 00 000002 TDOB3: MOVS AC1,AC ;MAKE AC1 ANOTHER RAN NUM.
6057 036634 200 04 0 00 000002 MOVE AC2,AC ;SIMULATE
6058 036635 430 04 0 00 000003 XOR AC2,AC1 ;A
6059 036636 434 04 0 00 000002 IOR AC2,AC ;TDO INST.
6060 036637 670 02 0 00 000003 TDO AC,AC1 ;SHOULD NOT SKIP.
6061 036640 312 02 0 00 000004 CAME AC,AC2 ;C(AC) = SIM. ANS?
6062 036641 001 03 0 00 061125 ERR AC1,RAN ;NO.
6063 036642 200 02 0 00 061125 MOVE AC,RAN ;RESTORE AC.
6064 036643 674 02 0 00 000003 TDOA AC,AC1 ;SHOULD SKIP.
6065 036644 005 02 0 00 060674 ER AC,[ASCII /TST/]
6066 036645 312 02 0 00 000004 CAME AC,AC2 ;C(AC) = SIM ANS?
6067 036646 001 03 0 00 061125 ERR AC1,RAN ;NO.
6068 LOOP TDOB2,TDOB3^
6069 036647 367 01 0 00 036627 SOJG AC-1,TDOB2 ;ITERATION COUNTER
6070 036650 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6071 036651 321 01 0 00 036633 JUMPL AC-1,TDOB3 ;LOOP ON ERROR SWITCH ^
6072
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 114
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0167
6073
6074 ;TEST TDOE,TDON. ROT A MASK BIT IN E AND SET THAT
6075 ;BIT IN AC BEFORE TDO. CHECK FOR SKIP/NO SKIP
6076 ;AND PROPER DATA IN AC.
6077
6078 000002 AC=2
6079 036652 TDOE1: SETUP 40,0^
6080 000003 AC1=<AC+1>&17
6081 000004 AC2=<AC+2>&17
6082 000005 AC3=<AC+3>&17
6083 000006 AC4=<AC+4>&17
6084 000007 AC5=<AC+5>&17
6085 000000 RAN1=<AC-2>&17
6086 036652 201 01 0 00 036652 MOVEI AC-1,.
6087 036653 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6088 036654 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6089 036655 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6090 036656 201 01 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
6091 036657 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6092 036660 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6093 036661 201 03 0 00 000001 MOVEI AC1,1 ;SETUP A MASK BIT IN "E".
6094 036662 TDOE2: RANDOM^
6095 036662 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6096 036663 270 02 0 00 060657 ADD AC,[142536475076]
6097 036664 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6098 036665 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
6099 036666 241 03 0 00 000000 ROT AC1, ;ROT MASK BIT TO TEST NEXT BIT.
6100 036667 434 02 0 00 000003 TDOE3: IOR AC,AC1 ;SET MASK BIT IN AC.
6101 036670 200 04 0 00 000002 MOVE AC2,AC ;SAVE AC IN AC2.
6102 036671 672 02 0 00 000003 TDOE AC,AC1 ;C(E) + C(AC) NOT = 0. NO SKIP.
6103 036672 254 00 0 00 036674 JRST .+2
6104 036673 005 02 0 00 060674 ER AC,[ASCII /TST/];TDOE SKIPPED.
6105 036674 676 02 0 00 000003 TDON AC,AC1 ;C(E) + C(AC) NOT = 0..SKIP.
6106 036675 005 02 0 00 060674 ER AC,[ASCII /TST/]
6107 036676 312 02 0 00 000004 CAME AC,AC2 ;C(AC) SHOULD NOT CHANGE.
6108 036677 001 03 0 00 000004 ERR AC1,AC2
6109 LOOP TDOE2,TDOE3^
6110 036700 367 01 0 00 036662 SOJG AC-1,TDOE2 ;ITERATION COUNTER
6111 036701 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6112 036702 321 01 0 00 036667 JUMPL AC-1,TDOE3 ;LOOP ON ERROR SWITCH ^
6113
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 115
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0168
6114
6115 ;TEST TDOE,TDON. ROT A MASK BIT IN E AND CLEAR THAT
6116 ;BIT IN AC BEFORE TDO. CHECK FOR SKIP/NO SKIP
6117 ;AND PROPER DATA IN AC.
6118
6119 000003 AC=3
6120 036703 TDOEA: SETUP 40,0^
6121 000004 AC1=<AC+1>&17
6122 000005 AC2=<AC+2>&17
6123 000006 AC3=<AC+3>&17
6124 000007 AC4=<AC+4>&17
6125 000010 AC5=<AC+5>&17
6126 000001 RAN1=<AC-2>&17
6127 036703 201 02 0 00 036703 MOVEI AC-1,.
6128 036704 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6129 036705 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6130 036706 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6131 036707 201 02 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
6132 036710 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6133 036711 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6134 036712 201 04 0 00 000001 MOVEI AC1,1 ;SETUP MASK BIT IN"E".
6135 036713 TDOEB: RANDOM^
6136 036713 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6137 036714 270 03 0 00 060657 ADD AC,[142536475076]
6138 036715 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6139 036716 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
6140 036717 241 04 0 00 000001 ROT AC1,1 ;ROT MASK BIT TO TEST NEXT BIT.
6141 036720 420 03 0 00 000004 TDOEC: ANDCM AC,AC1 ;CLEAR MASK BIT IN AC.
6142 036721 200 01 0 00 000003 MOVE RAN1,AC ;SAVE AC.
6143 036722 200 05 0 00 000003 MOVE AC2,AC ;SIMULATE
6144 036723 434 05 0 00 000004 IOR AC2,AC1 ;A TDO.
6145 036724 672 03 0 00 000004 TDOE AC,AC1 ;C(E) + C(AC) = 0. SKIP.
6146 036725 005 03 0 00 060674 ER AC,[ASCII /TST/]
6147 036726 312 03 0 00 000005 CAME AC,AC2 ;C(AC) = SIM ANS?
6148 036727 001 04 0 00 000001 ERR AC1,RAN1 ;NO.
6149 036730 200 03 0 00 000001 MOVE AC,RAN1 ;RESTORE AC.
6150 036731 676 03 0 00 000004 TDON AC,AC1 ;C(E) + C(AC) = 0..NO SKIP.
6151 036732 312 03 0 00 000005 CAME AC,AC2 ;C(AC) = SIM. ANS?
6152 036733 001 04 0 00 000001 ERR AC1,RAN1 ;NO.
6153 LOOP TDOEB,TDOEC^
6154 036734 367 02 0 00 036713 SOJG AC-1,TDOEB ;ITERATION COUNTER
6155 036735 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6156 036736 321 02 0 00 036720 JUMPL AC-1,TDOEC ;LOOP ON ERROR SWITCH ^
6157
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 116
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0169
6158
6159 ;TEST TDOE,TDON. ROT A MASK BIT IN AC AND CLEAR THAT
6160 ;BIT IN E BEFORE TDO. CHECK FOR SKIP/NO SKIP
6161 ;AND PROPER DATA IN AC.
6162
6163 000004 AC=4
6164 036737 TDONA: SETUP 40,0^
6165 000005 AC1=<AC+1>&17
6166 000006 AC2=<AC+2>&17
6167 000007 AC3=<AC+3>&17
6168 000010 AC4=<AC+4>&17
6169 000011 AC5=<AC+5>&17
6170 000002 RAN1=<AC-2>&17
6171 036737 201 03 0 00 036737 MOVEI AC-1,.
6172 036740 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6173 036741 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6174 036742 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6175 036743 201 03 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
6176 036744 240 03 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6177 036745 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6178 036746 201 05 0 00 000001 MOVEI AC1,1 ;SETUP A MASK BIT IN AC.
6179 036747 TDONB: RANDOM^
6180 036747 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6181 036750 270 04 0 00 060657 ADD AC,[142536475076]
6182 036751 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6183 036752 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
6184 036753 241 05 0 00 000001 ROT AC1,1 ;ROT BIT TO TEST NEXT BIT.
6185 036754 200 06 0 00 000005 MOVE AC2,AC1 ;SAVE MASK BIT SO IN CASE
6186 036755 200 05 0 00 000006 TDONC: MOVE AC1,AC2 ;OF ERROR IT CAN BE RESTORED.
6187 036756 420 04 0 00 000005 ANDCM AC,AC1 ;CLEAR MASK BIT IN E.
6188 036757 322 04 0 00 036747 JUMPE AC,TDONB ;REJECT IF C(AC) = 0.
6189 036760 200 07 0 00 000004 MOVE AC3,AC ;SIMULATE
6190 036761 434 07 0 00 000005 IOR AC3,AC1 ;TDO.
6191 036762 672 05 0 00 000004 TDOE AC1,AC ;C(E) + C(AC) = 0...SKIP.
6192 036763 005 05 0 00 060674 ER AC1,[ASCII /TST/];TDOE DID NOT SKIP.
6193 036764 312 05 0 00 000007 CAME AC1,AC3 ;C(AC) SHOULD = SIM. ANS.
6194 036765 001 04 0 00 000006 ERR AC,AC2
6195 036766 676 05 0 00 000004 TDON AC1,AC ;C(E) + C(AC) NOT = 0...SKIP.
6196 036767 005 05 0 00 060674 ER AC1,[ASCII /TST/]
6197 036770 312 05 0 00 000007 CAME AC1,AC3 ;C(AC) SHOULD = SIM. ANS.
6198 036771 001 04 0 00 000006 ERR AC,AC2
6199 036772 200 05 0 00 000006 MOVE AC1,AC2 ;RESTORE AC.
6200 LOOP TDONB,TDONC^
6201 036773 367 03 0 00 036747 SOJG AC-1,TDONB ;ITERATION COUNTER
6202 036774 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6203 036775 321 03 0 00 036755 JUMPL AC-1,TDONC ;LOOP ON ERROR SWITCH ^
6204
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 117
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0170
6205
6206 ;TEST TDOE,TDON. ROT A MASK BIT IN AC AND SET
6207 ;THAT BIT IN E BEFORE TDO. CHECK FOR SKIP/ NO SKIP
6208 ;AND CORRECT DATA IN AC.
6209
6210 000005 AC=5
6211 036776 TDON1: SETUP 40,0^
6212 000006 AC1=<AC+1>&17
6213 000007 AC2=<AC+2>&17
6214 000010 AC3=<AC+3>&17
6215 000011 AC4=<AC+4>&17
6216 000012 AC5=<AC+5>&17
6217 000003 RAN1=<AC-2>&17
6218 036776 201 04 0 00 036776 MOVEI AC-1,.
6219 036777 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6220 037000 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6221 037001 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6222 037002 201 04 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
6223 037003 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6224 037004 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6225 037005 201 06 0 00 000001 MOVEI AC1,1 ;SETUP AC TO CONTAIN A MASK BIT.
6226 037006 TDON2: RANDOM^
6227 037006 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6228 037007 270 05 0 00 060657 ADD AC,[142536475076]
6229 037010 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6230 037011 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
6231 037012 241 06 0 00 000001 ROT AC1,1 ;ROT TO TEST NEXT BIT.
6232 037013 200 07 0 00 000006 MOVE AC2,AC1 ;SAVE C(AC) SO IT CAN BE
6233 037014 200 06 0 00 000007 TDON3: MOVE AC1,AC2 ;RESTORED IN CASE OF ERROR.
6234 037015 434 05 0 00 000006 IOR AC,AC1 ;SET MASK BIT IN E.
6235 037016 672 06 0 00 000005 TDOE AC1,AC ;C(E) + C(AC) NOT = 0...NO SKIP.
6236 037017 254 00 0 00 037021 JRST .+2
6237 037020 005 06 0 00 060674 ER AC1,[ASCII /TST/];TDOE SKIPPED.
6238 037021 676 06 0 00 000005 TDON AC1,AC ;C(E) + C(AC) NOT = 0...SKIP.
6239 037022 005 06 0 00 060674 ER AC1,[ASCII /TST/]
6240 037023 312 06 0 00 000005 CAME AC1,AC ;C(AC) SHOULD = C(E).
6241 037024 001 05 0 00 000007 ERR AC,AC2
6242 037025 200 06 0 00 000007 MOVE AC1,AC2 ;RESTORE AC.
6243 LOOP TDON2,TDON3^
6244 037026 367 04 0 00 037006 SOJG AC-1,TDON2 ;ITERATION COUNTER
6245 037027 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6246 037030 321 04 0 00 037014 JUMPL AC-1,TDON3 ;LOOP ON ERROR SWITCH ^
6247
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 118
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0171
6248
6249 ;TEST TDC. CHECK FOR SKIP/NO SKIP AND CORRECT
6250 ;DATA FOR NOT RAN TO RAN CONDITION.
6251
6252 000006 AC=6
6253 037031 TDC1: SETUP 100,0^
6254 000007 AC1=<AC+1>&17
6255 000010 AC2=<AC+2>&17
6256 000011 AC3=<AC+3>&17
6257 000012 AC4=<AC+4>&17
6258 000013 AC5=<AC+5>&17
6259 000004 RAN1=<AC-2>&17
6260 037031 201 05 0 00 037031 MOVEI AC-1,.
6261 037032 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6262 037033 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6263 037034 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6264 037035 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6265 037036 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6266 037037 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6267 037040 TDC2: RANDOM^
6268 037040 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6269 037041 270 06 0 00 060657 ADD AC,[142536475076]
6270 037042 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6271 037043 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
6272 037044 460 07 0 00 061125 TDC3: SETCM AC1,RAN ;MAKE C("E") = COMP. OF RAN.
6273 037045 650 06 0 00 000007 TDC AC,AC1 ;NO SKIP.
6274 037046 312 06 0 00 060662 CAME AC,[-1] ;C(AC) SHOULD = A -1.
6275 037047 001 07 0 00 061125 ERR AC1,RAN
6276 037050 474 04 0 00 000000 SETO RAN1, ;SET RAN1 FOR ERROR MESSAGE.
6277 037051 650 06 0 00 000007 TDC AC,AC1 ;NO SKIP.
6278 037052 312 06 0 00 061125 CAME AC,RAN ;C(AC) SHOULD = RAN AGAIN.
6279 037053 001 07 0 00 000004 ERR AC1,RAN1
6280 LOOP TDC2,TDC3^
6281 037054 367 05 0 00 037040 SOJG AC-1,TDC2 ;ITERATION COUNTER
6282 037055 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6283 037056 321 05 0 00 037044 JUMPL AC-1,TDC3 ;LOOP ON ERROR SWITCH ^
6284
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 119
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0172
6285
6286 ;TEST TDCA. CHECKING FOR SKIP/ NO SKIP AND
6287 ;CORRECT DATA IN AC FOR NOT RAN TO RAN CONDITION.
6288
6289 000010 AC=10
6290 037057 TDCA1: SETUP 100,0^
6291 000011 AC1=<AC+1>&17
6292 000012 AC2=<AC+2>&17
6293 000013 AC3=<AC+3>&17
6294 000014 AC4=<AC+4>&17
6295 000015 AC5=<AC+5>&17
6296 000006 RAN1=<AC-2>&17
6297 037057 201 07 0 00 037057 MOVEI AC-1,.
6298 037060 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6299 037061 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6300 037062 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6301 037063 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6302 037064 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6303 037065 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6304 037066 TDCA2: RANDOM^
6305 037066 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6306 037067 270 10 0 00 060657 ADD AC,[142536475076]
6307 037070 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6308 037071 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
6309 037072 460 11 0 00 061125 TDCA3: SETCM AC1,RAN ;MAKE C("E") = COMP OF RAN.
6310 037073 650 10 0 00 000011 TDC AC,AC1 ;SHOULD NOT SKIP.
6311 037074 254 00 0 00 037076 JRST .+2
6312 037075 005 10 0 00 060674 ER AC,[ASCII /TST/];TDC SKIPPED.
6313 037076 654 10 0 00 000011 TDCA AC,AC1 ;SHOULD SKIP.
6314 037077 005 10 0 00 060674 ER AC,[ASCII /TST/]
6315 037100 312 10 0 00 061125 CAME AC,RAN ;TWO TDC'S SHOULD RETURN C(AC)
6316 ;TO IT'S ORIGINAL VALUE.
6317 037101 001 11 0 00 061125 ERR AC1,RAN
6318 LOOP TDCA2,TDCA3^
6319 037102 367 07 0 00 037066 SOJG AC-1,TDCA2 ;ITERATION COUNTER
6320 037103 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6321 037104 321 07 0 00 037072 JUMPL AC-1,TDCA3 ;LOOP ON ERROR SWITCH ^
6322
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 120
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0173
6323
6324 ;TEST TDCE. CHECKING FOR SKIP/NO SKIP AND
6325 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION.
6326
6327 000011 AC=11
6328 037105 TDCE1: SETUP 100,0^
6329 000012 AC1=<AC+1>&17
6330 000013 AC2=<AC+2>&17
6331 000014 AC3=<AC+3>&17
6332 000015 AC4=<AC+4>&17
6333 000016 AC5=<AC+5>&17
6334 000007 RAN1=<AC-2>&17
6335 037105 201 10 0 00 037105 MOVEI AC-1,.
6336 037106 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6337 037107 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6338 037110 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6339 037111 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6340 037112 240 10 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6341 037113 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6342 037114 TDCE2: RANDOM^
6343 037114 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6344 037115 270 11 0 00 060657 ADD AC,[142536475076]
6345 037116 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6346 037117 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
6347 037120 403 12 0 00 000007 TDCE3: SETZB AC1,RAN1 ;CLEAR BOTH AC AND RAN1.
6348 037121 652 12 0 00 000011 TDCE AC1,AC ;C(E) + C(AC) = 0. SKIP.
6349 037122 005 12 0 00 060674 ER AC1,[ASCII /TST/]
6350 037123 312 12 0 00 061125 CAME AC1,RAN ;C(AC) SHOULD = RAN.
6351 037124 011 00 0 00 000007 EERR ,RAN1
6352 LOOP TDCE2,TDCE3^
6353 037125 367 10 0 00 037114 SOJG AC-1,TDCE2 ;ITERATION COUNTER
6354 037126 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6355 037127 321 10 0 00 037120 JUMPL AC-1,TDCE3 ;LOOP ON ERROR SWITCH ^
6356
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 121
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0174
6357
6358 ;TEST TDCE,TDCN. CHECKING FOR SKIP/NO SKIP AND
6359 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION.
6360
6361 000011 AC=11
6362 037130 TDCEA: SETUP 100,0^
6363 000012 AC1=<AC+1>&17
6364 000013 AC2=<AC+2>&17
6365 000014 AC3=<AC+3>&17
6366 000015 AC4=<AC+4>&17
6367 000016 AC5=<AC+5>&17
6368 000007 RAN1=<AC-2>&17
6369 037130 201 10 0 00 037130 MOVEI AC-1,.
6370 037131 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6371 037132 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6372 037133 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6373 037134 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6374 037135 240 10 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6375 037136 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6376 037137 TDCEB: RANDOM^
6377 037137 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6378 037140 270 11 0 00 060657 ADD AC,[142536475076]
6379 037141 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6380 037142 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
6381 037143 400 12 0 00 000000 TDCEC: SETZ AC1, ;CLEAR C(E).
6382 037144 656 11 0 00 000012 TDCN AC,AC1 ;C(E) + C(AC) = 0...NO SKIP.
6383 037145 254 00 0 00 037147 JRST .+2
6384 037146 005 11 0 00 060674 ER AC,[ASCII /TST/];TDCN SKIPPED.
6385 037147 652 11 0 00 000012 TDCE AC,AC1 ;C(E) + C(AC) = 0. SKIP.
6386 037150 005 11 0 00 060674 ER AC,[ASCII /TST/]
6387 037151 312 11 0 00 061125 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
6388 037152 001 12 0 00 061125 ERR AC1,RAN
6389 LOOP TDCEB,TDCEC^
6390 037153 367 10 0 00 037137 SOJG AC-1,TDCEB ;ITERATION COUNTER
6391 037154 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6392 037155 321 10 0 00 037143 JUMPL AC-1,TDCEC ;LOOP ON ERROR SWITCH ^
6393
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 122
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0175
6394
6395 ;TEST TDCE. CHECKING FOR SKIP/NO SKIP AND
6396 ;CORRECT DATA IN AC FOR RAN TO -1 CONDITION.
6397
6398 000010 AC=10
6399 037156 TDCE4: SETUP 100,0^
6400 000011 AC1=<AC+1>&17
6401 000012 AC2=<AC+2>&17
6402 000013 AC3=<AC+3>&17
6403 000014 AC4=<AC+4>&17
6404 000015 AC5=<AC+5>&17
6405 000006 RAN1=<AC-2>&17
6406 037156 201 07 0 00 037156 MOVEI AC-1,.
6407 037157 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6408 037160 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6409 037161 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6410 037162 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6411 037163 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6412 037164 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6413 037165 TDCE5: RANDOM^
6414 037165 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6415 037166 270 10 0 00 060657 ADD AC,[142536475076]
6416 037167 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6417 037170 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
6418 037171 322 10 0 00 037165 JUMPE AC,TDCE5 ;REJECT IF RAN = 0.
6419 037172 477 11 0 00 000006 TDCE6: SETOB AC1,RAN1 ;SET C(AC) TO ALL ONES.
6420 037173 460 12 0 00 000010 SETCM AC2,AC ;SIMULATE A TDC.
6421 037174 652 11 0 00 000010 TDCE AC1,AC ;C(E) + C(AC) NOT = 0. NO SKIP.
6422 037175 312 11 0 00 000012 CAME AC1,AC2 ;C(AC) = SIM.. ANS?
6423 037176 001 10 0 00 000006 ERR AC,RAN1 ;NO.
6424 LOOP TDCE5,TDCE6^
6425 037177 367 07 0 00 037165 SOJG AC-1,TDCE5 ;ITERATION COUNTER
6426 037200 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6427 037201 321 07 0 00 037172 JUMPL AC-1,TDCE6 ;LOOP ON ERROR SWITCH ^
6428
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 123
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0176
6429
6430 ;TEST TDCE,TDCN. CHECKING FOR SKIP/NO SKIP AND
6431 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION.
6432
6433 000010 AC=10
6434 037202 TDCED: SETUP 100,0^
6435 000011 AC1=<AC+1>&17
6436 000012 AC2=<AC+2>&17
6437 000013 AC3=<AC+3>&17
6438 000014 AC4=<AC+4>&17
6439 000015 AC5=<AC+5>&17
6440 000006 RAN1=<AC-2>&17
6441 037202 201 07 0 00 037202 MOVEI AC-1,.
6442 037203 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6443 037204 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6444 037205 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6445 037206 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6446 037207 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6447 037210 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6448 037211 TDCEE: RANDOM^
6449 037211 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6450 037212 270 10 0 00 060657 ADD AC,[142536475076]
6451 037213 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6452 037214 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
6453 037215 322 10 0 00 037211 JUMPE AC,TDCEE ;REJECT IF RAN = 0.
6454 037216 316 10 0 00 060662 CAMN AC,[-1] ;C(AC) = -1?
6455 037217 254 00 0 00 037211 JRST TDCEE ;YES. REJECT.
6456 037220 477 11 0 00 000006 TDCEF: SETOB AC1,RAN1 ;SET C(E) TO ALL ONES.
6457 037221 652 10 0 00 000011 TDCE AC,AC1 ;C(E) + C(AC) NOT = 0. NO SKIP.
6458 037222 254 00 0 00 037224 JRST .+2
6459 037223 005 10 0 00 060674 ER AC,[ASCII /TST/];TDCE SKIPPED.
6460 037224 656 10 0 00 000011 TDCN AC,AC1 ;C(E) + C(AC) NOT = 0..SKIP.
6461 037225 005 10 0 00 060674 ER AC,[ASCII /TST/]
6462 037226 312 10 0 00 061125 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
6463 037227 001 06 0 00 061125 ERR RAN1,RAN
6464 LOOP TDCEE,TDCEF^
6465 037230 367 07 0 00 037211 SOJG AC-1,TDCEE ;ITERATION COUNTER
6466 037231 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6467 037232 321 07 0 00 037220 JUMPL AC-1,TDCEF ;LOOP ON ERROR SWITCH ^
6468
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 124
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0177
6469
6470 ;TEST TDCE. CHECKING FOR SKIP/NO SKIP AND
6471 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION.
6472
6473 000010 AC=10
6474 037233 TDCE7: SETUP 100,0^
6475 000011 AC1=<AC+1>&17
6476 000012 AC2=<AC+2>&17
6477 000013 AC3=<AC+3>&17
6478 000014 AC4=<AC+4>&17
6479 000015 AC5=<AC+5>&17
6480 000006 RAN1=<AC-2>&17
6481 037233 201 07 0 00 037233 MOVEI AC-1,.
6482 037234 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6483 037235 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6484 037236 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6485 037237 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6486 037240 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6487 037241 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6488 037242 TDCE8: RANDOM^
6489 037242 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6490 037243 270 10 0 00 060657 ADD AC,[142536475076]
6491 037244 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6492 037245 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
6493 037246 322 10 0 00 037242 JUMPE AC,TDCE8 ;REJECT IF RAN = 0.
6494 037247 200 11 0 00 061125 TDCE9: MOVE AC1,RAN ;MAKE C("AC") = C("E").
6495 037250 652 11 0 00 000010 TDCE AC1,AC ;C(E) + C(AC) NOT = 0. NO SKIP.
6496 037251 312 11 0 00 060660 CAME AC1,[0] ;C(AC) SHOULD = 0.
6497 037252 001 10 0 00 000010 ERR AC,AC
6498 LOOP TDCE8,TDCE9^
6499 037253 367 07 0 00 037242 SOJG AC-1,TDCE8 ;ITERATION COUNTER
6500 037254 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6501 037255 321 07 0 00 037247 JUMPL AC-1,TDCE9 ;LOOP ON ERROR SWITCH ^
6502
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 125
DSKBA1 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION ONE SEQ 0178
6503
6504 ;TEST TDCE. CHECKING FOR SKIP/NO SKIP AND
6505 ;CORRECT DATA IN AC FOR RAN TO NOT RAN.
6506
6507 000010 AC=10
6508 037256 TDCEG: SETUP 100,0^
6509 000011 AC1=<AC+1>&17
6510 000012 AC2=<AC+2>&17
6511 000013 AC3=<AC+3>&17
6512 000014 AC4=<AC+4>&17
6513 000015 AC5=<AC+5>&17
6514 000006 RAN1=<AC-2>&17
6515 037256 201 07 0 00 037256 MOVEI AC-1,.
6516 037257 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6517 037260 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6518 037261 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6519 037262 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6520 037263 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6521 037264 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6522 037265 TDCEH: RANDOM^
6523 037265 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6524 037266 270 10 0 00 060657 ADD AC,[142536475076]
6525 037267 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6526 037270 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
6527 037271 460 11 0 00 000010 TDCEI: SETCM AC1,AC ;MAKE C("AC") = TO COMP OF RAN.
6528 037272 200 06 0 00 000011 MOVE RAN1,AC1 ;SAVE C(AC) IN CASE OF ERROR.
6529 037273 652 11 0 00 000010 TDCE AC1,AC ;C(E) + C(AC) = 0. SKIP.
6530 037274 005 11 0 00 060674 ER AC1,[ASCII /TST/]
6531 037275 312 11 0 00 060662 CAME AC1,[-1] ;C(AC) SHOULD = -1.
6532 037276 001 10 0 00 000006 ERR AC,RAN1
6533 LOOP TDCEH,TDCEI^
6534 037277 367 07 0 00 037265 SOJG AC-1,TDCEH ;ITERATION COUNTER
6535 037300 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6536 037301 321 07 0 00 037271 JUMPL AC-1,TDCEI ;LOOP ON ERROR SWITCH ^
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 1
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0179
6537 SUBTTL DIAGNOSTIC SECTION TWO
6538 LALL
6539
6540 ;TEST TDCN. CHECK FOR SKIP /NO SKIP AND
6541 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
6542
6543
6544 000006 AC=6
6545 037302 TDCN1: SETUP 100,0^
6546 000007 AC1=<AC+1>&17
6547 000010 AC2=<AC+2>&17
6548 000011 AC3=<AC+3>&17
6549 000012 AC4=<AC+4>&17
6550 000013 AC5=<AC+5>&17
6551 000004 RAN1=<AC-2>&17
6552 037302 201 05 0 00 037302 MOVEI AC-1,.
6553 037303 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6554 037304 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6555 037305 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6556 037306 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6557 037307 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6558 037310 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6559 037311 TDCN2: RANDOM^
6560 037311 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6561 037312 270 06 0 00 060657 ADD AC,[142536475076]
6562 037313 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6563 037314 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
6564 037315 400 07 0 00 000000 TDCN3: SETZ AC1, ;CLEAR C("AC").
6565 037316 656 07 0 00 000006 TDCN AC1,AC ;C(E)+C(AC)=0. NO SKIP.
6566 037317 312 07 0 00 061125 CAME AC1,RAN ;C(AC) SHOULD = C(E).
6567 037320 001 06 0 00 060660 ERR AC,[0]
6568 LOOP TDCN2,TDCN3^
6569 037321 367 05 0 00 037311 SOJG AC-1,TDCN2 ;ITERATION COUNTER
6570 037322 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6571 037323 321 05 0 00 037315 JUMPL AC-1,TDCN3 ;LOOP ON ERROR SWITCH ^
6572
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 2
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0180
6573 ;TEST TDCN. CHECKING FOR SKIP/NO SKIP AND
6574 ;CORRECT DATA IN AC FOR RAN TO -1 CONDITION.
6575
6576
6577 000010 AC=10
6578 037324 TDCN4: SETUP 100,0^
6579 000011 AC1=<AC+1>&17
6580 000012 AC2=<AC+2>&17
6581 000013 AC3=<AC+3>&17
6582 000014 AC4=<AC+4>&17
6583 000015 AC5=<AC+5>&17
6584 000006 RAN1=<AC-2>&17
6585 037324 201 07 0 00 037324 MOVEI AC-1,.
6586 037325 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6587 037326 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6588 037327 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6589 037330 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6590 037331 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6591 037332 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6592 037333 TDCN5: RANDOM^
6593 037333 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6594 037334 270 10 0 00 060657 ADD AC,[142536475076]
6595 037335 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6596 037336 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
6597 037337 322 10 0 00 037333 JUMPE AC,TDCN5 ;REJECT IF RAN = 0.
6598 037340 477 11 0 00 000006 TDCN6: SETOB AC1,RAN1 ;SET C(AC) TO A -1.
6599 037341 460 12 0 00 000010 SETCM AC2,AC ;SIMULATE TDC
6600 037342 656 11 0 00 000010 TDCN AC1,AC ;C(E)+C(AC) NOT=0. SKIP.
6601 037343 005 11 0 00 060674 ER AC1,[ASCII /TST/]
6602 037344 312 11 0 00 000012 CAME AC1,AC2 ;C(AC)SHOULD=SIM. ANS.
6603 037345 001 10 0 00 060662 ERR AC,[-1]
6604 LOOP TDCN5,TDCN6^
6605 037346 367 07 0 00 037333 SOJG AC-1,TDCN5 ;ITERATION COUNTER
6606 037347 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6607 037350 321 07 0 00 037340 JUMPL AC-1,TDCN6 ;LOOP ON ERROR SWITCH ^
6608
6609
6610
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 3
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0181
6611
6612
6613 ;TEST TDCN. CHECKING FOR SKIP /NO SKIP AND
6614 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
6615
6616
6617 000002 AC=2
6618 037351 TDCN7: SETUP 100,0^
6619 000003 AC1=<AC+1>&17
6620 000004 AC2=<AC+2>&17
6621 000005 AC3=<AC+3>&17
6622 000006 AC4=<AC+4>&17
6623 000007 AC5=<AC+5>&17
6624 000000 RAN1=<AC-2>&17
6625 037351 201 01 0 00 037351 MOVEI AC-1,.
6626 037352 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6627 037353 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6628 037354 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6629 037355 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6630 037356 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6631 037357 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6632 037360 TDCN8: RANDOM^
6633 037360 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6634 037361 270 02 0 00 060657 ADD AC,[142536475076]
6635 037362 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6636 037363 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
6637 037364 322 02 0 00 037360 JUMPE AC,TDCN8 ;REJECT IF RAN = 0.
6638 037365 656 02 0 00 000002 TDCN9: TDCN AC,AC ;C(E) + C(AC) NOT = 0...SKIP.
6639 037366 005 02 0 00 060674 ER AC,[ASCII /TST/]
6640 037367 312 02 0 00 060660 CAME AC,[0] ;C(AC) SHOULD = 0.
6641 037370 011 00 0 00 061125 EERR ,RAN
6642 LOOP TDCN8,TDCN9^
6643 037371 367 01 0 00 037360 SOJG AC-1,TDCN8 ;ITERATION COUNTER
6644 037372 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6645 037373 321 01 0 00 037365 JUMPL AC-1,TDCN9 ;LOOP ON ERROR SWITCH ^
6646
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 4
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0182
6647
6648
6649 ;TEST TDCN. CHECKING FOR SKIP /NO SKIP AND
6650 ;CORRECT DATA IN AC FOR RAN TO NOT RAN CONDITION
6651
6652
6653 000003 AC=3
6654 037374 TDCNG: SETUP 100,0^
6655 000004 AC1=<AC+1>&17
6656 000005 AC2=<AC+2>&17
6657 000006 AC3=<AC+3>&17
6658 000007 AC4=<AC+4>&17
6659 000010 AC5=<AC+5>&17
6660 000001 RAN1=<AC-2>&17
6661 037374 201 02 0 00 037374 MOVEI AC-1,.
6662 037375 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6663 037376 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6664 037377 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6665 037400 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6666 037401 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6667 037402 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6668 037403 TDCNH: RANDOM^
6669 037403 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6670 037404 270 03 0 00 060657 ADD AC,[142536475076]
6671 037405 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6672 037406 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
6673 037407 460 04 0 00 000003 TDCNI: SETCM AC1,AC ;MAKE C("AC")=COMP OF RAN.
6674 037410 200 01 0 00 000004 MOVE RAN1,AC1 ;SAVE C(AC) IN CASE OF ERROR.
6675 037411 656 04 0 00 000003 TDCN AC1,AC ;C(E)+C(AC)=0. NO SKIP.
6676 037412 312 04 0 00 060662 CAME AC1,[-1] ;C(AC) SHOULD = A-1.
6677 037413 001 03 0 00 000001 ERR AC,RAN1
6678 LOOP TDCNH,TDCNI^
6679 037414 367 02 0 00 037403 SOJG AC-1,TDCNH ;ITERATION COUNTER
6680 037415 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6681 037416 321 02 0 00 037407 JUMPL AC-1,TDCNI ;LOOP ON ERROR SWITCH ^
6682
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 5
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0183
6683
6684
6685 ;TEST TDCE,TDCN. ROT A MASK BIT IN E AND
6686 ;CLEAR THAT BIT IN AC BEFORE TDC. CHECK SKIP/NO SKIP
6687 ;AND CORRECT DATA IN AC.
6688
6689
6690 000004 AC=4
6691 037417 TDCE10: SETUP 40,0^
6692 000005 AC1=<AC+1>&17
6693 000006 AC2=<AC+2>&17
6694 000007 AC3=<AC+3>&17
6695 000010 AC4=<AC+4>&17
6696 000011 AC5=<AC+5>&17
6697 000002 RAN1=<AC-2>&17
6698 037417 201 03 0 00 037417 MOVEI AC-1,.
6699 037420 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6700 037421 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6701 037422 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6702 037423 201 03 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
6703 037424 240 03 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6704 037425 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6705 037426 201 05 0 00 000001 MOVEI AC1,1 ;SETUP AC1 TO CONTAIN ONE MASK BIT.
6706 037427 TDCE11: RANDOM^
6707 037427 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6708 037430 270 04 0 00 060657 ADD AC,[142536475076]
6709 037431 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6710 037432 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
6711 037433 241 05 0 00 000001 ROT AC1,1 ;ROT MASK TO TEST NEXT BIT
6712 037434 420 04 0 00 000005 TDCE12: ANDCM AC,AC1 ;CLEAR MASK BIT IN AC.
6713 037435 200 06 0 00 000004 MOVE AC2,AC ;SAVE AC IN AC2.
6714 037436 656 04 0 00 000005 TDCN AC,AC1 ;C(E) + C(AC) = 0...NO SKIP.
6715 037437 254 00 0 00 037441 JRST .+2
6716 037440 005 04 0 00 060674 ER AC,[ASCII /TST/];TDCN SKIPPED.
6717 037441 656 04 0 00 000005 TDCN AC,AC1 ;C(E) + C(AC) NOT = 0...SKIP.
6718 037442 005 04 0 00 060674 ER AC,[ASCII /TST/]
6719 037443 312 04 0 00 000006 CAME AC,AC2 ;C(AC) SHOULD = ORIG. C(AC).
6720 037444 001 05 0 00 000006 ERR AC1,AC2
6721 037445 652 04 0 00 000005 TDCE AC,AC1 ;C(E) + C(AC) = 0...SKIP.
6722 037446 005 04 0 00 060674 ER AC,[ASCII /TST/]
6723 037447 652 04 0 00 000005 TDCE AC,AC1 ;C(E) + C(AC) NOT = 0...NO SKIP.
6724 037450 312 04 0 00 000006 CAME AC,AC2 ;C(AC) SHOULD = ORIG. C(AC).
6725 037451 001 05 0 00 000006 ERR AC1,AC2
6726 LOOP TDCE11,TDCE12^
6727 037452 367 03 0 00 037427 SOJG AC-1,TDCE11 ;ITERATION COUNTER
6728 037453 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6729 037454 321 03 0 00 037434 JUMPL AC-1,TDCE12 ;LOOP ON ERROR SWITCH ^
6730
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 6
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0184
6731
6732
6733 ;TEST TDCE, TDCN. ROT A BIT IN E AND
6734 ;SET THAT BIT IN AC BEFORE TDC. CHECK FOR
6735 ;SKIP /NO SKIP AND CORRECT DATA IN AC.
6736
6737
6738 000005 AC=5
6739 037455 TDCE20: SETUP 40,0^
6740 000006 AC1=<AC+1>&17
6741 000007 AC2=<AC+2>&17
6742 000010 AC3=<AC+3>&17
6743 000011 AC4=<AC+4>&17
6744 000012 AC5=<AC+5>&17
6745 000003 RAN1=<AC-2>&17
6746 037455 201 04 0 00 037455 MOVEI AC-1,.
6747 037456 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6748 037457 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6749 037460 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6750 037461 201 04 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
6751 037462 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6752 037463 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6753 037464 201 06 0 00 000001 MOVEI AC1,1 ;SETUP AC1 TO CONTAIN MASK BIT.
6754 037465 TDCE21: RANDOM^
6755 037465 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6756 037466 270 05 0 00 060657 ADD AC,[142536475076]
6757 037467 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6758 037470 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
6759 037471 241 06 0 00 000001 ROT AC1,1 ;ROT MASK TO TEST NEXT BIT.
6760 037472 434 05 0 00 000006 TDCE22: IOR AC,AC1 ;SET MASK BIT IN AC.
6761 037473 200 07 0 00 000005 MOVE AC2,AC ;SAVE AC IN AC2.
6762 037474 652 05 0 00 000006 TDCE AC,AC1 ;C(E) + C(AC) NOT = 0...NO SKIP.
6763 037475 254 00 0 00 037477 JRST .+2
6764 037476 005 05 0 00 060674 ER AC,[ASCII /TST/];TDCE SKIPPED.
6765 037477 652 05 0 00 000006 TDCE AC,AC1 ;C(E) + C(AC) = 0...SKIP.
6766 037500 005 05 0 00 060674 ER AC,[ASCII /TST/]
6767 037501 312 05 0 00 000007 CAME AC,AC2 ;C(AC) SHOULD = ORIG. C(AC).
6768 037502 001 06 0 00 000007 ERR AC1,AC2
6769 037503 656 05 0 00 000006 TDCN AC,AC1 ;C(E) + C(AC) NOT = 0...SKIP.
6770 037504 005 05 0 00 060674 ER AC,[ASCII /TST/]
6771 037505 656 05 0 00 000006 TDCN AC,AC1 ;C(E) + C(AC) = 0...NO SKIP.
6772 037506 312 05 0 00 000007 CAME AC,AC2 ;C(AC) SHOULD = ORIG. C(AC).
6773 037507 001 06 0 00 000007 ERR AC1,AC2
6774 LOOP TDCE21,TDCE22^
6775 037510 367 04 0 00 037465 SOJG AC-1,TDCE21 ;ITERATION COUNTER
6776 037511 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6777 037512 321 04 0 00 037472 JUMPL AC-1,TDCE22 ;LOOP ON ERROR SWITCH ^
6778
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 7
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0185
6779
6780
6781 ;TEST TDCE, TDCN. ROT A BIT IN AC
6782 ;AND CLEAR THAT BIT E BEFORE TDC
6783 ;CHECK FOR SKIP /NO SKIP AND CORRECT DATA IN AC.
6784
6785
6786 000006 AC=6
6787 037513 TDCN1A: SETUP 40,0^
6788 000007 AC1=<AC+1>&17
6789 000010 AC2=<AC+2>&17
6790 000011 AC3=<AC+3>&17
6791 000012 AC4=<AC+4>&17
6792 000013 AC5=<AC+5>&17
6793 000004 RAN1=<AC-2>&17
6794 037513 201 05 0 00 037513 MOVEI AC-1,.
6795 037514 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6796 037515 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6797 037516 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6798 037517 201 05 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
6799 037520 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6800 037521 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6801 037522 201 07 0 00 000001 MOVEI AC1,1 ;SETUP A BIT IN "AC".
6802 037523 TDCN1B: RANDOM^
6803 037523 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6804 037524 270 06 0 00 060657 ADD AC,[142536475076]
6805 037525 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6806 037526 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
6807 037527 241 07 0 00 000001 ROT AC1,1 ;ROT BIT TO TEST NEXT BIT.
6808 037530 200 10 0 00 000007 MOVE AC2,AC1 ;SAVE IN AC2 FOR FUTURE COMPARE.
6809 037531 200 07 0 00 000010 TDCN1C: MOVE AC1,AC2 ;COME HERE AND RESTORE C(AC) IF ERROR OCCURED.
6810 037532 420 06 0 00 000007 ANDCM AC,AC1 ;CLEAR BIT IN "E".
6811 037533 322 06 0 00 037523 JUMPE AC,TDCN1B ;REJECT IF = 0.
6812 037534 656 07 0 00 000006 TDCN AC1,AC ;C(E)+C(AC)=0. NO SKIP.
6813 037535 254 00 0 00 037537 JRST .+2
6814 037536 005 07 0 00 060674 ER AC1,[ASCII /TST/];TDCN SKIPPED.
6815 037537 656 07 0 00 000006 TDCN AC1,AC ;C(E)+C(AC)NOT=0. SKIP.
6816 037540 005 07 0 00 060674 ER AC1,[ASCII /TST/]
6817 037541 312 07 0 00 000010 CAME AC1,AC2 ;C(AC)SHOULD=C(AC)BEFORE TDC'S.
6818 037542 001 06 0 00 000010 ERR AC,AC2
6819 037543 652 07 0 00 000006 TDCE AC1,AC ;C(E)+C(AC)=0.SKIP.
6820 037544 005 07 0 00 060674 ER AC1,[ASCII /TST/]
6821 037545 652 07 0 00 000006 TDCE AC1,AC ;C(E)+C(AC)NOT=0. NO SKIP.
6822 037546 312 07 0 00 000010 CAME AC1,AC2 ;C(AC) SHOULD = C(AC) BEFORE TDC'S.
6823 037547 001 06 0 00 000010 ERR AC,AC2
6824 LOOP TDCN1B,TDCN1C^
6825 037550 367 05 0 00 037523 SOJG AC-1,TDCN1B ;ITERATION COUNTER
6826 037551 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6827 037552 321 05 0 00 037531 JUMPL AC-1,TDCN1C ;LOOP ON ERROR SWITCH ^
6828
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 8
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0186
6829
6830
6831 ;TEST TDCE, TDCN. ROT A BIT IN AC AND SET THAT BIT IN
6832 ;E BEFORE TDC. CHECK FOR SKIP /NO SKIP AND CORRECT DATA IN AC.
6833
6834
6835 000007 AC=7
6836 037553 TDCNA1: SETUP 40,0^
6837 000010 AC1=<AC+1>&17
6838 000011 AC2=<AC+2>&17
6839 000012 AC3=<AC+3>&17
6840 000013 AC4=<AC+4>&17
6841 000014 AC5=<AC+5>&17
6842 000005 RAN1=<AC-2>&17
6843 037553 201 06 0 00 037553 MOVEI AC-1,.
6844 037554 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6845 037555 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6846 037556 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6847 037557 201 06 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
6848 037560 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6849 037561 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6850 037562 201 10 0 00 000001 MOVEI AC1,1 ;SET A BIT IN AC
6851 037563 TDCNA2: RANDOM^
6852 037563 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6853 037564 270 07 0 00 060657 ADD AC,[142536475076]
6854 037565 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6855 037566 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
6856 037567 241 10 0 00 000001 ROT AC1,1 ;ROT BIT TO TEST NEXT BIT.
6857 037570 200 11 0 00 000010 MOVE AC2,AC1 ;SAVE "AC". IN CASE OF ERROR
6858 037571 200 10 0 00 000011 TDCNA3: MOVE AC1,AC2 ;RESTORE "AC".
6859 037572 434 07 0 00 000010 IOR AC,AC1 ;SET BIT IN "E".
6860 037573 200 12 0 00 000007 MOVE AC3,AC ;SIMULATE
6861 037574 430 12 0 00 000010 XOR AC3,AC1 ;A TDC.
6862 037575 652 10 0 00 000007 TDCE AC1,AC ;C(E)+C(AC) NOT=0. NO SKIP.
6863 037576 312 10 0 00 000012 CAME AC1,AC3 ;C(AC) SHOULD = SIM. ANS.
6864 037577 001 07 0 00 000011 ERR AC,AC2
6865 037600 200 10 0 00 000011 MOVE AC1,AC2 ;RESTORE "AC".
6866 037601 656 10 0 00 000007 TDCN AC1,AC ;C(E)+C(AC) NOT=0. SKIP.
6867 037602 005 10 0 00 060674 ER AC1,[ASCII /TST/]
6868 037603 312 10 0 00 000012 CAME AC1,AC3 ;C(AC) SHOULD = SIM. ANS.
6869 037604 001 07 0 00 000011 ERR AC,AC2
6870 037605 200 10 0 00 000011 MOVE AC1,AC2 ;RESTORE "AC".
6871 LOOP TDCNA2,TDCNA3^
6872 037606 367 06 0 00 037563 SOJG AC-1,TDCNA2 ;ITERATION COUNTER
6873 037607 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6874 037610 321 06 0 00 037571 JUMPL AC-1,TDCNA3 ;LOOP ON ERROR SWITCH ^
6875
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 9
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0187
6876
6877
6878 ;TEST TDNE, TDNN. ROT A BIT IN E AND
6879 ;CLEAR THAT BIT IN AC BEFORE TDN. CHECK FOR
6880 ;SKIP /NO SKIP AND CORRECT DATA IN AC.
6881
6882
6883 000010 AC=10
6884 037611 TDNN1: SETUP 40,0^
6885 000011 AC1=<AC+1>&17
6886 000012 AC2=<AC+2>&17
6887 000013 AC3=<AC+3>&17
6888 000014 AC4=<AC+4>&17
6889 000015 AC5=<AC+5>&17
6890 000006 RAN1=<AC-2>&17
6891 037611 201 07 0 00 037611 MOVEI AC-1,.
6892 037612 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6893 037613 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6894 037614 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6895 037615 201 07 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
6896 037616 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6897 037617 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6898 037620 201 11 0 00 000001 MOVEI AC1,1 ;SET A BIT IN "E".
6899 037621 TDNN2: RANDOM^
6900 037621 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6901 037622 270 10 0 00 060657 ADD AC,[142536475076]
6902 037623 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6903 037624 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
6904 037625 241 11 0 00 000001 ROT AC1,1 ;ROT BIT TO TEST NEXT BIT.
6905 037626 420 10 0 00 000011 TDNN3: ANDCM AC,AC1 ;CLEAR BIT IN "AC".
6906 037627 200 12 0 00 000010 MOVE AC2,AC ;SAVE C("AC") FOR FUTURE COMPARE.
6907 037630 616 10 0 00 000011 TDNN AC,AC1 ;C(E) + C(AC) = 0...NO SKIP.
6908 037631 254 00 0 00 037633 JRST .+2
6909 037632 005 10 0 00 060674 ER AC,[ASCII /TST/];TDNN SKIPPED.
6910 037633 612 10 0 00 000011 TDNE AC,AC1 ;C(E)+C(AC)=0. SKIP.
6911 037634 005 10 0 00 060674 ER AC,[ASCII /TST/]
6912 037635 312 10 0 00 000012 CAME AC,AC2 ;C(AC)SHOULD NOT HAVE CHANGED.
6913 037636 001 11 0 00 000012 ERR AC1,AC2
6914 LOOP TDNN2,TDNN3^
6915 037637 367 07 0 00 037621 SOJG AC-1,TDNN2 ;ITERATION COUNTER
6916 037640 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6917 037641 321 07 0 00 037626 JUMPL AC-1,TDNN3 ;LOOP ON ERROR SWITCH ^
6918
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 10
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0188
6919
6920
6921 ;TEST TDNE, TDNN. ROT A BIT IN E AND SET THAT BIT IN AC BEFORE TDN. CHECK
6922 ;FOR SKIP /NO SKIP AND CORRECT DATA IN AC.
6923
6924
6925 000011 AC=11
6926 037642 TDNNA: SETUP 40,0^
6927 000012 AC1=<AC+1>&17
6928 000013 AC2=<AC+2>&17
6929 000014 AC3=<AC+3>&17
6930 000015 AC4=<AC+4>&17
6931 000016 AC5=<AC+5>&17
6932 000007 RAN1=<AC-2>&17
6933 037642 201 10 0 00 037642 MOVEI AC-1,.
6934 037643 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6935 037644 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6936 037645 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6937 037646 201 10 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
6938 037647 240 10 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6939 037650 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6940 037651 201 12 0 00 000001 MOVEI AC1,1 ;SET A BIT IN "E"
6941 037652 TDNNB: RANDOM^
6942 037652 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6943 037653 270 11 0 00 060657 ADD AC,[142536475076]
6944 037654 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6945 037655 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
6946 037656 241 12 0 00 000001 ROT AC1,1 ;ROT BIT TO TEST NEXT BIT.
6947 037657 434 11 0 00 000012 TDNNC: IOR AC,AC1 ;SET BIT IN "AC".
6948 037660 200 13 0 00 000011 MOVE AC2,AC ;SAVE FOR FUTURE COMPARE.
6949 037661 612 11 0 00 000012 TDNE AC,AC1 ;C(E)+(AC)NOT=0. NO SKIP.
6950 037662 254 00 0 00 037664 JRST .+2
6951 037663 005 11 0 00 060674 ER AC,[ASCII /TST/];TDNE SKIPPED.
6952 037664 616 11 0 00 000012 TDNN AC,AC1 ;C(E)+C(AC)NOT=0. SKIP
6953 037665 005 11 0 00 060674 ER AC,[ASCII /TST/]
6954 037666 312 11 0 00 000013 CAME AC,AC2 ;C(AC)SHOULD NOT HAVE CHANGED.
6955 037667 001 12 0 00 000013 ERR AC1,AC2
6956 LOOP TDNNB,TDNNC^
6957 037670 367 10 0 00 037652 SOJG AC-1,TDNNB ;ITERATION COUNTER
6958 037671 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6959 037672 321 10 0 00 037657 JUMPL AC-1,TDNNC ;LOOP ON ERROR SWITCH ^
6960
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 11
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0189
6961
6962
6963 ;TEST TDNE, TDNN. ROT A BIT IN AC AND
6964 ;CLEAR THAT BIT IN E BEFORE TDN. CHECK FOR
6965 ;SKIP /NO SKIP AND CORRECT DATA IN AC.
6966
6967
6968 000012 AC=12
6969 037673 TDNND: SETUP 40,0^
6970 000013 AC1=<AC+1>&17
6971 000014 AC2=<AC+2>&17
6972 000015 AC3=<AC+3>&17
6973 000016 AC4=<AC+4>&17
6974 000017 AC5=<AC+5>&17
6975 000010 RAN1=<AC-2>&17
6976 037673 201 11 0 00 037673 MOVEI AC-1,.
6977 037674 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6978 037675 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6979 037676 202 11 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6980 037677 201 11 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
6981 037700 240 11 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6982 037701 240 11 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6983 037702 201 13 0 00 000001 MOVEI AC1,1 ;SET A BIT IN "AC"
6984 037703 TDNNE: RANDOM^
6985 037703 200 12 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6986 037704 270 12 0 00 060657 ADD AC,[142536475076]
6987 037705 241 12 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6988 037706 447 12 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
6989 037707 241 13 0 00 000001 ROT AC1,1 ;ROT TO TEST NEXT BIT.
6990 037710 200 14 0 00 000013 MOVE AC2,AC1 ;SAVE C("AC") SO C("AC") CAN BE
6991 037711 200 13 0 00 000014 TDNNF: MOVE AC1,AC2 ;RESTORED IN CASE OF ERROR.
6992 037712 420 12 0 00 000013 ANDCM AC,AC1 ;CLEAR BIT IN"E".
6993 037713 616 13 0 00 000012 TDNN AC1,AC ;C(E)+C(AC)=0. NO SKIP.
6994 037714 254 00 0 00 037716 JRST .+2
6995 037715 005 13 0 00 060674 ER AC1,[ASCII /TST/];TDNN SKIPPED.
6996 037716 612 13 0 00 000012 TDNE AC1,AC ;C(E)+C(AC)=0. SKIP.
6997 037717 005 13 0 00 060674 ER AC1,[ASCII /TST/]
6998 037720 312 13 0 00 000014 CAME AC1,AC2 ;C(AC)SHOULD NOT CHANGE
6999 037721 001 12 0 00 000014 ERR AC,AC2
7000 LOOP TDNNE,TDNNF^
7001 037722 367 11 0 00 037703 SOJG AC-1,TDNNE ;ITERATION COUNTER
7002 037723 200 12 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
7003 037724 321 11 0 00 037711 JUMPL AC-1,TDNNF ;LOOP ON ERROR SWITCH ^
7004
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 12
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0190
7005
7006
7007 ;TEST TDNE, TDNN. ROT A BIT IN AC AND SET THAT BIT IN E
7008 ;BEFORE TDN. CHECK FOR SKIP /NO SKIP AND CORRECT DATA IN AC.
7009
7010
7011
7012
7013 000013 AC=13
7014 037725 TDNN4: SETUP 40,0^
7015 000014 AC1=<AC+1>&17
7016 000015 AC2=<AC+2>&17
7017 000016 AC3=<AC+3>&17
7018 000017 AC4=<AC+4>&17
7019 000000 AC5=<AC+5>&17
7020 000011 RAN1=<AC-2>&17
7021 037725 201 12 0 00 037725 MOVEI AC-1,.
7022 037726 202 12 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
7023 037727 201 12 0 00 000012 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
7024 037730 202 12 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
7025 037731 201 12 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
7026 037732 240 12 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
7027 037733 240 12 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
7028 037734 201 14 0 00 000001 MOVEI AC1,1 ;SET A BIT IN "AC".
7029 037735 TDNN5: RANDOM^
7030 037735 200 13 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
7031 037736 270 13 0 00 060657 ADD AC,[142536475076]
7032 037737 241 13 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
7033 037740 447 13 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
7034 037741 241 14 0 00 000001 ROT AC1,1 ;ROT TO TEST NEXT BIT.
7035 037742 200 15 0 00 000014 MOVE AC2,AC1 ;SAVE C("AC") SO C("AC") CAN BE
7036 037743 200 14 0 00 000015 TDNN6: MOVE AC1,AC2 ;RESTORED IN CASE OF ERROR.
7037 037744 434 13 0 00 000014 IOR AC,AC1 ;SET BIT IN "E".
7038 037745 612 14 0 00 000013 TDNE AC1,AC ;C(E)+C(AC)NOT=0. NO SKIP.
7039 037746 254 00 0 00 037750 JRST .+2
7040 037747 005 14 0 00 060674 ER AC1,[ASCII /TST/];TDNE SKIPPED.
7041 037750 616 14 0 00 000013 TDNN AC1,AC ;C(E)+C(AC)NOT=0. SKIP.
7042 037751 005 14 0 00 060674 ER AC1,[ASCII /TST/]
7043 037752 312 14 0 00 000015 CAME AC1,AC2 ;C(AC)SHOULD NOT CHANGE.
7044 037753 001 13 0 00 000015 ERR AC,AC2
7045 LOOP TDNN5,TDNN6^
7046 037754 367 12 0 00 037735 SOJG AC-1,TDNN5 ;ITERATION COUNTER
7047 037755 200 13 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
7048 037756 321 12 0 00 037743 JUMPL AC-1,TDNN6 ;LOOP ON ERROR SWITCH ^
7049
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 13
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0191
7050
7051
7052 ;TEST TSC CHECK FOR SKIP /NO SKIP AND
7053 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION.
7054
7055
7056 000014 AC=14
7057 037757 TSC1: SETUP 100,0^
7058 000015 AC1=<AC+1>&17
7059 000016 AC2=<AC+2>&17
7060 000017 AC3=<AC+3>&17
7061 000000 AC4=<AC+4>&17
7062 000001 AC5=<AC+5>&17
7063 000012 RAN1=<AC-2>&17
7064 037757 201 13 0 00 037757 MOVEI AC-1,.
7065 037760 202 13 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
7066 037761 201 13 0 00 000013 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
7067 037762 202 13 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
7068 037763 201 13 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
7069 037764 240 13 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
7070 037765 240 13 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
7071 037766 TSC2: RANDOM^
7072 037766 200 14 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
7073 037767 270 14 0 00 060657 ADD AC,[142536475076]
7074 037770 241 14 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
7075 037771 447 14 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
7076 037772 403 15 0 00 000012 TSC3: SETZB AC1,RAN1 ;CLEAR C(AC).
7077 037773 200 16 0 00 000014 MOVE AC2,AC ;SIMULATE
7078 037774 241 16 0 00 000022 ROT AC2,22 ;A TSC.
7079 037775 651 15 0 00 000014 TSC AC1,AC ;SHOULD NOT SKIP
7080 037776 312 15 0 00 000016 CAME AC1,AC2 ;C(AC) SHOULD = SIM. ANS.
7081 037777 001 14 0 00 000012 ERR AC,RAN1
7082 LOOP TSC2,TSC3^
7083 040000 367 13 0 00 037766 SOJG AC-1,TSC2 ;ITERATION COUNTER
7084 040001 200 14 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
7085 040002 321 13 0 00 037772 JUMPL AC-1,TSC3 ;LOOP ON ERROR SWITCH ^
7086
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 14
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0192
7087
7088
7089 ;TEST TSC. CHECK FOR SKIP /NO SKIP AND
7090 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION.
7091
7092
7093 000015 AC=15
7094
7095 040003 TSC4: SETUP 100,0^
7096 000016 AC1=<AC+1>&17
7097 000017 AC2=<AC+2>&17
7098 000000 AC3=<AC+3>&17
7099 000001 AC4=<AC+4>&17
7100 000002 AC5=<AC+5>&17
7101 000013 RAN1=<AC-2>&17
7102 040003 201 14 0 00 040003 MOVEI AC-1,.
7103 040004 202 14 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
7104 040005 201 14 0 00 000014 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
7105 040006 202 14 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
7106 040007 201 14 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
7107 040010 240 14 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
7108 040011 240 14 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
7109 040012 TSC5: RANDOM^
7110 040012 200 15 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
7111 040013 270 15 0 00 060657 ADD AC,[142536475076]
7112 040014 241 15 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
7113 040015 447 15 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
7114 040016 400 16 0 00 000000 TSC6: SETZ AC1, ;CLEAR "E".
7115 040017 651 15 0 00 000016 TSC AC,AC1 ;SHOULD NOT SKIP.
7116 040020 312 15 0 00 061125 CAME AC,RAN ;C(AC)SHOULD NOT HAVE CHANGED
7117 040021 001 16 0 00 061125 ERR AC1,RAN
7118 LOOP TSC5,TSC6^
7119 040022 367 14 0 00 040012 SOJG AC-1,TSC5 ;ITERATION COUNTER
7120 040023 200 15 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
7121 040024 321 14 0 00 040016 JUMPL AC-1,TSC6 ;LOOP ON ERROR SWITCH ^
7122
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 15
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0193
7123
7124
7125 ;TEST TSC. CHECK FOR SKIP/NO SKIP AND
7126 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION.
7127
7128
7129 000006 AC=6
7130 040025 TSC7: SETUP 100,0^
7131 000007 AC1=<AC+1>&17
7132 000010 AC2=<AC+2>&17
7133 000011 AC3=<AC+3>&17
7134 000012 AC4=<AC+4>&17
7135 000013 AC5=<AC+5>&17
7136 000004 RAN1=<AC-2>&17
7137 040025 201 05 0 00 040025 MOVEI AC-1,.
7138 040026 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
7139 040027 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
7140 040030 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
7141 040031 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
7142 040032 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
7143 040033 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
7144 040034 TSC8: RANDOM^
7145 040034 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
7146 040035 270 06 0 00 060657 ADD AC,[142536475076]
7147 040036 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
7148 040037 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
7149 040040 200 04 0 00 000006 TSC9: MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
7150 040041 204 07 0 00 000006 MOVS AC1,AC ;SIMULATE
7151 040042 430 07 0 00 000006 XOR AC1,AC ;A TSC
7152 040043 651 06 0 00 000006 TSC AC,AC ;SHOULD NOT SKIP
7153 040044 312 06 0 00 000007 CAME AC,AC1 ;C(AC)SHOULD=SIM. ANS.
7154 040045 001 04 0 00 061125 ERR RAN1,RAN
7155 LOOP TSC8,TSC9^
7156 040046 367 05 0 00 040034 SOJG AC-1,TSC8 ;ITERATION COUNTER
7157 040047 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
7158 040050 321 05 0 00 040040 JUMPL AC-1,TSC9 ;LOOP ON ERROR SWITCH ^
7159
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 16
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0194
7160
7161
7162 ;TEST TSC, TSCA. TWO TSC'S SHOULD PRODUCE ORIGINAL
7163 ;NUMBER IN AC. CHECK FOR SKIP/NO SKIP AND
7164 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
7165
7166
7167 000007 AC=7
7168 040051 TSCA1: SETUP 100,0^
7169 000010 AC1=<AC+1>&17
7170 000011 AC2=<AC+2>&17
7171 000012 AC3=<AC+3>&17
7172 000013 AC4=<AC+4>&17
7173 000014 AC5=<AC+5>&17
7174 000005 RAN1=<AC-2>&17
7175 040051 201 06 0 00 040051 MOVEI AC-1,.
7176 040052 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
7177 040053 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
7178 040054 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
7179 040055 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
7180 040056 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
7181 040057 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
7182 040060 TSCA2: RANDOM^
7183 040060 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
7184 040061 270 07 0 00 060657 ADD AC,[142536475076]
7185 040062 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
7186 040063 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
7187 040064 200 10 0 00 000007 TSCA3: MOVE AC1,AC ;MAKE C("E")=C("AC").
7188 040065 651 07 0 00 000010 TSC AC,AC1 ;SHOULD NOT SKIP
7189 040066 254 00 0 00 040070 JRST .+2
7190 040067 005 07 0 00 060674 ER AC,[ASCII /TST/];TSC SKIPPED.
7191 040070 655 07 0 00 000010 TSCA AC,AC1 ;SHOULD SKIP
7192 040071 005 07 0 00 060674 ER AC,[ASCII /TST/]
7193 040072 312 07 0 00 061125 CAME AC,RAN ;C(AC) SHOULD BE BACK TO ORIG NUM
7194 040073 001 10 0 00 061125 ERR AC1,RAN
7195 LOOP TSCA2,TSCA3^
7196 040074 367 06 0 00 040060 SOJG AC-1,TSCA2 ;ITERATION COUNTER
7197 040075 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
7198 040076 321 06 0 00 040064 JUMPL AC-1,TSCA3 ;LOOP ON ERROR SWITCH ^
7199
7200
7201
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 17
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0195
7202
7203
7204 ;TEST TSCE, TSCN. CHECK FOR SKIP/NO SKIP
7205 ;AND CORRECT DATA IN AC FOR 0 TO RAN CONDITION.
7206
7207
7208 000010 AC=10
7209 040077 TSCE1: SETUP 100,0^
7210 000011 AC1=<AC+1>&17
7211 000012 AC2=<AC+2>&17
7212 000013 AC3=<AC+3>&17
7213 000014 AC4=<AC+4>&17
7214 000015 AC5=<AC+5>&17
7215 000006 RAN1=<AC-2>&17
7216 040077 201 07 0 00 040077 MOVEI AC-1,.
7217 040100 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
7218 040101 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
7219 040102 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
7220 040103 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
7221 040104 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
7222 040105 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
7223 040106 TSCE2: RANDOM^
7224 040106 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
7225 040107 270 10 0 00 060657 ADD AC,[142536475076]
7226 040110 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
7227 040111 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
7228 040112 403 11 0 00 000006 TSCE3: SETZB AC1,RAN1 ;CLEAR C(E).
7229 040113 657 10 0 00 000011 TSCN AC,AC1 ;C(E)+C(AC)=0. NO SKIP
7230 040114 254 00 0 00 040116 JRST .+2
7231 040115 005 10 0 00 060674 ER AC,[ASCII /TST/];TSCN SKIPPED.
7232 040116 653 10 0 00 000011 TSCE AC,AC1 ;C(E)+C(AC)=0, SKIP
7233 040117 005 10 0 00 060674 ER AC,[ASCII /TST/]
7234 040120 312 10 0 00 061125 CAME AC,RAN ;C(AC) SHOULD STILL = RAN
7235 040121 001 06 0 00 061125 ERR RAN1,RAN
7236 LOOP TSCE2,TSCE3^
7237 040122 367 07 0 00 040106 SOJG AC-1,TSCE2 ;ITERATION COUNTER
7238 040123 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
7239 040124 321 07 0 00 040112 JUMPL AC-1,TSCE3 ;LOOP ON ERROR SWITCH ^
7240
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 18
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0196
7241
7242
7243 ;TEST TSCE, TSCN. CHECK FOR SKIP/NO SKIP
7244 ;AND CORRECT DATA IN AC FOR RAN TO 0 CONDITION.
7245
7246
7247 000010 AC=10
7248 040125 TSCEA: SETUP 100,0^
7249 000011 AC1=<AC+1>&17
7250 000012 AC2=<AC+2>&17
7251 000013 AC3=<AC+3>&17
7252 000014 AC4=<AC+4>&17
7253 000015 AC5=<AC+5>&17
7254 000006 RAN1=<AC-2>&17
7255 040125 201 07 0 00 040125 MOVEI AC-1,.
7256 040126 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
7257 040127 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
7258 040130 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
7259 040131 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
7260 040132 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
7261 040133 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
7262 040134 TSCEB: RANDOM^
7263 040134 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
7264 040135 270 10 0 00 060657 ADD AC,[142536475076]
7265 040136 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
7266 040137 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
7267 040140 403 11 0 00 000006 TSCEC: SETZB AC1,RAN1 ;CLEAR C("AC").
7268 040141 204 12 0 00 000010 MOVS AC2,AC ;SIMULATE TSC.
7269 040142 657 11 0 00 000010 TSCN AC1,AC ;C(E)+C(AC)=0. NO SKIP
7270 040143 312 11 0 00 000012 CAME AC1,AC2 ;C(AC) SHOULD = SIM ANS
7271 040144 001 10 0 00 000006 ERR AC,RAN1
7272 040145 400 11 0 00 000000 SETZ AC1, ;CLEAR C("AC").
7273 040146 653 11 0 00 000010 TSCE AC1,AC ;C(E)+C(AC)=0. SKIP
7274 040147 005 11 0 00 060674 ER AC1,[ASCII /TST/]
7275 040150 312 11 0 00 000012 CAME AC1,AC2 ;C(AC) SHOULD = SIM ANS
7276 040151 001 10 0 00 000006 ERR AC,RAN1
7277 LOOP TSCEB,TSCEC^
7278 040152 367 07 0 00 040134 SOJG AC-1,TSCEB ;ITERATION COUNTER
7279 040153 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
7280 040154 321 07 0 00 040140 JUMPL AC-1,TSCEC ;LOOP ON ERROR SWITCH ^
7281
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 19
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0197
7282
7283
7284 ;TEST TSCE, TSCN. CHECK FOR SKIP/NO SKIP AND
7285 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION
7286
7287
7288 000002 AC=2
7289 040155 TSCE4: SETUP 100,0^
7290 000003 AC1=<AC+1>&17
7291 000004 AC2=<AC+2>&17
7292 000005 AC3=<AC+3>&17
7293 000006 AC4=<AC+4>&17
7294 000007 AC5=<AC+5>&17
7295 000000 RAN1=<AC-2>&17
7296 040155 201 01 0 00 040155 MOVEI AC-1,.
7297 040156 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
7298 040157 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
7299 040160 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
7300 040161 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
7301 040162 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
7302 040163 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
7303 040164 TSCE5: RANDOM^
7304 040164 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
7305 040165 270 02 0 00 060657 ADD AC,[142536475076]
7306 040166 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
7307 040167 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
7308 040170 322 02 0 00 040164 JUMPE AC,TSCE5 ;REJECT IF RAN = 0.
7309 040171 316 02 0 00 060662 CAMN AC,[-1] ;C(AC) = -1?
7310 040172 254 00 0 00 040164 JRST TSCE5 ;YES. REJECT.
7311 040173 477 03 0 00 000000 TSCE6: SETOB AC1,RAN1 ;SET C(E) TO ALL ONES.
7312 040174 653 02 0 00 000003 TSCE AC,AC1 ;C(E)+C(AC) NOT=0. NO SKIP
7313 040175 254 00 0 00 040177 JRST .+2
7314 040176 005 02 0 00 060674 ER AC,[ASCII /TST/];TSCE SKIPPED.
7315 040177 657 02 0 00 000003 TSCN AC,AC1 ;C(E)+C(AC) NOT=0, SKIP
7316 040200 005 02 0 00 060674 ER AC,[ASCII /TST/]
7317 040201 312 02 0 00 061125 CAME AC,RAN ;C(AC) SHOULD=ORIGINAL C(AC)
7318 040202 001 00 0 00 061125 ERR RAN1,RAN
7319 LOOP TSCE5,TSCE6^
7320 040203 367 01 0 00 040164 SOJG AC-1,TSCE5 ;ITERATION COUNTER
7321 040204 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
7322 040205 321 01 0 00 040173 JUMPL AC-1,TSCE6 ;LOOP ON ERROR SWITCH ^
7323
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 20
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0198
7324
7325
7326 ;TEST TSCE, TSCN. CHECK FOR SKIP/NO SKIP AND
7327 ;CORRECT DATA IN AC FOR RAN TO -1.
7328
7329
7330 000003 AC=3
7331 040206 TSCED: SETUP 100,0^
7332 000004 AC1=<AC+1>&17
7333 000005 AC2=<AC+2>&17
7334 000006 AC3=<AC+3>&17
7335 000007 AC4=<AC+4>&17
7336 000010 AC5=<AC+5>&17
7337 000001 RAN1=<AC-2>&17
7338 040206 201 02 0 00 040206 MOVEI AC-1,.
7339 040207 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
7340 040210 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
7341 040211 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
7342 040212 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
7343 040213 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
7344 040214 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
7345 040215 TSCEE: RANDOM^
7346 040215 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
7347 040216 270 03 0 00 060657 ADD AC,[142536475076]
7348 040217 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
7349 040220 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
7350 040221 322 03 0 00 040215 JUMPE AC,TSCEE ;REJECT IF RAN = 0.
7351 040222 477 04 0 00 000001 TSCEF: SETOB AC1,RAN1 ;SET C("AC") TO ALL ONES.
7352 040223 653 04 0 00 000003 TSCE AC1,AC ;C(E)+C(AC) NOT=0,NO SKIP
7353 040224 254 00 0 00 040226 JRST .+2
7354 040225 005 04 0 00 060674 ER AC1,[ASCII /TST/];TSCE SKIPPED.
7355 040226 653 04 0 00 000003 TSCE AC1,AC ;C(E) + C(AC) = 0. SKIP.
7356 040227 005 04 0 00 060674 ER AC1,[ASCII /TST/]
7357 040230 312 04 0 00 060662 CAME AC1,[-1] ;C(AC) SHOULD = ORIG. C(AC).
7358 040231 001 03 0 00 000001 ERR AC,RAN1
7359 040232 474 04 0 00 000000 SETO AC1, ;RESTORE C(AC).
7360 040233 657 04 0 00 000003 TSCN AC1,AC ;C(E) + C(AC) NOT = 0..SKIP.
7361 040234 005 04 0 00 060674 ER AC1,[ASCII /TST/]
7362 040235 657 04 0 00 000003 TSCN AC1,AC ;C(E) + C(AC) = 0..NO SKIP.
7363 040236 312 04 0 00 060662 CAME AC1,[-1] ;C(AC) SHOULD = ORIG. C(AC).
7364 040237 001 03 0 00 000001 ERR AC,RAN1
7365 LOOP TSCEE,TSCEF^
7366 040240 367 02 0 00 040215 SOJG AC-1,TSCEE ;ITERATION COUNTER
7367 040241 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
7368 040242 321 02 0 00 040222 JUMPL AC-1,TSCEF ;LOOP ON ERROR SWITCH ^
7369
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 21
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0199
7370
7371
7372 ;TEST TSCE, TSCN. CHECK FOR SKIP/NO SKIP
7373 ;AND CORRECT DATA IN AC FOR NOT RAN TO RAN
7374 ;CONDITION
7375
7376
7377 000004 AC=4
7378 040243 TSCN1: SETUP 100,0^
7379 000005 AC1=<AC+1>&17
7380 000006 AC2=<AC+2>&17
7381 000007 AC3=<AC+3>&17
7382 000010 AC4=<AC+4>&17
7383 000011 AC5=<AC+5>&17
7384 000002 RAN1=<AC-2>&17
7385 040243 201 03 0 00 040243 MOVEI AC-1,.
7386 040244 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
7387 040245 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
7388 040246 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
7389 040247 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
7390 040250 240 03 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
7391 040251 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
7392 040252 TSCN2: RANDOM^
7393 040252 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
7394 040253 270 04 0 00 060657 ADD AC,[142536475076]
7395 040254 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
7396 040255 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
7397 040256 322 04 0 00 040252 JUMPE AC,TSCN2 ;REJECT IF C("AC") = 0.
7398 040257 204 05 0 00 000004 TSCN3: MOVS AC1,AC ;MAKE C(E) =
7399 040260 450 05 0 00 000000 SETCA AC1, ;COMP OF C(AC).
7400 040261 322 05 0 00 040252 JUMPE AC1,TSCN2 ;REJECT IF E = 0.
7401 040262 657 04 0 00 000005 TSCN AC,AC1 ;C(E) + C(AC) = 0...NO SKIP.
7402 040263 254 00 0 00 040265 JRST .+2
7403 040264 005 04 0 00 060674 ER AC,[ASCII /TST/];TSCN SKIPPED.
7404 040265 657 04 0 00 000005 TSCN AC,AC1 ;C(E) + C(AC) NOT = 0...SKIP.
7405 040266 005 04 0 00 060674 ER AC,[ASCII /TST/]
7406 040267 312 04 0 00 061125 CAME AC,RAN ;C(AC) SHOULD = ORIG. C(AC).
7407 040270 001 05 0 00 061125 ERR AC1,RAN
7408 040271 653 04 0 00 000005 TSCE AC,AC1 ;C(E) + C(AC) = 0...SKIP.
7409 040272 005 04 0 00 060674 ER AC,[ASCII /TST/]
7410 040273 653 04 0 00 000005 TSCE AC,AC1 ;C(E) + C(AC) NOT = 0...NO SKIP.
7411 040274 312 04 0 00 061125 CAME AC,RAN ;C(AC) SHOULD=ORIGINAL C(AC)
7412 040275 001 05 0 00 061125 ERR AC1,RAN
7413 LOOP TSCN2,TSCN3^
7414 040276 367 03 0 00 040252 SOJG AC-1,TSCN2 ;ITERATION COUNTER
7415 040277 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
7416 040300 321 03 0 00 040257 JUMPL AC-1,TSCN3 ;LOOP ON ERROR SWITCH ^
7417
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 22
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0200
7418
7419
7420 ;TEST TSCE, TSCN. CHECK FOR SKIP/NO SKIP
7421 ;AND CORRECT DATA IN AC FOR RAN TO RAN
7422 ;CONDITION
7423
7424
7425 000005 AC=5
7426 040301 TSCNA: SETUP 100,0^
7427 000006 AC1=<AC+1>&17
7428 000007 AC2=<AC+2>&17
7429 000010 AC3=<AC+3>&17
7430 000011 AC4=<AC+4>&17
7431 000012 AC5=<AC+5>&17
7432 000003 RAN1=<AC-2>&17
7433 040301 201 04 0 00 040301 MOVEI AC-1,.
7434 040302 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
7435 040303 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
7436 040304 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
7437 040305 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
7438 040306 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
7439 040307 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
7440 040310 TSCNB: RANDOM^
7441 040310 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
7442 040311 270 05 0 00 060657 ADD AC,[142536475076]
7443 040312 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
7444 040313 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
7445 040314 322 05 0 00 040310 JUMPE AC,TSCNB ;REJECT IF RAN = 0.
7446 040315 200 06 0 00 000005 TSCNC: MOVE AC1,AC ;MAKE C("E") = C("AC").
7447 040316 204 07 0 00 000005 MOVS AC2,AC ;MAKE SURE
7448 040317 404 07 0 00 000005 AND AC2,AC ;AND CONDITION
7449 040320 322 07 0 00 040310 JUMPE AC2,TSCNB ;DOESN'T = 0.
7450 040321 430 07 0 00 000005 XOR AC2,AC ;ALSO HALVES NOT =.
7451 040322 322 07 0 00 040310 JUMPE AC2,TSCNB ;REJECT IF 0.
7452 040323 653 05 0 00 000006 TSCE AC,AC1 ;C(E)+C(AC) NOT=0. NO SKIP
7453 040324 254 00 0 00 040326 JRST .+2
7454 040325 005 05 0 00 060674 ER AC,[ASCII /TST/];TSCE SKIPPED.
7455 040326 657 05 0 00 000006 TSCN AC,AC1 ;C(E)+C(AC) NOT=0. SKIP
7456 040327 005 05 0 00 060674 ER AC,[ASCII /TST/]
7457 040330 312 05 0 00 061125 CAME AC,RAN ;C(AC) SHOULD=ORIGINAL C(AC)
7458 040331 001 06 0 00 061125 ERR AC1,RAN
7459 LOOP TSCNB,TSCNC^
7460 040332 367 04 0 00 040310 SOJG AC-1,TSCNB ;ITERATION COUNTER
7461 040333 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
7462 040334 321 04 0 00 040315 JUMPL AC-1,TSCNC ;LOOP ON ERROR SWITCH ^
7463
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 23
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0201
7464
7465
7466 ;TEST TSO,TSOA. CHECK FOR SKIP/NO SKIP AND
7467 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
7468
7469
7470 000006 AC=6
7471 040335 TSO1: SETUP 100,0^
7472 000007 AC1=<AC+1>&17
7473 000010 AC2=<AC+2>&17
7474 000011 AC3=<AC+3>&17
7475 000012 AC4=<AC+4>&17
7476 000013 AC5=<AC+5>&17
7477 000004 RAN1=<AC-2>&17
7478 040335 201 05 0 00 040335 MOVEI AC-1,.
7479 040336 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
7480 040337 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
7481 040340 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
7482 040341 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
7483 040342 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
7484 040343 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
7485 040344 TSO2: RANDOM^
7486 040344 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
7487 040345 270 06 0 00 060657 ADD AC,[142536475076]
7488 040346 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
7489 040347 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
7490 040350 403 07 0 00 000004 TSO3: SETZB AC1,RAN1 ;CLEAR C("E").
7491 040351 200 10 0 00 000006 MOVE AC2,AC ;SIMULATE
7492 040352 241 10 0 00 000022 ROT AC2,22 ;A TSO
7493 040353 671 07 0 00 000006 TSO AC1,AC ;SHOULD NOT SKIP
7494 040354 254 00 0 00 040356 JRST .+2
7495 040355 005 07 0 00 060674 ER AC1,[ASCII /TST/];TSO SKIPPED.
7496 040356 675 07 0 00 000006 TSOA AC1,AC ;SHOULD SKIP
7497 040357 005 07 0 00 060674 ER AC1,[ASCII /TST/]
7498 040360 312 07 0 00 000010 CAME AC1,AC2 ;C(AC) SHOULD=SIM ANS
7499 040361 001 06 0 00 000004 ERR AC,RAN1
7500 LOOP TSO2,TSO3^
7501 040362 367 05 0 00 040344 SOJG AC-1,TSO2 ;ITERATION COUNTER
7502 040363 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
7503 040364 321 05 0 00 040350 JUMPL AC-1,TSO3 ;LOOP ON ERROR SWITCH ^
7504
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 24
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0202
7505
7506
7507 ;TEST TSO, TSOA. CHECK FOR SKIP/NO SKIP
7508 ;AND CORRECT DATA IN AC FOR 0 TO RAN CONDITION
7509
7510
7511 000007 AC=7
7512 040365 TSO4: SETUP 100,0^
7513 000010 AC1=<AC+1>&17
7514 000011 AC2=<AC+2>&17
7515 000012 AC3=<AC+3>&17
7516 000013 AC4=<AC+4>&17
7517 000014 AC5=<AC+5>&17
7518 000005 RAN1=<AC-2>&17
7519 040365 201 06 0 00 040365 MOVEI AC-1,.
7520 040366 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
7521 040367 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
7522 040370 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
7523 040371 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
7524 040372 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
7525 040373 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
7526 040374 TSO5: RANDOM^
7527 040374 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
7528 040375 270 07 0 00 060657 ADD AC,[142536475076]
7529 040376 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
7530 040377 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
7531 040400 400 10 0 00 000000 TSO6: SETZ AC1, ;CLEAR C(E).
7532 040401 671 07 0 00 000010 TSO AC,AC1 ;SHOULD NOT SKIP
7533 040402 254 00 0 00 040404 JRST .+2
7534 040403 005 07 0 00 060674 ER AC,[ASCII /TST/];TSO SKIPPED.
7535 040404 675 07 0 00 000010 TSOA AC,AC1 ;SHOULD SKIP
7536 040405 005 07 0 00 060674 ER AC,[ASCII /TST/]
7537 040406 312 07 0 00 061125 CAME AC,RAN ;C(AC) SHOULD NOT HAVE CHANGED.
7538 040407 001 10 0 00 061125 ERR AC1,RAN
7539 LOOP TSO5,TSO6^
7540 040410 367 06 0 00 040374 SOJG AC-1,TSO5 ;ITERATION COUNTER
7541 040411 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
7542 040412 321 06 0 00 040400 JUMPL AC-1,TSO6 ;LOOP ON ERROR SWITCH ^
7543
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 25
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0203
7544
7545
7546 ;TEST TSO,TSOA. CHECK FOR SKIP/NO SKIP
7547 ;AND CORRECT DATA IN AC FOR RAN1 TO RAN CONDITION
7548 ;C(RAN1)=C(RAN) SWAPPED
7549
7550
7551 000010 AC=10
7552 040413 TSO7: SETUP 100,0^
7553 000011 AC1=<AC+1>&17
7554 000012 AC2=<AC+2>&17
7555 000013 AC3=<AC+3>&17
7556 000014 AC4=<AC+4>&17
7557 000015 AC5=<AC+5>&17
7558 000006 RAN1=<AC-2>&17
7559 040413 201 07 0 00 040413 MOVEI AC-1,.
7560 040414 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
7561 040415 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
7562 040416 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
7563 040417 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
7564 040420 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
7565 040421 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
7566 040422 TSO8: RANDOM^
7567 040422 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
7568 040423 270 10 0 00 060657 ADD AC,[142536475076]
7569 040424 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
7570 040425 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
7571 040426 204 11 0 00 000010 TSO9: MOVS AC1,AC ;MAKE C("E")=C("AC") SWAPPED
7572 040427 671 10 0 00 000011 TSO AC,AC1 ;SHOULD NOT SKIP
7573 040430 254 00 0 00 040432 JRST .+2
7574 040431 005 10 0 00 060674 ER AC,[ASCII /TST/];TSO SKIPPED.
7575 040432 675 10 0 00 000011 TSOA AC,AC1 ;SHOULD SKIP
7576 040433 005 10 0 00 060674 ER AC,[ASCII /TST/]
7577 040434 312 10 0 00 061125 CAME AC,RAN ;C(AC) SHOULD=ORIGINAL C(AC)
7578 040435 001 11 0 00 061125 ERR AC1,RAN
7579 LOOP TSO8,TSO9^
7580 040436 367 07 0 00 040422 SOJG AC-1,TSO8 ;ITERATION COUNTER
7581 040437 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
7582 040440 321 07 0 00 040426 JUMPL AC-1,TSO9 ;LOOP ON ERROR SWITCH ^
7583
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 26
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0204
7584
7585
7586 ;TEST TSO, TSOA. CHECK FOR SKIP/NO SKIP AND
7587 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
7588
7589
7590 000011 AC=11
7591 040441 TSOA1: SETUP 100,0^
7592 000012 AC1=<AC+1>&17
7593 000013 AC2=<AC+2>&17
7594 000014 AC3=<AC+3>&17
7595 000015 AC4=<AC+4>&17
7596 000016 AC5=<AC+5>&17
7597 000007 RAN1=<AC-2>&17
7598 040441 201 10 0 00 040441 MOVEI AC-1,.
7599 040442 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
7600 040443 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
7601 040444 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
7602 040445 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
7603 040446 240 10 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
7604 040447 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
7605 040450 TSOA2: RANDOM^
7606 040450 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
7607 040451 270 11 0 00 060657 ADD AC,[142536475076]
7608 040452 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
7609 040453 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
7610 040454 200 12 0 00 000011 TSOA3: MOVE AC1,AC ;MAKE C("E")=C("AC")
7611 040455 204 13 0 00 000012 MOVS AC2,AC1 ;SIMULATE
7612 040456 200 14 0 00 000011 MOVE AC3,AC ;A
7613 040457 434 14 0 00 000013 IOR AC3,AC2 ;TSO
7614 040460 671 11 0 00 000012 TSO AC,AC1 ;SHOULD NOT SKIP
7615 040461 254 00 0 00 040463 JRST .+2
7616 040462 005 11 0 00 060674 ER AC,[ASCII /TST/];TSO SKIPPED.
7617 040463 675 11 0 00 000012 TSOA AC,AC1 ;SHOULD SKIP
7618 040464 005 11 0 00 060674 ER AC,[ASCII /TST/]
7619 040465 312 11 0 00 000014 CAME AC,AC3 ;C(AC) = SIM. ANS?
7620 040466 001 12 0 00 000012 ERR AC1,AC1 ;NO.
7621 LOOP TSOA2,TSOA3^
7622 040467 367 10 0 00 040450 SOJG AC-1,TSOA2 ;ITERATION COUNTER
7623 040470 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
7624 040471 321 10 0 00 040454 JUMPL AC-1,TSOA3 ;LOOP ON ERROR SWITCH ^
7625
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 27
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0205
7626
7627
7628 ;TEST TSOE, TSON. CHECK FOR SKIP/NO SKIP
7629 ;AND CORRECT DATA IN AC FOR 0 TO RAN CONDITION
7630
7631
7632 000012 AC=12
7633 040472 TSOE1: SETUP 100,0^
7634 000013 AC1=<AC+1>&17
7635 000014 AC2=<AC+2>&17
7636 000015 AC3=<AC+3>&17
7637 000016 AC4=<AC+4>&17
7638 000017 AC5=<AC+5>&17
7639 000010 RAN1=<AC-2>&17
7640 040472 201 11 0 00 040472 MOVEI AC-1,.
7641 040473 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
7642 040474 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
7643 040475 202 11 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
7644 040476 201 11 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
7645 040477 240 11 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
7646 040500 240 11 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
7647 040501 TSOE2: RANDOM^
7648 040501 200 12 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
7649 040502 270 12 0 00 060657 ADD AC,[142536475076]
7650 040503 241 12 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
7651 040504 447 12 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
7652 040505 403 13 0 00 000010 TSOE3: SETZB AC1,RAN1 ;CLEAR C(E).
7653 040506 677 12 0 00 000013 TSON AC,AC1 ;C(E)+C(AC)=0. NO SKIP
7654 040507 254 00 0 00 040511 JRST .+2
7655 040510 005 12 0 00 060674 ER AC,[ASCII /TST/];TSON SKIPPED.
7656 040511 673 12 0 00 000013 TSOE AC,AC1 ;C(E)+C(AC)=0. SKIP
7657 040512 005 12 0 00 060674 ER AC,[ASCII /TST/]
7658 040513 312 12 0 00 061125 CAME AC,RAN ;C(AC) SHOULD=ORIGINAL C(AC)
7659 040514 001 10 0 00 061125 ERR RAN1,RAN
7660 LOOP TSOE2,TSOE3^
7661 040515 367 11 0 00 040501 SOJG AC-1,TSOE2 ;ITERATION COUNTER
7662 040516 200 12 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
7663 040517 321 11 0 00 040505 JUMPL AC-1,TSOE3 ;LOOP ON ERROR SWITCH ^
7664
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 28
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0206
7665
7666
7667 ;TEST TSOE, TSON. CHECK FOR SKIP/NO SKIP AND
7668 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
7669
7670
7671 000013 AC=13
7672 040520 TSOEA: SETUP 100,0^
7673 000014 AC1=<AC+1>&17
7674 000015 AC2=<AC+2>&17
7675 000016 AC3=<AC+3>&17
7676 000017 AC4=<AC+4>&17
7677 000000 AC5=<AC+5>&17
7678 000011 RAN1=<AC-2>&17
7679 040520 201 12 0 00 040520 MOVEI AC-1,.
7680 040521 202 12 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
7681 040522 201 12 0 00 000012 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
7682 040523 202 12 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
7683 040524 201 12 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
7684 040525 240 12 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
7685 040526 240 12 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
7686 040527 TSOEB: RANDOM^
7687 040527 200 13 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
7688 040530 270 13 0 00 060657 ADD AC,[142536475076]
7689 040531 241 13 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
7690 040532 447 13 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
7691 040533 322 13 0 00 040527 JUMPE AC,TSOEB ;REJECT IF RAN = 0.
7692 040534 403 14 0 00 000011 TSOEC: SETZB AC1,RAN1 ;CLEAR C(AC).
7693 040535 204 15 0 00 000013 MOVS AC2,AC ;SIMULATE TSO
7694 040536 677 14 0 00 000013 TSON AC1,AC ;C(E)+C(AC)=0. NO SKIP
7695 040537 254 00 0 00 040541 JRST .+2
7696 040540 005 14 0 00 060674 ER AC1,[ASCII /TST/];TSON SKIPPED.
7697 040541 677 14 0 00 000013 TSON AC1,AC ;C(E)+C(AC)NOT = 0. SKIP
7698 040542 005 14 0 00 060674 ER AC1,[ASCII /TST/]
7699 040543 312 14 0 00 000015 CAME AC1,AC2 ;C(AC) SHOULD=SIM ANS
7700 040544 001 13 0 00 000011 ERR AC,RAN1
7701 040545 400 14 0 00 000000 SETZ AC1, ;CLEAR C(AC)
7702 040546 673 14 0 00 000013 TSOE AC1,AC ;C(E)+C(AC)=0. SKIP
7703 040547 005 14 0 00 060674 ER AC1,[ASCII /TST/]
7704 040550 673 14 0 00 000013 TSOE AC1,AC ;C(E)+C(AC)NOT=0. NO SKIP
7705 040551 312 14 0 00 000015 CAME AC1,AC2 ;C(AC)=SIM ANS?
7706 040552 001 13 0 00 000011 ERR AC,RAN1 ;NO
7707 LOOP TSOEB,TSOEC^
7708 040553 367 12 0 00 040527 SOJG AC-1,TSOEB ;ITERATION COUNTER
7709 040554 200 13 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
7710 040555 321 12 0 00 040534 JUMPL AC-1,TSOEC ;LOOP ON ERROR SWITCH ^
7711
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 29
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0207
7712
7713
7714 ;TEST TSOE, TSON. CHECK FOR SKIP/NO SKIP AND
7715 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION
7716
7717
7718 000014 AC=14
7719 040556 TSOE4: SETUP 100,0^
7720 000015 AC1=<AC+1>&17
7721 000016 AC2=<AC+2>&17
7722 000017 AC3=<AC+3>&17
7723 000000 AC4=<AC+4>&17
7724 000001 AC5=<AC+5>&17
7725 000012 RAN1=<AC-2>&17
7726 040556 201 13 0 00 040556 MOVEI AC-1,.
7727 040557 202 13 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
7728 040560 201 13 0 00 000013 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
7729 040561 202 13 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
7730 040562 201 13 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
7731 040563 240 13 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
7732 040564 240 13 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
7733 040565 TSOE5: RANDOM^
7734 040565 200 14 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
7735 040566 270 14 0 00 060657 ADD AC,[142536475076]
7736 040567 241 14 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
7737 040570 447 14 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
7738 040571 322 14 0 00 040565 JUMPE AC,TSOE5 ;REJECT IF RAN= 0.
7739 040572 477 15 0 00 000012 TSOE6: SETOB AC1,RAN1 ;MAKE C(E) = -1.
7740 040573 673 14 0 00 000015 TSOE AC,AC1 ;C(E)+C(AC) NOT=0. NO SKIP
7741 040574 312 14 0 00 060662 CAME AC,[-1] ;C(AC) SHOULD=-1
7742 040575 001 12 0 00 061125 ERR RAN1,RAN
7743 040576 200 14 0 00 061125 MOVE AC,RAN ;RESTORE AC
7744 040577 677 14 0 00 000015 TSON AC,AC1 ;C(E)+C(AC) NOT=0. SKIP
7745 040600 005 14 0 00 060674 ER AC,[ASCII /TST/]
7746 040601 312 14 0 00 060662 CAME AC,[-1] ;C(AC) SHOULD=-1
7747 040602 001 12 0 00 061125 ERR RAN1,RAN
7748 LOOP TSOE5,TSOE6^
7749 040603 367 13 0 00 040565 SOJG AC-1,TSOE5 ;ITERATION COUNTER
7750 040604 200 14 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
7751 040605 321 13 0 00 040572 JUMPL AC-1,TSOE6 ;LOOP ON ERROR SWITCH ^
7752
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 30
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0208
7753
7754
7755 ;TEST TSOE, TSON. CHECK FOR SKIP/NO SKIP AND
7756 ;CORRECT DATA IN AC FOR RAN TO -1 CONDITION
7757
7758
7759 000015 AC=15
7760 040606 TSOED: SETUP 100,0^
7761 000016 AC1=<AC+1>&17
7762 000017 AC2=<AC+2>&17
7763 000000 AC3=<AC+3>&17
7764 000001 AC4=<AC+4>&17
7765 000002 AC5=<AC+5>&17
7766 000013 RAN1=<AC-2>&17
7767 040606 201 14 0 00 040606 MOVEI AC-1,.
7768 040607 202 14 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
7769 040610 201 14 0 00 000014 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
7770 040611 202 14 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
7771 040612 201 14 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
7772 040613 240 14 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
7773 040614 240 14 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
7774 040615 TSOEE: RANDOM^
7775 040615 200 15 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
7776 040616 270 15 0 00 060657 ADD AC,[142536475076]
7777 040617 241 15 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
7778 040620 447 15 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
7779 040621 322 15 0 00 040615 JUMPE AC,TSOEE ;REJECT IF RAN = 0.
7780 040622 477 16 0 00 000013 TSOEF: SETOB AC1,RAN1 ;SET C(AC) TO A -1.
7781 040623 673 16 0 00 000015 TSOE AC1,AC ;C(E)+C(AC) NOT=0. NO SKIP
7782 040624 254 00 0 00 040626 JRST .+2
7783 040625 005 16 0 00 060674 ER AC1,[ASCII /TST/];TSOE SKIPPED.
7784 040626 677 16 0 00 000015 TSON AC1,AC ;C(E)+C(AC) NOT=0. SKIP
7785 040627 005 16 0 00 060674 ER AC1,[ASCII /TST/]
7786 040630 312 16 0 00 060662 CAME AC1,[-1] ;C(AC) SHOULD STILL = -1.
7787 040631 001 15 0 00 000013 ERR AC,RAN1
7788 LOOP TSOEE,TSOEF^
7789 040632 367 14 0 00 040615 SOJG AC-1,TSOEE ;ITERATION COUNTER
7790 040633 200 15 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
7791 040634 321 14 0 00 040622 JUMPL AC-1,TSOEF ;LOOP ON ERROR SWITCH ^
7792
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 31
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0209
7793
7794
7795 ;TEST TSOE, TSON. CHECK FOR SKIP/NO SKIP AND
7796 ;CORRECT DATA IN AC FOR NOT RAN TO RAN CONDITION
7797
7798
7799 000006 AC=6
7800 040635 TSON1: SETUP 100,0^
7801 000007 AC1=<AC+1>&17
7802 000010 AC2=<AC+2>&17
7803 000011 AC3=<AC+3>&17
7804 000012 AC4=<AC+4>&17
7805 000013 AC5=<AC+5>&17
7806 000004 RAN1=<AC-2>&17
7807 040635 201 05 0 00 040635 MOVEI AC-1,.
7808 040636 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
7809 040637 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
7810 040640 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
7811 040641 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
7812 040642 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
7813 040643 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
7814 040644 TSON2: RANDOM^
7815 040644 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
7816 040645 270 06 0 00 060657 ADD AC,[142536475076]
7817 040646 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
7818 040647 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
7819 040650 460 07 0 00 000006 TSON3: SETCM AC1,AC ;MAKE C(E) = COMP OF C(AC)
7820 040651 204 07 0 00 000007 MOVS AC1,AC1 ;SWAPPED.
7821 040652 677 06 0 00 000007 TSON AC,AC1 ;C(E)+C(AC)=0. NO SKIP
7822 040653 312 06 0 00 060662 CAME AC,[-1] ;C(AC) SHOULD=-1
7823 040654 001 07 0 00 061125 ERR AC1,RAN
7824 040655 200 06 0 00 061125 MOVE AC,RAN ;RESTORE AC.
7825 040656 673 06 0 00 000007 TSOE AC,AC1 ;C(E)+C(AC)=0. SKIP
7826 040657 005 06 0 00 060674 ER AC,[ASCII /TST/]
7827 040660 312 06 0 00 060662 CAME AC,[-1] ;C(AC) SHOULD=-1
7828 040661 001 07 0 00 061125 ERR AC1,RAN
7829 LOOP TSON2,TSON3^
7830 040662 367 05 0 00 040644 SOJG AC-1,TSON2 ;ITERATION COUNTER
7831 040663 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
7832 040664 321 05 0 00 040650 JUMPL AC-1,TSON3 ;LOOP ON ERROR SWITCH ^
7833
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 32
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0210
7834
7835
7836 ;TEST TSOE, TSON. CHECK FOR SKIP/NO SKIP AND
7837 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
7838
7839
7840 000007 AC=7
7841 040665 TSONA: SETUP 100,0^
7842 000010 AC1=<AC+1>&17
7843 000011 AC2=<AC+2>&17
7844 000012 AC3=<AC+3>&17
7845 000013 AC4=<AC+4>&17
7846 000014 AC5=<AC+5>&17
7847 000005 RAN1=<AC-2>&17
7848 040665 201 06 0 00 040665 MOVEI AC-1,.
7849 040666 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
7850 040667 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
7851 040670 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
7852 040671 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
7853 040672 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
7854 040673 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
7855 040674 TSONB: RANDOM^
7856 040674 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
7857 040675 270 07 0 00 060657 ADD AC,[142536475076]
7858 040676 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
7859 040677 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
7860 040700 322 07 0 00 040674 JUMPE AC,TSONB ;REJECT IF RAN = 0.
7861 040701 204 10 0 00 000007 TSONC: MOVS AC1,AC ;MAKE C(E) = C(AC) SWAPPED.
7862 040702 673 07 0 00 000010 TSOE AC,AC1 ;C(E)+C(AC) NOT=0 NO SKIP
7863 040703 254 00 0 00 040705 JRST .+2
7864 040704 005 07 0 00 060674 ER AC,[ASCII /TST/];TSOE SKIPPED.
7865 040705 677 07 0 00 000010 TSON AC,AC1 ;C(E)+C(AC)) NOT=0 SKIP
7866 040706 005 07 0 00 060674 ER AC,[ASCII /TST/]
7867 040707 312 07 0 00 061125 CAME AC,RAN ;C(AC) SHOULD=C(ORIG. AC)
7868 040710 001 10 0 00 061125 ERR AC1,RAN
7869 LOOP TSONB,TSONC^
7870 040711 367 06 0 00 040674 SOJG AC-1,TSONB ;ITERATION COUNTER
7871 040712 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
7872 040713 321 06 0 00 040701 JUMPL AC-1,TSONC ;LOOP ON ERROR SWITCH ^
7873
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 33
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0211
7874
7875
7876 ;TEST TSZ, TSZA. CHECK FOR SKIP/NO SKIP AND
7877 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
7878
7879
7880 000010 AC=10
7881 040714 TSZ1: SETUP 100,0^
7882 000011 AC1=<AC+1>&17
7883 000012 AC2=<AC+2>&17
7884 000013 AC3=<AC+3>&17
7885 000014 AC4=<AC+4>&17
7886 000015 AC5=<AC+5>&17
7887 000006 RAN1=<AC-2>&17
7888 040714 201 07 0 00 040714 MOVEI AC-1,.
7889 040715 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
7890 040716 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
7891 040717 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
7892 040720 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
7893 040721 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
7894 040722 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
7895 040723 TSZ2: RANDOM^
7896 040723 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
7897 040724 270 10 0 00 060657 ADD AC,[142536475076]
7898 040725 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
7899 040726 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
7900 040727 400 11 0 00 000000 TSZ3: SETZ AC1, ;CLEAR C(E)
7901 040730 631 10 0 00 000011 TSZ AC,AC1 ;SHOULD NOT SKIP
7902 040731 254 00 0 00 040733 JRST .+2
7903 040732 005 10 0 00 060674 ER AC,[ASCII /TST/];TSZ SKIPPED.
7904 040733 635 10 0 00 000011 TSZA AC,AC1 ;SHOULD SKIP
7905 040734 005 10 0 00 060674 ER AC,[ASCII /TST/]
7906 040735 312 10 0 00 061125 CAME AC,RAN ;C(AC) SHOULD=ORIGINAL C(AC)
7907 040736 001 11 0 00 061125 ERR AC1,RAN
7908 LOOP TSZ2,TSZ3^
7909 040737 367 07 0 00 040723 SOJG AC-1,TSZ2 ;ITERATION COUNTER
7910 040740 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
7911 040741 321 07 0 00 040727 JUMPL AC-1,TSZ3 ;LOOP ON ERROR SWITCH ^
7912
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 34
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0212
7913
7914
7915 ;TEST TSZ, TSZA. CHECK FOR SKIP/NO SKIP AND
7916 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
7917
7918
7919 000011 AC=11
7920 040742 TSZ4: SETUP 100,0^
7921 000012 AC1=<AC+1>&17
7922 000013 AC2=<AC+2>&17
7923 000014 AC3=<AC+3>&17
7924 000015 AC4=<AC+4>&17
7925 000016 AC5=<AC+5>&17
7926 000007 RAN1=<AC-2>&17
7927 040742 201 10 0 00 040742 MOVEI AC-1,.
7928 040743 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
7929 040744 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
7930 040745 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
7931 040746 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
7932 040747 240 10 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
7933 040750 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
7934 040751 TSZ5: RANDOM^
7935 040751 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
7936 040752 270 11 0 00 060657 ADD AC,[142536475076]
7937 040753 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
7938 040754 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
7939 040755 403 12 0 00 000007 TSZ6: SETZB AC1,RAN1 ;CLEAR C(AC).
7940 040756 631 12 0 00 000011 TSZ AC1,AC ;SHOULD NOT SKIP
7941 040757 254 00 0 00 040761 JRST .+2
7942 040760 005 12 0 00 060674 ER AC1,[ASCII /TST/];TSZ SKIPPED.
7943 040761 635 12 0 00 000011 TSZA AC1,AC ;SHOULD SKIP
7944 040762 005 12 0 00 060674 ER AC1,[ASCII /TST/]
7945 040763 312 12 0 00 060660 CAME AC1,[0] ;C(AC) SHOULD STILL=0
7946 040764 001 11 0 00 000007 ERR AC,RAN1
7947 LOOP TSZ5,TSZ6^
7948 040765 367 10 0 00 040751 SOJG AC-1,TSZ5 ;ITERATION COUNTER
7949 040766 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
7950 040767 321 10 0 00 040755 JUMPL AC-1,TSZ6 ;LOOP ON ERROR SWITCH ^
7951
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 35
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0213
7952
7953
7954 ;TEST TSZ, TSZA. CHECK FOR SKIP/NO SKIP AND
7955 ;CORRECT DATA IN AC FOR RAN1 TO RAN CONDITION
7956 ;RAN1=C(RAN) SWAPPED
7957
7958
7959 000002 AC=2
7960 040770 TSZ7: SETUP 100,0^
7961 000003 AC1=<AC+1>&17
7962 000004 AC2=<AC+2>&17
7963 000005 AC3=<AC+3>&17
7964 000006 AC4=<AC+4>&17
7965 000007 AC5=<AC+5>&17
7966 000000 RAN1=<AC-2>&17
7967 040770 201 01 0 00 040770 MOVEI AC-1,.
7968 040771 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
7969 040772 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
7970 040773 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
7971 040774 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
7972 040775 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
7973 040776 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
7974 040777 TSZ8: RANDOM^
7975 040777 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
7976 041000 270 02 0 00 060657 ADD AC,[142536475076]
7977 041001 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
7978 041002 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
7979 041003 204 03 0 00 000002 TSZ9: MOVS AC1,AC ;MAKE C(E)=C(AC) SWAPPED
7980 041004 631 02 0 00 000003 TSZ AC,AC1 ;SHOULD NOT SKIP
7981 041005 254 00 0 00 041007 JRST .+2
7982 041006 005 02 0 00 060674 ER AC,[ASCII /TST/];TSZ SKIPPED.
7983 041007 635 02 0 00 000003 TSZA AC,AC1 ;SHOULD SKIP
7984 041010 005 02 0 00 060674 ER AC,[ASCII /TST/]
7985 041011 312 02 0 00 060660 CAME AC,[0] ;C(AC) SHOULD=0
7986 041012 001 03 0 00 061125 ERR AC1,RAN
7987 LOOP TSZ8,TSZ9^
7988 041013 367 01 0 00 040777 SOJG AC-1,TSZ8 ;ITERATION COUNTER
7989 041014 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
7990 041015 321 01 0 00 041003 JUMPL AC-1,TSZ9 ;LOOP ON ERROR SWITCH ^
7991
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 36
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0214
7992
7993
7994 ;TEST TSZ, TSZA. CHECK FOR SKIP/NO SKIP AND
7995 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
7996
7997
7998 000003 AC=3
7999 041016 TSZA1: SETUP 100,0^
8000 000004 AC1=<AC+1>&17
8001 000005 AC2=<AC+2>&17
8002 000006 AC3=<AC+3>&17
8003 000007 AC4=<AC+4>&17
8004 000010 AC5=<AC+5>&17
8005 000001 RAN1=<AC-2>&17
8006 041016 201 02 0 00 041016 MOVEI AC-1,.
8007 041017 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
8008 041020 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
8009 041021 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
8010 041022 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
8011 041023 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
8012 041024 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
8013 041025 TSZA2: RANDOM^
8014 041025 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
8015 041026 270 03 0 00 060657 ADD AC,[142536475076]
8016 041027 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
8017 041030 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
8018 041031 200 04 0 00 000003 TSZA3: MOVE AC1,AC ;MAKE C(E)=C(AC)
8019 041032 200 05 0 00 000003 MOVE AC2,AC ;SIMULATE
8020 041033 204 06 0 00 000003 MOVS AC3,AC ;A
8021 041034 464 05 0 00 000006 ORCM AC2,AC3 ;TSZ
8022 041035 450 05 0 00 000000 SETCA AC2, ;INST
8023 041036 204 05 0 00 000005 MOVS AC2,AC2
8024 041037 631 03 0 00 000004 TSZ AC,AC1 ;SHOULD NOT SKIP
8025 041040 254 00 0 00 041042 JRST .+2
8026 041041 005 03 0 00 060674 ER AC,[ASCII /TST/];TSZ SKIPPED.
8027 041042 635 03 0 00 000004 TSZA AC,AC1 ;SHOULD SKIP
8028 041043 005 03 0 00 060674 ER AC,[ASCII /TST/]
8029 041044 312 03 0 00 000005 CAME AC,AC2 ;C(AC) SHOULD=SIM ANS
8030 041045 001 04 0 00 061125 ERR AC1,RAN
8031 LOOP TSZA2,TSZA3^
8032 041046 367 02 0 00 041025 SOJG AC-1,TSZA2 ;ITERATION COUNTER
8033 041047 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
8034 041050 321 02 0 00 041031 JUMPL AC-1,TSZA3 ;LOOP ON ERROR SWITCH ^
8035
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 37
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0215
8036
8037
8038 ;TEST TSZE,TSZN. CHECK FOR SKIP/NO SKIP AND
8039 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
8040
8041
8042 000004 AC=4
8043 041051 TSZE1: SETUP 100,0^
8044 000005 AC1=<AC+1>&17
8045 000006 AC2=<AC+2>&17
8046 000007 AC3=<AC+3>&17
8047 000010 AC4=<AC+4>&17
8048 000011 AC5=<AC+5>&17
8049 000002 RAN1=<AC-2>&17
8050 041051 201 03 0 00 041051 MOVEI AC-1,.
8051 041052 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
8052 041053 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
8053 041054 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
8054 041055 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
8055 041056 240 03 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
8056 041057 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
8057 041060 TSZE2: RANDOM^
8058 041060 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
8059 041061 270 04 0 00 060657 ADD AC,[142536475076]
8060 041062 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
8061 041063 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
8062 041064 400 05 0 00 000000 TSZE3: SETZ AC1, ;CLEAR C(E)
8063 041065 637 04 0 00 000005 TSZN AC,AC1 ;C(E)+C(AC)=0. NO SKIP
8064 041066 254 00 0 00 041070 JRST .+2
8065 041067 005 04 0 00 060674 ER AC,[ASCII /TST/];TSZN SKIPPED.
8066 041070 633 04 0 00 000005 TSZE AC,AC1 ;C(E)+C(AC)=0. SKIP
8067 041071 005 04 0 00 060674 ER AC,[ASCII /TST/]
8068 041072 312 04 0 00 061125 CAME AC,RAN ;C(AC) SHOULD NOT CHANGE
8069 041073 001 05 0 00 061125 ERR AC1,RAN
8070 LOOP TSZE2,TSZE3^
8071 041074 367 03 0 00 041060 SOJG AC-1,TSZE2 ;ITERATION COUNTER
8072 041075 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
8073 041076 321 03 0 00 041064 JUMPL AC-1,TSZE3 ;LOOP ON ERROR SWITCH ^
8074
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 38
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0216
8075
8076
8077 ;TEST TSZE,TSZN. CHECK FOR SKIP/ NO SKIP AND
8078 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
8079
8080
8081 000005 AC=5
8082 041077 TSZEA: SETUP 100,0^
8083 000006 AC1=<AC+1>&17
8084 000007 AC2=<AC+2>&17
8085 000010 AC3=<AC+3>&17
8086 000011 AC4=<AC+4>&17
8087 000012 AC5=<AC+5>&17
8088 000003 RAN1=<AC-2>&17
8089 041077 201 04 0 00 041077 MOVEI AC-1,.
8090 041100 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
8091 041101 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
8092 041102 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
8093 041103 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
8094 041104 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
8095 041105 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
8096 041106 TSZEB: RANDOM^
8097 041106 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
8098 041107 270 05 0 00 060657 ADD AC,[142536475076]
8099 041110 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
8100 041111 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
8101 041112 403 06 0 00 000003 TSZEC: SETZB AC1,RAN1 ;CLEAR C(AC).
8102 041113 637 06 0 00 000005 TSZN AC1,AC ;C(E)+C(AC)=0. NO SKIP
8103 041114 254 00 0 00 041116 JRST .+2
8104 041115 005 06 0 00 060674 ER AC1,[ASCII /TST/];TSZN SKIPPED.
8105 041116 633 06 0 00 000005 TSZE AC1,AC ;C(E)+C(AC)=0 SKIP
8106 041117 005 06 0 00 060674 ER AC1,[ASCII /TST/]
8107 041120 312 06 0 00 060660 CAME AC1,[0] ;C(AC) SHOULD STILL = 0
8108 041121 001 05 0 00 000003 ERR AC,RAN1
8109 LOOP TSZEB,TSZEC^
8110 041122 367 04 0 00 041106 SOJG AC-1,TSZEB ;ITERATION COUNTER
8111 041123 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
8112 041124 321 04 0 00 041112 JUMPL AC-1,TSZEC ;LOOP ON ERROR SWITCH ^
8113
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 39
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0217
8114
8115
8116 ;TEST TSZE, TSZN. CHECK FOR SKIP/NO SKIP AND
8117 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION.
8118
8119
8120 000006 AC=6
8121 041125 TSZE4: SETUP 100,0^
8122 000007 AC1=<AC+1>&17
8123 000010 AC2=<AC+2>&17
8124 000011 AC3=<AC+3>&17
8125 000012 AC4=<AC+4>&17
8126 000013 AC5=<AC+5>&17
8127 000004 RAN1=<AC-2>&17
8128 041125 201 05 0 00 041125 MOVEI AC-1,.
8129 041126 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
8130 041127 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
8131 041130 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
8132 041131 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
8133 041132 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
8134 041133 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
8135 041134 TSZE5: RANDOM^
8136 041134 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
8137 041135 270 06 0 00 060657 ADD AC,[142536475076]
8138 041136 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
8139 041137 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
8140 041140 322 06 0 00 041134 JUMPE AC,TSZE5 ;REJECT IF RAN = 0.
8141 041141 474 07 0 00 000000 TSZE6: SETO AC1, ;SET C("E") TO ALL ONES.
8142 041142 633 06 0 00 000007 TSZE AC,AC1 ;C(E)+C(AC) NOT=0. NO SKIP
8143 041143 312 06 0 00 060660 CAME AC,[0] ;C(AC) SHOULD HAVE BEEN CLEARED
8144 041144 001 07 0 00 061125 ERR AC1,RAN
8145 041145 200 06 0 00 061125 MOVE AC,RAN ;RESTORE AC
8146 041146 637 06 0 00 000007 TSZN AC,AC1 ;C(E)+C(AC) NOT=0. SKIP
8147 041147 005 06 0 00 060674 ER AC,[ASCII /TST/]
8148 041150 312 06 0 00 060660 CAME AC,[0] ;C(AC) SHOULD HAVE BEEN CLEARED
8149 041151 001 07 0 00 061125 ERR AC1,RAN
8150 LOOP TSZE5,TSZE6^
8151 041152 367 05 0 00 041134 SOJG AC-1,TSZE5 ;ITERATION COUNTER
8152 041153 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
8153 041154 321 05 0 00 041141 JUMPL AC-1,TSZE6 ;LOOP ON ERROR SWITCH ^
8154
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 40
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0218
8155
8156
8157 ;TEST TSZE, TSZN. CHECK FOR SKIP/NO SKIP AND
8158 ;CORRECT DATA IN AC FOR RAN TO -1 CONDITION
8159
8160
8161 000007 AC=7
8162 041155 TSZED: SETUP 100,0^
8163 000010 AC1=<AC+1>&17
8164 000011 AC2=<AC+2>&17
8165 000012 AC3=<AC+3>&17
8166 000013 AC4=<AC+4>&17
8167 000014 AC5=<AC+5>&17
8168 000005 RAN1=<AC-2>&17
8169 041155 201 06 0 00 041155 MOVEI AC-1,.
8170 041156 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
8171 041157 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
8172 041160 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
8173 041161 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
8174 041162 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
8175 041163 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
8176 041164 TSZEE: RANDOM^
8177 041164 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
8178 041165 270 07 0 00 060657 ADD AC,[142536475076]
8179 041166 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
8180 041167 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
8181 041170 322 07 0 00 041164 JUMPE AC,TSZEE ;REJECT IF RAN = 0.
8182 041171 477 10 0 00 000005 TSZEF: SETOB AC1,RAN1 ;SET C(AC) TO A -1.
8183 041172 204 11 0 00 000007 MOVS AC2,AC ;SIMULATE
8184 041173 430 11 0 00 000010 XOR AC2,AC1 ;A TSZ
8185 041174 633 10 0 00 000007 TSZE AC1,AC ;C(E)+C(AC) NOT=0. NO SKIP
8186 041175 312 10 0 00 000011 CAME AC1,AC2 ;C(AC) SHOULD=SIM ANS
8187 041176 001 07 0 00 000005 ERR AC,RAN1
8188 041177 474 10 0 00 000000 SETO AC1, ;RESTORE AC
8189 041200 637 10 0 00 000007 TSZN AC1,AC ;(E)+C(AC) NOT=0 SKIP
8190 041201 005 10 0 00 060674 ER AC1,[ASCII /TST/]
8191 041202 312 10 0 00 000011 CAME AC1,AC2 ;C(AC) SHOULD=SIM ANS
8192 041203 001 07 0 00 000005 ERR AC,RAN1
8193 LOOP TSZEE,TSZEF^
8194 041204 367 06 0 00 041164 SOJG AC-1,TSZEE ;ITERATION COUNTER
8195 041205 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
8196 041206 321 06 0 00 041171 JUMPL AC-1,TSZEF ;LOOP ON ERROR SWITCH ^
8197
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 41
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0219
8198
8199
8200 ;TEST TSZE, TSZN, CHECK FOR SKIP/NO SKIP AND
8201 ;CORRECT DATA IN AC FOR NOT RAN TO RAN CONDITION
8202
8203
8204 000010 AC=10
8205 041207 TSZN1: SETUP 100,0^
8206 000011 AC1=<AC+1>&17
8207 000012 AC2=<AC+2>&17
8208 000013 AC3=<AC+3>&17
8209 000014 AC4=<AC+4>&17
8210 000015 AC5=<AC+5>&17
8211 000006 RAN1=<AC-2>&17
8212 041207 201 07 0 00 041207 MOVEI AC-1,.
8213 041210 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
8214 041211 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
8215 041212 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
8216 041213 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
8217 041214 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
8218 041215 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
8219 041216 TSZN2: RANDOM^
8220 041216 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
8221 041217 270 10 0 00 060657 ADD AC,[142536475076]
8222 041220 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
8223 041221 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
8224 041222 460 11 0 00 000010 TSZN3: SETCM AC1,AC ;MAKE C("E") = COMP C("AC").
8225 041223 204 11 0 00 000011 MOVS AC1,AC1 ;SWAPPED.
8226 041224 637 10 0 00 000011 TSZN AC,AC1 ;C(E)+C(AC)=0 NO. SKIP
8227 041225 312 10 0 00 061125 CAME AC,RAN ;C(AC) SHOULD=C(AC) BEFORE TOZ
8228 041226 001 11 0 00 061125 ERR AC1,RAN
8229 041227 633 10 0 00 000011 TSZE AC,AC1 ;C(E) +C(AC)=0. SKIP
8230 041230 005 10 0 00 060674 ER AC,[ASCII /TST/]
8231 041231 312 10 0 00 061125 CAME AC,RAN ;C(AC)SHOULD=C(AC)BEFORE TOZ
8232 041232 001 11 0 00 061125 ERR AC1,RAN
8233 LOOP TSZN2,TSZN3^
8234 041233 367 07 0 00 041216 SOJG AC-1,TSZN2 ;ITERATION COUNTER
8235 041234 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
8236 041235 321 07 0 00 041222 JUMPL AC-1,TSZN3 ;LOOP ON ERROR SWITCH ^
8237
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 42
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0220
8238
8239
8240 ;TEST TSZE, TSZN. CHECK FOR SKIP/NO SKIP AND
8241 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
8242
8243
8244 000011 AC=11
8245 041236 TSZNA: SETUP 100,0^
8246 000012 AC1=<AC+1>&17
8247 000013 AC2=<AC+2>&17
8248 000014 AC3=<AC+3>&17
8249 000015 AC4=<AC+4>&17
8250 000016 AC5=<AC+5>&17
8251 000007 RAN1=<AC-2>&17
8252 041236 201 10 0 00 041236 MOVEI AC-1,.
8253 041237 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
8254 041240 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
8255 041241 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
8256 041242 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
8257 041243 240 10 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
8258 041244 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
8259 041245 TSZNB: RANDOM^
8260 041245 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
8261 041246 270 11 0 00 060657 ADD AC,[142536475076]
8262 041247 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
8263 041250 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
8264 041251 322 11 0 00 041245 JUMPE AC,TSZNB ;REJECT IF RAN = 0.
8265 041252 204 12 0 00 000011 TSZNC: MOVS AC1,AC ;MAKE C("E") = C("AC") SWAPPED.
8266 041253 633 11 0 00 000012 TSZE AC,AC1 ;C(E)+C(AC) NOT=0 NO SKIP.
8267 041254 312 11 0 00 060660 CAME AC,[0] ;C(AC) SHOULD BE ZEROED OUT.
8268 041255 001 12 0 00 061125 ERR AC1,RAN
8269 041256 200 11 0 00 061125 MOVE AC,RAN ;RESTORE AC
8270 041257 637 11 0 00 000012 TSZN AC,AC1 ;C(E)+C(AC)NOT=0. SKIP.
8271 041260 005 11 0 00 060674 ER AC,[ASCII /TST/]
8272 041261 312 11 0 00 060660 CAME AC,[0] ;C(AC) SHOULD BE ZEROED OUT.
8273 041262 001 12 0 00 061125 ERR AC1,RAN
8274 LOOP TSZNB,TSZNC^
8275 041263 367 10 0 00 041245 SOJG AC-1,TSZNB ;ITERATION COUNTER
8276 041264 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
8277 041265 321 10 0 00 041252 JUMPL AC-1,TSZNC ;LOOP ON ERROR SWITCH ^
8278
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 43
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0221
8279
8280
8281 ;TEST TSN, TSNA. CHECK FOR SKIP/NO SKIP AND
8282 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION.
8283
8284
8285 000012 AC=12
8286 041266 TSN1: SETUP 100,0^
8287 000013 AC1=<AC+1>&17
8288 000014 AC2=<AC+2>&17
8289 000015 AC3=<AC+3>&17
8290 000016 AC4=<AC+4>&17
8291 000017 AC5=<AC+5>&17
8292 000010 RAN1=<AC-2>&17
8293 041266 201 11 0 00 041266 MOVEI AC-1,.
8294 041267 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
8295 041270 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
8296 041271 202 11 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
8297 041272 201 11 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
8298 041273 240 11 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
8299 041274 240 11 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
8300 041275 TSN2: RANDOM^
8301 041275 200 12 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
8302 041276 270 12 0 00 060657 ADD AC,[142536475076]
8303 041277 241 12 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
8304 041300 447 12 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
8305 041301 400 13 0 00 000000 TSN3: SETZ AC1, ;CLEAR C("E")
8306 041302 611 12 0 00 000013 TSN AC,AC1 ;SHOULD NOT SKIP
8307 041303 254 00 0 00 041305 JRST .+2
8308 041304 005 12 0 00 060674 ER AC,[ASCII /TST/];TSN SKIPPED.
8309 041305 615 12 0 00 000013 TSNA AC,AC1 ;SHOULD SKIP
8310 041306 005 12 0 00 060674 ER AC,[ASCII /TST/]
8311 041307 312 12 0 00 061125 CAME AC,RAN ;C(AC)SHOULD NOT CHANGE
8312 041310 001 13 0 00 061125 ERR AC1,RAN
8313 LOOP TSN2,TSN3^
8314 041311 367 11 0 00 041275 SOJG AC-1,TSN2 ;ITERATION COUNTER
8315 041312 200 12 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
8316 041313 321 11 0 00 041301 JUMPL AC-1,TSN3 ;LOOP ON ERROR SWITCH ^
8317
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 44
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0222
8318
8319
8320 ;TEST TSN, TSNA CHECK FOR SKIP/NO SKIP AND
8321 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION.
8322
8323
8324 000013 AC=13
8325 041314 TSN4: SETUP 100,0^
8326 000014 AC1=<AC+1>&17
8327 000015 AC2=<AC+2>&17
8328 000016 AC3=<AC+3>&17
8329 000017 AC4=<AC+4>&17
8330 000000 AC5=<AC+5>&17
8331 000011 RAN1=<AC-2>&17
8332 041314 201 12 0 00 041314 MOVEI AC-1,.
8333 041315 202 12 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
8334 041316 201 12 0 00 000012 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
8335 041317 202 12 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
8336 041320 201 12 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
8337 041321 240 12 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
8338 041322 240 12 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
8339 041323 TSN5: RANDOM^
8340 041323 200 13 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
8341 041324 270 13 0 00 060657 ADD AC,[142536475076]
8342 041325 241 13 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
8343 041326 447 13 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
8344 041327 403 14 0 00 000011 TSN6: SETZB AC1,RAN1 ;CLEAR C("AC").
8345 041330 611 14 0 00 000013 TSN AC1,AC ;SHOULD NOT SKIP
8346 041331 254 00 0 00 041333 JRST .+2
8347 041332 005 14 0 00 060674 ER AC1,[ASCII /TST/];TSN SKIPPED.
8348 041333 615 14 0 00 000013 TSNA AC1,AC ;SHOULD SKIP
8349 041334 005 13 0 00 060674 ER AC,[ASCII /TST/]
8350 041335 312 14 0 00 000011 CAME AC1,RAN1 ;C(AC) SHOULD = ORIG. C(AC).
8351 041336 001 13 0 00 000011 ERR AC,RAN1
8352 LOOP TSN5,TSN6^
8353 041337 367 12 0 00 041323 SOJG AC-1,TSN5 ;ITERATION COUNTER
8354 041340 200 13 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
8355 041341 321 12 0 00 041327 JUMPL AC-1,TSN6 ;LOOP ON ERROR SWITCH ^
8356
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 45
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0223
8357
8358
8359 ;TEST TSN, TSNA. CHECK FOR SKIP/NO SKIP AND
8360 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
8361
8362
8363 000014 AC=14
8364 041342 TSN7: SETUP 100,0^
8365 000015 AC1=<AC+1>&17
8366 000016 AC2=<AC+2>&17
8367 000017 AC3=<AC+3>&17
8368 000000 AC4=<AC+4>&17
8369 000001 AC5=<AC+5>&17
8370 000012 RAN1=<AC-2>&17
8371 041342 201 13 0 00 041342 MOVEI AC-1,.
8372 041343 202 13 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
8373 041344 201 13 0 00 000013 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
8374 041345 202 13 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
8375 041346 201 13 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
8376 041347 240 13 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
8377 041350 240 13 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
8378 041351 TSN8: RANDOM^
8379 041351 200 14 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
8380 041352 270 14 0 00 060657 ADD AC,[142536475076]
8381 041353 241 14 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
8382 041354 447 14 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
8383 041355 204 15 0 00 000014 TSN9: MOVS AC1,AC ;MAKE C("E")=C("AC") SWAPPED
8384 041356 611 14 0 00 000015 TSN AC,AC1 ;SHOULD NOT SKIP
8385 041357 254 00 0 00 041361 JRST .+2
8386 041360 005 14 0 00 060674 ER AC,[ASCII /TST/];TSN SKIPPED.
8387 041361 615 14 0 00 000015 TSNA AC,AC1 ;SHOULD SKIP
8388 041362 005 14 0 00 060674 ER AC,[ASCII /TST/]
8389 041363 312 14 0 00 061125 CAME AC,RAN ;C(AC)SHOULD NOT CHANGE
8390 041364 001 15 0 00 061125 ERR AC1,RAN
8391 LOOP TSN8,TSN9^
8392 041365 367 13 0 00 041351 SOJG AC-1,TSN8 ;ITERATION COUNTER
8393 041366 200 14 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
8394 041367 321 13 0 00 041355 JUMPL AC-1,TSN9 ;LOOP ON ERROR SWITCH ^
8395
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 46
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0224
8396
8397
8398 ;TEST TSN, TSNA. CHECK FOR SKIP/NO SKIP AND
8399 ;CORRECT DATA IN AC FOR RAN1 TO RAN CONDITION
8400 ;RAN1=RAN BEFORE TSN
8401
8402
8403 000015 AC=15
8404 041370 TSNA1: SETUP 100,0^
8405 000016 AC1=<AC+1>&17
8406 000017 AC2=<AC+2>&17
8407 000000 AC3=<AC+3>&17
8408 000001 AC4=<AC+4>&17
8409 000002 AC5=<AC+5>&17
8410 000013 RAN1=<AC-2>&17
8411 041370 201 14 0 00 041370 MOVEI AC-1,.
8412 041371 202 14 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
8413 041372 201 14 0 00 000014 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
8414 041373 202 14 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
8415 041374 201 14 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
8416 041375 240 14 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
8417 041376 240 14 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
8418 041377 TSNA2: RANDOM^
8419 041377 200 15 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
8420 041400 270 15 0 00 060657 ADD AC,[142536475076]
8421 041401 241 15 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
8422 041402 447 15 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
8423 041403 200 16 0 00 000015 TSNA3: MOVE AC1,AC ;MAKE C("E")=C("AC")
8424 041404 611 15 0 00 000016 TSN AC,AC1 ;SHOULD NOT SKIP
8425 041405 254 00 0 00 041407 JRST .+2
8426 041406 005 15 0 00 060674 ER AC,[ASCII /TST/];TSN SKIPPED.
8427 041407 615 15 0 00 000016 TSNA AC,AC1 ;SHOULD SKIP
8428 041410 005 15 0 00 060674 ER AC,[ASCII /TST/]
8429 041411 312 15 0 00 061125 CAME AC,RAN ;C(AC) SHOULD NOT CHANGE
8430 041412 001 16 0 00 061125 ERR AC1,RAN
8431 LOOP TSNA2,TSNA3^
8432 041413 367 14 0 00 041377 SOJG AC-1,TSNA2 ;ITERATION COUNTER
8433 041414 200 15 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
8434 041415 321 14 0 00 041403 JUMPL AC-1,TSNA3 ;LOOP ON ERROR SWITCH ^
8435
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 47
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0225
8436
8437
8438 ;TEST TSNE, TSNN. CHECK FOR SKIP/NO SKIP AND
8439 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
8440
8441
8442 000006 AC=6
8443 041416 TSNE1: SETUP 100,0^
8444 000007 AC1=<AC+1>&17
8445 000010 AC2=<AC+2>&17
8446 000011 AC3=<AC+3>&17
8447 000012 AC4=<AC+4>&17
8448 000013 AC5=<AC+5>&17
8449 000004 RAN1=<AC-2>&17
8450 041416 201 05 0 00 041416 MOVEI AC-1,.
8451 041417 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
8452 041420 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
8453 041421 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
8454 041422 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
8455 041423 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
8456 041424 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
8457 041425 TSNE2: RANDOM^
8458 041425 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
8459 041426 270 06 0 00 060657 ADD AC,[142536475076]
8460 041427 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
8461 041430 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
8462 041431 400 07 0 00 000000 TSNE3: SETZ AC1, ;CLEAR C("E").
8463 041432 617 06 0 00 000007 TSNN AC,AC1 ;C(E)+C(AC)=0. NO SKIP.
8464 041433 254 00 0 00 041435 JRST .+2
8465 041434 005 06 0 00 060674 ER AC,[ASCII /TST/];TSNN SKIPPED.
8466 041435 613 06 0 00 000007 TSNE AC,AC1 ;C(E)+C(AC)=0. SKIP
8467 041436 005 06 0 00 060674 ER AC,[ASCII /TST/]
8468 041437 312 06 0 00 061125 CAME AC,RAN ;C(AC) SHOULD NOT CHANGE
8469 041440 001 07 0 00 061125 ERR AC1,RAN
8470 LOOP TSNE2,TSNE3^
8471 041441 367 05 0 00 041425 SOJG AC-1,TSNE2 ;ITERATION COUNTER
8472 041442 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
8473 041443 321 05 0 00 041431 JUMPL AC-1,TSNE3 ;LOOP ON ERROR SWITCH ^
8474
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 48
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0226
8475
8476
8477 ;TEST TSNE, TSNN. CHECK FOR SKIP/NO SKIP AND
8478 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION.
8479
8480
8481 000007 AC=7
8482 041444 TSNEA: SETUP 100,0^
8483 000010 AC1=<AC+1>&17
8484 000011 AC2=<AC+2>&17
8485 000012 AC3=<AC+3>&17
8486 000013 AC4=<AC+4>&17
8487 000014 AC5=<AC+5>&17
8488 000005 RAN1=<AC-2>&17
8489 041444 201 06 0 00 041444 MOVEI AC-1,.
8490 041445 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
8491 041446 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
8492 041447 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
8493 041450 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
8494 041451 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
8495 041452 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
8496 041453 TSNEB: RANDOM^
8497 041453 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
8498 041454 270 07 0 00 060657 ADD AC,[142536475076]
8499 041455 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
8500 041456 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
8501 041457 403 10 0 00 000005 TSNEC: SETZB AC1,RAN1 ;CLEAR C("AC").
8502 041460 617 10 0 00 000007 TSNN AC1,AC ;C(E)+C(AC)=0. NO SKIP.
8503 041461 254 00 0 00 041463 JRST .+2
8504 041462 005 10 0 00 060674 ER AC1,[ASCII /TST/];TSNN SKIPPED.
8505 041463 613 10 0 00 000007 TSNE AC1,AC ;C(E)+C(AC)=0. SKIP
8506 041464 005 10 0 00 060674 ER AC1,[ASCII /TST/]
8507 041465 312 10 0 00 000005 CAME AC1,RAN1 ;C(AC) SHOULD = ORIG. C(AC).
8508 041466 001 07 0 00 000005 ERR AC,RAN1
8509 LOOP TSNEB,TSNEC^
8510 041467 367 06 0 00 041453 SOJG AC-1,TSNEB ;ITERATION COUNTER
8511 041470 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
8512 041471 321 06 0 00 041457 JUMPL AC-1,TSNEC ;LOOP ON ERROR SWITCH ^
8513
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 49
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0227
8514
8515
8516 ;TEST TSNE, TSNN. CHECK FOR SKIP/NO SKIP AND
8517 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION
8518
8519
8520 000010 AC=10
8521 041472 TSNE4: SETUP 100,0^
8522 000011 AC1=<AC+1>&17
8523 000012 AC2=<AC+2>&17
8524 000013 AC3=<AC+3>&17
8525 000014 AC4=<AC+4>&17
8526 000015 AC5=<AC+5>&17
8527 000006 RAN1=<AC-2>&17
8528 041472 201 07 0 00 041472 MOVEI AC-1,.
8529 041473 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
8530 041474 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
8531 041475 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
8532 041476 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
8533 041477 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
8534 041500 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
8535 041501 TSNE5: RANDOM^
8536 041501 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
8537 041502 270 10 0 00 060657 ADD AC,[142536475076]
8538 041503 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
8539 041504 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
8540 041505 322 10 0 00 041501 TSNE6: JUMPE AC,TSNE5 ;REJECT IF RAN = 0.
8541 041506 474 11 0 00 000000 SETO AC1, ;SET C("E") TO A-1.
8542 041507 613 10 0 00 000011 TSNE AC,AC1 ;C(E)+C(AC) NOT=0. NO SKIP.
8543 041510 254 00 0 00 041512 JRST .+2
8544 041511 005 10 0 00 060674 ER AC,[ASCII /TST/];TSNE SKIPPED.
8545 041512 617 10 0 00 000011 TSNN AC,AC1 ;C(E)+C(AC) NOT=0. SKIP.
8546 041513 005 10 0 00 060674 ER AC,[ASCII /TST/]
8547 041514 312 10 0 00 061125 CAME AC,RAN ;C(AC)SHOULD NOT CHANGE.
8548 041515 001 11 0 00 061125 ERR AC1,RAN
8549 LOOP TSNE5,TSNE6^
8550 041516 367 07 0 00 041501 SOJG AC-1,TSNE5 ;ITERATION COUNTER
8551 041517 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
8552 041520 321 07 0 00 041505 JUMPL AC-1,TSNE6 ;LOOP ON ERROR SWITCH ^
8553
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 50
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0228
8554
8555
8556 ;TEST TSNE, TSNN. CHECK FOR SKIP/NO SKIP AND
8557 ;CORRECT DATA IN AC FOR RAN TO -1 CONDITION
8558
8559
8560 000011 AC=11
8561 041521 TSNED: SETUP 100,0^
8562 000012 AC1=<AC+1>&17
8563 000013 AC2=<AC+2>&17
8564 000014 AC3=<AC+3>&17
8565 000015 AC4=<AC+4>&17
8566 000016 AC5=<AC+5>&17
8567 000007 RAN1=<AC-2>&17
8568 041521 201 10 0 00 041521 MOVEI AC-1,.
8569 041522 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
8570 041523 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
8571 041524 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
8572 041525 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
8573 041526 240 10 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
8574 041527 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
8575 041530 TSNEE: RANDOM^
8576 041530 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
8577 041531 270 11 0 00 060657 ADD AC,[142536475076]
8578 041532 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
8579 041533 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
8580 041534 322 11 0 00 041530 JUMPE AC,TSNEE ;REJECT IF RAN = 0.
8581 041535 477 12 0 00 000007 TSNEF: SETOB AC1,RAN1 ;SET C("AC") TO A -1.
8582 041536 613 12 0 00 000011 TSNE AC1,AC ;C(E)+C(AC) NOT=0. NO SKIP.
8583 041537 254 00 0 00 041541 JRST .+2
8584 041540 005 12 0 00 060674 ER AC1,[ASCII /TST/];TSNE SKIPPED.
8585 041541 617 12 0 00 000011 TSNN AC1,AC ;C(E)+C(AC) NOT=0. SKIP.
8586 041542 005 12 0 00 060674 ER AC1,[ASCII /TST/]
8587 041543 312 12 0 00 000007 CAME AC1,RAN1 ;C(AC) SHOULD = ORIG. C(AC).
8588 041544 001 11 0 00 000007 ERR AC,RAN1
8589 LOOP TSNEE,TSNEF^
8590 041545 367 10 0 00 041530 SOJG AC-1,TSNEE ;ITERATION COUNTER
8591 041546 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
8592 041547 321 10 0 00 041535 JUMPL AC-1,TSNEF ;LOOP ON ERROR SWITCH ^
8593
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 51
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0229
8594
8595
8596 ;TEST TSNE, TSNN CHECK FOR SKIP/NO SKIP AND
8597 ;CORRECT DATA IN AC FOR NOT RAN TO RAN CONDITION
8598
8599
8600 000002 AC=2
8601 041550 TSNN1: SETUP 100,0^
8602 000003 AC1=<AC+1>&17
8603 000004 AC2=<AC+2>&17
8604 000005 AC3=<AC+3>&17
8605 000006 AC4=<AC+4>&17
8606 000007 AC5=<AC+5>&17
8607 000000 RAN1=<AC-2>&17
8608 041550 201 01 0 00 041550 MOVEI AC-1,.
8609 041551 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
8610 041552 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
8611 041553 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
8612 041554 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
8613 041555 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
8614 041556 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
8615 041557 TSNN2: RANDOM^
8616 041557 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
8617 041560 270 02 0 00 060657 ADD AC,[142536475076]
8618 041561 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
8619 041562 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
8620 041563 322 02 0 00 041557 JUMPE AC,TSNN2 ;REJECT IF RAN = 0.
8621 041564 204 03 0 00 000002 TSNN3: MOVS AC1,AC ;MAKE C(E) =
8622 041565 450 03 0 00 000000 SETCA AC1, ;COMP C(AC).
8623 041566 617 02 0 00 000003 TSNN AC,AC1 ;C(E) + C(AC) = 0...NO SKIP.
8624 041567 254 00 0 00 041571 JRST .+2
8625 041570 005 02 0 00 060674 ER AC,[ASCII /TST/];TSNN SKIPPED.
8626 041571 613 02 0 00 000003 TSNE AC,AC1 ;C(E) + C(AC) = 0...SKIP.
8627 041572 005 02 0 00 060674 ER AC,[ASCII /TST/]
8628 041573 312 02 0 00 061125 CAME AC,RAN ;C(AC)SHOULD NOT CHANGE
8629 041574 001 03 0 00 061125 ERR AC1,RAN
8630 LOOP TSNN2,TSNN3^
8631 041575 367 01 0 00 041557 SOJG AC-1,TSNN2 ;ITERATION COUNTER
8632 041576 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
8633 041577 321 01 0 00 041564 JUMPL AC-1,TSNN3 ;LOOP ON ERROR SWITCH ^
8634
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 52
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0230
8635
8636
8637 ;TEST TSNE, TSNN. CHECK FOR SKIP/NO SKIP AND
8638 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
8639
8640
8641 000003 AC=3
8642 041600 TSNNA: SETUP 100,0^
8643 000004 AC1=<AC+1>&17
8644 000005 AC2=<AC+2>&17
8645 000006 AC3=<AC+3>&17
8646 000007 AC4=<AC+4>&17
8647 000010 AC5=<AC+5>&17
8648 000001 RAN1=<AC-2>&17
8649 041600 201 02 0 00 041600 MOVEI AC-1,.
8650 041601 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
8651 041602 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
8652 041603 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
8653 041604 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
8654 041605 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
8655 041606 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
8656 041607 TSNNB: RANDOM^
8657 041607 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
8658 041610 270 03 0 00 060657 ADD AC,[142536475076]
8659 041611 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
8660 041612 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
8661 041613 204 05 0 00 000003 MOVS AC2,AC ;MAKE SURE
8662 041614 404 05 0 00 000003 AND AC2,AC ;AND CONDITION
8663 041615 322 05 0 00 041607 JUMPE AC2,TSNNB ;DOESN'T = 0.
8664 041616 200 04 0 00 000003 TSNNC: MOVE AC1,AC ;MAKE C("E") = C("AC").
8665 041617 613 03 0 00 000004 TSNE AC,AC1 ;C(E)+C(AC)NOT=0. NO SKIP
8666 041620 254 00 0 00 041622 JRST .+2
8667 041621 005 03 0 00 060674 ER AC,[ASCII /TST/];TSNE SKIPPED.
8668 041622 617 03 0 00 000004 TSNN AC,AC1 ;C(E)+C(AC)NOT=0. SKIP.
8669 041623 005 03 0 00 060674 ER AC,[ASCII /TST/]
8670 041624 312 03 0 00 061125 CAME AC,RAN ;C(AC) SHOULD NOT CHANGE
8671 041625 001 04 0 00 061125 ERR AC1,RAN
8672 LOOP TSNNB,TSNNC^
8673 041626 367 02 0 00 041607 SOJG AC-1,TSNNB ;ITERATION COUNTER
8674 041627 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
8675 041630 321 02 0 00 041616 JUMPL AC-1,TSNNC ;LOOP ON ERROR SWITCH ^
8676
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 53
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0231
8677
8678
8679 ;TEST SKIP, SKIPA. CHECK FOR SKIP/NO SKIP AND
8680 ;CORRECT DATA IN C(E) AND C(AC)=C(E) AFTER SKIP
8681 ;ALSO CHECK FOR OVERFLOW FLAG NOT BEING SET.
8682
8683
8684 000004 AC=4
8685 041631 SKIP1: SETUP 100,0^
8686 000005 AC1=<AC+1>&17
8687 000006 AC2=<AC+2>&17
8688 000007 AC3=<AC+3>&17
8689 000010 AC4=<AC+4>&17
8690 000011 AC5=<AC+5>&17
8691 000002 RAN1=<AC-2>&17
8692 041631 201 03 0 00 041631 MOVEI AC-1,.
8693 041632 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
8694 041633 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
8695 041634 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
8696 041635 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
8697 041636 240 03 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
8698 041637 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
8699 041640 SKIP2: RANDOM^
8700 041640 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
8701 041641 270 04 0 00 060657 ADD AC,[142536475076]
8702 041642 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
8703 041643 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
8704 041644 255 10 0 00 041645 SKIP3: JFCL 10,.+1 ;CLEAR OV FLAG
8705 041645 200 02 0 00 000005 MOVE RAN1,AC1 ;SAVE C(AC) IN CASE OF ERROR.
8706 041646 330 05 0 00 000004 SKIP AC1,AC ;SHOULD NOT SKIP
8707 041647 334 05 0 00 000004 SKIPA AC1,AC ;SHOULD SKIP
8708 041650 005 04 0 00 060661 ER AC,[ASCII /SKP/]
8709 041651 255 10 0 00 041653 JFCL 10,.+2 ;OV FLAG GET SET?
8710 041652 254 00 0 00 041654 JRST .+2 ;NO
8711 041653 005 04 0 00 060675 ER AC,[ASCII /AROV/];YES..SHOULD NOT GET SET ON SKIP INST.
8712 041654 312 04 0 00 061125 CAME AC,RAN ;C(E) SHOULD NOT HAVE CHANGED
8713 041655 001 04 0 00 000002 ERR AC,RAN1
8714 041656 312 05 0 00 061125 CAME AC1,RAN ;C(AC) SHOULD =C(E).
8715 041657 001 04 0 00 000002 ERR AC,RAN1
8716 LOOP SKIP2,SKIP3^
8717 041660 367 03 0 00 041640 SOJG AC-1,SKIP2 ;ITERATION COUNTER
8718 041661 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
8719 041662 321 03 0 00 041644 JUMPL AC-1,SKIP3 ;LOOP ON ERROR SWITCH ^
8720
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 54
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0232
8721
8722
8723 ;TEST SKIPE, SKIPN. CHECK FOR SKIP/ NO SKIP,
8724 ;CORRECT DATA IN C(E) AND C(AC)=C(E) AFTER SKIP.
8725
8726
8727 000005 AC=5
8728 041663 SKIPE1: SETUP 100,0^
8729 000006 AC1=<AC+1>&17
8730 000007 AC2=<AC+2>&17
8731 000010 AC3=<AC+3>&17
8732 000011 AC4=<AC+4>&17
8733 000012 AC5=<AC+5>&17
8734 000003 RAN1=<AC-2>&17
8735 041663 201 04 0 00 041663 MOVEI AC-1,.
8736 041664 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
8737 041665 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
8738 041666 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
8739 041667 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
8740 041670 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
8741 041671 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
8742 041672 201 06 0 00 000001 MOVEI AC1,1 ;SETUP C(E) FOR A FLOATING ONE
8743 041673 SKIPE2: RANDOM^
8744 041673 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
8745 041674 270 05 0 00 060657 ADD AC,[142536475076]
8746 041675 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
8747 041676 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
8748 041677 241 06 0 00 000001 ROT AC1,1 ;ROT TO TEST NEXT BIT.
8749 041700 200 07 0 00 000006 MOVE AC2,AC1 ;SAVE FLOATING ONE BIT
8750 041701 200 06 0 00 000007 SKIPE3: MOVE AC1,AC2 ;RESTORE C(5) IN CASE OF ERROR
8751 041702 332 05 0 00 000006 SKIPE AC,AC1 ;SHOULD NOT SKIP
8752 041703 336 05 0 00 000006 SKIPN AC,AC1 ;SHOULD SKIP
8753 041704 005 06 0 00 060661 ER AC1,[ASCII /SKP/]
8754 041705 312 06 0 00 000007 CAME AC1,AC2 ;C(E) SHOULD NOT CHANGE
8755 041706 001 07 0 00 061125 ERR AC2,RAN
8756 041707 312 05 0 00 000007 CAME AC,AC2 ;C(AC) SHOULD= C(E)
8757 041710 001 07 0 00 061125 ERR AC2,RAN
8758 LOOP SKIPE2,SKIPE3^
8759 041711 367 04 0 00 041673 SOJG AC-1,SKIPE2 ;ITERATION COUNTER
8760 041712 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
8761 041713 321 04 0 00 041701 JUMPL AC-1,SKIPE3 ;LOOP ON ERROR SWITCH ^
8762
8763
8764
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 55
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0233
8765
8766
8767 ;TEST SKIPN, SKIPE. CHECK FOR SKIP/ NO SKIP,
8768 ;CORRECT DATA IN C(E) AND C(AC) = C(E) AFTER SKIP.
8769 ;C(AC) = RAN. NUM. AND C(E) = 0.
8770
8771
8772 000003 AC=3
8773 041714 SKIPN1: SETUP 100,0^
8774 000004 AC1=<AC+1>&17
8775 000005 AC2=<AC+2>&17
8776 000006 AC3=<AC+3>&17
8777 000007 AC4=<AC+4>&17
8778 000010 AC5=<AC+5>&17
8779 000001 RAN1=<AC-2>&17
8780 041714 201 02 0 00 041714 MOVEI AC-1,.
8781 041715 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
8782 041716 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
8783 041717 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
8784 041720 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
8785 041721 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
8786 041722 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
8787 041723 SKIPN2: RANDOM^
8788 041723 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
8789 041724 270 03 0 00 060657 ADD AC,[142536475076]
8790 041725 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
8791 041726 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
8792 041727 403 04 0 00 000001 SKIPN3: SETZB AC1,RAN1 ;CLEAR C(E).
8793 041730 336 03 0 00 000004 SKIPN AC,AC1 ;C(E) = 0...NO SKIP.
8794 041731 332 03 0 00 000004 SKIPE AC,AC1 ;C(E) = 0...SKIP.
8795 041732 005 04 0 00 060661 ER AC1,[ASCII /SKP/]
8796 041733 312 03 0 00 000004 CAME AC,AC1 ;C(AC) SHOULD = C(E).
8797 041734 001 01 0 00 061125 ERR RAN1,RAN
8798 041735 312 04 0 00 000001 CAME AC1,RAN1 ;C(E) SHOULD STILL = 0.
8799 041736 001 01 0 00 061125 ERR RAN1,RAN
8800 LOOP SKIPN2,SKIPN3^
8801 041737 367 02 0 00 041723 SOJG AC-1,SKIPN2 ;ITERATION COUNTER
8802 041740 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
8803 041741 321 02 0 00 041727 JUMPL AC-1,SKIPN3 ;LOOP ON ERROR SWITCH ^
8804
8805
8806
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 56
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0234
8807
8808
8809 ;TEST SKIPG, SKIPL. CHECK FOR SKIP/NO SKIP,
8810 ;CORRECT DATA IN C(E), AND C(AC)=C(E)AFTER SKIP,
8811 ;BY ROTATING A BIT IN E.
8812
8813
8814 000006 AC=6
8815 041742 SKIPG1: SETUP 100,0^
8816 000007 AC1=<AC+1>&17
8817 000010 AC2=<AC+2>&17
8818 000011 AC3=<AC+3>&17
8819 000012 AC4=<AC+4>&17
8820 000013 AC5=<AC+5>&17
8821 000004 RAN1=<AC-2>&17
8822 041742 201 05 0 00 041742 MOVEI AC-1,.
8823 041743 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
8824 041744 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
8825 041745 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
8826 041746 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
8827 041747 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
8828 041750 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
8829 041751 201 07 0 00 000001 MOVEI AC1,1 ;SETUP AC1 FOR FLOATING ONE.
8830 041752 SKIPG2: RANDOM^
8831 041752 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
8832 041753 270 06 0 00 060657 ADD AC,[142536475076]
8833 041754 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
8834 041755 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
8835 041756 241 07 0 00 000001 ROT AC1,1 ;ROT AC1 TO TEST NEXT BIT.
8836 041757 316 07 0 00 060665 CAMN AC1,[XWD 400000,0];IS SIGN BIT SET?
8837 041760 241 07 0 00 000001 ROT AC1,1 ;YES. ROT AGAIN
8838 041761 200 10 0 00 000007 MOVE AC2,AC1 ;SAVE FLOATING ONE IN AC2.
8839 041762 200 07 0 00 000010 SKIPG3: MOVE AC1,AC2 ;RESTORE AC1 IN CASE OF ERROR
8840 041763 331 06 0 00 000007 SKIPL AC,AC1 ;SHOULD NOT SKIP.
8841 041764 337 06 0 00 000007 SKIPG AC,AC1 ;SKIPG SHOULD SKIP
8842 041765 005 06 0 00 060661 ER AC,[ASCII /SKP/]
8843 041766 312 07 0 00 000010 CAME AC1,AC2 ;NOT CHANGE C(E),
8844 041767 001 10 0 00 061125 ERR AC2,RAN
8845 041770 312 06 0 00 000010 CAME AC,AC2 ;AND PUT C(E) INTO AC.
8846 041771 001 10 0 00 061125 ERR AC2,RAN
8847 LOOP SKIPG2,SKIPG3^
8848 041772 367 05 0 00 041752 SOJG AC-1,SKIPG2 ;ITERATION COUNTER
8849 041773 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
8850 041774 321 05 0 00 041762 JUMPL AC-1,SKIPG3 ;LOOP ON ERROR SWITCH ^
8851
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 57
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0235
8852
8853
8854 ;TEST SKIPG, SKIPL. CHECK FOR SKIP/NO SKIP,
8855 ;CORRECT DATA IN C(E), AND C(AC)=C(E) AFTER SKIP,
8856 ;BY USEING A NEGATIVE RANDOM NUMBER IN E.
8857
8858
8859 000007 AC=7
8860 041775 SKIPL1: SETUP 100,0^
8861 000010 AC1=<AC+1>&17
8862 000011 AC2=<AC+2>&17
8863 000012 AC3=<AC+3>&17
8864 000013 AC4=<AC+4>&17
8865 000014 AC5=<AC+5>&17
8866 000005 RAN1=<AC-2>&17
8867 041775 201 06 0 00 041775 MOVEI AC-1,.
8868 041776 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
8869 041777 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
8870 042000 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
8871 042001 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
8872 042002 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
8873 042003 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
8874 042004 SKIPL2: RANDOM^
8875 042004 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
8876 042005 270 07 0 00 060657 ADD AC,[142536475076]
8877 042006 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
8878 042007 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
8879 042010 311 07 0 00 060660 SKIPL3: CAML AC,[0] ;RAN A POSITIVE NUMB
8880 042011 450 07 0 00 000000 SETCA AC, ;YES, COMP TO MAKE IT NEG
8881 042012 200 11 0 00 000007 MOVE AC2,AC ;SAVE AC FOR FUTURE COMPARE
8882 042013 202 10 0 00 000005 MOVEM AC1,RAN1 ;SAVE AC1 IN CASE OF ERROR.
8883 042014 337 10 0 00 000007 SKIPG AC1,AC ;SHOULD NOT SKIP
8884 042015 331 10 0 00 000007 SKIPL AC1,AC ;C(E)IS NEG. SHOULD SKIP
8885 042016 005 07 0 00 060661 ER AC,[ASCII /SKP/]
8886 042017 312 07 0 00 000011 CAME AC,AC2 ;C(E) SHOULD NOT HAVE CHANGED
8887 042020 001 11 0 00 000005 ERR AC2,RAN1
8888 042021 312 10 0 00 000011 CAME AC1,AC2 ;C(AC) SHOULD BE =TO C(E)
8889 042022 001 11 0 00 000005 ERR AC2,RAN1
8890 LOOP SKIPL2,SKIPL3^
8891 042023 367 06 0 00 042004 SOJG AC-1,SKIPL2 ;ITERATION COUNTER
8892 042024 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
8893 042025 321 06 0 00 042010 JUMPL AC-1,SKIPL3 ;LOOP ON ERROR SWITCH ^
8894
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 58
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0236
8895
8896
8897 ;TEST SKIPGE, SKIPL. CHECK FOR SKIP/NO SKIP,
8898 ;C(E) NOT CHANGING, AND C(AC)=C(E) AFTER SKIP,
8899 ;BY MAKEING C(E) POSITIVE AND THEN 0
8900
8901
8902 000010 AC=10
8903 042026 SKPGE1: SETUP 100,0^
8904 000011 AC1=<AC+1>&17
8905 000012 AC2=<AC+2>&17
8906 000013 AC3=<AC+3>&17
8907 000014 AC4=<AC+4>&17
8908 000015 AC5=<AC+5>&17
8909 000006 RAN1=<AC-2>&17
8910 042026 201 07 0 00 042026 MOVEI AC-1,.
8911 042027 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
8912 042030 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
8913 042031 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
8914 042032 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
8915 042033 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
8916 042034 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
8917 042035 SKPGE2: RANDOM^
8918 042035 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
8919 042036 270 10 0 00 060657 ADD AC,[142536475076]
8920 042037 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
8921 042040 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
8922 042041 315 10 0 00 060660 SKPGE3: CAMGE AC,[0] ;RAN POSITIVE?
8923 042042 450 10 0 00 000000 SETCA AC, ;NO. COMP AND MAKE IT POSITIVE
8924 042043 200 12 0 00 000010 MOVE AC2,AC ;SAVE FOR FUTURE COMPARE
8925 042044 202 11 0 00 000006 MOVEM AC1,RAN1 ;SAVE AC1 IN CASE OF ERROR.
8926 042045 331 11 0 00 000010 SKIPL AC1,AC ;C(E) IS POS SHOULD NOT SKIP
8927 042046 335 11 0 00 000010 SKIPGE AC1,AC ;C(E) IS POSITIVE. SHOULD SKIP
8928 042047 005 10 0 00 060661 ER AC,[ASCII /SKP/]
8929 042050 312 10 0 00 000012 CAME AC,AC2 ;C(E) SHOULD NOT HAVE CHANGED
8930 042051 001 12 0 00 000006 ERR AC2,RAN1
8931 042052 312 11 0 00 000012 CAME AC1,AC2 ;C(AC)SHOULD=C(E)
8932 042053 001 12 0 00 000006 ERR AC2,RAN1
8933 042054 400 10 0 00 000000 SETZ AC, ;CLEAR C(E)
8934 042055 331 11 0 00 000010 SKIPL AC1,AC ;C(E)=0...SHOULD NOT SKIP
8935 042056 335 11 0 00 000010 SKIPGE AC1,AC ;C(E)=0...SHOULD SKIP
8936 042057 005 10 0 00 060661 ER AC,[ASCII /SKP/]
8937 042060 312 10 0 00 060660 CAME AC,[0] ;C(E) SHOULD STILL=0
8938 042061 001 10 0 00 000012 ERR AC,AC2
8939 042062 312 11 0 00 060660 CAME AC1,[0] ;C(AC) SHOULD NOW=0
8940 042063 001 10 0 00 000012 ERR AC,AC2
8941 LOOP SKPGE2,SKPGE3^
8942 042064 367 07 0 00 042035 SOJG AC-1,SKPGE2 ;ITERATION COUNTER
8943 042065 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
8944 042066 321 07 0 00 042041 JUMPL AC-1,SKPGE3 ;LOOP ON ERROR SWITCH ^
8945
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 59
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0237
8946 ;TEST SKIPG, SKIPLE. CHECK FOR SKIP/NO SKIP,
8947 ;C(E) NOT CHANGING AND C(AC)=C(E) AFTER SKIP,
8948 ;BY MAKING C(E) NEGATIVE OR 0.
8949
8950
8951 000011 AC=11
8952 042067 SKPLE1: SETUP 100,0^
8953 000012 AC1=<AC+1>&17
8954 000013 AC2=<AC+2>&17
8955 000014 AC3=<AC+3>&17
8956 000015 AC4=<AC+4>&17
8957 000016 AC5=<AC+5>&17
8958 000007 RAN1=<AC-2>&17
8959 042067 201 10 0 00 042067 MOVEI AC-1,.
8960 042070 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
8961 042071 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
8962 042072 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
8963 042073 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
8964 042074 240 10 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
8965 042075 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
8966 042076 SKPLE2: RANDOM^
8967 042076 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
8968 042077 270 11 0 00 060657 ADD AC,[142536475076]
8969 042100 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
8970 042101 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
8971 042102 313 11 0 00 060660 SKPLE3: CAMLE AC,[0] ;RAN NEG OR 0?
8972 042103 450 11 0 00 000000 SETCA AC, ;NO. MAKE IT NEG
8973 042104 200 07 0 00 000012 MOVE RAN1,AC1 ;SAVE AC1 IN CASE OF ERROR.
8974 042105 200 13 0 00 000011 MOVE AC2,AC ;SAVE FOR FUTURE COMPARE
8975 042106 337 12 0 00 000011 SKIPG AC1,AC ;C(E) NEG OR 0...SHOULD NOT SKIP
8976 042107 333 12 0 00 000011 SKIPLE AC1,AC ;C(E) NEG OR 0... SHOULD SKIP
8977 042110 005 11 0 00 060661 ER AC,[ASCII /SKP/]
8978 042111 312 11 0 00 000013 CAME AC,AC2 ;C(E) SHOULD NOT CHANGE
8979 042112 001 13 0 00 000007 ERR AC2,RAN1
8980 042113 312 12 0 00 000013 CAME AC1,AC2 ;C(AC) SHOULD=C(E)
8981 042114 001 13 0 00 000007 ERR AC2,RAN1
8982 042115 400 11 0 00 000000 SETZ AC, ;CLEAR C(E)
8983 042116 337 12 0 00 000011 SKIPG AC1,AC ;C(E)=0...SHOULD NOT SKIP
8984 042117 335 12 0 00 000011 SKIPGE AC1,AC ;C(E)=0.. SHOULD SKIP
8985 042120 005 11 0 00 060661 ER AC,[ASCII /SKP/]
8986 042121 312 11 0 00 060660 CAME AC,[0] ;C(E) SHOULD STILL=0
8987 042122 001 11 0 00 000013 ERR AC,AC2
8988 042123 312 12 0 00 060660 CAME AC1,[0] ;C(AC) SHOULD=0
8989 042124 001 11 0 00 000013 ERR AC,AC2
8990 LOOP SKPLE2,SKPLE3^
8991 042125 367 10 0 00 042076 SOJG AC-1,SKPLE2 ;ITERATION COUNTER
8992 042126 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
8993 042127 321 10 0 00 042102 JUMPL AC-1,SKPLE3 ;LOOP ON ERROR SWITCH ^
8994
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 60
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0238
8995
8996
8997 ;TEST SKIPLE, SKIPGE. CHECK FOR SKIP/ NO SKIP,
8998 ;C(E) NOT CHANGING, AND COORECT STORING
8999 ;OF C(E) INTO AC FOR C(E) = POSITIVE RAN. NUM.
9000
9001
9002 000012 AC=12
9003 042130 SKPLEA: SETUP 100,0^
9004 000013 AC1=<AC+1>&17
9005 000014 AC2=<AC+2>&17
9006 000015 AC3=<AC+3>&17
9007 000016 AC4=<AC+4>&17
9008 000017 AC5=<AC+5>&17
9009 000010 RAN1=<AC-2>&17
9010 042130 201 11 0 00 042130 MOVEI AC-1,.
9011 042131 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
9012 042132 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
9013 042133 202 11 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
9014 042134 201 11 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
9015 042135 240 11 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
9016 042136 240 11 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
9017 042137 SKPLEB: RANDOM^
9018 042137 200 12 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
9019 042140 270 12 0 00 060657 ADD AC,[142536475076]
9020 042141 241 12 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
9021 042142 447 12 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
9022 042143 322 12 0 00 042137 JUMPE AC,SKPLEB ;REJECT IF RAN = 0.
9023 042144 477 13 0 00 000010 SKPLEC: SETOB AC1,RAN1 ;SET C(AC) TO ALL ONES.
9024 042145 404 12 0 00 060673 AND AC,[XWD 377777,-1];MAKE SURE C(E) IS POS.
9025 042146 200 14 0 00 000012 MOVE AC2,AC ;SAVE C(E) FOR FUTURE COMPARE.
9026 042147 333 13 0 00 000012 SKIPLE AC1,AC ;C(E) IS POS...NO SKIP.
9027 042150 335 13 0 00 000012 SKIPGE AC1,AC ;C(E) IS POS...SKIP.
9028 042151 005 12 0 00 060661 ER AC,[ASCII/SKP/]
9029 042152 312 13 0 00 000012 CAME AC1,AC ;C(AC) SHOULD = C(E).
9030 042153 001 14 0 00 000010 ERR AC2,RAN1
9031 042154 312 12 0 00 000014 CAME AC,AC2 ;C(E) SHOULD = ORIG C(E).
9032 042155 001 14 0 00 000010 ERR AC2,RAN1
9033 LOOP SKPLEB,SKPLEC^
9034 042156 367 11 0 00 042137 SOJG AC-1,SKPLEB ;ITERATION COUNTER
9035 042157 200 12 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
9036 042160 321 11 0 00 042144 JUMPL AC-1,SKPLEC ;LOOP ON ERROR SWITCH ^
9037
9038
9039
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 61
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0239
9040
9041
9042 ;TEST JUMP, JUMPA. CHECK FOR JUMP/ NO JUMP AND
9043 ;NO MODIFICATION OF C(AC) FOR C(AC)=RANDOM NUMBER
9044
9045
9046 000012 AC=12
9047 042161 JMP1: SETUP 100,0^
9048 000013 AC1=<AC+1>&17
9049 000014 AC2=<AC+2>&17
9050 000015 AC3=<AC+3>&17
9051 000016 AC4=<AC+4>&17
9052 000017 AC5=<AC+5>&17
9053 000010 RAN1=<AC-2>&17
9054 042161 201 11 0 00 042161 MOVEI AC-1,.
9055 042162 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
9056 042163 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
9057 042164 202 11 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
9058 042165 201 11 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
9059 042166 240 11 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
9060 042167 240 11 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
9061 042170 JMP2: RANDOM^
9062 042170 200 12 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
9063 042171 270 12 0 00 060657 ADD AC,[142536475076]
9064 042172 241 12 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
9065 042173 447 12 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
9066 042174 200 10 0 00 000012 JMP3: MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
9067 042175 320 12 0 00 042177 JUMP AC,.+2 ;SHOULD NOT JUMP.
9068 042176 324 12 0 00 042200 JUMPA AC,.+2 ;SHOULD JUMP.
9069 042177 005 12 0 00 060676 ER AC,[ASCII /JMP/]
9070 042200 312 12 0 00 061125 CAME AC,RAN ;C(AC) SHOULD STILL=RAN.
9071 042201 003 10 0 00 042200 ERRI RAN1,.-1
9072 LOOP JMP2,JMP3^
9073 042202 367 11 0 00 042170 SOJG AC-1,JMP2 ;ITERATION COUNTER
9074 042203 200 12 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
9075 042204 321 11 0 00 042174 JUMPL AC-1,JMP3 ;LOOP ON ERROR SWITCH ^
9076
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 62
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0240
9077
9078
9079 ;TEST JUMPE, JUMPN. CHECK FOR JUMP/ NO JUMP AND
9080 ;NO MODIFICATION OF C(AC) WITH C(AC) = TO A FLOATING ONE.
9081
9082
9083 000013 AC=13
9084 042205 JMPE1: SETUP 100,0^
9085 000014 AC1=<AC+1>&17
9086 000015 AC2=<AC+2>&17
9087 000016 AC3=<AC+3>&17
9088 000017 AC4=<AC+4>&17
9089 000000 AC5=<AC+5>&17
9090 000011 RAN1=<AC-2>&17
9091 042205 201 12 0 00 042205 MOVEI AC-1,.
9092 042206 202 12 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
9093 042207 201 12 0 00 000012 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
9094 042210 202 12 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
9095 042211 201 12 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
9096 042212 240 12 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
9097 042213 240 12 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
9098 042214 201 13 0 00 000001 MOVEI AC,1 ;SETUP AC FOR FLOATING ONE.
9099 042215 241 13 0 00 777777 JMPE2: ROT AC,-1 ;ROT TO TEST NEXT BIT
9100 042216 200 11 0 00 000013 MOVE RAN1,AC ;SAVE FOR FUTURE COMPARE.
9101 042217 200 13 0 00 000011 JMPE3: MOVE AC,RAN1 ;RESTORE C(AC) IN CASE OF ERROR.
9102 042220 322 13 0 00 042222 JUMPE AC,.+2 ;SHOULD NOT JUMP
9103 042221 326 13 0 00 042223 JUMPN AC,.+2 ;SHOULD JUMP
9104 042222 005 13 0 00 060676 ER AC,[ASCII /JMP/]
9105 042223 312 13 0 00 000011 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
9106 042224 003 11 0 00 042223 ERRI RAN1,.-1
9107 042225 367 12 0 00 042215 SOJG AC-1,JMPE2 ;ITERATION COUNTER.
9108 042226 321 12 0 00 042217 JUMPL AC-1,JMPE3 ;LOOP ON ERROR SWITCH.
9109
9110
9111
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 63
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0241
9112
9113
9114 ;TEST JUMPN, JUMPE. CHECK FOR JUMP/ NO JUMP AND
9115 ;NO MODIFICATION OF C(AC) WITH C(AC) = 0.
9116
9117
9118 000014 AC=14
9119 042227 JMPN1: SETUP 100,0^
9120 000015 AC1=<AC+1>&17
9121 000016 AC2=<AC+2>&17
9122 000017 AC3=<AC+3>&17
9123 000000 AC4=<AC+4>&17
9124 000001 AC5=<AC+5>&17
9125 000012 RAN1=<AC-2>&17
9126 042227 201 13 0 00 042227 MOVEI AC-1,.
9127 042230 202 13 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
9128 042231 201 13 0 00 000013 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
9129 042232 202 13 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
9130 042233 201 13 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
9131 042234 240 13 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
9132 042235 240 13 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
9133 042236 403 14 0 00 000012 JMPN2: SETZB AC,RAN1 ;CLEAR C(AC).
9134 042237 326 14 0 00 042241 JUMPN AC,.+2 ;C(AC) = 0...NO JUMP.
9135 042240 322 14 0 00 042242 JUMPE AC,.+2 ;C(AC) = 0...JUMP.
9136 042241 005 14 0 00 060676 ER AC,[ASCII /JMP/]
9137 042242 312 14 0 00 000012 CAME AC,RAN1 ;C(AC) SHOULD STILL = 0.
9138 042243 367 13 0 00 042236 SOJG AC-1,JMPN2 ;ITERATION COUNTER.
9139 042244 321 13 0 00 042236 JUMPL AC-1,JMPN2 ;LOOP ON ERROR SWITCH.
9140
9141
9142
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 64
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0242
9143
9144
9145 ;TEST JUMPL, JUMPG. CHECK FOR JUMP/ NO JUMP
9146 ;AND NO MODIFICATION OF C(AC) WITH C(AC)=TO A FLOATING ONE
9147 ;WITH SIGN BIT SET.
9148
9149
9150 000014 AC=14
9151 042245 JMPL1: SETUP 100,0^
9152 000015 AC1=<AC+1>&17
9153 000016 AC2=<AC+2>&17
9154 000017 AC3=<AC+3>&17
9155 000000 AC4=<AC+4>&17
9156 000001 AC5=<AC+5>&17
9157 000012 RAN1=<AC-2>&17
9158 042245 201 13 0 00 042245 MOVEI AC-1,.
9159 042246 202 13 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
9160 042247 201 13 0 00 000013 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
9161 042250 202 13 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
9162 042251 201 13 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
9163 042252 240 13 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
9164 042253 240 13 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
9165 042254 200 14 0 00 060677 MOVE AC,[XWD 400000,1];SETUP AC FOR FLOATING ONE BIT
9166 042255 430 14 0 00 060665 JMPL2: XOR AC,[XWD 400000,0];CLEAR SIGN BIT FOR ROT.
9167 042256 241 14 0 00 000001 JMPL3: ROT AC,1 ;ROT TO TEST NEXT BIT.
9168 042257 434 14 0 00 060665 IOR AC,[XWD 400000,0];SET SIGN BIT
9169 042260 202 14 0 00 000012 MOVEM AC,RAN1 ;SAVE AC FOR FUTURE COMPARE.
9170 042261 200 14 0 00 000012 JMPL4: MOVE AC,RAN1 ;RESTORE C(AC) IN CASE OF ERROR.
9171 042262 327 14 0 00 042264 JUMPG AC,.+2 ;SHOULD NOT JUMP.
9172 042263 321 14 0 00 042265 JUMPL AC,.+2 ;SHOULD JUMP.
9173 042264 005 14 0 00 060676 ER AC,[ASCII /JMP/]
9174 042265 312 14 0 00 000012 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
9175 042266 003 12 0 00 042265 ERRI RAN1,.-1
9176 042267 316 12 0 00 060665 CAMN RAN1,[XWD 400000,0];IS FLOATING ONE THE SIGN BIT?
9177 042270 254 00 0 00 042256 JRST JMPL3 ;YES. ROT AND SET SIGN BIT.
9178 042271 367 13 0 00 042255 SOJG AC-1,JMPL2 ;ITERATION COUNTER.
9179 042272 321 13 0 00 042261 JUMPL AC-1,JMPL4 ;LOOP ON ERROR SWITCH.
9180
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 65
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0243
9181
9182
9183 ;TEST JUMPG, JUMPL. CHECK FOR JUMP/ NO JUMP
9184 ;AND NO MODIFICATION OF C(AC) WITH A FLOATING ONE
9185 ;AND SIGN BIT NEVER SET.
9186
9187
9188 000015 AC=15
9189 042273 JMPG1: SETUP 100,0^
9190 000016 AC1=<AC+1>&17
9191 000017 AC2=<AC+2>&17
9192 000000 AC3=<AC+3>&17
9193 000001 AC4=<AC+4>&17
9194 000002 AC5=<AC+5>&17
9195 000013 RAN1=<AC-2>&17
9196 042273 201 14 0 00 042273 MOVEI AC-1,.
9197 042274 202 14 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
9198 042275 201 14 0 00 000014 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
9199 042276 202 14 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
9200 042277 201 14 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
9201 042300 240 14 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
9202 042301 240 14 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
9203 042302 201 15 0 00 000001 MOVEI AC,1 ;SETUP AC FOR FLOATING ONE BIT
9204 042303 241 15 0 00 000001 JMPG2: ROT AC,1 ;ROT TO TEST NEXT BIT.
9205 042304 316 15 0 00 060665 CAMN AC,[XWD 400000,0];IS BIT IN SIGN POSITION?
9206 042305 241 15 0 00 000001 ROT AC,1 ;YES, ROT AGAIN
9207 042306 200 13 0 00 000015 MOVE RAN1,AC ;SAVE FOR FUTURE COMPARE.
9208 042307 200 15 0 00 000013 JMPG3: MOVE AC,RAN1 ;RESTORE C(AC) IN CASE OF ERROR.
9209 042310 321 15 0 00 042312 JUMPL AC,.+2 ;SHOULD NOT JUMP.
9210 042311 327 15 0 00 042313 JUMPG AC,.+2 ;SHOULD JUMP.
9211 042312 005 15 0 00 060676 ER AC,[ASCII /JMP/]
9212 042313 312 15 0 00 000013 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
9213 042314 003 13 0 00 042313 ERRI RAN1,.-1
9214 042315 367 14 0 00 042303 SOJG AC-1,JMPG2 ;ITERATION COUNTER.
9215 042316 321 14 0 00 042307 JUMPL AC-1,JMPG3 ;LOOP ON ERROR SWITCH.
9216
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 66
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0244
9217
9218
9219 ;TEST JUMPGE, JUMPL. CHECK FOR JUMP/ NO JUMP
9220 ;AND NO MODIFICATION OF C(AC) WITH C(AC)=TO A FLOATING
9221 ;ONE WITH SIGN BIT NEVER SET.
9222
9223
9224 000006 AC=6
9225 042317 JMPGE1: SETUP 100,0^
9226 000007 AC1=<AC+1>&17
9227 000010 AC2=<AC+2>&17
9228 000011 AC3=<AC+3>&17
9229 000012 AC4=<AC+4>&17
9230 000013 AC5=<AC+5>&17
9231 000004 RAN1=<AC-2>&17
9232 042317 201 05 0 00 042317 MOVEI AC-1,.
9233 042320 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
9234 042321 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
9235 042322 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
9236 042323 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
9237 042324 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
9238 042325 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
9239 042326 201 06 0 00 000001 MOVEI AC,1 ;SETUP AC FOR FLOATING ONE BIT
9240 042327 241 06 0 00 000001 JMPGE2: ROT AC,1 ;ROT TO TEST NEXT BIT
9241 042330 316 06 0 00 060665 CAMN AC,[XWD 400000,0];SIGN BIT SET?
9242 042331 241 06 0 00 000001 ROT AC,1 ;YES. ROT AGAIN
9243 042332 202 06 0 00 000004 MOVEM AC,RAN1 ;SAVE AC FOR FUTURE COMPARE.
9244 042333 321 06 0 00 042335 JUMPL AC,.+2 ;C(AC) IS POSITIVE AND SHOULD NOT JUMP.
9245 042334 325 06 0 00 042336 JMPGE3: JUMPGE AC,.+2 ;SHOULD JUMP.
9246 042335 005 06 0 00 060676 ER AC,[ASCII /JMP/]
9247 042336 312 06 0 00 000004 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
9248 042337 003 04 0 00 042336 ERRI RAN1,.-1
9249 042340 403 06 0 00 000007 SETZB AC,AC1 ;CLEAR C(AC).
9250 042341 321 06 0 00 042343 JUMPL AC,.+2 ;C(E) IS POSITIVE...SHOULD NOT JUMP
9251 042342 325 06 0 00 042344 JUMPGE AC,.+2 ;SHOULD JUMP
9252 042343 005 06 0 00 060676 ER AC,[ASCII /JMP/]
9253 042344 312 06 0 00 000007 CAME AC,AC1 ;C(AC) SHOULD STILL = 0.
9254 042345 003 07 0 00 042344 ERRI AC1,.-1
9255 042346 367 05 0 00 042327 SOJG AC-1,JMPGE2 ;ITERATION COUNTER.
9256 042347 200 06 0 00 000004 MOVE AC,RAN1 ;RESTORE C(AC).
9257 042350 321 05 0 00 042334 JUMPL AC-1,JMPGE3 ;LOOP ON ERROR SWITCH.
9258
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 67
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0245
9259
9260
9261 ;TEST JUMPG, JUMPLE. CHECK FOR JUMP/ NO JUMP
9262 ;AND NO MODIFICATION OF C(AC) WITH C(AC)=FLOATING ONE
9263 ;WITH SIGN BIT SET
9264
9265
9266 000007 AC=7
9267 042351 JMPLE1: SETUP 100,0^
9268 000010 AC1=<AC+1>&17
9269 000011 AC2=<AC+2>&17
9270 000012 AC3=<AC+3>&17
9271 000013 AC4=<AC+4>&17
9272 000014 AC5=<AC+5>&17
9273 000005 RAN1=<AC-2>&17
9274 042351 201 06 0 00 042351 MOVEI AC-1,.
9275 042352 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
9276 042353 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
9277 042354 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
9278 042355 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
9279 042356 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
9280 042357 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
9281 042360 200 07 0 00 060677 MOVE AC,[XWD 400000,1];SETUP AC FOR FLOATING ONE AND SIGN BITS SET.
9282 042361 430 07 0 00 060665 JMPLE2: XOR AC,[XWD 400000,0];CLEAR SIGN BIT.
9283 042362 241 07 0 00 000001 ROT AC,1 ;ROT TO TEST NEXT BIT.
9284 042363 434 07 0 00 060665 IOR AC,[XWD 400000,0];SET SIGN BIT
9285 042364 202 07 0 00 000005 MOVEM AC,RAN1 ;SAVE C(AC) FOR FUTURE COMPARE.
9286 042365 327 07 0 00 042367 JMPLE3: JUMPG AC,.+2 ;C(AC) IS NEG...SHOULD NOT JUMP.
9287 042366 323 07 0 00 042370 JUMPLE AC,.+2 ;SHOULD JUMP.
9288 042367 005 07 0 00 060676 ER AC,[ASCII /JMP/]
9289 042370 312 07 0 00 000005 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
9290 042371 003 05 0 00 042370 ERRI RAN1,.-1
9291 042372 403 07 0 00 000010 SETZB AC,AC1 ;CLEAR C(AC).
9292 042373 327 07 0 00 042375 JUMPG AC,.+2 ;C(AC) =0. SHOULD NOT JUMP
9293 042374 323 07 0 00 042376 JUMPLE AC,.+2 ;SHOULD JUMP
9294 042375 005 07 0 00 060676 ER AC,[ASCII /JMP/]
9295 042376 312 07 0 00 000010 CAME AC,AC1 ;C(AC) SHOULD = ORIG C(AC).
9296 042377 003 10 0 00 042376 ERRI AC1,.-1
9297 042400 316 05 0 00 060665 CAMN RAN1,[XWD 400000,0];JUST THE SIGN BIT SET?
9298 042401 200 07 0 00 060677 MOVE AC,[XWD 400000,1];YES. REINITIALIZE NUMBER.
9299 042402 367 06 0 00 042361 SOJG AC-1,JMPLE2 ;ITERATION COUNTER.
9300 042403 200 07 0 00 000005 MOVE AC,RAN1 ;RESTORE C(AC).
9301 042404 321 06 0 00 042365 JUMPL AC-1,JMPLE3 ;LOOP ON ERROR SWITCH.
9302
9303
9304
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 68
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0246
9305
9306
9307 ;TEST JUMPLE, JUMPGE. CHECK FOR JUMP/ NO JUMP
9308 ;AND NO MODIFICATION OF C(AC) FOR C(AC) = POS. RAN. NUM.
9309
9310
9311 000010 AC=10
9312 042405 JMPLEA: SETUP 100,0^
9313 000011 AC1=<AC+1>&17
9314 000012 AC2=<AC+2>&17
9315 000013 AC3=<AC+3>&17
9316 000014 AC4=<AC+4>&17
9317 000015 AC5=<AC+5>&17
9318 000006 RAN1=<AC-2>&17
9319 042405 201 07 0 00 042405 MOVEI AC-1,.
9320 042406 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
9321 042407 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
9322 042410 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
9323 042411 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
9324 042412 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
9325 042413 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
9326 042414 JMPLEB: RANDOM^
9327 042414 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
9328 042415 270 10 0 00 060657 ADD AC,[142536475076]
9329 042416 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
9330 042417 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
9331 042420 322 10 0 00 042414 JUMPE AC,JMPLEB ;REJECT IF RAN = 0.
9332 042421 404 10 0 00 060673 JMPLEC: AND AC,[XWD 377777,-1];MAKE SURE C(AC) IS POS.
9333 042422 200 06 0 00 000010 MOVE RAN1,AC ;SAVE C(AC) FOR FUTURE COMPARE.
9334 042423 323 10 0 00 042425 JUMPLE AC,.+2 ;C(AC) IS POS...NO JUMP.
9335 042424 325 10 0 00 042426 JUMPGE AC,.+2 ;C(AC) IS POS...JUMP.
9336 042425 005 10 0 00 060676 ER AC,[ASCII /JMP/]
9337 042426 312 10 0 00 000006 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
9338 042427 003 06 0 00 042426 ERRI RAN1,.-1
9339 LOOP JMPLEB,JMPLEC^
9340 042430 367 07 0 00 042414 SOJG AC-1,JMPLEB ;ITERATION COUNTER
9341 042431 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
9342 042432 321 07 0 00 042421 JUMPL AC-1,JMPLEC ;LOOP ON ERROR SWITCH ^
9343
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 69
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0247
9344
9345
9346 ;TEST AOS,AOSA. CHECK FOR SKIP/NO SKIP,
9347 ;CORRECT DATA IN C(E), AND PROPER LOADING OF C(E) INTO
9348 ;C(AC) FOR C(E)=TO RAN
9349 ;ALSO CHECK PROPER SETTING OF CRY0, CRY1, AND OVERFLOW FLAGS.
9350
9351
9352 000011 AC=11
9353 042433 AOS1: SETUP 100,0^
9354 000012 AC1=<AC+1>&17
9355 000013 AC2=<AC+2>&17
9356 000014 AC3=<AC+3>&17
9357 000015 AC4=<AC+4>&17
9358 000016 AC5=<AC+5>&17
9359 000007 RAN1=<AC-2>&17
9360 042433 201 10 0 00 042433 MOVEI AC-1,.
9361 042434 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
9362 042435 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
9363 042436 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
9364 042437 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
9365 042440 240 10 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
9366 042441 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
9367 042442 AOS2: RANDOM^
9368 042442 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
9369 042443 270 11 0 00 060657 ADD AC,[142536475076]
9370 042444 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
9371 042445 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
9372 042446 200 14 0 00 061125 AOS3: MOVE AC3,RAN ;SAVE C(E) IN CASE OF ERROR.
9373 042447 255 17 0 00 042450 JFCL 17,.+1 ;CLEAR THE FLAGS.
9374 042450 200 07 0 00 000012 MOVE RAN1,AC1 ;SAVE C(AC) FOR FUTURE COMPARE.
9375 042451 200 13 0 00 000011 MOVE AC2,AC ;SIMULATE
9376 042452 270 13 0 00 060700 ADD AC2,[2] ;2 AOS INST.
9377 042453 350 12 0 00 000011 AOS AC1,AC ;SHOULD NOT SKIP
9378 042454 354 12 0 00 000011 AOSA AC1,AC ;SHOULD SKIP
9379 042455 005 11 0 00 060701 ER AC,[ASCII /AOS/]
9380 042456 312 11 0 00 000013 CAME AC,AC2 ;C(E) SHOULD=RAN+2.
9381 042457 001 14 0 00 000007 ERR AC3,RAN1
9382 042460 312 12 0 00 000013 CAME AC1,AC2 ;C(AC) SHOULD=C(E)
9383 042461 001 14 0 00 000007 ERR AC3,RAN1
9384 042462 255 04 0 00 042467 JFCL 4,CRY0B
9385 042463 255 02 0 00 042476 JFCL 2,CRY1B
9386 042464 255 10 0 00 042466 JFCL 10,.+2
9387 042465 254 00 0 00 042502 JRST AOS4
9388 042466 005 12 0 00 060664 ER AC1,[ASCII /OV/];OV SET WITHOUT CRY0 OR CRY1 BEING SET.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 70
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0248
9389 042467 312 14 0 00 060662 CRY0B: CAME AC3,[-1]
9390 042470 005 12 0 00 060667 ER AC1,[ASCII /CRY0/];CRY0 SHOULD NOT BE SET IF RAN DOESN'T = A -1.
9391 042471 255 02 0 00 042473 JFCL 2,.+2 ;IF RAN = A -1, BOTH CRY0 AND
9392 042472 005 12 0 00 060670 ER AC1,[ASCII /CRY1/];CRY1 SHOULD BE SET.
9393 042473 255 10 0 00 042475 JFCL 10,.+2
9394 042474 254 00 0 00 042502 JRST AOS4
9395 042475 005 12 0 00 060664 ER AC1,[ASCII /OV/];IF BOTH CRY0 AND CRY1 ARE SET, OV SHOULD NOT.
9396 042476 312 14 0 00 060673 CRY1B: CAME AC3,[XWD 377777,-1]
9397 042477 005 12 0 00 060670 ER AC1,[ASCII /CRY1/]
9398 042500 255 10 0 00 042502 JFCL 10,.+2
9399 042501 005 12 0 00 060664 ER AC1,[ASCII /OV/];IF CRY1 ONLY IS SET, OV SHOULD BE SET.
9400 042502 AOS4: LOOP AOS2,AOS3^
9401 042502 367 10 0 00 042442 SOJG AC-1,AOS2 ;ITERATION COUNTER
9402 042503 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
9403 042504 321 10 0 00 042446 JUMPL AC-1,AOS3 ;LOOP ON ERROR SWITCH ^
9404
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 71
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0249
9405
9406
9407 ;TEST AOSE, AOSN. CHECK FOR SKIP/NO SKIP,
9408 ;CORRECT DATA IN C(E), AND PROPER LOADING OF
9409 ;AC WITH C(E). TESTED WITH C(E)=1,3,7,17,37,+ETC.
9410
9411
9412 000002 AC=2
9413 042505 AOSE1: SETUP 100,0^
9414 000003 AC1=<AC+1>&17
9415 000004 AC2=<AC+2>&17
9416 000005 AC3=<AC+3>&17
9417 000006 AC4=<AC+4>&17
9418 000007 AC5=<AC+5>&17
9419 000000 RAN1=<AC-2>&17
9420 042505 201 01 0 00 042505 MOVEI AC-1,.
9421 042506 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
9422 042507 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
9423 042510 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
9424 042511 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
9425 042512 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
9426 042513 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
9427 042514 201 02 0 00 000001 MOVEI AC,1 ;SETUP C("E") TO =1.
9428 042515 200 05 0 00 000002 AOSE2: MOVE AC3,AC ;SAVE C(E) IN CASE OF ERROR.
9429 042516 200 02 0 00 000005 AOSE3: MOVE AC,AC3 ;RESTORE AC IN CASE OF ERROR.
9430 042517 200 04 0 00 000002 MOVE AC2,AC ;SIMULATE
9431 042520 270 04 0 00 060700 ADD AC2,[2] ;TWO AOS INST
9432 042521 200 00 0 00 000003 MOVE RAN1,AC1 ;SAVE C(AC).
9433 042522 352 03 0 00 000002 AOSE AC1,AC ;C(E)=A POSITIVE NON ZERO NUMBER..DON'T SKIP
9434 042523 356 03 0 00 000002 AOSN AC1,AC ;C(E)=A POSITIVE NON ZERO NUMBER ..SKIP
9435 042524 005 02 0 00 060701 ER AC,[ASCII /AOS/]
9436 042525 312 02 0 00 000004 CAME AC,AC2 ;C(E) SHOULD=SIM ANS
9437 042526 001 05 0 00 000000 ERR AC3,RAN1
9438 042527 312 03 0 00 000004 CAME AC1,AC2 ;C(AC) SHOULD=C(E)
9439 042530 001 05 0 00 000000 ERR AC3,RAN1
9440 042531 200 02 0 00 061125 MOVE AC,RAN ;RESTOR C(E)
9441 042532 241 02 0 00 000001 ROT AC,1 ;ROT TO TEST NEXT BIT.
9442 042533 434 02 0 00 060666 IOR AC,[1] ;SET BIT 35
9443 042534 367 01 0 00 042515 SOJG AC-1,AOSE2 ;ITERATION COUNTER.
9444 042535 321 01 0 00 042516 JUMPL AC-1,AOSE3 ;LOOP ON ERROR SWITCH.
9445
9446
9447
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 72
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0250
9448
9449
9450 ;TEST AOSG, AOSE. CHECK FOR SKIP/ NO SKIP,
9451 ;CORRECT DATA IN C(E), AND PROPER LOADING
9452 ;OR AC WITCH C(E). C(E) = -2 AND C(AC) = RAN. NUM.
9453
9454
9455 000011 AC=11
9456 042536 AOSGA: SETUP 100,0^
9457 000012 AC1=<AC+1>&17
9458 000013 AC2=<AC+2>&17
9459 000014 AC3=<AC+3>&17
9460 000015 AC4=<AC+4>&17
9461 000016 AC5=<AC+5>&17
9462 000007 RAN1=<AC-2>&17
9463 042536 201 10 0 00 042536 MOVEI AC-1,.
9464 042537 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
9465 042540 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
9466 042541 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
9467 042542 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
9468 042543 240 10 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
9469 042544 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
9470 042545 AOSGB: RANDOM^
9471 042545 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
9472 042546 270 11 0 00 060657 ADD AC,[142536475076]
9473 042547 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
9474 042550 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
9475 042551 200 12 0 00 060702 AOSGC: MOVE AC1,[XWD -1,-2] ;MAKE C(E) = -2.
9476 042552 200 07 0 00 000012 MOVE RAN1,AC1 ;SAVE C(E) IN CASE OF ERR.
9477 042553 357 11 0 00 000012 AOSG AC,AC1 ;C(E) + 1 = -1...NO SKIP.
9478 042554 352 11 0 00 000012 AOSE AC,AC1 ;C(E) + 1 = 0...SKIP.
9479 042555 005 12 0 00 060701 ER AC1,[ASCII /AOS/]
9480 042556 312 12 0 00 000011 CAME AC1,AC ;C(AC) SHOULD = C(E)
9481 042557 001 07 0 00 061125 ERR RAN1,RAN
9482 042560 312 12 0 00 060660 CAME AC1,[0] ;C(E) SHOULD = 0.
9483 042561 001 07 0 00 061125 ERR RAN1,RAN
9484 LOOP AOSGB,AOSGC^
9485 042562 367 10 0 00 042545 SOJG AC-1,AOSGB ;ITERATION COUNTER
9486 042563 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
9487 042564 321 10 0 00 042551 JUMPL AC-1,AOSGC ;LOOP ON ERROR SWITCH ^
9488
9489
9490
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 73
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0251
9491
9492
9493 ;TEST AOSL, AOSG. CHECK FOR SKIP/NO SKIP,
9494 ;CORRECT DATA IN C(E) AND PROPER STORING
9495 ;OF C(E) INTO AC FOR C(E)=+RAN.
9496
9497
9498 000010 AC=10
9499 042565 AOSL1: SETUP 100,0^
9500 000011 AC1=<AC+1>&17
9501 000012 AC2=<AC+2>&17
9502 000013 AC3=<AC+3>&17
9503 000014 AC4=<AC+4>&17
9504 000015 AC5=<AC+5>&17
9505 000006 RAN1=<AC-2>&17
9506 042565 201 07 0 00 042565 MOVEI AC-1,.
9507 042566 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
9508 042567 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
9509 042570 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
9510 042571 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
9511 042572 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
9512 042573 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
9513 042574 AOSL2: RANDOM^
9514 042574 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
9515 042575 270 10 0 00 060657 ADD AC,[142536475076]
9516 042576 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
9517 042577 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
9518 042600 630 10 0 00 060703 AOSL3: TDZ AC,[XWD 600000,0];MAKE C(E) SO TWO AOS'S WON'T CHANGE SIGN.
9519 042601 200 13 0 00 000010 MOVE AC3,AC ;SAVE C(E) IN CASE OF ERROR
9520 042602 200 12 0 00 000010 MOVE AC2,AC ;SIMULATE
9521 042603 270 12 0 00 060700 ADD AC2,[2] ;2 AOS'S
9522 042604 200 06 0 00 000011 MOVE RAN1,AC1 ;SAVE C(AC) IN CASE OF ERROR.
9523 042605 351 11 0 00 000010 AOSL AC1,AC ;C(E) POSITIVE...NO SKIP
9524 042606 357 11 0 00 000010 AOSG AC1,AC ;C(E) POSITIVE...SKIP
9525 042607 005 11 0 00 060701 ER AC1,[ASCII /AOS/]
9526 042610 312 11 0 00 000010 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER AOS.
9527 042611 001 13 0 00 000006 ERR AC3,RAN1
9528 042612 312 12 0 00 000010 CAME AC2,AC ;C(E) SHOULD=SIM ANS
9529 042613 001 13 0 00 000006 ERR AC3,RAN1
9530 LOOP AOSL2,AOSL3^
9531 042614 367 07 0 00 042574 SOJG AC-1,AOSL2 ;ITERATION COUNTER
9532 042615 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
9533 042616 321 07 0 00 042600 JUMPL AC-1,AOSL3 ;LOOP ON ERROR SWITCH ^
9534
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 74
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0252
9535
9536
9537 ;TEST AOSG, AOSL. CHECK FOR SKIP/NO SKIP,
9538 ;CORRECT DATA IN C(E) AND PROPER STORING
9539 ;OF C(E) INTO AC FOR C(E) = -RAN NUM WITH END 2 BITS CLEARED
9540
9541
9542 000002 AC=2
9543 042617 AOSG1: SETUP 100,0^
9544 000003 AC1=<AC+1>&17
9545 000004 AC2=<AC+2>&17
9546 000005 AC3=<AC+3>&17
9547 000006 AC4=<AC+4>&17
9548 000007 AC5=<AC+5>&17
9549 000000 RAN1=<AC-2>&17
9550 042617 201 01 0 00 042617 MOVEI AC-1,.
9551 042620 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
9552 042621 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
9553 042622 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
9554 042623 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
9555 042624 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
9556 042625 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
9557 042626 AOSG2: RANDOM^
9558 042626 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
9559 042627 270 02 0 00 060657 ADD AC,[142536475076]
9560 042630 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
9561 042631 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
9562 042632 670 02 0 00 060665 AOSG3: TDO AC,[XWD 400000,0];MAKE C(E) BEG.
9563 042633 630 02 0 00 060704 TDZ AC,[3] ;CLEAR 2 END BITS SO AOSL WILL ALWAYS SKIP.
9564 042634 200 05 0 00 000002 MOVE AC3,AC ;SAVE C(E) IN CASE OF ERROR
9565 042635 200 04 0 00 000002 MOVE AC2,AC ;SIMULATE
9566 042636 270 04 0 00 060700 ADD AC2,[2] ;2 AOS'S
9567 042637 200 00 0 00 000003 MOVE RAN1,AC1 ;SAVE C(AC) IN CASE OF ERROR.
9568 042640 357 03 0 00 000002 AOSG AC1,AC ;C(E) IS NEG...SHOULD NOT SKIP
9569 042641 351 03 0 00 000002 AOSL AC1,AC ;C(E) IS NEG...SHOULD SKIP
9570 042642 005 03 0 00 060701 ER AC1,[ASCII /AOS/]
9571 042643 312 03 0 00 000002 CAME AC1,AC ;C(AC) SHOULD = C(E) AFTER AOS
9572 042644 001 05 0 00 000000 ERR AC3,RAN1
9573 042645 312 04 0 00 000002 CAME AC2,AC ;C(E) SHOULD = SIM ANS.
9574 042646 001 05 0 00 000000 ERR AC3,RAN1
9575 LOOP AOSG2,AOSG3^
9576 042647 367 01 0 00 042626 SOJG AC-1,AOSG2 ;ITERATION COUNTER
9577 042650 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
9578 042651 321 01 0 00 042632 JUMPL AC-1,AOSG3 ;LOOP ON ERROR SWITCH ^
9579
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 75
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0253
9580
9581
9582 ;TEST AOSLE, AOSG. CHECK FOR SKIP/NO SKIP,
9583 ;PROPER STORING OF C(E) INTO AC, AND CORRECT
9584 ;DATA IN E FOR C(E) = FLOATING ONE
9585
9586
9587 000003 AC=3
9588 042652 AOSLE1: SETUP 100,0^
9589 000004 AC1=<AC+1>&17
9590 000005 AC2=<AC+2>&17
9591 000006 AC3=<AC+3>&17
9592 000007 AC4=<AC+4>&17
9593 000010 AC5=<AC+5>&17
9594 000001 RAN1=<AC-2>&17
9595 042652 201 02 0 00 042652 MOVEI AC-1,.
9596 042653 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
9597 042654 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
9598 042655 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
9599 042656 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
9600 042657 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
9601 042660 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
9602 042661 201 03 0 00 000001 AOSLE2: MOVEI AC,1 ;SETUP C(E)=FLOATING ONE
9603 042662 316 03 0 00 060705 AOSLE3: CAMN AC,[XWD 200000,0];C(E) = BIT 1 SET?
9604 042663 201 03 0 00 000001 MOVEI AC,1 ;YES. REINITIALIZE C(E).
9605 042664 241 03 0 00 000001 ROT AC,1 ;ROT TO TEST NEXT BIT.
9606 042665 200 01 0 00 000003 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR
9607 042666 200 06 0 00 000004 AOSLE4: MOVE AC3,AC1 ;SAVE C(AC) IN CASE OF ERROR.
9608 042667 200 05 0 00 000003 MOVE AC2,AC ;SIMULATE
9609 042670 270 05 0 00 060700 ADD AC2,[2] ;2 AOS'S
9610 042671 353 04 0 00 000003 AOSLE AC1,AC ;C(E) IS POSITIVE...NO SKIP
9611 042672 357 04 0 00 000003 AOSG AC1,AC ;C(E) IS POSITIVE...SKIP
9612 042673 005 04 0 00 060701 ER AC1,[ASCII /AOS/]
9613 042674 312 04 0 00 000003 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER AOS
9614 042675 001 01 0 00 000006 ERR RAN1,AC3
9615 042676 312 03 0 00 000005 CAME AC,AC2 ;C(E) SHOULD=SIM ANS
9616 042677 001 01 0 00 000006 ERR RAN1,AC3
9617 042700 200 03 0 00 000001 MOVE AC,RAN1 ;RESTORE FLOATING ONE.
9618 042701 367 02 0 00 042662 SOJG AC-1,AOSLE3 ;ITERATION COUNTER.
9619 042702 321 02 0 00 042666 JUMPL AC-1,AOSLE4 ;LOOP ON ERROR SWITCH.
9620
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 76
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0254
9621
9622
9623 ;TEST AOSG, AOSGE. CHECK FOR SKIP/NO SKIP,
9624 ;CORRECT LOADING OF C(E) INTO AC, AND C(E)=
9625 ;CORRECT DATA.
9626 ;RAN TO RAN1
9627
9628
9629 000004 AC=4
9630 042703 AOSGE1: SETUP 100,0^
9631 000005 AC1=<AC+1>&17
9632 000006 AC2=<AC+2>&17
9633 000007 AC3=<AC+3>&17
9634 000010 AC4=<AC+4>&17
9635 000011 AC5=<AC+5>&17
9636 000002 RAN1=<AC-2>&17
9637 042703 201 03 0 00 042703 MOVEI AC-1,.
9638 042704 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
9639 042705 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
9640 042706 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
9641 042707 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
9642 042710 240 03 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
9643 042711 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
9644 042712 200 04 0 00 060702 AOSGE2: MOVE AC,[XWD -1,-2] ;MAKE C(E) = -2.
9645 042713 200 06 0 00 000005 MOVE AC2,AC1 ;SAVE C(AC) IN CASE OF ERROR.
9646 042714 357 05 0 00 000004 AOSG AC1,AC ;C(E)+1=-1...NO SKIP
9647 042715 355 05 0 00 000004 AOSGE AC1,AC ;C(E)+1=0...SKIP
9648 042716 005 05 0 00 060701 ER AC1,[ASCII /AOS/]
9649 042717 312 05 0 00 000004 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER AOS
9650 042720 001 06 0 00 060702 ERR AC2,[XWD -1,-2]
9651 042721 312 04 0 00 060660 CAME AC,[0] ;C(AC) SHOULD=0
9652 042722 001 06 0 00 060702 ERR AC2,[XWD -1,-2]
9653 042723 367 03 0 00 042712 SOJG AC-1,AOSGE2 ;ITERATION COUNTER.
9654 042724 321 03 0 00 042712 JUMPL AC-1,AOSGE2 ;LOOP ON ERROR SWITCH.
9655
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 77
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0255
9656
9657
9658 ;TEST AOJ, AOJA. CHECK FOR JUMP/ NO JUMP AND
9659 ;CORRECT DATA IN AC FOR C(AC)=RAN.
9660
9661
9662 000006 AC=6
9663 042725 AOJ1: SETUP 100,0^
9664 000007 AC1=<AC+1>&17
9665 000010 AC2=<AC+2>&17
9666 000011 AC3=<AC+3>&17
9667 000012 AC4=<AC+4>&17
9668 000013 AC5=<AC+5>&17
9669 000004 RAN1=<AC-2>&17
9670 042725 201 05 0 00 042725 MOVEI AC-1,.
9671 042726 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
9672 042727 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
9673 042730 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
9674 042731 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
9675 042732 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
9676 042733 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
9677 042734 AOJ2: RANDOM^
9678 042734 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
9679 042735 270 06 0 00 060657 ADD AC,[142536475076]
9680 042736 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
9681 042737 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
9682 042740 200 07 0 00 000006 AOJ3: MOVE AC1,AC ;SIMULATE
9683 042741 270 07 0 00 060700 ADD AC1,[2] ;2 AOJ'S
9684 042742 340 06 0 00 042744 AOJ AC,.+2 ;SHOULD NOT SKIP
9685 042743 344 06 0 00 042745 AOJA AC,.+2 ;SHOULD SKIP
9686 042744 005 06 0 00 060706 ER AC,[ASCII /AOJ/]
9687 042745 312 06 0 00 000007 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
9688 042746 013 00 0 00 777777 EERRI ,-1
9689 LOOP AOJ2,AOJ3^
9690 042747 367 05 0 00 042734 SOJG AC-1,AOJ2 ;ITERATION COUNTER
9691 042750 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
9692 042751 321 05 0 00 042740 JUMPL AC-1,AOJ3 ;LOOP ON ERROR SWITCH ^
9693
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 78
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0256
9694
9695
9696 ;TEST AOJE, AOJN. CHECK FOR JUMP/ NO JUMP AND
9697 ;C(AC) FOR CORRECT DATA WITH C(AC) = TO A FLOATING ONE
9698
9699
9700 000007 AC=7
9701 042752 AOJE1: SETUP 100,0^
9702 000010 AC1=<AC+1>&17
9703 000011 AC2=<AC+2>&17
9704 000012 AC3=<AC+3>&17
9705 000013 AC4=<AC+4>&17
9706 000014 AC5=<AC+5>&17
9707 000005 RAN1=<AC-2>&17
9708 042752 201 06 0 00 042752 MOVEI AC-1,.
9709 042753 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
9710 042754 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
9711 042755 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
9712 042756 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
9713 042757 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
9714 042760 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
9715 042761 201 07 0 00 000001 MOVEI AC,1 ;SETUP AC TO CONTAIN A FLOATING ONE
9716 042762 241 07 0 00 000001 AOJE2: ROT AC,1 ;ROT TO TEST NEXT BIT
9717 042763 200 10 0 00 000007 MOVE AC1,AC ;SAVE SO C(AC) CAN BE RESTORED
9718 042764 200 07 0 00 000010 AOJE3: MOVE AC,AC1 ;COME HERE AND RESTORE C(AC) IF ERROR
9719 042765 200 11 0 00 000007 MOVE AC2,AC ;SIMULATE
9720 042766 270 11 0 00 060700 ADD AC2,[2] ;2 AOJ'S
9721 042767 342 07 0 00 042771 AOJE AC,.+2 ;C(AC) NOT=0...NO SKIP
9722 042770 346 07 0 00 042772 AOJN AC,.+2 ;C(AC) NOT=0...SKIP
9723 042771 005 07 0 00 060706 ER AC,[ASCII /AOJ/] ;
9724 042772 312 07 0 00 000011 CAME AC,AC2 ;C(AC) SHOULD=SIM ANS
9725 042773 003 10 0 00 042772 ERRI AC1,.-1
9726 042774 200 07 0 00 000010 MOVE AC,AC1 ;RESTORE C(AC) BEFORE ROTATE
9727 042775 367 06 0 00 042762 SOJG AC-1,AOJE2 ;ITERATION COUNTER.
9728 042776 321 06 0 00 042764 JUMPL AC-1,AOJE3 ;LOOP ON ERROR SWITCH.
9729
9730
9731
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 79
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0257
9732
9733
9734 ;TEST AOJG, AOJE. CHECK FOR JUMP/ NO JUMP AND
9735 ;C(AC) = CORRECT DATA WITH C(AC) = -2.
9736
9737
9738 000006 AC=6
9739 042777 AOJGA: SETUP 100,0^
9740 000007 AC1=<AC+1>&17
9741 000010 AC2=<AC+2>&17
9742 000011 AC3=<AC+3>&17
9743 000012 AC4=<AC+4>&17
9744 000013 AC5=<AC+5>&17
9745 000004 RAN1=<AC-2>&17
9746 042777 201 05 0 00 042777 MOVEI AC-1,.
9747 043000 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
9748 043001 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
9749 043002 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
9750 043003 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
9751 043004 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
9752 043005 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
9753 043006 200 06 0 00 060702 AOJGB: MOVE AC,[XWD -1,-2] ;MAKE C(AC) = -2.
9754 043007 200 04 0 00 000006 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
9755 043010 347 06 0 00 043012 AOJG AC,.+2 ;C(AC) + 1 = -1...NO JUMP.
9756 043011 342 06 0 00 043013 AOJE AC,.+2 ;C(AC) + 1 = 0...JUMP.
9757 043012 005 06 0 00 060706 ER AC,[ASCII /AOJ/]
9758 043013 312 06 0 00 060660 CAME AC,[0] ;C(AC) SHOULD = 0.
9759 043014 003 04 0 00 043013 ERRI RAN1,.-1
9760 043015 367 05 0 00 043006 SOJG AC-1,AOJGB ;ITERATION COUNTER.
9761 043016 321 05 0 00 043006 JUMPL AC-1,AOJGB ;LOOP ON ERROR SWITCH.
9762
9763
9764
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 80
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0258
9765
9766
9767 ;TEST AOJL, AOJG. CHECK FOR JUMP/NO JUMP AND
9768 ;C(AC)=CORRECT DATA FOR C(AC)=RAN
9769
9770
9771 000010 AC=10
9772 043017 AOJL1: SETUP 100,0^
9773 000011 AC1=<AC+1>&17
9774 000012 AC2=<AC+2>&17
9775 000013 AC3=<AC+3>&17
9776 000014 AC4=<AC+4>&17
9777 000015 AC5=<AC+5>&17
9778 000006 RAN1=<AC-2>&17
9779 043017 201 07 0 00 043017 MOVEI AC-1,.
9780 043020 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
9781 043021 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
9782 043022 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
9783 043023 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
9784 043024 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
9785 043025 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
9786 043026 AOJL2: RANDOM^
9787 043026 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
9788 043027 270 10 0 00 060657 ADD AC,[142536475076]
9789 043030 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
9790 043031 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
9791 043032 630 10 0 00 060703 AOJL3: TDZ AC,[XWD 600000,0];MAKE C(AC) SO 2 AOJ'S WON'T CHANGE SIGN.
9792 043033 200 06 0 00 000010 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
9793 043034 200 11 0 00 000010 MOVE AC1,AC ;SIMULATE
9794 043035 270 11 0 00 060700 ADD AC1,[2] ;2 AOJ'S.
9795 043036 341 10 0 00 043040 AOJL AC,.+2 ;C(AC) IS POS...NO JUMP.
9796 043037 347 10 0 00 043041 AOJG AC,.+2 ;C(AC) IS POS...JUMP.
9797 043040 005 10 0 00 060706 ER AC,[ASCII /AOJ/]
9798 043041 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD = SIM. ANS.
9799 043042 003 06 0 00 043040 ERRI RAN1,.-2
9800 LOOP AOJL2,AOJL3^
9801 043043 367 07 0 00 043026 SOJG AC-1,AOJL2 ;ITERATION COUNTER
9802 043044 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
9803 043045 321 07 0 00 043032 JUMPL AC-1,AOJL3 ;LOOP ON ERROR SWITCH ^
9804
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 81
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0259
9805
9806
9807 ;TEST AOJG, AOJL. CHECK FOR JUMP/NO JUMP AND
9808 ;C(AC)=CORRECT DATA FOR C(AC)=-RAN.
9809
9810
9811 000011 AC=11
9812 043046 AOJG1: SETUP 100,0^
9813 000012 AC1=<AC+1>&17
9814 000013 AC2=<AC+2>&17
9815 000014 AC3=<AC+3>&17
9816 000015 AC4=<AC+4>&17
9817 000016 AC5=<AC+5>&17
9818 000007 RAN1=<AC-2>&17
9819 043046 201 10 0 00 043046 MOVEI AC-1,.
9820 043047 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
9821 043050 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
9822 043051 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
9823 043052 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
9824 043053 240 10 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
9825 043054 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
9826 043055 AOJG2: RANDOM^
9827 043055 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
9828 043056 270 11 0 00 060657 ADD AC,[142536475076]
9829 043057 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
9830 043060 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
9831 043061 670 11 0 00 060665 AOJG3: TDO AC,[XWD 400000,0];MAKE C(AC) NEG.
9832 043062 630 11 0 00 060704 TDZ AC,[3] ;CLEAR TWO END BITS SO AOJL WILL ALWAYS SKIP.
9833 043063 200 07 0 00 000011 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
9834 043064 200 12 0 00 000011 MOVE AC1,AC ;SIMULATE
9835 043065 270 12 0 00 060700 ADD AC1,[2] ;2 AOJ'S
9836 043066 347 11 0 00 043070 AOJG AC,.+2 ;C(AC) IS NEG...NO SKIP
9837 043067 341 11 0 00 043071 AOJL AC,.+2 ;C(AC) IS NEG...SKIP
9838 043070 005 11 0 00 060706 ER AC,[ASCII /AOJ/]
9839 043071 312 11 0 00 000012 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
9840 043072 003 07 0 00 043070 ERRI RAN1,.-2
9841 LOOP AOJG2,AOJG3^
9842 043073 367 10 0 00 043055 SOJG AC-1,AOJG2 ;ITERATION COUNTER
9843 043074 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
9844 043075 321 10 0 00 043061 JUMPL AC-1,AOJG3 ;LOOP ON ERROR SWITCH ^
9845
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 82
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0260
9846
9847
9848 ;TEST AOJG, AOJGE. CHECK FOR JUMP/NO JUMP AND
9849 ;CORRECT DATA IN AC FOR C(AC)=-2
9850
9851
9852 000012 AC=12
9853 043076 AOJGE1: SETUP 100,0^
9854 000013 AC1=<AC+1>&17
9855 000014 AC2=<AC+2>&17
9856 000015 AC3=<AC+3>&17
9857 000016 AC4=<AC+4>&17
9858 000017 AC5=<AC+5>&17
9859 000010 RAN1=<AC-2>&17
9860 043076 201 11 0 00 043076 MOVEI AC-1,.
9861 043077 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
9862 043100 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
9863 043101 202 11 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
9864 043102 201 11 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
9865 043103 240 11 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
9866 043104 240 11 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
9867 043105 200 12 0 00 060702 AOJGE2: MOVE AC,[XWD -1,-2] ;MAKE C(AC) = -2.
9868 043106 200 10 0 00 000012 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
9869 043107 347 12 0 00 043111 AOJG AC,.+2 ;C(AC)+1=-1. NO SKIP
9870 043110 345 12 0 00 043112 AOJGE AC,.+2 ;C(AC)+1=0. SKIP
9871 043111 005 12 0 00 060706 ER AC,[ASCII /AOJ/]
9872 043112 312 12 0 00 060660 CAME AC,[0] ;C(AC) SHOULD=0
9873 043113 003 10 0 00 043111 ERRI RAN1,.-2
9874 LOOP AOJGE2,AOJGE2^
9875 043114 367 11 0 00 043105 SOJG AC-1,AOJGE2 ;ITERATION COUNTER
9876 043115 200 12 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
9877 043116 321 11 0 00 043105 JUMPL AC-1,AOJGE2 ;LOOP ON ERROR SWITCH ^
9878
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 83
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0261
9879
9880
9881 ;TEST AOJG, AOJLE. CHECK FOR JUMP/NO JUMP AND
9882 ;CORRECT DATA IN AC FOR C(AC)=-2
9883
9884
9885 000013 AC=13
9886 043117 AOJLE1: SETUP 100,0^
9887 000014 AC1=<AC+1>&17
9888 000015 AC2=<AC+2>&17
9889 000016 AC3=<AC+3>&17
9890 000017 AC4=<AC+4>&17
9891 000000 AC5=<AC+5>&17
9892 000011 RAN1=<AC-2>&17
9893 043117 201 12 0 00 043117 MOVEI AC-1,.
9894 043120 202 12 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
9895 043121 201 12 0 00 000012 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
9896 043122 202 12 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
9897 043123 201 12 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
9898 043124 240 12 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
9899 043125 240 12 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
9900 043126 200 13 0 00 060702 AOJLE2: MOVE AC,[XWD -1,-2] ;MAKE C(AC) = -2.
9901 043127 200 11 0 00 000013 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
9902 043130 347 13 0 00 043132 AOJG AC,.+2 ;C(AC)+1=-1. NO SKIP
9903 043131 343 13 0 00 043133 AOJLE AC,.+2 ;C(AC)+1=0. SKIP
9904 043132 005 13 0 00 060706 ER AC,[ASCII /AOJ/]
9905 043133 312 13 0 00 060660 CAME AC,[0] ;C(AC) SHOULD=0
9906 043134 003 11 0 00 043132 ERRI RAN1,.-2
9907 043135 367 12 0 00 043126 SOJG AC-1,AOJLE2 ;ITERATION COUNTER.
9908 043136 321 12 0 00 043126 JUMPL AC-1,AOJLE2 ;LOOP ON ERROR SWITCH.
9909
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 84
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0262
9910
9911
9912 ;TEST SOS, SOSA. CHECK FOR SKIP/NO SKIP,
9913 ;PROPER STORING OF C(E) INTO AC, AND CORRECT
9914 ;DATA IN E FOR C(E)=RAN
9915
9916
9917 000007 AC=7
9918 043137 SOS1: SETUP 100,0^
9919 000010 AC1=<AC+1>&17
9920 000011 AC2=<AC+2>&17
9921 000012 AC3=<AC+3>&17
9922 000013 AC4=<AC+4>&17
9923 000014 AC5=<AC+5>&17
9924 000005 RAN1=<AC-2>&17
9925 043137 201 06 0 00 043137 MOVEI AC-1,.
9926 043140 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
9927 043141 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
9928 043142 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
9929 043143 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
9930 043144 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
9931 043145 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
9932 043146 SOS2: RANDOM^
9933 043146 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
9934 043147 270 07 0 00 060657 ADD AC,[142536475076]
9935 043150 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
9936 043151 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
9937 043152 200 11 0 00 000010 SOS3: MOVE AC2,AC1 ;SAVE C(AC) IN CASE OF ERROR
9938 043153 200 12 0 00 000007 MOVE AC3,AC ;SIMULATE
9939 043154 274 12 0 00 060700 SUB AC3,[2] ;2 SOS'S
9940 043155 370 10 0 00 000007 SOS AC1,AC ;SHOULD NOT SKIP
9941 043156 374 10 0 00 000007 SOSA AC1,AC ;SHOULD SKIP
9942 043157 005 10 0 00 060707 ER AC1,[ASCII /SOS/]
9943 043160 312 10 0 00 000007 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER SOS
9944 043161 011 00 0 00 000011 EERR ,AC2
9945 043162 312 12 0 00 000007 CAME AC3,AC ;C(E) SHOULD=SIM ANS
9946 043163 011 00 0 00 000011 EERR ,AC2
9947 LOOP SOS2,SOS3^
9948 043164 367 06 0 00 043146 SOJG AC-1,SOS2 ;ITERATION COUNTER
9949 043165 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
9950 043166 321 06 0 00 043152 JUMPL AC-1,SOS3 ;LOOP ON ERROR SWITCH ^
9951
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 85
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0263
9952
9953
9954 ;TEST SOSE, SOSN. CHECK FOR SKIP/NO SKIP,
9955 ;PROPER STORING C(E) INTO AC, AND CORRECT
9956 ;DATA IN E FOR C(E) = (3,7,17,37,+ETC.).
9957
9958
9959 000010 AC=10
9960 043167 SOSE1: SETUP 100,0^
9961 000011 AC1=<AC+1>&17
9962 000012 AC2=<AC+2>&17
9963 000013 AC3=<AC+3>&17
9964 000014 AC4=<AC+4>&17
9965 000015 AC5=<AC+5>&17
9966 000006 RAN1=<AC-2>&17
9967 043167 201 07 0 00 043167 MOVEI AC-1,.
9968 043170 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
9969 043171 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
9970 043172 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
9971 043173 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
9972 043174 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
9973 043175 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
9974 043176 201 10 0 00 000001 SOSE2: MOVEI AC,1 ;SETUP E TO
9975 043177 241 10 0 00 000001 SOSE3: ROT AC,1 ;CONTAIN
9976 043200 434 10 0 00 060666 IOR AC,[1] ;3,7,17,37,+ETC.
9977 043201 200 10 0 00 000006 SOSE4: MOVE AC,RAN1 ;RESTORE C(E) IN CASE OF ERROR.
9978 043202 200 12 0 00 000011 MOVE AC2,AC1 ;SAVE C(AC) IN CASE OF ERROR
9979 043203 200 13 0 00 000010 MOVE AC3,AC ;SIMULATE
9980 043204 274 13 0 00 060700 SUB AC3,[2] ;2 SOS'S
9981 043205 372 11 0 00 000010 SOSE AC1,AC ;SHOULD NOT SKIP
9982 043206 376 11 0 00 000010 SOSN AC1,AC ;SHOULD SKIP
9983 043207 005 11 0 00 060707 ER AC1,[ASCII /SOS/]
9984 043210 312 11 0 00 000010 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER SOS
9985 043211 011 00 0 00 000012 EERR ,AC2
9986 043212 312 13 0 00 000010 CAME AC3,AC ;C(E) SHOULD=SIM ANS
9987 043213 011 00 0 00 000012 EERR ,AC2
9988 043214 316 06 0 00 060662 CAMN RAN1,[-1] ;C(RAN1) = -1?
9989 043215 254 00 0 00 043176 JRST SOSE2 ;YES. REINITIALIZE E.
9990 043216 367 07 0 00 043177 SOJG AC-1,SOSE3 ;ITERATION COUNTER.
9991 043217 321 07 0 00 043201 JUMPL AC-1,SOSE4 ;LOOP ON ERROR SWITCH
9992
9993
9994
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 86
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0264
9995
9996
9997 ;TEST SOSL, SOSE. CHECK FOR SKIP/ NO SKIP,
9998 ;PROPER STORING C(E) INTO AC, AND CORRECT
9999 ;DATA IN E FOR C(E) = 2.
10000
10001
10002 000007 AC=7
10003 043220 SOSLA: SETUP 100,0^
10004 000010 AC1=<AC+1>&17
10005 000011 AC2=<AC+2>&17
10006 000012 AC3=<AC+3>&17
10007 000013 AC4=<AC+4>&17
10008 000014 AC5=<AC+5>&17
10009 000005 RAN1=<AC-2>&17
10010 043220 201 06 0 00 043220 MOVEI AC-1,.
10011 043221 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
10012 043222 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
10013 043223 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
10014 043224 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
10015 043225 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
10016 043226 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
10017 043227 SOSLB: RANDOM^
10018 043227 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
10019 043230 270 07 0 00 060657 ADD AC,[142536475076]
10020 043231 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
10021 043232 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
10022 043233 200 10 0 00 060700 SOSLC: MOVE AC1,[2] ;MAKE C(E) = 2.
10023 043234 200 05 0 00 000010 MOVE RAN1,AC1 ;SAVE C(E) IN CASE OF ERROR.
10024 043235 371 07 0 00 000010 SOSL AC,AC1 ;C(E) -1 = 1...NO SKIP.
10025 043236 372 07 0 00 000010 SOSE AC,AC1 ;C(E) -1 = 0...SKIP.
10026 043237 005 10 0 00 060707 ER AC1,[ASCII /SOS/]
10027 043240 312 07 0 00 000010 CAME AC,AC1 ;C(AC) SHOULD = C(E).
10028 043241 001 05 0 00 061125 ERR RAN1,RAN
10029 043242 312 10 0 00 060660 CAME AC1,[0] ;C(E) SHOULD = 0.
10030 043243 001 05 0 00 061125 ERR RAN1,RAN
10031 LOOP SOSLB, SOSLC^
10032 043244 367 06 0 00 043227 SOJG AC-1,SOSLB ;ITERATION COUNTER
10033 043245 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
10034 043246 321 06 0 00 043233 JUMPL AC-1,SOSLC ;LOOP ON ERROR SWITCH ^
10035
10036
10037
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 87
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0265
10038
10039
10040 ;TEST SOSE,SOSL. CHECK FOR SKIP/NO SKIP,
10041 ;PROPER STORING C(E) INTO AC, AND
10042 ;CORRECT DATA IN E FOR C(E)=2
10043
10044
10045 000011 AC=11
10046 043247 SOSL1: SETUP 100,0^
10047 000012 AC1=<AC+1>&17
10048 000013 AC2=<AC+2>&17
10049 000014 AC3=<AC+3>&17
10050 000015 AC4=<AC+4>&17
10051 000016 AC5=<AC+5>&17
10052 000007 RAN1=<AC-2>&17
10053 043247 201 10 0 00 043247 MOVEI AC-1,.
10054 043250 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
10055 043251 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
10056 043252 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
10057 043253 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
10058 043254 240 10 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
10059 043255 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
10060 043256 201 11 0 00 000002 SOSL2: MOVEI AC,2 ;SETUP C(E) TO = 2.
10061 043257 200 07 0 00 000011 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR.
10062 043260 200 13 0 00 000012 MOVE AC2,AC1 ;SAVE C(AC) IN CASE OF ERROR.
10063 043261 371 12 0 00 000011 SOSL AC1,AC ;C(E)=1...NO SKIP.
10064 043262 372 12 0 00 000011 SOSE AC1,AC ;C(E)=0...SHOULD SKIP
10065 043263 005 12 0 00 060707 ER AC1,[ASCII /SOS/]
10066 043264 312 12 0 00 000011 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER SOS
10067 043265 001 07 0 00 000013 ERR RAN1,AC2
10068 043266 312 11 0 00 060660 CAME AC,[0] ;C(E) SHOULD NOW=0
10069 043267 001 07 0 00 000013 ERR RAN1,AC2
10070 043270 367 10 0 00 043256 SOJG AC-1,SOSL2 ;ITERATION COUNTER.
10071 043271 321 10 0 00 043256 JUMPL AC-1,SOSL2 ;LOOP ON ERROR SWITCH.
10072
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 88
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0266
10073
10074
10075 ;TEST SOSG, SOSL. CHECK FOR SKIP/ NO SKIP,
10076 ;PROPER STORING OF C(E) INTO AC, AND CORRECT
10077 ;DATA IN E FOR C(E)=+RAN.
10078
10079
10080 000012 AC=12
10081 043272 SOSG1: SETUP 100,0^
10082 000013 AC1=<AC+1>&17
10083 000014 AC2=<AC+2>&17
10084 000015 AC3=<AC+3>&17
10085 000016 AC4=<AC+4>&17
10086 000017 AC5=<AC+5>&17
10087 000010 RAN1=<AC-2>&17
10088 043272 201 11 0 00 043272 MOVEI AC-1,.
10089 043273 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
10090 043274 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
10091 043275 202 11 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
10092 043276 201 11 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
10093 043277 240 11 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
10094 043300 240 11 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
10095 043301 SOSG2: RANDOM^
10096 043301 200 12 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
10097 043302 270 12 0 00 060657 ADD AC,[142536475076]
10098 043303 241 12 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
10099 043304 447 12 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
10100 043305 630 12 0 00 060665 SOSG3: TDZ AC,[XWD 400000,0];MAKE C(E) POSITIVE.
10101 043306 435 12 0 00 000003 IORI AC,3 ;MAKE SURE C(E)=3.
10102 043307 200 10 0 00 000012 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR.
10103 043310 200 14 0 00 000013 MOVE AC2,AC1 ;SAVE C(AC) IN CASE OF ERROR.
10104 043311 200 15 0 00 000012 MOVE AC3,AC ;SIMULATE
10105 043312 274 15 0 00 060700 SUB AC3,[2] ;2 SOS'S
10106 043313 371 13 0 00 000012 SOSL AC1,AC ;C(E) IS POSITIVE. SHOULD NOT SKIP
10107 043314 377 13 0 00 000012 SOSG AC1,AC ;C(E) IS POSITIVE. SHOULD SKIP
10108 043315 005 13 0 00 060707 ER AC1,[ASCII /SOS/]
10109 043316 312 13 0 00 000012 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER SOS
10110 043317 001 10 0 00 000014 ERR RAN1,AC2
10111 043320 312 12 0 00 000015 CAME AC,AC3 ;C(E) SHOULD=SIM ANS
10112 043321 001 10 0 00 000014 ERR RAN1,AC2
10113 LOOP SOSG2,SOSG3^
10114 043322 367 11 0 00 043301 SOJG AC-1,SOSG2 ;ITERATION COUNTER
10115 043323 200 12 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
10116 043324 321 11 0 00 043305 JUMPL AC-1,SOSG3 ;LOOP ON ERROR SWITCH ^
10117
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 89
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0267
10118
10119
10120 ;TEST SOSG, SOSL. CHECK FOR SKIP/ NO SKIP,
10121 ;PROPER STORING C(E) INTO AC, AND CORRECT
10122 ;DATA IN E FOR C(E)=-RAN
10123
10124
10125 000013 AC=13
10126 043325 SOSL1A: SETUP 100,0^
10127 000014 AC1=<AC+1>&17
10128 000015 AC2=<AC+2>&17
10129 000016 AC3=<AC+3>&17
10130 000017 AC4=<AC+4>&17
10131 000000 AC5=<AC+5>&17
10132 000011 RAN1=<AC-2>&17
10133 043325 201 12 0 00 043325 MOVEI AC-1,.
10134 043326 202 12 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
10135 043327 201 12 0 00 000012 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
10136 043330 202 12 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
10137 043331 201 12 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
10138 043332 240 12 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
10139 043333 240 12 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
10140 043334 SOSL2A: RANDOM^
10141 043334 200 13 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
10142 043335 270 13 0 00 060657 ADD AC,[142536475076]
10143 043336 241 13 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
10144 043337 447 13 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
10145 043340 670 13 0 00 060665 SOSL3A: TDO AC,[XWD 400000,0];MAKE C(E) NEG.
10146 043341 200 11 0 00 000013 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR
10147 043342 200 15 0 00 000014 MOVE AC2,AC1 ;SAVE C(AC) IN CASE OF ERROR
10148 043343 200 16 0 00 000013 MOVE AC3,AC ;SIMULATE
10149 043344 274 16 0 00 060700 SUB AC3,[2] ;2 SOS'S
10150 043345 377 14 0 00 000013 SOSG AC1,AC ;C(E) IS NEG. NO SKIP
10151 043346 371 14 0 00 000013 SOSL AC1,AC ;C(E) IS NEG. SKIP
10152 043347 005 14 0 00 060707 ER AC1,[ASCII /SOS/]
10153 043350 312 14 0 00 000013 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER SOS
10154 043351 001 11 0 00 000015 ERR RAN1,AC2
10155 043352 312 13 0 00 000016 CAME AC,AC3 ;C(E) SHOULD=SIM ANS
10156 043353 001 11 0 00 000015 ERR RAN1,AC2
10157 LOOP SOSL2A, SOSL3A^
10158 043354 367 12 0 00 043334 SOJG AC-1,SOSL2A ;ITERATION COUNTER
10159 043355 200 13 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
10160 043356 321 12 0 00 043340 JUMPL AC-1,SOSL3A ;LOOP ON ERROR SWITCH ^
10161
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 90
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0268
10162
10163
10164 ;TEST SOSL, SOSLE. CHECK FOR SKIP/NO SKIP,
10165 ;PROPER STORING OF C(E) INTO AC, AND CORRECT
10166 ;DATA IN E FOR C(E)=2
10167
10168
10169 000014 AC=14
10170 043357 SOSLE1: SETUP 100,0^
10171 000015 AC1=<AC+1>&17
10172 000016 AC2=<AC+2>&17
10173 000017 AC3=<AC+3>&17
10174 000000 AC4=<AC+4>&17
10175 000001 AC5=<AC+5>&17
10176 000012 RAN1=<AC-2>&17
10177 043357 201 13 0 00 043357 MOVEI AC-1,.
10178 043360 202 13 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
10179 043361 201 13 0 00 000013 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
10180 043362 202 13 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
10181 043363 201 13 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
10182 043364 240 13 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
10183 043365 240 13 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
10184 043366 201 14 0 00 000002 SOSLE2: MOVEI AC,2 ;MAKE C(E)=2
10185 043367 200 12 0 00 000014 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR
10186 043370 200 16 0 00 000015 MOVE AC2,AC1 ;SAVE C(AC) IN CASE OF ERROR
10187 043371 371 15 0 00 000014 SOSL AC1,AC ;C(E)-1=1...NO SKIP
10188 043372 373 15 0 00 000014 SOSLE AC1,AC ;C(E)-1=0...SKIP
10189 043373 005 15 0 00 060707 ER AC1,[ASCII /SOS/]
10190 043374 312 15 0 00 000014 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER SOS
10191 043375 001 12 0 00 000016 ERR RAN1,AC2
10192 043376 312 14 0 00 060660 CAME AC,[0] ;C(AC) SHOULD = 0
10193 043377 001 12 0 00 000016 ERR RAN1,AC2
10194 043400 367 13 0 00 043366 SOJG AC-1,SOSLE2 ;ITERATION COUNTER.
10195 043401 321 13 0 00 043366 JUMPL AC-1,SOSLE2 ;LOOP ON ERROR SWITCH.
10196
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 91
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0269
10197
10198
10199 ;TEST SOSLE, SOSGE. CHECK FOR SKIP/NO SKIP,
10200 ;PROPER STORING OF C(E) INTO AC, AND CORRECT
10201 ;DATA IN E FOR C(E)=2
10202
10203
10204 000005 AC=5
10205 043402 SOSGE1: SETUP 100,0^
10206 000006 AC1=<AC+1>&17
10207 000007 AC2=<AC+2>&17
10208 000010 AC3=<AC+3>&17
10209 000011 AC4=<AC+4>&17
10210 000012 AC5=<AC+5>&17
10211 000003 RAN1=<AC-2>&17
10212 043402 201 04 0 00 043402 MOVEI AC-1,.
10213 043403 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
10214 043404 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
10215 043405 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
10216 043406 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
10217 043407 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
10218 043410 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
10219 043411 201 05 0 00 000002 SOSGE2: MOVEI AC,2 ;MAKE C(E)=2
10220 043412 200 03 0 00 000005 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR
10221 043413 200 07 0 00 000006 MOVE AC2,AC1 ;SAVE C(AC) IN CASE OF ERROR
10222 043414 373 06 0 00 000005 SOSLE AC1,AC ;C(E)-1=1...NO SKIP
10223 043415 375 06 0 00 000005 SOSGE AC1,AC ;C(E)-1=0...SKIP
10224 043416 005 06 0 00 060707 ER AC1,[ASCII /SOS/]
10225 043417 312 06 0 00 000005 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER SOS
10226 043420 001 03 0 00 000007 ERR RAN1,AC2
10227 043421 312 05 0 00 060660 CAME AC,[0] ;C(E) SHOULD=0
10228 043422 001 03 0 00 000007 ERR RAN1,AC2
10229 043423 367 04 0 00 043411 SOJG AC-1,SOSGE2 ;ITERATION COUNTER.
10230 043424 321 04 0 00 043411 JUMPL AC-1,SOSGE2 ;LOOP ON ERROR SWITCH.
10231
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 92
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0270
10232
10233
10234 ;TEST SOJ, SOJA. CHECK JUMP/NO JUMP AND
10235 ;CORRECT DATA IIN AC FOR C(AC)=RAN.
10236
10237
10238 000002 AC=2
10239 043425 SOJ1: SETUP 100,0^
10240 000003 AC1=<AC+1>&17
10241 000004 AC2=<AC+2>&17
10242 000005 AC3=<AC+3>&17
10243 000006 AC4=<AC+4>&17
10244 000007 AC5=<AC+5>&17
10245 000000 RAN1=<AC-2>&17
10246 043425 201 01 0 00 043425 MOVEI AC-1,.
10247 043426 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
10248 043427 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
10249 043430 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
10250 043431 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
10251 043432 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
10252 043433 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
10253 043434 SOJ2: RANDOM^
10254 043434 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
10255 043435 270 02 0 00 060657 ADD AC,[142536475076]
10256 043436 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
10257 043437 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
10258 043440 200 03 0 00 000002 SOJ3: MOVE AC1,AC ;SIMULATE
10259 043441 274 03 0 00 060700 SUB AC1,[2] ;2 SOJ'S
10260 043442 360 02 0 00 043444 SOJ AC,.+2 ;SHOULD NOT JUMP
10261 043443 364 02 0 00 043445 SOJA AC,.+2 ;SHOULD JUMP
10262 043444 005 02 0 00 060710 ER AC,[ASCII /SOJ/]
10263 043445 312 02 0 00 000003 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
10264 043446 013 00 0 00 043444 EERRI ,.-2
10265 LOOP SOJ2,SOJ3^
10266 043447 367 01 0 00 043434 SOJG AC-1,SOJ2 ;ITERATION COUNTER
10267 043450 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
10268 043451 321 01 0 00 043440 JUMPL AC-1,SOJ3 ;LOOP ON ERROR SWITCH ^
10269
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 93
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0271
10270
10271
10272 ;TEST SOJE,SOJN. CHECK JUMP/NO JUMP AND
10273 ;CORRECT DATA IN AC FOR C(AC)=MAGIC NUMBERS (7,17,37,ETC.)
10274
10275
10276 000003 AC=3
10277 043452 SOJE1: SETUP 100,0^
10278 000004 AC1=<AC+1>&17
10279 000005 AC2=<AC+2>&17
10280 000006 AC3=<AC+3>&17
10281 000007 AC4=<AC+4>&17
10282 000010 AC5=<AC+5>&17
10283 000001 RAN1=<AC-2>&17
10284 043452 201 02 0 00 043452 MOVEI AC-1,.
10285 043453 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
10286 043454 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
10287 043455 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
10288 043456 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
10289 043457 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
10290 043460 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
10291 043461 201 03 0 00 000002 SOJE2: MOVEI AC,2 ;SETUP AC
10292 043462 241 03 0 00 000001 SOJE3: ROT AC,1 ;TO CONTAIN
10293 043463 435 03 0 00 000003 IORI AC,3 ;7,17,37,+ETC
10294 043464 200 01 0 00 000003 MOVE RAN1,AC ;SAVE FOR FUTURE COMPARE.
10295 043465 200 03 0 00 000001 SOJE4: MOVE AC,RAN1 ;COME HERE AND RESTORE IF THERE IS AN ERROR.
10296 043466 200 04 0 00 000001 MOVE AC1,RAN1 ;SIMULATE
10297 043467 274 04 0 00 060700 SUB AC1,[2] ;2 SOJ'S
10298 043470 362 03 0 00 043472 SOJE AC,.+2 ;SHOULD NOT SKIP
10299 043471 366 03 0 00 043473 SOJN AC,.+2 ;SHOULD SKIP.
10300 043472 005 03 0 00 060710 ER AC,[ASCII /SOJ/]
10301 043473 312 03 0 00 000004 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
10302 043474 003 01 0 00 043472 ERRI RAN1,.-2
10303 043475 316 01 0 00 060662 CAMN RAN1,[-1] ;C(RAN1) = -1?
10304 043476 254 00 0 00 043461 JRST SOJE2 ;YES, REINITIALIZE C(AC)
10305 043477 367 02 0 00 043462 SOJG AC-1,SOJE3 ;ITERATION COUNTER.
10306 043500 321 02 0 00 043465 JUMPL AC-1,SOJE4 ;LOOP ON ERROR SWITCH.
10307
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 94
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0272
10308
10309
10310 ;TEST SOJE, SOJL. CHECK FOR JUMP/ NO JUMP AND
10311 ;CORRECT DATA IN AC FOR ORIG. C(AC)=2
10312
10313
10314 000004 AC=4
10315 043501 SOJL1: SETUP 100,0^
10316 000005 AC1=<AC+1>&17
10317 000006 AC2=<AC+2>&17
10318 000007 AC3=<AC+3>&17
10319 000010 AC4=<AC+4>&17
10320 000011 AC5=<AC+5>&17
10321 000002 RAN1=<AC-2>&17
10322 043501 201 03 0 00 043501 MOVEI AC-1,.
10323 043502 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
10324 043503 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
10325 043504 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
10326 043505 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
10327 043506 240 03 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
10328 043507 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
10329 043510 201 04 0 00 000002 SOJL2: MOVEI AC,2 ;SETUP C(AC) TO = 2.
10330 043511 200 02 0 00 000004 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
10331 043512 361 04 0 00 043514 SOJL AC,.+2 ;C(AC) = 1...NO JUMP.
10332 043513 362 04 0 00 043515 SOJE AC,.+2 ;C(AC)=0...SHOULD SKIP
10333 043514 005 04 0 00 060710 ER AC,[ASCII /SOJ/]
10334 043515 312 04 0 00 060660 CAME AC,[0] ;C(AC) SHOULD=0
10335 043516 003 02 0 00 043514 ERRI RAN1,.-2
10336 043517 367 03 0 00 043510 SOJG AC-1,SOJL2 ;ITERATION COUNTER.
10337 043520 321 03 0 00 043510 JUMPL AC-1,SOJL2 ;LOOP ON ERROR SWITCH.
10338
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 95
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0273
10339
10340
10341 ;TEST SOJG, SOJL. CHECK FOR JUMP/ NO JUMP AND
10342 ;CORRECT DATA IN AC FOR C(AC)=+RAN
10343
10344
10345 000005 AC=5
10346 043521 SOJG1: SETUP 100,0^
10347 000006 AC1=<AC+1>&17
10348 000007 AC2=<AC+2>&17
10349 000010 AC3=<AC+3>&17
10350 000011 AC4=<AC+4>&17
10351 000012 AC5=<AC+5>&17
10352 000003 RAN1=<AC-2>&17
10353 043521 201 04 0 00 043521 MOVEI AC-1,.
10354 043522 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
10355 043523 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
10356 043524 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
10357 043525 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
10358 043526 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
10359 043527 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
10360 043530 SOJG2: RANDOM^
10361 043530 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
10362 043531 270 05 0 00 060657 ADD AC,[142536475076]
10363 043532 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
10364 043533 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
10365 043534 630 05 0 00 060665 SOJG3: TDZ AC,[XWD 400000,0];MAKE C(AC) POSITIVE.
10366 043535 434 05 0 00 060704 IOR AC,[3] ;MAKE SURE SOJ'S SKIP..SET LAST TWO BITS.
10367 043536 200 06 0 00 000005 MOVE AC1,AC ;SAVE C(AC) IN CASE OF ERROR
10368 043537 200 07 0 00 000005 MOVE AC2,AC ;SIMULATE
10369 043540 274 07 0 00 060700 SUB AC2,[2] ;2 SOJ'S
10370 043541 361 05 0 00 043543 SOJL AC,.+2 ;C(AC) IS POSITIVE...SHOULD NOT SKIP
10371 043542 367 05 0 00 043544 SOJG AC,.+2 ;C(AC) IS POSITIVE...SHOULD SKIP
10372 043543 005 05 0 00 060710 ER AC,[ASCII /SOJ/]
10373 043544 312 05 0 00 000007 CAME AC,AC2 ;C(AC) SHOULD=SIM ANS
10374 043545 003 06 0 00 043543 ERRI AC1,.-2
10375 LOOP SOJG2,SOJG3^
10376 043546 367 04 0 00 043530 SOJG AC-1,SOJG2 ;ITERATION COUNTER
10377 043547 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
10378 043550 321 04 0 00 043534 JUMPL AC-1,SOJG3 ;LOOP ON ERROR SWITCH ^
10379
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 96
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0274
10380
10381
10382 ;TEST SOJG, SOJL. CHECK FOR JUMP/ NO JUMP AND
10383 ;CORRECT DATA IN AC FOR C(AC)=-RAN
10384
10385
10386 000006 AC=6
10387 043551 SOJL1A: SETUP 100,0^
10388 000007 AC1=<AC+1>&17
10389 000010 AC2=<AC+2>&17
10390 000011 AC3=<AC+3>&17
10391 000012 AC4=<AC+4>&17
10392 000013 AC5=<AC+5>&17
10393 000004 RAN1=<AC-2>&17
10394 043551 201 05 0 00 043551 MOVEI AC-1,.
10395 043552 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
10396 043553 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
10397 043554 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
10398 043555 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
10399 043556 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
10400 043557 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
10401 043560 SOJL2A: RANDOM^
10402 043560 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
10403 043561 270 06 0 00 060657 ADD AC,[142536475076]
10404 043562 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
10405 043563 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
10406 043564 670 06 0 00 060665 SOJL3A: TDO AC,[XWD 400000,0];MAKE C(AC) NEG.
10407 043565 200 07 0 00 000006 MOVE AC1,AC ;SAVE C(AC) IN CASE OF ERROR
10408 043566 200 10 0 00 000006 MOVE AC2,AC ;SIMULATE
10409 043567 274 10 0 00 060700 SUB AC2,[2] ;2 SOJ'S
10410 043570 367 06 0 00 043572 SOJG AC,.+2 ;C(AC) IS NEG. SHOULD NOT SKIP
10411 043571 361 06 0 00 043573 SOJL AC,.+2 ;C(AC) IS NEG. SHOULD SKIP
10412 043572 005 06 0 00 060710 ER AC,[ASCII /SOJ/]
10413 043573 312 06 0 00 000010 CAME AC,AC2 ;C(AC) SHOULD=SIM ANS
10414 043574 003 07 0 00 043572 ERRI AC1,.-2
10415 LOOP SOJL2A, SOJL3A^
10416 043575 367 05 0 00 043560 SOJG AC-1,SOJL2A ;ITERATION COUNTER
10417 043576 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
10418 043577 321 05 0 00 043564 JUMPL AC-1,SOJL3A ;LOOP ON ERROR SWITCH ^
10419
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 97
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0275
10420
10421
10422 ;TEST SOJL, SOJLE. CHECK FOR JUMP/NO JUMP AND
10423 ;CORRECT DATA IN AC FOR C(AC)=2.
10424
10425
10426 000015 AC=15
10427 043600 SOJLE1: SETUP 100,0^
10428 000016 AC1=<AC+1>&17
10429 000017 AC2=<AC+2>&17
10430 000000 AC3=<AC+3>&17
10431 000001 AC4=<AC+4>&17
10432 000002 AC5=<AC+5>&17
10433 000013 RAN1=<AC-2>&17
10434 043600 201 14 0 00 043600 MOVEI AC-1,.
10435 043601 202 14 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
10436 043602 201 14 0 00 000014 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
10437 043603 202 14 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
10438 043604 201 14 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
10439 043605 240 14 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
10440 043606 240 14 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
10441 043607 201 15 0 00 000002 SOJLE2: MOVEI AC,2 ;MAKE C(AC)=2
10442 043610 200 13 0 00 000015 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
10443 043611 361 15 0 00 043613 SOJL AC,.+2 ;C(AC)-1=1...NO SKIP
10444 043612 363 15 0 00 043614 SOJLE AC,.+2 ;C(AC)-1=0...SKIP
10445 043613 005 15 0 00 060710 ER AC,[ASCII /SOJ/]
10446 043614 312 15 0 00 060660 CAME AC,[0] ;C(AC) SHOULD=0
10447 043615 003 13 0 00 043613 ERRI RAN1,.-2
10448 043616 367 14 0 00 043607 SOJG AC-1,SOJLE2 ;ITERATION COUNTER.
10449 043617 321 14 0 00 043607 JUMPL AC-1,SOJLE2 ;LOOP ON ERROR SWITCH.
10450
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 98
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0276
10451
10452
10453 ;TEST SOJLE, SOJGE. CHECK FOR JUMP/NO JUMP AND
10454 ;CORRECT DATA IN AC FOR C(AC)=2
10455
10456
10457 000006 AC=6
10458 043620 SOJGE1: SETUP 100,0^
10459 000007 AC1=<AC+1>&17
10460 000010 AC2=<AC+2>&17
10461 000011 AC3=<AC+3>&17
10462 000012 AC4=<AC+4>&17
10463 000013 AC5=<AC+5>&17
10464 000004 RAN1=<AC-2>&17
10465 043620 201 05 0 00 043620 MOVEI AC-1,.
10466 043621 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
10467 043622 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
10468 043623 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
10469 043624 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
10470 043625 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
10471 043626 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
10472 043627 201 06 0 00 000002 SOJGE2: MOVEI AC,2 ;MAKE C(AC)=2
10473 043630 200 04 0 00 000006 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
10474 043631 363 06 0 00 043633 SOJLE AC,.+2 ;C(AC)-1=1...NO SKIP
10475 043632 365 06 0 00 043634 SOJGE AC,.+2 ;C(AC)-1=0...SKIP
10476 043633 005 06 0 00 060710 ER AC,[ASCII /SOJ/]
10477 043634 312 06 0 00 060660 CAME AC,[0] ;C(AC) SHOULD=0
10478 043635 003 04 0 00 043633 ERRI RAN1,.-2
10479 043636 367 05 0 00 043627 SOJG AC-1,SOJGE2 ;ITERATION COUNTER.
10480 043637 321 05 0 00 043627 JUMPL AC-1,SOJGE2 ;LOOP ON ERROR SWITCH.
10481
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 99
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0277
10482
10483
10484 ;TEST AOS, SOSA. CHECK FOR SKIP/NO SKIP,
10485 ;CORRECT LOADING OF C(E) INTO AC, AND C(E)
10486 ;=ORIG. C(E) FOR C(E)=RAN
10487
10488
10489 000005 AC=5
10490 043640 ASSS1: SETUP 100,0^
10491 000006 AC1=<AC+1>&17
10492 000007 AC2=<AC+2>&17
10493 000010 AC3=<AC+3>&17
10494 000011 AC4=<AC+4>&17
10495 000012 AC5=<AC+5>&17
10496 000003 RAN1=<AC-2>&17
10497 043640 201 04 0 00 043640 MOVEI AC-1,.
10498 043641 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
10499 043642 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
10500 043643 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
10501 043644 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
10502 043645 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
10503 043646 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
10504 043647 ASSS2: RANDOM^
10505 043647 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
10506 043650 270 05 0 00 060657 ADD AC,[142536475076]
10507 043651 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
10508 043652 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
10509 043653 200 03 0 00 000006 ASSS3: MOVE RAN1,AC1 ;SAVE C(AC) IN CASE OF ERROR.
10510 043654 350 06 0 00 000005 AOS AC1,AC ;SHOULD NOT SKIP
10511 043655 374 06 0 00 000005 SOSA AC1,AC ;SHOULD SKIP
10512 043656 005 06 0 00 060701 ER AC1,[ASCII /AOS/]
10513 043657 312 06 0 00 000005 CAME AC1,AC ;C(AC) SHOULD=C(E)
10514 043660 011 00 0 00 000003 EERR ,RAN1
10515 043661 312 05 0 00 061125 CAME AC,RAN ;C(E) SHOULD=ORIG. C(E)
10516 043662 011 00 0 00 000003 EERR ,RAN1
10517 LOOP ASSS2,ASSS3^
10518 043663 367 04 0 00 043647 SOJG AC-1,ASSS2 ;ITERATION COUNTER
10519 043664 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
10520 043665 321 04 0 00 043653 JUMPL AC-1,ASSS3 ;LOOP ON ERROR SWITCH ^
10521
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 100
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0278
10522
10523
10524 ;TEST AOJ, SOJA. CHECK FOR JUMP/NO JUMP AND
10525 ;C(AC)=ORIG C(AC) FOR C(AC) = RAN
10526
10527
10528 000006 AC=6
10529 043666 AJSJ1: SETUP 100,0^
10530 000007 AC1=<AC+1>&17
10531 000010 AC2=<AC+2>&17
10532 000011 AC3=<AC+3>&17
10533 000012 AC4=<AC+4>&17
10534 000013 AC5=<AC+5>&17
10535 000004 RAN1=<AC-2>&17
10536 043666 201 05 0 00 043666 MOVEI AC-1,.
10537 043667 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
10538 043670 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
10539 043671 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
10540 043672 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
10541 043673 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
10542 043674 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
10543 043675 AJSJ2: RANDOM^
10544 043675 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
10545 043676 270 06 0 00 060657 ADD AC,[142536475076]
10546 043677 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
10547 043700 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
10548 043701 340 06 0 00 043703 AJSJ3: AOJ AC,.+2 ;SHOULD NOT SKIP
10549 043702 364 06 0 00 043704 SOJA AC,.+2 ;SHOULD SKIP
10550 043703 005 06 0 00 060706 ER AC,[ASCII /AOJ/]
10551 043704 312 06 0 00 061125 CAME AC,RAN ;C(AC) SHOULD=ORIG C(AC)
10552 043705 013 00 0 00 043703 EERRI ,.-2
10553 LOOP AJSJ2,AJSJ3^
10554 043706 367 05 0 00 043675 SOJG AC-1,AJSJ2 ;ITERATION COUNTER
10555 043707 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
10556 043710 321 05 0 00 043701 JUMPL AC-1,AJSJ3 ;LOOP ON ERROR SWITCH ^
10557
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 101
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0279
10558
10559
10560 ;TEST CAM, CAMA. CHECK FOR SKIP/NO SKIP AND
10561 ;C(AC) + C(E) NOT CHANGING WITH A FLOATING ONE
10562 ;IN C(E)
10563
10564
10565 000010 AC=10
10566 043711 CAM10: SETUP 100,0^
10567 000011 AC1=<AC+1>&17
10568 000012 AC2=<AC+2>&17
10569 000013 AC3=<AC+3>&17
10570 000014 AC4=<AC+4>&17
10571 000015 AC5=<AC+5>&17
10572 000006 RAN1=<AC-2>&17
10573 043711 201 07 0 00 043711 MOVEI AC-1,.
10574 043712 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
10575 043713 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
10576 043714 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
10577 043715 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
10578 043716 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
10579 043717 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
10580 043720 201 11 0 00 000001 MOVEI AC1,1 ;SETUP C(E) TO=A FLOATING ONE
10581 043721 CAM11: RANDOM^
10582 043721 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
10583 043722 270 10 0 00 060657 ADD AC,[142536475076]
10584 043723 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
10585 043724 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
10586 043725 241 11 0 00 000001 ROT AC1,1 ;ROT TO TEST NEXT BIT.
10587 043726 200 12 0 00 000011 MOVE AC2,AC1 ;SAVE FOR FUTURE COMPARE
10588 043727 200 11 0 00 000012 CAM12: MOVE AC1,AC2 ;RESTORE C(E) IF ERROR.
10589 043730 310 10 0 00 000011 CAM AC,AC1 ;SHOULD NOT SKIP.
10590 043731 314 10 0 00 000011 CAMA AC,AC1 ;SHOULD SKIP.
10591 043732 005 10 0 00 060711 ER AC,[ASCII /CAM/]
10592 043733 312 10 0 00 061125 CAME AC,RAN ;C(AC) SHOULD=ORIG C(AC).
10593 043734 001 12 0 00 061125 ERR AC2,RAN
10594 043735 312 11 0 00 000012 CAME AC1,AC2 ;C(E) SHOULD=ORIG C(E).
10595 043736 001 12 0 00 061125 ERR AC2,RAN
10596 LOOP CAM11,CAM12^
10597 043737 367 07 0 00 043721 SOJG AC-1,CAM11 ;ITERATION COUNTER
10598 043740 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
10599 043741 321 07 0 00 043727 JUMPL AC-1,CAM12 ;LOOP ON ERROR SWITCH ^
10600
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 102
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0280
10601
10602
10603 ;TEST CAML,CAMG. CHECK FOR SKIP/NO SKIP AND
10604 ;C(AC)+C(E) NOT BEING CHANGED FOR+RAN1 TO -RAN CONDITION.
10605
10606
10607 000011 AC=11
10608 043742 CAML1: SETUP 100,0^
10609 000012 AC1=<AC+1>&17
10610 000013 AC2=<AC+2>&17
10611 000014 AC3=<AC+3>&17
10612 000015 AC4=<AC+4>&17
10613 000016 AC5=<AC+5>&17
10614 000007 RAN1=<AC-2>&17
10615 043742 201 10 0 00 043742 MOVEI AC-1,.
10616 043743 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
10617 043744 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
10618 043745 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
10619 043746 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
10620 043747 240 10 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
10621 043750 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
10622 043751 CAML2: RANDOM^
10623 043751 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
10624 043752 270 11 0 00 060657 ADD AC,[142536475076]
10625 043753 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
10626 043754 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
10627 043755 241 11 0 00 000011 CAML3: ROT AC,11 ;C(AC)=SECOND RAN. NUM.
10628 043756 200 12 0 00 061125 MOVE AC1,RAN ;C(E)=1'ST RAN. NUM
10629 043757 670 12 0 00 060665 TDO AC1,[XWD 400000,0];MAKE C(E) A NEG NUM.
10630 043760 630 11 0 00 060665 TDZ AC,[XWD 400000,0];MAKE C(AC) A POS. NUM.
10631 043761 200 07 0 00 000011 MOVE RAN1,AC ;SAVE C(AC) FOR FUTURE COMPARE
10632 043762 200 13 0 00 000012 MOVE AC2,AC1 ;SAVE C(E) FOr FUTURE COMPARE
10633 043763 311 11 0 00 000012 CAML AC,AC1 ;C(AC)>C(E)...NO SKIP.
10634 043764 317 11 0 00 000012 CAMG AC,AC1 ;C(AC)>C(E)...SKIP
10635 043765 005 11 0 00 060711 ER AC,[ASCII /CAM/]
10636 043766 312 11 0 00 000007 CAME AC,RAN1 ;C(AC) SHOULD=ORIG. C(AC)
10637 043767 001 13 0 00 000007 ERR AC2,RAN1
10638 043770 312 12 0 00 000013 CAME AC1,AC2 ;C(E) SHOULD=ORIG. C(E)
10639 043771 001 13 0 00 000007 ERR AC2,RAN1
10640 LOOP CAML2,CAML3^
10641 043772 367 10 0 00 043751 SOJG AC-1,CAML2 ;ITERATION COUNTER
10642 043773 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
10643 043774 321 10 0 00 043755 JUMPL AC-1,CAML3 ;LOOP ON ERROR SWITCH ^
10644
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 103
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0281
10645
10646
10647 ;TEST CAMLE,CAMG. CHECK FOR SKIP/NO SKIP AND
10648 ;C(AC)+C(E) NOT BEING CHANGED FOR +RAN1 TO -RAN CONDITION.
10649
10650
10651 000002 AC=2
10652 043775 CAMLE1: SETUP 100,0^
10653 000003 AC1=<AC+1>&17
10654 000004 AC2=<AC+2>&17
10655 000005 AC3=<AC+3>&17
10656 000006 AC4=<AC+4>&17
10657 000007 AC5=<AC+5>&17
10658 000000 RAN1=<AC-2>&17
10659 043775 201 01 0 00 043775 MOVEI AC-1,.
10660 043776 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
10661 043777 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
10662 044000 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
10663 044001 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
10664 044002 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
10665 044003 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
10666 044004 CAMLE2: RANDOM^
10667 044004 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
10668 044005 270 02 0 00 060657 ADD AC,[142536475076]
10669 044006 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
10670 044007 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
10671 044010 241 02 0 00 000011 CAMLE3: ROT AC,11 ;C(AC)=SECOND RAN. NUM.
10672 044011 200 03 0 00 061125 MOVE AC1,RAN ;C(E)=1'ST RAN. NUM.
10673 044012 670 03 0 00 060665 TDO AC1,[XWD 400000,0];MAKE C(E) A NEG NUM.
10674 044013 630 02 0 00 060665 TDZ AC,[XWD 400000,0];MAKE C(AC) A POS. NUM.
10675 044014 200 00 0 00 000002 MOVE RAN1,AC ;SAVE C(AC) FOR FUTURE COMPARE.
10676 044015 200 04 0 00 000003 MOVE AC2,AC1 ;SAVE C(E) FOR FUTURE COMPARE
10677 044016 313 02 0 00 000003 CAMLE AC,AC1 ;C(AC)>C(E). NO SKIP.
10678 044017 317 02 0 00 000003 CAMG AC,AC1 ;C(AC)>C(E). SKIP
10679 044020 005 02 0 00 060711 ER AC,[ASCII /CAM/]
10680 044021 312 02 0 00 000000 CAME AC,RAN1 ;C(AC) SHOULD=ORIG. C(AC).
10681 044022 001 04 0 00 000000 ERR AC2,RAN1
10682 044023 312 03 0 00 000004 CAME AC1,AC2 ;C(E) SHOULD=ORIG C(E)
10683 044024 001 04 0 00 000000 ERR AC2,RAN1
10684 LOOP CAMLE2,CAMLE3^
10685 044025 367 01 0 00 044004 SOJG AC-1,CAMLE2 ;ITERATION COUNTER
10686 044026 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
10687 044027 321 01 0 00 044010 JUMPL AC-1,CAMLE3 ;LOOP ON ERROR SWITCH ^
10688
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 104
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0282
10689
10690
10691 ;TEST CAML, CAMGE. CHECK FOR SKIP/ NO SKIP AND
10692 ;C(AC)+C(E) NOT BEING CHANGED FOR -RAN TO +RAN1 CONDITION
10693
10694
10695 000003 AC=3
10696 044030 CAMGE1: SETUP 100,0^
10697 000004 AC1=<AC+1>&17
10698 000005 AC2=<AC+2>&17
10699 000006 AC3=<AC+3>&17
10700 000007 AC4=<AC+4>&17
10701 000010 AC5=<AC+5>&17
10702 000001 RAN1=<AC-2>&17
10703 044030 201 02 0 00 044030 MOVEI AC-1,.
10704 044031 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
10705 044032 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
10706 044033 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
10707 044034 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
10708 044035 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
10709 044036 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
10710 044037 CAMGE2: RANDOM^
10711 044037 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
10712 044040 270 03 0 00 060657 ADD AC,[142536475076]
10713 044041 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
10714 044042 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
10715 044043 241 03 0 00 000011 CAMGE3: ROT AC,11 ;C(E)=SECOND RAN. NUM
10716 044044 200 04 0 00 061125 MOVE AC1,RAN ;C(AC)=1'ST RAN NUM
10717 044045 670 04 0 00 060665 TDO AC1,[XWD 400000,0];MAKE C(AC) A NEG NUM.
10718 044046 630 03 0 00 060665 TDZ AC,[XWD 400000,0];MAKE C(E) A POS. NUM.
10719 044047 200 01 0 00 000003 MOVE RAN1,AC ;SAVE C(E) FOR FUTURE COMPARE
10720 044050 200 05 0 00 000004 MOVE AC2,AC1 ;SAVE C(AC) FOR FUTURE COMPARE
10721 044051 315 04 0 00 000003 CAMGE AC1,AC ;C(AC)<C(E)...NO SKIP
10722 044052 311 04 0 00 000003 CAML AC1,AC ;C(AC)<C(E)...SKIP
10723 044053 005 04 0 00 060711 ER AC1,[ASCII /CAM/]
10724 044054 312 04 0 00 000005 CAME AC1,AC2 ;C(AC) SHOULD=ORIG. C(AC)
10725 044055 001 01 0 00 000005 ERR RAN1,AC2
10726 044056 312 01 0 00 000003 CAME RAN1,AC ;C(E) SHOULD=ORIG. C(E)
10727 044057 001 05 0 00 000001 ERR AC2,RAN1
10728 LOOP CAMGE2,CAMGE3^
10729 044060 367 02 0 00 044037 SOJG AC-1,CAMGE2 ;ITERATION COUNTER
10730 044061 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
10731 044062 321 02 0 00 044043 JUMPL AC-1,CAMGE3 ;LOOP ON ERROR SWITCH ^
10732
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 105
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0283
10733
10734
10735 ;TEST CAMG, CAMGE. CHECK FOR SKIP/NO SKIP AND
10736 ;C(AC) NOT BEING CHANGED FOR RAN TO RAN CONDITION
10737
10738
10739 000004 AC=4
10740 044063 CAMG1: SETUP 100,0^
10741 000005 AC1=<AC+1>&17
10742 000006 AC2=<AC+2>&17
10743 000007 AC3=<AC+3>&17
10744 000010 AC4=<AC+4>&17
10745 000011 AC5=<AC+5>&17
10746 000002 RAN1=<AC-2>&17
10747 044063 201 03 0 00 044063 MOVEI AC-1,.
10748 044064 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
10749 044065 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
10750 044066 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
10751 044067 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
10752 044070 240 03 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
10753 044071 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
10754 044072 CAMG2: RANDOM^
10755 044072 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
10756 044073 270 04 0 00 060657 ADD AC,[142536475076]
10757 044074 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
10758 044075 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
10759 044076 317 04 0 00 061125 CAMG3: CAMG AC,RAN ;C(AC)=C(E)...NO SKIP.
10760 044077 315 04 0 00 061125 CAMGE AC,RAN ;C(AC)=C(E)...SKIP
10761 044100 005 04 0 00 060711 ER AC,[ASCII /CAM/]
10762 044101 312 04 0 00 061125 CAME AC,RAN ;C(AC) SHOULD=ORIG.C(AC).
10763 044102 011 00 0 00 061125 EERR ,RAN
10764 LOOP CAMG2,CAMG3^
10765 044103 367 03 0 00 044072 SOJG AC-1,CAMG2 ;ITERATION COUNTER
10766 044104 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
10767 044105 321 03 0 00 044076 JUMPL AC-1,CAMG3 ;LOOP ON ERROR SWITCH ^
10768
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 106
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0284
10769
10770
10771 ;TEST CAML,CAMLE. CHECK FOR SKIP/NO SKIP AND
10772 ;C(AC)+C(E) NOT BEING CHANGED FOR RAN TO RAN CONDITION
10773
10774
10775 000005 AC=5
10776 044106 CAMLA: SETUP 100,0^
10777 000006 AC1=<AC+1>&17
10778 000007 AC2=<AC+2>&17
10779 000010 AC3=<AC+3>&17
10780 000011 AC4=<AC+4>&17
10781 000012 AC5=<AC+5>&17
10782 000003 RAN1=<AC-2>&17
10783 044106 201 04 0 00 044106 MOVEI AC-1,.
10784 044107 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
10785 044110 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
10786 044111 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
10787 044112 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
10788 044113 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
10789 044114 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
10790 044115 CAMLB: RANDOM^
10791 044115 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
10792 044116 270 05 0 00 060657 ADD AC,[142536475076]
10793 044117 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
10794 044120 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
10795 044121 311 05 0 00 061125 CAMLC: CAML AC,RAN ;C(AC)=C(E)...NO SKIP.
10796 044122 313 05 0 00 061125 CAMLE AC,RAN ;C(AC)=C(E)...SKIP
10797 044123 005 05 0 00 060711 ER AC,[ASCII /CAM/]
10798 044124 312 05 0 00 061125 CAME AC,RAN ;C(AC) SHOULD=ORIG.C(AC).
10799 044125 011 00 0 00 061125 EERR ,RAN
10800 LOOP CAMLB,CAMLC^
10801 044126 367 04 0 00 044115 SOJG AC-1,CAMLB ;ITERATION COUNTER
10802 044127 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
10803 044130 321 04 0 00 044121 JUMPL AC-1,CAMLC ;LOOP ON ERROR SWITCH ^
10804
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 107
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0285
10805
10806
10807 ;TEST CAI,CAIA. CHECK FOR SKIP/NO SKIP AND
10808 ;C(AC) NOT BEING CHANGED FOR RAN TO RAN1 CONDITION
10809
10810
10811 000006 AC=6
10812 044131 CAI1: SETUP 100,0^
10813 000007 AC1=<AC+1>&17
10814 000010 AC2=<AC+2>&17
10815 000011 AC3=<AC+3>&17
10816 000012 AC4=<AC+4>&17
10817 000013 AC5=<AC+5>&17
10818 000004 RAN1=<AC-2>&17
10819 044131 201 05 0 00 044131 MOVEI AC-1,.
10820 044132 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
10821 044133 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
10822 044134 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
10823 044135 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
10824 044136 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
10825 044137 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
10826 044140 CAI2: RANDOM^
10827 044140 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
10828 044141 270 06 0 00 060657 ADD AC,[142536475076]
10829 044142 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
10830 044143 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
10831 044144 200 07 0 00 000006 MOVE AC1,AC ;SAVE E.
10832 044145 241 06 0 00 000011 CAI3: ROT AC,11 ;C(AC)=SECOND RAN.NUM
10833 044146 201 06 0 06 000000 MOVEI AC,(AC) ;CLEAR LEFT HALF FOR CAI INST.
10834 044147 200 04 0 00 000006 MOVE RAN1,AC ;SAVE C(AC) FOR FUTURE COMPARE
10835 044150 300 06 0 07 000000 CAI AC,(AC1) ;SHOULD NOT SKIP.
10836 044151 304 06 0 07 000000 CAIA AC,(AC1) ;SHOULD ALWAYS SKIP.
10837 044152 005 06 0 00 060712 ER AC,[ASCII /CAI/]
10838 044153 312 06 0 00 000004 CAME AC,RAN1 ;C(AC) SHOULD =ORIG. C(AC)
10839 044154 003 04 0 07 000000 ERRI RAN1,(AC1)
10840 LOOP CAI2,CAI3^
10841 044155 367 05 0 00 044140 SOJG AC-1,CAI2 ;ITERATION COUNTER
10842 044156 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
10843 044157 321 05 0 00 044145 JUMPL AC-1,CAI3 ;LOOP ON ERROR SWITCH ^
10844
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 108
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0286
10845
10846
10847 ;TEST CAIE, CAIN. CHECK FOR SKIP/NO SKIP AND
10848 ;C(AC) NOT BEING CHANGED FOR RAN TO RAN1 CONDITION.
10849
10850
10851 000007 AC=7
10852 044160 CAIE1: SETUP 100,0^
10853 000010 AC1=<AC+1>&17
10854 000011 AC2=<AC+2>&17
10855 000012 AC3=<AC+3>&17
10856 000013 AC4=<AC+4>&17
10857 000014 AC5=<AC+5>&17
10858 000005 RAN1=<AC-2>&17
10859 044160 201 06 0 00 044160 MOVEI AC-1,.
10860 044161 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
10861 044162 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
10862 044163 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
10863 044164 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
10864 044165 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
10865 044166 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
10866 044167 CAIE2: RANDOM^
10867 044167 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
10868 044170 270 07 0 00 060657 ADD AC,[142536475076]
10869 044171 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
10870 044172 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
10871 044173 200 10 0 00 061125 MOVE AC1,RAN ;SAVE E.
10872 044174 201 07 0 07 000000 CAIE3: MOVEI AC,(AC) ;CLEAR LEFT SIDE FOR CAI INST.
10873 044175 430 07 0 00 060713 XOR AC,[3154] ;MAKE SURE C(AC) AND E ARE DIFFERENT.
10874 044176 200 05 0 00 000007 MOVE RAN1,AC ;SAVE FOR FUTURE COMPARE
10875 044177 302 07 0 10 000000 CAIE AC,(AC1) ;C(AC) NOT = E...NO SKIP.
10876 044200 306 07 0 10 000000 CAIN AC,(AC1) ;C(AC) NOT = E...SKIP.
10877 044201 005 07 0 00 060712 ER AC,[ASCII /CAI/]
10878 044202 312 07 0 00 000005 CAME AC,RAN1 ;C(AC) SHOULD = ORIG. C(AC).
10879 044203 003 05 0 10 000000 ERRI RAN1,(AC1)
10880 LOOP CAIE2,CAIE3^
10881 044204 367 06 0 00 044167 SOJG AC-1,CAIE2 ;ITERATION COUNTER
10882 044205 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
10883 044206 321 06 0 00 044174 JUMPL AC-1,CAIE3 ;LOOP ON ERROR SWITCH ^
10884
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 109
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0287
10885
10886
10887 ;TEST CAIE, CAIN. CHECK FOR SKIP/NO SKIP AND
10888 ;C(AC) NOT BEING CHANGED FOR RAN TO RAN CONDITION.
10889
10890
10891 000010 AC=10
10892 044207 CAIN1: SETUP 100,0^
10893 000011 AC1=<AC+1>&17
10894 000012 AC2=<AC+2>&17
10895 000013 AC3=<AC+3>&17
10896 000014 AC4=<AC+4>&17
10897 000015 AC5=<AC+5>&17
10898 000006 RAN1=<AC-2>&17
10899 044207 201 07 0 00 044207 MOVEI AC-1,.
10900 044210 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
10901 044211 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
10902 044212 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
10903 044213 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
10904 044214 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
10905 044215 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
10906 044216 CAIN2: RANDOM^
10907 044216 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
10908 044217 270 10 0 00 060657 ADD AC,[142536475076]
10909 044220 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
10910 044221 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
10911 044222 200 11 0 00 061125 MOVE AC1,RAN ;SAVE E.
10912 044223 201 10 0 10 000000 CAIN3: MOVEI AC,(AC) ;MAKE C(AC) = E.
10913 044224 200 06 0 00 000010 MOVE RAN1,AC ;SAVE FOR FUTURE COMPARE
10914 044225 306 10 0 11 000000 CAIN AC,(AC1) ;C(AC) = E...NO SKIP.
10915 044226 302 10 0 11 000000 CAIE AC,(AC1) ;C(AC) = E...SKIP.
10916 044227 005 10 0 00 060712 ER AC,[ASCII /CAI/]
10917 044230 312 10 0 00 000006 CAME AC,RAN1 ;C(AC) SHOULD=ORIG. C(AC).
10918 044231 003 06 0 11 000000 ERRI RAN1,(AC1)
10919 LOOP CAIN2,CAIN3^
10920 044232 367 07 0 00 044216 SOJG AC-1,CAIN2 ;ITERATION COUNTER
10921 044233 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
10922 044234 321 07 0 00 044223 JUMPL AC-1,CAIN3 ;LOOP ON ERROR SWITCH ^
10923
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 110
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0288
10924
10925
10926 ;TEST CAIL,CAIG. CHECK FOR SKIP/NO SKIP AND
10927 ;C(AC) NOT BEING CHANGED FOR C(AC) = 2,4,10,20, AND ETC,
10928 ;AND E = 1,3,7,17,37,AND ETC.
10929
10930
10931 000011 AC=11
10932 044235 CAIL1: SETUP 100,0^
10933 000012 AC1=<AC+1>&17
10934 000013 AC2=<AC+2>&17
10935 000014 AC3=<AC+3>&17
10936 000015 AC4=<AC+4>&17
10937 000016 AC5=<AC+5>&17
10938 000007 RAN1=<AC-2>&17
10939 044235 201 10 0 00 044235 MOVEI AC-1,.
10940 044236 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
10941 044237 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
10942 044240 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
10943 044241 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
10944 044242 240 10 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
10945 044243 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
10946 044244 201 11 0 00 000001 MOVEI AC,1 ;SETUP E TO = 1 LESS
10947 044245 201 12 0 00 000002 MOVEI AC1,2 ;THAN C(AC).
10948 044246 245 11 0 00 000001 CAIL2: ROTC AC,1 ;ROT TO TEST NEXT BITS.
10949 044247 434 11 0 00 060666 IOR AC,[1] ;SET SO E WILL = 1,3,7,17,AND ETC.
10950 044250 612 12 0 00 060714 TDNE AC1,[XWD 1,0] ;BIT INTO LEFT HAND SIDE?
10951 044251 254 00 0 00 044244 JRST .-5 ;YES. REINITIALIZE NUMBERS.
10952 044252 200 07 0 00 000012 MOVE RAN1,AC1 ;SAVE C(AC) SO IT CAN BE RESTORED
10953 044253 200 13 0 00 000011 MOVE AC2,AC ;SAVE C(E) SO IT CAN BE RESTORED
10954 044254 200 12 0 00 000007 CAIL3: MOVE AC1,RAN1 ;IN CASE OF ERROR.
10955 044255 301 12 0 11 000000 CAIL AC1,(AC) ;C(AC) > E...NO SKIP.
10956 044256 307 12 0 11 000000 CAIG AC1,(AC) ;C(AC) > E...SKIP.
10957 044257 005 12 0 00 060712 ER AC1,[ASCII /CAI/]
10958 044260 312 12 0 00 000007 CAME AC1,RAN1 ;C(AC) SHOULD = ORIG. C(AC).
10959 044261 003 07 0 11 000000 ERRI RAN1,(AC)
10960 044262 367 10 0 00 044246 SOJG AC-1,CAIL2 ;ITERATION COUNTER.
10961 044263 200 11 0 00 000013 MOVE AC,AC2 ;RESTORE C(E).
10962 044264 321 10 0 00 044254 JUMPL AC-1,CAIL3 ;LOOP ON ERROR SWITCH.
10963
10964
10965
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 111
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0289
10966
10967
10968 ;TEST CAIG, CAIL. CHECK FOR SKIP/NO SKIP AND
10969 ;C(AC) NOT BEING CHANGED FOR C(AC) = 1,3,7,17,37,AND ETC,
10970 ;AND E = 2,4,10,20,AND ETC.
10971
10972
10973 000012 AC=12
10974 044265 CAIG1: SETUP 100,0^
10975 000013 AC1=<AC+1>&17
10976 000014 AC2=<AC+2>&17
10977 000015 AC3=<AC+3>&17
10978 000016 AC4=<AC+4>&17
10979 000017 AC5=<AC+5>&17
10980 000010 RAN1=<AC-2>&17
10981 044265 201 11 0 00 044265 MOVEI AC-1,.
10982 044266 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
10983 044267 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
10984 044270 202 11 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
10985 044271 201 11 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
10986 044272 240 11 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
10987 044273 240 11 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
10988 044274 201 12 0 00 000001 MOVEI AC,1 ;SETUP C(AC) TO = 1.
10989 044275 201 13 0 00 000002 MOVEI AC1,2 ;SETUP E TO = 2.
10990 044276 245 12 0 00 000001 CAIG2: ROTC AC,1 ;ROT SO C(AC)=2, E=4.
10991 044277 434 12 0 00 060666 IOR AC,[1] ;SET BIT 35 SO C(AC) = 3,7,17.
10992 044300 612 13 0 00 060714 TDNE AC1,[XWD 1,0] ;BIT INTO LEFT HAND SIDE?
10993 044301 254 00 0 00 044274 JRST .-5 ;YES. REINITIALIZE NUMBERS.
10994 044302 200 10 0 00 000012 MOVE RAN1,AC ;SAVE C(AC) SO IT CAN
10995 044303 200 14 0 00 000013 MOVE AC2,AC1 ;AND C(E) CAN
10996 044304 200 12 0 00 000010 CAIG3: MOVE AC,RAN1 ;BE RESTORED IN CASE OF ERROR.
10997 044305 307 12 0 13 000000 CAIG AC,(AC1) ;C(AC) < E...NO SKIP.
10998 044306 301 12 0 13 000000 CAIL AC,(AC1) ;C(AC) < E...SKIP.
10999 044307 005 12 0 00 060712 ER AC,[ASCII /CAI/]
11000 044310 312 12 0 00 000010 CAME AC,RAN1
11001 044311 003 10 0 13 000000 ERRI RAN1,(AC1)
11002 044312 367 11 0 00 044276 SOJG AC-1,CAIG2 ;ITERATION COUNTER.
11003 044313 200 12 0 00 000014 MOVE AC,AC2 ;RESTORE C(E).
11004 044314 321 11 0 00 044304 JUMPL AC-1,CAIG3 ;LOOP ON ERROR SWITCH.
11005
11006
11007
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 112
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0290
11008
11009
11010 ;TEST CAIG, CAIGE. CHECK FOR SKIP/NO SKIP AND
11011 ;C(AC) NOT BEING CHANGED FOR RAN TO RAN CONDITION.
11012
11013
11014 000013 AC=13
11015 044315 CAIGE1: SETUP 100,0^
11016 000014 AC1=<AC+1>&17
11017 000015 AC2=<AC+2>&17
11018 000016 AC3=<AC+3>&17
11019 000017 AC4=<AC+4>&17
11020 000000 AC5=<AC+5>&17
11021 000011 RAN1=<AC-2>&17
11022 044315 201 12 0 00 044315 MOVEI AC-1,.
11023 044316 202 12 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
11024 044317 201 12 0 00 000012 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
11025 044320 202 12 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
11026 044321 201 12 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
11027 044322 240 12 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
11028 044323 240 12 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
11029 044324 CAIGE2: RANDOM^
11030 044324 200 13 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
11031 044325 270 13 0 00 060657 ADD AC,[142536475076]
11032 044326 241 13 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
11033 044327 447 13 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
11034 044330 200 14 0 00 061125 MOVE AC1,RAN ;SAVE E.
11035 044331 201 13 0 14 000000 CAIGE3: MOVEI AC,(AC1) ;MAKE C(AC) = E.
11036 044332 200 11 0 00 000013 MOVE RAN1,AC ;SAVE C(AC) FOR FUTURE COMPARE
11037 044333 307 13 0 14 000000 CAIG AC,(AC1) ;C(AC) = E...NO SKIP.
11038 044334 305 13 0 14 000000 CAIGE AC,(AC1) ;C(AC) = E...SKIP.
11039 044335 005 13 0 00 060712 ER AC,[ASCII /CAI/]
11040 044336 312 13 0 00 000011 CAME AC,RAN1 ;C(AC) SHOULD=ORIG. C(AC)
11041 044337 003 11 0 14 000000 ERRI RAN1,(AC1)
11042 044340 367 12 0 00 044324 SOJG AC-1,CAIGE2 ;ITERATION COUNTER.
11043 044341 321 12 0 00 044331 JUMPL AC-1,CAIGE3 ;LOOP ON ERROR SWITCH.
11044
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 113
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0291
11045
11046
11047 ;TEST CAIL, CAILE. CHECK FOR SKIP/NO SKIP AND
11048 ;C(AC) NOT CHANGEING FOR RAN TO RAN CONDITION
11049
11050
11051 000014 AC=14
11052 044342 CAILE1: SETUP 100,0^
11053 000015 AC1=<AC+1>&17
11054 000016 AC2=<AC+2>&17
11055 000017 AC3=<AC+3>&17
11056 000000 AC4=<AC+4>&17
11057 000001 AC5=<AC+5>&17
11058 000012 RAN1=<AC-2>&17
11059 044342 201 13 0 00 044342 MOVEI AC-1,.
11060 044343 202 13 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
11061 044344 201 13 0 00 000013 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
11062 044345 202 13 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
11063 044346 201 13 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
11064 044347 240 13 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
11065 044350 240 13 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
11066 044351 CAILE2: RANDOM^
11067 044351 200 14 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
11068 044352 270 14 0 00 060657 ADD AC,[142536475076]
11069 044353 241 14 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
11070 044354 447 14 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
11071 044355 200 15 0 00 061125 MOVE AC1,RAN ;SAVE E.
11072 044356 201 14 0 15 000000 CAILE3: MOVEI AC,(AC1) ;MAKE C(AC) = E.
11073 044357 200 12 0 00 000014 MOVE RAN1,AC ;SAVE FOR FUTURE COMPARE
11074 044360 301 14 0 15 000000 CAIL AC,(AC1) ;C(AC) = E...NO SKIP.
11075 044361 303 14 0 15 000000 CAILE AC,(AC1) ;C(AC) = E...SKIP.
11076 044362 005 14 0 00 060712 ER AC,[ASCII /CAI/]
11077 044363 312 14 0 00 000012 CAME AC,RAN1 ;C(AC) SHOULD=ORIG. C(AC).
11078 044364 003 12 0 15 000000 ERRI RAN1,(AC1)
11079 044365 367 13 0 00 044351 SOJG AC-1,CAILE2 ;ITERATION COUNTER.
11080 044366 321 13 0 00 044356 JUMPL AC-1,CAILE3 ;LOOP ON ERROR SWITCH.
11081
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 114
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0292
11082
11083
11084 ;TEST CAIGE, CAIL. CHECK FOR SKIP/NO SKIP AND
11085 ;C(AC) NOT CHANGING FOR C(AC) = 1,3,7,17,AND ETC,
11086 ;AND E = 2,4,10,20,AND ETC.
11087
11088
11089 000015 AC=15
11090 044367 CAILA: SETUP 100,0^
11091 000016 AC1=<AC+1>&17
11092 000017 AC2=<AC+2>&17
11093 000000 AC3=<AC+3>&17
11094 000001 AC4=<AC+4>&17
11095 000002 AC5=<AC+5>&17
11096 000013 RAN1=<AC-2>&17
11097 044367 201 14 0 00 044367 MOVEI AC-1,.
11098 044370 202 14 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
11099 044371 201 14 0 00 000014 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
11100 044372 202 14 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
11101 044373 201 14 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
11102 044374 240 14 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
11103 044375 240 14 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
11104 044376 201 15 0 00 000001 MOVEI AC,1 ;SETUP C(AC) TO = 1 LESS
11105 044377 201 16 0 00 000002 MOVEI AC1,2 ;THAN E.
11106 044400 245 15 0 00 000001 CAILB: ROTC AC,1 ;ROT TO TEST NEXT BITS.
11107 044401 434 15 0 00 060666 IOR AC,[1] ;SET SO C(AC) = 1,3,7,17,AND ETC.
11108 044402 612 16 0 00 060714 TDNE AC1,[XWD 1,0] ;BIT GONE INTO LEFT HAND SIDE?
11109 044403 254 00 0 00 044376 JRST .-5 ;YES. REINITIALIZE NUMBERS.
11110 044404 200 13 0 00 000015 MOVE RAN1,AC ;SAVE C(AC) FOR FUTURE COMPARE.
11111 044405 200 15 0 00 000013 CAILC: MOVE AC,RAN1 ;RESTORE AC IN CASE OF ERROR.
11112 044406 305 15 0 16 000000 CAIGE AC,(AC1) ;C(AC) < E...NO SKIP.
11113 044407 301 15 0 16 000000 CAIL AC,(AC1) ;C(AC) < E...SKIP.
11114 044410 005 15 0 00 060712 ER AC,[ASCII /CAI/]
11115 044411 312 15 0 00 000013 CAME AC,RAN1 ;C(AC) SHOULD = ORIG. C(AC).
11116 044412 003 13 0 16 000000 ERRI RAN1,(AC1)
11117 044413 367 14 0 00 044400 SOJG AC-1,CAILB ;ITERATION COUNTER.
11118 044414 321 14 0 00 044405 JUMPL AC-1,CAILC ;LOOP ON ERROR SWITCH.
11119
11120
11121
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 115
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0293
11122
11123
11124 ;TEST CAILE, CAIG. CHECK FOR SKIP/NO SKIP AND
11125 ;C(AC) NOT BEING CHANGED FOR C(AC) =2,4,10,20, AND ETC,
11126 ;AND E = 1,3,7,17,AND ETC.
11127
11128
11129 000006 AC=6
11130 044415 CAIGA: SETUP 100,0^
11131 000007 AC1=<AC+1>&17
11132 000010 AC2=<AC+2>&17
11133 000011 AC3=<AC+3>&17
11134 000012 AC4=<AC+4>&17
11135 000013 AC5=<AC+5>&17
11136 000004 RAN1=<AC-2>&17
11137 044415 201 05 0 00 044415 MOVEI AC-1,.
11138 044416 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
11139 044417 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
11140 044420 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
11141 044421 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
11142 044422 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
11143 044423 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
11144 044424 201 06 0 00 000001 MOVEI AC,1 ;SETUP E TO = 1 LESS
11145 044425 201 07 0 00 000002 MOVEI AC1,2 ;THAN C(AC).
11146 044426 245 06 0 00 000001 CAIGB: ROTC AC,1 ;ROT TO TEST NEXT BITS.
11147 044427 434 06 0 00 060666 IOR AC,[1] ;SET SO E WILL = 1,3,7,AND ETC.
11148 044430 612 07 0 00 060714 TDNE AC1,[XWD 1,0] ;BIT INTO LEFT HAND SIDE?
11149 044431 254 00 0 00 044424 JRST .-5 ;YES. REINITIALIZE NUMBERS.
11150 044432 200 04 0 00 000007 MOVE RAN1,AC1 ;SAVE C(AC) FOR FUTURE COMPARE.
11151 044433 200 07 0 00 000004 CAIGC: MOVE AC1,RAN1 ;RESTORE IN CASE OF ERROR.
11152 044434 303 07 0 06 000000 CAILE AC1,(AC) ;C(AC) > E...NO SKIP.
11153 044435 307 07 0 06 000000 CAIG AC1,(AC) ;C(AC) > E...SKIP.
11154 044436 005 07 0 00 060712 ER AC1,[ASCII /CAI/]
11155 044437 312 07 0 00 000004 CAME AC1,RAN1 ;C(AC) SHOULD = ORIG. C(AC).
11156 044440 003 04 0 06 000000 ERRI RAN1,(AC)
11157 044441 367 05 0 00 044426 SOJG AC-1,CAIGB ;ITERATION COUNTER.
11158 044442 321 05 0 00 044433 JUMPL AC-1,CAIGC ;LOOP ON ERROR SWITCH.
11159
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 116
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0294
11160
11161
11162 ;TEST ANDI. CHECK FOR CORRECT DATA IN AC.
11163 ;RAN TO RAN1
11164
11165
11166 000010 AC=10
11167 044443 ANDI4: SETUP 200,1^
11168 000011 AC1=<AC+1>&17
11169 000012 AC2=<AC+2>&17
11170 000013 AC3=<AC+3>&17
11171 000014 AC4=<AC+4>&17
11172 000015 AC5=<AC+5>&17
11173 000006 RAN1=<AC-2>&17
11174 044443 201 07 0 00 044443 MOVEI AC-1,.
11175 044444 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
11176 044445 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
11177 044446 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
11178 044447 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
11179 044450 240 07 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
11180 044451 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
11181 044452 ANDI5: RANDOM^
11182 044452 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
11183 044453 270 10 0 00 060657 ADD AC,[142536475076]
11184 044454 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
11185 044455 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
11186 044456 200 12 0 00 061125 MOVE AC2,RAN ;SAVE E.
11187 044457 207 06 0 00 000010 ANDI6: MOVSS RAN1,AC ;MAKE C(AC) = SEC. RAN. NUM.
11188 044460 201 11 0 12 000000 MOVEI AC1,(AC2) ;SIMULTE
11189 044461 470 11 0 00 000010 ORCB AC1,AC ;AN
11190 044462 450 11 0 00 000000 SETCA AC1, ;ANDI
11191 044463 405 10 0 12 000000 ANDI AC,(AC2) ;DO ANDI.
11192 044464 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
11193 044465 003 06 0 12 000000 ERRI RAN1,(AC2)
11194 LOOP ANDI5,ANDI6^
11195 044466 367 07 0 00 044452 SOJG AC-1,ANDI5 ;ITERATION COUNTER
11196 044467 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
11197 044470 321 07 0 00 044457 JUMPL AC-1,ANDI6 ;LOOP ON ERROR SWITCH ^
11198
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 117
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0295
11199
11200
11201 ;TEST ANDCAI. CHECK C(AC) FOR CORRECT DATA
11202 ;RAN TO RAN1
11203
11204
11205 000011 AC=11
11206 044471 ANCAI4: SETUP 200,1^
11207 000012 AC1=<AC+1>&17
11208 000013 AC2=<AC+2>&17
11209 000014 AC3=<AC+3>&17
11210 000015 AC4=<AC+4>&17
11211 000016 AC5=<AC+5>&17
11212 000007 RAN1=<AC-2>&17
11213 044471 201 10 0 00 044471 MOVEI AC-1,.
11214 044472 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
11215 044473 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
11216 044474 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
11217 044475 201 10 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
11218 044476 240 10 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
11219 044477 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
11220 044500 ANCAI5: RANDOM^
11221 044500 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
11222 044501 270 11 0 00 060657 ADD AC,[142536475076]
11223 044502 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
11224 044503 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
11225 044504 200 13 0 00 061125 MOVE AC2,RAN ;SAVE E.
11226 044505 207 07 0 00 000011 ANCAI6: MOVSS RAN1,AC ;MAKE C(AC) A DIFF. RAN. NUM.
11227 044506 201 12 0 13 000000 MOVEI AC1,(AC2) ;SIMULTE AN
11228 044507 454 12 0 00 000011 ORCA AC1,AC ;ANDCAI
11229 044510 450 12 0 00 000000 SETCA AC1, ;INST
11230 044511 411 11 0 12 000000 ANDCAI AC,(AC1) ;DO ANDCAI.
11231 044512 312 11 0 00 000012 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
11232 044513 003 07 0 13 000000 ERRI RAN1,(AC2)
11233 LOOP ANCAI5,ANCAI6^
11234 044514 367 10 0 00 044500 SOJG AC-1,ANCAI5 ;ITERATION COUNTER
11235 044515 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
11236 044516 321 10 0 00 044505 JUMPL AC-1,ANCAI6 ;LOOP ON ERROR SWITCH ^
11237
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 118
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0296
11238
11239
11240 ;TEST SETMI, CHECK C(AC) FOR CORRECT DATA
11241 ;RAN TO RAN1
11242
11243
11244 000002 AC=2
11245 044517 STMI4: SETUP 100,0^
11246 000003 AC1=<AC+1>&17
11247 000004 AC2=<AC+2>&17
11248 000005 AC3=<AC+3>&17
11249 000006 AC4=<AC+4>&17
11250 000007 AC5=<AC+5>&17
11251 000000 RAN1=<AC-2>&17
11252 044517 201 01 0 00 044517 MOVEI AC-1,.
11253 044520 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
11254 044521 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
11255 044522 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
11256 044523 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
11257 044524 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
11258 044525 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
11259 044526 STMI5: RANDOM^
11260 044526 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
11261 044527 270 02 0 00 060657 ADD AC,[142536475076]
11262 044530 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
11263 044531 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
11264 044532 200 04 0 00 061125 MOVE AC2,RAN ;SAVE E.
11265 044533 207 00 0 00 000002 STMI6: MOVSS RAN1,AC ;MAKE C(AC) A DIFF. RAN. NUM.
11266 044534 201 03 0 04 000000 MOVEI AC1,(AC2) ;SETMI = MOVEI.
11267 044535 415 02 0 04 000000 SETMI AC,(AC2) ;DO SETMI.
11268 044536 312 02 0 00 000003 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
11269 044537 003 00 0 04 000000 ERRI RAN1,(AC2)
11270 LOOP STMI5,STMI6^
11271 044540 367 01 0 00 044526 SOJG AC-1,STMI5 ;ITERATION COUNTER
11272 044541 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
11273 044542 321 01 0 00 044533 JUMPL AC-1,STMI6 ;LOOP ON ERROR SWITCH ^
11274
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 119
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0297
11275
11276
11277 ;TEST ANDCMI. CHECK FOR CORRECT DATA IN C(AC)
11278 ;RAN TO RAN1
11279
11280
11281 000004 AC=4
11282 044543 ANCMIA: SETUP 200,1^
11283 000005 AC1=<AC+1>&17
11284 000006 AC2=<AC+2>&17
11285 000007 AC3=<AC+3>&17
11286 000010 AC4=<AC+4>&17
11287 000011 AC5=<AC+5>&17
11288 000002 RAN1=<AC-2>&17
11289 044543 201 03 0 00 044543 MOVEI AC-1,.
11290 044544 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
11291 044545 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
11292 044546 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
11293 044547 201 03 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
11294 044550 240 03 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
11295 044551 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
11296 044552 ANCMIB: RANDOM^
11297 044552 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
11298 044553 270 04 0 00 060657 ADD AC,[142536475076]
11299 044554 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
11300 044555 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
11301 044556 200 06 0 00 061125 MOVE AC2,RAN ;SAVE E.
11302 044557 207 02 0 00 000004 ANCMIC: MOVSS RAN1,AC ;MAKE C(AC) A DIFF. RAN. NUM.
11303 044560 201 05 0 06 000000 MOVEI AC1,(AC2) ;SIMULATE
11304 044561 464 05 0 00 000004 ORCM AC1,AC ;AN
11305 044562 450 05 0 00 000000 SETCA AC1, ;ANDCMI
11306 044563 421 04 0 06 000000 ANDCMI AC,(AC2) ;DO ANDCMI.
11307 044564 312 04 0 00 000005 CAME AC,AC1 ;C(AC) SHOULD = SIM ANS.
11308 044565 003 02 0 06 000000 ERRI RAN1,(AC2)
11309 LOOP ANCMIB,ANCMIC^
11310 044566 367 03 0 00 044552 SOJG AC-1,ANCMIB ;ITERATION COUNTER
11311 044567 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
11312 044570 321 03 0 00 044557 JUMPL AC-1,ANCMIC ;LOOP ON ERROR SWITCH ^
11313
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 120
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0298
11314
11315
11316 ;TEST SETAI. CHECK C(AC) FOR CORRECT DATA
11317 ;RAN TO RAN1
11318
11319
11320 000004 AC=4
11321 044571 SETAIA: SETUP 100,0^
11322 000005 AC1=<AC+1>&17
11323 000006 AC2=<AC+2>&17
11324 000007 AC3=<AC+3>&17
11325 000010 AC4=<AC+4>&17
11326 000011 AC5=<AC+5>&17
11327 000002 RAN1=<AC-2>&17
11328 044571 201 03 0 00 044571 MOVEI AC-1,.
11329 044572 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
11330 044573 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
11331 044574 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
11332 044575 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
11333 044576 240 03 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
11334 044577 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
11335 044600 SETAIB: RANDOM^
11336 044600 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
11337 044601 270 04 0 00 060657 ADD AC,[142536475076]
11338 044602 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
11339 044603 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
11340 044604 200 06 0 00 061125 MOVE AC2,RAN ;SAVE E.
11341 044605 207 02 0 00 000004 SETAIC: MOVSS RAN1,AC ;MAKE C(AC) = SEC. RAN. NUM.
11342 044606 425 04 0 06 000000 SETAI AC,(AC2) ;DO SETAI.
11343 044607 312 04 0 00 000002 CAME AC,RAN1 ;C(AC) SHOULD NOT CHANGE
11344 044610 003 02 0 06 000000 ERRI RAN1,(AC2)
11345 LOOP SETAIB,SETAIC^
11346 044611 367 03 0 00 044600 SOJG AC-1,SETAIB ;ITERATION COUNTER
11347 044612 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
11348 044613 321 03 0 00 044605 JUMPL AC-1,SETAIC ;LOOP ON ERROR SWITCH ^
11349
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 121
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0299
11350
11351
11352 ;TEST XORI. CHECK C(AC) FOR CORRECT DATA.
11353 ;RAN TO RAN1
11354
11355
11356 000005 AC=5
11357 044614 XORIA: SETUP 200,1^
11358 000006 AC1=<AC+1>&17
11359 000007 AC2=<AC+2>&17
11360 000010 AC3=<AC+3>&17
11361 000011 AC4=<AC+4>&17
11362 000012 AC5=<AC+5>&17
11363 000003 RAN1=<AC-2>&17
11364 044614 201 04 0 00 044614 MOVEI AC-1,.
11365 044615 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
11366 044616 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
11367 044617 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
11368 044620 201 04 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
11369 044621 240 04 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
11370 044622 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
11371 044623 XORIB: RANDOM^
11372 044623 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
11373 044624 270 05 0 00 060657 ADD AC,[142536475076]
11374 044625 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
11375 044626 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
11376 044627 200 07 0 00 061125 MOVE AC2,RAN ;SAVE E.
11377 044630 207 03 0 00 000005 XORIC: MOVSS RAN1,AC ;MAKE C(AC) = SEC. RAN. NUM.
11378 044631 201 06 0 07 000000 MOVEI AC1,(AC2) ;SIMULATE
11379 044632 444 06 0 00 000005 EQV AC1,AC ;AN
11380 044633 450 06 0 00 000000 SETCA AC1, ;XORI
11381 044634 431 05 0 07 000000 XORI AC,(AC2) ;DO XORI.
11382 044635 312 05 0 00 000006 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
11383 044636 003 03 0 07 000000 ERRI RAN1,(AC2)
11384 LOOP XORIB,XORIC^
11385 044637 367 04 0 00 044623 SOJG AC-1,XORIB ;ITERATION COUNTER
11386 044640 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
11387 044641 321 04 0 00 044630 JUMPL AC-1,XORIC ;LOOP ON ERROR SWITCH ^
11388
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 122
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0300
11389
11390
11391 ;TEST IORI. CHECK C(AC) FOR CORRECT DATA
11392 ;RAN TO RAN1
11393
11394
11395 000006 AC=6
11396 044642 IORIA: SETUP 200,1^
11397 000007 AC1=<AC+1>&17
11398 000010 AC2=<AC+2>&17
11399 000011 AC3=<AC+3>&17
11400 000012 AC4=<AC+4>&17
11401 000013 AC5=<AC+5>&17
11402 000004 RAN1=<AC-2>&17
11403 044642 201 05 0 00 044642 MOVEI AC-1,.
11404 044643 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
11405 044644 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
11406 044645 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
11407 044646 201 05 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
11408 044647 240 05 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
11409 044650 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
11410 044651 IORIB: RANDOM^
11411 044651 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
11412 044652 270 06 0 00 060657 ADD AC,[142536475076]
11413 044653 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
11414 044654 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
11415 044655 200 10 0 00 061125 MOVE AC2,RAN ;SAVE E.
11416 044656 207 04 0 00 000006 IORIC: MOVSS RAN1,AC ;MAKE C(AC) = SEC. RAN. NUM.
11417 044657 201 07 0 10 000000 MOVEI AC1,(AC2) ;SIMULATE
11418 044660 420 07 0 00 000006 ANDCM AC1,AC ;AN
11419 044661 430 07 0 00 000006 XOR AC1,AC ;IORI
11420 044662 435 06 0 10 000000 IORI AC,(AC2) ;DO IORI.
11421 044663 312 06 0 00 000007 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
11422 044664 003 04 0 10 000000 ERRI RAN1,(AC2)
11423 LOOP IORIB,IORIC^
11424 044665 367 05 0 00 044651 SOJG AC-1,IORIB ;ITERATION COUNTER
11425 044666 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
11426 044667 321 05 0 00 044656 JUMPL AC-1,IORIC ;LOOP ON ERROR SWITCH ^
11427
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 123
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0301
11428
11429
11430 ;TEST ANDCBI. CHECK C(AC) FOR CORRECT DATA
11431 ;RAN TO RAN1
11432
11433
11434 000007 AC=7
11435 044670 ANCBIA: SETUP 200,1^
11436 000010 AC1=<AC+1>&17
11437 000011 AC2=<AC+2>&17
11438 000012 AC3=<AC+3>&17
11439 000013 AC4=<AC+4>&17
11440 000014 AC5=<AC+5>&17
11441 000005 RAN1=<AC-2>&17
11442 044670 201 06 0 00 044670 MOVEI AC-1,.
11443 044671 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
11444 044672 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
11445 044673 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
11446 044674 201 06 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
11447 044675 240 06 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
11448 044676 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
11449 044677 ANCBIB: RANDOM^
11450 044677 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
11451 044700 270 07 0 00 060657 ADD AC,[142536475076]
11452 044701 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
11453 044702 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
11454 044703 200 11 0 00 061125 MOVE AC2,RAN ;SAVE E.
11455 044704 207 05 0 00 000007 ANCBIC: MOVSS RAN1,AC ;MAKE C(AC) = SEC. RAN. NUM.
11456 044705 201 10 0 11 000000 MOVEI AC1,(AC2) ;SIMULATE
11457 044706 434 10 0 00 000007 IOR AC1,AC ;AN
11458 044707 450 10 0 00 000000 SETCA AC1, ;ANDCBI
11459 044710 441 07 0 11 000000 ANDCBI AC,(AC2) ;DO ANDCBI.
11460 044711 312 07 0 00 000010 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
11461 044712 003 05 0 11 000000 ERRI RAN1,(AC2)
11462 LOOP ANCBIB, ANCBIC^
11463 044713 367 06 0 00 044677 SOJG AC-1,ANCBIB ;ITERATION COUNTER
11464 044714 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
11465 044715 321 06 0 00 044704 JUMPL AC-1,ANCBIC ;LOOP ON ERROR SWITCH ^
11466
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 124
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0302
11467
11468
11469 ;TEST EQVI. CHECK C(AC) FOR CORRECT DATA
11470 ;RAN TO RAN1
11471
11472
11473 000010 AC=10
11474 044716 EQVIA: SETUP 200,1^
11475 000011 AC1=<AC+1>&17
11476 000012 AC2=<AC+2>&17
11477 000013 AC3=<AC+3>&17
11478 000014 AC4=<AC+4>&17
11479 000015 AC5=<AC+5>&17
11480 000006 RAN1=<AC-2>&17
11481 044716 201 07 0 00 044716 MOVEI AC-1,.
11482 044717 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
11483 044720 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
11484 044721 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
11485 044722 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
11486 044723 240 07 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
11487 044724 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
11488 044725 EQVIB: RANDOM^
11489 044725 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
11490 044726 270 10 0 00 060657 ADD AC,[142536475076]
11491 044727 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
11492 044730 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
11493 044731 200 12 0 00 061125 MOVE AC2,RAN ;SAVE E.
11494 044732 207 06 0 00 000010 EQVIC: MOVSS RAN1,AC ;MAKE C(AC) = SEC. RAN. NUM.
11495 044733 201 11 0 12 000000 MOVEI AC1,(AC2) ;SIMULATE
11496 044734 430 11 0 00 000010 XOR AC1,AC ;AN
11497 044735 450 11 0 00 000000 SETCA AC1, ;EQVI
11498 044736 445 10 0 12 000000 EQVI AC,(AC2) ;DO EQVI.
11499 044737 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
11500 044740 003 06 0 12 000000 ERRI RAN1,(AC2)
11501 LOOP EQVIB,EQVIC^
11502 044741 367 07 0 00 044725 SOJG AC-1,EQVIB ;ITERATION COUNTER
11503 044742 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
11504 044743 321 07 0 00 044732 JUMPL AC-1,EQVIC ;LOOP ON ERROR SWITCH ^
11505
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 125
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0303
11506
11507
11508 ;TEST SETCAI. CHECK C(AC) FOR CORRECT DATA
11509 ;RAN TO RAN1
11510
11511
11512 000011 AC=11
11513 044744 STCAI1: SETUP 200,1^
11514 000012 AC1=<AC+1>&17
11515 000013 AC2=<AC+2>&17
11516 000014 AC3=<AC+3>&17
11517 000015 AC4=<AC+4>&17
11518 000016 AC5=<AC+5>&17
11519 000007 RAN1=<AC-2>&17
11520 044744 201 10 0 00 044744 MOVEI AC-1,.
11521 044745 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
11522 044746 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
11523 044747 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
11524 044750 201 10 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
11525 044751 240 10 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
11526 044752 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
11527 044753 STCAI2: RANDOM^
11528 044753 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
11529 044754 270 11 0 00 060657 ADD AC,[142536475076]
11530 044755 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
11531 044756 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
11532 044757 200 13 0 00 061125 MOVE AC2,RAN ;SAVE E.
11533 044760 207 07 0 00 000011 STCAI3: MOVSS RAN1,AC ;MAKE C(AC) = SEC. RAN. NUM.
11534 044761 460 12 0 00 000011 SETCM AC1,AC ;SIMULATE SETCAI
11535 044762 451 11 0 13 000000 SETCAI AC,(AC2) ;DO SETCAI.
11536 044763 312 11 0 00 000012 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
11537 044764 003 07 0 13 000000 ERRI RAN1,(AC2)
11538 LOOP STCAI2,STCAI3^
11539 044765 367 10 0 00 044753 SOJG AC-1,STCAI2 ;ITERATION COUNTER
11540 044766 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
11541 044767 321 10 0 00 044760 JUMPL AC-1,STCAI3 ;LOOP ON ERROR SWITCH ^
11542
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 126
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0304
11543
11544
11545 ;TEST ORCAI. CHECK C(AC) FOR CORRECT DATA
11546 ;RAN TO RAN1
11547
11548
11549 000012 AC=12
11550 044770 ORCAI1: SETUP 200,1^
11551 000013 AC1=<AC+1>&17
11552 000014 AC2=<AC+2>&17
11553 000015 AC3=<AC+3>&17
11554 000016 AC4=<AC+4>&17
11555 000017 AC5=<AC+5>&17
11556 000010 RAN1=<AC-2>&17
11557 044770 201 11 0 00 044770 MOVEI AC-1,.
11558 044771 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
11559 044772 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
11560 044773 202 11 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
11561 044774 201 11 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
11562 044775 240 11 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
11563 044776 240 11 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
11564 044777 ORCAI2: RANDOM^
11565 044777 200 12 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
11566 045000 270 12 0 00 060657 ADD AC,[142536475076]
11567 045001 241 12 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
11568 045002 447 12 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
11569 045003 200 14 0 00 061125 MOVE AC2,RAN ;SAVE E.
11570 045004 207 10 0 00 000012 ORCAI3: MOVSS RAN1,AC ;MAKE C(AC) = SEC. RAN. NUM.
11571 045005 201 13 0 14 000000 MOVEI AC1,(AC2) ;SIMULATE
11572 045006 404 13 0 00 000012 AND AC1,AC ;AN
11573 045007 430 13 0 00 000012 XOR AC1,AC ;ORCAI
11574 045010 450 13 0 00 000000 SETCA AC1, ;INST.
11575 045011 455 12 0 14 000000 ORCAI AC,(AC2) ;DO ORCAI.
11576 045012 312 12 0 00 000013 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
11577 045013 003 10 0 14 000000 ERRI RAN1,(AC2)
11578 LOOP ORCAI2,ORCAI3^
11579 045014 367 11 0 00 044777 SOJG AC-1,ORCAI2 ;ITERATION COUNTER
11580 045015 200 12 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
11581 045016 321 11 0 00 045004 JUMPL AC-1,ORCAI3 ;LOOP ON ERROR SWITCH ^
11582
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 127
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0305
11583
11584
11585 ;TEST SETCMI. CHECK C(AC) FOR CORRECT DATA
11586 ;RAN TO RAN1
11587
11588
11589 000013 AC=13
11590 045017 STCMI1: SETUP 200,1^
11591 000014 AC1=<AC+1>&17
11592 000015 AC2=<AC+2>&17
11593 000016 AC3=<AC+3>&17
11594 000017 AC4=<AC+4>&17
11595 000000 AC5=<AC+5>&17
11596 000011 RAN1=<AC-2>&17
11597 045017 201 12 0 00 045017 MOVEI AC-1,.
11598 045020 202 12 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
11599 045021 201 12 0 00 000012 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
11600 045022 202 12 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
11601 045023 201 12 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
11602 045024 240 12 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
11603 045025 240 12 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
11604 045026 STCMI2: RANDOM^
11605 045026 200 13 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
11606 045027 270 13 0 00 060657 ADD AC,[142536475076]
11607 045030 241 13 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
11608 045031 447 13 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
11609 045032 200 15 0 00 061125 MOVE AC2,RAN ;SAVE E.
11610 045033 207 11 0 00 000013 STCMI3: MOVSS RAN1,AC ;MAKE C(AC) = SEC. RAN. NUM.
11611 045034 201 14 0 15 000000 MOVEI AC1,(AC2) ;SIMULATE
11612 045035 450 14 0 00 000000 SETCA AC1, ;A SETCMI
11613 045036 461 13 0 15 000000 SETCMI AC,(AC2) ;DO SETCMI.
11614 045037 312 13 0 00 000014 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
11615 045040 003 11 0 15 000000 ERRI RAN1,(AC2)
11616 LOOP STCMI2,STCMI3^
11617 045041 367 12 0 00 045026 SOJG AC-1,STCMI2 ;ITERATION COUNTER
11618 045042 200 13 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
11619 045043 321 12 0 00 045033 JUMPL AC-1,STCMI3 ;LOOP ON ERROR SWITCH ^
11620
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 128
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0306
11621
11622
11623 ;TEST ORCMI. CHECK C(AC) FOR CORRECT DATA
11624 ;RAN TO RAN1
11625
11626
11627 000014 AC=14
11628 045044 ORCMI1: SETUP 200,1^
11629 000015 AC1=<AC+1>&17
11630 000016 AC2=<AC+2>&17
11631 000017 AC3=<AC+3>&17
11632 000000 AC4=<AC+4>&17
11633 000001 AC5=<AC+5>&17
11634 000012 RAN1=<AC-2>&17
11635 045044 201 13 0 00 045044 MOVEI AC-1,.
11636 045045 202 13 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
11637 045046 201 13 0 00 000013 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
11638 045047 202 13 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
11639 045050 201 13 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
11640 045051 240 13 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
11641 045052 240 13 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
11642 045053 ORCMI2: RANDOM^
11643 045053 200 14 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
11644 045054 270 14 0 00 060657 ADD AC,[142536475076]
11645 045055 241 14 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
11646 045056 447 14 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
11647 045057 201 16 0 00 061125 MOVEI AC2,RAN ;SAVE E.
11648 045060 207 12 0 00 000014 ORCMI3: MOVSS RAN1,AC ;MAKE C(AC) = SEC. RAN. NUM.
11649 045061 201 15 0 16 000000 MOVEI AC1,(AC2) ;SIMULATE
11650 045062 420 15 0 00 000014 ANDCM AC1,AC ;AN
11651 045063 450 15 0 00 000000 SETCA AC1, ;ORCMI
11652 045064 465 14 0 16 000000 ORCMI AC,(AC2) ;DO ORCMI.
11653 045065 312 14 0 00 000015 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
11654 045066 003 12 0 16 000000 ERRI RAN1,(AC2)
11655 LOOP ORCMI2,ORCMI3^
11656 045067 367 13 0 00 045053 SOJG AC-1,ORCMI2 ;ITERATION COUNTER
11657 045070 200 14 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
11658 045071 321 13 0 00 045060 JUMPL AC-1,ORCMI3 ;LOOP ON ERROR SWITCH ^
11659
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 129
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0307
11660
11661
11662 ;TEST ORCBI. CHECK C(AC) FOR CORRECT DATA
11663 ;RAN TO RAN1
11664
11665
11666 000005 AC=5
11667 045072 ORCBI1: SETUP 200,1^
11668 000006 AC1=<AC+1>&17
11669 000007 AC2=<AC+2>&17
11670 000010 AC3=<AC+3>&17
11671 000011 AC4=<AC+4>&17
11672 000012 AC5=<AC+5>&17
11673 000003 RAN1=<AC-2>&17
11674 045072 201 04 0 00 045072 MOVEI AC-1,.
11675 045073 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
11676 045074 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
11677 045075 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
11678 045076 201 04 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
11679 045077 240 04 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
11680 045100 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
11681 045101 ORCBI2: RANDOM^
11682 045101 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
11683 045102 270 05 0 00 060657 ADD AC,[142536475076]
11684 045103 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
11685 045104 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
11686 045105 200 07 0 00 061125 MOVE AC2,RAN ;SAVE E.
11687 045106 207 03 0 00 000005 ORCBI3: MOVSS RAN1,AC ;MAKE C(AC) = SEC. RAN. NUM.
11688 045107 201 06 0 07 000000 MOVEI AC1,(AC2) ;SIMULATE
11689 045110 410 06 0 00 000005 ANDCA AC1,AC ;AN
11690 045111 430 06 0 00 000005 XOR AC1,AC ;ORCBI
11691 045112 450 06 0 00 000000 SETCA AC1, ;INST.
11692 045113 471 05 0 07 000000 ORCBI AC,(AC2) ;DO ORCBI.
11693 045114 312 05 0 00 000006 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
11694 045115 003 03 0 07 000000 ERRI RAN1,(AC2)
11695 LOOP ORCBI2,ORCBI3^
11696 045116 367 04 0 00 045101 SOJG AC-1,ORCBI2 ;ITERATION COUNTER
11697 045117 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
11698 045120 321 04 0 00 045106 JUMPL AC-1,ORCBI3 ;LOOP ON ERROR SWITCH ^
11699
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 130
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0308
11700
11701
11702 ;TEST SETOI. CHECK C(AC) FOR CORRECT DATA
11703 ;RAN TO RAN1
11704
11705
11706 000006 AC=6
11707 045121 STOI1: SETUP 100,0^
11708 000007 AC1=<AC+1>&17
11709 000010 AC2=<AC+2>&17
11710 000011 AC3=<AC+3>&17
11711 000012 AC4=<AC+4>&17
11712 000013 AC5=<AC+5>&17
11713 000004 RAN1=<AC-2>&17
11714 045121 201 05 0 00 045121 MOVEI AC-1,.
11715 045122 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
11716 045123 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
11717 045124 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
11718 045125 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
11719 045126 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
11720 045127 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
11721 045130 STOI2: RANDOM^
11722 045130 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
11723 045131 270 06 0 00 060657 ADD AC,[142536475076]
11724 045132 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
11725 045133 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
11726 045134 200 10 0 00 061125 MOVE AC2,RAN ;SAVE E.
11727 045135 207 04 0 00 000006 STOI3: MOVSS RAN1,AC ;MAKE C(AC) = SEC. RAN. NUM.
11728 045136 475 06 0 10 000000 SETOI AC,(AC2) ;DO SETOI.
11729 045137 312 06 0 00 060662 CAME AC,[-1] ;C(AC) SHOULD=-1
11730 045140 003 04 0 10 000000 ERRI RAN1,(AC2)
11731 LOOP STOI2,STOI3^
11732 045141 367 05 0 00 045130 SOJG AC-1,STOI2 ;ITERATION COUNTER
11733 045142 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
11734 045143 321 05 0 00 045135 JUMPL AC-1,STOI3 ;LOOP ON ERROR SWITCH ^
11735
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 131
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0309
11736
11737
11738 ;TEST TRN, TRNA. CHECK FOR SKIP/NO SKIP AND
11739 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
11740
11741
11742 000010 AC=10
11743 045144 TRN1: SETUP 100,0^
11744 000011 AC1=<AC+1>&17
11745 000012 AC2=<AC+2>&17
11746 000013 AC3=<AC+3>&17
11747 000014 AC4=<AC+4>&17
11748 000015 AC5=<AC+5>&17
11749 000006 RAN1=<AC-2>&17
11750 045144 201 07 0 00 045144 MOVEI AC-1,.
11751 045145 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
11752 045146 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
11753 045147 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
11754 045150 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
11755 045151 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
11756 045152 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
11757 045153 TRN2: RANDOM^
11758 045153 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
11759 045154 270 10 0 00 060657 ADD AC,[142536475076]
11760 045155 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
11761 045156 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
11762 045157 600 10 0 00 000000 TRN3: TRN AC,0 ;SHOULD NOT SKIP
11763 045160 254 00 0 00 045162 JRST .+2
11764 045161 005 10 0 00 060674 ER AC,[ASCII /TST/];TRN SKIPPED.
11765 045162 604 10 0 00 000000 TRNA AC,0 ;SHOULD SKIP
11766 045163 005 10 0 00 060674 ER AC,[ASCII /TST/]
11767 045164 312 10 0 00 061125 CAME AC,RAN ;C(AC) SHOULD STILL=RAN
11768 045165 013 00 0 00 000000 EERRI ,0
11769 LOOP TRN2,TRN3^
11770 045166 367 07 0 00 045153 SOJG AC-1,TRN2 ;ITERATION COUNTER
11771 045167 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
11772 045170 321 07 0 00 045157 JUMPL AC-1,TRN3 ;LOOP ON ERROR SWITCH ^
11773
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 132
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0310
11774
11775
11776 ;TEST TRN, TRNA. CHECK FOR SKIP/NO SKIP AND
11777 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
11778
11779
11780 000011 AC=11
11781 045171 TRN4: SETUP 100,0^
11782 000012 AC1=<AC+1>&17
11783 000013 AC2=<AC+2>&17
11784 000014 AC3=<AC+3>&17
11785 000015 AC4=<AC+4>&17
11786 000016 AC5=<AC+5>&17
11787 000007 RAN1=<AC-2>&17
11788 045171 201 10 0 00 045171 MOVEI AC-1,.
11789 045172 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
11790 045173 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
11791 045174 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
11792 045175 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
11793 045176 240 10 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
11794 045177 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
11795 045200 TRN5: RANDOM^
11796 045200 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
11797 045201 270 11 0 00 060657 ADD AC,[142536475076]
11798 045202 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
11799 045203 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
11800 045204 403 12 0 00 000007 TRN6: SETZB AC1,RAN1 ;CLEAR C(AC).
11801 045205 600 12 0 11 000000 TRN AC1,(AC) ;SHOULD NOT SKIP.
11802 045206 254 00 0 00 045210 JRST .+2
11803 045207 005 12 0 00 060674 ER AC1,[ASCII /TST/];TRN SKIPPED.
11804 045210 604 12 0 11 000000 TRNA AC1,(AC) ;SHOULD SKIP.
11805 045211 005 12 0 00 060674 ER AC1,[ASCII /TST/]
11806 045212 312 12 0 00 060660 CAME AC1,[0] ;C(AC) SHOULD STILL=0
11807 045213 003 07 0 11 000000 ERRI RAN1,(AC)
11808 LOOP TRN5,TRN6^
11809 045214 367 10 0 00 045200 SOJG AC-1,TRN5 ;ITERATION COUNTER
11810 045215 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
11811 045216 321 10 0 00 045204 JUMPL AC-1,TRN6 ;LOOP ON ERROR SWITCH ^
11812
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 133
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0311
11813
11814
11815 ;TEST TRN, TRNA. CHECK FOR SKIP/NO SKIP AND
11816 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
11817
11818
11819 000002 AC=2
11820 045217 TRN7: SETUP 100,0^
11821 000003 AC1=<AC+1>&17
11822 000004 AC2=<AC+2>&17
11823 000005 AC3=<AC+3>&17
11824 000006 AC4=<AC+4>&17
11825 000007 AC5=<AC+5>&17
11826 000000 RAN1=<AC-2>&17
11827 045217 201 01 0 00 045217 MOVEI AC-1,.
11828 045220 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
11829 045221 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
11830 045222 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
11831 045223 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
11832 045224 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
11833 045225 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
11834 045226 TRN8: RANDOM^
11835 045226 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
11836 045227 270 02 0 00 060657 ADD AC,[142536475076]
11837 045230 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
11838 045231 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
11839 045232 200 03 0 00 000002 TRN9: MOVE AC1,AC ;MAKE "E"=C(AC)
11840 045233 600 02 0 03 000000 TRN AC,(AC1) ;SHOULD NOT SKIP.
11841 045234 254 00 0 00 045236 JRST .+2
11842 045235 005 02 0 00 060674 ER AC,[ASCII /TST/];TRN SKIPPED.
11843 045236 604 02 0 03 000000 TRNA AC,(AC1) ;SHOULD ALWAYS SKIP.
11844 045237 005 02 0 00 060674 ER AC,[ASCII /TST/]
11845 045240 312 02 0 00 061125 CAME AC,RAN ;C(AC) SHOULD NOT CHANGE
11846 045241 003 03 0 03 000000 ERRI AC1,(AC1)
11847 LOOP TRN8,TRN9^
11848 045242 367 01 0 00 045226 SOJG AC-1,TRN8 ;ITERATION COUNTER
11849 045243 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
11850 045244 321 01 0 00 045232 JUMPL AC-1,TRN9 ;LOOP ON ERROR SWITCH ^
11851
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 134
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0312
11852
11853
11854 ;TEST TRN,TRNA. CHECK FOR SKIP/NO SKIP AND
11855 ;CORRECT DATA IN AC FOR RAN1 TO RAN CONDITION
11856
11857
11858 000003 AC=3
11859 045245 TRNA1: SETUP 100,0^
11860 000004 AC1=<AC+1>&17
11861 000005 AC2=<AC+2>&17
11862 000006 AC3=<AC+3>&17
11863 000007 AC4=<AC+4>&17
11864 000010 AC5=<AC+5>&17
11865 000001 RAN1=<AC-2>&17
11866 045245 201 02 0 00 045245 MOVEI AC-1,.
11867 045246 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
11868 045247 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
11869 045250 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
11870 045251 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
11871 045252 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
11872 045253 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
11873 045254 TRNA2: RANDOM^
11874 045254 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
11875 045255 270 03 0 00 060657 ADD AC,[142536475076]
11876 045256 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
11877 045257 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
11878 045260 204 04 0 00 000003 TRNA3: MOVS AC1,AC ;MAKE "E"=DIFFERENT RAN NUM
11879 045261 600 03 0 04 000000 TRN AC,(AC1) ;SHOULD NOT SKIP.
11880 045262 254 00 0 00 045264 JRST .+2
11881 045263 005 03 0 00 060674 ER AC,[ASCII /TST/];TRN SKIPPED.
11882 045264 604 03 0 04 000000 TRNA AC,(AC1) ;SHOULD SKIP.
11883 045265 005 03 0 00 060674 ER AC,[ASCII /TST/]
11884 045266 312 03 0 00 061125 CAME AC,RAN ;C(AC) SHOULD NOT CHANGE
11885 045267 013 00 0 04 000000 EERRI ,(AC1)
11886 LOOP TRNA2,TRNA3^
11887 045270 367 02 0 00 045254 SOJG AC-1,TRNA2 ;ITERATION COUNTER
11888 045271 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
11889 045272 321 02 0 00 045260 JUMPL AC-1,TRNA3 ;LOOP ON ERROR SWITCH ^
11890
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 135
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0313
11891
11892
11893 ;TEST TRNE,TRNN. CHECK FOR SKIP/NO SKIP AND
11894 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
11895
11896
11897 000004 AC=4
11898 045273 TRNE1A: SETUP 100,0^
11899 000005 AC1=<AC+1>&17
11900 000006 AC2=<AC+2>&17
11901 000007 AC3=<AC+3>&17
11902 000010 AC4=<AC+4>&17
11903 000011 AC5=<AC+5>&17
11904 000002 RAN1=<AC-2>&17
11905 045273 201 03 0 00 045273 MOVEI AC-1,.
11906 045274 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
11907 045275 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
11908 045276 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
11909 045277 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
11910 045300 240 03 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
11911 045301 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
11912 045302 TRNE2A: RANDOM^
11913 045302 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
11914 045303 270 04 0 00 060657 ADD AC,[142536475076]
11915 045304 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
11916 045305 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
11917 045306 606 04 0 00 000000 TRNE3A: TRNN AC,0 ;E+C(AC)R=0. NO SKIP
11918 045307 254 00 0 00 045311 JRST .+2
11919 045310 005 04 0 00 060674 ER AC,[ASCII /TST/];TRNN SKIPPED.
11920 045311 602 04 0 00 000000 TRNE AC,0 ;E+C(AC)R = 0...SKIP.
11921 045312 005 04 0 00 060674 ER AC,[ASCII /TST/]
11922 045313 312 04 0 00 061125 CAME AC,RAN ;C(AC) SHOULD NOT CHANGE
11923 045314 013 00 0 00 000000 EERRI ,0
11924 LOOP TRNE2A,TRNE3A^
11925 045315 367 03 0 00 045302 SOJG AC-1,TRNE2A ;ITERATION COUNTER
11926 045316 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
11927 045317 321 03 0 00 045306 JUMPL AC-1,TRNE3A ;LOOP ON ERROR SWITCH ^
11928
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 136
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0314
11929
11930
11931 ;TEST TRNE, TRNN. CHECK FOR SKIP/NO SKIP AND
11932 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
11933
11934
11935 000005 AC=5
11936 045320 TRNE1B: SETUP 100,0^
11937 000006 AC1=<AC+1>&17
11938 000007 AC2=<AC+2>&17
11939 000010 AC3=<AC+3>&17
11940 000011 AC4=<AC+4>&17
11941 000012 AC5=<AC+5>&17
11942 000003 RAN1=<AC-2>&17
11943 045320 201 04 0 00 045320 MOVEI AC-1,.
11944 045321 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
11945 045322 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
11946 045323 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
11947 045324 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
11948 045325 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
11949 045326 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
11950 045327 TRNE2B: RANDOM^
11951 045327 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
11952 045330 270 05 0 00 060657 ADD AC,[142536475076]
11953 045331 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
11954 045332 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
11955 045333 403 06 0 00 000003 TRNE3B: SETZB AC1,RAN1 ;CLEAR C(AC).
11956 045334 606 06 0 05 000000 TRNN AC1,(AC) ;E+C(AC)R = 0...NO SKIP.
11957 045335 254 00 0 00 045337 JRST .+2
11958 045336 005 06 0 00 060674 ER AC1,[ASCII /TST/];TRNN SKIPPED.
11959 045337 602 06 0 05 000000 TRNE AC1,(AC) ;E+C(AC)R = 0...SKIP.
11960 045340 005 06 0 00 060674 ER AC1,[ASCII /TST/]
11961 045341 312 06 0 00 060660 CAME AC1,[0] ;C(AC) SHOULD STILL=0
11962 045342 003 03 0 05 000000 ERRI RAN1,(AC)
11963 LOOP TRNE2B,TRNE3B^
11964 045343 367 04 0 00 045327 SOJG AC-1,TRNE2B ;ITERATION COUNTER
11965 045344 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
11966 045345 321 04 0 00 045333 JUMPL AC-1,TRNE3B ;LOOP ON ERROR SWITCH ^
11967
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 137
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0315
11968
11969
11970 ;TEST TRNE, TRNN. CHECK FOR SKIP/NO SKIP AND
11971 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION
11972
11973
11974 000006 AC=6
11975 045346 TRNE1C: SETUP 100,0^
11976 000007 AC1=<AC+1>&17
11977 000010 AC2=<AC+2>&17
11978 000011 AC3=<AC+3>&17
11979 000012 AC4=<AC+4>&17
11980 000013 AC5=<AC+5>&17
11981 000004 RAN1=<AC-2>&17
11982 045346 201 05 0 00 045346 MOVEI AC-1,.
11983 045347 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
11984 045350 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
11985 045351 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
11986 045352 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
11987 045353 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
11988 045354 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
11989 045355 TRNE2C: RANDOM^
11990 045355 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
11991 045356 270 06 0 00 060657 ADD AC,[142536475076]
11992 045357 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
11993 045360 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
11994 045361 435 06 0 00 000002 TRNE3C: IORI AC,2 ;MAKE SURE C(AC)R HAS A BIT SET
11995 045362 200 04 0 00 000006 MOVE RAN1,AC ;SAVE C(AC) FOR FUTURE COMPARE.
11996 045363 602 06 0 00 777777 TRNE AC,-1 ;E+C(AC)R NOT=0. NO SKIP
11997 045364 254 00 0 00 045366 JRST .+2
11998 045365 005 06 0 00 060674 ER AC,[ASCII /TST/];TRNE SKIPPED.
11999 045366 606 06 0 00 777777 TRNN AC,-1 ;E+C(AC)R NOT=0. SKIP
12000 045367 005 06 0 00 060674 ER AC,[ASCII /TST/]
12001 045370 312 06 0 00 000004 CAME AC,RAN1 ;C(AC) SHOULD NEVER CHANGE.
12002 045371 003 04 0 00 777777 ERRI RAN1,-1
12003 LOOP TRNE2C,TRNE3C^
12004 045372 367 05 0 00 045355 SOJG AC-1,TRNE2C ;ITERATION COUNTER
12005 045373 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
12006 045374 321 05 0 00 045361 JUMPL AC-1,TRNE3C ;LOOP ON ERROR SWITCH ^
12007
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 138
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0316
12008
12009
12010 ;TEST TRNE, TRNN. CHECK FOR SKIP/NO SKIP AND
12011 ;CORRECT DATA IN AC FOR RAN TO -1 CONDITION.
12012
12013
12014 000007 AC=7
12015 045375 TRNE1D: SETUP 100,0^
12016 000010 AC1=<AC+1>&17
12017 000011 AC2=<AC+2>&17
12018 000012 AC3=<AC+3>&17
12019 000013 AC4=<AC+4>&17
12020 000014 AC5=<AC+5>&17
12021 000005 RAN1=<AC-2>&17
12022 045375 201 06 0 00 045375 MOVEI AC-1,.
12023 045376 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
12024 045377 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
12025 045400 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
12026 045401 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
12027 045402 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
12028 045403 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
12029 045404 TRNE2D: RANDOM^
12030 045404 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
12031 045405 270 07 0 00 060657 ADD AC,[142536475076]
12032 045406 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
12033 045407 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
12034 045410 435 07 0 00 000001 TRNE3D: IORI AC,1 ;MAKE SURE E HAS A BIT.
12035 045411 477 10 0 00 000005 SETOB AC1,RAN1 ;MAKE C(AC) = -1.
12036 045412 602 10 0 07 000000 TRNE AC1,(AC) ;E+C(AC)R NOT = 0...NO SKIP.
12037 045413 254 00 0 00 045415 JRST .+2
12038 045414 005 10 0 00 060674 ER AC1,[ASCII /TST/];TRNE SKIPPED.
12039 045415 606 10 0 07 000000 TRNN AC1,(AC) ;E+C(AC)R NOT = 0...SKIP.
12040 045416 005 10 0 00 060674 ER AC1,[ASCII /TST/]
12041 045417 312 10 0 00 060662 CAME AC1,[-1] ;C(AC) SHOULD STILL = A -1.
12042 045420 003 05 0 07 000000 ERRI RAN1,(AC)
12043 LOOP TRNE2D,TRNE3D^
12044 045421 367 06 0 00 045404 SOJG AC-1,TRNE2D ;ITERATION COUNTER
12045 045422 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
12046 045423 321 06 0 00 045410 JUMPL AC-1,TRNE3D ;LOOP ON ERROR SWITCH ^
12047
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 139
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0317
12048
12049
12050 ;TEST TRNE,TRNN. CHECK FOR SKIP/NO SKIP AND
12051 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
12052
12053
12054 000010 AC=10
12055 045424 TRNE1E: SETUP 100,0^
12056 000011 AC1=<AC+1>&17
12057 000012 AC2=<AC+2>&17
12058 000013 AC3=<AC+3>&17
12059 000014 AC4=<AC+4>&17
12060 000015 AC5=<AC+5>&17
12061 000006 RAN1=<AC-2>&17
12062 045424 201 07 0 00 045424 MOVEI AC-1,.
12063 045425 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
12064 045426 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
12065 045427 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
12066 045430 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
12067 045431 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
12068 045432 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
12069 045433 TRNE2E: RANDOM^
12070 045433 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
12071 045434 270 10 0 00 060657 ADD AC,[142536475076]
12072 045435 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
12073 045436 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
12074 045437 435 10 0 00 000004 TRNE3E: IORI AC,4 ;MAKE SURE C(AC)R HAS A BIT
12075 045440 200 11 0 00 000010 MOVE AC1,AC ;MAKE E=C(AC).
12076 045441 602 10 0 11 000000 TRNE AC,(AC1) ;E + C(AC)R NOT = 0...NO SKIP.
12077 045442 254 00 0 00 045444 JRST .+2
12078 045443 005 10 0 00 060674 ER AC,[ASCII /TST/];TRNE SKIPPED.
12079 045444 606 10 0 11 000000 TRNN AC,(AC1) ;E + C(AC)R NOT = 0...SKIP.
12080 045445 005 10 0 00 060674 ER AC,[ASCII /TST/]
12081 045446 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD = ORIG C(AC).
12082 045447 003 11 0 11 000000 ERRI AC1,(AC1)
12083 LOOP TRNE2E,TRNE3E^
12084 045450 367 07 0 00 045433 SOJG AC-1,TRNE2E ;ITERATION COUNTER
12085 045451 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
12086 045452 321 07 0 00 045437 JUMPL AC-1,TRNE3E ;LOOP ON ERROR SWITCH ^
12087
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 140
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0318
12088
12089
12090 ;TEST TRNE,TRNN. CHECK FOR SKIP/NO SKIP AND
12091 ;CORRECT DATA IN AC FOR NOT RAN TO RAN CONDITION.
12092
12093
12094 000011 AC=11
12095 045453 TRNE1F: SETUP 100,0^
12096 000012 AC1=<AC+1>&17
12097 000013 AC2=<AC+2>&17
12098 000014 AC3=<AC+3>&17
12099 000015 AC4=<AC+4>&17
12100 000016 AC5=<AC+5>&17
12101 000007 RAN1=<AC-2>&17
12102 045453 201 10 0 00 045453 MOVEI AC-1,.
12103 045454 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
12104 045455 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
12105 045456 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
12106 045457 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
12107 045460 240 10 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
12108 045461 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
12109 045462 TRNE2F: RANDOM^
12110 045462 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
12111 045463 270 11 0 00 060657 ADD AC,[142536475076]
12112 045464 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
12113 045465 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
12114 045466 460 12 0 00 000011 TRNE3F: SETCM AC1,AC ;MAKE "E" = 1'S COMP OF C(AC).
12115 045467 606 11 0 12 000000 TRNN AC,(AC1) ;E+C(AC)R = 0...NO SKIP.
12116 045470 254 00 0 00 045472 JRST .+2
12117 045471 005 11 0 00 060674 ER AC,[ASCII /TST/];TRNN SKIPPED.
12118 045472 602 11 0 12 000000 TRNE AC,(AC1) ;E + C(AC)R = 0...SKIP.
12119 045473 005 11 0 00 060674 ER AC,[ASCII /TST/]
12120 045474 312 11 0 00 061125 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
12121 045475 013 00 0 12 000000 EERRI ,(AC1)
12122 LOOP TRNE2F,TRNE3F^
12123 045476 367 10 0 00 045462 SOJG AC-1,TRNE2F ;ITERATION COUNTER
12124 045477 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
12125 045500 321 10 0 00 045466 JUMPL AC-1,TRNE3F ;LOOP ON ERROR SWITCH ^
12126
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 141
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0319
12127
12128
12129 ;TEST TRZ, TRZA. CHECK FOR SKIP/NO SKIP AND
12130 ;CORRECT DATA IN AC FOR NOT RAN TO RAN CONDITION
12131
12132
12133 000012 AC=12
12134 045501 TRZA1: SETUP 100,0^
12135 000013 AC1=<AC+1>&17
12136 000014 AC2=<AC+2>&17
12137 000015 AC3=<AC+3>&17
12138 000016 AC4=<AC+4>&17
12139 000017 AC5=<AC+5>&17
12140 000010 RAN1=<AC-2>&17
12141 045501 201 11 0 00 045501 MOVEI AC-1,.
12142 045502 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
12143 045503 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
12144 045504 202 11 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
12145 045505 201 11 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
12146 045506 240 11 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
12147 045507 240 11 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
12148 045510 TRZA2: RANDOM^
12149 045510 200 12 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
12150 045511 270 12 0 00 060657 ADD AC,[142536475076]
12151 045512 241 12 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
12152 045513 447 12 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
12153 045514 460 13 0 00 000012 TRZA3: SETCM AC1,AC ;MAKE "E"=COMP OF C(AC)
12154 045515 620 12 0 13 000000 TRZ AC,(AC1) ;SHOULD NOT SKIP.
12155 045516 254 00 0 00 045520 JRST .+2
12156 045517 005 12 0 00 060674 ER AC,[ASCII /TST/];TRZ SKIPPED.
12157 045520 624 12 0 13 000000 TRZA AC,(AC1) ;SHOULD ALWAYS SKIP.
12158 045521 005 12 0 00 060674 ER AC,[ASCII /TST/]
12159 045522 312 12 0 00 061125 CAME AC,RAN ;C(AC) SHOULD NOT CHANGE
12160 045523 013 00 0 13 000000 EERRI ,(AC1)
12161 LOOP TRZA2,TRZA3^
12162 045524 367 11 0 00 045510 SOJG AC-1,TRZA2 ;ITERATION COUNTER
12163 045525 200 12 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
12164 045526 321 11 0 00 045514 JUMPL AC-1,TRZA3 ;LOOP ON ERROR SWITCH ^
12165
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 142
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0320
12166
12167
12168 ;TEST TRZ,TRZA. CHECK FOR SKIP/NO SKIP AND
12169 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
12170
12171
12172 000013 AC=13
12173 045527 TRZAA: SETUP 100,0^
12174 000014 AC1=<AC+1>&17
12175 000015 AC2=<AC+2>&17
12176 000016 AC3=<AC+3>&17
12177 000017 AC4=<AC+4>&17
12178 000000 AC5=<AC+5>&17
12179 000011 RAN1=<AC-2>&17
12180 045527 201 12 0 00 045527 MOVEI AC-1,.
12181 045530 202 12 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
12182 045531 201 12 0 00 000012 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
12183 045532 202 12 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
12184 045533 201 12 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
12185 045534 240 12 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
12186 045535 240 12 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
12187 045536 TRZAB: RANDOM^
12188 045536 200 13 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
12189 045537 270 13 0 00 060657 ADD AC,[142536475076]
12190 045540 241 13 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
12191 045541 447 13 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
12192 045542 200 14 0 00 000013 MOVE AC1,AC ;MAKE "E"=C(AC)
12193 045543 200 15 0 00 000013 TRZAC: MOVE AC2,AC ;SIMULATE
12194 045544 404 15 0 00 060672 AND AC2,[XWD -1,0] ;A (TRZ AC,-1).
12195 045545 620 13 0 14 000000 TRZ AC,(AC1) ;SHOULD NOT SKIP.
12196 045546 254 00 0 00 045550 JRST .+2
12197 045547 005 13 0 00 060674 ER AC,[ASCII /TST/];TRZ SKIPPED.
12198 045550 624 13 0 14 000000 TRZA AC,(AC1) ;SHOULD ALWAYS SKIP.
12199 045551 005 13 0 00 060674 ER AC,[ASCII /TST/]
12200 045552 312 13 0 00 000015 CAME AC,AC2 ;C(AC) SHOULD=SIM ANS
12201 045553 003 14 0 14 000000 ERRI AC1,(AC1)
12202 LOOP TRZAB,TRZAC^
12203 045554 367 12 0 00 045536 SOJG AC-1,TRZAB ;ITERATION COUNTER
12204 045555 200 13 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
12205 045556 321 12 0 00 045543 JUMPL AC-1,TRZAC ;LOOP ON ERROR SWITCH ^
12206
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 143
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0321
12207
12208
12209 ;TEST TRZ,TRZA. CHECK FOR SKIP/NO SKIP AND
12210 ;CORRECT DATA IN AC FOR RAN1 TO RAN CONDITION
12211
12212
12213 000014 AC=14
12214 045557 TRZB1: SETUP 100,0^
12215 000015 AC1=<AC+1>&17
12216 000016 AC2=<AC+2>&17
12217 000017 AC3=<AC+3>&17
12218 000000 AC4=<AC+4>&17
12219 000001 AC5=<AC+5>&17
12220 000012 RAN1=<AC-2>&17
12221 045557 201 13 0 00 045557 MOVEI AC-1,.
12222 045560 202 13 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
12223 045561 201 13 0 00 000013 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
12224 045562 202 13 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
12225 045563 201 13 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
12226 045564 240 13 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
12227 045565 240 13 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
12228 045566 TRZB2: RANDOM^
12229 045566 200 14 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
12230 045567 270 14 0 00 060657 ADD AC,[142536475076]
12231 045570 241 14 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
12232 045571 447 14 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
12233 045572 204 15 0 00 000014 TRZB3: MOVS AC1,AC ;MAKE "E"=DIFFERENT RAN NUM
12234 045573 201 16 0 15 000000 MOVEI AC2,(AC1) ;SIMULATE
12235 045574 464 16 0 00 000014 ORCM AC2,AC ;A
12236 045575 450 16 0 00 000000 SETCA AC2, ;TRZ
12237 045576 620 14 0 15 000000 TRZ AC,(AC1) ;SHOULD NOT SKIP.
12238 045577 312 14 0 00 000016 CAME AC,AC2 ;C(AC) SHOULD=SIM ANS
12239 045600 013 00 0 15 000000 EERRI ,(AC1)
12240 045601 200 14 0 00 061125 MOVE AC,RAN ;RESTORE AC
12241 045602 624 14 0 15 000000 TRZA AC,(AC1) ;SHOULD ALWAYS SKIP.
12242 045603 005 14 0 00 060674 ER AC,[ASCII /TST/]
12243 045604 312 14 0 00 000016 CAME AC,AC2 ;C(AC) SHOULD=SIM ANS
12244 045605 013 00 0 15 000000 EERRI ,(AC1)
12245 LOOP TRZB2,TRZB3^
12246 045606 367 13 0 00 045566 SOJG AC-1,TRZB2 ;ITERATION COUNTER
12247 045607 200 14 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
12248 045610 321 13 0 00 045572 JUMPL AC-1,TRZB3 ;LOOP ON ERROR SWITCH ^
12249
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 144
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0322
12250
12251
12252 ;TEST TRZE, TRZN. CHECK FOR SKIP/NO SKIP AND
12253 ;CORRECT DATA IN AC FOR A ROTATING MASK BIT WITH SAME BIT
12254 ;CLEARED IN AC.
12255
12256
12257 000005 AC=5
12258 045611 TRZE1: SETUP 40,0^
12259 000006 AC1=<AC+1>&17
12260 000007 AC2=<AC+2>&17
12261 000010 AC3=<AC+3>&17
12262 000011 AC4=<AC+4>&17
12263 000012 AC5=<AC+5>&17
12264 000003 RAN1=<AC-2>&17
12265 045611 201 04 0 00 045611 MOVEI AC-1,.
12266 045612 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
12267 045613 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
12268 045614 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
12269 045615 201 04 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
12270 045616 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
12271 045617 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
12272 045620 201 06 0 00 000001 MOVEI AC1,1 ;SETUP E TO HAVE A MASK BIT.
12273 045621 TRZE2: RANDOM^
12274 045621 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
12275 045622 270 05 0 00 060657 ADD AC,[142536475076]
12276 045623 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
12277 045624 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
12278 045625 241 06 0 00 000001 ROT AC1,1 ;ROT TO TEST NEXT BIT
12279 045626 316 06 0 00 060714 CAMN AC1,[XWD 1,0] ;HAS THE BIT GONE TO THE LEFT SIDE?
12280 045627 201 06 0 00 000001 MOVEI AC1,1 ;YES, RESTORE E
12281 045630 420 05 0 00 000006 TRZE3: ANDCM AC,AC1 ;CLEAR MASK BIT IN AC
12282 045631 200 07 0 00 000005 MOVE AC2,AC ;SAVE FOR COMPARE
12283 045632 626 05 0 06 000000 TRZN AC,(AC1) ;E+C(AC)R = 0...NO SKIP.
12284 045633 254 00 0 00 045635 JRST .+2
12285 045634 005 05 0 00 060674 ER AC,[ASCII /TST/];TRZN SKIPPED.
12286 045635 622 05 0 06 000000 TRZE AC,(AC1) ;E+C(AC)R = 0...SKIP.
12287 045636 005 05 0 00 060674 ER AC,[ASCII /TST/]
12288 045637 312 05 0 00 000007 CAME AC,AC2 ;C(AC) SHOULD NOT HAVE CHANGED
12289 045640 003 07 0 06 000000 ERRI AC2,(AC1)
12290 LOOP TRZE2,TRZE3^
12291 045641 367 04 0 00 045621 SOJG AC-1,TRZE2 ;ITERATION COUNTER
12292 045642 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
12293 045643 321 04 0 00 045630 JUMPL AC-1,TRZE3 ;LOOP ON ERROR SWITCH ^
12294
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 145
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0323
12295
12296
12297 ;TEST TRZE,TRZN. CHECK FOR SKIP/NO SKIP AND
12298 ;CORRECT DATA IN AC FOR A ROTATING MASK BIT WITH
12299 ;SAME BIT SET IN AC.
12300
12301
12302 000006 AC=6
12303 045644 TRZEA: SETUP 40,0^
12304 000007 AC1=<AC+1>&17
12305 000010 AC2=<AC+2>&17
12306 000011 AC3=<AC+3>&17
12307 000012 AC4=<AC+4>&17
12308 000013 AC5=<AC+5>&17
12309 000004 RAN1=<AC-2>&17
12310 045644 201 05 0 00 045644 MOVEI AC-1,.
12311 045645 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
12312 045646 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
12313 045647 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
12314 045650 201 05 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
12315 045651 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
12316 045652 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
12317 045653 201 07 0 00 000001 MOVEI AC1,1 ;SETUP "E" FOR ONE MASK BIT
12318 045654 TRZEB: RANDOM^
12319 045654 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
12320 045655 270 06 0 00 060657 ADD AC,[142536475076]
12321 045656 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
12322 045657 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
12323 045660 241 07 0 00 000001 ROT AC1,1 ;ROT BIT TO TEST NEXT BIT
12324 045661 316 07 0 00 060714 CAMN AC1,[XWD 1,0] ;IS BIT ON LEFT SIDE?
12325 045662 201 07 0 00 000001 MOVEI AC1,1 ;YES, RESTORE.
12326 045663 434 06 0 00 000007 TRZEC: IOR AC,AC1 ;SET MASK BIT IN AC
12327 045664 200 04 0 00 000006 MOVE RAN1,AC ;SAVE FOR PRINT IN CASE OF ERROR.
12328 045665 200 10 0 00 000006 MOVE AC2,AC ;SIMULATE
12329 045666 420 10 0 00 000007 ANDCM AC2,AC1 ;TRZ.
12330 045667 622 06 0 07 000000 TRZE AC,(AC1) ;E+C(AC)R NOT = 0...NO SKIP.
12331 045670 312 06 0 00 000010 CAME AC,AC2 ;C(AC) SHOULD = SIM. ANS.
12332 045671 003 04 0 07 000000 ERRI RAN1,(AC1)
12333 045672 200 06 0 00 000004 MOVE AC,RAN1 ;RESTORE AC.
12334 045673 626 06 0 07 000000 TRZN AC,(AC1) ;E+C(AC)R NOT = 0...SKIP.
12335 045674 005 06 0 00 060674 ER AC,[ASCII /TST/]
12336 045675 312 06 0 00 000010 CAME AC,AC2 ;C(AC) SHOULD=SIM ANS
12337 045676 003 04 0 07 000000 ERRI RAN1,(AC1)
12338 LOOP TRZEB,TRZEC^
12339 045677 367 05 0 00 045654 SOJG AC-1,TRZEB ;ITERATION COUNTER
12340 045700 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
12341 045701 321 05 0 00 045663 JUMPL AC-1,TRZEC ;LOOP ON ERROR SWITCH ^
12342
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 146
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0324
12343
12344
12345 ;TEST TRZE,TRZN. CHECK FOR SKIP/NO SKIP AND
12346 ;CORRECT DATA IN AC FOR A ROTATING MASK BIT IN AC
12347 ;AND SAME BIT CLEARED IN E.
12348
12349
12350 000007 AC=7
12351 045702 TRZNA: SETUP 40,0^
12352 000010 AC1=<AC+1>&17
12353 000011 AC2=<AC+2>&17
12354 000012 AC3=<AC+3>&17
12355 000013 AC4=<AC+4>&17
12356 000014 AC5=<AC+5>&17
12357 000005 RAN1=<AC-2>&17
12358 045702 201 06 0 00 045702 MOVEI AC-1,.
12359 045703 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
12360 045704 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
12361 045705 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
12362 045706 201 06 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
12363 045707 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
12364 045710 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
12365 045711 201 10 0 00 000001 MOVEI AC1,1 ;SETUP A MASK BIT
12366 045712 TRZNB: RANDOM^
12367 045712 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
12368 045713 270 07 0 00 060657 ADD AC,[142536475076]
12369 045714 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
12370 045715 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
12371 045716 241 10 0 00 000001 ROT AC1,1 ;ROT BIT TO TEST NEXT BIT
12372 045717 316 10 0 00 060714 CAMN AC1,[XWD 1,0] ;IS BIT ON LEFT SIDE?
12373 045720 201 10 0 00 000001 MOVEI AC1,1 ;YES, RESTORE AC
12374 045721 200 11 0 00 000010 MOVE AC2,AC1 ;SAVE FOR FUTURE COMPARE.
12375 045722 200 10 0 00 000011 TRZNC: MOVE AC1,AC2 ;RESTORE "AC" IN CASE OF ERROR
12376 045723 420 07 0 00 000010 ANDCM AC,AC1 ;CLEAR BIT IN "E"
12377 045724 626 10 0 07 000000 TRZN AC1,(AC) ;E+C(AC)R = 0...NO SKIP.
12378 045725 254 00 0 00 045727 JRST .+2
12379 045726 005 10 0 00 060674 ER AC1,[ASCII /TST/];TRZN SKIPPED.
12380 045727 622 10 0 07 000000 TRZE AC1,(AC) ;E+C(AC)R = 0...SKIP.
12381 045730 005 10 0 00 060674 ER AC1,[ASCII /TST/]
12382 045731 312 10 0 00 000011 CAME AC1,AC2 ;C(AC) SHOULD NOT CHANGE
12383 045732 003 11 0 07 000000 ERRI AC2,(AC)
12384 LOOP TRZNB,TRZNC^
12385 045733 367 06 0 00 045712 SOJG AC-1,TRZNB ;ITERATION COUNTER
12386 045734 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
12387 045735 321 06 0 00 045722 JUMPL AC-1,TRZNC ;LOOP ON ERROR SWITCH ^
12388
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 147
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0325
12389
12390
12391 ;TEST TRZE,TRZN. CHECK FOR SKIP/NO SKIP AND
12392 ;CORRECT DATA IN AC FOR A ROTATING MASK BIT
12393 ;IN AC AND SAME BIT SET IN E.
12394
12395
12396 000011 AC=11
12397 045736 TRZN1: SETUP 40,0^
12398 000012 AC1=<AC+1>&17
12399 000013 AC2=<AC+2>&17
12400 000014 AC3=<AC+3>&17
12401 000015 AC4=<AC+4>&17
12402 000016 AC5=<AC+5>&17
12403 000007 RAN1=<AC-2>&17
12404 045736 201 10 0 00 045736 MOVEI AC-1,.
12405 045737 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
12406 045740 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
12407 045741 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
12408 045742 201 10 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
12409 045743 240 10 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
12410 045744 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
12411 045745 201 12 0 00 000001 MOVEI AC1,1 ;SETUP A MASK BIT
12412 045746 TRZN2: RANDOM^
12413 045746 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
12414 045747 270 11 0 00 060657 ADD AC,[142536475076]
12415 045750 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
12416 045751 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
12417 045752 241 12 0 00 000001 ROT AC1,1 ;ROT BIT TO TEST NEXT BIT
12418 045753 316 12 0 00 060714 CAMN AC1,[XWD 1,0] ;IS BIT ON LEFT SIDE?
12419 045754 201 12 0 00 000001 MOVEI AC1,1 ;YES, RESTORE
12420 045755 200 13 0 00 000012 MOVE AC2,AC1 ;SAVE FOR FUTURE COMPARE
12421 045756 434 11 0 00 000012 TRZN3: IOR AC,AC1 ;SET MASK BIT IN E
12422 045757 622 12 0 11 000000 TRZE AC1,(AC) ;E+C(AC)R NOT = 0...NO SKIP.
12423 045760 312 12 0 00 060660 CAME AC1,[0] ;C(AC) SHOULD=0
12424 045761 003 13 0 11 000000 ERRI AC2,(AC)
12425 045762 200 12 0 00 000013 MOVE AC1,AC2 ;RESTORE MASK BIT
12426 045763 626 12 0 11 000000 TRZN AC1,(AC) ;E+C(AC)R NOT = 0...SKIP.
12427 045764 005 12 0 00 060674 ER AC1,[ASCII /TST/]
12428 045765 312 12 0 00 060660 CAME AC1,[0] ;C(AC) SHOULD=0
12429 045766 003 13 0 11 000000 ERRI AC2,(AC)
12430 045767 200 12 0 00 000013 MOVE AC1,AC2 ;RESTORE MASK BIT
12431 LOOP TRZN2,TRZN3^
12432 045770 367 10 0 00 045746 SOJG AC-1,TRZN2 ;ITERATION COUNTER
12433 045771 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
12434 045772 321 10 0 00 045756 JUMPL AC-1,TRZN3 ;LOOP ON ERROR SWITCH ^
12435
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 148
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0326
12436
12437
12438 ;TEST TRO,TROA. CHECK FOR SKIP/NO SKIP AND
12439 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
12440
12441
12442 000011 AC=11
12443 045773 TRO1: SETUP 100,0^
12444 000012 AC1=<AC+1>&17
12445 000013 AC2=<AC+2>&17
12446 000014 AC3=<AC+3>&17
12447 000015 AC4=<AC+4>&17
12448 000016 AC5=<AC+5>&17
12449 000007 RAN1=<AC-2>&17
12450 045773 201 10 0 00 045773 MOVEI AC-1,.
12451 045774 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
12452 045775 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
12453 045776 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
12454 045777 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
12455 046000 240 10 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
12456 046001 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
12457 046002 TRO2: RANDOM^
12458 046002 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
12459 046003 270 11 0 00 060657 ADD AC,[142536475076]
12460 046004 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
12461 046005 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
12462 046006 660 11 0 00 000000 TRO3: TRO AC,0 ;SHOULD NOT SKIP
12463 046007 254 00 0 00 046011 JRST .+2
12464 046010 005 11 0 00 060674 ER AC,[ASCII /TST/];TRO SKIPPED.
12465 046011 664 11 0 00 000000 TROA AC,0 ;SHOULD SKIP
12466 046012 005 11 0 00 060674 ER AC,[ASCII /TST/]
12467 046013 312 11 0 00 061125 CAME AC,RAN ;C(AC) SHOULD STILL=RAN NUM
12468 046014 013 00 0 00 000000 EERRI ,0
12469 LOOP TRO2,TRO3^
12470 046015 367 10 0 00 046002 SOJG AC-1,TRO2 ;ITERATION COUNTER
12471 046016 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
12472 046017 321 10 0 00 046006 JUMPL AC-1,TRO3 ;LOOP ON ERROR SWITCH ^
12473
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 149
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0327
12474
12475
12476 ;TEST TRO, TROA. CHECK FOR SKIP/NO SKIP AND
12477 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
12478
12479
12480 000002 AC=2
12481 046020 TRO4: SETUP 100,0^
12482 000003 AC1=<AC+1>&17
12483 000004 AC2=<AC+2>&17
12484 000005 AC3=<AC+3>&17
12485 000006 AC4=<AC+4>&17
12486 000007 AC5=<AC+5>&17
12487 000000 RAN1=<AC-2>&17
12488 046020 201 01 0 00 046020 MOVEI AC-1,.
12489 046021 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
12490 046022 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
12491 046023 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
12492 046024 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
12493 046025 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
12494 046026 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
12495 046027 TRO5: RANDOM^
12496 046027 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
12497 046030 270 02 0 00 060657 ADD AC,[142536475076]
12498 046031 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
12499 046032 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
12500 046033 403 03 0 00 000000 TRO6: SETZB AC1,RAN1 ;CLEAR C(AC).
12501 046034 200 04 0 00 000002 MOVE AC2,AC ;SIMULATE
12502 046035 405 04 0 00 777777 ANDI AC2,-1 ;A TRO
12503 046036 660 03 0 02 000000 TRO AC1,(AC) ;SHOULD NOT SKIP.
12504 046037 254 00 0 00 046041 JRST .+2
12505 046040 005 03 0 00 060674 ER AC1,[ASCII /TST/];TRO SKIPPED.
12506 046041 664 03 0 02 000000 TROA AC1,(AC) ;SHOULD ALWAYS SKIP.
12507 046042 005 03 0 00 060674 ER AC1,[ASCII /TST/]
12508 046043 312 03 0 00 000004 CAME AC1,AC2 ;C(AC) SHOULD=SIM ANS
12509 046044 003 00 0 02 000000 ERRI RAN1,(AC)
12510 LOOP TRO5,TRO6^
12511 046045 367 01 0 00 046027 SOJG AC-1,TRO5 ;ITERATION COUNTER
12512 046046 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
12513 046047 321 01 0 00 046033 JUMPL AC-1,TRO6 ;LOOP ON ERROR SWITCH ^
12514
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 150
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0328
12515
12516
12517 ;TEST TRO, TROA. CHECK FOR SKIP/NO SKIP AND
12518 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION
12519
12520
12521 000003 AC=3
12522 046050 TRO1A: SETUP 100,0^
12523 000004 AC1=<AC+1>&17
12524 000005 AC2=<AC+2>&17
12525 000006 AC3=<AC+3>&17
12526 000007 AC4=<AC+4>&17
12527 000010 AC5=<AC+5>&17
12528 000001 RAN1=<AC-2>&17
12529 046050 201 02 0 00 046050 MOVEI AC-1,.
12530 046051 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
12531 046052 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
12532 046053 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
12533 046054 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
12534 046055 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
12535 046056 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
12536 046057 TRO1B: RANDOM^
12537 046057 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
12538 046060 270 03 0 00 060657 ADD AC,[142536475076]
12539 046061 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
12540 046062 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
12541 046063 200 05 0 00 000003 TRO1C: MOVE AC2,AC ;SIMULATE
12542 046064 435 05 0 00 777777 IORI AC2,-1 ;ATRO
12543 046065 660 03 0 00 777777 TRO AC,-1 ;SHOULD NOT SKIP
12544 046066 254 00 0 00 046070 JRST .+2
12545 046067 005 03 0 00 060674 ER AC,[ASCII /TST/];TRO SKIPPED.
12546 046070 664 03 0 00 777777 TROA AC,-1 ;SHOULD SKIP
12547 046071 005 03 0 00 060674 ER AC,[ASCII /TST/]
12548 046072 312 03 0 00 000005 CAME AC,AC2 ;C(AC) SHOULD=SIM ANS
12549 046073 013 00 0 00 777777 EERRI ,-1
12550 LOOP TRO1B,TRO1C^
12551 046074 367 02 0 00 046057 SOJG AC-1,TRO1B ;ITERATION COUNTER
12552 046075 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
12553 046076 321 02 0 00 046063 JUMPL AC-1,TRO1C ;LOOP ON ERROR SWITCH ^
12554
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 151
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0329
12555
12556
12557 ;TEST TRO,TROA. CHECK FOR SKIP/NO SKIP AND
12558 ;CORRECT DATA IN AC FOR RAN TO -1 CONDITION.
12559
12560
12561 000004 AC=4
12562 046077 TRO1D: SETUP 100,0^
12563 000005 AC1=<AC+1>&17
12564 000006 AC2=<AC+2>&17
12565 000007 AC3=<AC+3>&17
12566 000010 AC4=<AC+4>&17
12567 000011 AC5=<AC+5>&17
12568 000002 RAN1=<AC-2>&17
12569 046077 201 03 0 00 046077 MOVEI AC-1,.
12570 046100 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
12571 046101 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
12572 046102 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
12573 046103 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
12574 046104 240 03 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
12575 046105 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
12576 046106 TRO1E: RANDOM^
12577 046106 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
12578 046107 270 04 0 00 060657 ADD AC,[142536475076]
12579 046110 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
12580 046111 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
12581 046112 477 05 0 00 000002 TRO1F: SETOB AC1,RAN1 ;SET C(AC) TO ALL ONES.
12582 046113 660 05 0 04 000000 TRO AC1,(AC) ;SHOULD NOT SKIP.
12583 046114 254 00 0 00 046116 JRST .+2
12584 046115 005 05 0 00 060674 ER AC1,[ASCII /TST/];TRO SKIPPED.
12585 046116 664 05 0 04 000000 TROA AC1,(AC) ;SHOULD ALWAYS SKIP.
12586 046117 005 05 0 00 060674 ER AC1,[ASCII /TST/]
12587 046120 312 05 0 00 060662 CAME AC1,[-1] ;C(AC) SHOULD STILL = -1.
12588 046121 003 02 0 04 000000 ERRI RAN1,(AC)
12589 LOOP TRO1E,TRO1F^
12590 046122 367 03 0 00 046106 SOJG AC-1,TRO1E ;ITERATION COUNTER
12591 046123 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
12592 046124 321 03 0 00 046112 JUMPL AC-1,TRO1F ;LOOP ON ERROR SWITCH ^
12593
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 152
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0330
12594
12595
12596 ;TEST TRO, TROA. CHECK FOR SKIP/NO SKIP AND
12597 ;CORRECT DATA IN AC FOR NOT RAN TO RAN CONDITION
12598
12599
12600 000005 AC=5
12601 046125 TROA1: SETUP 100,0^
12602 000006 AC1=<AC+1>&17
12603 000007 AC2=<AC+2>&17
12604 000010 AC3=<AC+3>&17
12605 000011 AC4=<AC+4>&17
12606 000012 AC5=<AC+5>&17
12607 000003 RAN1=<AC-2>&17
12608 046125 201 04 0 00 046125 MOVEI AC-1,.
12609 046126 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
12610 046127 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
12611 046130 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
12612 046131 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
12613 046132 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
12614 046133 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
12615 046134 TROA2: RANDOM^
12616 046134 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
12617 046135 270 05 0 00 060657 ADD AC,[142536475076]
12618 046136 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
12619 046137 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
12620 046140 460 06 0 00 000005 TROA3: SETCM AC1,AC ;MAKE "E" = COM C(AC)
12621 046141 200 07 0 00 000005 MOVE AC2,AC ;SIMULATE
12622 046142 410 07 0 00 060672 ANDCA AC2,[XWD-1,0] ;A
12623 046143 450 07 0 00 000000 SETCA AC2, ;TRO
12624 046144 660 05 0 06 000000 TRO AC,(AC1) ;SHOULD NOT SKIP.
12625 046145 254 00 0 00 046147 JRST .+2
12626 046146 005 05 0 00 060674 ER AC,[ASCII /TST/];TRO SKIPPED.
12627 046147 664 05 0 06 000000 TROA AC,(AC1) ;SHOULD ALWAYS SKIP.
12628 046150 005 05 0 00 060674 ER AC,[ASCII /TST/]
12629 046151 312 05 0 00 000007 CAME AC,AC2 ;C(AC) SHOULD=SIM ANS
12630 046152 013 00 0 06 000000 EERRI ,(AC1)
12631 LOOP TROA2,TROA3^
12632 046153 367 04 0 00 046134 SOJG AC-1,TROA2 ;ITERATION COUNTER
12633 046154 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
12634 046155 321 04 0 00 046140 JUMPL AC-1,TROA3 ;LOOP ON ERROR SWITCH ^
12635
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 153
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0331
12636
12637
12638 ;TEST TRO, TROA. CHECK FOR SKIP/NO SKIP AND
12639 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
12640
12641
12642 000006 AC=6
12643 046156 TROA4: SETUP 100,0^
12644 000007 AC1=<AC+1>&17
12645 000010 AC2=<AC+2>&17
12646 000011 AC3=<AC+3>&17
12647 000012 AC4=<AC+4>&17
12648 000013 AC5=<AC+5>&17
12649 000004 RAN1=<AC-2>&17
12650 046156 201 05 0 00 046156 MOVEI AC-1,.
12651 046157 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
12652 046160 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
12653 046161 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
12654 046162 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
12655 046163 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
12656 046164 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
12657 046165 TROA5: RANDOM^
12658 046165 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
12659 046166 270 06 0 00 060657 ADD AC,[142536475076]
12660 046167 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
12661 046170 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
12662 046171 200 07 0 00 000006 TROA6: MOVE AC1,AC ;MAKE E = C(AC)R.
12663 046172 660 06 0 07 000000 TRO AC,(AC1) ;SHOULD NOT SKIP.
12664 046173 254 00 0 00 046175 JRST .+2
12665 046174 005 06 0 00 060674 ER AC,[ASCII /TST/];TRO SKIPPED.
12666 046175 664 06 0 07 000000 TROA AC,(AC1) ;SHOULD ALWAYS SKIP.
12667 046176 005 06 0 00 060674 ER AC,[ASCII /TST/]
12668 046177 312 06 0 00 061125 CAME AC,RAN ;C(AC) SHOULD NOT CHANGE
12669 046200 003 07 0 07 000000 ERRI AC1,(AC1)
12670 LOOP TROA5,TROA6^
12671 046201 367 05 0 00 046165 SOJG AC-1,TROA5 ;ITERATION COUNTER
12672 046202 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
12673 046203 321 05 0 00 046171 JUMPL AC-1,TROA6 ;LOOP ON ERROR SWITCH ^
12674
12675
12676
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 154
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0332
12677
12678
12679 ;TEST TROE, TRON. CHECK FOR SKIP/ NO SKIP AND
12680 ;CORRECT DATA IN AC FOR A FLOATING MASK BIT
12681 ;WITH SAME BIT CLEARED IN AC.
12682
12683
12684 000007 AC=7
12685 046204 TROE1: SETUP 40,0^
12686 000010 AC1=<AC+1>&17
12687 000011 AC2=<AC+2>&17
12688 000012 AC3=<AC+3>&17
12689 000013 AC4=<AC+4>&17
12690 000014 AC5=<AC+5>&17
12691 000005 RAN1=<AC-2>&17
12692 046204 201 06 0 00 046204 MOVEI AC-1,.
12693 046205 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
12694 046206 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
12695 046207 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
12696 046210 201 06 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
12697 046211 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
12698 046212 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
12699 046213 201 10 0 00 000001 MOVEI AC1,1 ;SETUP E TO HAVE A MASK BIT.
12700 046214 TROE2: RANDOM^
12701 046214 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
12702 046215 270 07 0 00 060657 ADD AC,[142536475076]
12703 046216 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
12704 046217 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
12705 046220 241 10 0 00 000001 ROT AC1,1 ;ROT TO TEST NEXT BIT.
12706 046221 316 10 0 00 060714 CAMN AC1,[XWD 1,0] ;BIT IN LEFT SIDE?
12707 046222 201 10 0 00 000001 MOVEI AC1,1 ;YES. REINITIALIZE E.
12708 046223 420 07 0 00 000010 TROE3: ANDCM AC,AC1 ;CLEAR MASK BIT IN AC.
12709 046224 200 05 0 00 000007 MOVE RAN1,AC ;SAVE AC IN CASE OF ERROR.
12710 046225 200 11 0 00 000007 MOVE AC2,AC ;SIMULATE
12711 046226 434 11 0 00 000010 IOR AC2,AC1 ;A TRO INST.
12712 046227 662 07 0 10 000000 TROE AC,(AC1) ;E + C(AC)R = 0...SKIP.
12713 046230 005 07 0 00 060674 ER AC,[ASCII /TST/]
12714 046231 666 07 0 10 000000 TRON AC,(AC1) ;E + C(AC)R NOT = 0...SKIP.
12715 046232 005 07 0 00 060674 ER AC,[ASCII /TST/]
12716 046233 312 07 0 00 000011 CAME AC,AC2 ;C(AC) SHOULD = SIM. ANS.
12717 046234 003 05 0 10 000000 ERRI RAN1,(AC1)
12718 LOOP TROE2,TROE3^
12719 046235 367 06 0 00 046214 SOJG AC-1,TROE2 ;ITERATION COUNTER
12720 046236 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
12721 046237 321 06 0 00 046223 JUMPL AC-1,TROE3 ;LOOP ON ERROR SWITCH ^
12722
12723
12724
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 155
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0333
12725
12726
12727 ;TEST TROE, TRON. CHECK FOR SKIP/ NO SKIP AND
12728 ;CORRECT DATA IN AC FOR A FLOATING MASK BIT IN E
12729 ;AND WITH SAME BIT SET IN AC.
12730
12731
12732 000010 AC=10
12733 046240 TROEA: SETUP 40,0^
12734 000011 AC1=<AC+1>&17
12735 000012 AC2=<AC+2>&17
12736 000013 AC3=<AC+3>&17
12737 000014 AC4=<AC+4>&17
12738 000015 AC5=<AC+5>&17
12739 000006 RAN1=<AC-2>&17
12740 046240 201 07 0 00 046240 MOVEI AC-1,.
12741 046241 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
12742 046242 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
12743 046243 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
12744 046244 201 07 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
12745 046245 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
12746 046246 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
12747 046247 201 11 0 00 000001 MOVEI AC1,1 ;SETUP E TO HAVE A MASK BIT.
12748 046250 TROEB: RANDOM^
12749 046250 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
12750 046251 270 10 0 00 060657 ADD AC,[142536475076]
12751 046252 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
12752 046253 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
12753 046254 241 11 0 00 000001 ROT AC1,1 ;ROT ATO TEST NEST BIT.
12754 046255 316 11 0 00 060714 CAMN AC1,[XWD 1,0] ;IS BIT ON LEFT SIDE?
12755 046256 201 11 0 00 000001 MOVEI AC1,1 ;YES. REINITIALIZE E.
12756 046257 434 10 0 00 000011 TROEC: IOR AC,AC1 ;SET MASK BIT IN AC.
12757 046260 200 06 0 00 000010 MOVE RAN1,AC ;SAVE FOR COMPARE.
12758 046261 662 10 0 11 000000 TROE AC,(AC1) ;E + C(AC) R NOT = 0...NO SKIP.
12759 046262 254 00 0 00 046264 JRST .+2
12760 046263 005 10 0 00 060674 ER AC,[ASCII /TST/];TROE SKIPPED.
12761 046264 666 10 0 11 000000 TRON AC,(AC1) ;E + C(AC)R NOT = 0...SKIP.
12762 046265 005 10 0 00 060674 ER AC,[ASCII /TST/]
12763 046266 312 10 0 00 000006 CAME AC,RAN1 ;C(AC) SHOULD = ORIG. C(AC).
12764 046267 003 06 0 11 000000 ERRI RAN1,(AC1)
12765 LOOP TROEB, TROEC^
12766 046270 367 07 0 00 046250 SOJG AC-1,TROEB ;ITERATION COUNTER
12767 046271 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
12768 046272 321 07 0 00 046257 JUMPL AC-1,TROEC ;LOOP ON ERROR SWITCH ^
12769
12770
12771
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 156
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0334
12772 ;TEST TROE, TRON. CHECK FOR SKIP/ NO SKIP AND
12773 ;CORRECT DATA IN AC FOR A FLOATING MASK BIT IN AC
12774 ;AND SAME BIT CLEARED IN E.
12775
12776
12777 000011 AC=11
12778 046273 TRON1: SETUP 40,0^
12779 000012 AC1=<AC+1>&17
12780 000013 AC2=<AC+2>&17
12781 000014 AC3=<AC+3>&17
12782 000015 AC4=<AC+4>&17
12783 000016 AC5=<AC+5>&17
12784 000007 RAN1=<AC-2>&17
12785 046273 201 10 0 00 046273 MOVEI AC-1,.
12786 046274 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
12787 046275 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
12788 046276 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
12789 046277 201 10 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
12790 046300 240 10 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
12791 046301 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
12792 046302 201 12 0 00 000001 MOVEI AC1,1 ;SETUP AC TO HAVE A FLOATING MASK BIT.
12793 046303 TRON2: RANDOM^
12794 046303 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
12795 046304 270 11 0 00 060657 ADD AC,[142536475076]
12796 046305 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
12797 046306 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
12798 046307 241 12 0 00 000001 ROT AC1,1 ;ROT TO TEST NEXT BIT.
12799 046310 316 12 0 00 060714 CAMN AC1,[XWD 1,0] ;IS BIT ON LEFT SIDE?
12800 046311 201 12 0 00 000001 MOVEI AC1,1 ;YES. REINITIALIZE AC.
12801 046312 200 07 0 00 000012 MOVE RAN1,AC1 ;SAVE C(AC) SO IT CAN BE
12802 046313 420 11 0 00 000012 TRON3: ANDCM AC,AC1 ;CLEAR BIT IN E.
12803 046314 201 13 0 11 000000 MOVEI AC2,(AC) ;SIMULATE
12804 046315 322 13 0 00 046303 JUMPE AC2,TRON2 ;REJECT IF "E" = 0.
12805 046316 434 13 0 00 000012 IOR AC2,AC1 ;A TRO INST.
12806 046317 666 12 0 11 000000 TRON AC1,(AC) ;E + C(AC)R = 0...NO SKIP.
12807 046320 254 00 0 00 046322 JRST .+2
12808 046321 005 12 0 00 060674 ER AC1,[ASCII /TST/];TRON SKIPPED.
12809 046322 666 12 0 11 000000 TRON AC1,(AC) ;E + C(AC)R NOT = 0...SKIP.
12810 046323 005 12 0 00 060674 ER AC1,[ASCII /TST/]
12811 046324 312 12 0 00 000013 CAME AC1,AC2 ;C(AC) SHOULD = SIM. ANS.
12812 046325 003 07 0 11 000000 ERRI RAN1,(AC)
12813 046326 200 12 0 00 000007 MOVE AC1,RAN1 ;RESTORE C(AC).
12814 046327 662 12 0 11 000000 TROE AC1,(AC) ;E + C(AC)R = 0...SKIP.
12815 046330 005 12 0 00 060674 ER AC1,[ASCII /TST/]
12816 046331 662 12 0 11 000000 TROE AC1,(AC) ;E + C(AC)R NOT = 0...NO SKIP.
12817 046332 312 12 0 00 000013 CAME AC1,AC2 ;C(AC) SHOULD = SIM. ANS.
12818 046333 003 07 0 11 000000 ERRI RAN1,(AC)
12819 046334 200 12 0 00 000007 MOVE AC1,RAN1 ;RESTORE C(AC).
12820 LOOP TRON2, TRON3^
12821 046335 367 10 0 00 046303 SOJG AC-1,TRON2 ;ITERATION COUNTER
12822 046336 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
12823 046337 321 10 0 00 046313 JUMPL AC-1,TRON3 ;LOOP ON ERROR SWITCH ^
12824
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 157
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0335
12825
12826
12827 ;TEST TROE, TRON. CHECK FOR SKIP/ NO SKIP AND
12828 ;CORRECT DATA IN AC FOR A FLOATING ONE IN AC
12829 ;AND SAME BIT SET IN E.
12830
12831
12832 000012 AC=12
12833 046340 TRONA: SETUP 40,0^
12834 000013 AC1=<AC+1>&17
12835 000014 AC2=<AC+2>&17
12836 000015 AC3=<AC+3>&17
12837 000016 AC4=<AC+4>&17
12838 000017 AC5=<AC+5>&17
12839 000010 RAN1=<AC-2>&17
12840 046340 201 11 0 00 046340 MOVEI AC-1,.
12841 046341 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
12842 046342 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
12843 046343 202 11 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
12844 046344 201 11 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
12845 046345 240 11 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
12846 046346 240 11 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
12847 046347 201 13 0 00 000001 MOVEI AC1,1 ;SETUP AC TO HAVE A FLOATING ONE.
12848 046350 TRONB: RANDOM^
12849 046350 200 12 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
12850 046351 270 12 0 00 060657 ADD AC,[142536475076]
12851 046352 241 12 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
12852 046353 447 12 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
12853 046354 241 13 0 00 000001 ROT AC1,1 ;ROT TO TEST NEXT BIT.
12854 046355 316 13 0 00 060714 CAMN AC1,[XWD 1,0] ;IS BIT ON LEFT SIDE?
12855 046356 201 13 0 00 000001 MOVEI AC1,1 ;YES. REINITIALIZE AC.
12856 046357 200 10 0 00 000013 MOVE RAN1,AC1 ;SAVE C(AC) SO IT CAN BE
12857 046360 434 12 0 00 000013 TRONC: IOR AC,AC1 ;SET BIT IN E.
12858 046361 201 14 0 12 000000 MOVEI AC2,(AC) ;SIMULATE A TRO INST.
12859 046362 662 13 0 12 000000 TROE AC1,(AC) ;E + C(AC)R NOT = 0...NO SKIP.
12860 046363 254 00 0 00 046365 JRST .+2
12861 046364 005 13 0 00 060674 ER AC1,[ASCII /TST/];TROE SKIPPED.
12862 046365 666 13 0 12 000000 TRON AC1,(AC) ;E + C(AC)R NOT = 0...SKIP.
12863 046366 005 13 0 00 060674 ER AC1,[ASCII /TST/]
12864 046367 312 13 0 00 000014 CAME AC1,AC2 ;C(AC) SHOULD = SIM. ANS.
12865 046370 003 10 0 12 000000 ERRI RAN1,(AC)
12866 046371 200 13 0 00 000010 MOVE AC1,RAN1 ;RESTORE C(AC).
12867 LOOP TRONB, TRONC^
12868 046372 367 11 0 00 046350 SOJG AC-1,TRONB ;ITERATION COUNTER
12869 046373 200 12 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
12870 046374 321 11 0 00 046360 JUMPL AC-1,TRONC ;LOOP ON ERROR SWITCH ^
12871
12872
12873
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 158
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0336
12874
12875
12876
12877
12878 ;TEST TRC,TRCA. CHECK FOR SKIP/NO SKIP AND
12879 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
12880
12881
12882 000007 AC=7
12883 046375 TRC1: SETUP 100,0^
12884 000010 AC1=<AC+1>&17
12885 000011 AC2=<AC+2>&17
12886 000012 AC3=<AC+3>&17
12887 000013 AC4=<AC+4>&17
12888 000014 AC5=<AC+5>&17
12889 000005 RAN1=<AC-2>&17
12890 046375 201 06 0 00 046375 MOVEI AC-1,.
12891 046376 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
12892 046377 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
12893 046400 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
12894 046401 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
12895 046402 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
12896 046403 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
12897 046404 TRC2: RANDOM^
12898 046404 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
12899 046405 270 07 0 00 060657 ADD AC,[142536475076]
12900 046406 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
12901 046407 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
12902 046410 640 07 0 00 000000 TRC3: TRC AC,0 ;SHOULD NOT SKIP.
12903 046411 254 00 0 00 046413 JRST .+2
12904 046412 005 07 0 00 060674 ER AC,[ASCII /TST/];TRC SKIPPED.
12905 046413 644 07 0 00 000000 TRCA AC,0 ;SHOULD SKIP
12906 046414 005 07 0 00 060674 ER AC,[ASCII /TST/]
12907 046415 312 07 0 00 061125 CAME AC,RAN ;C(AC) SHOULD STILL=RAN NUM
12908 046416 013 00 0 00 000000 EERRI
12909 LOOP TRC2,TRC3^
12910 046417 367 06 0 00 046404 SOJG AC-1,TRC2 ;ITERATION COUNTER
12911 046420 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
12912 046421 321 06 0 00 046410 JUMPL AC-1,TRC3 ;LOOP ON ERROR SWITCH ^
12913
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 159
DSKBA2 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION TWO SEQ 0337
12914 ;TEST TRC,TRCA. CHECK FOR SKIP/NO SKIP AND
12915 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
12916
12917
12918 000010 AC=10
12919 046422 TRCA1: SETUP 100,0^
12920 000011 AC1=<AC+1>&17
12921 000012 AC2=<AC+2>&17
12922 000013 AC3=<AC+3>&17
12923 000014 AC4=<AC+4>&17
12924 000015 AC5=<AC+5>&17
12925 000006 RAN1=<AC-2>&17
12926 046422 201 07 0 00 046422 MOVEI AC-1,.
12927 046423 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
12928 046424 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
12929 046425 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
12930 046426 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
12931 046427 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
12932 046430 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
12933 046431 TRCA2: RANDOM^
12934 046431 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
12935 046432 270 10 0 00 060657 ADD AC,[142536475076]
12936 046433 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
12937 046434 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
12938 046435 403 11 0 00 000006 TRCA3: SETZB AC1,RAN1 ;CLEAR C(AC).
12939 046436 640 11 0 10 000000 TRC AC1,(AC) ;SHOULD NOT SKIP.
12940 046437 254 00 0 00 046441 JRST .+2
12941 046440 005 11 0 00 060674 ER AC1,[ASCII /TST/];TRC SKIPPED.
12942 046441 644 11 0 10 000000 TRCA AC1,(AC) ;SHOULD ALWAYS SKIP.
12943 046442 005 11 0 00 060674 ER AC1,[ASCII /TST/]
12944 046443 312 11 0 00 060660 CAME AC1,[0] ;C(AC) SHOULD STILL=0
12945 046444 003 06 0 10 000000 ERRI RAN1,(AC)
12946 LOOP TRCA2,TRCA3^
12947 046445 367 07 0 00 046431 SOJG AC-1,TRCA2 ;ITERATION COUNTER
12948 046446 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
12949 046447 321 07 0 00 046435 JUMPL AC-1,TRCA3 ;LOOP ON ERROR SWITCH ^
12950
12951 046450 254 00 0 00 046454 JRST PART3
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 1
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0338
12952 SUBTTL DIAGNOSTIC SECTION THREE
12953 LALL
12954
12955 046451 002000 000000 TSTLFT: 2000000000
12956 046452 004000 000000 TLFT1: 4000000000
12957 046453 010000 000000 TLFT2: 10000000000
12958
12959
12960 046454 PART3:
12961
12962 ;TEST TRC, TRCA. CHECK FOR SKIP/NO SKIP AND
12963 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION.
12964
12965
12966 000011 AC=11
12967 046454 TRC4: SETUP 100,0^
12968 000012 AC1=<AC+1>&17
12969 000013 AC2=<AC+2>&17
12970 000014 AC3=<AC+3>&17
12971 000015 AC4=<AC+4>&17
12972 000016 AC5=<AC+5>&17
12973 000007 RAN1=<AC-2>&17
12974 046454 201 10 0 00 046454 MOVEI AC-1,.
12975 046455 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
12976 046456 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
12977 046457 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
12978 046460 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
12979 046461 240 10 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
12980 046462 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
12981 046463 TRC5: RANDOM^
12982 046463 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
12983 046464 270 11 0 00 060657 ADD AC,[142536475076]
12984 046465 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
12985 046466 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
12986 046467 640 11 0 00 777777 TRC6: TRC AC,-1 ;SHOULD NOT SKIP.
12987 046470 254 00 0 00 046472 JRST .+2
12988 046471 005 11 0 00 060674 ER AC,[ASCII /TST/];TRC SKIPPED.
12989 046472 644 11 0 00 777777 TRCA AC,-1 ;SHOULD SKIP.
12990 046473 005 11 0 00 060674 ER AC,[ASCII /TST/]
12991 046474 312 11 0 00 061125 CAME AC,RAN ;C(AC) SHOULD STILL=RAN NUM.
12992 046475 013 00 0 00 777777 EERRI ,-1
12993 LOOP TRC5,TRC6^
12994 046476 367 10 0 00 046463 SOJG AC-1,TRC5 ;ITERATION COUNTER
12995 046477 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
12996 046500 321 10 0 00 046467 JUMPL AC-1,TRC6 ;LOOP ON ERROR SWITCH ^
12997
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 2
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0339
12998
12999
13000 ;TEST TRC, TRCA. CHECK FOR SKIP/NO SKIP AND
13001 ;CORRECT DATA IN AC FOR RAN TO -1 CONDITION.
13002
13003
13004 000004 AC=4
13005 046501 TRCA4: SETUP 100,0^
13006 000005 AC1=<AC+1>&17
13007 000006 AC2=<AC+2>&17
13008 000007 AC3=<AC+3>&17
13009 000010 AC4=<AC+4>&17
13010 000011 AC5=<AC+5>&17
13011 000002 RAN1=<AC-2>&17
13012 046501 201 03 0 00 046501 MOVEI AC-1,.
13013 046502 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
13014 046503 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
13015 046504 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
13016 046505 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
13017 046506 240 03 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
13018 046507 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
13019 046510 TRCA5: RANDOM^
13020 046510 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
13021 046511 270 04 0 00 060657 ADD AC,[142536475076]
13022 046512 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
13023 046513 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
13024 046514 477 05 0 00 000002 TRCA6: SETOB AC1,RAN1 ;SET C(AC) TO -1.
13025 046515 640 05 0 04 000000 TRC AC1,(AC) ;SHOULD NOT SKIP.
13026 046516 254 00 0 00 046520 JRST .+2
13027 046517 005 05 0 00 060674 ER AC1,[ASCII /TST/];TRC SKIPPED.
13028 046520 644 05 0 04 000000 TRCA AC1,(AC) ;SHOULD SKIP.
13029 046521 005 05 0 00 060674 ER AC1,[ASCII /TST/]
13030 046522 312 05 0 00 060662 CAME AC1,[-1] ;C(AC) SHOULD STILL=-1
13031 046523 003 02 0 04 000000 ERRI RAN1,(AC)
13032 LOOP TRCA5,TRCA6^
13033 046524 367 03 0 00 046510 SOJG AC-1,TRCA5 ;ITERATION COUNTER
13034 046525 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
13035 046526 321 03 0 00 046514 JUMPL AC-1,TRCA6 ;LOOP ON ERROR SWITCH ^
13036
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 3
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0340
13037
13038
13039 ;TEST TRC, TRCA. CHECK FOR SKIP/NO SKIP AND
13040 ;CORRECT DATA IN AC FOR NOT RAN TO RAN CONDITION.
13041
13042
13043 000005 AC=5
13044 046527 TRC7: SETUP 100,0^
13045 000006 AC1=<AC+1>&17
13046 000007 AC2=<AC+2>&17
13047 000010 AC3=<AC+3>&17
13048 000011 AC4=<AC+4>&17
13049 000012 AC5=<AC+5>&17
13050 000003 RAN1=<AC-2>&17
13051 046527 201 04 0 00 046527 MOVEI AC-1,.
13052 046530 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
13053 046531 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
13054 046532 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
13055 046533 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
13056 046534 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
13057 046535 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
13058 046536 TRC8: RANDOM^
13059 046536 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
13060 046537 270 05 0 00 060657 ADD AC,[142536475076]
13061 046540 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
13062 046541 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
13063 046542 460 06 0 00 000005 TRC9: SETCM AC1,AC ;MAKE "E"=COMP OF C(AC)
13064 046543 640 05 0 06 000000 TRC AC,(AC1) ;SHOULD NOT SKIP
13065 046544 254 00 0 00 046546 JRST .+2
13066 046545 005 05 0 00 060674 ER AC,[ASCII /TST/];TRC SKIPPED.
13067 046546 644 05 0 06 000000 TRCA AC,(AC1) ;SHOULD SKIP
13068 046547 005 05 0 00 060674 ER AC,[ASCII /TST/]
13069 046550 312 05 0 00 061125 CAME AC,RAN ;C(AC) SHOULD=RAN NUM.
13070 046551 013 00 0 06 000000 EERRI ,(AC1)
13071 LOOP TRC8,TRC9^
13072 046552 367 04 0 00 046536 SOJG AC-1,TRC8 ;ITERATION COUNTER
13073 046553 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
13074 046554 321 04 0 00 046542 JUMPL AC-1,TRC9 ;LOOP ON ERROR SWITCH ^
13075
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 4
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0341
13076
13077
13078 ;TEST TRC, TRCA. CHECK FOR SKIP/NO SKIP AND
13079 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
13080
13081
13082 000006 AC=6
13083 046555 TRCA7: SETUP 100,0^
13084 000007 AC1=<AC+1>&17
13085 000010 AC2=<AC+2>&17
13086 000011 AC3=<AC+3>&17
13087 000012 AC4=<AC+4>&17
13088 000013 AC5=<AC+5>&17
13089 000004 RAN1=<AC-2>&17
13090 046555 201 05 0 00 046555 MOVEI AC-1,.
13091 046556 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
13092 046557 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
13093 046560 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
13094 046561 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
13095 046562 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
13096 046563 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
13097 046564 TRCA8: RANDOM^
13098 046564 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
13099 046565 270 06 0 00 060657 ADD AC,[142536475076]
13100 046566 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
13101 046567 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
13102 046570 200 07 0 00 000006 TRCA9: MOVE AC1,AC ;MAKE "E"=C(AC).
13103 046571 640 06 0 07 000000 TRC AC,(AC1) ;SHOULD NOT SKIP
13104 046572 254 00 0 00 046574 JRST .+2
13105 046573 005 06 0 00 060674 ER AC,[ASCII /TST/];TRC SKIPPED.
13106 046574 644 06 0 07 000000 TRCA AC,(AC1) ;SHOULD SKIP
13107 046575 005 06 0 00 060674 ER AC,[ASCII /TST/]
13108 046576 312 06 0 00 061125 CAME AC,RAN ;C(AC)SHOULD=RAN NUM
13109 046577 003 07 0 07 000000 ERRI AC1,(AC1)
13110 LOOP TRCA8,TRCA9^
13111 046600 367 05 0 00 046564 SOJG AC-1,TRCA8 ;ITERATION COUNTER
13112 046601 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
13113 046602 321 05 0 00 046570 JUMPL AC-1,TRCA9 ;LOOP ON ERROR SWITCH ^
13114
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 5
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0342
13115
13116
13117 ;TEST TRCE, TRCN. CHECK FOR SKIP/NO SKIP AND
13118 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
13119
13120
13121 000007 AC=7
13122 046603 TRCE1: SETUP 100,0^
13123 000010 AC1=<AC+1>&17
13124 000011 AC2=<AC+2>&17
13125 000012 AC3=<AC+3>&17
13126 000013 AC4=<AC+4>&17
13127 000014 AC5=<AC+5>&17
13128 000005 RAN1=<AC-2>&17
13129 046603 201 06 0 00 046603 MOVEI AC-1,.
13130 046604 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
13131 046605 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
13132 046606 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
13133 046607 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
13134 046610 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
13135 046611 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
13136 046612 TRCE2: RANDOM^
13137 046612 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
13138 046613 270 07 0 00 060657 ADD AC,[142536475076]
13139 046614 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
13140 046615 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
13141 046616 646 07 0 00 000000 TRCE3: TRCN AC,0 ;E+C(AC)R=0. NO SKIP
13142 046617 254 00 0 00 046621 JRST .+2
13143 046620 005 07 0 00 060674 ER AC,[ASCII /TST/];TRCN SKIPPED.
13144 046621 642 07 0 00 000000 TRCE AC,0 ;E+C(AC)R=0. SKIP
13145 046622 005 07 0 00 060674 ER AC,[ASCII /TST/]
13146 046623 312 07 0 00 061125 CAME AC,RAN ;C(AC) SHOULD STILL=RAN.
13147 046624 013 00 0 00 000000 EERRI ,0
13148 LOOP TRCE2,TRCE3^
13149 046625 367 06 0 00 046612 SOJG AC-1,TRCE2 ;ITERATION COUNTER
13150 046626 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
13151 046627 321 06 0 00 046616 JUMPL AC-1,TRCE3 ;LOOP ON ERROR SWITCH ^
13152
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 6
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0343
13153
13154
13155 ;TEST TRCE, TRCN. CHECK FOR SKIP/NO SKIP AND
13156 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION.
13157
13158
13159 000010 AC=10
13160 046630 TRCEA1: SETUP 100,0^
13161 000011 AC1=<AC+1>&17
13162 000012 AC2=<AC+2>&17
13163 000013 AC3=<AC+3>&17
13164 000014 AC4=<AC+4>&17
13165 000015 AC5=<AC+5>&17
13166 000006 RAN1=<AC-2>&17
13167 046630 201 07 0 00 046630 MOVEI AC-1,.
13168 046631 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
13169 046632 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
13170 046633 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
13171 046634 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
13172 046635 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
13173 046636 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
13174 046637 TRCEA2: RANDOM^
13175 046637 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
13176 046640 270 10 0 00 060657 ADD AC,[142536475076]
13177 046641 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
13178 046642 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
13179 046643 606 10 0 00 777777 TRNN AC,-1 ;RIGHT HALF OF AC CLR?
13180 046644 254 00 0 00 046637 JRST TRCEA2 ;YES. GO GEN A NEW RAN NUM.
13181 046645 403 11 0 00 000006 TRCEA3: SETZB AC1,RAN1 ;CLEAR C(AC).
13182 046646 646 11 0 10 000000 TRCN AC1,(AC) ;E+C(AC)R=0. NO SKIP
13183 046647 254 00 0 00 046651 JRST .+2
13184 046650 005 11 0 00 060674 ER AC1,[ASCII /TST/];TRCN SKIPPED.
13185 046651 646 11 0 10 000000 TRCN AC1,(AC) ;E+C(AC)R NOT=0. SKIP
13186 046652 005 11 0 00 060674 ER AC1,[ASCII /TST/]
13187 046653 312 11 0 00 060660 CAME AC1,[0] ;C(AC) SHOULD=0 AGAIN
13188 046654 003 06 0 10 000000 ERRI RAN1,(AC)
13189 046655 642 11 0 10 000000 TRCE AC1,(AC) ;E+C(AC)R=0 .SKIP
13190 046656 005 11 0 00 060674 ER AC1,[ASCII /TST/]
13191 046657 642 11 0 10 000000 TRCE AC1,(AC) ;E+C(AC)R NOT=0 NO SKIP
13192 046660 312 11 0 00 060660 CAME AC1,[0] ;C(AC) SHOULD=0 AGAIN
13193 046661 003 06 0 10 000000 ERRI RAN1,(AC)
13194 LOOP TRCEA2,TRCEA3^
13195 046662 367 07 0 00 046637 SOJG AC-1,TRCEA2 ;ITERATION COUNTER
13196 046663 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
13197 046664 321 07 0 00 046645 JUMPL AC-1,TRCEA3 ;LOOP ON ERROR SWITCH ^
13198
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 7
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0344
13199
13200
13201 ;TEST TRCE, TRCN. CHECK FOR SKIP/NO SKIP AND
13202 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION
13203
13204
13205 000010 AC=10
13206 046665 TRCE4: SETUP 100,0^
13207 000011 AC1=<AC+1>&17
13208 000012 AC2=<AC+2>&17
13209 000013 AC3=<AC+3>&17
13210 000014 AC4=<AC+4>&17
13211 000015 AC5=<AC+5>&17
13212 000006 RAN1=<AC-2>&17
13213 046665 201 07 0 00 046665 MOVEI AC-1,.
13214 046666 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
13215 046667 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
13216 046670 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
13217 046671 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
13218 046672 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
13219 046673 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
13220 046674 TRCE5: RANDOM^
13221 046674 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
13222 046675 270 10 0 00 060657 ADD AC,[142536475076]
13223 046676 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
13224 046677 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
13225 046700 435 10 0 00 000002 TRCE6: IORI AC,2 ;MAKE C(AC) HAVE AT LEAST ONE BIT.
13226 046701 201 11 0 10 000000 MOVEI AC1,(AC) ;CHECK TO MAKE
13227 046702 306 11 0 00 777777 CAIN AC1,-1 ;SURE C(AC)R DOES NOT = -1.
13228 046703 254 00 0 00 046674 JRST TRCE5 ;REJECT IF IT DOES.
13229 046704 200 06 0 00 000010 MOVE RAN1,AC ;SAVE C(AC) FOR FUTURE COMPARE.
13230 046705 642 10 0 00 777777 TRCE AC,-1 ;E+C(AC)R NOT = 0...NO SKIP.
13231 046706 254 00 0 00 046710 JRST .+2
13232 046707 005 10 0 00 060674 ER AC,[ASCII /TST/];TRCE SKIPPED.
13233 046710 646 10 0 00 777777 TRCN AC,-1 ;E+C(AC)R NOT=0. SKIP
13234 046711 005 10 0 00 060674 ER AC,[ASCII /TST/]
13235 046712 312 10 0 00 000006 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
13236 046713 003 06 0 00 777777 ERRI RAN1,-1
13237 LOOP TRCE5,TRCE6^
13238 046714 367 07 0 00 046674 SOJG AC-1,TRCE5 ;ITERATION COUNTER
13239 046715 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
13240 046716 321 07 0 00 046700 JUMPL AC-1,TRCE6 ;LOOP ON ERROR SWITCH ^
13241
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 8
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0345
13242
13243
13244 ;TEST TRCE, TRCN. CHECK FOR SKIP/NO SKIP AND
13245 ;CORRECT DATA IN AC FOR RAN TO-1 CONDITION.
13246
13247
13248 000003 AC=3
13249 046717 TRCEA4: SETUP 100,0^
13250 000004 AC1=<AC+1>&17
13251 000005 AC2=<AC+2>&17
13252 000006 AC3=<AC+3>&17
13253 000007 AC4=<AC+4>&17
13254 000010 AC5=<AC+5>&17
13255 000001 RAN1=<AC-2>&17
13256 046717 201 02 0 00 046717 MOVEI AC-1,.
13257 046720 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
13258 046721 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
13259 046722 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
13260 046723 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
13261 046724 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
13262 046725 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
13263 046726 TRCEA5: RANDOM^
13264 046726 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
13265 046727 270 03 0 00 060657 ADD AC,[142536475076]
13266 046730 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
13267 046731 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
13268 046732 435 03 0 00 000004 TRCEA6: IORI AC,4 ;MAKE E HAVE AT LEAST ONE BIT.
13269 046733 477 04 0 00 000001 SETOB AC1,RAN1 ;SET C(AC) TO A -1.
13270 046734 642 04 0 03 000000 TRCE AC1,(AC) ;E+C(AC)R NOT=0 NO SKIP
13271 046735 254 00 0 00 046737 JRST .+2
13272 046736 005 04 0 00 060674 ER AC1,[ASCII /TST/];TRCE SKIPPED.
13273 046737 642 04 0 03 000000 TRCE AC1,(AC) ;E+C(AC)R=0. SKIP
13274 046740 005 04 0 00 060674 ER AC1,[ASCII /TST/]
13275 046741 312 04 0 00 060662 CAME AC1,[-1] ;C(AC) SHOULD=ORIG C(AC)
13276 046742 003 01 0 03 000000 ERRI RAN1,(AC)
13277 046743 646 04 0 03 000000 TRCN AC1,(AC) ;E+C(AC)R NOT=0. SKIP
13278 046744 005 04 0 00 060674 ER AC1,[ASCII /TST/]
13279 046745 646 04 0 03 000000 TRCN AC1,(AC) ;E+C(AC)R=0 NO SKIP
13280 046746 312 04 0 00 060662 CAME AC1,[-1] ;C(AC) SHOULD=ORIG. C(AC).
13281 046747 003 01 0 03 000000 ERRI RAN1,(AC)
13282 LOOP TRCEA5,TRCEA6^
13283 046750 367 02 0 00 046726 SOJG AC-1,TRCEA5 ;ITERATION COUNTER
13284 046751 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
13285 046752 321 02 0 00 046732 JUMPL AC-1,TRCEA6 ;LOOP ON ERROR SWITCH ^
13286
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 9
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0346
13287
13288
13289 ;TEST TRCE, TRCN. CHECK FOR SKIP/NO SKIP AND
13290 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
13291
13292
13293 000003 AC=3
13294 046753 TRCN1: SETUP 100,0^
13295 000004 AC1=<AC+1>&17
13296 000005 AC2=<AC+2>&17
13297 000006 AC3=<AC+3>&17
13298 000007 AC4=<AC+4>&17
13299 000010 AC5=<AC+5>&17
13300 000001 RAN1=<AC-2>&17
13301 046753 201 02 0 00 046753 MOVEI AC-1,.
13302 046754 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
13303 046755 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
13304 046756 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
13305 046757 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
13306 046760 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
13307 046761 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
13308 046762 TRCN2: RANDOM^
13309 046762 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
13310 046763 270 03 0 00 060657 ADD AC,[142536475076]
13311 046764 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
13312 046765 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
13313 046766 435 03 0 00 000040 TRCN3: IORI AC,40 ;MAKE C(AC) HAVE AT LEAST ONE BIT.
13314 046767 200 01 0 00 000003 MOVE RAN1,AC ;SAVE IN CASE OF ERROR.
13315 046770 200 04 0 00 000003 MOVE AC1,AC ;MAKE "E" = C(AC).
13316 046771 642 03 0 04 000000 TRCE AC,(AC1) ;E+C (AC) R NOT=0 NO SKIP
13317 046772 254 00 0 00 046774 JRST .+2
13318 046773 005 03 0 00 060674 ER AC,[ASCII /TST/];TRCE SKIPPED.
13319 046774 642 03 0 04 000000 TRCE AC,(AC1) ;E+C (AC)R=0 SKIP
13320 046775 005 03 0 00 060674 ER AC,[ASCII /TST/]
13321 046776 312 03 0 00 000001 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
13322 046777 003 04 0 04 000000 ERRI AC1,(AC1)
13323 047000 646 03 0 04 000000 TRCN AC,(AC1) ;E+C(AC)R NOT=0 SKIP
13324 047001 005 03 0 00 060674 ER AC,[ASCII /TST/]
13325 047002 646 03 0 04 000000 TRCN AC,(AC1) ;E+C (AC)R=0. NO SKIP
13326 047003 312 03 0 00 000001 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
13327 047004 003 04 0 04 000000 ERRI AC1,(AC1)
13328 LOOP TRCN2,TRCN3^
13329 047005 367 02 0 00 046762 SOJG AC-1,TRCN2 ;ITERATION COUNTER
13330 047006 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
13331 047007 321 02 0 00 046766 JUMPL AC-1,TRCN3 ;LOOP ON ERROR SWITCH ^
13332
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 10
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0347
13333 ;TEST TRCE, TRCN. CHECK FOR SKIP/NO SKIP AND
13334 ;CORRECT DATA IN AC WITH E = TO A FLOATING
13335 ;ONE AND C(AC) = RAN. NUM. WITH THAT BIT CLEAR.
13336
13337
13338 000002 AC=2
13339 047010 TRCNA: SETUP 40,0^
13340 000003 AC1=<AC+1>&17
13341 000004 AC2=<AC+2>&17
13342 000005 AC3=<AC+3>&17
13343 000006 AC4=<AC+4>&17
13344 000007 AC5=<AC+5>&17
13345 000000 RAN1=<AC-2>&17
13346 047010 201 01 0 00 047010 MOVEI AC-1,.
13347 047011 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
13348 047012 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
13349 047013 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
13350 047014 201 01 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
13351 047015 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
13352 047016 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
13353 047017 201 03 0 00 000001 MOVEI AC1,1 ;SETUP E TO HAVE ONE BIT.
13354 047020 TRCNB: RANDOM^
13355 047020 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
13356 047021 270 02 0 00 060657 ADD AC,[142536475076]
13357 047022 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
13358 047023 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
13359 047024 241 03 0 00 000001 ROT AC1,1 ;ROT TO TEST NEXT BIT.
13360 047025 316 03 0 00 060714 CAMN AC1,[XWD 1,0] ;IS BIT ON LEFT SIDE?
13361 047026 201 03 0 00 000001 MOVEI AC1,1 ;YES. REINITIALIZE E.
13362 047027 420 02 0 00 000003 TRCNC: ANDCM AC,AC1 ;CLEAR BIT IN AC.
13363 047030 200 00 0 00 000002 MOVE RAN1,AC ;SAVE C(AC) FOR FUTURE COMPARE.
13364 047031 646 02 0 03 000000 TRCN AC,(AC1) ;E + C(AC)R = 0...NO SKIP.
13365 047032 254 00 0 00 047034 JRST .+2
13366 047033 005 02 0 00 060674 ER AC,[ASCII /TST/];TRCN SKIPPED.
13367 047034 646 02 0 03 000000 TRCN AC,(AC1) ;E + C(AC)R NOT = 0...SKIP.
13368 047035 005 02 0 00 060674 ER AC,[ASCII /TST/]
13369 047036 312 02 0 00 000000 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
13370 047037 003 00 0 03 000000 ERRI RAN1,(AC1)
13371 047040 642 02 0 03 000000 TRCE AC,(AC1) ;E + C(AC)R = 0...SKIP.
13372 047041 005 02 0 00 060674 ER AC,[ASCII /TST/]
13373 047042 642 02 0 03 000000 TRCE AC,(AC1) ;E + C(AC)R NOT = 0...NO SKIP.
13374 047043 312 02 0 00 000000 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
13375 047044 003 00 0 03 000000 ERRI RAN1,(AC1)
13376 LOOP TRCNB,TRCNC^
13377 047045 367 01 0 00 047020 SOJG AC-1,TRCNB ;ITERATION COUNTER
13378 047046 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
13379 047047 321 01 0 00 047027 JUMPL AC-1,TRCNC ;LOOP ON ERROR SWITCH ^
13380
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 11
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0348
13381
13382
13383 ;TEST TLN, TLNA CHECK FOR SKIP/NO SKIP AND
13384 ;NO DATA CHANGE IN AC FOR 0 TO RAN CONDITION.
13385
13386
13387 000003 AC=3
13388 047050 TLN1: SETUP 100,0^
13389 000004 AC1=<AC+1>&17
13390 000005 AC2=<AC+2>&17
13391 000006 AC3=<AC+3>&17
13392 000007 AC4=<AC+4>&17
13393 000010 AC5=<AC+5>&17
13394 000001 RAN1=<AC-2>&17
13395 047050 201 02 0 00 047050 MOVEI AC-1,.
13396 047051 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
13397 047052 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
13398 047053 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
13399 047054 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
13400 047055 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
13401 047056 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
13402 047057 TLN2: RANDOM^
13403 047057 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
13404 047060 270 03 0 00 060657 ADD AC,[142536475076]
13405 047061 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
13406 047062 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
13407 047063 601 03 0 00 000000 TLN3: TLN AC,0 ;SHOULD NOT SKIP.
13408 047064 254 00 0 00 047066 JRST .+2
13409 047065 005 03 0 00 060674 ER AC,[ASCII /TST/];TLN SKIPPED.
13410 047066 605 03 0 00 000000 TLNA AC,0 ;SHOULD SKIP
13411 047067 005 03 0 00 060674 ER AC,[ASCII /TST/]
13412 047070 312 03 0 00 061125 CAME AC,RAN ;C(AC) SHOULD=ORIG C(AC)
13413 047071 013 00 0 00 000000 EERRI ,0
13414 LOOP TLN2,TLN3^
13415 047072 367 02 0 00 047057 SOJG AC-1,TLN2 ;ITERATION COUNTER
13416 047073 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
13417 047074 321 02 0 00 047063 JUMPL AC-1,TLN3 ;LOOP ON ERROR SWITCH ^
13418
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 12
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0349
13419
13420
13421 ;TEST TLN, TLNA CHECK FOR SKIP/NO SKIP AND
13422 ;NO DATA CHANGE IN AC FOR RAN TO 0 CONDITION
13423
13424
13425 000004 AC=4
13426 047075 TLN4: SETUP 100,0^
13427 000005 AC1=<AC+1>&17
13428 000006 AC2=<AC+2>&17
13429 000007 AC3=<AC+3>&17
13430 000010 AC4=<AC+4>&17
13431 000011 AC5=<AC+5>&17
13432 000002 RAN1=<AC-2>&17
13433 047075 201 03 0 00 047075 MOVEI AC-1,.
13434 047076 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
13435 047077 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
13436 047100 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
13437 047101 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
13438 047102 240 03 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
13439 047103 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
13440 047104 TLN5: RANDOM^
13441 047104 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
13442 047105 270 04 0 00 060657 ADD AC,[142536475076]
13443 047106 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
13444 047107 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
13445 047110 403 05 0 00 000002 TLN6: SETZB AC1,RAN1 ;CLEAR C(AC)
13446 047111 601 05 0 04 000000 TLN AC1,(AC) ;SHOULD NOT SKIP
13447 047112 254 00 0 00 047114 JRST .+2
13448 047113 005 05 0 00 060674 ER AC1,[ASCII /TST/];TLN SKIPPED.
13449 047114 605 05 0 04 000000 TLNA AC1,(AC) ;SHOULD SKIP
13450 047115 005 05 0 00 060674 ER AC1,[ASCII /TST/]
13451 047116 312 05 0 00 060660 CAME AC1,[0] ;C(AC) SHOULD=ORIG C(AC)
13452 047117 003 02 0 04 000000 ERRI RAN1,(AC)
13453 LOOP TLN5,TLN6^
13454 047120 367 03 0 00 047104 SOJG AC-1,TLN5 ;ITERATION COUNTER
13455 047121 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
13456 047122 321 03 0 00 047110 JUMPL AC-1,TLN6 ;LOOP ON ERROR SWITCH ^
13457
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 13
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0350
13458
13459
13460 ;TEST TLN, TLNA. CHECK FOR SKIP/NO SKIP AND
13461 ;NO DATA CHANGE IN AC FOR -1 TO RAN CONDITION
13462
13463
13464 000005 AC=5
13465 047123 TLN7: SETUP 100,0^
13466 000006 AC1=<AC+1>&17
13467 000007 AC2=<AC+2>&17
13468 000010 AC3=<AC+3>&17
13469 000011 AC4=<AC+4>&17
13470 000012 AC5=<AC+5>&17
13471 000003 RAN1=<AC-2>&17
13472 047123 201 04 0 00 047123 MOVEI AC-1,.
13473 047124 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
13474 047125 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
13475 047126 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
13476 047127 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
13477 047130 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
13478 047131 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
13479 047132 TLN8: RANDOM^
13480 047132 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
13481 047133 270 05 0 00 060657 ADD AC,[142536475076]
13482 047134 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
13483 047135 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
13484 047136 601 05 0 00 777777 TLN9: TLN AC,-1 ;SHOULD NOT SKIP
13485 047137 254 00 0 00 047141 JRST .+2
13486 047140 005 05 0 00 060674 ER AC,[ASCII /TST/];TLN SKIPPED.
13487 047141 605 05 0 00 777777 TLNA AC,-1 ;SHOULD SKIP
13488 047142 005 05 0 00 060674 ER AC,[ASCII /TST/]
13489 047143 312 05 0 00 061125 CAME AC,RAN ;C(AC) SHOULD=ORIG. C(AC)
13490 047144 013 00 0 00 777777 EERRI ,-1
13491 LOOP TLN8,TLN9^
13492 047145 367 04 0 00 047132 SOJG AC-1,TLN8 ;ITERATION COUNTER
13493 047146 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
13494 047147 321 04 0 00 047136 JUMPL AC-1,TLN9 ;LOOP ON ERROR SWITCH ^
13495
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 14
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0351
13496
13497
13498 ;TEST TLN, TLNA. CHECK FOR SKIP/NO SKIP AND
13499 ;NO DATA CHANGE IN AC FOR RAN TO -1 CONDITION
13500
13501
13502 000006 AC=6
13503 047150 TLNA1: SETUP 100,0^
13504 000007 AC1=<AC+1>&17
13505 000010 AC2=<AC+2>&17
13506 000011 AC3=<AC+3>&17
13507 000012 AC4=<AC+4>&17
13508 000013 AC5=<AC+5>&17
13509 000004 RAN1=<AC-2>&17
13510 047150 201 05 0 00 047150 MOVEI AC-1,.
13511 047151 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
13512 047152 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
13513 047153 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
13514 047154 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
13515 047155 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
13516 047156 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
13517 047157 TLNA2: RANDOM^
13518 047157 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
13519 047160 270 06 0 00 060657 ADD AC,[142536475076]
13520 047161 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
13521 047162 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
13522 047163 477 07 0 00 000004 TLNA3: SETOB AC1,RAN1 ;SET C(AC) TO=-1
13523 047164 601 07 0 06 000000 TLN AC1,(AC) ;SHOULD NOT SKIP
13524 047165 254 00 0 00 047167 JRST .+2
13525 047166 005 07 0 00 060674 ER AC1,[ASCII /TST/];TLN SKIPPED.
13526 047167 605 07 0 06 000000 TLNA AC1,(AC) ;SHOULD SKIP.
13527 047170 005 07 0 00 060674 ER AC1,[ASCII /TST/]
13528 047171 312 07 0 00 000004 CAME AC1,RAN1 ;C(AC) SHOULD=ORIG C(AC)
13529 047172 003 04 0 06 000000 ERRI RAN1,(AC)
13530 LOOP TLNA2,TLNA3^
13531 047173 367 05 0 00 047157 SOJG AC-1,TLNA2 ;ITERATION COUNTER
13532 047174 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
13533 047175 321 05 0 00 047163 JUMPL AC-1,TLNA3 ;LOOP ON ERROR SWITCH ^
13534
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 15
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0352
13535
13536
13537 ;TEST TLN, TLNA. CHECK FOR SKIP/NO SKIP AND
13538 ;NO DATA CHANGE IN AC FOR RAN TO RAN CONDITION
13539
13540
13541 000007 AC=7
13542 047176 TLNA4: SETUP 100,0^
13543 000010 AC1=<AC+1>&17
13544 000011 AC2=<AC+2>&17
13545 000012 AC3=<AC+3>&17
13546 000013 AC4=<AC+4>&17
13547 000014 AC5=<AC+5>&17
13548 000005 RAN1=<AC-2>&17
13549 047176 201 06 0 00 047176 MOVEI AC-1,.
13550 047177 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
13551 047200 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
13552 047201 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
13553 047202 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
13554 047203 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
13555 047204 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
13556 047205 TLNA5: RANDOM^
13557 047205 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
13558 047206 270 07 0 00 060657 ADD AC,[142536475076]
13559 047207 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
13560 047210 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
13561 047211 200 10 0 00 000007 TLNA6: MOVE AC1,AC ;MAKE "E"=C(AC)
13562 047212 601 07 0 10 000000 TLN AC,(AC1) ;SHOULD NOT SKIP
13563 047213 254 00 0 00 047215 JRST .+2
13564 047214 005 07 0 00 060674 ER AC,[ASCII /TST/];TLN SKIPPED.
13565 047215 605 07 0 10 000000 TLNA AC,(AC1) ;SHOULD SKIP
13566 047216 005 07 0 00 060674 ER AC,[ASCII /TST/]
13567 047217 312 07 0 00 061125 CAME AC,RAN ;C(AC) SHOULD=ORIG C(AC)
13568 047220 003 10 0 10 000000 ERRI AC1,(AC1)
13569 LOOP TLNA5,TLNA6^
13570 047221 367 06 0 00 047205 SOJG AC-1,TLNA5 ;ITERATION COUNTER
13571 047222 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
13572 047223 321 06 0 00 047211 JUMPL AC-1,TLNA6 ;LOOP ON ERROR SWITCH ^
13573
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 16
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0353
13574
13575
13576 ;TEST TLN, TLNA. CHECK FOR SKIP/NO SKIP AND
13577 ;NO DATA CHANGE IN AC FOR RAN1 TO RAN CONDITION.
13578
13579
13580 000010 AC=10
13581 047224 TLNA7: SETUP 100,0^
13582 000011 AC1=<AC+1>&17
13583 000012 AC2=<AC+2>&17
13584 000013 AC3=<AC+3>&17
13585 000014 AC4=<AC+4>&17
13586 000015 AC5=<AC+5>&17
13587 000006 RAN1=<AC-2>&17
13588 047224 201 07 0 00 047224 MOVEI AC-1,.
13589 047225 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
13590 047226 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
13591 047227 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
13592 047230 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
13593 047231 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
13594 047232 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
13595 047233 TLNA8: RANDOM^
13596 047233 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
13597 047234 270 10 0 00 060657 ADD AC,[142536475076]
13598 047235 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
13599 047236 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
13600 047237 200 11 0 00 000010 TLNA9: MOVE AC1,AC ;MAKE "E"
13601 047240 241 11 0 00 000011 ROT AC1,11 ;A DIFFERENT RANDOM NUM
13602 047241 601 10 0 11 000000 TLN AC,(AC1) ;SHOULD NOT SKIP
13603 047242 254 00 0 00 047244 JRST .+2
13604 047243 005 10 0 00 060674 ER AC,[ASCII /TST/];TLN SKIPPED.
13605 047244 605 10 0 11 000000 TLNA AC,(AC1) ;SHOULD SKIP
13606 047245 005 10 0 00 060674 ER AC,[ASCII /TST/]
13607 047246 312 10 0 00 061125 CAME AC,RAN ;C(AC) SHOULD=ORIG C(AC)
13608 047247 013 00 0 11 000000 EERRI ,(AC1)
13609 LOOP TLNA8,TLNA9^
13610 047250 367 07 0 00 047233 SOJG AC-1,TLNA8 ;ITERATION COUNTER
13611 047251 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
13612 047252 321 07 0 00 047237 JUMPL AC-1,TLNA9 ;LOOP ON ERROR SWITCH ^
13613
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 17
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0354
13614
13615
13616 ;TEST TLNE, TLNN CHECK FOR SKIP/NO SKIP AND
13617 ;NO DATA CHANGE IN AC FOR 0 TO RAN CONDITION
13618
13619
13620 000011 AC=11
13621 047253 TLNE1: SETUP 100,0^
13622 000012 AC1=<AC+1>&17
13623 000013 AC2=<AC+2>&17
13624 000014 AC3=<AC+3>&17
13625 000015 AC4=<AC+4>&17
13626 000016 AC5=<AC+5>&17
13627 000007 RAN1=<AC-2>&17
13628 047253 201 10 0 00 047253 MOVEI AC-1,.
13629 047254 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
13630 047255 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
13631 047256 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
13632 047257 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
13633 047260 240 10 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
13634 047261 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
13635 047262 TLNE2: RANDOM^
13636 047262 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
13637 047263 270 11 0 00 060657 ADD AC,[142536475076]
13638 047264 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
13639 047265 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
13640 047266 607 11 0 00 000000 TLNE3: TLNN AC,0 ;E+C(AC)L=0. NO SKIP
13641 047267 254 00 0 00 047271 JRST .+2
13642 047270 005 11 0 00 060674 ER AC,[ASCII /TST/];TLNN SKIPPED.
13643 047271 603 11 0 00 000000 TLNE AC,0 ;E+C(AC)L=0. SKIP
13644 047272 005 11 0 00 060674 ER AC,[ASCII /TST/]
13645 047273 312 11 0 00 061125 CAME AC,RAN ;C(AC) SHOULD=ORIG C(AC)
13646 047274 013 00 0 00 000000 EERRI ,0
13647 LOOP TLNE2,TLNE3^
13648 047275 367 10 0 00 047262 SOJG AC-1,TLNE2 ;ITERATION COUNTER
13649 047276 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
13650 047277 321 10 0 00 047266 JUMPL AC-1,TLNE3 ;LOOP ON ERROR SWITCH ^
13651
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 18
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0355
13652
13653
13654 ;TEST TLNE, TLNN. CHECK FOR SKIP/NO SKIP AND
13655 ;NO DATA CHANGE IN AC FOR RAN TO 0 CONDITION
13656
13657
13658 000004 AC=4
13659 047300 TLNE4: SETUP 100,0^
13660 000005 AC1=<AC+1>&17
13661 000006 AC2=<AC+2>&17
13662 000007 AC3=<AC+3>&17
13663 000010 AC4=<AC+4>&17
13664 000011 AC5=<AC+5>&17
13665 000002 RAN1=<AC-2>&17
13666 047300 201 03 0 00 047300 MOVEI AC-1,.
13667 047301 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
13668 047302 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
13669 047303 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
13670 047304 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
13671 047305 240 03 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
13672 047306 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
13673 047307 TLNE5: RANDOM^
13674 047307 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
13675 047310 270 04 0 00 060657 ADD AC,[142536475076]
13676 047311 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
13677 047312 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
13678 047313 403 05 0 00 000002 TLNE6: SETZB AC1,RAN1 ;CLEAR C(AC)
13679 047314 607 05 0 04 000000 TLNN AC1,(AC) ;E+C(AC)L=0 NO SKIP
13680 047315 254 00 0 00 047317 JRST .+2
13681 047316 005 05 0 00 060674 ER AC1,[ASCII /TST/];TLNN SKIPPED.
13682 047317 603 05 0 04 000000 TLNE AC1,(AC) ;E+C(AC)L=0. SKIP
13683 047320 005 05 0 00 060674 ER AC1,[ASCII /TST/]
13684 047321 312 05 0 00 000002 CAME AC1,RAN1 ;C(AC) SHOULD=ORIG. C(AC)
13685 047322 003 02 0 04 000000 ERRI RAN1,(AC)
13686 LOOP TLNE5,TLNE6^
13687 047323 367 03 0 00 047307 SOJG AC-1,TLNE5 ;ITERATION COUNTER
13688 047324 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
13689 047325 321 03 0 00 047313 JUMPL AC-1,TLNE6 ;LOOP ON ERROR SWITCH ^
13690
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 19
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0356
13691
13692
13693 ;TEST TLNE, TLNN, CHECK FOR SKIP/NO SKIP AND
13694 ;NO DATA CHANGE IN AC FOR -1 TO RAN CONDITION
13695
13696
13697 000005 AC=5
13698 047326 TLNE7: SETUP 100,0^
13699 000006 AC1=<AC+1>&17
13700 000007 AC2=<AC+2>&17
13701 000010 AC3=<AC+3>&17
13702 000011 AC4=<AC+4>&17
13703 000012 AC5=<AC+5>&17
13704 000003 RAN1=<AC-2>&17
13705 047326 201 04 0 00 047326 MOVEI AC-1,.
13706 047327 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
13707 047330 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
13708 047331 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
13709 047332 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
13710 047333 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
13711 047334 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
13712 047335 TLNE8: RANDOM^
13713 047335 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
13714 047336 270 05 0 00 060657 ADD AC,[142536475076]
13715 047337 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
13716 047340 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
13717 047341 434 05 0 00 046451 TLNE9: IOR AC,TSTLFT ;MAKE C(AC)L HAVE A BIT
13718 047342 200 03 0 00 000005 MOVE RAN1,AC ;SAVE C(AC) FOR FUTURE COMPARE.
13719 047343 603 05 0 00 777777 TLNE AC,-1 ;E+C(AC)L NOT=0 NO SKIP
13720 047344 254 00 0 00 047346 JRST .+2
13721 047345 005 05 0 00 060674 ER AC,[ASCII /TST/];TLNE SKIPPED.
13722 047346 607 05 0 00 777777 TLNN AC,-1 ;E+C(AC)L NOT = 0...SKIP.
13723 047347 005 05 0 00 060674 ER AC,[ASCII /TST/]
13724 047350 312 05 0 00 000003 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
13725 047351 003 03 0 00 777777 ERRI RAN1,-1
13726 LOOP TLNE8,TLNE9^
13727 047352 367 04 0 00 047335 SOJG AC-1,TLNE8 ;ITERATION COUNTER
13728 047353 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
13729 047354 321 04 0 00 047341 JUMPL AC-1,TLNE9 ;LOOP ON ERROR SWITCH ^
13730
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 20
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0357
13731
13732
13733 ;TEST TLNE, TLNN. CHECK FOR SKIP/NO SKIP AND
13734 ;NO DATA CHANGE IN AC FOR RAN TO -1 CONDITION
13735
13736
13737 000006 AC=6
13738 047355 TLNN1: SETUP 100,0^
13739 000007 AC1=<AC+1>&17
13740 000010 AC2=<AC+2>&17
13741 000011 AC3=<AC+3>&17
13742 000012 AC4=<AC+4>&17
13743 000013 AC5=<AC+5>&17
13744 000004 RAN1=<AC-2>&17
13745 047355 201 05 0 00 047355 MOVEI AC-1,.
13746 047356 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
13747 047357 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
13748 047360 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
13749 047361 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
13750 047362 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
13751 047363 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
13752 047364 TLNN2: RANDOM^
13753 047364 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
13754 047365 270 06 0 00 060657 ADD AC,[142536475076]
13755 047366 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
13756 047367 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
13757 047370 435 06 0 00 000002 IORI AC,2 ;MAKE "E" HAVE A BIT.
13758 047371 477 07 0 00 000004 TLNN3: SETOB AC1,RAN1 ;MAKE C(AC)=-1
13759 047372 603 07 0 06 000000 TLNE AC1,(AC) ;E+C(AC)L NOT=0 NO SKIP.
13760 047373 254 00 0 00 047375 JRST .+2
13761 047374 005 07 0 00 060674 ER AC1,[ASCII /TST/];TLNE SKIPPED.
13762 047375 607 07 0 06 000000 TLNN AC1,(AC) ;E+C(AC)L NOT=0. SKIP
13763 047376 005 07 0 00 060674 ER AC1,[ASCII /TST/]
13764 047377 312 07 0 00 000004 CAME AC1,RAN1 ;C(AC) SHOULD=ORIG C(AC)
13765 047400 003 04 0 06 000000 ERRI RAN1,(AC)
13766 LOOP TLNN2,TLNN3^
13767 047401 367 05 0 00 047364 SOJG AC-1,TLNN2 ;ITERATION COUNTER
13768 047402 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
13769 047403 321 05 0 00 047371 JUMPL AC-1,TLNN3 ;LOOP ON ERROR SWITCH ^
13770
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 21
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0358
13771
13772
13773 ;TEST TLNE, TLNN. CHECK FOR SKIP/NO SKIP AND
13774 ;NO DATA CHANGE IN AC FOR RAN TO RAN CONDITION
13775
13776
13777 000007 AC=7
13778 047404 TLNN4: SETUP 100,0^
13779 000010 AC1=<AC+1>&17
13780 000011 AC2=<AC+2>&17
13781 000012 AC3=<AC+3>&17
13782 000013 AC4=<AC+4>&17
13783 000014 AC5=<AC+5>&17
13784 000005 RAN1=<AC-2>&17
13785 047404 201 06 0 00 047404 MOVEI AC-1,.
13786 047405 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
13787 047406 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
13788 047407 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
13789 047410 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
13790 047411 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
13791 047412 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
13792 047413 TLNN5: RANDOM^
13793 047413 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
13794 047414 270 07 0 00 060657 ADD AC,[142536475076]
13795 047415 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
13796 047416 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
13797 047417 434 07 0 00 046451 TLNN6: IOR AC,TSTLFT ;MAKE C(AC)L HAVE A BIT
13798 047420 200 05 0 00 000007 MOVE RAN1,AC ;SAVE C(AC) FOR FUTURE COMPARE.
13799 047421 204 10 0 00 000007 MOVS AC1,AC ;MAKE "E"=C(AC)L.
13800 047422 603 07 0 10 000000 TLNE AC,(AC1) ;E+C(AC)L NOT=0. NO SKIP
13801 047423 254 00 0 00 047425 JRST .+2
13802 047424 005 07 0 00 060674 ER AC,[ASCII /TST/];TLNE SKIPPED.
13803 047425 607 07 0 10 000000 TLNN AC,(AC1) ;E+C(AC)L NOT=0. SKIP
13804 047426 005 07 0 00 060674 ER AC,[ASCII /TST/]
13805 047427 312 07 0 00 000005 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
13806 047430 003 05 0 10 000000 ERRI RAN1,(AC1)
13807 LOOP TLNN5,TLNN6^
13808 047431 367 06 0 00 047413 SOJG AC-1,TLNN5 ;ITERATION COUNTER
13809 047432 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
13810 047433 321 06 0 00 047417 JUMPL AC-1,TLNN6 ;LOOP ON ERROR SWITCH ^
13811
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 22
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0359
13812
13813
13814 ;TEST TLNE, TLNN. CHECK FOR SKIP/NO SKIP AND
13815 ;NO DATA CHANGE IN AC FOR RAN1 TO RAN CONDITION
13816
13817
13818 000010 AC=10
13819 047434 TLNN7: SETUP 100,0^
13820 000011 AC1=<AC+1>&17
13821 000012 AC2=<AC+2>&17
13822 000013 AC3=<AC+3>&17
13823 000014 AC4=<AC+4>&17
13824 000015 AC5=<AC+5>&17
13825 000006 RAN1=<AC-2>&17
13826 047434 201 07 0 00 047434 MOVEI AC-1,.
13827 047435 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
13828 047436 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
13829 047437 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
13830 047440 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
13831 047441 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
13832 047442 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
13833 047443 TLNN8: RANDOM^
13834 047443 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
13835 047444 270 10 0 00 060657 ADD AC,[142536475076]
13836 047445 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
13837 047446 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
13838 047447 434 10 0 00 060715 TLNN9: IOR AC,[XWD 100,100];MAKE C(AC) + E HAVE A BIT.
13839 047450 200 06 0 00 000010 MOVE RAN1,AC ;SAVE C(AC) FOR FUTURE COMPARE.
13840 047451 200 11 0 00 000010 MOVE AC1,AC ;MAKE E A DIFF. RAN. NUM.
13841 047452 603 10 0 11 000000 TLNE AC,(AC1) ;E+C (AC)L NOT=0. NO SKIP,
13842 047453 254 00 0 00 047455 JRST .+2
13843 047454 005 10 0 00 060674 ER AC,[ASCII /TST/];TLNE SKIPPED.
13844 047455 607 10 0 11 000000 TLNN AC,(AC1) ;E+C(AC)L NOT=0. SKIP
13845 047456 005 10 0 00 060674 ER AC,[ASCII /TST/]
13846 047457 312 10 0 00 000006 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
13847 047460 003 06 0 11 000000 ERRI RAN1,(AC1)
13848 LOOP TLNN8,TLNN9^
13849 047461 367 07 0 00 047443 SOJG AC-1,TLNN8 ;ITERATION COUNTER
13850 047462 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
13851 047463 321 07 0 00 047447 JUMPL AC-1,TLNN9 ;LOOP ON ERROR SWITCH ^
13852
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 23
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0360
13853
13854
13855 ;TEST TLZ, TLZA. CHECK FOR SKIP/NO SKIP AND
13856 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
13857
13858
13859 000010 AC=10
13860 047464 TLZ1: SETUP 100,0^
13861 000011 AC1=<AC+1>&17
13862 000012 AC2=<AC+2>&17
13863 000013 AC3=<AC+3>&17
13864 000014 AC4=<AC+4>&17
13865 000015 AC5=<AC+5>&17
13866 000006 RAN1=<AC-2>&17
13867 047464 201 07 0 00 047464 MOVEI AC-1,.
13868 047465 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
13869 047466 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
13870 047467 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
13871 047470 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
13872 047471 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
13873 047472 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
13874 047473 TLZ2: RANDOM^
13875 047473 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
13876 047474 270 10 0 00 060657 ADD AC,[142536475076]
13877 047475 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
13878 047476 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
13879 047477 621 10 0 00 000000 TLZ3: TLZ AC,0 ;SHOULD NOT SKIP
13880 047500 254 00 0 00 047502 JRST .+2
13881 047501 005 10 0 00 060674 ER AC,[ASCII /TST/];TLZ SKIPPED.
13882 047502 625 10 0 00 000000 TLZA AC,0 ;SHOULD SKIP
13883 047503 005 10 0 00 060674 ER AC,[ASCII /TST/]
13884 047504 312 10 0 00 061125 CAME AC,RAN ;C(AC) SHOULD STILL=RAN NUM
13885 047505 013 00 0 00 000000 EERRI ,0
13886 LOOP TLZ2,TLZ3^
13887 047506 367 07 0 00 047473 SOJG AC-1,TLZ2 ;ITERATION COUNTER
13888 047507 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
13889 047510 321 07 0 00 047477 JUMPL AC-1,TLZ3 ;LOOP ON ERROR SWITCH ^
13890
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 24
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0361
13891
13892
13893 ;TEST TLZ, TLZA. CHECK FOR SKIP/NO SKIP AND
13894 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
13895
13896
13897 000003 AC=3
13898 047511 TLZ4: SETUP 100,0^
13899 000004 AC1=<AC+1>&17
13900 000005 AC2=<AC+2>&17
13901 000006 AC3=<AC+3>&17
13902 000007 AC4=<AC+4>&17
13903 000010 AC5=<AC+5>&17
13904 000001 RAN1=<AC-2>&17
13905 047511 201 02 0 00 047511 MOVEI AC-1,.
13906 047512 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
13907 047513 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
13908 047514 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
13909 047515 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
13910 047516 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
13911 047517 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
13912 047520 TLZ5: RANDOM^
13913 047520 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
13914 047521 270 03 0 00 060657 ADD AC,[142536475076]
13915 047522 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
13916 047523 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
13917 047524 403 04 0 00 000001 TLZ6: SETZB AC1,RAN1 ;CLEAR C(AC).
13918 047525 621 04 0 03 000000 TLZ AC1,(AC) ;SHOULD NOT SKIP
13919 047526 254 00 0 00 047530 JRST .+2
13920 047527 005 04 0 00 060674 ER AC1,[ASCII /TST/];TLZ SKIPPED.
13921 047530 625 04 0 03 000000 TLZA AC1,(AC) ;SHOULD SKIP
13922 047531 005 04 0 00 060674 ER AC1,[ASCII /TST/]
13923 047532 312 04 0 00 000001 CAME AC1,RAN1 ;C(AC) SHOULD STILL=0
13924 047533 003 01 0 03 000000 ERRI RAN1,(AC)
13925 LOOP TLZ5,TLZ6^
13926 047534 367 02 0 00 047520 SOJG AC-1,TLZ5 ;ITERATION COUNTER
13927 047535 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
13928 047536 321 02 0 00 047524 JUMPL AC-1,TLZ6 ;LOOP ON ERROR SWITCH ^
13929
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 25
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0362
13930
13931
13932 ;TEST TLZ, TLZA CHECK FOR SKIP/NO SKIP AND
13933 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION
13934
13935
13936 000003 AC=3
13937 047537 TLZ7: SETUP 100,0^
13938 000004 AC1=<AC+1>&17
13939 000005 AC2=<AC+2>&17
13940 000006 AC3=<AC+3>&17
13941 000007 AC4=<AC+4>&17
13942 000010 AC5=<AC+5>&17
13943 000001 RAN1=<AC-2>&17
13944 047537 201 02 0 00 047537 MOVEI AC-1,.
13945 047540 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
13946 047541 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
13947 047542 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
13948 047543 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
13949 047544 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
13950 047545 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
13951 047546 TLZ8: RANDOM^
13952 047546 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
13953 047547 270 03 0 00 060657 ADD AC,[142536475076]
13954 047550 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
13955 047551 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
13956 047552 200 04 0 00 000003 TLZ9: MOVE AC1,AC ;SIMULATE
13957 047553 405 04 0 00 777777 ANDI AC1,-1 ;A TLZ AC,-1.
13958 047554 621 03 0 00 777777 TLZ AC,-1 ;SHOULD NOT SKIP
13959 047555 254 00 0 00 047557 JRST .+2
13960 047556 005 03 0 00 060674 ER AC,[ASCII /TST/];TLZ SKIPPED.
13961 047557 625 03 0 00 777777 TLZA AC,-1 ;SHOULD SKIP
13962 047560 005 03 0 00 060674 ER AC,[ASCII /TST/]
13963 047561 312 03 0 00 000004 CAME AC,AC1 ;C(AC) SHOULD = SIM. ANS.
13964 047562 013 00 0 00 777777 EERRI ,-1
13965 LOOP TLZ8,TLZ9^
13966 047563 367 02 0 00 047546 SOJG AC-1,TLZ8 ;ITERATION COUNTER
13967 047564 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
13968 047565 321 02 0 00 047552 JUMPL AC-1,TLZ9 ;LOOP ON ERROR SWITCH ^
13969
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 26
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0363
13970
13971
13972 ;TEST TLZ, TLZA. CHECK FOR SKIP/NO SKIP AND
13973 ;CORRECT DATA IN AC FOR RAN TO -1 CONDITION
13974
13975
13976 000002 AC=2
13977 047566 TLZA1: SETUP 100,0^
13978 000003 AC1=<AC+1>&17
13979 000004 AC2=<AC+2>&17
13980 000005 AC3=<AC+3>&17
13981 000006 AC4=<AC+4>&17
13982 000007 AC5=<AC+5>&17
13983 000000 RAN1=<AC-2>&17
13984 047566 201 01 0 00 047566 MOVEI AC-1,.
13985 047567 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
13986 047570 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
13987 047571 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
13988 047572 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
13989 047573 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
13990 047574 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
13991 047575 TLZA2: RANDOM^
13992 047575 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
13993 047576 270 02 0 00 060657 ADD AC,[142536475076]
13994 047577 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
13995 047600 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
13996 047601 477 03 0 00 000000 TLZA3: SETOB AC1,RAN1 ;MAKE C(AC)=-1
13997 047602 205 04 0 02 000000 MOVSI AC2,(AC) ;SIMULATE A
13998 047603 450 04 0 00 000000 SETCA AC2, ;TLZ
13999 047604 621 03 0 02 000000 TLZ AC1,(AC) ;SHOULD NOT SKIP
14000 047605 254 00 0 00 047607 JRST .+2
14001 047606 005 03 0 00 060674 ER AC1,[ASCII /TST/]
14002 ;CORRECT DATA IN AC FOR NOT RAN1 TO RAN CONDITION.
14003
14004
14005 000004 AC=4
14006 047607 TLZA7: SETUP 100,0^
14007 000005 AC1=<AC+1>&17
14008 000006 AC2=<AC+2>&17
14009 000007 AC3=<AC+3>&17
14010 000010 AC4=<AC+4>&17
14011 000011 AC5=<AC+5>&17
14012 000002 RAN1=<AC-2>&17
14013 047607 201 03 0 00 047607 MOVEI AC-1,.
14014 047610 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
14015 047611 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
14016 047612 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
14017 047613 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
14018 047614 240 03 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
14019 047615 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
14020 047616 TLZA8: RANDOM^
14021 047616 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
14022 047617 270 04 0 00 060657 ADD AC,[142536475076]
14023 047620 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 26-1
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0364
14024 047621 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
14025 047622 200 05 0 00 000004 TLZA9: MOVE AC1,AC ;MAKE "E"
14026 047623 241 05 0 00 000011 ROT AC1,11 ;=A DIFFEREND VAND NUM
14027 047624 205 06 0 05 000000 MOVSI AC2,(AC1) ;SIMULATE
14028 047625 410 06 0 00 000004 ANDCA AC2,AC ;A TLZ
14029 047626 621 04 0 05 000000 TLZ AC,(AC1) ;SHOULD NOT SKIP,
14030 047627 254 00 0 00 047631 JRST .+2
14031 047630 005 04 0 00 060674 ER AC,[ASCII /TST/];TLZ SKIPPED.
14032 047631 625 04 0 05 000000 TLZA AC,(AC1) ;SHOULD SKIP.
14033 047632 005 04 0 00 060674 ER AC,[ASCII /TST/]
14034 047633 312 04 0 00 000006 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
14035 047634 013 00 0 05 000000 EERRI ,(AC1)
14036 LOOP TLZA8,TLZA9^
14037 047635 367 03 0 00 047616 SOJG AC-1,TLZA8 ;ITERATION COUNTER
14038 047636 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
14039 047637 321 03 0 00 047622 JUMPL AC-1,TLZA9 ;LOOP ON ERROR SWITCH ^
14040
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 27
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0365
14041
14042
14043 ;TEST TLZE, TLZN. CHECK FOR SKIP/NO SKIP AND
14044 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
14045
14046
14047 000005 AC=5
14048 047640 TLZE1: SETUP 100,0^
14049 000006 AC1=<AC+1>&17
14050 000007 AC2=<AC+2>&17
14051 000010 AC3=<AC+3>&17
14052 000011 AC4=<AC+4>&17
14053 000012 AC5=<AC+5>&17
14054 000003 RAN1=<AC-2>&17
14055 047640 201 04 0 00 047640 MOVEI AC-1,.
14056 047641 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
14057 047642 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
14058 047643 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
14059 047644 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
14060 047645 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
14061 047646 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
14062 047647 TLZE2: RANDOM^
14063 047647 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
14064 047650 270 05 0 00 060657 ADD AC,[142536475076]
14065 047651 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
14066 047652 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
14067 047653 627 05 0 00 000000 TLZE3: TLZN AC,0 ;E+C(AC)L=0. NO SKIP
14068 047654 254 00 0 00 047656 JRST .+2
14069 047655 005 05 0 00 060674 ER AC,[ASCII /TST/];TLZN SKIPPED.
14070 047656 623 05 0 00 000000 TLZE AC,0 ;E+C(AC)L=0. SKIP
14071 047657 005 05 0 00 060674 ER AC,[ASCII /TST/]
14072 047660 312 05 0 00 061125 CAME AC,RAN ;C(AC) SHOULD=ORIG. C(AC).
14073 047661 013 00 0 00 000000 EERRI ,0
14074 LOOP TLZE2,TLZE3^
14075 047662 367 04 0 00 047647 SOJG AC-1,TLZE2 ;ITERATION COUNTER
14076 047663 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
14077 047664 321 04 0 00 047653 JUMPL AC-1,TLZE3 ;LOOP ON ERROR SWITCH ^
14078
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 28
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0366
14079
14080
14081 ;TEST TLZE, TLZN. CHECK FOR SKIP/NO SKIP AND
14082 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION.
14083
14084
14085 000006 AC=6
14086 047665 TLZE4: SETUP 100,0^
14087 000007 AC1=<AC+1>&17
14088 000010 AC2=<AC+2>&17
14089 000011 AC3=<AC+3>&17
14090 000012 AC4=<AC+4>&17
14091 000013 AC5=<AC+5>&17
14092 000004 RAN1=<AC-2>&17
14093 047665 201 05 0 00 047665 MOVEI AC-1,.
14094 047666 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
14095 047667 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
14096 047670 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
14097 047671 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
14098 047672 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
14099 047673 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
14100 047674 TLZE5: RANDOM^
14101 047674 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
14102 047675 270 06 0 00 060657 ADD AC,[142536475076]
14103 047676 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
14104 047677 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
14105 047700 403 07 0 00 000004 TLZE6: SETZB AC1,RAN1 ;CLEAR C(AC)
14106 047701 627 07 0 06 000000 TLZN AC1,(AC) ;E+C(AC)L=0. NO SKIP
14107 047702 254 00 0 00 047704 JRST .+2
14108 047703 005 07 0 00 060674 ER AC1,[ASCII /TST/];TLZN SKIPPED.
14109 047704 623 07 0 06 000000 TLZE AC1,(AC) ;E+C(AC)L=0. SKIP
14110 047705 005 07 0 00 060674 ER AC1,[ASCII /TST/]
14111 047706 312 07 0 00 060660 CAME AC1,[0] ;C(AC) SHOULD=ORIG. C(AC)
14112 047707 003 04 0 06 000000 ERRI RAN1,(AC)
14113 LOOP TLZE5,TLZE6^
14114 047710 367 05 0 00 047674 SOJG AC-1,TLZE5 ;ITERATION COUNTER
14115 047711 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
14116 047712 321 05 0 00 047700 JUMPL AC-1,TLZE6 ;LOOP ON ERROR SWITCH ^
14117
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 29
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0367
14118
14119
14120 ;TEST TLZE, TLZN. CHECK FOR SKIP/NO SKIP AND
14121 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION.
14122
14123
14124 000007 AC=7
14125 047713 TLZE7: SETUP 100,0^
14126 000010 AC1=<AC+1>&17
14127 000011 AC2=<AC+2>&17
14128 000012 AC3=<AC+3>&17
14129 000013 AC4=<AC+4>&17
14130 000014 AC5=<AC+5>&17
14131 000005 RAN1=<AC-2>&17
14132 047713 201 06 0 00 047713 MOVEI AC-1,.
14133 047714 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
14134 047715 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
14135 047716 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
14136 047717 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
14137 047720 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
14138 047721 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
14139 047722 TLZE8: RANDOM^
14140 047722 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
14141 047723 270 07 0 00 060657 ADD AC,[142536475076]
14142 047724 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
14143 047725 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
14144 047726 434 07 0 00 046452 TLZE9: IOR AC,TLFT1 ;SET A BIT IN LEFT SIDE OF AC.
14145 047727 200 05 0 00 000007 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
14146 047730 200 11 0 00 000007 MOVE AC2,AC ;SIMULATE
14147 047731 405 11 0 00 777777 ANDI AC2,-1 ;A TLZ AC,-1
14148 047732 623 07 0 00 777777 TLZE AC,-1 ;E+C(AC)L NOT = 0..NO SKIP.
14149 047733 312 07 0 00 000011 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
14150 047734 003 05 0 00 777777 ERRI RAN1,-1
14151 047735 200 07 0 00 000005 MOVE AC,RAN1 ;RESTORE AC.
14152 047736 627 07 0 00 777777 TLZN AC,-1 ;E+C(AC)L NOT = 0...SKIP.
14153 047737 005 07 0 00 060674 ER AC,[ASCII /TST/]
14154 047740 312 07 0 00 000011 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
14155 047741 003 05 0 00 777777 ERRI RAN1,-1
14156 LOOP TLZE8,TLZE9^
14157 047742 367 06 0 00 047722 SOJG AC-1,TLZE8 ;ITERATION COUNTER
14158 047743 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
14159 047744 321 06 0 00 047726 JUMPL AC-1,TLZE9 ;LOOP ON ERROR SWITCH ^
14160
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 30
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0368
14161
14162
14163 ;TEST TLZE, TLZN. CHECK FOR SKIP/NO SKIP AND
14164 ;CORRECT DATA IN AC FOR RAN TO-1 CONDITION
14165
14166
14167 000010 AC=10
14168 047745 TLZN1: SETUP 100,0^
14169 000011 AC1=<AC+1>&17
14170 000012 AC2=<AC+2>&17
14171 000013 AC3=<AC+3>&17
14172 000014 AC4=<AC+4>&17
14173 000015 AC5=<AC+5>&17
14174 000006 RAN1=<AC-2>&17
14175 047745 201 07 0 00 047745 MOVEI AC-1,.
14176 047746 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
14177 047747 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
14178 047750 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
14179 047751 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
14180 047752 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
14181 047753 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
14182 047754 TLZN2: RANDOM^
14183 047754 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
14184 047755 270 10 0 00 060657 ADD AC,[142536475076]
14185 047756 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
14186 047757 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
14187 047760 435 10 0 00 000400 TLZN3: IORI AC,400 ;SET A BIT IN E.
14188 047761 477 11 0 00 000006 SETOB AC1,RAN1 ;MAKE C(AC) =-1
14189 047762 205 12 0 10 000000 MOVSI AC2,(AC) ;SIMULATE
14190 047763 450 12 0 00 000000 SETCA AC2, ;A TLZ
14191 047764 623 11 0 10 000000 TLZE AC1,(AC) ;E+C(AC) L NOT=0 NO SKIP
14192 047765 312 11 0 00 000012 CAME AC1,AC2 ;C(AC) SHOULD=SIM. ANS
14193 047766 003 06 0 10 000000 ERRI RAN1,(AC)
14194 047767 474 11 0 00 000000 SETO AC1, ;RESTORE AC TO A-1
14195 047770 627 11 0 10 000000 TLZN AC1,(AC)
14196 047771 005 11 0 00 060674 ER AC1,[ASCII /TST/]
14197 047772 312 11 0 00 000012 CAME AC1,AC2 ;C(AC) SHOULD=SIM. ANS
14198 047773 003 06 0 10 000000 ERRI RAN1,(AC)
14199 LOOP TLZN2,TLZN3^
14200 047774 367 07 0 00 047754 SOJG AC-1,TLZN2 ;ITERATION COUNTER
14201 047775 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
14202 047776 321 07 0 00 047760 JUMPL AC-1,TLZN3 ;LOOP ON ERROR SWITCH ^
14203
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 31
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0369
14204
14205
14206 ;TEST TLZE, TLZN CHECK FOR SKIP/NO SKIP AND
14207 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION.
14208
14209
14210 000011 AC=11
14211 047777 TLZN4: SETUP 100,0^
14212 000012 AC1=<AC+1>&17
14213 000013 AC2=<AC+2>&17
14214 000014 AC3=<AC+3>&17
14215 000015 AC4=<AC+4>&17
14216 000016 AC5=<AC+5>&17
14217 000007 RAN1=<AC-2>&17
14218 047777 201 10 0 00 047777 MOVEI AC-1,.
14219 050000 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
14220 050001 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
14221 050002 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
14222 050003 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
14223 050004 240 10 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
14224 050005 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
14225 050006 TLZN5: RANDOM^
14226 050006 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
14227 050007 270 11 0 00 060657 ADD AC,[142536475076]
14228 050010 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
14229 050011 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
14230 050012 434 11 0 00 046453 TLZN6: IOR AC,TLFT2 ;SET A BIT IN LEFT SIDE OF AC.
14231 050013 200 07 0 00 000011 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
14232 050014 204 12 0 00 000011 MOVS AC1,AC ;MAKE E = C(AC)L.
14233 050015 200 13 0 00 000011 MOVE AC2,AC ;SIMULATE
14234 050016 405 13 0 00 777777 ANDI AC2,-1 ;A TLZ
14235 050017 623 11 0 12 000000 TLZE AC,(AC1) ;E+C(AC)L NOT=0. NO SKIP.
14236 050020 312 11 0 00 000013 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
14237 050021 003 07 0 12 000000 ERRI RAN1,(AC1)
14238 050022 204 11 0 00 000012 MOVS AC,AC1 ;RESTORE AC.
14239 050023 627 11 0 12 000000 TLZN AC,(AC1) ;E+C(AC)L NOT=0 SKIP.
14240 050024 005 11 0 00 060674 ER AC,[ASCII /TST/]
14241 050025 312 11 0 00 000013 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
14242 050026 003 07 0 12 000000 ERRI RAN1,(AC1)
14243 LOOP TLZN5,TLZN6^
14244 050027 367 10 0 00 050006 SOJG AC-1,TLZN5 ;ITERATION COUNTER
14245 050030 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
14246 050031 321 10 0 00 050012 JUMPL AC-1,TLZN6 ;LOOP ON ERROR SWITCH ^
14247
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 32
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0370
14248
14249
14250 ;TEST TLZE, TLZN. CHECK FOR SKIP/NO SKIP AND
14251 ;CORRECT DATA IN AC FOR RAN1 TO RAN CONDITION.
14252
14253
14254 000004 AC=4
14255 050032 TLZN7: SETUP 100,1^
14256 000005 AC1=<AC+1>&17
14257 000006 AC2=<AC+2>&17
14258 000007 AC3=<AC+3>&17
14259 000010 AC4=<AC+4>&17
14260 000011 AC5=<AC+5>&17
14261 000002 RAN1=<AC-2>&17
14262 050032 201 03 0 00 050032 MOVEI AC-1,.
14263 050033 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
14264 050034 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
14265 050035 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
14266 050036 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
14267 050037 240 03 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
14268 050040 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
14269 050041 TLZN8: RANDOM^
14270 050041 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
14271 050042 270 04 0 00 060657 ADD AC,[142536475076]
14272 050043 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
14273 050044 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
14274 050045 434 04 0 00 060716 TLZN9: IOR AC,[XWD 10000,10000];SET A BIT IN C(AC) + E.
14275 050046 200 02 0 00 000004 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
14276 050047 200 05 0 00 000004 MOVE AC1,AC ;MAKE E = A DIFF. RAN NUM.
14277 050050 205 06 0 05 000000 MOVSI AC2,(AC1) ;SIMULATE
14278 050051 410 06 0 00 000004 ANDCA AC2,AC ;A TLZ.
14279 050052 623 04 0 05 000000 TLZE AC,(AC1) ;E+C(AC)L NOT = 0...NO SKIP.
14280 050053 312 04 0 00 000006 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
14281 050054 003 02 0 05 000000 ERRI RAN1,(AC1)
14282 050055 200 04 0 00 000002 MOVE AC,RAN1 ;RESTORE AC.
14283 050056 627 04 0 05 000000 TLZN AC,(AC1) ;E+C(AC)L NOT=0. SKIP.
14284 050057 005 04 0 00 060674 ER AC,[ASCII /TST/]
14285 050060 312 04 0 00 000006 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
14286 050061 003 02 0 05 000000 ERRI RAN1,(AC1)
14287 LOOP TLZN8,TLZN9^
14288 050062 367 03 0 00 050041 SOJG AC-1,TLZN8 ;ITERATION COUNTER
14289 050063 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
14290 050064 321 03 0 00 050045 JUMPL AC-1,TLZN9 ;LOOP ON ERROR SWITCH ^
14291
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 33
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0371
14292
14293
14294 ;TEST TLO, TLOA CHECK FOR SKIP/NO SKIP AND
14295 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION.
14296
14297
14298 000005 AC=5
14299 050065 TLO1: SETUP 100,0^
14300 000006 AC1=<AC+1>&17
14301 000007 AC2=<AC+2>&17
14302 000010 AC3=<AC+3>&17
14303 000011 AC4=<AC+4>&17
14304 000012 AC5=<AC+5>&17
14305 000003 RAN1=<AC-2>&17
14306 050065 201 04 0 00 050065 MOVEI AC-1,.
14307 050066 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
14308 050067 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
14309 050070 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
14310 050071 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
14311 050072 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
14312 050073 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
14313 050074 TLO2: RANDOM^
14314 050074 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
14315 050075 270 05 0 00 060657 ADD AC,[142536475076]
14316 050076 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
14317 050077 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
14318 050100 661 05 0 00 000000 TLO3: TLO AC,0 ;SHOULD NOT SKIP.
14319 050101 254 00 0 00 050103 JRST .+2
14320 050102 005 05 0 00 060674 ER AC,[ASCII /TST/];TLO SKIPPED.
14321 050103 665 05 0 00 000000 TLOA AC,0 ;SHOULD SKIP
14322 050104 005 05 0 00 060674 ER AC,[ASCII /TST/]
14323 050105 312 05 0 00 061125 CAME AC,RAN ;C(AC) SHOULD=ORIG C(AC)
14324 050106 013 00 0 00 000000 EERRI
14325 LOOP TLO2,TLO3^
14326 050107 367 04 0 00 050074 SOJG AC-1,TLO2 ;ITERATION COUNTER
14327 050110 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
14328 050111 321 04 0 00 050100 JUMPL AC-1,TLO3 ;LOOP ON ERROR SWITCH ^
14329
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 34
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0372
14330
14331
14332 ;TEST TLO, TLOA. CHECK FOR SKIP/NO SKIP AND
14333 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
14334
14335
14336 000006 AC=6
14337 050112 TLO4: SETUP 100,0^
14338 000007 AC1=<AC+1>&17
14339 000010 AC2=<AC+2>&17
14340 000011 AC3=<AC+3>&17
14341 000012 AC4=<AC+4>&17
14342 000013 AC5=<AC+5>&17
14343 000004 RAN1=<AC-2>&17
14344 050112 201 05 0 00 050112 MOVEI AC-1,.
14345 050113 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
14346 050114 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
14347 050115 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
14348 050116 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
14349 050117 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
14350 050120 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
14351 050121 TLO5: RANDOM^
14352 050121 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
14353 050122 270 06 0 00 060657 ADD AC,[142536475076]
14354 050123 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
14355 050124 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
14356 050125 403 07 0 00 000004 TLO6: SETZB AC1,RAN1 ;CLEAR C(AC).
14357 050126 205 10 0 06 000000 MOVSI AC2,(AC) ;SIMULATE TLO.
14358 050127 661 07 0 06 000000 TLO AC1,(AC) ;SHOULD NOT SKIP
14359 050130 254 00 0 00 050132 JRST .+2
14360 050131 005 07 0 00 060674 ER AC1,[ASCII /TST/];TLO SKIPPED.
14361 050132 665 07 0 06 000000 TLOA AC1,(AC) ;SHOULD SKIP
14362 050133 005 07 0 00 060674 ER AC1,[ASCII /TST/]
14363 050134 312 07 0 00 000010 CAME AC1,AC2 ;C(AC) SHOULD=SIM. ANS
14364 050135 003 04 0 06 000000 ERRI RAN1,(AC)
14365 LOOP TLO5,TLO6^
14366 050136 367 05 0 00 050121 SOJG AC-1,TLO5 ;ITERATION COUNTER
14367 050137 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
14368 050140 321 05 0 00 050125 JUMPL AC-1,TLO6 ;LOOP ON ERROR SWITCH ^
14369
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 35
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0373
14370
14371
14372 ;TEST TLO, TLOA CHECK FOR SKIP/NO SKIP AND
14373 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION
14374
14375
14376 000007 AC=7
14377 050141 TLO7: SETUP 100,0^
14378 000010 AC1=<AC+1>&17
14379 000011 AC2=<AC+2>&17
14380 000012 AC3=<AC+3>&17
14381 000013 AC4=<AC+4>&17
14382 000014 AC5=<AC+5>&17
14383 000005 RAN1=<AC-2>&17
14384 050141 201 06 0 00 050141 MOVEI AC-1,.
14385 050142 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
14386 050143 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
14387 050144 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
14388 050145 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
14389 050146 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
14390 050147 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
14391 050150 TLO8: RANDOM^
14392 050150 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
14393 050151 270 07 0 00 060657 ADD AC,[142536475076]
14394 050152 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
14395 050153 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
14396 050154 200 10 0 00 000007 TLO9: MOVE AC1,AC ;SIMULATE
14397 050155 434 10 0 00 060672 IOR AC1,[XWD -1,0] ;A TLO AC,-1.
14398 050156 661 07 0 00 777777 TLO AC,-1 ;SHOULD NOT SKIP
14399 050157 254 00 0 00 050161 JRST .+2
14400 050160 005 07 0 00 060674 ER AC,[ASCII /TST/];TLO SKIPPED.
14401 050161 665 07 0 00 777777 TLOA AC,-1 ;SHOULD SKIP
14402 050162 005 07 0 00 060674 ER AC,[ASCII /TST/]
14403 050163 312 07 0 00 000010 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
14404 050164 013 00 0 00 777777 EERRI ,-1
14405 LOOP TLO8,TLO9^
14406 050165 367 06 0 00 050150 SOJG AC-1,TLO8 ;ITERATION COUNTER
14407 050166 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
14408 050167 321 06 0 00 050154 JUMPL AC-1,TLO9 ;LOOP ON ERROR SWITCH ^
14409
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 36
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0374
14410
14411
14412 ;TEST TLO, TLOA. CHECK FOR SKIP/NO SKIP AND
14413 ;CORRECT DATA IN AC FOR RAN TO -1 CONDITION.
14414
14415
14416 000010 AC=10
14417 050170 TLOA1: SETUP 100,0^
14418 000011 AC1=<AC+1>&17
14419 000012 AC2=<AC+2>&17
14420 000013 AC3=<AC+3>&17
14421 000014 AC4=<AC+4>&17
14422 000015 AC5=<AC+5>&17
14423 000006 RAN1=<AC-2>&17
14424 050170 201 07 0 00 050170 MOVEI AC-1,.
14425 050171 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
14426 050172 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
14427 050173 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
14428 050174 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
14429 050175 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
14430 050176 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
14431 050177 TLOA2: RANDOM^
14432 050177 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
14433 050200 270 10 0 00 060657 ADD AC,[142536475076]
14434 050201 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
14435 050202 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
14436 050203 477 11 0 00 000006 TLOA3: SETOB AC1,RAN1 ;MAKE C(AC)=-1.
14437 050204 661 11 0 10 000000 TLO AC1,(AC) ;SHOULD NOT SKIP
14438 050205 254 00 0 00 050207 JRST .+2
14439 050206 005 11 0 00 060674 ER AC1,[ASCII /TST/];TLO SKIPPED.
14440 050207 665 11 0 10 000000 TLOA AC1,(AC) ;SHOULD SKIP.
14441 050210 005 11 0 00 060674 ER AC1,[ASCII /TST/]
14442 050211 312 11 0 00 060662 CAME AC1,[-1] ;C(AC) SHOULD STILL=-1
14443 050212 003 06 0 10 000000 ERRI RAN1,(AC)
14444 LOOP TLOA2,TLOA3^
14445 050213 367 07 0 00 050177 SOJG AC-1,TLOA2 ;ITERATION COUNTER
14446 050214 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
14447 050215 321 07 0 00 050203 JUMPL AC-1,TLOA3 ;LOOP ON ERROR SWITCH ^
14448
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 37
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0375
14449
14450
14451 ;TEST TLO, TLOA. CHECK FOR SKIP/NO SKIP AND
14452 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION.
14453
14454
14455 000002 AC=2
14456 050216 TLOA4: SETUP 100,0^
14457 000003 AC1=<AC+1>&17
14458 000004 AC2=<AC+2>&17
14459 000005 AC3=<AC+3>&17
14460 000006 AC4=<AC+4>&17
14461 000007 AC5=<AC+5>&17
14462 000000 RAN1=<AC-2>&17
14463 050216 201 01 0 00 050216 MOVEI AC-1,.
14464 050217 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
14465 050220 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
14466 050221 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
14467 050222 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
14468 050223 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
14469 050224 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
14470 050225 TLOA5: RANDOM^
14471 050225 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
14472 050226 270 02 0 00 060657 ADD AC,[142536475076]
14473 050227 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
14474 050230 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
14475 050231 204 03 0 00 000002 TLOA6: MOVS AC1,AC ;MAKE "E"=C(AC)L.
14476 050232 661 02 0 03 000000 TLO AC,(AC1) ;SHOULD NOT SKIP
14477 050233 254 00 0 00 050235 JRST .+2
14478 050234 005 02 0 00 060674 ER AC,[ASCII /TST/];TLO SKIPPED.
14479 050235 665 02 0 03 000000 TLOA AC,(AC1) ;SHOULD SKIP
14480 050236 005 02 0 00 060674 ER AC,[ASCII /TST/]
14481 050237 312 02 0 00 061125 CAME AC,RAN ;C(AC) SHOULD=ORIG. C(AC)
14482 050240 013 00 0 03 000000 EERRI ,(AC1)
14483 LOOP TLOA5,TLOA6^
14484 050241 367 01 0 00 050225 SOJG AC-1,TLOA5 ;ITERATION COUNTER
14485 050242 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
14486 050243 321 01 0 00 050231 JUMPL AC-1,TLOA6 ;LOOP ON ERROR SWITCH ^
14487
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 38
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0376
14488
14489
14490 ;TEST TLO, TLOA. CHECK FOR SKIPNO SKIP AND
14491 ;CORRECT DATA IN AC FOR RAN1 TO RAN CONDITION
14492
14493
14494 000002 AC=2
14495 050244 TLOA7: SETUP 100,0^
14496 000003 AC1=<AC+1>&17
14497 000004 AC2=<AC+2>&17
14498 000005 AC3=<AC+3>&17
14499 000006 AC4=<AC+4>&17
14500 000007 AC5=<AC+5>&17
14501 000000 RAN1=<AC-2>&17
14502 050244 201 01 0 00 050244 MOVEI AC-1,.
14503 050245 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
14504 050246 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
14505 050247 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
14506 050250 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
14507 050251 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
14508 050252 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
14509 050253 TLOA8: RANDOM^
14510 050253 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
14511 050254 270 02 0 00 060657 ADD AC,[142536475076]
14512 050255 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
14513 050256 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
14514 050257 200 03 0 00 000002 TLOA9: MOVE AC1,AC ;MAKE "E"
14515 050260 241 03 0 00 000011 ROT AC1,11 ;=A DIFFERENT RAN NUM
14516 050261 205 04 0 03 000000 MOVSI AC2,(AC1) ;SIMULATE
14517 050262 434 04 0 00 000002 IOR AC2,AC ;A TLO
14518 050263 661 02 0 03 000000 TLO AC,(AC1) ;SHOULD NOT SKIP
14519 050264 254 00 0 00 050266 JRST .+2
14520 050265 005 02 0 00 060674 ER AC,[ASCII /TST/];TLO SKIPPED.
14521 050266 665 02 0 03 000000 TLOA AC,(AC1) ;SHOULD SKIP
14522 050267 005 02 0 00 060674 ER AC,[ASCII /TST/]
14523 050270 312 02 0 00 000004 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
14524 050271 013 00 0 03 000000 EERRI ,(AC1)
14525 LOOP TLOA8,TLOA9^
14526 050272 367 01 0 00 050253 SOJG AC-1,TLOA8 ;ITERATION COUNTER
14527 050273 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
14528 050274 321 01 0 00 050257 JUMPL AC-1,TLOA9 ;LOOP ON ERROR SWITCH ^
14529
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 39
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0377
14530
14531
14532 ;TEST TLOE, TLON. CHECK FOR SKIP/NO SKIP AND
14533 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION.
14534
14535
14536 000002 AC=2
14537 050275 TLOE1: SETUP 100,0^
14538 000003 AC1=<AC+1>&17
14539 000004 AC2=<AC+2>&17
14540 000005 AC3=<AC+3>&17
14541 000006 AC4=<AC+4>&17
14542 000007 AC5=<AC+5>&17
14543 000000 RAN1=<AC-2>&17
14544 050275 201 01 0 00 050275 MOVEI AC-1,.
14545 050276 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
14546 050277 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
14547 050300 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
14548 050301 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
14549 050302 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
14550 050303 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
14551 050304 TLOE2: RANDOM^
14552 050304 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
14553 050305 270 02 0 00 060657 ADD AC,[142536475076]
14554 050306 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
14555 050307 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
14556 050310 667 02 0 00 000000 TLOE3: TLON AC,0 ;E+C(AC)=0. NO SKIP.
14557 050311 254 00 0 00 050313 JRST .+2
14558 050312 005 02 0 00 060674 ER AC,[ASCII /TST/];TLON SKIPPED.
14559 050313 663 02 0 00 000000 TLOE AC,0 ;E+C(AC)=0. SKIP
14560 050314 005 02 0 00 060674 ER AC,[ASCII /TST/]
14561 050315 312 02 0 00 061125 CAME AC,RAN ;C(AC) SHOULD=ORIG. C(AC)
14562 050316 013 00 0 00 000000 EERRI
14563 LOOP TLOE2,TLOE3^
14564 050317 367 01 0 00 050304 SOJG AC-1,TLOE2 ;ITERATION COUNTER
14565 050320 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
14566 050321 321 01 0 00 050310 JUMPL AC-1,TLOE3 ;LOOP ON ERROR SWITCH ^
14567
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 40
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0378
14568
14569
14570 ;TEST TLOE, TLON. CHECK FOR SKIP/NO SKIP AND
14571 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION.
14572
14573
14574 000003 AC=3
14575 050322 TLOE4: SETUP 100,0^
14576 000004 AC1=<AC+1>&17
14577 000005 AC2=<AC+2>&17
14578 000006 AC3=<AC+3>&17
14579 000007 AC4=<AC+4>&17
14580 000010 AC5=<AC+5>&17
14581 000001 RAN1=<AC-2>&17
14582 050322 201 02 0 00 050322 MOVEI AC-1,.
14583 050323 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
14584 050324 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
14585 050325 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
14586 050326 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
14587 050327 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
14588 050330 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
14589 050331 TLOE5: RANDOM^
14590 050331 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
14591 050332 270 03 0 00 060657 ADD AC,[142536475076]
14592 050333 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
14593 050334 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
14594 050335 435 03 0 00 020000 TLOE6: IORI AC,20000 ;SET A BIT IN E.
14595 050336 403 04 0 00 000001 SETZB AC1,RAN1 ;CLEAR AC.
14596 050337 205 05 0 03 000000 MOVSI AC2,(AC) ;SIMULATE A TLO
14597 050340 663 04 0 03 000000 TLOE AC1,(AC) ;E+C(AC)L=0. SKIP
14598 050341 005 04 0 00 060674 ER AC1,[ASCII /TST/]
14599 050342 667 04 0 03 000000 TLON AC1,(AC) ;E+C(AC)L NOT=0. SKIP
14600 050343 005 04 0 00 060674 ER AC1,[ASCII /TST/]
14601 050344 312 04 0 00 000005 CAME AC1,AC2 ;C(AC) SHOULD=SIM. ANS
14602 050345 003 01 0 03 000000 ERRI RAN1,(AC)
14603 LOOP TLOE5,TLOE6^
14604 050346 367 02 0 00 050331 SOJG AC-1,TLOE5 ;ITERATION COUNTER
14605 050347 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
14606 050350 321 02 0 00 050335 JUMPL AC-1,TLOE6 ;LOOP ON ERROR SWITCH ^
14607
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 41
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0379
14608
14609
14610 ;TEST TLOE, TLON. CHECK FOR SKIP/NO SKIP AND
14611 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION.
14612
14613
14614 000002 AC=2
14615 050351 TLOE7: SETUP 100,0^
14616 000003 AC1=<AC+1>&17
14617 000004 AC2=<AC+2>&17
14618 000005 AC3=<AC+3>&17
14619 000006 AC4=<AC+4>&17
14620 000007 AC5=<AC+5>&17
14621 000000 RAN1=<AC-2>&17
14622 050351 201 01 0 00 050351 MOVEI AC-1,.
14623 050352 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
14624 050353 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
14625 050354 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
14626 050355 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
14627 050356 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
14628 050357 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
14629 050360 TLOE8: RANDOM^
14630 050360 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
14631 050361 270 02 0 00 060657 ADD AC,[142536475076]
14632 050362 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
14633 050363 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
14634 050364 434 02 0 00 046451 TLOE9: IOR AC,TSTLFT ;SET A BIT IN LEFT SIDE OF AC.
14635 050365 200 00 0 00 000002 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
14636 050366 205 03 0 00 777777 MOVSI AC1,-1 ;SIMULATE
14637 050367 434 03 0 00 000002 IOR AC1,AC ;A TLO.
14638 050370 663 02 0 00 777777 TLOE AC,-1 ;E+C(AC)L NOT=0. NO SKIP.
14639 050371 254 00 0 00 050373 JRST .+2
14640 050372 005 02 0 00 060674 ER AC,[ASCII /TST/];TLOE SKIPPED.
14641 050373 667 02 0 00 777777 TLON AC,-1 ;E+C(AC)L NOT=0. SKIP
14642 050374 005 02 0 00 060674 ER AC,[ASCII /TST/]
14643 050375 312 02 0 00 000003 CAME AC,AC1
14644 050376 003 00 0 00 777777 ERRI RAN1,-1
14645 LOOP TLOE8,TLOE9^
14646 050377 367 01 0 00 050360 SOJG AC-1,TLOE8 ;ITERATION COUNTER
14647 050400 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
14648 050401 321 01 0 00 050364 JUMPL AC-1,TLOE9 ;LOOP ON ERROR SWITCH ^
14649
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 42
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0380
14650
14651
14652 ;TEST TLOE, TLON. CHECK FOR SKIP/NO SKIP AND
14653 ;CORRECT DATA IN AC FOR RAN TO -1 CONDITION.
14654
14655
14656 000003 AC=3
14657 050402 TLON1: SETUP 100,0^
14658 000004 AC1=<AC+1>&17
14659 000005 AC2=<AC+2>&17
14660 000006 AC3=<AC+3>&17
14661 000007 AC4=<AC+4>&17
14662 000010 AC5=<AC+5>&17
14663 000001 RAN1=<AC-2>&17
14664 050402 201 02 0 00 050402 MOVEI AC-1,.
14665 050403 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
14666 050404 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
14667 050405 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
14668 050406 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
14669 050407 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
14670 050410 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
14671 050411 TLON2: RANDOM^
14672 050411 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
14673 050412 270 03 0 00 060657 ADD AC,[142536475076]
14674 050413 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
14675 050414 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
14676 050415 435 03 0 00 000010 TLON3: IORI AC,10 ;SET A BIT IN E
14677 050416 477 04 0 00 000001 SETOB AC1,RAN1 ;SET C(AC) TO=-1.
14678 050417 663 04 0 03 000000 TLOE AC1,(AC) ;E+C(AC)L NOT =0. NO SKIP
14679 050420 254 00 0 00 050422 JRST .+2
14680 050421 005 04 0 00 060674 ER AC1,[ASCII /TST/];TLOE SKIPPED.
14681 050422 667 04 0 03 000000 TLON AC1,(AC) ;E+C(AC)L NOT=0 SKIP
14682 050423 005 04 0 00 060674 ER AC1,[ASCII /TST/]
14683 050424 312 04 0 00 060662 CAME AC1,[-1] ;C(AC) SHOULD STILL=-1.
14684 050425 003 01 0 03 000000 ERRI RAN1,(AC)
14685 LOOP TLON2,TLON3^
14686 050426 367 02 0 00 050411 SOJG AC-1,TLON2 ;ITERATION COUNTER
14687 050427 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
14688 050430 321 02 0 00 050415 JUMPL AC-1,TLON3 ;LOOP ON ERROR SWITCH ^
14689
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 43
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0381
14690
14691
14692 ;TEST TLOE, TLON. CHECK FOR SKIP/NO SKIP
14693 ;AND CORRECT DATA IN AC FOR RAN TO RAN CONDITION
14694
14695
14696 000004 AC=4
14697 050431 TLON4: SETUP 100,0^
14698 000005 AC1=<AC+1>&17
14699 000006 AC2=<AC+2>&17
14700 000007 AC3=<AC+3>&17
14701 000010 AC4=<AC+4>&17
14702 000011 AC5=<AC+5>&17
14703 000002 RAN1=<AC-2>&17
14704 050431 201 03 0 00 050431 MOVEI AC-1,.
14705 050432 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
14706 050433 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
14707 050434 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
14708 050435 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
14709 050436 240 03 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
14710 050437 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
14711 050440 TLON5: RANDOM^
14712 050440 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
14713 050441 270 04 0 00 060657 ADD AC,[142536475076]
14714 050442 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
14715 050443 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
14716 050444 434 04 0 00 046452 TLON6: IOR AC,TLFT1 ;SET A BIT IN LEFT SIDE OF AC.
14717 050445 200 02 0 00 000004 MOVE RAN1,AC ;SAVE C(AC) FOR FUTURE COMPARE.
14718 050446 204 05 0 00 000004 MOVS AC1,AC ;MAKE E = C(AC)L.
14719 050447 663 04 0 05 000000 TLOE AC,(AC1) ;E+C(AC)L NOT=0. NO SKIP.
14720 050450 254 00 0 00 050452 JRST .+2
14721 050451 005 04 0 00 060674 ER AC,[ASCII /TST/];TLOE SKIPPED.
14722 050452 667 04 0 05 000000 TLON AC,(AC1) ;E+C(AC)L NOT=0 SKIP
14723 050453 005 04 0 00 060674 ER AC,[ASCII /TST/]
14724 050454 312 04 0 00 000002 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
14725 050455 003 02 0 05 000000 ERRI RAN1,(AC1)
14726 LOOP TLON5,TLON6^
14727 050456 367 03 0 00 050440 SOJG AC-1,TLON5 ;ITERATION COUNTER
14728 050457 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
14729 050460 321 03 0 00 050444 JUMPL AC-1,TLON6 ;LOOP ON ERROR SWITCH ^
14730
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 44
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0382
14731
14732
14733 ;TEST TLOE, TLON. CHECK FOR SKIP/NO SKIP AND
14734 ;CORRECT DATA IN AC FOR RAN1 TO RAN CONDITION.
14735
14736
14737 000005 AC=5
14738 050461 TLON7: SETUP 100,1^
14739 000006 AC1=<AC+1>&17
14740 000007 AC2=<AC+2>&17
14741 000010 AC3=<AC+3>&17
14742 000011 AC4=<AC+4>&17
14743 000012 AC5=<AC+5>&17
14744 000003 RAN1=<AC-2>&17
14745 050461 201 04 0 00 050461 MOVEI AC-1,.
14746 050462 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
14747 050463 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
14748 050464 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
14749 050465 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
14750 050466 240 04 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
14751 050467 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
14752 050470 TLON8: RANDOM^
14753 050470 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
14754 050471 270 05 0 00 060657 ADD AC,[142536475076]
14755 050472 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
14756 050473 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
14757 050474 434 05 0 00 060717 TLON9: IOR AC,[XWD 400000,400000];SET A BIT IN AC + E.
14758 050475 200 03 0 00 000005 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
14759 050476 200 06 0 00 000005 MOVE AC1,AC ;MAKE E A DIFF RAN NUM.
14760 050477 205 07 0 06 000000 MOVSI AC2,(AC1) ;SIMULATE
14761 050500 434 07 0 00 000005 IOR AC2,AC ;A TLO
14762 050501 663 05 0 06 000000 TLOE AC,(AC1) ;E+C(AC)L NOT = 0...NO SKIP.
14763 050502 254 00 0 00 050504 JRST .+2
14764 050503 005 05 0 00 060674 ER AC,[ASCII /TST/];TLOE SKIPPED.
14765 050504 667 05 0 06 000000 TLON AC,(AC1) ;E+C(AC)L NOT=0. SKIP
14766 050505 005 05 0 00 060674 ER AC,[ASCII /TST/]
14767 050506 312 05 0 00 000007 CAME AC,AC2
14768 050507 003 03 0 06 000000 ERRI RAN1,(AC1) ;C(AC) SHOULD=SIM. ANS
14769 LOOP TLON8,TLON9^
14770 050510 367 04 0 00 050470 SOJG AC-1,TLON8 ;ITERATION COUNTER
14771 050511 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
14772 050512 321 04 0 00 050474 JUMPL AC-1,TLON9 ;LOOP ON ERROR SWITCH ^
14773
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 45
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0383
14774
14775
14776 ;TEST TLC, TLCA. CHECK FOR SKIP/NO SKIP AND
14777 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
14778
14779
14780 000006 AC=6
14781 050513 TLC1: SETUP 100,0^
14782 000007 AC1=<AC+1>&17
14783 000010 AC2=<AC+2>&17
14784 000011 AC3=<AC+3>&17
14785 000012 AC4=<AC+4>&17
14786 000013 AC5=<AC+5>&17
14787 000004 RAN1=<AC-2>&17
14788 050513 201 05 0 00 050513 MOVEI AC-1,.
14789 050514 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
14790 050515 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
14791 050516 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
14792 050517 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
14793 050520 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
14794 050521 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
14795 050522 TLC2: RANDOM^
14796 050522 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
14797 050523 270 06 0 00 060657 ADD AC,[142536475076]
14798 050524 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
14799 050525 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
14800 050526 641 06 0 00 000000 TLC3: TLC AC,0 ;SHOULD NOT SKIP,.
14801 050527 254 00 0 00 050531 JRST .+2
14802 050530 005 06 0 00 060674 ER AC,[ASCII /TST/];TLC SKIPPED.
14803 050531 645 06 0 00 000000 TLCA AC,0 ;SHOULD SKIP
14804 050532 005 06 0 00 060674 ER AC,[ASCII /TST/]
14805 050533 312 06 0 00 061125 CAME AC,RAN ;C(AC) SHOULD NOT HAVE CHANGED
14806 050534 013 00 0 00 000000 EERRI
14807 LOOP TLC2,TLC3^
14808 050535 367 05 0 00 050522 SOJG AC-1,TLC2 ;ITERATION COUNTER
14809 050536 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
14810 050537 321 05 0 00 050526 JUMPL AC-1,TLC3 ;LOOP ON ERROR SWITCH ^
14811
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 46
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0384
14812
14813
14814 ;TEST TLC, TLCA. CHECK FOR SKIP/NO SKIP AND
14815 ;CORRECT DATA IN AC FOR RAN TO 0. CONDITION.
14816
14817
14818 000007 AC=7
14819 050540 TLC4: SETUP 100,0^
14820 000010 AC1=<AC+1>&17
14821 000011 AC2=<AC+2>&17
14822 000012 AC3=<AC+3>&17
14823 000013 AC4=<AC+4>&17
14824 000014 AC5=<AC+5>&17
14825 000005 RAN1=<AC-2>&17
14826 050540 201 06 0 00 050540 MOVEI AC-1,.
14827 050541 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
14828 050542 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
14829 050543 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
14830 050544 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
14831 050545 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
14832 050546 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
14833 050547 TLC5: RANDOM^
14834 050547 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
14835 050550 270 07 0 00 060657 ADD AC,[142536475076]
14836 050551 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
14837 050552 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
14838 050553 403 10 0 00 000005 TLC6: SETZB AC1,RAN1 ;CLEAR AC
14839 050554 641 10 0 07 000000 TLC AC1,(AC) ;SHOULD NOT SKIP
14840 050555 254 00 0 00 050557 JRST .+2
14841 050556 005 10 0 00 060674 ER AC1,[ASCII /TST/];TLC SKIPPED.
14842 050557 645 10 0 07 000000 TLCA AC1,(AC) ;SHOULD SKIP
14843 050560 005 10 0 00 060674 ER AC1,[ASCII /TST/]
14844 050561 312 10 0 00 060660 CAME AC1,[0] ;C(AC) SHOULD=ORIG C(AC)
14845 050562 003 05 0 07 000000 ERRI RAN1,(AC)
14846 LOOP TLC5,TLC6^
14847 050563 367 06 0 00 050547 SOJG AC-1,TLC5 ;ITERATION COUNTER
14848 050564 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
14849 050565 321 06 0 00 050553 JUMPL AC-1,TLC6 ;LOOP ON ERROR SWITCH ^
14850
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 47
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0385
14851 ;TEST TLC, TLCA. CHECK FOR SKIP/NO SKIP AND
14852 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION
14853
14854
14855 000010 AC=10
14856 050566 TLC7: SETUP 100,0^
14857 000011 AC1=<AC+1>&17
14858 000012 AC2=<AC+2>&17
14859 000013 AC3=<AC+3>&17
14860 000014 AC4=<AC+4>&17
14861 000015 AC5=<AC+5>&17
14862 000006 RAN1=<AC-2>&17
14863 050566 201 07 0 00 050566 MOVEI AC-1,.
14864 050567 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
14865 050570 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
14866 050571 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
14867 050572 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
14868 050573 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
14869 050574 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
14870 050575 TLC8: RANDOM^
14871 050575 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
14872 050576 270 10 0 00 060657 ADD AC,[142536475076]
14873 050577 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
14874 050600 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
14875 050601 641 10 0 00 777777 TLC9: TLC AC,-1 ;SHOULD NOT SKIP
14876 050602 254 00 0 00 050604 JRST .+2
14877 050603 005 10 0 00 060674 ER AC,[ASCII /TST/];TLC SKIPPED.
14878 050604 645 10 0 00 777777 TLCA AC,-1
14879 050605 005 10 0 00 060674 ER AC,[ASCII /TST/]
14880 050606 312 10 0 00 061125 CAME AC,RAN ;C(AC) SHOULD=ORIG C(AC)
14881 050607 013 00 0 00 777777 EERRI ,-1
14882 LOOP TLC8,TLC9^
14883 050610 367 07 0 00 050575 SOJG AC-1,TLC8 ;ITERATION COUNTER
14884 050611 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
14885 050612 321 07 0 00 050601 JUMPL AC-1,TLC9 ;LOOP ON ERROR SWITCH ^
14886
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 48
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0386
14887
14888
14889 ;TEST TLC, TLCA. CHECK FOR SKIP/NO SKIP AND
14890 ;CORRECT DATA IN AC FOR RAN TO -1 CONDITION
14891
14892
14893 000003 AC=3
14894 050613 TLCA1: SETUP 100,0^
14895 000004 AC1=<AC+1>&17
14896 000005 AC2=<AC+2>&17
14897 000006 AC3=<AC+3>&17
14898 000007 AC4=<AC+4>&17
14899 000010 AC5=<AC+5>&17
14900 000001 RAN1=<AC-2>&17
14901 050613 201 02 0 00 050613 MOVEI AC-1,.
14902 050614 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
14903 050615 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
14904 050616 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
14905 050617 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
14906 050620 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
14907 050621 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
14908 050622 TLCA2: RANDOM^
14909 050622 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
14910 050623 270 03 0 00 060657 ADD AC,[142536475076]
14911 050624 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
14912 050625 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
14913 050626 477 04 0 00 000001 TLCA3: SETOB AC1,RAN1 ;MAKE C(AC) = -1.
14914 050627 641 04 0 03 000000 TLC AC1,(AC) ;SHOULD NOT SKIP
14915 050630 254 00 0 00 050632 JRST .+2
14916 050631 005 04 0 00 060674 ER AC1,[ASCII /TST/];TLC SKIPPED.
14917 050632 645 04 0 03 000000 TLCA AC1,(AC) ;SHOULD SKIP
14918 050633 005 04 0 00 060674 ER AC1,[ASCII /TST/]
14919 050634 312 04 0 00 060662 CAME AC1,[-1] ;C(AC) SHOULD=ORIG. C(AC)
14920 050635 003 01 0 03 000000 ERRI RAN1,(AC)
14921 LOOP TLCA2,TLCA3^
14922 050636 367 02 0 00 050622 SOJG AC-1,TLCA2 ;ITERATION COUNTER
14923 050637 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
14924 050640 321 02 0 00 050626 JUMPL AC-1,TLCA3 ;LOOP ON ERROR SWITCH ^
14925
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 49
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0387
14926
14927
14928 ;TEST TLC, TLCA. CHECK FOR SKIP/NO SKIP AND
14929 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
14930
14931
14932 000002 AC=2
14933 050641 TLCA4: SETUP 100,0^
14934 000003 AC1=<AC+1>&17
14935 000004 AC2=<AC+2>&17
14936 000005 AC3=<AC+3>&17
14937 000006 AC4=<AC+4>&17
14938 000007 AC5=<AC+5>&17
14939 000000 RAN1=<AC-2>&17
14940 050641 201 01 0 00 050641 MOVEI AC-1,.
14941 050642 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
14942 050643 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
14943 050644 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
14944 050645 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
14945 050646 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
14946 050647 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
14947 050650 TLCA5: RANDOM^
14948 050650 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
14949 050651 270 02 0 00 060657 ADD AC,[142536475076]
14950 050652 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
14951 050653 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
14952 050654 204 03 0 00 000002 TLCA6: MOVS AC1,AC ;MAKE "E"=C(AC)L.
14953 050655 641 02 0 03 000000 TLC AC,(AC1) ;SHOULD NOT SKIP.
14954 050656 254 00 0 00 050660 JRST .+2
14955 050657 005 02 0 00 060674 ER AC,[ASCII /TST/];TLC SKIPPED.
14956 050660 645 02 0 03 000000 TLCA AC,(AC1) ;SHOULD SKIP
14957 050661 005 02 0 00 060674 ER AC,[ASCII /TST/]
14958 050662 312 02 0 00 061125 CAME AC,RAN ;C(AC) SHOULD=ORIG C(AC)
14959 050663 013 00 0 03 000000 EERRI ,(AC1)
14960 LOOP TLCA5,TLCA6^
14961 050664 367 01 0 00 050650 SOJG AC-1,TLCA5 ;ITERATION COUNTER
14962 050665 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
14963 050666 321 01 0 00 050654 JUMPL AC-1,TLCA6 ;LOOP ON ERROR SWITCH ^
14964
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 50
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0388
14965
14966
14967 ;TEST TLC, TLCA. CHECK FOR SKIP/NO SKIP AND
14968 ;CORRECT DATA IN AC FOR NOT RAN TO RAN
14969
14970
14971 000003 AC=3
14972 050667 TLCA7: SETUP 100,0^
14973 000004 AC1=<AC+1>&17
14974 000005 AC2=<AC+2>&17
14975 000006 AC3=<AC+3>&17
14976 000007 AC4=<AC+4>&17
14977 000010 AC5=<AC+5>&17
14978 000001 RAN1=<AC-2>&17
14979 050667 201 02 0 00 050667 MOVEI AC-1,.
14980 050670 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
14981 050671 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
14982 050672 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
14983 050673 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
14984 050674 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
14985 050675 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
14986 050676 TLCA8: RANDOM^
14987 050676 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
14988 050677 270 03 0 00 060657 ADD AC,[142536475076]
14989 050700 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
14990 050701 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
14991 050702 460 04 0 00 000003 TLCA9: SETCM AC1,AC ;MAKE "E"=
14992 050703 204 04 0 00 000004 MOVS AC1,AC1 ;1'S COMP OF C(AC)L.
14993 050704 641 03 0 04 000000 TLC AC,(AC1) ;SHOULD NOT SKIP
14994 050705 254 00 0 00 050707 JRST .+2
14995 050706 005 03 0 00 060674 ER AC,[ASCII /TST/];TLC SKIPPED.
14996 050707 645 03 0 04 000000 TLCA AC,(AC1) ;SHOULD SKIP
14997 050710 005 03 0 00 060674 ER AC,[ASCII /TST/]
14998 050711 312 03 0 00 061125 CAME AC,RAN ;C(AC) SHOULD=ORIG C(AC)
14999 050712 013 00 0 04 000000 EERRI ,(AC1)
15000 LOOP TLCA8,TLCA9^
15001 050713 367 02 0 00 050676 SOJG AC-1,TLCA8 ;ITERATION COUNTER
15002 050714 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
15003 050715 321 02 0 00 050702 JUMPL AC-1,TLCA9 ;LOOP ON ERROR SWITCH ^
15004
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 51
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0389
15005
15006
15007 ;TEST TLCE, TLCN. CHECK FOR SKIP/NO SKIP AND
15008 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
15009
15010
15011 000004 AC=4
15012 050716 TLCE1: SETUP 100,0^
15013 000005 AC1=<AC+1>&17
15014 000006 AC2=<AC+2>&17
15015 000007 AC3=<AC+3>&17
15016 000010 AC4=<AC+4>&17
15017 000011 AC5=<AC+5>&17
15018 000002 RAN1=<AC-2>&17
15019 050716 201 03 0 00 050716 MOVEI AC-1,.
15020 050717 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
15021 050720 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
15022 050721 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
15023 050722 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
15024 050723 240 03 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
15025 050724 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
15026 050725 TLCE2: RANDOM^
15027 050725 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
15028 050726 270 04 0 00 060657 ADD AC,[142536475076]
15029 050727 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
15030 050730 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
15031 050731 647 04 0 00 000000 TLCE3: TLCN AC,0 ;E+C(AC)L=0. NO SKIP
15032 050732 254 00 0 00 050734 JRST .+2
15033 050733 005 04 0 00 060674 ER AC,[ASCII /TST/];TLCN SKIPPED.
15034 050734 643 04 0 00 000000 TLCE AC,0 ;E+C(AC)L=0. SKIP
15035 050735 005 04 0 00 060674 ER AC,[ASCII /TST/]
15036 050736 312 04 0 00 061125 CAME AC,RAN ;C(AC) SHOULD=ORIG C(AC).
15037 050737 013 00 0 00 000000 EERRI ,0
15038 LOOP TLCE2,TLCE3^
15039 050740 367 03 0 00 050725 SOJG AC-1,TLCE2 ;ITERATION COUNTER
15040 050741 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
15041 050742 321 03 0 00 050731 JUMPL AC-1,TLCE3 ;LOOP ON ERROR SWITCH ^
15042
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 52
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0390
15043
15044
15045 ;TEST TLCE, TLCN. CHECK FOR SKIP/NO SKIP AND
15046 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION.
15047
15048
15049 000005 AC=5
15050 050743 TLCE4: SETUP 100,0^
15051 000006 AC1=<AC+1>&17
15052 000007 AC2=<AC+2>&17
15053 000010 AC3=<AC+3>&17
15054 000011 AC4=<AC+4>&17
15055 000012 AC5=<AC+5>&17
15056 000003 RAN1=<AC-2>&17
15057 050743 201 04 0 00 050743 MOVEI AC-1,.
15058 050744 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
15059 050745 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
15060 050746 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
15061 050747 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
15062 050750 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
15063 050751 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
15064 050752 TLCE5: RANDOM^
15065 050752 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
15066 050753 270 05 0 00 060657 ADD AC,[142536475076]
15067 050754 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
15068 050755 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
15069 050756 435 05 0 00 000001 TLCE6: IORI AC,1 ;MAKE SURE A BIT IS SET IN E.
15070 050757 403 06 0 00 000003 SETZB AC1,RAN1 ;CLEAR C(AC).
15071 050760 647 06 0 05 000000 TLCN AC1,(AC) ;E+C(AC)L=0. NO SKIP.
15072 050761 254 00 0 00 050763 JRST .+2
15073 050762 005 06 0 00 060674 ER AC1,[ASCII /TST/];TLCN SKIPPED.
15074 050763 647 06 0 05 000000 TLCN AC1,(AC) ;E+C(AC)L NOT=0. SKIP
15075 050764 005 06 0 00 060674 ER AC1,[ASCII /TST/]
15076 050765 312 06 0 00 060660 CAME AC1,[0] ;C(AC) SHOULD=ORIG C(AC).
15077 050766 003 03 0 05 000000 ERRI RAN1,(AC)
15078 050767 643 06 0 05 000000 TLCE AC1,(AC) ;E+C(AC)L=0. SKIP
15079 050770 005 06 0 00 060674 ER AC1,[ASCII /TST/]
15080 050771 643 06 0 05 000000 TLCE AC1,(AC) ;E+C(AC)L NOT=0 NO SKIP
15081 050772 312 06 0 00 060660 CAME AC1,[0] ;C(AC) SHOULD=ORIG. C(AC)
15082 050773 003 03 0 05 000000 ERRI RAN1,(AC)
15083 LOOP TLCE5,TLCE6^
15084 050774 367 04 0 00 050752 SOJG AC-1,TLCE5 ;ITERATION COUNTER
15085 050775 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
15086 050776 321 04 0 00 050756 JUMPL AC-1,TLCE6 ;LOOP ON ERROR SWITCH ^
15087
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 53
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0391
15088
15089
15090 ;TEST TLCE, TLCN CHECK FOR SKIP/NO SKIP AND
15091 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION
15092
15093
15094 000006 AC=6
15095 050777 TLCE7: SETUP 100,0^
15096 000007 AC1=<AC+1>&17
15097 000010 AC2=<AC+2>&17
15098 000011 AC3=<AC+3>&17
15099 000012 AC4=<AC+4>&17
15100 000013 AC5=<AC+5>&17
15101 000004 RAN1=<AC-2>&17
15102 050777 201 05 0 00 050777 MOVEI AC-1,.
15103 051000 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
15104 051001 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
15105 051002 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
15106 051003 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
15107 051004 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
15108 051005 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
15109 051006 TLCE8: RANDOM^
15110 051006 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
15111 051007 270 06 0 00 060657 ADD AC,[142536475076]
15112 051010 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
15113 051011 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
15114 051012 434 06 0 00 046451 TLCE9: IOR AC,TSTLFT ;SET A BIT IN AC LEFT.
15115 051013 204 07 0 00 000006 MOVS AC1,AC ;CHECK TO MAKE
15116 051014 201 07 0 07 000000 MOVEI AC1,(AC1) ;SURE C(AC)L DOES
15117 051015 306 07 0 00 777777 CAIN AC1,-1 ;NOT = -1.
15118 051016 254 00 0 00 051006 JRST TLCE8 ;REJECT IF IT DOES.
15119 051017 200 04 0 00 000006 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
15120 051020 643 06 0 00 777777 TLCE AC,-1 ;E+C(AC) L NOT=0. NO SKIP
15121 051021 254 00 0 00 051023 JRST .+2
15122 051022 005 06 0 00 060674 ER AC,[ASCII /TST/];TLCE SKIPPED.
15123 051023 647 06 0 00 777777 TLCN AC,-1 ;E+C(AC)L NOT=0. SKIP
15124 051024 005 06 0 00 060674 ER AC,[ASCII /TST/]
15125 051025 312 06 0 00 000004 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
15126 051026 003 04 0 00 777777 ERRI RAN1,-1
15127 LOOP TLCE8,TLCE9^
15128 051027 367 05 0 00 051006 SOJG AC-1,TLCE8 ;ITERATION COUNTER
15129 051030 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
15130 051031 321 05 0 00 051012 JUMPL AC-1,TLCE9 ;LOOP ON ERROR SWITCH ^
15131
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 54
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0392
15132
15133
15134 ;TEST TLCE, TLCN. CHECK FOR SKIP/NO SKIP AND
15135 ;CORRECT DATA IN AC FOR RAN TO-1 CONDITION
15136
15137
15138 000007 AC=7
15139 051032 TLCN1: SETUP 100,0^
15140 000010 AC1=<AC+1>&17
15141 000011 AC2=<AC+2>&17
15142 000012 AC3=<AC+3>&17
15143 000013 AC4=<AC+4>&17
15144 000014 AC5=<AC+5>&17
15145 000005 RAN1=<AC-2>&17
15146 051032 201 06 0 00 051032 MOVEI AC-1,.
15147 051033 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
15148 051034 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
15149 051035 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
15150 051036 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
15151 051037 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
15152 051040 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
15153 051041 TLCN2: RANDOM^
15154 051041 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
15155 051042 270 07 0 00 060657 ADD AC,[142536475076]
15156 051043 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
15157 051044 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
15158 051045 435 07 0 00 000004 TLCN3: IORI AC,4 ;SET A BIT IN E.
15159 051046 477 10 0 00 000005 SETOB AC1,RAN1 ;MAKE C(AC)=-1
15160 051047 647 10 0 07 000000 TLCN AC1,(AC) ;E+C(AC)L NOT=0. SKIP
15161 051050 005 10 0 00 060674 ER AC1,[ASCII /TST/]
15162 051051 643 10 0 07 000000 TLCE AC1,(AC) ;E+C(AC)L=0. SKIP
15163 051052 005 10 0 00 060674 ER AC1,[ASCII /TST/]
15164 051053 312 10 0 00 060662 CAME AC1,[-1] ;C(AC) SHOULD=ORIG C(AC).
15165 051054 003 05 0 07 000000 ERRI RAN1,(AC)
15166 LOOP TLCN2,TLCN3^
15167 051055 367 06 0 00 051041 SOJG AC-1,TLCN2 ;ITERATION COUNTER
15168 051056 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
15169 051057 321 06 0 00 051045 JUMPL AC-1,TLCN3 ;LOOP ON ERROR SWITCH ^
15170
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 55
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0393
15171
15172
15173 ;TEST TLCE, TLCN. CHECK FOR SKIP/NO SKIP AND
15174 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
15175
15176
15177 000010 AC=10
15178 051060 TLCN4: SETUP 100,0^
15179 000011 AC1=<AC+1>&17
15180 000012 AC2=<AC+2>&17
15181 000013 AC3=<AC+3>&17
15182 000014 AC4=<AC+4>&17
15183 000015 AC5=<AC+5>&17
15184 000006 RAN1=<AC-2>&17
15185 051060 201 07 0 00 051060 MOVEI AC-1,.
15186 051061 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
15187 051062 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
15188 051063 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
15189 051064 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
15190 051065 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
15191 051066 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
15192 051067 TLCN5: RANDOM^
15193 051067 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
15194 051070 270 10 0 00 060657 ADD AC,[142536475076]
15195 051071 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
15196 051072 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
15197 051073 434 10 0 00 046452 TLCN6: IOR AC,TLFT1 ;MAKE SURE A BIT IS SET IN AC LEFT.
15198 051074 200 06 0 00 000010 MOVE RAN1,AC ;SAVE C(AC) FOR FUTURE COMPARE.
15199 051075 204 11 0 00 000010 MOVS AC1,AC ;MAKE "E"=C(AC)L
15200 051076 643 10 0 11 000000 TLCE AC,(AC1) ;E+C(AC)L NOT=0. NO SKIP
15201 051077 254 00 0 00 051101 JRST .+2
15202 051100 005 10 0 00 060674 ER AC,[ASCII /TST/];TLCE SKIPPED.
15203 051101 643 10 0 11 000000 TLCE AC,(AC1) ;E+C(AC)L=0 SKIP
15204 051102 005 10 0 00 060674 ER AC,[ASCII /TST/]
15205 051103 312 10 0 00 000006 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
15206 051104 003 06 0 11 000000 ERRI RAN1,(AC1)
15207 051105 647 10 0 11 000000 TLCN AC,(AC1) ;E+C(AC)L NOT=0. SKIP
15208 051106 005 10 0 00 060674 ER AC,[ASCII /TST/]
15209 051107 647 10 0 11 000000 TLCN AC,(AC1) ;E+C(AC)L=0. NO SKIP
15210 051110 312 10 0 00 000006 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
15211 051111 003 06 0 11 000000 ERRI RAN1,(AC1)
15212 LOOP TLCN5,TLCN6^
15213 051112 367 07 0 00 051067 SOJG AC-1,TLCN5 ;ITERATION COUNTER
15214 051113 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
15215 051114 321 07 0 00 051073 JUMPL AC-1,TLCN6 ;LOOP ON ERROR SWITCH ^
15216
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 56
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0394
15217
15218
15219 ;TEST TLCE, TLCN. CHECK FOR SKIP/NO SKIP AND
15220 ;CORRECT DATA IN AC FOR E = TO A FLOATING ONE
15221 ;AND C(AC) = RAN. NUM. WITH THAT BIT CLEAR.
15222
15223
15224 000011 AC=11
15225 051115 TLCN7: SETUP 100,0^
15226 000012 AC1=<AC+1>&17
15227 000013 AC2=<AC+2>&17
15228 000014 AC3=<AC+3>&17
15229 000015 AC4=<AC+4>&17
15230 000016 AC5=<AC+5>&17
15231 000007 RAN1=<AC-2>&17
15232 051115 201 10 0 00 051115 MOVEI AC-1,.
15233 051116 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
15234 051117 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
15235 051120 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
15236 051121 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
15237 051122 240 10 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
15238 051123 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
15239 051124 201 12 0 00 000001 MOVEI AC1,1 ;SETUP E TO HAVE ONE BIT.
15240 051125 TLCN8: RANDOM^
15241 051125 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
15242 051126 270 11 0 00 060657 ADD AC,[142536475076]
15243 051127 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
15244 051130 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
15245 051131 241 12 0 00 000001 ROT AC1,1 ;ROT TO TEST NEXT BIT.
15246 051132 316 12 0 00 060714 CAMN AC1,[XWD 1,0] ;IS BIT ON LEFT SIDE?
15247 051133 201 12 0 00 000001 MOVEI AC1,1 ;YES. REINITAILIZE E.
15248 051134 204 13 0 00 000012 TLCN9: MOVS AC2,AC1 ;CLEAR THAT
15249 051135 420 11 0 00 000013 ANDCM AC,AC2 ;BIT IN AC.
15250 051136 200 07 0 00 000011 MOVE RAN1,AC ;SAVE C(AC) FOR FUTURE COMPARE.
15251 051137 647 11 0 12 000000 TLCN AC,(AC1) ;E + C(AC)L = 0...NO SKIP.
15252 051140 254 00 0 00 051142 JRST .+2
15253 051141 005 11 0 00 060674 ER AC,[ASCII /TST/];TLCN SKIPPED.
15254 051142 647 11 0 12 000000 TLCN AC,(AC1) ;E + C(AC)L NOT = 0...SKIP.
15255 051143 005 11 0 00 060674 ER AC,[ASCII /TST/]
15256 051144 312 11 0 00 000007 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
15257 051145 003 07 0 12 000000 ERRI RAN1,(AC1)
15258 051146 643 11 0 12 000000 TLCE AC,(AC1) ;E + C(AC)L = 0...SKIP.
15259 051147 005 11 0 00 060674 ER AC,[ASCII /TST/]
15260 051150 643 11 0 12 000000 TLCE AC,(AC1) ;E + C(AC)L NOT = 0...NO SKIP.
15261 051151 312 11 0 00 000007 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
15262 051152 003 07 0 12 000000 ERRI RAN1,(AC1)
15263 LOOP TLCN8,TLCN9^
15264 051153 367 10 0 00 051125 SOJG AC-1,TLCN8 ;ITERATION COUNTER
15265 051154 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
15266 051155 321 10 0 00 051134 JUMPL AC-1,TLCN9 ;LOOP ON ERROR SWITCH ^
15267
15268
15269
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 57
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0395
15270
15271
15272 ;TEST SETZB. CHECK C(AC)=C(E), AND C(AC)=CORRECT DATA
15273 ;RAN TO RAN1.
15274
15275
15276 000002 AC=2
15277 051156 SETZB1: SETUP 100,0^
15278 000003 AC1=<AC+1>&17
15279 000004 AC2=<AC+2>&17
15280 000005 AC3=<AC+3>&17
15281 000006 AC4=<AC+4>&17
15282 000007 AC5=<AC+5>&17
15283 000000 RAN1=<AC-2>&17
15284 051156 201 01 0 00 051156 MOVEI AC-1,.
15285 051157 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
15286 051160 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
15287 051161 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
15288 051162 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
15289 051163 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
15290 051164 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
15291 051165 SETZB2: RANDOM^
15292 051165 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
15293 051166 270 02 0 00 060657 ADD AC,[142536475076]
15294 051167 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
15295 051170 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
15296 051171 207 00 0 00 000002 SETZB3: MOVSS RAN1,AC ;C(AC) = SEC. RAN. NUM.
15297 051172 200 03 0 00 061125 MOVE AC1,RAN ;C(E)=1'ST RAN NUM
15298 051173 403 02 0 00 000003 SETZB AC,AC1 ;DO A SETZB INST.
15299 051174 312 02 0 00 000003 CAME AC,AC1 ;C(AC) SHOULD=C(E).
15300 051175 011 00 0 00 000000 EERR ,RAN1
15301 051176 312 02 0 00 060660 CAME AC,[0] ;C(AC) SHOULD=0.
15302 051177 011 00 0 00 000000 EERR ,RAN1
15303 LOOP SETZB2,SETZB3^
15304 051200 367 01 0 00 051165 SOJG AC-1,SETZB2 ;ITERATION COUNTER
15305 051201 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
15306 051202 321 01 0 00 051171 JUMPL AC-1,SETZB3 ;LOOP ON ERROR SWITCH ^
15307
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 58
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0396
15308
15309
15310 ;TEST ANDB. CHECK C(AC)=C(E), AND C(AC)=CORRECT DATA
15311 ;RAN TO RAN1
15312
15313
15314 000003 AC=3
15315 051203 ANDB1: SETUP 200,1^
15316 000004 AC1=<AC+1>&17
15317 000005 AC2=<AC+2>&17
15318 000006 AC3=<AC+3>&17
15319 000007 AC4=<AC+4>&17
15320 000010 AC5=<AC+5>&17
15321 000001 RAN1=<AC-2>&17
15322 051203 201 02 0 00 051203 MOVEI AC-1,.
15323 051204 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
15324 051205 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
15325 051206 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
15326 051207 201 02 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
15327 051210 240 02 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
15328 051211 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
15329 051212 ANDB2: RANDOM^
15330 051212 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
15331 051213 270 03 0 00 060657 ADD AC,[142536475076]
15332 051214 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
15333 051215 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
15334 051216 207 01 0 00 000003 ANDB3: MOVSS RAN1,AC ;C(AC) = SEC. RAN. NUM.
15335 051217 200 04 0 00 061125 MOVE AC1,RAN ;C(E)=1'ST RAN NUM
15336 051220 200 05 0 00 061125 MOVE AC2,RAN ;SIMULATE
15337 051221 470 05 0 00 000003 ORCB AC2,AC ;AN
15338 051222 450 05 0 00 000000 SETCA AC2, ;"AND" INST.
15339 051223 407 03 0 00 000004 ANDB AC,AC1 ;DO AN ANDB INST.
15340 051224 312 03 0 00 000004 CAME AC,AC1 ;C(AC) SHOULD=C(E)
15341 051225 011 00 0 00 000001 EERR ,RAN1
15342 051226 312 03 0 00 000005 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS.
15343 051227 011 00 0 00 000001 EERR ,RAN1
15344 LOOP ANDB2,ANDB3^
15345 051230 367 02 0 00 051212 SOJG AC-1,ANDB2 ;ITERATION COUNTER
15346 051231 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
15347 051232 321 02 0 00 051216 JUMPL AC-1,ANDB3 ;LOOP ON ERROR SWITCH ^
15348
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 59
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0397
15349
15350
15351 ;TEST ANDCAB. CHECK FOR C(AC)=C(E) AND C(AC)=CORRECT DATA.
15352 ;RAN TO RAN1
15353
15354
15355 000002 AC=2
15356 051233 ANCAB1: SETUP 200,1^
15357 000003 AC1=<AC+1>&17
15358 000004 AC2=<AC+2>&17
15359 000005 AC3=<AC+3>&17
15360 000006 AC4=<AC+4>&17
15361 000007 AC5=<AC+5>&17
15362 000000 RAN1=<AC-2>&17
15363 051233 201 01 0 00 051233 MOVEI AC-1,.
15364 051234 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
15365 051235 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
15366 051236 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
15367 051237 201 01 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
15368 051240 240 01 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
15369 051241 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
15370 051242 ANCAB2: RANDOM^
15371 051242 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
15372 051243 270 02 0 00 060657 ADD AC,[142536475076]
15373 051244 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
15374 051245 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
15375 051246 207 00 0 00 000002 ANCAB3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
15376 051247 200 03 0 00 061125 MOVE AC1,RAN ;C(E)=1'ST RAN. NUM
15377 051250 200 04 0 00 061125 MOVE AC2,RAN ;SIMULATE
15378 051251 454 04 0 00 000002 ORCA AC2,AC ;AN
15379 051252 450 04 0 00 000000 SETCA AC2, ;ANDCA INST.
15380 051253 413 02 0 00 000003 ANDCAB AC,AC1 ;DO AN ANDCAB INST.
15381 051254 312 02 0 00 000003 CAME AC,AC1 ;C(AC) SHOULD=C(E)
15382 051255 011 00 0 00 000000 EERR ,RAN1
15383 051256 312 02 0 00 000004 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
15384 051257 011 00 0 00 000000 EERR ,RAN1
15385 LOOP ANCAB2,ANCAB3^
15386 051260 367 01 0 00 051242 SOJG AC-1,ANCAB2 ;ITERATION COUNTER
15387 051261 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
15388 051262 321 01 0 00 051246 JUMPL AC-1,ANCAB3 ;LOOP ON ERROR SWITCH ^
15389
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 60
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0398
15390
15391
15392 ;TEST SETMB. CHECK FOR C(AC)=C(E), AND C(AC)=CORRECT DATA.
15393 ;RAN TO RAN1.
15394
15395
15396 000004 AC=4
15397 051263 SETMB1: SETUP 100,0^
15398 000005 AC1=<AC+1>&17
15399 000006 AC2=<AC+2>&17
15400 000007 AC3=<AC+3>&17
15401 000010 AC4=<AC+4>&17
15402 000011 AC5=<AC+5>&17
15403 000002 RAN1=<AC-2>&17
15404 051263 201 03 0 00 051263 MOVEI AC-1,.
15405 051264 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
15406 051265 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
15407 051266 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
15408 051267 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
15409 051270 240 03 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
15410 051271 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
15411 051272 SETMB2: RANDOM^
15412 051272 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
15413 051273 270 04 0 00 060657 ADD AC,[142536475076]
15414 051274 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
15415 051275 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
15416 051276 207 02 0 00 000004 SETMB3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
15417 051277 200 02 0 00 000004 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
15418 051300 200 05 0 00 061125 MOVE AC1,RAN
15419 051301 417 04 0 00 000005 SETMB AC,AC1 ;DO SETMB INST.
15420 051302 312 04 0 00 000005 CAME AC,AC1 ;C(AC) SHOULD=C(E)
15421 051303 011 00 0 00 000002 EERR ,RAN1
15422 051304 312 04 0 00 061125 CAME AC,RAN ;C(AC) SHOULD=ORIG. C(E)
15423 051305 011 00 0 00 000002 EERR ,RAN1
15424 LOOP SETMB2,SETMB3^
15425 051306 367 03 0 00 051272 SOJG AC-1,SETMB2 ;ITERATION COUNTER
15426 051307 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
15427 051310 321 03 0 00 051276 JUMPL AC-1,SETMB3 ;LOOP ON ERROR SWITCH ^
15428
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 61
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0399
15429
15430
15431 ;TEST ANDCMB CHECK FOR C(AC)=C(E), AND CORRECT DATA IN AC.
15432 ;RAN TO RAN1.
15433
15434
15435 000004 AC=4
15436 051311 ANCMB1: SETUP 200,1^
15437 000005 AC1=<AC+1>&17
15438 000006 AC2=<AC+2>&17
15439 000007 AC3=<AC+3>&17
15440 000010 AC4=<AC+4>&17
15441 000011 AC5=<AC+5>&17
15442 000002 RAN1=<AC-2>&17
15443 051311 201 03 0 00 051311 MOVEI AC-1,.
15444 051312 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
15445 051313 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
15446 051314 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
15447 051315 201 03 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
15448 051316 240 03 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
15449 051317 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
15450 051320 ANCMB2: RANDOM^
15451 051320 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
15452 051321 270 04 0 00 060657 ADD AC,[142536475076]
15453 051322 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
15454 051323 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
15455 051324 207 02 0 00 000004 ANCMB3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
15456 051325 200 05 0 00 061125 MOVE AC1,RAN ;C(E)-1'ST RAN NUM
15457 051326 200 06 0 00 061125 MOVE AC2,RAN ;SIMULATE
15458 051327 464 06 0 00 000004 ORCM AC2,AC ;AN
15459 051330 450 06 0 00 000000 SETCA AC2, ;ANDCM INST.
15460 051331 423 04 0 00 000005 ANDCMB AC,AC1 ;DO ANDCMB INST.
15461 051332 312 04 0 00 000005 CAME AC,AC1 ;C(AC) SHOULD=C(E).
15462 051333 011 00 0 00 000002 EERR ,RAN1
15463 051334 312 04 0 00 000006 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
15464 051335 011 00 0 00 000002 EERR ,RAN1
15465 LOOP ANCMB2,ANCMB3^
15466 051336 367 03 0 00 051320 SOJG AC-1,ANCMB2 ;ITERATION COUNTER
15467 051337 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
15468 051340 321 03 0 00 051324 JUMPL AC-1,ANCMB3 ;LOOP ON ERROR SWITCH ^
15469
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 62
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0400
15470
15471
15472 ;TEST SETAB. CHECK FOR C(AC)=C(E), AND C(E)=CORRECT DATA
15473 ;RAN TO RAN1.
15474
15475
15476 000005 AC=5
15477 051341 SETAB1: SETUP 100,0^
15478 000006 AC1=<AC+1>&17
15479 000007 AC2=<AC+2>&17
15480 000010 AC3=<AC+3>&17
15481 000011 AC4=<AC+4>&17
15482 000012 AC5=<AC+5>&17
15483 000003 RAN1=<AC-2>&17
15484 051341 201 04 0 00 051341 MOVEI AC-1,.
15485 051342 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
15486 051343 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
15487 051344 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
15488 051345 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
15489 051346 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
15490 051347 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
15491 051350 SETAB2: RANDOM^
15492 051350 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
15493 051351 270 05 0 00 060657 ADD AC,[142536475076]
15494 051352 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
15495 051353 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
15496 051354 207 03 0 00 000005 SETAB3: MOVSS RAN1,AC ;C(AC) =SEC RAN NUM.
15497 051355 200 06 0 00 061125 MOVE AC1,RAN ;C(E)=1'ST RAN. NUM.
15498 051356 427 05 0 00 000006 SETAB AC,AC1 ;DO A SETAB INST.
15499 051357 312 05 0 00 000006 CAME AC,AC1 ;C(AC) SHOULD=C(E).
15500 051360 011 00 0 00 000003 EERR ,RAN1
15501 051361 312 06 0 00 000003 CAME AC1,RAN1 ;C(E) SHOULD=ORIG. C(AC).
15502 051362 011 00 0 00 000003 EERR ,RAN1
15503 LOOP SETAB2,SETAB3^
15504 051363 367 04 0 00 051350 SOJG AC-1,SETAB2 ;ITERATION COUNTER
15505 051364 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
15506 051365 321 04 0 00 051354 JUMPL AC-1,SETAB3 ;LOOP ON ERROR SWITCH ^
15507
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 63
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0401
15508
15509
15510 ;TEST XORB. CHECK FOR C(AC)=C(E),AND CORRECT DATA IN AC.
15511 ;RAN TO RAN1.
15512
15513
15514 000006 AC=6
15515 051366 XORB1: SETUP 200,1^
15516 000007 AC1=<AC+1>&17
15517 000010 AC2=<AC+2>&17
15518 000011 AC3=<AC+3>&17
15519 000012 AC4=<AC+4>&17
15520 000013 AC5=<AC+5>&17
15521 000004 RAN1=<AC-2>&17
15522 051366 201 05 0 00 051366 MOVEI AC-1,.
15523 051367 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
15524 051370 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
15525 051371 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
15526 051372 201 05 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
15527 051373 240 05 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
15528 051374 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
15529 051375 XORB2: RANDOM^
15530 051375 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
15531 051376 270 06 0 00 060657 ADD AC,[142536475076]
15532 051377 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
15533 051400 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
15534 051401 207 04 0 00 000006 XORB3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
15535 051402 200 07 0 00 061125 MOVE AC1,RAN ;C(E)=1'ST RAN. NUM
15536 051403 200 10 0 00 061125 MOVE AC2,RAN ;SIMULATE
15537 051404 444 10 0 00 000006 EQV AC2,AC ;AN
15538 051405 450 10 0 00 000000 SETCA AC2, ;XOR INST.
15539 051406 433 06 0 00 000007 XORB AC,AC1 ;DO AN XORB INST
15540 051407 312 06 0 00 000007 CAME AC,AC1 ;C(AC) SHOULD=C(E).
15541 051410 011 00 0 00 000004 EERR ,RAN1
15542 051411 312 06 0 00 000010 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
15543 051412 011 00 0 00 000004 EERR ,RAN1
15544 LOOP XORB2,XORB3^
15545 051413 367 05 0 00 051375 SOJG AC-1,XORB2 ;ITERATION COUNTER
15546 051414 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
15547 051415 321 05 0 00 051401 JUMPL AC-1,XORB3 ;LOOP ON ERROR SWITCH ^
15548
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 64
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0402
15549
15550
15551 ;TEST IORB. CHECK FOR C(AC)=C(E), AND C(AC)=CORRECT DATA.
15552 ;RAN TO RAN1.
15553
15554
15555 000007 AC=7
15556 051416 IORB1: SETUP 200,1^
15557 000010 AC1=<AC+1>&17
15558 000011 AC2=<AC+2>&17
15559 000012 AC3=<AC+3>&17
15560 000013 AC4=<AC+4>&17
15561 000014 AC5=<AC+5>&17
15562 000005 RAN1=<AC-2>&17
15563 051416 201 06 0 00 051416 MOVEI AC-1,.
15564 051417 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
15565 051420 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
15566 051421 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
15567 051422 201 06 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
15568 051423 240 06 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
15569 051424 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
15570 051425 IORB2: RANDOM^
15571 051425 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
15572 051426 270 07 0 00 060657 ADD AC,[142536475076]
15573 051427 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
15574 051430 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
15575 051431 207 05 0 00 000007 IORB3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
15576 051432 200 10 0 00 061125 MOVE AC1,RAN ;C(E)=1'ST RAN. NUM.
15577 051433 200 11 0 00 061125 MOVE AC2,RAN ;SIMULATE
15578 051434 420 11 0 00 000007 ANDCM AC2,AC ;AN
15579 051435 430 11 0 00 000007 XOR AC2,AC ;IOR INST.
15580 051436 437 07 0 00 000010 IORB AC,AC1 ;DO AN IORB INST
15581 051437 312 07 0 00 000010 CAME AC,AC1 ;C(AC) SHOULD=C(E).
15582 051440 011 00 0 00 000005 EERR ,RAN1
15583 051441 312 07 0 00 000011 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS.
15584 051442 011 00 0 00 000005 EERR ,RAN1
15585 LOOP IORB2,IORB3^
15586 051443 367 06 0 00 051425 SOJG AC-1,IORB2 ;ITERATION COUNTER
15587 051444 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
15588 051445 321 06 0 00 051431 JUMPL AC-1,IORB3 ;LOOP ON ERROR SWITCH ^
15589
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 65
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0403
15590
15591
15592 ;TEST ANDCBB. CHECK C(AC)=C(E), AND C(AC)=CORRECT DATA.
15593 ;RAN TO RAN1
15594
15595
15596 000010 AC=10
15597 051446 ANCBB1: SETUP 200,1^
15598 000011 AC1=<AC+1>&17
15599 000012 AC2=<AC+2>&17
15600 000013 AC3=<AC+3>&17
15601 000014 AC4=<AC+4>&17
15602 000015 AC5=<AC+5>&17
15603 000006 RAN1=<AC-2>&17
15604 051446 201 07 0 00 051446 MOVEI AC-1,.
15605 051447 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
15606 051450 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
15607 051451 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
15608 051452 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
15609 051453 240 07 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
15610 051454 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
15611 051455 ANCBB2: RANDOM^
15612 051455 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
15613 051456 270 10 0 00 060657 ADD AC,[142536475076]
15614 051457 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
15615 051460 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
15616 051461 207 06 0 00 000010 ANCBB3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
15617 051462 200 11 0 00 061125 MOVE AC1,RAN ;C(AC)=1'ST RAN. NUM
15618 051463 200 12 0 00 061125 MOVE AC2,RAN ;SIMULATE
15619 051464 434 12 0 00 000010 IOR AC2,AC ;AN
15620 051465 450 12 0 00 000000 SETCA AC2, ;ANDCB INST
15621 051466 443 10 0 00 000011 ANDCBB AC,AC1 ;DO AN ANDCBB INST
15622 051467 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD=C(E)
15623 051470 011 00 0 00 000006 EERR ,RAN1
15624 051471 312 10 0 00 000012 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
15625 051472 011 00 0 00 000006 EERR ,RAN1
15626 LOOP ANCBB2,ANCBB3^
15627 051473 367 07 0 00 051455 SOJG AC-1,ANCBB2 ;ITERATION COUNTER
15628 051474 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
15629 051475 321 07 0 00 051461 JUMPL AC-1,ANCBB3 ;LOOP ON ERROR SWITCH ^
15630
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 66
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0404
15631
15632
15633 ;TEST EQVB. CHECK FOR C(AC)=C(E), AND CORRECT DATA IN AC.
15634 ;RAN TO RAN1
15635
15636
15637 000011 AC=11
15638 051476 EQVB1: SETUP 200,1^
15639 000012 AC1=<AC+1>&17
15640 000013 AC2=<AC+2>&17
15641 000014 AC3=<AC+3>&17
15642 000015 AC4=<AC+4>&17
15643 000016 AC5=<AC+5>&17
15644 000007 RAN1=<AC-2>&17
15645 051476 201 10 0 00 051476 MOVEI AC-1,.
15646 051477 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
15647 051500 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
15648 051501 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
15649 051502 201 10 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
15650 051503 240 10 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
15651 051504 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
15652 051505 EQVB2: RANDOM^
15653 051505 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
15654 051506 270 11 0 00 060657 ADD AC,[142536475076]
15655 051507 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
15656 051510 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
15657 051511 207 07 0 00 000011 EQVB3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
15658 051512 200 12 0 00 061125 MOVE AC1,RAN ;C(E)=1'ST RAN. NUM.
15659 051513 200 13 0 00 061125 MOVE AC2,RAN ;SIMULATE
15660 051514 430 13 0 00 000011 XOR AC2,AC ;AN
15661 051515 450 13 0 00 000000 SETCA AC2, ;EQV INST1
15662 051516 447 11 0 00 000012 EQVB AC,AC1 ;NO AN EQVB INST.
15663 051517 312 11 0 00 000012 CAME AC,AC1 ;C(AC) SHOULD=C(E).
15664 051520 011 00 0 00 000007 EERR ,RAN1
15665 051521 312 11 0 00 000013 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
15666 051522 011 00 0 00 000007 EERR ,RAN1
15667 LOOP EQVB2,EQVB3^
15668 051523 367 10 0 00 051505 SOJG AC-1,EQVB2 ;ITERATION COUNTER
15669 051524 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
15670 051525 321 10 0 00 051511 JUMPL AC-1,EQVB3 ;LOOP ON ERROR SWITCH ^
15671
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 67
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0405
15672
15673
15674 ;TEST SETCAB. CHECK FOR C(AC)=C(E), AND C(AC)=CORRECT DATA.
15675 ;RAN TO RAN1
15676
15677
15678 000004 AC=4
15679 051526 STCAB1: SETUP 100,0^
15680 000005 AC1=<AC+1>&17
15681 000006 AC2=<AC+2>&17
15682 000007 AC3=<AC+3>&17
15683 000010 AC4=<AC+4>&17
15684 000011 AC5=<AC+5>&17
15685 000002 RAN1=<AC-2>&17
15686 051526 201 03 0 00 051526 MOVEI AC-1,.
15687 051527 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
15688 051530 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
15689 051531 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
15690 051532 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
15691 051533 240 03 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
15692 051534 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
15693 051535 STCAB2: RANDOM^
15694 051535 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
15695 051536 270 04 0 00 060657 ADD AC,[142536475076]
15696 051537 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
15697 051540 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
15698 051541 207 02 0 00 000004 STCAB3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
15699 051542 200 05 0 00 061125 MOVE AC1,RAN ;C(E)=1'ST RAN. NUM
15700 051543 460 06 0 00 000004 SETCM AC2,AC ;SIMULATE A SETCA INST.
15701 051544 453 04 0 00 000005 SETCAB AC,AC1 ;DO SETCAB INST
15702 051545 312 04 0 00 000005 CAME AC,AC1 ;C(AC) SHOULD=C(E).
15703 051546 011 00 0 00 000002 EERR ,RAN1
15704 051547 312 04 0 00 000006 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
15705 051550 011 00 0 00 000002 EERR ,RAN1
15706 LOOP STCAB2,STCAB3^
15707 051551 367 03 0 00 051535 SOJG AC-1,STCAB2 ;ITERATION COUNTER
15708 051552 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
15709 051553 321 03 0 00 051541 JUMPL AC-1,STCAB3 ;LOOP ON ERROR SWITCH ^
15710
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 68
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0406
15711
15712
15713 ;TEST ORCAB. CHECK FOR C(AC)=C(E), AND C(AC)=CORRECT DATA
15714 ;RAN TO RAN1
15715
15716
15717 000005 AC=5
15718 051554 ORCAB1: SETUP 200,1^
15719 000006 AC1=<AC+1>&17
15720 000007 AC2=<AC+2>&17
15721 000010 AC3=<AC+3>&17
15722 000011 AC4=<AC+4>&17
15723 000012 AC5=<AC+5>&17
15724 000003 RAN1=<AC-2>&17
15725 051554 201 04 0 00 051554 MOVEI AC-1,.
15726 051555 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
15727 051556 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
15728 051557 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
15729 051560 201 04 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
15730 051561 240 04 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
15731 051562 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
15732 051563 ORCAB2: RANDOM^
15733 051563 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
15734 051564 270 05 0 00 060657 ADD AC,[142536475076]
15735 051565 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
15736 051566 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
15737 051567 207 03 0 00 000005 ORCAB3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
15738 051570 200 06 0 00 061125 MOVE AC1,RAN ;C(E) =1'ST RAN. NUM
15739 051571 460 07 0 00 000005 SETCM AC2,AC ;SIMULATE
15740 051572 434 07 0 00 061125 IOR AC2,RAN ;AN ORCA INST.
15741 051573 457 05 0 00 000006 ORCAB AC,AC1 ;DO AN ORCAB INST
15742 051574 312 05 0 00 000006 CAME AC,AC1 ;C(AC) SHOULD=C(E).
15743 051575 011 00 0 00 000003 EERR ,RAN1
15744 051576 312 05 0 00 000007 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
15745 051577 011 00 0 00 000003 EERR ,RAN1
15746 LOOP ORCAB2,ORCAB3^
15747 051600 367 04 0 00 051563 SOJG AC-1,ORCAB2 ;ITERATION COUNTER
15748 051601 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
15749 051602 321 04 0 00 051567 JUMPL AC-1,ORCAB3 ;LOOP ON ERROR SWITCH ^
15750
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 69
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0407
15751
15752
15753 ;TEST SETCMB. CHECK FOR C(AC)=C(E), AND C(AC)=CORRECT DATA
15754 ;RAN TO RAN1
15755
15756
15757 000006 AC=6
15758 051603 STCMB1: SETUP 100,0^
15759 000007 AC1=<AC+1>&17
15760 000010 AC2=<AC+2>&17
15761 000011 AC3=<AC+3>&17
15762 000012 AC4=<AC+4>&17
15763 000013 AC5=<AC+5>&17
15764 000004 RAN1=<AC-2>&17
15765 051603 201 05 0 00 051603 MOVEI AC-1,.
15766 051604 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
15767 051605 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
15768 051606 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
15769 051607 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
15770 051610 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
15771 051611 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
15772 051612 STCMB2: RANDOM^
15773 051612 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
15774 051613 270 06 0 00 060657 ADD AC,[142536475076]
15775 051614 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
15776 051615 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
15777 051616 207 04 0 00 000006 STCMB3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
15778 051617 200 07 0 00 061125 MOVE AC1,RAN ;C(E)=1'ST RAN NUM.
15779 051620 200 10 0 00 061125 MOVE AC2,RAN ;SIMULATE
15780 051621 450 10 0 00 000000 SETCA AC2, ;A SETCM INST.
15781 051622 463 06 0 00 000007 SETCMB AC,AC1 ;DO A SETCMB INST.
15782 051623 312 06 0 00 000007 CAME AC,AC1 ;C(AC) SHOULD=C(E).
15783 051624 011 00 0 00 000004 EERR ,RAN1
15784 051625 312 06 0 00 000010 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS.
15785 051626 011 00 0 00 000004 EERR ,RAN1
15786 LOOP STCMB2,STCMB3^
15787 051627 367 05 0 00 051612 SOJG AC-1,STCMB2 ;ITERATION COUNTER
15788 051630 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
15789 051631 321 05 0 00 051616 JUMPL AC-1,STCMB3 ;LOOP ON ERROR SWITCH ^
15790
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 70
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0408
15791
15792
15793 ;TEST ORCMB. CHECK FOR C(AC)=C(E), AND C(AC)=CORRECT DATA.
15794 ;RAN TO RAN1
15795
15796
15797 000007 AC=7
15798 051632 ORCMB1: SETUP 200,1^
15799 000010 AC1=<AC+1>&17
15800 000011 AC2=<AC+2>&17
15801 000012 AC3=<AC+3>&17
15802 000013 AC4=<AC+4>&17
15803 000014 AC5=<AC+5>&17
15804 000005 RAN1=<AC-2>&17
15805 051632 201 06 0 00 051632 MOVEI AC-1,.
15806 051633 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
15807 051634 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
15808 051635 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
15809 051636 201 06 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
15810 051637 240 06 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
15811 051640 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
15812 051641 ORCMB2: RANDOM^
15813 051641 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
15814 051642 270 07 0 00 060657 ADD AC,[142536475076]
15815 051643 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
15816 051644 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
15817 051645 207 05 0 00 000007 ORCMB3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
15818 051646 200 10 0 00 061125 MOVE AC1,RAN ;C(E)=1'ST RAN. NUM
15819 051647 200 11 0 00 061125 MOVE AC2,RAN ;SIMULATE
15820 051650 420 11 0 00 000007 ANDCM AC2,AC ;AN
15821 051651 450 11 0 00 000000 SETCA AC2, ;ORCM INST.
15822 051652 467 07 0 00 000010 ORCMB AC,AC1 ;DO AN ORCMB INST.
15823 051653 312 07 0 00 000010 CAME AC,AC1 ;C(AC) SHOULD=C(E).
15824 051654 011 00 0 00 000005 EERR ,RAN1
15825 051655 312 07 0 00 000011 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS.
15826 051656 011 00 0 00 000005 EERR ,RAN1
15827 LOOP ORCMB2,ORCMB3^
15828 051657 367 06 0 00 051641 SOJG AC-1,ORCMB2 ;ITERATION COUNTER
15829 051660 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
15830 051661 321 06 0 00 051645 JUMPL AC-1,ORCMB3 ;LOOP ON ERROR SWITCH ^
15831
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 71
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0409
15832
15833
15834 ;TEST ORCBB. CHECK FOR C(AC)=C(E), AND C(AC)=CORRECT DATA
15835 ;RAN TO RAN1.
15836
15837
15838 000010 AC=10
15839 051662 ORCBB1: SETUP 200,1^
15840 000011 AC1=<AC+1>&17
15841 000012 AC2=<AC+2>&17
15842 000013 AC3=<AC+3>&17
15843 000014 AC4=<AC+4>&17
15844 000015 AC5=<AC+5>&17
15845 000006 RAN1=<AC-2>&17
15846 051662 201 07 0 00 051662 MOVEI AC-1,.
15847 051663 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
15848 051664 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
15849 051665 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
15850 051666 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
15851 051667 240 07 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
15852 051670 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
15853 051671 ORCBB2: RANDOM^
15854 051671 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
15855 051672 270 10 0 00 060657 ADD AC,[142536475076]
15856 051673 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
15857 051674 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
15858 051675 207 06 0 00 000010 ORCBB3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
15859 051676 200 11 0 00 061125 MOVE AC1,RAN ;C(E)=1'ST RAN NUM
15860 051677 200 12 0 00 061125 MOVE AC2,RAN ;SIMULATE
15861 051700 404 12 0 00 000010 AND AC2,AC ;AN
15862 051701 450 12 0 00 000000 SETCA AC2, ;ORCB INST.
15863 051702 473 10 0 00 000011 ORCBB AC,AC1 ;DO AN ORCBB INST.
15864 051703 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD=C(E).
15865 051704 011 00 0 00 000006 EERR ,RAN1
15866 051705 312 10 0 00 000012 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
15867 051706 011 00 0 00 000006 EERR ,RAN1
15868 LOOP ORCBB2,ORCBB3^
15869 051707 367 07 0 00 051671 SOJG AC-1,ORCBB2 ;ITERATION COUNTER
15870 051710 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
15871 051711 321 07 0 00 051675 JUMPL AC-1,ORCBB3 ;LOOP ON ERROR SWITCH ^
15872
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 72
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0410
15873
15874
15875 ;TEST SETOB. CHECK FOR C(AC)=C(E), AND C(AC)=-1.
15876 ;RAN TO RAN1
15877
15878
15879 000010 AC=10
15880 051712 STOB1: SETUP 100,0^
15881 000011 AC1=<AC+1>&17
15882 000012 AC2=<AC+2>&17
15883 000013 AC3=<AC+3>&17
15884 000014 AC4=<AC+4>&17
15885 000015 AC5=<AC+5>&17
15886 000006 RAN1=<AC-2>&17
15887 051712 201 07 0 00 051712 MOVEI AC-1,.
15888 051713 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
15889 051714 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
15890 051715 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
15891 051716 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
15892 051717 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
15893 051720 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
15894 051721 STOB2: RANDOM^
15895 051721 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
15896 051722 270 10 0 00 060657 ADD AC,[142536475076]
15897 051723 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
15898 051724 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
15899 051725 207 06 0 00 000010 STOB3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
15900 051726 200 11 0 00 061125 MOVE AC1,RAN ;C(E)=1'ST RAN. NUM
15901 051727 477 10 0 00 000011 SETOB AC,AC1 ;DO A SETOB INST.
15902 051730 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD=C(E).
15903 051731 011 00 0 00 000006 EERR ,RAN1
15904 051732 312 10 0 00 060662 CAME AC,[-1] ;C(AC) SHOULD=-1
15905 051733 011 00 0 00 000006 EERR ,RAN1
15906 LOOP STOB2,STOB3^
15907 051734 367 07 0 00 051721 SOJG AC-1,STOB2 ;ITERATION COUNTER
15908 051735 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
15909 051736 321 07 0 00 051725 JUMPL AC-1,STOB3 ;LOOP ON ERROR SWITCH ^
15910
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 73
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0411
15911
15912
15913 ;TEST HLL. CHECK C(AC) FOR CORRECT DATA
15914 ;RAN TO RAN1.
15915
15916
15917 000003 AC=3
15918 051737 HLL1: SETUP 100,0^
15919 000004 AC1=<AC+1>&17
15920 000005 AC2=<AC+2>&17
15921 000006 AC3=<AC+3>&17
15922 000007 AC4=<AC+4>&17
15923 000010 AC5=<AC+5>&17
15924 000001 RAN1=<AC-2>&17
15925 051737 201 02 0 00 051737 MOVEI AC-1,.
15926 051740 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
15927 051741 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
15928 051742 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
15929 051743 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
15930 051744 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
15931 051745 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
15932 051746 HLL2: RANDOM^
15933 051746 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
15934 051747 270 03 0 00 060657 ADD AC,[142536475076]
15935 051750 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
15936 051751 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
15937 051752 241 03 0 00 000011 HLL3: ROT AC,11 ;MAKE C(AC) A DIFFERENT RAN NUM.
15938 051753 200 01 0 00 000003 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
15939 051754 201 04 0 03 000000 MOVEI AC1,(AC) ;SIMULATE
15940 051755 204 05 0 00 061125 MOVS AC2,RAN ;A
15941 051756 661 04 0 05 000000 TLO AC1,(AC2) ;HLL.
15942 051757 500 03 0 00 061125 HLL AC,RAN ;DO HLL.
15943 051760 312 03 0 00 000004 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
15944 051761 001 04 0 00 000001 ERR AC1,RAN1
15945 LOOP HLL2,HLL3^
15946 051762 367 02 0 00 051746 SOJG AC-1,HLL2 ;ITERATION COUNTER
15947 051763 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
15948 051764 321 02 0 00 051752 JUMPL AC-1,HLL3 ;LOOP ON ERROR SWITCH ^
15949
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 74
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0412
15950
15951
15952 ;TEST HLLI. CHECK C(AC) FOR CORRECT DATA
15953 ;RAN TO RAN1.
15954
15955
15956 000003 AC=3
15957 051765 HLLI1: SETUP 100,0^
15958 000004 AC1=<AC+1>&17
15959 000005 AC2=<AC+2>&17
15960 000006 AC3=<AC+3>&17
15961 000007 AC4=<AC+4>&17
15962 000010 AC5=<AC+5>&17
15963 000001 RAN1=<AC-2>&17
15964 051765 201 02 0 00 051765 MOVEI AC-1,.
15965 051766 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
15966 051767 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
15967 051770 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
15968 051771 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
15969 051772 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
15970 051773 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
15971 051774 HLLI2: RANDOM^
15972 051774 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
15973 051775 270 03 0 00 060657 ADD AC,[142536475076]
15974 051776 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
15975 051777 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
15976 052000 200 05 0 00 061125 MOVE AC2,RAN ;SAVE E.
15977 052001 241 03 0 00 000011 HLLI3: ROT AC,11 ;MAKE C(AC) DIFF. RAN. NUM.
15978 052002 200 01 0 00 000003 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
15979 052003 201 04 0 03 000000 MOVEI AC1,(AC) ;SIMULATE A HLLI.
15980 052004 501 03 0 05 000000 HLLI AC,(AC2) ;DO HLLI.
15981 052005 312 03 0 00 000004 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
15982 052006 003 01 0 05 000000 ERRI RAN1,(AC2)
15983 LOOP HLLI2,HLLI3^
15984 052007 367 02 0 00 051774 SOJG AC-1,HLLI2 ;ITERATION COUNTER
15985 052010 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
15986 052011 321 02 0 00 052001 JUMPL AC-1,HLLI3 ;LOOP ON ERROR SWITCH ^
15987
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 75
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0413
15988
15989
15990 ;TEST HLLM. CHECK C(E) FOR CORRECT DATA.
15991 ;RAN1 TO RAN1.
15992
15993
15994 000003 AC=3
15995 052012 HLLM1: SETUP 100,0^
15996 000004 AC1=<AC+1>&17
15997 000005 AC2=<AC+2>&17
15998 000006 AC3=<AC+3>&17
15999 000007 AC4=<AC+4>&17
16000 000010 AC5=<AC+5>&17
16001 000001 RAN1=<AC-2>&17
16002 052012 201 02 0 00 052012 MOVEI AC-1,.
16003 052013 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
16004 052014 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
16005 052015 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
16006 052016 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
16007 052017 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
16008 052020 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
16009 052021 HLLM2: RANDOM^
16010 052021 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
16011 052022 270 03 0 00 060657 ADD AC,[142536475076]
16012 052023 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
16013 052024 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
16014 052025 200 06 0 00 061125 MOVE AC3,RAN ;SAVE C(AC) IN CASE OF ERROR.
16015 052026 241 03 0 00 000011 HLLM3: ROT AC,11 ;MAKE C (E) A DIFFERENT RAN NUM
16016 052027 202 03 0 00 000001 MOVEM AC,RAN1 ;SAVE IN CASE OF ERROR
16017 052030 201 04 0 03 000000 MOVEI AC1,(AC) ;SIMULATE
16018 052031 204 05 0 00 061125 MOVS AC2,RAN ;A
16019 052032 661 04 0 05 000000 TLO AC1,(AC2) ;HLLM
16020 052033 502 06 0 00 000003 HLLM AC3,AC ;DO HLLM.
16021 052034 312 04 0 00 000003 CAME AC1,AC ;C(E) SHOULD=SIM ANS
16022 052035 002 01 0 00 000006 ERRM RAN1,AC3
16023 LOOP HLLM2,HLLM3^
16024 052036 367 02 0 00 052021 SOJG AC-1,HLLM2 ;ITERATION COUNTER
16025 052037 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
16026 052040 321 02 0 00 052026 JUMPL AC-1,HLLM3 ;LOOP ON ERROR SWITCH ^
16027
16028
16029
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 76
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0414
16030
16031
16032 ;TEST HLLS.
16033 ;CHECK C(E), C(E) SHOULD NOT CHANGE, AND CORRECT
16034 ;LOADING OF C(E) INTO AC.
16035 ;RAN TO RAN.
16036
16037
16038 000004 AC=4
16039 052041 HLLS1: SETUP 100,0^
16040 000005 AC1=<AC+1>&17
16041 000006 AC2=<AC+2>&17
16042 000007 AC3=<AC+3>&17
16043 000010 AC4=<AC+4>&17
16044 000011 AC5=<AC+5>&17
16045 000002 RAN1=<AC-2>&17
16046 052041 201 03 0 00 052041 MOVEI AC-1,.
16047 052042 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
16048 052043 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
16049 052044 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
16050 052045 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
16051 052046 240 03 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
16052 052047 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
16053 052050 HLLS2: RANDOM^
16054 052050 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
16055 052051 270 04 0 00 060657 ADD AC,[142536475076]
16056 052052 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
16057 052053 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
16058 052054 200 06 0 00 061125 MOVE AC2,RAN ;SAVE RAN FOR FUTURE COMPARE.
16059 052055 477 05 0 00 000002 HLLS3: SETOB AC1,RAN1 ;MAKE C (AC)=-1
16060 052056 503 05 0 00 000004 HLLS AC1,AC ;DO HLLS
16061 052057 312 05 0 00 000004 CAME AC1,AC ;C(AC) SHOULD=C(E)
16062 052060 012 00 0 00 000002 EERRM ,RAN1
16063 052061 312 06 0 00 000004 CAME AC2,AC ;C(E) SHOULD = ORIG C(AC).
16064 052062 012 00 0 00 000002 EERRM ,RAN1
16065 LOOP HLLS2,HLLS3^
16066 052063 367 03 0 00 052050 SOJG AC-1,HLLS2 ;ITERATION COUNTER
16067 052064 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
16068 052065 321 03 0 00 052055 JUMPL AC-1,HLLS3 ;LOOP ON ERROR SWITCH ^
16069
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 77
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0415
16070
16071
16072 ;TEST HRR. CHECK C(AC) FOR CORRECT DATA
16073 ;RAN TO RAN1.
16074
16075
16076 000005 AC=5
16077 052066 HRR1: SETUP 100,0^
16078 000006 AC1=<AC+1>&17
16079 000007 AC2=<AC+2>&17
16080 000010 AC3=<AC+3>&17
16081 000011 AC4=<AC+4>&17
16082 000012 AC5=<AC+5>&17
16083 000003 RAN1=<AC-2>&17
16084 052066 201 04 0 00 052066 MOVEI AC-1,.
16085 052067 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
16086 052070 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
16087 052071 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
16088 052072 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
16089 052073 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
16090 052074 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
16091 052075 HRR2: RANDOM^
16092 052075 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
16093 052076 270 05 0 00 060657 ADD AC,[142536475076]
16094 052077 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
16095 052100 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
16096 052101 200 07 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN ANOTHER AC.
16097 052102 241 05 0 00 000011 HRR3: ROT AC,11 ;MAKE C(AC) A DIFFERENT RAN NUM
16098 052103 200 03 0 00 000005 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
16099 052104 200 06 0 00 000005 MOVE AC1,AC ;SIMULATE
16100 052105 620 06 0 00 777777 TRZ AC1,-1 ;A
16101 052106 660 06 0 07 000000 TRO AC1,(AC2) ;HRR.
16102 052107 540 05 0 00 061125 HRR AC,RAN ;DO HRR
16103 052110 312 05 0 00 000006 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
16104 052111 001 07 0 00 000003 ERR AC2,RAN1
16105 LOOP HRR2,HRR3^
16106 052112 367 04 0 00 052075 SOJG AC-1,HRR2 ;ITERATION COUNTER
16107 052113 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
16108 052114 321 04 0 00 052102 JUMPL AC-1,HRR3 ;LOOP ON ERROR SWITCH ^
16109
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 78
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0416
16110
16111
16112 ;TEST HRRI. CHECK C(AC) FOR CORRECT DATA
16113 ;RAN TO RAN1
16114
16115
16116 000006 AC=6
16117 052115 HRRI1: SETUP 100,0^
16118 000007 AC1=<AC+1>&17
16119 000010 AC2=<AC+2>&17
16120 000011 AC3=<AC+3>&17
16121 000012 AC4=<AC+4>&17
16122 000013 AC5=<AC+5>&17
16123 000004 RAN1=<AC-2>&17
16124 052115 201 05 0 00 052115 MOVEI AC-1,.
16125 052116 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
16126 052117 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
16127 052120 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
16128 052121 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
16129 052122 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
16130 052123 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
16131 052124 HRRI2: RANDOM^
16132 052124 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
16133 052125 270 06 0 00 060657 ADD AC,[142536475076]
16134 052126 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
16135 052127 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
16136 052130 200 10 0 00 061125 MOVE AC2,RAN ;SAVE E.
16137 052131 241 06 0 00 000011 HRRI3: ROT AC,11 ;MAKE C(AC)=DIFFERENT RAN. NUM
16138 052132 200 04 0 00 000006 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF AN ERROR
16139 052133 200 07 0 00 000006 MOVE AC1,AC ;SIMULATE
16140 052134 620 07 0 00 777777 TRZ AC1,-1 ;A
16141 052135 660 07 0 10 000000 TRO AC1,(AC2) ;HRRI.
16142 052136 541 06 0 10 000000 HRRI AC,(AC2) ;DO HRRI.
16143 052137 312 06 0 00 000007 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
16144 052140 003 04 0 10 000000 ERRI RAN1,(AC2)
16145 LOOP HRRI2,HRRI3^
16146 052141 367 05 0 00 052124 SOJG AC-1,HRRI2 ;ITERATION COUNTER
16147 052142 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
16148 052143 321 05 0 00 052131 JUMPL AC-1,HRRI3 ;LOOP ON ERROR SWITCH ^
16149
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 79
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0417
16150
16151
16152 ;TEST HRRM. CHECK C(E) FOR CORRECT DATA.
16153 ;RAN TO RAN1
16154
16155
16156 000007 AC=7
16157 052144 HRRM1: SETUP 100,0^
16158 000010 AC1=<AC+1>&17
16159 000011 AC2=<AC+2>&17
16160 000012 AC3=<AC+3>&17
16161 000013 AC4=<AC+4>&17
16162 000014 AC5=<AC+5>&17
16163 000005 RAN1=<AC-2>&17
16164 052144 201 06 0 00 052144 MOVEI AC-1,.
16165 052145 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
16166 052146 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
16167 052147 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
16168 052150 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
16169 052151 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
16170 052152 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
16171 052153 HRRM2: RANDOM^
16172 052153 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
16173 052154 270 07 0 00 060657 ADD AC,[142536475076]
16174 052155 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
16175 052156 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
16176 052157 200 11 0 00 061125 MOVE AC2,RAN ;SAVE C(AC).
16177 052160 241 07 0 00 000011 HRRM3: ROT AC,11 ;MAKE C(E)=DIFFERENT RAN. NUM
16178 052161 200 05 0 00 000007 MOVE RAN1,AC ;SAVE IN CASE OF ERROR
16179 052162 200 10 0 00 000007 MOVE AC1,AC ;SIMULATE
16180 052163 620 10 0 00 777777 TRZ AC1,-1 ;A
16181 052164 660 10 0 11 000000 TRO AC1,(AC2) ;HRRM.
16182 052165 542 11 0 00 000007 HRRM AC2,AC ;DO HRRM.
16183 052166 312 10 0 00 000007 CAME AC1,AC ;C(E) SHOULD=SIM. ANS.
16184 052167 002 05 0 00 061125 ERRM RAN1,RAN
16185 LOOP HRRM2,HRRM3^
16186 052170 367 06 0 00 052153 SOJG AC-1,HRRM2 ;ITERATION COUNTER
16187 052171 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
16188 052172 321 06 0 00 052160 JUMPL AC-1,HRRM3 ;LOOP ON ERROR SWITCH ^
16189
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 80
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0418
16190
16191
16192 ;TEST HRRS. CHECK C(E) FOR NOT CHANGING, AND
16193 ;CORRECT STORING OF C(E) INTO AC.
16194 ;RAN TO RAN
16195
16196
16197 000010 AC=10
16198 052173 HRRS1: SETUP 100,0^
16199 000011 AC1=<AC+1>&17
16200 000012 AC2=<AC+2>&17
16201 000013 AC3=<AC+3>&17
16202 000014 AC4=<AC+4>&17
16203 000015 AC5=<AC+5>&17
16204 000006 RAN1=<AC-2>&17
16205 052173 201 07 0 00 052173 MOVEI AC-1,.
16206 052174 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
16207 052175 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
16208 052176 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
16209 052177 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
16210 052200 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
16211 052201 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
16212 052202 HRRS2: RANDOM^
16213 052202 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
16214 052203 270 10 0 00 060657 ADD AC,[142536475076]
16215 052204 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
16216 052205 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
16217 052206 200 12 0 00 061125 MOVE AC2,RAN ;SAVE C(AC).
16218 052207 477 11 0 00 000006 HRRS3: SETOB AC1,RAN1 ;SET C(AC)=-1
16219 052210 543 11 0 00 000010 HRRS AC1,AC ;DO HRRS
16220 052211 312 11 0 00 000010 CAME AC1,AC ;C(AC) SHOULD=C(E)
16221 052212 002 12 0 00 000006 ERRM AC2,RAN1
16222 052213 312 12 0 00 000010 CAME AC2,AC ;C(E) SHOULD = ORIG. C(E).
16223 052214 002 12 0 00 000006 ERRM AC2,RAN1
16224 LOOP HRRS2,HRRS3^
16225 052215 367 07 0 00 052202 SOJG AC-1,HRRS2 ;ITERATION COUNTER
16226 052216 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
16227 052217 321 07 0 00 052207 JUMPL AC-1,HRRS3 ;LOOP ON ERROR SWITCH ^
16228
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 81
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0419
16229
16230
16231 ;TEST HRL. CHECK C(AC) FOR CORRECT DATA
16232 ;RAN TO RAN1.
16233
16234
16235 000011 AC=11
16236 052220 HRL1: SETUP 140,0^
16237 000012 AC1=<AC+1>&17
16238 000013 AC2=<AC+2>&17
16239 000014 AC3=<AC+3>&17
16240 000015 AC4=<AC+4>&17
16241 000016 AC5=<AC+5>&17
16242 000007 RAN1=<AC-2>&17
16243 052220 201 10 0 00 052220 MOVEI AC-1,.
16244 052221 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
16245 052222 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
16246 052223 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
16247 052224 201 10 0 00 000140 MOVEI AC-1,140 ;ROUTINE WEIGHTING
16248 052225 240 10 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
16249 052226 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
16250 052227 HRL2: RANDOM^
16251 052227 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
16252 052230 270 11 0 00 060657 ADD AC,[142536475076]
16253 052231 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
16254 052232 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
16255 052233 200 13 0 00 061125 MOVE AC2,RAN ;SAVE C(E).
16256 052234 241 11 0 00 000011 HRL3: ROT AC,11 ;C(AC)=SECOND RANDOM NUM
16257 052235 200 07 0 00 000011 MOVE RAN1,AC ;SAVE IN CASE OF ERROR.
16258 052236 205 12 0 13 000000 MOVSI AC1,(AC2) ;SIMULATE
16259 052237 660 12 0 11 000000 TRO AC1,(AC) ;A HRL
16260 052240 504 11 0 00 061125 HRL AC,RAN ;DO HRL
16261 052241 312 11 0 00 000012 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
16262 052242 001 13 0 00 000007 ERR AC2,RAN1
16263 LOOP HRL2,HRL3^
16264 052243 367 10 0 00 052227 SOJG AC-1,HRL2 ;ITERATION COUNTER
16265 052244 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
16266 052245 321 10 0 00 052234 JUMPL AC-1,HRL3 ;LOOP ON ERROR SWITCH ^
16267
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 82
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0420
16268
16269
16270 ;TEST HRLI. CHECK C(AC)FOR CORRECT DATA.
16271 ;RAN TO RAN1
16272
16273
16274 000004 AC=4
16275 052246 HRLI1: SETUP 140,0^
16276 000005 AC1=<AC+1>&17
16277 000006 AC2=<AC+2>&17
16278 000007 AC3=<AC+3>&17
16279 000010 AC4=<AC+4>&17
16280 000011 AC5=<AC+5>&17
16281 000002 RAN1=<AC-2>&17
16282 052246 201 03 0 00 052246 MOVEI AC-1,.
16283 052247 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
16284 052250 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
16285 052251 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
16286 052252 201 03 0 00 000140 MOVEI AC-1,140 ;ROUTINE WEIGHTING
16287 052253 240 03 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
16288 052254 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
16289 052255 HRLI2: RANDOM^
16290 052255 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
16291 052256 270 04 0 00 060657 ADD AC,[142536475076]
16292 052257 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
16293 052260 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
16294 052261 200 06 0 00 061125 MOVE AC2,RAN ;SAVE E.
16295 052262 241 04 0 00 000011 HRLI3: ROT AC,11 ;C(AC)=SECOND RAN NUM
16296 052263 200 02 0 00 000004 MOVE RAN1,AC ;SAVE IN CASE OF ERROR.
16297 052264 205 05 0 06 000000 MOVSI AC1,(AC2) ;SIMULATE
16298 052265 660 05 0 04 000000 TRO AC1,(AC) ;A HRLI
16299 052266 505 04 0 06 000000 HRLI AC,(AC2) ;DO HRLI.
16300 052267 312 04 0 00 000005 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
16301 052270 003 02 0 06 000000 ERRI RAN1,(AC2)
16302 LOOP HRLI2,HRLI3^
16303 052271 367 03 0 00 052255 SOJG AC-1,HRLI2 ;ITERATION COUNTER
16304 052272 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
16305 052273 321 03 0 00 052262 JUMPL AC-1,HRLI3 ;LOOP ON ERROR SWITCH ^
16306
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 83
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0421
16307
16308
16309 ;TEST HRLM. CHECK C(E) FOR CORRECT DATA.
16310 ;RAN TO RAN1
16311
16312
16313 000005 AC=5
16314 052274 HRLM1: SETUP 140,0^
16315 000006 AC1=<AC+1>&17
16316 000007 AC2=<AC+2>&17
16317 000010 AC3=<AC+3>&17
16318 000011 AC4=<AC+4>&17
16319 000012 AC5=<AC+5>&17
16320 000003 RAN1=<AC-2>&17
16321 052274 201 04 0 00 052274 MOVEI AC-1,.
16322 052275 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
16323 052276 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
16324 052277 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
16325 052300 201 04 0 00 000140 MOVEI AC-1,140 ;ROUTINE WEIGHTING
16326 052301 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
16327 052302 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
16328 052303 HRLM2: RANDOM^
16329 052303 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
16330 052304 270 05 0 00 060657 ADD AC,[142536475076]
16331 052305 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
16332 052306 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
16333 052307 200 07 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
16334 052310 241 05 0 00 000011 HRLM3: ROT AC,11 ;C(E)=SECOND RAN NUM
16335 052311 200 03 0 00 000005 MOVE RAN1,AC ;SAVE IN CASE OF ERROR
16336 052312 205 06 0 07 000000 MOVSI AC1,(AC2) ;SIMULATE
16337 052313 660 06 0 05 000000 TRO AC1,(AC) ;A HRLM
16338 052314 506 07 0 00 000005 HRLM AC2,AC ;DO HRLM.
16339 052315 312 06 0 00 000005 CAME AC1,AC ;C(E) SHOULD=SIM. ANS.
16340 052316 002 03 0 00 061125 ERRM RAN1,RAN
16341 LOOP HRLM2,HRLM3^
16342 052317 367 04 0 00 052303 SOJG AC-1,HRLM2 ;ITERATION COUNTER
16343 052320 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
16344 052321 321 04 0 00 052310 JUMPL AC-1,HRLM3 ;LOOP ON ERROR SWITCH ^
16345
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 84
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0422
16346
16347
16348 ;TEST HRLS. CHECK C(E) FOR CORRECT DATA, AND
16349 ;CORRECT STORING OF C(E) INTO AC.
16350 ;RAN TO RAN
16351
16352
16353 000006 AC=6
16354 052322 HRLS1: SETUP 140,0^
16355 000007 AC1=<AC+1>&17
16356 000010 AC2=<AC+2>&17
16357 000011 AC3=<AC+3>&17
16358 000012 AC4=<AC+4>&17
16359 000013 AC5=<AC+5>&17
16360 000004 RAN1=<AC-2>&17
16361 052322 201 05 0 00 052322 MOVEI AC-1,.
16362 052323 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
16363 052324 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
16364 052325 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
16365 052326 201 05 0 00 000140 MOVEI AC-1,140 ;ROUTINE WEIGHTING
16366 052327 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
16367 052330 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
16368 052331 HRLS2: RANDOM^
16369 052331 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
16370 052332 270 06 0 00 060657 ADD AC,[142536475076]
16371 052333 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
16372 052334 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
16373 052335 477 07 0 00 000004 HRLS3: SETOB AC1,RAN1 ;SET C(AC) TO -1
16374 052336 205 10 0 06 000000 MOVSI AC2,(AC) ;SIMULATE
16375 052337 660 10 0 06 000000 TRO AC2,(AC) ;A HRLS
16376 052340 507 07 0 00 000006 HRLS AC1,AC ;DO HRLS
16377 052341 312 07 0 00 000006 CAME AC1,AC ;C(AC) SHOULD=C(F) AFTER HRLS
16378 052342 012 00 0 00 000004 EERRM ,RAN1
16379 052343 312 10 0 00 000006 CAME AC2,AC ;C(E) SHOULD=SIM. ANS
16380 052344 012 00 0 00 000004 EERRM ,RAN1
16381 LOOP HRLS2,HRLS3^
16382 052345 367 05 0 00 052331 SOJG AC-1,HRLS2 ;ITERATION COUNTER
16383 052346 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
16384 052347 321 05 0 00 052335 JUMPL AC-1,HRLS3 ;LOOP ON ERROR SWITCH ^
16385
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 85
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0423
16386
16387
16388 ;TEST HLR. CHECK C(AC) FOR CORRECT DATA
16389 ;RAN TO RAN1
16390
16391
16392 000007 AC=7
16393 052350 HLR1: SETUP 140,0^
16394 000010 AC1=<AC+1>&17
16395 000011 AC2=<AC+2>&17
16396 000012 AC3=<AC+3>&17
16397 000013 AC4=<AC+4>&17
16398 000014 AC5=<AC+5>&17
16399 000005 RAN1=<AC-2>&17
16400 052350 201 06 0 00 052350 MOVEI AC-1,.
16401 052351 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
16402 052352 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
16403 052353 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
16404 052354 201 06 0 00 000140 MOVEI AC-1,140 ;ROUTINE WEIGHTING
16405 052355 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
16406 052356 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
16407 052357 HLR2: RANDOM^
16408 052357 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
16409 052360 270 07 0 00 060657 ADD AC,[142536475076]
16410 052361 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
16411 052362 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
16412 052363 241 07 0 00 000011 HLR3: ROT AC,11 ;C(AC)=SECOND RAN NUM
16413 052364 200 05 0 00 000007 MOVE RAN1,AC ;SAVE IN CASE OF ERROR
16414 052365 200 10 0 00 000007 MOVE AC1,AC ;SIMULATE
16415 052366 620 10 0 00 777777 TRZ AC1,-1 ;A
16416 052367 204 11 0 00 061125 MOVS AC2,RAN ;HLR
16417 052370 660 10 0 11 000000 TRO AC1,(AC2) ;INST
16418 052371 544 07 0 00 061125 HLR AC,RAN ;DO HLR
16419 052372 312 07 0 00 000010 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
16420 052373 011 00 0 00 000005 EERR ,RAN1
16421 LOOP HLR2,HLR3^
16422 052374 367 06 0 00 052357 SOJG AC-1,HLR2 ;ITERATION COUNTER
16423 052375 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
16424 052376 321 06 0 00 052363 JUMPL AC-1,HLR3 ;LOOP ON ERROR SWITCH ^
16425
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 86
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0424
16426
16427
16428 ;TEST HLRI. CHECK C(AC) FOR CORRECT DATA
16429 ;RAN TO RAN1
16430
16431
16432 000010 AC=10
16433 052377 HLRI1: SETUP 140,0^
16434 000011 AC1=<AC+1>&17
16435 000012 AC2=<AC+2>&17
16436 000013 AC3=<AC+3>&17
16437 000014 AC4=<AC+4>&17
16438 000015 AC5=<AC+5>&17
16439 000006 RAN1=<AC-2>&17
16440 052377 201 07 0 00 052377 MOVEI AC-1,.
16441 052400 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
16442 052401 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
16443 052402 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
16444 052403 201 07 0 00 000140 MOVEI AC-1,140 ;ROUTINE WEIGHTING
16445 052404 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
16446 052405 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
16447 052406 HLRI2: RANDOM^
16448 052406 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
16449 052407 270 10 0 00 060657 ADD AC,[142536475076]
16450 052410 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
16451 052411 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
16452 052412 200 13 0 00 061125 MOVE AC3,RAN ;SAVE RAN IN AN AC.
16453 052413 241 10 0 00 000011 HLRI3: ROT AC,11 ;C(AC)=SECOND RAN NUM
16454 052414 200 06 0 00 000010 MOVE RAN1,AC ;SAVE IN CASE OF ERROR
16455 052415 200 11 0 00 000010 MOVE AC1,AC ;SIMULATE
16456 052416 620 11 0 00 777777 TRZ AC1,-1 ;A HLRI
16457 052417 545 10 0 13 000000 HLRI AC,(AC3) ;DO HLRI.
16458 052420 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD=SIMULATED ANS
16459 052421 003 06 0 13 000000 ERRI RAN1,(AC3)
16460 LOOP HLRI2,HLRI3^
16461 052422 367 07 0 00 052406 SOJG AC-1,HLRI2 ;ITERATION COUNTER
16462 052423 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
16463 052424 321 07 0 00 052413 JUMPL AC-1,HLRI3 ;LOOP ON ERROR SWITCH ^
16464
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 87
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0425
16465
16466
16467 ;TEST HLRM CHECK C(E) FOR CORRECT DATA
16468 ;RAN TO RAN1.
16469
16470
16471 000010 AC=10
16472 052425 HLRM1: SETUP 100,0^
16473 000011 AC1=<AC+1>&17
16474 000012 AC2=<AC+2>&17
16475 000013 AC3=<AC+3>&17
16476 000014 AC4=<AC+4>&17
16477 000015 AC5=<AC+5>&17
16478 000006 RAN1=<AC-2>&17
16479 052425 201 07 0 00 052425 MOVEI AC-1,.
16480 052426 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
16481 052427 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
16482 052430 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
16483 052431 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
16484 052432 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
16485 052433 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
16486 052434 HLRM2: RANDOM^
16487 052434 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
16488 052435 270 10 0 00 060657 ADD AC,[142536475076]
16489 052436 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
16490 052437 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
16491 052440 200 13 0 00 061125 MOVE AC3,RAN ;SAVE RAN IN AN AC.
16492 052441 241 10 0 00 000011 HLRM3: ROT AC,11 ;C(AC)=SECOND RAN. NUM
16493 052442 200 06 0 00 000010 MOVE RAN1,AC ;SAVE IN CASE OF ERROR
16494 052443 200 11 0 00 000010 MOVE AC1,AC ;SIMULATE
16495 052444 620 11 0 00 777777 TRZ AC1,-1 ;A
16496 052445 204 12 0 00 061125 MOVS AC2,RAN ;HLRM
16497 052446 660 11 0 12 000000 TRO AC1,(AC2) ;INST
16498 052447 546 13 0 00 000010 HLRM AC3,AC ;DO HLRM.
16499 052450 312 11 0 00 000010 CAME AC1,AC ;C(E) SHOULD=SIM. ANS
16500 052451 002 06 0 00 061125 ERRM RAN1,RAN
16501 LOOP HLRM2,HLRM3^
16502 052452 367 07 0 00 052434 SOJG AC-1,HLRM2 ;ITERATION COUNTER
16503 052453 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
16504 052454 321 07 0 00 052441 JUMPL AC-1,HLRM3 ;LOOP ON ERROR SWITCH ^
16505
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 88
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0426
16506
16507
16508 ;TEST HLRS. CHECK C(E) FOR CORRECT DATA, AND
16509 ;CORRECT STORING OF C(E) INTO AC
16510 ;RAN TO RAN.
16511
16512
16513 000002 AC=2
16514 052455 HLRS1: SETUP 140,0^
16515 000003 AC1=<AC+1>&17
16516 000004 AC2=<AC+2>&17
16517 000005 AC3=<AC+3>&17
16518 000006 AC4=<AC+4>&17
16519 000007 AC5=<AC+5>&17
16520 000000 RAN1=<AC-2>&17
16521 052455 201 01 0 00 052455 MOVEI AC-1,.
16522 052456 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
16523 052457 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
16524 052460 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
16525 052461 201 01 0 00 000140 MOVEI AC-1,140 ;ROUTINE WEIGHTING
16526 052462 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
16527 052463 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
16528 052464 HLRS2: RANDOM^
16529 052464 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
16530 052465 270 02 0 00 060657 ADD AC,[142536475076]
16531 052466 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
16532 052467 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
16533 052470 477 03 0 00 000000 HLRS3: SETOB AC1,RAN1 ;SAVE IN CASE OF ERROR
16534 052471 200 04 0 00 000002 MOVE AC2,AC ;SIMULATE
16535 052472 620 04 0 00 777777 TRZ AC2,-1 ;A
16536 052473 204 05 0 00 000002 MOVS AC3,AC ;HLRS
16537 052474 621 05 0 00 777777 TLZ AC3,-1
16538 052475 434 04 0 00 000005 IOR AC2,AC3 ;INST
16539 052476 547 03 0 00 000002 HLRS AC1,AC ;DO HLRS
16540 052477 312 03 0 00 000002 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER HLRS
16541 052500 012 00 0 00 000000 EERRM ,RAN1
16542 052501 312 04 0 00 000002 CAME AC2,AC ;C(E) SHOULD=SIM. ANS.
16543 052502 012 00 0 00 000000 EERRM ,RAN1
16544 LOOP HLRS2,HLRS3^
16545 052503 367 01 0 00 052464 SOJG AC-1,HLRS2 ;ITERATION COUNTER
16546 052504 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
16547 052505 321 01 0 00 052470 JUMPL AC-1,HLRS3 ;LOOP ON ERROR SWITCH ^
16548
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 89
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0427
16549
16550
16551 ;TEST HLLZ. CHECK C(AC) FOR CORRECT DATA
16552 ;RAN TO RAN1.
16553
16554
16555 000003 AC=3
16556 052506 HLLZ1: SETUP 200,0^
16557 000004 AC1=<AC+1>&17
16558 000005 AC2=<AC+2>&17
16559 000006 AC3=<AC+3>&17
16560 000007 AC4=<AC+4>&17
16561 000010 AC5=<AC+5>&17
16562 000001 RAN1=<AC-2>&17
16563 052506 201 02 0 00 052506 MOVEI AC-1,.
16564 052507 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
16565 052510 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
16566 052511 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
16567 052512 201 02 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
16568 052513 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
16569 052514 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
16570 052515 HLLZ2: RANDOM^
16571 052515 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
16572 052516 270 03 0 00 060657 ADD AC,[142536475076]
16573 052517 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
16574 052520 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
16575 052521 241 03 0 00 000011 HLLZ3: ROT AC,11 ;C(AC)=SECOND RAN NUM
16576 052522 200 01 0 00 000003 MOVE RAN1,AC ;SAVE IN CASE OF ERROR
16577 052523 200 04 0 00 061125 MOVE AC1,RAN ;SIMULATE
16578 052524 620 04 0 00 777777 TRZ AC1,-1 ;A HLLZ
16579 052525 510 03 0 00 061125 HLLZ AC,RAN ;DO HLLZ
16580 052526 312 03 0 00 000004 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
16581 052527 011 00 0 00 000001 EERR ,RAN1
16582 LOOP HLLZ2,HLLZ3^
16583 052530 367 02 0 00 052515 SOJG AC-1,HLLZ2 ;ITERATION COUNTER
16584 052531 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
16585 052532 321 02 0 00 052521 JUMPL AC-1,HLLZ3 ;LOOP ON ERROR SWITCH ^
16586
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 90
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0428
16587
16588
16589 ;TEST HLLZI. CHECK C(AC) FOR 0
16590 ;RAN TO RAN1
16591
16592
16593 000002 AC=2
16594 052533 HLLZI1: SETUP 200,0^
16595 000003 AC1=<AC+1>&17
16596 000004 AC2=<AC+2>&17
16597 000005 AC3=<AC+3>&17
16598 000006 AC4=<AC+4>&17
16599 000007 AC5=<AC+5>&17
16600 000000 RAN1=<AC-2>&17
16601 052533 201 01 0 00 052533 MOVEI AC-1,.
16602 052534 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
16603 052535 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
16604 052536 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
16605 052537 201 01 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
16606 052540 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
16607 052541 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
16608 052542 HLLZI2: RANDOM^
16609 052542 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
16610 052543 270 02 0 00 060657 ADD AC,[142536475076]
16611 052544 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
16612 052545 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
16613 052546 200 03 0 00 061125 MOVE AC1,RAN ;SAVE RAN IN AN AC.
16614 052547 241 02 0 00 000011 HLLZI3: ROT AC,11 ;C(AC)=SECOND RAN NUM
16615 052550 200 00 0 00 000002 MOVE RAN1,AC ;SAVE IN CASE OF ERROR
16616 052551 511 02 0 03 000000 HLLZI AC,(AC1) ;DO HLLZI.
16617 052552 312 02 0 00 060660 CAME AC,[0] ;C(AC) SHOULD=0
16618 052553 003 00 0 03 000000 ERRI RAN1,(AC1)
16619 LOOP HLLZI2,HLLZI3^
16620 052554 367 01 0 00 052542 SOJG AC-1,HLLZI2 ;ITERATION COUNTER
16621 052555 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
16622 052556 321 01 0 00 052547 JUMPL AC-1,HLLZI3 ;LOOP ON ERROR SWITCH ^
16623
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 91
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0429
16624
16625
16626 ;TEST HLLZM. CHECK C(E) FOR CORRECT DATA
16627 ;RAN TO RAN1
16628
16629
16630 000003 AC=3
16631 052557 HLLZM1: SETUP 200,0^
16632 000004 AC1=<AC+1>&17
16633 000005 AC2=<AC+2>&17
16634 000006 AC3=<AC+3>&17
16635 000007 AC4=<AC+4>&17
16636 000010 AC5=<AC+5>&17
16637 000001 RAN1=<AC-2>&17
16638 052557 201 02 0 00 052557 MOVEI AC-1,.
16639 052560 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
16640 052561 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
16641 052562 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
16642 052563 201 02 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
16643 052564 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
16644 052565 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
16645 052566 HLLZM2: RANDOM^
16646 052566 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
16647 052567 270 03 0 00 060657 ADD AC,[142536475076]
16648 052570 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
16649 052571 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
16650 052572 200 05 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
16651 052573 241 03 0 00 000011 HLLZM3: ROT AC,11 ;C(E)=SECOND RAN NUM
16652 052574 200 01 0 00 000003 MOVE RAN1,AC ;SAVE IN CASE OF ERROR
16653 052575 200 04 0 00 061125 MOVE AC1,RAN ;SIMULATE
16654 052576 620 04 0 00 777777 TRZ AC1,-1 ;A HLLZM
16655 052577 512 05 0 00 000003 HLLZM AC2,AC ;DO HLLZM.
16656 052600 312 04 0 00 000003 CAME AC1,AC ;C(E) SHOULD=SIM.ANS
16657 052601 002 01 0 00 061125 ERRM RAN1,RAN
16658 LOOP HLLZM2,HLLZM3^
16659 052602 367 02 0 00 052566 SOJG AC-1,HLLZM2 ;ITERATION COUNTER
16660 052603 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
16661 052604 321 02 0 00 052573 JUMPL AC-1,HLLZM3 ;LOOP ON ERROR SWITCH ^
16662
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 92
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0430
16663
16664
16665 ;TEST HLLZS. CHECK C(E) FOR CORRECT DATA, AND
16666 ;CORRECT STORING OF C(E) INTO AC.
16667 ;RAN TO RAN.
16668
16669
16670 000004 AC=4
16671 052605 HLLZS1: SETUP 200,0^
16672 000005 AC1=<AC+1>&17
16673 000006 AC2=<AC+2>&17
16674 000007 AC3=<AC+3>&17
16675 000010 AC4=<AC+4>&17
16676 000011 AC5=<AC+5>&17
16677 000002 RAN1=<AC-2>&17
16678 052605 201 03 0 00 052605 MOVEI AC-1,.
16679 052606 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
16680 052607 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
16681 052610 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
16682 052611 201 03 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
16683 052612 240 03 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
16684 052613 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
16685 052614 HLLZS2: RANDOM^
16686 052614 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
16687 052615 270 04 0 00 060657 ADD AC,[142536475076]
16688 052616 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
16689 052617 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
16690 052620 477 05 0 00 000002 HLLZS3: SETOB AC1,RAN1 ;SET C(AC) TO A -1
16691 052621 200 06 0 00 000004 MOVE AC2,AC ;SIMULATE
16692 052622 620 06 0 00 777777 TRZ AC2,-1 ;A HLLZS
16693 052623 513 05 0 00 000004 HLLZS AC1,AC ;DO HLLZS
16694 052624 312 05 0 00 000004 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER HLLZS
16695 052625 012 00 0 00 000002 EERRM ,RAN1
16696 052626 312 05 0 00 000004 CAME AC1,AC ;C(E) SHOULD=SIM. ANS
16697 052627 012 00 0 00 000002 EERRM ,RAN1
16698 LOOP HLLZS2,HLLZS3^
16699 052630 367 03 0 00 052614 SOJG AC-1,HLLZS2 ;ITERATION COUNTER
16700 052631 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
16701 052632 321 03 0 00 052620 JUMPL AC-1,HLLZS3 ;LOOP ON ERROR SWITCH ^
16702
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 93
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0431
16703
16704
16705 ;TEST HRRZ. CHECK C(AC) FOR CORRECT DATA.
16706 ;RAN TO RAN1
16707
16708
16709 000005 AC=5
16710 052633 HRRZ1: SETUP 200,0^
16711 000006 AC1=<AC+1>&17
16712 000007 AC2=<AC+2>&17
16713 000010 AC3=<AC+3>&17
16714 000011 AC4=<AC+4>&17
16715 000012 AC5=<AC+5>&17
16716 000003 RAN1=<AC-2>&17
16717 052633 201 04 0 00 052633 MOVEI AC-1,.
16718 052634 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
16719 052635 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
16720 052636 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
16721 052637 201 04 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
16722 052640 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
16723 052641 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
16724 052642 HRRZ2: RANDOM^
16725 052642 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
16726 052643 270 05 0 00 060657 ADD AC,[142536475076]
16727 052644 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
16728 052645 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
16729 052646 200 07 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
16730 052647 241 05 0 00 000011 HRRZ3: ROT AC,11 ;C(AC)=SECOND RAND NUM
16731 052650 200 03 0 00 000005 MOVE RAN1,AC ;SAVE IN CASE OF ERROR
16732 052651 201 06 0 07 000000 MOVEI AC1,(AC2) ;SIMULATE A HRRZ INST.
16733 052652 550 05 0 00 061125 HRRZ AC,RAN ;DO HRRZ
16734 052653 312 05 0 00 000006 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
16735 052654 001 07 0 00 000003 ERR AC2,RAN1
16736 LOOP HRRZ2,HRRZ3^
16737 052655 367 04 0 00 052642 SOJG AC-1,HRRZ2 ;ITERATION COUNTER
16738 052656 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
16739 052657 321 04 0 00 052647 JUMPL AC-1,HRRZ3 ;LOOP ON ERROR SWITCH ^
16740
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 94
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0432
16741
16742
16743 ;TEST HRRZI. CHECK C(AC) FOR CORRECT DATA
16744 ;RAN TO RAN1
16745
16746
16747 000006 AC=6
16748 052660 HRRZI1: SETUP 200,0^
16749 000007 AC1=<AC+1>&17
16750 000010 AC2=<AC+2>&17
16751 000011 AC3=<AC+3>&17
16752 000012 AC4=<AC+4>&17
16753 000013 AC5=<AC+5>&17
16754 000004 RAN1=<AC-2>&17
16755 052660 201 05 0 00 052660 MOVEI AC-1,.
16756 052661 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
16757 052662 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
16758 052663 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
16759 052664 201 05 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
16760 052665 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
16761 052666 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
16762 052667 HRRZI2: RANDOM^
16763 052667 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
16764 052670 270 06 0 00 060657 ADD AC,[142536475076]
16765 052671 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
16766 052672 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
16767 052673 200 10 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
16768 052674 241 06 0 00 000011 HRRZI3: ROT AC,11 ;C(AC)=SECOND RAN NUM
16769 052675 200 04 0 00 000006 MOVE RAN1,AC ;SAVE IN CASE OF ERROR
16770 052676 201 07 0 10 000000 MOVEI AC1,(AC2) ;SIMULATE A HRRZI INST.
16771 052677 551 06 0 10 000000 HRRZI AC,(AC2) ;DO HRRZI.
16772 052700 312 06 0 00 000007 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
16773 052701 003 04 0 10 000000 ERRI RAN1,(AC2)
16774 LOOP HRRZI2,HRRZI3^
16775 052702 367 05 0 00 052667 SOJG AC-1,HRRZI2 ;ITERATION COUNTER
16776 052703 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
16777 052704 321 05 0 00 052674 JUMPL AC-1,HRRZI3 ;LOOP ON ERROR SWITCH ^
16778
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 95
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0433
16779
16780
16781 ;TEST HRRZM. CHECK C(E) FOR CORRECT DATA
16782 ;RAN TO RAN1
16783
16784
16785 000007 AC=7
16786 052705 HRRZM1: SETUP 200,0^
16787 000010 AC1=<AC+1>&17
16788 000011 AC2=<AC+2>&17
16789 000012 AC3=<AC+3>&17
16790 000013 AC4=<AC+4>&17
16791 000014 AC5=<AC+5>&17
16792 000005 RAN1=<AC-2>&17
16793 052705 201 06 0 00 052705 MOVEI AC-1,.
16794 052706 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
16795 052707 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
16796 052710 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
16797 052711 201 06 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
16798 052712 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
16799 052713 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
16800 052714 HRRZM2: RANDOM^
16801 052714 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
16802 052715 270 07 0 00 060657 ADD AC,[142536475076]
16803 052716 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
16804 052717 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
16805 052720 200 11 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
16806 052721 241 07 0 00 000011 HRRZM3: ROT AC,11 ;C(E)=SECOND RAN. NUM
16807 052722 200 05 0 00 000007 MOVE RAN1,AC ;SAVE IN CASE OF ERROR
16808 052723 201 10 0 11 000000 MOVEI AC1,(AC2) ;SIMULATE A HRRZM INST.
16809 052724 552 11 0 00 000007 HRRZM AC2,AC ;DO HRRZM.
16810 052725 312 10 0 00 000007 CAME AC1,AC ;C(E) SHOULD=SIM. ANS
16811 052726 002 05 0 00 061125 ERRM RAN1,RAN
16812 LOOP HRRZM2,HRRZM3^
16813 052727 367 06 0 00 052714 SOJG AC-1,HRRZM2 ;ITERATION COUNTER
16814 052730 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
16815 052731 321 06 0 00 052721 JUMPL AC-1,HRRZM3 ;LOOP ON ERROR SWITCH ^
16816
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 96
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0434
16817
16818
16819 ;TEST HRRZS. CHECK C(E) FOR CORRECT DATA, AND
16820 ;CORRECT STORING OF C(E) INTO AC.
16821 ;RAN TO RAN.
16822
16823
16824 000010 AC=10
16825 052732 HRRZS1: SETUP 200,0^
16826 000011 AC1=<AC+1>&17
16827 000012 AC2=<AC+2>&17
16828 000013 AC3=<AC+3>&17
16829 000014 AC4=<AC+4>&17
16830 000015 AC5=<AC+5>&17
16831 000006 RAN1=<AC-2>&17
16832 052732 201 07 0 00 052732 MOVEI AC-1,.
16833 052733 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
16834 052734 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
16835 052735 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
16836 052736 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
16837 052737 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
16838 052740 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
16839 052741 HRRZS2: RANDOM^
16840 052741 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
16841 052742 270 10 0 00 060657 ADD AC,[142536475076]
16842 052743 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
16843 052744 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
16844 052745 477 11 0 00 000006 HRRZS3: SETOB AC1,RAN1 ;SETC(AC) TO A-1
16845 052746 201 12 0 10 000000 MOVEI AC2,(AC) ;SIMULATE A HRRZS
16846 052747 553 11 0 00 000010 HRRZS AC1,AC ;DO HRRZS
16847 052750 312 11 0 00 000010 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER HRRZS
16848 052751 012 00 0 00 000006 EERRM ,RAN1
16849 052752 312 12 0 00 000010 CAME AC2,AC ;C(E) SHOULD=SIM. ANS
16850 052753 012 00 0 00 000006 EERRM ,RAN1
16851 LOOP HRRZS2,HRRZS3^
16852 052754 367 07 0 00 052741 SOJG AC-1,HRRZS2 ;ITERATION COUNTER
16853 052755 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
16854 052756 321 07 0 00 052745 JUMPL AC-1,HRRZS3 ;LOOP ON ERROR SWITCH ^
16855
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 97
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0435
16856
16857
16858 ;TEST HLLO. CHECK C(AC) FOR CORRECT DATA
16859 ;RAN TO RAN1
16860
16861
16862 000011 AC=11
16863 052757 HLLO1: SETUP 200,0^
16864 000012 AC1=<AC+1>&17
16865 000013 AC2=<AC+2>&17
16866 000014 AC3=<AC+3>&17
16867 000015 AC4=<AC+4>&17
16868 000016 AC5=<AC+5>&17
16869 000007 RAN1=<AC-2>&17
16870 052757 201 10 0 00 052757 MOVEI AC-1,.
16871 052760 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
16872 052761 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
16873 052762 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
16874 052763 201 10 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
16875 052764 240 10 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
16876 052765 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
16877 052766 HLLO2: RANDOM^
16878 052766 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
16879 052767 270 11 0 00 060657 ADD AC,[142536475076]
16880 052770 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
16881 052771 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
16882 052772 241 11 0 00 000011 HLLO3: ROT AC,11 ;C(AC)=SECOND RAN NUM
16883 052773 200 07 0 00 000011 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
16884 052774 200 12 0 00 061125 MOVE AC1,RAN ;SIMULATE
16885 052775 660 12 0 00 777777 TRO AC1,-1 ;A HLLO
16886 052776 520 11 0 00 061125 HLLO AC,RAN ;DO HLLO
16887 052777 312 11 0 00 000012 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
16888 053000 011 00 0 00 000007 EERR ,RAN1
16889 LOOP HLLO2,HLLO3^
16890 053001 367 10 0 00 052766 SOJG AC-1,HLLO2 ;ITERATION COUNTER
16891 053002 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
16892 053003 321 10 0 00 052772 JUMPL AC-1,HLLO3 ;LOOP ON ERROR SWITCH ^
16893
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 98
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0436
16894
16895
16896
16897
16898 ;TEST HLLOI CHECK C(AC) FOR CORRECT DATA
16899 ;RAN TO RAN1
16900
16901
16902 000004 AC=4
16903 053004 HLLOI1: SETUP 200,0^
16904 000005 AC1=<AC+1>&17
16905 000006 AC2=<AC+2>&17
16906 000007 AC3=<AC+3>&17
16907 000010 AC4=<AC+4>&17
16908 000011 AC5=<AC+5>&17
16909 000002 RAN1=<AC-2>&17
16910 053004 201 03 0 00 053004 MOVEI AC-1,.
16911 053005 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
16912 053006 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
16913 053007 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
16914 053010 201 03 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
16915 053011 240 03 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
16916 053012 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
16917 053013 HLLOI2: RANDOM^
16918 053013 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
16919 053014 270 04 0 00 060657 ADD AC,[142536475076]
16920 053015 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
16921 053016 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
16922 053017 200 06 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
16923 053020 241 04 0 00 000011 HLLOI3: ROT AC,11 ;C(AC)=SECOND RAN. NUM
16924 053021 200 02 0 00 000004 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
16925 053022 400 05 0 00 000000 SETZ AC1, ;SIMULATE
16926 053023 660 05 0 00 777777 TRO AC1,-1 ;A HLLOI
16927 053024 521 04 0 06 000000 HLLOI AC,(AC2) ;DO HLLOI.
16928 053025 312 04 0 00 000005 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
16929 053026 003 02 0 06 000000 ERRI RAN1,(AC2)
16930 LOOP HLLOI2,HLLOI3^
16931 053027 367 03 0 00 053013 SOJG AC-1,HLLOI2 ;ITERATION COUNTER
16932 053030 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
16933 053031 321 03 0 00 053020 JUMPL AC-1,HLLOI3 ;LOOP ON ERROR SWITCH ^
16934
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 99
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0437
16935
16936
16937 ;TEST HLLOM. CHECK C(E) FOR CORRECT DATA
16938 ;RAN TO RAO1
16939
16940
16941 000005 AC=5
16942 053032 HLLOM1: SETUP 200,0^
16943 000006 AC1=<AC+1>&17
16944 000007 AC2=<AC+2>&17
16945 000010 AC3=<AC+3>&17
16946 000011 AC4=<AC+4>&17
16947 000012 AC5=<AC+5>&17
16948 000003 RAN1=<AC-2>&17
16949 053032 201 04 0 00 053032 MOVEI AC-1,.
16950 053033 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
16951 053034 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
16952 053035 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
16953 053036 201 04 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
16954 053037 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
16955 053040 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
16956 053041 HLLOM2: RANDOM^
16957 053041 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
16958 053042 270 05 0 00 060657 ADD AC,[142536475076]
16959 053043 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
16960 053044 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
16961 053045 200 07 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
16962 053046 241 05 0 00 000011 HLLOM3: ROT AC,11 ;C(E) =SECOND RANDOM NUM.
16963 053047 200 03 0 00 000005 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR
16964 053050 200 06 0 00 061125 MOVE AC1,RAN ;SIMULATE
16965 053051 660 06 0 00 777777 TRO AC1,-1 ;A HLLOM
16966 053052 522 07 0 00 000005 HLLOM AC2,AC ;DO A HLLOM.
16967 053053 312 06 0 00 000005 CAME AC1,AC ;C(E) SHOULD=SIM. ANS
16968 053054 002 03 0 00 061125 ERRM RAN1,RAN
16969 LOOP HLLOM2,HLLOM3^
16970 053055 367 04 0 00 053041 SOJG AC-1,HLLOM2 ;ITERATION COUNTER
16971 053056 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
16972 053057 321 04 0 00 053046 JUMPL AC-1,HLLOM3 ;LOOP ON ERROR SWITCH ^
16973
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 100
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0438
16974
16975
16976 ;TEST HLLOS. CHECK C(E) FOR CORRECT DATA, AND
16977 ;CORRECT STORING OF C(E) INTO AC.
16978 ;RAN TO RAN
16979
16980
16981 000006 AC=6
16982 053060 HLLOS1: SETUP 200,0^
16983 000007 AC1=<AC+1>&17
16984 000010 AC2=<AC+2>&17
16985 000011 AC3=<AC+3>&17
16986 000012 AC4=<AC+4>&17
16987 000013 AC5=<AC+5>&17
16988 000004 RAN1=<AC-2>&17
16989 053060 201 05 0 00 053060 MOVEI AC-1,.
16990 053061 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
16991 053062 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
16992 053063 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
16993 053064 201 05 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
16994 053065 240 05 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
16995 053066 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
16996 053067 HLLOS2: RANDOM^
16997 053067 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
16998 053070 270 06 0 00 060657 ADD AC,[142536475076]
16999 053071 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
17000 053072 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
17001 053073 477 07 0 00 000004 HLLOS3: SETOB AC1,RAN1 ;SET C(AC) TO A -1
17002 053074 200 10 0 00 000006 MOVE AC2,AC ;SIMULATE
17003 053075 660 10 0 00 777777 TRO AC2,-1 ;A HLLOS
17004 053076 523 07 0 00 000006 HLLOS AC1,AC ;DO HLLOS
17005 053077 312 07 0 00 000006 CAME AC1,AC ;C(AC) SHOULD=C(AC) AFTER HLLOS
17006 053100 012 00 0 00 000004 EERRM ,RAN1
17007 053101 312 10 0 00 000006 CAME AC2,AC ;C(E) SHOULD=SIM ANS
17008 053102 012 00 0 00 000004 EERRM ,RAN1
17009 LOOP HLLOS2,HLLOS3^
17010 053103 367 05 0 00 053067 SOJG AC-1,HLLOS2 ;ITERATION COUNTER
17011 053104 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
17012 053105 321 05 0 00 053073 JUMPL AC-1,HLLOS3 ;LOOP ON ERROR SWITCH ^
17013
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 101
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0439
17014
17015
17016 ;TEST HRRO. CHECK C(AC) FOR CORRECT DATA
17017 ;RAN TO RAN1
17018
17019
17020 000007 AC=7
17021 053106 HRRO1: SETUP 200,0^
17022 000010 AC1=<AC+1>&17
17023 000011 AC2=<AC+2>&17
17024 000012 AC3=<AC+3>&17
17025 000013 AC4=<AC+4>&17
17026 000014 AC5=<AC+5>&17
17027 000005 RAN1=<AC-2>&17
17028 053106 201 06 0 00 053106 MOVEI AC-1,.
17029 053107 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
17030 053110 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
17031 053111 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
17032 053112 201 06 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
17033 053113 240 06 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
17034 053114 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
17035 053115 HRRO2: RANDOM^
17036 053115 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
17037 053116 270 07 0 00 060657 ADD AC,[142536475076]
17038 053117 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
17039 053120 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
17040 053121 241 07 0 00 000011 HRRO3: ROT AC,11 ;C(AC)=SECOND RAN NUM
17041 053122 200 05 0 00 000007 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
17042 053123 200 10 0 00 061125 MOVE AC1,RAN ;SIMULATE
17043 053124 661 10 0 00 777777 TLO AC1,-1 ;A HRRO
17044 053125 560 07 0 00 061125 HRRO AC,RAN ;DO HRRO
17045 053126 312 07 0 00 000010 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
17046 053127 011 00 0 00 000005 EERR ,RAN1
17047 LOOP HRRO2,HRRO3^
17048 053130 367 06 0 00 053115 SOJG AC-1,HRRO2 ;ITERATION COUNTER
17049 053131 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
17050 053132 321 06 0 00 053121 JUMPL AC-1,HRRO3 ;LOOP ON ERROR SWITCH ^
17051
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 102
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0440
17052
17053
17054 ;TEST HRROI. CHECK C(AC) FOR CORRECT DATA
17055 ;RAN TO RAN1
17056
17057
17058 000010 AC=10
17059 053133 HRROI1: SETUP 200,0^
17060 000011 AC1=<AC+1>&17
17061 000012 AC2=<AC+2>&17
17062 000013 AC3=<AC+3>&17
17063 000014 AC4=<AC+4>&17
17064 000015 AC5=<AC+5>&17
17065 000006 RAN1=<AC-2>&17
17066 053133 201 07 0 00 053133 MOVEI AC-1,.
17067 053134 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
17068 053135 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
17069 053136 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
17070 053137 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
17071 053140 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
17072 053141 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
17073 053142 HRROI2: RANDOM^
17074 053142 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
17075 053143 270 10 0 00 060657 ADD AC,[142536475076]
17076 053144 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
17077 053145 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
17078 053146 200 13 0 00 061125 MOVE AC3,RAN ;SAVE RAN IN AN AC.
17079 053147 241 10 0 00 000011 HRROI3: ROT AC,11 ;C(AC)=SECOND RAN. NUM
17080 053150 200 06 0 00 000010 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
17081 053151 200 11 0 00 061125 MOVE AC1,RAN ;SIMULATE
17082 053152 661 11 0 00 777777 TLO AC1,-1 ;A HRROI
17083 053153 561 10 0 13 000000 HRROI AC,(AC3) ;DO HRROI.
17084 053154 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
17085 053155 003 06 0 13 000000 ERRI RAN1,(AC3)
17086 LOOP HRROI2,HRROI3^
17087 053156 367 07 0 00 053142 SOJG AC-1,HRROI2 ;ITERATION COUNTER
17088 053157 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
17089 053160 321 07 0 00 053147 JUMPL AC-1,HRROI3 ;LOOP ON ERROR SWITCH ^
17090
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 103
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0441
17091
17092
17093 ;TEST HRROM. CHECK C(E) FOR CORRECT DATA.
17094 ;RAN TO RAN1
17095
17096
17097 000010 AC=10
17098 053161 HRROM1: SETUP 200,0^
17099 000011 AC1=<AC+1>&17
17100 000012 AC2=<AC+2>&17
17101 000013 AC3=<AC+3>&17
17102 000014 AC4=<AC+4>&17
17103 000015 AC5=<AC+5>&17
17104 000006 RAN1=<AC-2>&17
17105 053161 201 07 0 00 053161 MOVEI AC-1,.
17106 053162 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
17107 053163 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
17108 053164 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
17109 053165 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
17110 053166 240 07 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
17111 053167 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
17112 053170 HRROM2: RANDOM^
17113 053170 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
17114 053171 270 10 0 00 060657 ADD AC,[142536475076]
17115 053172 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
17116 053173 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
17117 053174 200 12 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
17118 053175 241 10 0 00 000011 HRROM3: ROT AC,11 ;C(E)=SECOND RAN NUM
17119 053176 200 06 0 00 000010 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR
17120 053177 200 11 0 00 061125 MOVE AC1,RAN ;SIMULATE
17121 053200 661 11 0 00 777777 TLO AC1,-1 ;A HRROM
17122 053201 562 12 0 00 000010 HRROM AC2,AC ;DO HRROM.
17123 053202 312 11 0 00 000010 CAME AC1,AC ;C(E) SHOULD=SIM. ANS
17124 053203 002 06 0 00 061125 ERRM RAN1,RAN
17125 LOOP HRROM2,HRROM3^
17126 053204 367 07 0 00 053170 SOJG AC-1,HRROM2 ;ITERATION COUNTER
17127 053205 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
17128 053206 321 07 0 00 053175 JUMPL AC-1,HRROM3 ;LOOP ON ERROR SWITCH ^
17129
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 104
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0442
17130
17131
17132 ;TEST HRROS. CHECK C(E) FOR CORRECT DATA, AND
17133 ;CORRECT STORING OF C(E) INTO AC.
17134 ;RAN TO RAN
17135
17136
17137 000002 AC=2
17138 053207 HRROS1: SETUP 200,0^
17139 000003 AC1=<AC+1>&17
17140 000004 AC2=<AC+2>&17
17141 000005 AC3=<AC+3>&17
17142 000006 AC4=<AC+4>&17
17143 000007 AC5=<AC+5>&17
17144 000000 RAN1=<AC-2>&17
17145 053207 201 01 0 00 053207 MOVEI AC-1,.
17146 053210 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
17147 053211 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
17148 053212 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
17149 053213 201 01 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
17150 053214 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
17151 053215 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
17152 053216 HRROS2: RANDOM^
17153 053216 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
17154 053217 270 02 0 00 060657 ADD AC,[142536475076]
17155 053220 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
17156 053221 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
17157 053222 477 03 0 00 000000 HRROS3: SETOB AC1,RAN1 ;SET C(AC) TO A -1
17158 053223 200 04 0 00 000002 MOVE AC2,AC ;SIMULATE
17159 053224 661 04 0 00 777777 TLO AC2,-1 ;A HRROS
17160 053225 563 03 0 00 000002 HRROS AC1,AC ;DO HRROS
17161 053226 312 03 0 00 000002 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER HRROS
17162 053227 012 00 0 00 000000 EERRM ,RAN1
17163 053230 312 04 0 00 000002 CAME AC2,AC ;C(E) SHOULD=SIM. ANS
17164 053231 012 00 0 00 000000 EERRM ,RAN1
17165 LOOP HRROS2,HRROS3^
17166 053232 367 01 0 00 053216 SOJG AC-1,HRROS2 ;ITERATION COUNTER
17167 053233 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
17168 053234 321 01 0 00 053222 JUMPL AC-1,HRROS3 ;LOOP ON ERROR SWITCH ^
17169
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 105
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0443
17170
17171
17172 ;TEST HRLO. CHECK C(AC) FOR CORRECT DATA
17173 ;RAN TO RAN1
17174
17175
17176 000003 AC=3
17177 053235 HRLO1: SETUP 200,1^
17178 000004 AC1=<AC+1>&17
17179 000005 AC2=<AC+2>&17
17180 000006 AC3=<AC+3>&17
17181 000007 AC4=<AC+4>&17
17182 000010 AC5=<AC+5>&17
17183 000001 RAN1=<AC-2>&17
17184 053235 201 02 0 00 053235 MOVEI AC-1,.
17185 053236 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
17186 053237 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
17187 053240 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
17188 053241 201 02 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
17189 053242 240 02 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
17190 053243 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
17191 053244 HRLO2: RANDOM^
17192 053244 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
17193 053245 270 03 0 00 060657 ADD AC,[142536475076]
17194 053246 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
17195 053247 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
17196 053250 200 05 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
17197 053251 241 03 0 00 000011 HRLO3: ROT AC,11 ;C(AC)=SECOND RAN NUM
17198 053252 200 01 0 00 000003 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
17199 053253 205 04 0 05 000000 MOVSI AC1,(AC2) ;SIMULATE
17200 053254 660 04 0 00 777777 TRO AC1,-1 ;A HRLO
17201 053255 524 03 0 00 061125 HRLO AC,RAN ;DO HRLO
17202 053256 312 03 0 00 000004 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
17203 053257 001 05 0 00 000001 ERR AC2,RAN1
17204 LOOP HRLO2,HRLO3^
17205 053260 367 02 0 00 053244 SOJG AC-1,HRLO2 ;ITERATION COUNTER
17206 053261 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
17207 053262 321 02 0 00 053251 JUMPL AC-1,HRLO3 ;LOOP ON ERROR SWITCH ^
17208
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 106
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0444
17209
17210
17211 ;TEST HRLOI. CHECK C(AC) FOR CORRECT DATA
17212 ;RAN TO RAN1
17213
17214
17215 000002 AC=2
17216 053263 HRLOI1: SETUP 200,1^
17217 000003 AC1=<AC+1>&17
17218 000004 AC2=<AC+2>&17
17219 000005 AC3=<AC+3>&17
17220 000006 AC4=<AC+4>&17
17221 000007 AC5=<AC+5>&17
17222 000000 RAN1=<AC-2>&17
17223 053263 201 01 0 00 053263 MOVEI AC-1,.
17224 053264 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
17225 053265 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
17226 053266 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
17227 053267 201 01 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
17228 053270 240 01 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
17229 053271 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
17230 053272 HRLOI2: RANDOM^
17231 053272 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
17232 053273 270 02 0 00 060657 ADD AC,[142536475076]
17233 053274 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
17234 053275 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
17235 053276 200 04 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
17236 053277 241 02 0 00 000011 HRLOI3: ROT AC,11 ;C(AC)=SECOND RANDOM NUM
17237 053300 200 00 0 00 000002 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
17238 053301 205 03 0 04 000000 MOVSI AC1,(AC2) ;SIMULATE
17239 053302 660 03 0 00 777777 TRO AC1,-1 ;A HRLOI
17240 053303 525 02 0 04 000000 HRLOI AC,(AC2) ;DO HRLOI.
17241 053304 312 02 0 00 000003 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
17242 053305 003 00 0 04 000000 ERRI RAN1,(AC2)
17243 LOOP HRLOI2,HRLOI3^
17244 053306 367 01 0 00 053272 SOJG AC-1,HRLOI2 ;ITERATION COUNTER
17245 053307 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
17246 053310 321 01 0 00 053277 JUMPL AC-1,HRLOI3 ;LOOP ON ERROR SWITCH ^
17247
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 107
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0445
17248
17249
17250 ;TEST HRLOM. CHECK C(E) FOR CORRECT DATA
17251 ;RAN TO RAN1
17252
17253
17254 000003 AC=3
17255 053311 HRLOM1: SETUP 200,1^
17256 000004 AC1=<AC+1>&17
17257 000005 AC2=<AC+2>&17
17258 000006 AC3=<AC+3>&17
17259 000007 AC4=<AC+4>&17
17260 000010 AC5=<AC+5>&17
17261 000001 RAN1=<AC-2>&17
17262 053311 201 02 0 00 053311 MOVEI AC-1,.
17263 053312 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
17264 053313 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
17265 053314 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
17266 053315 201 02 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
17267 053316 240 02 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
17268 053317 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
17269 053320 HRLOM2: RANDOM^
17270 053320 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
17271 053321 270 03 0 00 060657 ADD AC,[142536475076]
17272 053322 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
17273 053323 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
17274 053324 200 05 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
17275 053325 241 03 0 00 000011 HRLOM3: ROT AC,11 ;C(E)=SECOND RAN. NUM
17276 053326 200 01 0 00 000003 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR
17277 053327 205 04 0 05 000000 MOVSI AC1,(AC2) ;SIMULATE
17278 053330 660 04 0 00 777777 TRO AC1,-1 ;A HRLOM
17279 053331 526 05 0 00 000003 HRLOM AC2,AC ;DO HRLOM.
17280 053332 312 04 0 00 000003 CAME AC1,AC ;C(E) SHOULD=SIM. ANS
17281 053333 002 01 0 00 061125 ERRM RAN1,RAN
17282 LOOP HRLOM2,HRLOM3^
17283 053334 367 02 0 00 053320 SOJG AC-1,HRLOM2 ;ITERATION COUNTER
17284 053335 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
17285 053336 321 02 0 00 053325 JUMPL AC-1,HRLOM3 ;LOOP ON ERROR SWITCH ^
17286
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 108
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0446
17287
17288
17289 ;TEST HRLOS. CHECK C(E) FOR CORRECT DATA AND IF
17290 ;C(AC) IS BEING LOADED WITH C(E) FOR RAN TO RAN CONDITION.
17291
17292
17293 000004 AC=4
17294 053337 HRLOS1: SETUP 200,1^
17295 000005 AC1=<AC+1>&17
17296 000006 AC2=<AC+2>&17
17297 000007 AC3=<AC+3>&17
17298 000010 AC4=<AC+4>&17
17299 000011 AC5=<AC+5>&17
17300 000002 RAN1=<AC-2>&17
17301 053337 201 03 0 00 053337 MOVEI AC-1,.
17302 053340 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
17303 053341 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
17304 053342 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
17305 053343 201 03 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
17306 053344 240 03 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
17307 053345 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
17308 053346 HRLOS2: RANDOM^
17309 053346 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
17310 053347 270 04 0 00 060657 ADD AC,[142536475076]
17311 053350 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
17312 053351 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
17313 053352 477 05 0 00 000002 HRLOS3: SETOB AC1,RAN1 ;SET C(AC) TO A -1
17314 053353 205 06 0 04 000000 MOVSI AC2,(AC) ;SIMULATE
17315 053354 660 06 0 00 777777 TRO AC2,-1 ;A HRLOS
17316 053355 527 05 0 00 000004 HRLOS AC1,AC ;DO HRLOS
17317 053356 312 05 0 00 000004 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER HRLOS
17318 053357 012 00 0 00 000002 EERRM ,RAN1
17319 053360 312 06 0 00 000004 CAME AC2,AC ;C(E) SHOULD=SIM. ANS
17320 053361 012 00 0 00 000002 EERRM ,RAN1
17321 LOOP HRLOS2,HRLOS3^
17322 053362 367 03 0 00 053346 SOJG AC-1,HRLOS2 ;ITERATION COUNTER
17323 053363 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
17324 053364 321 03 0 00 053352 JUMPL AC-1,HRLOS3 ;LOOP ON ERROR SWITCH ^
17325
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 109
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0447
17326
17327
17328 ;TEST HLLE. CHECK C(AC) FOR CORRECT DATA
17329 ;RAN TO RAN1.
17330
17331
17332 000005 AC=5
17333 053365 HLLE1: SETUP 200,2^
17334 000006 AC1=<AC+1>&17
17335 000007 AC2=<AC+2>&17
17336 000010 AC3=<AC+3>&17
17337 000011 AC4=<AC+4>&17
17338 000012 AC5=<AC+5>&17
17339 000003 RAN1=<AC-2>&17
17340 053365 201 04 0 00 053365 MOVEI AC-1,.
17341 053366 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
17342 053367 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
17343 053370 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
17344 053371 201 04 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
17345 053372 240 04 1 00 030660 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
17346 053373 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
17347 053374 HLLE2: RANDOM^
17348 053374 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
17349 053375 270 05 0 00 060657 ADD AC,[142536475076]
17350 053376 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
17351 053377 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
17352 053400 200 07 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
17353 053401 241 05 0 00 000011 HLLE3: ROT AC,11 ;C(AC)=SECOND RAN. NUM
17354 053402 200 03 0 00 000005 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
17355 053403 200 06 0 00 061125 MOVE AC1,RAN ;SIMULATE
17356 053404 620 06 0 00 777777 TRZ AC1,-1 ;A
17357 053405 603 07 0 00 400000 TLNE AC2,400000 ;HLLE
17358 053406 660 06 0 00 777777 TRO AC1,-1 ;INST
17359 053407 530 05 0 00 061125 HLLE AC,RAN ;DO HLLE
17360 053410 312 05 0 00 000006 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
17361 053411 001 07 0 00 000003 ERR AC2,RAN1
17362 LOOP HLLE2,HLLE3^
17363 053412 367 04 0 00 053374 SOJG AC-1,HLLE2 ;ITERATION COUNTER
17364 053413 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
17365 053414 321 04 0 00 053401 JUMPL AC-1,HLLE3 ;LOOP ON ERROR SWITCH ^
17366
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 110
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0448
17367
17368
17369 ;TEST HLLEI. CHECK C(AC) FOR 0
17370 ;RAN TO RAN1
17371
17372
17373 000006 AC=6
17374 053415 HLLEI1: SETUP 200,2^
17375 000007 AC1=<AC+1>&17
17376 000010 AC2=<AC+2>&17
17377 000011 AC3=<AC+3>&17
17378 000012 AC4=<AC+4>&17
17379 000013 AC5=<AC+5>&17
17380 000004 RAN1=<AC-2>&17
17381 053415 201 05 0 00 053415 MOVEI AC-1,.
17382 053416 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
17383 053417 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
17384 053420 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
17385 053421 201 05 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
17386 053422 240 05 1 00 030660 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
17387 053423 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
17388 053424 HLLEI2: RANDOM^
17389 053424 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
17390 053425 270 06 0 00 060657 ADD AC,[142536475076]
17391 053426 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
17392 053427 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
17393 053430 200 07 0 00 061125 MOVE AC1,RAN ;SAVE RAN IN AN AC.
17394 053431 241 06 0 00 000011 HLLEI3: ROT AC,11 ;C(AC)=SECOND RAN NUM
17395 053432 200 04 0 00 000006 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
17396 053433 531 06 0 07 000000 HLLEI AC,(AC1) ;DO HLLEI.
17397 053434 312 06 0 00 060660 CAME AC,[0] ;C(AC) SHOULD=0
17398 053435 003 04 0 07 000000 ERRI RAN1,(AC1)
17399 LOOP HLLEI2,HLLEI3^
17400 053436 367 05 0 00 053424 SOJG AC-1,HLLEI2 ;ITERATION COUNTER
17401 053437 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
17402 053440 321 05 0 00 053431 JUMPL AC-1,HLLEI3 ;LOOP ON ERROR SWITCH ^
17403
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 111
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0449
17404
17405
17406 ;TEST HLLEM. CHECK C(E) FOR CORRECT DATA
17407 ;RAN TO RAN1.
17408
17409
17410 000007 AC=7
17411 053441 HLLEM1: SETUP 200,2^
17412 000010 AC1=<AC+1>&17
17413 000011 AC2=<AC+2>&17
17414 000012 AC3=<AC+3>&17
17415 000013 AC4=<AC+4>&17
17416 000014 AC5=<AC+5>&17
17417 000005 RAN1=<AC-2>&17
17418 053441 201 06 0 00 053441 MOVEI AC-1,.
17419 053442 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
17420 053443 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
17421 053444 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
17422 053445 201 06 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
17423 053446 240 06 1 00 030660 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
17424 053447 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
17425 053450 HLLEM2: RANDOM^
17426 053450 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
17427 053451 270 07 0 00 060657 ADD AC,[142536475076]
17428 053452 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
17429 053453 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
17430 053454 200 11 0 00 061125 MOVE AC2,RAN ;SAVE AC IN AN AC.
17431 053455 241 07 0 00 000011 HLLEM3: ROT AC,11 ;C(E)=SECOND RANDOM NUMBER
17432 053456 200 05 0 00 000007 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR
17433 053457 200 10 0 00 061125 MOVE AC1,RAN ;SIMULATE
17434 053460 620 10 0 00 777777 TRZ AC1,-1 ;A
17435 053461 603 11 0 00 400000 TLNE AC2,400000 ;HLLEM
17436 053462 660 10 0 00 777777 TRO AC1,-1 ;INST
17437 053463 532 11 0 00 000007 HLLEM AC2,AC ;DO HLLEM.
17438 053464 312 10 0 00 000007 CAME AC1,AC ;C(E) SHOULD=SIM ANS
17439 053465 002 05 0 00 061125 ERRM RAN1,RAN
17440 LOOP HLLEM2,HLLEM3^
17441 053466 367 06 0 00 053450 SOJG AC-1,HLLEM2 ;ITERATION COUNTER
17442 053467 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
17443 053470 321 06 0 00 053455 JUMPL AC-1,HLLEM3 ;LOOP ON ERROR SWITCH ^
17444
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 112
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0450
17445
17446
17447 ;TEST HLLES. CHECK C(E) FOR CORRECT DATA AND
17448 ;PROPER STORING THE C(E) INTO C(AC) FOR RAN TO RAN CONDITION
17449
17450
17451 000010 AC=10
17452 053471 HLLES1: SETUP 200,2^
17453 000011 AC1=<AC+1>&17
17454 000012 AC2=<AC+2>&17
17455 000013 AC3=<AC+3>&17
17456 000014 AC4=<AC+4>&17
17457 000015 AC5=<AC+5>&17
17458 000006 RAN1=<AC-2>&17
17459 053471 201 07 0 00 053471 MOVEI AC-1,.
17460 053472 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
17461 053473 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
17462 053474 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
17463 053475 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
17464 053476 240 07 1 00 030660 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
17465 053477 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
17466 053500 HLLES2: RANDOM^
17467 053500 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
17468 053501 270 10 0 00 060657 ADD AC,[142536475076]
17469 053502 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
17470 053503 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
17471 053504 477 11 0 00 000006 HLLES3: SETOB AC1,RAN1 ;SET C(AC)=-1
17472 053505 200 12 0 00 000010 MOVE AC2,AC ;SIMULATE
17473 053506 620 12 0 00 777777 TRZ AC2,-1 ;A
17474 053507 603 10 0 00 400000 TLNE AC,400000 ;HLLES
17475 053510 660 12 0 00 777777 TRO AC2,-1 ;INST
17476 053511 533 11 0 00 000010 HLLES AC1,AC ;DO HLLES
17477 053512 312 11 0 00 000010 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER HLLES
17478 053513 012 00 0 00 000006 EERRM ,RAN1
17479 053514 312 12 0 00 000010 CAME AC2,AC ;C(E) SHOULD= SIM. ANS
17480 053515 012 00 0 00 000006 EERRM ,RAN1
17481 LOOP HLLES2,HLLES3^
17482 053516 367 07 0 00 053500 SOJG AC-1,HLLES2 ;ITERATION COUNTER
17483 053517 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
17484 053520 321 07 0 00 053504 JUMPL AC-1,HLLES3 ;LOOP ON ERROR SWITCH ^
17485
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 113
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0451
17486
17487
17488 ;TEST HRRE. CHECK C(AC) FOR CORRECT DATA
17489 ;RAN TO RAN1.
17490
17491
17492 000011 AC=11
17493 053521 HRRE1: SETUP 200,2^
17494 000012 AC1=<AC+1>&17
17495 000013 AC2=<AC+2>&17
17496 000014 AC3=<AC+3>&17
17497 000015 AC4=<AC+4>&17
17498 000016 AC5=<AC+5>&17
17499 000007 RAN1=<AC-2>&17
17500 053521 201 10 0 00 053521 MOVEI AC-1,.
17501 053522 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
17502 053523 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
17503 053524 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
17504 053525 201 10 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
17505 053526 240 10 1 00 030660 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
17506 053527 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
17507 053530 HRRE2: RANDOM^
17508 053530 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
17509 053531 270 11 0 00 060657 ADD AC,[142536475076]
17510 053532 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
17511 053533 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
17512 053534 200 13 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
17513 053535 241 11 0 00 000011 HRRE3: ROT AC,11 ;C(AC)=SECOND RAN NUM
17514 053536 200 07 0 00 000011 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
17515 053537 200 12 0 00 061125 MOVE AC1,RAN ;SIMULATE
17516 053540 621 12 0 00 777777 TLZ AC1,-1 ;A
17517 053541 602 13 0 00 400000 TRNE AC2,400000 ;HRRE
17518 053542 661 12 0 00 777777 TLO AC1,-1 ;INST
17519 053543 570 11 0 00 061125 HRRE AC,RAN ;DO HRRE
17520 053544 312 11 0 00 000012 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
17521 053545 001 13 0 00 000007 ERR AC2,RAN1
17522 LOOP HRRE2,HRRE3^
17523 053546 367 10 0 00 053530 SOJG AC-1,HRRE2 ;ITERATION COUNTER
17524 053547 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
17525 053550 321 10 0 00 053535 JUMPL AC-1,HRRE3 ;LOOP ON ERROR SWITCH ^
17526
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 114
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0452
17527
17528
17529 ;TEST HRREI. CHECK C(AC) FOR CORRECT DATA
17530 ;RAN TO RAN1
17531
17532
17533 000004 AC=4
17534 053551 HRREI1: SETUP 200,2^
17535 000005 AC1=<AC+1>&17
17536 000006 AC2=<AC+2>&17
17537 000007 AC3=<AC+3>&17
17538 000010 AC4=<AC+4>&17
17539 000011 AC5=<AC+5>&17
17540 000002 RAN1=<AC-2>&17
17541 053551 201 03 0 00 053551 MOVEI AC-1,.
17542 053552 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
17543 053553 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
17544 053554 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
17545 053555 201 03 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
17546 053556 240 03 1 00 030660 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
17547 053557 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
17548 053560 HRREI2: RANDOM^
17549 053560 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
17550 053561 270 04 0 00 060657 ADD AC,[142536475076]
17551 053562 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
17552 053563 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
17553 053564 200 06 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
17554 053565 241 04 0 00 000011 HRREI3: ROT AC,11 ;C(AC)=SECOND RANDOM NUM
17555 053566 200 02 0 00 000004 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
17556 053567 200 05 0 00 061125 MOVE AC1,RAN ;SIMULATE
17557 053570 621 05 0 00 777777 TLZ AC1,-1 ;A
17558 053571 602 06 0 00 400000 TRNE AC2,400000 ;HRREI
17559 053572 661 05 0 00 777777 TLO AC1,-1 ;INST
17560 053573 571 04 0 06 000000 HRREI AC,(AC2) ;DO HRREI.
17561 053574 312 04 0 00 000005 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
17562 053575 003 02 0 06 000000 ERRI RAN1,(AC2)
17563 LOOP HRREI2,HRREI3^
17564 053576 367 03 0 00 053560 SOJG AC-1,HRREI2 ;ITERATION COUNTER
17565 053577 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
17566 053600 321 03 0 00 053565 JUMPL AC-1,HRREI3 ;LOOP ON ERROR SWITCH ^
17567
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 115
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0453
17568
17569
17570 ;TEST HRREM CHECK C(E) FOR CORRECT DATA
17571 ;RAN TO RAN1
17572
17573
17574 000005 AC=5
17575 053601 HRREM1: SETUP 200,2^
17576 000006 AC1=<AC+1>&17
17577 000007 AC2=<AC+2>&17
17578 000010 AC3=<AC+3>&17
17579 000011 AC4=<AC+4>&17
17580 000012 AC5=<AC+5>&17
17581 000003 RAN1=<AC-2>&17
17582 053601 201 04 0 00 053601 MOVEI AC-1,.
17583 053602 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
17584 053603 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
17585 053604 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
17586 053605 201 04 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
17587 053606 240 04 1 00 030660 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
17588 053607 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
17589 053610 HRREM2: RANDOM^
17590 053610 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
17591 053611 270 05 0 00 060657 ADD AC,[142536475076]
17592 053612 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
17593 053613 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
17594 053614 200 07 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
17595 053615 241 05 0 00 000011 HRREM3: ROT AC,11 ;C(E)=SECOND RAN NUMBER
17596 053616 200 03 0 00 000005 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR
17597 053617 200 06 0 00 061125 MOVE AC1,RAN ;SIMULATE
17598 053620 621 06 0 00 777777 TLZ AC1,-1 ;A
17599 053621 602 07 0 00 400000 TRNE AC2,400000 ;HRREM
17600 053622 661 06 0 00 777777 TLO AC1,-1 ;INST
17601 053623 572 07 0 00 000005 HRREM AC2,AC ;DO HRREM.
17602 053624 312 06 0 00 000005 CAME AC1,AC ;C(E) SHOULD=SIM. ANS
17603 053625 002 03 0 00 061125 ERRM RAN1,RAN
17604 LOOP HRREM2,HRREM3^
17605 053626 367 04 0 00 053610 SOJG AC-1,HRREM2 ;ITERATION COUNTER
17606 053627 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
17607 053630 321 04 0 00 053615 JUMPL AC-1,HRREM3 ;LOOP ON ERROR SWITCH ^
17608
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 116
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0454
17609
17610
17611 ;TEST HRRES. CHECK C(E) FOR CORRECT DATA AND
17612 ;PROPER STORING OF C(E) INTO AC FOR RAN TO RAN CONDITION
17613
17614
17615 000006 AC=6
17616 053631 HRRES1: SETUP 200,2^
17617 000007 AC1=<AC+1>&17
17618 000010 AC2=<AC+2>&17
17619 000011 AC3=<AC+3>&17
17620 000012 AC4=<AC+4>&17
17621 000013 AC5=<AC+5>&17
17622 000004 RAN1=<AC-2>&17
17623 053631 201 05 0 00 053631 MOVEI AC-1,.
17624 053632 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
17625 053633 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
17626 053634 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
17627 053635 201 05 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
17628 053636 240 05 1 00 030660 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
17629 053637 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
17630 053640 HRRES2: RANDOM^
17631 053640 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
17632 053641 270 06 0 00 060657 ADD AC,[142536475076]
17633 053642 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
17634 053643 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
17635 053644 477 07 0 00 000004 HRRES3: SETOB AC1,RAN1 ;SET C(AC) TO -1
17636 053645 200 10 0 00 000006 MOVE AC2,AC ;SIMULATE
17637 053646 621 10 0 00 777777 TLZ AC2,-1 ;A
17638 053647 602 06 0 00 400000 TRNE AC,400000 ;HRRES
17639 053650 661 10 0 00 777777 TLO AC2,-1 ;INST
17640 053651 573 07 0 00 000006 HRRES AC1,AC ;DO HRRES
17641 053652 312 07 0 00 000006 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER HRRES
17642 053653 012 00 0 00 000004 EERRM ,RAN1
17643 053654 312 10 0 00 000006 CAME AC2,AC ;C(E) SHOULD = SIM. ANS.
17644 053655 012 00 0 00 000004 EERRM ,RAN1
17645 LOOP HRRES2,HRRES3^
17646 053656 367 05 0 00 053640 SOJG AC-1,HRRES2 ;ITERATION COUNTER
17647 053657 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
17648 053660 321 05 0 00 053644 JUMPL AC-1,HRRES3 ;LOOP ON ERROR SWITCH ^
17649
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 117
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0455
17650
17651
17652 ;TEST HRLZ. CHECK C(AC) FOR CORRECT DATA
17653 ;RAN TO RAN1.
17654
17655
17656 000007 AC=7
17657 053661 HRLZ1: SETUP 200,1^
17658 000010 AC1=<AC+1>&17
17659 000011 AC2=<AC+2>&17
17660 000012 AC3=<AC+3>&17
17661 000013 AC4=<AC+4>&17
17662 000014 AC5=<AC+5>&17
17663 000005 RAN1=<AC-2>&17
17664 053661 201 06 0 00 053661 MOVEI AC-1,.
17665 053662 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
17666 053663 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
17667 053664 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
17668 053665 201 06 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
17669 053666 240 06 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
17670 053667 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
17671 053670 HRLZ2: RANDOM^
17672 053670 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
17673 053671 270 07 0 00 060657 ADD AC,[142536475076]
17674 053672 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
17675 053673 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
17676 053674 200 11 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
17677 053675 241 07 0 00 000011 HRLZ3: ROT AC,11 ;C(AC)=SECOND RAN. NUM
17678 053676 200 05 0 00 000007 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
17679 053677 205 10 0 11 000000 MOVSI AC1,(AC2) ;SIMULATE A HRLZ INST.
17680 053700 514 07 0 00 061125 HRLZ AC,RAN ;DO HRLZ
17681 053701 312 07 0 00 000010 CAME AC,AC1 ;C(E) SHOULD=SIM.ANS
17682 053702 001 11 0 00 000005 ERR AC2,RAN1
17683 LOOP HRLZ2,HRLZ3^
17684 053703 367 06 0 00 053670 SOJG AC-1,HRLZ2 ;ITERATION COUNTER
17685 053704 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
17686 053705 321 06 0 00 053675 JUMPL AC-1,HRLZ3 ;LOOP ON ERROR SWITCH ^
17687
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 118
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0456
17688
17689
17690 ;TEST HRLZI. CHECK C(AC) FOR CORRECT DATA
17691 ;RAN TO RAN1
17692
17693
17694 000010 AC=10
17695 053706 HRLZI1: SETUP 200,1^
17696 000011 AC1=<AC+1>&17
17697 000012 AC2=<AC+2>&17
17698 000013 AC3=<AC+3>&17
17699 000014 AC4=<AC+4>&17
17700 000015 AC5=<AC+5>&17
17701 000006 RAN1=<AC-2>&17
17702 053706 201 07 0 00 053706 MOVEI AC-1,.
17703 053707 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
17704 053710 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
17705 053711 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
17706 053712 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
17707 053713 240 07 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
17708 053714 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
17709 053715 HRLZI2: RANDOM^
17710 053715 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
17711 053716 270 10 0 00 060657 ADD AC,[142536475076]
17712 053717 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
17713 053720 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
17714 053721 200 13 0 00 061125 MOVE AC3,RAN ;SAVE RAN IN AN AC.
17715 053722 241 10 0 00 000011 HRLZI3: ROT AC,11 ;C(AC)=SECOND RAN. NUM
17716 053723 200 06 0 00 000010 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
17717 053724 205 11 0 13 000000 MOVSI AC1,(AC3) ;SIMULATE A HRLZI INST.
17718 053725 515 10 0 13 000000 HRLZI AC,(AC3) ;DO HRLZI.
17719 053726 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
17720 053727 003 06 0 13 000000 ERRI RAN1,(AC3)
17721 LOOP HRLZI2,HRLZI3^
17722 053730 367 07 0 00 053715 SOJG AC-1,HRLZI2 ;ITERATION COUNTER
17723 053731 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
17724 053732 321 07 0 00 053722 JUMPL AC-1,HRLZI3 ;LOOP ON ERROR SWITCH ^
17725
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 119
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0457
17726
17727
17728 ;TEST HRLZM. CHECK C(E) FOR CORRECT DATA.
17729 ;RAN TO RAN1
17730
17731
17732 000010 AC=10
17733 053733 HRLZM1: SETUP 200,1^
17734 000011 AC1=<AC+1>&17
17735 000012 AC2=<AC+2>&17
17736 000013 AC3=<AC+3>&17
17737 000014 AC4=<AC+4>&17
17738 000015 AC5=<AC+5>&17
17739 000006 RAN1=<AC-2>&17
17740 053733 201 07 0 00 053733 MOVEI AC-1,.
17741 053734 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
17742 053735 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
17743 053736 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
17744 053737 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
17745 053740 240 07 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
17746 053741 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
17747 053742 HRLZM2: RANDOM^
17748 053742 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
17749 053743 270 10 0 00 060657 ADD AC,[142536475076]
17750 053744 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
17751 053745 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
17752 053746 200 12 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
17753 053747 241 10 0 00 000011 HRLZM3: ROT AC,11 ;C(E)=SECOND RAN. NUM
17754 053750 200 06 0 00 000010 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR
17755 053751 205 11 0 12 000000 MOVSI AC1,(AC2) ;SIMULATE A HRLZM INST.
17756 053752 516 12 0 00 000010 HRLZM AC2,AC ;DO HRLZM.
17757 053753 312 11 0 00 000010 CAME AC1,AC ;C(E) SHOULD=SIM. ANS.
17758 053754 002 06 0 00 061125 ERRM RAN1,RAN
17759 LOOP HRLZM2,HRLZM3^
17760 053755 367 07 0 00 053742 SOJG AC-1,HRLZM2 ;ITERATION COUNTER
17761 053756 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
17762 053757 321 07 0 00 053747 JUMPL AC-1,HRLZM3 ;LOOP ON ERROR SWITCH ^
17763
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 120
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0458
17764
17765
17766 ;TEST HRLZS. CHECK C(E) FOR CORRECT DATA AND
17767 ;PROPER STORING OF C(E) INTO AC FOR RAN TO RAN CONDITION
17768
17769
17770 000002 AC=2
17771 053760 HRLZS1: SETUP 200,1^
17772 000003 AC1=<AC+1>&17
17773 000004 AC2=<AC+2>&17
17774 000005 AC3=<AC+3>&17
17775 000006 AC4=<AC+4>&17
17776 000007 AC5=<AC+5>&17
17777 000000 RAN1=<AC-2>&17
17778 053760 201 01 0 00 053760 MOVEI AC-1,.
17779 053761 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
17780 053762 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
17781 053763 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
17782 053764 201 01 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
17783 053765 240 01 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
17784 053766 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
17785 053767 HRLZS2: RANDOM^
17786 053767 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
17787 053770 270 02 0 00 060657 ADD AC,[142536475076]
17788 053771 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
17789 053772 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
17790 053773 200 05 0 00 061125 MOVE AC3,RAN ;SAVE RAN IN AN AC.
17791 053774 477 03 0 00 000000 HRLZS3: SETOB AC1,RAN1 ;SET C(AC) TO -1
17792 053775 205 04 0 05 000000 MOVSI AC2,(AC3) ;SIMULATE A HRLZ INST.
17793 053776 517 03 0 00 000002 HRLZS AC1,AC ;DO HRLZS
17794 053777 312 03 0 00 000002 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER HRLZS
17795 054000 002 05 0 00 000000 ERRM AC3,RAN1
17796 054001 312 04 0 00 000002 CAME AC2,AC ;C(E) SHOULD=SIM ANS
17797 054002 002 05 0 00 000000 ERRM AC3,RAN1
17798 LOOP HRLZS2,HRLZS3^
17799 054003 367 01 0 00 053767 SOJG AC-1,HRLZS2 ;ITERATION COUNTER
17800 054004 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
17801 054005 321 01 0 00 053774 JUMPL AC-1,HRLZS3 ;LOOP ON ERROR SWITCH ^
17802
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 121
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0459
17803
17804
17805 ;TEST HLRZ CHECK C(AC) FOR CORRECT DATA
17806 ;RAN TO RAN1
17807
17808
17809 000003 AC=3
17810 054006 HLRZ1: SETUP 200,1^
17811 000004 AC1=<AC+1>&17
17812 000005 AC2=<AC+2>&17
17813 000006 AC3=<AC+3>&17
17814 000007 AC4=<AC+4>&17
17815 000010 AC5=<AC+5>&17
17816 000001 RAN1=<AC-2>&17
17817 054006 201 02 0 00 054006 MOVEI AC-1,.
17818 054007 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
17819 054010 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
17820 054011 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
17821 054012 201 02 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
17822 054013 240 02 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
17823 054014 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
17824 054015 HLRZ2: RANDOM^
17825 054015 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
17826 054016 270 03 0 00 060657 ADD AC,[142536475076]
17827 054017 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
17828 054020 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
17829 054021 241 03 0 00 000011 HLRZ3: ROT AC,11 ;C(AC)=SECOND RAN. NUM
17830 054022 200 01 0 00 000003 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
17831 054023 204 04 0 00 061125 MOVS AC1,RAN ;SIMULATE
17832 054024 621 04 0 00 777777 TLZ AC1,-1 ;A HLRZ INST.
17833 054025 554 03 0 00 061125 HLRZ AC,RAN ;DO HLRZ
17834 054026 312 03 0 00 000004 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS.
17835 054027 011 00 0 00 000001 EERR ,RAN1
17836 LOOP HLRZ2,HLRZ3^
17837 054030 367 02 0 00 054015 SOJG AC-1,HLRZ2 ;ITERATION COUNTER
17838 054031 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
17839 054032 321 02 0 00 054021 JUMPL AC-1,HLRZ3 ;LOOP ON ERROR SWITCH ^
17840
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 122
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0460
17841
17842
17843 ;TEST HLRZI. CHECK C(AC) FOR 0
17844 ;RAN TO RAN1.
17845
17846
17847 000003 AC=3
17848 054033 HLRZI1: SETUP 200,1^
17849 000004 AC1=<AC+1>&17
17850 000005 AC2=<AC+2>&17
17851 000006 AC3=<AC+3>&17
17852 000007 AC4=<AC+4>&17
17853 000010 AC5=<AC+5>&17
17854 000001 RAN1=<AC-2>&17
17855 054033 201 02 0 00 054033 MOVEI AC-1,.
17856 054034 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
17857 054035 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
17858 054036 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
17859 054037 201 02 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
17860 054040 240 02 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
17861 054041 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
17862 054042 HLRZI2: RANDOM^
17863 054042 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
17864 054043 270 03 0 00 060657 ADD AC,[142536475076]
17865 054044 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
17866 054045 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
17867 054046 200 04 0 00 061125 MOVE AC1,RAN ;SAVE RAN IN AN AC.
17868 054047 241 03 0 00 000011 HLRZI3: ROT AC,11 ;C(AC)=SECOND RAN. NUM
17869 054050 200 01 0 00 000003 MOVE RAN1,AC ;SAVE C (AC) IN CASE OF ERROR
17870 054051 555 03 0 04 000000 HLRZI AC,(AC1) ;DO HLRZI.
17871 054052 312 03 0 00 060660 CAME AC,[0] ;C(AC) SHOULD=0
17872 054053 003 01 0 04 000000 ERRI RAN1,(AC1)
17873 LOOP HLRZI2,HLRZI3^
17874 054054 367 02 0 00 054042 SOJG AC-1,HLRZI2 ;ITERATION COUNTER
17875 054055 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
17876 054056 321 02 0 00 054047 JUMPL AC-1,HLRZI3 ;LOOP ON ERROR SWITCH ^
17877
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 123
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0461
17878
17879
17880 ;TEST HLRZM. CHECK C(E) FOR CORRECT DATA
17881 ;RAN TO RAN1
17882
17883
17884 000003 AC=3
17885 054057 HLRZM1: SETUP 200,1^
17886 000004 AC1=<AC+1>&17
17887 000005 AC2=<AC+2>&17
17888 000006 AC3=<AC+3>&17
17889 000007 AC4=<AC+4>&17
17890 000010 AC5=<AC+5>&17
17891 000001 RAN1=<AC-2>&17
17892 054057 201 02 0 00 054057 MOVEI AC-1,.
17893 054060 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
17894 054061 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
17895 054062 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
17896 054063 201 02 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
17897 054064 240 02 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
17898 054065 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
17899 054066 HLRZM2: RANDOM^
17900 054066 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
17901 054067 270 03 0 00 060657 ADD AC,[142536475076]
17902 054070 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
17903 054071 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
17904 054072 200 05 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
17905 054073 241 03 0 00 000011 HLRZM3: ROT AC,11 ;C(E)=SECOND RAN. NUM
17906 054074 200 01 0 00 000003 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR
17907 054075 204 04 0 00 061125 MOVS AC1,RAN ;SIMULATE
17908 054076 621 04 0 00 777777 TLZ AC1,-1 ;A HLRZ INST
17909 054077 556 05 0 00 000003 HLRZM AC2,AC ;DO A HLRZM.
17910 054100 312 04 0 00 000003 CAME AC1,AC ;C(E) SHOULD=SIM ANS
17911 054101 002 01 0 00 061125 ERRM RAN1,RAN
17912 LOOP HLRZM2,HLRZM3^
17913 054102 367 02 0 00 054066 SOJG AC-1,HLRZM2 ;ITERATION COUNTER
17914 054103 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
17915 054104 321 02 0 00 054073 JUMPL AC-1,HLRZM3 ;LOOP ON ERROR SWITCH ^
17916
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 124
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0462
17917
17918
17919 ;TEST HLRZS. CHECK C(E) FOR CORRECT DATA AND
17920 ;PROPER STORING C(E) INTO AC FOR RAN TO RAN CONDITION
17921
17922
17923 000004 AC=4
17924 054105 HLRZS1: SETUP 200,1^
17925 000005 AC1=<AC+1>&17
17926 000006 AC2=<AC+2>&17
17927 000007 AC3=<AC+3>&17
17928 000010 AC4=<AC+4>&17
17929 000011 AC5=<AC+5>&17
17930 000002 RAN1=<AC-2>&17
17931 054105 201 03 0 00 054105 MOVEI AC-1,.
17932 054106 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
17933 054107 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
17934 054110 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
17935 054111 201 03 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
17936 054112 240 03 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
17937 054113 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
17938 054114 HLRZS2: RANDOM^
17939 054114 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
17940 054115 270 04 0 00 060657 ADD AC,[142536475076]
17941 054116 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
17942 054117 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
17943 054120 477 05 0 00 000002 HLRZS3: SETOB AC1,RAN1 ;SET C(AC) TO = -1
17944 054121 204 06 0 00 000004 MOVS AC2,AC ;SIMULATE
17945 054122 621 06 0 00 777777 TLZ AC2,-1 ;A HLRZ
17946 054123 557 05 0 00 000004 HLRZS AC1,AC ;DO HLRZS
17947 054124 312 05 0 00 000004 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER HLRZS
17948 054125 012 00 0 00 000002 EERRM ,RAN1
17949 054126 312 06 0 00 000004 CAME AC2,AC ;C(E) SHOULD=SIM. ANS.
17950 054127 012 00 0 00 000002 EERRM ,RAN1
17951 LOOP HLRZS2,HLRZS3^
17952 054130 367 03 0 00 054114 SOJG AC-1,HLRZS2 ;ITERATION COUNTER
17953 054131 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
17954 054132 321 03 0 00 054120 JUMPL AC-1,HLRZS3 ;LOOP ON ERROR SWITCH ^
17955
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 125
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0463
17956
17957
17958 ;TEST HLRO CHECK C(AC) FOR CORRECT DATA
17959 ;RAN TO RAN1
17960
17961
17962 000005 AC=5
17963 054133 HLRO1: SETUP 200,1^
17964 000006 AC1=<AC+1>&17
17965 000007 AC2=<AC+2>&17
17966 000010 AC3=<AC+3>&17
17967 000011 AC4=<AC+4>&17
17968 000012 AC5=<AC+5>&17
17969 000003 RAN1=<AC-2>&17
17970 054133 201 04 0 00 054133 MOVEI AC-1,.
17971 054134 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
17972 054135 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
17973 054136 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
17974 054137 201 04 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
17975 054140 240 04 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
17976 054141 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
17977 054142 HLRO2: RANDOM^
17978 054142 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
17979 054143 270 05 0 00 060657 ADD AC,[142536475076]
17980 054144 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
17981 054145 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
17982 054146 241 05 0 00 000011 HLRO3: ROT AC,11
17983 054147 200 03 0 00 000005 MOVE RAN1,AC ;C(AC)=SECOND RAND. NUM
17984 054150 204 06 0 00 061125 MOVS AC1,RAN ;SIMULAE
17985 054151 661 06 0 00 777777 TLO AC1,-1 ;A HLRO
17986 054152 564 05 0 00 061125 HLRO AC,RAN ;DO HLRO
17987 054153 312 05 0 00 000006 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
17988 054154 011 00 0 00 000003 EERR ,RAN1
17989 LOOP HLRO2,HLRO3^
17990 054155 367 04 0 00 054142 SOJG AC-1,HLRO2 ;ITERATION COUNTER
17991 054156 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
17992 054157 321 04 0 00 054146 JUMPL AC-1,HLRO3 ;LOOP ON ERROR SWITCH ^
17993
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 126
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0464
17994
17995
17996 ;TEST HLROI. CHECK C(AC) FOR CORRECT DATA
17997 ;RAN TO RAN1
17998
17999
18000 000006 AC=6
18001 054160 HLROI1: SETUP 200,1^
18002 000007 AC1=<AC+1>&17
18003 000010 AC2=<AC+2>&17
18004 000011 AC3=<AC+3>&17
18005 000012 AC4=<AC+4>&17
18006 000013 AC5=<AC+5>&17
18007 000004 RAN1=<AC-2>&17
18008 054160 201 05 0 00 054160 MOVEI AC-1,.
18009 054161 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
18010 054162 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
18011 054163 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
18012 054164 201 05 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
18013 054165 240 05 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
18014 054166 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
18015 054167 HLROI2: RANDOM^
18016 054167 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
18017 054170 270 06 0 00 060657 ADD AC,[142536475076]
18018 054171 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
18019 054172 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
18020 054173 200 10 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
18021 054174 241 06 0 00 000011 HLROI3: ROT AC,11 ;C(AC)=SECOND RAN. NUM
18022 054175 200 04 0 00 000006 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
18023 054176 205 07 0 00 777777 MOVSI AC1,-1 ;SIMULATE A HLROI
18024 054177 565 06 0 10 000000 HLROI AC,(AC2) ;DO HLROI.
18025 054200 312 06 0 00 000007 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
18026 054201 003 04 0 10 000000 ERRI RAN1,(AC2)
18027 LOOP HLROI2,HLROI3^
18028 054202 367 05 0 00 054167 SOJG AC-1,HLROI2 ;ITERATION COUNTER
18029 054203 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
18030 054204 321 05 0 00 054174 JUMPL AC-1,HLROI3 ;LOOP ON ERROR SWITCH ^
18031
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 127
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0465
18032
18033
18034 ;TEST HLROM CHECK C(E) FOR CORRECT DATA.
18035 ;RAN TO RAN1
18036
18037
18038 000007 AC=7
18039 054205 HLROM1: SETUP 200,1^
18040 000010 AC1=<AC+1>&17
18041 000011 AC2=<AC+2>&17
18042 000012 AC3=<AC+3>&17
18043 000013 AC4=<AC+4>&17
18044 000014 AC5=<AC+5>&17
18045 000005 RAN1=<AC-2>&17
18046 054205 201 06 0 00 054205 MOVEI AC-1,.
18047 054206 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
18048 054207 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
18049 054210 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
18050 054211 201 06 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
18051 054212 240 06 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
18052 054213 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
18053 054214 HLROM2: RANDOM^
18054 054214 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
18055 054215 270 07 0 00 060657 ADD AC,[142536475076]
18056 054216 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
18057 054217 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
18058 054220 200 11 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
18059 054221 241 07 0 00 000011 HLROM3: ROT AC,11 ;C(E)=SECOND RAN. NUM
18060 054222 200 05 0 00 000007 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR
18061 054223 204 10 0 00 061125 MOVS AC1,RAN ;SIMULATE
18062 054224 661 10 0 00 777777 TLO AC1,-1 ;A HLRO
18063 054225 566 11 0 00 000007 HLROM AC2,AC ;DO HLROM.
18064 054226 312 10 0 00 000007 CAME AC1,AC ;C(E) SHOULD=SIM. ANS
18065 054227 002 05 0 00 061125 ERRM RAN1,RAN
18066 LOOP HLROM2,HLROM3^
18067 054230 367 06 0 00 054214 SOJG AC-1,HLROM2 ;ITERATION COUNTER
18068 054231 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
18069 054232 321 06 0 00 054221 JUMPL AC-1,HLROM3 ;LOOP ON ERROR SWITCH ^
18070
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 128
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0466
18071
18072
18073 ;TEST HLROS. CHECK C(E) FOR CORRECT DATA AND
18074 ;PROPER STORING OF C(E) INTO AC FOR RAN TO RAN CONDITION
18075
18076
18077 000010 AC=10
18078 054233 HLROS1: SETUP 200,1^
18079 000011 AC1=<AC+1>&17
18080 000012 AC2=<AC+2>&17
18081 000013 AC3=<AC+3>&17
18082 000014 AC4=<AC+4>&17
18083 000015 AC5=<AC+5>&17
18084 000006 RAN1=<AC-2>&17
18085 054233 201 07 0 00 054233 MOVEI AC-1,.
18086 054234 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
18087 054235 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
18088 054236 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
18089 054237 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
18090 054240 240 07 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
18091 054241 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
18092 054242 HLROS2: RANDOM^
18093 054242 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
18094 054243 270 10 0 00 060657 ADD AC,[142536475076]
18095 054244 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
18096 054245 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
18097 054246 477 11 0 00 000006 HLROS3: SETOB AC1,RAN1 ;SET C(AC) TO ALL ONES
18098 054247 204 12 0 00 000010 MOVS AC2,AC ;SIMULATE
18099 054250 661 12 0 00 777777 TLO AC2,-1 ;A HLRO
18100 054251 567 11 0 00 000010 HLROS AC1,AC ;DO HLROS
18101 054252 312 11 0 00 000010 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER HLROS.
18102 054253 012 00 0 00 000006 EERRM ,RAN1
18103 054254 312 12 0 00 000010 CAME AC2,AC ;C(E) SHOULD=SIM. ANS
18104 054255 012 00 0 00 000006 EERRM ,RAN1
18105 LOOP HLROS2,HLROS3^
18106 054256 367 07 0 00 054242 SOJG AC-1,HLROS2 ;ITERATION COUNTER
18107 054257 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
18108 054260 321 07 0 00 054246 JUMPL AC-1,HLROS3 ;LOOP ON ERROR SWITCH ^
18109
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 129
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0467
18110
18111
18112 ;TEST HRLE CHECK C(AC) FOR CORRECT DATA
18113 ;RAN TO RAN1.
18114
18115
18116 000011 AC=11
18117 054261 HRLE1: SETUP 200,4^
18118 000012 AC1=<AC+1>&17
18119 000013 AC2=<AC+2>&17
18120 000014 AC3=<AC+3>&17
18121 000015 AC4=<AC+4>&17
18122 000016 AC5=<AC+5>&17
18123 000007 RAN1=<AC-2>&17
18124 054261 201 10 0 00 054261 MOVEI AC-1,.
18125 054262 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
18126 054263 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
18127 054264 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
18128 054265 201 10 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
18129 054266 240 10 1 00 030662 ASH AC-1,@CMPLXT+4 ;ROUTINE COMPLEXITY
18130 054267 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
18131 054270 HRLE2: RANDOM^
18132 054270 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
18133 054271 270 11 0 00 060657 ADD AC,[142536475076]
18134 054272 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
18135 054273 447 11 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
18136 054274 200 13 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
18137 054275 241 11 0 00 000011 HRLE3: ROT AC,11 ;C(AC)=SECOND RAN. NUM
18138 054276 200 07 0 00 000011 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
18139 054277 204 12 0 00 061125 MOVS AC1,RAN ;SIULATE
18140 054300 620 12 0 00 777777 TRZ AC1,-1 ;A
18141 054301 602 13 0 00 400000 TRNE AC2,400000 ;HRLE
18142 054302 660 12 0 00 777777 TRO AC1,-1 ;INST
18143 054303 534 11 0 00 061125 HRLE AC,RAN ;NO HRLE
18144 054304 312 11 0 00 000012 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
18145 054305 001 13 0 00 000007 ERR AC2,RAN1
18146 LOOP HRLE2,HRLE3^
18147 054306 367 10 0 00 054270 SOJG AC-1,HRLE2 ;ITERATION COUNTER
18148 054307 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
18149 054310 321 10 0 00 054275 JUMPL AC-1,HRLE3 ;LOOP ON ERROR SWITCH ^
18150
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 130
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0468
18151
18152
18153 ;TEST HRLEI. CHECK C(AC) FOR CORRECT DATA
18154 ;RAN TO RAN1
18155
18156
18157 000004 AC=4
18158 054311 HRLEI1: SETUP 200,4^
18159 000005 AC1=<AC+1>&17
18160 000006 AC2=<AC+2>&17
18161 000007 AC3=<AC+3>&17
18162 000010 AC4=<AC+4>&17
18163 000011 AC5=<AC+5>&17
18164 000002 RAN1=<AC-2>&17
18165 054311 201 03 0 00 054311 MOVEI AC-1,.
18166 054312 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
18167 054313 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
18168 054314 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
18169 054315 201 03 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
18170 054316 240 03 1 00 030662 ASH AC-1,@CMPLXT+4 ;ROUTINE COMPLEXITY
18171 054317 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
18172 054320 HRLEI2: RANDOM^
18173 054320 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
18174 054321 270 04 0 00 060657 ADD AC,[142536475076]
18175 054322 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
18176 054323 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
18177 054324 200 06 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
18178 054325 241 04 0 00 000011 HRLEI3: ROT AC,11 ;C(AC)=SECOND RAN NUM
18179 054326 200 02 0 00 000004 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
18180 054327 204 05 0 00 061125 MOVS AC1,RAN ;SIMULATE
18181 054330 620 05 0 00 777777 TRZ AC1,-1 ;A
18182 054331 602 06 0 00 400000 TRNE AC2,400000 ;HRLE
18183 054332 660 05 0 00 777777 TRO AC1,-1 ;INST
18184 054333 535 04 0 06 000000 HRLEI AC,(AC2) ;DO HRLEI.
18185 054334 312 04 0 00 000005 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
18186 054335 003 02 0 06 000000 ERRI RAN1,(AC2)
18187 LOOP HRLEI2,HRLEI3^
18188 054336 367 03 0 00 054320 SOJG AC-1,HRLEI2 ;ITERATION COUNTER
18189 054337 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
18190 054340 321 03 0 00 054325 JUMPL AC-1,HRLEI3 ;LOOP ON ERROR SWITCH ^
18191
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 131
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0469
18192
18193
18194 ;TEST HRLEM. CHECK C(E) FOR CORRECT DATA
18195 ;RAN TO RAN1
18196
18197
18198 000005 AC=5
18199 054341 HRLEM1: SETUP 200,4^
18200 000006 AC1=<AC+1>&17
18201 000007 AC2=<AC+2>&17
18202 000010 AC3=<AC+3>&17
18203 000011 AC4=<AC+4>&17
18204 000012 AC5=<AC+5>&17
18205 000003 RAN1=<AC-2>&17
18206 054341 201 04 0 00 054341 MOVEI AC-1,.
18207 054342 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
18208 054343 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
18209 054344 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
18210 054345 201 04 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
18211 054346 240 04 1 00 030662 ASH AC-1,@CMPLXT+4 ;ROUTINE COMPLEXITY
18212 054347 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
18213 054350 HRLEM2: RANDOM^
18214 054350 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
18215 054351 270 05 0 00 060657 ADD AC,[142536475076]
18216 054352 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
18217 054353 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
18218 054354 200 07 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
18219 054355 241 05 0 00 000011 HRLEM3: ROT AC,11 ;C(E)=SECOND RAN. NUM
18220 054356 200 03 0 00 000005 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR
18221 054357 204 06 0 00 061125 MOVS AC1,RAN ;SIMULATE
18222 054360 620 06 0 00 777777 TRZ AC1,-1 ;A
18223 054361 602 07 0 00 400000 TRNE AC2,400000 ;HRLE
18224 054362 660 06 0 00 777777 TRO AC1,-1 ;INST
18225 054363 536 07 0 00 000005 HRLEM AC2,AC ;DO HRLEM.
18226 054364 312 06 0 00 000005 CAME AC1,AC ;C(AC) SHOULD=SIM. ANS
18227 054365 002 03 0 00 061125 ERRM RAN1,RAN
18228 LOOP HRLEM2,HRLEM3^
18229 054366 367 04 0 00 054350 SOJG AC-1,HRLEM2 ;ITERATION COUNTER
18230 054367 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
18231 054370 321 04 0 00 054355 JUMPL AC-1,HRLEM3 ;LOOP ON ERROR SWITCH ^
18232
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 132
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0470
18233
18234
18235 ;TEST HRLES. CHECK C(E) FOR CORRECT DATA AND
18236 ;PROPER STORING OF C(E) INTO AC FOR RAN TO RAN CONDITION
18237
18238
18239 000006 AC=6
18240 054371 HRLES1: SETUP 200,4^
18241 000007 AC1=<AC+1>&17
18242 000010 AC2=<AC+2>&17
18243 000011 AC3=<AC+3>&17
18244 000012 AC4=<AC+4>&17
18245 000013 AC5=<AC+5>&17
18246 000004 RAN1=<AC-2>&17
18247 054371 201 05 0 00 054371 MOVEI AC-1,.
18248 054372 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
18249 054373 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
18250 054374 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
18251 054375 201 05 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
18252 054376 240 05 1 00 030662 ASH AC-1,@CMPLXT+4 ;ROUTINE COMPLEXITY
18253 054377 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
18254 054400 HRLES2: RANDOM^
18255 054400 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
18256 054401 270 06 0 00 060657 ADD AC,[142536475076]
18257 054402 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
18258 054403 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
18259 054404 477 07 0 00 000004 HRLES3: SETOB AC1,RAN1 ;SET C(AC) TO ALL ONES.
18260 054405 204 10 0 00 000006 MOVS AC2,AC ;SIMULATE
18261 054406 620 10 0 00 777777 TRZ AC2,-1 ;A
18262 054407 602 06 0 00 400000 TRNE AC,400000 ;HRLE
18263 054410 660 10 0 00 777777 TRO AC2,-1 ;INST
18264 054411 537 07 0 00 000006 HRLES AC1,AC ;DO HRLES
18265 054412 312 07 0 00 000006 CAME AC1,AC ;C(AC) HOULD=C(E) AFTER HRLES.
18266 054413 012 00 0 00 000004 EERRM ,RAN1
18267 054414 312 10 0 00 000006 CAME AC2,AC ;C(E) SHOULD=SIM. ANS
18268 054415 012 00 0 00 000004 EERRM ,RAN1
18269 LOOP HRLES2,HRLES3^
18270 054416 367 05 0 00 054400 SOJG AC-1,HRLES2 ;ITERATION COUNTER
18271 054417 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
18272 054420 321 05 0 00 054404 JUMPL AC-1,HRLES3 ;LOOP ON ERROR SWITCH ^
18273
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 133
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0471
18274
18275
18276 ;TEST HLRE CHECK C(AC) FOR CORRECT DATA
18277 ;RAN TO RAN1
18278
18279
18280 000007 AC=7
18281 054421 HLRE1: SETUP 200,4^
18282 000010 AC1=<AC+1>&17
18283 000011 AC2=<AC+2>&17
18284 000012 AC3=<AC+3>&17
18285 000013 AC4=<AC+4>&17
18286 000014 AC5=<AC+5>&17
18287 000005 RAN1=<AC-2>&17
18288 054421 201 06 0 00 054421 MOVEI AC-1,.
18289 054422 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
18290 054423 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
18291 054424 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
18292 054425 201 06 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
18293 054426 240 06 1 00 030662 ASH AC-1,@CMPLXT+4 ;ROUTINE COMPLEXITY
18294 054427 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
18295 054430 HLRE2: RANDOM^
18296 054430 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
18297 054431 270 07 0 00 060657 ADD AC,[142536475076]
18298 054432 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
18299 054433 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
18300 054434 200 11 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
18301 054435 241 07 0 00 000011 HLRE3: ROT AC,11 ;C(AC)=SECOND RAN. NUM
18302 054436 200 05 0 00 000007 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
18303 054437 204 10 0 00 061125 MOVS AC1,RAN ;SIMULATE
18304 054440 621 10 0 00 777777 TLZ AC1,-1 ;A
18305 054441 603 11 0 00 400000 TLNE AC2,400000 ;HLRE
18306 054442 661 10 0 00 777777 TLO AC1,-1 ;INST
18307 054443 574 07 0 00 061125 HLRE AC,RAN ;DO HLRE
18308 054444 312 07 0 00 000010 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
18309 054445 001 11 0 00 000005 ERR AC2,RAN1
18310 LOOP HLRE2,HLRE3^
18311 054446 367 06 0 00 054430 SOJG AC-1,HLRE2 ;ITERATION COUNTER
18312 054447 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
18313 054450 321 06 0 00 054435 JUMPL AC-1,HLRE3 ;LOOP ON ERROR SWITCH ^
18314
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 134
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0472
18315
18316
18317 ;TEST HLREI. CHECK C(AC) FOR 0
18318 ;RAN TO RAN1
18319
18320
18321 000010 AC=10
18322 054451 HLREI1: SETUP 200,4^
18323 000011 AC1=<AC+1>&17
18324 000012 AC2=<AC+2>&17
18325 000013 AC3=<AC+3>&17
18326 000014 AC4=<AC+4>&17
18327 000015 AC5=<AC+5>&17
18328 000006 RAN1=<AC-2>&17
18329 054451 201 07 0 00 054451 MOVEI AC-1,.
18330 054452 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
18331 054453 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
18332 054454 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
18333 054455 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
18334 054456 240 07 1 00 030662 ASH AC-1,@CMPLXT+4 ;ROUTINE COMPLEXITY
18335 054457 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
18336 054460 HLREI2: RANDOM^
18337 054460 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
18338 054461 270 10 0 00 060657 ADD AC,[142536475076]
18339 054462 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
18340 054463 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
18341 054464 200 11 0 00 061125 MOVE AC1,RAN ;SAVE RAN IN AN AC.
18342 054465 241 10 0 00 000001 HLREI3: ROT AC,1 ;C(AC)=SECOND RAN. NUM
18343 054466 200 06 0 00 000010 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
18344 054467 575 10 0 11 000000 HLREI AC,(AC1) ;DO HLREI INST.
18345 054470 312 10 0 00 060660 CAME AC,[0] ;C(AC) SHOULD = 0.
18346 054471 003 06 0 11 000000 ERRI RAN1,(AC1)
18347 LOOP HLREI2,HLREI3^
18348 054472 367 07 0 00 054460 SOJG AC-1,HLREI2 ;ITERATION COUNTER
18349 054473 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
18350 054474 321 07 0 00 054465 JUMPL AC-1,HLREI3 ;LOOP ON ERROR SWITCH ^
18351
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 135
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0473
18352
18353
18354 ;TEST HLREM. CHECK C(E) FOR CORRECT DATA
18355 ;RAN TO RAN1
18356
18357
18358 000010 AC=10
18359 054475 HLREM1: SETUP 200,4^
18360 000011 AC1=<AC+1>&17
18361 000012 AC2=<AC+2>&17
18362 000013 AC3=<AC+3>&17
18363 000014 AC4=<AC+4>&17
18364 000015 AC5=<AC+5>&17
18365 000006 RAN1=<AC-2>&17
18366 054475 201 07 0 00 054475 MOVEI AC-1,.
18367 054476 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
18368 054477 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
18369 054500 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
18370 054501 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
18371 054502 240 07 1 00 030662 ASH AC-1,@CMPLXT+4 ;ROUTINE COMPLEXITY
18372 054503 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
18373 054504 HLREM2: RANDOM^
18374 054504 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
18375 054505 270 10 0 00 060657 ADD AC,[142536475076]
18376 054506 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
18377 054507 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
18378 054510 200 12 0 00 061125 MOVE AC2,RAN ;SAVE RAN IN AN AC.
18379 054511 241 10 0 00 000011 HLREM3: ROT AC,11 ;C(E)=SECOND RAN. NUM
18380 054512 200 06 0 00 000010 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR
18381 054513 204 11 0 00 061125 MOVS AC1,RAN ;SIMULATE
18382 054514 621 11 0 00 777777 TLZ AC1,-1 ;A
18383 054515 603 12 0 00 400000 TLNE AC2,400000 ;HLRE
18384 054516 661 11 0 00 777777 TLO AC1,-1 ;INST
18385 054517 576 12 0 00 000010 HLREM AC2,AC ;DO HLREM.
18386 054520 312 11 0 00 000010 CAME AC1,AC ;C(E) SHOULD=SIM. ANS
18387 054521 002 06 0 00 061125 ERRM RAN1,RAN
18388 LOOP HLREM2,HLREM3^
18389 054522 367 07 0 00 054504 SOJG AC-1,HLREM2 ;ITERATION COUNTER
18390 054523 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
18391 054524 321 07 0 00 054511 JUMPL AC-1,HLREM3 ;LOOP ON ERROR SWITCH ^
18392
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 136
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0474
18393
18394
18395 ;TEST HLRES. CHECK C(E) FOR CORRECT DATA AND
18396 ;PROPER STORING OF C(E) INTO AC FOR RAN TO RAN CONDITION
18397
18398
18399 000002 AC=2
18400 054525 HLRES1: SETUP 200,4^
18401 000003 AC1=<AC+1>&17
18402 000004 AC2=<AC+2>&17
18403 000005 AC3=<AC+3>&17
18404 000006 AC4=<AC+4>&17
18405 000007 AC5=<AC+5>&17
18406 000000 RAN1=<AC-2>&17
18407 054525 201 01 0 00 054525 MOVEI AC-1,.
18408 054526 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
18409 054527 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
18410 054530 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
18411 054531 201 01 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
18412 054532 240 01 1 00 030662 ASH AC-1,@CMPLXT+4 ;ROUTINE COMPLEXITY
18413 054533 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
18414 054534 HLRES2: RANDOM^
18415 054534 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
18416 054535 270 02 0 00 060657 ADD AC,[142536475076]
18417 054536 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
18418 054537 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
18419 054540 477 03 0 00 000000 HLRES3: SETOB AC1,RAN1 ;SET C(E) TO ALL ONES
18420 054541 204 04 0 00 000002 MOVS AC2,AC ;SIMULATE
18421 054542 621 04 0 00 777777 TLZ AC2,-1 ;A
18422 054543 603 02 0 00 400000 TLNE AC,400000 ;HLRE
18423 054544 661 04 0 00 777777 TLO AC2,-1 ;INST
18424 054545 577 03 0 00 000002 HLRES AC1,AC ;DO HLRES
18425 054546 312 03 0 00 000002 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER HLRES
18426 054547 012 00 0 00 000000 EERRM ,RAN1
18427 054550 312 04 0 00 000002 CAME AC2,AC ;C(E) SHOULD=SIM ANS
18428 054551 012 00 0 00 000000 EERRM ,RAN1
18429 LOOP HLRES2,HLRES3^
18430 054552 367 01 0 00 054534 SOJG AC-1,HLRES2 ;ITERATION COUNTER
18431 054553 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
18432 054554 321 01 0 00 054540 JUMPL AC-1,HLRES3 ;LOOP ON ERROR SWITCH ^
18433
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 137
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0475
18434
18435
18436 DEFINE ADSBSM <
18437 MOVE AC1,AC ;PUT SEC. NUM. INTO AC1.
18438 MOVE AC3,AC1 ;PUT SEC. NUM. INTO AC3 AND
18439 AND AC3,AC2 ;"AND" IT WITH 1ST NUM..PRODUCE CRY BIT.
18440 XOR AC1,AC2 ;PRODUCE SAME 1'S + 0'S AN ADD WOULD
18441 ;PRODUCE, WITHOUT CARRY BITS.
18442 LSH AC3,1 ;SHIFT CRY BIT(S) TO LINE UP WITH NEXT BIT(S).
18443 MOVE AC4,AC1 ;SAVE FOR FUTURE "AND".
18444 TDCN AC1,AC3 ;A 0,1 CONDITION (NO FURTHUR CARRY)
18445 JRST .+3 ;WILL LEAVE WITH ANY CRY BIT(S) SET,
18446 AND AC3,AC4 ;OTHERWISE IT WILL COMP. THE CRY BIT(S) AND
18447 JRST .-5 ;PRODUCE OTHER CRY BIT(S). >
18448
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 138
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0476
18449
18450
18451 ;TEST ADD. CHECK FOR CORRECT DATA IN AC BY
18452 ;SIMULATING AN ADD, DOING AN ADD, AND COMPARING C(AC) WITH
18453 ;SIMULATED ANS.
18454 ;RAN TO RAN1.
18455 000003 AC=3
18456 054555 ADDA1: SETUP 200,2^
18457 000004 AC1=<AC+1>&17
18458 000005 AC2=<AC+2>&17
18459 000006 AC3=<AC+3>&17
18460 000007 AC4=<AC+4>&17
18461 000010 AC5=<AC+5>&17
18462 000001 RAN1=<AC-2>&17
18463 054555 201 02 0 00 054555 MOVEI AC-1,.
18464 054556 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
18465 054557 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
18466 054560 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
18467 054561 201 02 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
18468 054562 240 02 1 00 030660 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
18469 054563 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
18470 054564 ADDA2: RANDOM^
18471 054564 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
18472 054565 270 03 0 00 060657 ADD AC,[142536475076]
18473 054566 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
18474 054567 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
18475 054570 207 01 0 00 000003 ADDA3: MOVSS RAN1,AC ;C(AC)=SECOND RAN. NUM.
18476 054571 200 05 0 00 061125 MOVE AC2,RAN ;PUT 1ST NUM. INTO AC2.
18477 ;SIMULATE AN ADD INSTRUCTION.
18478 ADSBSM^
18479 054572 200 04 0 00 000003 MOVE AC1,AC ;PUT SEC. NUM. INTO AC1.
18480 054573 200 06 0 00 000004 MOVE AC3,AC1 ;PUT SEC. NUM. INTO AC3 AND
18481 054574 404 06 0 00 000005 AND AC3,AC2 ;"AND" IT WITH 1ST NUM..PRODUCE CRY BIT.
18482 054575 430 04 0 00 000005 XOR AC1,AC2 ;PRODUCE SAME 1'S + 0'S AN ADD WOULD
18483 ;PRODUCE, WITHOUT CARRY BITS.
18484 054576 242 06 0 00 000001 LSH AC3,1 ;SHIFT CRY BIT(S) TO LINE UP WITH NEXT BIT(S).
18485 054577 200 07 0 00 000004 MOVE AC4,AC1 ;SAVE FOR FUTURE "AND".
18486 054600 656 04 0 00 000006 TDCN AC1,AC3 ;A 0,1 CONDITION (NO FURTHUR CARRY)
18487 054601 254 00 0 00 054604 JRST .+3 ;WILL LEAVE WITH ANY CRY BIT(S) SET,
18488 054602 404 06 0 00 000007 AND AC3,AC4 ;OTHERWISE IT WILL COMP. THE CRY BIT(S) AND
18489 054603 254 00 0 00 054576 JRST .-5 ;PRODUCE OTHER CRY BIT(S). ^
18490 054604 270 03 0 00 061125 ADD AC,RAN ;DO AN ADD.
18491 054605 312 03 0 00 000004 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS.
18492 054606 011 00 0 00 000001 EERR ,RAN1
18493 LOOP ADDA2,ADDA3^
18494 054607 367 02 0 00 054564 SOJG AC-1,ADDA2 ;ITERATION COUNTER
18495 054610 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
18496 054611 321 02 0 00 054570 JUMPL AC-1,ADDA3 ;LOOP ON ERROR SWITCH ^
18497
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 139
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0477
18498 ;TEST ADDM. CHECK FOR CORRECT DATA IN E BY
18499 ;SIMULATING AN ADDM, DOING AN ADDM, AND COMPARING C(E)
18500 ;WITH SIMULATED ANS.
18501 ;RAN TO RAN1.
18502 000002 AC=2
18503 054612 ADDMA1: SETUP 200,2^
18504 000003 AC1=<AC+1>&17
18505 000004 AC2=<AC+2>&17
18506 000005 AC3=<AC+3>&17
18507 000006 AC4=<AC+4>&17
18508 000007 AC5=<AC+5>&17
18509 000000 RAN1=<AC-2>&17
18510 054612 201 01 0 00 054612 MOVEI AC-1,.
18511 054613 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
18512 054614 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
18513 054615 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
18514 054616 201 01 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
18515 054617 240 01 1 00 030660 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
18516 054620 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
18517 054621 ADDMA2: RANDOM^
18518 054621 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
18519 054622 270 02 0 00 060657 ADD AC,[142536475076]
18520 054623 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
18521 054624 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
18522 054625 200 07 0 00 061125 MOVE AC5,RAN ;SAVE RAN IN AN AC.
18523 054626 207 00 0 00 000002 ADDMA3: MOVSS RAN1,AC ;C(E)=SECOND RAN NUM.
18524 054627 200 04 0 00 061125 MOVE AC2,RAN ;PUT 1ST NUMBER INTO AC2
18525 ;SIMULATE AN ADD INSTRUCTION
18526 ADSBSM^
18527 054630 200 03 0 00 000002 MOVE AC1,AC ;PUT SEC. NUM. INTO AC1.
18528 054631 200 05 0 00 000003 MOVE AC3,AC1 ;PUT SEC. NUM. INTO AC3 AND
18529 054632 404 05 0 00 000004 AND AC3,AC2 ;"AND" IT WITH 1ST NUM..PRODUCE CRY BIT.
18530 054633 430 03 0 00 000004 XOR AC1,AC2 ;PRODUCE SAME 1'S + 0'S AN ADD WOULD
18531 ;PRODUCE, WITHOUT CARRY BITS.
18532 054634 242 05 0 00 000001 LSH AC3,1 ;SHIFT CRY BIT(S) TO LINE UP WITH NEXT BIT(S).
18533 054635 200 06 0 00 000003 MOVE AC4,AC1 ;SAVE FOR FUTURE "AND".
18534 054636 656 03 0 00 000005 TDCN AC1,AC3 ;A 0,1 CONDITION (NO FURTHUR CARRY)
18535 054637 254 00 0 00 054642 JRST .+3 ;WILL LEAVE WITH ANY CRY BIT(S) SET,
18536 054640 404 05 0 00 000006 AND AC3,AC4 ;OTHERWISE IT WILL COMP. THE CRY BIT(S) AND
18537 054641 254 00 0 00 054634 JRST .-5 ;PRODUCE OTHER CRY BIT(S). ^
18538 054642 272 07 0 00 000002 ADDM AC5,AC ;DO AN ADDM.
18539 054643 312 03 0 00 000002 CAME AC1,AC ;C(E) SHOULD=SIM. ANS.
18540 054644 002 00 0 00 061125 ERRM RAN1,RAN
18541 LOOP ADDMA2,ADDMA3^
18542 054645 367 01 0 00 054621 SOJG AC-1,ADDMA2 ;ITERATION COUNTER
18543 054646 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
18544 054647 321 01 0 00 054626 JUMPL AC-1,ADDMA3 ;LOOP ON ERROR SWITCH ^
18545
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 140
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0478
18546
18547
18548 ;TEST ADDI. CHECK FOR CORRECT DATA IN AC BY
18549 ;SIMULATING AN ADDI, DOING AN ADDI, AND COMPARING
18550 ;C(AC) WITH SIMULATED ANS.
18551 ;RAN TO RAN1 CONDITION
18552 000003 AC=3
18553 054650 ADDIA1: SETUP 200,2^
18554 000004 AC1=<AC+1>&17
18555 000005 AC2=<AC+2>&17
18556 000006 AC3=<AC+3>&17
18557 000007 AC4=<AC+4>&17
18558 000010 AC5=<AC+5>&17
18559 000001 RAN1=<AC-2>&17
18560 054650 201 02 0 00 054650 MOVEI AC-1,.
18561 054651 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
18562 054652 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
18563 054653 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
18564 054654 201 02 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
18565 054655 240 02 1 00 030660 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
18566 054656 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
18567 054657 ADDIA2: RANDOM^
18568 054657 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
18569 054660 270 03 0 00 060657 ADD AC,[142536475076]
18570 054661 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
18571 054662 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
18572 054663 200 10 0 00 061125 MOVE AC5,RAN ;SAVE RAN IN AN AC.
18573 054664 207 01 0 00 000003 ADDIA3: MOVSS RAN1,AC ;C(AC)=SECOND RAN. NUM.
18574 054665 201 05 0 10 000000 MOVEI AC2,(AC5) ;PUT 1ST NUM INTO AC2.
18575 ;SIMULATE ADDI INSTRUCTION
18576 ADSBSM^
18577 054666 200 04 0 00 000003 MOVE AC1,AC ;PUT SEC. NUM. INTO AC1.
18578 054667 200 06 0 00 000004 MOVE AC3,AC1 ;PUT SEC. NUM. INTO AC3 AND
18579 054670 404 06 0 00 000005 AND AC3,AC2 ;"AND" IT WITH 1ST NUM..PRODUCE CRY BIT.
18580 054671 430 04 0 00 000005 XOR AC1,AC2 ;PRODUCE SAME 1'S + 0'S AN ADD WOULD
18581 ;PRODUCE, WITHOUT CARRY BITS.
18582 054672 242 06 0 00 000001 LSH AC3,1 ;SHIFT CRY BIT(S) TO LINE UP WITH NEXT BIT(S).
18583 054673 200 07 0 00 000004 MOVE AC4,AC1 ;SAVE FOR FUTURE "AND".
18584 054674 656 04 0 00 000006 TDCN AC1,AC3 ;A 0,1 CONDITION (NO FURTHUR CARRY)
18585 054675 254 00 0 00 054700 JRST .+3 ;WILL LEAVE WITH ANY CRY BIT(S) SET,
18586 054676 404 06 0 00 000007 AND AC3,AC4 ;OTHERWISE IT WILL COMP. THE CRY BIT(S) AND
18587 054677 254 00 0 00 054672 JRST .-5 ;PRODUCE OTHER CRY BIT(S). ^
18588 054700 271 03 0 10 000000 ADDI AC,(AC5) ;DO AN ADDI.
18589 054701 312 03 0 00 000004 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS.
18590 054702 003 01 0 10 000000 ERRI RAN1,(AC5)
18591 LOOP ADDIA2,ADDIA3^
18592 054703 367 02 0 00 054657 SOJG AC-1,ADDIA2 ;ITERATION COUNTER
18593 054704 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
18594 054705 321 02 0 00 054664 JUMPL AC-1,ADDIA3 ;LOOP ON ERROR SWITCH ^
18595
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 141
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0479
18596 ;TEST ADDB. CHECK FOR C(E)=C(AC), AND CORRECT DATA IN AC
18597 ;BY SIMULATING AN ADD, DOING AN ADDB, AND COMPARING C(AC)
18598 ;WITH SIMULATED ANS.
18599 ;RAN TO RAN1 CONDITION.
18600 000004 AC=4
18601 054706 ADDBA1: SETUP 200,2^
18602 000005 AC1=<AC+1>&17
18603 000006 AC2=<AC+2>&17
18604 000007 AC3=<AC+3>&17
18605 000010 AC4=<AC+4>&17
18606 000011 AC5=<AC+5>&17
18607 000002 RAN1=<AC-2>&17
18608 054706 201 03 0 00 054706 MOVEI AC-1,.
18609 054707 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
18610 054710 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
18611 054711 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
18612 054712 201 03 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
18613 054713 240 03 1 00 030660 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
18614 054714 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
18615 054715 ADDBA2: RANDOM^
18616 054715 200 04 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
18617 054716 270 04 0 00 060657 ADD AC,[142536475076]
18618 054717 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
18619 054720 447 04 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
18620 054721 207 02 0 00 000004 ADDBA3: MOVSS RAN1,AC ;C(AC)=SECOND RAN NUM.
18621 054722 200 11 0 00 061125 MOVE AC5,RAN ;PUT 1ST NUM INTO C(E).
18622 054723 200 06 0 00 061125 MOVE AC2,RAN ;PUT C(E) (1ST NUM.) INTO AC2.
18623 ;SIMULATE AN ADD INSTRUCTION
18624 ADSBSM^
18625 054724 200 05 0 00 000004 MOVE AC1,AC ;PUT SEC. NUM. INTO AC1.
18626 054725 200 07 0 00 000005 MOVE AC3,AC1 ;PUT SEC. NUM. INTO AC3 AND
18627 054726 404 07 0 00 000006 AND AC3,AC2 ;"AND" IT WITH 1ST NUM..PRODUCE CRY BIT.
18628 054727 430 05 0 00 000006 XOR AC1,AC2 ;PRODUCE SAME 1'S + 0'S AN ADD WOULD
18629 ;PRODUCE, WITHOUT CARRY BITS.
18630 054730 242 07 0 00 000001 LSH AC3,1 ;SHIFT CRY BIT(S) TO LINE UP WITH NEXT BIT(S).
18631 054731 200 10 0 00 000005 MOVE AC4,AC1 ;SAVE FOR FUTURE "AND".
18632 054732 656 05 0 00 000007 TDCN AC1,AC3 ;A 0,1 CONDITION (NO FURTHUR CARRY)
18633 054733 254 00 0 00 054736 JRST .+3 ;WILL LEAVE WITH ANY CRY BIT(S) SET,
18634 054734 404 07 0 00 000010 AND AC3,AC4 ;OTHERWISE IT WILL COMP. THE CRY BIT(S) AND
18635 054735 254 00 0 00 054730 JRST .-5 ;PRODUCE OTHER CRY BIT(S). ^
18636 054736 273 04 0 00 000011 ADDB AC,AC5 ;DO AN ADDB.
18637 054737 312 04 0 00 000011 CAME AC,AC5 ;C(AC) SHOULD=C(E)
18638 054740 011 00 0 00 000002 EERR ,RAN1
18639 054741 312 04 0 00 000005 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS.
18640 054742 011 00 0 00 000002 EERR ,RAN1
18641 LOOP ADDBA2,ADDBA3^
18642 054743 367 03 0 00 054715 SOJG AC-1,ADDBA2 ;ITERATION COUNTER
18643 054744 200 04 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
18644 054745 321 03 0 00 054721 JUMPL AC-1,ADDBA3 ;LOOP ON ERROR SWITCH ^
18645
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 142
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0480
18646
18647
18648 ;TEST SUB. CHECK FOR CORRECT DATA IN AC BY
18649 ;SIMULATING A SUB, DOING A SUB, AND COMPARING C(AC)
18650 ;WITH THE SIMULATED ANSWER
18651 ;RAN TO RAN1
18652 000005 AC=5
18653 054746 SUBA1: SETUP 200,2^
18654 000006 AC1=<AC+1>&17
18655 000007 AC2=<AC+2>&17
18656 000010 AC3=<AC+3>&17
18657 000011 AC4=<AC+4>&17
18658 000012 AC5=<AC+5>&17
18659 000003 RAN1=<AC-2>&17
18660 054746 201 04 0 00 054746 MOVEI AC-1,.
18661 054747 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
18662 054750 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
18663 054751 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
18664 054752 201 04 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
18665 054753 240 04 1 00 030660 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
18666 054754 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
18667 054755 SUBA2: RANDOM^
18668 054755 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
18669 054756 270 05 0 00 060657 ADD AC,[142536475076]
18670 054757 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
18671 054760 447 05 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
18672 054761 207 03 0 00 000005 SUBA3: MOVSS RAN1,AC ;C(AC)=SECOND RAN. NUM.
18673 054762 210 07 0 00 061125 MOVN AC2,RAN ;PUT 2'S COMP OF 1ST NUM INTO AC2.
18674 ;SIMULATE A SUB INSTRUCTION
18675 ADSBSM^
18676 054763 200 06 0 00 000005 MOVE AC1,AC ;PUT SEC. NUM. INTO AC1.
18677 054764 200 10 0 00 000006 MOVE AC3,AC1 ;PUT SEC. NUM. INTO AC3 AND
18678 054765 404 10 0 00 000007 AND AC3,AC2 ;"AND" IT WITH 1ST NUM..PRODUCE CRY BIT.
18679 054766 430 06 0 00 000007 XOR AC1,AC2 ;PRODUCE SAME 1'S + 0'S AN ADD WOULD
18680 ;PRODUCE, WITHOUT CARRY BITS.
18681 054767 242 10 0 00 000001 LSH AC3,1 ;SHIFT CRY BIT(S) TO LINE UP WITH NEXT BIT(S).
18682 054770 200 11 0 00 000006 MOVE AC4,AC1 ;SAVE FOR FUTURE "AND".
18683 054771 656 06 0 00 000010 TDCN AC1,AC3 ;A 0,1 CONDITION (NO FURTHUR CARRY)
18684 054772 254 00 0 00 054775 JRST .+3 ;WILL LEAVE WITH ANY CRY BIT(S) SET,
18685 054773 404 10 0 00 000011 AND AC3,AC4 ;OTHERWISE IT WILL COMP. THE CRY BIT(S) AND
18686 054774 254 00 0 00 054767 JRST .-5 ;PRODUCE OTHER CRY BIT(S). ^
18687 054775 274 05 0 00 061125 SUB AC,RAN ;DO A SUB.
18688 054776 312 05 0 00 000006 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS.
18689 054777 011 00 0 00 000003 EERR ,RAN1
18690 LOOP SUBA2,SUBA3^
18691 055000 367 04 0 00 054755 SOJG AC-1,SUBA2 ;ITERATION COUNTER
18692 055001 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
18693 055002 321 04 0 00 054761 JUMPL AC-1,SUBA3 ;LOOP ON ERROR SWITCH ^
18694
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 143
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0481
18695
18696
18697 ;TEST SUBM. CHECK FOR CORRECT DATA IN E BY
18698 ;SIMULATING A SUBM, DOING A SUBM, AND COMPARING C(E)
18699 ;WITH THE SIMULATED ANSWER
18700 ;RAN TO RAN1.
18701 000006 AC=6
18702 055003 SUBMA1: SETUP 200,2^
18703 000007 AC1=<AC+1>&17
18704 000010 AC2=<AC+2>&17
18705 000011 AC3=<AC+3>&17
18706 000012 AC4=<AC+4>&17
18707 000013 AC5=<AC+5>&17
18708 000004 RAN1=<AC-2>&17
18709 055003 201 05 0 00 055003 MOVEI AC-1,.
18710 055004 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
18711 055005 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
18712 055006 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
18713 055007 201 05 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
18714 055010 240 05 1 00 030660 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
18715 055011 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
18716 055012 SUBMA2: RANDOM^
18717 055012 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
18718 055013 270 06 0 00 060657 ADD AC,[142536475076]
18719 055014 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
18720 055015 447 06 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
18721 055016 207 04 0 00 000006 SUBMA3: MOVSS RAN1,AC ;C(AC)=SECOND RAN. NUM.
18722 055017 200 13 0 00 061125 MOVE AC5,RAN ;C(E)=1ST RAN. NUM.
18723 055020 210 10 0 00 000013 MOVN AC2,AC5 ;PUT 1ST RAN. NUM INTO AC2
18724 ;SIMULATE A SUB INSTRUCTION
18725 ADSBSM^
18726 055021 200 07 0 00 000006 MOVE AC1,AC ;PUT SEC. NUM. INTO AC1.
18727 055022 200 11 0 00 000007 MOVE AC3,AC1 ;PUT SEC. NUM. INTO AC3 AND
18728 055023 404 11 0 00 000010 AND AC3,AC2 ;"AND" IT WITH 1ST NUM..PRODUCE CRY BIT.
18729 055024 430 07 0 00 000010 XOR AC1,AC2 ;PRODUCE SAME 1'S + 0'S AN ADD WOULD
18730 ;PRODUCE, WITHOUT CARRY BITS.
18731 055025 242 11 0 00 000001 LSH AC3,1 ;SHIFT CRY BIT(S) TO LINE UP WITH NEXT BIT(S).
18732 055026 200 12 0 00 000007 MOVE AC4,AC1 ;SAVE FOR FUTURE "AND".
18733 055027 656 07 0 00 000011 TDCN AC1,AC3 ;A 0,1 CONDITION (NO FURTHUR CARRY)
18734 055030 254 00 0 00 055033 JRST .+3 ;WILL LEAVE WITH ANY CRY BIT(S) SET,
18735 055031 404 11 0 00 000012 AND AC3,AC4 ;OTHERWISE IT WILL COMP. THE CRY BIT(S) AND
18736 055032 254 00 0 00 055025 JRST .-5 ;PRODUCE OTHER CRY BIT(S). ^
18737 055033 276 06 0 00 000013 SUBM AC,AC5 ;DO A SUBM.
18738 055034 312 07 0 00 000013 CAME AC1,AC5 ;C(E) SHOULD=SIM. ANS.
18739 055035 012 00 0 00 000004 EERRM ,RAN1
18740 LOOP SUBMA2,SUBMA3^
18741 055036 367 05 0 00 055012 SOJG AC-1,SUBMA2 ;ITERATION COUNTER
18742 055037 200 06 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
18743 055040 321 05 0 00 055016 JUMPL AC-1,SUBMA3 ;LOOP ON ERROR SWITCH ^
18744
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 144
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0482
18745
18746
18747 ;TEST SUBI. CHECK FOR CORRECT DATA IN AC BY
18748 ;SIMULATING A SUBI, DOING A SUBI, AND COMPARING
18749 ;C(AC) WITH THE SIMULATED ANSWER
18750 ;RAN TO RAN1
18751 000007 AC=7
18752 055041 SUBIA1: SETUP 200,2^
18753 000010 AC1=<AC+1>&17
18754 000011 AC2=<AC+2>&17
18755 000012 AC3=<AC+3>&17
18756 000013 AC4=<AC+4>&17
18757 000014 AC5=<AC+5>&17
18758 000005 RAN1=<AC-2>&17
18759 055041 201 06 0 00 055041 MOVEI AC-1,.
18760 055042 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
18761 055043 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
18762 055044 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
18763 055045 201 06 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
18764 055046 240 06 1 00 030660 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
18765 055047 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
18766 055050 SUBIA2: RANDOM^
18767 055050 200 07 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
18768 055051 270 07 0 00 060657 ADD AC,[142536475076]
18769 055052 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
18770 055053 447 07 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
18771 055054 200 14 0 00 061125 MOVE AC5,RAN ;SAVE RAN IN AN AC.
18772 055055 207 05 0 00 000007 SUBIA3: MOVSS RAN1,AC ;C(AC)=SECOND RAN. NUM.
18773 055056 211 11 0 14 000000 MOVNI AC2,(AC5) ;PUT 2'S COMP OF 1ST RAN NUM INTO AC2.
18774 ;SIMULATE A SUB INSTRUCTION
18775 ADSBSM^
18776 055057 200 10 0 00 000007 MOVE AC1,AC ;PUT SEC. NUM. INTO AC1.
18777 055060 200 12 0 00 000010 MOVE AC3,AC1 ;PUT SEC. NUM. INTO AC3 AND
18778 055061 404 12 0 00 000011 AND AC3,AC2 ;"AND" IT WITH 1ST NUM..PRODUCE CRY BIT.
18779 055062 430 10 0 00 000011 XOR AC1,AC2 ;PRODUCE SAME 1'S + 0'S AN ADD WOULD
18780 ;PRODUCE, WITHOUT CARRY BITS.
18781 055063 242 12 0 00 000001 LSH AC3,1 ;SHIFT CRY BIT(S) TO LINE UP WITH NEXT BIT(S).
18782 055064 200 13 0 00 000010 MOVE AC4,AC1 ;SAVE FOR FUTURE "AND".
18783 055065 656 10 0 00 000012 TDCN AC1,AC3 ;A 0,1 CONDITION (NO FURTHUR CARRY)
18784 055066 254 00 0 00 055071 JRST .+3 ;WILL LEAVE WITH ANY CRY BIT(S) SET,
18785 055067 404 12 0 00 000013 AND AC3,AC4 ;OTHERWISE IT WILL COMP. THE CRY BIT(S) AND
18786 055070 254 00 0 00 055063 JRST .-5 ;PRODUCE OTHER CRY BIT(S). ^
18787 055071 275 07 0 14 000000 SUBI AC,(AC5) ;DO A SUBI.
18788 055072 312 07 0 00 000010 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS.
18789 055073 003 05 0 14 000000 ERRI RAN1,(AC5)
18790 LOOP SUBIA2,SUBIA3^
18791 055074 367 06 0 00 055050 SOJG AC-1,SUBIA2 ;ITERATION COUNTER
18792 055075 200 07 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
18793 055076 321 06 0 00 055055 JUMPL AC-1,SUBIA3 ;LOOP ON ERROR SWITCH ^
18794
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 145
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0483
18795 ;TEST SUBB. CHECK FOR C(AC)=C(E), AND CORRECT DATA
18796 ;IN AC BY SIMULATING A SUB, DOING A SUBB, AND COMPARING
18797 ;C(AC) WITH SIMULATED ANSWER.
18798 ;RAN TO RAN1 CONDITION.
18799 000010 AC=10
18800 055077 SUBBA1: SETUP 200,2^
18801 000011 AC1=<AC+1>&17
18802 000012 AC2=<AC+2>&17
18803 000013 AC3=<AC+3>&17
18804 000014 AC4=<AC+4>&17
18805 000015 AC5=<AC+5>&17
18806 000006 RAN1=<AC-2>&17
18807 055077 201 07 0 00 055077 MOVEI AC-1,.
18808 055100 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
18809 055101 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
18810 055102 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
18811 055103 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
18812 055104 240 07 1 00 030660 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
18813 055105 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
18814 055106 SUBBA2: RANDOM^
18815 055106 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
18816 055107 270 10 0 00 060657 ADD AC,[142536475076]
18817 055110 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
18818 055111 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
18819 055112 207 06 0 00 000010 SUBBA3: MOVSS RAN1,AC ;C(AC)=SECOND RAN. NUM.
18820 055113 200 15 0 00 061125 MOVE AC5,RAN ;C(E)=1ST RAN. NUM.
18821 055114 210 12 0 00 000015 MOVN AC2,AC5 ;PUT 2'S COMP OF 1ST NUM. INTO C2
18822 ;SIMULATE A SUB INSTRUCTION
18823 ADSBSM^
18824 055115 200 11 0 00 000010 MOVE AC1,AC ;PUT SEC. NUM. INTO AC1.
18825 055116 200 13 0 00 000011 MOVE AC3,AC1 ;PUT SEC. NUM. INTO AC3 AND
18826 055117 404 13 0 00 000012 AND AC3,AC2 ;"AND" IT WITH 1ST NUM..PRODUCE CRY BIT.
18827 055120 430 11 0 00 000012 XOR AC1,AC2 ;PRODUCE SAME 1'S + 0'S AN ADD WOULD
18828 ;PRODUCE, WITHOUT CARRY BITS.
18829 055121 242 13 0 00 000001 LSH AC3,1 ;SHIFT CRY BIT(S) TO LINE UP WITH NEXT BIT(S).
18830 055122 200 14 0 00 000011 MOVE AC4,AC1 ;SAVE FOR FUTURE "AND".
18831 055123 656 11 0 00 000013 TDCN AC1,AC3 ;A 0,1 CONDITION (NO FURTHUR CARRY)
18832 055124 254 00 0 00 055127 JRST .+3 ;WILL LEAVE WITH ANY CRY BIT(S) SET,
18833 055125 404 13 0 00 000014 AND AC3,AC4 ;OTHERWISE IT WILL COMP. THE CRY BIT(S) AND
18834 055126 254 00 0 00 055121 JRST .-5 ;PRODUCE OTHER CRY BIT(S). ^
18835 055127 277 10 0 00 000015 SUBB AC,AC5 ;DO A SUBB.
18836 055130 312 10 0 00 000015 CAME AC,AC5 ;C(AC) SHOULD=C(E)
18837 055131 011 00 0 00 000006 EERR ,RAN1
18838 055132 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
18839 055133 011 00 0 00 000006 EERR ,RAN1
18840 LOOP SUBBA2,SUBBA3^
18841 055134 367 07 0 00 055106 SOJG AC-1,SUBBA2 ;ITERATION COUNTER
18842 055135 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
18843 055136 321 07 0 00 055112 JUMPL AC-1,SUBBA3 ;LOOP ON ERROR SWITCH ^
18844
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 146
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0484
18845
18846
18847 ;TEST AOBJP. CHECK FOR CORRECT DATA IN AC.
18848 ;C(AC) = RAN.
18849
18850
18851 000002 AC=2
18852 055137 ABJP1: SETUP 100,0^
18853 000003 AC1=<AC+1>&17
18854 000004 AC2=<AC+2>&17
18855 000005 AC3=<AC+3>&17
18856 000006 AC4=<AC+4>&17
18857 000007 AC5=<AC+5>&17
18858 000000 RAN1=<AC-2>&17
18859 055137 201 01 0 00 055137 MOVEI AC-1,.
18860 055140 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
18861 055141 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
18862 055142 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
18863 055143 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
18864 055144 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
18865 055145 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
18866 055146 ABJP2: RANDOM^
18867 055146 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
18868 055147 270 02 0 00 060657 ADD AC,[142536475076]
18869 055150 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
18870 055151 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
18871 055152 200 03 0 00 000002 ABJP3: MOVE AC1,AC ;SIMULATE
18872 055153 270 03 0 00 060720 ADD AC1,[XWD 1,1] ;AN AOBJP INST.
18873 055154 606 03 0 00 777777 TRNN AC1,777777 ;IF CARRY ACROSS OCCURS
18874 055155 274 03 0 00 060714 SUB AC1,[XWD 1,0] ;DELETE CARRY 18 TO 17 EFFECT
18875 055156 252 02 0 00 055157 AOBJP AC,.+1 ;DO AN AOBJP INST.
18876 055157 312 02 0 00 000003 CAME AC,AC1 ;C(AC) SHOULD = SIM. ANS.
18877 055160 013 00 0 00 055157 EERRI ,.-1
18878 LOOP ABJP2,ABJP3^
18879 055161 367 01 0 00 055146 SOJG AC-1,ABJP2 ;ITERATION COUNTER
18880 055162 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
18881 055163 321 01 0 00 055152 JUMPL AC-1,ABJP3 ;LOOP ON ERROR SWITCH ^
18882
18883
18884
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 147
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0485
18885
18886
18887 ;TEST AOBJN. CHEC C(AC) FOR CORRECT DATA.
18888 ;C(AC) = RAN.
18889
18890
18891 000003 AC=3
18892 055164 ABJN1: SETUP 100,0^
18893 000004 AC1=<AC+1>&17
18894 000005 AC2=<AC+2>&17
18895 000006 AC3=<AC+3>&17
18896 000007 AC4=<AC+4>&17
18897 000010 AC5=<AC+5>&17
18898 000001 RAN1=<AC-2>&17
18899 055164 201 02 0 00 055164 MOVEI AC-1,.
18900 055165 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
18901 055166 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
18902 055167 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
18903 055170 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
18904 055171 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
18905 055172 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
18906 055173 ABJN2: RANDOM^
18907 055173 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
18908 055174 270 03 0 00 060657 ADD AC,[142536475076]
18909 055175 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
18910 055176 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
18911 055177 200 04 0 00 000003 ABJN3: MOVE AC1,AC ;SIMULATE
18912 055200 270 04 0 00 060720 ADD AC1,[XWD 1,1] ;AN AOBJN.
18913 055201 606 04 0 00 777777 TRNN AC1,777777 ;IF CARRY ACROSS OCCURS
18914 055202 274 04 0 00 060714 SUB AC1,[XWD 1,0] ;DELETE CARRY 18 TO 17 EFFECT
18915 055203 253 03 0 00 055204 AOBJN AC,.+1 ;DO AN AOBJN INST.
18916 055204 312 03 0 00 000004 CAME AC,AC1 ;C(AC) SHOULD = SIM. ANS.
18917 055205 013 00 0 00 055204 EERRI ,.-1
18918 LOOP ABJN2,ABJN3^
18919 055206 367 02 0 00 055173 SOJG AC-1,ABJN2 ;ITERATION COUNTER
18920 055207 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
18921 055210 321 02 0 00 055177 JUMPL AC-1,ABJN3 ;LOOP ON ERROR SWITCH ^
18922
18923
18924
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 148
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0486
18925
18926
18927 ;TEST AOBJN, AOBJP. CHECK FOR JUMP/ NO JUMP AND
18928 ;CORRECT DAT IN AC.
18929 ;C(AC) = RAN.
18930
18931
18932 000002 AC=2
18933 055211 ABJP1A: SETUP 100,0^
18934 000003 AC1=<AC+1>&17
18935 000004 AC2=<AC+2>&17
18936 000005 AC3=<AC+3>&17
18937 000006 AC4=<AC+4>&17
18938 000007 AC5=<AC+5>&17
18939 000000 RAN1=<AC-2>&17
18940 055211 201 01 0 00 055211 MOVEI AC-1,.
18941 055212 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
18942 055213 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
18943 055214 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
18944 055215 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
18945 055216 240 01 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
18946 055217 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
18947 055220 ABJP1B: RANDOM^
18948 055220 200 02 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
18949 055221 270 02 0 00 060657 ADD AC,[142536475076]
18950 055222 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
18951 055223 447 02 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
18952 055224 630 02 0 00 060721 ABJP1C: TDZ AC,[XWD 400002,2];MAKE C(AC) SO AOBJP WILL ALWAYS JUMP.
18953 055225 200 00 0 00 000002 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
18954 055226 200 03 0 00 000002 MOVE AC1,AC ;SIMULATE AN
18955 055227 270 03 0 00 060722 ADD AC1,[XWD 2,2] ;AOBJP INST.
18956 055230 253 02 0 00 055232 AOBJN AC,.+2 ;C(AC) IS POS...NO JUMP.
18957 055231 252 02 0 00 055233 AOBJP AC,.+2 ;C(AC) IS POS...JUMP.
18958 055232 005 02 0 00 060723 ER AC,[ASCII /AOBJP/]
18959 055233 312 02 0 00 000003 CAME AC,AC1 ;C(AC) SHOULD = SIM. ANS.
18960 055234 003 00 0 00 055233 ERRI RAN1,.-1
18961 LOOP ABJP1B,ABJP1C^
18962 055235 367 01 0 00 055220 SOJG AC-1,ABJP1B ;ITERATION COUNTER
18963 055236 200 02 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
18964 055237 321 01 0 00 055224 JUMPL AC-1,ABJP1C ;LOOP ON ERROR SWITCH ^
18965
18966
18967
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 149
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0487
18968
18969
18970 ;TEST AOBJP, AOBJN. CHECK FOR JUMP/ NO JUMP AND
18971 ;CORRECT DATA IN AC.
18972 ;C(AC) = RAN.
18973
18974
18975 000003 AC=3
18976 055240 ABJN1A: SETUP 100,0^
18977 000004 AC1=<AC+1>&17
18978 000005 AC2=<AC+2>&17
18979 000006 AC3=<AC+3>&17
18980 000007 AC4=<AC+4>&17
18981 000010 AC5=<AC+5>&17
18982 000001 RAN1=<AC-2>&17
18983 055240 201 02 0 00 055240 MOVEI AC-1,.
18984 055241 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
18985 055242 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
18986 055243 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
18987 055244 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
18988 055245 240 02 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
18989 055246 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
18990 055247 ABJN1B: RANDOM^
18991 055247 200 03 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
18992 055250 270 03 0 00 060657 ADD AC,[142536475076]
18993 055251 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
18994 055252 447 03 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
18995 055253 630 03 0 00 060722 ABJN1C: TDZ AC,[XWD 2,2] ;MAKE C(AC) SO
18996 055254 661 03 0 00 400000 TLO AC,400000 ;AOBJN WILL ALWAYS JUMP.
18997 055255 200 01 0 00 000003 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
18998 055256 200 04 0 00 000003 MOVE AC1,AC ;SIMULATE AN
18999 055257 270 04 0 00 060722 ADD AC1,[XWD 2,2] ;AOBJN INST.
19000 055260 252 03 0 00 055262 AOBJP AC,.+2 ;C(AC) IS NEG...NO JUMP.
19001 055261 253 03 0 00 055263 AOBJN AC,.+2 ;C(AC) IS NEG...JUMP.
19002 055262 005 03 0 00 060724 ER AC,[ASCII /AOBJN/]
19003 055263 312 03 0 00 000004 CAME AC,AC1 ;C(AC) SHOULD = SIM. ANS.
19004 055264 003 01 0 00 055263 ERRI RAN1,.-1
19005 LOOP ABJN1B,ABJN1C^
19006 055265 367 02 0 00 055247 SOJG AC-1,ABJN1B ;ITERATION COUNTER
19007 055266 200 03 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
19008 055267 321 02 0 00 055253 JUMPL AC-1,ABJN1C ;LOOP ON ERROR SWITCH ^
19009
19010
19011
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 150
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0488
19012
19013
19014 ;TEST AOBJP. CHECK TO SEE THAT AOBJP STOPS JUMPING
19015 ;AT THE RIGHT TIME.
19016 ;C(AC) = (377677,377677) ON FIRST AOBJP.
19017
19018
19019 000004 AC=4
19020 055270 ABJP2A: SETUP 1,0^
19021 000005 AC1=<AC+1>&17
19022 000006 AC2=<AC+2>&17
19023 000007 AC3=<AC+3>&17
19024 000010 AC4=<AC+4>&17
19025 000011 AC5=<AC+5>&17
19026 000002 RAN1=<AC-2>&17
19027 055270 201 03 0 00 055270 MOVEI AC-1,.
19028 055271 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
19029 055272 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
19030 055273 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
19031 055274 201 03 0 00 000001 MOVEI AC-1,1 ;ROUTINE WEIGHTING
19032 055275 240 03 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
19033 055276 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
19034 055277 200 04 0 00 060725 ABJP2B: MOVE AC,[XWD 377677,377677]
19035 055300 200 02 0 00 000004 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
19036 055301 252 04 0 00 055301 AOBJP AC,. ;STAY HERE UNTIL C(AC) IS NEG.
19037 055302 312 04 0 00 060717 CAME AC,[XWD 400000,400000];C(AC) SHOULD = THIS CONSTANT.
19038 055303 004 04 0 00 060717 ERROR AC,[XWD 400000,400000]
19039 055304 367 03 0 00 055277 SOJG AC-1,ABJP2B ;ITERATION COUNTER.
19040 055305 321 03 0 00 055277 JUMPL AC-1,ABJP2B ;LOOP ON ERROR SWITCH.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 151
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0489
19041 ;TEST AOBJN. CHECK TO SEE THAT AOBJN STOPS JUMPING
19042 ;AT THE RIGHT TIME.
19043 ;C(AC) = (777700,777700) ON FIRST AOBJN.
19044
19045
19046 000005 AC=5
19047 055306 ABJN2A: SETUP 1,0^
19048 000006 AC1=<AC+1>&17
19049 000007 AC2=<AC+2>&17
19050 000010 AC3=<AC+3>&17
19051 000011 AC4=<AC+4>&17
19052 000012 AC5=<AC+5>&17
19053 000003 RAN1=<AC-2>&17
19054 055306 201 04 0 00 055306 MOVEI AC-1,.
19055 055307 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
19056 055310 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
19057 055311 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
19058 055312 201 04 0 00 000001 MOVEI AC-1,1 ;ROUTINE WEIGHTING
19059 055313 240 04 1 00 030656 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
19060 055314 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
19061 055315 200 05 0 00 060726 ABJN2B: MOVE AC,[XWD -100,-100]
19062 055316 253 05 0 00 055316 AOBJN AC,. ;STAY HERE UNTIL C(AC) IS POS.
19063 055317 312 05 0 00 060660 CAME AC,[XWD 0,0] ;C(AC) SHOULD = THIS CONSTANT.
19064 055320 004 05 0 00 060660 ERROR AC,[XWD 0,0]
19065 055321 367 04 0 00 055315 SOJG AC-1,ABJN2B ;ITERATION COUNTER.
19066 055322 321 04 0 00 055315 JUMPL AC-1,ABJN2B ;LOOP ON ERROR SWITCH.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 152
DSKBA3 MAC 29-Mar-78 12:27 DIAGNOSTIC SECTION THREE SEQ 0490
19067 ;JFFO RELIABILITY TEST
19068
19069 000001 YY=1
19070 000010 AC=10
19071 000015 RAN1=15
19072 055323 201 05 0 00 000005 JFOT0: MOVEI 5,5
19073 055324 202 05 0 00 061117 MOVEM 5,ERRLOP
19074 055325 201 00 0 00 001000 MOVEI 0,1000
19075 055326 202 00 0 00 061120 MOVEM 0,JFCNTR#
19076 055327 JFOT0A: RANDOM^
19077 055327 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
19078 055330 270 10 0 00 060657 ADD AC,[142536475076]
19079 055331 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
19080 055332 447 10 0 00 061125 EQVB AC,RAN ;REGISTER RAN ^
19081 055333 241 10 0 00 000001 ROT AC,1
19082 055334 447 10 0 00 000015 EQVB AC,RAN1
19083 055335 200 02 0 00 061125 JFOT1: MOVE 2,RAN
19084 055336 403 03 0 00 000004 SETZB 3,4
19085 055337 332 00 0 00 000002 SKIPE 2
19086 055340 603 02 0 00 400000 JFOT2: TLNE 2,400000
19087 055341 254 00 0 00 055345 JRST JFOT3
19088 055342 241 02 0 00 000001 ROT 2,1
19089 055343 201 04 0 00 000001 MOVEI 4,1
19090 055344 344 03 0 00 055340 AOJA 3,JFOT2
19091 055345 200 01 0 00 061125 JFOT3: MOVE 1,RAN
19092 055346 200 02 0 00 000015 MOVE 2,RAN1
19093 055347 243 01 1 04 055363 JFFO 1,@JFTAB(4)
19094 055350 332 00 0 00 061125 SKIPE RAN
19095 055351 006 01 0 00 000001 ERM 1,YY ;C(AC) HAD A BIT SET SO PC SHOULD
19096 055352 321 05 0 00 055335 JUMPL 5,JFOT1 ;HAVE GONE TO E.
19097 055353 254 00 0 00 055366 JRST JFOND
19098
19099 055354 332 00 0 00 000002 JFOT4: SKIPE 2 ;C(AC+1) GET CLEARED?
19100 055355 006 02 0 00 000002 ERM 2,YY+1 ;NO.
19101 055356 254 00 0 00 055361 JRST JFOT6
19102 055357 312 02 0 00 000003 JFOT5: CAME 2,3 ;C(AC+1) GET CORECT NUMBER OF LEADING ZERO BITS IN AC?
19103 055360 006 02 0 00 000003 ERM 2,YY+2 ;NO.
19104 055361 321 05 0 00 055335 JFOT6: JUMPL 5,JFOT1
19105 055362 254 00 0 00 055366 JRST JFOND
19106 055363 000000 055354 JFTAB: XWD 0,JFOT4
19107 055364 000000 055357 XWD 0,JFOT5
19108
19109 055365 252525 252525 K1: 252525252525
19110
19111 055366 372 00 0 00 061120 JFOND: SOSE JFCNTR ;DECREMENT JFFO RAN NUM CNT.
19112 055367 254 00 0 00 055327 JRST JFOT0A ;CONTINUE IF NON 0.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 1
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0491
19113 SUBTTL DIAGNOSTIC SECTION FOUR
19114
19115 ;COMPUTE MEMORY SIZE TO BE USED
19116
19117 055370 037 10 0 00 000002 MEMFD1: SWITCH
19118 055371 405 00 0 00 000777 ANDI 0,777
19119 055372 336 00 0 00 000000 SKIPN 0 ;MEMORY SIZE SPECIFIED ?
19120 055373 254 00 0 00 055410 JRST MEMFD3 ;NO, CHECK RELIAB & OPRSEL SWITCHES
19121 055374 242 00 0 00 000011 MEMFD2: LSH 0,9 ;POSITION HIGH ORDER
19122 055375 660 00 0 00 000777 TRO 0,777 ;SET LOW ORDER BITS
19123 055376 404 00 0 00 030147 AND 0,MEMSIZ+1 ;AND WITH ACTUAL MEMORY
19124 055377 552 00 0 00 030147 HRRZM 0,MEMSIZ+1 ;SAVE
19125 055400 311 00 0 00 030145 CAML 0,MEMLOW ;ENOUGH MEMORY FOR TEST ?
19126 055401 254 00 0 00 055415 JRST MEMFD4 ;YES
19127 MOVEI [ASCIZ/
19128 055402 201 00 0 00 060727 MEMORY SIZE SELECTED TOO SMALL/]
19129 055403 037 17 0 00 000001 PNTALF
19130 055404 201 00 0 00 030640 MOVEI PGMNAM
19131 055405 037 17 0 00 000001 PNTALF
19132 055406 037 14 0 00 000004 ERRHLT
19133 055407 254 00 0 00 030600 JRST START
19134
19135 055410 200 00 0 00 030046 MEMFD3: MOVE 0,CONSW
19136 055411 603 00 0 00 000410 TLNE RELIAB!OPRSEL ;IF EITHER RELIAB OR OPRSEL SWITCH SET
19137 055412 254 00 0 00 055415 JRST MEMFD4 ;USE ALL OF MEMORY
19138 055413 201 00 0 00 000077 MOVEI 77 ;OTHERWISE LIMIT MEMORY TO 32K
19139 055414 254 00 0 00 055374 JRST MEMFD2
19140
19141 055415 200 00 0 00 030046 MEMFD4: MOVE 0,CONSW
19142 055416 603 00 0 00 000004 TLNE 0,CHAIN ;RUNNING IN CHAIN MODE ?
19143 055417 254 00 0 00 055435 JRST PART4 ;YES
19144 055420 332 00 0 00 030037 SKIPE USER ;RUNNING IN USER MODE ?
19145 055421 254 00 0 00 055435 JRST PART4 ;YES
19146 055422 332 00 0 00 061121 SKIPE MEMONC
19147 055423 254 00 0 00 055435 JRST PART4
19148 PMSG <TESTING >^
19149 055424 037 02 0 00 060736 PSIXM [SIXBIT\TESTING _\]^
19150 055425 200 00 0 00 030147 MOVE MEMSIZ+1
19151 055426 271 00 0 00 000001 ADDI 0,1
19152 055427 231 00 0 00 002000 IDIVI ^D1024
19153 055430 037 15 0 00 000000 PNTDEC ;PRINT MEMORY SIZE BEING USED
19154 PMSG <K^>^
19155 055431 037 02 0 00 060740 PSIXM [SIXBIT\K^_\]^
19156 055432 476 00 0 00 061121 SETOM MEMONC
19157 055433 254 00 0 00 055435 JRST PART4
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 2
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0492
19158 ;CONSTANTS
19159
19160 055434 740000 000000 FLAGS: XWD AROV!CRY0!CRY1!FOV,0
19161
19162 ;COMPUTE BUFFER SIZE TO BE USED
19163
19164 055435 PART4:
19165 055435 200 01 0 00 030147 MST1: MOVE 1,MEMSIZ+1 ;GET MEMORY SIZE
19166 055436 210 01 0 00 000001 MOVN 1,1 ;MAKE (AC1) CONTAIN
19167 055437 270 01 0 00 030145 ADD 1,MEMLOW ; - HIGHEST MEM LOC + END OF PROG
19168 055440 204 01 0 00 000001 MOVS 1,1 ;IN THE LEFT HALF
19169 055441 540 01 0 00 030145 HRR 1,MEMLOW ;END OF PROG IN RIGHT HALF
19170 055442 202 01 0 00 061114 MOVEM 1,BLOK# ;SAVE
19171
19172 055443 200 01 0 00 030147 MST2: MOVE 1,MEMSIZ+1
19173 055444 204 02 0 00 000001 MOVS 2,1 ;PUT HIGHEST MEMORY LOCATION
19174 055445 540 02 0 00 000001 HRR 2,1 ;IN LEFT AND RIGHT HALF
19175 055446 202 02 0 00 061123 MOVEM 2,MODULO# ;OF MODULO
19176 055447 210 01 0 00 000001 MOVN 1,1 ;MAKE C(AC1) CONTAIN
19177 055450 270 01 0 00 030145 ADD 1,MEMLOW ;-HIGHEST MEM LOC + END OF PROGRAM
19178 055451 204 01 0 00 000001 MOVS 1,1 ;IN THE LEFT HALF
19179 055452 540 01 0 00 030145 HRR 1,MEMLOW ;END OF PROG IN RIGHT HALF
19180 055453 202 01 0 00 061132 MOVEM 1,WCBUF# ;SAVE
19181 055454 274 01 0 00 060714 SUB 1,[1,,0]
19182 055455 202 01 0 00 061115 MOVEM 1,BUFSIZ#
19183 055456 254 00 0 00 055457 JRST MSADT ;GO PERFORM DIAGNOSTIC
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 3
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0493
19184 LALL
19185 ;FAST ADDRESS TEST TO CHECK MEMORY(S)
19186
19187 000004 AC=4
19188 055457 201 03 0 00 055457 MSADT: MOVEI AC-1,.
19189 055460 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
19190 055461 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE WHICH AC IS
19191 055462 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;USED FOR KEEPING PROG IN LOOP.
19192 055463 400 02 0 00 000000 SETZ 2, ;CLEAR AC2.
19193 055464 200 01 0 00 061114 MOVE 1,BLOK ;MOVE(-TOP+END) END INTO AC1.
19194 055465 332 00 0 00 030037 MSADT2: SKIPE USER
19195 055466 254 00 0 00 055470 JRST MSADT1
19196 055467 7 000 20 0 00 040201 CONO APR,LDPAER!LAPRP1 ;DISABLE PARITY
19197 055470 202 01 0 01 000000 MSADT1: MOVEM 1,(1) ;MOVE TO MEM.
19198 055471 312 01 0 01 000000 CAME 1,(1) ;DOES IT COMPARE?
19199 055472 002 01 0 00 000001 ERRM 1,1 ;NO. PNT ERR MES.
19200 055473 332 00 0 00 030037 SKIPE USER
19201 055474 254 00 0 00 055500 JRST MSADT3
19202 055475 7 000 30 0 00 000200 MSADT4: CONSZ APR,LPARER ;KL10 PARITY ERROR ?
19203 055476 005 01 0 00 060741 ER 1,[ASCII/PAR/]
19204 055477 7 000 20 0 00 020201 CONO APR,LCPAER!LAPRP1
19205 055500 321 03 0 02 055470 MSADT3: JUMPL AC-1,MSADT1(2) ;LOOP ON ERROR SWITCH.
19206 055501 253 01 0 00 055502 AOBJN 1,.+1 ;FIX FOR GREATER THAN 128K MEM
19207 055502 603 01 0 00 770000 TLNE 1,770000
19208 055503 254 00 0 02 055470 JRST MSADT1(2) ;ADD ONE AND TRY NEXT MEM LOC.
19209 055504 431 02 0 00 000001 XORI 2,1 ;THIS MAKES C(AC2)=1 OR 0.
19210 055505 332 00 0 00 000002 SKIPE 2 ;C(AC2)=0?... GONE THROUGH 2 PASSES.
19211 055506 254 00 0 00 055465 JRST MSADT2 ;NO..DO 2ND PASS...JUST COMPARE.
19212 055507 332 00 0 00 030037 SKIPE USER
19213 055510 254 00 0 00 055512 JRST TST1
19214 055511 7 000 20 0 00 121601 CONO APR,LAPRAL!LAPRP1
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 4
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0494
19215 ;TEST MOVE, MOVEM, MOVES, HLLM, EXCH. AFTER EXECUTING
19216 ;THESE 5 INSTRUCTIONS, THE C(AC) AND C(E) SHOULD STILL
19217 ;=RANDOM NUM.
19218
19219 000010 AC=10
19220 055512 TST1: MSETUP^
19221 000011 AC1=<AC+1>&17
19222 000012 AC2=<AC+2>&17
19223 000013 AC3=<AC+3>&17
19224 000014 AC4=<AC+4>&17
19225 055512 201 07 0 00 055512 MOVEI AC-1,.
19226 055513 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
19227 055514 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
19228 055515 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
19229 055516 200 11 0 00 061114 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
19230 055517 TST1A: MRANDOM^
19231 055517 270 10 0 00 060657 ADD RA,[142536475076]
19232 055520 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
19233 055521 447 10 0 00 000010 EQVB RA,AC ;IN BOTH RA AND AC.
19234 055522 200 10 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
19235 055523 202 10 0 11 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
19236 055524 312 10 0 11 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
19237 055525 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
19238 055526 200 10 0 11 000000 TST1B: MOVE AC,(AC1) ;DO A MOVE...C(AC)+C(E) STAY SAME.
19239 055527 202 10 0 11 000000 MOVEM AC,(AC1) ;DO A MOVEM...C(AC)+C(E) STAY SAME.
19240 055530 203 10 0 11 000000 MOVES AC,(AC1) ;DO A MOVES...C(AC)+C(E) STAY SAME.
19241 055531 502 10 0 11 000000 HLLM AC,(AC1) ;DO A HLLM...C(AC)+C(E) STAY SAME.
19242 055532 250 10 0 11 000000 EXCH AC,(AC1) ;DO AN EXCH...C(AC)+C(E) STAY SAME.
19243 055533 312 10 0 00 000010 CAME AC,RA ;C(AC) SHOULD STILL=RAN. NUM.
19244 055534 001 10 0 00 000010 ERR RA,RA
19245 055535 312 10 0 11 000000 CAME RA,(AC1) ;C(E) SHOULD STILL=RAN.NUM.
19246 055536 002 10 0 00 000010 ERRM RA,RA
19247 055537 321 07 0 00 055522 JUMPL AC-1,TST1B-4 ;LOOP ON ERROR SWITCH
19248 055540 253 11 0 00 055541 AOBJN AC1,.+1
19249 055541 603 11 0 00 770000 TLNE AC1,770000
19250 055542 254 00 0 00 055517 JRST TST1A ;INC. TO TEST NEXT LOC.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 5
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0495
19251
19252 ;TEST HLLS, HRRM, ANDM, SETAB. AFTER
19253 ;EXECUTING THESE 4 INSTRUCTIONS, THE C(AC)+C(E)
19254 ;SHOULD STILL=RANDOM NUM.
19255
19256 000001 AC=1
19257 055543 TST2: MSETUP^
19258 000002 AC1=<AC+1>&17
19259 000003 AC2=<AC+2>&17
19260 000004 AC3=<AC+3>&17
19261 000005 AC4=<AC+4>&17
19262 055543 201 00 0 00 055543 MOVEI AC-1,.
19263 055544 202 00 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
19264 055545 201 00 0 00 000000 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
19265 055546 202 00 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
19266 055547 200 02 0 00 061114 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
19267 055550 TST2A: MRANDOM^
19268 055550 270 10 0 00 060657 ADD RA,[142536475076]
19269 055551 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
19270 055552 447 10 0 00 000001 EQVB RA,AC ;IN BOTH RA AND AC.
19271 055553 200 01 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
19272 055554 202 10 0 02 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
19273 055555 312 10 0 02 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
19274 055556 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
19275 055557 503 01 0 02 000000 TST2B: HLLS AC,(AC1) ;DO A HLLS INST...C(AC)+C(E) STAY SAME
19276 055560 542 01 0 02 000000 HRRM AC,(AC1) ;DO A HRRM INST...C(AC)+C(E) STAY SAME
19277 055561 406 01 0 02 000000 ANDM AC,(AC1) ;DO A HRRS INST...C(AC)+C(E) STAY SAME
19278 055562 427 01 0 02 000000 SETAB AC,(AC1) ;DO A SETMM INST...C(AC)+C(E) STAY SAME.
19279 055563 312 01 0 00 000010 CAME AC,RA ;C(AC) SHOULD STILL=RAN. NUM
19280 055564 001 10 0 00 000010 ERR RA,RA
19281 055565 312 10 0 02 000000 CAME RA,(AC1) ;C(E) SHOULD STILL=RAN NUM
19282 055566 002 10 0 00 000010 ERRM RA,RA
19283 055567 321 00 0 00 055553 JUMPL AC-1,TST2B-4 ;LOOP ON ERROR SWITCH
19284 055570 253 02 0 00 055571 AOBJN AC1,.+1
19285 055571 603 02 0 00 770000 TLNE AC1,770000
19286 055572 254 00 0 00 055550 JRST TST2A ;INC TO TEST NEXT LOC.
19287
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 6
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0496
19288
19289 ;TEST SETMB, HRRS, IORB, SETAM, SETMM. AFTER
19290 ;EXECUTING THESE 5 INSTRUCTIONS, THE C(AC)+C(E)
19291 ;SHOULD STILL=RANDOM NUMBER
19292
19293 000002 AC=2
19294 055573 TST3: MSETUP^
19295 000003 AC1=<AC+1>&17
19296 000004 AC2=<AC+2>&17
19297 000005 AC3=<AC+3>&17
19298 000006 AC4=<AC+4>&17
19299 055573 201 01 0 00 055573 MOVEI AC-1,.
19300 055574 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
19301 055575 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
19302 055576 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
19303 055577 200 03 0 00 061114 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
19304 055600 TST3A: MRANDOM^
19305 055600 270 10 0 00 060657 ADD RA,[142536475076]
19306 055601 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
19307 055602 447 10 0 00 000002 EQVB RA,AC ;IN BOTH RA AND AC.
19308 055603 200 02 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
19309 055604 202 10 0 03 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
19310 055605 312 10 0 03 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
19311 055606 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
19312 055607 417 02 0 03 000000 TST3B: SETMB AC,(AC1) ;DO A SETMB. INST...C(AC)+C(E) STAY SAME
19313 055610 543 02 0 03 000000 HRRS AC,(AC1) ;DO AN ANDM INST...C(AC)+C(E) STAY SAME
19314 055611 437 02 0 03 000000 IORB AC,(AC1) ;DO AN ANDB INST...C(AC)+C(E) STAY SAME
19315 055612 426 02 0 03 000000 SETAM AC,(AC1) ;DO A SETAM INST...C(AC)+C(E) STAY SAME
19316 055613 416 02 0 03 000000 SETMM AC,(AC1) ;DO A SETAB INST...C(AC)+C(E) STAY SAME
19317 055614 312 02 0 00 000010 CAME AC,RA ;C(AC) SHOULD STILL=RAN. NUM.
19318 055615 001 10 0 00 000010 ERR RA,RA
19319 055616 312 10 0 03 000000 CAME RA,(AC1) ;C(E) SHOULD STILL=RAN. NUM.
19320 055617 002 10 0 00 000010 ERRM RA,RA
19321 055620 321 01 0 00 055603 JUMPL AC-1,TST3B-4 ;LOOP ON ERROR SWITCH
19322 055621 253 03 0 00 055622 AOBJN AC1,.+1
19323 055622 603 03 0 00 770000 TLNE AC1,770000
19324 055623 254 00 0 00 055600 JRST TST3A ;INC TO TEST NEXT LOC.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 7
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0497
19325
19326 ;TEST IORM, ANDB, SETCMM, SETCMB. AFTER
19327 ;EXECUTING THESE 4 INSTRUCTIONS, THE C(AC)+C(E)
19328 ;SHOULD STILL=RANDOM NUMBER.
19329
19330 000003 AC=3
19331 055624 TST4: MSETUP^
19332 000004 AC1=<AC+1>&17
19333 000005 AC2=<AC+2>&17
19334 000006 AC3=<AC+3>&17
19335 000007 AC4=<AC+4>&17
19336 055624 201 02 0 00 055624 MOVEI AC-1,.
19337 055625 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
19338 055626 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
19339 055627 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
19340 055630 200 04 0 00 061114 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
19341 055631 TST4A: MRANDOM^
19342 055631 270 10 0 00 060657 ADD RA,[142536475076]
19343 055632 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
19344 055633 447 10 0 00 000003 EQVB RA,AC ;IN BOTH RA AND AC.
19345 055634 200 03 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
19346 055635 202 10 0 04 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
19347 055636 312 10 0 04 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
19348 055637 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
19349 ;IF ORIGIN C(AC)=0011,C(E)=0011
19350 055640 436 03 0 04 000000 TST4B: IORM AC,(AC1) ;C(AC)=0011, C(E)=0011
19351 055641 407 03 0 04 000000 ANDB AC,(AC1) ;C(AC)=0011, C(E)=0011
19352 055642 462 03 0 04 000000 SETCMM AC,(AC1) ;C(AC)=0011, C(E)=1100
19353 055643 463 03 0 04 000000 SETCMB AC,(AC1) ;C(AC)=0011, C(E)=0011
19354 055644 312 03 0 00 000010 CAME AC,RA ;C(AC) SHOULD STILL=RAN. NUM.
19355 055645 001 10 0 00 000010 ERR RA,RA
19356 055646 312 10 0 04 000000 CAME RA,(AC1) ;C(E) SHOULD STILL=RAN. NUM.
19357 055647 002 10 0 00 000010 ERRM RA,RA
19358 055650 321 02 0 00 055634 JUMPL AC-1,TST4B-4 ;LOOP ON ERROR SWITCH
19359 055651 253 04 0 00 055652 AOBJN AC1,.+1
19360 055652 603 04 0 00 770000 TLNE AC1,770000
19361 055653 254 00 0 00 055631 JRST TST4A ;INC TO TEST NEXT LOC.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 8
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0498
19362
19363 ;TEST MOVSM, MOVSS, MOVNM, MOVNS. AFTER
19364 ;EXECUTING THESE 4 INSTRUCTIONS, THE C(AC)+C(E)
19365 ;SHOULD STILL=RANDOM NUMBER
19366
19367 000004 AC=4
19368 055654 TST5: MSETUP^
19369 000005 AC1=<AC+1>&17
19370 000006 AC2=<AC+2>&17
19371 000007 AC3=<AC+3>&17
19372 000010 AC4=<AC+4>&17
19373 055654 201 03 0 00 055654 MOVEI AC-1,.
19374 055655 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
19375 055656 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
19376 055657 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
19377 055660 200 05 0 00 061114 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
19378 055661 TST5A: MRANDOM^
19379 055661 270 10 0 00 060657 ADD RA,[142536475076]
19380 055662 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
19381 055663 447 10 0 00 000004 EQVB RA,AC ;IN BOTH RA AND AC.
19382 055664 200 04 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
19383 055665 202 10 0 05 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
19384 055666 312 10 0 05 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
19385 055667 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
19386 ;IF C(AC)+C(E)=(0011)0101
19387 055670 206 04 0 05 000000 TST5B: MOVSM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0101)0011
19388 055671 207 04 0 05 000000 MOVSS AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0011)0101
19389 055672 212 04 0 05 000000 MOVNM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(1100)1011
19390 055673 213 04 0 05 000000 MOVNS AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0011)0101
19391 055674 312 04 0 00 000010 CAME AC,RA ;C(AC) SHOULD STILL=RAN. NUM
19392 055675 001 10 0 00 000010 ERR RA,RA
19393 055676 312 10 0 05 000000 CAME RA,(AC1) ;C(E) SHOULD STILL=RAN. NUM.
19394 055677 002 10 0 00 000010 ERRM RA,RA
19395 055700 321 03 0 00 055664 JUMPL AC-1,TST5B-4 ;LOOP ON ERROR SWITCH
19396 055701 253 05 0 00 055702 AOBJN AC1,.+1
19397 055702 603 05 0 00 770000 TLNE AC1,770000
19398 055703 254 00 0 00 055661 JRST TST5A ;INC TO TEST NEXT LOC.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 9
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0499
19399
19400 ;TEST HRLM, HLRN, MOVSS, XORM, XORB. AFTER
19401 ;EXECUTING THESE 5 INSTRUCTIONS, THE C(AC)+C(E)
19402 ;SHOULD STILL=RANDOM NUMBER.
19403
19404 000005 AC=5
19405 055704 TST6: MSETUP^
19406 000006 AC1=<AC+1>&17
19407 000007 AC2=<AC+2>&17
19408 000010 AC3=<AC+3>&17
19409 000011 AC4=<AC+4>&17
19410 055704 201 04 0 00 055704 MOVEI AC-1,.
19411 055705 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
19412 055706 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
19413 055707 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
19414 055710 200 06 0 00 061114 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
19415 055711 TST6A: MRANDOM^
19416 055711 270 10 0 00 060657 ADD RA,[142536475076]
19417 055712 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
19418 055713 447 10 0 00 000005 EQVB RA,AC ;IN BOTH RA AND AC.
19419 055714 200 05 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
19420 055715 202 10 0 06 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
19421 055716 312 10 0 06 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
19422 055717 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
19423 ;IF C(AC)+C(E)=(0011)0101
19424 055720 506 05 0 06 000000 TST6B: HRLM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0101)0101
19425 055721 546 05 0 06 000000 HLRM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0101)0011
19426 055722 207 05 0 06 000000 MOVSS AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0011)0101
19427 055723 432 05 0 06 000000 XORM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0000)0000
19428 055724 433 05 0 06 000000 XORB AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0011)0101
19429 055725 312 05 0 00 000010 CAME AC,RA ;C(AC) SHOULD STILL=RAN. NUM
19430 055726 001 10 0 00 000010 ERR RA,RA
19431 055727 312 10 0 06 000000 CAME RA,(AC1) ;C(E) SHOULD STILL=RAN. NUM.
19432 055730 002 10 0 00 000010 ERRM RA,RA
19433 055731 321 04 0 00 055714 JUMPL AC-1,TST6B-4 ;LOOP ON ERROR SWITCH.
19434 055732 253 06 0 00 055733 AOBJN AC1,.+1
19435 055733 603 06 0 00 770000 TLNE AC1,770000
19436 055734 254 00 0 00 055711 JRST TST6A ;INC TO TEST NEXT LOC.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 10
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0500
19437
19438 ;TEST EQVM, ORCMM, ORCAM, EQVB. AFTER
19439 ;EXECUTING THESE 4 INSTRUCTIONS, THE C(AC)+
19440 ;C(E) SHOULD STILL=RANDOM NUMBER
19441
19442 000006 AC=6
19443 055735 TST7: MSETUP^
19444 000007 AC1=<AC+1>&17
19445 000010 AC2=<AC+2>&17
19446 000011 AC3=<AC+3>&17
19447 000012 AC4=<AC+4>&17
19448 055735 201 05 0 00 055735 MOVEI AC-1,.
19449 055736 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
19450 055737 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
19451 055740 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
19452 055741 200 07 0 00 061114 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
19453 055742 TST7A: MRANDOM^
19454 055742 270 10 0 00 060657 ADD RA,[142536475076]
19455 055743 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
19456 055744 447 10 0 00 000006 EQVB RA,AC ;IN BOTH RA AND AC.
19457 055745 200 06 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
19458 055746 202 10 0 07 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
19459 055747 312 10 0 07 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
19460 055750 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
19461 ;IF C(AC)+C(E)=(0011)0101
19462 055751 446 06 0 07 000000 TST7B: EQVM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(1111)1111
19463 055752 466 06 0 07 000000 ORCMM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0011)0101
19464 055753 456 06 0 07 000000 ORCAM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(1111)1111
19465 055754 447 06 0 07 000000 EQVB AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0011)0101
19466 055755 312 06 0 00 000010 CAME AC,RA ;C(AC) SHOULD STILL=RAN. NUM
19467 055756 001 10 0 00 000010 ERR RA,RA
19468 055757 312 10 0 07 000000 CAME RA,(AC1) ;C(E) SHOULD STILL=RAN. NUM
19469 055760 002 10 0 00 000010 ERRM RA,RA
19470 055761 321 05 0 00 055745 JUMPL AC-1,TST7B-4 ;LOOP ON ERROR SWITCH.
19471 055762 253 07 0 00 055763 AOBJN AC1,.+1
19472 055763 603 07 0 00 770000 TLNE AC1,770000
19473 055764 254 00 0 00 055742 JRST TST7A ;INC TO TEST NEXT LOC.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 11
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0501
19474
19475 ;TEST ANDCAM, ANDCMM, ANDCBB, SETCAB. AFTER
19476 ;EXECUTING THESE 4 INSTRUCTIONS, THE C(AC)+
19477 ;C(E) SHOULD STILL=RANDOM NUMBER.
19478
19479 000012 AC=12
19480 055765 TST10: MSETUP^
19481 000013 AC1=<AC+1>&17
19482 000014 AC2=<AC+2>&17
19483 000015 AC3=<AC+3>&17
19484 000016 AC4=<AC+4>&17
19485 055765 201 11 0 00 055765 MOVEI AC-1,.
19486 055766 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
19487 055767 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
19488 055770 202 11 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
19489 055771 200 13 0 00 061114 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
19490 055772 TST10A: MRANDOM^
19491 055772 270 10 0 00 060657 ADD RA,[142536475076]
19492 055773 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
19493 055774 447 10 0 00 000012 EQVB RA,AC ;IN BOTH RA AND AC.
19494 055775 200 12 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
19495 055776 202 10 0 13 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
19496 055777 312 10 0 13 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
19497 056000 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
19498 ;IF C(AC)+C(E)=(0011)0101,
19499 056001 412 12 0 13 000000 TST10B: ANDCAM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0000)0000
19500 056002 422 12 0 13 000000 ANDCMM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0011)0101
19501 056003 443 12 0 13 000000 ANDCBB AC,(AC1) ;C(AC)=(1100)1010, C(E)=(1100)1010
19502 056004 453 12 0 13 000000 SETCAB AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0011)0101
19503 056005 312 12 0 00 000010 CAME AC,RA ;C(AC) SHOULD STILL=RAN. NUM.
19504 056006 001 10 0 00 000010 ERR RA,RA
19505 056007 312 10 0 13 000000 CAME RA,(AC1) ;C(E) SHOULD STILL=RAN. NUM.
19506 056010 002 10 0 00 000010 ERRM RA,RA
19507 056011 321 11 0 00 055775 JUMPL AC-1,TST10B-4 ;LOOP ON ERROR SWITCH.
19508 056012 253 13 0 00 056013 AOBJN AC1,.+1
19509 056013 603 13 0 00 770000 TLNE AC1,770000
19510 056014 254 00 0 00 055772 JRST TST10A ;INC TO TEST NEXT LOC.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 12
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0502
19511
19512 ;TEST SETCAM, ORCAB, ORCBM, AND CAB, AFTER
19513 ;EXECUTING THESE 4 INSTRUCTIONS, THE C(AC)+
19514 ;C(E) SHOULD STILL=RANDOM NUMBER.
19515
19516 000012 AC=12
19517 056015 TST11: MSETUP^
19518 000013 AC1=<AC+1>&17
19519 000014 AC2=<AC+2>&17
19520 000015 AC3=<AC+3>&17
19521 000016 AC4=<AC+4>&17
19522 056015 201 11 0 00 056015 MOVEI AC-1,.
19523 056016 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
19524 056017 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
19525 056020 202 11 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
19526 056021 200 13 0 00 061114 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
19527 056022 TST11A: MRANDOM^
19528 056022 270 10 0 00 060657 ADD RA,[142536475076]
19529 056023 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
19530 056024 447 10 0 00 000012 EQVB RA,AC ;IN BOTH RA AND AC.
19531 056025 200 12 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
19532 056026 202 10 0 13 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
19533 056027 312 10 0 13 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
19534 056030 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
19535 ;IF C(AC)+C(E)=(0011)0101,
19536 056031 452 12 0 13 000000 TST11B: SETCAM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(1100)1010
19537 056032 457 12 0 13 000000 ORCAB AC,(AC1) ;C(AC)=(1100)1010, C(E)=(1100)1010
19538 056033 472 12 0 13 000000 ORCBM AC,(AC1) ;C(AC)=(1100)1010, C(E)=(0011)0101
19539 056034 413 12 0 13 000000 ANDCAB AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0011)0101
19540 056035 312 12 0 00 000010 CAME AC,RA ;C(AC) SHOULD STILL=RAN. NUM.
19541 056036 001 10 0 00 000010 ERR RA,RA
19542 056037 312 10 0 13 000000 CAME RA,(AC1) ;C(E) SHOULD STILL=RAN. NUM.
19543 056040 002 10 0 00 000010 ERRM RA,RA
19544 056041 321 11 0 00 056025 JUMPL AC-1,TST11B-4 ;LOOP ON ERROR SWITCH.
19545 056042 253 13 0 00 056043 AOBJN AC1,.+1
19546 056043 603 13 0 00 770000 TLNE AC1,770000
19547 056044 254 00 0 00 056022 JRST TST11A ;INC TO TEST NEXT LOC.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 13
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0503
19548
19549 ;TEST SETZM, ANDCBM, ORCMB. AFTER
19550 ;EXECUTING THESE 3 INSTRUCTIONS, THE C(AC)
19551 ;+C(E) SHOULD=RANDOM NUMBER.
19552
19553 000013 AC=13
19554 056045 TST12: MSETUP^
19555 000014 AC1=<AC+1>&17
19556 000015 AC2=<AC+2>&17
19557 000016 AC3=<AC+3>&17
19558 000017 AC4=<AC+4>&17
19559 056045 201 12 0 00 056045 MOVEI AC-1,.
19560 056046 202 12 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
19561 056047 201 12 0 00 000012 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
19562 056050 202 12 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
19563 056051 200 14 0 00 061114 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
19564 056052 TST12A: MRANDOM^
19565 056052 270 10 0 00 060657 ADD RA,[142536475076]
19566 056053 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
19567 056054 447 10 0 00 000013 EQVB RA,AC ;IN BOTH RA AND AC.
19568 056055 200 13 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
19569 056056 202 10 0 14 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
19570 056057 312 10 0 14 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
19571 056060 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
19572 ;IF C(AC(+C(E)=(0011)0101
19573 056061 402 13 0 14 000000 TST12B: SETZM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0000)0000
19574 056062 442 13 0 14 000000 ANDCBM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(1100)1010
19575 056063 467 13 0 14 000000 ORCMB AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0011)0101
19576 056064 312 13 0 00 000010 CAME AC,RA ;C(AC) SHOULD STILL=RAN. NUM.
19577 056065 001 10 0 00 000010 ERR RA,RA
19578 056066 312 10 0 14 000000 CAME RA,(AC1) ;C(E) SHOULD STILL=RAN. NUM.
19579 056067 002 10 0 00 000010 ERRM RA,RA
19580 056070 321 12 0 00 056055 JUMPL AC-1,TST12B-4 ;LOOP ON ERROR SWITCH.
19581 056071 253 14 0 00 056072 AOBJN AC1,.+1
19582 056072 603 14 0 00 770000 TLNE AC1,770000
19583 056073 254 00 0 00 056052 JRST TST12A ;INC TO TEST NEXT LOC.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 14
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0504
19584
19585 ;TEST HRLS, HLRS. CHECK FOR
19586 ;CORRECT DATA IN THE C(AC) AND C(E).
19587 ;C(AC)+C(E)=RAN. NUM.
19588
19589 000001 AC=1
19590 056074 TST13: MSETUP^
19591 000002 AC1=<AC+1>&17
19592 000003 AC2=<AC+2>&17
19593 000004 AC3=<AC+3>&17
19594 000005 AC4=<AC+4>&17
19595 056074 201 00 0 00 056074 MOVEI AC-1,.
19596 056075 202 00 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
19597 056076 201 00 0 00 000000 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
19598 056077 202 00 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
19599 056100 200 02 0 00 061114 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
19600 056101 TST13A: MRANDOM^
19601 056101 270 10 0 00 060657 ADD RA,[142536475076]
19602 056102 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
19603 056103 447 10 0 00 000001 EQVB RA,AC ;IN BOTH RA AND AC.
19604 056104 200 01 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
19605 056105 202 10 0 02 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
19606 056106 312 10 0 02 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
19607 056107 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
19608 056110 205 03 0 10 000000 TST13B: MOVSI AC2,(RA) ;SIMULAT A
19609 056111 435 03 0 10 000000 IORI AC2,(RA) ;HRLS INST.
19610 056112 507 01 0 02 000000 HRLS AC,(AC1) ;DO A HRLS
19611 056113 312 01 0 02 000000 CAME AC,(AC1) ;C(AC) SHOULD=C(E).
19612 056114 001 10 0 00 000010 ERR RA,RA
19613 056115 312 03 0 02 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
19614 056116 002 10 0 00 000010 ERRM RA,RA
19615 056117 204 04 0 00 000010 MOVS AC3,RA ;SIMULATE
19616 056120 205 03 0 04 000000 MOVSI AC2,(AC3) ;A
19617 056121 435 03 0 04 000000 IORI AC2,(AC3) ;HLRS INST.
19618 056122 200 01 0 00 000010 MOVE AC,RA ;RESTORE C(AC).
19619 056123 202 01 0 02 000000 MOVEM AC,(AC1) ;RESTORE C(E).
19620 056124 547 01 0 02 000000 HLRS AC,(AC1) ;DO A HLRS INST.
19621 056125 312 01 0 02 000000 CAME AC,(AC1) ;C(AC) SHOULD=C(E).
19622 056126 001 10 0 00 000010 ERR RA,RA
19623 056127 312 03 0 02 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
19624 056130 002 10 0 00 000010 ERRM RA,RA
19625 056131 321 00 0 00 056104 JUMPL AC-1,TST13B-4 ;LOOP ON ERROR SWITCH.
19626 056132 253 02 0 00 056133 AOBJN AC1,.+1
19627 056133 603 02 0 00 770000 TLNE AC1,770000
19628 056134 254 00 0 00 056101 JRST TST13A ;INC TO TEST NEXT LOC.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 15
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0505
19629
19630 ;TEST HRLZM, HLRZS, HLRZM, HRLZS. CHECK
19631 ;FOR CORRECT DATA IN THE C(AC)+C(E).
19632 ;C(AC)+C(E)=RAN. NUM.
19633
19634 000014 AC=14
19635 056135 TST14: MSETUP^
19636 000015 AC1=<AC+1>&17
19637 000016 AC2=<AC+2>&17
19638 000017 AC3=<AC+3>&17
19639 000000 AC4=<AC+4>&17
19640 056135 201 13 0 00 056135 MOVEI AC-1,.
19641 056136 202 13 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
19642 056137 201 13 0 00 000013 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
19643 056140 202 13 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
19644 056141 200 15 0 00 061114 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
19645 056142 TST14A: MRANDOM^
19646 056142 270 10 0 00 060657 ADD RA,[142536475076]
19647 056143 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
19648 056144 447 10 0 00 000014 EQVB RA,AC ;IN BOTH RA AND AC.
19649 056145 200 14 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
19650 056146 202 10 0 15 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
19651 056147 312 10 0 15 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
19652 056150 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
19653 ;IF C(AC)+C(E)=(0011)0101
19654 056151 516 14 0 15 000000 TST14B: HRLZM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0101)000
19655 056152 557 00 0 15 000000 HLRZS 0,(AC1) ;C(AC)=(0011)0101,C(E)=(0000)0101
19656 056153 502 14 0 15 000000 HLLM AC,(AC1) ;C(AC)=(0011)0101,C(E)=(0011)0101
19657 056154 312 14 0 00 000010 CAME AC,RA ;C(AC)SHOULD=RAN. NUM.
19658 056155 001 10 0 00 000010 ERR RA,RA
19659 056156 312 10 0 15 000000 CAME RA,(AC1) ;C(E) SHOULD=RAN. NUM.
19660 056157 002 10 0 00 000010 ERRM RA,RA
19661 056160 556 14 0 15 000000 HLRZM AC,(AC1) ;C(AC)=(0011)0101,C(E)=(0000)0011
19662 056161 517 00 0 15 000000 HRLZS 0,(AC1) ;C(AC)=(0011)0101,C(E)=(0011)0000
19663 056162 542 14 0 15 000000 HRRM AC,(AC1) ;C(AC)=(0011)0101,C(E)=)0011)0101
19664 056163 312 14 0 00 000010 CAME AC,RA ;C(AC)SHOULD=RAN. NUM.
19665 056164 001 10 0 00 000010 ERR RA,RA
19666 056165 312 10 0 15 000000 CAME RA,(AC1) ;C(E)SHOULD=RAN. NUM.
19667 056166 002 10 0 00 000010 ERRM RA,RA
19668 056167 321 13 0 00 056145 JUMPL AC-1,TST14B-4 ;LOOP ON ERROR SWITCH.
19669 056170 253 15 0 00 056171 AOBJN AC1,.+1
19670 056171 603 15 0 00 770000 TLNE AC1,770000
19671 056172 254 00 0 00 056142 JRST TST14A ;INC TO TEST NEXT LOC.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 16
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0506
19672
19673 ;TEST HRLOM, HLROS, HLROM, HRLOS. CHECK FOR
19674 ;CORRECT DATA IN THE C(AC)+C(E).
19675 ;C(AC)+C(E)=RAN. NUM.
19676
19677 000015 AC=15
19678 056173 TST15: MSETUP^
19679 000016 AC1=<AC+1>&17
19680 000017 AC2=<AC+2>&17
19681 000000 AC3=<AC+3>&17
19682 000001 AC4=<AC+4>&17
19683 056173 201 14 0 00 056173 MOVEI AC-1,.
19684 056174 202 14 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
19685 056175 201 14 0 00 000014 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
19686 056176 202 14 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
19687 056177 200 16 0 00 061114 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
19688 056200 TST15A: MRANDOM^
19689 056200 270 10 0 00 060657 ADD RA,[142536475076]
19690 056201 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
19691 056202 447 10 0 00 000015 EQVB RA,AC ;IN BOTH RA AND AC.
19692 056203 200 15 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
19693 056204 202 10 0 16 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
19694 056205 312 10 0 16 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
19695 056206 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
19696 ;IF C(AC)+C(E)=(0011)0101
19697 056207 526 15 0 16 000000 TST15B: HRLOM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0101)1111
19698 056210 567 00 0 16 000000 HLROS 0,(AC1) ;C(AC)=)0011)0101, C(E)=(1111)0101
19699 056211 502 15 0 16 000000 HLLM AC,(AC1) ;C(E)=(0011)0101, C(E)=(0011)0101
19700 056212 312 15 0 00 000010 CAME AC,RA ;C(AC) SHOULD=RAN. NUM.
19701 056213 001 10 0 00 000010 ERR RA,RA
19702 056214 312 10 0 16 000000 CAME RA,(AC1) ;C(E) SHOULD=RAN. NUM.
19703 056215 002 10 0 00 000010 ERRM RA,RA
19704 056216 566 15 0 16 000000 HLROM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(1111)0011
19705 056217 527 00 0 16 000000 HRLOS 0,(AC1) ;C(E)=(0011)1111
19706 056220 542 15 0 16 000000 HRRM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0011)0101
19707 056221 312 15 0 00 000010 CAME AC,RA ;C(AC) SHOULD=RAN. NUM.
19708 056222 001 10 0 00 000010 ERR RA,RA
19709 056223 312 10 0 16 000000 CAME RA,(AC1) ;C(E) SHOULD = RAN. NUM.
19710 056224 002 10 0 00 000010 ERRM RA,RA
19711 056225 321 14 0 00 056203 JUMPL AC-1,TST15B-4 ;LOOP ON ERROR SWITCH.
19712 056226 253 16 0 00 056227 AOBJN AC1,.+1
19713 056227 603 16 0 00 770000 TLNE AC1,770000
19714 056230 254 00 0 00 056200 JRST TST15A ;INC TO TEST NEXT LOC.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 17
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0507
19715
19716 ;TEST HRLEM, HLRES, HLREM, HRLES. CHECK
19717 ;FOR CORRECT DATA IN THE C(AC)+C(E).
19718 ;C(AC)+C(E)=RAN. NUM.
19719
19720 000001 AC=1
19721 056231 TST16: MSETUP^
19722 000002 AC1=<AC+1>&17
19723 000003 AC2=<AC+2>&17
19724 000004 AC3=<AC+3>&17
19725 000005 AC4=<AC+4>&17
19726 056231 201 00 0 00 056231 MOVEI AC-1,.
19727 056232 202 00 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
19728 056233 201 00 0 00 000000 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
19729 056234 202 00 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
19730 056235 200 02 0 00 061114 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
19731 056236 TST16A: MRANDOM^
19732 056236 270 10 0 00 060657 ADD RA,[142536475076]
19733 056237 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
19734 056240 447 10 0 00 000001 EQVB RA,AC ;IN BOTH RA AND AC.
19735 056241 200 01 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
19736 056242 202 10 0 02 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
19737 056243 312 10 0 02 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
19738 056244 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
19739 056245 620 01 0 00 400000 TST16B: TRZ AC,400000 ;CLEAR BIT 18 IN AC.
19740 056246 200 03 0 00 000001 MOVE AC2,AC ;SAVE FOR FUTURE COMPARE.
19741 ;IF C(AC)+C(E)=(0011)0101
19742 056247 536 01 0 02 000000 HRLEM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0011)0101
19743 056250 577 00 0 02 000000 HLRES 0,(AC1) ;C(AC)=(0011)0101, C(E)=(0000)0101
19744 056251 502 01 0 02 000000 HLLM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0011)0101
19745 056252 312 01 0 00 000003 CAME AC,AC2 ;C(AC)SHOULD=ORIG C(AC).
19746 056253 001 10 0 00 000003 ERR RA,AC2
19747 056254 312 03 0 02 000000 CAME AC2,(AC1) ;C(E) SHOULD=ORIG C(AC).
19748 056255 002 10 0 00 000003 ERRM RA,AC2
19749 056256 621 01 0 00 400000 TLZ AC,400000 ;CLEAR BIT 0.
19750 056257 200 03 0 00 000001 MOVE AC2,AC ;SAVE FOR FUTURE COMPARE.
19751 056260 576 01 0 02 000000 HLREM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0000)0011
19752 056261 537 00 0 02 000000 HRLES 0,(AC1) ;C(AC)=(0011)0101, C(E)=(0011)0000
19753 056262 542 01 0 02 000000 HRRM AC,(AC1) ;C(AC) = (0011)0101, C(E) = (0011)0101.
19754 056263 312 01 0 00 000003 CAME AC,AC2 ;C(AC)SHOULD=ORIG C(AC).
19755 056264 001 10 0 00 000003 ERR RA,AC2
19756 056265 312 03 0 02 000000 CAME AC2,(AC1) ;C(E) SHOULD=ORIG C(AC).
19757 056266 002 10 0 00 000003 ERRM RA,AC2
19758 056267 321 00 0 00 056241 JUMPL AC-1,TST16B-4 ;LOOP ON ERROR SWITCH
19759 056270 253 02 0 00 056271 AOBJN AC1,.+1
19760 056271 603 02 0 00 770000 TLNE AC1,770000
19761 056272 254 00 0 00 056236 JRST TST16A ;INC TO TEST NEXT LOC.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 18
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0508
19762
19763 ;TEST HRLEM, HLRES, HLREM, HRLES. CHECK
19764 ;FOR CORRECT DATA IN AC AND C(E).
19765 ;C(AC)+C(E)=RAN. NUM.
19766
19767 000002 AC=2
19768 056273 TST17: MSETUP^
19769 000003 AC1=<AC+1>&17
19770 000004 AC2=<AC+2>&17
19771 000005 AC3=<AC+3>&17
19772 000006 AC4=<AC+4>&17
19773 056273 201 01 0 00 056273 MOVEI AC-1,.
19774 056274 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
19775 056275 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
19776 056276 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
19777 056277 200 03 0 00 061114 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
19778 056300 TST17A: MRANDOM^
19779 056300 270 10 0 00 060657 ADD RA,[142536475076]
19780 056301 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
19781 056302 447 10 0 00 000002 EQVB RA,AC ;IN BOTH RA AND AC.
19782 056303 200 02 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
19783 056304 202 10 0 03 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
19784 056305 312 10 0 03 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
19785 056306 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
19786 056307 660 02 0 00 400000 TST17B: TRO AC,400000 ;SET BIT 18 IN AC.
19787 056310 200 04 0 00 000002 MOVE AC2,AC ;SAVE C(AC) BOR FUTURE COMPARE
19788 ;IF C(AC)+C(E)=(0011)1101
19789 056311 536 02 0 03 000000 HRLEM AC,(AC1) ;C(AC)=(0011)1101, C(E)=(1101)1111
19790 056312 577 00 0 03 000000 HLRES 0,(AC1) ;C(AC)=(0011)1101, C(E)=(0011)1101
19791 056313 502 02 0 03 000000 HLLM AC,(AC1) ;C(AC)=(0011)1101, C(E)=(0011)1101
19792 056314 312 02 0 00 000004 CAME AC,AC2 ;C(AC) SHOULD=ORIG C(AC).
19793 056315 001 10 0 00 000004 ERR RA,AC2
19794 056316 312 04 0 03 000000 CAME AC2,(AC1) ;C(E) SHOULD=ORIG C(AC)
19795 056317 002 10 0 00 000004 ERRM RA,AC2
19796 056320 661 02 0 00 400000 TLO AC,400000 ;SET BIT 0 IN AC.
19797 056321 200 04 0 00 000002 MOVE AC2,AC ;SAVE FOR FUTURE COMPARE
19798 ;IF C(AC)+C(E)=(1010)1101
19799 056322 576 02 0 03 000000 HLREM AC,(AC1) ;C(AC)=(1011)1101, C(E)=(1111)1011
19800 056323 537 00 0 03 000000 HRLES 0,(AC1) ;C(AC)=(1011)1101, C(E)=(1011)1111
19801 056324 542 02 0 03 000000 HRRM AC,(AC1) ;C(AC)=(1011)1101, C(E)=(1011)1101
19802 056325 312 02 0 00 000004 CAME AC,AC2 ;C(AC) SHOULD=ORIG C(AC).
19803 056326 001 10 0 00 000004 ERR RA,AC2
19804 056327 312 04 0 03 000000 CAME AC2,(AC1) ;C(E) SHOULD = ORIG C(AC).
19805 056330 002 10 0 00 000004 ERRM RA,AC2
19806 056331 321 01 0 00 056303 JUMPL AC-1,TST17B-4 ;LOOP ON ERROR SWITCH.
19807 056332 253 03 0 00 056333 AOBJN AC1,.+1
19808 056333 603 03 0 00 770000 TLNE AC1,770000
19809 056334 254 00 0 00 056300 JRST TST17A ;INC TO TEST NEXT LOC.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 19
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0509
19810
19811 ;TEST HLLOM, HLLZS, HRROM, HRRZS. CHECK FOR
19812 ;CORRECT DATA IN AC AND C(E).
19813 ;C(AC)+C(E)=RAN. NUM.
19814
19815 000001 AC=1
19816 056335 TST20: MSETUP^
19817 000002 AC1=<AC+1>&17
19818 000003 AC2=<AC+2>&17
19819 000004 AC3=<AC+3>&17
19820 000005 AC4=<AC+4>&17
19821 056335 201 00 0 00 056335 MOVEI AC-1,.
19822 056336 202 00 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
19823 056337 201 00 0 00 000000 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
19824 056340 202 00 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
19825 056341 200 02 0 00 061114 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
19826 056342 TST20A: MRANDOM^
19827 056342 270 10 0 00 060657 ADD RA,[142536475076]
19828 056343 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
19829 056344 447 10 0 00 000001 EQVB RA,AC ;IN BOTH RA AND AC.
19830 056345 200 01 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
19831 056346 202 10 0 02 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
19832 056347 312 10 0 02 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
19833 056350 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
19834 056351 200 03 0 00 000001 TST20B: MOVE AC2,AC ;SIMULATE A
19835 056352 660 03 0 00 777777 TRO AC2,-1 ;HLLOM INST
19836 056353 522 01 0 02 000000 HLLOM AC,(AC1) ;DO HLLOM.
19837 056354 312 03 0 02 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
19838 056355 002 10 0 00 000010 ERRM RA,RA
19839 056356 620 03 0 00 777777 TRZ AC2,-1 ;SIMULATE A HLLSZ INST.
19840 056357 513 01 0 02 000000 HLLZS AC,(AC1) ;DO A HLLZS.
19841 056360 312 01 0 00 000003 CAME AC,AC2 ;C(AC) SHOULD=SIM ANS.
19842 056361 001 10 0 00 000010 ERR RA,RA
19843 056362 312 03 0 02 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
19844 056363 002 10 0 00 000010 ERRM RA,RA
19845 056364 200 01 0 00 000010 MOVE AC,RA ;RESTOR C(AC)
19846 056365 200 03 0 00 000010 MOVE AC2,RA ;SIMULATE A
19847 056366 661 03 0 00 777777 TLO AC2,-1 ;HRROM INST.
19848 056367 562 01 0 02 000000 HRROM AC,(AC1) ;DO A HRROM.
19849 056370 312 03 0 02 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
19850 056371 001 10 0 00 000010 ERR RA,RA
19851 056372 621 03 0 00 777777 TLZ AC2,-1 ;SIMULATE A HRRZS INST.
19852 056373 553 01 0 02 000000 HRRZS AC,(AC1) ;DO A HRRZS INST.
19853 056374 312 01 0 00 000003 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS.
19854 056375 001 10 0 00 000010 ERR RA,RA
19855 056376 312 03 0 02 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
19856 056377 002 10 0 00 000010 ERRM RA,RA
19857 056400 321 00 0 00 056345 JUMPL AC-1,TST20B-4 ;LOOP ON ERROR SWITCH.
19858 056401 253 02 0 00 056402 AOBJN AC1,.+1
19859 056402 603 02 0 00 770000 TLNE AC1,770000
19860 056403 254 00 0 00 056342 JRST TST20A ;INC TO TEST NEXT LOC.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 20
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0510
19861
19862 ;TEST HLLOS, HLLZM, HRROS, HRRZM. CHECK FOR
19863 ;CORRECT DATA IN AC AND C(E).
19864 ;C(AC)+C(E)=RAN. NUM.
19865
19866 000002 AC=2
19867 056404 TST21: MSETUP^
19868 000003 AC1=<AC+1>&17
19869 000004 AC2=<AC+2>&17
19870 000005 AC3=<AC+3>&17
19871 000006 AC4=<AC+4>&17
19872 056404 201 01 0 00 056404 MOVEI AC-1,.
19873 056405 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
19874 056406 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
19875 056407 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
19876 056410 200 03 0 00 061114 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
19877 056411 TST21A: MRANDOM^
19878 056411 270 10 0 00 060657 ADD RA,[142536475076]
19879 056412 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
19880 056413 447 10 0 00 000002 EQVB RA,AC ;IN BOTH RA AND AC.
19881 056414 200 02 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
19882 056415 202 10 0 03 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
19883 056416 312 10 0 03 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
19884 056417 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
19885 056420 200 04 0 00 000002 TST21B: MOVE AC2,AC ;SIMULATE A
19886 056421 660 04 0 00 777777 TRO AC2,-1 ;HLLOS INST.
19887 056422 523 02 0 03 000000 HLLOS AC,(AC1) ;DO A HLLOS.
19888 056423 312 02 0 00 000004 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS.
19889 056424 001 10 0 00 000010 ERR RA,RA
19890 056425 312 04 0 03 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
19891 056426 002 10 0 00 000010 ERRM RA,RA
19892 056427 200 05 0 00 000002 MOVE AC3,AC ;SAVE C(AC) IN CASE OF ERR.
19893 056430 620 04 0 00 777777 TRZ AC2,-1 ;SIMULATE A HLLZM INST.
19894 056431 512 02 0 03 000000 HLLZM AC,(AC1) ;DO A HLLZM
19895 056432 312 04 0 03 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
19896 056433 002 05 0 00 000005 ERRM AC3,AC3
19897 056434 200 02 0 00 000010 MOVE AC,RA ;RESTORE C(AC).
19898 056435 202 02 0 03 000000 MOVEM AC,(AC1) ;RESTORE C(E).
19899 056436 200 04 0 00 000010 MOVE AC2,RA ;SIMULATE A
19900 056437 661 04 0 00 777777 TLO AC2,-1 ;HRROS INST.
19901 056440 563 02 0 03 000000 HRROS AC,(AC1) ;DO A HRROS
19902 056441 312 02 0 00 000004 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS.
19903 056442 001 10 0 00 000010 ERR RA,RA
19904 056443 312 04 0 03 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
19905 056444 002 10 0 00 000010 ERRM RA,RA
19906 056445 200 05 0 00 000002 MOVE AC3,AC ;SAVE C(AC) IN CASE OF ERROR.
19907 056446 621 04 0 00 777777 TLZ AC2,-1 ;SIMULATE A HRRZM INST.
19908 056447 552 02 0 03 000000 HRRZM AC,(AC1) ;DO A HRRZM.
19909 056450 312 04 0 03 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
19910 056451 002 05 0 00 000005 ERRM AC3,AC3
19911 056452 321 01 0 00 056414 JUMPL AC-1,TST21B-4 ;LOOP ON ERROR SWITCH
19912 056453 253 03 0 00 056454 AOBJN AC1,.+1
19913 056454 603 03 0 00 770000 TLNE AC1,770000
19914 056455 254 00 0 00 056411 JRST TST21A ;INC TO TEST NEXT LOC.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 21
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0511
19915
19916 ;TEST HLLEM, HRRES. CHECK C(AC)+C(E)
19917 ;FOR CORRECT DATA.
19918 ;C(AC) HAS SIGN BIT SET.
19919
19920 000003 AC=3
19921 056456 TST22: MSETUP^
19922 000004 AC1=<AC+1>&17
19923 000005 AC2=<AC+2>&17
19924 000006 AC3=<AC+3>&17
19925 000007 AC4=<AC+4>&17
19926 056456 201 02 0 00 056456 MOVEI AC-1,.
19927 056457 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
19928 056460 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
19929 056461 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
19930 056462 200 04 0 00 061114 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
19931 056463 TST22A: MRANDOM^
19932 056463 270 10 0 00 060657 ADD RA,[142536475076]
19933 056464 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
19934 056465 447 10 0 00 000003 EQVB RA,AC ;IN BOTH RA AND AC.
19935 056466 200 03 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
19936 056467 202 10 0 04 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
19937 056470 312 10 0 04 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
19938 056471 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
19939 056472 661 03 0 00 400000 TST22B: TLO AC,400000 ;SET SIGN BIT IN AC.
19940 056473 200 06 0 00 000003 MOVE AC3,AC ;SAVE FOR FUTURE COMPARE.
19941 056474 200 05 0 00 000003 MOVE AC2,AC ;SIMULATE A HLLEM
19942 056475 660 05 0 00 777777 TRO AC2,-1 ;WITH SIGN BIT SET.
19943 056476 532 03 0 04 000000 HLLEM AC,(AC1) ;DO A HLLEM.
19944 056477 312 03 0 00 000006 CAME AC,AC3 ;C(AC) SHOULD=ORIG. C(AC).
19945 056500 001 10 0 00 000006 ERR RA,AC3 ;C(AC) GOT MODIFIED.
19946 056501 312 05 0 04 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
19947 056502 002 10 0 00 000006 ERRM RA,AC3
19948 056503 474 07 0 00 000000 SETO AC4, ;SIMULATE HRRES WITH BIT 18 A ONE.
19949 056504 573 03 0 04 000000 HRRES AC,(AC1) ;DO A HRRES.
19950 056505 312 07 0 04 000000 CAME AC4,(AC1) ;C(E) SHOULD=-1.
19951 056506 002 05 0 00 000006 ERRM AC2,AC3
19952 056507 312 03 0 04 000000 CAME AC,(AC1) ;C(AC) SHOULD=C(E).
19953 056510 001 05 0 00 000006 ERR AC2,AC3
19954 056511 321 02 0 00 056466 JUMPL AC-1,TST22B-4 ;LOOP ON ERROR SWITCH.
19955 056512 253 04 0 00 056513 AOBJN AC1,.+1
19956 056513 603 04 0 00 770000 TLNE AC1,770000
19957 056514 254 00 0 00 056463 JRST TST22A ;INC TO TEST NEXT LOC.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 22
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0512
19958
19959 ;TEST HLLEM, HRRES. CHECK C(AC)+C(E)
19960 ;FOR CORRECT DATA
19961 ;C(AC) HAS SIGN BIT CLEAR.
19962
19963 000012 AC=12
19964 056515 TST23: MSETUP^
19965 000013 AC1=<AC+1>&17
19966 000014 AC2=<AC+2>&17
19967 000015 AC3=<AC+3>&17
19968 000016 AC4=<AC+4>&17
19969 056515 201 11 0 00 056515 MOVEI AC-1,.
19970 056516 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
19971 056517 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
19972 056520 202 11 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
19973 056521 200 13 0 00 061114 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
19974 056522 TST23A: MRANDOM^
19975 056522 270 10 0 00 060657 ADD RA,[142536475076]
19976 056523 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
19977 056524 447 10 0 00 000012 EQVB RA,AC ;IN BOTH RA AND AC.
19978 056525 200 12 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
19979 056526 202 10 0 13 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
19980 056527 312 10 0 13 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
19981 056530 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
19982 056531 621 12 0 00 400000 TST23B: TLZ AC,400000 ;CLEAR SIGN BIT IN AC
19983 056532 200 15 0 00 000012 MOVE AC3,AC ;SAVE FOR FUTURE COMPARE
19984 056533 200 14 0 00 000012 MOVE AC2,AC ;SIMULATE A HLLEM
19985 056534 620 14 0 00 777777 TRZ AC2,-1 ;WITH SIGN BIT CLEAR.
19986 056535 532 12 0 13 000000 HLLEM AC,(AC1) ;DO A HLLEM.
19987 056536 312 12 0 00 000015 CAME AC,AC3 ;C(AC) SHOULD=ORIG. C(AC)
19988 056537 001 10 0 00 000015 ERR RA,AC3
19989 056540 312 14 0 13 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
19990 056541 002 10 0 00 000015 ERRM RA,AC3
19991 056542 400 16 0 00 000000 SETZ AC4, ;SIMULATE HRRES WITH BIT 18 CLEAR.
19992 056543 573 12 0 13 000000 HRRES AC,(AC1) ;DO A HRRES INST.
19993 056544 312 16 0 13 000000 CAME AC4,(AC1) ;C(E) SHOULD=SIM. ANS.
19994 056545 002 14 0 00 000015 ERRM AC2,AC3
19995 056546 312 12 0 13 000000 CAME AC,(AC1) ;C(AC) SHOULD=C(E).
19996 056547 001 14 0 00 000015 ERR AC2,AC3
19997 056550 321 11 0 00 056525 JUMPL AC-1,TST23B-4 ;LOOP ON ERROR SWITCH
19998 056551 253 13 0 00 056552 AOBJN AC1,.+1
19999 056552 603 13 0 00 770000 TLNE AC1,770000
20000 056553 254 00 0 00 056522 JRST TST23A ;INC TO TEST NEXT LOC.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 23
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0513
20001
20002 ;TEST HRREM, HLLES. CHECK C(AC)+C(E)
20003 ;FOR CORRECT DATA.
20004 ;C(AC) HAS BIT 18 SET.
20005
20006 000012 AC=12
20007 056554 TST24: MSETUP^
20008 000013 AC1=<AC+1>&17
20009 000014 AC2=<AC+2>&17
20010 000015 AC3=<AC+3>&17
20011 000016 AC4=<AC+4>&17
20012 056554 201 11 0 00 056554 MOVEI AC-1,.
20013 056555 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
20014 056556 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
20015 056557 202 11 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
20016 056560 200 13 0 00 061114 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
20017 056561 TST24A: MRANDOM^
20018 056561 270 10 0 00 060657 ADD RA,[142536475076]
20019 056562 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
20020 056563 447 10 0 00 000012 EQVB RA,AC ;IN BOTH RA AND AC.
20021 056564 200 12 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
20022 056565 202 10 0 13 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
20023 056566 312 10 0 13 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
20024 056567 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
20025 056570 660 12 0 00 400000 TST24B: TRO AC,400000 ;SET BIT 18 IN AC.
20026 056571 200 15 0 00 000012 MOVE AC3,AC ;SAVE C(AC) FOR FUTURE COMPARE
20027 056572 200 14 0 00 000012 MOVE AC2,AC ;SIMULATE A HRREM
20028 056573 661 14 0 00 777777 TLO AC2,-1 ;WITH BIT 18 SET.
20029 056574 572 12 0 13 000000 HRREM AC,(AC1) ;DO A HRREM
20030 056575 312 12 0 00 000015 CAME AC,AC3 ;C(AC) SHOULD=ORIG. C(AC)
20031 056576 001 10 0 00 000015 ERR RA,AC3
20032 056577 312 14 0 13 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
20033 056600 002 10 0 00 000015 ERRM RA,AC3
20034 056601 474 16 0 00 000000 SETO AC4, ;SIMULATE A HLLES WITH SIGN BIT SET.
20035 056602 533 12 0 13 000000 HLLES AC,(AC1) ;DO A HLLES
20036 056603 312 16 0 13 000000 CAME AC4,(AC1) ;C(E) SHOULD=-1.
20037 056604 002 14 0 00 000015 ERRM AC2,AC3
20038 056605 312 12 0 13 000000 CAME AC,(AC1) ;C(AC) SHOULD=C(E).
20039 056606 001 14 0 00 000015 ERR AC2,AC3
20040 056607 321 11 0 00 056564 JUMPL AC-1,TST24B-4 ;LOOP ON ERROR SWITCH
20041 056610 253 13 0 00 056611 AOBJN AC1,.+1
20042 056611 603 13 0 00 770000 TLNE AC1,770000
20043 056612 254 00 0 00 056561 JRST TST24A ;INC TO TEST NEXT LOC.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 24
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0514
20044
20045 ;TEST HRREM, HLLES. CHECK C(AC)+C(E)
20046 ;FOR CORRECT DATA.
20047 ;C(AC) HAS BIT 18 CLEAR.
20048
20049 000003 AC=3
20050 056613 TST25: MSETUP^
20051 000004 AC1=<AC+1>&17
20052 000005 AC2=<AC+2>&17
20053 000006 AC3=<AC+3>&17
20054 000007 AC4=<AC+4>&17
20055 056613 201 02 0 00 056613 MOVEI AC-1,.
20056 056614 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
20057 056615 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
20058 056616 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
20059 056617 200 04 0 00 061114 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
20060 056620 TST25A: MRANDOM^
20061 056620 270 10 0 00 060657 ADD RA,[142536475076]
20062 056621 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
20063 056622 447 10 0 00 000003 EQVB RA,AC ;IN BOTH RA AND AC.
20064 056623 200 03 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
20065 056624 202 10 0 04 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
20066 056625 312 10 0 04 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
20067 056626 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
20068 056627 620 03 0 00 400000 TST25B: TRZ AC,400000 ;CLEAR BIT 18 ON AC.
20069 056630 200 06 0 00 000003 MOVE AC3,AC ;SAVE C(AC) FOR FUTURE COMPARE.
20070 056631 200 05 0 00 000003 MOVE AC2,AC ;SIMULATE A HRREM
20071 056632 621 05 0 00 777777 TLZ AC2,-1 ;WITH BIT 18 CLEAR.
20072 056633 572 03 0 04 000000 HRREM AC,(AC1) ;DO A HRREM
20073 056634 312 03 0 00 000006 CAME AC,AC3 ;C(AC) SHOULD=ORIG C(AC)
20074 056635 001 10 0 00 000006 ERR RA,AC3
20075 056636 312 05 0 04 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
20076 056637 002 10 0 00 000006 ERRM RA,AC3
20077 056640 400 07 0 00 000000 SETZ AC4, ;SIMULATE A HLLES WITH SIGN BIT CLEAR.
20078 056641 533 03 0 04 000000 HLLES AC,(AC1) ;DO A HLLES
20079 056642 312 07 0 04 000000 CAME AC4,(AC1) ;C(E) SHOULD=0
20080 056643 002 05 0 00 000006 ERRM AC2,AC3
20081 056644 312 03 0 04 000000 CAME AC,(AC1) ;C(AC) SHOULD=C(E).
20082 056645 001 05 0 00 000006 ERR AC2,AC3
20083 056646 321 02 0 00 056623 JUMPL AC-1,TST25B-4 ;LOOP ON ERROR SWITCH
20084 056647 253 04 0 00 056650 AOBJN AC1,.+1
20085 056650 603 04 0 00 770000 TLNE AC1,770000
20086 056651 254 00 0 00 056620 JRST TST25A ;INC TO TEST NEXT LOC.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 25
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0515
20087
20088 ;TEST ORCBB, ANDCMB, SETOM, SETZB, SETOB. CHECK
20089 ;FOR CORRECT DATA IN AC AND C(E).
20090
20091 000004 AC=4
20092 056652 TST26: MSETUP^
20093 000005 AC1=<AC+1>&17
20094 000006 AC2=<AC+2>&17
20095 000007 AC3=<AC+3>&17
20096 000010 AC4=<AC+4>&17
20097 056652 201 03 0 00 056652 MOVEI AC-1,.
20098 056653 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
20099 056654 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
20100 056655 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
20101 056656 200 05 0 00 061114 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
20102 056657 TST26A: MRANDOM^
20103 056657 270 10 0 00 060657 ADD RA,[142536475076]
20104 056660 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
20105 056661 447 10 0 00 000004 EQVB RA,AC ;IN BOTH RA AND AC.
20106 056662 200 04 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
20107 056663 202 10 0 05 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
20108 056664 312 10 0 05 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
20109 056665 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
20110 056666 460 06 0 00 000004 TST26B: SETCM AC2,AC ;SIMULATE A ORCBB...1'S COMP.
20111 056667 473 04 0 05 000000 ORCBB AC,(AC1) ;DO ORCBB
20112 056670 312 04 0 00 000006 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS.
20113 056671 001 10 0 00 000010 ERR RA,RA
20114 056672 312 06 0 05 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
20115 056673 002 10 0 00 000010 ERRM RA,RA
20116 056674 201 07 0 00 000000 MOVEI AC3,0 ;SIMULATE ANDCMB...AND 1'S COMP
20117 056675 423 04 0 05 000000 ANDCMB AC,(AC1) ;OF A NUMBER WITH THAT NUMBER
20118 056676 312 04 0 00 000007 CAME AC,AC3 ;SHOULD=0
20119 056677 001 06 0 00 000006 ERR AC2,AC2
20120 056700 312 07 0 05 000000 CAME AC3,(AC1) ;C(E) SHOULD=0
20121 056701 002 06 0 00 000006 ERRM AC2,AC2
20122 056702 200 06 0 00 060662 MOVE AC2,[-1] ;SIMULATE SETOM.
20123 056703 476 04 0 05 000000 SETOM AC,(AC1) ;DO SETOM.
20124 056704 312 04 0 00 000007 CAME AC,AC3 ;C(AC)SHOULD STILL=0.
20125 056705 001 07 0 00 000007 ERR AC3,AC3
20126 056706 312 06 0 05 000000 CAME AC2,(AC1) ;C(E) SHOULD=-1
20127 056707 002 07 0 00 000007 ERRM AC3,AC3
20128 056710 403 04 0 05 000000 SETZB AC,(AC1) ;DO SETZB
20129 056711 312 04 0 00 000007 CAME AC,AC3 ;C(AC) SHOULD=0
20130 056712 001 06 0 00 000007 ERR AC2,AC3
20131 056713 312 07 0 05 000000 CAME AC3,(AC1) ;C(E) SHOULD=0
20132 056714 002 06 0 00 000007 ERRM AC2,AC3
20133 056715 477 04 0 05 000000 SETOB AC,(AC1) ;DO A SETOB.
20134 056716 312 04 0 00 000006 CAME AC,AC2 ;C(AC) SHOULD=-1
20135 056717 001 07 0 00 000007 ERR AC3,AC3
20136 056720 312 06 0 05 000000 CAME AC2,(AC1) ;C(E) SHOULD=-1
20137 056721 002 07 0 00 000007 ERRM AC3,AC3
20138 056722 321 03 0 00 056662 JUMPL AC-1,TST26B-4 ;LOOP ON ERROR SWITCH.
20139 056723 253 05 0 00 056724 AOBJN AC1,.+1
20140 056724 603 05 0 00 770000 TLNE AC1,770000
20141 056725 254 00 0 00 056657 JRST TST26A ;INC TO TEST NEXT LOC.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 26
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0516
20142
20143 ;TEST AOS, SOA, TDC, TDCA, TSC, TSCA. CHECK
20144 ;FOR CORRECT DATA IN AC AND C(E)
20145 ;C(AC) AND C(E)=RAN. NUM.
20146
20147 000005 AC=5
20148 056726 TST27: MSETUP^
20149 000006 AC1=<AC+1>&17
20150 000007 AC2=<AC+2>&17
20151 000010 AC3=<AC+3>&17
20152 000011 AC4=<AC+4>&17
20153 056726 201 04 0 00 056726 MOVEI AC-1,.
20154 056727 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
20155 056730 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
20156 056731 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
20157 056732 200 06 0 00 061114 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
20158 056733 TST27A: MRANDOM^
20159 056733 270 10 0 00 060657 ADD RA,[142536475076]
20160 056734 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
20161 056735 447 10 0 00 000005 EQVB RA,AC ;IN BOTH RA AND AC.
20162 056736 200 05 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
20163 056737 202 10 0 06 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
20164 056740 312 10 0 06 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
20165 056741 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
20166 056742 350 05 0 06 000000 TST27B: AOS AC,(AC1) ;ADD ONE TO AC+C(E) AND NO SKIP.
20167 056743 374 05 0 06 000000 SOSA AC,(AC1) ;SUB ONE FROM AC+C(E) AND SKIP.
20168 056744 005 05 0 00 060701 ER AC,[ASCII/AOS/]
20169 056745 312 05 0 06 000000 CAME AC,(AC1) ;C(AC)SHOULD=C(E).
20170 056746 001 10 0 00 000010 ERR RA,RA ;C(E) DID NOT GET STORED IN AC CORRECTLY
20171 056747 312 05 0 00 000010 CAME AC,RA ;C(AC) SHOULD=ORIG. C(AC).
20172 056750 001 10 0 00 000010 ERR RA,RA
20173 056751 650 05 0 06 000000 TDC AC,(AC1) ;SHOULD NOT SKIP
20174 056752 654 05 0 06 000000 TDCA AC,(AC1) ;SHOULD ALWAYS SKIP.
20175 056753 005 05 0 00 060674 ER AC,[ASCII/TST/]
20176 056754 312 05 0 00 000010 CAME AC,RA ;C(AC) SHOULD=ORIG C(AC).
20177 056755 001 10 0 00 000010 ERR RA,RA
20178 056756 651 05 0 06 000000 TSC AC,(AC1) ;SHOULD NOT SKIP.
20179 056757 655 05 0 06 000000 TSCA AC,(AC1) ;SHOULD ALWAYS SKIP.
20180 056760 005 05 0 00 060674 ER AC,[ASCII/TST/]
20181 056761 312 05 0 00 000010 CAME AC,RA ;C(AC) SHOULD=ORIG C(AC).
20182 056762 001 10 0 00 000010 ERR RA,RA
20183 056763 321 04 0 00 056736 JUMPL AC-1,TST27B-4 ;LOOP ON ERROR SWITCH.
20184 056764 253 06 0 00 056765 AOBJN AC1,.+1
20185 056765 603 06 0 00 770000 TLNE AC1,770000
20186 056766 254 00 0 00 056733 JRST TST27A ;INC TO TEST NEXT LOC.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 27
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0517
20187
20188 ;TEST MOVMM, MOVMS. CHECK FOR
20189 ;CORRECT DATA IN AC AND C(E).
20190 ;C(AC)+C(E)=RAN. NUM.
20191
20192 000003 AC=3
20193 056767 TST30: MSETUP^
20194 000004 AC1=<AC+1>&17
20195 000005 AC2=<AC+2>&17
20196 000006 AC3=<AC+3>&17
20197 000007 AC4=<AC+4>&17
20198 056767 201 02 0 00 056767 MOVEI AC-1,.
20199 056770 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
20200 056771 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
20201 056772 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
20202 056773 200 04 0 00 061114 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
20203 056774 TST30A: MRANDOM^
20204 056774 270 10 0 00 060657 ADD RA,[142536475076]
20205 056775 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
20206 056776 447 10 0 00 000003 EQVB RA,AC ;IN BOTH RA AND AC.
20207 056777 200 03 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
20208 057000 202 10 0 04 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
20209 057001 312 10 0 04 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
20210 057002 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
20211 057003 460 05 0 00 000003 TST30B: SETCM AC2,AC ;SIMULATE A MOVM
20212 057004 271 05 0 00 000001 ADDI AC2,1 ;WITH SIGN BIT SET.
20213 057005 607 03 0 00 400000 TLNN AC,400000 ;SKIP IF SIGN BIT SET.
20214 057006 200 05 0 00 000003 MOVE AC2,AC ;SIM. MOVM WITH SIGN BIT CLEAR.
20215 057007 216 03 0 04 000000 MOVMM AC,(AC1) ;DO A MOVMM
20216 057010 312 03 0 00 000010 CAME AC,RA ;C(AC) SHOULD=ORIG. C(AC)
20217 057011 001 10 0 00 000010 ERR RA,RA ;C(AC) GOT MODIFIED.
20218 057012 312 05 0 04 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
20219 057013 002 10 0 00 000010 ERRM RA,RA
20220 057014 202 10 0 04 000000 MOVEM RA,(AC1) ;RESTORE C(E).
20221 057015 217 03 0 04 000000 MOVMS AC,(AC1) ;DO A MOVMS
20222 057016 312 03 0 04 000000 CAME AC,(AC1) ;C(AC) SHOULD=C(E).
20223 057017 001 10 0 00 000010 ERR RA,RA
20224 057020 312 05 0 04 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
20225 057021 002 10 0 00 000010 ERRM RA,RA
20226 057022 321 02 0 00 056777 JUMPL AC-1,TST30B-4 ;LOOP ON ERROR SWITCH
20227 057023 253 04 0 00 057024 AOBJN AC1,.+1
20228 057024 603 04 0 00 770000 TLNE AC1,770000
20229 057025 254 00 0 00 056774 JRST TST30A ;INC TO TEST NEXT LOC.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 28
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0518
20230
20231 ;TEST ADDM, SUBB, ADDB, SUBM. CHECK FOR
20232 ;CORRECT DATA IN AC AND C(E)
20233 ;C(AC) AND C(E)=RAN. NUM.
20234
20235 000001 AC=1
20236 057026 TST31: MSETUP^
20237 000002 AC1=<AC+1>&17
20238 000003 AC2=<AC+2>&17
20239 000004 AC3=<AC+3>&17
20240 000005 AC4=<AC+4>&17
20241 057026 201 00 0 00 057026 MOVEI AC-1,.
20242 057027 202 00 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
20243 057030 201 00 0 00 000000 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
20244 057031 202 00 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
20245 057032 200 02 0 00 061114 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
20246 057033 TST31A: MRANDOM^
20247 057033 270 10 0 00 060657 ADD RA,[142536475076]
20248 057034 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
20249 057035 447 10 0 00 000001 EQVB RA,AC ;IN BOTH RA AND AC.
20250 057036 200 01 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
20251 057037 202 10 0 02 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
20252 057040 312 10 0 02 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
20253 057041 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
20254 057042 272 01 0 02 000000 TST31B: ADDM AC,(AC1) ;DO AN ADDM.
20255 057043 200 03 0 02 000000 MOVE AC2,(AC1) ;PUT ANS INTO AC2
20256 057044 202 01 0 02 000000 MOVEM AC,(AC1) ;AND RESTORE C(E)
20257 057045 277 03 0 02 000000 SUBB AC2,(AC1) ;DO A SUBB.
20258 057046 312 03 0 00 000010 CAME AC2,RA ;C(AC2) SHOULD=ORIG C(AC).
20259 057047 001 10 0 00 000010 ERR RA,RA
20260 057050 312 10 0 02 000000 CAME RA,(AC1) ;C(E) SHOULD=ORIG. C(E)
20261 057051 002 10 0 00 000010 ERRM RA,RA
20262 057052 273 01 0 02 000000 ADDB AC,(AC1) ;DO AN ADDB.
20263 057053 312 01 0 02 000000 CAME AC,(AC1) ;C(AC) SHOULD=C(E).
20264 057054 001 10 0 00 000010 ERR RA,RA
20265 057055 202 10 0 02 000000 MOVEM RA,(AC1) ;RESTORE C(E).
20266 057056 276 01 0 02 000000 SUBM AC,(AC1) ;DO A SUBM.
20267 057057 312 10 0 02 000000 CAME RA,(AC1) ;C(E) SHOULD=ORIG. C(E)
20268 057060 002 10 0 00 000010 ERRM RA,RA
20269 057061 321 00 0 00 057036 JUMPL AC-1,TST31B-4 ;LOOP ON ERROR SWITCH
20270 057062 253 02 0 00 057063 AOBJN AC1,.+1
20271 057063 603 02 0 00 770000 TLNE AC1,770000
20272 057064 254 00 0 00 057033 JRST TST31A ;INC TO TEST NEXT LOC.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 29
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0519
20273 ;TEST JRST. PUT A JSP BACK TO THE PROGRAM
20274 ;IN EVERY LOCATION FROM THE END OF PROGRAM TO
20275 ;THE DESIGNATED END OF MEMORY. PUT A JRST
20276 ;BACK TO PROGRAM IN EACH LOC THAT THE JRST,
20277 ;IN THE PROGRAM, POINTS TO. THIS WAY IF
20278 ;THE JRST DOES NOT GO TO THE RIGHT LOC
20279 ;IN MEMORY, A JSP WILL STORE THE LOC
20280 ;IT DID GO TO.
20281
20282 000001 AC=1
20283 057065 JRST1: SETUP1 1,1^
20284 000002 AC1=<AC+1>&17
20285 000003 AC2=<AC+2>&17
20286 000004 AC3=<AC+3>&17
20287 000005 AC4=<AC+4>&17
20288 000006 AC5=<AC+5>&17
20289 000017 RAN1=<AC-2>&17
20290 057065 201 00 0 00 057065 MOVEI AC-1,.
20291 057066 202 00 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
20292 057067 201 00 0 00 000000 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
20293 057070 202 00 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
20294 057071 201 00 0 00 000001 MOVEI AC-1,1 ;ROUTINE WEIGHTING
20295 057072 240 00 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
20296 057073 240 00 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
20297 057074 200 01 0 00 061115 MOVE AC,BUFSIZ ;PUT A
20298 057075 200 05 0 00 060742 MOVE AC4,[JSP AC3,JRST5] ;JSP AC3, JRST5
20299 057076 202 05 0 01 000000 MOVEM AC4,(AC) ;FROM END OF PROG
20300 057077 253 01 0 00 057100 AOBJN AC,.+1
20301 057100 603 01 0 00 770000 TLNE AC,770000
20302 057101 254 00 0 00 057076 JRST .-3
20303 057102 200 02 0 00 061132 JRST1A: MOVE AC1,WCBUF ;MOVE (-TOP+END,END) INTO AC1.
20304 057103 200 03 0 00 060743 MOVE AC2,[JRST JRST4] ;PUT A JRST JRST4 INTO
20305 057104 202 03 0 02 000000 JRST2: MOVEM AC2,(AC1) ;CURRENT MEM LOC UNDER TEST.
20306 057105 254 00 0 02 000000 JRST3: JRST (AC1) ;DO THE JRST OUT TO MEM.
20307 057106 005 00 0 00 060744 ER ,[ASCII/JRST/] ;PC GOT INC INSTEAD OF MEM ADDRESS.
20308 057107 254 00 0 00 057112 JRST4: JRST .+3 ;JRST FOUND A JRST AND CAME BACK OK
20309 057110 360 04 0 00 000000 JRST5: SOJ AC3, ;JRST WENT TO WRONG LOC AND
20310 057111 007 04 0 02 000000 ERMM AC3,(AC1) ;A JSP CAME BACK HERE.
20311 057112 321 00 0 00 057105 JUMPL AC-1,JRST3 ;LOOP ON ERROR SWITCH.
20312 057113 202 05 0 02 000000 MOVEM AC4,(AC1) ;REPLACE CURRENT LOC WITH JSP.
20313 057114 253 02 0 00 057115 AOBJN AC1,.+1
20314 057115 603 02 0 00 770000 TLNE AC1,770000
20315 057116 254 00 0 00 057104 JRST JRST2 ;INC TO TEST NEXT LOC.
20316 057117 367 00 0 00 057102 SOJG AC-1,JRST1A ;ITERATION COUNTER.
20317
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 30
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0520
20318
20319 ;TEST JSP. PUT A JSP BACK TO PROGRAM IN EACH
20320 ;LOCATION FROM THE END OF PROGRAM TO THE DESIGNATED
20321 ;END OF MEMORY. IF THE JSP DOES NOT GO TO THE RIGHT
20322 ;LOC IN MEMORY, THE JSP BACK WILL STORE THE LOC IT
20323 ;DID GO TO. CHECK C(AC) FOR CORRECT FLAGS IN THE LEFT
20324 ;SIDE AND E+1 IN THE RIGHT.
20325
20326 000002 AC=2
20327 057120 JSP1: SETUP1 1,1^
20328 000003 AC1=<AC+1>&17
20329 000004 AC2=<AC+2>&17
20330 000005 AC3=<AC+3>&17
20331 000006 AC4=<AC+4>&17
20332 000007 AC5=<AC+5>&17
20333 000000 RAN1=<AC-2>&17
20334 057120 201 01 0 00 057120 MOVEI AC-1,.
20335 057121 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
20336 057122 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
20337 057123 202 01 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
20338 057124 201 01 0 00 000001 MOVEI AC-1,1 ;ROUTINE WEIGHTING
20339 057125 240 01 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
20340 057126 240 01 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
20341 057127 200 02 0 00 061115 MOVE AC,BUFSIZ ;PUT A
20342 057130 200 03 0 00 060745 MOVE AC1,[JSP AC,JSP3] ;JSP AC,JSP3
20343 057131 202 03 0 02 000000 MOVEM AC1,(AC) ;FROM END OF PROG.
20344 057132 253 02 0 00 057133 AOBJN AC,.+1
20345 057133 603 02 0 00 770000 TLNE AC,770000
20346 057134 254 00 0 00 057131 JRST .-3
20347 057135 200 03 0 00 061132 JSP1A: MOVE AC1,WCBUF ;MOVE (-TOP+END,END) INTO AC1.
20348 057136 200 04 0 00 055434 MOVE AC2,FLAGS ;MOVE ALL FLAGS BITS BUT USER MODE
20349 057137 254 02 0 04 057140 JRST 2,.+1(AC2) ;INTO AC2 AND SET THESE FLAGS.
20350 057140 513 00 0 00 000004 JSP2: HLLZS AC2 ;SIMULATE JSP...
20351 057141 541 04 0 03 000001 HRRI AC2,1(AC1) ;(FLAGS, MEM LOC+1).
20352 057142 477 02 0 00 000000 SETOB AC,RAN1 ;MAKE C(AC)=-1.
20353 057143 265 02 0 03 000000 JSP AC,(AC1) ;DO A JSP TO MEM.
20354 057144 621 02 0 00 010000 JSP3: TLZ AC,USERF ;CLEAR USER MODE BIT IN AC IF ON.
20355 057145 312 02 0 00 000004 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
20356 057146 003 00 0 03 000000 ERRI RAN1,(AC1) ;
20357 057147 321 01 0 00 057140 JUMPL AC-1,JSP2 ;LOOP ON ERROR SWITCH.
20358 057150 253 03 0 00 057151 AOBJN AC1,.+1
20359 057151 603 03 0 00 770000 TLNE AC1,770000
20360 057152 254 00 0 00 057140 JRST JSP2 ;INC TO TEST NEXT LOC.
20361 057153 367 01 0 00 057135 SOJG AC-1,JSP1A ;ITERATION COUNTER.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 31
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0521
20362
20363 ;TEST JSR.
20364 ;PUT A JSP BACK TO THE PROGRAM IN EVERY LOCATION
20365 ;FROM THE END OF THE PROGRAM TO THE DESIGNATED
20366 ;END OF MEMORY. IF THE JSR DOES NOT GO TO THE
20367 ;RIGHT LOC IN MEMORY, THE JSP WILL STORE THE LOC
20368 ;IT DID GO TO. ALSO CHECK FOR NO MODIFICATION OF AC.
20369
20370 000003 AC=3
20371 057154 JSRA: SETUP1 1,1^
20372 000004 AC1=<AC+1>&17
20373 000005 AC2=<AC+2>&17
20374 000006 AC3=<AC+3>&17
20375 000007 AC4=<AC+4>&17
20376 000010 AC5=<AC+5>&17
20377 000001 RAN1=<AC-2>&17
20378 057154 201 02 0 00 057154 MOVEI AC-1,.
20379 057155 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
20380 057156 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
20381 057157 202 02 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
20382 057160 201 02 0 00 000001 MOVEI AC-1,1 ;ROUTINE WEIGHTING
20383 057161 240 02 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
20384 057162 240 02 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
20385 057163 200 03 0 00 061115 MOVE AC,BUFSIZ ;PUT A
20386 057164 200 05 0 00 060746 MOVE AC2,[JSP AC4,JSRD] ;JSP AC4, JSRD
20387 057165 202 05 0 03 000000 MOVEM AC2,(AC) ;FROM END OF PROG
20388 057166 253 03 0 00 057167 AOBJN AC,.+1
20389 057167 603 03 0 00 770000 TLNE AC,770000
20390 057170 254 00 0 00 057165 JRST .-3
20391 057171 200 04 0 00 061132 JSPA1: MOVE AC1,WCBUF ;MOVE (-TOP+END,END) INTO AC1.
20392 057172 270 04 0 00 060714 ADD AC1,[XWD 1,0] ;ADD ONE TO LEFT...PREVENT NON EX MEM.
20393 057173 477 03 0 00 000001 JSRB: SETOB AC,RAN1 ;SET C(AC) TO ALL ONES.
20394 057174 264 03 0 04 000000 JSRC: JSR AC,(AC1) ;DO THE JSR TO MEM.
20395 057175 312 03 0 00 000001 JSRD: CAME AC,RAN1 ;C(AC) SHOULD STILL= -1.
20396 057176 001 05 0 00 000001 ERR AC2,RAN1 ;C(AC)GOT MODIFIED
20397 057177 553 00 0 00 000007 HRRZS AC4 ;JSP STORED PC IN AC4.
20398 057200 302 07 0 04 000002 CAIE AC4,2(AC1) ;C(AC4) SHOULD=MEM LOC+2.
20399 057201 007 07 0 04 000002 ERMM AC4,2(AC1) ;JSR WENT TO WRONG LOC.
20400 057202 321 02 0 00 057173 JUMPL AC-1,JSRB ;LOOP ON ERROR SWITCH.
20401 057203 202 05 0 04 000000 MOVEM AC2,(AC1) ;RESTORE JSP IN CURRENT LOC.
20402 057204 253 04 0 00 057205 AOBJN AC1,.+1
20403 057205 603 04 0 00 770000 TLNE AC1,770000
20404 057206 254 00 0 00 057174 JRST JSRC ;INC TO TEST NEXT LOC.
20405 057207 367 02 0 00 057171 SOJG AC-1,JSPA1 ;ITERATION COUNTER.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 32
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0522
20406
20407 ;TEST JSR.
20408 ;CHECK FOR NO MODIFICATION OF AC AND JSR GOING
20409 ;TO THE CORRECT LOCATION IN MEMORY. PUT A
20410 ;JSR BACK TO JSR+1,IN PROG,IN EVERY LOCATION
20411 ;IN MEMORY FROM THE END OF THE PROGRAM TO THE
20412 ;DESIGNATED END OF MEMORY. IF THE JSR GOES TO
20413 ;THE WRONG LOC IN MEMORY, THE JSR IN MEM WILL
20414 ;STORE THE LOC IT DID GO TO +2 IN THE PROG.
20415
20416 000004 AC=4
20417 057210 JSR1: SETUP1 1,1^
20418 000005 AC1=<AC+1>&17
20419 000006 AC2=<AC+2>&17
20420 000007 AC3=<AC+3>&17
20421 000010 AC4=<AC+4>&17
20422 000011 AC5=<AC+5>&17
20423 000002 RAN1=<AC-2>&17
20424 057210 201 03 0 00 057210 MOVEI AC-1,.
20425 057211 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
20426 057212 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
20427 057213 202 03 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
20428 057214 201 03 0 00 000001 MOVEI AC-1,1 ;ROUTINE WEIGHTING
20429 057215 240 03 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
20430 057216 240 03 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
20431 057217 200 04 0 00 061115 MOVE AC,BUFSIZ ;PUT A
20432 057220 200 10 0 00 060747 MOVE AC4,[JSR JSR4] ;JSR JSR4
20433 057221 202 10 0 04 000000 MOVEM AC4,(AC) ;FROM END OF PROG
20434 057222 253 04 0 00 057223 AOBJN AC,.+1
20435 057223 603 04 0 00 770000 TLNE AC,770000
20436 057224 254 00 0 00 057221 JRST .-3
20437 057225 200 05 0 00 061132 JSR1A: MOVE AC1,WCBUF ;MOVE (-TOP+END,END) INTO AC1.
20438 057226 270 05 0 00 060714 ADD AC1,[XWD 1,0] ;ADD ONE TO LEFT...PREVENT NONEX MEM.
20439 057227 200 06 0 00 055434 MOVE AC2,FLAGS ;MOVE FLAGS, EXCEPT USER MODE, BITS
20440 057230 254 02 0 06 057231 JRST 2,.+1(AC2) ;INTO AC2 AND SET THESE FLAGS.
20441 057231 265 07 0 00 057232 JSP AC3,.+1 ;DO A JSP TO GET FLAGS
20442 057232 603 07 0 00 010000 TLNE AC3,USERF ;USER MODE BIT ON?
20443 057233 661 06 0 00 010000 TLO AC2,USERF ;YES. SET USER MODE BIT FOR COMPARE.
20444 057234 477 04 0 00 000002 JSR2: SETOB AC,RAN1 ;SET C(AC) TO ALL ONES.
20445 057235 541 06 0 05 000002 JSR3: HRRI AC2,2(AC1) ;SETUP RIGHT SIDE OF AC TO=PC+1... SIM. ANS.
20446 057236 264 04 0 05 000000 JSR AC,(AC1) ;DO A JSR TO MEM.
20447 057237 000000 000000 JSR4: 0 ;JSR IN MEM COMES HERE AND STORES (FLAGS, PC+2)
20448 057240 312 04 0 00 000002 CAME AC,RAN1 ;C(AC) SHOULD STILL= -1.
20449 057241 001 10 0 00 000002 ERR AC4,RAN1 ;C(AC) GOT MODIFIED.
20450 057242 312 06 0 00 057237 CAME AC2,JSR4 ;C(JSR4) SHOULD=SIM. ANS.
20451 057243 002 10 0 00 000002 ERRM AC4,RAN1 ;JSR WENT TO WRONG LOC OR FLAGS CHANGED.
20452 057244 321 03 0 00 057234 JUMPL AC-1,JSR2 ;LOOP ON ERROR SWITCH
20453 057245 202 10 0 05 000000 MOVEM AC4,(AC1) ;RESTORE JSR IN MEM.
20454 057246 253 05 0 00 057247 AOBJN AC1,.+1
20455 057247 603 05 0 00 770000 TLNE AC1,770000
20456 057250 254 00 0 00 057235 JRST JSR3 ;INC TO TEST NEXT LOC.
20457 057251 367 03 0 00 057225 SOJG AC-1,JSR1A ;ITERATION COUNTER.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 33
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0523
20458
20459 ;TEST JSA.
20460 ;CHECK THAT THE JSA GOES TO THE CORRECT LOC
20461 ;IN MEM AND THAT THE C(AC)=(E,PC).
20462 ;PUT A JSP BACK TO THE PROGRAM IN EVERY LOCATION
20463 ;FROM THE END OF THE PROG TO THE END OF MEM.
20464 ;IF THE JSA GOES TO THE WRONG LOC, THE JSP WILL
20465 ;STORE THE LOC IT DID GO TO
20466
20467 000005 AC=5
20468 057252 JSAA: SETUP1 1,1^
20469 000006 AC1=<AC+1>&17
20470 000007 AC2=<AC+2>&17
20471 000010 AC3=<AC+3>&17
20472 000011 AC4=<AC+4>&17
20473 000012 AC5=<AC+5>&17
20474 000003 RAN1=<AC-2>&17
20475 057252 201 04 0 00 057252 MOVEI AC-1,.
20476 057253 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
20477 057254 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
20478 057255 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
20479 057256 201 04 0 00 000001 MOVEI AC-1,1 ;ROUTINE WEIGHTING
20480 057257 240 04 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
20481 057260 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
20482 057261 200 05 0 00 061115 MOVE AC,BUFSIZ ;PUT A
20483 057262 200 12 0 00 060750 MOVE AC5,[JSP AC3,JSAD] ;JSP AC3, JSAD
20484 057263 202 12 0 05 000000 MOVEM AC5,(AC) ;FROM END OF PROG
20485 057264 253 05 0 00 057265 AOBJN AC,.+1
20486 057265 603 05 0 00 770000 TLNE AC,770000
20487 057266 254 00 0 00 057263 JRST .-3
20488 057267 200 06 0 00 061132 JSA1A: MOVE AC1,WCBUF ;MOVE (-TOP+END,END) INTO AC1.
20489 057270 270 06 0 00 060714 ADD AC1,[XWD 1,0] ;ADD ONE TO LEFT...PREVENT NON EX MEM
20490 057271 JSAB: RANDM1^
20491 057271 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
20492 057272 270 05 0 00 060657 ADD AC,[142536475076]
20493 057273 241 05 0 00 777777 ROT AC,-1
20494 057274 447 05 0 00 061125 EQVB AC,RAN ;IN BOTH AC AND REGISTER RAN. ^
20495
20496 057275 205 11 0 06 000000 MOVSI AC4,(AC1) ;SIMULATE THE
20497 057276 541 11 0 00 057300 HRRI AC4,JSAD ;JSA INST.
20498 057277 266 05 0 06 000000 JSAC: JSA AC,(AC1) ;DO THE JSA INST.
20499 057300 312 05 0 00 000011 JSAD: CAME AC,AC4 ;C(AC) SHOULD=SIM. ANS.
20500 057301 013 00 0 06 000000 EERRI (AC1)
20501 057302 553 00 0 00 000010 HRRZS AC3 ;JSP IN MEM STORED PC+2
20502 057303 302 10 0 06 000002 CAIE AC3,2(AC1) ;OF JSA DESTINATION IN AC3
20503 057304 007 10 0 06 000002 ERMM AC3,2(AC1) ;JSA DID NOT GO TO CORRECT MEM LOC.
20504 057305 321 04 0 00 057277 JUMPL AC-1,JSAC ;LOOP ON ERROR SWITCH
20505 057306 202 12 0 06 000000 MOVEM AC5,(AC1) ;RESTORE JSP IN CURRENT LOC.
20506 057307 253 06 0 00 057310 AOBJN AC1,.+1
20507 057310 603 06 0 00 770000 TLNE AC1,770000
20508 057311 254 00 0 00 057271 JRST JSAB ;INC TO TEST NEXT LOC.
20509 057312 367 04 0 00 057267 SOJG AC-1,JSA1A ;ITERATION COUNTER.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 34
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0524
20510
20511 ;TEST JSA.
20512 ;PUT A JSA BACK TO THE PROG IN EVERY LOCATION
20513 ;FROM THE END OF THE PROG TO THE DESIGNATED
20514 ;END OF MEMORY AFTER THE JSA TO MEM AND
20515 ;THE JSA BACK, THE CONTENTS OF THE DESTINATION
20516 ;OF THE JSA IN MEMORY SHOULD=ORIG C(AC) OF THE
20517 ;JSA IN THE PROG. ALSO THE C(AC) OF THE JSA
20518 ;IN MEMORY SHOULD=(E OF JSA IN MEMORY, E+2 OF
20519 ;JSA IN PROG.) ORIGINAL C(AC)= RAN. NUM.
20520
20521 000006 AC=6
20522 057313 JSA1: SETUP1 1,1^
20523 000007 AC1=<AC+1>&17
20524 000010 AC2=<AC+2>&17
20525 000011 AC3=<AC+3>&17
20526 000012 AC4=<AC+4>&17
20527 000013 AC5=<AC+5>&17
20528 000004 RAN1=<AC-2>&17
20529 057313 201 05 0 00 057313 MOVEI AC-1,.
20530 057314 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
20531 057315 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
20532 057316 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
20533 057317 201 05 0 00 000001 MOVEI AC-1,1 ;ROUTINE WEIGHTING
20534 057320 240 05 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
20535 057321 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
20536 057322 200 06 0 00 061115 MOVE AC,BUFSIZ ;PUT A
20537 057323 200 12 0 00 060751 MOVE AC4,[JSA AC3,JSA4] ;JSA AC3, JSA4
20538 057324 202 12 0 06 000000 MOVEM AC4,(AC) ;FROM END OF PROG
20539 057325 253 06 0 00 057326 AOBJN AC,.+1
20540 057326 603 06 0 00 770000 TLNE AC,770000
20541 057327 254 00 0 00 057324 JRST .-3
20542 057330 200 07 0 00 061132 JSAX: MOVE AC1,WCBUF ;MOVE (-TOP+END,END) INTO AC1.
20543 057331 270 07 0 00 060714 ADD AC1,[XWD 1,0] ;ADD ONE TO LEFT... PREVENT NON EX MOVEM
20544 057332 JSA2: RANDM1^
20545 057332 200 06 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
20546 057333 270 06 0 00 060657 ADD AC,[142536475076]
20547 057334 241 06 0 00 777777 ROT AC,-1
20548 057335 447 06 0 00 061125 EQVB AC,RAN ;IN BOTH AC AND REGISTER RAN. ^
20549 057336 200 10 0 00 061125 MOVE AC2,RAN ;SAVE C(AC) FOR FUTURE COMPARE.
20550 057337 200 11 0 00 061125 JSA3: MOVE AC3,RAN ;PUT RAN NUM INTO AC OF JSA IN MEM.
20551 057340 205 13 0 00 057343 MOVSI AC5,JSA4 ;SIMULATE THE
20552 057341 541 13 0 07 000002 HRRI AC5,2(AC1) ;JSA IN MEM.
20553 057342 266 06 0 07 000000 JSA AC,(AC1) ;DO THE JSA TO MEM
20554 057343 000000 000000 JSA4: 0 ;THE JSA IN MEM SHOULD POINT HERE.
20555 057344 312 10 0 00 057343 CAME AC2,JSA4 ;THE C(JSA4) SHOULD = RAN NUM.
20556 057345 002 12 0 00 000010 ERRM AC4,AC2
20557 057346 312 11 0 00 000013 CAME AC3,AC5 ;THE MEM JSA AC SHOULD=SIM. ANS.
20558 057347 001 12 0 00 000010 ERR AC4,AC2
20559 057350 321 05 0 00 057337 JUMPL AC-1,JSA3 ;LOOP ON ERROR SWITCH
20560 057351 202 12 0 07 000000 MOVEM AC4,(AC1) ;RESTORE THE JSA IN MEM.
20561 057352 253 07 0 00 057353 AOBJN AC1,.+1
20562 057353 603 07 0 00 770000 TLNE AC1,770000
20563 057354 254 00 0 00 057332 JRST JSA2 ;INC TO TEST NEXT LOC
20564 057355 367 05 0 00 057330 SOJG AC-1,JSAX ;ITERATION COUNTER.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 35
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0525
20565
20566 ;TEST JRA
20567 ;PUT A JSP BACK TO THE PROG IN EVERY LOCATION
20568 ;FROM THE END OF PROG TO THE DESIGNATED
20569 ;END OF MEM. IF THE JRA GOES TO THE WRONG LOC
20570 ;IN MEM, THE JSP WILL STORE THE LOC IT DID GO
20571 ;TO. BEFORE THE JRA, THE C(AC)= (E,0). AFTER THE
20572 ;JRA, THE C(AC) SHOULD=C(E).
20573
20574 000007 AC=7
20575 057356 JRA1: SETUP1 1,1^
20576 000010 AC1=<AC+1>&17
20577 000011 AC2=<AC+2>&17
20578 000012 AC3=<AC+3>&17
20579 000013 AC4=<AC+4>&17
20580 000014 AC5=<AC+5>&17
20581 000005 RAN1=<AC-2>&17
20582 057356 201 06 0 00 057356 MOVEI AC-1,.
20583 057357 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
20584 057360 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
20585 057361 202 06 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
20586 057362 201 06 0 00 000001 MOVEI AC-1,1 ;ROUTINE WEIGHTING
20587 057363 240 06 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
20588 057364 240 06 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
20589 057365 200 07 0 00 061115 MOVE AC,BUFSIZ ;PUT A
20590 057366 200 11 0 00 060752 MOVE AC2,[JSP AC3,JRA3] ;JSP AC3,JRA3
20591 057367 202 11 0 07 000000 MOVEM AC2,(AC) ;FROM END OF PROG
20592 057370 253 07 0 00 057371 AOBJN AC,.+1
20593 057371 603 07 0 00 770000 TLNE AC,770000
20594 057372 254 00 0 00 057367 JRST .-3
20595 057373 200 10 0 00 061132 JRA1A: MOVE AC1,WCBUF ;MOVE (-TOP+END,END) INTO AC1.
20596 057374 205 07 0 10 000000 JRA2: MOVSI AC,(AC1) ;PUT E INTO LEFT SIDE OF AC.
20597 057375 200 13 0 00 000007 MOVE AC4,AC ;SAVE C(AC) FOR PNT IN CASE OF ERR.
20598 057376 267 07 0 10 000000 JRA AC,(AC1) ;DO THE JRA TO MEM
20599 057377 312 07 0 00 000011 JRA3: CAME AC,AC2 ;C(AC) SHOULD=ORIG C(E).
20600 057400 001 11 0 00 000013 ERR AC2,AC4
20601 057401 553 00 0 00 000012 HRRZS AC3 ;JSP IN MEM STORED PC IN AC3
20602 057402 302 12 0 10 000001 CAIE AC3,1(AC1) ;C(AC3) SHOULD = ADDRESS+1.
20603 057403 007 11 0 10 000001 ERMM AC2,1(AC1) ;JRA WENT TO WRONG LOC.
20604 057404 321 06 0 00 057374 JUMPL AC-1,JRA2 ;LOOP ON ERROR SWITCH.
20605 057405 253 10 0 00 057406 AOBJN AC1,.+1
20606 057406 603 10 0 00 770000 TLNE AC1,770000
20607 057407 254 00 0 00 057374 JRST JRA2 ;INC TO TEST NEXT LOC.
20608 057410 367 06 0 00 057373 SOJG AC-1,JRA1A ;ITERATION COUNTER.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 36
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0526
20609
20610 ;TEST JRA, JSA.
20611 ;PUT A JRA BACK TO PROG IN EVERY LOC FROM
20612 ;THE END OF THE PROG TO THE DESIGNATED END
20613 ;OF MEM. THE ORIGINAL C(AC)=RAN NUM. AFTER
20614 ;THE JSA THE C(AC) SHOULD=(E,PC) AND THE
20615 ;C(E) SHOULD=RAN. NUM. AFTER THE JRA THE
20616 ;C(AC) SHOULD=RAN. NUM. AGAIN. CHECK FOR RAN
20617 ;NUM IN AC AND C(E)
20618
20619 000010 AC=10
20620 057411 JRAA: SETUP1 1,1^
20621 000011 AC1=<AC+1>&17
20622 000012 AC2=<AC+2>&17
20623 000013 AC3=<AC+3>&17
20624 000014 AC4=<AC+4>&17
20625 000015 AC5=<AC+5>&17
20626 000006 RAN1=<AC-2>&17
20627 057411 201 07 0 00 057411 MOVEI AC-1,.
20628 057412 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
20629 057413 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
20630 057414 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
20631 057415 201 07 0 00 000001 MOVEI AC-1,1 ;ROUTINE WEIGHTING
20632 057416 240 07 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
20633 057417 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
20634 057420 200 10 0 00 061115 MOVE AC,BUFSIZ ;PUT A
20635 057421 200 12 0 00 060753 MOVE AC2,[JRA AC,JRAD] ;JRA AC,JRAD
20636 057422 202 12 0 10 000000 MOVEM AC2,(AC) ;FROM END OF PROG
20637 057423 253 10 0 00 057424 AOBJN AC,.+1
20638 057424 603 10 0 00 770000 TLNE AC,770000
20639 057425 254 00 0 00 057422 JRST .-3
20640 057426 200 11 0 00 061132 JRAA1: MOVE AC1,WCBUF ;MOVE (-TOP+END,END) INTO AC1.
20641 057427 270 11 0 00 060714 ADD AC1,[XWD 1,0] ;ADD ONE ON LEFT...PREVENT NON EX MEM
20642 057430 JRAB: RANDM1^
20643 057430 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
20644 057431 270 10 0 00 060657 ADD AC,[142536475076]
20645 057432 241 10 0 00 777777 ROT AC,-1
20646 057433 447 10 0 00 061125 EQVB AC,RAN ;IN BOTH AC AND REGISTER RAN. ^
20647 057434 200 10 0 00 061125 JRAC: MOVE AC,RAN ;RESTORE C(AC) IN CASE OF ERROR
20648 057435 266 10 0 11 000000 JSA AC,(AC1) ;DO THE JSA TO MEM.
20649 057436 312 10 0 00 061125 JRAD: CAME AC,RAN ;C(AC) SHOULD=ORIG. C(AC).
20650 057437 001 12 0 00 061125 ERR AC2,RAN
20651 057440 312 10 0 11 000000 CAME AC,(AC1) ;C(E) SHOULD=ORIG C(AC).
20652 057441 001 12 0 00 061125 ERR AC2,RAN
20653 057442 321 07 0 00 057434 JUMPL AC-1,JRAC ;LOOP ON ERROR SWITCH
20654 057443 202 12 0 11 000000 MOVEM AC2,(AC1) ;RESTORE JRA IN MEM.
20655 057444 253 11 0 00 057445 AOBJN AC1,.+1
20656 057445 603 11 0 00 770000 TLNE AC1,770000
20657 057446 254 00 0 00 057430 JRST JRAB ;INC TO TEST NEXT LOC.
20658 057447 367 07 0 00 057426 SOJG AC-1,JRAA1 ;ITERATION COUNTER.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 37
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0527
20659
20660 ;TEST SKIPA.
20661 ;PUT A SKIPA . IN EVERY OTHER LOCATION FROM THE END OF
20662 ;THE PROG TO THE END OF DESIGNATED MEMORY. PUT A JSP BACK TO PROG
20663 ;IN ALL OTHER LOCATIONS FROM THE END OF PROG TO END OF MEM
20664 ;IF THE SKIPA GOES TO THE WRONG LOCATION IN MEM, THE JSP
20665 ;BACK WILL STORE THE PC+1 OF WHERE THE SKIPA WENT TO
20666 ;THE AC OF THE SKIPA INSTRUCTION WILL CONTAIN THE
20667 ;SKIPA THAT FAILED.
20668
20669 000011 AC=11
20670 057450 SKPAA: SETUP1 5,1^
20671 000012 AC1=<AC+1>&17
20672 000013 AC2=<AC+2>&17
20673 000014 AC3=<AC+3>&17
20674 000015 AC4=<AC+4>&17
20675 000016 AC5=<AC+5>&17
20676 000007 RAN1=<AC-2>&17
20677 057450 201 10 0 00 057450 MOVEI AC-1,.
20678 057451 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
20679 057452 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
20680 057453 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
20681 057454 201 10 0 00 000005 MOVEI AC-1,5 ;ROUTINE WEIGHTING
20682 057455 240 10 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
20683 057456 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
20684 057457 550 14 0 00 061123 HRRZ AC3,MODULO ;PUT TOP OF DESIGNATED MEM INTO AC3.
20685 057460 200 13 0 00 060754 MOVE AC2,[JSP AC4,SKPAA2];PUT A JSP BACK TO PROG INTO AC2.
20686 057461 200 12 0 00 060755 MOVE AC1,[SKIPA AC5,0];PUT A SKIPA INST INTO AC1.
20687 057462 541 12 1 00 030145 HRRI AC1,@MEMLOW
20688 057463 202 12 0 12 000000 SKPAA1: MOVEM AC1,(AC1) ;STORE SKIPA IN MEM.
20689 057464 340 12 0 00 000000 AOJ AC1, ;ADD ONE TO ADDRESS IN MEM.
20690 057465 202 13 0 12 000000 MOVEM AC2,(AC1) ;STORE JSP INST.
20691 057466 303 14 0 12 000002 CAILE AC3,2(AC1) ;ADDRESS > OR = TOP OF MEM?
20692 057467 344 12 0 00 057463 AOJA AC1,SKPAA1 ;NO. ADD ONE AND CONTINUE.
20693 057470 200 13 0 00 060756 MOVE AC2,[JRST SKPAA3] ;PUT A JRST BACK INTO AC2.
20694 057471 202 13 0 14 777777 MOVEM AC2,-1(AC3) ;STORE IN TOP -1.
20695 057472 202 13 0 14 000000 MOVEM AC2,(AC3) ;STORE IN TOP.
20696 057473 254 00 1 00 030145 JRST @MEMLOW ;GO DO SKIPA INSTRUCTIONS.
20697 057474 201 15 0 15 777777 SKPAA2: MOVEI AC4,-1(AC4) ;PUT THE PC OF WHERE THE SKIPA WENT TO INTO AC4.
20698 057475 007 16 0 14 000000 ERMM AC5,(AC3) ;C(AC5) = FAILING SKIPA INST.
20699 057476 367 10 0 00 057473 SKPAA3: SOJG AC-1,SKPAA2-1 ;ITERATION COUNTER.
20700 057477 321 10 0 00 057473 JUMPL AC-1,SKPAA2-1 ;LOOP ON ERROR SWITCH.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 38
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0528
20701 ;TEST SKIPA.
20702 ;THIS TEST IS LIKE THE PREVIOUS ONE EXCEPT THAT THE LOCATIONS
20703 ;IN MEM CONTAINING THE SKIPA AND THE ONES CONTAINING THE JSP BACK
20704 ;HAVE BEEN EXCHANGED.
20705
20706 000010 AC=10
20707 057500 SKPB: SETUP1 5,1^
20708 000011 AC1=<AC+1>&17
20709 000012 AC2=<AC+2>&17
20710 000013 AC3=<AC+3>&17
20711 000014 AC4=<AC+4>&17
20712 000015 AC5=<AC+5>&17
20713 000006 RAN1=<AC-2>&17
20714 057500 201 07 0 00 057500 MOVEI AC-1,.
20715 057501 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
20716 057502 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
20717 057503 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
20718 057504 201 07 0 00 000005 MOVEI AC-1,5 ;ROUTINE WEIGHTING
20719 057505 240 07 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
20720 057506 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
20721 057507 550 13 0 00 061123 HRRZ AC3,MODULO ;PUT TOP OF MEM IN AC3.
20722 057510 200 12 0 00 060757 MOVE AC2,[JSP AC4,SKPB2];PUT JSP BACK INTO AC2.
20723 057511 200 11 0 00 060760 MOVE AC1,[SKIPA AC5,1];PUT SKIPA INST INTO AC1.
20724 057512 271 11 1 00 030145 ADDI AC1,@MEMLOW
20725 057513 202 11 0 11 000000 SKPB1: MOVEM AC1,(AC1) ;PUT SKIPA INST INTO MEM.
20726 057514 340 11 0 00 000000 AOJ AC1, ;INC ADDRESS.
20727 057515 202 12 0 11 000000 MOVEM AC2,(AC1) ;PUT JSP INST INTO MEM.
20728 057516 303 13 0 11 000001 CAILE AC3,1(AC1) ;MEM FILLED?
20729 057517 344 11 0 00 057513 AOJA AC1,SKPB1 ;NO. CONTINUE TO FILL MEM.
20730 057520 200 12 0 00 060761 MOVE AC2,[JRST SKPB3];PUT A JRST INTO AC2.
20731 057521 202 12 0 13 777777 MOVEM AC2,-1(AC3) ;PUT A JRST BACK IN TOP -1.
20732 057522 202 12 0 13 000000 MOVEM AC2,(AC3) ;PUT A JRST BACK INTO TOP.
20733 057523 201 10 1 00 030145 MOVEI AC,@MEMLOW
20734 057524 254 00 0 10 000001 JRST 1(AC) ;GO DO SKIPA INSTRUCTIONS.
20735 057525 201 14 0 14 777777 SKPB2: MOVEI AC4,-1(AC4) ;PUT PC OF WHERE SKIPA INST WENT TO INTO AC4.
20736 057526 007 15 0 13 000000 ERMM AC5,(AC3) ;C(AC5) = FAILING SKIPA INST.
20737 057527 367 07 0 00 057524 SKPB3: SOJG AC-1,SKPB2-1 ;ITERATION COUNTER.
20738 057530 321 07 0 00 057524 JUMPL AC-1,SKPB2-1 ;LOOP ON ERROR SWITCH.
20739
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 39
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0529
20740 ;TEST DEFER.
20741 ;FILL BUFFER WITH RAN NUM THAT = ADDRESSES FROM THE END OF
20742 ;THE PROG TO THE END OF DESIGNATED MEMORY. PICK A RANDOM ADDRESS
20743 ;AND SET BIT 13 IN THAT LOC. NOW GET THE LOC THAT THAT POINTS
20744 ;TO AND SET BIT 13 IN IT. KEEP DOING THIS FOR 30 TIMES OR
20745 ;UNTIL A LOC POINTS TO A LOC THAT ALREADY HAS BIT 13 SET.
20746 000006 COUNT=6
20747 000007 FINAL=7
20748 057531 201 16 0 00 057531 DFRTST: MOVEI 16,.
20749 057532 202 16 0 00 030051 MOVEM 16,TESTPC ;SETUP SUBTEST PC
20750 057533 201 16 0 00 000016 MOVEI 16,16
20751 057534 202 16 0 00 061117 MOVEM 16,ERRLOP# ;WHICH AC IS USED FOR ITERATION.
20752 057535 201 16 0 00 000005 MOVEI 16,5 ;ROUTINE WEIGHTING.
20753 057536 550 05 0 00 061123 HRRZ 5,MODULO ;PUT HIGHEST MEM LOC IN AC5.
20754 057537 402 00 0 00 061116 SETZM DFRTFG# ;CLR "WHICH DEFER TEST " FLAG.
20755 057540 201 01 1 00 030145 DFRT1: MOVEI 1,@MEMLOW ;PUT ADDRESS OF END OF PROG INTO AC1.
20756 057541 402 00 0 00 000006 SETZM COUNT# ;CLR CNT OF # OF DEFERS.
20757 057542 200 10 0 00 061125 DFRT2: MOVE 10,RAN ;PRODUCE
20758 057543 270 10 0 00 060657 ADD 10,[142536475076];A
20759 057544 241 10 0 00 000001 ROT 10,1 ;RANDOM
20760 057545 447 10 0 00 061125 EQVB 10,RAN ;NUMBER.
20761 057546 404 10 0 00 000005 AND 10,5 ;AND WITH HIGHEST MEM LOC.
20762 057547 305 10 1 00 030145 CAIGE 10,@MEMLOW ;RAN NUM > OR = END OF PROG?
20763 057550 254 00 0 00 057542 JRST DFRT2 ;NO. GET ANOTHER NUM.
20764 057551 303 01 1 00 000005 CAILE 1,@5 ;ADDRESS > HIGHEST MEM LOC?
20765 057552 254 00 0 00 057555 JRST DFRT3 ;YES. STOP FILLING MEM.
20766 057553 202 10 0 01 000000 MOVEM 10,(1) ;PUT RAN NUM INTO MEM.
20767 057554 344 01 0 00 057542 AOJA 1,DFRT2 ;ADD 1 TO ADDRESS AND GET A NEW NUM.
20768 057555 505 10 0 00 000020 DFRT3: HRLI 10,20 ;SET INDIRECT BIT.
20769 057556 202 10 0 06 060356 MOVEM 10,TABL(COUNT) ;PUT IN TABLE.
20770 057557 200 03 0 10 000000 MOVE 3,(10) ;GET CONTENTS OF ADDRESS.
20771 057560 505 03 0 00 000020 HRLI 3,20 ;SET DEFER BIT.
20772 057561 200 02 0 00 000006 MOVE 2,COUNT ;PUT COUNT INTO AC2.
20773 057562 316 03 0 02 060356 CAMN 3,TABL(2) ;C(C(ADDRESS)) = ANY IN TABLE?
20774 057563 254 00 0 00 057572 JRST DFRT4 ;YES. STOP SETTING DEFER BIT.
20775 057564 365 02 0 00 057562 SOJGE 2,.-2 ;SUB 1 AND TEST NEXT IN TABLE.
20776 057565 202 03 0 10 000000 MOVEM 3,(10) ;NUMBER OK, STORE DEFER BIT.
20777 057566 201 10 0 03 000000 MOVEI 10,(3)
20778 057567 350 02 0 00 000006 AOS 2,COUNT ;INC COUNT.
20779 057570 305 02 0 00 000030 CAIGE 2,30 ;COUNT = 30?
20780 057571 254 00 0 00 057555 JRST DFRT3 ;NO. CONTINUE.
20781 057572 550 07 0 10 000000 DFRT4: HRRZ 7,(10) ;YES. STORE ADDRESS WHERE DEFER SHOULD STOP.
20782 057573 201 02 1 00 060356 MOVEI 2,@TABL ;DO DEFER INST.
20783 057574 312 02 0 00 000007 CAME 2,FINAL ;C(AC2) SHOULD = C(FINAL).
20784 057575 260 17 0 00 060272 GO ERROUT ;DEFER STOPPED OR WENT TO WRONG LOC.
20785 057576 367 16 0 00 057540 SOJG 16,DFRT1 ;ITERATION COUNT.
20786 057577 321 16 0 00 057555 JUMPL 16,DFRT3 ;ERROR LOOP SWITCH.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 40
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0530
20787 ;TEST DEFER.
20788 ;THIS TEST IS LIKE THE PREVIOUS ONE EXCEPT IT USES
20789 ;INDEX REGISTERS BESIDES THE INDIRECT. INDEX REGISTERS
20790 ;10 - 16 ARE SET TO A -1.THE FLOW FROM ONE LOC TO ANOTHER
20791 ;IS FROM ONE LOC TO THE NEXT LOC -1.
20792
20793 057600 201 07 0 00 057600 DFT: MOVEI 7,.
20794 057601 202 07 0 00 030051 MOVEM 7,TESTPC ;SETUP SUBTEST PC
20795 057602 201 07 0 00 000007 MOVEI 7,7 ;INFORM ERROR ROUTINE
20796 057603 202 07 0 00 061117 MOVEM 7,ERRLOP ;WHICH AC IS USED FOR ITERATION.
20797 057604 201 07 0 00 000005 MOVEI 7,5 ;PUT ITERATION COUNT INTO AC7.
20798 057605 202 07 0 00 061126 MOVEM 7,TAMP# ;SAVE ITERATION COUNT IN TAMP.
20799 057606 402 00 0 00 061131 SETZM TAMP3# ;CLR
20800 057607 476 00 0 00 061116 SETOM DFRTFG# ;SET "WHICH DEFER TEST" FLAG.
20801 057610 477 10 0 00 000011 DFT1: SETOB 10,11 ;SET C(AC10-AC16) TO A -1.
20802 057611 477 12 0 00 000013 SETOB 12,13
20803 057612 477 14 0 00 000015 SETOB 14,15
20804 057613 474 16 0 00 000000 SETO 16,
20805 057614 550 07 0 00 061123 HRRZ 7,MODULO ;PUT HIGHEST MEM LOC INTO AC7.
20806 057615 201 01 1 00 030145 MOVEI 1,@MEMLOW ;PUT ADDRESS OF END OF PROG INTO AC1.
20807 057616 402 00 0 00 000006 SETZM COUNT ;CLR INDIRECT BIT COUNTER.
20808 057617 200 04 0 00 061125 DFT2: MOVE 4,RAN ;PRODUCE
20809 057620 270 04 0 00 060657 ADD 4,[142536475076];A
20810 057621 241 04 0 00 000001 ROT 4,1 ;RANDOM
20811 057622 447 04 0 00 061125 EQVB 4,RAN ;NUMBER.
20812 057623 404 04 0 00 000007 AND 4,7 ;KEEP NUMBER WITHIN EX MEM.
20813 057624 307 04 1 00 030145 CAIG 4,@MEMLOW ;NUMBER > THAN END OF PROG?
20814 057625 254 00 0 00 057617 JRST DFT2 ;NO. GET ANOTHER NUMBER.
20815 057626 303 01 1 00 000007 CAILE 1,@7 ;ADR OF WHERE NUM IS STORED > THAN MEM?
20816 057627 254 00 0 00 057632 JRST DFT3 ;YES. MEM HAS BEEN FILLED.
20817 057630 202 04 0 01 000000 MOVEM 4,(1) ;STORE THIS NUM IN MEM.
20818 057631 344 01 0 00 057617 AOJA 1,DFT2 ;INC ADR.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 41
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0531
20819 057632 200 05 0 00 000004 DFT3: MOVE 5,4 ;GEN A
20820 057633 405 05 0 00 000007 ANDI 5,7 ;NUM FROM 0-7.
20821 057634 306 05 0 00 000007 CAIN 5,7
20822 057635 275 05 0 00 000001 SUBI 5,1
20823 057636 505 04 0 05 000030 HRLI 4,30(5) ;SET INDIRECT BIT + INDEX FROM 10 TO 16.
20824 057637 202 04 0 06 060356 MOVEM 4,TABL(6) ;STORE IN TABLE.
20825 057640 200 03 0 04 777777 MOVE 3,-1(4) ;GET LOC -1.
20826 057641 505 03 0 05 000030 HRLI 3,30(5) ;SET INDIRECT BIT + INDEX.
20827 057642 200 02 0 00 000006 MOVE 2,COUNT ;PUT COUNT INTO AC2.
20828 057643 202 03 0 00 061127 MOVEM 3,TAMP1# ;SAVE C(AC3).
20829 057644 202 04 0 00 061130 MOVEM 4,TAMP2# ;SAVE C(AC4).
20830 057645 550 04 0 00 000003 HRRZ 4,3 ;PUT CURRENT ADR INTO AC4.
20831 057646 550 03 0 02 060356 HRRZ 3,TABL(2) ;PUT ADR IN TABLE INTO AC3.
20832 057647 306 03 0 04 000000 CAIN 3,(4) ;ADR = ANY IN TABL?
20833 057650 476 00 0 00 061131 SETOM TAMP3# ;YES. SET FLAG.
20834 057651 365 02 0 00 057646 SOJGE 2,.-3 ;CONTINUE UNTIL CHECKED ALL OF TABLE.
20835 057652 200 03 0 00 061127 MOVE 3,TAMP1 ;RESTORE AC3.
20836 057653 200 04 0 00 061130 MOVE 4,TAMP2 ;RESTORE AC4.
20837 057654 336 00 0 00 061131 SKIPN TAMP3 ;ADR = ANY IN TABL?
20838 057655 254 00 0 00 057661 JRST .+4 ;NO.
20839 057656 402 00 0 00 061131 SETZM TAMP3 ;YES. CLR FLAG.
20840 057657 201 07 0 03 000000 MOVEI 7,(3) ;GET LAST ADR AND
20841 057660 254 00 0 00 057667 JRST DFT4+1 ;GO DO DEFER.
20842 057661 202 03 0 04 777777 MOVEM 3,-1(4) ;STORE INDIRECT AND INDEX.
20843 057662 201 04 0 03 000000 MOVEI 4,(3) ;GET NEXT ADR.
20844 057663 350 02 0 00 000006 AOS 2,COUNT ;INC COUNT.
20845 057664 305 02 0 00 000030 CAIGE 2,30 ;30?
20846 057665 254 00 0 00 057632 JRST DFT3 ;NO. CONTINUE.
20847 057666 550 07 0 04 777777 DFT4: HRRZ 7,-1(4) ;GET ADR WHERE DEFER SHOULD STOP.
20848 057667 201 02 1 00 060356 MOVEI 2,@TABL ;DO DEFER INST.
20849 057670 316 02 0 00 000007 CAMN 2,7 ;=?
20850 057671 254 00 0 00 057674 JRST .+3 ;YES.
20851 057672 260 17 0 00 060272 GO ERROUT ;NO. GO PNT ERR MESS.
20852 057673 254 00 0 00 057676 JRST DFT4+10 ;JUMP AROUND LOADING ITR CTR.
20853 057674 370 07 0 00 061126 SOS 7,TAMP ;GET ITER COUNT AND SUB 1.
20854 057675 327 07 0 00 057610 JUMPG 7,DFT1 ;CONTINUE IF > 0.
20855 057676 321 07 0 00 057632 JUMPL 7,DFT3 ;ERROR LOOP IF < 0.
20856
20857
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 42
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0532
20858 ;TEST POP.
20859 ;CHECK FOR ABILITY OF POP TO MOVE A RANDOM NUMBER
20860 ;FROM THE C(C(AC)R) TO THE C(E).
20861
20862 000011 AC=11
20863 057677 TPOP: SETUP1 1,1^
20864 000012 AC1=<AC+1>&17
20865 000013 AC2=<AC+2>&17
20866 000014 AC3=<AC+3>&17
20867 000015 AC4=<AC+4>&17
20868 000016 AC5=<AC+5>&17
20869 000007 RAN1=<AC-2>&17
20870 057677 201 10 0 00 057677 MOVEI AC-1,.
20871 057700 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
20872 057701 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
20873 057702 202 10 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
20874 057703 201 10 0 00 000001 MOVEI AC-1,1 ;ROUTINE WEIGHTING
20875 057704 240 10 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
20876 057705 240 10 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
20877 057706 TPOP1: RANDM1^
20878 057706 200 11 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
20879 057707 270 11 0 00 060657 ADD AC,[142536475076]
20880 057710 241 11 0 00 777777 ROT AC,-1
20881 057711 447 11 0 00 061125 EQVB AC,RAN ;IN BOTH AC AND REGISTER RAN. ^
20882 057712 200 12 0 00 060762 TPOP2: MOVE AC1,[XWD 1,AC] ;SETUP POINTER TO GET DATA FROM AC.
20883 057713 262 12 0 00 000013 POP AC1,AC2 ;DO POP INST.
20884 057714 312 13 0 00 000011 CAME AC2,AC ;C(E) SHOULD=RAN. NUM.
20885 057715 004 13 0 00 000011 ERROR AC2,AC
20886 LOOP TPOP1,TPOP2^
20887 057716 367 10 0 00 057706 SOJG AC-1,TPOP1 ;ITERATION COUNTER
20888 057717 200 11 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
20889 057720 321 10 0 00 057712 JUMPL AC-1,TPOP2 ;LOOP ON ERROR SWITCH ^
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 43
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0533
20890
20891 ;TEST POP.
20892 ;CHECK POINTER DECREMENT.
20893 ;A RANDOM NUMBER WITH BOTH LEFT AND RIGHT SIDES
20894 ;LESS THAN MEMORY SIZE IS USED AS A POINTER WORD. THE
20895 ;ONLY RESTRICTION ON THIS NUMBER IS THAT IT BE NON
20896 ;ZERO IN THE LEFT HALF...PREVENT PDL OVERFLOW.
20897
20898 000012 AC=12
20899 057721 TPOP3: SETUP1 1,1^
20900 000013 AC1=<AC+1>&17
20901 000014 AC2=<AC+2>&17
20902 000015 AC3=<AC+3>&17
20903 000016 AC4=<AC+4>&17
20904 000017 AC5=<AC+5>&17
20905 000010 RAN1=<AC-2>&17
20906 057721 201 11 0 00 057721 MOVEI AC-1,.
20907 057722 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
20908 057723 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
20909 057724 202 11 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
20910 057725 201 11 0 00 000001 MOVEI AC-1,1 ;ROUTINE WEIGHTING
20911 057726 240 11 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
20912 057727 240 11 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
20913 057730 TPOP4: RANDM1^
20914 057730 200 12 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
20915 057731 270 12 0 00 060657 ADD AC,[142536475076]
20916 057732 241 12 0 00 777777 ROT AC,-1
20917 057733 447 12 0 00 061125 EQVB AC,RAN ;IN BOTH AC AND REGISTER RAN. ^
20918 057734 404 12 0 00 061123 TPOP5: AND AC,MODULO ;MAKE LEFT AND RHT=<MEM SIZ.
20919 057735 607 12 0 00 777777 TLNN AC,-1 ;IS LEFT SIDE=0?
20920 057736 254 00 0 00 057730 JRST TPOP4 ;YES.. REJECT..PREVENT PDL OV.
20921 057737 200 13 0 00 000012 MOVE AC1,AC ;MOVE POINTER WORD INTO AC1.
20922 057740 274 12 0 00 060720 SUB AC,[XWD 1,1] ;SIMULATE DECREMENTING POINTER.
20923 057741 262 13 0 00 000014 POP AC1,AC2 ;DO A POP INST.
20924 057742 312 13 0 00 000012 CAME AC1,AC ;C(AC) SHOULD=SIM. ANS.
20925 057743 004 13 0 00 000012 ERROR AC1,AC
20926 LOOP TPOP4,TPOP5^
20927 057744 367 11 0 00 057730 SOJG AC-1,TPOP4 ;ITERATION COUNTER
20928 057745 200 12 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
20929 057746 321 11 0 00 057734 JUMPL AC-1,TPOP5 ;LOOP ON ERROR SWITCH ^
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 44
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0534
20930
20931 ;TEST PUSH.
20932 ;CHECK THE ABILITY OF PUSH TO MOVE A RANDOM
20933 ;NUMBER FROM THE C(E) TO THE C(C(AC)R).
20934
20935 000013 AC=13
20936 057747 TPUSH: SETUP1 1,1^
20937 000014 AC1=<AC+1>&17
20938 000015 AC2=<AC+2>&17
20939 000016 AC3=<AC+3>&17
20940 000017 AC4=<AC+4>&17
20941 000000 AC5=<AC+5>&17
20942 000011 RAN1=<AC-2>&17
20943 057747 201 12 0 00 057747 MOVEI AC-1,.
20944 057750 202 12 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
20945 057751 201 12 0 00 000012 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
20946 057752 202 12 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
20947 057753 201 12 0 00 000001 MOVEI AC-1,1 ;ROUTINE WEIGHTING
20948 057754 240 12 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
20949 057755 240 12 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
20950 057756 TPUSH1: RANDM1^
20951 057756 200 13 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
20952 057757 270 13 0 00 060657 ADD AC,[142536475076]
20953 057760 241 13 0 00 777777 ROT AC,-1
20954 057761 447 13 0 00 061125 EQVB AC,RAN ;IN BOTH AC AND REGISTER RAN. ^
20955 057762 201 14 0 00 000014 TPUSH2: MOVEI AC1,AC1 ;MAKE THE C(AC)R = AC2.
20956 057763 261 14 0 00 000013 PUSH AC1,AC ;DO PUSH...C(AC) TO C(AC2)
20957 057764 312 15 0 00 000013 CAME AC2,AC ;C(AC2) SHOULD=RAN. NUM.
20958 057765 004 15 0 00 000013 ERROR AC2,AC
20959 LOOP TPUSH1,TPUSH2^
20960 057766 367 12 0 00 057756 SOJG AC-1,TPUSH1 ;ITERATION COUNTER
20961 057767 200 13 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
20962 057770 321 12 0 00 057762 JUMPL AC-1,TPUSH2 ;LOOP ON ERROR SWITCH ^
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 45
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0535
20963
20964 ;TEST PUSH
20965 ;CHECK POINTER INCREMENT.
20966 ;A RANDOM NUMBER WITH BOTH LEFT AND RIGHT SIDES
20967 ;LESS THAN MEMORY SIZE IS USED AS A POINTER WORD
20968
20969 000014 AC=14
20970 057771 TPUSH3: SETUP1 1,1^
20971 000015 AC1=<AC+1>&17
20972 000016 AC2=<AC+2>&17
20973 000017 AC3=<AC+3>&17
20974 000000 AC4=<AC+4>&17
20975 000001 AC5=<AC+5>&17
20976 000012 RAN1=<AC-2>&17
20977 057771 201 13 0 00 057771 MOVEI AC-1,.
20978 057772 202 13 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
20979 057773 201 13 0 00 000013 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
20980 057774 202 13 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
20981 057775 201 13 0 00 000001 MOVEI AC-1,1 ;ROUTINE WEIGHTING
20982 057776 240 13 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
20983 057777 240 13 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
20984 060000 TPUSH4: RANDM1^
20985 060000 200 14 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
20986 060001 270 14 0 00 060657 ADD AC,[142536475076]
20987 060002 241 14 0 00 777777 ROT AC,-1
20988 060003 447 14 0 00 061125 EQVB AC,RAN ;IN BOTH AC AND REGISTER RAN. ^
20989 060004 404 14 0 00 061123 TPUSH5: AND AC,MODULO ;MAKE LEFT+RHT=<MEM SIZE
20990 060005 550 15 0 00 000014 HRRZ AC1,AC ;BUT > THAN END.
20991 060006 312 15 0 00 000014 CAME AC1,AC ;BOTH HALVES EQUAL?..GEN NEW NUM.
20992 060007 307 15 1 00 030145 CAIG AC1,@MEMLOW
20993 060010 254 00 0 00 060000 JRST TPUSH4 ;REJECT.
20994 060011 500 15 0 00 000014 HLL AC1,AC
20995 060012 540 14 0 00 000015 HRR AC,AC1
20996 060013 274 15 0 00 060720 SUB AC1,[XWD 1,1] ;SIMULATE INCREMENTING POINTER
20997 060014 261 15 0 00 000016 PUSH AC1,AC2 ;DO A PUSH INST.
20998 060015 312 15 0 00 000014 CAME AC1,AC ;C(AC) SHOULD=SIM. ANS.
20999 060016 004 15 0 00 000014 ERROR AC1,AC
21000 LOOP TPUSH4,TPUSH5^
21001 060017 367 13 0 00 060000 SOJG AC-1,TPUSH4 ;ITERATION COUNTER
21002 060020 200 14 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
21003 060021 321 13 0 00 060004 JUMPL AC-1,TPUSH5 ;LOOP ON ERROR SWITCH ^
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 46
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0536
21004
21005 ;POP TEST
21006 ;AN AREA OF CORE IS SET ASIDE AS A BUFFER. THE TOP(HIGH)
21007 ;LOCATIONS ARE CONSIDERED THE FROM AREA. LOCATIONS BELOW THE "FROM"
21008 ;AREA ARE CONSIDERED THE "TO" AREA. THE FROM AND TO LOCATIONS ARE
21009 ;CHOSEN FROM A RANDOM NUMBER GENERATORS. THE TEST IS DESIGNED
21010 ;SUCH THAT A LARGE NUMBER OF POP INSTRUCTIONS MAY BE EXECUTED
21011 ;QUICKLY. THE NUMBER OF ITERATIONS OF THE POP INSTRUCTION IS A FUNCTION
21012 ;OF THE FROM ADDRESS, AND TO ADDRESS. THE NUMBER IS CHOSEN SUCH
21013 ;THAT THE FROM AND TO AREAS DO NOT OVERLAP. THE POP INSTRUCTION TAKES
21014 ;DATA WORDS DECREMENTING THROUGH MEMORY TO THE TO AREA INCREMENTING
21015 ;THROUGH MEMORY. IN ESSENCE EVERYTHING IS RANDOM.
21016 ;THIS TEST SHOULD NEVER SET THE PDL-OV FLAG.
21017 ;ERRORS ARE POSSIBLE FROM AN INCORRECT POINTER WORD OR DATA TRANSFERED
21018 ;INCORRECTLY, IN ANY CASE, THE FIRST ERROR WILL BE PRINTED.
21019 ;THE LIST WILL RECYCLE WITH THE FAILED NUMBERS.
21020 ;IF THE PROBLEM IS TO DIFFICULT TO SCOPE SUGGEST MARGIN
21021 ;ON A SIMPLER POP TEST.
21022
21023 000010 AC=10
21024 000012 POPOINT=12 ;POP INST POINTER AC
21025 000013 GDP=13 ;GENERATE DATA POINTER
21026 000014 CDP=14 ;CHECK DATA POINTER
21027 000015 POPE=15 ;POP"E" POINTER TO CORE
21028 060022 POPT: SETUP1 1,1^
21029 000011 AC1=<AC+1>&17
21030 000012 AC2=<AC+2>&17
21031 000013 AC3=<AC+3>&17
21032 000014 AC4=<AC+4>&17
21033 000015 AC5=<AC+5>&17
21034 000006 RAN1=<AC-2>&17
21035 060022 201 07 0 00 060022 MOVEI AC-1,.
21036 060023 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
21037 060024 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
21038 060025 202 07 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
21039 060026 201 07 0 00 000001 MOVEI AC-1,1 ;ROUTINE WEIGHTING
21040 060027 240 07 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
21041 060030 240 07 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 47
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0537
21042 060031 POPT1: RANDM1^
21043 060031 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
21044 060032 270 10 0 00 060657 ADD AC,[142536475076]
21045 060033 241 10 0 00 777777 ROT AC,-1
21046 060034 447 10 0 00 061125 EQVB AC,RAN ;IN BOTH AC AND REGISTER RAN. ^
21047 060035 404 10 0 00 061123 AND AC,MODULO ;CONFINE TEST TO MEM SIZE
21048 060036 550 00 0 00 000010 HRRZ 0,AC ;AC = HIGH,,LOW = FROM,,TO
21049 060037 554 01 0 00 000010 HLRZ 1,AC ;AC+1 = LOW,,HIGH = TO,,FROM
21050 060040 311 00 0 00 000001 CAML 0,1 ;0 = + NUMBER OF WORDS BETWEEN TO AND FROM
21051 060041 204 10 0 00 000010 MOVS AC,AC
21052 060042 204 11 0 00 000010 MOVS AC+1,AC
21053 060043 201 00 0 11 000000 MOVEI (AC+1) ;SUB "TO" AREA FROM "FROM" AREA
21054 060044 275 00 0 10 000000 SUBI (AC) ;THIS LEAVES POSITIVE DIFF IN C(0)
21055 060045 334 00 0 00 000000 SKIPA ;IF THE NUMBERS WILL OVERLAP OR
21056 060046 240 00 0 00 777777 ASH 0,-1 ;DESTROY PROGRAM SCALE SIZE OF BLOCK
21057 060047 336 01 0 00 000000 SKIPN 1,0 ;MOVE 0 TO 1. IF THE BLOCK SIZE
21058 060050 254 00 0 00 060031 JRST POPT1 ;IS ZERO THEN GET OTHER NUMBERS
21059 060051 275 01 0 10 000000 SUBI 1,(AC) ;DO NOT ALLOW TO AREA TO
21060 060052 271 01 1 00 030145 ADDI 1,@MEMLOW ;OVERLAY PROGRAM. LOC0 CONTAINS
21061 060053 327 01 0 00 060046 JUMPG 1,.-5 ;NUMBER OF WORDS IN BLOCK
21062 060054 214 00 0 00 000000 POPRET: MOVM ;MAKE IT POSITIVE FOR ITERATION
21063 060055 306 00 0 00 000001 CAIN 0,1 ;=1?
21064 060056 254 00 0 00 060031 JRST POPT1 ;YES. REJECT.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 48
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0538
21065 060057 516 00 0 00 000012 POPT2: HRLZM POPOINT ;MAKE POP POINTER WORD
21066 060060 541 12 0 11 000000 HRRI POPOINT,(AC+1) ;(+WC, FROM LOC)
21067 060061 213 13 0 00 000000 MOVNS GDP,0 ;MAKE GEN DATA POINTER
21068 060062 507 14 0 00 000013 HRLS CDP,GDP ;-WC+1,FROM-WC
21069 060063 271 13 0 11 000000 ADDI GDP,(AC+1) ;MAKE CHECK DATA POINTER
21070 060064 271 14 0 10 000000 ADDI CDP,(AC) ;-WC+1, TO -WC
21071 060065 202 14 0 00 000015 MOVEM CDP,POPE ;MAKE A POINTER FOR POP (E)
21072 060066 542 13 0 00 060104 HRRM GDP,POPT5
21073 060067 321 07 0 00 060100 JUMPL AC-1,POPT4 ;NO MORE RANDOM IF ERROR SET
21074 060070 POPT3: RANDM1 ^;FILL THE FROM AREA
21075
21076 060070 200 10 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
21077 060071 270 10 0 00 060657 ADD AC,[142536475076]
21078 060072 241 10 0 00 777777 ROT AC,-1
21079 060073 447 10 0 00 061125 EQVB AC,RAN ;IN BOTH AC AND REGISTER RAN.
21080 060074 202 10 0 13 000000 MOVEM AC,(GDP) ;WHEN EXIT GDP=0,FROM
21081 060075 253 13 0 00 060076 AOBJN GDP,.+1
21082 060076 603 13 0 00 770000 TLNE GDP,770000
21083 060077 254 00 0 00 060070 JRST POPT3
21084
21085 060100 262 12 0 15 000000 POPT4: POP POPOINT,(POPE) ;TRANSFER N WORDS WITH THE
21086 060101 253 15 0 00 060102 AOBJN POPE,.+1 ;POP INSTRUCTION
21087 060102 603 15 0 00 770000 TLNE POPE,770000
21088 060103 254 00 0 00 060100 JRST POPT4
21089
21090 060104 201 01 0 00 000000 POPT5: MOVEI 1,0 ;FILLED BY DATA FROM+WC
21091 060105 271 01 0 00 000001 ADDI 1,1
21092 060106 505 01 0 00 000001 HRLI 1,1 ;CHECK THE POP POINTER
21093 060107 312 01 0 00 000012 CAME 1,POPOINT
21094 060110 004 12 0 00 000001 ERROR POPOINT,1 ;POP POINTER FAIL
21095 060111 551 01 0 11 000000 HRRZI 1,(AC+1) ;CHECK THE DATA
21096 060112 200 10 0 01 000000 MOVE AC,(1) ;IN THE TO AREA
21097 060113 312 10 0 14 000000 CAME AC,(CDP) ;AGAINST THE FROM AREA
21098 060114 004 10 0 14 000000 ERROR AC,(CDP) ;DATA FAIL
21099 060115 275 01 0 00 000001 SUBI 1,1
21100 060116 253 14 0 00 060117 AOBJN CDP,.+1
21101 060117 603 14 0 00 770000 TLNE CDP,770000
21102 060120 254 00 0 00 060112 JRST .-6
21103 LOOP POPT1,POPRET^
21104 060121 367 07 0 00 060031 SOJG AC-1,POPT1 ;ITERATION COUNTER
21105 060122 200 10 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
21106 060123 321 07 0 00 060054 JUMPL AC-1,POPRET ;LOOP ON ERROR SWITCH ^
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 49
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0539
21107
21108 ;PUSH TEST
21109 ;A RANDOM SET OF ADDRESS ARE CHOSEN SUCH THAT A FROM AND TO
21110 ;AREA ARE FORMED. THE "TO" AREA IS THE TOP OF CORE (HIGH ADDRESS)
21111 ;AND "FROM" AREA IS THE LOWER ADDRESSES. A RANDOM NUMBER IS
21112 ;GENERATED IN THE FROM AREA. IT IS TRANSFERED BY THE PUSH INST
21113 ;TOO THE TO AREA. WORKS ARE STORED SEQUENTIALY INCREMENTING IN THE
21114 ;"TO" AREA. THE WORDS ARE OBTAINED BY DECREMENTING THROUGH THE
21115 ;FROM AREA. IN THE EVENT OF ERROR THE PUSH POINTER IS RESET
21116 ;AND THE FAILURES IS CYCLED
21117
21118 000005 AC=5
21119 000002 PP=2
21120 000003 CKPP=3
21121
21122 060124 PUSHT: SETUP1 1,1^
21123 000006 AC1=<AC+1>&17
21124 000007 AC2=<AC+2>&17
21125 000010 AC3=<AC+3>&17
21126 000011 AC4=<AC+4>&17
21127 000012 AC5=<AC+5>&17
21128 000003 RAN1=<AC-2>&17
21129 060124 201 04 0 00 060124 MOVEI AC-1,.
21130 060125 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
21131 060126 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
21132 060127 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
21133 060130 201 04 0 00 000001 MOVEI AC-1,1 ;ROUTINE WEIGHTING
21134 060131 240 04 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
21135 060132 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
21136 060133 PUSHT1: RANDM1^
21137 060133 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
21138 060134 270 05 0 00 060657 ADD AC,[142536475076]
21139 060135 241 05 0 00 777777 ROT AC,-1
21140 060136 447 05 0 00 061125 EQVB AC,RAN ;IN BOTH AC AND REGISTER RAN. ^
21141 060137 404 05 0 00 061123 PUSHT2: AND AC,MODULO
21142 060140 204 06 0 00 000005 MOVS AC+1,AC
21143 060141 317 05 0 00 000006 CAMG AC,AC+1 ;C(AC)R IS SMALLER ADDR
21144 060142 250 05 0 00 000006 EXCH AC,AC+1 ;C(AC+1)R IS LARGER ADDRESS
21145 060143 405 05 0 00 777777 ANDI AC,-1 ;SMALLEST ADDRESS MUST
21146 060144 307 05 1 00 030145 CAIG AC,@MEMLOW ;BE ABOVE PROGRAM OR REJECT
21147 060145 254 00 0 00 060133 JRST PUSHT1 ;THESE NUMBERS
21148 060146 201 00 0 06 000000 MOVEI (AC+1) ;FIND THE DIFFERENCE BETWEEN
21149 060147 274 00 0 00 061123 SUB MODULO ;THE HIGHEST ADDR IN THE
21150 060150 573 01 0 00 000000 HRRES 1,0 ;"TO" AREA AND THE TOP OF MEMORY
21151 060151 325 01 0 00 060133 JUMPGE 1,PUSHT1 ;IF NO ROOM AT TOP REJECT
21152 060152 217 01 0 00 000000 MOVMS 1,0 ;MAKE DIFF A POSITIVE NUMBER
21153 060153 542 05 0 00 060161 PUSHT3: HRRM AC,PUSHT5 ;THE FROM AREA ADDRESS
21154 060154 550 03 0 00 000006 HRRZ CKPP,AC+1 ;A WORD TO CHECK POINTER INC
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 50
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0540
21155 060155 PUSHT4: RANDM1^
21156 060155 200 05 0 00 061125 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
21157 060156 270 05 0 00 060657 ADD AC,[142536475076]
21158 060157 241 05 0 00 777777 ROT AC,-1
21159 060160 447 05 0 00 061125 EQVB AC,RAN ;IN BOTH AC AND REGISTER RAN. ^
21160 060161 202 05 0 01 000000 PUSHT5: MOVEM AC,0(1) ;STORE A RANDOM NUMBER IN
21161 060162 202 03 0 00 000002 MOVEM CKPP,PP ;THE FROM AREA
21162 060163 261 02 1 00 060161 PUSH PP,@.-2 ;C(E) TO C(C(ACRT))
21163 060164 270 03 0 00 060720 ADD CKPP,[XWD 1,1] ;INC THE CHECK POINTER
21164 060165 312 02 0 00 000003 CAME PP,CKPP ;CHECK FOR PROPER INCREMENT
21165 060166 004 02 0 00 000003 ERROR PP,CKPP ;ERROR
21166 060167 312 05 0 03 000000 CAME AC,(CKPP) ;DATA TRANSFER INCORRECT
21167 060170 004 05 0 03 000000 ERROR AC,(CKPP) ;ERROR
21168 060171 325 04 0 00 060174 JUMPGE AC-1,.+3 ;IF ERROR SWITCH IS SET
21169 060172 274 03 0 00 060720 SUB CKPP,[XWD 1,1] ;BACK UP THE POINTER
21170 060173 254 00 0 00 060161 JRST PUSHT5 ;AND REPEAT THE SEQ
21171 060174 367 01 0 00 060155 SOJG 1,PUSHT4 ;GO UNTIL TOP OF CORE
21172 LOOP PUSHT1,PUSHT1 ^;ITERATE TEST
21173
21174 060175 367 04 0 00 060133 SOJG AC-1,PUSHT1 ;ITERATION COUNTER
21175 060176 200 05 0 00 061125 MOVE AC,RAN ;RESTORE RANDOM NUMBER
21176 060177 321 04 0 00 060133 JUMPL AC-1,PUSHT1 ;LOOP ON ERROR SWITCH
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 51
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0541
21177
21178 ;TEST POPJ
21179 ;CHECK TO SEE THAT THE POPJ CAN LOAD THE PC WITH EVERY
21180 ;ADDRESS IN THE BUFFER AND THAT IT JUMPS TO THE RIGHT
21181 ;LOC IN THE BUFFER
21182
21183 000005 AC=5
21184 060200 POPJ1: SETUP1 1,1^
21185 000006 AC1=<AC+1>&17
21186 000007 AC2=<AC+2>&17
21187 000010 AC3=<AC+3>&17
21188 000011 AC4=<AC+4>&17
21189 000012 AC5=<AC+5>&17
21190 000003 RAN1=<AC-2>&17
21191 060200 201 04 0 00 060200 MOVEI AC-1,.
21192 060201 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
21193 060202 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
21194 060203 202 04 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
21195 060204 201 04 0 00 000001 MOVEI AC-1,1 ;ROUTINE WEIGHTING
21196 060205 240 04 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
21197 060206 240 04 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
21198 060207 200 05 0 00 061115 MOVE AC,BUFSIZ ;PUT A
21199 060210 200 11 0 00 060763 MOVE AC4,[JSP AC3,POPJ4] ;JSP AC3, POPJ4
21200 060211 202 11 0 05 000000 MOVEM AC4,(AC) ;FROM THE END OF PROG
21201 060212 253 05 0 00 060213 AOBJN AC,.+1
21202 060213 603 05 0 00 770000 TLNE AC,770000
21203 060214 254 00 0 00 060211 JRST .-3
21204 060215 200 05 0 00 061132 POPJ1A: MOVE AC,WCBUF ;MOVE (-TOP+END,END) INTO AC.
21205 060216 200 12 0 00 060764 MOVE AC5,[XWD 1,AC1] ;MAKE POINTER=(1,AC1)
21206 060217 200 07 0 00 060765 MOVE AC2,[PUSHJ AC5,POPJ3] ;PUT A PUSHJ IN AC2.
21207 060220 205 06 0 05 000000 POPJ2: MOVSI AC1,(AC) ;SETUP AC1 SO BOTH HALVES
21208 060221 541 06 0 05 000000 HRRI AC1,(AC) ;HAVE CURRENT LOC UNDER TEST.
21209 060222 202 07 0 06 000000 MOVEM AC2,(AC1) ;STORE PUSHJ INTO CURRENT LOC IN BUFFER.
21210 060223 263 12 0 00 000000 POPJ AC5,0 ;DO THE POPJ.
21211 060224 312 12 0 00 060764 POPJ3: CAME AC5,[XWD 1,AC1] ;PUSHJ IN MEM BROUGHT IT BACK HERE
21212 060225 004 12 0 00 060764 ERROR AC5,[XWD 1,AC1] ;POINTER DIDN'T GET DEC+INC PROPERLY
21213 060226 254 00 0 00 060230 JRST .+2 ;GO AROUND ERROR UUO
21214 060227 004 10 0 00 000006 POPJ4: ERROR AC3,AC1 ;POPJ WENT TO WRONG LOC.
21215 060230 321 04 0 00 060220 JUMPL AC-1,POPJ2 ;LOOP ON ERROR SWITCH
21216 060231 202 11 0 05 000000 MOVEM AC4,(AC) ;PUT A JSP IN CURRENT LOC.
21217 060232 253 05 0 00 060233 AOBJN AC,.+1
21218 060233 603 05 0 00 770000 TLNE AC,770000
21219 060234 254 00 0 00 060220 JRST POPJ2 ;INC TO TEST NEXT LOC.
21220 060235 367 04 0 00 060215 SOJG AC-1,POPJ1A ;ITERATION COUNTER.
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 52
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0542
21221
21222 ;TEST PUSHJ.
21223 ;CHECK TO SEE THAT THE PUSHJ CAN GO TO EVERY LOC IN
21224 ;THE BUFFER AREA
21225
21226 000006 AC=6
21227 060236 PUSHJ1: SETUP1 1,1^
21228 000007 AC1=<AC+1>&17
21229 000010 AC2=<AC+2>&17
21230 000011 AC3=<AC+3>&17
21231 000012 AC4=<AC+4>&17
21232 000013 AC5=<AC+5>&17
21233 000004 RAN1=<AC-2>&17
21234 060236 201 05 0 00 060236 MOVEI AC-1,.
21235 060237 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
21236 060240 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
21237 060241 202 05 0 00 061117 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
21238 060242 201 05 0 00 000001 MOVEI AC-1,1 ;ROUTINE WEIGHTING
21239 060243 240 05 1 00 030657 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
21240 060244 240 05 1 00 030655 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
21241 060245 200 06 0 00 061115 MOVE AC,BUFSIZ ;PUT A
21242 060246 200 12 0 00 060766 MOVE AC4,[JSP AC3,PUSHJ4] ;JSP AC3, PUSHJ4
21243 060247 202 12 0 06 000000 MOVEM AC4,(AC) ;FROM TH END OF PROG
21244 060250 253 06 0 00 060251 AOBJN AC,.+1
21245 060251 603 06 0 00 770000 TLNE AC,770000
21246 060252 254 00 0 00 060247 JRST .-3
21247 060253 200 06 0 00 061132 PUSHJA: MOVE AC,WCBUF ;MOVE (-TOP+END,END) INTO AC.
21248 060254 200 10 0 00 060767 MOVE AC2,[POPJ AC1,0];MOVE A POPJ INTO AC2.
21249 060255 205 07 0 06 000000 PUSHJ2: MOVSI AC1,(AC) ;MAKE BOTH HALVES OF POINTER
21250 060256 541 07 0 06 000000 HRRI AC1,(AC) ;= CURRENT LOC UNDER TEST.
21251
21252 060257 202 10 0 07 000000 PUSHJ3: MOVEM AC2,(AC1) ;STORE POPJ IN CURRENT BUFF LOC.
21253 060260 260 07 0 07 000000 PUSHJ AC1,(AC1) ;DO A PUSHJ
21254 060261 254 00 0 00 060263 JRST .+2 ;PUSHJ WENT TO RIGHT LOC.
21255 060262 004 11 0 00 000007 PUSHJ4: ERROR AC3,AC1 ;PUSHJ WENT TO WRONG LOC.
21256 060263 321 05 0 00 060255 JUMPL AC-1,PUSHJ2 ;LOOP ON ERROR SWITCH.
21257 060264 202 12 0 07 000000 MOVEM AC4,(AC1) ;RESTORE JSP IN CURRENT LOC.
21258 060265 253 06 0 00 060266 AOBJN AC,.+1
21259 060266 603 06 0 00 770000 TLNE AC,770000
21260 060267 254 00 0 00 060257 JRST PUSHJ3 ;INC TO TEST NEXT LOC.
21261 060270 367 05 0 00 060253 SOJG AC-1,PUSHJA ;ITERATION COUNTER.
21262
21263
21264 060271 254 00 0 00 030057 JRST BEGEND ;REPEAT TEST
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 53
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0543
21265 060272 202 00 0 00 061141 ERROUT: MOVEM 0,%ERAC0 ;SAVE AC0.
21266 060273 202 01 0 00 061142 MOVEM 1,%ERAC1 ;SAVE AC1.
21267 060274 202 02 0 00 061143 MOVEM 2,%ERAC2 ;SAVE AC2.
21268 060275 350 00 0 00 030053 AOS ERRTLS
21269 060276 350 00 0 00 061122 AOS MICNT ;INC ERR COUNT.
21270 060277 336 00 0 00 030041 SKIPN KLFLG
21271 060300 332 00 0 00 030037 SKIPE USER ;USER MODE ?
21272 060301 254 00 0 00 060303 JRST .+2
21273 060302 7 004 14 0 00 061122 DATAO PI,MICNT ;EXEC MODE. PUT ER CNT INTO MI.
21274 060303 402 00 0 00 061124 SETZM PROCED ;CLR PROCEED FLAG.
21275 060304 335 00 1 00 061117 SKIPGE @ERRLOP ;1ST TIME THROUGH ERR PNT?
21276 060305 254 00 0 00 060352 JRST EROUT2 ;NO. SEE IF PRINT ALL
21277 060306 037 04 0 00 000002 PNTNM
21278 060307 037 10 0 00 000002 SWITCH ;GO READ THE DATA SWITCHES.
21279 060310 603 00 0 00 040000 EROUT1: TLNE 0,NOPNT ;NO PRINTOUT ?
21280 060311 254 00 0 00 060613 JRST %ERMORE ;YES. DON'T PNT AND GO HALT.
21281 060312 402 00 0 00 061122 SETZM MICNT ;CLR ERR CNT.
21282 PMSG <PC = >^
21283 060313 037 02 0 00 060770 PSIXM [SIXBIT\PC = _\]^
21284 060314 200 00 0 17 000000 MOVE 0,(P)
21285 060315 360 00 0 00 000000 SOJ 0,
21286 060316 037 06 0 00 000000 PNT6
21287 060317 402 00 0 00 061113 SETZM ASTF# ;CLR PNT * FLAG.
21288 PMSG <^DEFER TEST FAILURE.^COR = >^
21289 060320 037 02 0 00 060772 PSIXM [SIXBIT\^DEFER TEST FAILURE.^COR = _\]^
21290 060321 200 00 0 00 000007 MOVE 0,FINAL
21291 060322 037 06 0 00 000000 PNT6 ;PNT C(GOOD).
21292 PMSG <^ERR = >^
21293 060323 037 02 0 00 060777 PSIXM [SIXBIT\^ERR = _\]^
21294 060324 200 00 0 00 000002 MOVE 0,2
21295 060325 037 06 0 00 000000 PNT6 ;PNT C(BAD).
21296 PNTMSG [ASCIZ/
21297 THE FOLLOWING IS A LIST OF ALL THE
21298 LOCATIONS WHERE THE INDIRECT BIT WAS SET.
21299 060326 037 00 0 00 061001 /]
21300 060327 400 01 0 00 000000 SETZ 1,
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 54
DSKBA4 MAC 29-Mar-78 12:28 DIAGNOSTIC SECTION FOUR SEQ 0544
21301 060330 037 00 0 00 030242 ERRT1: PCRL
21302 060331 550 00 0 01 060356 HRRZ 0,TABL(1) ;GET ADDRESS ON LIST.
21303 060332 316 00 0 00 000002 CAMN 0,2 ;= FAILING ADDRESS?
21304 060333 476 00 0 00 061113 SETOM ASTF ;YES. SET PNT * FLAG.
21305 060334 037 06 0 00 000000 PNT6 ;PNT ADDRESS ON LIST.
21306 060335 201 00 0 00 030252 MOVEI 0,AST
21307 060336 332 00 0 00 061113 SKIPE ASTF ;PNT * FLAG SET?
21308 060337 037 00 0 00 000000 PNTA
21309 060340 402 00 0 00 061113 SETZM ASTF ;CLR PNT * FLAG.
21310 060341 305 01 0 06 777777 CAIGE 1,-1(COUNT) ;END OF LIST?
21311 060342 344 01 0 00 060330 AOJA 1,ERRT1 ;NO.
21312 060343 037 00 0 00 030242 PCRL
21313 060344 402 00 0 00 000006 SETZM COUNT ;CLR COUNT.
21314 060345 332 00 0 00 061116 SKIPE DFRTFG ;1ST DEFER TEST?
21315 060346 550 04 0 00 060356 HRRZ 4,TABL ;NO. SECOND.
21316 060347 336 00 0 00 061116 SKIPN DFRTFG ;1ST DEFER TEST?
21317 060350 200 10 0 00 060356 MOVE 10,TABL ;RESTORE NUMBER.
21318 060351 254 00 0 00 060613 JRST %ERMORE ;GO RESTORE AC'S AND RETURN.
21319
21320 060352 037 10 0 00 000002 EROUT2: SWITCH
21321 060353 607 00 0 00 001000 TLNN PALERS ;PRINT ALL ERRORS ?
21322 060354 254 00 0 00 060613 JRST %ERMORE ;NO
21323 060355 254 00 0 00 060310 JRST EROUT1 ;YES
21324
21325 060356 TABL: BLOCK 40
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 1
UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0545
21326 SUBTTL *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978
21327
21328 ;THIS SUBROUTINE PROVIDES ERROR REPORTING THRU THE USE OF UUO'S.
21329
21330 060416 202 00 0 00 061141 ERRMES: MOVEM 0,%ERAC0# ;SAVE AC0
21331 060417 202 01 0 00 061142 MOVEM 1,%ERAC1# ;SAVE AC1
21332 060420 202 02 0 00 061143 MOVEM 2,%ERAC2# ;SAVE AC2
21333 060421 350 00 0 00 030053 AOS ERRTLS ;INCREMENT ERROR TOTALS
21334 060422 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO
21335 060423 316 00 0 00 030052 CAMN 0,ERRPC ;PC = PC OF LAST ERROR ?
21336 060424 350 00 0 00 061122 AOS MICNT# ;YES, ADD 1 TO ERROR COUNT
21337 060425 200 00 0 00 061122 MOVE 0,MICNT
21338 060426 504 00 0 00 030114 HRL 0,$SVUPC
21339 060427 402 00 0 00 061124 SETZM PROCED# ;CLEAR PROCEED FLAG
21340 060430 037 10 0 00 000002 SWITCH
21341 060431 603 00 0 00 040000 TLNE NOPNT ;PRINTOUT ?
21342 060432 254 00 0 00 060615 JRST %ERRS1 ;NO, RESTORE AC'S AND RETURN
21343 060433 200 01 0 00 030113 MOVE 1,$SVUUO
21344 060434 242 01 0 00 777745 LSH 1,-^D27
21345 060435 202 01 0 00 061133 MOVEM 1,%ACS1A# ;SAVE UUO NUMBER
21346 060436 200 00 0 00 061141 MOVE 0,%ERAC0
21347 060437 200 01 0 00 061142 MOVE 1,%ERAC1
21348 060440 335 00 1 00 061117 SKIPGE @ERRLOP ;ERR LOOP AC > OR = 0 ?
21349 060441 254 00 0 00 060647 JRST %ERRS4 ;NO, SEE IF PRINT ALL
21350 060442 402 00 0 00 061122 %ERMS1: SETZM MICNT ;CLEAR ERROR COUNT
21351 060443 331 00 0 00 030043 SKIPL MONCTL ;DIAG MON OR SYS EXER ?
21352 060444 254 00 0 00 060450 JRST .+4 ;NO, DON'T NEED TITLE
21353 060445 336 00 0 00 061144 SKIPN %ERFST# ;FIRST ERROR ?
21354 060446 037 04 0 00 000002 PNTNM ;YES, PRINT PROGRAM TITLE
21355 060447 476 00 0 00 061144 SETOM %ERFST
21356 060450 336 00 0 00 030047 SKIPN PASCNT ;FIRST PASS ?
21357 060451 254 00 0 00 060455 JRST .+4 ;YES
21358 PMSG <^TEST PASS COUNT = >^
21359 060452 037 02 0 00 061022 PSIXM [SIXBIT\^TEST PASS COUNT = _\]^
21360 060453 200 00 0 00 030047 MOVE PASCNT
21361 060454 037 15 0 00 000000 PNTDEC
21362 PMSG <^PC = >^
21363 060455 037 02 0 00 061026 PSIXM [SIXBIT\^PC = _\]^
21364 060456 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO
21365 060457 202 00 0 00 030052 MOVEM 0,ERRPC ;SAVE FOR COMPARE
21366 060460 037 06 0 00 000000 PNT6 ;PRINT UUO ADDRESS
21367 XLIST
21368 LIST
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 4
UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0546
21369 ;RELIABILITY FORMAT ERROR PRINTER
21370
21371 060461 402 00 0 00 061145 %ERMS2: SETZM %RAND# ;CLEAR PNT C(RAN) FLAG
21372 060462 200 01 0 00 061133 MOVE 1,%ACS1A
21373 060463 301 01 0 00 000011 CAIL 1,11 ;UUO # 11-13
21374 060464 476 00 0 00 061145 SETOM %RAND ;YES, SET PNT C(RAN) FLAG
21375 060465 620 01 0 00 000010 TRZ 1,10 ;MAKE UUO # 1-7
21376 060466 202 01 0 00 061133 MOVEM 1,%ACS1A
21377 060467 200 02 0 00 030052 MOVE 2,ERRPC ;GET UUO ADDRESS
21378 060470 200 02 0 02 777777 MOVE 2,-1(2) ;GET INST IN UUO-1
21379 060471 301 01 0 00 000004 CAIL 1,4 ;UUO # < THAN 4 ?
21380 060472 200 02 0 00 030113 MOVE 2,$SVUUO ;YES, GET UUO
21381 060473 202 02 0 00 061134 MOVEM 2,%CNTE# ;SAVE E ADDRESS
21382 060474 200 02 0 00 061143 MOVE 2,%ERAC2
21383 060475 200 01 0 00 061142 MOVE 1,%ERAC1
21384 060476 200 00 0 00 061141 MOVE 0,%ERAC0
21385 060477 201 01 1 00 061134 MOVEI 1,@%CNTE ;GET ADRS FIELD OF UUO OR UUO-1
21386 060500 202 01 0 00 061135 MOVEM 1,%EE1#
21387 060501 200 01 0 00 061142 MOVE 1,%ERAC1
21388 060502 200 01 1 00 061135 MOVE 1,@%EE1 ;GET C(E)
21389 060503 202 01 0 00 061136 MOVEM 1,%EE1A#
21390 060504 200 01 0 00 061142 MOVE 1,%ERAC1
21391 060505 201 01 1 00 030113 MOVEI 1,@$SVUUO ;GET ADDRESS FIELD OF UUO
21392 060506 202 01 0 00 061137 MOVEM 1,%EE2#
21393 060507 200 01 0 00 061133 MOVE 1,%ACS1A
21394 060510 306 01 0 00 000003 CAIN 1,3 ;UUO # 3 ?
21395 060511 254 00 0 00 060515 JRST .+4 ;YES
21396 060512 200 01 0 00 061142 MOVE 1,%ERAC1
21397 060513 200 01 1 00 061137 MOVE 1,@%EE2 ;GET C(E) OF UUO
21398 060514 202 01 0 00 061140 MOVEM 1,%EE2A#
21399 060515 200 02 0 00 061133 MOVE 2,%ACS1A ;GET UUO #
21400 060516 200 01 0 00 061134 MOVE 1,%CNTE
21401 060517 242 01 0 00 777751 LSH 1,-27 ;GET AC NUMBER
21402 060520 405 01 0 00 000017 ANDI 1,17
21403 060521 307 02 0 00 000005 CAIG 2,5 ;UUO # 6,7 OR 2
21404 060522 306 02 0 00 000002 CAIN 2,2
21405 060523 254 00 0 00 060572 JRST %ERR2 ;YES, GO PNT E AND C(E)
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 5
UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0547
21406 ;PRINT ERROR AC
21407
21408 PMSG <^AC = >^
21409 060524 037 02 0 00 061030 PSIXM [SIXBIT\^AC = _\]^
21410 060525 200 00 0 00 000001 MOVE 0,1
21411 060526 037 02 0 00 000000 PNT2 ;PRINT AC NUMBER
21412 PMSG <^C(AC)= >^
21413 060527 037 02 0 00 061032 PSIXM [SIXBIT\^C(AC)= _\]^
21414 060530 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC)
21415 060531 307 01 0 00 000002 CAIG 1,2 ;IS AC # = SAVED AC ?
21416 060532 200 00 0 01 061141 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC
21417 060533 037 13 0 00 000000 %ERRB: PNTHW ;PRINT C(AC) OR UUO2 (E)
21418
21419 ;PRINT ERROR INFO
21420
21421 060534 306 02 0 00 000005 CAIN 2,5 ;UUO # 5
21422 060535 254 00 0 00 060606 JRST %ERR4 ;YES, GO PNT 'TST','SKP', OR ETC.
21423
21424 PMSG <^COR = >^
21425 060536 037 02 0 00 061034 PSIXM [SIXBIT\^COR = _\]^
21426 060537 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC)
21427 060540 307 01 0 00 000002 CAIG 1,2 ;IS AC # = SAVED AC ?
21428 060541 200 00 0 01 061141 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC
21429 060542 302 02 0 00 000002 CAIE 2,2
21430 060543 200 00 0 00 061136 MOVE 0,%EE1A ;UUO # 2, GET C(E)
21431 060544 037 13 0 00 000000 PNTHW ;PRINT C(E) OR UUO2 C(AC)
21432 060545 301 02 0 00 000004 CAIL 2,4 ;UUO # >3 ?
21433 060546 254 00 0 00 060611 JRST %ERRC ;YES, RESTORE AC'S AND RETURN
21434
21435 PMSG <^ ORIGINAL>^
21436 060547 037 02 0 00 061036 PSIXM [SIXBIT\^ ORIGINAL_\]^
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 6
UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0548
21437 060550 200 01 0 00 030113 %ERRB1: MOVE 1,$SVUUO
21438 060551 242 01 0 00 777751 LSH 1,-27 ;GET AC # OF UUO
21439 060552 405 01 0 00 000017 ANDI 1,17
21440 PMSG <^C(AC)= >^
21441 060553 037 02 0 00 061032 PSIXM [SIXBIT\^C(AC)= _\]^
21442 060554 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC)
21443 060555 307 01 0 00 000002 CAIG 1,2 ;IS AC # = SAVED AC ?
21444 060556 200 00 0 01 061141 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC
21445 060557 332 00 0 00 061145 SKIPE %RAND ;PRINT C(RAN) FLAG SET ?
21446 060560 200 00 0 00 061125 MOVE 0,RAN# ;YES
21447 060561 037 13 0 00 000000 PNTHW ;PRINT C(AC) OR C(RAN)
21448 060562 306 02 0 00 000003 CAIN 2,3 ;UUO # 3 ?
21449 060563 254 00 0 00 060572 JRST %ERR2 ;YES, PRINT E, RESTORE AC'S AND RETURN
21450 060564 306 02 0 00 000007 CAIN 2,7 ;UUO # 7 ?
21451 060565 254 00 0 00 060611 JRST %ERRC ;YES, BYPASS PRINTING C(E)
21452 PMSG <^C(E) = >^
21453 060566 037 02 0 00 061041 PSIXM [SIXBIT\^C(E) = _\]^
21454 060567 200 00 0 00 061140 MOVE 0,%EE2A
21455 060570 037 13 0 00 000000 PNTHW ;PRINT C(E)
21456 060571 254 00 0 00 060611 JRST %ERRC
21457
21458 060572 %ERR2: PMSG <^E = >^
21459 060572 037 02 0 00 061043 PSIXM [SIXBIT\^E = _\]^
21460 060573 200 00 0 00 061137 MOVE 0,%EE2
21461 060574 306 02 0 00 000002 CAIN 2,2 ;UUO # 2 ?
21462 060575 200 00 0 00 061135 MOVE 0,%EE1
21463 060576 037 06 0 00 000000 PNT6 ;PRINT E OF UUO OR UUO-1
21464 060577 301 02 0 00 000006 CAIL 2,6 ;UUO 6 OR 7 ?
21465 060600 254 00 0 00 060550 JRST %ERRB1 ;YES, GO PNT C(AC), C(E) AND RETURN
21466 060601 306 02 0 00 000003 CAIN 2,3 ;UUO # 3 ?
21467 060602 254 00 0 00 060611 JRST %ERRC ;YES, RESTORE AC'S AND RETURN
21468
21469 PMSG <^C(E) = >^
21470 060603 037 02 0 00 061041 PSIXM [SIXBIT\^C(E) = _\]^
21471 060604 200 00 0 00 061136 MOVE 0,%EE1A ;GET C(E)
21472 060605 254 00 0 00 060533 JRST %ERRB
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 7
UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0549
21473 ;PRINT ASCII COMMENT
21474
21475 060606 551 00 1 00 030113 %ERR4: HRRZI 0,@$SVUUO
21476 060607 037 00 0 00 000000 PNTA ;PRINT 'TST','SKP', OR ETC.
21477 060610 254 00 0 00 060611 JRST %ERRC
21478
21479 ;COMPLETE PRINTOUT
21480
21481 060611 037 00 0 00 030242 %ERRC: PCRL
21482
21483 XLIST
21484 LIST
21485 060612 254 00 0 00 060613 JRST %ERMORE
21486
21487 >
21488 LIST
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 8
UUOERR KSM 28-Mar-78 11:17 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, MARCH 1978 SEQ 0550
21489 ;RESTORE AC'S AND RETURN OR HALT
21490
21491 060613 256 00 0 00 030101 %ERMORE:XCT ERMORE
21492 060614 037 10 0 00 000002 SWITCH
21493
21494 060615 037 07 0 00 000003 %ERRS1: TTALTM ;ALTMODE CHECK
21495 060616 254 00 0 00 060622 JRST .+4 ;NONE
21496 060617 201 00 0 00 060622 MOVEI .+3 ;SAVE CONT ADDRESS
21497 060620 202 00 0 00 000130 MOVEM JOBOPC
21498 060621 254 00 1 00 030063 JRST @ALTMGO ;PERFORM TRANSFER
21499 060622 200 00 0 00 030046 MOVE CONSW
21500 060623 603 00 0 00 002000 TLNE 0,ERSTOP ;HALT ON ERROR SWITCH SET ?
21501 060624 037 14 0 00 000004 ERRHLT ;YES
21502 060625 607 00 0 00 004000 TLNN 0,LOOPER ;LOOP ON ERROR SWITCH SET ?
21503 060626 476 00 0 00 061124 SETOM PROCED ;NO, SET THE PROCEED FLAG
21504 060627 603 00 0 00 010000 TLNE 0,DING ;RING BELL SWITCH SET ?
21505 060630 037 01 0 00 000007 PBELL ;YES, GO RING BELL
21506
21507 060631 200 02 0 00 061143 %ERRS2: MOVE 2,%ERAC2 ;RESTORE AC'S
21508 060632 200 01 0 00 061142 MOVE 1,%ERAC1
21509 060633 476 00 1 00 061117 SETOM @ERRLOP ;SET C(ERR LOOP AC) TO -1
21510 060634 336 00 0 00 061124 SKIPN PROCED ;LOOP ON ERROR ?
21511 060635 254 00 0 00 060645 JRST %ERRS5 ;YES
21512 060636 350 00 1 00 061117 AOS @ERRLOP ;NO, INC C(ERR LOOP AC)
21513 060637 350 00 1 00 061117 AOS @ERRLOP ;SO IT ='S 1
21514 060640 331 00 0 00 030043 SKIPL MONCTL ;UNDER DIAGNOSTIC MONITOR ?
21515 060641 254 00 0 00 060645 JRST %ERRS5 ;NO, CONTINUE PROGRAM
21516 060642 200 00 0 00 030053 MOVE 0,ERRTLS ;YES
21517 060643 301 00 0 00 000024 CAIL 0,^D20 ;PRINTED ALLOWED ERRORS ?
21518 060644 254 00 0 00 060653 JRST %ERRS6
21519
21520 060645 200 00 0 00 061141 %ERRS5: MOVE 0,%ERAC0 ;NO, CONTINUE PROGRAM
21521 060646 254 00 0 00 030065 JRST UUOEXT
21522
21523 060647 200 00 0 00 030046 %ERRS4: MOVE 0,CONSW
21524 060650 607 00 0 00 001000 TLNN PALERS ;PRINT ALL ERRORS ?
21525 060651 254 00 0 00 060615 JRST %ERRS1 ;NO
21526 060652 254 00 0 00 060442 JRST %ERMS1 ;YES
21527
21528 060653 %ERRS6: PMSGF <^EXCEEDED ALLOWED ERRORS^>^
21529 060653 037 04 0 00 061045 PSIXMF [SIXBIT\^EXCEEDED ALLOWED ERRORS^_\]^
21530 060654 254 00 0 00 030061 JRST $BEND2
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 1
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0551
21531 SUBTTL *STOR* RESERVED STORAGE, MARCH 1978
21532
21533 ;PROGRAM LITERALS
21534
21535 XLIST
21536 IFNDEF $LPAPER,<LIST>
21537 060655 LIT
21538 060655 64 51 55 45 62 00
21539 060656 45 70 51 64 00 00
21540 060657 142536 475076
21541 060660 000000 000000
21542 060661 123 113 120 000 000
21543 060662 777777 777777
21544 060663 000000 000377
21545 060664 117 126 000 000 000
21546 060665 400000 000000
21547 060666 000000 000001
21548 060667 103 122 131 060 000
21549 060670 103 122 131 061 000
21550 060671 103 122 131 060 061
21551 060672 777777 000000
21552 060673 377777 777777
21553 060674 124 123 124 000 000
21554 060675 101 122 117 126 000
21555 060676 112 115 120 000 000
21556 060677 400000 000001
21557 060700 000000 000002
21558 060701 101 117 123 000 000
21559 060702 777777 777776
21560 060703 600000 000000
21561 060704 000000 000003
21562 060705 200000 000000
21563 060706 101 117 112 000 000
21564 060707 123 117 123 000 000
21565 060710 123 117 112 000 000
21566 060711 103 101 115 000 000
21567 060712 103 101 111 000 000
21568 060713 000000 003154
21569 060714 000001 000000
21570 060715 000100 000100
21571 060716 010000 010000
21572 060717 400000 400000
21573 060720 000001 000001
21574 060721 400002 000002
21575 060722 000002 000002
21576 060723 101 117 102 112 120
21577 060724 101 117 102 112 116
21578 060725 377677 377677
21579 060726 777700 777700
21580 060727 015 012 115 105 115
21581 060730 117 122 131 040 123
21582 060731 111 132 105 040 123
21583 060732 105 114 105 103 124
21584 060733 105 104 040 124 117
21585 060734 117 040 123 115 101
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 1-1
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0552
21586 060735 114 114 000 000 000
21587 060736 64 45 63 64 51 56
21588 060737 47 00 77 00 00 00
21589 060740 53 76 77 00 00 00
21590 060741 120 101 122 000 000
21591 060742 265 04 0 00 057110
21592 060743 254 00 0 00 057107
21593 060744 112 122 123 124 000
21594 060745 265 02 0 00 057144
21595 060746 265 07 0 00 057175
21596 060747 264 00 0 00 057237
21597 060750 265 10 0 00 057300
21598 060751 266 11 0 00 057343
21599 060752 265 12 0 00 057377
21600 060753 267 10 0 00 057436
21601 060754 265 15 0 00 057474
21602 060755 334 16 0 00 000000
21603 060756 254 00 0 00 057476
21604 060757 265 14 0 00 057525
21605 060760 334 15 0 00 000001
21606 060761 254 00 0 00 057527
21607 060762 000001 000011
21608 060763 265 10 0 00 060227
21609 060764 000001 000006
21610 060765 260 12 0 00 060224
21611 060766 265 11 0 00 060262
21612 060767 263 07 0 00 000000
21613 060770 60 43 00 35 00 00
21614 060771 00 77 00 00 00 00
21615 060772 76 44 45 46 45 62
21616 060773 00 64 45 63 64 00
21617 060774 46 41 51 54 65 62
21618 060775 45 16 76 43 57 62
21619 060776 00 35 00 00 77 00
21620 060777 76 45 62 62 00 35
21621 061000 00 77 00 00 00 00
21622 061001 015 012 124 110 105
21623 061002 040 106 117 114 114
21624 061003 117 127 111 116 107
21625 061004 040 111 123 040 101
21626 061005 040 114 111 123 124
21627 061006 040 117 106 040 101
21628 061007 114 114 040 124 110
21629 061010 105 015 012 114 117
21630 061011 103 101 124 111 117
21631 061012 116 123 040 127 110
21632 061013 105 122 105 040 124
21633 061014 110 105 040 111 116
21634 061015 104 111 122 105 103
21635 061016 124 040 102 111 124
21636 061017 040 127 101 123 040
21637 061020 123 105 124 056 015
21638 061021 012 000 000 000 000
21639 061022 76 64 45 63 64 00
21640 061023 60 41 63 63 00 43
DSKBA DECSYSTEM 2020 BASIC INSTRUCTION RELIABILITY TEST (1), VER 0,1 MACRO %53(1020) 12:59 29-Mar-78 Page 1-2
STOR KSM 28-Mar-78 11:25 *STOR* RESERVED STORAGE, MARCH 1978 SEQ 0553
21641 061024 57 65 56 64 00 35
21642 061025 00 77 00 00 00 00
21643 061026 76 60 43 00 35 00
21644 061027 00 00 77 00 00 00
21645 061030 76 41 43 00 35 00
21646 061031 00 00 77 00 00 00
21647 061032 76 43 10 41 43 11
21648 061033 35 00 77 00 00 00
21649 061034 76 43 57 62 00 35
21650 061035 00 00 77 00 00 00
21651 061036 76 00 00 00 00 57
21652 061037 62 51 47 51 56 41
21653 061040 54 77 00 00 00 00
21654 061041 76 43 10 45 11 00
21655 061042 35 00 77 00 00 00
21656 061043 76 45 00 35 00 00
21657 061044 00 00 77 00 00 00
21658 061045 76 45 70 43 45 45
21659 061046 44 45 44 00 41 54
21660 061047 54 57 67 45 44 00
21661 061050 45 62 62 57 62 63
21662 061051 76 77 00 00 00 00
21663 LIST
21664 061052 000000 000000 ENDSLD: 0
21665
21666 IFDEF DEBUG,<
21667 061053 PATCH: BLOCK DEBUG ;PATCHING AREA
21668 >
21669
21670 ;PROGRAM VARIABLES
21671 061113 VAR
21672
21673 IFDEF PGMEND,<
21674 061146 000000 000000 END: 0
21675 030000 END BEGIN >
NO ERRORS DETECTED
PROGRAM BREAK IS 000000
ABSOLUTE BREAK IS 061147
CPU TIME USED 01:08.616
28P CORE USED
A 733# 743 745 745# 746 748 748# 749 751 751# 752 754 754# 755
757 757# 758 760 760# 761 763 763# SEQ 0554
ABJN1 18892#
ABJN1A 18976#
ABJN1B 18990# 19006
ABJN1C 18995# 19008
ABJN2 18906# 18919
ABJN2A 19047#
ABJN2B 19061# 19065 19066
ABJN3 18911# 18921
ABJP1 18852#
ABJP1A 18933#
ABJP1B 18947# 18962
ABJP1C 18952# 18964
ABJP2 18866# 18879
ABJP2A 19020#
ABJP2B 19034# 19039 19040
ABJP3 18871# 18881
ABORT 168#
AC 803# 805 806 807 808 809 810 811 812 813 814 815 816 817
819 820 821 822 830 831 832 833 834 834# 836 837 838 839
840 840# 842 843 844 845 846 846# 848 849 850 851 852 852#
854 855 856 857 858 858# 860 861 862 863 864 864# 866 867
868 869 870 870# 872 873 874 875 876 876# 878 879 880 881
882 882# 884 885 886 887 888 888# 890# 892 893 894 902# 904
905 906 907 908 909 910 911 912 913 914 915 916 918 919
920 921 930 931 932 933 934 935 935# 937 938 939 940 941
942 942# 944 945 946 947 948 949 949# 951 952 953 954 955
956 956# 958 959 960 961 962 963 963# 965 966 967 968 969
970 970# 972 973 974 975 976 977 977# 979 980 981 982 983
984 984# 986 987 988 989 990 991 991# 993 994 995 996 997
998 998# 1000# 1002 1003 1004 1010# 1012 1013 1014 1015 1016 1017 1018
1019 1020 1021 1022 1023 1024 1026 1027 1028 1029 1041 1042 1045 1045#
1046 1049 1050 1053 1053# 1054 1057 1058 1061 1061# 1062 1065 1066 1069
1069# 1070 1073 1074 1077 1077# 1078 1081 1082 1085 1085# 1086 1089 1090
1093 1093# 1094 1097 1098 1101 1101# 1102 1104# 1106 1107 1108 1114# 1116
1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1130 1131
1132 1133 1147 1148 1149 1150 1155 1155# 1156 1158 1159 1160 1161 1166
1166# 1167 1169 1170 1171 1172 1177 1177# 1178 1180 1181 1182 1183 1188
1188# 1189 1191 1192 1193 1194 1199 1199# 1200 1202 1203 1204 1205 1210
1210# 1211 1213 1214 1215 1216 1221 1221# 1222 1224 1225 1226 1227 1232
1232# 1233 1235# 1237 1238 1239 1246# 1248 1249 1250 1251 1252 1253 1254
1255 1256 1257 1258 1259 1260 1262 1263 1264 1265 1267 1268 1273 1274
1275 1282# 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311
1312 1314 1315 1316 1317 1319 1320 1321 1323 1324 1325 1326 1327 1331
1332 1333 1334 1334# 1337 1338 1339 1340 1341 1342 1343 1344 1345 1346
1347 1348 1349 1351 1352 1353 1354 1356 1357 1358 1360 1361 1362 1363
1364 1368 1369 1370 1371 1371# 1378# 1380 1381 1382 1383 1384 1385 1386
1387 1388 1389 1390 1391 1392 1394 1395 1396 1397 1407 1408 1409 1410
1411 1412 1412# 1413 1415 1416 1417 1418 1419 1420 1420# 1421 1423 1424
1425 1426 1427 1428 1428# 1429 1431 1432 1433 1434 1435 1436 1436# 1437
1439# 1441 1442 1443 1450# 1473 1474 1475 1476 1477 1478 1479 1480 1481
1482 1483 1484 1485 1487 1488 1489 1490 1491 1492 1493 1494 1495 1496
1497 1498 1499 1500 1501 1502 1503 1504 1505 1507 1508 1509 1510 1510#
1513 1514 1515 1516 1517 1518 1519 1520 1521 1522 1523 1524 1525 1527 SEQ 0555
1528 1529 1530 1531 1532 1533 1534 1535 1536 1537 1538 1539 1540 1541
1542 1543 1544 1545 1547 1548 1549 1550 1550# 1553 1554 1555 1556 1557
1558 1559 1560 1561 1562 1563 1564 1565 1567 1568 1569 1570 1571 1572
1573 1574 1575 1576 1577 1578 1579 1580 1581 1582 1583 1584 1585 1587
1588 1589 1590 1590# 1598# 1600 1601 1602 1603 1604 1605 1606 1607 1608
1609 1610 1611 1612 1614 1615 1616 1617 1641 1642 1643 1644 1645 1646
1647 1648 1649 1650 1651 1652 1653 1654 1655 1656 1657 1658 1659 1660
1661 1661# 1663 1664 1665 1666 1667 1668 1669 1670 1671 1672 1673 1674
1675 1676 1677 1678 1679 1680 1681 1682 1683 1683# 1685# 1687 1688 1689
1694# 1696 1697 1698 1699 1700 1701 1702 1703 1704 1705 1706 1707 1708
1710 1711 1712 1713 1714 1715 1716 1717 1718 1719 1720 1721 1722 1723
1725 1726 1727 1733# 1735 1736 1737 1738 1739 1740 1741 1742 1743 1744
1745 1746 1747 1749 1750 1751 1752 1753 1754 1755 1756 1757 1758 1759
1760 1761 1762 1763 1764 1765 1767 1768 1769 1776# 1778 1779 1780 1781
1782 1783 1784 1785 1786 1787 1788 1789 1790 1792 1793 1794 1795 1796
1797 1798 1799 1800 1801 1802 1803 1804 1805 1807 1808 1809 1815# 1817
1818 1819 1820 1821 1822 1823 1824 1825 1826 1827 1828 1829 1831 1832
1833 1834 1835 1836 1837 1838 1839 1840 1841 1842 1843 1844 1845 1847
1848 1849 1855# 1857 1858 1859 1860 1861 1862 1863 1864 1865 1866 1867
1868 1869 1871 1872 1873 1874 1883 1885 1885# 1886 1889 1891 1891# 1892
1894# 1896 1897 1898 1903# 1905 1906 1907 1908 1909 1910 1911 1912 1913
1914 1915 1916 1917 1919 1920 1921 1922 1928 1929 1930 1937# 1939 1940
1941 1942 1943 1944 1945 1946 1947 1948 1949 1950 1951 1953 1954 1955
1956 1957 1958 1959 1960 1961 1962 1963 1964 1965 1966 1967 1968 1969
1970 1972 1973 1974 1980# 1982 1983 1984 1985 1986 1987 1988 1989 1990
1991 1992 1993 1994 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005
2006 2007 2008 2009 2010 2011 2013 2014 2015 2021# 2023 2024 2025 2026
2027 2028 2029 2030 2031 2032 2033 2034 2035 2037 2038 2039 2040 2041
2042 2043 2044 2045 2046 2047 2048 2049 2050 2051 2053 2054 2055 2061#
2063 2064 2065 2066 2067 2068 2069 2070 2071 2072 2073 2074 2075 2077
2078 2079 2080 2081 2082 2083 2084 2085 2086 2087 2088 2089 2090 2091
2092 2093 2094 2095 2097 2098 2099 2105# 2107 2108 2109 2110 2111 2112
2113 2114 2115 2116 2117 2118 2119 2121 2122 2123 2124 2127 2128 2129
2130 2131 2132 2133 2134 2135 2137 2138 2139 2147# 2149 2150 2151 2152
2153 2154 2155 2156 2157 2158 2159 2160 2161 2163 2164 2165 2166 2167
2168 2170 2172 2173 2174 2175 2177 2179 2180 2181 2188# 2190 2191 2192
2193 2194 2195 2196 2197 2198 2199 2200 2201 2202 2204 2205 2206 2207
2208 2210 2212 2213 2214 2215 2216 2217 2219 2220 2221 2229# 2231 2232
2233 2234 2235 2236 2237 2238 2239 2240 2241 2242 2243 2245 2246 2247
2248 2249 2250 2256 2257 2258 2259 2260 2262 2263 2264 2272# 2274 2275
2276 2277 2278 2279 2280 2281 2282 2283 2284 2285 2286 2288 2289 2290
2291 2292 2293 2297 2298 2299 2300 2301 2303 2304 2305 2313# 2315 2316
2317 2318 2319 2320 2321 2322 2323 2324 2325 2326 2327 2329 2330 2331
2332 2333 2334 2335 2337 2340 2341 2342 2343 2344 2346 2347 2348 2356#
2358 2359 2360 2361 2362 2363 2364 2365 2366 2367 2368 2369 2370 2372
2373 2374 2375 2376 2378 2379 2380 2381 2382 2383 2385 2386 2387 2396#
2398 2399 2400 2401 2402 2403 2404 2405 2406 2407 2408 2409 2410 2412
2413 2414 2415 2416 2417 2420 2421 2423 2424 2425 2426 2427 2429 2430
2431 2440# 2442 2443 2444 2445 2446 2447 2448 2449 2450 2451 2452 2453
2454 2456 2457 2458 2459 2460 2461 2462 2465 2466 2467 2468 2469 2471
2472 2473 2481# 2483 2484 2485 2486 2487 2488 2489 2490 2491 2492 2493
2494 2495 2497 2498 2499 2500 2501 2502 2504 2505 2508 2509 2510 2511
2512 2514 2515 2516 2524# 2526 2527 2528 2529 2530 2531 2532 2533 2534 SEQ 0556
2535 2536 2537 2538 2540 2541 2542 2543 2544 2546 2548 2549 2550 2551
2552 2554 2555 2556 2564# 2566 2567 2568 2569 2570 2571 2572 2573 2574
2575 2576 2577 2578 2580 2581 2582 2583 2584 2585 2589 2590 2591 2592
2593 2594 2595 2596 2597 2598 2599 2600 2602 2603 2604 2611# 2613 2614
2615 2616 2617 2618 2619 2620 2621 2622 2623 2624 2625 2627 2628 2629
2630 2631 2633 2634 2635 2636 2637 2639 2640 2641 2647# 2649 2650 2651
2652 2653 2654 2655 2656 2657 2658 2659 2660 2661 2663 2664 2665 2666
2667 2668 2670 2671 2672 2676 2677 2678 2684# 2686 2687 2688 2689 2690
2691 2692 2693 2694 2695 2696 2697 2698 2700 2701 2702 2703 2704 2705
2706 2707 2708 2709 2711 2712 2713 2719# 2721 2722 2723 2724 2725 2726
2727 2728 2729 2730 2731 2732 2733 2735 2736 2737 2738 2739 2740 2744
2745 2746 2747 2748 2749 2750 2751 2752 2753 2754 2755 2757 2758 2759
2765# 2767 2768 2769 2770 2771 2772 2773 2774 2775 2776 2777 2778 2779
2781 2782 2783 2784 2785 2787 2788 2793 2794 2795 2802# 2804 2805 2806
2807 2808 2809 2810 2811 2812 2813 2814 2815 2816 2818 2819 2820 2821
2826 2827 2828 2829 2830 2831 2832 2837 2838 2839 2846# 2848 2849 2850
2851 2852 2853 2854 2855 2856 2857 2858 2859 2860 2862 2863 2864 2865
2870 2871 2872 2873 2874 2875 2876 2881 2882 2883 2891# 2893 2894 2895
2896 2897 2898 2899 2900 2901 2902 2903 2904 2905 2907 2908 2909 2910
2914 2915 2916 2917 2922 2923 2924 2931# 2933 2934 2935 2936 2937 2938
2939 2940 2941 2942 2943 2944 2945 2947 2948 2949 2950 2954 2955 2956
2957 2962 2963 2964 2972# 2974 2975 2976 2977 2978 2979 2980 2981 2982
2983 2984 2985 2986 2988 2989 2990 2991 3004 3007 3008 3009 3012 3014
3014# 3015 3017 3020 3021 3022 3025 3027 3027# 3028 3030 3033 3034 3035
3038 3040 3040# 3041 3043 3046 3047 3048 3051 3053 3053# 3054 3056 3059
3060 3061 3064 3066 3066# 3067 3069 3072 3073 3074 3077 3079 3079# 3080
3082 3085 3086 3087 3090 3092 3092# 3093 3095 3098 3099 3100 3103 3105
3105# 3106 3108 3111 3112 3113 3116 3118 3118# 3119 3121 3124 3125 3126
3129 3131 3131# 3132 3134# 3136 3137 3138 3145# 3147 3148 3149 3150 3151
3152 3153 3154 3155 3156 3157 3158 3159 3161 3162 3163 3164 3177 3180
3181 3182 3185 3187 3187# 3188 3190 3193 3194 3195 3198 3200 3200# 3201
3203 3206 3207 3208 3211 3213 3213# 3214 3216 3219 3220 3221 3224 3226
3226# 3227 3229 3232 3233 3234 3237 3239 3239# 3240 3242 3245 3246 3247
3250 3252 3252# 3253 3255 3258 3259 3260 3263 3265 3265# 3266 3268 3271
3272 3273 3276 3278 3278# 3279 3281 3284 3285 3286 3289 3291 3291# 3292
3294 3297 3298 3299 3302 3304 3304# 3305 3307# 3309 3310 3311 3319# 3321
3322 3323 3324 3325 3326 3327 3328 3329 3330 3331 3332 3333 3335 3336
3337 3338 3344 3345 3347 3348 3352 3353 3354 3363# 3365 3366 3367 3368
3369 3370 3371 3372 3373 3374 3375 3376 3377 3379 3380 3381 3382 3403
3406 3408 3410 3411 3414 3414# 3415 3416 3419 3422 3424 3426 3427 3430
3430# 3431 3432 3435 3438 3440 3442 3443 3446 3446# 3447 3448 3451 3454
3456 3458 3459 3462 3462# 3463 3464 3467 3470 3472 3474 3475 3478 3478#
3479 3480 3483 3486 3488 3490 3491 3494 3494# 3495 3496 3499 3502 3504
3506 3507 3510 3510# 3511 3512 3515 3518 3520 3522 3523 3526 3526# 3527
3528 3531 3534 3536 3538 3539 3542 3542# 3543 3544 3547 3550 3552 3554
3555 3558 3558# 3559 3560 3563# 3565 3566 3567 3572# 3574 3575 3576 3577
3578 3579 3580 3581 3582 3583 3584 3585 3586 3588 3589 3590 3591 3592
3593 3596 3599 3601 3602 3603 3608# 3610 3611 3612 3613 3614 3615 3616
3617 3618 3619 3620 3621 3622 3624 3625 3626 3627 3628 3629 3632 3635
3637 3638 3639 3646# 3648 3649 3650 3651 3652 3653 3654 3655 3656 3657
3658 3659 3660 3662 3663 3664 3665 3669 3670 3671 3672 3673 3674 3675
3676 3680 3681 3682 3688# 3690 3691 3692 3693 3694 3695 3696 3697 3698
3699 3700 3701 3702 3704 3705 3706 3707 3711 3712 3713 3714 3715 3716 SEQ 0557
3717 3718 3719 3720 3722 3723 3724 3729# 3731 3732 3733 3734 3735 3736
3737 3738 3739 3740 3741 3742 3743 3745 3746 3747 3748 3752 3753 3754
3755 3756 3757 3758 3761 3762 3763 3769# 3771 3772 3773 3774 3775 3776
3777 3778 3779 3780 3781 3782 3783 3785 3786 3787 3788 3789 3790 3791
3794 3795 3796 3801# 3803 3804 3805 3806 3807 3808 3809 3810 3811 3812
3813 3814 3815 3817 3818 3819 3820 3824 3825 3826 3827 3828 3829 3830
3831 3833 3834 3835 3840# 3842 3843 3844 3845 3846 3847 3848 3849 3850
3851 3852 3853 3854 3856 3857 3858 3859 3864 3865 3866 3867 3868 3869
3870 3875 3876 3877 3882# 3884 3885 3886 3887 3888 3889 3890 3891 3892
3893 3894 3895 3896 3898 3899 3900 3901 3903 3904 3906 3907 3909 3910
3911 3916# 3918 3919 3920 3921 3922 3923 3924 3925 3926 3927 3928 3929
3930 3932 3933 3934 3935 3937 3938 3939 3940 3944 3945 3946 3951# 3953
3954 3955 3956 3957 3958 3959 3960 3961 3962 3963 3964 3965 3967 3968
3969 3970 3972 3975 3980 3981 3982 3987# 3989 3990 3991 3992 3993 3994
3995 3996 3997 3998 3999 4000 4001 4002 4004 4007 4009 4010 4013 4015
4016 4018 4020 4021 4023 4025 4026 4027 4033# 4035 4036 4037 4038 4039
4040 4041 4042 4043 4044 4045 4046 4047 4048 4049 4050 4051 4053 4054
4055 4062# 4064 4065 4066 4067 4068 4069 4070 4071 4072 4073 4074 4075
4076 4077 4078 4079 4080 4082 4083 4084 4089# 4091 4092 4093 4094 4095
4096 4097 4098 4099 4100 4101 4102 4103 4105 4106 4107 4108 4109 4110
4111 4112 4114 4115 4116 4121# 4123 4124 4125 4126 4127 4128 4129 4130
4131 4132 4133 4134 4135 4137 4138 4139 4140 4143 4144 4145 4146 4147
4148 4149 4151 4152 4153 4159# 4161 4162 4163 4164 4165 4166 4167 4168
4169 4170 4171 4172 4173 4175 4176 4177 4178 4180 4181 4182 4184 4185
4186 4193# 4195 4196 4197 4198 4199 4200 4201 4202 4203 4204 4205 4206
4207 4209 4210 4211 4212 4214 4215 4216 4217 4221 4223 4225 4228 4230
4231 4232 4238# 4240 4241 4242 4243 4244 4245 4246 4247 4248 4249 4250
4251 4252 4254 4255 4256 4257 4260 4264 4265 4266 4272# 4274 4275 4276
4277 4278 4279 4280 4281 4282 4283 4284 4285 4286 4288 4289 4290 4291
4294 4295 4298 4299 4300 4306# 4308 4309 4310 4311 4312 4313 4314 4315
4316 4317 4318 4319 4320 4322 4323 4324 4325 4326 4328 4329 4332 4333
4334 4340# 4342 4343 4344 4345 4346 4347 4348 4349 4350 4351 4352 4353
4354 4356 4357 4358 4359 4360 4361 4364 4365 4366 4372# 4374 4375 4376
4377 4378 4379 4380 4381 4382 4383 4384 4385 4386 4388 4389 4390 4391
4393 4394 4396 4398 4399 4400 4406# 4408 4409 4410 4411 4412 4413 4414
4415 4416 4417 4418 4419 4420 4422 4423 4424 4425 4426 4430 4432 4434
4435 4436 4442# 4444 4445 4446 4447 4448 4449 4450 4451 4452 4453 4454
4455 4456 4458 4459 4460 4461 4463 4464 4466 4469 4470 4471 4477# 4479
4480 4481 4482 4483 4484 4485 4486 4487 4488 4489 4490 4491 4493 4494
4495 4496 4498 4499 4504 4505 4506 4512# 4514 4515 4516 4517 4518 4519
4520 4521 4522 4523 4524 4525 4526 4528 4529 4530 4531 4532 4534 4535
4537 4540 4541 4542 4548# 4550 4551 4552 4553 4554 4555 4556 4557 4558
4559 4560 4561 4562 4564 4565 4566 4567 4571 4572 4573 4574 4577 4578
4579 4585# 4587 4588 4589 4590 4591 4592 4593 4594 4595 4596 4597 4598
4599 4601 4602 4603 4604 4607 4611 4612 4613 4619# 4621 4622 4623 4624
4625 4626 4627 4628 4629 4630 4631 4632 4633 4635 4636 4637 4638 4639
4640 4641 4644 4645 4646 4652# 4654 4655 4656 4657 4658 4659 4660 4661
4662 4663 4664 4665 4666 4668 4669 4670 4671 4673 4674 4675 4678 4679
4680 4685# 4687 4688 4689 4690 4691 4692 4693 4694 4695 4696 4697 4698
4699 4701 4702 4703 4704 4707 4710 4713 4714 4715 4721# 4723 4724 4725
4726 4727 4728 4729 4730 4731 4732 4733 4734 4735 4737 4738 4739 4740
4741 4742 4745 4748 4749 4750 4756# 4758 4759 4760 4761 4762 4763 4764
4765 4766 4767 4768 4769 4770 4772 4773 4774 4775 4776 4777 4780 4781 SEQ 0558
4782 4788# 4790 4791 4792 4793 4794 4795 4796 4797 4798 4799 4800 4801
4802 4804 4805 4806 4807 4809 4810 4812 4814 4815 4816 4822# 4824 4825
4826 4827 4828 4829 4830 4831 4832 4833 4834 4835 4836 4838 4839 4840
4841 4842 4843 4845 4846 4849 4850 4851 4858# 4860 4861 4862 4863 4864
4865 4866 4867 4868 4869 4870 4871 4872 4874 4875 4876 4877 4879 4880
4882 4885 4886 4887 4894# 4896 4897 4898 4899 4900 4901 4902 4903 4904
4905 4906 4907 4908 4910 4911 4912 4913 4915 4916 4917 4922 4923 4924
4931# 4933 4934 4935 4936 4937 4938 4939 4940 4941 4942 4943 4944 4945
4947 4948 4949 4950 4951 4952 4953 4955 4958 4959 4960 4967# 4969 4970
4971 4972 4973 4974 4975 4976 4977 4978 4979 4980 4981 4983 4984 4985
4986 4988 4992 4993 4996 4997 4998 5003# 5005 5006 5007 5008 5009 5010
5011 5012 5013 5014 5015 5016 5017 5019 5020 5021 5022 5026 5027 5028
5029 5030 5031 5032 5033 5035 5036 5037 5043# 5045 5046 5047 5048 5049
5050 5051 5052 5053 5054 5055 5056 5057 5059 5060 5061 5062 5064 5068
5069 5072 5073 5074 5081# 5083 5084 5085 5086 5087 5088 5089 5090 5091
5092 5093 5094 5095 5097 5098 5099 5100 5102 5106 5107 5108 5109 5110
5111 5112 5115 5116 5117 5125# 5127 5128 5129 5130 5131 5132 5133 5134
5135 5136 5137 5138 5139 5141 5142 5143 5144 5150 5151 5152 5153 5154
5155 5156 5158 5161 5162 5163 5171# 5173 5174 5175 5176 5177 5178 5179
5180 5181 5182 5183 5184 5185 5187 5188 5189 5190 5196 5197 5198 5199
5200 5201 5202 5204 5207 5208 5209 5215# 5217 5218 5219 5220 5221 5222
5223 5224 5225 5226 5227 5228 5229 5231 5232 5233 5234 5235 5242 5243
5246 5247 5248 5254# 5256 5257 5258 5259 5260 5261 5262 5263 5264 5265
5266 5267 5268 5270 5271 5272 5273 5274 5275 5276 5277 5280 5281 5282
5288# 5290 5291 5292 5293 5294 5295 5296 5297 5298 5299 5300 5301 5302
5304 5305 5306 5307 5308 5310 5311 5312 5313 5315 5316 5321 5322 5323
5329# 5331 5332 5333 5334 5335 5336 5337 5338 5339 5340 5341 5342 5343
5345 5346 5347 5348 5349 5356 5357 5362 5363 5364 5370# 5372 5373 5374
5375 5376 5377 5378 5379 5380 5381 5382 5383 5384 5386 5387 5388 5389
5390 5401 5402 5404 5405 5406 5412# 5414 5415 5416 5417 5418 5419 5420
5421 5422 5423 5424 5425 5426 5428 5429 5430 5431 5432 5433 5435 5436
5437 5438 5441 5442 5443 5449# 5451 5452 5453 5454 5455 5456 5457 5458
5459 5460 5461 5462 5463 5465 5466 5467 5468 5470 5473 5476 5478 5479
5480 5486# 5488 5489 5490 5491 5492 5493 5494 5495 5496 5497 5498 5499
5500 5502 5503 5504 5505 5507 5509 5510 5511 5512 5515 5516 5517 5523#
5525 5526 5527 5528 5529 5530 5531 5532 5533 5534 5535 5536 5537 5539
5540 5541 5542 5543 5545 5548 5551 5553 5554 5555 5561# 5563 5564 5565
5566 5567 5568 5569 5570 5571 5572 5573 5574 5575 5577 5578 5579 5580
5581 5583 5585 5586 5587 5588 5591 5592 5593 5599# 5601 5602 5603 5604
5605 5606 5607 5608 5609 5610 5611 5612 5613 5615 5616 5617 5618 5619
5620 5621 5623 5624 5625 5626 5629 5630 5631 5637# 5639 5640 5641 5642
5643 5644 5645 5646 5647 5648 5649 5650 5651 5653 5654 5655 5656 5657
5658 5660 5661 5662 5663 5666 5667 5668 5674# 5676 5677 5678 5679 5680
5681 5682 5683 5684 5685 5686 5687 5688 5690 5691 5692 5693 5694 5695
5697 5698 5699 5700 5705 5706 5707 5713# 5715 5716 5717 5718 5719 5720
5721 5722 5723 5724 5725 5726 5727 5729 5730 5731 5732 5733 5734 5736
5737 5738 5739 5742 5743 5744 5751# 5753 5754 5755 5756 5757 5758 5759
5760 5761 5762 5763 5764 5765 5767 5768 5769 5770 5771 5773 5774 5775
5776 5778 5779 5780 5781 5784 5785 5786 5792# 5794 5795 5796 5797 5798
5799 5800 5801 5802 5803 5804 5805 5806 5809 5810 5811 5812 5814 5815
5816 5818 5819 5820 5821 5824 5825 5826 5833# 5835 5836 5837 5838 5839
5840 5841 5842 5843 5844 5845 5846 5847 5850 5851 5852 5853 5855 5856
5857 5859 5860 5862 5863 5864 5865 5868 5869 5870 5877# 5879 5880 5881 SEQ 0559
5882 5883 5884 5885 5886 5887 5888 5889 5890 5891 5894 5895 5896 5897
5901 5902 5905 5908 5910 5911 5912 5920# 5922 5923 5924 5925 5926 5927
5928 5929 5930 5931 5932 5933 5934 5937 5938 5939 5940 5943 5944 5946
5948 5951 5954 5955 5956 5962# 5964 5965 5966 5967 5968 5969 5970 5971
5972 5973 5974 5975 5976 5978 5979 5980 5981 5982 5983 5984 5986 5987
5988 5989 5992 5993 5994 6000# 6002 6003 6004 6005 6006 6007 6008 6009
6010 6011 6012 6013 6014 6016 6017 6018 6019 6020 6022 6023 6024 6025
6028 6029 6030 6036# 6038 6039 6040 6041 6042 6043 6044 6045 6046 6047
6048 6049 6050 6052 6053 6054 6055 6056 6057 6059 6060 6061 6063 6064
6065 6066 6069 6070 6071 6078# 6080 6081 6082 6083 6084 6085 6086 6087
6088 6089 6090 6091 6092 6095 6096 6097 6098 6100 6101 6102 6104 6105
6106 6107 6110 6111 6112 6119# 6121 6122 6123 6124 6125 6126 6127 6128
6129 6130 6131 6132 6133 6136 6137 6138 6139 6141 6142 6143 6145 6146
6147 6149 6150 6151 6154 6155 6156 6163# 6165 6166 6167 6168 6169 6170
6171 6172 6173 6174 6175 6176 6177 6180 6181 6182 6183 6187 6188 6189
6191 6194 6195 6198 6201 6202 6203 6210# 6212 6213 6214 6215 6216 6217
6218 6219 6220 6221 6222 6223 6224 6227 6228 6229 6230 6234 6235 6238
6240 6241 6244 6245 6246 6252# 6254 6255 6256 6257 6258 6259 6260 6261
6262 6263 6264 6265 6266 6268 6269 6270 6271 6273 6274 6277 6278 6281
6282 6283 6289# 6291 6292 6293 6294 6295 6296 6297 6298 6299 6300 6301
6302 6303 6305 6306 6307 6308 6310 6312 6313 6314 6315 6319 6320 6321
6327# 6329 6330 6331 6332 6333 6334 6335 6336 6337 6338 6339 6340 6341
6343 6344 6345 6346 6348 6353 6354 6355 6361# 6363 6364 6365 6366 6367
6368 6369 6370 6371 6372 6373 6374 6375 6377 6378 6379 6380 6382 6384
6385 6386 6387 6390 6391 6392 6398# 6400 6401 6402 6403 6404 6405 6406
6407 6408 6409 6410 6411 6412 6414 6415 6416 6417 6418 6420 6421 6423
6425 6426 6427 6433# 6435 6436 6437 6438 6439 6440 6441 6442 6443 6444
6445 6446 6447 6449 6450 6451 6452 6453 6454 6457 6459 6460 6461 6462
6465 6466 6467 6473# 6475 6476 6477 6478 6479 6480 6481 6482 6483 6484
6485 6486 6487 6489 6490 6491 6492 6493 6495 6497 6499 6500 6501 6507#
6509 6510 6511 6512 6513 6514 6515 6516 6517 6518 6519 6520 6521 6523
6524 6525 6526 6527 6529 6532 6534 6535 6536 6544# 6546 6547 6548 6549
6550 6551 6552 6553 6554 6555 6556 6557 6558 6560 6561 6562 6563 6565
6567 6569 6570 6571 6577# 6579 6580 6581 6582 6583 6584 6585 6586 6587
6588 6589 6590 6591 6593 6594 6595 6596 6597 6599 6600 6603 6605 6606
6607 6617# 6619 6620 6621 6622 6623 6624 6625 6626 6627 6628 6629 6630
6631 6633 6634 6635 6636 6637 6638 6639 6640 6643 6644 6645 6653# 6655
6656 6657 6658 6659 6660 6661 6662 6663 6664 6665 6666 6667 6669 6670
6671 6672 6673 6675 6677 6679 6680 6681 6690# 6692 6693 6694 6695 6696
6697 6698 6699 6700 6701 6702 6703 6704 6707 6708 6709 6710 6712 6713
6714 6716 6717 6718 6719 6721 6722 6723 6724 6727 6728 6729 6738# 6740
6741 6742 6743 6744 6745 6746 6747 6748 6749 6750 6751 6752 6755 6756
6757 6758 6760 6761 6762 6764 6765 6766 6767 6769 6770 6771 6772 6775
6776 6777 6786# 6788 6789 6790 6791 6792 6793 6794 6795 6796 6797 6798
6799 6800 6803 6804 6805 6806 6810 6811 6812 6815 6818 6819 6821 6823
6825 6826 6827 6835# 6837 6838 6839 6840 6841 6842 6843 6844 6845 6846
6847 6848 6849 6852 6853 6854 6855 6859 6860 6862 6864 6866 6869 6872
6873 6874 6883# 6885 6886 6887 6888 6889 6890 6891 6892 6893 6894 6895
6896 6897 6900 6901 6902 6903 6905 6906 6907 6909 6910 6911 6912 6915
6916 6917 6925# 6927 6928 6929 6930 6931 6932 6933 6934 6935 6936 6937
6938 6939 6942 6943 6944 6945 6947 6948 6949 6951 6952 6953 6954 6957
6958 6959 6968# 6970 6971 6972 6973 6974 6975 6976 6977 6978 6979 6980
6981 6982 6985 6986 6987 6988 6992 6993 6996 6999 7001 7002 7003 7013# SEQ 0560
7015 7016 7017 7018 7019 7020 7021 7022 7023 7024 7025 7026 7027 7030
7031 7032 7033 7037 7038 7041 7044 7046 7047 7048 7056# 7058 7059 7060
7061 7062 7063 7064 7065 7066 7067 7068 7069 7070 7072 7073 7074 7075
7077 7079 7081 7083 7084 7085 7093# 7096 7097 7098 7099 7100 7101 7102
7103 7104 7105 7106 7107 7108 7110 7111 7112 7113 7115 7116 7119 7120
7121 7129# 7131 7132 7133 7134 7135 7136 7137 7138 7139 7140 7141 7142
7143 7145 7146 7147 7148 7149 7150 7151 7152 7153 7156 7157 7158 7167#
7169 7170 7171 7172 7173 7174 7175 7176 7177 7178 7179 7180 7181 7183
7184 7185 7186 7187 7188 7190 7191 7192 7193 7196 7197 7198 7208# 7210
7211 7212 7213 7214 7215 7216 7217 7218 7219 7220 7221 7222 7224 7225
7226 7227 7229 7231 7232 7233 7234 7237 7238 7239 7247# 7249 7250 7251
7252 7253 7254 7255 7256 7257 7258 7259 7260 7261 7263 7264 7265 7266
7268 7269 7271 7273 7276 7278 7279 7280 7288# 7290 7291 7292 7293 7294
7295 7296 7297 7298 7299 7300 7301 7302 7304 7305 7306 7307 7308 7309
7312 7314 7315 7316 7317 7320 7321 7322 7330# 7332 7333 7334 7335 7336
7337 7338 7339 7340 7341 7342 7343 7344 7346 7347 7348 7349 7350 7352
7355 7358 7360 7362 7364 7366 7367 7368 7377# 7379 7380 7381 7382 7383
7384 7385 7386 7387 7388 7389 7390 7391 7393 7394 7395 7396 7397 7398
7401 7403 7404 7405 7406 7408 7409 7410 7411 7414 7415 7416 7425# 7427
7428 7429 7430 7431 7432 7433 7434 7435 7436 7437 7438 7439 7441 7442
7443 7444 7445 7446 7447 7448 7450 7452 7454 7455 7456 7457 7460 7461
7462 7470# 7472 7473 7474 7475 7476 7477 7478 7479 7480 7481 7482 7483
7484 7486 7487 7488 7489 7491 7493 7496 7499 7501 7502 7503 7511# 7513
7514 7515 7516 7517 7518 7519 7520 7521 7522 7523 7524 7525 7527 7528
7529 7530 7532 7534 7535 7536 7537 7540 7541 7542 7551# 7553 7554 7555
7556 7557 7558 7559 7560 7561 7562 7563 7564 7565 7567 7568 7569 7570
7571 7572 7574 7575 7576 7577 7580 7581 7582 7590# 7592 7593 7594 7595
7596 7597 7598 7599 7600 7601 7602 7603 7604 7606 7607 7608 7609 7610
7612 7614 7616 7617 7618 7619 7622 7623 7624 7632# 7634 7635 7636 7637
7638 7639 7640 7641 7642 7643 7644 7645 7646 7648 7649 7650 7651 7653
7655 7656 7657 7658 7661 7662 7663 7671# 7673 7674 7675 7676 7677 7678
7679 7680 7681 7682 7683 7684 7685 7687 7688 7689 7690 7691 7693 7694
7697 7700 7702 7704 7706 7708 7709 7710 7718# 7720 7721 7722 7723 7724
7725 7726 7727 7728 7729 7730 7731 7732 7734 7735 7736 7737 7738 7740
7741 7743 7744 7745 7746 7749 7750 7751 7759# 7761 7762 7763 7764 7765
7766 7767 7768 7769 7770 7771 7772 7773 7775 7776 7777 7778 7779 7781
7784 7787 7789 7790 7791 7799# 7801 7802 7803 7804 7805 7806 7807 7808
7809 7810 7811 7812 7813 7815 7816 7817 7818 7819 7821 7822 7824 7825
7826 7827 7830 7831 7832 7840# 7842 7843 7844 7845 7846 7847 7848 7849
7850 7851 7852 7853 7854 7856 7857 7858 7859 7860 7861 7862 7864 7865
7866 7867 7870 7871 7872 7880# 7882 7883 7884 7885 7886 7887 7888 7889
7890 7891 7892 7893 7894 7896 7897 7898 7899 7901 7903 7904 7905 7906
7909 7910 7911 7919# 7921 7922 7923 7924 7925 7926 7927 7928 7929 7930
7931 7932 7933 7935 7936 7937 7938 7940 7943 7946 7948 7949 7950 7959#
7961 7962 7963 7964 7965 7966 7967 7968 7969 7970 7971 7972 7973 7975
7976 7977 7978 7979 7980 7982 7983 7984 7985 7988 7989 7990 7998# 8000
8001 8002 8003 8004 8005 8006 8007 8008 8009 8010 8011 8012 8014 8015
8016 8017 8018 8019 8020 8024 8026 8027 8028 8029 8032 8033 8034 8042#
8044 8045 8046 8047 8048 8049 8050 8051 8052 8053 8054 8055 8056 8058
8059 8060 8061 8063 8065 8066 8067 8068 8071 8072 8073 8081# 8083 8084
8085 8086 8087 8088 8089 8090 8091 8092 8093 8094 8095 8097 8098 8099
8100 8102 8105 8108 8110 8111 8112 8120# 8122 8123 8124 8125 8126 8127
8128 8129 8130 8131 8132 8133 8134 8136 8137 8138 8139 8140 8142 8143 SEQ 0561
8145 8146 8147 8148 8151 8152 8153 8161# 8163 8164 8165 8166 8167 8168
8169 8170 8171 8172 8173 8174 8175 8177 8178 8179 8180 8181 8183 8185
8187 8189 8192 8194 8195 8196 8204# 8206 8207 8208 8209 8210 8211 8212
8213 8214 8215 8216 8217 8218 8220 8221 8222 8223 8224 8226 8227 8229
8230 8231 8234 8235 8236 8244# 8246 8247 8248 8249 8250 8251 8252 8253
8254 8255 8256 8257 8258 8260 8261 8262 8263 8264 8265 8266 8267 8269
8270 8271 8272 8275 8276 8277 8285# 8287 8288 8289 8290 8291 8292 8293
8294 8295 8296 8297 8298 8299 8301 8302 8303 8304 8306 8308 8309 8310
8311 8314 8315 8316 8324# 8326 8327 8328 8329 8330 8331 8332 8333 8334
8335 8336 8337 8338 8340 8341 8342 8343 8345 8348 8349 8351 8353 8354
8355 8363# 8365 8366 8367 8368 8369 8370 8371 8372 8373 8374 8375 8376
8377 8379 8380 8381 8382 8383 8384 8386 8387 8388 8389 8392 8393 8394
8403# 8405 8406 8407 8408 8409 8410 8411 8412 8413 8414 8415 8416 8417
8419 8420 8421 8422 8423 8424 8426 8427 8428 8429 8432 8433 8434 8442#
8444 8445 8446 8447 8448 8449 8450 8451 8452 8453 8454 8455 8456 8458
8459 8460 8461 8463 8465 8466 8467 8468 8471 8472 8473 8481# 8483 8484
8485 8486 8487 8488 8489 8490 8491 8492 8493 8494 8495 8497 8498 8499
8500 8502 8505 8508 8510 8511 8512 8520# 8522 8523 8524 8525 8526 8527
8528 8529 8530 8531 8532 8533 8534 8536 8537 8538 8539 8540 8542 8544
8545 8546 8547 8550 8551 8552 8560# 8562 8563 8564 8565 8566 8567 8568
8569 8570 8571 8572 8573 8574 8576 8577 8578 8579 8580 8582 8585 8588
8590 8591 8592 8600# 8602 8603 8604 8605 8606 8607 8608 8609 8610 8611
8612 8613 8614 8616 8617 8618 8619 8620 8621 8623 8625 8626 8627 8628
8631 8632 8633 8641# 8643 8644 8645 8646 8647 8648 8649 8650 8651 8652
8653 8654 8655 8657 8658 8659 8660 8661 8662 8664 8665 8667 8668 8669
8670 8673 8674 8675 8684# 8686 8687 8688 8689 8690 8691 8692 8693 8694
8695 8696 8697 8698 8700 8701 8702 8703 8706 8707 8708 8711 8712 8713
8715 8717 8718 8719 8727# 8729 8730 8731 8732 8733 8734 8735 8736 8737
8738 8739 8740 8741 8744 8745 8746 8747 8751 8752 8756 8759 8760 8761
8772# 8774 8775 8776 8777 8778 8779 8780 8781 8782 8783 8784 8785 8786
8788 8789 8790 8791 8793 8794 8796 8801 8802 8803 8814# 8816 8817 8818
8819 8820 8821 8822 8823 8824 8825 8826 8827 8828 8831 8832 8833 8834
8840 8841 8842 8845 8848 8849 8850 8859# 8861 8862 8863 8864 8865 8866
8867 8868 8869 8870 8871 8872 8873 8875 8876 8877 8878 8879 8880 8881
8883 8884 8885 8886 8891 8892 8893 8902# 8904 8905 8906 8907 8908 8909
8910 8911 8912 8913 8914 8915 8916 8918 8919 8920 8921 8922 8923 8924
8926 8927 8928 8929 8933 8934 8935 8936 8937 8938 8940 8942 8943 8944
8951# 8953 8954 8955 8956 8957 8958 8959 8960 8961 8962 8963 8964 8965
8967 8968 8969 8970 8971 8972 8974 8975 8976 8977 8978 8982 8983 8984
8985 8986 8987 8989 8991 8992 8993 9002# 9004 9005 9006 9007 9008 9009
9010 9011 9012 9013 9014 9015 9016 9018 9019 9020 9021 9022 9024 9025
9026 9027 9028 9029 9031 9034 9035 9036 9046# 9048 9049 9050 9051 9052
9053 9054 9055 9056 9057 9058 9059 9060 9062 9063 9064 9065 9066 9067
9068 9069 9070 9073 9074 9075 9083# 9085 9086 9087 9088 9089 9090 9091
9092 9093 9094 9095 9096 9097 9098 9099 9100 9101 9102 9103 9104 9105
9107 9108 9118# 9120 9121 9122 9123 9124 9125 9126 9127 9128 9129 9130
9131 9132 9133 9134 9135 9136 9137 9138 9139 9150# 9152 9153 9154 9155
9156 9157 9158 9159 9160 9161 9162 9163 9164 9165 9166 9167 9168 9169
9170 9171 9172 9173 9174 9178 9179 9188# 9190 9191 9192 9193 9194 9195
9196 9197 9198 9199 9200 9201 9202 9203 9204 9205 9206 9207 9208 9209
9210 9211 9212 9214 9215 9224# 9226 9227 9228 9229 9230 9231 9232 9233
9234 9235 9236 9237 9238 9239 9240 9241 9242 9243 9244 9245 9246 9247
9249 9250 9251 9252 9253 9255 9256 9257 9266# 9268 9269 9270 9271 9272 SEQ 0562
9273 9274 9275 9276 9277 9278 9279 9280 9281 9282 9283 9284 9285 9286
9287 9288 9289 9291 9292 9293 9294 9295 9298 9299 9300 9301 9311# 9313
9314 9315 9316 9317 9318 9319 9320 9321 9322 9323 9324 9325 9327 9328
9329 9330 9331 9332 9333 9334 9335 9336 9337 9340 9341 9342 9352# 9354
9355 9356 9357 9358 9359 9360 9361 9362 9363 9364 9365 9366 9368 9369
9370 9371 9375 9377 9378 9379 9380 9401 9402 9403 9412# 9414 9415 9416
9417 9418 9419 9420 9421 9422 9423 9424 9425 9426 9427 9428 9429 9430
9433 9434 9435 9436 9440 9441 9442 9443 9444 9455# 9457 9458 9459 9460
9461 9462 9463 9464 9465 9466 9467 9468 9469 9471 9472 9473 9474 9477
9478 9480 9485 9486 9487 9498# 9500 9501 9502 9503 9504 9505 9506 9507
9508 9509 9510 9511 9512 9514 9515 9516 9517 9518 9519 9520 9523 9524
9526 9528 9531 9532 9533 9542# 9544 9545 9546 9547 9548 9549 9550 9551
9552 9553 9554 9555 9556 9558 9559 9560 9561 9562 9563 9564 9565 9568
9569 9571 9573 9576 9577 9578 9587# 9589 9590 9591 9592 9593 9594 9595
9596 9597 9598 9599 9600 9601 9602 9603 9604 9605 9606 9608 9610 9611
9613 9615 9617 9618 9619 9629# 9631 9632 9633 9634 9635 9636 9637 9638
9639 9640 9641 9642 9643 9644 9646 9647 9649 9651 9653 9654 9662# 9664
9665 9666 9667 9668 9669 9670 9671 9672 9673 9674 9675 9676 9678 9679
9680 9681 9682 9684 9685 9686 9687 9690 9691 9692 9700# 9702 9703 9704
9705 9706 9707 9708 9709 9710 9711 9712 9713 9714 9715 9716 9717 9718
9719 9721 9722 9723 9724 9726 9727 9728 9738# 9740 9741 9742 9743 9744
9745 9746 9747 9748 9749 9750 9751 9752 9753 9754 9755 9756 9757 9758
9760 9761 9771# 9773 9774 9775 9776 9777 9778 9779 9780 9781 9782 9783
9784 9785 9787 9788 9789 9790 9791 9792 9793 9795 9796 9797 9798 9801
9802 9803 9811# 9813 9814 9815 9816 9817 9818 9819 9820 9821 9822 9823
9824 9825 9827 9828 9829 9830 9831 9832 9833 9834 9836 9837 9838 9839
9842 9843 9844 9852# 9854 9855 9856 9857 9858 9859 9860 9861 9862 9863
9864 9865 9866 9867 9868 9869 9870 9871 9872 9875 9876 9877 9885# 9887
9888 9889 9890 9891 9892 9893 9894 9895 9896 9897 9898 9899 9900 9901
9902 9903 9904 9905 9907 9908 9917# 9919 9920 9921 9922 9923 9924 9925
9926 9927 9928 9929 9930 9931 9933 9934 9935 9936 9938 9940 9941 9943
9945 9948 9949 9950 9959# 9961 9962 9963 9964 9965 9966 9967 9968 9969
9970 9971 9972 9973 9974 9975 9976 9977 9979 9981 9982 9984 9986 9990
9991 10002# 10004 10005 10006 10007 10008 10009 10010 10011 10012 10013 10014 10015
10016 10018 10019 10020 10021 10024 10025 10027 10032 10033 10034 10045# 10047 10048
10049 10050 10051 10052 10053 10054 10055 10056 10057 10058 10059 10060 10061 10063
10064 10066 10068 10070 10071 10080# 10082 10083 10084 10085 10086 10087 10088 10089
10090 10091 10092 10093 10094 10096 10097 10098 10099 10100 10101 10102 10104 10106
10107 10109 10111 10114 10115 10116 10125# 10127 10128 10129 10130 10131 10132 10133
10134 10135 10136 10137 10138 10139 10141 10142 10143 10144 10145 10146 10148 10150
10151 10153 10155 10158 10159 10160 10169# 10171 10172 10173 10174 10175 10176 10177
10178 10179 10180 10181 10182 10183 10184 10185 10187 10188 10190 10192 10194 10195
10204# 10206 10207 10208 10209 10210 10211 10212 10213 10214 10215 10216 10217 10218
10219 10220 10222 10223 10225 10227 10229 10230 10238# 10240 10241 10242 10243 10244
10245 10246 10247 10248 10249 10250 10251 10252 10254 10255 10256 10257 10258 10260
10261 10262 10263 10266 10267 10268 10276# 10278 10279 10280 10281 10282 10283 10284
10285 10286 10287 10288 10289 10290 10291 10292 10293 10294 10295 10298 10299 10300
10301 10305 10306 10314# 10316 10317 10318 10319 10320 10321 10322 10323 10324 10325
10326 10327 10328 10329 10330 10331 10332 10333 10334 10336 10337 10345# 10347 10348
10349 10350 10351 10352 10353 10354 10355 10356 10357 10358 10359 10361 10362 10363
10364 10365 10366 10367 10368 10370 10371 10372 10373 10376 10377 10378 10386# 10388
10389 10390 10391 10392 10393 10394 10395 10396 10397 10398 10399 10400 10402 10403
10404 10405 10406 10407 10408 10410 10411 10412 10413 10416 10417 10418 10426# 10428 SEQ 0563
10429 10430 10431 10432 10433 10434 10435 10436 10437 10438 10439 10440 10441 10442
10443 10444 10445 10446 10448 10449 10457# 10459 10460 10461 10462 10463 10464 10465
10466 10467 10468 10469 10470 10471 10472 10473 10474 10475 10476 10477 10479 10480
10489# 10491 10492 10493 10494 10495 10496 10497 10498 10499 10500 10501 10502 10503
10505 10506 10507 10508 10510 10511 10513 10515 10518 10519 10520 10528# 10530 10531
10532 10533 10534 10535 10536 10537 10538 10539 10540 10541 10542 10544 10545 10546
10547 10548 10549 10550 10551 10554 10555 10556 10565# 10567 10568 10569 10570 10571
10572 10573 10574 10575 10576 10577 10578 10579 10582 10583 10584 10585 10589 10590
10591 10592 10597 10598 10599 10607# 10609 10610 10611 10612 10613 10614 10615 10616
10617 10618 10619 10620 10621 10623 10624 10625 10626 10627 10630 10631 10633 10634
10635 10636 10641 10642 10643 10651# 10653 10654 10655 10656 10657 10658 10659 10660
10661 10662 10663 10664 10665 10667 10668 10669 10670 10671 10674 10675 10677 10678
10679 10680 10685 10686 10687 10695# 10697 10698 10699 10700 10701 10702 10703 10704
10705 10706 10707 10708 10709 10711 10712 10713 10714 10715 10718 10719 10721 10722
10726 10729 10730 10731 10739# 10741 10742 10743 10744 10745 10746 10747 10748 10749
10750 10751 10752 10753 10755 10756 10757 10758 10759 10760 10761 10762 10765 10766
10767 10775# 10777 10778 10779 10780 10781 10782 10783 10784 10785 10786 10787 10788
10789 10791 10792 10793 10794 10795 10796 10797 10798 10801 10802 10803 10811# 10813
10814 10815 10816 10817 10818 10819 10820 10821 10822 10823 10824 10825 10827 10828
10829 10830 10831 10832 10833 10834 10835 10836 10837 10838 10841 10842 10843 10851#
10853 10854 10855 10856 10857 10858 10859 10860 10861 10862 10863 10864 10865 10867
10868 10869 10870 10872 10873 10874 10875 10876 10877 10878 10881 10882 10883 10891#
10893 10894 10895 10896 10897 10898 10899 10900 10901 10902 10903 10904 10905 10907
10908 10909 10910 10912 10913 10914 10915 10916 10917 10920 10921 10922 10931# 10933
10934 10935 10936 10937 10938 10939 10940 10941 10942 10943 10944 10945 10946 10948
10949 10953 10955 10956 10959 10960 10961 10962 10973# 10975 10976 10977 10978 10979
10980 10981 10982 10983 10984 10985 10986 10987 10988 10990 10991 10994 10996 10997
10998 10999 11000 11002 11003 11004 11014# 11016 11017 11018 11019 11020 11021 11022
11023 11024 11025 11026 11027 11028 11030 11031 11032 11033 11035 11036 11037 11038
11039 11040 11042 11043 11051# 11053 11054 11055 11056 11057 11058 11059 11060 11061
11062 11063 11064 11065 11067 11068 11069 11070 11072 11073 11074 11075 11076 11077
11079 11080 11089# 11091 11092 11093 11094 11095 11096 11097 11098 11099 11100 11101
11102 11103 11104 11106 11107 11110 11111 11112 11113 11114 11115 11117 11118 11129#
11131 11132 11133 11134 11135 11136 11137 11138 11139 11140 11141 11142 11143 11144
11146 11147 11152 11153 11156 11157 11158 11166# 11168 11169 11170 11171 11172 11173
11174 11175 11176 11177 11178 11179 11180 11182 11183 11184 11185 11187 11189 11191
11192 11195 11196 11197 11205# 11207 11208 11209 11210 11211 11212 11213 11214 11215
11216 11217 11218 11219 11221 11222 11223 11224 11226 11228 11230 11231 11234 11235
11236 11244# 11246 11247 11248 11249 11250 11251 11252 11253 11254 11255 11256 11257
11258 11260 11261 11262 11263 11265 11267 11268 11271 11272 11273 11281# 11283 11284
11285 11286 11287 11288 11289 11290 11291 11292 11293 11294 11295 11297 11298 11299
11300 11302 11304 11306 11307 11310 11311 11312 11320# 11322 11323 11324 11325 11326
11327 11328 11329 11330 11331 11332 11333 11334 11336 11337 11338 11339 11341 11342
11343 11346 11347 11348 11356# 11358 11359 11360 11361 11362 11363 11364 11365 11366
11367 11368 11369 11370 11372 11373 11374 11375 11377 11379 11381 11382 11385 11386
11387 11395# 11397 11398 11399 11400 11401 11402 11403 11404 11405 11406 11407 11408
11409 11411 11412 11413 11414 11416 11418 11419 11420 11421 11424 11425 11426 11434#
11436 11437 11438 11439 11440 11441 11442 11443 11444 11445 11446 11447 11448 11450
11451 11452 11453 11455 11457 11459 11460 11463 11464 11465 11473# 11475 11476 11477
11478 11479 11480 11481 11482 11483 11484 11485 11486 11487 11489 11490 11491 11492
11494 11496 11498 11499 11502 11503 11504 11512# 11514 11515 11516 11517 11518 11519
11520 11521 11522 11523 11524 11525 11526 11528 11529 11530 11531 11533 11534 11535
11536 11539 11540 11541 11549# 11551 11552 11553 11554 11555 11556 11557 11558 11559 SEQ 0564
11560 11561 11562 11563 11565 11566 11567 11568 11570 11572 11573 11575 11576 11579
11580 11581 11589# 11591 11592 11593 11594 11595 11596 11597 11598 11599 11600 11601
11602 11603 11605 11606 11607 11608 11610 11613 11614 11617 11618 11619 11627# 11629
11630 11631 11632 11633 11634 11635 11636 11637 11638 11639 11640 11641 11643 11644
11645 11646 11648 11650 11652 11653 11656 11657 11658 11666# 11668 11669 11670 11671
11672 11673 11674 11675 11676 11677 11678 11679 11680 11682 11683 11684 11685 11687
11689 11690 11692 11693 11696 11697 11698 11706# 11708 11709 11710 11711 11712 11713
11714 11715 11716 11717 11718 11719 11720 11722 11723 11724 11725 11727 11728 11729
11732 11733 11734 11742# 11744 11745 11746 11747 11748 11749 11750 11751 11752 11753
11754 11755 11756 11758 11759 11760 11761 11762 11764 11765 11766 11767 11770 11771
11772 11780# 11782 11783 11784 11785 11786 11787 11788 11789 11790 11791 11792 11793
11794 11796 11797 11798 11799 11801 11804 11807 11809 11810 11811 11819# 11821 11822
11823 11824 11825 11826 11827 11828 11829 11830 11831 11832 11833 11835 11836 11837
11838 11839 11840 11842 11843 11844 11845 11848 11849 11850 11858# 11860 11861 11862
11863 11864 11865 11866 11867 11868 11869 11870 11871 11872 11874 11875 11876 11877
11878 11879 11881 11882 11883 11884 11887 11888 11889 11897# 11899 11900 11901 11902
11903 11904 11905 11906 11907 11908 11909 11910 11911 11913 11914 11915 11916 11917
11919 11920 11921 11922 11925 11926 11927 11935# 11937 11938 11939 11940 11941 11942
11943 11944 11945 11946 11947 11948 11949 11951 11952 11953 11954 11956 11959 11962
11964 11965 11966 11974# 11976 11977 11978 11979 11980 11981 11982 11983 11984 11985
11986 11987 11988 11990 11991 11992 11993 11994 11995 11996 11998 11999 12000 12001
12004 12005 12006 12014# 12016 12017 12018 12019 12020 12021 12022 12023 12024 12025
12026 12027 12028 12030 12031 12032 12033 12034 12036 12039 12042 12044 12045 12046
12054# 12056 12057 12058 12059 12060 12061 12062 12063 12064 12065 12066 12067 12068
12070 12071 12072 12073 12074 12075 12076 12078 12079 12080 12081 12084 12085 12086
12094# 12096 12097 12098 12099 12100 12101 12102 12103 12104 12105 12106 12107 12108
12110 12111 12112 12113 12114 12115 12117 12118 12119 12120 12123 12124 12125 12133#
12135 12136 12137 12138 12139 12140 12141 12142 12143 12144 12145 12146 12147 12149
12150 12151 12152 12153 12154 12156 12157 12158 12159 12162 12163 12164 12172# 12174
12175 12176 12177 12178 12179 12180 12181 12182 12183 12184 12185 12186 12188 12189
12190 12191 12192 12193 12195 12197 12198 12199 12200 12203 12204 12205 12213# 12215
12216 12217 12218 12219 12220 12221 12222 12223 12224 12225 12226 12227 12229 12230
12231 12232 12233 12235 12237 12238 12240 12241 12242 12243 12246 12247 12248 12257#
12259 12260 12261 12262 12263 12264 12265 12266 12267 12268 12269 12270 12271 12274
12275 12276 12277 12281 12282 12283 12285 12286 12287 12288 12291 12292 12293 12302#
12304 12305 12306 12307 12308 12309 12310 12311 12312 12313 12314 12315 12316 12319
12320 12321 12322 12326 12327 12328 12330 12331 12333 12334 12335 12336 12339 12340
12341 12350# 12352 12353 12354 12355 12356 12357 12358 12359 12360 12361 12362 12363
12364 12367 12368 12369 12370 12376 12377 12380 12383 12385 12386 12387 12396# 12398
12399 12400 12401 12402 12403 12404 12405 12406 12407 12408 12409 12410 12413 12414
12415 12416 12421 12422 12424 12426 12429 12432 12433 12434 12442# 12444 12445 12446
12447 12448 12449 12450 12451 12452 12453 12454 12455 12456 12458 12459 12460 12461
12462 12464 12465 12466 12467 12470 12471 12472 12480# 12482 12483 12484 12485 12486
12487 12488 12489 12490 12491 12492 12493 12494 12496 12497 12498 12499 12501 12503
12506 12509 12511 12512 12513 12521# 12523 12524 12525 12526 12527 12528 12529 12530
12531 12532 12533 12534 12535 12537 12538 12539 12540 12541 12543 12545 12546 12547
12548 12551 12552 12553 12561# 12563 12564 12565 12566 12567 12568 12569 12570 12571
12572 12573 12574 12575 12577 12578 12579 12580 12582 12585 12588 12590 12591 12592
12600# 12602 12603 12604 12605 12606 12607 12608 12609 12610 12611 12612 12613 12614
12616 12617 12618 12619 12620 12621 12624 12626 12627 12628 12629 12632 12633 12634
12642# 12644 12645 12646 12647 12648 12649 12650 12651 12652 12653 12654 12655 12656
12658 12659 12660 12661 12662 12663 12665 12666 12667 12668 12671 12672 12673 12684#
12686 12687 12688 12689 12690 12691 12692 12693 12694 12695 12696 12697 12698 12701 SEQ 0565
12702 12703 12704 12708 12709 12710 12712 12713 12714 12715 12716 12719 12720 12721
12732# 12734 12735 12736 12737 12738 12739 12740 12741 12742 12743 12744 12745 12746
12749 12750 12751 12752 12756 12757 12758 12760 12761 12762 12763 12766 12767 12768
12777# 12779 12780 12781 12782 12783 12784 12785 12786 12787 12788 12789 12790 12791
12794 12795 12796 12797 12802 12803 12806 12809 12812 12814 12816 12818 12821 12822
12823 12832# 12834 12835 12836 12837 12838 12839 12840 12841 12842 12843 12844 12845
12846 12849 12850 12851 12852 12857 12858 12859 12862 12865 12868 12869 12870 12882#
12884 12885 12886 12887 12888 12889 12890 12891 12892 12893 12894 12895 12896 12898
12899 12900 12901 12902 12904 12905 12906 12907 12910 12911 12912 12918# 12920 12921
12922 12923 12924 12925 12926 12927 12928 12929 12930 12931 12932 12934 12935 12936
12937 12939 12942 12945 12947 12948 12949 12966# 12968 12969 12970 12971 12972 12973
12974 12975 12976 12977 12978 12979 12980 12982 12983 12984 12985 12986 12988 12989
12990 12991 12994 12995 12996 13004# 13006 13007 13008 13009 13010 13011 13012 13013
13014 13015 13016 13017 13018 13020 13021 13022 13023 13025 13028 13031 13033 13034
13035 13043# 13045 13046 13047 13048 13049 13050 13051 13052 13053 13054 13055 13056
13057 13059 13060 13061 13062 13063 13064 13066 13067 13068 13069 13072 13073 13074
13082# 13084 13085 13086 13087 13088 13089 13090 13091 13092 13093 13094 13095 13096
13098 13099 13100 13101 13102 13103 13105 13106 13107 13108 13111 13112 13113 13121#
13123 13124 13125 13126 13127 13128 13129 13130 13131 13132 13133 13134 13135 13137
13138 13139 13140 13141 13143 13144 13145 13146 13149 13150 13151 13159# 13161 13162
13163 13164 13165 13166 13167 13168 13169 13170 13171 13172 13173 13175 13176 13177
13178 13179 13182 13185 13188 13189 13191 13193 13195 13196 13197 13205# 13207 13208
13209 13210 13211 13212 13213 13214 13215 13216 13217 13218 13219 13221 13222 13223
13224 13225 13226 13229 13230 13232 13233 13234 13235 13238 13239 13240 13248# 13250
13251 13252 13253 13254 13255 13256 13257 13258 13259 13260 13261 13262 13264 13265
13266 13267 13268 13270 13273 13276 13277 13279 13281 13283 13284 13285 13293# 13295
13296 13297 13298 13299 13300 13301 13302 13303 13304 13305 13306 13307 13309 13310
13311 13312 13313 13314 13315 13316 13318 13319 13320 13321 13323 13324 13325 13326
13329 13330 13331 13338# 13340 13341 13342 13343 13344 13345 13346 13347 13348 13349
13350 13351 13352 13355 13356 13357 13358 13362 13363 13364 13366 13367 13368 13369
13371 13372 13373 13374 13377 13378 13379 13387# 13389 13390 13391 13392 13393 13394
13395 13396 13397 13398 13399 13400 13401 13403 13404 13405 13406 13407 13409 13410
13411 13412 13415 13416 13417 13425# 13427 13428 13429 13430 13431 13432 13433 13434
13435 13436 13437 13438 13439 13441 13442 13443 13444 13446 13449 13452 13454 13455
13456 13464# 13466 13467 13468 13469 13470 13471 13472 13473 13474 13475 13476 13477
13478 13480 13481 13482 13483 13484 13486 13487 13488 13489 13492 13493 13494 13502#
13504 13505 13506 13507 13508 13509 13510 13511 13512 13513 13514 13515 13516 13518
13519 13520 13521 13523 13526 13529 13531 13532 13533 13541# 13543 13544 13545 13546
13547 13548 13549 13550 13551 13552 13553 13554 13555 13557 13558 13559 13560 13561
13562 13564 13565 13566 13567 13570 13571 13572 13580# 13582 13583 13584 13585 13586
13587 13588 13589 13590 13591 13592 13593 13594 13596 13597 13598 13599 13600 13602
13604 13605 13606 13607 13610 13611 13612 13620# 13622 13623 13624 13625 13626 13627
13628 13629 13630 13631 13632 13633 13634 13636 13637 13638 13639 13640 13642 13643
13644 13645 13648 13649 13650 13658# 13660 13661 13662 13663 13664 13665 13666 13667
13668 13669 13670 13671 13672 13674 13675 13676 13677 13679 13682 13685 13687 13688
13689 13697# 13699 13700 13701 13702 13703 13704 13705 13706 13707 13708 13709 13710
13711 13713 13714 13715 13716 13717 13718 13719 13721 13722 13723 13724 13727 13728
13729 13737# 13739 13740 13741 13742 13743 13744 13745 13746 13747 13748 13749 13750
13751 13753 13754 13755 13756 13757 13759 13762 13765 13767 13768 13769 13777# 13779
13780 13781 13782 13783 13784 13785 13786 13787 13788 13789 13790 13791 13793 13794
13795 13796 13797 13798 13799 13800 13802 13803 13804 13805 13808 13809 13810 13818#
13820 13821 13822 13823 13824 13825 13826 13827 13828 13829 13830 13831 13832 13834
13835 13836 13837 13838 13839 13840 13841 13843 13844 13845 13846 13849 13850 13851 SEQ 0566
13859# 13861 13862 13863 13864 13865 13866 13867 13868 13869 13870 13871 13872 13873
13875 13876 13877 13878 13879 13881 13882 13883 13884 13887 13888 13889 13897# 13899
13900 13901 13902 13903 13904 13905 13906 13907 13908 13909 13910 13911 13913 13914
13915 13916 13918 13921 13924 13926 13927 13928 13936# 13938 13939 13940 13941 13942
13943 13944 13945 13946 13947 13948 13949 13950 13952 13953 13954 13955 13956 13958
13960 13961 13962 13963 13966 13967 13968 13976# 13978 13979 13980 13981 13982 13983
13984 13985 13986 13987 13988 13989 13990 13992 13993 13994 13995 13997 13999 14005#
14007 14008 14009 14010 14011 14012 14013 14014 14015 14016 14017 14018 14019 14021
14022 14023 14024 14025 14028 14029 14031 14032 14033 14034 14037 14038 14039 14047#
14049 14050 14051 14052 14053 14054 14055 14056 14057 14058 14059 14060 14061 14063
14064 14065 14066 14067 14069 14070 14071 14072 14075 14076 14077 14085# 14087 14088
14089 14090 14091 14092 14093 14094 14095 14096 14097 14098 14099 14101 14102 14103
14104 14106 14109 14112 14114 14115 14116 14124# 14126 14127 14128 14129 14130 14131
14132 14133 14134 14135 14136 14137 14138 14140 14141 14142 14143 14144 14145 14146
14148 14149 14151 14152 14153 14154 14157 14158 14159 14167# 14169 14170 14171 14172
14173 14174 14175 14176 14177 14178 14179 14180 14181 14183 14184 14185 14186 14187
14189 14191 14193 14195 14198 14200 14201 14202 14210# 14212 14213 14214 14215 14216
14217 14218 14219 14220 14221 14222 14223 14224 14226 14227 14228 14229 14230 14231
14232 14233 14235 14236 14238 14239 14240 14241 14244 14245 14246 14254# 14256 14257
14258 14259 14260 14261 14262 14263 14264 14265 14266 14267 14268 14270 14271 14272
14273 14274 14275 14276 14278 14279 14280 14282 14283 14284 14285 14288 14289 14290
14298# 14300 14301 14302 14303 14304 14305 14306 14307 14308 14309 14310 14311 14312
14314 14315 14316 14317 14318 14320 14321 14322 14323 14326 14327 14328 14336# 14338
14339 14340 14341 14342 14343 14344 14345 14346 14347 14348 14349 14350 14352 14353
14354 14355 14357 14358 14361 14364 14366 14367 14368 14376# 14378 14379 14380 14381
14382 14383 14384 14385 14386 14387 14388 14389 14390 14392 14393 14394 14395 14396
14398 14400 14401 14402 14403 14406 14407 14408 14416# 14418 14419 14420 14421 14422
14423 14424 14425 14426 14427 14428 14429 14430 14432 14433 14434 14435 14437 14440
14443 14445 14446 14447 14455# 14457 14458 14459 14460 14461 14462 14463 14464 14465
14466 14467 14468 14469 14471 14472 14473 14474 14475 14476 14478 14479 14480 14481
14484 14485 14486 14494# 14496 14497 14498 14499 14500 14501 14502 14503 14504 14505
14506 14507 14508 14510 14511 14512 14513 14514 14517 14518 14520 14521 14522 14523
14526 14527 14528 14536# 14538 14539 14540 14541 14542 14543 14544 14545 14546 14547
14548 14549 14550 14552 14553 14554 14555 14556 14558 14559 14560 14561 14564 14565
14566 14574# 14576 14577 14578 14579 14580 14581 14582 14583 14584 14585 14586 14587
14588 14590 14591 14592 14593 14594 14596 14597 14599 14602 14604 14605 14606 14614#
14616 14617 14618 14619 14620 14621 14622 14623 14624 14625 14626 14627 14628 14630
14631 14632 14633 14634 14635 14637 14638 14640 14641 14642 14643 14646 14647 14648
14656# 14658 14659 14660 14661 14662 14663 14664 14665 14666 14667 14668 14669 14670
14672 14673 14674 14675 14676 14678 14681 14684 14686 14687 14688 14696# 14698 14699
14700 14701 14702 14703 14704 14705 14706 14707 14708 14709 14710 14712 14713 14714
14715 14716 14717 14718 14719 14721 14722 14723 14724 14727 14728 14729 14737# 14739
14740 14741 14742 14743 14744 14745 14746 14747 14748 14749 14750 14751 14753 14754
14755 14756 14757 14758 14759 14761 14762 14764 14765 14766 14767 14770 14771 14772
14780# 14782 14783 14784 14785 14786 14787 14788 14789 14790 14791 14792 14793 14794
14796 14797 14798 14799 14800 14802 14803 14804 14805 14808 14809 14810 14818# 14820
14821 14822 14823 14824 14825 14826 14827 14828 14829 14830 14831 14832 14834 14835
14836 14837 14839 14842 14845 14847 14848 14849 14855# 14857 14858 14859 14860 14861
14862 14863 14864 14865 14866 14867 14868 14869 14871 14872 14873 14874 14875 14877
14878 14879 14880 14883 14884 14885 14893# 14895 14896 14897 14898 14899 14900 14901
14902 14903 14904 14905 14906 14907 14909 14910 14911 14912 14914 14917 14920 14922
14923 14924 14932# 14934 14935 14936 14937 14938 14939 14940 14941 14942 14943 14944
14945 14946 14948 14949 14950 14951 14952 14953 14955 14956 14957 14958 14961 14962 SEQ 0567
14963 14971# 14973 14974 14975 14976 14977 14978 14979 14980 14981 14982 14983 14984
14985 14987 14988 14989 14990 14991 14993 14995 14996 14997 14998 15001 15002 15003
15011# 15013 15014 15015 15016 15017 15018 15019 15020 15021 15022 15023 15024 15025
15027 15028 15029 15030 15031 15033 15034 15035 15036 15039 15040 15041 15049# 15051
15052 15053 15054 15055 15056 15057 15058 15059 15060 15061 15062 15063 15065 15066
15067 15068 15069 15071 15074 15077 15078 15080 15082 15084 15085 15086 15094# 15096
15097 15098 15099 15100 15101 15102 15103 15104 15105 15106 15107 15108 15110 15111
15112 15113 15114 15115 15119 15120 15122 15123 15124 15125 15128 15129 15130 15138#
15140 15141 15142 15143 15144 15145 15146 15147 15148 15149 15150 15151 15152 15154
15155 15156 15157 15158 15160 15162 15165 15167 15168 15169 15177# 15179 15180 15181
15182 15183 15184 15185 15186 15187 15188 15189 15190 15191 15193 15194 15195 15196
15197 15198 15199 15200 15202 15203 15204 15205 15207 15208 15209 15210 15213 15214
15215 15224# 15226 15227 15228 15229 15230 15231 15232 15233 15234 15235 15236 15237
15238 15241 15242 15243 15244 15249 15250 15251 15253 15254 15255 15256 15258 15259
15260 15261 15264 15265 15266 15276# 15278 15279 15280 15281 15282 15283 15284 15285
15286 15287 15288 15289 15290 15292 15293 15294 15295 15296 15298 15299 15301 15304
15305 15306 15314# 15316 15317 15318 15319 15320 15321 15322 15323 15324 15325 15326
15327 15328 15330 15331 15332 15333 15334 15337 15339 15340 15342 15345 15346 15347
15355# 15357 15358 15359 15360 15361 15362 15363 15364 15365 15366 15367 15368 15369
15371 15372 15373 15374 15375 15378 15380 15381 15383 15386 15387 15388 15396# 15398
15399 15400 15401 15402 15403 15404 15405 15406 15407 15408 15409 15410 15412 15413
15414 15415 15416 15417 15419 15420 15422 15425 15426 15427 15435# 15437 15438 15439
15440 15441 15442 15443 15444 15445 15446 15447 15448 15449 15451 15452 15453 15454
15455 15458 15460 15461 15463 15466 15467 15468 15476# 15478 15479 15480 15481 15482
15483 15484 15485 15486 15487 15488 15489 15490 15492 15493 15494 15495 15496 15498
15499 15504 15505 15506 15514# 15516 15517 15518 15519 15520 15521 15522 15523 15524
15525 15526 15527 15528 15530 15531 15532 15533 15534 15537 15539 15540 15542 15545
15546 15547 15555# 15557 15558 15559 15560 15561 15562 15563 15564 15565 15566 15567
15568 15569 15571 15572 15573 15574 15575 15578 15579 15580 15581 15583 15586 15587
15588 15596# 15598 15599 15600 15601 15602 15603 15604 15605 15606 15607 15608 15609
15610 15612 15613 15614 15615 15616 15619 15621 15622 15624 15627 15628 15629 15637#
15639 15640 15641 15642 15643 15644 15645 15646 15647 15648 15649 15650 15651 15653
15654 15655 15656 15657 15660 15662 15663 15665 15668 15669 15670 15678# 15680 15681
15682 15683 15684 15685 15686 15687 15688 15689 15690 15691 15692 15694 15695 15696
15697 15698 15700 15701 15702 15704 15707 15708 15709 15717# 15719 15720 15721 15722
15723 15724 15725 15726 15727 15728 15729 15730 15731 15733 15734 15735 15736 15737
15739 15741 15742 15744 15747 15748 15749 15757# 15759 15760 15761 15762 15763 15764
15765 15766 15767 15768 15769 15770 15771 15773 15774 15775 15776 15777 15781 15782
15784 15787 15788 15789 15797# 15799 15800 15801 15802 15803 15804 15805 15806 15807
15808 15809 15810 15811 15813 15814 15815 15816 15817 15820 15822 15823 15825 15828
15829 15830 15838# 15840 15841 15842 15843 15844 15845 15846 15847 15848 15849 15850
15851 15852 15854 15855 15856 15857 15858 15861 15863 15864 15866 15869 15870 15871
15879# 15881 15882 15883 15884 15885 15886 15887 15888 15889 15890 15891 15892 15893
15895 15896 15897 15898 15899 15901 15902 15904 15907 15908 15909 15917# 15919 15920
15921 15922 15923 15924 15925 15926 15927 15928 15929 15930 15931 15933 15934 15935
15936 15937 15938 15939 15942 15943 15946 15947 15948 15956# 15958 15959 15960 15961
15962 15963 15964 15965 15966 15967 15968 15969 15970 15972 15973 15974 15975 15977
15978 15979 15980 15981 15984 15985 15986 15994# 15996 15997 15998 15999 16000 16001
16002 16003 16004 16005 16006 16007 16008 16010 16011 16012 16013 16015 16016 16017
16020 16021 16024 16025 16026 16038# 16040 16041 16042 16043 16044 16045 16046 16047
16048 16049 16050 16051 16052 16054 16055 16056 16057 16060 16061 16063 16066 16067
16068 16076# 16078 16079 16080 16081 16082 16083 16084 16085 16086 16087 16088 16089
16090 16092 16093 16094 16095 16097 16098 16099 16102 16103 16106 16107 16108 16116# SEQ 0568
16118 16119 16120 16121 16122 16123 16124 16125 16126 16127 16128 16129 16130 16132
16133 16134 16135 16137 16138 16139 16142 16143 16146 16147 16148 16156# 16158 16159
16160 16161 16162 16163 16164 16165 16166 16167 16168 16169 16170 16172 16173 16174
16175 16177 16178 16179 16182 16183 16186 16187 16188 16197# 16199 16200 16201 16202
16203 16204 16205 16206 16207 16208 16209 16210 16211 16213 16214 16215 16216 16219
16220 16222 16225 16226 16227 16235# 16237 16238 16239 16240 16241 16242 16243 16244
16245 16246 16247 16248 16249 16251 16252 16253 16254 16256 16257 16259 16260 16261
16264 16265 16266 16274# 16276 16277 16278 16279 16280 16281 16282 16283 16284 16285
16286 16287 16288 16290 16291 16292 16293 16295 16296 16298 16299 16300 16303 16304
16305 16313# 16315 16316 16317 16318 16319 16320 16321 16322 16323 16324 16325 16326
16327 16329 16330 16331 16332 16334 16335 16337 16338 16339 16342 16343 16344 16353#
16355 16356 16357 16358 16359 16360 16361 16362 16363 16364 16365 16366 16367 16369
16370 16371 16372 16374 16375 16376 16377 16379 16382 16383 16384 16392# 16394 16395
16396 16397 16398 16399 16400 16401 16402 16403 16404 16405 16406 16408 16409 16410
16411 16412 16413 16414 16418 16419 16422 16423 16424 16432# 16434 16435 16436 16437
16438 16439 16440 16441 16442 16443 16444 16445 16446 16448 16449 16450 16451 16453
16454 16455 16457 16458 16461 16462 16463 16471# 16473 16474 16475 16476 16477 16478
16479 16480 16481 16482 16483 16484 16485 16487 16488 16489 16490 16492 16493 16494
16498 16499 16502 16503 16504 16513# 16515 16516 16517 16518 16519 16520 16521 16522
16523 16524 16525 16526 16527 16529 16530 16531 16532 16534 16536 16539 16540 16542
16545 16546 16547 16555# 16557 16558 16559 16560 16561 16562 16563 16564 16565 16566
16567 16568 16569 16571 16572 16573 16574 16575 16576 16579 16580 16583 16584 16585
16593# 16595 16596 16597 16598 16599 16600 16601 16602 16603 16604 16605 16606 16607
16609 16610 16611 16612 16614 16615 16616 16617 16620 16621 16622 16630# 16632 16633
16634 16635 16636 16637 16638 16639 16640 16641 16642 16643 16644 16646 16647 16648
16649 16651 16652 16655 16656 16659 16660 16661 16670# 16672 16673 16674 16675 16676
16677 16678 16679 16680 16681 16682 16683 16684 16686 16687 16688 16689 16691 16693
16694 16696 16699 16700 16701 16709# 16711 16712 16713 16714 16715 16716 16717 16718
16719 16720 16721 16722 16723 16725 16726 16727 16728 16730 16731 16733 16734 16737
16738 16739 16747# 16749 16750 16751 16752 16753 16754 16755 16756 16757 16758 16759
16760 16761 16763 16764 16765 16766 16768 16769 16771 16772 16775 16776 16777 16785#
16787 16788 16789 16790 16791 16792 16793 16794 16795 16796 16797 16798 16799 16801
16802 16803 16804 16806 16807 16809 16810 16813 16814 16815 16824# 16826 16827 16828
16829 16830 16831 16832 16833 16834 16835 16836 16837 16838 16840 16841 16842 16843
16845 16846 16847 16849 16852 16853 16854 16862# 16864 16865 16866 16867 16868 16869
16870 16871 16872 16873 16874 16875 16876 16878 16879 16880 16881 16882 16883 16886
16887 16890 16891 16892 16902# 16904 16905 16906 16907 16908 16909 16910 16911 16912
16913 16914 16915 16916 16918 16919 16920 16921 16923 16924 16927 16928 16931 16932
16933 16941# 16943 16944 16945 16946 16947 16948 16949 16950 16951 16952 16953 16954
16955 16957 16958 16959 16960 16962 16963 16966 16967 16970 16971 16972 16981# 16983
16984 16985 16986 16987 16988 16989 16990 16991 16992 16993 16994 16995 16997 16998
16999 17000 17002 17004 17005 17007 17010 17011 17012 17020# 17022 17023 17024 17025
17026 17027 17028 17029 17030 17031 17032 17033 17034 17036 17037 17038 17039 17040
17041 17044 17045 17048 17049 17050 17058# 17060 17061 17062 17063 17064 17065 17066
17067 17068 17069 17070 17071 17072 17074 17075 17076 17077 17079 17080 17083 17084
17087 17088 17089 17097# 17099 17100 17101 17102 17103 17104 17105 17106 17107 17108
17109 17110 17111 17113 17114 17115 17116 17118 17119 17122 17123 17126 17127 17128
17137# 17139 17140 17141 17142 17143 17144 17145 17146 17147 17148 17149 17150 17151
17153 17154 17155 17156 17158 17160 17161 17163 17166 17167 17168 17176# 17178 17179
17180 17181 17182 17183 17184 17185 17186 17187 17188 17189 17190 17192 17193 17194
17195 17197 17198 17201 17202 17205 17206 17207 17215# 17217 17218 17219 17220 17221
17222 17223 17224 17225 17226 17227 17228 17229 17231 17232 17233 17234 17236 17237
17240 17241 17244 17245 17246 17254# 17256 17257 17258 17259 17260 17261 17262 17263 SEQ 0569
17264 17265 17266 17267 17268 17270 17271 17272 17273 17275 17276 17279 17280 17283
17284 17285 17293# 17295 17296 17297 17298 17299 17300 17301 17302 17303 17304 17305
17306 17307 17309 17310 17311 17312 17314 17316 17317 17319 17322 17323 17324 17332#
17334 17335 17336 17337 17338 17339 17340 17341 17342 17343 17344 17345 17346 17348
17349 17350 17351 17353 17354 17359 17360 17363 17364 17365 17373# 17375 17376 17377
17378 17379 17380 17381 17382 17383 17384 17385 17386 17387 17389 17390 17391 17392
17394 17395 17396 17397 17400 17401 17402 17410# 17412 17413 17414 17415 17416 17417
17418 17419 17420 17421 17422 17423 17424 17426 17427 17428 17429 17431 17432 17437
17438 17441 17442 17443 17451# 17453 17454 17455 17456 17457 17458 17459 17460 17461
17462 17463 17464 17465 17467 17468 17469 17470 17472 17474 17476 17477 17479 17482
17483 17484 17492# 17494 17495 17496 17497 17498 17499 17500 17501 17502 17503 17504
17505 17506 17508 17509 17510 17511 17513 17514 17519 17520 17523 17524 17525 17533#
17535 17536 17537 17538 17539 17540 17541 17542 17543 17544 17545 17546 17547 17549
17550 17551 17552 17554 17555 17560 17561 17564 17565 17566 17574# 17576 17577 17578
17579 17580 17581 17582 17583 17584 17585 17586 17587 17588 17590 17591 17592 17593
17595 17596 17601 17602 17605 17606 17607 17615# 17617 17618 17619 17620 17621 17622
17623 17624 17625 17626 17627 17628 17629 17631 17632 17633 17634 17636 17638 17640
17641 17643 17646 17647 17648 17656# 17658 17659 17660 17661 17662 17663 17664 17665
17666 17667 17668 17669 17670 17672 17673 17674 17675 17677 17678 17680 17681 17684
17685 17686 17694# 17696 17697 17698 17699 17700 17701 17702 17703 17704 17705 17706
17707 17708 17710 17711 17712 17713 17715 17716 17718 17719 17722 17723 17724 17732#
17734 17735 17736 17737 17738 17739 17740 17741 17742 17743 17744 17745 17746 17748
17749 17750 17751 17753 17754 17756 17757 17760 17761 17762 17770# 17772 17773 17774
17775 17776 17777 17778 17779 17780 17781 17782 17783 17784 17786 17787 17788 17789
17793 17794 17796 17799 17800 17801 17809# 17811 17812 17813 17814 17815 17816 17817
17818 17819 17820 17821 17822 17823 17825 17826 17827 17828 17829 17830 17833 17834
17837 17838 17839 17847# 17849 17850 17851 17852 17853 17854 17855 17856 17857 17858
17859 17860 17861 17863 17864 17865 17866 17868 17869 17870 17871 17874 17875 17876
17884# 17886 17887 17888 17889 17890 17891 17892 17893 17894 17895 17896 17897 17898
17900 17901 17902 17903 17905 17906 17909 17910 17913 17914 17915 17923# 17925 17926
17927 17928 17929 17930 17931 17932 17933 17934 17935 17936 17937 17939 17940 17941
17942 17944 17946 17947 17949 17952 17953 17954 17962# 17964 17965 17966 17967 17968
17969 17970 17971 17972 17973 17974 17975 17976 17978 17979 17980 17981 17982 17983
17986 17987 17990 17991 17992 18000# 18002 18003 18004 18005 18006 18007 18008 18009
18010 18011 18012 18013 18014 18016 18017 18018 18019 18021 18022 18024 18025 18028
18029 18030 18038# 18040 18041 18042 18043 18044 18045 18046 18047 18048 18049 18050
18051 18052 18054 18055 18056 18057 18059 18060 18063 18064 18067 18068 18069 18077#
18079 18080 18081 18082 18083 18084 18085 18086 18087 18088 18089 18090 18091 18093
18094 18095 18096 18098 18100 18101 18103 18106 18107 18108 18116# 18118 18119 18120
18121 18122 18123 18124 18125 18126 18127 18128 18129 18130 18132 18133 18134 18135
18137 18138 18143 18144 18147 18148 18149 18157# 18159 18160 18161 18162 18163 18164
18165 18166 18167 18168 18169 18170 18171 18173 18174 18175 18176 18178 18179 18184
18185 18188 18189 18190 18198# 18200 18201 18202 18203 18204 18205 18206 18207 18208
18209 18210 18211 18212 18214 18215 18216 18217 18219 18220 18225 18226 18229 18230
18231 18239# 18241 18242 18243 18244 18245 18246 18247 18248 18249 18250 18251 18252
18253 18255 18256 18257 18258 18260 18262 18264 18265 18267 18270 18271 18272 18280#
18282 18283 18284 18285 18286 18287 18288 18289 18290 18291 18292 18293 18294 18296
18297 18298 18299 18301 18302 18307 18308 18311 18312 18313 18321# 18323 18324 18325
18326 18327 18328 18329 18330 18331 18332 18333 18334 18335 18337 18338 18339 18340
18342 18343 18344 18345 18348 18349 18350 18358# 18360 18361 18362 18363 18364 18365
18366 18367 18368 18369 18370 18371 18372 18374 18375 18376 18377 18379 18380 18385
18386 18389 18390 18391 18399# 18401 18402 18403 18404 18405 18406 18407 18408 18409
18410 18411 18412 18413 18415 18416 18417 18418 18420 18422 18424 18425 18427 18430 SEQ 0570
18431 18432 18455# 18457 18458 18459 18460 18461 18462 18463 18464 18465 18466 18467
18468 18469 18471 18472 18473 18474 18475 18479 18490 18491 18494 18495 18496 18502#
18504 18505 18506 18507 18508 18509 18510 18511 18512 18513 18514 18515 18516 18518
18519 18520 18521 18523 18527 18538 18539 18542 18543 18544 18552# 18554 18555 18556
18557 18558 18559 18560 18561 18562 18563 18564 18565 18566 18568 18569 18570 18571
18573 18577 18588 18589 18592 18593 18594 18600# 18602 18603 18604 18605 18606 18607
18608 18609 18610 18611 18612 18613 18614 18616 18617 18618 18619 18620 18625 18636
18637 18639 18642 18643 18644 18652# 18654 18655 18656 18657 18658 18659 18660 18661
18662 18663 18664 18665 18666 18668 18669 18670 18671 18672 18676 18687 18688 18691
18692 18693 18701# 18703 18704 18705 18706 18707 18708 18709 18710 18711 18712 18713
18714 18715 18717 18718 18719 18720 18721 18726 18737 18741 18742 18743 18751# 18753
18754 18755 18756 18757 18758 18759 18760 18761 18762 18763 18764 18765 18767 18768
18769 18770 18772 18776 18787 18788 18791 18792 18793 18799# 18801 18802 18803 18804
18805 18806 18807 18808 18809 18810 18811 18812 18813 18815 18816 18817 18818 18819
18824 18835 18836 18838 18841 18842 18843 18851# 18853 18854 18855 18856 18857 18858
18859 18860 18861 18862 18863 18864 18865 18867 18868 18869 18870 18871 18875 18876
18879 18880 18881 18891# 18893 18894 18895 18896 18897 18898 18899 18900 18901 18902
18903 18904 18905 18907 18908 18909 18910 18911 18915 18916 18919 18920 18921 18932#
18934 18935 18936 18937 18938 18939 18940 18941 18942 18943 18944 18945 18946 18948
18949 18950 18951 18952 18953 18954 18956 18957 18958 18959 18962 18963 18964 18975#
18977 18978 18979 18980 18981 18982 18983 18984 18985 18986 18987 18988 18989 18991
18992 18993 18994 18995 18996 18997 18998 19000 19001 19002 19003 19006 19007 19008
19019# 19021 19022 19023 19024 19025 19026 19027 19028 19029 19030 19031 19032 19033
19034 19035 19036 19037 19038 19039 19040 19046# 19048 19049 19050 19051 19052 19053
19054 19055 19056 19057 19058 19059 19060 19061 19062 19063 19064 19065 19066 19070#
19077 19078 19079 19080 19081 19082 19187# 19188 19189 19190 19191 19205 19219# 19221
19222 19223 19224 19225 19226 19227 19228 19233 19234 19238 19239 19240 19241 19242
19243 19247 19256# 19258 19259 19260 19261 19262 19263 19264 19265 19270 19271 19275
19276 19277 19278 19279 19283 19293# 19295 19296 19297 19298 19299 19300 19301 19302
19307 19308 19312 19313 19314 19315 19316 19317 19321 19330# 19332 19333 19334 19335
19336 19337 19338 19339 19344 19345 19350 19351 19352 19353 19354 19358 19367# 19369
19370 19371 19372 19373 19374 19375 19376 19381 19382 19387 19388 19389 19390 19391
19395 19404# 19406 19407 19408 19409 19410 19411 19412 19413 19418 19419 19424 19425
19426 19427 19428 19429 19433 19442# 19444 19445 19446 19447 19448 19449 19450 19451
19456 19457 19462 19463 19464 19465 19466 19470 19479# 19481 19482 19483 19484 19485
19486 19487 19488 19493 19494 19499 19500 19501 19502 19503 19507 19516# 19518 19519
19520 19521 19522 19523 19524 19525 19530 19531 19536 19537 19538 19539 19540 19544
19553# 19555 19556 19557 19558 19559 19560 19561 19562 19567 19568 19573 19574 19575
19576 19580 19589# 19591 19592 19593 19594 19595 19596 19597 19598 19603 19604 19610
19611 19618 19619 19620 19621 19625 19634# 19636 19637 19638 19639 19640 19641 19642
19643 19648 19649 19654 19656 19657 19661 19663 19664 19668 19677# 19679 19680 19681
19682 19683 19684 19685 19686 19691 19692 19697 19699 19700 19704 19706 19707 19711
19720# 19722 19723 19724 19725 19726 19727 19728 19729 19734 19735 19739 19740 19742
19744 19745 19749 19750 19751 19753 19754 19758 19767# 19769 19770 19771 19772 19773
19774 19775 19776 19781 19782 19786 19787 19789 19791 19792 19796 19797 19799 19801
19802 19806 19815# 19817 19818 19819 19820 19821 19822 19823 19824 19829 19830 19834
19836 19840 19841 19845 19848 19852 19853 19857 19866# 19868 19869 19870 19871 19872
19873 19874 19875 19880 19881 19885 19887 19888 19892 19894 19897 19898 19901 19902
19906 19908 19911 19920# 19922 19923 19924 19925 19926 19927 19928 19929 19934 19935
19939 19940 19941 19943 19944 19949 19952 19954 19963# 19965 19966 19967 19968 19969
19970 19971 19972 19977 19978 19982 19983 19984 19986 19987 19992 19995 19997 20006#
20008 20009 20010 20011 20012 20013 20014 20015 20020 20021 20025 20026 20027 20029
20030 20035 20038 20040 20049# 20051 20052 20053 20054 20055 20056 20057 20058 20063 SEQ 0571
20064 20068 20069 20070 20072 20073 20078 20081 20083 20091# 20093 20094 20095 20096
20097 20098 20099 20100 20105 20106 20110 20111 20112 20117 20118 20123 20124 20128
20129 20133 20134 20138 20147# 20149 20150 20151 20152 20153 20154 20155 20156 20161
20162 20166 20167 20168 20169 20171 20173 20174 20175 20176 20178 20179 20180 20181
20183 20192# 20194 20195 20196 20197 20198 20199 20200 20201 20206 20207 20211 20213
20214 20215 20216 20221 20222 20226 20235# 20237 20238 20239 20240 20241 20242 20243
20244 20249 20250 20254 20256 20262 20263 20266 20269 20282# 20284 20285 20286 20287
20288 20289 20290 20291 20292 20293 20294 20295 20296 20297 20299 20300 20301 20311
20316 20326# 20328 20329 20330 20331 20332 20333 20334 20335 20336 20337 20338 20339
20340 20341 20342 20343 20344 20345 20352 20353 20354 20355 20357 20361 20370# 20372
20373 20374 20375 20376 20377 20378 20379 20380 20381 20382 20383 20384 20385 20387
20388 20389 20393 20394 20395 20400 20405 20416# 20418 20419 20420 20421 20422 20423
20424 20425 20426 20427 20428 20429 20430 20431 20433 20434 20435 20444 20446 20448
20452 20457 20467# 20469 20470 20471 20472 20473 20474 20475 20476 20477 20478 20479
20480 20481 20482 20484 20485 20486 20491 20492 20493 20494 20498 20499 20504 20509
20521# 20523 20524 20525 20526 20527 20528 20529 20530 20531 20532 20533 20534 20535
20536 20538 20539 20540 20545 20546 20547 20548 20553 20559 20564 20574# 20576 20577
20578 20579 20580 20581 20582 20583 20584 20585 20586 20587 20588 20589 20591 20592
20593 20596 20597 20598 20599 20604 20608 20619# 20621 20622 20623 20624 20625 20626
20627 20628 20629 20630 20631 20632 20633 20634 20635 20636 20637 20638 20643 20644
20645 20646 20647 20648 20649 20651 20653 20658 20669# 20671 20672 20673 20674 20675
20676 20677 20678 20679 20680 20681 20682 20683 20699 20700 20706# 20708 20709 20710
20711 20712 20713 20714 20715 20716 20717 20718 20719 20720 20733 20734 20737 20738
20862# 20864 20865 20866 20867 20868 20869 20870 20871 20872 20873 20874 20875 20876
20878 20879 20880 20881 20882 20884 20885 20887 20888 20889 20898# 20900 20901 20902
20903 20904 20905 20906 20907 20908 20909 20910 20911 20912 20914 20915 20916 20917
20918 20919 20921 20922 20924 20925 20927 20928 20929 20935# 20937 20938 20939 20940
20941 20942 20943 20944 20945 20946 20947 20948 20949 20951 20952 20953 20954 20956
20957 20958 20960 20961 20962 20969# 20971 20972 20973 20974 20975 20976 20977 20978
20979 20980 20981 20982 20983 20985 20986 20987 20988 20989 20990 20991 20994 20995
20998 20999 21001 21002 21003 21023# 21029 21030 21031 21032 21033 21034 21035 21036
21037 21038 21039 21040 21041 21043 21044 21045 21046 21047 21048 21049 21051 21052
21053 21054 21059 21066 21069 21070 21073 21076 21077 21078 21079 21080 21095 21096
21097 21098 21104 21105 21106 21118# 21123 21124 21125 21126 21127 21128 21129 21130
21131 21132 21133 21134 21135 21137 21138 21139 21140 21141 21142 21143 21144 21145
21146 21148 21153 21154 21156 21157 21158 21159 21160 21166 21167 21168 21174 21175
21176 21183# 21185 21186 21187 21188 21189 21190 21191 21192 21193 21194 21195 21196
21197 21198 21200 21201 21202 21204 21207 21208 21215 21216 21217 21218 21220 21226#
21228 21229 21230 21231 21232 21233 21234 21235 21236 21237 21238 21239 21240 21241
21243 21244 21245 21247 21249 21250 21256 21258 21259 21261
AC1 805# 904# 1012# 1040 1041 1042 1046# 1048 1049 1050 1054# 1056 1057 1058
1062# 1064 1065 1066 1070# 1072 1073 1074 1078# 1080 1081 1082 1086# 1088
1089 1090 1094# 1096 1097 1098 1102# 1116# 1147 1151 1152 1156# 1158 1162
1163 1167# 1169 1173 1174 1178# 1180 1184 1185 1189# 1191 1195 1196 1200#
1202 1206 1207 1211# 1213 1217 1218 1222# 1224 1228 1229 1233# 1248# 1266
1267 1270 1300# 1337# 1380# 1407 1408 1409 1410 1411 1413# 1415 1416 1417
1418 1419 1421# 1423 1424 1425 1426 1427 1429# 1431 1432 1433 1434 1435
1437# 1473# 1513# 1553# 1600# 1696# 1735# 1778# 1817# 1857# 1882 1883 1884 1886#
1888 1889 1890 1892# 1905# 1923 1924 1939# 1982# 2023# 2063# 2107# 2149# 2167
2168 2171 2173 2174 2175 2176 2190# 2208 2209 2213 2214 2215 2231# 2249
2251 2253 2254 2256 2257 2258 2274# 2292 2295 2297 2298 2299 2315# 2334
2336 2338 2340 2341 2342 2358# 2376 2377 2379 2380 2381 2398# 2416 2418
2419 2421 2423 2424 2425 2442# 2461 2463 2465 2466 2467 2483# 2502 2503 SEQ 0572
2506 2508 2509 2510 2526# 2544 2545 2548 2549 2550 2566# 2584 2585 2589
2590 2591 2592 2593 2594 2595 2596 2597 2598 2613# 2631 2632 2633 2634
2635 2649# 2667 2668 2670 2671 2672 2673 2674 2686# 2704 2705 2706 2707
2721# 2739 2740 2744 2745 2746 2747 2748 2749 2750 2751 2752 2753 2767#
2786 2787 2790 2804# 2822 2834 2848# 2866 2878 2893# 2911 2919 2933# 2951
2959 2974# 3005 3010 3015# 3018 3023 3028# 3031 3036 3041# 3044 3049 3054#
3057 3062 3067# 3070 3075 3080# 3083 3088 3093# 3096 3101 3106# 3109 3114
3119# 3122 3127 3132# 3147# 3178 3183 3188# 3191 3196 3201# 3204 3209 3214#
3217 3222 3227# 3230 3235 3240# 3243 3248 3253# 3256 3261 3266# 3269 3274
3279# 3282 3287 3292# 3295 3300 3305# 3321# 3343 3349 3350 3365# 3405 3412
3413 3415# 3421 3428 3429 3431# 3437 3444 3445 3447# 3453 3460 3461 3463#
3469 3476 3477 3479# 3485 3492 3493 3495# 3501 3508 3509 3511# 3517 3524
3525 3527# 3533 3540 3541 3543# 3549 3556 3557 3559# 3574# 3610# 3648# 3669
3670 3671 3672 3673 3674 3677 3678 3690# 3711 3712 3713 3714 3715 3716
3717 3718 3731# 3771# 3803# 3824 3825 3826 3827 3828 3829 3842# 3884# 3905
3906 3907 3918# 3936 3941 3942 3953# 3971 3977 3989# 4035# 4064# 4091# 4123#
4161# 4179 4180 4195# 4240# 4259 4260 4261 4274# 4293 4294 4308# 4326 4327
4328 4342# 4374# 4392 4394 4395 4408# 4426 4427 4429 4430 4431 4444# 4462
4463 4464 4479# 4497 4498 4499 4501 4514# 4532 4533 4534 4535 4550# 4568
4571 4572 4573 4587# 4605 4607 4608 4621# 4639 4640 4654# 4672 4674 4687#
4706 4707 4708 4723# 4741 4742 4743 4758# 4790# 4808 4810 4811 4824# 4843
4844 4846 4860# 4878 4879 4880 4896# 4914 4916 4917 4919 4933# 4951 4952
4953 4969# 4989 4990 4991 4993 5005# 5045# 5065 5066 5067 5069 5083# 5102
5106 5107 5108 5109 5110 5111 5127# 5146 5150 5151 5152 5153 5154 5155
5156 5173# 5217# 5236 5237 5238 5239 5240 5242 5256# 5274 5276 5277 5278
5290# 5309 5315 5318 5331# 5350 5352 5353 5354 5356 5357 5359 5372# 5391
5395 5396 5397 5398 5399 5400 5401 5402 5414# 5432 5433 5436 5439 5451#
5469 5470 5472 5473 5474 5475 5488# 5506 5507 5510 5513 5525# 5544 5545
5547 5548 5549 5550 5563# 5582 5583 5586 5589 5601# 5620 5621 5624 5627
5639# 5657 5658 5661 5664 5676# 5694 5695 5698 5701 5702 5703 5715# 5753#
5771 5772 5775 5777 5779 5782 5794# 5807 5813 5814 5816 5819 5822 5835#
5848 5854 5855 5858 5859 5861 5862 5863 5866 5879# 5892 5898 5899 5900
5901 5902 5904 5905 5906 5907 5922# 5935 5941 5942 5943 5944 5945 5947
5948 5949 5950 5952 5964# 5982 5983 5985 5987 5990 6002# 6038# 6056 6058
6060 6062 6064 6067 6080# 6093 6099 6100 6102 6105 6108 6121# 6134 6140
6141 6144 6145 6148 6150 6152 6165# 6178 6184 6185 6186 6187 6190 6191
6192 6193 6195 6196 6197 6199 6212# 6225 6231 6232 6233 6234 6235 6237
6238 6239 6240 6242 6254# 6272 6273 6275 6277 6279 6291# 6309 6310 6313
6317 6329# 6347 6348 6349 6350 6363# 6381 6382 6385 6388 6400# 6419 6421
6422 6435# 6456 6457 6460 6475# 6494 6495 6496 6509# 6527 6528 6529 6530
6531 6546# 6564 6565 6566 6579# 6598 6600 6601 6602 6619# 6655# 6673 6674
6675 6676 6692# 6705 6711 6712 6714 6717 6720 6721 6723 6725 6740# 6753
6759 6760 6762 6765 6768 6769 6771 6773 6788# 6801 6807 6808 6809 6810
6812 6814 6815 6816 6817 6819 6820 6821 6822 6837# 6850 6856 6857 6858
6859 6861 6862 6863 6865 6866 6867 6868 6870 6885# 6898 6904 6905 6907
6910 6913 6927# 6940 6946 6947 6949 6952 6955 6970# 6983 6989 6990 6991
6992 6993 6995 6996 6997 6998 7015# 7028 7034 7035 7036 7037 7038 7040
7041 7042 7043 7058# 7076 7079 7080 7096# 7114 7115 7117 7131# 7150 7151
7153 7169# 7187 7188 7191 7194 7210# 7228 7229 7232 7249# 7267 7269 7270
7272 7273 7274 7275 7290# 7311 7312 7315 7332# 7351 7352 7354 7355 7356
7357 7359 7360 7361 7362 7363 7379# 7398 7399 7400 7401 7404 7407 7408
7410 7412 7427# 7446 7452 7455 7458 7472# 7490 7493 7495 7496 7497 7498
7513# 7531 7532 7535 7538 7553# 7571 7572 7575 7578 7592# 7610 7611 7614 SEQ 0573
7617 7620 7634# 7652 7653 7656 7673# 7692 7694 7696 7697 7698 7699 7701
7702 7703 7704 7705 7720# 7739 7740 7744 7761# 7780 7781 7783 7784 7785
7786 7801# 7819 7820 7821 7823 7825 7828 7842# 7861 7862 7865 7868 7882#
7900 7901 7904 7907 7921# 7939 7940 7942 7943 7944 7945 7961# 7979 7980
7983 7986 8000# 8018 8024 8027 8030 8044# 8062 8063 8066 8069 8083# 8101
8102 8104 8105 8106 8107 8122# 8141 8142 8144 8146 8149 8163# 8182 8184
8185 8186 8188 8189 8190 8191 8206# 8224 8225 8226 8228 8229 8232 8246#
8265 8266 8268 8270 8273 8287# 8305 8306 8309 8312 8326# 8344 8345 8347
8348 8350 8365# 8383 8384 8387 8390 8405# 8423 8424 8427 8430 8444# 8462
8463 8466 8469 8483# 8501 8502 8504 8505 8506 8507 8522# 8541 8542 8545
8548 8562# 8581 8582 8584 8585 8586 8587 8602# 8621 8622 8623 8626 8629
8643# 8664 8665 8668 8671 8686# 8705 8706 8707 8714 8729# 8742 8748 8749
8750 8751 8752 8753 8754 8774# 8792 8793 8794 8795 8796 8798 8816# 8829
8835 8836 8837 8838 8839 8840 8841 8843 8861# 8882 8883 8884 8888 8904#
8925 8926 8927 8931 8934 8935 8939 8953# 8973 8975 8976 8980 8983 8984
8988 9004# 9023 9026 9027 9029 9048# 9085# 9120# 9152# 9190# 9226# 9249 9253
9254 9268# 9291 9295 9296 9313# 9354# 9374 9377 9378 9382 9388 9390 9392
9395 9397 9399 9414# 9432 9433 9434 9438 9457# 9475 9476 9477 9478 9479
9480 9482 9500# 9522 9523 9524 9525 9526 9544# 9567 9568 9569 9570 9571
9589# 9607 9610 9611 9612 9613 9631# 9645 9646 9647 9648 9649 9664# 9682
9683 9687 9702# 9717 9718 9725 9726 9740# 9773# 9793 9794 9798 9813# 9834
9835 9839 9854# 9887# 9919# 9937 9940 9941 9942 9943 9961# 9978 9981 9982
9983 9984 10004# 10022 10023 10024 10025 10026 10027 10029 10047# 10062 10063 10064
10065 10066 10082# 10103 10106 10107 10108 10109 10127# 10147 10150 10151 10152 10153
10171# 10186 10187 10188 10189 10190 10206# 10221 10222 10223 10224 10225 10240# 10258
10259 10263 10278# 10296 10297 10301 10316# 10347# 10367 10374 10388# 10407 10414 10428#
10459# 10491# 10509 10510 10511 10512 10513 10530# 10567# 10580 10586 10587 10588 10589
10590 10594 10609# 10628 10629 10632 10633 10634 10638 10653# 10672 10673 10676 10677
10678 10682 10697# 10716 10717 10720 10721 10722 10723 10724 10741# 10777# 10813# 10831
10835 10836 10839 10853# 10871 10875 10876 10879 10893# 10911 10914 10915 10918 10933#
10947 10950 10952 10954 10955 10956 10957 10958 10975# 10989 10992 10995 10997 10998
11001 11016# 11034 11035 11037 11038 11041 11053# 11071 11072 11074 11075 11078 11091#
11105 11108 11112 11113 11116 11131# 11145 11148 11150 11151 11152 11153 11154 11155
11168# 11188 11189 11190 11192 11207# 11227 11228 11229 11230 11231 11246# 11266 11268
11283# 11303 11304 11305 11307 11322# 11358# 11378 11379 11380 11382 11397# 11417 11418
11419 11421 11436# 11456 11457 11458 11460 11475# 11495 11496 11497 11499 11514# 11534
11536 11551# 11571 11572 11573 11574 11576 11591# 11611 11612 11614 11629# 11649 11650
11651 11653 11668# 11688 11689 11690 11691 11693 11708# 11744# 11782# 11800 11801 11803
11804 11805 11806 11821# 11839 11840 11843 11846 11860# 11878 11879 11882 11885 11899#
11937# 11955 11956 11958 11959 11960 11961 11976# 12016# 12035 12036 12038 12039 12040
12041 12056# 12075 12076 12079 12081 12082 12096# 12114 12115 12118 12121 12135# 12153
12154 12157 12160 12174# 12192 12195 12198 12201 12215# 12233 12234 12237 12239 12241
12244 12259# 12272 12278 12279 12280 12281 12283 12286 12289 12304# 12317 12323 12324
12325 12326 12329 12330 12332 12334 12337 12352# 12365 12371 12372 12373 12374 12375
12376 12377 12379 12380 12381 12382 12398# 12411 12417 12418 12419 12420 12421 12422
12423 12425 12426 12427 12428 12430 12444# 12482# 12500 12503 12505 12506 12507 12508
12523# 12563# 12581 12582 12584 12585 12586 12587 12602# 12620 12624 12627 12630 12644#
12662 12663 12666 12669 12686# 12699 12705 12706 12707 12708 12711 12712 12714 12717
12734# 12747 12753 12754 12755 12756 12758 12761 12764 12779# 12792 12798 12799 12800
12801 12802 12805 12806 12808 12809 12810 12811 12813 12814 12815 12816 12817 12819
12834# 12847 12853 12854 12855 12856 12857 12859 12861 12862 12863 12864 12866 12884#
12920# 12938 12939 12941 12942 12943 12944 12968# 13006# 13024 13025 13027 13028 13029
13030 13045# 13063 13064 13067 13070 13084# 13102 13103 13106 13109 13123# 13161# 13181 SEQ 0574
13182 13184 13185 13186 13187 13189 13190 13191 13192 13207# 13226 13227 13250# 13269
13270 13272 13273 13274 13275 13277 13278 13279 13280 13295# 13315 13316 13319 13322
13323 13325 13327 13340# 13353 13359 13360 13361 13362 13364 13367 13370 13371 13373
13375 13389# 13427# 13445 13446 13448 13449 13450 13451 13466# 13504# 13522 13523 13525
13526 13527 13528 13543# 13561 13562 13565 13568 13582# 13600 13601 13602 13605 13608
13622# 13660# 13678 13679 13681 13682 13683 13684 13699# 13739# 13758 13759 13761 13762
13763 13764 13779# 13799 13800 13803 13806 13820# 13840 13841 13844 13847 13861# 13899#
13917 13918 13920 13921 13922 13923 13938# 13956 13957 13963 13978# 13996 13999 14001
14007# 14025 14026 14027 14029 14032 14035 14049# 14087# 14105 14106 14108 14109 14110
14111 14126# 14169# 14188 14191 14192 14194 14195 14196 14197 14212# 14232 14235 14237
14238 14239 14242 14256# 14276 14277 14279 14281 14283 14286 14300# 14338# 14356 14358
14360 14361 14362 14363 14378# 14396 14397 14403 14418# 14436 14437 14439 14440 14441
14442 14457# 14475 14476 14479 14482 14496# 14514 14515 14516 14518 14521 14524 14538#
14576# 14595 14597 14598 14599 14600 14601 14616# 14636 14637 14643 14658# 14677 14678
14680 14681 14682 14683 14698# 14718 14719 14722 14725 14739# 14759 14760 14762 14765
14768 14782# 14820# 14838 14839 14841 14842 14843 14844 14857# 14895# 14913 14914 14916
14917 14918 14919 14934# 14952 14953 14956 14959 14973# 14991 14992 14993 14996 14999
15013# 15051# 15070 15071 15073 15074 15075 15076 15078 15079 15080 15081 15096# 15115
15116 15117 15140# 15159 15160 15161 15162 15163 15164 15179# 15199 15200 15203 15206
15207 15209 15211 15226# 15239 15245 15246 15247 15248 15251 15254 15257 15258 15260
15262 15278# 15297 15298 15299 15316# 15335 15339 15340 15357# 15376 15380 15381 15398#
15418 15419 15420 15437# 15456 15460 15461 15478# 15497 15498 15499 15501 15516# 15535
15539 15540 15557# 15576 15580 15581 15598# 15617 15621 15622 15639# 15658 15662 15663
15680# 15699 15701 15702 15719# 15738 15741 15742 15759# 15778 15781 15782 15799# 15818
15822 15823 15840# 15859 15863 15864 15881# 15900 15901 15902 15919# 15939 15941 15943
15944 15958# 15979 15981 15996# 16017 16019 16021 16040# 16059 16060 16061 16078# 16099
16100 16101 16103 16118# 16139 16140 16141 16143 16158# 16179 16180 16181 16183 16199#
16218 16219 16220 16237# 16258 16259 16261 16276# 16297 16298 16300 16315# 16336 16337
16339 16355# 16373 16376 16377 16394# 16414 16415 16417 16419 16434# 16455 16456 16458
16473# 16494 16495 16497 16499 16515# 16533 16539 16540 16557# 16577 16578 16580 16595#
16613 16616 16618 16632# 16653 16654 16656 16672# 16690 16693 16694 16696 16711# 16732
16734 16749# 16770 16772 16787# 16808 16810 16826# 16844 16846 16847 16864# 16884 16885
16887 16904# 16925 16926 16928 16943# 16964 16965 16967 16983# 17001 17004 17005 17022#
17042 17043 17045 17060# 17081 17082 17084 17099# 17120 17121 17123 17139# 17157 17160
17161 17178# 17199 17200 17202 17217# 17238 17239 17241 17256# 17277 17278 17280 17295#
17313 17316 17317 17334# 17355 17356 17358 17360 17375# 17393 17396 17398 17412# 17433
17434 17436 17438 17453# 17471 17476 17477 17494# 17515 17516 17518 17520 17535# 17556
17557 17559 17561 17576# 17597 17598 17600 17602 17617# 17635 17640 17641 17658# 17679
17681 17696# 17717 17719 17734# 17755 17757 17772# 17791 17793 17794 17811# 17831 17832
17834 17849# 17867 17870 17872 17886# 17907 17908 17910 17925# 17943 17946 17947 17964#
17984 17985 17987 18002# 18023 18025 18040# 18061 18062 18064 18079# 18097 18100 18101
18118# 18139 18140 18142 18144 18159# 18180 18181 18183 18185 18200# 18221 18222 18224
18226 18241# 18259 18264 18265 18282# 18303 18304 18306 18308 18323# 18341 18344 18346
18360# 18381 18382 18384 18386 18401# 18419 18424 18425 18457# 18479 18480 18482 18485
18486 18491 18504# 18527 18528 18530 18533 18534 18539 18554# 18577 18578 18580 18583
18584 18589 18602# 18625 18626 18628 18631 18632 18639 18654# 18676 18677 18679 18682
18683 18688 18703# 18726 18727 18729 18732 18733 18738 18753# 18776 18777 18779 18782
18783 18788 18801# 18824 18825 18827 18830 18831 18838 18853# 18871 18872 18873 18874
18876 18893# 18911 18912 18913 18914 18916 18934# 18954 18955 18959 18977# 18998 18999
19003 19021# 19048# 19221# 19229 19235 19236 19238 19239 19240 19241 19242 19245 19248
19249 19258# 19266 19272 19273 19275 19276 19277 19278 19281 19284 19285 19295# 19303
19309 19310 19312 19313 19314 19315 19316 19319 19322 19323 19332# 19340 19346 19347
19350 19351 19352 19353 19356 19359 19360 19369# 19377 19383 19384 19387 19388 19389 SEQ 0575
19390 19393 19396 19397 19406# 19414 19420 19421 19424 19425 19426 19427 19428 19431
19434 19435 19444# 19452 19458 19459 19462 19463 19464 19465 19468 19471 19472 19481#
19489 19495 19496 19499 19500 19501 19502 19505 19508 19509 19518# 19526 19532 19533
19536 19537 19538 19539 19542 19545 19546 19555# 19563 19569 19570 19573 19574 19575
19578 19581 19582 19591# 19599 19605 19606 19610 19611 19613 19619 19620 19621 19623
19626 19627 19636# 19644 19650 19651 19654 19655 19656 19659 19661 19662 19663 19666
19669 19670 19679# 19687 19693 19694 19697 19698 19699 19702 19704 19705 19706 19709
19712 19713 19722# 19730 19736 19737 19742 19743 19744 19747 19751 19752 19753 19756
19759 19760 19769# 19777 19783 19784 19789 19790 19791 19794 19799 19800 19801 19804
19807 19808 19817# 19825 19831 19832 19836 19837 19840 19843 19848 19849 19852 19855
19858 19859 19868# 19876 19882 19883 19887 19890 19894 19895 19898 19901 19904 19908
19909 19912 19913 19922# 19930 19936 19937 19943 19946 19949 19950 19952 19955 19956
19965# 19973 19979 19980 19986 19989 19992 19993 19995 19998 19999 20008# 20016 20022
20023 20029 20032 20035 20036 20038 20041 20042 20051# 20059 20065 20066 20072 20075
20078 20079 20081 20084 20085 20093# 20101 20107 20108 20111 20114 20117 20120 20123
20126 20128 20131 20133 20136 20139 20140 20149# 20157 20163 20164 20166 20167 20169
20173 20174 20178 20179 20184 20185 20194# 20202 20208 20209 20215 20218 20220 20221
20222 20224 20227 20228 20237# 20245 20251 20252 20254 20255 20256 20257 20260 20262
20263 20265 20266 20267 20270 20271 20284# 20303 20305 20306 20310 20312 20313 20314
20328# 20342 20343 20347 20351 20353 20356 20358 20359 20372# 20391 20392 20394 20398
20399 20401 20402 20403 20418# 20437 20438 20445 20446 20453 20454 20455 20469# 20488
20489 20496 20498 20500 20502 20503 20505 20506 20507 20523# 20542 20543 20552 20553
20560 20561 20562 20576# 20595 20596 20598 20602 20603 20605 20606 20621# 20640 20641
20648 20651 20654 20655 20656 20671# 20686 20687 20688 20689 20690 20691 20692 20708#
20723 20724 20725 20726 20727 20728 20729 20864# 20882 20883 20900# 20921 20923 20924
20925 20937# 20955 20956 20971# 20990 20991 20992 20994 20995 20996 20997 20998 20999
21029# 21123# 21185# 21205 21207 21208 21209 21211 21212 21214 21228# 21248 21249 21250
21252 21253 21255 21257
AC2 806# 905# 1013# 1117# 1249# 1301# 1318 1319 1323 1324 1325 1328 1329 1338#
1355 1356 1360 1361 1362 1365 1366 1381# 1474# 1514# 1554# 1601# 1697# 1736#
1779# 1818# 1858# 1906# 1924 1925 1926 1940# 1983# 2024# 2064# 2108# 2150# 2191#
2209 2211 2232# 2250 2252 2275# 2293 2294 2296 2316# 2337 2338 2339 2359#
2399# 2443# 2484# 2527# 2567# 2614# 2650# 2687# 2722# 2768# 2805# 2849# 2894# 2934#
2975# 3148# 3322# 3342 3345 3366# 3404 3408 3416# 3420 3424 3432# 3436 3440
3448# 3452 3456 3464# 3468 3472 3480# 3484 3488 3496# 3500 3504 3512# 3516
3520 3528# 3532 3536 3544# 3548 3552 3560# 3575# 3611# 3649# 3691# 3732# 3772#
3804# 3843# 3885# 3902 3905 3919# 3937 3939 3940 3954# 3973 3974 3975 3990#
4036# 4065# 4092# 4124# 4162# 4196# 4241# 4258 4261 4275# 4292 4295 4309# 4343#
4375# 4393 4395 4409# 4427 4428 4431 4445# 4480# 4515# 4551# 4588# 4606 4608
4622# 4655# 4673 4675 4688# 4705 4708 4724# 4759# 4791# 4809 4811 4825# 4861#
4897# 4915 4919 4934# 4970# 4987 4992 4994 5006# 5046# 5063 5065 5068 5070
5084# 5128# 5145 5158 5174# 5191 5204 5218# 5237 5239 5241 5243 5257# 5291#
5310 5312 5314 5318 5332# 5351 5353 5355 5359 5373# 5415# 5452# 5489# 5526#
5564# 5602# 5640# 5677# 5716# 5754# 5772 5773 5774 5776 5781 5795# 5815 5821
5822 5836# 5857 5858 5860 5865 5880# 5899 5900 5907 5908 5923# 5942 5946
5947 5951 5952 5965# 6003# 6039# 6057 6058 6059 6061 6066 6081# 6101 6107
6108 6122# 6143 6144 6147 6151 6166# 6185 6186 6194 6198 6199 6213# 6232
6233 6241 6242 6255# 6292# 6330# 6364# 6401# 6420 6422 6436# 6476# 6510# 6547#
6580# 6599 6602 6620# 6656# 6693# 6713 6719 6720 6724 6725 6741# 6761 6767
6768 6772 6773 6789# 6808 6809 6817 6818 6822 6823 6838# 6857 6858 6864
6865 6869 6870 6886# 6906 6912 6913 6928# 6948 6954 6955 6971# 6990 6991
6998 6999 7016# 7035 7036 7043 7044 7059# 7077 7078 7080 7097# 7132# 7170#
7211# 7250# 7268 7270 7275 7291# 7333# 7380# 7428# 7447 7448 7449 7450 7451 SEQ 0576
7473# 7491 7492 7498 7514# 7554# 7593# 7611 7613 7635# 7674# 7693 7699 7705
7721# 7762# 7802# 7843# 7883# 7922# 7962# 8001# 8019 8021 8022 8023 8029 8045#
8084# 8123# 8164# 8183 8184 8186 8191 8207# 8247# 8288# 8327# 8366# 8406# 8445#
8484# 8523# 8563# 8603# 8644# 8661 8662 8663 8687# 8730# 8749 8750 8754 8755
8756 8757 8775# 8817# 8838 8839 8843 8844 8845 8846 8862# 8881 8886 8887
8888 8889 8905# 8924 8929 8930 8931 8932 8938 8940 8954# 8974 8978 8979
8980 8981 8987 8989 9005# 9025 9030 9031 9032 9049# 9086# 9121# 9153# 9191#
9227# 9269# 9314# 9355# 9375 9376 9380 9382 9415# 9430 9431 9436 9438 9458#
9501# 9520 9521 9528 9545# 9565 9566 9573 9590# 9608 9609 9615 9632# 9645
9650 9652 9665# 9703# 9719 9720 9724 9741# 9774# 9814# 9855# 9888# 9920# 9937
9944 9946 9962# 9978 9985 9987 10005# 10048# 10062 10067 10069 10083# 10103 10110
10112 10128# 10147 10154 10156 10172# 10186 10191 10193 10207# 10221 10226 10228 10241#
10279# 10317# 10348# 10368 10369 10373 10389# 10408 10409 10413 10429# 10460# 10492# 10531#
10568# 10587 10588 10593 10594 10595 10610# 10632 10637 10638 10639 10654# 10676 10681
10682 10683 10698# 10720 10724 10725 10727 10742# 10778# 10814# 10854# 10894# 10934# 10953
10961 10976# 10995 11003 11017# 11054# 11092# 11132# 11169# 11186 11188 11191 11193 11208#
11225 11227 11232 11247# 11264 11266 11267 11269 11284# 11301 11303 11306 11308 11323#
11340 11342 11344 11359# 11376 11378 11381 11383 11398# 11415 11417 11420 11422 11437#
11454 11456 11459 11461 11476# 11493 11495 11498 11500 11515# 11532 11535 11537 11552#
11569 11571 11575 11577 11592# 11609 11611 11613 11615 11630# 11647 11649 11652 11654
11669# 11686 11688 11692 11694 11709# 11726 11728 11730 11745# 11783# 11822# 11861# 11900#
11938# 11977# 12017# 12057# 12097# 12136# 12175# 12193 12194 12200 12216# 12234 12235 12236
12238 12243 12260# 12282 12288 12289 12305# 12328 12329 12331 12336 12353# 12374 12375
12382 12383 12399# 12420 12424 12425 12429 12430 12445# 12483# 12501 12502 12508 12524#
12541 12542 12548 12564# 12603# 12621 12622 12623 12629 12645# 12687# 12710 12711 12716
12735# 12780# 12803 12804 12805 12811 12817 12835# 12858 12864 12885# 12921# 12969# 13007#
13046# 13085# 13124# 13162# 13208# 13251# 13296# 13341# 13390# 13428# 13467# 13505# 13544# 13583#
13623# 13661# 13700# 13740# 13780# 13821# 13862# 13900# 13939# 13979# 13997 13998 14008# 14027
14028 14034 14050# 14088# 14127# 14146 14147 14149 14154 14170# 14189 14190 14192 14197
14213# 14233 14234 14236 14241 14257# 14277 14278 14280 14285 14301# 14339# 14357 14363
14379# 14419# 14458# 14497# 14516 14517 14523 14539# 14577# 14596 14601 14617# 14659# 14699#
14740# 14760 14761 14767 14783# 14821# 14858# 14896# 14935# 14974# 15014# 15052# 15097# 15141#
15180# 15227# 15248 15249 15279# 15317# 15336 15337 15338 15342 15358# 15377 15378 15379
15383 15399# 15438# 15457 15458 15459 15463 15479# 15517# 15536 15537 15538 15542 15558#
15577 15578 15579 15583 15599# 15618 15619 15620 15624 15640# 15659 15660 15661 15665
15681# 15700 15704 15720# 15739 15740 15744 15760# 15779 15780 15784 15800# 15819 15820
15821 15825 15841# 15860 15861 15862 15866 15882# 15920# 15940 15941 15959# 15976 15980
15982 15997# 16018 16019 16041# 16058 16063 16079# 16096 16101 16104 16119# 16136 16141
16142 16144 16159# 16176 16181 16182 16200# 16217 16221 16222 16223 16238# 16255 16258
16262 16277# 16294 16297 16299 16301 16316# 16333 16336 16338 16356# 16374 16375 16379
16395# 16416 16417 16435# 16474# 16496 16497 16516# 16534 16535 16538 16542 16558# 16596#
16633# 16650 16655 16673# 16691 16692 16712# 16729 16732 16735 16750# 16767 16770 16771
16773 16788# 16805 16808 16809 16827# 16845 16849 16865# 16905# 16922 16927 16929 16944#
16961 16966 16984# 17002 17003 17007 17023# 17061# 17100# 17117 17122 17140# 17158 17159
17163 17179# 17196 17199 17203 17218# 17235 17238 17240 17242 17257# 17274 17277 17279
17296# 17314 17315 17319 17335# 17352 17357 17361 17376# 17413# 17430 17435 17437 17454#
17472 17473 17475 17479 17495# 17512 17517 17521 17536# 17553 17558 17560 17562 17577#
17594 17599 17601 17618# 17636 17637 17639 17643 17659# 17676 17679 17682 17697# 17735#
17752 17755 17756 17773# 17792 17796 17812# 17850# 17887# 17904 17909 17926# 17944 17945
17949 17965# 18003# 18020 18024 18026 18041# 18058 18063 18080# 18098 18099 18103 18119#
18136 18141 18145 18160# 18177 18182 18184 18186 18201# 18218 18223 18225 18242# 18260
18261 18263 18267 18283# 18300 18305 18309 18324# 18361# 18378 18383 18385 18402# 18420
18421 18423 18427 18458# 18476 18481 18482 18505# 18524 18529 18530 18555# 18574 18579 SEQ 0577
18580 18603# 18622 18627 18628 18655# 18673 18678 18679 18704# 18723 18728 18729 18754#
18773 18778 18779 18802# 18821 18826 18827 18854# 18894# 18935# 18978# 19022# 19049# 19222#
19259# 19296# 19333# 19370# 19407# 19445# 19482# 19519# 19556# 19592# 19608 19609 19613 19616
19617 19623 19637# 19680# 19723# 19740 19745 19746 19747 19748 19750 19754 19755 19756
19757 19770# 19787 19792 19793 19794 19795 19797 19802 19803 19804 19805 19818# 19834
19835 19837 19839 19841 19843 19846 19847 19849 19851 19853 19855 19869# 19885 19886
19888 19890 19893 19895 19899 19900 19902 19904 19907 19909 19923# 19941 19942 19946
19951 19953 19966# 19984 19985 19989 19994 19996 20009# 20027 20028 20032 20037 20039
20052# 20070 20071 20075 20080 20082 20094# 20110 20112 20114 20119 20121 20122 20126
20130 20132 20134 20136 20150# 20195# 20211 20212 20214 20218 20224 20238# 20255 20257
20258 20285# 20304 20305 20329# 20348 20349 20350 20351 20355 20373# 20386 20387 20396
20401 20419# 20439 20440 20443 20445 20450 20470# 20524# 20549 20555 20556 20558 20577#
20590 20591 20599 20600 20603 20622# 20635 20636 20650 20652 20654 20672# 20685 20690
20693 20694 20695 20709# 20722 20727 20730 20731 20732 20865# 20883 20884 20885 20901#
20923 20938# 20957 20958 20972# 20997 21030# 21124# 21186# 21206 21209 21229# 21248 21252
AC3 807# 906# 1014# 1118# 1250# 1302# 1339# 1382# 1475# 1515# 1555# 1602# 1698# 1737#
1780# 1819# 1859# 1907# 1941# 1984# 2025# 2065# 2109# 2151# 2192# 2233# 2276# 2317#
2360# 2400# 2444# 2485# 2528# 2568# 2615# 2651# 2688# 2723# 2769# 2806# 2850# 2895#
2935# 2976# 3149# 3323# 3339 3340 3341 3367# 3383 3384 3385 3576# 3612# 3650#
3692# 3733# 3773# 3805# 3844# 3886# 3920# 3955# 3991# 4037# 4066# 4093# 4125# 4163#
4197# 4242# 4276# 4310# 4344# 4376# 4410# 4446# 4481# 4516# 4552# 4589# 4623# 4656#
4689# 4725# 4760# 4792# 4826# 4862# 4898# 4935# 4971# 5007# 5047# 5085# 5129# 5175#
5219# 5258# 5292# 5333# 5374# 5416# 5453# 5490# 5527# 5565# 5603# 5641# 5678# 5717#
5755# 5796# 5837# 5881# 5924# 5966# 6004# 6040# 6082# 6123# 6167# 6189 6190 6193
6197 6214# 6256# 6293# 6331# 6365# 6402# 6437# 6477# 6511# 6548# 6581# 6621# 6657#
6694# 6742# 6790# 6839# 6860 6861 6863 6868 6887# 6929# 6972# 7017# 7060# 7098#
7133# 7171# 7212# 7251# 7292# 7334# 7381# 7429# 7474# 7515# 7555# 7594# 7612 7613
7619 7636# 7675# 7722# 7763# 7803# 7844# 7884# 7923# 7963# 8002# 8020 8021 8046#
8085# 8124# 8165# 8208# 8248# 8289# 8328# 8367# 8407# 8446# 8485# 8524# 8564# 8604#
8645# 8688# 8731# 8776# 8818# 8863# 8906# 8955# 9006# 9050# 9087# 9122# 9154# 9192#
9228# 9270# 9315# 9356# 9372 9381 9383 9389 9396 9416# 9428 9429 9437 9439
9459# 9502# 9519 9527 9529 9546# 9564 9572 9574 9591# 9607 9614 9616 9633#
9666# 9704# 9742# 9775# 9815# 9856# 9889# 9921# 9938 9939 9945 9963# 9979 9980
9986 10006# 10049# 10084# 10104 10105 10111 10129# 10148 10149 10155 10173# 10208# 10242#
10280# 10318# 10349# 10390# 10430# 10461# 10493# 10532# 10569# 10611# 10655# 10699# 10743# 10779#
10815# 10855# 10895# 10935# 10977# 11018# 11055# 11093# 11133# 11170# 11209# 11248# 11285# 11324#
11360# 11399# 11438# 11477# 11516# 11553# 11593# 11631# 11670# 11710# 11746# 11784# 11823# 11862#
11901# 11939# 11978# 12018# 12058# 12098# 12137# 12176# 12217# 12261# 12306# 12354# 12400# 12446#
12484# 12525# 12565# 12604# 12646# 12688# 12736# 12781# 12836# 12886# 12922# 12970# 13008# 13047#
13086# 13125# 13163# 13209# 13252# 13297# 13342# 13391# 13429# 13468# 13506# 13545# 13584# 13624#
13662# 13701# 13741# 13781# 13822# 13863# 13901# 13940# 13980# 14009# 14051# 14089# 14128# 14171#
14214# 14258# 14302# 14340# 14380# 14420# 14459# 14498# 14540# 14578# 14618# 14660# 14700# 14741#
14784# 14822# 14859# 14897# 14936# 14975# 15015# 15053# 15098# 15142# 15181# 15228# 15280# 15318#
15359# 15400# 15439# 15480# 15518# 15559# 15600# 15641# 15682# 15721# 15761# 15801# 15842# 15883#
15921# 15960# 15998# 16014 16020 16022 16042# 16080# 16120# 16160# 16201# 16239# 16278# 16317#
16357# 16396# 16436# 16452 16457 16459 16475# 16491 16498 16517# 16536 16537 16538 16559#
16597# 16634# 16674# 16713# 16751# 16789# 16828# 16866# 16906# 16945# 16985# 17024# 17062# 17078
17083 17085 17101# 17141# 17180# 17219# 17258# 17297# 17336# 17377# 17414# 17455# 17496# 17537#
17578# 17619# 17660# 17698# 17714 17717 17718 17720 17736# 17774# 17790 17792 17795 17797
17813# 17851# 17888# 17927# 17966# 18004# 18042# 18081# 18120# 18161# 18202# 18243# 18284# 18325#
18362# 18403# 18459# 18480 18481 18484 18486 18488 18506# 18528 18529 18532 18534 18536
18556# 18578 18579 18582 18584 18586 18604# 18626 18627 18630 18632 18634 18656# 18677
18678 18681 18683 18685 18705# 18727 18728 18731 18733 18735 18755# 18777 18778 18781 SEQ 0578
18783 18785 18803# 18825 18826 18829 18831 18833 18855# 18895# 18936# 18979# 19023# 19050#
19223# 19260# 19297# 19334# 19371# 19408# 19446# 19483# 19520# 19557# 19593# 19615 19616 19617
19638# 19681# 19724# 19771# 19819# 19870# 19892 19896 19906 19910 19924# 19940 19944 19945
19947 19951 19953 19967# 19983 19987 19988 19990 19994 19996 20010# 20026 20030 20031
20033 20037 20039 20053# 20069 20073 20074 20076 20080 20082 20095# 20116 20118 20120
20124 20125 20127 20129 20130 20131 20132 20135 20137 20151# 20196# 20239# 20286# 20298
20309 20310 20330# 20374# 20420# 20441 20442 20471# 20483 20501 20502 20503 20525# 20537
20550 20557 20578# 20590 20601 20602 20623# 20673# 20684 20691 20694 20695 20698 20710#
20721 20728 20731 20732 20736 20866# 20902# 20939# 20973# 21031# 21125# 21187# 21199 21214
21230# 21242 21255
AC4 808# 907# 1015# 1119# 1251# 1303# 1340# 1383# 1476# 1516# 1556# 1603# 1699# 1738#
1781# 1820# 1860# 1908# 1942# 1985# 2026# 2066# 2110# 2152# 2193# 2234# 2277# 2318#
2361# 2401# 2445# 2486# 2529# 2569# 2616# 2652# 2689# 2724# 2770# 2807# 2851# 2896#
2936# 2977# 3150# 3324# 3368# 3577# 3613# 3651# 3693# 3734# 3774# 3806# 3845# 3887#
3921# 3956# 3992# 4038# 4067# 4094# 4126# 4164# 4198# 4243# 4277# 4311# 4345# 4377#
4411# 4447# 4482# 4517# 4553# 4590# 4624# 4657# 4690# 4726# 4761# 4793# 4827# 4863#
4899# 4936# 4972# 5008# 5048# 5086# 5130# 5176# 5220# 5259# 5293# 5334# 5375# 5417#
5454# 5491# 5528# 5566# 5604# 5642# 5679# 5718# 5756# 5797# 5838# 5882# 5925# 5967#
6005# 6041# 6083# 6124# 6168# 6215# 6257# 6294# 6332# 6366# 6403# 6438# 6478# 6512#
6549# 6582# 6622# 6658# 6695# 6743# 6791# 6840# 6888# 6930# 6973# 7018# 7061# 7099#
7134# 7172# 7213# 7252# 7293# 7335# 7382# 7430# 7475# 7516# 7556# 7595# 7637# 7676#
7723# 7764# 7804# 7845# 7885# 7924# 7964# 8003# 8047# 8086# 8125# 8166# 8209# 8249#
8290# 8329# 8368# 8408# 8447# 8486# 8525# 8565# 8605# 8646# 8689# 8732# 8777# 8819#
8864# 8907# 8956# 9007# 9051# 9088# 9123# 9155# 9193# 9229# 9271# 9316# 9357# 9417#
9460# 9503# 9547# 9592# 9634# 9667# 9705# 9743# 9776# 9816# 9857# 9890# 9922# 9964#
10007# 10050# 10085# 10130# 10174# 10209# 10243# 10281# 10319# 10350# 10391# 10431# 10462# 10494#
10533# 10570# 10612# 10656# 10700# 10744# 10780# 10816# 10856# 10896# 10936# 10978# 11019# 11056#
11094# 11134# 11171# 11210# 11249# 11286# 11325# 11361# 11400# 11439# 11478# 11517# 11554# 11594#
11632# 11671# 11711# 11747# 11785# 11824# 11863# 11902# 11940# 11979# 12019# 12059# 12099# 12138#
12177# 12218# 12262# 12307# 12355# 12401# 12447# 12485# 12526# 12566# 12605# 12647# 12689# 12737#
12782# 12837# 12887# 12923# 12971# 13009# 13048# 13087# 13126# 13164# 13210# 13253# 13298# 13343#
13392# 13430# 13469# 13507# 13546# 13585# 13625# 13663# 13702# 13742# 13782# 13823# 13864# 13902#
13941# 13981# 14010# 14052# 14090# 14129# 14172# 14215# 14259# 14303# 14341# 14381# 14421# 14460#
14499# 14541# 14579# 14619# 14661# 14701# 14742# 14785# 14823# 14860# 14898# 14937# 14976# 15016#
15054# 15099# 15143# 15182# 15229# 15281# 15319# 15360# 15401# 15440# 15481# 15519# 15560# 15601#
15642# 15683# 15722# 15762# 15802# 15843# 15884# 15922# 15961# 15999# 16043# 16081# 16121# 16161#
16202# 16240# 16279# 16318# 16358# 16397# 16437# 16476# 16518# 16560# 16598# 16635# 16675# 16714#
16752# 16790# 16829# 16867# 16907# 16946# 16986# 17025# 17063# 17102# 17142# 17181# 17220# 17259#
17298# 17337# 17378# 17415# 17456# 17497# 17538# 17579# 17620# 17661# 17699# 17737# 17775# 17814#
17852# 17889# 17928# 17967# 18005# 18043# 18082# 18121# 18162# 18203# 18244# 18285# 18326# 18363#
18404# 18460# 18485 18488 18507# 18533 18536 18557# 18583 18586 18605# 18631 18634 18657#
18682 18685 18706# 18732 18735 18756# 18782 18785 18804# 18830 18833 18856# 18896# 18937#
18980# 19024# 19051# 19224# 19261# 19298# 19335# 19372# 19409# 19447# 19484# 19521# 19558# 19594#
19639# 19682# 19725# 19772# 19820# 19871# 19925# 19948 19950 19968# 19991 19993 20011# 20034
20036 20054# 20077 20079 20096# 20152# 20197# 20240# 20287# 20298 20299 20312 20331# 20375#
20386 20397 20398 20399 20421# 20432 20433 20449 20451 20453 20472# 20496 20497 20499
20526# 20537 20538 20556 20558 20560 20579# 20597 20600 20624# 20674# 20685 20697 20711#
20722 20735 20867# 20903# 20940# 20974# 21032# 21126# 21188# 21199 21200 21216 21231# 21242
21243 21257
AC5 809# 908# 1016# 1120# 1252# 1304# 1341# 1384# 1477# 1517# 1557# 1604# 1700# 1739#
1782# 1821# 1861# 1909# 1943# 1986# 2027# 2067# 2111# 2153# 2194# 2235# 2278# 2319#
2362# 2402# 2446# 2487# 2530# 2570# 2617# 2653# 2690# 2725# 2771# 2808# 2852# 2897#
2937# 2978# 3151# 3325# 3369# 3578# 3614# 3652# 3694# 3735# 3775# 3807# 3846# 3888# SEQ 0579
3922# 3957# 3993# 4039# 4068# 4095# 4127# 4165# 4199# 4244# 4278# 4312# 4346# 4378#
4412# 4448# 4483# 4518# 4554# 4591# 4625# 4658# 4691# 4727# 4762# 4794# 4828# 4864#
4900# 4937# 4973# 5009# 5049# 5087# 5131# 5177# 5221# 5260# 5294# 5335# 5376# 5418#
5455# 5492# 5529# 5567# 5605# 5643# 5680# 5719# 5757# 5798# 5839# 5883# 5926# 5968#
6006# 6042# 6084# 6125# 6169# 6216# 6258# 6295# 6333# 6367# 6404# 6439# 6479# 6513#
6550# 6583# 6623# 6659# 6696# 6744# 6792# 6841# 6889# 6931# 6974# 7019# 7062# 7100#
7135# 7173# 7214# 7253# 7294# 7336# 7383# 7431# 7476# 7517# 7557# 7596# 7638# 7677#
7724# 7765# 7805# 7846# 7886# 7925# 7965# 8004# 8048# 8087# 8126# 8167# 8210# 8250#
8291# 8330# 8369# 8409# 8448# 8487# 8526# 8566# 8606# 8647# 8690# 8733# 8778# 8820#
8865# 8908# 8957# 9008# 9052# 9089# 9124# 9156# 9194# 9230# 9272# 9317# 9358# 9418#
9461# 9504# 9548# 9593# 9635# 9668# 9706# 9744# 9777# 9817# 9858# 9891# 9923# 9965#
10008# 10051# 10086# 10131# 10175# 10210# 10244# 10282# 10320# 10351# 10392# 10432# 10463# 10495#
10534# 10571# 10613# 10657# 10701# 10745# 10781# 10817# 10857# 10897# 10937# 10979# 11020# 11057#
11095# 11135# 11172# 11211# 11250# 11287# 11326# 11362# 11401# 11440# 11479# 11518# 11555# 11595#
11633# 11672# 11712# 11748# 11786# 11825# 11864# 11903# 11941# 11980# 12020# 12060# 12100# 12139#
12178# 12219# 12263# 12308# 12356# 12402# 12448# 12486# 12527# 12567# 12606# 12648# 12690# 12738#
12783# 12838# 12888# 12924# 12972# 13010# 13049# 13088# 13127# 13165# 13211# 13254# 13299# 13344#
13393# 13431# 13470# 13508# 13547# 13586# 13626# 13664# 13703# 13743# 13783# 13824# 13865# 13903#
13942# 13982# 14011# 14053# 14091# 14130# 14173# 14216# 14260# 14304# 14342# 14382# 14422# 14461#
14500# 14542# 14580# 14620# 14662# 14702# 14743# 14786# 14824# 14861# 14899# 14938# 14977# 15017#
15055# 15100# 15144# 15183# 15230# 15282# 15320# 15361# 15402# 15441# 15482# 15520# 15561# 15602#
15643# 15684# 15723# 15763# 15803# 15844# 15885# 15923# 15962# 16000# 16044# 16082# 16122# 16162#
16203# 16241# 16280# 16319# 16359# 16398# 16438# 16477# 16519# 16561# 16599# 16636# 16676# 16715#
16753# 16791# 16830# 16868# 16908# 16947# 16987# 17026# 17064# 17103# 17143# 17182# 17221# 17260#
17299# 17338# 17379# 17416# 17457# 17498# 17539# 17580# 17621# 17662# 17700# 17738# 17776# 17815#
17853# 17890# 17929# 17968# 18006# 18044# 18083# 18122# 18163# 18204# 18245# 18286# 18327# 18364#
18405# 18461# 18508# 18522 18538 18558# 18572 18574 18588 18590 18606# 18621 18636 18637
18658# 18707# 18722 18723 18737 18738 18757# 18771 18773 18787 18789 18805# 18820 18821
18835 18836 18857# 18897# 18938# 18981# 19025# 19052# 20288# 20332# 20376# 20422# 20473# 20483
20484 20505 20527# 20551 20552 20557 20580# 20625# 20675# 20686 20698 20712# 20723 20736
20868# 20904# 20941# 20975# 21033# 21127# 21189# 21205 21206 21210 21211 21212 21232#
ADD1 4090#
ADD1A 4122#
ADD1B 4160#
ADD1C 4194#
ADD2 4104# 4114
ADD2A 4136# 4151
ADD2B 4174# 4184
ADD2C 4208# 4230
ADD3 4109# 4116
ADD3A 4141# 4153
ADD3B 4179# 4186
ADD3C 4213# 4232
ADD4C 4227 4229#
ADDA1 18456#
ADDA2 18470# 18494
ADDA3 18475# 18496
ADDB1 4443#
ADDB1A 4478#
ADDB1B 4513#
ADDB2 4457# 4469
ADDB2A 4492# 4504
ADDB2B 4527# 4540 SEQ 0580
ADDB3 4462# 4471
ADDB3A 4497# 4506
ADDB3B 4532# 4542
ADDBA1 18601#
ADDBA2 18615# 18642
ADDBA3 18620# 18644
ADDI1 4341#
ADDI1A 4373#
ADDI1B 4407#
ADDI2 4355# 4364
ADDI2A 4387# 4398
ADDI2B 4421# 4434
ADDI3 4360# 4366
ADDI3A 4392# 4400
ADDI3B 4426# 4436
ADDIA1 18553#
ADDIA2 18567# 18592
ADDIA3 18573# 18594
ADDM1 4239#
ADDM1A 4273#
ADDM1B 4307#
ADDM2 4253# 4264
ADDM2A 4287# 4298
ADDM2B 4321# 4332
ADDM3 4259# 4266
ADDM3A 4293# 4300
ADDM3B 4326# 4334
ADDMA1 18503#
ADDMA2 18517# 18542
ADDMA3 18523# 18544
AJSJ1 10529#
AJSJ2 10543# 10554
AJSJ3 10548# 10556
ALTMGO 480# 21498
ANCAB1 15356#
ANCAB2 15370# 15386
ANCAB3 15375# 15388
ANCAI4 11206#
ANCAI5 11220# 11234
ANCAI6 11226# 11236
ANCBB1 15597#
ANCBB2 15611# 15627
ANCBB3 15616# 15629
ANCBIA 11435#
ANCBIB 11449# 11463
ANCBIC 11455# 11465
ANCMB1 15436#
ANCMB2 15450# 15466
ANCMB3 15455# 15468
ANCMIA 11282#
ANCMIB 11296# 11310
ANCMIC 11302# 11312
ANDB1 15315# SEQ 0581
ANDB2 15329# 15345
ANDB3 15334# 15347
ANDI4 11167#
ANDI5 11181# 11195
ANDI6 11187# 11197
AOJ1 9663#
AOJ2 9677# 9690
AOJ3 9682# 9692
AOJE1 9701#
AOJE2 9716# 9727
AOJE3 9718# 9728
AOJG1 9812#
AOJG2 9826# 9842
AOJG3 9831# 9844
AOJGA 9739#
AOJGB 9753# 9760 9761
AOJGE1 9853#
AOJGE2 9867# 9875 9877
AOJL1 9772#
AOJL2 9786# 9801
AOJL3 9791# 9803
AOJLE1 9886#
AOJLE2 9900# 9907 9908
AOS1 9353#
AOS2 9367# 9401
AOS3 9372# 9403
AOS4 9387 9394 9400#
AOSE1 9413#
AOSE2 9428# 9443
AOSE3 9429# 9444
AOSG1 9543#
AOSG2 9557# 9576
AOSG3 9562# 9578
AOSGA 9456#
AOSGB 9470# 9485
AOSGC 9475# 9487
AOSGE1 9630#
AOSGE2 9644# 9653 9654
AOSL1 9499#
AOSL2 9513# 9531
AOSL3 9518# 9533
AOSLE1 9588#
AOSLE2 9602#
AOSLE3 9603# 9618
AOSLE4 9607# 9619
APR 19196 19202 19204 19214
AROV 394# 19160
AROVA 4224 4226#
AROVTP 394#
AROVU 394#
ASH1 4034#
ASH2 4048# 4053 4055
ASH3 4063# SEQ 0582
ASH4 4077# 4082 4084
ASHOV 3988#
ASHOV1 4002# 4025 4027
ASSS1 10490#
ASSS2 10504# 10518
ASSS3 10509# 10520
AST 595# 21306
ASTF 21287# 21287 21304 21307 21309
ATSIN 596#
BEGEND 476# 21264
BEGIN 71 74 76 77 78 79 80 81 383 384 407# 21675
BEGIN1 423# 477
BELL 599#
BIS 394#
BLOK 19170# 19170 19193 19229# 19229 19266# 19266 19303# 19303 19340# 19340 19377# 19377 19414#
19414 19452# 19452 19489# 19489 19526# 19526 19563# 19563 19599# 19599 19644# 19644 19687#
19687 19730# 19730 19777# 19777 19825# 19825 19876# 19876 19930# 19930 19973# 19973 20016#
20016 20059# 20059 20101# 20101 20157# 20157 20202# 20202 20245# 20245
BMACA 2441#
BMACA1 2455# 2460 2471
BMACA2 2460# 2473
BMACB 2525#
BMACB1 2539# 2554
BMACB2 2544# 2556
BMACM 2482#
BMACM1 2496# 2501 2507 2514
BMACM2 2501# 2516 2641
BMAN 2397#
BMAN1 2411# 2422 2429
BMAN2 2416# 2431
BMCAM 2612#
BMCAM1 2626# 2639
BMCAM2 2631#
BMCMM 2565#
BMCMM1 2579# 2586 2602
BMCMM2 2584# 2604
BMEQ 2357#
BMEQ1 2371# 2385
BMEQ2 2376# 2387
BMICA 2189#
BMICA1 2203# 2219
BMICA2 2208# 2221
BMICB 2273#
BMICB1 2287# 2303
BMICB2 2292# 2305
BMICM 2230#
BMICM1 2244# 2255 2262
BMICM2 2249# 2264
BMIOR 2148#
BMIOR1 2162# 2169 2179
BMIOR2 2167# 2181
BMSA 2648#
BMSA1 2662# 2669 2676 SEQ 0583
BMSA2 2667# 2678
BMSM 2685#
BMSM1 2699# 2711
BMSM2 2704# 2713
BMSMM 2720#
BMSMM1 2734# 2741 2757
BMSMM2 2739# 2759
BMX 2314#
BMX1 2328# 2333 2346
BMX2 2333# 2348
BOLA 1695#
BOLA1 1714# 1725 1727
BOLAB 2062#
BOLAB1 2081# 2097 2099
BOLAC 1777#
BOLAC1 1796# 1807 1809
BOLAX 1981#
BOLAX1 2000# 2013 2015
BOLCA 1283#
BOLCA1 1393# 1441
BOLCA2 1398# 1443
BOLCAI 1379#
BOLCM 1904#
BOLCM1 1923# 1928 1930
BOLEQ 1816#
BOLEQ1 1835# 1847 1849
BOLOB 2022#
BOLOB1 2041# 2053 2055
BOLOC 1938#
BOLOC1 1957# 1972 1974
BOLOS 1734#
BOLOS1 1753# 1767 1769
BOLSA 2106#
BOLSA1 2125# 2137 2139
BOLSM 1856#
BOLSM1 1875# 1896 1898
BOLX 1451#
BOLZI 1599#
BOLZI1 1618# 1687 1689
BOTHF 4220 4225#
BUFSIZ 19182# 19182 20297 20341 20385 20431 20482 20536 20589 20634 21198 21241
CAI1 10812#
CAI2 10826# 10841
CAI3 10832# 10843
CAIE1 10852#
CAIE2 10866# 10881
CAIE3 10872# 10883
CAIG1 10974#
CAIG2 10990# 11002
CAIG3 10996# 11004
CAIGA 11130#
CAIGB 11146# 11157
CAIGC 11151# 11158 SEQ 0584
CAIGE1 11015#
CAIGE2 11029# 11042
CAIGE3 11035# 11043
CAIL1 10932#
CAIL2 10948# 10960
CAIL3 10954# 10962
CAILA 11090#
CAILB 11106# 11117
CAILC 11111# 11118
CAILE1 11052#
CAILE2 11066# 11079
CAILE3 11072# 11080
CAIN1 10892#
CAIN2 10906# 10920
CAIN3 10912# 10922
CAM1 771 804#
CAM10 10566#
CAM11 10581# 10597
CAM12 10588# 10599
CAMG1 10740#
CAMG2 10754# 10765
CAMG3 10759# 10767
CAMGE1 10696#
CAMGE2 10710# 10729
CAMGE3 10715# 10731
CAML1 10608#
CAML2 10622# 10641
CAML3 10627# 10643
CAMLA 10776#
CAMLB 10790# 10801
CAMLC 10795# 10803
CAMLE1 10652#
CAMLE2 10666# 10685
CAMLE3 10671# 10687
CAMNE1 823# 892 894
CCA 394#
CDP 21026# 21068 21070 21071 21097 21098 21100 21101
CHAIN 188# 19142
CHNOFF 394#
CHNON 394#
CKPP 21120# 21154 21161 21163 21164 21165 21166 21167 21169
CLKU 394#
CLOCKF 462#
CMPLXT 734 743 746 749 752 755 758 761 793# 816 915 1023 1127 1259
1311 1348 1391 1484 1524 1564 1611 1707 1746 1789 1828 1868 1916 1950
1993 2034 2074 2118 2160 2201 2242 2285 2326 2369 2409 2453 2494 2537
2577 2624 2660 2697 2732 2778 2815 2859 2904 2944 2985 3158 3332 3376
3585 3621 3659 3701 3742 3782 3814 3853 3895 3929 3964 4000 4046 4075
4102 4134 4172 4206 4251 4285 4319 4353 4385 4419 4455 4490 4525 4561
4598 4632 4665 4698 4734 4769 4801 4835 4871 4907 4944 4980 5016 5056
5094 5138 5184 5228 5267 5301 5342 5383 5425 5462 5499 5536 5574 5612
5650 5687 5726 5764 5805 5846 5890 5933 5975 6013 6049 6091 6132 6176
6223 6265 6302 6340 6374 6411 6446 6486 6520 6557 6590 6630 6666 6703 SEQ 0585
6751 6799 6848 6896 6938 6981 7026 7069 7107 7142 7180 7221 7260 7301
7343 7390 7438 7483 7524 7564 7603 7645 7684 7731 7772 7812 7853 7893
7932 7972 8011 8055 8094 8133 8174 8217 8257 8298 8337 8376 8416 8455
8494 8533 8573 8613 8654 8697 8740 8785 8827 8872 8915 8964 9015 9059
9096 9131 9163 9201 9237 9279 9324 9365 9425 9468 9511 9555 9600 9642
9675 9713 9751 9784 9824 9865 9898 9930 9972 10015 10058 10093 10138 10182
10217 10251 10289 10327 10358 10399 10439 10470 10502 10541 10578 10620 10664 10708
10752 10788 10824 10864 10904 10944 10986 11027 11064 11102 11142 11179 11218 11257
11294 11333 11369 11408 11447 11486 11525 11562 11602 11640 11679 11719 11755 11793
11832 11871 11910 11948 11987 12027 12067 12107 12146 12185 12226 12270 12315 12363
12409 12455 12493 12534 12574 12613 12655 12697 12745 12790 12845 12895 12931 12979
13017 13056 13095 13134 13172 13218 13261 13306 13351 13400 13438 13477 13515 13554
13593 13633 13671 13710 13750 13790 13831 13872 13910 13949 13989 14018 14060 14098
14137 14180 14223 14267 14311 14349 14389 14429 14468 14507 14549 14587 14627 14669
14709 14750 14793 14831 14868 14906 14945 14984 15024 15062 15107 15151 15190 15237
15289 15327 15368 15409 15448 15489 15527 15568 15609 15650 15691 15730 15770 15810
15851 15892 15930 15969 16007 16051 16089 16129 16169 16210 16248 16287 16326 16366
16405 16445 16484 16526 16568 16606 16643 16683 16722 16760 16798 16837 16875 16915
16954 16994 17033 17071 17110 17150 17189 17228 17267 17306 17345 17386 17423 17464
17505 17546 17587 17628 17669 17707 17745 17783 17822 17860 17897 17936 17975 18013
18051 18090 18129 18170 18211 18252 18293 18334 18371 18412 18468 18515 18565 18613
18665 18714 18764 18812 18864 18904 18945 18988 19032 19059 20295 20339 20383 20429
20480 20534 20587 20632 20682 20719 20875 20911 20948 20982 21040 21134 21196 21239
CNTLC 479#
CNTRP 394#
COMMA 588#
CONSW 463# 19135 19141 21499 21523
COUNT 20746# 20756# 20756 20769 20772 20778 20807 20827 20844 21310 21313
CPOPJ 483#
CPOPJ1 481#
CRLF 318 319 583#
CRLF2 322 323 585#
CRY0 394# 19160
CRY0A 4218 4222#
CRY0B 9384 9389#
CRY1 394# 19160
CRY1B 9385 9396#
CSHFLG 642#
CSHMEM 643#
CTRP 394#
CYCL60 636#
DCK 394#
DDTLNK 202# 421
DDTSRT 421#
DEBUG 67# 21666 21667
DECVER 4# 10 25 442
DF22F 547#
DFRT1 20755# 20785
DFRT2 20757# 20763 20767
DFRT3 20765 20768# 20780 20786
DFRT4 20774 20781#
DFRTFG 20754# 20754 20800# 20800 21314 21316
DFRTST 20748# SEQ 0586
DFT 20793#
DFT1 20801# 20854
DFT2 20808# 20814 20818
DFT3 20816 20819# 20846 20855
DFT4 20841 20847# 20852
DIAGMN 410#
DING 174# 21504
DOLLAR 602#
DSKUPD 447
EBIT0 394#
EBIT1 394#
EBIT10 394#
EBIT11 394#
EBIT12 394#
EBIT13 394#
EBIT14 394#
EBIT15 394#
EBIT2 394#
EBIT3 394#
EBIT4 394#
EBIT5 394#
EBIT6 394#
EBIT7 394#
EBIT8 394#
EBIT9 394#
END 21674#
ENDFIX 722#
ENDSLD 21664#
EQVB1 15638#
EQVB2 15652# 15668
EQVB3 15657# 15670
EQVIA 11474#
EQVIB 11488# 11502
EQVIC 11494# 11504
ERDIAG 21368
ERMORE 496# 21491
EROLD 68# 394
EROUT1 21279# 21323
EROUT2 21276 21320#
ERRELB 70# 21368
ERRLOP 814# 814 913# 913 1021# 1021 1125# 1125 1257# 1257 1309# 1309 1346# 1346
1389# 1389 1482# 1482 1522# 1522 1562# 1562 1609# 1609 1705# 1705 1744# 1744
1787# 1787 1826# 1826 1866# 1866 1914# 1914 1948# 1948 1991# 1991 2032# 2032
2072# 2072 2116# 2116 2158# 2158 2199# 2199 2240# 2240 2283# 2283 2324# 2324
2367# 2367 2407# 2407 2451# 2451 2492# 2492 2535# 2535 2575# 2575 2622# 2622
2658# 2658 2695# 2695 2730# 2730 2776# 2776 2813# 2813 2857# 2857 2902# 2902
2942# 2942 2983# 2983 3156# 3156 3330# 3330 3374# 3374 3583# 3583 3619# 3619
3657# 3657 3699# 3699 3740# 3740 3780# 3780 3812# 3812 3851# 3851 3893# 3893
3927# 3927 3962# 3962 3998# 3998 4044# 4044 4073# 4073 4100# 4100 4132# 4132
4170# 4170 4204# 4204 4249# 4249 4283# 4283 4317# 4317 4351# 4351 4383# 4383
4417# 4417 4453# 4453 4488# 4488 4523# 4523 4559# 4559 4596# 4596 4630# 4630
4663# 4663 4696# 4696 4732# 4732 4767# 4767 4799# 4799 4833# 4833 4869# 4869
4905# 4905 4942# 4942 4978# 4978 5014# 5014 5054# 5054 5092# 5092 5136# 5136 SEQ 0587
5182# 5182 5226# 5226 5265# 5265 5299# 5299 5340# 5340 5381# 5381 5423# 5423
5460# 5460 5497# 5497 5534# 5534 5572# 5572 5610# 5610 5648# 5648 5685# 5685
5724# 5724 5762# 5762 5803# 5803 5844# 5844 5888# 5888 5931# 5931 5973# 5973
6011# 6011 6047# 6047 6089# 6089 6130# 6130 6174# 6174 6221# 6221 6263# 6263
6300# 6300 6338# 6338 6372# 6372 6409# 6409 6444# 6444 6484# 6484 6518# 6518
6555# 6555 6588# 6588 6628# 6628 6664# 6664 6701# 6701 6749# 6749 6797# 6797
6846# 6846 6894# 6894 6936# 6936 6979# 6979 7024# 7024 7067# 7067 7105# 7105
7140# 7140 7178# 7178 7219# 7219 7258# 7258 7299# 7299 7341# 7341 7388# 7388
7436# 7436 7481# 7481 7522# 7522 7562# 7562 7601# 7601 7643# 7643 7682# 7682
7729# 7729 7770# 7770 7810# 7810 7851# 7851 7891# 7891 7930# 7930 7970# 7970
8009# 8009 8053# 8053 8092# 8092 8131# 8131 8172# 8172 8215# 8215 8255# 8255
8296# 8296 8335# 8335 8374# 8374 8414# 8414 8453# 8453 8492# 8492 8531# 8531
8571# 8571 8611# 8611 8652# 8652 8695# 8695 8738# 8738 8783# 8783 8825# 8825
8870# 8870 8913# 8913 8962# 8962 9013# 9013 9057# 9057 9094# 9094 9129# 9129
9161# 9161 9199# 9199 9235# 9235 9277# 9277 9322# 9322 9363# 9363 9423# 9423
9466# 9466 9509# 9509 9553# 9553 9598# 9598 9640# 9640 9673# 9673 9711# 9711
9749# 9749 9782# 9782 9822# 9822 9863# 9863 9896# 9896 9928# 9928 9970# 9970
10013# 10013 10056# 10056 10091# 10091 10136# 10136 10180# 10180 10215# 10215 10249# 10249
10287# 10287 10325# 10325 10356# 10356 10397# 10397 10437# 10437 10468# 10468 10500# 10500
10539# 10539 10576# 10576 10618# 10618 10662# 10662 10706# 10706 10750# 10750 10786# 10786
10822# 10822 10862# 10862 10902# 10902 10942# 10942 10984# 10984 11025# 11025 11062# 11062
11100# 11100 11140# 11140 11177# 11177 11216# 11216 11255# 11255 11292# 11292 11331# 11331
11367# 11367 11406# 11406 11445# 11445 11484# 11484 11523# 11523 11560# 11560 11600# 11600
11638# 11638 11677# 11677 11717# 11717 11753# 11753 11791# 11791 11830# 11830 11869# 11869
11908# 11908 11946# 11946 11985# 11985 12025# 12025 12065# 12065 12105# 12105 12144# 12144
12183# 12183 12224# 12224 12268# 12268 12313# 12313 12361# 12361 12407# 12407 12453# 12453
12491# 12491 12532# 12532 12572# 12572 12611# 12611 12653# 12653 12695# 12695 12743# 12743
12788# 12788 12843# 12843 12893# 12893 12929# 12929 12977# 12977 13015# 13015 13054# 13054
13093# 13093 13132# 13132 13170# 13170 13216# 13216 13259# 13259 13304# 13304 13349# 13349
13398# 13398 13436# 13436 13475# 13475 13513# 13513 13552# 13552 13591# 13591 13631# 13631
13669# 13669 13708# 13708 13748# 13748 13788# 13788 13829# 13829 13870# 13870 13908# 13908
13947# 13947 13987# 13987 14016# 14016 14058# 14058 14096# 14096 14135# 14135 14178# 14178
14221# 14221 14265# 14265 14309# 14309 14347# 14347 14387# 14387 14427# 14427 14466# 14466
14505# 14505 14547# 14547 14585# 14585 14625# 14625 14667# 14667 14707# 14707 14748# 14748
14791# 14791 14829# 14829 14866# 14866 14904# 14904 14943# 14943 14982# 14982 15022# 15022
15060# 15060 15105# 15105 15149# 15149 15188# 15188 15235# 15235 15287# 15287 15325# 15325
15366# 15366 15407# 15407 15446# 15446 15487# 15487 15525# 15525 15566# 15566 15607# 15607
15648# 15648 15689# 15689 15728# 15728 15768# 15768 15808# 15808 15849# 15849 15890# 15890
15928# 15928 15967# 15967 16005# 16005 16049# 16049 16087# 16087 16127# 16127 16167# 16167
16208# 16208 16246# 16246 16285# 16285 16324# 16324 16364# 16364 16403# 16403 16443# 16443
16482# 16482 16524# 16524 16566# 16566 16604# 16604 16641# 16641 16681# 16681 16720# 16720
16758# 16758 16796# 16796 16835# 16835 16873# 16873 16913# 16913 16952# 16952 16992# 16992
17031# 17031 17069# 17069 17108# 17108 17148# 17148 17187# 17187 17226# 17226 17265# 17265
17304# 17304 17343# 17343 17384# 17384 17421# 17421 17462# 17462 17503# 17503 17544# 17544
17585# 17585 17626# 17626 17667# 17667 17705# 17705 17743# 17743 17781# 17781 17820# 17820
17858# 17858 17895# 17895 17934# 17934 17973# 17973 18011# 18011 18049# 18049 18088# 18088
18127# 18127 18168# 18168 18209# 18209 18250# 18250 18291# 18291 18332# 18332 18369# 18369
18410# 18410 18466# 18466 18513# 18513 18563# 18563 18611# 18611 18663# 18663 18712# 18712
18762# 18762 18810# 18810 18862# 18862 18902# 18902 18943# 18943 18986# 18986 19030# 19030
19057# 19057 19073 19191# 19191 19228# 19228 19265# 19265 19302# 19302 19339# 19339 19376#
19376 19413# 19413 19451# 19451 19488# 19488 19525# 19525 19562# 19562 19598# 19598 19643#
19643 19686# 19686 19729# 19729 19776# 19776 19824# 19824 19875# 19875 19929# 19929 19972#
19972 20015# 20015 20058# 20058 20100# 20100 20156# 20156 20201# 20201 20244# 20244 20293# SEQ 0588
20293 20337# 20337 20381# 20381 20427# 20427 20478# 20478 20532# 20532 20585# 20585 20630#
20630 20680# 20680 20717# 20717 20751# 20751 20796 20873# 20873 20909# 20909 20946# 20946
20980# 20980 21038# 21038 21132# 21132 21194# 21194 21237# 21237 21275 21348 21509 21512
21513
ERRMES 52 53 54 55 56 57 58 59 60 61 21330#
ERROUT 20784 20851 21265#
ERRPC 467# 21335 21365 21377
ERRT1 21301# 21311
ERRTLS 468# 21268 21333 21516
ERSTOP 177# 21500
EXCASB 64# 445
EXCH1 1247#
EXCH2 1261# 1273
EXCH3 1266# 1275
EXIOT 394#
FINAL 20747# 20783 21290
FLAGS 19160# 20348 20439
FOV 394# 19160
FOVU 394#
FRDLNK 200#
FSELNK 199#
FXU 394#
GDP 21025# 21067 21068 21069 21072 21080 21081 21082
HLL1 15918#
HLL2 15932# 15946
HLL3 15937# 15948
HLLE1 17333#
HLLE2 17347# 17363
HLLE3 17353# 17365
HLLEI1 17374#
HLLEI2 17388# 17400
HLLEI3 17394# 17402
HLLEM1 17411#
HLLEM2 17425# 17441
HLLEM3 17431# 17443
HLLES1 17452#
HLLES2 17466# 17482
HLLES3 17471# 17484
HLLI1 15957#
HLLI2 15971# 15984
HLLI3 15977# 15986
HLLM1 15995#
HLLM2 16009# 16024
HLLM3 16015# 16026
HLLO1 16863#
HLLO2 16877# 16890
HLLO3 16882# 16892
HLLOI1 16903#
HLLOI2 16917# 16931
HLLOI3 16923# 16933
HLLOM1 16942#
HLLOM2 16956# 16970
HLLOM3 16962# 16972 SEQ 0589
HLLOS1 16982#
HLLOS2 16996# 17010
HLLOS3 17001# 17012
HLLS1 16039#
HLLS2 16053# 16066
HLLS3 16059# 16068
HLLZ1 16556#
HLLZ2 16570# 16583
HLLZ3 16575# 16585
HLLZI1 16594#
HLLZI2 16608# 16620
HLLZI3 16614# 16622
HLLZM1 16631#
HLLZM2 16645# 16659
HLLZM3 16651# 16661
HLLZS1 16671#
HLLZS2 16685# 16699
HLLZS3 16690# 16701
HLR1 16393#
HLR2 16407# 16422
HLR3 16412# 16424
HLRE1 18281#
HLRE2 18295# 18311
HLRE3 18301# 18313
HLREI1 18322#
HLREI2 18336# 18348
HLREI3 18342# 18350
HLREM1 18359#
HLREM2 18373# 18389
HLREM3 18379# 18391
HLRES1 18400#
HLRES2 18414# 18430
HLRES3 18419# 18432
HLRI1 16433#
HLRI2 16447# 16461
HLRI3 16453# 16463
HLRM1 16472#
HLRM2 16486# 16502
HLRM3 16492# 16504
HLRO1 17963#
HLRO2 17977# 17990
HLRO3 17982# 17992
HLROI1 18001#
HLROI2 18015# 18028
HLROI3 18021# 18030
HLROM1 18039#
HLROM2 18053# 18067
HLROM3 18059# 18069
HLROS1 18078#
HLROS2 18092# 18106
HLROS3 18097# 18108
HLRS1 16514#
HLRS2 16528# 16545 SEQ 0590
HLRS3 16533# 16547
HLRZ1 17810#
HLRZ2 17824# 17837
HLRZ3 17829# 17839
HLRZI1 17848#
HLRZI2 17862# 17874
HLRZI3 17868# 17876
HLRZM1 17885#
HLRZM2 17899# 17913
HLRZM3 17905# 17915
HLRZS1 17924#
HLRZS2 17938# 17952
HLRZS3 17943# 17954
HRL1 16236#
HRL2 16250# 16264
HRL3 16256# 16266
HRLE1 18117#
HRLE2 18131# 18147
HRLE3 18137# 18149
HRLEI1 18158#
HRLEI2 18172# 18188
HRLEI3 18178# 18190
HRLEM1 18199#
HRLEM2 18213# 18229
HRLEM3 18219# 18231
HRLES1 18240#
HRLES2 18254# 18270
HRLES3 18259# 18272
HRLI1 16275#
HRLI2 16289# 16303
HRLI3 16295# 16305
HRLM1 16314#
HRLM2 16328# 16342
HRLM3 16334# 16344
HRLO1 17177#
HRLO2 17191# 17205
HRLO3 17197# 17207
HRLOI1 17216#
HRLOI2 17230# 17244
HRLOI3 17236# 17246
HRLOM1 17255#
HRLOM2 17269# 17283
HRLOM3 17275# 17285
HRLOS1 17294#
HRLOS2 17308# 17322
HRLOS3 17313# 17324
HRLS1 16354#
HRLS2 16368# 16382
HRLS3 16373# 16384
HRLZ1 17657#
HRLZ2 17671# 17684
HRLZ3 17677# 17686
HRLZI1 17695# SEQ 0591
HRLZI2 17709# 17722
HRLZI3 17715# 17724
HRLZM1 17733#
HRLZM2 17747# 17760
HRLZM3 17753# 17762
HRLZS1 17771#
HRLZS2 17785# 17799
HRLZS3 17791# 17801
HRR1 16077#
HRR2 16091# 16106
HRR3 16097# 16108
HRRE1 17493#
HRRE2 17507# 17523
HRRE3 17513# 17525
HRREI1 17534#
HRREI2 17548# 17564
HRREI3 17554# 17566
HRREM1 17575#
HRREM2 17589# 17605
HRREM3 17595# 17607
HRRES1 17616#
HRRES2 17630# 17646
HRRES3 17635# 17648
HRRI1 16117#
HRRI2 16131# 16146
HRRI3 16137# 16148
HRRM1 16157#
HRRM2 16171# 16186
HRRM3 16177# 16188
HRRO1 17021#
HRRO2 17035# 17048
HRRO3 17040# 17050
HRROI1 17059#
HRROI2 17073# 17087
HRROI3 17079# 17089
HRROM1 17098#
HRROM2 17112# 17126
HRROM3 17118# 17128
HRROS1 17138#
HRROS2 17152# 17166
HRROS3 17157# 17168
HRRS1 16198#
HRRS2 16212# 16225
HRRS3 16218# 16227
HRRZ1 16710#
HRRZ2 16724# 16737
HRRZ3 16730# 16739
HRRZI1 16748#
HRRZI2 16762# 16775
HRRZI3 16768# 16777
HRRZM1 16786#
HRRZM2 16800# 16813
HRRZM3 16806# 16815 SEQ 0592
HRRZS1 16825#
HRRZS2 16839# 16852
HRRZS3 16844# 16854
HYPEN 593#
INHCSH 185#
INHPAG 182#
IOCLR 394#
IORB1 15556#
IORB2 15570# 15586
IORB3 15575# 15588
IORIA 11396#
IORIB 11410# 11424
IORIC 11416# 11426
ITERAT 88# 440
ITRCH1 500#
ITRCNT 440#
JFCNTR 19075# 19075 19111
JFOND 19097 19105 19111#
JFOT0 19072#
JFOT0A 19076# 19112
JFOT1 19083# 19096 19104
JFOT2 19086# 19090
JFOT3 19087 19091#
JFOT4 19099# 19106
JFOT5 19102# 19107
JFOT6 19101 19104#
JFTAB 19093 19106#
JMP1 9047#
JMP2 9061# 9073
JMP3 9066# 9075
JMPE1 9084#
JMPE2 9099# 9107
JMPE3 9101# 9108
JMPG1 9189#
JMPG2 9204# 9214
JMPG3 9208# 9215
JMPGE1 9225#
JMPGE2 9240# 9255
JMPGE3 9245# 9257
JMPL1 9151#
JMPL2 9166# 9178
JMPL3 9167# 9177
JMPL4 9170# 9179
JMPLE1 9267#
JMPLE2 9282# 9299
JMPLE3 9286# 9301
JMPLEA 9312#
JMPLEB 9326# 9331 9340
JMPLEC 9332# 9342
JMPN1 9119#
JMPN2 9133# 9138 9139
JOB41 394#
JOBAPR 394# SEQ 0593
JOBCNI 394#
JOBDDT 394#
JOBFF 394#
JOBOPC 394# 21497
JOBREL 394#
JOBREN 394#
JOBSA 394#
JOBSYM 394#
JOBTPC 394#
JOBUSY 394#
JOBUUO 394#
JOBVER 394#
JRA1 20575#
JRA1A 20595# 20608
JRA2 20596# 20604 20607
JRA3 20590 20599#
JRAA 20620#
JRAA1 20640# 20658
JRAB 20642# 20657
JRAC 20647# 20653
JRAD 20635 20649#
JRST1 20283#
JRST1A 20303# 20316
JRST2 20305# 20315
JRST3 20306# 20311
JRST4 20304 20308#
JRST5 20298 20309#
JSA1 20522#
JSA1A 20488# 20509
JSA2 20544# 20563
JSA3 20550# 20559
JSA4 20537 20551 20554# 20555
JSAA 20468#
JSAB 20490# 20508
JSAC 20498# 20504
JSAD 20483 20497 20499#
JSAX 20542# 20564
JSP1 20327#
JSP1A 20347# 20361
JSP2 20350# 20357 20360
JSP3 20342 20354#
JSPA1 20391# 20405
JSR1 20417#
JSR1A 20437# 20457
JSR2 20444# 20452
JSR3 20445# 20456
JSR4 20432 20447# 20450
JSRA 20371#
JSRB 20393# 20400
JSRC 20394# 20404
JSRD 20386 20395#
K1 19109#
KAIFLG 457# SEQ 0594
KLFLG 458# 21270
KNTRP 394#
KTRP 394#
LACLK 394#
LACLKE 394#
LAPRAL 394# 19214
LAPRP1 394# 19196 19204 19214
LAPRP2 394#
LAPRP3 394#
LAPRP4 394#
LAPRP5 394#
LAPRP6 394#
LAPRP7 394#
LCHNOF 394#
LCHNON 394#
LCNTXT 394#
LCNXER 394#
LCPAER 394# 19204
LCPSFT 394#
LCPWRF 394#
LDATAF 394#
LDLNK 201# 410 412
LDNXER 394#
LDPAER 394# 19196
LDPSFT 394#
LDPWRF 394#
LEBXMH 394#
LEBXML 394#
LENXER 394#
LEPAER 394#
LEPSFT 394#
LEPWRF 394#
LEUPFW 394#
LEXCMP 394#
LFLGCL 394#
LFLGDS 394#
LFLGEN 394#
LFLGST 394#
LFP 597#
LINSTF 394#
LINT 394#
LIOCLR 394#
LLACBL 394#
LLDUSB 394#
LMBXMH 394#
LMBXML 394#
LNXMEN 394#
LNXMER 394#
LOOPER 176# 21502
LPAREN 394#
LPARER 394# 19202
LPFWPC 394#
LPGFTR 394# SEQ 0595
LPICH1 394#
LPICH2 394#
LPICH3 394#
LPICH4 394#
LPICH5 394#
LPICH6 394#
LPICH7 394#
LPICHA 394#
LPICLR 394#
LPIIP1 394#
LPIIP2 394#
LPIIP3 394#
LPIIP4 394#
LPIIP5 394#
LPIIP6 394#
LPIIP7 394#
LPIOFF 394#
LPION 394#
LPRCH1 394#
LPRCH2 394#
LPRCH3 394#
LPRCH4 394#
LPRCH5 394#
LPRCH6 394#
LPRCH7 394#
LPRFMH 394#
LPRFML 394#
LPSFT 394#
LPSFTE 394#
LPWRFE 394#
LPWRFL 394#
LREQSE 394#
LRQCLR 394#
LSECMO 394#
LSH1 3952#
LSH1P 5371#
LSH1PA 5385# 5404
LSH1PB 5390# 5406
LSH2 3966# 3980
LSH3 3971# 3982
LSHA 3917#
LSHB 3931# 3944
LSHC 3936# 3946
LSMODE 394#
LSNXER 394#
LSPAER 394#
LSPSFT 394#
LSPWRF 394#
LTBASH 394#
LTBASL 394#
LTRPAE 394#
LTRPEN 394#
LUSCMP 394# SEQ 0596
LUUO 394#
LUUO1 52# 527 528
LUUO10 527 532
LUUO11 59# 527 532
LUUO12 60# 527 533
LUUO13 61# 527 533
LUUO14 527 534
LUUO15 527 534
LUUO16 527 535
LUUO17 527 535
LUUO2 53# 527 529
LUUO20 527 536
LUUO21 527 536
LUUO22 527 537
LUUO23 527 537
LUUO24 527 538
LUUO25 527 538
LUUO26 527 539
LUUO27 527 539
LUUO3 54# 527 529
LUUO30 527 540
LUUO31 527 540
LUUO32 527 541
LUUO33 527 541
LUUO4 55# 527 530
LUUO5 56# 527 530
LUUO6 57# 527 531
LUUO7 58# 527 531
LUUOI 394#
LWRITE 394#
MAPNEW 548#
MARGIN 470#
MCNVER 3# 10 25 442
MEMFD1 19117#
MEMFD2 19121# 19139
MEMFD3 19120 19135#
MEMFD4 19126 19137 19141#
MEMLOW 550# 19125 19167 19169 19177 19179 20687 20696 20724 20733 20755 20762 20806 20813
20992 21060 21146
MEMMAP 66# 448
MEMONC 726# 726 19146 19156
MEMSIZ 551# 19123 19124 19150 19165 19172
MEMTOT 549#
MICNT 21269 21273 21281 21336# 21336 21337 21350
MINUS 592#
MODDVC 184#
MODDVL 383 383# 443
MODDVU 384 384# 444
MODLNK 203# 407
MODULO 19175# 19175 20684 20721 20753 20805 20918 20989 21047 21141 21149
MONCTL 460# 21351 21514
MONFLG 459#
MONTEN 461# SEQ 0597
MONTYP 674#
MOVAC 903#
MOVAC1 922# 1002 1004
MOVN1 5004#
MOVN2 5018# 5035
MOVN3 5023# 5037
MOVS1 3770#
MOVS2 3784# 3794
MOVS3 3789# 3796
MOVSA 3730#
MOVSB 3744# 3761
MOVSC 3749# 3763
MOVSIA 3883#
MOVSIB 3897# 3909
MOVSIC 3903# 3911
MOVSMA 3802#
MOVSMB 3816# 3833
MOVSMC 3821# 3835
MOVSSA 3841#
MOVSSB 3855# 3875
MOVSSC 3860# 3877
MPVU 394#
MSADT 19183 19188#
MSADT1 19195 19197# 19205 19208
MSADT2 19194# 19211
MSADT3 19201 19205#
MSADT4 19202#
MST1 19165#
MST2 19172#
MUUO 394#
MUUOPC 394#
MVEI1 4968#
MVEI2 4982# 4996
MVEI3 4988# 4998
MVEM1 3647#
MVEM2 3661# 3680
MVEM3 3666# 3682
MVES1 3689#
MVES2 3703# 3722
MVES3 3708# 3724
MVM1 5216#
MVM2 5230# 5246
MVM3 5235# 5248
MVMI1 5255#
MVMI2 5269# 5280
MVMI3 5274# 5282
MVMM1 5289#
MVMM2 5303# 5321
MVMM3 5308# 5323
MVMS1 5330#
MVMS2 5344# 5362
MVMS3 5349# 5364
MVNI1 5044# SEQ 0598
MVNI2 5058# 5072
MVNI3 5064# 5074
MVNM1 5082#
MVNM2 5096# 5115
MVNM3 5102# 5117
MVNS1 5126#
MVNS2 5140# 5161
MVNS3 5146# 5163
MVNSA 5172#
MVNSB 5186# 5207
MVNSC 5192# 5209
NOPNT 172# 21279 21341
NXMU 394#
OPRSEL 186# 19136
OPTIME 562#
ORCAB1 15718#
ORCAB2 15732# 15747
ORCAB3 15737# 15749
ORCAI1 11550#
ORCAI2 11564# 11579
ORCAI3 11570# 11581
ORCBB1 15839#
ORCBB2 15853# 15869
ORCBB3 15858# 15871
ORCBI1 11667#
ORCBI2 11681# 11696
ORCBI3 11687# 11698
ORCMB1 15798#
ORCMB2 15812# 15828
ORCMB3 15817# 15830
ORCMI1 11628#
ORCMI2 11642# 11656
ORCMI3 11648# 11658
P 229 230 231 232 394# 482 21284
PAG 394#
PALERS 178# 21321 21524
PAREA1 82# 438
PAREA2 83# 439
PAREA3 84# 436
PAREA4 85# 437
PAREA5 86# 449
PAREA6 87# 450
PAREA7 449#
PAREA8 450#
PART3 12951 12960#
PART4 19143 19145 19147 19157 19164#
PARU 394#
PASCNT 464# 21356 21360
PATCH 21667#
PDISF 559#
PDLOVU 394#
PDOVTP 394#
PERIOD 589# SEQ 0599
PFSTRT 416#
PGMEND 69# 21673
PGMNAM 441 776# 19130
PI 21273
PICHN1 394#
PICHN2 394#
PICHN3 394#
PICHN4 394#
PICHN5 394#
PICHN6 394#
PICHN7 394#
PICHNA 394#
PICLR 394#
PIOFF 394#
PION 394#
PLIST 628# 628
PLISTE 628 630#
PLISTS 629#
PLUS 594#
PNTENB 558#
PNTEXT 437#
PNTFLG 557#
PNTINH 560#
PNTLPT 173#
PNTNAM 436#
PNTRP 394#
PNTSPC 561#
POPE 21027# 21071 21085 21086 21087
POPJ1 21184#
POPJ1A 21204# 21220
POPJ2 21207# 21215 21219
POPJ3 21206 21211#
POPJ4 21199 21214#
POPOIN 21024# 21065 21066 21085 21093 21094
POPRET 21062# 21106
POPT 21028#
POPT1 21042# 21058 21064 21104
POPT2 21065#
POPT3 21074# 21083
POPT4 21073 21085# 21088
POPT5 21072 21090#
PP 21119# 21161 21162 21164 21165
PROCED 21274 21339# 21339 21503 21510
PTRP 394#
PUSHJ1 21227#
PUSHJ2 21249# 21256
PUSHJ3 21252# 21260
PUSHJ4 21242 21255#
PUSHJA 21247# 21261
PUSHT 21122#
PUSHT1 21136# 21147 21151 21174 21176
PUSHT2 21141#
PUSHT3 21153# SEQ 0600
PUSHT4 21155# 21171
PUSHT5 21153 21160# 21170
PVPAGI 655#
QUEST 600#
RA 36# 19231 19232 19233 19234 19235 19236 19237 19243 19244 19245 19246 19268 19269
19270 19271 19272 19273 19274 19279 19280 19281 19282 19305 19306 19307 19308 19309
19310 19311 19317 19318 19319 19320 19342 19343 19344 19345 19346 19347 19348 19354
19355 19356 19357 19379 19380 19381 19382 19383 19384 19385 19391 19392 19393 19394
19416 19417 19418 19419 19420 19421 19422 19429 19430 19431 19432 19454 19455 19456
19457 19458 19459 19460 19466 19467 19468 19469 19491 19492 19493 19494 19495 19496
19497 19503 19504 19505 19506 19528 19529 19530 19531 19532 19533 19534 19540 19541
19542 19543 19565 19566 19567 19568 19569 19570 19571 19576 19577 19578 19579 19601
19602 19603 19604 19605 19606 19607 19608 19609 19612 19614 19615 19618 19622 19624
19646 19647 19648 19649 19650 19651 19652 19657 19658 19659 19660 19664 19665 19666
19667 19689 19690 19691 19692 19693 19694 19695 19700 19701 19702 19703 19707 19708
19709 19710 19732 19733 19734 19735 19736 19737 19738 19746 19748 19755 19757 19779
19780 19781 19782 19783 19784 19785 19793 19795 19803 19805 19827 19828 19829 19830
19831 19832 19833 19838 19842 19844 19845 19846 19850 19854 19856 19878 19879 19880
19881 19882 19883 19884 19889 19891 19897 19899 19903 19905 19932 19933 19934 19935
19936 19937 19938 19945 19947 19975 19976 19977 19978 19979 19980 19981 19988 19990
20018 20019 20020 20021 20022 20023 20024 20031 20033 20061 20062 20063 20064 20065
20066 20067 20074 20076 20103 20104 20105 20106 20107 20108 20109 20113 20115 20159
20160 20161 20162 20163 20164 20165 20170 20171 20172 20176 20177 20181 20182 20204
20205 20206 20207 20208 20209 20210 20216 20217 20219 20220 20223 20225 20247 20248
20249 20250 20251 20252 20253 20258 20259 20260 20261 20264 20265 20267 20268
RADIX 603#
RADLSC 605#
RADLSP 604#
RAN 730 819# 819 822 830 836 842 848 854 860 866 872 878 884
893 918# 918 921 930 931 932 933# 933 934# 934 937 938 939
940# 940 941# 941 944 945 946 947# 947 948# 948 951 952 953
954# 954 955# 955 958 959 960 961# 961 962# 962 965 966 967
968# 968 969# 969 972 973 974 975# 975 976# 976 979 980 981
982# 982 983# 983 986 987 988 989# 989 990# 990 993 994 995
996# 996 997# 997 1003 1026# 1026 1029 1040# 1040 1048# 1048 1056# 1056
1064# 1064 1072# 1072 1080# 1080 1088# 1088 1096# 1096 1107 1130# 1130 1133
1149 1150 1151 1152 1160 1161 1162 1163 1171 1172 1173 1174 1182 1183
1184 1185 1193 1194 1195 1196 1204 1205 1206 1207 1215 1216 1217 1218
1226 1227 1228 1229 1238 1262# 1262 1265 1269 1270 1271 1274 1314# 1314
1317 1320# 1320 1321 1326# 1326 1327 1332 1351# 1351 1354 1357# 1357 1358
1363# 1363 1364 1369 1394# 1394 1397 1442 1487# 1487 1490 1492 1493 1494
1496 1497 1498 1502 1504 1505 1508 1527# 1527 1530 1532 1533 1534 1536
1537 1538 1542 1544 1545 1548 1567# 1567 1570 1572 1573 1574 1576 1577
1578 1582 1584 1585 1588 1614# 1614 1617 1641# 1641 1645 1646 1647 1648
1649 1650 1652 1653 1655 1663# 1663 1667 1668 1669 1670 1671 1672 1674
1675 1677 1688 1710# 1710 1713 1714 1715 1716 1718 1719 1721 1726 1749#
1749 1752 1756 1757 1758 1759 1763 1768 1792# 1792 1795 1796 1799 1800
1801 1803 1808 1831# 1831 1834 1835 1838# 1838 1839 1840 1842 1844 1845
1848 1871# 1871 1874 1882 1884 1888 1890 1897 1919# 1919 1922 1923 1925
1926 1929 1953# 1953 1956 1957 1960 1964 1966 1967 1969 1970 1973 1996#
1996 1999 2000 2003 2007 2010 2011 2014 2037# 2037 2040 2041 2043 2044
2046 2054 2077# 2077 2080 2081 2083 2084 2087 2088 2092 2094 2095 2098
2121# 2121 2124 2134 2135 2138 2163# 2163 2166 2180 2204# 2204 2207 2220 SEQ 0601
2245# 2245 2248 2263 2288# 2288 2291 2304 2329# 2329 2332 2347 2372# 2372
2375 2386 2412# 2412 2415 2430 2456# 2456 2459 2472 2497# 2497 2500 2515
2540# 2540 2543 2555 2580# 2580 2583 2599 2600 2603 2627# 2627 2630 2640
2663# 2663 2666 2673 2674 2677 2700# 2700 2703 2712 2735# 2735 2738 2754
2755 2758 2781# 2781 2784 2794 2818# 2818 2821 2832 2838 2862# 2862 2865
2876 2882 2907# 2907 2910 2917 2923 2947# 2947 2950 2957 2963 2988# 2988
2991 3004 3010 3017 3023 3030 3036 3043 3049 3056 3062 3069 3075 3082
3088 3095 3101 3108 3114 3121 3127 3137 3161# 3161 3164 3177 3183 3190
3196 3203 3209 3216 3222 3229 3235 3242 3248 3255 3261 3268 3274 3281
3287 3294 3300 3310 3335# 3335 3338 3339 3342 3347 3348 3353 3379# 3379
3382 3383 3403 3404 3410 3411 3419 3420 3426 3427 3435 3436 3442 3443
3451 3452 3458 3459 3467 3468 3474 3475 3483 3484 3490 3491 3499 3500
3506 3507 3515 3516 3522 3523 3531 3532 3538 3539 3547 3548 3554 3555
3566 3588# 3588 3591 3602 3624# 3624 3627 3638 3662# 3662 3665 3675 3676
3677 3678 3681 3704# 3704 3707 3719 3720 3723 3745# 3745 3748 3758 3759
3762 3785# 3785 3788 3791 3792 3795 3817# 3817 3820 3830 3831 3834 3856#
3856 3859 3870 3876 3898# 3898 3901 3902 3910 3932# 3932 3935 3945 3967#
3967 3970 3973 3981 4026 4054 4083 4105# 4105 4108 4110 4111 4112 4115
4137# 4137 4140 4148 4149 4152 4175# 4175 4178 4179 4185 4209# 4209 4212
4216 4217 4231 4254# 4254 4257 4258 4262 4265 4288# 4288 4291 4292 4299
4322# 4322 4325 4333 4356# 4356 4359 4361 4365 4388# 4388 4391 4399 4422#
4422 4425 4435 4458# 4458 4461 4465 4466 4467 4470 4493# 4493 4496 4501
4505 4528# 4528 4531 4536 4538 4541 4564# 4564 4567 4574 4575 4578 4601#
4601 4604 4606 4612 4635# 4635 4638 4642 4645 4668# 4668 4671 4679 4701#
4701 4704 4705 4709 4710 4711 4714 4737# 4737 4740 4744 4745 4746 4749
4772# 4772 4775 4777 4781 4804# 4804 4807 4815 4838# 4838 4841 4850 4874#
4874 4877 4881 4882 4883 4886 4910# 4910 4913 4923 4947# 4947 4950 4954
4956 4959 4983# 4983 4986 4987 4989 4997 5019# 5019 5022 5032 5033 5036
5059# 5059 5062 5063 5073 5097# 5097 5100 5101 5113 5116 5141# 5141 5144
5145 5162 5187# 5187 5190 5191 5208 5231# 5231 5234 5236 5247 5270# 5270
5273 5281 5304# 5304 5307 5309 5322 5345# 5345 5348 5350 5351 5363 5386#
5386 5389 5391 5405 5428# 5428 5431 5438 5439 5442 5465# 5465 5468 5479
5502# 5502 5505 5512 5513 5516 5539# 5539 5542 5554 5577# 5577 5580 5588
5589 5592 5615# 5615 5618 5626 5627 5630 5653# 5653 5656 5663 5664 5667
5690# 5690 5693 5700 5701 5702 5703 5706 5729# 5729 5732 5735 5736 5740
5743 5767# 5767 5770 5777 5778 5782 5785 5809# 5809 5812 5825 5850# 5850
5853 5869 5894# 5894 5897 5911 5937# 5937 5940 5955 5978# 5978 5981 5985
5986 5990 5993 6016# 6016 6019 6025 6026 6029 6052# 6052 6055 6062 6063
6067 6070 6095# 6095 6098 6111 6136# 6136 6139 6155 6180# 6180 6183 6202
6227# 6227 6230 6245 6268# 6268 6271 6272 6275 6278 6282 6305# 6305 6308
6309 6315 6317 6320 6343# 6343 6346 6350 6354 6377# 6377 6380 6387 6388
6391 6414# 6414 6417 6426 6449# 6449 6452 6462 6463 6466 6489# 6489 6492
6494 6500 6523# 6523 6526 6535 6560# 6560 6563 6566 6570 6593# 6593 6596
6606 6633# 6633 6636 6641 6644 6669# 6669 6672 6680 6707# 6707 6710 6728
6755# 6755 6758 6776 6803# 6803 6806 6826 6852# 6852 6855 6873 6900# 6900
6903 6916 6942# 6942 6945 6958 6985# 6985 6988 7002 7030# 7030 7033 7047
7072# 7072 7075 7084 7110# 7110 7113 7116 7117 7120 7145# 7145 7148 7154
7157 7183# 7183 7186 7193 7194 7197 7224# 7224 7227 7234 7235 7238 7263#
7263 7266 7279 7304# 7304 7307 7317 7318 7321 7346# 7346 7349 7367 7393#
7393 7396 7406 7407 7411 7412 7415 7441# 7441 7444 7457 7458 7461 7486#
7486 7489 7502 7527# 7527 7530 7537 7538 7541 7567# 7567 7570 7577 7578
7581 7606# 7606 7609 7623 7648# 7648 7651 7658 7659 7662 7687# 7687 7690
7709 7734# 7734 7737 7742 7743 7747 7750 7775# 7775 7778 7790 7815# 7815 SEQ 0602
7818 7823 7824 7828 7831 7856# 7856 7859 7867 7868 7871 7896# 7896 7899
7906 7907 7910 7935# 7935 7938 7949 7975# 7975 7978 7986 7989 8014# 8014
8017 8030 8033 8058# 8058 8061 8068 8069 8072 8097# 8097 8100 8111 8136#
8136 8139 8144 8145 8149 8152 8177# 8177 8180 8195 8220# 8220 8223 8227
8228 8231 8232 8235 8260# 8260 8263 8268 8269 8273 8276 8301# 8301 8304
8311 8312 8315 8340# 8340 8343 8354 8379# 8379 8382 8389 8390 8393 8419#
8419 8422 8429 8430 8433 8458# 8458 8461 8468 8469 8472 8497# 8497 8500
8511 8536# 8536 8539 8547 8548 8551 8576# 8576 8579 8591 8616# 8616 8619
8628 8629 8632 8657# 8657 8660 8670 8671 8674 8700# 8700 8703 8712 8714
8718 8744# 8744 8747 8755 8757 8760 8788# 8788 8791 8797 8799 8802 8831#
8831 8834 8844 8846 8849 8875# 8875 8878 8892 8918# 8918 8921 8943 8967#
8967 8970 8992 9018# 9018 9021 9035 9062# 9062 9065 9070 9074 9327# 9327
9330 9341 9368# 9368 9371 9372 9402 9440 9471# 9471 9474 9481 9483 9486
9514# 9514 9517 9532 9558# 9558 9561 9577 9678# 9678 9681 9691 9787# 9787
9790 9802 9827# 9827 9830 9843 9876 9933# 9933 9936 9949 10018# 10018 10021
10028 10030 10033 10096# 10096 10099 10115 10141# 10141 10144 10159 10254# 10254 10257
10267 10361# 10361 10364 10377 10402# 10402 10405 10417 10505# 10505 10508 10515 10519
10544# 10544 10547 10551 10555 10582# 10582 10585 10592 10593 10595 10598 10623# 10623
10626 10628 10642 10667# 10667 10670 10672 10686 10711# 10711 10714 10716 10730 10755#
10755 10758 10759 10760 10762 10763 10766 10791# 10791 10794 10795 10796 10798 10799
10802 10827# 10827 10830 10842 10867# 10867 10870 10871 10882 10907# 10907 10910 10911
10921 11030# 11030 11033 11034 11067# 11067 11070 11071 11182# 11182 11185 11186 11196
11221# 11221 11224 11225 11235 11260# 11260 11263 11264 11272 11297# 11297 11300 11301
11311 11336# 11336 11339 11340 11347 11372# 11372 11375 11376 11386 11411# 11411 11414
11415 11425 11450# 11450 11453 11454 11464 11489# 11489 11492 11493 11503 11528# 11528
11531 11532 11540 11565# 11565 11568 11569 11580 11605# 11605 11608 11609 11618 11643#
11643 11646 11647 11657 11682# 11682 11685 11686 11697 11722# 11722 11725 11726 11733
11758# 11758 11761 11767 11771 11796# 11796 11799 11810 11835# 11835 11838 11845 11849
11874# 11874 11877 11884 11888 11913# 11913 11916 11922 11926 11951# 11951 11954 11965
11990# 11990 11993 12005 12030# 12030 12033 12045 12070# 12070 12073 12085 12110# 12110
12113 12120 12124 12149# 12149 12152 12159 12163 12188# 12188 12191 12204 12229# 12229
12232 12240 12247 12274# 12274 12277 12292 12319# 12319 12322 12340 12367# 12367 12370
12386 12413# 12413 12416 12433 12458# 12458 12461 12467 12471 12496# 12496 12499 12512
12537# 12537 12540 12552 12577# 12577 12580 12591 12616# 12616 12619 12633 12658# 12658
12661 12668 12672 12701# 12701 12704 12720 12749# 12749 12752 12767 12794# 12794 12797
12822 12849# 12849 12852 12869 12898# 12898 12901 12907 12911 12934# 12934 12937 12948
12982# 12982 12985 12991 12995 13020# 13020 13023 13034 13059# 13059 13062 13069 13073
13098# 13098 13101 13108 13112 13137# 13137 13140 13146 13150 13175# 13175 13178 13196
13221# 13221 13224 13239 13264# 13264 13267 13284 13309# 13309 13312 13330 13355# 13355
13358 13378 13403# 13403 13406 13412 13416 13441# 13441 13444 13455 13480# 13480 13483
13489 13493 13518# 13518 13521 13532 13557# 13557 13560 13567 13571 13596# 13596 13599
13607 13611 13636# 13636 13639 13645 13649 13674# 13674 13677 13688 13713# 13713 13716
13728 13753# 13753 13756 13768 13793# 13793 13796 13809 13834# 13834 13837 13850 13875#
13875 13878 13884 13888 13913# 13913 13916 13927 13952# 13952 13955 13967 13992# 13992
13995 14021# 14021 14024 14038 14063# 14063 14066 14072 14076 14101# 14101 14104 14115
14140# 14140 14143 14158 14183# 14183 14186 14201 14226# 14226 14229 14245 14270# 14270
14273 14289 14314# 14314 14317 14323 14327 14352# 14352 14355 14367 14392# 14392 14395
14407 14432# 14432 14435 14446 14471# 14471 14474 14481 14485 14510# 14510 14513 14527
14552# 14552 14555 14561 14565 14590# 14590 14593 14605 14630# 14630 14633 14647 14672#
14672 14675 14687 14712# 14712 14715 14728 14753# 14753 14756 14771 14796# 14796 14799
14805 14809 14834# 14834 14837 14848 14871# 14871 14874 14880 14884 14909# 14909 14912
14923 14948# 14948 14951 14958 14962 14987# 14987 14990 14998 15002 15027# 15027 15030
15036 15040 15065# 15065 15068 15085 15110# 15110 15113 15129 15154# 15154 15157 15168 SEQ 0603
15193# 15193 15196 15214 15241# 15241 15244 15265 15292# 15292 15295 15297 15305 15330#
15330 15333 15335 15336 15346 15371# 15371 15374 15376 15377 15387 15412# 15412 15415
15418 15422 15426 15451# 15451 15454 15456 15457 15467 15492# 15492 15495 15497 15505
15530# 15530 15533 15535 15536 15546 15571# 15571 15574 15576 15577 15587 15612# 15612
15615 15617 15618 15628 15653# 15653 15656 15658 15659 15669 15694# 15694 15697 15699
15708 15733# 15733 15736 15738 15740 15748 15773# 15773 15776 15778 15779 15788 15813#
15813 15816 15818 15819 15829 15854# 15854 15857 15859 15860 15870 15895# 15895 15898
15900 15908 15933# 15933 15936 15940 15942 15947 15972# 15972 15975 15976 15985 16010#
16010 16013 16014 16018 16025 16054# 16054 16057 16058 16067 16092# 16092 16095 16096
16102 16107 16132# 16132 16135 16136 16147 16172# 16172 16175 16176 16184 16187 16213#
16213 16216 16217 16226 16251# 16251 16254 16255 16260 16265 16290# 16290 16293 16294
16304 16329# 16329 16332 16333 16340 16343 16369# 16369 16372 16383 16408# 16408 16411
16416 16418 16423 16448# 16448 16451 16452 16462 16487# 16487 16490 16491 16496 16500
16503 16529# 16529 16532 16546 16571# 16571 16574 16577 16579 16584 16609# 16609 16612
16613 16621 16646# 16646 16649 16650 16653 16657 16660 16686# 16686 16689 16700 16725#
16725 16728 16729 16733 16738 16763# 16763 16766 16767 16776 16801# 16801 16804 16805
16811 16814 16840# 16840 16843 16853 16878# 16878 16881 16884 16886 16891 16918# 16918
16921 16922 16932 16957# 16957 16960 16961 16964 16968 16971 16997# 16997 17000 17011
17036# 17036 17039 17042 17044 17049 17074# 17074 17077 17078 17081 17088 17113# 17113
17116 17117 17120 17124 17127 17153# 17153 17156 17167 17192# 17192 17195 17196 17201
17206 17231# 17231 17234 17235 17245 17270# 17270 17273 17274 17281 17284 17309# 17309
17312 17323 17348# 17348 17351 17352 17355 17359 17364 17389# 17389 17392 17393 17401
17426# 17426 17429 17430 17433 17439 17442 17467# 17467 17470 17483 17508# 17508 17511
17512 17515 17519 17524 17549# 17549 17552 17553 17556 17565 17590# 17590 17593 17594
17597 17603 17606 17631# 17631 17634 17647 17672# 17672 17675 17676 17680 17685 17710#
17710 17713 17714 17723 17748# 17748 17751 17752 17758 17761 17786# 17786 17789 17790
17800 17825# 17825 17828 17831 17833 17838 17863# 17863 17866 17867 17875 17900# 17900
17903 17904 17907 17911 17914 17939# 17939 17942 17953 17978# 17978 17981 17984 17986
17991 18016# 18016 18019 18020 18029 18054# 18054 18057 18058 18061 18065 18068 18093#
18093 18096 18107 18132# 18132 18135 18136 18139 18143 18148 18173# 18173 18176 18177
18180 18189 18214# 18214 18217 18218 18221 18227 18230 18255# 18255 18258 18271 18296#
18296 18299 18300 18303 18307 18312 18337# 18337 18340 18341 18349 18374# 18374 18377
18378 18381 18387 18390 18415# 18415 18418 18431 18471# 18471 18474 18476 18490 18495
18518# 18518 18521 18522 18524 18540 18543 18568# 18568 18571 18572 18593 18616# 18616
18619 18621 18622 18643 18668# 18668 18671 18673 18687 18692 18717# 18717 18720 18722
18742 18767# 18767 18770 18771 18792 18815# 18815 18818 18820 18842 18867# 18867 18870
18880 18907# 18907 18910 18920 18948# 18948 18951 18963 18991# 18991 18994 19007 19077#
19077 19080 19083 19091 19094 20491# 20491 20494 20545# 20545 20548 20549 20550 20643#
20643 20646 20647 20649 20650 20652 20757 20760 20808 20811 20878# 20878 20881 20888
20914# 20914 20917 20928 20951# 20951 20954 20961 20985# 20985 20988 21002 21043# 21043
21046 21076# 21076 21079 21105 21137# 21137 21140 21156# 21156 21159 21175 21446# 21446
RAN1 810# 909# 1017# 1121# 1253# 1266 1268 1269 1271 1305# 1342# 1385# 1478# 1518#
1558# 1605# 1701# 1740# 1783# 1822# 1862# 1910# 1944# 1987# 2028# 2068# 2112# 2154#
2195# 2236# 2279# 2320# 2363# 2403# 2447# 2488# 2531# 2571# 2618# 2654# 2691# 2726#
2772# 2786 2789 2791 2809# 2822 2835 2853# 2866 2879 2898# 2911 2920 2938#
2951 2960 2979# 3005 3013 3018 3026 3031 3039 3044 3052 3057 3065 3070
3078 3083 3091 3096 3104 3109 3117 3122 3130 3152# 3178 3186 3191 3199
3204 3212 3217 3225 3230 3238 3243 3251 3256 3264 3269 3277 3282 3290
3295 3303 3326# 3343 3370# 3579# 3615# 3653# 3695# 3736# 3776# 3808# 3847# 3860
3871 3873 3889# 3923# 3958# 3971 3978 3994# 4040# 4069# 4096# 4128# 4166# 4200#
4245# 4259 4262 4279# 4293 4296 4313# 4327 4330 4347# 4379# 4392 4396 4413#
4429 4432 4449# 4462 4465 4467 4484# 4497 4500 4502 4519# 4533 4536 4538
4555# 4568 4575 4592# 4605 4609 4626# 4659# 4672 4676 4692# 4706 4709 4711 SEQ 0604
4728# 4763# 4795# 4808 4812 4829# 4842 4847 4865# 4878 4881 4883 4901# 4914
4918 4920 4938# 4974# 4988 4994 5010# 5050# 5064 5070 5088# 5101 5112 5132#
5146 5157 5159 5178# 5192 5203 5205 5222# 5235 5244 5261# 5275 5278 5295#
5308 5316 5317 5319 5336# 5349 5358 5360 5377# 5419# 5456# 5469 5476 5493#
5530# 5544 5551 5568# 5606# 5644# 5681# 5720# 5758# 5799# 5840# 5856 5861 5866
5884# 5927# 5969# 6007# 6043# 6085# 6126# 6142 6148 6149 6152 6170# 6217# 6259#
6276 6279 6296# 6334# 6347 6351 6368# 6405# 6419 6423 6440# 6456 6463 6480#
6514# 6528 6532 6551# 6584# 6598 6624# 6660# 6674 6677 6697# 6745# 6793# 6842#
6890# 6932# 6975# 7020# 7063# 7076 7081 7101# 7136# 7149 7154 7174# 7215# 7228
7235 7254# 7267 7271 7276 7295# 7311 7318 7337# 7351 7358 7364 7384# 7432#
7477# 7490 7499 7518# 7558# 7597# 7639# 7652 7659 7678# 7692 7700 7706 7725#
7739 7742 7747 7766# 7780 7787 7806# 7847# 7887# 7926# 7939 7946 7966# 8005#
8049# 8088# 8101 8108 8127# 8168# 8182 8187 8192 8211# 8251# 8292# 8331# 8344
8350 8351 8370# 8410# 8449# 8488# 8501 8507 8508 8527# 8567# 8581 8587 8588
8607# 8648# 8691# 8705 8713 8715 8734# 8779# 8792 8797 8798 8799 8821# 8866#
8882 8887 8889 8909# 8925 8930 8932 8958# 8973 8979 8981 9009# 9023 9030
9032 9053# 9066 9071 9090# 9100 9101 9105 9106 9125# 9133 9137 9157# 9169
9170 9174 9175 9176 9195# 9207 9208 9212 9213 9231# 9243 9247 9248 9256
9273# 9285 9289 9290 9297 9300 9318# 9333 9337 9338 9359# 9374 9381 9383
9419# 9432 9437 9439 9462# 9476 9481 9483 9505# 9522 9527 9529 9549# 9567
9572 9574 9594# 9606 9614 9616 9617 9636# 9669# 9707# 9745# 9754 9759 9778#
9792 9799 9818# 9833 9840 9859# 9868 9873 9892# 9901 9906 9924# 9966# 9977
9988 10009# 10023 10028 10030 10052# 10061 10067 10069 10087# 10102 10110 10112 10132#
10146 10154 10156 10176# 10185 10191 10193 10211# 10220 10226 10228 10245# 10283# 10294
10295 10296 10302 10303 10321# 10330 10335 10352# 10393# 10433# 10442 10447 10464# 10473
10478 10496# 10509 10514 10516 10535# 10572# 10614# 10631 10636 10637 10639 10658# 10675
10680 10681 10683 10702# 10719 10725 10726 10727 10746# 10782# 10818# 10834 10838 10839
10858# 10874 10878 10879 10898# 10913 10917 10918 10938# 10952 10954 10958 10959 10980#
10994 10996 11000 11001 11021# 11036 11040 11041 11058# 11073 11077 11078 11096# 11110
11111 11115 11116 11136# 11150 11151 11155 11156 11173# 11187 11193 11212# 11226 11232
11251# 11265 11269 11288# 11302 11308 11327# 11341 11343 11344 11363# 11377 11383 11402#
11416 11422 11441# 11455 11461 11480# 11494 11500 11519# 11533 11537 11556# 11570 11577
11596# 11610 11615 11634# 11648 11654 11673# 11687 11694 11713# 11727 11730 11749# 11787#
11800 11807 11826# 11865# 11904# 11942# 11955 11962 11981# 11995 12001 12002 12021# 12035
12042 12061# 12101# 12140# 12179# 12220# 12264# 12309# 12327 12332 12333 12337 12357# 12403#
12449# 12487# 12500 12509 12528# 12568# 12581 12588 12607# 12649# 12691# 12709 12717 12739#
12757 12763 12764 12784# 12801 12812 12813 12818 12819 12839# 12856 12865 12866 12889#
12925# 12938 12945 12973# 13011# 13024 13031 13050# 13089# 13128# 13166# 13181 13188 13193
13212# 13229 13235 13236 13255# 13269 13276 13281 13300# 13314 13321 13326 13345# 13363
13369 13370 13374 13375 13394# 13432# 13445 13452 13471# 13509# 13522 13528 13529 13548#
13587# 13627# 13665# 13678 13684 13685 13704# 13718 13724 13725 13744# 13758 13764 13765
13784# 13798 13805 13806 13825# 13839 13846 13847 13866# 13904# 13917 13923 13924 13943#
13983# 13996 14012# 14054# 14092# 14105 14112 14131# 14145 14150 14151 14155 14174# 14188
14193 14198 14217# 14231 14237 14242 14261# 14275 14281 14282 14286 14305# 14343# 14356
14364 14383# 14423# 14436 14443 14462# 14501# 14543# 14581# 14595 14602 14621# 14635 14644
14663# 14677 14684 14703# 14717 14724 14725 14744# 14758 14768 14787# 14825# 14838 14845
14862# 14900# 14913 14920 14939# 14978# 15018# 15056# 15070 15077 15082 15101# 15119 15125
15126 15145# 15159 15165 15184# 15198 15205 15206 15210 15211 15231# 15250 15256 15257
15261 15262 15283# 15296 15300 15302 15321# 15334 15341 15343 15362# 15375 15382 15384
15403# 15416 15417 15421 15423 15442# 15455 15462 15464 15483# 15496 15500 15501 15502
15521# 15534 15541 15543 15562# 15575 15582 15584 15603# 15616 15623 15625 15644# 15657
15664 15666 15685# 15698 15703 15705 15724# 15737 15743 15745 15764# 15777 15783 15785
15804# 15817 15824 15826 15845# 15858 15865 15867 15886# 15899 15903 15905 15924# 15938 SEQ 0605
15944 15963# 15978 15982 16001# 16016 16022 16045# 16059 16062 16064 16083# 16098 16104
16123# 16138 16144 16163# 16178 16184 16204# 16218 16221 16223 16242# 16257 16262 16281#
16296 16301 16320# 16335 16340 16360# 16373 16378 16380 16399# 16413 16420 16439# 16454
16459 16478# 16493 16500 16520# 16533 16541 16543 16562# 16576 16581 16600# 16615 16618
16637# 16652 16657 16677# 16690 16695 16697 16716# 16731 16735 16754# 16769 16773 16792#
16807 16811 16831# 16844 16848 16850 16869# 16883 16888 16909# 16924 16929 16948# 16963
16968 16988# 17001 17006 17008 17027# 17041 17046 17065# 17080 17085 17104# 17119 17124
17144# 17157 17162 17164 17183# 17198 17203 17222# 17237 17242 17261# 17276 17281 17300#
17313 17318 17320 17339# 17354 17361 17380# 17395 17398 17417# 17432 17439 17458# 17471
17478 17480 17499# 17514 17521 17540# 17555 17562 17581# 17596 17603 17622# 17635 17642
17644 17663# 17678 17682 17701# 17716 17720 17739# 17754 17758 17777# 17791 17795 17797
17816# 17830 17835 17854# 17869 17872 17891# 17906 17911 17930# 17943 17948 17950 17969#
17983 17988 18007# 18022 18026 18045# 18060 18065 18084# 18097 18102 18104 18123# 18138
18145 18164# 18179 18186 18205# 18220 18227 18246# 18259 18266 18268 18287# 18302 18309
18328# 18343 18346 18365# 18380 18387 18406# 18419 18426 18428 18462# 18475 18492 18509#
18523 18540 18559# 18573 18590 18607# 18620 18638 18640 18659# 18672 18689 18708# 18721
18739 18758# 18772 18789 18806# 18819 18837 18839 18858# 18898# 18939# 18953 18960 18982#
18997 19004 19026# 19035 19053# 19071# 19082 19092 20289# 20333# 20352 20356 20377# 20393
20395 20396 20423# 20444 20448 20449 20451 20474# 20528# 20581# 20626# 20676# 20713# 20869#
20905# 20942# 20976# 21034# 21128# 21190# 21233#
RANDBS 438# 727
REENTR 418#
RELIAB 180# 737 767 19136
RENTR1 73 773#
REPT 394#
REPT1 394#
REPTU 516#
REQSET 394#
RESRT1 72 493#
RESRT2 494#
RETURN 425#
ROTL2 2803#
ROTL2A 2817# 2837
ROTL2B 2822# 2839
ROTLR 3320#
ROTLR1 3334# 3341 3352
ROTLR2 3342# 3354
ROTOV 3573#
ROTOV1 3587# 3592 3594 3601
ROTOV2 3592# 3603
ROTR2 2847#
ROTR2A 2861# 2881
ROTR2B 2866# 2883
RSTART 169#
RTCL 2973#
RTCLA 2987# 3136
RTCLB 2992# 3138
RTCLR 3364#
RTCLR1 3378# 3385 3565
RTCLR2 3386# 3567
RTCR 3146#
RTCRA 3160# 3309
RTCRB 3165# 3311 SEQ 0606
RTIME 769 792# 817 916 1024 1128 1260 1312 1349 1392 1485 1525 1565 1612
1708 1747 1790 1829 1869 1917 1951 1994 2035 2075 2119 2161 2202 2243
2286 2327 2370 2410 2454 2495 2538 2578 2625 2661 2698 2733 2779 2816
2860 2905 2945 2986 3159 3333 3377 3586 3622 3660 3702 3743 3783 3815
3854 3896 3930 3965 4001 4047 4076 4103 4135 4173 4207 4252 4286 4320
4354 4386 4420 4456 4491 4526 4562 4599 4633 4666 4699 4735 4770 4802
4836 4872 4908 4945 4981 5017 5057 5095 5139 5185 5229 5268 5302 5343
5384 5426 5463 5500 5537 5575 5613 5651 5688 5727 5765 5806 5847 5891
5934 5976 6014 6050 6092 6133 6177 6224 6266 6303 6341 6375 6412 6447
6487 6521 6558 6591 6631 6667 6704 6752 6800 6849 6897 6939 6982 7027
7070 7108 7143 7181 7222 7261 7302 7344 7391 7439 7484 7525 7565 7604
7646 7685 7732 7773 7813 7854 7894 7933 7973 8012 8056 8095 8134 8175
8218 8258 8299 8338 8377 8417 8456 8495 8534 8574 8614 8655 8698 8741
8786 8828 8873 8916 8965 9016 9060 9097 9132 9164 9202 9238 9280 9325
9366 9426 9469 9512 9556 9601 9643 9676 9714 9752 9785 9825 9866 9899
9931 9973 10016 10059 10094 10139 10183 10218 10252 10290 10328 10359 10400 10440
10471 10503 10542 10579 10621 10665 10709 10753 10789 10825 10865 10905 10945 10987
11028 11065 11103 11143 11180 11219 11258 11295 11334 11370 11409 11448 11487 11526
11563 11603 11641 11680 11720 11756 11794 11833 11872 11911 11949 11988 12028 12068
12108 12147 12186 12227 12271 12316 12364 12410 12456 12494 12535 12575 12614 12656
12698 12746 12791 12846 12896 12932 12980 13018 13057 13096 13135 13173 13219 13262
13307 13352 13401 13439 13478 13516 13555 13594 13634 13672 13711 13751 13791 13832
13873 13911 13950 13990 14019 14061 14099 14138 14181 14224 14268 14312 14350 14390
14430 14469 14508 14550 14588 14628 14670 14710 14751 14794 14832 14869 14907 14946
14985 15025 15063 15108 15152 15191 15238 15290 15328 15369 15410 15449 15490 15528
15569 15610 15651 15692 15731 15771 15811 15852 15893 15931 15970 16008 16052 16090
16130 16170 16211 16249 16288 16327 16367 16406 16446 16485 16527 16569 16607 16644
16684 16723 16761 16799 16838 16876 16916 16955 16995 17034 17072 17111 17151 17190
17229 17268 17307 17346 17387 17424 17465 17506 17547 17588 17629 17670 17708 17746
17784 17823 17861 17898 17937 17976 18014 18052 18091 18130 18171 18212 18253 18294
18335 18372 18413 18469 18516 18566 18614 18666 18715 18765 18813 18865 18905 18946
18989 19033 19060 20296 20340 20384 20430 20481 20535 20588 20633 20683 20720 20876
20912 20949 20983 21041 21135 21197 21240
RTL36 2892#
RTL36A 2906# 2922
RTL36B 2911# 2924
RTP 598#
RTR36 2932#
RTR36A 2946# 2962
RTR36B 2951# 2964
RTROV 3609#
RTROV1 3623# 3628 3630 3637
RTROV2 3628# 3639
RUNFLG 465#
SADR1 71# 414
SADR10 80# 430
SADR11 81# 431
SADR2 72# 416
SADR3 73# 418
SADR4 74#
SADR5 75# 479
SADR6 76# 480
SADR7 77# 427 SEQ 0607
SADR8 78# 428
SADR9 79# 429
SBINIT 242 424#
SCOPE 517#
SETAB1 15477#
SETAB2 15491# 15504
SETAB3 15496# 15506
SETAIA 11321#
SETAIB 11335# 11346
SETAIC 11341# 11348
SETMB1 15397#
SETMB2 15411# 15425
SETMB3 15416# 15427
SETZB1 15277#
SETZB2 15291# 15304
SETZB3 15296# 15306
SETZM1 2766#
SETZM2 2780# 2785 2793
SETZM3 2785# 2795
SFSTRT 414#
SKIP1 8685#
SKIP2 8699# 8717
SKIP3 8704# 8719
SKIPE1 8728#
SKIPE2 8743# 8759
SKIPE3 8750# 8761
SKIPG1 8815#
SKIPG2 8830# 8848
SKIPG3 8839# 8850
SKIPL1 8860#
SKIPL2 8874# 8891
SKIPL3 8879# 8893
SKIPN1 8773#
SKIPN2 8787# 8801
SKIPN3 8792# 8803
SKP 1011#
SKP1 1030# 1106 1108
SKPA 1115#
SKPA1 1134# 1237 1239
SKPAA 20670#
SKPAA1 20688# 20692
SKPAA2 20685 20697# 20699 20700
SKPAA3 20693 20699#
SKPB 20707#
SKPB1 20725# 20729
SKPB2 20722 20735# 20737 20738
SKPB3 20730 20737#
SKPGE1 8903#
SKPGE2 8917# 8942
SKPGE3 8922# 8944
SKPLE1 8952#
SKPLE2 8966# 8991
SKPLE3 8971# 8993 SEQ 0608
SKPLEA 9003#
SKPLEB 9017# 9022 9034
SKPLEC 9023# 9036
SLASH 601#
SM10 705#
SNTRP 394#
SOJ1 10239#
SOJ2 10253# 10266
SOJ3 10258# 10268
SOJE1 10277#
SOJE2 10291# 10304
SOJE3 10292# 10305
SOJE4 10295# 10306
SOJG1 10346#
SOJG2 10360# 10376
SOJG3 10365# 10378
SOJGE1 10458#
SOJGE2 10472# 10479 10480
SOJL1 10315#
SOJL1A 10387#
SOJL2 10329# 10336 10337
SOJL2A 10401# 10416
SOJL3A 10406# 10418
SOJLE1 10427#
SOJLE2 10441# 10448 10449
SOS1 9918#
SOS2 9932# 9948
SOS3 9937# 9950
SOSE1 9960#
SOSE2 9974# 9989
SOSE3 9975# 9990
SOSE4 9977# 9991
SOSG1 10081#
SOSG2 10095# 10114
SOSG3 10100# 10116
SOSGE1 10205#
SOSGE2 10219# 10229 10230
SOSL1 10046#
SOSL1A 10126#
SOSL2 10060# 10070 10071
SOSL2A 10140# 10158
SOSL3A 10145# 10160
SOSLA 10003#
SOSLB 10017# 10032
SOSLC 10022# 10034
SOSLE1 10170#
SOSLE2 10184# 10194 10195
SPACE 590#
SRTDDT 420#
START 408 725# 19133
START1 427#
START2 428#
START3 429# SEQ 0609
START4 430#
START5 431#
STARTA 423 734#
STCAB1 15679#
STCAB2 15693# 15707
STCAB3 15698# 15709
STCAI1 11513#
STCAI2 11527# 11539
STCAI3 11533# 11541
STCMB1 15758#
STCMB2 15772# 15787
STCMB3 15777# 15789
STCMI1 11590#
STCMI2 11604# 11617
STCMI3 11610# 11619
STMI4 11245#
STMI5 11259# 11271
STMI6 11265# 11273
STOB1 15880#
STOB2 15894# 15907
STOB3 15899# 15909
STOI1 11707#
STOI2 11721# 11732
STOI3 11727# 11734
STRP 394#
SUB1 4549#
SUB1A 4586#
SUB1B 4600# 4611
SUB1C 4605# 4613
SUB2 4563# 4577
SUB2A 4620#
SUB2B 4634# 4644
SUB2C 4639# 4646
SUB3 4568# 4579
SUBA1 18653#
SUBA2 18667# 18691
SUBA3 18672# 18693
SUBB1 4859#
SUBB1A 4895#
SUBB1B 4932#
SUBB2 4873# 4885
SUBB2A 4909# 4922
SUBB2B 4946# 4958
SUBB3 4878# 4887
SUBB3A 4914# 4924
SUBB3B 4951# 4960
SUBBA1 18800#
SUBBA2 18814# 18841
SUBBA3 18819# 18843
SUBI1 4757#
SUBI1A 4789#
SUBI1B 4823#
SUBI2 4771# 4780 SEQ 0610
SUBI2A 4803# 4814
SUBI2B 4837# 4849
SUBI3 4776# 4782
SUBI3A 4808# 4816
SUBI3B 4843# 4851
SUBIA1 18752#
SUBIA2 18766# 18791
SUBIA3 18772# 18793
SUBLNK 204# 424
SUBM1 4653#
SUBM1A 4686#
SUBM1B 4722#
SUBM2 4667# 4678
SUBM2A 4700# 4713
SUBM2B 4736# 4748
SUBM3 4672# 4680
SUBM3A 4706# 4715
SUBM3B 4741# 4750
SUBMA1 18702#
SUBMA2 18716# 18741
SUBMA3 18721# 18743
SWPTAB 711#
SWTEXR 439#
SYSEXR 412#
TAB 591#
TABL 20769 20773 20782 20824 20831 20848 21302 21315 21317 21325#
TAMP 20798# 20798 20853
TAMP1 20828# 20828 20835
TAMP2 20829# 20829 20836
TAMP3 20799# 20799 20833# 20833 20837 20839
TDC1 6253#
TDC2 6267# 6281
TDC3 6272# 6283
TDCA1 6290#
TDCA2 6304# 6319
TDCA3 6309# 6321
TDCE1 6328#
TDCE10 6691#
TDCE11 6706# 6727
TDCE12 6712# 6729
TDCE2 6342# 6353
TDCE20 6739#
TDCE21 6754# 6775
TDCE22 6760# 6777
TDCE3 6347# 6355
TDCE4 6399#
TDCE5 6413# 6418 6425
TDCE6 6419# 6427
TDCE7 6474#
TDCE8 6488# 6493 6499
TDCE9 6494# 6501
TDCEA 6362#
TDCEB 6376# 6390 SEQ 0611
TDCEC 6381# 6392
TDCED 6434#
TDCEE 6448# 6453 6455 6465
TDCEF 6456# 6467
TDCEG 6508#
TDCEH 6522# 6534
TDCEI 6527# 6536
TDCN1 6545#
TDCN1A 6787#
TDCN1B 6802# 6811 6825
TDCN1C 6809# 6827
TDCN2 6559# 6569
TDCN3 6564# 6571
TDCN4 6578#
TDCN5 6592# 6597 6605
TDCN6 6598# 6607
TDCN7 6618#
TDCN8 6632# 6637 6643
TDCN9 6638# 6645
TDCNA1 6836#
TDCNA2 6851# 6872
TDCNA3 6858# 6874
TDCNG 6654#
TDCNH 6668# 6679
TDCNI 6673# 6681
TDN1 5413#
TDN2 5427# 5441
TDN3 5432# 5443
TDNE1A 5450#
TDNE1B 5487#
TDNE1C 5524#
TDNE1D 5562#
TDNE1E 5600#
TDNE1F 5638#
TDNE2A 5464# 5478
TDNE2B 5501# 5515
TDNE2C 5538# 5543 5553
TDNE2D 5576# 5581 5591
TDNE2E 5614# 5619 5629
TDNE2F 5652# 5666
TDNE3A 5469# 5480
TDNE3B 5506# 5517
TDNE3C 5544# 5555
TDNE3D 5582# 5593
TDNE3E 5620# 5631
TDNE3F 5657# 5668
TDNN1 6884#
TDNN2 6899# 6915
TDNN3 6905# 6917
TDNN4 7014#
TDNN5 7029# 7046
TDNN6 7036# 7048
TDNNA 6926# SEQ 0612
TDNNB 6941# 6957
TDNNC 6947# 6959
TDNND 6969#
TDNNE 6984# 7001
TDNNF 6991# 7003
TDOA1 5963#
TDOA2 5977# 5992
TDOA3 5982# 5994
TDOAA 6001#
TDOAB 6015# 6028
TDOAC 6020# 6030
TDOB1 6037#
TDOB2 6051# 6069
TDOB3 6056# 6071
TDOE1 6079#
TDOE2 6094# 6110
TDOE3 6100# 6112
TDOEA 6120#
TDOEB 6135# 6154
TDOEC 6141# 6156
TDON1 6211#
TDON2 6226# 6244
TDON3 6233# 6246
TDONA 6164#
TDONB 6179# 6188 6201
TDONC 6186# 6203
TDZA1 5675#
TDZA2 5689# 5705
TDZA3 5694# 5707
TDZAA 5714#
TDZAB 5728# 5742
TDZAC 5733# 5744
TDZB1 5752#
TDZB2 5766# 5784
TDZB3 5771# 5786
TDZE1 5793#
TDZE2 5808# 5824
TDZE3 5814# 5826
TDZEA 5834#
TDZEB 5849# 5868
TDZEC 5855# 5870
TDZN1 5921#
TDZN2 5936# 5954
TDZN3 5942# 5956
TDZNA 5878#
TDZNB 5893# 5910
TDZNC 5900# 5912
TESTPC 466# 812 911 1019 1123 1255 1307 1344 1387 1480 1520 1560 1607 1703
1742 1785 1824 1864 1912 1946 1989 2030 2070 2114 2156 2197 2238 2281
2322 2365 2405 2449 2490 2533 2573 2620 2656 2693 2728 2774 2811 2855
2900 2940 2981 3154 3328 3372 3581 3617 3655 3697 3738 3778 3810 3849
3891 3925 3960 3996 4042 4071 4098 4130 4168 4202 4247 4281 4315 4349
4381 4415 4451 4486 4521 4557 4594 4628 4661 4694 4730 4765 4797 4831 SEQ 0613
4867 4903 4940 4976 5012 5052 5090 5134 5180 5224 5263 5297 5338 5379
5421 5458 5495 5532 5570 5608 5646 5683 5722 5760 5801 5842 5886 5929
5971 6009 6045 6087 6128 6172 6219 6261 6298 6336 6370 6407 6442 6482
6516 6553 6586 6626 6662 6699 6747 6795 6844 6892 6934 6977 7022 7065
7103 7138 7176 7217 7256 7297 7339 7386 7434 7479 7520 7560 7599 7641
7680 7727 7768 7808 7849 7889 7928 7968 8007 8051 8090 8129 8170 8213
8253 8294 8333 8372 8412 8451 8490 8529 8569 8609 8650 8693 8736 8781
8823 8868 8911 8960 9011 9055 9092 9127 9159 9197 9233 9275 9320 9361
9421 9464 9507 9551 9596 9638 9671 9709 9747 9780 9820 9861 9894 9926
9968 10011 10054 10089 10134 10178 10213 10247 10285 10323 10354 10395 10435 10466
10498 10537 10574 10616 10660 10704 10748 10784 10820 10860 10900 10940 10982 11023
11060 11098 11138 11175 11214 11253 11290 11329 11365 11404 11443 11482 11521 11558
11598 11636 11675 11715 11751 11789 11828 11867 11906 11944 11983 12023 12063 12103
12142 12181 12222 12266 12311 12359 12405 12451 12489 12530 12570 12609 12651 12693
12741 12786 12841 12891 12927 12975 13013 13052 13091 13130 13168 13214 13257 13302
13347 13396 13434 13473 13511 13550 13589 13629 13667 13706 13746 13786 13827 13868
13906 13945 13985 14014 14056 14094 14133 14176 14219 14263 14307 14345 14385 14425
14464 14503 14545 14583 14623 14665 14705 14746 14789 14827 14864 14902 14941 14980
15020 15058 15103 15147 15186 15233 15285 15323 15364 15405 15444 15485 15523 15564
15605 15646 15687 15726 15766 15806 15847 15888 15926 15965 16003 16047 16085 16125
16165 16206 16244 16283 16322 16362 16401 16441 16480 16522 16564 16602 16639 16679
16718 16756 16794 16833 16871 16911 16950 16990 17029 17067 17106 17146 17185 17224
17263 17302 17341 17382 17419 17460 17501 17542 17583 17624 17665 17703 17741 17779
17818 17856 17893 17932 17971 18009 18047 18086 18125 18166 18207 18248 18289 18330
18367 18408 18464 18511 18561 18609 18661 18710 18760 18808 18860 18900 18941 18984
19028 19055 19189 19226 19263 19300 19337 19374 19411 19449 19486 19523 19560 19596
19641 19684 19727 19774 19822 19873 19927 19970 20013 20056 20098 20154 20199 20242
20291 20335 20379 20425 20476 20530 20583 20628 20678 20715 20749 20794 20871 20907
20944 20978 21036 21130 21192 21235
TICKS 469#
TLC1 14781#
TLC2 14795# 14808
TLC3 14800# 14810
TLC4 14819#
TLC5 14833# 14847
TLC6 14838# 14849
TLC7 14856#
TLC8 14870# 14883
TLC9 14875# 14885
TLCA1 14894#
TLCA2 14908# 14922
TLCA3 14913# 14924
TLCA4 14933#
TLCA5 14947# 14961
TLCA6 14952# 14963
TLCA7 14972#
TLCA8 14986# 15001
TLCA9 14991# 15003
TLCE1 15012#
TLCE2 15026# 15039
TLCE3 15031# 15041
TLCE4 15050#
TLCE5 15064# 15084 SEQ 0614
TLCE6 15069# 15086
TLCE7 15095#
TLCE8 15109# 15118 15128
TLCE9 15114# 15130
TLCN1 15139#
TLCN2 15153# 15167
TLCN3 15158# 15169
TLCN4 15178#
TLCN5 15192# 15213
TLCN6 15197# 15215
TLCN7 15225#
TLCN8 15240# 15264
TLCN9 15248# 15266
TLFT1 12956# 14144 14716 15197
TLFT2 12957# 14230
TLN1 13388#
TLN2 13402# 13415
TLN3 13407# 13417
TLN4 13426#
TLN5 13440# 13454
TLN6 13445# 13456
TLN7 13465#
TLN8 13479# 13492
TLN9 13484# 13494
TLNA1 13503#
TLNA2 13517# 13531
TLNA3 13522# 13533
TLNA4 13542#
TLNA5 13556# 13570
TLNA6 13561# 13572
TLNA7 13581#
TLNA8 13595# 13610
TLNA9 13600# 13612
TLNE1 13621#
TLNE2 13635# 13648
TLNE3 13640# 13650
TLNE4 13659#
TLNE5 13673# 13687
TLNE6 13678# 13689
TLNE7 13698#
TLNE8 13712# 13727
TLNE9 13717# 13729
TLNN1 13738#
TLNN2 13752# 13767
TLNN3 13758# 13769
TLNN4 13778#
TLNN5 13792# 13808
TLNN6 13797# 13810
TLNN7 13819#
TLNN8 13833# 13849
TLNN9 13838# 13851
TLO1 14299#
TLO2 14313# 14326 SEQ 0615
TLO3 14318# 14328
TLO4 14337#
TLO5 14351# 14366
TLO6 14356# 14368
TLO7 14377#
TLO8 14391# 14406
TLO9 14396# 14408
TLOA1 14417#
TLOA2 14431# 14445
TLOA3 14436# 14447
TLOA4 14456#
TLOA5 14470# 14484
TLOA6 14475# 14486
TLOA7 14495#
TLOA8 14509# 14526
TLOA9 14514# 14528
TLOE1 14537#
TLOE2 14551# 14564
TLOE3 14556# 14566
TLOE4 14575#
TLOE5 14589# 14604
TLOE6 14594# 14606
TLOE7 14615#
TLOE8 14629# 14646
TLOE9 14634# 14648
TLON1 14657#
TLON2 14671# 14686
TLON3 14676# 14688
TLON4 14697#
TLON5 14711# 14727
TLON6 14716# 14729
TLON7 14738#
TLON8 14752# 14770
TLON9 14757# 14772
TLZ1 13860#
TLZ2 13874# 13887
TLZ3 13879# 13889
TLZ4 13898#
TLZ5 13912# 13926
TLZ6 13917# 13928
TLZ7 13937#
TLZ8 13951# 13966
TLZ9 13956# 13968
TLZA1 13977#
TLZA2 13991#
TLZA3 13996#
TLZA7 14006#
TLZA8 14020# 14037
TLZA9 14025# 14039
TLZE1 14048#
TLZE2 14062# 14075
TLZE3 14067# 14077
TLZE4 14086# SEQ 0616
TLZE5 14100# 14114
TLZE6 14105# 14116
TLZE7 14125#
TLZE8 14139# 14157
TLZE9 14144# 14159
TLZN1 14168#
TLZN2 14182# 14200
TLZN3 14187# 14202
TLZN4 14211#
TLZN5 14225# 14244
TLZN6 14230# 14246
TLZN7 14255#
TLZN8 14269# 14288
TLZN9 14274# 14290
TN0 394#
TN1 394#
TOTALS 170#
TPOP 20863#
TPOP1 20877# 20887
TPOP2 20882# 20889
TPOP3 20899#
TPOP4 20913# 20920 20927
TPOP5 20918# 20929
TPUSH 20936#
TPUSH1 20950# 20960
TPUSH2 20955# 20962
TPUSH3 20970#
TPUSH4 20984# 20993 21001
TPUSH5 20989# 21003
TRC1 12883#
TRC2 12897# 12910
TRC3 12902# 12912
TRC4 12967#
TRC5 12981# 12994
TRC6 12986# 12996
TRC7 13044#
TRC8 13058# 13072
TRC9 13063# 13074
TRCA1 12919#
TRCA2 12933# 12947
TRCA3 12938# 12949
TRCA4 13005#
TRCA5 13019# 13033
TRCA6 13024# 13035
TRCA7 13083#
TRCA8 13097# 13111
TRCA9 13102# 13113
TRCE1 13122#
TRCE2 13136# 13149
TRCE3 13141# 13151
TRCE4 13206#
TRCE5 13220# 13228 13238
TRCE6 13225# 13240 SEQ 0617
TRCEA1 13160#
TRCEA2 13174# 13180 13195
TRCEA3 13181# 13197
TRCEA4 13249#
TRCEA5 13263# 13283
TRCEA6 13268# 13285
TRCN1 13294#
TRCN2 13308# 13329
TRCN3 13313# 13331
TRCNA 13339#
TRCNB 13354# 13377
TRCNC 13362# 13379
TRN1 11743#
TRN2 11757# 11770
TRN3 11762# 11772
TRN4 11781#
TRN5 11795# 11809
TRN6 11800# 11811
TRN7 11820#
TRN8 11834# 11848
TRN9 11839# 11850
TRNA1 11859#
TRNA2 11873# 11887
TRNA3 11878# 11889
TRNE1A 11898#
TRNE1B 11936#
TRNE1C 11975#
TRNE1D 12015#
TRNE1E 12055#
TRNE1F 12095#
TRNE2A 11912# 11925
TRNE2B 11950# 11964
TRNE2C 11989# 12004
TRNE2D 12029# 12044
TRNE2E 12069# 12084
TRNE2F 12109# 12123
TRNE3A 11917# 11927
TRNE3B 11955# 11966
TRNE3C 11994# 12006
TRNE3D 12034# 12046
TRNE3E 12074# 12086
TRNE3F 12114# 12125
TRO1 12443#
TRO1A 12522#
TRO1B 12536# 12551
TRO1C 12541# 12553
TRO1D 12562#
TRO1E 12576# 12590
TRO1F 12581# 12592
TRO2 12457# 12470
TRO3 12462# 12472
TRO4 12481#
TRO5 12495# 12511 SEQ 0618
TRO6 12500# 12513
TROA1 12601#
TROA2 12615# 12632
TROA3 12620# 12634
TROA4 12643#
TROA5 12657# 12671
TROA6 12662# 12673
TROE1 12685#
TROE2 12700# 12719
TROE3 12708# 12721
TROEA 12733#
TROEB 12748# 12766
TROEC 12756# 12768
TRON1 12778#
TRON2 12793# 12804 12821
TRON3 12802# 12823
TRONA 12833#
TRONB 12848# 12868
TRONC 12857# 12870
TRP3TP 394#
TRZA1 12134#
TRZA2 12148# 12162
TRZA3 12153# 12164
TRZAA 12173#
TRZAB 12187# 12203
TRZAC 12193# 12205
TRZB1 12214#
TRZB2 12228# 12246
TRZB3 12233# 12248
TRZE1 12258#
TRZE2 12273# 12291
TRZE3 12281# 12293
TRZEA 12303#
TRZEB 12318# 12339
TRZEC 12326# 12341
TRZN1 12397#
TRZN2 12412# 12432
TRZN3 12421# 12434
TRZNA 12351#
TRZNB 12366# 12385
TRZNC 12375# 12387
TSC1 7057#
TSC2 7071# 7083
TSC3 7076# 7085
TSC4 7095#
TSC5 7109# 7119
TSC6 7114# 7121
TSC7 7130#
TSC8 7144# 7156
TSC9 7149# 7158
TSCA1 7168#
TSCA2 7182# 7196
TSCA3 7187# 7198 SEQ 0619
TSCE1 7209#
TSCE2 7223# 7237
TSCE3 7228# 7239
TSCE4 7289#
TSCE5 7303# 7308 7310 7320
TSCE6 7311# 7322
TSCEA 7248#
TSCEB 7262# 7278
TSCEC 7267# 7280
TSCED 7331#
TSCEE 7345# 7350 7366
TSCEF 7351# 7368
TSCN1 7378#
TSCN2 7392# 7397 7400 7414
TSCN3 7398# 7416
TSCNA 7426#
TSCNB 7440# 7445 7449 7451 7460
TSCNC 7446# 7462
TSN1 8286#
TSN2 8300# 8314
TSN3 8305# 8316
TSN4 8325#
TSN5 8339# 8353
TSN6 8344# 8355
TSN7 8364#
TSN8 8378# 8392
TSN9 8383# 8394
TSNA1 8404#
TSNA2 8418# 8432
TSNA3 8423# 8434
TSNE1 8443#
TSNE2 8457# 8471
TSNE3 8462# 8473
TSNE4 8521#
TSNE5 8535# 8540 8550
TSNE6 8540# 8552
TSNEA 8482#
TSNEB 8496# 8510
TSNEC 8501# 8512
TSNED 8561#
TSNEE 8575# 8580 8590
TSNEF 8581# 8592
TSNN1 8601#
TSNN2 8615# 8620 8631
TSNN3 8621# 8633
TSNNA 8642#
TSNNB 8656# 8663 8673
TSNNC 8664# 8675
TSO1 7471#
TSO2 7485# 7501
TSO3 7490# 7503
TSO4 7512#
TSO5 7526# 7540 SEQ 0620
TSO6 7531# 7542
TSO7 7552#
TSO8 7566# 7580
TSO9 7571# 7582
TSOA1 7591#
TSOA2 7605# 7622
TSOA3 7610# 7624
TSOE1 7633#
TSOE2 7647# 7661
TSOE3 7652# 7663
TSOE4 7719#
TSOE5 7733# 7738 7749
TSOE6 7739# 7751
TSOEA 7672#
TSOEB 7686# 7691 7708
TSOEC 7692# 7710
TSOED 7760#
TSOEE 7774# 7779 7789
TSOEF 7780# 7791
TSON1 7800#
TSON2 7814# 7830
TSON3 7819# 7832
TSONA 7841#
TSONB 7855# 7860 7870
TSONC 7861# 7872
TST1 19213 19220#
TST10 19480#
TST10A 19490# 19510
TST10B 19499# 19507
TST11 19517#
TST11A 19527# 19547
TST11B 19536# 19544
TST12 19554#
TST12A 19564# 19583
TST12B 19573# 19580
TST13 19590#
TST13A 19600# 19628
TST13B 19608# 19625
TST14 19635#
TST14A 19645# 19671
TST14B 19654# 19668
TST15 19678#
TST15A 19688# 19714
TST15B 19697# 19711
TST16 19721#
TST16A 19731# 19761
TST16B 19739# 19758
TST17 19768#
TST17A 19778# 19809
TST17B 19786# 19806
TST1A 19230# 19250
TST1B 19238# 19247
TST2 19257# SEQ 0621
TST20 19816#
TST20A 19826# 19860
TST20B 19834# 19857
TST21 19867#
TST21A 19877# 19914
TST21B 19885# 19911
TST22 19921#
TST22A 19931# 19957
TST22B 19939# 19954
TST23 19964#
TST23A 19974# 20000
TST23B 19982# 19997
TST24 20007#
TST24A 20017# 20043
TST24B 20025# 20040
TST25 20050#
TST25A 20060# 20086
TST25B 20068# 20083
TST26 20092#
TST26A 20102# 20141
TST26B 20110# 20138
TST27 20148#
TST27A 20158# 20186
TST27B 20166# 20183
TST2A 19267# 19286
TST2B 19275# 19283
TST3 19294#
TST30 20193#
TST30A 20203# 20229
TST30B 20211# 20226
TST31 20236#
TST31A 20246# 20272
TST31B 20254# 20269
TST3A 19304# 19324
TST3B 19312# 19321
TST4 19331#
TST4A 19341# 19361
TST4B 19350# 19358
TST5 19368#
TST5A 19378# 19398
TST5B 19387# 19395
TST6 19405#
TST6A 19415# 19436
TST6B 19424# 19433
TST7 19443#
TST7A 19453# 19473
TST7B 19462# 19470
TSTLFT 12955# 13717 13797 14634 15114
TSZ1 7881#
TSZ2 7895# 7909
TSZ3 7900# 7911
TSZ4 7920#
TSZ5 7934# 7948 SEQ 0622
TSZ6 7939# 7950
TSZ7 7960#
TSZ8 7974# 7988
TSZ9 7979# 7990
TSZA1 7999#
TSZA2 8013# 8032
TSZA3 8018# 8034
TSZE1 8043#
TSZE2 8057# 8071
TSZE3 8062# 8073
TSZE4 8121#
TSZE5 8135# 8140 8151
TSZE6 8141# 8153
TSZEA 8082#
TSZEB 8096# 8110
TSZEC 8101# 8112
TSZED 8162#
TSZEE 8176# 8181 8194
TSZEF 8182# 8196
TSZN1 8205#
TSZN2 8219# 8234
TSZN3 8224# 8236
TSZNA 8245#
TSZNB 8259# 8264 8275
TSZNC 8265# 8277
TTNBRF 649#
TTYFIL 565#
TTYSPD 566#
TXTINH 181#
UBAVEC 394#
USER 456# 728 19144 19194 19200 19212 21271
USERF 394# 20354 20442 20443
USRASB 65# 446
USRCRF 575#
USRLFF 574#
UUODIS 528#
UUOEXT 484# 21521
UUORTN 485#
UUOSKP 482#
UUOTXT 21484
WCBUF 19180# 19180 20303 20347 20391 20437 20488 20542 20595 20640 21204 21247
XORB1 15515#
XORB2 15529# 15545
XORB3 15534# 15547
XORIA 11357#
XORIB 11371# 11385
XORIC 11377# 11387
YY 19069# 19095 19100 19103
$$MUUO 680#
$$OUTE 686#
$$TAX1 698#
$$TAX2 699#
$$TOGG 692# SEQ 0623
$$UUO 669#
$ACC0 507#
$BEND1 477#
$BEND2 75 478# 21530
$CHRIN 568#
$CRLF 570#
$DEVCH 394#
$DSKUP 447#
$DVOFF 564#
$EMODE 445#
$FFF 572#
$IBUF 620#
$INEXT 622#
$INNM 621#
$ITRHL 488#
$ITRX1 489#
$LPAPE 21536
$MMAP 448#
$MODVL 443#
$MODVU 444#
$OBUF 611#
$ONETM 471#
$OUTEX 613#
$OUTNM 612#
$PAPER 394
$PARER 495#
$PNAME 441#
$PSHER 499#
$PVER 442#
$RSRTX 491#
$RSRTY 492#
$SPAG1 511#
$START 408#
$SVAPR 509#
$SVPAG 510#
$SVPI 508#
$SVUPC 514# 21334 21338 21364
$SVUUO 513# 21343 21380 21391 21437 21475
$TABF 571#
$TTCHR 567#
$TWCNT 563#
$TYPNB 569#
$UMODE 446#
$UORTX 486#
$USRHL 490#
$UUOER 487# 528
$VTF 573#
%ACS1A 21345# 21345 21372 21376 21393 21399
%ACTFL 520#
%ACTUL 521#
%CNTE 21381# 21381 21385 21400
%COREC 519#
%CORFL 518# SEQ 0624
%DISCR 522#
%EE1 21386# 21386 21388 21462
%EE1A 21389# 21389 21430 21471
%EE2 21392# 21392 21397 21460
%EE2A 21398# 21398 21454
%ERAC0 21265 21330# 21330 21346 21384 21416 21428 21444 21520
%ERAC1 21266 21331# 21331 21347 21383 21387 21390 21396 21508
%ERAC2 21267 21332# 21332 21382 21507
%ERFST 21353# 21353 21355
%ERHI1 661#
%ERHI2 662#
%ERHI3 663#
%ERMOR 21280 21318 21322 21485 21491#
%ERMS1 21350# 21526
%ERMS2 21371#
%ERR2 21405 21449 21458#
%ERR4 21422 21475#
%ERRB 21417# 21472
%ERRB1 21437# 21465
%ERRC 21433 21451 21456 21467 21477 21481#
%ERRS1 21342 21494# 21525
%ERRS2 21507#
%ERRS4 21349 21523#
%ERRS5 21511 21515 21520#
%ERRS6 21518 21528#
%RAND 21371# 21371 21374 21445
.JB41 394#
.JBAPR 394#
.JBCNI 394#
.JBDDT 394#
.JBFF 394#
.JBOPC 394#
.JBREL 394#
.JBREN 394#
.JBSA 394#
.JBSYM 394#
.JBTPC 394#
.JBUSY 394#
.JBUUO 394#
.JBVER 394#
ADSBSM 18436# 18478 18526 18576 18624 18675 18725 18775 18823
APRID 394# SEQ 0625
BCIO 394#
BCIOB 394#
BSIO 394#
BSIOB 394#
CFLUSH 354#
CINVAL 353#
CLOKOP 348#
CLRPT 394#
CWRTBI 355#
DROPDV 315# 773
EERR 49# 2789 2791 2877 3759 3792 3871 3873 4500 4502 4609 4642 4918 4920
4954 4956 5244 5735 5740 6026 6351 6641 9944 9946 9985 9987 10514 10516
10763 10799 15300 15302 15341 15343 15382 15384 15421 15423 15462 15464 15500 15502
15541 15543 15582 15584 15623 15625 15664 15666 15703 15705 15743 15745 15783 15785
15824 15826 15865 15867 15903 15905 16420 16581 16888 17046 17835 17988 18492 18638
18640 18689 18837 18839
EERRI 51# 2833 2918 2958 3011 3024 3037 3050 3063 3076 3089 3102 3115 3128
3184 3197 3210 3223 3236 3249 3262 3275 3288 3301 3976 4362 4778 9688
10264 10552 11768 11885 11923 12121 12160 12239 12244 12468 12549 12630 12908 12992
13070 13147 13413 13490 13608 13646 13885 13964 14035 14073 14324 14404 14482 14524
14562 14806 14881 14959 14999 15037 18877 18917 20500
EERRM 50# 4296 4330 4676 4744 4746 5113 5157 5159 5203 5205 5317 5319 5358
5360 16062 16064 16378 16380 16541 16543 16695 16697 16848 16850 17006 17008 17162
17164 17318 17320 17478 17480 17642 17644 17948 17950 18102 18104 18266 18268 18426
18428 18739
ENDUUO 361# 476
EOPUUO 362# 478
ER 46# 1148 1159 1170 1181 1192 1203 1214 1225 3599 3635 4007 4013 4018
4023 4221 4223 4225 4228 5435 5437 5472 5474 5509 5511 5547 5549 5585
5587 5623 5625 5660 5662 5697 5699 5738 5780 5818 5820 5864 5904 5906
5949 5988 6022 6024 6065 6104 6106 6146 6192 6196 6237 6239 6312 6314
6349 6384 6386 6459 6461 6530 6601 6639 6716 6718 6722 6764 6766 6770
6814 6816 6820 6867 6909 6911 6951 6953 6995 6997 7040 7042 7190 7192
7231 7233 7274 7314 7316 7354 7356 7361 7403 7405 7409 7454 7456 7495
7497 7534 7536 7574 7576 7616 7618 7655 7657 7696 7698 7703 7745 7783
7785 7826 7864 7866 7903 7905 7942 7944 7982 7984 8026 8028 8065 8067
8104 8106 8147 8190 8230 8271 8308 8310 8347 8349 8386 8388 8426 8428
8465 8467 8504 8506 8544 8546 8584 8586 8625 8627 8667 8669 8708 8711
8753 8795 8842 8885 8928 8936 8977 8985 9028 9069 9104 9136 9173 9211
9246 9252 9288 9294 9336 9379 9388 9390 9392 9395 9397 9399 9435 9479
9525 9570 9612 9648 9686 9723 9757 9797 9838 9871 9904 9942 9983 10026
10065 10108 10152 10189 10224 10262 10300 10333 10372 10412 10445 10476 10512 10550
10591 10635 10679 10723 10761 10797 10837 10877 10916 10957 10999 11039 11076 11114
11154 11764 11766 11803 11805 11842 11844 11881 11883 11919 11921 11958 11960 11998
12000 12038 12040 12078 12080 12117 12119 12156 12158 12197 12199 12242 12285 12287
12335 12379 12381 12427 12464 12466 12505 12507 12545 12547 12584 12586 12626 12628
12665 12667 12713 12715 12760 12762 12808 12810 12815 12861 12863 12904 12906 12941
12943 12988 12990 13027 13029 13066 13068 13105 13107 13143 13145 13184 13186 13190
13232 13234 13272 13274 13278 13318 13320 13324 13366 13368 13372 13409 13411 13448
13450 13486 13488 13525 13527 13564 13566 13604 13606 13642 13644 13681 13683 13721
13723 13761 13763 13802 13804 13843 13845 13881 13883 13920 13922 13960 13962 14001
14031 14033 14069 14071 14108 14110 14153 14196 14240 14284 14320 14322 14360 14362
14400 14402 14439 14441 14478 14480 14520 14522 14558 14560 14598 14600 14640 14642 SEQ 0626
14680 14682 14721 14723 14764 14766 14802 14804 14841 14843 14877 14879 14916 14918
14955 14957 14995 14997 15033 15035 15073 15075 15079 15122 15124 15161 15163 15202
15204 15208 15253 15255 15259 18958 19002 19203 20168 20175 20180 20307
ERM 47# 19095 19100 19103
ERMM 48# 20310 20399 20503 20603 20698 20736
ERR 42# 1269 1271 2835 4465 4467 4536 4538 4575 4881 4883 5439 5476 5513
5551 5589 5627 5664 5701 5703 5777 5782 5822 5861 5866 5908 5946 5951
5985 5990 6062 6067 6108 6148 6152 6194 6198 6241 6275 6279 6317 6388
6423 6463 6497 6532 6567 6603 6677 6720 6725 6768 6773 6818 6823 6864
6869 6913 6955 6999 7044 7081 7117 7154 7194 7235 7271 7276 7318 7358
7364 7407 7412 7458 7499 7538 7578 7620 7659 7700 7706 7742 7747 7787
7823 7828 7868 7907 7946 7986 8030 8069 8108 8144 8149 8187 8192 8228
8232 8268 8273 8312 8351 8390 8430 8469 8508 8548 8588 8629 8671 8713
8715 8755 8757 8797 8799 8844 8846 8887 8889 8930 8932 8938 8940 8979
8981 8987 8989 9030 9032 9381 9383 9437 9439 9481 9483 9527 9529 9572
9574 9614 9616 9650 9652 10028 10030 10067 10069 10110 10112 10154 10156 10191
10193 10226 10228 10593 10595 10637 10639 10681 10683 10725 10727 15944 16104 16262
16735 17203 17361 17521 17682 18145 18309 19244 19280 19318 19355 19392 19430 19467
19504 19541 19577 19612 19622 19658 19665 19701 19708 19746 19755 19793 19803 19842
19850 19854 19889 19903 19945 19953 19988 19996 20031 20039 20074 20082 20113 20119
20125 20130 20135 20170 20172 20177 20182 20217 20223 20259 20264 20396 20449 20558
20600 20650 20652
ERRHLT 249# 19132 21501
ERRI 44# 2879 2920 2960 3013 3026 3039 3052 3065 3078 3091 3104 3117 3130
3186 3199 3212 3225 3238 3251 3264 3277 3290 3303 3978 4396 4432 4812
4847 4994 5070 5278 9071 9106 9175 9213 9248 9254 9290 9296 9338 9725
9759 9799 9840 9873 9906 10302 10335 10374 10414 10447 10478 10839 10879 10918
10959 11001 11041 11078 11116 11156 11193 11232 11269 11308 11344 11383 11422 11461
11500 11537 11577 11615 11654 11694 11730 11807 11846 11962 12002 12042 12082 12201
12289 12332 12337 12383 12424 12429 12509 12588 12669 12717 12764 12812 12818 12865
12945 13031 13109 13188 13193 13236 13276 13281 13322 13327 13370 13375 13452 13529
13568 13685 13725 13765 13806 13847 13924 14112 14150 14155 14193 14198 14237 14242
14281 14286 14364 14443 14602 14644 14684 14725 14768 14845 14920 15077 15082 15126
15165 15206 15211 15257 15262 15982 16144 16301 16459 16618 16773 16929 17085 17242
17398 17562 17720 17872 18026 18186 18346 18590 18789 18960 19004 20356
ERRM 43# 4262 4709 4711 16022 16184 16221 16223 16340 16500 16657 16811 16968 17124
17281 17439 17603 17758 17795 17797 17911 18065 18227 18387 18540 19199 19237 19246
19274 19282 19311 19320 19348 19357 19385 19394 19422 19432 19460 19469 19497 19506
19534 19543 19571 19579 19607 19614 19624 19652 19660 19667 19695 19703 19710 19738
19748 19757 19785 19795 19805 19833 19838 19844 19856 19884 19891 19896 19905 19910
19938 19947 19951 19981 19990 19994 20024 20033 20037 20067 20076 20080 20109 20115
20121 20127 20132 20137 20165 20210 20219 20225 20253 20261 20268 20451 20556
ERROR 45# 833 839 845 851 857 863 869 875 881 887 932 934 939
941 946 948 953 955 960 962 967 969 974 976 981 983 988
990 995 997 1042 1044 1050 1052 1058 1060 1066 1068 1074 1076 1082
1084 1090 1092 1098 1100 1150 1152 1154 1161 1163 1165 1172 1174 1176
1183 1185 1187 1194 1196 1198 1205 1207 1209 1216 1218 1220 1227 1229
1231 1321 1327 1329 1358 1364 1366 1411 1419 1427 1435 1494 1497 1500
1505 1534 1537 1540 1545 1574 1577 1580 1585 1644 1647 1650 1653 1657
1660 1666 1669 1672 1675 1679 1682 1716 1719 1723 1755 1758 1761 1765
1798 1801 1805 1837 1840 1845 1884 1890 1926 1959 1962 1967 1970 2002
2005 2011 2044 2048 2051 2084 2088 2091 2095 2135 2175 2177 2215 2217
2258 2260 2299 2301 2342 2344 2381 2383 2425 2427 2467 2469 2510 2512 SEQ 0627
2550 2552 2598 2600 2635 2637 2672 2674 2707 2709 2753 2755 3348 3350
3411 3413 3427 3429 3443 3445 3459 3461 3475 3477 3491 3493 3507 3509
3523 3525 3539 3541 3555 3557 3676 3678 3718 3720 3831 3907 3940 3942
4051 4080 4112 4149 4182 4217 5033 5402 19038 19064 20885 20925 20958 20999
21094 21098 21165 21167 21212 21214 21255
FATAL 248#
FRD36 390#
FRD8 391#
FREAD 389#
FSELEC 388#
GET 232#
GO 229# 20784 20851
HALT 77 78 79 80 81 234# 497
JEN 236#
JRSTF 235#
LOOP 112# 891 1001 1105 1236 1272 1330 1367 1440 1506 1546 1586 1686 1724
1766 1806 1846 1895 1927 1971 2012 2052 2096 2136 2178 2218 2261 2302
2345 2384 2428 2470 2513 2553 2601 2638 2675 2710 2756 2792 2836 2880
2921 2961 3135 3308 3351 3564 3600 3636 3679 3721 3760 3793 3832 3874
3908 3943 3979 4024 4052 4081 4113 4150 4183 4229 4263 4297 4331 4363
4397 4433 4468 4503 4539 4576 4610 4643 4677 4712 4747 4779 4813 4848
4884 4921 4957 4995 5034 5071 5114 5160 5206 5245 5279 5320 5361 5403
5440 5477 5514 5552 5590 5628 5665 5704 5741 5783 5823 5867 5909 5953
5991 6027 6068 6109 6153 6200 6243 6280 6318 6352 6389 6424 6464 6498
6533 6568 6604 6642 6678 6726 6774 6824 6871 6914 6956 7000 7045 7082
7118 7155 7195 7236 7277 7319 7365 7413 7459 7500 7539 7579 7621 7660
7707 7748 7788 7829 7869 7908 7947 7987 8031 8070 8109 8150 8193 8233
8274 8313 8352 8391 8431 8470 8509 8549 8589 8630 8672 8716 8758 8800
8847 8890 8941 8990 9033 9072 9339 9400 9484 9530 9575 9689 9800 9841
9874 9947 10031 10113 10157 10265 10375 10415 10517 10553 10596 10640 10684 10728
10764 10800 10840 10880 10919 11194 11233 11270 11309 11345 11384 11423 11462 11501
11538 11578 11616 11655 11695 11731 11769 11808 11847 11886 11924 11963 12003 12043
12083 12122 12161 12202 12245 12290 12338 12384 12431 12469 12510 12550 12589 12631
12670 12718 12765 12820 12867 12909 12946 12993 13032 13071 13110 13148 13194 13237
13282 13328 13376 13414 13453 13491 13530 13569 13609 13647 13686 13726 13766 13807
13848 13886 13925 13965 14036 14074 14113 14156 14199 14243 14287 14325 14365 14405
14444 14483 14525 14563 14603 14645 14685 14726 14769 14807 14846 14882 14921 14960
15000 15038 15083 15127 15166 15212 15263 15303 15344 15385 15424 15465 15503 15544
15585 15626 15667 15706 15746 15786 15827 15868 15906 15945 15983 16023 16065 16105
16145 16185 16224 16263 16302 16341 16381 16421 16460 16501 16544 16582 16619 16658
16698 16736 16774 16812 16851 16889 16930 16969 17009 17047 17086 17125 17165 17204
17243 17282 17321 17362 17399 17440 17481 17522 17563 17604 17645 17683 17721 17759
17798 17836 17873 17912 17951 17989 18027 18066 18105 18146 18187 18228 18269 18310
18347 18388 18429 18493 18541 18591 18641 18690 18740 18790 18840 18878 18918 18961
19005 20886 20926 20959 21000 21103 21172
MAPADR 371#
MAPCNK 372#
MAPMEM 368#
MAPPNT 374#
MAPSET 373#
MEMSEG 370#
MEMZRO 369#
MODPCP 381# SEQ 0628
MODPCU 380#
MRANDO 129# 19230 19267 19304 19341 19378 19415 19453 19490 19527 19564 19600 19645 19688
19731 19778 19826 19877 19931 19974 20017 20060 20102 20158 20203 20246
MSETUP 118# 19220 19257 19294 19331 19368 19405 19443 19480 19517 19554 19590 19635 19678
19721 19768 19816 19867 19921 19964 20007 20050 20092 20148 20193 20236
MTROP 349#
NAME 7# 10
PBELL 324# 21505
PCRL 318# 21301 21312 21481
PCRL2 322#
PCRL2F 323#
PCRLF 319#
PFORCE 326#
PGMINT 242# 725
PJRST 233#
PMSG 328# 19148 19154 21282 21288 21292 21358 21362 21408 21412 21424 21435 21440 21452
21458 21469
PMSGF 331# 21528
PNT1 284#
PNT11 298#
PNT11F 299#
PNT1F 285#
PNT2 286# 21411
PNT2F 287#
PNT3 288#
PNT3F 289#
PNT4 290#
PNT4F 291#
PNT5 292#
PNT5F 293#
PNT6 294# 21286 21291 21295 21305 21366 21463
PNT6F 295#
PNT7 296#
PNT7F 297#
PNTA 270# 21308 21476
PNTADF 301#
PNTADR 300#
PNTAF 271#
PNTAL 272#
PNTALF 273# 19129 19131
PNTCHF 283#
PNTCHR 282#
PNTCI 280#
PNTCIF 281#
PNTCW 316#
PNTCWF 317#
PNTDCF 309#
PNTDEC 308# 19153 21361
PNTDS 310#
PNTDSF 311#
PNTHW 304# 21417 21431 21447 21455
PNTHWF 305#
PNTMSF 277# SEQ 0629
PNTMSG 276# 21296
PNTNM 312# 21277 21354
PNTOCF 307#
PNTOCS 306#
PNTOCT 302#
PNTOTF 303#
PNTSIX 313#
PNTSXF 314#
PSIXL 274#
PSIXLF 275#
PSIXM 278# 19149 19155 21283 21289 21293 21359 21363 21409 21413 21425 21436 21441 21453
21459 21470
PSIXMF 279# 21529
PSP 320#
PSPF 321#
PUT 231#
RANDM1 153# 20490 20544 20642 20877 20913 20950 20984 21042 21074 21136 21155
RANDOM 106# 818 917 1025 1129 1261 1313 1350 1393 1486 1526 1566 1613 1709
1748 1791 1830 1870 1918 1952 1995 2036 2076 2120 2162 2203 2244 2287
2328 2371 2411 2455 2496 2539 2579 2626 2662 2699 2734 2780 2817 2861
2906 2946 2987 3160 3334 3378 3587 3623 3661 3703 3744 3784 3816 3855
3897 3931 3966 4104 4136 4174 4208 4253 4287 4321 4355 4387 4421 4457
4492 4527 4563 4600 4634 4667 4700 4736 4771 4803 4837 4873 4909 4946
4982 5018 5058 5096 5140 5186 5230 5269 5303 5344 5385 5427 5464 5501
5538 5576 5614 5652 5689 5728 5766 5808 5849 5893 5936 5977 6015 6051
6094 6135 6179 6226 6267 6304 6342 6376 6413 6448 6488 6522 6559 6592
6632 6668 6706 6754 6802 6851 6899 6941 6984 7029 7071 7109 7144 7182
7223 7262 7303 7345 7392 7440 7485 7526 7566 7605 7647 7686 7733 7774
7814 7855 7895 7934 7974 8013 8057 8096 8135 8176 8219 8259 8300 8339
8378 8418 8457 8496 8535 8575 8615 8656 8699 8743 8787 8830 8874 8917
8966 9017 9061 9326 9367 9470 9513 9557 9677 9786 9826 9932 10017 10095
10140 10253 10360 10401 10504 10543 10581 10622 10666 10710 10754 10790 10826 10866
10906 11029 11066 11181 11220 11259 11296 11335 11371 11410 11449 11488 11527 11564
11604 11642 11681 11721 11757 11795 11834 11873 11912 11950 11989 12029 12069 12109
12148 12187 12228 12273 12318 12366 12412 12457 12495 12536 12576 12615 12657 12700
12748 12793 12848 12897 12933 12981 13019 13058 13097 13136 13174 13220 13263 13308
13354 13402 13440 13479 13517 13556 13595 13635 13673 13712 13752 13792 13833 13874
13912 13951 13991 14020 14062 14100 14139 14182 14225 14269 14313 14351 14391 14431
14470 14509 14551 14589 14629 14671 14711 14752 14795 14833 14870 14908 14947 14986
15026 15064 15109 15153 15192 15240 15291 15329 15370 15411 15450 15491 15529 15570
15611 15652 15693 15732 15772 15812 15853 15894 15932 15971 16009 16053 16091 16131
16171 16212 16250 16289 16328 16368 16407 16447 16486 16528 16570 16608 16645 16685
16724 16762 16800 16839 16877 16917 16956 16996 17035 17073 17112 17152 17191 17230
17269 17308 17347 17388 17425 17466 17507 17548 17589 17630 17671 17709 17747 17785
17824 17862 17899 17938 17977 18015 18053 18092 18131 18172 18213 18254 18295 18336
18373 18414 18470 18517 18567 18615 18667 18716 18766 18814 18866 18906 18947 18990
19076
RDAPR 394#
RDCSB 394#
RDCSTM 394#
RDEBR 394#
RDHSB 394#
RDINT 394# SEQ 0630
RDIO 394#
RDIOB 394#
RDPI 394#
RDPUR 394#
RDSPB 394#
RDTIM 394#
RDUBR 394#
RTN 230# 484
S 160# 162 166 195 197 206 209 224 225 227 238 240 244 246
251 255 394 399 405 432 434 452 454 472 474 503 505 523
525 543 545 553 555 576 581 607 609 616 618 624 626 632
634 638 640 645 647 651 653 657 659 665 667 670 672 676
678 682 684 688 690 694 696 701 703 707 709 713 715 717
719
SETUP 91# 804 903 1011 1115 1247 1299 1336 1379 1472 1512 1552 1599 1695
1734 1777 1816 1856 1904 1938 1981 2022 2062 2106 2148 2189 2230 2273
2314 2357 2397 2441 2482 2525 2565 2612 2648 2685 2720 2766 2803 2847
2892 2932 2973 3146 3320 3364 3573 3609 3647 3689 3730 3770 3802 3841
3883 3917 3952 3988 4034 4063 4090 4122 4160 4194 4239 4273 4307 4341
4373 4407 4443 4478 4513 4549 4586 4620 4653 4686 4722 4757 4789 4823
4859 4895 4932 4968 5004 5044 5082 5126 5172 5216 5255 5289 5330 5371
5413 5450 5487 5524 5562 5600 5638 5675 5714 5752 5793 5834 5878 5921
5963 6001 6037 6079 6120 6164 6211 6253 6290 6328 6362 6399 6434 6474
6508 6545 6578 6618 6654 6691 6739 6787 6836 6884 6926 6969 7014 7057
7095 7130 7168 7209 7248 7289 7331 7378 7426 7471 7512 7552 7591 7633
7672 7719 7760 7800 7841 7881 7920 7960 7999 8043 8082 8121 8162 8205
8245 8286 8325 8364 8404 8443 8482 8521 8561 8601 8642 8685 8728 8773
8815 8860 8903 8952 9003 9047 9084 9119 9151 9189 9225 9267 9312 9353
9413 9456 9499 9543 9588 9630 9663 9701 9739 9772 9812 9853 9886 9918
9960 10003 10046 10081 10126 10170 10205 10239 10277 10315 10346 10387 10427 10458
10490 10529 10566 10608 10652 10696 10740 10776 10812 10852 10892 10932 10974 11015
11052 11090 11130 11167 11206 11245 11282 11321 11357 11396 11435 11474 11513 11550
11590 11628 11667 11707 11743 11781 11820 11859 11898 11936 11975 12015 12055 12095
12134 12173 12214 12258 12303 12351 12397 12443 12481 12522 12562 12601 12643 12685
12733 12778 12833 12883 12919 12967 13005 13044 13083 13122 13160 13206 13249 13294
13339 13388 13426 13465 13503 13542 13581 13621 13659 13698 13738 13778 13819 13860
13898 13937 13977 14006 14048 14086 14125 14168 14211 14255 14299 14337 14377 14417
14456 14495 14537 14575 14615 14657 14697 14738 14781 14819 14856 14894 14933 14972
15012 15050 15095 15139 15178 15225 15277 15315 15356 15397 15436 15477 15515 15556
15597 15638 15679 15718 15758 15798 15839 15880 15918 15957 15995 16039 16077 16117
16157 16198 16236 16275 16314 16354 16393 16433 16472 16514 16556 16594 16631 16671
16710 16748 16786 16825 16863 16903 16942 16982 17021 17059 17098 17138 17177 17216
17255 17294 17333 17374 17411 17452 17493 17534 17575 17616 17657 17695 17733 17771
17810 17848 17885 17924 17963 18001 18039 18078 18117 18158 18199 18240 18281 18322
18359 18400 18456 18503 18553 18601 18653 18702 18752 18800 18852 18892 18933 18976
19020 19047
SETUP1 138# 20283 20327 20371 20417 20468 20522 20575 20620 20670 20707 20863 20899 20936
20970 21028 21122 21184 21227
SIXBTZ 337#
SWITCH 343# 736 19117 21278 21320 21340 21492
TIOE 394#
TIOEB 394#
TION 394# SEQ 0631
TIONB 394#
TTALTM 264# 21494
TTICHR 257#
TTICLR 267#
TTICNV 262#
TTIDEC 261#
TTINO 259#
TTIOCT 260#
TTIYES 258#
TTLOOK 263#
TTSIXB 265#
TTYINP 266#
WRAPR 394#
WRCSB 394#
WRCSTM 394#
WREBR 394#
WRHSB 394#
WRINT 394#
WRIO 394#
WRIOB 394#
WRPI 394#
WRPUR 394#
WRSPB 394#
WRTIM 394#
WRUBR 394#
ADD 820 919 1027 1131 1263 1315 1352 1395 1488 1528 1568 1615 1711 1750
1793 1832 1872 1920 1954 1997 2038 2078 2122 2164 2205 2246 2289 2330 SEQ 0632
2373 2413 2457 2498 2541 2581 2628 2664 2701 2736 2782 2819 2863 2908
2948 2989 3162 3336 3380 3589 3625 3663 3705 3746 3786 3818 3857 3899
3933 3968 4106 4110 4138 4143 4144 4145 4146 4147 4176 4180 4210 4214
4215 4255 4289 4323 4357 4389 4423 4459 4494 4529 4565 4602 4636 4669
4702 4738 4773 4805 4839 4875 4911 4948 4984 5020 5060 5067 5098 5142
5188 5232 5241 5271 5305 5314 5346 5355 5387 5429 5466 5503 5540 5578
5616 5654 5691 5730 5768 5810 5851 5895 5938 5979 6017 6053 6096 6137
6181 6228 6269 6306 6344 6378 6415 6450 6490 6524 6561 6594 6634 6670
6708 6756 6804 6853 6901 6943 6986 7031 7073 7111 7146 7184 7225 7264
7305 7347 7394 7442 7487 7528 7568 7607 7649 7688 7735 7776 7816 7857
7897 7936 7976 8015 8059 8098 8137 8178 8221 8261 8302 8341 8380 8420
8459 8498 8537 8577 8617 8658 8701 8745 8789 8832 8876 8919 8968 9019
9063 9328 9369 9376 9431 9472 9515 9521 9559 9566 9609 9679 9683 9720
9788 9794 9828 9835 9934 10019 10097 10142 10255 10362 10403 10506 10545 10583
10624 10668 10712 10756 10792 10828 10868 10908 11031 11068 11183 11222 11261 11298
11337 11373 11412 11451 11490 11529 11566 11606 11644 11683 11723 11759 11797 11836
11875 11914 11952 11991 12031 12071 12111 12150 12189 12230 12275 12320 12368 12414
12459 12497 12538 12578 12617 12659 12702 12750 12795 12850 12899 12935 12983 13021
13060 13099 13138 13176 13222 13265 13310 13356 13404 13442 13481 13519 13558 13597
13637 13675 13714 13754 13794 13835 13876 13914 13953 13993 14022 14064 14102 14141
14184 14227 14271 14315 14353 14393 14433 14472 14511 14553 14591 14631 14673 14713
14754 14797 14835 14872 14910 14949 14988 15028 15066 15111 15155 15194 15242 15293
15331 15372 15413 15452 15493 15531 15572 15613 15654 15695 15734 15774 15814 15855
15896 15934 15973 16011 16055 16093 16133 16173 16214 16252 16291 16330 16370 16409
16449 16488 16530 16572 16610 16647 16687 16726 16764 16802 16841 16879 16919 16958
16998 17037 17075 17114 17154 17193 17232 17271 17310 17349 17390 17427 17468 17509
17550 17591 17632 17673 17711 17749 17787 17826 17864 17901 17940 17979 18017 18055
18094 18133 18174 18215 18256 18297 18338 18375 18416 18472 18490 18519 18569 18617
18669 18718 18768 18816 18868 18872 18908 18912 18949 18955 18992 18999 19078 19167
19177 19231 19268 19305 19342 19379 19416 19454 19491 19528 19565 19601 19646 19689
19732 19779 19827 19878 19932 19975 20018 20061 20103 20159 20204 20247 20392 20438
20489 20492 20543 20546 20641 20644 20758 20809 20879 20915 20952 20986 21044 21077
21138 21157 21163
ADDB 4463 4498 4534 18636 20262
ADDI 4360 4394 4430 18588 19151 20212 20724 21060 21069 21070 21091
ADDM 4260 4294 4328 18538 20254
AND 1714 1717 1721 2171 2211 2252 2547 3340 3384 4844 5390 5774 7448 8662
9024 9332 11572 12194 15861 18481 18488 18529 18536 18579 18586 18627 18634 18678
18685 18728 18735 18778 18785 18826 18833 19123 20761 20812 20918 20989 21047 21141
ANDB 15339 19351
ANDCA 1796 1799 1803 2336 2339 11689 12622 14028 14278
ANDCAB 15380 19539
ANDCAI 11230
ANDCAM 2465 19499
ANDCB 2081 2082 2085 2086 2089 2092 2093
ANDCBB 15621 19501
ANDCBI 11459
ANDCBM 2548 19574
ANDCM 2000 2003 2007 2008 2295 5814 5858 5901 6141 6187 6712 6810 6905 6992
11418 11650 12281 12329 12376 12708 12802 13362 15249 15578 15820
ANDCMB 15460 20117
ANDCMI 11306
ANDCMM 2508 19500 SEQ 0633
ANDI 3903 3974 11191 12502 13957 14147 14234 19118 20820 21145 21402 21439
ANDM 2423 19277
AOBJN 18915 18956 19001 19062 19206 19248 19284 19322 19359 19396 19434 19471 19508 19545
19581 19626 19669 19712 19759 19807 19858 19912 19955 19998 20041 20084 20139 20184
20227 20270 20300 20313 20344 20358 20388 20402 20434 20454 20485 20506 20539 20561
20592 20605 20637 20655 21081 21086 21100 21201 21217 21244 21258
AOBJP 18875 18957 19000 19036
AOJ 9684 10548 20689 20726
AOJA 9685 19090 20692 20729 20767 20818 21311
AOJE 9721 9756
AOJG 9755 9796 9836 9869 9902
AOJGE 9870
AOJL 9795 9837
AOJLE 9903
AOJN 9722
AOS 482 9377 10510 20166 20778 20844 21268 21269 21333 21336 21512 21513
AOSA 9378
AOSE 9433 9478
AOSG 9477 9524 9568 9611 9646
AOSGE 9647
AOSL 9523 9569
AOSLE 9610
AOSN 9434
ASCII 583 585 588 589 590 591 593 594 595 596 597 598 600 601
602 1148 1159 1170 1181 1192 1203 1214 1225 3599 3635 4007 4013 4018
4023 4221 4223 4225 4228 5435 5437 5472 5474 5509 5511 5547 5549 5585
5587 5623 5625 5660 5662 5697 5699 5738 5780 5818 5820 5864 5904 5906
5949 5988 6022 6024 6065 6104 6106 6146 6192 6196 6237 6239 6312 6314
6349 6384 6386 6459 6461 6530 6601 6639 6716 6718 6722 6764 6766 6770
6814 6816 6820 6867 6909 6911 6951 6953 6995 6997 7040 7042 7190 7192
7231 7233 7274 7314 7316 7354 7356 7361 7403 7405 7409 7454 7456 7495
7497 7534 7536 7574 7576 7616 7618 7655 7657 7696 7698 7703 7745 7783
7785 7826 7864 7866 7903 7905 7942 7944 7982 7984 8026 8028 8065 8067
8104 8106 8147 8190 8230 8271 8308 8310 8347 8349 8386 8388 8426 8428
8465 8467 8504 8506 8544 8546 8584 8586 8625 8627 8667 8669 8708 8711
8753 8795 8842 8885 8928 8936 8977 8985 9028 9069 9104 9136 9173 9211
9246 9252 9288 9294 9336 9379 9388 9390 9392 9395 9397 9399 9435 9479
9525 9570 9612 9648 9686 9723 9757 9797 9838 9871 9904 9942 9983 10026
10065 10108 10152 10189 10224 10262 10300 10333 10372 10412 10445 10476 10512 10550
10591 10635 10679 10723 10761 10797 10837 10877 10916 10957 10999 11039 11076 11114
11154 11764 11766 11803 11805 11842 11844 11881 11883 11919 11921 11958 11960 11998
12000 12038 12040 12078 12080 12117 12119 12156 12158 12197 12199 12242 12285 12287
12335 12379 12381 12427 12464 12466 12505 12507 12545 12547 12584 12586 12626 12628
12665 12667 12713 12715 12760 12762 12808 12810 12815 12861 12863 12904 12906 12941
12943 12988 12990 13027 13029 13066 13068 13105 13107 13143 13145 13184 13186 13190
13232 13234 13272 13274 13278 13318 13320 13324 13366 13368 13372 13409 13411 13448
13450 13486 13488 13525 13527 13564 13566 13604 13606 13642 13644 13681 13683 13721
13723 13761 13763 13802 13804 13843 13845 13881 13883 13920 13922 13960 13962 14001
14031 14033 14069 14071 14108 14110 14153 14196 14240 14284 14320 14322 14360 14362
14400 14402 14439 14441 14478 14480 14520 14522 14558 14560 14598 14600 14640 14642
14680 14682 14721 14723 14764 14766 14802 14804 14841 14843 14877 14879 14916 14918
14955 14957 14995 14997 15033 15035 15073 15075 15079 15122 15124 15161 15163 15202
15204 15208 15253 15255 15259 18958 19002 19203 20168 20175 20180 20307 SEQ 0634
ASCIZ 776 19127 21296
ASH 816 817 915 916 1023 1024 1127 1128 1259 1260 1311 1312 1348 1349
1391 1392 1484 1485 1524 1525 1564 1565 1611 1612 1707 1708 1746 1747
1789 1790 1828 1829 1868 1869 1916 1917 1950 1951 1993 1994 2034 2035
2074 2075 2118 2119 2160 2161 2201 2202 2242 2243 2285 2286 2326 2327
2369 2370 2409 2410 2453 2454 2494 2495 2537 2538 2577 2578 2624 2625
2660 2661 2697 2698 2732 2733 2778 2779 2815 2816 2859 2860 2904 2905
2944 2945 2985 2986 3158 3159 3332 3333 3376 3377 3585 3586 3621 3622
3659 3660 3701 3702 3742 3743 3782 3783 3814 3815 3853 3854 3895 3896
3929 3930 3964 3965 4000 4001 4004 4010 4016 4021 4046 4047 4049 4075
4076 4078 4102 4103 4134 4135 4172 4173 4206 4207 4251 4252 4285 4286
4319 4320 4353 4354 4385 4386 4419 4420 4455 4456 4490 4491 4525 4526
4561 4562 4598 4599 4632 4633 4665 4666 4698 4699 4734 4735 4769 4770
4801 4802 4835 4836 4871 4872 4907 4908 4944 4945 4980 4981 5016 5017
5056 5057 5094 5095 5138 5139 5184 5185 5228 5229 5267 5268 5301 5302
5342 5343 5383 5384 5425 5426 5462 5463 5499 5500 5536 5537 5574 5575
5612 5613 5650 5651 5687 5688 5726 5727 5764 5765 5805 5806 5846 5847
5890 5891 5933 5934 5975 5976 6013 6014 6049 6050 6091 6092 6132 6133
6176 6177 6223 6224 6265 6266 6302 6303 6340 6341 6374 6375 6411 6412
6446 6447 6486 6487 6520 6521 6557 6558 6590 6591 6630 6631 6666 6667
6703 6704 6751 6752 6799 6800 6848 6849 6896 6897 6938 6939 6981 6982
7026 7027 7069 7070 7107 7108 7142 7143 7180 7181 7221 7222 7260 7261
7301 7302 7343 7344 7390 7391 7438 7439 7483 7484 7524 7525 7564 7565
7603 7604 7645 7646 7684 7685 7731 7732 7772 7773 7812 7813 7853 7854
7893 7894 7932 7933 7972 7973 8011 8012 8055 8056 8094 8095 8133 8134
8174 8175 8217 8218 8257 8258 8298 8299 8337 8338 8376 8377 8416 8417
8455 8456 8494 8495 8533 8534 8573 8574 8613 8614 8654 8655 8697 8698
8740 8741 8785 8786 8827 8828 8872 8873 8915 8916 8964 8965 9015 9016
9059 9060 9096 9097 9131 9132 9163 9164 9201 9202 9237 9238 9279 9280
9324 9325 9365 9366 9425 9426 9468 9469 9511 9512 9555 9556 9600 9601
9642 9643 9675 9676 9713 9714 9751 9752 9784 9785 9824 9825 9865 9866
9898 9899 9930 9931 9972 9973 10015 10016 10058 10059 10093 10094 10138 10139
10182 10183 10217 10218 10251 10252 10289 10290 10327 10328 10358 10359 10399 10400
10439 10440 10470 10471 10502 10503 10541 10542 10578 10579 10620 10621 10664 10665
10708 10709 10752 10753 10788 10789 10824 10825 10864 10865 10904 10905 10944 10945
10986 10987 11027 11028 11064 11065 11102 11103 11142 11143 11179 11180 11218 11219
11257 11258 11294 11295 11333 11334 11369 11370 11408 11409 11447 11448 11486 11487
11525 11526 11562 11563 11602 11603 11640 11641 11679 11680 11719 11720 11755 11756
11793 11794 11832 11833 11871 11872 11910 11911 11948 11949 11987 11988 12027 12028
12067 12068 12107 12108 12146 12147 12185 12186 12226 12227 12270 12271 12315 12316
12363 12364 12409 12410 12455 12456 12493 12494 12534 12535 12574 12575 12613 12614
12655 12656 12697 12698 12745 12746 12790 12791 12845 12846 12895 12896 12931 12932
12979 12980 13017 13018 13056 13057 13095 13096 13134 13135 13172 13173 13218 13219
13261 13262 13306 13307 13351 13352 13400 13401 13438 13439 13477 13478 13515 13516
13554 13555 13593 13594 13633 13634 13671 13672 13710 13711 13750 13751 13790 13791
13831 13832 13872 13873 13910 13911 13949 13950 13989 13990 14018 14019 14060 14061
14098 14099 14137 14138 14180 14181 14223 14224 14267 14268 14311 14312 14349 14350
14389 14390 14429 14430 14468 14469 14507 14508 14549 14550 14587 14588 14627 14628
14669 14670 14709 14710 14750 14751 14793 14794 14831 14832 14868 14869 14906 14907
14945 14946 14984 14985 15024 15025 15062 15063 15107 15108 15151 15152 15190 15191
15237 15238 15289 15290 15327 15328 15368 15369 15409 15410 15448 15449 15489 15490
15527 15528 15568 15569 15609 15610 15650 15651 15691 15692 15730 15731 15770 15771
15810 15811 15851 15852 15892 15893 15930 15931 15969 15970 16007 16008 16051 16052 SEQ 0635
16089 16090 16129 16130 16169 16170 16210 16211 16248 16249 16287 16288 16326 16327
16366 16367 16405 16406 16445 16446 16484 16485 16526 16527 16568 16569 16606 16607
16643 16644 16683 16684 16722 16723 16760 16761 16798 16799 16837 16838 16875 16876
16915 16916 16954 16955 16994 16995 17033 17034 17071 17072 17110 17111 17150 17151
17189 17190 17228 17229 17267 17268 17306 17307 17345 17346 17386 17387 17423 17424
17464 17465 17505 17506 17546 17547 17587 17588 17628 17629 17669 17670 17707 17708
17745 17746 17783 17784 17822 17823 17860 17861 17897 17898 17936 17937 17975 17976
18013 18014 18051 18052 18090 18091 18129 18130 18170 18171 18211 18212 18252 18253
18293 18294 18334 18335 18371 18372 18412 18413 18468 18469 18515 18516 18565 18566
18613 18614 18665 18666 18714 18715 18764 18765 18812 18813 18864 18865 18904 18905
18945 18946 18988 18989 19032 19033 19059 19060 20295 20296 20339 20340 20383 20384
20429 20430 20480 20481 20534 20535 20587 20588 20632 20633 20682 20683 20719 20720
20875 20876 20911 20912 20948 20949 20982 20983 21040 21041 21056 21134 21135 21196
21197 21239 21240
BLOCK 551 611 614 620 623 629 793 21325 21667
BYTE 599
CAI 10835
CAIA 10836
CAIE 10875 10915 20398 20502 20602 21429
CAIG 10956 10997 11037 11153 20813 20992 21146 21403 21415 21427 21443
CAIGE 11038 11112 20762 20779 20845 21310
CAIL 10955 10998 11074 11113 21373 21379 21432 21464 21517
CAILE 11075 11152 20691 20728 20764 20815
CAIN 10876 10914 13227 15117 20821 20832 21063 21394 21404 21421 21448 21450 21461 21466
CALL 729 774
CAM 10589
CAMA 10590
CAME 832 838 844 850 856 862 868 874 880 886 931 933 938 940
945 947 952 954 959 961 966 968 973 975 980 982 987 989
994 996 1041 1043 1049 1051 1057 1059 1065 1067 1073 1075 1081 1083
1089 1091 1097 1099 1149 1151 1153 1160 1162 1164 1171 1173 1175 1182
1184 1186 1193 1195 1197 1204 1206 1208 1215 1217 1219 1226 1228 1230
1268 1270 1326 1328 1363 1365 1410 1418 1426 1434 1493 1496 1499 1504
1533 1536 1539 1544 1573 1576 1579 1584 1643 1646 1649 1652 1656 1659
1665 1668 1671 1674 1678 1681 1715 1718 1722 1754 1757 1760 1764 1797
1800 1804 1836 1839 1844 1883 1889 1925 1958 1961 1966 1969 2001 2004
2010 2043 2047 2050 2083 2087 2090 2094 2134 2176 2216 2259 2300 2343
2382 2426 2468 2511 2551 2599 2636 2671 2673 2708 2754 2788 2790 2832
2834 2876 2878 2917 2919 2957 2959 3010 3012 3023 3025 3036 3038 3049
3051 3062 3064 3075 3077 3088 3090 3101 3103 3114 3116 3127 3129 3183
3185 3196 3198 3209 3211 3222 3224 3235 3237 3248 3250 3261 3263 3274
3276 3287 3289 3300 3302 3347 3349 3410 3412 3426 3428 3442 3444 3458
3460 3474 3476 3490 3492 3506 3508 3522 3524 3538 3540 3554 3556 3675
3677 3717 3719 3758 3791 3830 3870 3872 3906 3939 3941 3975 3977 4050
4079 4111 4148 4181 4216 4261 4295 4329 4361 4395 4431 4464 4466 4499
4501 4535 4537 4574 4608 4641 4675 4708 4710 4743 4745 4777 4811 4846
4880 4882 4917 4919 4953 4955 4993 5032 5069 5112 5156 5158 5204 5243
5277 5316 5318 5357 5359 5401 5438 5475 5512 5550 5588 5626 5663 5700
5734 5739 5776 5781 5821 5860 5865 5907 5945 5950 5984 5989 6025 6061
6066 6107 6147 6151 6193 6197 6240 6274 6278 6315 6350 6387 6422 6462
6496 6531 6566 6602 6640 6676 6719 6724 6767 6772 6817 6822 6863 6868
6912 6954 6998 7043 7080 7116 7153 7193 7234 7270 7275 7317 7357 7363
7406 7411 7457 7498 7537 7577 7619 7658 7699 7705 7741 7746 7786 7822 SEQ 0636
7827 7867 7906 7945 7985 8029 8068 8107 8143 8148 8186 8191 8227 8231
8267 8272 8311 8350 8389 8429 8468 8507 8547 8587 8628 8670 8712 8714
8754 8756 8796 8798 8843 8845 8886 8888 8929 8931 8937 8939 8978 8980
8986 8988 9029 9031 9070 9105 9137 9174 9212 9247 9253 9289 9295 9337
9380 9382 9389 9396 9436 9438 9480 9482 9526 9528 9571 9573 9613 9615
9649 9651 9687 9724 9758 9798 9839 9872 9905 9943 9945 9984 9986 10027
10029 10066 10068 10109 10111 10153 10155 10190 10192 10225 10227 10263 10301 10334
10373 10413 10446 10477 10513 10515 10551 10592 10594 10636 10638 10680 10682 10724
10726 10762 10798 10838 10878 10917 10958 11000 11040 11077 11115 11155 11192 11231
11268 11307 11343 11382 11421 11460 11499 11536 11576 11614 11653 11693 11729 11767
11806 11845 11884 11922 11961 12001 12041 12081 12120 12159 12200 12238 12243 12288
12331 12336 12382 12423 12428 12467 12508 12548 12587 12629 12668 12716 12763 12811
12817 12864 12907 12944 12991 13030 13069 13108 13146 13187 13192 13235 13275 13280
13321 13326 13369 13374 13412 13451 13489 13528 13567 13607 13645 13684 13724 13764
13805 13846 13884 13923 13963 14034 14072 14111 14149 14154 14192 14197 14236 14241
14280 14285 14323 14363 14403 14442 14481 14523 14561 14601 14643 14683 14724 14767
14805 14844 14880 14919 14958 14998 15036 15076 15081 15125 15164 15205 15210 15256
15261 15299 15301 15340 15342 15381 15383 15420 15422 15461 15463 15499 15501 15540
15542 15581 15583 15622 15624 15663 15665 15702 15704 15742 15744 15782 15784 15823
15825 15864 15866 15902 15904 15943 15981 16021 16061 16063 16103 16143 16183 16220
16222 16261 16300 16339 16377 16379 16419 16458 16499 16540 16542 16580 16617 16656
16694 16696 16734 16772 16810 16847 16849 16887 16928 16967 17005 17007 17045 17084
17123 17161 17163 17202 17241 17280 17317 17319 17360 17397 17438 17477 17479 17520
17561 17602 17641 17643 17681 17719 17757 17794 17796 17834 17871 17910 17947 17949
17987 18025 18064 18101 18103 18144 18185 18226 18265 18267 18308 18345 18386 18425
18427 18491 18539 18589 18637 18639 18688 18738 18788 18836 18838 18876 18916 18959
19003 19037 19063 19102 19198 19236 19243 19245 19273 19279 19281 19310 19317 19319
19347 19354 19356 19384 19391 19393 19421 19429 19431 19459 19466 19468 19496 19503
19505 19533 19540 19542 19570 19576 19578 19606 19611 19613 19621 19623 19651 19657
19659 19664 19666 19694 19700 19702 19707 19709 19737 19745 19747 19754 19756 19784
19792 19794 19802 19804 19832 19837 19841 19843 19849 19853 19855 19883 19888 19890
19895 19902 19904 19909 19937 19944 19946 19950 19952 19980 19987 19989 19993 19995
20023 20030 20032 20036 20038 20066 20073 20075 20079 20081 20108 20112 20114 20118
20120 20124 20126 20129 20131 20134 20136 20164 20169 20171 20176 20181 20209 20216
20218 20222 20224 20252 20258 20260 20263 20267 20355 20395 20448 20450 20499 20555
20557 20599 20649 20651 20783 20884 20924 20957 20991 20998 21093 21097 21164 21166
21211
CAMG 10634 10678 10759 21143
CAMGE 8922 10721 10760
CAML 8879 10633 10722 10795 19125 21050
CAMLE 8971 10677 10796
CAMN 831 837 843 849 855 861 867 873 879 885 1320 1357 2168 2174
2214 2254 2257 2298 2341 2380 2421 2424 2466 2506 2509 2549 2585 2597
2634 2668 2706 2740 2752 3593 3629 5202 5702 6454 7309 8836 9176 9205
9241 9297 9603 9988 10303 12279 12324 12372 12418 12706 12754 12799 12854 13360
15246 20773 20849 21303 21335
CONO 19196 19204 19214
CONSZ 19202
DATAO 21273
DEFINE 7 91 106 112 118 129 138 153 160 328 331 337 18436
END 21675
EQV 1835 1838 1842 11379 15537
EQVB 822 921 1029 1133 1265 1317 1354 1397 1490 1530 1570 1617 1713 1752 SEQ 0637
1795 1834 1874 1922 1956 1999 2040 2080 2124 2166 2207 2248 2291 2332
2375 2415 2459 2500 2543 2583 2630 2666 2703 2738 2784 2821 2865 2910
2950 2991 3164 3338 3382 3591 3627 3665 3707 3748 3788 3820 3859 3901
3935 3970 4108 4140 4178 4212 4257 4291 4325 4359 4391 4425 4461 4496
4531 4567 4604 4638 4671 4704 4740 4775 4807 4841 4877 4913 4950 4986
5022 5062 5100 5144 5190 5234 5273 5307 5348 5389 5431 5468 5505 5542
5580 5618 5656 5693 5732 5770 5812 5853 5897 5940 5981 6019 6055 6098
6139 6183 6230 6271 6308 6346 6380 6417 6452 6492 6526 6563 6596 6636
6672 6710 6758 6806 6855 6903 6945 6988 7033 7075 7113 7148 7186 7227
7266 7307 7349 7396 7444 7489 7530 7570 7609 7651 7690 7737 7778 7818
7859 7899 7938 7978 8017 8061 8100 8139 8180 8223 8263 8304 8343 8382
8422 8461 8500 8539 8579 8619 8660 8703 8747 8791 8834 8878 8921 8970
9021 9065 9330 9371 9474 9517 9561 9681 9790 9830 9936 10021 10099 10144
10257 10364 10405 10508 10547 10585 10626 10670 10714 10758 10794 10830 10870 10910
11033 11070 11185 11224 11263 11300 11339 11375 11414 11453 11492 11531 11568 11608
11646 11685 11725 11761 11799 11838 11877 11916 11954 11993 12033 12073 12113 12152
12191 12232 12277 12322 12370 12416 12461 12499 12540 12580 12619 12661 12704 12752
12797 12852 12901 12937 12985 13023 13062 13101 13140 13178 13224 13267 13312 13358
13406 13444 13483 13521 13560 13599 13639 13677 13716 13756 13796 13837 13878 13916
13955 13995 14024 14066 14104 14143 14186 14229 14273 14317 14355 14395 14435 14474
14513 14555 14593 14633 14675 14715 14756 14799 14837 14874 14912 14951 14990 15030
15068 15113 15157 15196 15244 15295 15333 15374 15415 15454 15495 15533 15574 15615
15656 15662 15697 15736 15776 15816 15857 15898 15936 15975 16013 16057 16095 16135
16175 16216 16254 16293 16332 16372 16411 16451 16490 16532 16574 16612 16649 16689
16728 16766 16804 16843 16881 16921 16960 17000 17039 17077 17116 17156 17195 17234
17273 17312 17351 17392 17429 17470 17511 17552 17593 17634 17675 17713 17751 17789
17828 17866 17903 17942 17981 18019 18057 18096 18135 18176 18217 18258 18299 18340
18377 18418 18474 18521 18571 18619 18671 18720 18770 18818 18870 18910 18951 18994
19080 19082 19233 19270 19307 19344 19381 19418 19456 19465 19493 19530 19567 19603
19648 19691 19734 19781 19829 19880 19934 19977 20020 20063 20105 20161 20206 20249
20494 20548 20646 20760 20811 20881 20917 20954 20988 21046 21079 21140 21159
EQVI 11498
EQVM 2379 19462
EXCH 1267 19242 21144
HLL 15942 20994
HLLE 17359
HLLEI 17396
HLLEM 17437 19943 19986
HLLES 17476 20035 20078
HLLI 15980
HLLM 16020 19241 19656 19699 19744 19791
HLLO 16886
HLLOI 16927
HLLOM 16966 19836
HLLOS 17004 19887
HLLS 16060 19275
HLLZ 16579
HLLZI 16616
HLLZM 16655 19894
HLLZS 16693 19840 20350
HLR 16418
HLRE 18307
HLREI 18344 SEQ 0638
HLREM 18385 19751 19799
HLRES 18424 19743 19790
HLRI 16457
HLRM 16498 19425
HLRO 17986
HLROI 18024
HLROM 18063 19704
HLROS 18100 19698
HLRS 16539 19620
HLRZ 17833 21049
HLRZI 17870
HLRZM 17909 19661
HLRZS 17946 19655
HRL 16260 21338
HRLE 18143
HRLEI 18184
HRLEM 18225 19742 19789
HRLES 18264 19752 19800
HRLI 16299 20768 20771 20823 20826 21092
HRLM 16338 19424
HRLO 17201
HRLOI 17240
HRLOM 17279 19697
HRLOS 17316 19705
HRLS 16376 19610 21068
HRLZ 17680
HRLZI 17718
HRLZM 17756 19654 21065
HRLZS 17793 19662
HRR 16102 19169 19174 19179 20995
HRRE 17519
HRREI 17560
HRREM 17601 20029 20072
HRRES 17640 19949 19992 21150
HRRI 16142 20351 20445 20497 20552 20687 21066 21208 21250
HRRM 16182 19276 19663 19706 19753 19801 21072 21153
HRRO 17044
HRROI 17083
HRROM 17122 19848
HRROS 17160 19901
HRRS 16219 19313
HRRZ 16733 20684 20721 20753 20781 20805 20830 20831 20847 20990 21048 21154 21302 21315
21334 21364
HRRZI 16771 21095 21475
HRRZM 16809 19124 19908
HRRZS 16846 19852 20397 20501 20601
IDIVI 19152
IFDEF 394 445 446 447 448 21368 21484 21666 21673
IFNDEF 383 384 394 445 446 447 448 527 21536
IOR 1645 1648 1651 1655 1658 1667 1670 1673 1677 1680 2338 2418 2504 5855
5862 5943 6059 6100 6144 6190 6234 6760 6859 6947 7037 7613 9168 9284
9442 9976 10366 10949 10991 11107 11147 11457 12326 12421 12711 12756 12805 12857
13717 13797 13838 14144 14230 14274 14397 14517 14634 14637 14716 14757 14761 15114 SEQ 0639
15197 15619 15740 16538
IORB 15580 19314
IORI 4428 10101 10293 11420 11994 12034 12074 12542 13225 13268 13313 13757 14187 14594
14676 15069 15158 19609 19617
IORM 2173 19350
JFCL 485 486 487 488 489 490 491 492 493 494 495 496 3595 3597
3631 3633 4003 4005 4008 4011 4014 4017 4019 4022 4213 4218 4219 4222
4226 8704 8709 9373 9384 9385 9386 9391 9393 9398
JFFO 19093
JRA 20598 20635
JRST 233 234 235 236 407 408 410 412 414 416 418 421 423 424
477 771 2169 2255 2422 2507 2586 2669 2741 3594 3598 3630 3634 4006
4012 4220 4224 4227 5434 5471 5508 5546 5584 5622 5659 5696 5817 5903
6021 6103 6236 6311 6383 6455 6458 6715 6763 6813 6908 6950 6994 7039
7189 7230 7310 7313 7353 7402 7453 7494 7533 7573 7615 7654 7695 7782
7863 7902 7941 7981 8025 8064 8103 8307 8346 8385 8425 8464 8503 8543
8583 8624 8666 8710 9177 9387 9394 9989 10304 10951 10993 11109 11149 11763
11802 11841 11880 11918 11957 11997 12037 12077 12116 12155 12196 12284 12378 12463
12504 12544 12583 12625 12664 12759 12807 12860 12903 12940 12951 12987 13026 13065
13104 13142 13180 13183 13228 13231 13271 13317 13365 13408 13447 13485 13524 13563
13603 13641 13680 13720 13760 13801 13842 13880 13919 13959 14000 14030 14068 14107
14319 14359 14399 14438 14477 14519 14557 14639 14679 14720 14763 14801 14840 14876
14915 14954 14994 15032 15072 15118 15121 15201 15252 18487 18489 18535 18537 18585
18587 18633 18635 18684 18686 18734 18736 18784 18786 18832 18834 19087 19097 19101
19105 19112 19120 19126 19133 19137 19139 19143 19145 19147 19157 19183 19195 19201
19208 19211 19213 19250 19286 19324 19361 19398 19436 19473 19510 19547 19583 19628
19671 19714 19761 19809 19860 19914 19957 20000 20043 20086 20141 20186 20229 20272
20302 20304 20306 20308 20315 20346 20349 20360 20390 20404 20436 20440 20456 20487
20508 20541 20563 20594 20607 20639 20657 20693 20696 20730 20734 20763 20765 20774
20780 20814 20816 20838 20841 20846 20850 20852 20920 20993 21058 21064 21083 21088
21102 21147 21170 21203 21213 21219 21246 21254 21260 21264 21272 21276 21280 21318
21322 21323 21342 21349 21352 21357 21395 21405 21422 21433 21449 21451 21456 21465
21467 21472 21477 21485 21495 21498 21511 21515 21518 21521 21525 21526 21530
JSA 20498 20537 20553 20648
JSP 242 20298 20342 20353 20386 20441 20483 20590 20685 20722 21199 21242
JSR 20394 20432 20446
JUMP 9067
JUMPA 9068
JUMPE 2333 2460 2501 2785 3341 3385 3592 3628 5543 5581 5619 6188 6418 6453
6493 6597 6637 6811 7308 7350 7397 7400 7445 7449 7451 7691 7738 7779
7860 8140 8181 8264 8540 8580 8620 8663 9022 9102 9135 9331 12804
JUMPG 9171 9210 9286 9292 20854 21061
JUMPGE 9245 9251 9335 21151 21168
JUMPL 894 1004 1108 1239 1275 1333 1370 1443 1509 1549 1589 1689 1727 1769
1809 1849 1898 1930 1974 2015 2055 2099 2139 2181 2221 2264 2305 2348
2387 2431 2473 2516 2556 2604 2641 2678 2713 2759 2795 2839 2883 2924
2964 3138 3311 3354 3567 3603 3639 3682 3724 3763 3796 3835 3877 3911
3946 3982 4027 4055 4084 4116 4153 4186 4232 4266 4300 4334 4366 4400
4436 4471 4506 4542 4579 4613 4646 4680 4715 4750 4782 4816 4851 4887
4924 4960 4998 5037 5074 5117 5163 5209 5248 5282 5323 5364 5406 5443
5480 5517 5555 5593 5631 5668 5707 5744 5786 5826 5870 5912 5956 5994
6030 6071 6112 6156 6203 6246 6283 6321 6355 6392 6427 6467 6501 6536
6571 6607 6645 6681 6729 6777 6827 6874 6917 6959 7003 7048 7085 7121 SEQ 0640
7158 7198 7239 7280 7322 7368 7416 7462 7503 7542 7582 7624 7663 7710
7751 7791 7832 7872 7911 7950 7990 8034 8073 8112 8153 8196 8236 8277
8316 8355 8394 8434 8473 8512 8552 8592 8633 8675 8719 8761 8803 8850
8893 8944 8993 9036 9075 9108 9139 9172 9179 9209 9215 9244 9250 9257
9301 9342 9403 9444 9487 9533 9578 9619 9654 9692 9728 9761 9803 9844
9877 9908 9950 9991 10034 10071 10116 10160 10195 10230 10268 10306 10337 10378
10418 10449 10480 10520 10556 10599 10643 10687 10731 10767 10803 10843 10883 10922
10962 11004 11043 11080 11118 11158 11197 11236 11273 11312 11348 11387 11426 11465
11504 11541 11581 11619 11658 11698 11734 11772 11811 11850 11889 11927 11966 12006
12046 12086 12125 12164 12205 12248 12293 12341 12387 12434 12472 12513 12553 12592
12634 12673 12721 12768 12823 12870 12912 12949 12996 13035 13074 13113 13151 13197
13240 13285 13331 13379 13417 13456 13494 13533 13572 13612 13650 13689 13729 13769
13810 13851 13889 13928 13968 14039 14077 14116 14159 14202 14246 14290 14328 14368
14408 14447 14486 14528 14566 14606 14648 14688 14729 14772 14810 14849 14885 14924
14963 15003 15041 15086 15130 15169 15215 15266 15306 15347 15388 15427 15468 15506
15547 15588 15629 15670 15709 15749 15789 15830 15871 15909 15948 15986 16026 16068
16108 16148 16188 16227 16266 16305 16344 16384 16424 16463 16504 16547 16585 16622
16661 16701 16739 16777 16815 16854 16892 16933 16972 17012 17050 17089 17128 17168
17207 17246 17285 17324 17365 17402 17443 17484 17525 17566 17607 17648 17686 17724
17762 17801 17839 17876 17915 17954 17992 18030 18069 18108 18149 18190 18231 18272
18313 18350 18391 18432 18496 18544 18594 18644 18693 18743 18793 18843 18881 18921
18964 19008 19040 19066 19096 19104 19205 19247 19283 19321 19358 19395 19433 19470
19507 19544 19580 19625 19668 19711 19758 19806 19857 19911 19954 19997 20040 20083
20138 20183 20226 20269 20311 20357 20400 20452 20504 20559 20604 20653 20700 20738
20786 20855 20889 20929 20962 21003 21073 21106 21176 21215 21256
JUMPLE 9287 9293 9334
JUMPN 9103 9134
LALL 8 795 6538 12953 19184
LIST 7 394 527 21368 21484 21488 21536 21663
LIT 21537
LOC 24 397 721
LSH 744 747 750 753 756 759 762 3938 3972 4990 4991 5395 5396 5397
5398 5399 5400 18484 18532 18582 18630 18681 18731 18781 18829 19121 21344 21401
21438
MOVE 727 819 830 836 842 848 854 860 866 872 878 884 893 918
930 937 944 951 958 965 972 979 986 993 1003 1026 1030 1107
1130 1134 1238 1262 1274 1314 1318 1332 1351 1355 1369 1394 1407 1415
1423 1431 1442 1487 1491 1508 1527 1531 1548 1567 1571 1588 1614 1641
1663 1688 1710 1726 1749 1768 1792 1808 1831 1848 1871 1897 1919 1929
1953 1973 1996 2014 2037 2054 2077 2098 2121 2138 2163 2180 2204 2220
2245 2263 2288 2304 2329 2337 2347 2372 2386 2412 2417 2430 2456 2472
2497 2515 2540 2555 2580 2603 2627 2640 2663 2677 2700 2712 2735 2758
2781 2794 2818 2838 2862 2882 2907 2923 2947 2963 2988 3004 3017 3030
3043 3056 3069 3082 3095 3108 3121 3137 3161 3177 3190 3203 3216 3229
3242 3255 3268 3281 3294 3310 3335 3339 3353 3379 3383 3403 3419 3435
3451 3467 3483 3499 3515 3531 3547 3566 3588 3602 3624 3638 3662 3681
3704 3723 3745 3762 3785 3795 3817 3834 3856 3876 3898 3902 3910 3932
3945 3967 3981 4026 4048 4054 4077 4083 4105 4115 4137 4152 4175 4185
4209 4231 4254 4258 4265 4288 4292 4299 4322 4327 4333 4356 4365 4388
4399 4422 4427 4429 4435 4458 4470 4493 4505 4528 4533 4541 4564 4578
4601 4612 4635 4639 4645 4668 4679 4701 4705 4714 4737 4741 4749 4772
4781 4804 4815 4838 4842 4843 4850 4874 4886 4910 4923 4947 4951 4959
4983 4987 4989 4997 5019 5036 5059 5063 5073 5097 5101 5102 5116 5141 SEQ 0641
5145 5162 5187 5191 5208 5231 5236 5239 5247 5270 5281 5304 5309 5312
5322 5345 5350 5353 5363 5386 5391 5405 5428 5442 5465 5479 5502 5516
5539 5554 5577 5592 5615 5620 5630 5653 5667 5690 5706 5729 5736 5743
5767 5772 5778 5785 5809 5815 5825 5850 5856 5857 5869 5894 5899 5900
5911 5937 5942 5947 5952 5955 5978 5986 5993 6016 6029 6052 6057 6063
6070 6095 6101 6111 6136 6142 6143 6149 6155 6180 6185 6186 6189 6199
6202 6227 6232 6233 6242 6245 6268 6282 6305 6320 6343 6354 6377 6391
6414 6426 6449 6466 6489 6494 6500 6523 6528 6535 6560 6570 6593 6606
6633 6644 6669 6674 6680 6707 6713 6728 6755 6761 6776 6803 6808 6809
6826 6852 6857 6858 6860 6865 6870 6873 6900 6906 6916 6942 6948 6958
6985 6990 6991 7002 7030 7035 7036 7047 7072 7077 7084 7110 7120 7145
7149 7157 7183 7187 7197 7224 7238 7263 7279 7304 7321 7346 7367 7393
7415 7441 7446 7461 7486 7491 7502 7527 7541 7567 7581 7606 7610 7612
7623 7648 7662 7687 7709 7734 7743 7750 7775 7790 7815 7824 7831 7856
7871 7896 7910 7935 7949 7975 7989 8014 8018 8019 8033 8058 8072 8097
8111 8136 8145 8152 8177 8195 8220 8235 8260 8269 8276 8301 8315 8340
8354 8379 8393 8419 8423 8433 8458 8472 8497 8511 8536 8551 8576 8591
8616 8632 8657 8664 8674 8700 8705 8718 8744 8749 8750 8760 8788 8802
8831 8838 8839 8849 8875 8881 8892 8918 8924 8943 8967 8973 8974 8992
9018 9025 9035 9062 9066 9074 9100 9101 9165 9170 9207 9208 9256 9281
9298 9300 9327 9333 9341 9368 9372 9374 9375 9402 9428 9429 9430 9432
9440 9471 9475 9476 9486 9514 9519 9520 9522 9532 9558 9564 9565 9567
9577 9606 9607 9608 9617 9644 9645 9678 9682 9691 9717 9718 9719 9726
9753 9754 9787 9792 9793 9802 9827 9833 9834 9843 9867 9868 9876 9900
9901 9933 9937 9938 9949 9977 9978 9979 10018 10022 10023 10033 10061 10062
10096 10102 10103 10104 10115 10141 10146 10147 10148 10159 10185 10186 10220 10221
10254 10258 10267 10294 10295 10296 10330 10361 10367 10368 10377 10402 10407 10408
10417 10442 10473 10505 10509 10519 10544 10555 10582 10587 10588 10598 10623 10628
10631 10632 10642 10667 10672 10675 10676 10686 10711 10716 10719 10720 10730 10755
10766 10791 10802 10827 10831 10834 10842 10867 10871 10874 10882 10907 10911 10913
10921 10952 10953 10954 10961 10994 10995 10996 11003 11030 11034 11036 11067 11071
11073 11110 11111 11150 11151 11182 11186 11196 11221 11225 11235 11260 11264 11272
11297 11301 11311 11336 11340 11347 11372 11376 11386 11411 11415 11425 11450 11454
11464 11489 11493 11503 11528 11532 11540 11565 11569 11580 11605 11609 11618 11643
11657 11682 11686 11697 11722 11726 11733 11758 11771 11796 11810 11835 11839 11849
11874 11888 11913 11926 11951 11965 11990 11995 12005 12030 12045 12070 12075 12085
12110 12124 12149 12163 12188 12192 12193 12204 12229 12240 12247 12274 12282 12292
12319 12327 12328 12333 12340 12367 12374 12375 12386 12413 12420 12425 12430 12433
12458 12471 12496 12501 12512 12537 12541 12552 12577 12591 12616 12621 12633 12658
12662 12672 12701 12709 12710 12720 12749 12757 12767 12794 12801 12813 12819 12822
12849 12856 12866 12869 12898 12911 12934 12948 12982 12995 13020 13034 13059 13073
13098 13102 13112 13137 13150 13175 13196 13221 13229 13239 13264 13284 13309 13314
13315 13330 13355 13363 13378 13403 13416 13441 13455 13480 13493 13518 13532 13557
13561 13571 13596 13600 13611 13636 13649 13674 13688 13713 13718 13728 13753 13768
13793 13798 13809 13834 13839 13840 13850 13875 13888 13913 13927 13952 13956 13967
13992 14021 14025 14038 14063 14076 14101 14115 14140 14145 14146 14151 14158 14183
14201 14226 14231 14233 14245 14270 14275 14276 14282 14289 14314 14327 14352 14367
14392 14396 14407 14432 14446 14471 14485 14510 14514 14527 14552 14565 14590 14605
14630 14635 14647 14672 14687 14712 14717 14728 14753 14758 14759 14771 14796 14809
14834 14848 14871 14884 14909 14923 14948 14962 14987 15002 15027 15040 15065 15085
15110 15119 15129 15154 15168 15193 15198 15214 15241 15250 15265 15292 15297 15305
15330 15335 15336 15346 15371 15376 15377 15387 15412 15417 15418 15426 15451 15456
15457 15467 15492 15497 15505 15530 15535 15536 15546 15571 15576 15577 15587 15612 SEQ 0642
15617 15618 15628 15653 15658 15659 15669 15694 15699 15708 15733 15738 15748 15773
15778 15779 15788 15813 15818 15819 15829 15854 15859 15860 15870 15895 15900 15908
15933 15938 15947 15972 15976 15978 15985 16010 16014 16025 16054 16058 16067 16092
16096 16098 16099 16107 16132 16136 16138 16139 16147 16172 16176 16178 16179 16187
16213 16217 16226 16251 16255 16257 16265 16290 16294 16296 16304 16329 16333 16335
16343 16369 16383 16408 16413 16414 16423 16448 16452 16454 16455 16462 16487 16491
16493 16494 16503 16529 16534 16546 16571 16576 16577 16584 16609 16613 16615 16621
16646 16650 16652 16653 16660 16686 16691 16700 16725 16729 16731 16738 16763 16767
16769 16776 16801 16805 16807 16814 16840 16853 16878 16883 16884 16891 16918 16922
16924 16932 16957 16961 16963 16964 16971 16997 17002 17011 17036 17041 17042 17049
17074 17078 17080 17081 17088 17113 17117 17119 17120 17127 17153 17158 17167 17192
17196 17198 17206 17231 17235 17237 17245 17270 17274 17276 17284 17309 17323 17348
17352 17354 17355 17364 17389 17393 17395 17401 17426 17430 17432 17433 17442 17467
17472 17483 17508 17512 17514 17515 17524 17549 17553 17555 17556 17565 17590 17594
17596 17597 17606 17631 17636 17647 17672 17676 17678 17685 17710 17714 17716 17723
17748 17752 17754 17761 17786 17790 17800 17825 17830 17838 17863 17867 17869 17875
17900 17904 17906 17914 17939 17953 17978 17983 17991 18016 18020 18022 18029 18054
18058 18060 18068 18093 18107 18132 18136 18138 18148 18173 18177 18179 18189 18214
18218 18220 18230 18255 18271 18296 18300 18302 18312 18337 18341 18343 18349 18374
18378 18380 18390 18415 18431 18471 18476 18479 18480 18485 18495 18518 18522 18524
18527 18528 18533 18543 18568 18572 18577 18578 18583 18593 18616 18621 18622 18625
18626 18631 18643 18668 18676 18677 18682 18692 18717 18722 18726 18727 18732 18742
18767 18771 18776 18777 18782 18792 18815 18820 18824 18825 18830 18842 18867 18871
18880 18907 18911 18920 18948 18953 18954 18963 18991 18997 18998 19007 19034 19035
19061 19077 19083 19091 19092 19135 19141 19150 19165 19172 19193 19229 19234 19238
19266 19271 19303 19308 19340 19345 19377 19382 19414 19419 19452 19457 19489 19494
19526 19531 19563 19568 19599 19604 19618 19644 19649 19687 19692 19730 19735 19740
19750 19777 19782 19787 19797 19825 19830 19834 19845 19846 19876 19881 19885 19892
19897 19899 19906 19930 19935 19940 19941 19973 19978 19983 19984 20016 20021 20026
20027 20059 20064 20069 20070 20101 20106 20122 20157 20162 20202 20207 20214 20245
20250 20255 20297 20298 20303 20304 20341 20342 20347 20348 20385 20386 20391 20431
20432 20437 20439 20482 20483 20488 20491 20536 20537 20542 20545 20549 20550 20589
20590 20595 20597 20634 20635 20640 20643 20647 20685 20686 20693 20722 20723 20730
20757 20770 20772 20808 20819 20825 20827 20835 20836 20878 20882 20888 20914 20921
20928 20951 20961 20985 21002 21043 21076 21096 21105 21137 21156 21175 21198 21199
21204 21205 21206 21241 21242 21247 21248 21284 21290 21294 21317 21337 21343 21346
21347 21360 21372 21377 21378 21380 21382 21383 21384 21387 21388 21390 21393 21396
21397 21399 21400 21410 21414 21416 21426 21428 21430 21437 21442 21444 21446 21454
21460 21462 21471 21499 21507 21508 21516 21520 21523
MOVEI 735 766 768 811 813 815 910 912 914 1018 1020 1022 1122 1124
1126 1254 1256 1258 1306 1308 1310 1343 1345 1347 1386 1388 1390 1479
1481 1483 1519 1521 1523 1559 1561 1563 1606 1608 1610 1702 1704 1706
1741 1743 1745 1784 1786 1788 1823 1825 1827 1863 1865 1867 1911 1913
1915 1945 1947 1949 1988 1990 1992 2029 2031 2033 2069 2071 2073 2113
2115 2117 2155 2157 2159 2196 2198 2200 2237 2239 2241 2280 2282 2284
2321 2323 2325 2364 2366 2368 2404 2406 2408 2448 2450 2452 2489 2491
2493 2532 2534 2536 2572 2574 2576 2619 2621 2623 2655 2657 2659 2692
2694 2696 2727 2729 2731 2773 2775 2777 2810 2812 2814 2854 2856 2858
2899 2901 2903 2939 2941 2943 2980 2982 2984 3153 3155 3157 3327 3329
3331 3371 3373 3375 3580 3582 3584 3616 3618 3620 3654 3656 3658 3696
3698 3700 3737 3739 3741 3777 3779 3781 3809 3811 3813 3848 3850 3852
3890 3892 3894 3924 3926 3928 3959 3961 3963 3995 3997 3999 4041 4043
4045 4070 4072 4074 4097 4099 4101 4129 4131 4133 4167 4169 4171 4201 SEQ 0643
4203 4205 4246 4248 4250 4280 4282 4284 4314 4316 4318 4348 4350 4352
4380 4382 4384 4393 4414 4416 4418 4450 4452 4454 4485 4487 4489 4520
4522 4524 4556 4558 4560 4593 4595 4597 4627 4629 4631 4660 4662 4664
4693 4695 4697 4729 4731 4733 4764 4766 4768 4796 4798 4800 4830 4832
4834 4866 4868 4870 4902 4904 4906 4939 4941 4943 4975 4977 4979 4992
5011 5013 5015 5051 5053 5055 5065 5089 5091 5093 5133 5135 5137 5179
5181 5183 5223 5225 5227 5262 5264 5266 5274 5296 5298 5300 5337 5339
5341 5378 5380 5382 5420 5422 5424 5457 5459 5461 5494 5496 5498 5531
5533 5535 5569 5571 5573 5607 5609 5611 5645 5647 5649 5682 5684 5686
5721 5723 5725 5759 5761 5763 5800 5802 5804 5807 5841 5843 5845 5848
5885 5887 5889 5892 5928 5930 5932 5935 5970 5972 5974 6008 6010 6012
6044 6046 6048 6086 6088 6090 6093 6127 6129 6131 6134 6171 6173 6175
6178 6218 6220 6222 6225 6260 6262 6264 6297 6299 6301 6335 6337 6339
6369 6371 6373 6406 6408 6410 6441 6443 6445 6481 6483 6485 6515 6517
6519 6552 6554 6556 6585 6587 6589 6625 6627 6629 6661 6663 6665 6698
6700 6702 6705 6746 6748 6750 6753 6794 6796 6798 6801 6843 6845 6847
6850 6891 6893 6895 6898 6933 6935 6937 6940 6976 6978 6980 6983 7021
7023 7025 7028 7064 7066 7068 7102 7104 7106 7137 7139 7141 7175 7177
7179 7216 7218 7220 7255 7257 7259 7296 7298 7300 7338 7340 7342 7385
7387 7389 7433 7435 7437 7478 7480 7482 7519 7521 7523 7559 7561 7563
7598 7600 7602 7640 7642 7644 7679 7681 7683 7726 7728 7730 7767 7769
7771 7807 7809 7811 7848 7850 7852 7888 7890 7892 7927 7929 7931 7967
7969 7971 8006 8008 8010 8050 8052 8054 8089 8091 8093 8128 8130 8132
8169 8171 8173 8212 8214 8216 8252 8254 8256 8293 8295 8297 8332 8334
8336 8371 8373 8375 8411 8413 8415 8450 8452 8454 8489 8491 8493 8528
8530 8532 8568 8570 8572 8608 8610 8612 8649 8651 8653 8692 8694 8696
8735 8737 8739 8742 8780 8782 8784 8822 8824 8826 8829 8867 8869 8871
8910 8912 8914 8959 8961 8963 9010 9012 9014 9054 9056 9058 9091 9093
9095 9098 9126 9128 9130 9158 9160 9162 9196 9198 9200 9203 9232 9234
9236 9239 9274 9276 9278 9319 9321 9323 9360 9362 9364 9420 9422 9424
9427 9463 9465 9467 9506 9508 9510 9550 9552 9554 9595 9597 9599 9602
9604 9637 9639 9641 9670 9672 9674 9708 9710 9712 9715 9746 9748 9750
9779 9781 9783 9819 9821 9823 9860 9862 9864 9893 9895 9897 9925 9927
9929 9967 9969 9971 9974 10010 10012 10014 10053 10055 10057 10060 10088 10090
10092 10133 10135 10137 10177 10179 10181 10184 10212 10214 10216 10219 10246 10248
10250 10284 10286 10288 10291 10322 10324 10326 10329 10353 10355 10357 10394 10396
10398 10434 10436 10438 10441 10465 10467 10469 10472 10497 10499 10501 10536 10538
10540 10573 10575 10577 10580 10615 10617 10619 10659 10661 10663 10703 10705 10707
10747 10749 10751 10783 10785 10787 10819 10821 10823 10833 10859 10861 10863 10872
10899 10901 10903 10912 10939 10941 10943 10946 10947 10981 10983 10985 10988 10989
11022 11024 11026 11035 11059 11061 11063 11072 11097 11099 11101 11104 11105 11137
11139 11141 11144 11145 11174 11176 11178 11188 11213 11215 11217 11227 11252 11254
11256 11266 11289 11291 11293 11303 11328 11330 11332 11364 11366 11368 11378 11403
11405 11407 11417 11442 11444 11446 11456 11481 11483 11485 11495 11520 11522 11524
11557 11559 11561 11571 11597 11599 11601 11611 11635 11637 11639 11647 11649 11674
11676 11678 11688 11714 11716 11718 11750 11752 11754 11788 11790 11792 11827 11829
11831 11866 11868 11870 11905 11907 11909 11943 11945 11947 11982 11984 11986 12022
12024 12026 12062 12064 12066 12102 12104 12106 12141 12143 12145 12180 12182 12184
12221 12223 12225 12234 12265 12267 12269 12272 12280 12310 12312 12314 12317 12325
12358 12360 12362 12365 12373 12404 12406 12408 12411 12419 12450 12452 12454 12488
12490 12492 12529 12531 12533 12569 12571 12573 12608 12610 12612 12650 12652 12654
12692 12694 12696 12699 12707 12740 12742 12744 12747 12755 12785 12787 12789 12792
12800 12803 12840 12842 12844 12847 12855 12858 12890 12892 12894 12926 12928 12930 SEQ 0644
12974 12976 12978 13012 13014 13016 13051 13053 13055 13090 13092 13094 13129 13131
13133 13167 13169 13171 13213 13215 13217 13226 13256 13258 13260 13301 13303 13305
13346 13348 13350 13353 13361 13395 13397 13399 13433 13435 13437 13472 13474 13476
13510 13512 13514 13549 13551 13553 13588 13590 13592 13628 13630 13632 13666 13668
13670 13705 13707 13709 13745 13747 13749 13785 13787 13789 13826 13828 13830 13867
13869 13871 13905 13907 13909 13944 13946 13948 13984 13986 13988 14013 14015 14017
14055 14057 14059 14093 14095 14097 14132 14134 14136 14175 14177 14179 14218 14220
14222 14262 14264 14266 14306 14308 14310 14344 14346 14348 14384 14386 14388 14424
14426 14428 14463 14465 14467 14502 14504 14506 14544 14546 14548 14582 14584 14586
14622 14624 14626 14664 14666 14668 14704 14706 14708 14745 14747 14749 14788 14790
14792 14826 14828 14830 14863 14865 14867 14901 14903 14905 14940 14942 14944 14979
14981 14983 15019 15021 15023 15057 15059 15061 15102 15104 15106 15116 15146 15148
15150 15185 15187 15189 15232 15234 15236 15239 15247 15284 15286 15288 15322 15324
15326 15363 15365 15367 15404 15406 15408 15443 15445 15447 15484 15486 15488 15522
15524 15526 15563 15565 15567 15604 15606 15608 15645 15647 15649 15686 15688 15690
15725 15727 15729 15765 15767 15769 15805 15807 15809 15846 15848 15850 15887 15889
15891 15925 15927 15929 15939 15964 15966 15968 15979 16002 16004 16006 16017 16046
16048 16050 16084 16086 16088 16124 16126 16128 16164 16166 16168 16205 16207 16209
16243 16245 16247 16282 16284 16286 16321 16323 16325 16361 16363 16365 16400 16402
16404 16440 16442 16444 16479 16481 16483 16521 16523 16525 16563 16565 16567 16601
16603 16605 16638 16640 16642 16678 16680 16682 16717 16719 16721 16732 16755 16757
16759 16770 16793 16795 16797 16808 16832 16834 16836 16845 16870 16872 16874 16910
16912 16914 16949 16951 16953 16989 16991 16993 17028 17030 17032 17066 17068 17070
17105 17107 17109 17145 17147 17149 17184 17186 17188 17223 17225 17227 17262 17264
17266 17301 17303 17305 17340 17342 17344 17381 17383 17385 17418 17420 17422 17459
17461 17463 17500 17502 17504 17541 17543 17545 17582 17584 17586 17623 17625 17627
17664 17666 17668 17702 17704 17706 17740 17742 17744 17778 17780 17782 17817 17819
17821 17855 17857 17859 17892 17894 17896 17931 17933 17935 17970 17972 17974 18008
18010 18012 18046 18048 18050 18085 18087 18089 18124 18126 18128 18165 18167 18169
18206 18208 18210 18247 18249 18251 18288 18290 18292 18329 18331 18333 18366 18368
18370 18407 18409 18411 18463 18465 18467 18510 18512 18514 18560 18562 18564 18574
18608 18610 18612 18660 18662 18664 18709 18711 18713 18759 18761 18763 18807 18809
18811 18859 18861 18863 18899 18901 18903 18940 18942 18944 18983 18985 18987 19027
19029 19031 19054 19056 19058 19072 19074 19089 19127 19130 19138 19188 19190 19225
19227 19262 19264 19299 19301 19336 19338 19373 19375 19410 19412 19448 19450 19485
19487 19522 19524 19559 19561 19595 19597 19640 19642 19683 19685 19726 19728 19773
19775 19821 19823 19872 19874 19926 19928 19969 19971 20012 20014 20055 20057 20097
20099 20116 20153 20155 20198 20200 20241 20243 20290 20292 20294 20334 20336 20338
20378 20380 20382 20424 20426 20428 20475 20477 20479 20529 20531 20533 20582 20584
20586 20627 20629 20631 20677 20679 20681 20697 20714 20716 20718 20733 20735 20748
20750 20752 20755 20777 20782 20793 20795 20797 20806 20840 20843 20848 20870 20872
20874 20906 20908 20910 20943 20945 20947 20955 20977 20979 20981 21035 21037 21039
21053 21090 21129 21131 21133 21148 21191 21193 21195 21234 21236 21238 21306 21385
21391 21496
MOVEM 730 743 746 749 752 755 758 761 769 812 814 911 913 1019
1021 1123 1125 1255 1257 1307 1309 1344 1346 1387 1389 1480 1482 1520
1522 1560 1562 1607 1609 1703 1705 1742 1744 1785 1787 1824 1826 1864
1866 1912 1914 1946 1948 1989 1991 2030 2032 2070 2072 2114 2116 2156
2158 2197 2199 2238 2240 2281 2283 2322 2324 2365 2367 2405 2407 2449
2451 2490 2492 2533 2535 2573 2575 2620 2622 2656 2658 2693 2695 2728
2730 2774 2776 2811 2813 2855 2857 2900 2902 2940 2942 2981 2983 3154
3156 3328 3330 3372 3374 3581 3583 3617 3619 3655 3657 3669 3670 3671
3672 3673 3674 3697 3699 3738 3740 3778 3780 3810 3812 3849 3851 3891 SEQ 0645
3893 3925 3927 3960 3962 3996 3998 4042 4044 4071 4073 4098 4100 4130
4132 4168 4170 4202 4204 4247 4249 4281 4283 4315 4317 4349 4351 4381
4383 4415 4417 4451 4453 4486 4488 4521 4523 4557 4559 4594 4596 4628
4630 4661 4663 4694 4696 4730 4732 4765 4767 4797 4799 4831 4833 4867
4869 4903 4905 4940 4942 4976 4978 5012 5014 5052 5054 5090 5092 5134
5136 5180 5182 5224 5226 5263 5265 5297 5299 5338 5340 5379 5381 5421
5423 5458 5460 5495 5497 5532 5534 5570 5572 5608 5610 5646 5648 5683
5685 5722 5724 5760 5762 5801 5803 5842 5844 5886 5888 5929 5931 5971
5973 6009 6011 6045 6047 6087 6089 6128 6130 6172 6174 6219 6221 6261
6263 6298 6300 6336 6338 6370 6372 6407 6409 6442 6444 6482 6484 6516
6518 6553 6555 6586 6588 6626 6628 6662 6664 6699 6701 6747 6749 6795
6797 6844 6846 6892 6894 6934 6936 6977 6979 7022 7024 7065 7067 7103
7105 7138 7140 7176 7178 7217 7219 7256 7258 7297 7299 7339 7341 7386
7388 7434 7436 7479 7481 7520 7522 7560 7562 7599 7601 7641 7643 7680
7682 7727 7729 7768 7770 7808 7810 7849 7851 7889 7891 7928 7930 7968
7970 8007 8009 8051 8053 8090 8092 8129 8131 8170 8172 8213 8215 8253
8255 8294 8296 8333 8335 8372 8374 8412 8414 8451 8453 8490 8492 8529
8531 8569 8571 8609 8611 8650 8652 8693 8695 8736 8738 8781 8783 8823
8825 8868 8870 8882 8911 8913 8925 8960 8962 9011 9013 9055 9057 9092
9094 9127 9129 9159 9161 9169 9197 9199 9233 9235 9243 9275 9277 9285
9320 9322 9361 9363 9421 9423 9464 9466 9507 9509 9551 9553 9596 9598
9638 9640 9671 9673 9709 9711 9747 9749 9780 9782 9820 9822 9861 9863
9894 9896 9926 9928 9968 9970 10011 10013 10054 10056 10089 10091 10134 10136
10178 10180 10213 10215 10247 10249 10285 10287 10323 10325 10354 10356 10395 10397
10435 10437 10466 10468 10498 10500 10537 10539 10574 10576 10616 10618 10660 10662
10704 10706 10748 10750 10784 10786 10820 10822 10860 10862 10900 10902 10940 10942
10982 10984 11023 11025 11060 11062 11098 11100 11138 11140 11175 11177 11214 11216
11253 11255 11290 11292 11329 11331 11365 11367 11404 11406 11443 11445 11482 11484
11521 11523 11558 11560 11598 11600 11636 11638 11675 11677 11715 11717 11751 11753
11789 11791 11828 11830 11867 11869 11906 11908 11944 11946 11983 11985 12023 12025
12063 12065 12103 12105 12142 12144 12181 12183 12222 12224 12266 12268 12311 12313
12359 12361 12405 12407 12451 12453 12489 12491 12530 12532 12570 12572 12609 12611
12651 12653 12693 12695 12741 12743 12786 12788 12841 12843 12891 12893 12927 12929
12975 12977 13013 13015 13052 13054 13091 13093 13130 13132 13168 13170 13214 13216
13257 13259 13302 13304 13347 13349 13396 13398 13434 13436 13473 13475 13511 13513
13550 13552 13589 13591 13629 13631 13667 13669 13706 13708 13746 13748 13786 13788
13827 13829 13868 13870 13906 13908 13945 13947 13985 13987 14014 14016 14056 14058
14094 14096 14133 14135 14176 14178 14219 14221 14263 14265 14307 14309 14345 14347
14385 14387 14425 14427 14464 14466 14503 14505 14545 14547 14583 14585 14623 14625
14665 14667 14705 14707 14746 14748 14789 14791 14827 14829 14864 14866 14902 14904
14941 14943 14980 14982 15020 15022 15058 15060 15103 15105 15147 15149 15186 15188
15233 15235 15285 15287 15323 15325 15364 15366 15405 15407 15444 15446 15485 15487
15523 15525 15564 15566 15605 15607 15646 15648 15687 15689 15726 15728 15766 15768
15806 15808 15847 15849 15888 15890 15926 15928 15965 15967 16003 16005 16016 16047
16049 16085 16087 16125 16127 16165 16167 16206 16208 16244 16246 16283 16285 16322
16324 16362 16364 16401 16403 16441 16443 16480 16482 16522 16524 16564 16566 16602
16604 16639 16641 16679 16681 16718 16720 16756 16758 16794 16796 16833 16835 16871
16873 16911 16913 16950 16952 16990 16992 17029 17031 17067 17069 17106 17108 17146
17148 17185 17187 17224 17226 17263 17265 17302 17304 17341 17343 17382 17384 17419
17421 17460 17462 17501 17503 17542 17544 17583 17585 17624 17626 17665 17667 17703
17705 17741 17743 17779 17781 17818 17820 17856 17858 17893 17895 17932 17934 17971
17973 18009 18011 18047 18049 18086 18088 18125 18127 18166 18168 18207 18209 18248
18250 18289 18291 18330 18332 18367 18369 18408 18410 18464 18466 18511 18513 18561 SEQ 0646
18563 18609 18611 18661 18663 18710 18712 18760 18762 18808 18810 18860 18862 18900
18902 18941 18943 18984 18986 19028 19030 19055 19057 19073 19075 19170 19175 19180
19182 19189 19191 19197 19226 19228 19235 19239 19263 19265 19272 19300 19302 19309
19337 19339 19346 19374 19376 19383 19411 19413 19420 19449 19451 19458 19486 19488
19495 19523 19525 19532 19560 19562 19569 19596 19598 19605 19619 19641 19643 19650
19684 19686 19693 19727 19729 19736 19774 19776 19783 19822 19824 19831 19873 19875
19882 19898 19927 19929 19936 19970 19972 19979 20013 20015 20022 20056 20058 20065
20098 20100 20107 20154 20156 20163 20199 20201 20208 20220 20242 20244 20251 20256
20265 20291 20293 20299 20305 20312 20335 20337 20343 20379 20381 20387 20401 20425
20427 20433 20453 20476 20478 20484 20505 20530 20532 20538 20560 20583 20585 20591
20628 20630 20636 20654 20678 20680 20688 20690 20694 20695 20715 20717 20725 20727
20731 20732 20749 20751 20766 20769 20776 20794 20796 20798 20817 20824 20828 20829
20842 20871 20873 20907 20909 20944 20946 20978 20980 21036 21038 21071 21080 21130
21132 21160 21161 21192 21194 21200 21209 21216 21235 21237 21243 21252 21257 21265
21266 21267 21330 21331 21332 21345 21365 21376 21381 21386 21389 21392 21398 21497
MOVES 3711 3712 3713 3714 3715 3716 19240
MOVM 5242 21062
MOVMI 5276
MOVMM 5315 20215
MOVMS 5356 20221 21152
MOVN 3342 3404 3420 3436 3452 3468 3484 3500 3516 3532 3548 4606 4673 4915
5026 5027 5028 5029 5030 5031 18673 18723 18821 19166 19176
MOVNI 4809 5068 18773
MOVNM 5106 5107 5108 5109 5110 5111 19389
MOVNS 5150 5151 5152 5153 5154 5155 5196 5197 5198 5199 5200 5201 19390 21067
MOVS 2167 2208 2249 2292 2334 2376 2416 2461 2502 2544 2584 2631 2667 2704
2739 3752 3753 3754 3755 3756 3757 3789 3973 5432 5771 6056 7150 7268
7398 7447 7571 7611 7693 7820 7861 7979 8020 8023 8183 8225 8265 8383
8621 8661 11878 12233 13799 14232 14238 14475 14718 14952 14992 15115 15199 15248
15940 16018 16416 16496 16536 17831 17907 17944 17984 18061 18098 18139 18180 18221
18260 18303 18381 18420 19168 19173 19178 19615 21051 21052 21142
MOVSI 3905 3937 4015 4020 13997 14027 14189 14277 14357 14516 14596 14636 14760 16258
16297 16336 16374 17199 17238 17277 17314 17679 17717 17755 17792 18023 19608 19616
20496 20551 20596 21207 21249
MOVSM 3824 3825 3826 3827 3828 3829 19387
MOVSS 3864 3865 3866 3867 3868 3869 4988 5064 5235 5275 5308 5349 11187 11226
11265 11302 11341 11377 11416 11455 11494 11533 11570 11610 11648 11687 11727 15296
15334 15375 15416 15455 15496 15534 15575 15616 15657 15698 15737 15777 15817 15858
15899 18475 18523 18573 18620 18672 18721 18772 18819 19388 19426
NOSYM 26
OPDEF 42 43 44 45 46 47 48 49 50 51 229 230 231 232
233 234 235 236 242 248 249 257 258 259 260 261 262 263
264 265 266 267 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 302 303 304 305 306 307
308 309 310 311 312 313 314 315 316 317 318 319 320 321
322 323 324 326 343 348 349 353 354 355 361 362 368 369
370 371 372 373 374 380 381 388 389 390 391 394
ORCA 1756 1759 1762 1763 2463 11228 15378
ORCAB 15741 19537
ORCAI 11575
ORCAM 2213 19464
ORCB 2041 2042 2045 2046 2049 11189 15337 SEQ 0647
ORCBB 15863 20111
ORCBI 11692
ORCBM 2297 19538
ORCM 1957 1960 1964 1968 8021 11304 12235 15458
ORCMB 15822 19575
ORCMI 11652
ORCMM 2256 19463
POP 232 20883 20923 21085
POPJ 230 21210 21248
PUSH 231 20956 20997 21162
PUSHJ 229 21206 21253
REPEAT 739 823 922 1031 1135 1283 1322 1359 1398 1451 1618 1875 2125 2587
2742 2823 2867 2912 2952 2992 3006 3019 3032 3045 3058 3071 3084 3097
3110 3123 3165 3179 3192 3205 3218 3231 3244 3257 3270 3283 3296 3386
3666 3708 3749 3821 3861 4141 4569 5023 5103 5147 5193 5392
ROT 821 920 1028 1132 1264 1316 1353 1396 1489 1529 1569 1616 1712 1751
1794 1833 1873 1921 1955 1998 2039 2079 2123 2165 2206 2247 2290 2331
2374 2414 2458 2499 2542 2582 2629 2665 2702 2737 2783 2820 2826 2827
2828 2829 2830 2831 2864 2870 2871 2872 2873 2874 2875 2909 2914 2915
2916 2949 2954 2955 2956 2990 3163 3337 3344 3345 3381 3590 3596 3626
3632 3664 3706 3747 3787 3790 3819 3858 3900 3904 3934 3969 4107 4139
4177 4211 4256 4290 4324 4358 4390 4424 4460 4495 4530 4566 4603 4637
4670 4703 4739 4774 4806 4840 4876 4912 4949 4985 5021 5061 5099 5143
5189 5233 5272 5306 5347 5388 5430 5467 5504 5541 5579 5617 5655 5692
5731 5769 5811 5813 5852 5854 5896 5898 5939 5941 5980 6018 6054 6097
6099 6138 6140 6182 6184 6229 6231 6270 6307 6345 6379 6416 6451 6491
6525 6562 6595 6635 6671 6709 6711 6757 6759 6805 6807 6854 6856 6902
6904 6944 6946 6987 6989 7032 7034 7074 7078 7112 7147 7185 7226 7265
7306 7348 7395 7443 7488 7492 7529 7569 7608 7650 7689 7736 7777 7817
7858 7898 7937 7977 8016 8060 8099 8138 8179 8222 8262 8303 8342 8381
8421 8460 8499 8538 8578 8618 8659 8702 8746 8748 8790 8833 8835 8837
8877 8920 8969 9020 9064 9099 9167 9204 9206 9240 9242 9283 9329 9370
9441 9473 9516 9560 9605 9680 9716 9789 9829 9935 9975 10020 10098 10143
10256 10292 10363 10404 10507 10546 10584 10586 10625 10627 10669 10671 10713 10715
10757 10793 10829 10832 10869 10909 11032 11069 11184 11223 11262 11299 11338 11374
11413 11452 11491 11530 11567 11607 11645 11684 11724 11760 11798 11837 11876 11915
11953 11992 12032 12072 12112 12151 12190 12231 12276 12278 12321 12323 12369 12371
12415 12417 12460 12498 12539 12579 12618 12660 12703 12705 12751 12753 12796 12798
12851 12853 12900 12936 12984 13022 13061 13100 13139 13177 13223 13266 13311 13357
13359 13405 13443 13482 13520 13559 13598 13601 13638 13676 13715 13755 13795 13836
13877 13915 13954 13994 14023 14026 14065 14103 14142 14185 14228 14272 14316 14354
14394 14434 14473 14512 14515 14554 14592 14632 14674 14714 14755 14798 14836 14873
14911 14950 14989 15029 15067 15112 15156 15195 15243 15245 15294 15332 15373 15414
15453 15494 15532 15573 15614 15655 15696 15735 15775 15815 15856 15897 15935 15937
15974 15977 16012 16015 16056 16094 16097 16134 16137 16174 16177 16215 16253 16256
16292 16295 16331 16334 16371 16410 16412 16450 16453 16489 16492 16531 16573 16575
16611 16614 16648 16651 16688 16727 16730 16765 16768 16803 16806 16842 16880 16882
16920 16923 16959 16962 16999 17038 17040 17076 17079 17115 17118 17155 17194 17197
17233 17236 17272 17275 17311 17350 17353 17391 17394 17428 17431 17469 17510 17513
17551 17554 17592 17595 17633 17674 17677 17712 17715 17750 17753 17788 17827 17829
17865 17868 17902 17905 17941 17980 17982 18018 18021 18056 18059 18095 18134 18137
18175 18178 18216 18219 18257 18298 18301 18339 18342 18376 18379 18417 18473 18520
18570 18618 18670 18719 18769 18817 18869 18909 18950 18993 19079 19081 19088 19232 SEQ 0648
19269 19306 19343 19380 19417 19455 19492 19529 19566 19602 19647 19690 19733 19780
19828 19879 19933 19976 20019 20062 20104 20160 20205 20248 20493 20547 20645 20759
20810 20880 20916 20953 20987 21045 21078 21139 21158
ROTC 3007 3008 3009 3020 3021 3022 3033 3034 3035 3046 3047 3048 3059 3060
3061 3072 3073 3074 3085 3086 3087 3098 3099 3100 3111 3112 3113 3124
3125 3126 3180 3181 3182 3193 3194 3195 3206 3207 3208 3219 3220 3221
3232 3233 3234 3245 3246 3247 3258 3259 3260 3271 3272 3273 3284 3285
3286 3297 3298 3299 3406 3408 3422 3424 3438 3440 3454 3456 3470 3472
3486 3488 3502 3504 3518 3520 3534 3536 3550 3552 10948 10990 11106 11146
SETA 2127 2128 2129 2130 2131 2132 2133
SETAB 15498 19278
SETAI 11342
SETAM 2503 2670 19315
SETCA 1319 1323 1324 1325 1356 1360 1361 1362 1654 1676 1720 1843 1965 2464
5066 7399 8022 8622 8880 8923 8972 11190 11229 11305 11380 11458 11497 11574
11612 11651 11691 12236 12623 13998 14190 15338 15379 15459 15538 15620 15661 15780
15821 15862
SETCAB 15701 19502
SETCAI 1408 1409 1416 1417 1424 1425 1432 1433 11535
SETCAM 2633 19536
SETCM 1923 1924 2170 2209 2210 2250 2251 2293 2294 2335 2377 2545 2546 2632
4179 4326 4426 4532 5237 5310 5351 5657 5694 5982 6272 6309 6420 6527
6599 6673 7819 8224 11534 12114 12153 12620 13063 14991 15700 15739 20110 20211
SETCMB 15781 19353
SETCMI 11613
SETCMM 2589 2590 2591 2592 2593 2594 2595 2596 19352
SETM 1882 1888 2462
SETMB 15419 19312
SETMI 11267
SETMM 2744 2745 2746 2747 2748 2749 2750 2751 19316
SETO 1753 1802 2006 3405 3421 3437 3453 3469 3485 3501 3517 3533 3549 3936
4002 5582 6276 7359 8141 8188 8541 14194 19948 20034 20804
SETOB 1266 2786 2822 2866 2911 2951 3005 3018 3031 3044 3057 3070 3083 3096
3109 3122 3178 3191 3204 3217 3230 3243 3256 3269 3282 3295 3343 3971
5146 5192 5544 6419 6456 6598 7311 7351 7739 7780 8182 8581 9023 12035
12581 13024 13269 13522 13758 13996 14188 14436 14677 14913 15159 15901 16059 16218
16373 16533 16690 16844 17001 17157 17313 17471 17635 17791 17943 18097 18259 18419
20133 20352 20393 20444 20801 20802 20803
SETOI 11728
SETOM 2705 19156 20123 20800 20833 21304 21355 21374 21503 21509
SETZ 4009 4109 5506 6381 6564 7114 7272 7531 7701 7900 8062 8305 8462 8933
8982 16925 19192 19991 20077 21300
SETZB 3860 4259 4293 4392 4462 4497 4568 4605 4672 4706 4808 4878 4914 5469
6347 7076 7228 7267 7490 7652 7692 7939 8101 8344 8501 8792 9133 9249
9291 11800 11955 12500 12938 13181 13445 13678 13917 14105 14356 14595 14838 15070
15298 19084 20128
SETZI 1642 1664 1841 1963
SETZM 726 734 738 2787 19573 20754 20756 20799 20807 20839 21274 21281 21287 21309
21313 21339 21350 21371
SIXBIT 84 85 612 613 621 622 729 774 19149 19155 21283 21289 21293 21359
21363 21409 21413 21425 21436 21441 21453 21459 21470 21529
SKIP 1040 1048 1056 1064 1072 1080 1088 1096 8706
SKIPA 1147 1158 1169 1180 1191 1202 1213 1224 8707 20686 20723 21055 SEQ 0649
SKIPE 728 8751 8794 19085 19094 19099 19144 19146 19194 19200 19210 19212 21271 21307
21314 21445
SKIPG 8841 8883 8975 8983
SKIPGE 8927 8935 8984 9027 21275 21348
SKIPL 8840 8884 8926 8934 21351 21514
SKIPLE 8976 9026
SKIPN 8752 8793 19119 20837 21057 21270 21316 21353 21356 21510
SOJ 10260 20309 21285
SOJA 10261 10549
SOJE 10298 10332
SOJG 892 1002 1106 1237 1273 1331 1368 1441 1507 1547 1587 1687 1725 1767
1807 1847 1896 1928 1972 2013 2053 2097 2137 2179 2219 2262 2303 2346
2385 2429 2471 2514 2554 2602 2639 2676 2711 2757 2793 2837 2881 2922
2962 3136 3309 3352 3565 3601 3637 3680 3722 3761 3794 3833 3875 3909
3944 3980 4025 4053 4082 4114 4151 4184 4230 4264 4298 4332 4364 4398
4434 4469 4504 4540 4577 4611 4644 4678 4713 4748 4780 4814 4849 4885
4922 4958 4996 5035 5072 5115 5161 5207 5246 5280 5321 5362 5404 5441
5478 5515 5553 5591 5629 5666 5705 5742 5784 5824 5868 5910 5954 5992
6028 6069 6110 6154 6201 6244 6281 6319 6353 6390 6425 6465 6499 6534
6569 6605 6643 6679 6727 6775 6825 6872 6915 6957 7001 7046 7083 7119
7156 7196 7237 7278 7320 7366 7414 7460 7501 7540 7580 7622 7661 7708
7749 7789 7830 7870 7909 7948 7988 8032 8071 8110 8151 8194 8234 8275
8314 8353 8392 8432 8471 8510 8550 8590 8631 8673 8717 8759 8801 8848
8891 8942 8991 9034 9073 9107 9138 9178 9214 9255 9299 9340 9401 9443
9485 9531 9576 9618 9653 9690 9727 9760 9801 9842 9875 9907 9948 9990
10032 10070 10114 10158 10194 10229 10266 10305 10336 10371 10376 10410 10416 10448
10479 10518 10554 10597 10641 10685 10729 10765 10801 10841 10881 10920 10960 11002
11042 11079 11117 11157 11195 11234 11271 11310 11346 11385 11424 11463 11502 11539
11579 11617 11656 11696 11732 11770 11809 11848 11887 11925 11964 12004 12044 12084
12123 12162 12203 12246 12291 12339 12385 12432 12470 12511 12551 12590 12632 12671
12719 12766 12821 12868 12910 12947 12994 13033 13072 13111 13149 13195 13238 13283
13329 13377 13415 13454 13492 13531 13570 13610 13648 13687 13727 13767 13808 13849
13887 13926 13966 14037 14075 14114 14157 14200 14244 14288 14326 14366 14406 14445
14484 14526 14564 14604 14646 14686 14727 14770 14808 14847 14883 14922 14961 15001
15039 15084 15128 15167 15213 15264 15304 15345 15386 15425 15466 15504 15545 15586
15627 15668 15707 15747 15787 15828 15869 15907 15946 15984 16024 16066 16106 16146
16186 16225 16264 16303 16342 16382 16422 16461 16502 16545 16583 16620 16659 16699
16737 16775 16813 16852 16890 16931 16970 17010 17048 17087 17126 17166 17205 17244
17283 17322 17363 17400 17441 17482 17523 17564 17605 17646 17684 17722 17760 17799
17837 17874 17913 17952 17990 18028 18067 18106 18147 18188 18229 18270 18311 18348
18389 18430 18494 18542 18592 18642 18691 18741 18791 18841 18879 18919 18962 19006
19039 19065 20316 20361 20405 20457 20509 20564 20608 20658 20699 20737 20785 20887
20927 20960 21001 21104 21171 21174 21220 21261
SOJGE 10475 20775 20834
SOJL 10331 10370 10411 10443
SOJLE 10444 10474
SOJN 10299
SOS 9940 20853
SOSA 9941 10511 20167
SOSE 9981 10025 10064 19111
SOSG 10107 10150
SOSGE 10223
SOSL 10024 10063 10106 10151 10187 SEQ 0650
SOSLE 10188 10222
SOSN 9982
SUB 4571 4572 4573 4607 4640 9939 9980 10105 10149 10259 10297 10369 10409 18687
18874 18914 19181 20922 20996 21149 21169
SUBB 4879 4916 4952 18835 20257
SUBI 4776 4810 4845 18787 20822 21054 21059 21099
SUBM 4674 4707 4742 18737 20266
SUBTTL 27 38 158 193 394 395 723 794 6537 12952 19113 21326 21531
TDC 6273 6277 6310 20173
TDCA 6313 20174
TDCE 6348 6385 6421 6457 6495 6529 6721 6723 6762 6765 6819 6821 6862
TDCN 6382 6460 6565 6600 6638 6675 6714 6717 6769 6771 6812 6815 6866 18486
18534 18584 18632 18683 18733 18783 18831
TDN 5433
TDNA 5436
TDNE 5473 5510 5545 5583 5621 5661 6910 6949 6996 7038 10950 10992 11108 11148
TDNN 5470 5507 5548 5586 5624 5658 6907 6952 6993 7041
TDO 5983 6020 6060 9562 9831 10145 10406 10629 10673 10717
TDOA 5987 6023 6064
TDOE 6102 6145 6191 6235
TDON 6105 6150 6195 6238
TDZ 5695 5733 5775 9518 9563 9791 9832 10100 10365 10630 10674 10718 18952 18995
TDZA 5698 5737 5779
TDZE 5819 5859 5905 5944
TDZN 5816 5863 5902 5948
TITLE 12
TLC 14800 14839 14875 14914 14953 14993
TLCA 14803 14842 14878 14917 14956 14996
TLCE 15034 15078 15080 15120 15162 15200 15203 15258 15260
TLCN 15031 15071 15074 15123 15160 15207 15209 15251 15254
TLN 13407 13446 13484 13523 13562 13602
TLNA 13410 13449 13487 13526 13565 13605
TLNE 767 5240 5313 5354 13643 13682 13719 13759 13800 13841 17357 17435 17474 18305
18383 18422 19086 19136 19142 19207 19249 19285 19323 19360 19397 19435 19472 19509
19546 19582 19627 19670 19713 19760 19808 19859 19913 19956 19999 20042 20085 20140
20185 20228 20271 20301 20314 20345 20359 20389 20403 20435 20442 20455 20486 20507
20540 20562 20593 20606 20638 20656 21082 21087 21101 21202 21218 21245 21259 21279
21341 21500 21504
TLNN 737 5238 5311 5352 13640 13679 13722 13762 13803 13844 20213 20919 21321 21502
21524
TLO 14318 14358 14398 14437 14476 14518 15941 16019 17043 17082 17121 17159 17518 17559
17600 17639 17985 18062 18099 18306 18384 18423 18996 19796 19847 19900 19939 20028
20443
TLOA 14321 14361 14401 14440 14479 14521
TLOE 14559 14597 14638 14678 14719 14762
TLON 14556 14599 14641 14681 14722 14765
TLZ 13879 13918 13958 13999 14029 16537 17516 17557 17598 17637 17832 17908 17945 18304
18382 18421 19749 19851 19907 19982 20071 20354
TLZA 13882 13921 13961 14032
TLZE 14070 14109 14148 14191 14235 14279
TLZN 14067 14106 14152 14195 14239 14283
TRC 12902 12939 12986 13025 13064 13103
TRCA 12905 12942 12989 13028 13067 13106 SEQ 0651
TRCE 13144 13189 13191 13230 13270 13273 13316 13319 13371 13373
TRCN 13141 13182 13185 13233 13277 13279 13323 13325 13364 13367
TRN 11762 11801 11840 11879
TRNA 11765 11804 11843 11882
TRNE 11920 11959 11996 12036 12076 12118 17517 17558 17599 17638 18141 18182 18223 18262
TRNN 11917 11956 11999 12039 12079 12115 13179 18873 18913
TRO 12462 12503 12543 12582 12624 12663 16101 16141 16181 16259 16298 16337 16375 16417
16497 16885 16926 16965 17003 17200 17239 17278 17315 17358 17436 17475 18142 18183
18224 18263 19122 19786 19835 19886 19942 20025
TROA 12465 12506 12546 12585 12627 12666
TROE 12712 12758 12814 12816 12859
TRON 12714 12761 12806 12809 12862
TRZ 12154 12195 12237 16100 16140 16180 16415 16456 16495 16535 16578 16654 16692 17356
17434 17473 18140 18181 18222 18261 19739 19839 19893 19985 20068 21375
TRZA 12157 12198 12241
TRZE 12286 12330 12380 12422
TRZN 12283 12334 12377 12426
TSC 7079 7115 7152 7188 20178
TSCA 7191 20179
TSCE 7232 7273 7312 7352 7355 7408 7410 7452
TSCN 7229 7269 7315 7360 7362 7401 7404 7455
TSN 8306 8345 8384 8424
TSNA 8309 8348 8387 8427
TSNE 8466 8505 8542 8582 8626 8665
TSNN 8463 8502 8545 8585 8623 8668
TSO 7493 7532 7572 7614
TSOA 7496 7535 7575 7617
TSOE 7656 7702 7704 7740 7781 7825 7862
TSON 7653 7694 7697 7744 7784 7821 7865
TSZ 7901 7940 7980 8024
TSZA 7904 7943 7983 8027
TSZE 8066 8105 8142 8185 8229 8266
TSZN 8063 8102 8146 8189 8226 8270
VAR 21671
XALL 14
XCT 21491
XLIST 6 393 394 526 21367 21368 21483 21535
XOR 1492 1495 1498 1501 1502 1503 1532 1535 1538 1541 1542 1543 1572 1575
1578 1581 1582 1583 2009 2172 2212 2253 2296 2378 2419 2420 2505 5773
6058 6861 7151 7450 8184 9166 9282 10873 11419 11496 11573 11690 15579 15660
18482 18530 18580 18628 18679 18729 18779 18827
XORB 15539 19428
XORI 11381 19209
XORM 2340 19427
XWD 4048 4079 4844 5390 8836 9024 9165 9166 9168 9176 9205 9241 9281 9282
9284 9297 9298 9332 9396 9475 9518 9562 9603 9644 9650 9652 9753 9791
9831 9867 9900 10100 10145 10365 10406 10629 10630 10673 10674 10717 10718 10950
10992 11108 11148 12194 12279 12324 12372 12418 12622 12706 12754 12799 12854 13360
13838 14274 14397 14757 15246 18872 18874 18912 18914 18952 18955 18995 18999 19034
19037 19038 19061 19063 19064 19106 19107 19160 20392 20438 20489 20543 20641 20882
20922 20996 21163 21169 21205 21211 21212