Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dakbb.seq
There are no other files named dakbb.seq in the archive.
MAINDEC-10-DAKBB.TXT
SEQ 0001
IDENTIFICATION
--------------
PRODUCT CODE: MAINDEC-10-DAKBB-B-D
PRODUCT NAME: DECSYSTEM10 PDP-10 KA10 BASIC
INSTRUCTION RELIABILITY TEST (2)
FUNCTION: TESTS, SKIPS, JUMPS, AOX, SOX, CAI, ETC.
VERSION: 0.2
DATE RELEASED: JANUARY 1977
MAINTAINED BY: DIAGNOSTIC ENGINEERING GROUP
AUTHOR: JOHN R. KIRCHOFF
COPYRIGHT(C) 1977
DIGITAL EQUIPMENT CORPORATION
MARLBORO, MASS. 01752
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 EXECPT 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 DEC.
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
MAINDEC-10-DAKBB.TXT
PAGE 2 SEQ 0002
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-DAKBB.TXT
PAGE 3 SEQ 0003
1.0 ABSTRACT
THIS PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST
IS THE SECOND IN A SERIES OF PDP-10 KA10 PROCESSOR
RANDOM NUMBER DIAGNOSTICS.
THE DIAGNOSTIC TESTS TESTS, SKIPS, JUMPS, AOX, SOX, CAI, ETC.
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.
2.0 REQUIREMENTS
2.1 EQUIPMENT
A PDP-10 KA10 EQUIPPED WITH A MINIMUM OF 32K OF MEMORY
CONSOLE TELETYPE
DECTAPE
LINE PRINTER (OPTIONAL)
2.2 STORAGE
THE PROGRAM RUNS WITHIN 32K OF MEMORY.
2.3 PRELIMINARY PROGRAMS
PREVIOUS PROCESSOR DIAGNOSTICS
MAINDEC-10-DAKBB.TXT
PAGE 4 SEQ 0004
3.0 PROGRAM PROCEDURES
3.1 LOADING PROCEDURE
THIS DIAGNOSTIC REQUIRES THAT THE DECSYSTEM10 SUBROUTINE
PROGRAM BE RESIDENT IN THE PDP-10.
DECTAPE - LOAD WITH DIAMON (DECTAPE DEVICE CODE 320)
TIME SHARING - RUN UNDER DIAMON.
3.2 STARTING PROCEDURE
A. SELECT OPERATIONAL CONSOLE DATA SWITCH SETTINGS (REFER TO
4.0 DATA SWITCH FUNCTIONS).
B. EXEC MODE
STAND-ALONE STARTING ADDRESS IS 30000.
C. USER MODE
RUN UNDER "DIAMON".
IN USER MODE THE FOLLOWING QUESTIONS WILL BE ASKED TO
SELECT THE OPERATIONAL SWITCHES:
TELETYPE SWITCH CONTROL ? 0,S,Y OR N (CR) -
IF THE OPERATOR TYPES "N", THE ACTUAL CONSOLE
SWITCHES ARE USED.
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-DAKBB.TXT
PAGE 5 SEQ 0005
3.3 OPERATING PROCEDURE
NORMAL OPERATION WITH ALL SWITCHES SET TO ZERO IS QUICK
VERIFY MODE. TO RELIABILITY TEST SET THE "RELIAB" SWITCH.
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-DAKBB.TXT
PAGE 6 SEQ 0006
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
10 TXTINH 0 PRINT FULL ERROR MESSAGES.
1 INHIBIT COMMENT PORTION OF ERROR MESSAGES.
11 INHPAG NOT USED
12 MODDVC NOT USED
13 INHCSH NOT USED
MAINDEC-10-DAKBB.TXT
PAGE 7 SEQ 0007
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 THE MI REGISTER WILL COUNT
FOR EACH OCCURANCE OF AN ERROR. 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-DAKBB.TXT
PAGE 8 SEQ 0008
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-DAKBB.TXT
PAGE 9 SEQ 0009
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-DAKBB.TXT
PAGE 10 SEQ 0010
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-DAKBB.TXT
PAGE 11 SEQ 0011
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-DAKBB.TXT
PAGE 12 SEQ 0012
6.0 ITERATION COUNTER
THE ITERATION COUNT OF THE PROGRAM IS DISPLAYED IN THE MEMORY
INDICATORS (MI). THIS COUNT IS A DECREMENTING COUNT AND
INITIALLY STARTS AT -1 IN STAND-ALONE OPERATION.
7.0 CYCLE TIME
A. NORMAL OPERATION - APPROXIMATELY FIVE SECONDS.
B. RELIABILITY MODE - APPROXIMATELY 1.5 TO 3 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-DAKBB.TXT
PAGE 13 SEQ 0013
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 'DAKBB.TMP'
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
THIS IS A HISTORY OF THE DEVELOPMENT OF MAINDEC-10-DAKBB
SEQ 0014
************************************************************************
PRODUCT CODE: MAINDEC-10-DAKBB
PRODUCT NAME: KA10 BASIC INSTRUCTION RELIABILITY # 2
DATE RELEASED: JANUARY 1977
VERSION: 0.2
UPDATE AUTHOR: JOHN R. KIRCHOFF
CHANGES MADE:
1. UPGRADE TO ALLOW COMPATABILITY WITH THE SUBROUTINE PACKAGE.
2. PROGRAM REPLACES OLD D0XX KA10 SERIES DIAGNOSTIC
************************************************************************
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 1
DAKBBT MAC 21-JAN-77 16:44 DIAGNOSTIC PARAMETERS SEQ 0015
1 ;MAINDEC-10-DAKBB
2
3 000002 DECVER==002
4 000000 MCNVER==000
5
6 XLIST
7 LIST
8 LALL
9
10 NAME \MCNVER,\DECVER^
11
12 TITLE DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2^
13
14 XALL
15
16 ;TEST DESIGNED FOR RANDOM NUMBER TESTING OF THE PDP-10 BASIC INSTRUCTIONS
17 ;(TESTS,SKIPS,JUMPS,AOX,SOX,CAI,ETC.)
18
19 ;COPYRIGHT 1977
20 ;DIGITAL EQUIPMENT CORPORATION
21 ;MARLBORO, MASS. 01752
22
23 ;JOHN R. KIRCHOFF
24
25 000137 LOC 137
26 000137 000000 000002 MCNVER,,DECVER
27
28 000001 ENDPGM==1
29 NOSYM
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 2
DAKBBT MAC 21-JAN-77 16:44 DIAGNOSTIC PARAMETERS SEQ 0016
30 SUBTTL DIAGNOSTIC PARAMETERS
31
32 ;OPERATOR DEFINITIONS
33
34 001000 000000 OPDEF ERR [1B8]
35 002000 000000 OPDEF ERRM [2B8]
36 003000 000000 OPDEF ERRI [3B8]
37 004000 000000 OPDEF ERROR [4B8]
38 005000 000000 OPDEF ER [5B8]
39 011000 000000 OPDEF EERR [11B8]
40 012000 000000 OPDEF EERRM [12B8]
41 013000 000000 OPDEF EERRI [13B8]
42
43 000001 KLOLD==1
44 040055 LUUO1=ERRMES
45 040055 LUUO2=ERRMES
46 040055 LUUO3=ERRMES
47 040055 LUUO4=ERRMES
48 040055 LUUO5=ERRMES
49 040055 LUUO11=ERRMES
50 040055 LUUO12=ERRMES
51 040055 LUUO13=ERRMES
52
53 ;SUBROUTINE ASSEMBLY DEFINITIONS
54
55 000001 EXCASB==1
56 000001 USRASB==1
57 000010 KA10=10
58 000001 PGMEND==1
59 000040 DEBUG==40
60 000001 ERRELB==1
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 3
DAKBBT MAC 21-JAN-77 16:44 DIAGNOSTIC PARAMETERS SEQ 0017
61
62 030000 SADR1==BEGIN
63 030076 SADR2==RESRT1
64 030635 SADR3==RENTR1
65 030000 SADR4==BEGIN
66 030000 SADR5==BEGIN
67 030000 SADR6==BEGIN
68 254200 030000 SADR7==HALT BEGIN
69 254200 030000 SADR8==HALT BEGIN
70 254200 030000 SADR9==HALT BEGIN
71 254200 030000 SADR10==HALT BEGIN
72 254200 030000 SADR11==HALT BEGIN
73
74 123457 654321 PAREA1==123457,,654321
75 000000 PAREA2==0
76 444153 424200 PAREA3==SIXBIT/DAKBB/
77 645560 000000 PAREA4==SIXBIT/TMP/
78 000000 PAREA5==0
79 000000 PAREA6==0
80
81 000001 ITERAT==1
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 4
DAKBBT MAC 21-JAN-77 16:44 DIAGNOSTIC PARAMETERS SEQ 0018
82 ;MACROS
83
84 DEFINE SETUP (A,B)<
85 AC1=<AC+1>&17
86 AC2=<AC+2>&17
87 AC3=<AC+3>&17
88 AC4=<AC+4>&17
89 AC5=<AC+5>&17
90 RAN1=<AC-2>&17
91 MOVEI AC-1,.
92 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
93 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
94 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
95 MOVEI AC-1,A ;ROUTINE WEIGHTING
96 ASH AC-1,@CMPLXT+B ;ROUTINE COMPLEXITY
97 ASH AC-1,@RTIME ;RUN TIME CONTROLLER >
98
99 DEFINE RANDOM (A)<
100 MOVE AC,RAN# ;GENERATE A PSEUDO RANDOM NUMBER
101 ADD AC,[142536475076]
102 ROT AC,-1 ;IN BOTH AC AND
103 EQVB AC,RAN ;REGISTER RAN >
104
105 DEFINE LOOP (A,B)<
106 SOJG AC-1,A ;ITERATION COUNTER
107 MOVE AC,RAN ;RESTORE RANDOM NUMBER
108 JUMPL AC-1,B ;LOOP ON ERROR SWITCH >
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 1
PARAM KLM 18-JAN-77 11:38 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977 SEQ 0019
109 SUBTTL *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977
110
111 DEFINE S,<;*********************************************************************>
112
113 S^;*********************************************************************^
114 ;*DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE)
115 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
116 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
117 S^;*********************************************************************^
118
119 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION
120 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS
121 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE
122
123 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
124 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
125 010000 DING== 010000 ;RING BELL ON ERROR
126
127 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR
128 002000 ERSTOP==002000 ;HALT ON TEST ERROR
129 001000 PALERS==001000 ;PRINT ALL ERRORS
130
131 000400 RELIAB==000400 ;RELIABILITY MODE
132 000200 TXTINH==000200 ;INHIBIT ERROR TEXT
133 000100 INHPAG==000100 ;INHIBIT PAGING
134
135 000040 MODDVC==000040 ;MODIFY DEVICE CODE
136 000020 INHCSH==000020 ;INHIBIT CACHE
137 000010 OPRSEL==000010 ;OPERATOR SELECTION
138
139 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH
140
141 000002 KAHZ50==000002 ;KA10 50 HERTZ POWER
142
143 ;SWITCH 17 RESERVED !!!
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 2
PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0020
144 SUBTTL *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977
145
146 S^;*********************************************************************^
147 ;*SPECIAL SUBPROGRAM LINKAGES
148 S^;*********************************************************************^
149
150 027772 FSELNK= 27772 ;FILE SELECT LINK
151 027773 FRDLNK= 27773 ;FILE READ LINK
152 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS
153 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS
154 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS
155 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS
156
157 S^;*********************************************************************^
158 ;*SPECIAL SUBROUTINE FATAL HALTS
159 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
160 S^;*********************************************************************^
161
162 ;ADDRESS TAG REASON
163 ;---------------------
164
165 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION
166 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR
167 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR
168 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT
169 ; 1014 DTEBER ;DTE20 INTERRUPT WITHOUT DOORBELL
170 ; 1015 DTECER ;DTE20 CLOCK INTERRUPT WITHOUT FLAG SET
171 ; 1016 CPIERR ;CPU INITIALIZATION ERROR
172 ; 1017 EOPERR ;END OF PROGRAM ERROR
173 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT
174
175 S^;*********************************************************************^
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 3
PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0021
176 S^;*********************************************************************^
177 ;OPERATOR DEFINITIONS (NON-UUO'S)
178 S^;*********************************************************************^
179
180 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL
181 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN
182 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST
183 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST
184 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S
185 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT
186 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT
187 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT
188
189 S^;*********************************************************************^
190 ;*SUBROUTINE INITIALIZATION CALL
191 S^;*********************************************************************^
192
193 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION
194
195 S^;*********************************************************************^
196 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
197 S^;*********************************************************************^
198
199 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT
200 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT
201
202 S^;*********************************************************************^
203 ;*TERMINAL INPUT UUO'S
204 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
205 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
206 S^;*********************************************************************^
207
208 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER
209 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y
210 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N
211 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD
212 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD
213 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD
214 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK
215 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK
216 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD
217 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 4
PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0022
218 ;*TERMINAL OUTPUT UUO'S.
219
220 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD
221 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED
222 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE
223 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED
224 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE
225 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED
226 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE
227 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED
228 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE
229 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED
230 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE
231 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED
232 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER
233 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED
234 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT
235 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED
236 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS
237 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED
238 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS
239 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED
240 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS
241 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED
242 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS
243 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED
244 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS
245 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED
246 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS
247 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED
248 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS
249 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED.
250 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS
251 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED
252 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL
253 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED
254 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6
255 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
256 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S
257 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
258 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S
259 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
260 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S
261 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
262 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME
263 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD
264 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED
265 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE
266 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD
267 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED
268 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
269 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
270 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE
271 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED
272 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 4-1
PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0023
273 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
274 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL
275
276 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE
277
278 DEFINE PMSG (ARG),<
279 PSIXM [SIXBIT\ARG'_\]>
280
281 DEFINE PMSGF (ARG),<
282 PSIXMF [SIXBIT\ARG'_\]>
283
284 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
285 ;* CONSERVES CORE OVER ASCIZ
286
287 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]>
288
289 ;*CONSOLE SWITCH INPUT UUO.
290 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
291 ;* USER MODE.
292
293 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES
294
295 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
296 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
297
298 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - PDP-11 CLOCK
299 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - DK20 METER
300
301 ;*KL10 ONLY CACHE OPERATION UUO'S
302
303 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE
304 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH
305 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 5
PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0024
306 ;*END OF PASS/PROGRAM UUOS
307
308 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
309 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
310
311 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS
312 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO
313
314 ;*MEMORY MANAGEMENT UUO'S
315 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
316 ;*ADDRESS CONVERSION, ETC...
317
318 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY
319 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY
320 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT
321 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT
322 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK
323 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP
324 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP
325
326 ;*DEVICE CODE MODIFICATION UUO
327 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
328 ;*IOT'S TO A DIFFERENT DEVICE CODE.
329
330 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER
331 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM
332
333 030000 IFNDEF MODDVL,<MODDVL==BEGIN>
334 030000 IFNDEF MODDVU,<MODDVU==BEGIN>
335
336 ;*"DIAMON" FILE SELECTION AND READ UUOS
337
338 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION
339 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA
340 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA
341 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA
342
343 ;*KI10 ONLY UUO FOR PRINTING MARGIN VALUES
344
345 037700 000002 OPDEF PNTMGN [37B8!16B12!2] ;PRINT MARGIN VALUE
346
347 XLIST
348 LIST
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 1
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0025
349 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977
350
351 030000 LOC 30000
352
353 S^;*********************************************************************^
354 ;*PROGRAM STARTING ADDRESSES
355 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
356 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
357 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
358 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
359 S^;*********************************************************************^
360
361 030000 254 00 1 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START
362 030001 254 00 0 00 030600 $START: JRST START ;MODE CHECK STARTING ADDRESS
363
364 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START
365
366 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START
367
368 030004 254 00 0 00 030000 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START
369
370 030005 254 00 0 00 030076 PFSTRT: JRST SADR2 ;POWER FAIL RESTART
371
372 030006 254 00 0 00 030635 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY)
373
374 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT"
375 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START
376
377 030010 254 00 0 00 030605 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE)
378 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE
379 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE
380
381 030013 254200 030000 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS
382 030014 254200 030000 START2: SADR8 ; "
383 030015 254200 030000 START3: SADR9 ; "
384 030016 254200 030000 START4: SADR10 ; "
385 030017 254200 030000 START5: SADR11 ; "
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 2
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0026
386 S^;*********************************************************************^
387 ;*PROGRAM FIXED PARAMETER AREA
388 S^;*********************************************************************^
389
390 030020 444153 424200 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME
391 030021 645560 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION
392 030022 123457 654321 RANDBS: PAREA1 ;RANDOM BASE NUMBER
393 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES
394 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS
395 030025 000000 030637 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME
396 030026 000000 000002 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL
397 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT
398 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT
399 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED
400 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED
401 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE
402 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS
403 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER
404 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER
405
406 S^;*********************************************************************^
407 ;*PROGRAM VARIABLE PARAMETER AREA
408 S^;*********************************************************************^
409
410 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG
411 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10
412 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
413 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG
414 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG
415 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10
416 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG
417 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS
418 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT
419 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG
420 030051 000000 000000 TESTPC: 0 ;SUBTEST PC
421 030052 000000 000000 ERRPC: 0 ;ERROR PC
422 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS
423 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME
424 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE
425 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 3
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0027
426 S^;*********************************************************************^
427 ;*SPECIAL PROGRAM DISPATCH ADDRESSES
428 S^;*********************************************************************^
429
430 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS
431 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM
432 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN
433 030062 000000 030000 CNTLC: SADR5 ;CONTROL C XFER ADDRESS
434 030063 000000 030000 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS
435 030064 CPOPJ1: ;SKIP RETURN
436 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO
437 030065 CPOPJ: ;NON-SKIP REGULAR RETURN
438 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN
439 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE
440 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE
441 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX)
442 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE
443 030072 255 00 0 00 000000 $ITRX1: JFCL ; "
444 030073 255 00 0 00 000000 $USRHL: JFCL ; "
445 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE
446 030075 255 00 0 00 000000 $RSRTY: JFCL ; "
447 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX)
448 030077 255 00 0 00 000000 RESRT2: JFCL ; "
449 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE
450 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE
451 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT
452
453 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR)
454 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT
455 030105 000000 000000 0 ;INITED AS (JRST $ITRC1)
456
457 S^;*********************************************************************^
458 ;*PROCESSOR CONTROL STORAGE
459 S^;*********************************************************************^
460
461 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0
462 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI
463 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR
464 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI)
465 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI)
466
467 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO
468 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO
469
470 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS
471 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG
472 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG
473 030120 000000 000000 %COREC: 0 ; " CORRECT DATA
474 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG
475 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA
476 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 4
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0028
477 S^;*********************************************************************^
478 ;*UUO DISPATCH TABLE
479 S^;*********************************************************************^
480 XLIST
481 LIST
482 030124 040055 030070 UUODIS: LUUO1,,$UUOER
483 030125 040055 040055 LUUO3,,LUUO2
484 030126 040055 040055 LUUO5,,LUUO4
485 030127 030070 030070 LUUO7,,LUUO6
486 030130 040055 030070 LUUO11,,LUUO10
487 030131 040055 040055 LUUO13,,LUUO12
488 030132 030070 030070 LUUO15,,LUUO14
489 030133 030070 030070 LUUO17,,LUUO16
490 030134 030070 030070 LUUO21,,LUUO20
491 030135 030070 030070 LUUO23,,LUUO22
492 030136 030070 030070 LUUO25,,LUUO24
493 030137 030070 030070 LUUO27,,LUUO26
494 030140 030070 030070 LUUO31,,LUUO30
495 030141 030070 030070 LUUO33,,LUUO32
496
497 S^;*********************************************************************^
498 ;*MEMORY MANAGMENT STORAGE
499 S^;*********************************************************************^
500
501 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
502 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
503 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.)
504 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY
505 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE
506
507 S^;*********************************************************************^
508 ;*PRINT CONTROL STORAGE
509 S^;*********************************************************************^
510
511 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
512 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE
513 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG
514 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS
515 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL
516 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME
517 030225 000000 000000 $TWCNT: 0 ;TIME WAITED
518 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG
519 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG
520 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE
521 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR
522 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR
523 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER
524 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG
525 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG
526 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG
527 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG
528 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS
529 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 5
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0029
530 S^;*********************************************************************^
531 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
532 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
533 ;* MOVEI NAME
534 ;* PNTA ;OR PNTAF
535 S^;*********************************************************************^
536
537 030242 CRLF: ASCII/
538 030242 015 012 000 000 000 /
539 030243 CRLF2: ASCII/
540
541 030243 015 012 015 012 000 /
542 030244 054 000 000 000 000 COMMA: ASCII/,/
543 030245 056 000 000 000 000 PERIOD: ASCII/./
544 030246 040 000 000 000 000 SPACE: ASCII/ /
545 030247 011 000 000 000 000 TAB: ASCII/ /
546 030250 MINUS:
547 030250 055 000 000 000 000 HYPEN: ASCII/-/
548 030251 053 000 000 000 000 PLUS: ASCII/+/
549 030252 052 000 000 000 000 AST: ASCII/*/
550 030253 100 000 000 000 000 ATSIN: ASCII/@/
551 030254 050 000 000 000 000 LFP: ASCII/(/
552 030255 051 000 000 000 000 RTP: ASCII/)/
553 030256 007 0000000000 BELL: BYTE (7) 007
554 030257 077 000 000 000 000 QUEST: ASCII/?/
555 030260 057 000 000 000 000 SLASH: ASCII!/!
556 030261 044 000 000 000 000 DOLLAR: ASCII/$/
557 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX
558 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR
559 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT
560
561 S^;*********************************************************************^
562 ;*USER MODE OUTPUT FILE INFORMATION
563 S^;*********************************************************************^
564
565 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER
566 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME
567 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION
568 030272 BLOCK 2
569
570 S^;*********************************************************************^
571 ;*DISK UPDATE MODE FILE INFORMATION
572 S^;*********************************************************************^
573
574 030274 $IBUF: BLOCK 3
575 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/
576 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/
577 030301 BLOCK 2
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 6
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0030
578 S^;*********************************************************************^
579 ;*PUSHDOWN LIST CONTROL INFORMATION
580 S^;*********************************************************************^
581
582 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST
583 030304 PLISTS: BLOCK 200
584 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST
585
586 S^;*********************************************************************^
587 ;*POWER LINE CLOCK FREQUENCY FLAG
588 S^;*********************************************************************^
589
590 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE
591
592 S^;*********************************************************************^
593 ;*KL10 CACHE CONTROL FLAGS
594 S^;*********************************************************************^
595
596 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0
597 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0
598
599 S^;*********************************************************************^
600 ;*NUMBER INPUT DIGIT FLAG
601 S^;*********************************************************************^
602
603 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED
604
605 S^;*********************************************************************^
606 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
607 S^;*********************************************************************^
608
609 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
610
611 S^;*********************************************************************^
612 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
613 S^;*********************************************************************^
614
615 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO
616 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO
617 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
618
619 S^;*********************************************************************^
620 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION
621 S^;*********************************************************************^
622
623 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 7
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0031
624 S^;*********************************************************************^
625 ;*KL10 PROCESSOR TYPE FLAG, 0=P0, 1=BBD NEW, 2=BBD OLD
626 S^;*********************************************************************^
627
628 030516 000000 000000 KLTYP: 0
629
630 S^;*********************************************************************^
631 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION
632 S^;*********************************************************************^
633
634 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER
635
636 S^;*********************************************************************^
637 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
638 S^;*********************************************************************^
639
640 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
641
642 S^;*********************************************************************^
643 ;*"SWITCH" CALL USAGE CONTROL
644 S^;*********************************************************************^
645
646 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
647
648 S^;*********************************************************************^
649 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
650 S^;*********************************************************************^
651
652 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
653 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
654
655 S^;*********************************************************************^
656 ;*SPECIAL FUTURE EXPANSION ROOM
657 ;*IF ANY FIXED AREA TAGS ARE ADDED, REDUCE THE SIZE OF
658 ;*THIS BLOCK STATEMENT ACCORDINGLY. THIS MUST BE DONE
659 ;*SO THAT PREVIOUS FIXED ASSIGNMENTS DO NOT CHANGE.
660 S^;*********************************************************************^
661
662 030524 BLOCK 53 ;HOPEFULLY THIS IS ENOUGH FOREVER
663
664 S^;*********************************************************************^
665 ;*END OF FIXED STORAGE
666 S^;*********************************************************************^
667
668 030577 $ENDFX=<PLISTE+100>&<777700>-1
669 030577 LOC $ENDFX
670 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 1
DAKBBM MAC 21-JAN-77 16:48 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0032
671 ;PROGRAM START
672
673 030600 265 00 0 00 030011 START: PGMINT ;INITIALIZE SUBROUTINES
674 030601 200 00 0 00 030022 MOVE 0,RANDBS ;EXEC, SETUP RANDOM
675 030602 332 00 0 00 030037 SKIPE USER ;USER, USE TIME OF DAY IN JIFFIES
676 030603 040 00 0 00 040317 CALL 0,[SIXBIT/TIMER/]
677 030604 202 00 0 00 040444 MOVEM 0,RAN ;SETUP RANDOM BASE
678
679 ;INITIALIZE COMPLEXITY TABLE
680
681 000000 A=0
682 030605 402 00 0 00 030666 STARTA: SETZM CMPLXT ;STORE A TABLE OF POWERS OF 2
683 030606 201 01 0 00 000001 MOVEI 1,1 ;OR 0.
684 030607 037 10 0 00 000002 SWITCH
685 030610 607 00 0 00 000400 TLNN RELIAB ;RELIABILITY SWITCH SET ?
686 030611 402 00 0 00 000001 SETZM 1 ;NO, STORE ZERO'S
687
688 REPEAT 7,<
689 MOVEM 1,CMPLXT+1+A
690 LSH 1,1
691 A=A+1>
692
693 030612 202 01 0 00 030667 MOVEM 1,CMPLXT+1+A
694 030613 242 01 0 00 000001 LSH 1,1
695 000001 A=A+1
696
697 030614 202 01 0 00 030670 MOVEM 1,CMPLXT+1+A
698 030615 242 01 0 00 000001 LSH 1,1
699 000002 A=A+1
700
701 030616 202 01 0 00 030671 MOVEM 1,CMPLXT+1+A
702 030617 242 01 0 00 000001 LSH 1,1
703 000003 A=A+1
704
705 030620 202 01 0 00 030672 MOVEM 1,CMPLXT+1+A
706 030621 242 01 0 00 000001 LSH 1,1
707 000004 A=A+1
708
709 030622 202 01 0 00 030673 MOVEM 1,CMPLXT+1+A
710 030623 242 01 0 00 000001 LSH 1,1
711 000005 A=A+1
712
713 030624 202 01 0 00 030674 MOVEM 1,CMPLXT+1+A
714 030625 242 01 0 00 000001 LSH 1,1
715 000006 A=A+1
716
717 030626 202 01 0 00 030675 MOVEM 1,CMPLXT+1+A
718 030627 242 01 0 00 000001 LSH 1,1
719 000007 A=A+1
720
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 2
DAKBBM MAC 21-JAN-77 16:48 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0033
721 ;INITIALIZE RUN TIME
722
723 030630 201 01 0 00 000001 MOVEI 1,1
724 030631 603 00 0 00 000400 TLNE RELIAB ;RELIABILITY SWITCH SET ?
725 030632 201 01 0 00 000007 MOVEI 1,7 ;YES, MULTIPLY RUNNING TIME
726 030633 202 01 0 00 030665 MOVEM 1,RTIME ;STORE IN RTIME
727
728 030634 254 00 0 00 030706 JRST TDCN1 ;GO PERFORM DIAGNOSTIC
729
730 030635 037 05 0 00 000002 RENTR1: DROPDV ;CLOSE LOGICAL OUTPUT FILE
731 030636 040 00 0 00 040320 CALL [SIXBIT .EXIT.]
732
733 030637 PGMNAM: ASCIZ/
734 030637 015 012 120 104 120 PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2 (DAKBB)
735 030640 055 061 060 040 040
736 030641 113 101 061 060 040
737 030642 102 101 123 111 103
738 030643 040 111 116 123 124
739 030644 122 125 103 124 111
740 030645 117 116 040 122 105
741 030646 114 111 101 102 111
742 030647 114 111 124 131 040
743 030650 124 105 123 124 040
744 030651 062 040 050 104 101
745 030652 113 102 102 051 015
746 030653 012 050 124 105 123 (TESTS, SKIPS, JUMPS, AOX, SOX, CAI, ETC.)
747 030654 124 123 054 040 123
748 030655 113 111 120 123 054
749 030656 040 112 125 115 120
750 030657 123 054 040 101 117
751 030660 130 054 040 123 117
752 030661 130 054 040 103 101
753 030662 111 054 040 105 124
754 030663 103 056 051 015 012 /
755 030664 000 000 000 000 000
756
757 ;CONSTANTS
758
759 030665 000000 000000 RTIME: 0
760 030666 CMPLXT: BLOCK 20
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 3
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0034
761 SUBTTL DIAGNOSTIC SECTION
762 LALL
763
764 ;TEST TDCN. CHECK FOR SKIP /NO SKIP AND
765 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
766
767
768 000006 AC=6
769 030706 TDCN1: SETUP 100,0^
770 000007 AC1=<AC+1>&17
771 000010 AC2=<AC+2>&17
772 000011 AC3=<AC+3>&17
773 000012 AC4=<AC+4>&17
774 000013 AC5=<AC+5>&17
775 000004 RAN1=<AC-2>&17
776 030706 201 05 0 00 030706 MOVEI AC-1,.
777 030707 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
778 030710 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
779 030711 202 05 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
780 030712 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
781 030713 240 05 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
782 030714 240 05 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
783 030715 TDCN2: RANDOM^
784 030715 200 06 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
785 030716 270 06 0 00 040321 ADD AC,[142536475076]
786 030717 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
787 030720 447 06 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
788 030721 400 07 0 00 000000 TDCN3: SETZ AC1, ;CLEAR C("AC").
789 030722 656 07 0 00 000006 TDCN AC1,AC ;C(E)+C(AC)=0. NO SKIP.
790 030723 312 07 0 00 040444 CAME AC1,RAN ;C(AC) SHOULD = C(E).
791 030724 001 06 0 00 040322 ERR AC,[0]
792 LOOP TDCN2,TDCN3^
793 030725 367 05 0 00 030715 SOJG AC-1,TDCN2 ;ITERATION COUNTER
794 030726 200 06 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
795 030727 321 05 0 00 030721 JUMPL AC-1,TDCN3 ;LOOP ON ERROR SWITCH ^
796
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 4
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0035
797 ;TEST TDCN. CHECKING FOR SKIP/NO SKIP AND
798 ;CORRECT DATA IN AC FOR RAN TO -1 CONDITION.
799
800
801 000010 AC=10
802 030730 TDCN4: SETUP 100,0^
803 000011 AC1=<AC+1>&17
804 000012 AC2=<AC+2>&17
805 000013 AC3=<AC+3>&17
806 000014 AC4=<AC+4>&17
807 000015 AC5=<AC+5>&17
808 000006 RAN1=<AC-2>&17
809 030730 201 07 0 00 030730 MOVEI AC-1,.
810 030731 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
811 030732 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
812 030733 202 07 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
813 030734 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
814 030735 240 07 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
815 030736 240 07 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
816 030737 TDCN5: RANDOM^
817 030737 200 10 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
818 030740 270 10 0 00 040321 ADD AC,[142536475076]
819 030741 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
820 030742 447 10 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
821 030743 322 10 0 00 030737 JUMPE AC,TDCN5 ;REJECT IF RAN = 0.
822 030744 477 11 0 00 000006 TDCN6: SETOB AC1,RAN1 ;SET C(AC) TO A -1.
823 030745 460 12 0 00 000010 SETCM AC2,AC ;SIMULATE TDC
824 030746 656 11 0 00 000010 TDCN AC1,AC ;C(E)+C(AC) NOT=0. SKIP.
825 030747 005 11 0 00 040323 ER AC1,[ASCII /TST/]
826 030750 312 11 0 00 000012 CAME AC1,AC2 ;C(AC)SHOULD=SIM. ANS.
827 030751 001 10 0 00 040324 ERR AC,[-1]
828 LOOP TDCN5,TDCN6^
829 030752 367 07 0 00 030737 SOJG AC-1,TDCN5 ;ITERATION COUNTER
830 030753 200 10 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
831 030754 321 07 0 00 030744 JUMPL AC-1,TDCN6 ;LOOP ON ERROR SWITCH ^
832
833
834
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 5
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0036
835
836
837 ;TEST TDCN. CHECKING FOR SKIP /NO SKIP AND
838 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
839
840
841 000002 AC=2
842 030755 TDCN7: SETUP 100,0^
843 000003 AC1=<AC+1>&17
844 000004 AC2=<AC+2>&17
845 000005 AC3=<AC+3>&17
846 000006 AC4=<AC+4>&17
847 000007 AC5=<AC+5>&17
848 000000 RAN1=<AC-2>&17
849 030755 201 01 0 00 030755 MOVEI AC-1,.
850 030756 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
851 030757 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
852 030760 202 01 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
853 030761 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
854 030762 240 01 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
855 030763 240 01 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
856 030764 TDCN8: RANDOM^
857 030764 200 02 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
858 030765 270 02 0 00 040321 ADD AC,[142536475076]
859 030766 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
860 030767 447 02 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
861 030770 322 02 0 00 030764 JUMPE AC,TDCN8 ;REJECT IF RAN = 0.
862 030771 656 02 0 00 000002 TDCN9: TDCN AC,AC ;C(E) + C(AC) NOT = 0...SKIP.
863 030772 005 02 0 00 040323 ER AC,[ASCII /TST/]
864 030773 312 02 0 00 040322 CAME AC,[0] ;C(AC) SHOULD = 0.
865 030774 011 00 0 00 040444 EERR ,RAN
866 LOOP TDCN8,TDCN9^
867 030775 367 01 0 00 030764 SOJG AC-1,TDCN8 ;ITERATION COUNTER
868 030776 200 02 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
869 030777 321 01 0 00 030771 JUMPL AC-1,TDCN9 ;LOOP ON ERROR SWITCH ^
870
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 6
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0037
871
872
873 ;TEST TDCN. CHECKING FOR SKIP /NO SKIP AND
874 ;CORRECT DATA IN AC FOR RAN TO NOT RAN CONDITION
875
876
877 000003 AC=3
878 031000 TDCNG: SETUP 100,0^
879 000004 AC1=<AC+1>&17
880 000005 AC2=<AC+2>&17
881 000006 AC3=<AC+3>&17
882 000007 AC4=<AC+4>&17
883 000010 AC5=<AC+5>&17
884 000001 RAN1=<AC-2>&17
885 031000 201 02 0 00 031000 MOVEI AC-1,.
886 031001 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
887 031002 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
888 031003 202 02 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
889 031004 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
890 031005 240 02 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
891 031006 240 02 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
892 031007 TDCNH: RANDOM^
893 031007 200 03 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
894 031010 270 03 0 00 040321 ADD AC,[142536475076]
895 031011 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
896 031012 447 03 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
897 031013 460 04 0 00 000003 TDCNI: SETCM AC1,AC ;MAKE C("AC")=COMP OF RAN.
898 031014 200 01 0 00 000004 MOVE RAN1,AC1 ;SAVE C(AC) IN CASE OF ERROR.
899 031015 656 04 0 00 000003 TDCN AC1,AC ;C(E)+C(AC)=0. NO SKIP.
900 031016 312 04 0 00 040324 CAME AC1,[-1] ;C(AC) SHOULD = A-1.
901 031017 001 03 0 00 000001 ERR AC,RAN1
902 LOOP TDCNH,TDCNI^
903 031020 367 02 0 00 031007 SOJG AC-1,TDCNH ;ITERATION COUNTER
904 031021 200 03 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
905 031022 321 02 0 00 031013 JUMPL AC-1,TDCNI ;LOOP ON ERROR SWITCH ^
906
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 7
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0038
907
908
909 ;TEST TDCE,TDCN. ROT A MASK BIT IN E AND
910 ;CLEAR THAT BIT IN AC BEFORE TDC. CHECK SKIP/NO SKIP
911 ;AND CORRECT DATA IN AC.
912
913
914 000004 AC=4
915 031023 TDCE1: SETUP 40,0^
916 000005 AC1=<AC+1>&17
917 000006 AC2=<AC+2>&17
918 000007 AC3=<AC+3>&17
919 000010 AC4=<AC+4>&17
920 000011 AC5=<AC+5>&17
921 000002 RAN1=<AC-2>&17
922 031023 201 03 0 00 031023 MOVEI AC-1,.
923 031024 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
924 031025 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
925 031026 202 03 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
926 031027 201 03 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
927 031030 240 03 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
928 031031 240 03 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
929 031032 201 05 0 00 000001 MOVEI AC1,1 ;SETUP AC1 TO CONTAIN ONE MASK BIT.
930 031033 TDCE2: RANDOM^
931 031033 200 04 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
932 031034 270 04 0 00 040321 ADD AC,[142536475076]
933 031035 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
934 031036 447 04 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
935 031037 241 05 0 00 000001 ROT AC1,1 ;ROT MASK TO TEST NEXT BIT
936 031040 420 04 0 00 000005 TDCE3: ANDCM AC,AC1 ;CLEAR MASK BIT IN AC.
937 031041 200 06 0 00 000004 MOVE AC2,AC ;SAVE AC IN AC2.
938 031042 656 04 0 00 000005 TDCN AC,AC1 ;C(E) + C(AC) = 0...NO SKIP.
939 031043 254 00 0 00 031045 JRST .+2
940 031044 005 04 0 00 040323 ER AC,[ASCII /TST/];TDCN SKIPPED.
941 031045 656 04 0 00 000005 TDCN AC,AC1 ;C(E) + C(AC) NOT = 0...SKIP.
942 031046 005 04 0 00 040323 ER AC,[ASCII /TST/]
943 031047 312 04 0 00 000006 CAME AC,AC2 ;C(AC) SHOULD = ORIG. C(AC).
944 031050 001 05 0 00 000006 ERR AC1,AC2
945 031051 652 04 0 00 000005 TDCE AC,AC1 ;C(E) + C(AC) = 0...SKIP.
946 031052 005 04 0 00 040323 ER AC,[ASCII /TST/]
947 031053 652 04 0 00 000005 TDCE AC,AC1 ;C(E) + C(AC) NOT = 0...NO SKIP.
948 031054 312 04 0 00 000006 CAME AC,AC2 ;C(AC) SHOULD = ORIG. C(AC).
949 031055 001 05 0 00 000006 ERR AC1,AC2
950 LOOP TDCE2,TDCE3^
951 031056 367 03 0 00 031033 SOJG AC-1,TDCE2 ;ITERATION COUNTER
952 031057 200 04 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
953 031060 321 03 0 00 031040 JUMPL AC-1,TDCE3 ;LOOP ON ERROR SWITCH ^
954
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 8
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0039
955
956
957 ;TEST TDCE, TDCN. ROT A BIT IN E AND
958 ;SET THAT BIT IN AC BEFORE TDC. CHECK FOR
959 ;SKIP /NO SKIP AND CORRECT DATA IN AC.
960
961
962 000005 AC=5
963 031061 TDCEA: SETUP 40,0^
964 000006 AC1=<AC+1>&17
965 000007 AC2=<AC+2>&17
966 000010 AC3=<AC+3>&17
967 000011 AC4=<AC+4>&17
968 000012 AC5=<AC+5>&17
969 000003 RAN1=<AC-2>&17
970 031061 201 04 0 00 031061 MOVEI AC-1,.
971 031062 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
972 031063 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
973 031064 202 04 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
974 031065 201 04 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
975 031066 240 04 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
976 031067 240 04 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
977 031070 201 06 0 00 000001 MOVEI AC1,1 ;SETUP AC1 TO CONTAIN MASK BIT.
978 031071 TDCEB: RANDOM^
979 031071 200 05 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
980 031072 270 05 0 00 040321 ADD AC,[142536475076]
981 031073 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
982 031074 447 05 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
983 031075 241 06 0 00 000001 ROT AC1,1 ;ROT MASK TO TEST NEXT BIT.
984 031076 434 05 0 00 000006 TDCEC: IOR AC,AC1 ;SET MASK BIT IN AC.
985 031077 200 07 0 00 000005 MOVE AC2,AC ;SAVE AC IN AC2.
986 031100 652 05 0 00 000006 TDCE AC,AC1 ;C(E) + C(AC) NOT = 0...NO SKIP.
987 031101 254 00 0 00 031103 JRST .+2
988 031102 005 05 0 00 040323 ER AC,[ASCII /TST/];TDCE SKIPPED.
989 031103 652 05 0 00 000006 TDCE AC,AC1 ;C(E) + C(AC) = 0...SKIP.
990 031104 005 05 0 00 040323 ER AC,[ASCII /TST/]
991 031105 312 05 0 00 000007 CAME AC,AC2 ;C(AC) SHOULD = ORIG. C(AC).
992 031106 001 06 0 00 000007 ERR AC1,AC2
993 031107 656 05 0 00 000006 TDCN AC,AC1 ;C(E) + C(AC) NOT = 0...SKIP.
994 031110 005 05 0 00 040323 ER AC,[ASCII /TST/]
995 031111 656 05 0 00 000006 TDCN AC,AC1 ;C(E) + C(AC) = 0...NO SKIP.
996 031112 312 05 0 00 000007 CAME AC,AC2 ;C(AC) SHOULD = ORIG. C(AC).
997 031113 001 06 0 00 000007 ERR AC1,AC2
998 LOOP TDCEB,TDCEC^
999 031114 367 04 0 00 031071 SOJG AC-1,TDCEB ;ITERATION COUNTER
1000 031115 200 05 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1001 031116 321 04 0 00 031076 JUMPL AC-1,TDCEC ;LOOP ON ERROR SWITCH ^
1002
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 9
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0040
1003
1004
1005 ;TEST TDCE, TDCN. ROT A BIT IN AC
1006 ;AND CLEAR THAT BIT E BEFORE TDC
1007 ;CHECK FOR SKIP /NO SKIP AND CORRECT DATA IN AC.
1008
1009
1010 000006 AC=6
1011 031117 TDCN1A: SETUP 40,0^
1012 000007 AC1=<AC+1>&17
1013 000010 AC2=<AC+2>&17
1014 000011 AC3=<AC+3>&17
1015 000012 AC4=<AC+4>&17
1016 000013 AC5=<AC+5>&17
1017 000004 RAN1=<AC-2>&17
1018 031117 201 05 0 00 031117 MOVEI AC-1,.
1019 031120 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1020 031121 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1021 031122 202 05 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1022 031123 201 05 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
1023 031124 240 05 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1024 031125 240 05 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1025 031126 201 07 0 00 000001 MOVEI AC1,1 ;SETUP A BIT IN "AC".
1026 031127 TDCN1B: RANDOM^
1027 031127 200 06 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1028 031130 270 06 0 00 040321 ADD AC,[142536475076]
1029 031131 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1030 031132 447 06 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
1031 031133 241 07 0 00 000001 ROT AC1,1 ;ROT BIT TO TEST NEXT BIT.
1032 031134 200 10 0 00 000007 MOVE AC2,AC1 ;SAVE IN AC2 FOR FUTURE COMPARE.
1033 031135 200 07 0 00 000010 TDCN1C: MOVE AC1,AC2 ;COME HERE AND RESTORE C(AC) IF ERROR OCCURED.
1034 031136 420 06 0 00 000007 ANDCM AC,AC1 ;CLEAR BIT IN "E".
1035 031137 322 06 0 00 031127 JUMPE AC,TDCN1B ;REJECT IF = 0.
1036 031140 656 07 0 00 000006 TDCN AC1,AC ;C(E)+C(AC)=0. NO SKIP.
1037 031141 254 00 0 00 031143 JRST .+2
1038 031142 005 07 0 00 040323 ER AC1,[ASCII /TST/];TDCN SKIPPED.
1039 031143 656 07 0 00 000006 TDCN AC1,AC ;C(E)+C(AC)NOT=0. SKIP.
1040 031144 005 07 0 00 040323 ER AC1,[ASCII /TST/]
1041 031145 312 07 0 00 000010 CAME AC1,AC2 ;C(AC)SHOULD=C(AC)BEFORE TDC'S.
1042 031146 001 06 0 00 000010 ERR AC,AC2
1043 031147 652 07 0 00 000006 TDCE AC1,AC ;C(E)+C(AC)=0.SKIP.
1044 031150 005 07 0 00 040323 ER AC1,[ASCII /TST/]
1045 031151 652 07 0 00 000006 TDCE AC1,AC ;C(E)+C(AC)NOT=0. NO SKIP.
1046 031152 312 07 0 00 000010 CAME AC1,AC2 ;C(AC) SHOULD = C(AC) BEFORE TDC'S.
1047 031153 001 06 0 00 000010 ERR AC,AC2
1048 LOOP TDCN1B,TDCN1C^
1049 031154 367 05 0 00 031127 SOJG AC-1,TDCN1B ;ITERATION COUNTER
1050 031155 200 06 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1051 031156 321 05 0 00 031135 JUMPL AC-1,TDCN1C ;LOOP ON ERROR SWITCH ^
1052
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 10
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0041
1053
1054
1055 ;TEST TDCE, TDCN. ROT A BIT IN AC AND SET THAT BIT IN
1056 ;E BEFORE TDC. CHECK FOR SKIP /NO SKIP AND CORRECT DATA IN AC.
1057
1058
1059 000007 AC=7
1060 031157 TDCNA1: SETUP 40,0^
1061 000010 AC1=<AC+1>&17
1062 000011 AC2=<AC+2>&17
1063 000012 AC3=<AC+3>&17
1064 000013 AC4=<AC+4>&17
1065 000014 AC5=<AC+5>&17
1066 000005 RAN1=<AC-2>&17
1067 031157 201 06 0 00 031157 MOVEI AC-1,.
1068 031160 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1069 031161 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1070 031162 202 06 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1071 031163 201 06 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
1072 031164 240 06 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1073 031165 240 06 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1074 031166 201 10 0 00 000001 MOVEI AC1,1 ;SET A BIT IN AC
1075 031167 TDCNA2: RANDOM^
1076 031167 200 07 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1077 031170 270 07 0 00 040321 ADD AC,[142536475076]
1078 031171 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1079 031172 447 07 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
1080 031173 241 10 0 00 000001 ROT AC1,1 ;ROT BIT TO TEST NEXT BIT.
1081 031174 200 11 0 00 000010 MOVE AC2,AC1 ;SAVE "AC". IN CASE OF ERROR
1082 031175 200 10 0 00 000011 TDCNA3: MOVE AC1,AC2 ;RESTORE "AC".
1083 031176 434 07 0 00 000010 IOR AC,AC1 ;SET BIT IN "E".
1084 031177 200 12 0 00 000007 MOVE AC3,AC ;SIMULATE
1085 031200 430 12 0 00 000010 XOR AC3,AC1 ;A TDC.
1086 031201 652 10 0 00 000007 TDCE AC1,AC ;C(E)+C(AC) NOT=0. NO SKIP.
1087 031202 312 10 0 00 000012 CAME AC1,AC3 ;C(AC) SHOULD = SIM. ANS.
1088 031203 001 07 0 00 000011 ERR AC,AC2
1089 031204 200 10 0 00 000011 MOVE AC1,AC2 ;RESTORE "AC".
1090 031205 656 10 0 00 000007 TDCN AC1,AC ;C(E)+C(AC) NOT=0. SKIP.
1091 031206 005 10 0 00 040323 ER AC1,[ASCII /TST/]
1092 031207 312 10 0 00 000012 CAME AC1,AC3 ;C(AC) SHOULD = SIM. ANS.
1093 031210 001 07 0 00 000011 ERR AC,AC2
1094 031211 200 10 0 00 000011 MOVE AC1,AC2 ;RESTORE "AC".
1095 LOOP TDCNA2,TDCNA3^
1096 031212 367 06 0 00 031167 SOJG AC-1,TDCNA2 ;ITERATION COUNTER
1097 031213 200 07 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1098 031214 321 06 0 00 031175 JUMPL AC-1,TDCNA3 ;LOOP ON ERROR SWITCH ^
1099
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 11
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0042
1100
1101
1102 ;TEST TDNE, TDNN. ROT A BIT IN E AND
1103 ;CLEAR THAT BIT IN AC BEFORE TDN. CHECK FOR
1104 ;SKIP /NO SKIP AND CORRECT DATA IN AC.
1105
1106
1107 000010 AC=10
1108 031215 TDNN1: SETUP 40,0^
1109 000011 AC1=<AC+1>&17
1110 000012 AC2=<AC+2>&17
1111 000013 AC3=<AC+3>&17
1112 000014 AC4=<AC+4>&17
1113 000015 AC5=<AC+5>&17
1114 000006 RAN1=<AC-2>&17
1115 031215 201 07 0 00 031215 MOVEI AC-1,.
1116 031216 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1117 031217 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1118 031220 202 07 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1119 031221 201 07 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
1120 031222 240 07 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1121 031223 240 07 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1122 031224 201 11 0 00 000001 MOVEI AC1,1 ;SET A BIT IN "E".
1123 031225 TDNN2: RANDOM^
1124 031225 200 10 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1125 031226 270 10 0 00 040321 ADD AC,[142536475076]
1126 031227 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1127 031230 447 10 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
1128 031231 241 11 0 00 000001 ROT AC1,1 ;ROT BIT TO TEST NEXT BIT.
1129 031232 420 10 0 00 000011 TDNN3: ANDCM AC,AC1 ;CLEAR BIT IN "AC".
1130 031233 200 12 0 00 000010 MOVE AC2,AC ;SAVE C("AC") FOR FUTURE COMPARE.
1131 031234 616 10 0 00 000011 TDNN AC,AC1 ;C(E) + C(AC) = 0...NO SKIP.
1132 031235 254 00 0 00 031237 JRST .+2
1133 031236 005 10 0 00 040323 ER AC,[ASCII /TST/];TDNN SKIPPED.
1134 031237 612 10 0 00 000011 TDNE AC,AC1 ;C(E)+C(AC)=0. SKIP.
1135 031240 005 10 0 00 040323 ER AC,[ASCII /TST/]
1136 031241 312 10 0 00 000012 CAME AC,AC2 ;C(AC)SHOULD NOT HAVE CHANGED.
1137 031242 001 11 0 00 000012 ERR AC1,AC2
1138 LOOP TDNN2,TDNN3^
1139 031243 367 07 0 00 031225 SOJG AC-1,TDNN2 ;ITERATION COUNTER
1140 031244 200 10 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1141 031245 321 07 0 00 031232 JUMPL AC-1,TDNN3 ;LOOP ON ERROR SWITCH ^
1142
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 12
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0043
1143
1144
1145 ;TEST TDNE, TDNN. ROT A BIT IN E AND SET THAT BIT IN AC BEFORE TDN. CHECK
1146 ;FOR SKIP /NO SKIP AND CORRECT DATA IN AC.
1147
1148
1149 000011 AC=11
1150 031246 TDNNA: SETUP 40,0^
1151 000012 AC1=<AC+1>&17
1152 000013 AC2=<AC+2>&17
1153 000014 AC3=<AC+3>&17
1154 000015 AC4=<AC+4>&17
1155 000016 AC5=<AC+5>&17
1156 000007 RAN1=<AC-2>&17
1157 031246 201 10 0 00 031246 MOVEI AC-1,.
1158 031247 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1159 031250 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1160 031251 202 10 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1161 031252 201 10 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
1162 031253 240 10 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1163 031254 240 10 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1164 031255 201 12 0 00 000001 MOVEI AC1,1 ;SET A BIT IN "E"
1165 031256 TDNNB: RANDOM^
1166 031256 200 11 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1167 031257 270 11 0 00 040321 ADD AC,[142536475076]
1168 031260 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1169 031261 447 11 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
1170 031262 241 12 0 00 000001 ROT AC1,1 ;ROT BIT TO TEST NEXT BIT.
1171 031263 434 11 0 00 000012 TDNNC: IOR AC,AC1 ;SET BIT IN "AC".
1172 031264 200 13 0 00 000011 MOVE AC2,AC ;SAVE FOR FUTURE COMPARE.
1173 031265 612 11 0 00 000012 TDNE AC,AC1 ;C(E)+(AC)NOT=0. NO SKIP.
1174 031266 254 00 0 00 031270 JRST .+2
1175 031267 005 11 0 00 040323 ER AC,[ASCII /TST/];TDNE SKIPPED.
1176 031270 616 11 0 00 000012 TDNN AC,AC1 ;C(E)+C(AC)NOT=0. SKIP
1177 031271 005 11 0 00 040323 ER AC,[ASCII /TST/]
1178 031272 312 11 0 00 000013 CAME AC,AC2 ;C(AC)SHOULD NOT HAVE CHANGED.
1179 031273 001 12 0 00 000013 ERR AC1,AC2
1180 LOOP TDNNB,TDNNC^
1181 031274 367 10 0 00 031256 SOJG AC-1,TDNNB ;ITERATION COUNTER
1182 031275 200 11 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1183 031276 321 10 0 00 031263 JUMPL AC-1,TDNNC ;LOOP ON ERROR SWITCH ^
1184
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 13
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0044
1185
1186
1187 ;TEST TDNE, TDNN. ROT A BIT IN AC AND
1188 ;CLEAR THAT BIT IN E BEFORE TDN. CHECK FOR
1189 ;SKIP /NO SKIP AND CORRECT DATA IN AC.
1190
1191
1192 000012 AC=12
1193 031277 TDNND: SETUP 40,0^
1194 000013 AC1=<AC+1>&17
1195 000014 AC2=<AC+2>&17
1196 000015 AC3=<AC+3>&17
1197 000016 AC4=<AC+4>&17
1198 000017 AC5=<AC+5>&17
1199 000010 RAN1=<AC-2>&17
1200 031277 201 11 0 00 031277 MOVEI AC-1,.
1201 031300 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1202 031301 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1203 031302 202 11 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1204 031303 201 11 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
1205 031304 240 11 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1206 031305 240 11 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1207 031306 201 13 0 00 000001 MOVEI AC1,1 ;SET A BIT IN "AC"
1208 031307 TDNNE: RANDOM^
1209 031307 200 12 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1210 031310 270 12 0 00 040321 ADD AC,[142536475076]
1211 031311 241 12 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1212 031312 447 12 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
1213 031313 241 13 0 00 000001 ROT AC1,1 ;ROT TO TEST NEXT BIT.
1214 031314 200 14 0 00 000013 MOVE AC2,AC1 ;SAVE C("AC") SO C("AC") CAN BE
1215 031315 200 13 0 00 000014 TDNNF: MOVE AC1,AC2 ;RESTORED IN CASE OF ERROR.
1216 031316 420 12 0 00 000013 ANDCM AC,AC1 ;CLEAR BIT IN"E".
1217 031317 616 13 0 00 000012 TDNN AC1,AC ;C(E)+C(AC)=0. NO SKIP.
1218 031320 254 00 0 00 031322 JRST .+2
1219 031321 005 13 0 00 040323 ER AC1,[ASCII /TST/];TDNN SKIPPED.
1220 031322 612 13 0 00 000012 TDNE AC1,AC ;C(E)+C(AC)=0. SKIP.
1221 031323 005 13 0 00 040323 ER AC1,[ASCII /TST/]
1222 031324 312 13 0 00 000014 CAME AC1,AC2 ;C(AC)SHOULD NOT CHANGE
1223 031325 001 12 0 00 000014 ERR AC,AC2
1224 LOOP TDNNE,TDNNF^
1225 031326 367 11 0 00 031307 SOJG AC-1,TDNNE ;ITERATION COUNTER
1226 031327 200 12 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1227 031330 321 11 0 00 031315 JUMPL AC-1,TDNNF ;LOOP ON ERROR SWITCH ^
1228
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 14
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0045
1229
1230
1231 ;TEST TDNE, TDNN. ROT A BIT IN AC AND SET THAT BIT IN E
1232 ;BEFORE TDN. CHECK FOR SKIP /NO SKIP AND CORRECT DATA IN AC.
1233
1234
1235
1236
1237 000013 AC=13
1238 031331 TDNN4: SETUP 40,0^
1239 000014 AC1=<AC+1>&17
1240 000015 AC2=<AC+2>&17
1241 000016 AC3=<AC+3>&17
1242 000017 AC4=<AC+4>&17
1243 000000 AC5=<AC+5>&17
1244 000011 RAN1=<AC-2>&17
1245 031331 201 12 0 00 031331 MOVEI AC-1,.
1246 031332 202 12 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1247 031333 201 12 0 00 000012 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1248 031334 202 12 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1249 031335 201 12 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
1250 031336 240 12 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1251 031337 240 12 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1252 031340 201 14 0 00 000001 MOVEI AC1,1 ;SET A BIT IN "AC".
1253 031341 TDNN5: RANDOM^
1254 031341 200 13 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1255 031342 270 13 0 00 040321 ADD AC,[142536475076]
1256 031343 241 13 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1257 031344 447 13 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
1258 031345 241 14 0 00 000001 ROT AC1,1 ;ROT TO TEST NEXT BIT.
1259 031346 200 15 0 00 000014 MOVE AC2,AC1 ;SAVE C("AC") SO C("AC") CAN BE
1260 031347 200 14 0 00 000015 TDNN6: MOVE AC1,AC2 ;RESTORED IN CASE OF ERROR.
1261 031350 434 13 0 00 000014 IOR AC,AC1 ;SET BIT IN "E".
1262 031351 612 14 0 00 000013 TDNE AC1,AC ;C(E)+C(AC)NOT=0. NO SKIP.
1263 031352 254 00 0 00 031354 JRST .+2
1264 031353 005 14 0 00 040323 ER AC1,[ASCII /TST/];TDNE SKIPPED.
1265 031354 616 14 0 00 000013 TDNN AC1,AC ;C(E)+C(AC)NOT=0. SKIP.
1266 031355 005 14 0 00 040323 ER AC1,[ASCII /TST/]
1267 031356 312 14 0 00 000015 CAME AC1,AC2 ;C(AC)SHOULD NOT CHANGE.
1268 031357 001 13 0 00 000015 ERR AC,AC2
1269 LOOP TDNN5,TDNN6^
1270 031360 367 12 0 00 031341 SOJG AC-1,TDNN5 ;ITERATION COUNTER
1271 031361 200 13 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1272 031362 321 12 0 00 031347 JUMPL AC-1,TDNN6 ;LOOP ON ERROR SWITCH ^
1273
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 15
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0046
1274
1275
1276 ;TEST TSC CHECK FOR SKIP /NO SKIP AND
1277 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION.
1278
1279
1280 000014 AC=14
1281 031363 TSC1: SETUP 100,0^
1282 000015 AC1=<AC+1>&17
1283 000016 AC2=<AC+2>&17
1284 000017 AC3=<AC+3>&17
1285 000000 AC4=<AC+4>&17
1286 000001 AC5=<AC+5>&17
1287 000012 RAN1=<AC-2>&17
1288 031363 201 13 0 00 031363 MOVEI AC-1,.
1289 031364 202 13 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1290 031365 201 13 0 00 000013 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1291 031366 202 13 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1292 031367 201 13 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1293 031370 240 13 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1294 031371 240 13 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1295 031372 TSC2: RANDOM^
1296 031372 200 14 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1297 031373 270 14 0 00 040321 ADD AC,[142536475076]
1298 031374 241 14 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1299 031375 447 14 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
1300 031376 403 15 0 00 000012 TSC3: SETZB AC1,RAN1 ;CLEAR C(AC).
1301 031377 200 16 0 00 000014 MOVE AC2,AC ;SIMULATE
1302 031400 241 16 0 00 000022 ROT AC2,22 ;A TSC.
1303 031401 651 15 0 00 000014 TSC AC1,AC ;SHOULD NOT SKIP
1304 031402 312 15 0 00 000016 CAME AC1,AC2 ;C(AC) SHOULD = SIM. ANS.
1305 031403 001 14 0 00 000012 ERR AC,RAN1
1306 LOOP TSC2,TSC3^
1307 031404 367 13 0 00 031372 SOJG AC-1,TSC2 ;ITERATION COUNTER
1308 031405 200 14 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1309 031406 321 13 0 00 031376 JUMPL AC-1,TSC3 ;LOOP ON ERROR SWITCH ^
1310
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 16
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0047
1311
1312
1313 ;TEST TSC. CHECK FOR SKIP /NO SKIP AND
1314 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION.
1315
1316
1317 000015 AC=15
1318
1319 031407 TSC4: SETUP 100,0^
1320 000016 AC1=<AC+1>&17
1321 000017 AC2=<AC+2>&17
1322 000000 AC3=<AC+3>&17
1323 000001 AC4=<AC+4>&17
1324 000002 AC5=<AC+5>&17
1325 000013 RAN1=<AC-2>&17
1326 031407 201 14 0 00 031407 MOVEI AC-1,.
1327 031410 202 14 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1328 031411 201 14 0 00 000014 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1329 031412 202 14 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1330 031413 201 14 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1331 031414 240 14 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1332 031415 240 14 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1333 031416 TSC5: RANDOM^
1334 031416 200 15 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1335 031417 270 15 0 00 040321 ADD AC,[142536475076]
1336 031420 241 15 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1337 031421 447 15 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
1338 031422 400 16 0 00 000000 TSC6: SETZ AC1, ;CLEAR "E".
1339 031423 651 15 0 00 000016 TSC AC,AC1 ;SHOULD NOT SKIP.
1340 031424 312 15 0 00 040444 CAME AC,RAN ;C(AC)SHOULD NOT HAVE CHANGED
1341 031425 001 16 0 00 040444 ERR AC1,RAN
1342 LOOP TSC5,TSC6^
1343 031426 367 14 0 00 031416 SOJG AC-1,TSC5 ;ITERATION COUNTER
1344 031427 200 15 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1345 031430 321 14 0 00 031422 JUMPL AC-1,TSC6 ;LOOP ON ERROR SWITCH ^
1346
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 17
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0048
1347
1348
1349 ;TEST TSC. CHECK FOR SKIP/NO SKIP AND
1350 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION.
1351
1352
1353 000006 AC=6
1354 031431 TSC7: SETUP 100,0^
1355 000007 AC1=<AC+1>&17
1356 000010 AC2=<AC+2>&17
1357 000011 AC3=<AC+3>&17
1358 000012 AC4=<AC+4>&17
1359 000013 AC5=<AC+5>&17
1360 000004 RAN1=<AC-2>&17
1361 031431 201 05 0 00 031431 MOVEI AC-1,.
1362 031432 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1363 031433 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1364 031434 202 05 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1365 031435 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1366 031436 240 05 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1367 031437 240 05 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1368 031440 TSC8: RANDOM^
1369 031440 200 06 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1370 031441 270 06 0 00 040321 ADD AC,[142536475076]
1371 031442 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1372 031443 447 06 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
1373 031444 200 04 0 00 000006 TSC9: MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
1374 031445 204 07 0 00 000006 MOVS AC1,AC ;SIMULATE
1375 031446 430 07 0 00 000006 XOR AC1,AC ;A TSC
1376 031447 651 06 0 00 000006 TSC AC,AC ;SHOULD NOT SKIP
1377 031450 312 06 0 00 000007 CAME AC,AC1 ;C(AC)SHOULD=SIM. ANS.
1378 031451 001 04 0 00 040444 ERR RAN1,RAN
1379 LOOP TSC8,TSC9^
1380 031452 367 05 0 00 031440 SOJG AC-1,TSC8 ;ITERATION COUNTER
1381 031453 200 06 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1382 031454 321 05 0 00 031444 JUMPL AC-1,TSC9 ;LOOP ON ERROR SWITCH ^
1383
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 18
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0049
1384
1385
1386 ;TEST TSC, TSCA. TWO TSC'S SHOULD PRODUCE ORIGINAL
1387 ;NUMBER IN AC. CHECK FOR SKIP/NO SKIP AND
1388 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
1389
1390
1391 000007 AC=7
1392 031455 TSCA1: SETUP 100,0^
1393 000010 AC1=<AC+1>&17
1394 000011 AC2=<AC+2>&17
1395 000012 AC3=<AC+3>&17
1396 000013 AC4=<AC+4>&17
1397 000014 AC5=<AC+5>&17
1398 000005 RAN1=<AC-2>&17
1399 031455 201 06 0 00 031455 MOVEI AC-1,.
1400 031456 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1401 031457 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1402 031460 202 06 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1403 031461 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1404 031462 240 06 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1405 031463 240 06 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1406 031464 TSCA2: RANDOM^
1407 031464 200 07 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1408 031465 270 07 0 00 040321 ADD AC,[142536475076]
1409 031466 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1410 031467 447 07 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
1411 031470 200 10 0 00 000007 TSCA3: MOVE AC1,AC ;MAKE C("E")=C("AC").
1412 031471 651 07 0 00 000010 TSC AC,AC1 ;SHOULD NOT SKIP
1413 031472 254 00 0 00 031474 JRST .+2
1414 031473 005 07 0 00 040323 ER AC,[ASCII /TST/];TSC SKIPPED.
1415 031474 655 07 0 00 000010 TSCA AC,AC1 ;SHOULD SKIP
1416 031475 005 07 0 00 040323 ER AC,[ASCII /TST/]
1417 031476 312 07 0 00 040444 CAME AC,RAN ;C(AC) SHOULD BE BACK TO ORIG NUM
1418 031477 001 10 0 00 040444 ERR AC1,RAN
1419 LOOP TSCA2,TSCA3^
1420 031500 367 06 0 00 031464 SOJG AC-1,TSCA2 ;ITERATION COUNTER
1421 031501 200 07 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1422 031502 321 06 0 00 031470 JUMPL AC-1,TSCA3 ;LOOP ON ERROR SWITCH ^
1423
1424
1425
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 19
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0050
1426
1427
1428 ;TEST TSCE, TSCN. CHECK FOR SKIP/NO SKIP
1429 ;AND CORRECT DATA IN AC FOR 0 TO RAN CONDITION.
1430
1431
1432 000010 AC=10
1433 031503 TSCE1: SETUP 100,0^
1434 000011 AC1=<AC+1>&17
1435 000012 AC2=<AC+2>&17
1436 000013 AC3=<AC+3>&17
1437 000014 AC4=<AC+4>&17
1438 000015 AC5=<AC+5>&17
1439 000006 RAN1=<AC-2>&17
1440 031503 201 07 0 00 031503 MOVEI AC-1,.
1441 031504 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1442 031505 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1443 031506 202 07 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1444 031507 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1445 031510 240 07 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1446 031511 240 07 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1447 031512 TSCE2: RANDOM^
1448 031512 200 10 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1449 031513 270 10 0 00 040321 ADD AC,[142536475076]
1450 031514 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1451 031515 447 10 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
1452 031516 403 11 0 00 000006 TSCE3: SETZB AC1,RAN1 ;CLEAR C(E).
1453 031517 657 10 0 00 000011 TSCN AC,AC1 ;C(E)+C(AC)=0. NO SKIP
1454 031520 254 00 0 00 031522 JRST .+2
1455 031521 005 10 0 00 040323 ER AC,[ASCII /TST/];TSCN SKIPPED.
1456 031522 653 10 0 00 000011 TSCE AC,AC1 ;C(E)+C(AC)=0, SKIP
1457 031523 005 10 0 00 040323 ER AC,[ASCII /TST/]
1458 031524 312 10 0 00 040444 CAME AC,RAN ;C(AC) SHOULD STILL = RAN
1459 031525 001 06 0 00 040444 ERR RAN1,RAN
1460 LOOP TSCE2,TSCE3^
1461 031526 367 07 0 00 031512 SOJG AC-1,TSCE2 ;ITERATION COUNTER
1462 031527 200 10 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1463 031530 321 07 0 00 031516 JUMPL AC-1,TSCE3 ;LOOP ON ERROR SWITCH ^
1464
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 20
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0051
1465
1466
1467 ;TEST TSCE, TSCN. CHECK FOR SKIP/NO SKIP
1468 ;AND CORRECT DATA IN AC FOR RAN TO 0 CONDITION.
1469
1470
1471 000010 AC=10
1472 031531 TSCEA: SETUP 100,0^
1473 000011 AC1=<AC+1>&17
1474 000012 AC2=<AC+2>&17
1475 000013 AC3=<AC+3>&17
1476 000014 AC4=<AC+4>&17
1477 000015 AC5=<AC+5>&17
1478 000006 RAN1=<AC-2>&17
1479 031531 201 07 0 00 031531 MOVEI AC-1,.
1480 031532 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1481 031533 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1482 031534 202 07 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1483 031535 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1484 031536 240 07 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1485 031537 240 07 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1486 031540 TSCEB: RANDOM^
1487 031540 200 10 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1488 031541 270 10 0 00 040321 ADD AC,[142536475076]
1489 031542 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1490 031543 447 10 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
1491 031544 403 11 0 00 000006 TSCEC: SETZB AC1,RAN1 ;CLEAR C("AC").
1492 031545 204 12 0 00 000010 MOVS AC2,AC ;SIMULATE TSC.
1493 031546 657 11 0 00 000010 TSCN AC1,AC ;C(E)+C(AC)=0. NO SKIP
1494 031547 312 11 0 00 000012 CAME AC1,AC2 ;C(AC) SHOULD = SIM ANS
1495 031550 001 10 0 00 000006 ERR AC,RAN1
1496 031551 400 11 0 00 000000 SETZ AC1, ;CLEAR C("AC").
1497 031552 653 11 0 00 000010 TSCE AC1,AC ;C(E)+C(AC)=0. SKIP
1498 031553 005 11 0 00 040323 ER AC1,[ASCII /TST/]
1499 031554 312 11 0 00 000012 CAME AC1,AC2 ;C(AC) SHOULD = SIM ANS
1500 031555 001 10 0 00 000006 ERR AC,RAN1
1501 LOOP TSCEB,TSCEC^
1502 031556 367 07 0 00 031540 SOJG AC-1,TSCEB ;ITERATION COUNTER
1503 031557 200 10 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1504 031560 321 07 0 00 031544 JUMPL AC-1,TSCEC ;LOOP ON ERROR SWITCH ^
1505
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 21
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0052
1506
1507
1508 ;TEST TSCE, TSCN. CHECK FOR SKIP/NO SKIP AND
1509 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION
1510
1511
1512 000002 AC=2
1513 031561 TSCE4: SETUP 100,0^
1514 000003 AC1=<AC+1>&17
1515 000004 AC2=<AC+2>&17
1516 000005 AC3=<AC+3>&17
1517 000006 AC4=<AC+4>&17
1518 000007 AC5=<AC+5>&17
1519 000000 RAN1=<AC-2>&17
1520 031561 201 01 0 00 031561 MOVEI AC-1,.
1521 031562 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1522 031563 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1523 031564 202 01 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1524 031565 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1525 031566 240 01 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1526 031567 240 01 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1527 031570 TSCE5: RANDOM^
1528 031570 200 02 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1529 031571 270 02 0 00 040321 ADD AC,[142536475076]
1530 031572 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1531 031573 447 02 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
1532 031574 322 02 0 00 031570 JUMPE AC,TSCE5 ;REJECT IF RAN = 0.
1533 031575 316 02 0 00 040324 CAMN AC,[-1] ;C(AC) = -1?
1534 031576 254 00 0 00 031570 JRST TSCE5 ;YES. REJECT.
1535 031577 477 03 0 00 000000 TSCE6: SETOB AC1,RAN1 ;SET C(E) TO ALL ONES.
1536 031600 653 02 0 00 000003 TSCE AC,AC1 ;C(E)+C(AC) NOT=0. NO SKIP
1537 031601 254 00 0 00 031603 JRST .+2
1538 031602 005 02 0 00 040323 ER AC,[ASCII /TST/];TSCE SKIPPED.
1539 031603 657 02 0 00 000003 TSCN AC,AC1 ;C(E)+C(AC) NOT=0, SKIP
1540 031604 005 02 0 00 040323 ER AC,[ASCII /TST/]
1541 031605 312 02 0 00 040444 CAME AC,RAN ;C(AC) SHOULD=ORIGINAL C(AC)
1542 031606 001 00 0 00 040444 ERR RAN1,RAN
1543 LOOP TSCE5,TSCE6^
1544 031607 367 01 0 00 031570 SOJG AC-1,TSCE5 ;ITERATION COUNTER
1545 031610 200 02 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1546 031611 321 01 0 00 031577 JUMPL AC-1,TSCE6 ;LOOP ON ERROR SWITCH ^
1547
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 22
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0053
1548
1549
1550 ;TEST TSCE, TSCN. CHECK FOR SKIP/NO SKIP AND
1551 ;CORRECT DATA IN AC FOR RAN TO -1.
1552
1553
1554 000003 AC=3
1555 031612 TSCED: SETUP 100,0^
1556 000004 AC1=<AC+1>&17
1557 000005 AC2=<AC+2>&17
1558 000006 AC3=<AC+3>&17
1559 000007 AC4=<AC+4>&17
1560 000010 AC5=<AC+5>&17
1561 000001 RAN1=<AC-2>&17
1562 031612 201 02 0 00 031612 MOVEI AC-1,.
1563 031613 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1564 031614 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1565 031615 202 02 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1566 031616 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1567 031617 240 02 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1568 031620 240 02 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1569 031621 TSCEE: RANDOM^
1570 031621 200 03 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1571 031622 270 03 0 00 040321 ADD AC,[142536475076]
1572 031623 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1573 031624 447 03 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
1574 031625 322 03 0 00 031621 JUMPE AC,TSCEE ;REJECT IF RAN = 0.
1575 031626 477 04 0 00 000001 TSCEF: SETOB AC1,RAN1 ;SET C("AC") TO ALL ONES.
1576 031627 653 04 0 00 000003 TSCE AC1,AC ;C(E)+C(AC) NOT=0,NO SKIP
1577 031630 254 00 0 00 031632 JRST .+2
1578 031631 005 04 0 00 040323 ER AC1,[ASCII /TST/];TSCE SKIPPED.
1579 031632 653 04 0 00 000003 TSCE AC1,AC ;C(E) + C(AC) = 0. SKIP.
1580 031633 005 04 0 00 040323 ER AC1,[ASCII /TST/]
1581 031634 312 04 0 00 040324 CAME AC1,[-1] ;C(AC) SHOULD = ORIG. C(AC).
1582 031635 001 03 0 00 000001 ERR AC,RAN1
1583 031636 474 04 0 00 000000 SETO AC1, ;RESTORE C(AC).
1584 031637 657 04 0 00 000003 TSCN AC1,AC ;C(E) + C(AC) NOT = 0..SKIP.
1585 031640 005 04 0 00 040323 ER AC1,[ASCII /TST/]
1586 031641 657 04 0 00 000003 TSCN AC1,AC ;C(E) + C(AC) = 0..NO SKIP.
1587 031642 312 04 0 00 040324 CAME AC1,[-1] ;C(AC) SHOULD = ORIG. C(AC).
1588 031643 001 03 0 00 000001 ERR AC,RAN1
1589 LOOP TSCEE,TSCEF^
1590 031644 367 02 0 00 031621 SOJG AC-1,TSCEE ;ITERATION COUNTER
1591 031645 200 03 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1592 031646 321 02 0 00 031626 JUMPL AC-1,TSCEF ;LOOP ON ERROR SWITCH ^
1593
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 23
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0054
1594
1595
1596 ;TEST TSCE, TSCN. CHECK FOR SKIP/NO SKIP
1597 ;AND CORRECT DATA IN AC FOR NOT RAN TO RAN
1598 ;CONDITION
1599
1600
1601 000004 AC=4
1602 031647 TSCN1: SETUP 100,0^
1603 000005 AC1=<AC+1>&17
1604 000006 AC2=<AC+2>&17
1605 000007 AC3=<AC+3>&17
1606 000010 AC4=<AC+4>&17
1607 000011 AC5=<AC+5>&17
1608 000002 RAN1=<AC-2>&17
1609 031647 201 03 0 00 031647 MOVEI AC-1,.
1610 031650 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1611 031651 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1612 031652 202 03 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1613 031653 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1614 031654 240 03 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1615 031655 240 03 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1616 031656 TSCN2: RANDOM^
1617 031656 200 04 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1618 031657 270 04 0 00 040321 ADD AC,[142536475076]
1619 031660 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1620 031661 447 04 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
1621 031662 322 04 0 00 031656 JUMPE AC,TSCN2 ;REJECT IF C("AC") = 0.
1622 031663 204 05 0 00 000004 TSCN3: MOVS AC1,AC ;MAKE C(E) =
1623 031664 450 05 0 00 000000 SETCA AC1, ;COMP OF C(AC).
1624 031665 322 05 0 00 031656 JUMPE AC1,TSCN2 ;REJECT IF E = 0.
1625 031666 657 04 0 00 000005 TSCN AC,AC1 ;C(E) + C(AC) = 0...NO SKIP.
1626 031667 254 00 0 00 031671 JRST .+2
1627 031670 005 04 0 00 040323 ER AC,[ASCII /TST/];TSCN SKIPPED.
1628 031671 657 04 0 00 000005 TSCN AC,AC1 ;C(E) + C(AC) NOT = 0...SKIP.
1629 031672 005 04 0 00 040323 ER AC,[ASCII /TST/]
1630 031673 312 04 0 00 040444 CAME AC,RAN ;C(AC) SHOULD = ORIG. C(AC).
1631 031674 001 05 0 00 040444 ERR AC1,RAN
1632 031675 653 04 0 00 000005 TSCE AC,AC1 ;C(E) + C(AC) = 0...SKIP.
1633 031676 005 04 0 00 040323 ER AC,[ASCII /TST/]
1634 031677 653 04 0 00 000005 TSCE AC,AC1 ;C(E) + C(AC) NOT = 0...NO SKIP.
1635 031700 312 04 0 00 040444 CAME AC,RAN ;C(AC) SHOULD=ORIGINAL C(AC)
1636 031701 001 05 0 00 040444 ERR AC1,RAN
1637 LOOP TSCN2,TSCN3^
1638 031702 367 03 0 00 031656 SOJG AC-1,TSCN2 ;ITERATION COUNTER
1639 031703 200 04 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1640 031704 321 03 0 00 031663 JUMPL AC-1,TSCN3 ;LOOP ON ERROR SWITCH ^
1641
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 24
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0055
1642
1643
1644 ;TEST TSCE, TSCN. CHECK FOR SKIP/NO SKIP
1645 ;AND CORRECT DATA IN AC FOR RAN TO RAN
1646 ;CONDITION
1647
1648
1649 000005 AC=5
1650 031705 TSCNA: SETUP 100,0^
1651 000006 AC1=<AC+1>&17
1652 000007 AC2=<AC+2>&17
1653 000010 AC3=<AC+3>&17
1654 000011 AC4=<AC+4>&17
1655 000012 AC5=<AC+5>&17
1656 000003 RAN1=<AC-2>&17
1657 031705 201 04 0 00 031705 MOVEI AC-1,.
1658 031706 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1659 031707 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1660 031710 202 04 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1661 031711 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1662 031712 240 04 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1663 031713 240 04 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1664 031714 TSCNB: RANDOM^
1665 031714 200 05 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1666 031715 270 05 0 00 040321 ADD AC,[142536475076]
1667 031716 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1668 031717 447 05 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
1669 031720 322 05 0 00 031714 JUMPE AC,TSCNB ;REJECT IF RAN = 0.
1670 031721 200 06 0 00 000005 TSCNC: MOVE AC1,AC ;MAKE C("E") = C("AC").
1671 031722 204 07 0 00 000005 MOVS AC2,AC ;MAKE SURE
1672 031723 404 07 0 00 000005 AND AC2,AC ;AND CONDITION
1673 031724 322 07 0 00 031714 JUMPE AC2,TSCNB ;DOESN'T = 0.
1674 031725 430 07 0 00 000005 XOR AC2,AC ;ALSO HALVES NOT =.
1675 031726 322 07 0 00 031714 JUMPE AC2,TSCNB ;REJECT IF 0.
1676 031727 653 05 0 00 000006 TSCE AC,AC1 ;C(E)+C(AC) NOT=0. NO SKIP
1677 031730 254 00 0 00 031732 JRST .+2
1678 031731 005 05 0 00 040323 ER AC,[ASCII /TST/];TSCE SKIPPED.
1679 031732 657 05 0 00 000006 TSCN AC,AC1 ;C(E)+C(AC) NOT=0. SKIP
1680 031733 005 05 0 00 040323 ER AC,[ASCII /TST/]
1681 031734 312 05 0 00 040444 CAME AC,RAN ;C(AC) SHOULD=ORIGINAL C(AC)
1682 031735 001 06 0 00 040444 ERR AC1,RAN
1683 LOOP TSCNB,TSCNC^
1684 031736 367 04 0 00 031714 SOJG AC-1,TSCNB ;ITERATION COUNTER
1685 031737 200 05 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1686 031740 321 04 0 00 031721 JUMPL AC-1,TSCNC ;LOOP ON ERROR SWITCH ^
1687
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 25
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0056
1688
1689
1690 ;TEST TSO,TSOA. CHECK FOR SKIP/NO SKIP AND
1691 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
1692
1693
1694 000006 AC=6
1695 031741 TSO1: SETUP 100,0^
1696 000007 AC1=<AC+1>&17
1697 000010 AC2=<AC+2>&17
1698 000011 AC3=<AC+3>&17
1699 000012 AC4=<AC+4>&17
1700 000013 AC5=<AC+5>&17
1701 000004 RAN1=<AC-2>&17
1702 031741 201 05 0 00 031741 MOVEI AC-1,.
1703 031742 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1704 031743 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1705 031744 202 05 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1706 031745 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1707 031746 240 05 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1708 031747 240 05 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1709 031750 TSO2: RANDOM^
1710 031750 200 06 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1711 031751 270 06 0 00 040321 ADD AC,[142536475076]
1712 031752 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1713 031753 447 06 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
1714 031754 403 07 0 00 000004 TSO3: SETZB AC1,RAN1 ;CLEAR C("E").
1715 031755 200 10 0 00 000006 MOVE AC2,AC ;SIMULATE
1716 031756 241 10 0 00 000022 ROT AC2,22 ;A TSO
1717 031757 671 07 0 00 000006 TSO AC1,AC ;SHOULD NOT SKIP
1718 031760 254 00 0 00 031762 JRST .+2
1719 031761 005 07 0 00 040323 ER AC1,[ASCII /TST/];TSO SKIPPED.
1720 031762 675 07 0 00 000006 TSOA AC1,AC ;SHOULD SKIP
1721 031763 005 07 0 00 040323 ER AC1,[ASCII /TST/]
1722 031764 312 07 0 00 000010 CAME AC1,AC2 ;C(AC) SHOULD=SIM ANS
1723 031765 001 06 0 00 000004 ERR AC,RAN1
1724 LOOP TSO2,TSO3^
1725 031766 367 05 0 00 031750 SOJG AC-1,TSO2 ;ITERATION COUNTER
1726 031767 200 06 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1727 031770 321 05 0 00 031754 JUMPL AC-1,TSO3 ;LOOP ON ERROR SWITCH ^
1728
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 26
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0057
1729
1730
1731 ;TEST TSO, TSOA. CHECK FOR SKIP/NO SKIP
1732 ;AND CORRECT DATA IN AC FOR 0 TO RAN CONDITION
1733
1734
1735 000007 AC=7
1736 031771 TSO4: SETUP 100,0^
1737 000010 AC1=<AC+1>&17
1738 000011 AC2=<AC+2>&17
1739 000012 AC3=<AC+3>&17
1740 000013 AC4=<AC+4>&17
1741 000014 AC5=<AC+5>&17
1742 000005 RAN1=<AC-2>&17
1743 031771 201 06 0 00 031771 MOVEI AC-1,.
1744 031772 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1745 031773 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1746 031774 202 06 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1747 031775 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1748 031776 240 06 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1749 031777 240 06 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1750 032000 TSO5: RANDOM^
1751 032000 200 07 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1752 032001 270 07 0 00 040321 ADD AC,[142536475076]
1753 032002 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1754 032003 447 07 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
1755 032004 400 10 0 00 000000 TSO6: SETZ AC1, ;CLEAR C(E).
1756 032005 671 07 0 00 000010 TSO AC,AC1 ;SHOULD NOT SKIP
1757 032006 254 00 0 00 032010 JRST .+2
1758 032007 005 07 0 00 040323 ER AC,[ASCII /TST/];TSO SKIPPED.
1759 032010 675 07 0 00 000010 TSOA AC,AC1 ;SHOULD SKIP
1760 032011 005 07 0 00 040323 ER AC,[ASCII /TST/]
1761 032012 312 07 0 00 040444 CAME AC,RAN ;C(AC) SHOULD NOT HAVE CHANGED.
1762 032013 001 10 0 00 040444 ERR AC1,RAN
1763 LOOP TSO5,TSO6^
1764 032014 367 06 0 00 032000 SOJG AC-1,TSO5 ;ITERATION COUNTER
1765 032015 200 07 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1766 032016 321 06 0 00 032004 JUMPL AC-1,TSO6 ;LOOP ON ERROR SWITCH ^
1767
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 27
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0058
1768
1769
1770 ;TEST TSO,TSOA. CHECK FOR SKIP/NO SKIP
1771 ;AND CORRECT DATA IN AC FOR RAN1 TO RAN CONDITION
1772 ;C(RAN1)=C(RAN) SWAPPED
1773
1774
1775 000010 AC=10
1776 032017 TSO7: SETUP 100,0^
1777 000011 AC1=<AC+1>&17
1778 000012 AC2=<AC+2>&17
1779 000013 AC3=<AC+3>&17
1780 000014 AC4=<AC+4>&17
1781 000015 AC5=<AC+5>&17
1782 000006 RAN1=<AC-2>&17
1783 032017 201 07 0 00 032017 MOVEI AC-1,.
1784 032020 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1785 032021 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1786 032022 202 07 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1787 032023 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1788 032024 240 07 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1789 032025 240 07 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1790 032026 TSO8: RANDOM^
1791 032026 200 10 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1792 032027 270 10 0 00 040321 ADD AC,[142536475076]
1793 032030 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1794 032031 447 10 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
1795 032032 204 11 0 00 000010 TSO9: MOVS AC1,AC ;MAKE C("E")=C("AC") SWAPPED
1796 032033 671 10 0 00 000011 TSO AC,AC1 ;SHOULD NOT SKIP
1797 032034 254 00 0 00 032036 JRST .+2
1798 032035 005 10 0 00 040323 ER AC,[ASCII /TST/];TSO SKIPPED.
1799 032036 675 10 0 00 000011 TSOA AC,AC1 ;SHOULD SKIP
1800 032037 005 10 0 00 040323 ER AC,[ASCII /TST/]
1801 032040 312 10 0 00 040444 CAME AC,RAN ;C(AC) SHOULD=ORIGINAL C(AC)
1802 032041 001 11 0 00 040444 ERR AC1,RAN
1803 LOOP TSO8,TSO9^
1804 032042 367 07 0 00 032026 SOJG AC-1,TSO8 ;ITERATION COUNTER
1805 032043 200 10 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1806 032044 321 07 0 00 032032 JUMPL AC-1,TSO9 ;LOOP ON ERROR SWITCH ^
1807
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 28
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0059
1808
1809
1810 ;TEST TSO, TSOA. CHECK FOR SKIP/NO SKIP AND
1811 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
1812
1813
1814 000011 AC=11
1815 032045 TSOA1: SETUP 100,0^
1816 000012 AC1=<AC+1>&17
1817 000013 AC2=<AC+2>&17
1818 000014 AC3=<AC+3>&17
1819 000015 AC4=<AC+4>&17
1820 000016 AC5=<AC+5>&17
1821 000007 RAN1=<AC-2>&17
1822 032045 201 10 0 00 032045 MOVEI AC-1,.
1823 032046 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1824 032047 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1825 032050 202 10 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1826 032051 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1827 032052 240 10 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1828 032053 240 10 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1829 032054 TSOA2: RANDOM^
1830 032054 200 11 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1831 032055 270 11 0 00 040321 ADD AC,[142536475076]
1832 032056 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1833 032057 447 11 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
1834 032060 200 12 0 00 000011 TSOA3: MOVE AC1,AC ;MAKE C("E")=C("AC")
1835 032061 204 13 0 00 000012 MOVS AC2,AC1 ;SIMULATE
1836 032062 200 14 0 00 000011 MOVE AC3,AC ;A
1837 032063 434 14 0 00 000013 IOR AC3,AC2 ;TSO
1838 032064 671 11 0 00 000012 TSO AC,AC1 ;SHOULD NOT SKIP
1839 032065 254 00 0 00 032067 JRST .+2
1840 032066 005 11 0 00 040323 ER AC,[ASCII /TST/];TSO SKIPPED.
1841 032067 675 11 0 00 000012 TSOA AC,AC1 ;SHOULD SKIP
1842 032070 005 11 0 00 040323 ER AC,[ASCII /TST/]
1843 032071 312 11 0 00 000014 CAME AC,AC3 ;C(AC) = SIM. ANS?
1844 032072 001 12 0 00 000012 ERR AC1,AC1 ;NO.
1845 LOOP TSOA2,TSOA3^
1846 032073 367 10 0 00 032054 SOJG AC-1,TSOA2 ;ITERATION COUNTER
1847 032074 200 11 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1848 032075 321 10 0 00 032060 JUMPL AC-1,TSOA3 ;LOOP ON ERROR SWITCH ^
1849
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 29
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0060
1850
1851
1852 ;TEST TSOE, TSON. CHECK FOR SKIP/NO SKIP
1853 ;AND CORRECT DATA IN AC FOR 0 TO RAN CONDITION
1854
1855
1856 000012 AC=12
1857 032076 TSOE1: SETUP 100,0^
1858 000013 AC1=<AC+1>&17
1859 000014 AC2=<AC+2>&17
1860 000015 AC3=<AC+3>&17
1861 000016 AC4=<AC+4>&17
1862 000017 AC5=<AC+5>&17
1863 000010 RAN1=<AC-2>&17
1864 032076 201 11 0 00 032076 MOVEI AC-1,.
1865 032077 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1866 032100 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1867 032101 202 11 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1868 032102 201 11 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1869 032103 240 11 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1870 032104 240 11 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1871 032105 TSOE2: RANDOM^
1872 032105 200 12 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1873 032106 270 12 0 00 040321 ADD AC,[142536475076]
1874 032107 241 12 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1875 032110 447 12 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
1876 032111 403 13 0 00 000010 TSOE3: SETZB AC1,RAN1 ;CLEAR C(E).
1877 032112 677 12 0 00 000013 TSON AC,AC1 ;C(E)+C(AC)=0. NO SKIP
1878 032113 254 00 0 00 032115 JRST .+2
1879 032114 005 12 0 00 040323 ER AC,[ASCII /TST/];TSON SKIPPED.
1880 032115 673 12 0 00 000013 TSOE AC,AC1 ;C(E)+C(AC)=0. SKIP
1881 032116 005 12 0 00 040323 ER AC,[ASCII /TST/]
1882 032117 312 12 0 00 040444 CAME AC,RAN ;C(AC) SHOULD=ORIGINAL C(AC)
1883 032120 001 10 0 00 040444 ERR RAN1,RAN
1884 LOOP TSOE2,TSOE3^
1885 032121 367 11 0 00 032105 SOJG AC-1,TSOE2 ;ITERATION COUNTER
1886 032122 200 12 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1887 032123 321 11 0 00 032111 JUMPL AC-1,TSOE3 ;LOOP ON ERROR SWITCH ^
1888
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 30
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0061
1889
1890
1891 ;TEST TSOE, TSON. CHECK FOR SKIP/NO SKIP AND
1892 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
1893
1894
1895 000013 AC=13
1896 032124 TSOEA: SETUP 100,0^
1897 000014 AC1=<AC+1>&17
1898 000015 AC2=<AC+2>&17
1899 000016 AC3=<AC+3>&17
1900 000017 AC4=<AC+4>&17
1901 000000 AC5=<AC+5>&17
1902 000011 RAN1=<AC-2>&17
1903 032124 201 12 0 00 032124 MOVEI AC-1,.
1904 032125 202 12 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1905 032126 201 12 0 00 000012 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1906 032127 202 12 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1907 032130 201 12 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1908 032131 240 12 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1909 032132 240 12 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1910 032133 TSOEB: RANDOM^
1911 032133 200 13 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1912 032134 270 13 0 00 040321 ADD AC,[142536475076]
1913 032135 241 13 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1914 032136 447 13 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
1915 032137 322 13 0 00 032133 JUMPE AC,TSOEB ;REJECT IF RAN = 0.
1916 032140 403 14 0 00 000011 TSOEC: SETZB AC1,RAN1 ;CLEAR C(AC).
1917 032141 204 15 0 00 000013 MOVS AC2,AC ;SIMULATE TSO
1918 032142 677 14 0 00 000013 TSON AC1,AC ;C(E)+C(AC)=0. NO SKIP
1919 032143 254 00 0 00 032145 JRST .+2
1920 032144 005 14 0 00 040323 ER AC1,[ASCII /TST/];TSON SKIPPED.
1921 032145 677 14 0 00 000013 TSON AC1,AC ;C(E)+C(AC)NOT = 0. SKIP
1922 032146 005 14 0 00 040323 ER AC1,[ASCII /TST/]
1923 032147 312 14 0 00 000015 CAME AC1,AC2 ;C(AC) SHOULD=SIM ANS
1924 032150 001 13 0 00 000011 ERR AC,RAN1
1925 032151 400 14 0 00 000000 SETZ AC1, ;CLEAR C(AC)
1926 032152 673 14 0 00 000013 TSOE AC1,AC ;C(E)+C(AC)=0. SKIP
1927 032153 005 14 0 00 040323 ER AC1,[ASCII /TST/]
1928 032154 673 14 0 00 000013 TSOE AC1,AC ;C(E)+C(AC)NOT=0. NO SKIP
1929 032155 312 14 0 00 000015 CAME AC1,AC2 ;C(AC)=SIM ANS?
1930 032156 001 13 0 00 000011 ERR AC,RAN1 ;NO
1931 LOOP TSOEB,TSOEC^
1932 032157 367 12 0 00 032133 SOJG AC-1,TSOEB ;ITERATION COUNTER
1933 032160 200 13 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1934 032161 321 12 0 00 032140 JUMPL AC-1,TSOEC ;LOOP ON ERROR SWITCH ^
1935
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 31
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0062
1936
1937
1938 ;TEST TSOE, TSON. CHECK FOR SKIP/NO SKIP AND
1939 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION
1940
1941
1942 000014 AC=14
1943 032162 TSOE4: SETUP 100,0^
1944 000015 AC1=<AC+1>&17
1945 000016 AC2=<AC+2>&17
1946 000017 AC3=<AC+3>&17
1947 000000 AC4=<AC+4>&17
1948 000001 AC5=<AC+5>&17
1949 000012 RAN1=<AC-2>&17
1950 032162 201 13 0 00 032162 MOVEI AC-1,.
1951 032163 202 13 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1952 032164 201 13 0 00 000013 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1953 032165 202 13 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1954 032166 201 13 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1955 032167 240 13 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1956 032170 240 13 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1957 032171 TSOE5: RANDOM^
1958 032171 200 14 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1959 032172 270 14 0 00 040321 ADD AC,[142536475076]
1960 032173 241 14 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1961 032174 447 14 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
1962 032175 322 14 0 00 032171 JUMPE AC,TSOE5 ;REJECT IF RAN= 0.
1963 032176 477 15 0 00 000012 TSOE6: SETOB AC1,RAN1 ;MAKE C(E) = -1.
1964 032177 673 14 0 00 000015 TSOE AC,AC1 ;C(E)+C(AC) NOT=0. NO SKIP
1965 032200 312 14 0 00 040324 CAME AC,[-1] ;C(AC) SHOULD=-1
1966 032201 001 12 0 00 040444 ERR RAN1,RAN
1967 032202 200 14 0 00 040444 MOVE AC,RAN ;RESTORE AC
1968 032203 677 14 0 00 000015 TSON AC,AC1 ;C(E)+C(AC) NOT=0. SKIP
1969 032204 005 14 0 00 040323 ER AC,[ASCII /TST/]
1970 032205 312 14 0 00 040324 CAME AC,[-1] ;C(AC) SHOULD=-1
1971 032206 001 12 0 00 040444 ERR RAN1,RAN
1972 LOOP TSOE5,TSOE6^
1973 032207 367 13 0 00 032171 SOJG AC-1,TSOE5 ;ITERATION COUNTER
1974 032210 200 14 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1975 032211 321 13 0 00 032176 JUMPL AC-1,TSOE6 ;LOOP ON ERROR SWITCH ^
1976
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 32
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0063
1977
1978
1979 ;TEST TSOE, TSON. CHECK FOR SKIP/NO SKIP AND
1980 ;CORRECT DATA IN AC FOR RAN TO -1 CONDITION
1981
1982
1983 000015 AC=15
1984 032212 TSOED: SETUP 100,0^
1985 000016 AC1=<AC+1>&17
1986 000017 AC2=<AC+2>&17
1987 000000 AC3=<AC+3>&17
1988 000001 AC4=<AC+4>&17
1989 000002 AC5=<AC+5>&17
1990 000013 RAN1=<AC-2>&17
1991 032212 201 14 0 00 032212 MOVEI AC-1,.
1992 032213 202 14 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1993 032214 201 14 0 00 000014 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1994 032215 202 14 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1995 032216 201 14 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1996 032217 240 14 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1997 032220 240 14 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1998 032221 TSOEE: RANDOM^
1999 032221 200 15 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2000 032222 270 15 0 00 040321 ADD AC,[142536475076]
2001 032223 241 15 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2002 032224 447 15 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
2003 032225 322 15 0 00 032221 JUMPE AC,TSOEE ;REJECT IF RAN = 0.
2004 032226 477 16 0 00 000013 TSOEF: SETOB AC1,RAN1 ;SET C(AC) TO A -1.
2005 032227 673 16 0 00 000015 TSOE AC1,AC ;C(E)+C(AC) NOT=0. NO SKIP
2006 032230 254 00 0 00 032232 JRST .+2
2007 032231 005 16 0 00 040323 ER AC1,[ASCII /TST/];TSOE SKIPPED.
2008 032232 677 16 0 00 000015 TSON AC1,AC ;C(E)+C(AC) NOT=0. SKIP
2009 032233 005 16 0 00 040323 ER AC1,[ASCII /TST/]
2010 032234 312 16 0 00 040324 CAME AC1,[-1] ;C(AC) SHOULD STILL = -1.
2011 032235 001 15 0 00 000013 ERR AC,RAN1
2012 LOOP TSOEE,TSOEF^
2013 032236 367 14 0 00 032221 SOJG AC-1,TSOEE ;ITERATION COUNTER
2014 032237 200 15 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2015 032240 321 14 0 00 032226 JUMPL AC-1,TSOEF ;LOOP ON ERROR SWITCH ^
2016
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 33
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0064
2017
2018
2019 ;TEST TSOE, TSON. CHECK FOR SKIP/NO SKIP AND
2020 ;CORRECT DATA IN AC FOR NOT RAN TO RAN CONDITION
2021
2022
2023 000006 AC=6
2024 032241 TSON1: SETUP 100,0^
2025 000007 AC1=<AC+1>&17
2026 000010 AC2=<AC+2>&17
2027 000011 AC3=<AC+3>&17
2028 000012 AC4=<AC+4>&17
2029 000013 AC5=<AC+5>&17
2030 000004 RAN1=<AC-2>&17
2031 032241 201 05 0 00 032241 MOVEI AC-1,.
2032 032242 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2033 032243 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2034 032244 202 05 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2035 032245 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2036 032246 240 05 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2037 032247 240 05 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2038 032250 TSON2: RANDOM^
2039 032250 200 06 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2040 032251 270 06 0 00 040321 ADD AC,[142536475076]
2041 032252 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2042 032253 447 06 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
2043 032254 460 07 0 00 000006 TSON3: SETCM AC1,AC ;MAKE C(E) = COMP OF C(AC)
2044 032255 204 07 0 00 000007 MOVS AC1,AC1 ;SWAPPED.
2045 032256 677 06 0 00 000007 TSON AC,AC1 ;C(E)+C(AC)=0. NO SKIP
2046 032257 312 06 0 00 040324 CAME AC,[-1] ;C(AC) SHOULD=-1
2047 032260 001 07 0 00 040444 ERR AC1,RAN
2048 032261 200 06 0 00 040444 MOVE AC,RAN ;RESTORE AC.
2049 032262 673 06 0 00 000007 TSOE AC,AC1 ;C(E)+C(AC)=0. SKIP
2050 032263 005 06 0 00 040323 ER AC,[ASCII /TST/]
2051 032264 312 06 0 00 040324 CAME AC,[-1] ;C(AC) SHOULD=-1
2052 032265 001 07 0 00 040444 ERR AC1,RAN
2053 LOOP TSON2,TSON3^
2054 032266 367 05 0 00 032250 SOJG AC-1,TSON2 ;ITERATION COUNTER
2055 032267 200 06 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2056 032270 321 05 0 00 032254 JUMPL AC-1,TSON3 ;LOOP ON ERROR SWITCH ^
2057
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 34
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0065
2058
2059
2060 ;TEST TSOE, TSON. CHECK FOR SKIP/NO SKIP AND
2061 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
2062
2063
2064 000007 AC=7
2065 032271 TSONA: SETUP 100,0^
2066 000010 AC1=<AC+1>&17
2067 000011 AC2=<AC+2>&17
2068 000012 AC3=<AC+3>&17
2069 000013 AC4=<AC+4>&17
2070 000014 AC5=<AC+5>&17
2071 000005 RAN1=<AC-2>&17
2072 032271 201 06 0 00 032271 MOVEI AC-1,.
2073 032272 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2074 032273 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2075 032274 202 06 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2076 032275 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2077 032276 240 06 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2078 032277 240 06 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2079 032300 TSONB: RANDOM^
2080 032300 200 07 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2081 032301 270 07 0 00 040321 ADD AC,[142536475076]
2082 032302 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2083 032303 447 07 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
2084 032304 322 07 0 00 032300 JUMPE AC,TSONB ;REJECT IF RAN = 0.
2085 032305 204 10 0 00 000007 TSONC: MOVS AC1,AC ;MAKE C(E) = C(AC) SWAPPED.
2086 032306 673 07 0 00 000010 TSOE AC,AC1 ;C(E)+C(AC) NOT=0 NO SKIP
2087 032307 254 00 0 00 032311 JRST .+2
2088 032310 005 07 0 00 040323 ER AC,[ASCII /TST/];TSOE SKIPPED.
2089 032311 677 07 0 00 000010 TSON AC,AC1 ;C(E)+C(AC)) NOT=0 SKIP
2090 032312 005 07 0 00 040323 ER AC,[ASCII /TST/]
2091 032313 312 07 0 00 040444 CAME AC,RAN ;C(AC) SHOULD=C(ORIG. AC)
2092 032314 001 10 0 00 040444 ERR AC1,RAN
2093 LOOP TSONB,TSONC^
2094 032315 367 06 0 00 032300 SOJG AC-1,TSONB ;ITERATION COUNTER
2095 032316 200 07 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2096 032317 321 06 0 00 032305 JUMPL AC-1,TSONC ;LOOP ON ERROR SWITCH ^
2097
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 35
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0066
2098
2099
2100 ;TEST TSZ, TSZA. CHECK FOR SKIP/NO SKIP AND
2101 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
2102
2103
2104 000010 AC=10
2105 032320 TSZ1: SETUP 100,0^
2106 000011 AC1=<AC+1>&17
2107 000012 AC2=<AC+2>&17
2108 000013 AC3=<AC+3>&17
2109 000014 AC4=<AC+4>&17
2110 000015 AC5=<AC+5>&17
2111 000006 RAN1=<AC-2>&17
2112 032320 201 07 0 00 032320 MOVEI AC-1,.
2113 032321 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2114 032322 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2115 032323 202 07 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2116 032324 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2117 032325 240 07 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2118 032326 240 07 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2119 032327 TSZ2: RANDOM^
2120 032327 200 10 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2121 032330 270 10 0 00 040321 ADD AC,[142536475076]
2122 032331 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2123 032332 447 10 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
2124 032333 400 11 0 00 000000 TSZ3: SETZ AC1, ;CLEAR C(E)
2125 032334 631 10 0 00 000011 TSZ AC,AC1 ;SHOULD NOT SKIP
2126 032335 254 00 0 00 032337 JRST .+2
2127 032336 005 10 0 00 040323 ER AC,[ASCII /TST/];TSZ SKIPPED.
2128 032337 635 10 0 00 000011 TSZA AC,AC1 ;SHOULD SKIP
2129 032340 005 10 0 00 040323 ER AC,[ASCII /TST/]
2130 032341 312 10 0 00 040444 CAME AC,RAN ;C(AC) SHOULD=ORIGINAL C(AC)
2131 032342 001 11 0 00 040444 ERR AC1,RAN
2132 LOOP TSZ2,TSZ3^
2133 032343 367 07 0 00 032327 SOJG AC-1,TSZ2 ;ITERATION COUNTER
2134 032344 200 10 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2135 032345 321 07 0 00 032333 JUMPL AC-1,TSZ3 ;LOOP ON ERROR SWITCH ^
2136
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 36
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0067
2137
2138
2139 ;TEST TSZ, TSZA. CHECK FOR SKIP/NO SKIP AND
2140 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
2141
2142
2143 000011 AC=11
2144 032346 TSZ4: SETUP 100,0^
2145 000012 AC1=<AC+1>&17
2146 000013 AC2=<AC+2>&17
2147 000014 AC3=<AC+3>&17
2148 000015 AC4=<AC+4>&17
2149 000016 AC5=<AC+5>&17
2150 000007 RAN1=<AC-2>&17
2151 032346 201 10 0 00 032346 MOVEI AC-1,.
2152 032347 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2153 032350 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2154 032351 202 10 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2155 032352 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2156 032353 240 10 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2157 032354 240 10 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2158 032355 TSZ5: RANDOM^
2159 032355 200 11 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2160 032356 270 11 0 00 040321 ADD AC,[142536475076]
2161 032357 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2162 032360 447 11 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
2163 032361 403 12 0 00 000007 TSZ6: SETZB AC1,RAN1 ;CLEAR C(AC).
2164 032362 631 12 0 00 000011 TSZ AC1,AC ;SHOULD NOT SKIP
2165 032363 254 00 0 00 032365 JRST .+2
2166 032364 005 12 0 00 040323 ER AC1,[ASCII /TST/];TSZ SKIPPED.
2167 032365 635 12 0 00 000011 TSZA AC1,AC ;SHOULD SKIP
2168 032366 005 12 0 00 040323 ER AC1,[ASCII /TST/]
2169 032367 312 12 0 00 040322 CAME AC1,[0] ;C(AC) SHOULD STILL=0
2170 032370 001 11 0 00 000007 ERR AC,RAN1
2171 LOOP TSZ5,TSZ6^
2172 032371 367 10 0 00 032355 SOJG AC-1,TSZ5 ;ITERATION COUNTER
2173 032372 200 11 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2174 032373 321 10 0 00 032361 JUMPL AC-1,TSZ6 ;LOOP ON ERROR SWITCH ^
2175
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 37
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0068
2176
2177
2178 ;TEST TSZ, TSZA. CHECK FOR SKIP/NO SKIP AND
2179 ;CORRECT DATA IN AC FOR RAN1 TO RAN CONDITION
2180 ;RAN1=C(RAN) SWAPPED
2181
2182
2183 000002 AC=2
2184 032374 TSZ7: SETUP 100,0^
2185 000003 AC1=<AC+1>&17
2186 000004 AC2=<AC+2>&17
2187 000005 AC3=<AC+3>&17
2188 000006 AC4=<AC+4>&17
2189 000007 AC5=<AC+5>&17
2190 000000 RAN1=<AC-2>&17
2191 032374 201 01 0 00 032374 MOVEI AC-1,.
2192 032375 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2193 032376 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2194 032377 202 01 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2195 032400 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2196 032401 240 01 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2197 032402 240 01 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2198 032403 TSZ8: RANDOM^
2199 032403 200 02 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2200 032404 270 02 0 00 040321 ADD AC,[142536475076]
2201 032405 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2202 032406 447 02 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
2203 032407 204 03 0 00 000002 TSZ9: MOVS AC1,AC ;MAKE C(E)=C(AC) SWAPPED
2204 032410 631 02 0 00 000003 TSZ AC,AC1 ;SHOULD NOT SKIP
2205 032411 254 00 0 00 032413 JRST .+2
2206 032412 005 02 0 00 040323 ER AC,[ASCII /TST/];TSZ SKIPPED.
2207 032413 635 02 0 00 000003 TSZA AC,AC1 ;SHOULD SKIP
2208 032414 005 02 0 00 040323 ER AC,[ASCII /TST/]
2209 032415 312 02 0 00 040322 CAME AC,[0] ;C(AC) SHOULD=0
2210 032416 001 03 0 00 040444 ERR AC1,RAN
2211 LOOP TSZ8,TSZ9^
2212 032417 367 01 0 00 032403 SOJG AC-1,TSZ8 ;ITERATION COUNTER
2213 032420 200 02 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2214 032421 321 01 0 00 032407 JUMPL AC-1,TSZ9 ;LOOP ON ERROR SWITCH ^
2215
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 38
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0069
2216
2217
2218 ;TEST TSZ, TSZA. CHECK FOR SKIP/NO SKIP AND
2219 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
2220
2221
2222 000003 AC=3
2223 032422 TSZA1: SETUP 100,0^
2224 000004 AC1=<AC+1>&17
2225 000005 AC2=<AC+2>&17
2226 000006 AC3=<AC+3>&17
2227 000007 AC4=<AC+4>&17
2228 000010 AC5=<AC+5>&17
2229 000001 RAN1=<AC-2>&17
2230 032422 201 02 0 00 032422 MOVEI AC-1,.
2231 032423 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2232 032424 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2233 032425 202 02 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2234 032426 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2235 032427 240 02 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2236 032430 240 02 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2237 032431 TSZA2: RANDOM^
2238 032431 200 03 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2239 032432 270 03 0 00 040321 ADD AC,[142536475076]
2240 032433 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2241 032434 447 03 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
2242 032435 200 04 0 00 000003 TSZA3: MOVE AC1,AC ;MAKE C(E)=C(AC)
2243 032436 200 05 0 00 000003 MOVE AC2,AC ;SIMULATE
2244 032437 204 06 0 00 000003 MOVS AC3,AC ;A
2245 032440 464 05 0 00 000006 ORCM AC2,AC3 ;TSZ
2246 032441 450 05 0 00 000000 SETCA AC2, ;INST
2247 032442 204 05 0 00 000005 MOVS AC2,AC2
2248 032443 631 03 0 00 000004 TSZ AC,AC1 ;SHOULD NOT SKIP
2249 032444 254 00 0 00 032446 JRST .+2
2250 032445 005 03 0 00 040323 ER AC,[ASCII /TST/];TSZ SKIPPED.
2251 032446 635 03 0 00 000004 TSZA AC,AC1 ;SHOULD SKIP
2252 032447 005 03 0 00 040323 ER AC,[ASCII /TST/]
2253 032450 312 03 0 00 000005 CAME AC,AC2 ;C(AC) SHOULD=SIM ANS
2254 032451 001 04 0 00 040444 ERR AC1,RAN
2255 LOOP TSZA2,TSZA3^
2256 032452 367 02 0 00 032431 SOJG AC-1,TSZA2 ;ITERATION COUNTER
2257 032453 200 03 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2258 032454 321 02 0 00 032435 JUMPL AC-1,TSZA3 ;LOOP ON ERROR SWITCH ^
2259
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 39
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0070
2260
2261
2262 ;TEST TSZE,TSZN. CHECK FOR SKIP/NO SKIP AND
2263 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
2264
2265
2266 000004 AC=4
2267 032455 TSZE1: SETUP 100,0^
2268 000005 AC1=<AC+1>&17
2269 000006 AC2=<AC+2>&17
2270 000007 AC3=<AC+3>&17
2271 000010 AC4=<AC+4>&17
2272 000011 AC5=<AC+5>&17
2273 000002 RAN1=<AC-2>&17
2274 032455 201 03 0 00 032455 MOVEI AC-1,.
2275 032456 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2276 032457 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2277 032460 202 03 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2278 032461 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2279 032462 240 03 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2280 032463 240 03 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2281 032464 TSZE2: RANDOM^
2282 032464 200 04 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2283 032465 270 04 0 00 040321 ADD AC,[142536475076]
2284 032466 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2285 032467 447 04 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
2286 032470 400 05 0 00 000000 TSZE3: SETZ AC1, ;CLEAR C(E)
2287 032471 637 04 0 00 000005 TSZN AC,AC1 ;C(E)+C(AC)=0. NO SKIP
2288 032472 254 00 0 00 032474 JRST .+2
2289 032473 005 04 0 00 040323 ER AC,[ASCII /TST/];TSZN SKIPPED.
2290 032474 633 04 0 00 000005 TSZE AC,AC1 ;C(E)+C(AC)=0. SKIP
2291 032475 005 04 0 00 040323 ER AC,[ASCII /TST/]
2292 032476 312 04 0 00 040444 CAME AC,RAN ;C(AC) SHOULD NOT CHANGE
2293 032477 001 05 0 00 040444 ERR AC1,RAN
2294 LOOP TSZE2,TSZE3^
2295 032500 367 03 0 00 032464 SOJG AC-1,TSZE2 ;ITERATION COUNTER
2296 032501 200 04 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2297 032502 321 03 0 00 032470 JUMPL AC-1,TSZE3 ;LOOP ON ERROR SWITCH ^
2298
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 40
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0071
2299
2300
2301 ;TEST TSZE,TSZN. CHECK FOR SKIP/ NO SKIP AND
2302 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
2303
2304
2305 000005 AC=5
2306 032503 TSZEA: SETUP 100,0^
2307 000006 AC1=<AC+1>&17
2308 000007 AC2=<AC+2>&17
2309 000010 AC3=<AC+3>&17
2310 000011 AC4=<AC+4>&17
2311 000012 AC5=<AC+5>&17
2312 000003 RAN1=<AC-2>&17
2313 032503 201 04 0 00 032503 MOVEI AC-1,.
2314 032504 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2315 032505 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2316 032506 202 04 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2317 032507 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2318 032510 240 04 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2319 032511 240 04 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2320 032512 TSZEB: RANDOM^
2321 032512 200 05 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2322 032513 270 05 0 00 040321 ADD AC,[142536475076]
2323 032514 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2324 032515 447 05 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
2325 032516 403 06 0 00 000003 TSZEC: SETZB AC1,RAN1 ;CLEAR C(AC).
2326 032517 637 06 0 00 000005 TSZN AC1,AC ;C(E)+C(AC)=0. NO SKIP
2327 032520 254 00 0 00 032522 JRST .+2
2328 032521 005 06 0 00 040323 ER AC1,[ASCII /TST/];TSZN SKIPPED.
2329 032522 633 06 0 00 000005 TSZE AC1,AC ;C(E)+C(AC)=0 SKIP
2330 032523 005 06 0 00 040323 ER AC1,[ASCII /TST/]
2331 032524 312 06 0 00 040322 CAME AC1,[0] ;C(AC) SHOULD STILL = 0
2332 032525 001 05 0 00 000003 ERR AC,RAN1
2333 LOOP TSZEB,TSZEC^
2334 032526 367 04 0 00 032512 SOJG AC-1,TSZEB ;ITERATION COUNTER
2335 032527 200 05 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2336 032530 321 04 0 00 032516 JUMPL AC-1,TSZEC ;LOOP ON ERROR SWITCH ^
2337
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 41
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0072
2338
2339
2340 ;TEST TSZE, TSZN. CHECK FOR SKIP/NO SKIP AND
2341 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION.
2342
2343
2344 000006 AC=6
2345 032531 TSZE4: SETUP 100,0^
2346 000007 AC1=<AC+1>&17
2347 000010 AC2=<AC+2>&17
2348 000011 AC3=<AC+3>&17
2349 000012 AC4=<AC+4>&17
2350 000013 AC5=<AC+5>&17
2351 000004 RAN1=<AC-2>&17
2352 032531 201 05 0 00 032531 MOVEI AC-1,.
2353 032532 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2354 032533 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2355 032534 202 05 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2356 032535 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2357 032536 240 05 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2358 032537 240 05 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2359 032540 TSZE5: RANDOM^
2360 032540 200 06 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2361 032541 270 06 0 00 040321 ADD AC,[142536475076]
2362 032542 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2363 032543 447 06 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
2364 032544 322 06 0 00 032540 JUMPE AC,TSZE5 ;REJECT IF RAN = 0.
2365 032545 474 07 0 00 000000 TSZE6: SETO AC1, ;SET C("E") TO ALL ONES.
2366 032546 633 06 0 00 000007 TSZE AC,AC1 ;C(E)+C(AC) NOT=0. NO SKIP
2367 032547 312 06 0 00 040322 CAME AC,[0] ;C(AC) SHOULD HAVE BEEN CLEARED
2368 032550 001 07 0 00 040444 ERR AC1,RAN
2369 032551 200 06 0 00 040444 MOVE AC,RAN ;RESTORE AC
2370 032552 637 06 0 00 000007 TSZN AC,AC1 ;C(E)+C(AC) NOT=0. SKIP
2371 032553 005 06 0 00 040323 ER AC,[ASCII /TST/]
2372 032554 312 06 0 00 040322 CAME AC,[0] ;C(AC) SHOULD HAVE BEEN CLEARED
2373 032555 001 07 0 00 040444 ERR AC1,RAN
2374 LOOP TSZE5,TSZE6^
2375 032556 367 05 0 00 032540 SOJG AC-1,TSZE5 ;ITERATION COUNTER
2376 032557 200 06 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2377 032560 321 05 0 00 032545 JUMPL AC-1,TSZE6 ;LOOP ON ERROR SWITCH ^
2378
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 42
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0073
2379
2380
2381 ;TEST TSZE, TSZN. CHECK FOR SKIP/NO SKIP AND
2382 ;CORRECT DATA IN AC FOR RAN TO -1 CONDITION
2383
2384
2385 000007 AC=7
2386 032561 TSZED: SETUP 100,0^
2387 000010 AC1=<AC+1>&17
2388 000011 AC2=<AC+2>&17
2389 000012 AC3=<AC+3>&17
2390 000013 AC4=<AC+4>&17
2391 000014 AC5=<AC+5>&17
2392 000005 RAN1=<AC-2>&17
2393 032561 201 06 0 00 032561 MOVEI AC-1,.
2394 032562 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2395 032563 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2396 032564 202 06 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2397 032565 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2398 032566 240 06 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2399 032567 240 06 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2400 032570 TSZEE: RANDOM^
2401 032570 200 07 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2402 032571 270 07 0 00 040321 ADD AC,[142536475076]
2403 032572 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2404 032573 447 07 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
2405 032574 322 07 0 00 032570 JUMPE AC,TSZEE ;REJECT IF RAN = 0.
2406 032575 477 10 0 00 000005 TSZEF: SETOB AC1,RAN1 ;SET C(AC) TO A -1.
2407 032576 204 11 0 00 000007 MOVS AC2,AC ;SIMULATE
2408 032577 430 11 0 00 000010 XOR AC2,AC1 ;A TSZ
2409 032600 633 10 0 00 000007 TSZE AC1,AC ;C(E)+C(AC) NOT=0. NO SKIP
2410 032601 312 10 0 00 000011 CAME AC1,AC2 ;C(AC) SHOULD=SIM ANS
2411 032602 001 07 0 00 000005 ERR AC,RAN1
2412 032603 474 10 0 00 000000 SETO AC1, ;RESTORE AC
2413 032604 637 10 0 00 000007 TSZN AC1,AC ;(E)+C(AC) NOT=0 SKIP
2414 032605 005 10 0 00 040323 ER AC1,[ASCII /TST/]
2415 032606 312 10 0 00 000011 CAME AC1,AC2 ;C(AC) SHOULD=SIM ANS
2416 032607 001 07 0 00 000005 ERR AC,RAN1
2417 LOOP TSZEE,TSZEF^
2418 032610 367 06 0 00 032570 SOJG AC-1,TSZEE ;ITERATION COUNTER
2419 032611 200 07 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2420 032612 321 06 0 00 032575 JUMPL AC-1,TSZEF ;LOOP ON ERROR SWITCH ^
2421
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 43
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0074
2422
2423
2424 ;TEST TSZE, TSZN, CHECK FOR SKIP/NO SKIP AND
2425 ;CORRECT DATA IN AC FOR NOT RAN TO RAN CONDITION
2426
2427
2428 000010 AC=10
2429 032613 TSZN1: SETUP 100,0^
2430 000011 AC1=<AC+1>&17
2431 000012 AC2=<AC+2>&17
2432 000013 AC3=<AC+3>&17
2433 000014 AC4=<AC+4>&17
2434 000015 AC5=<AC+5>&17
2435 000006 RAN1=<AC-2>&17
2436 032613 201 07 0 00 032613 MOVEI AC-1,.
2437 032614 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2438 032615 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2439 032616 202 07 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2440 032617 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2441 032620 240 07 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2442 032621 240 07 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2443 032622 TSZN2: RANDOM^
2444 032622 200 10 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2445 032623 270 10 0 00 040321 ADD AC,[142536475076]
2446 032624 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2447 032625 447 10 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
2448 032626 460 11 0 00 000010 TSZN3: SETCM AC1,AC ;MAKE C("E") = COMP C("AC").
2449 032627 204 11 0 00 000011 MOVS AC1,AC1 ;SWAPPED.
2450 032630 637 10 0 00 000011 TSZN AC,AC1 ;C(E)+C(AC)=0 NO. SKIP
2451 032631 312 10 0 00 040444 CAME AC,RAN ;C(AC) SHOULD=C(AC) BEFORE TOZ
2452 032632 001 11 0 00 040444 ERR AC1,RAN
2453 032633 633 10 0 00 000011 TSZE AC,AC1 ;C(E) +C(AC)=0. SKIP
2454 032634 005 10 0 00 040323 ER AC,[ASCII /TST/]
2455 032635 312 10 0 00 040444 CAME AC,RAN ;C(AC)SHOULD=C(AC)BEFORE TOZ
2456 032636 001 11 0 00 040444 ERR AC1,RAN
2457 LOOP TSZN2,TSZN3^
2458 032637 367 07 0 00 032622 SOJG AC-1,TSZN2 ;ITERATION COUNTER
2459 032640 200 10 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2460 032641 321 07 0 00 032626 JUMPL AC-1,TSZN3 ;LOOP ON ERROR SWITCH ^
2461
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 44
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0075
2462
2463
2464 ;TEST TSZE, TSZN. CHECK FOR SKIP/NO SKIP AND
2465 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
2466
2467
2468 000011 AC=11
2469 032642 TSZNA: SETUP 100,0^
2470 000012 AC1=<AC+1>&17
2471 000013 AC2=<AC+2>&17
2472 000014 AC3=<AC+3>&17
2473 000015 AC4=<AC+4>&17
2474 000016 AC5=<AC+5>&17
2475 000007 RAN1=<AC-2>&17
2476 032642 201 10 0 00 032642 MOVEI AC-1,.
2477 032643 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2478 032644 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2479 032645 202 10 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2480 032646 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2481 032647 240 10 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2482 032650 240 10 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2483 032651 TSZNB: RANDOM^
2484 032651 200 11 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2485 032652 270 11 0 00 040321 ADD AC,[142536475076]
2486 032653 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2487 032654 447 11 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
2488 032655 322 11 0 00 032651 JUMPE AC,TSZNB ;REJECT IF RAN = 0.
2489 032656 204 12 0 00 000011 TSZNC: MOVS AC1,AC ;MAKE C("E") = C("AC") SWAPPED.
2490 032657 633 11 0 00 000012 TSZE AC,AC1 ;C(E)+C(AC) NOT=0 NO SKIP.
2491 032660 312 11 0 00 040322 CAME AC,[0] ;C(AC) SHOULD BE ZEROED OUT.
2492 032661 001 12 0 00 040444 ERR AC1,RAN
2493 032662 200 11 0 00 040444 MOVE AC,RAN ;RESTORE AC
2494 032663 637 11 0 00 000012 TSZN AC,AC1 ;C(E)+C(AC)NOT=0. SKIP.
2495 032664 005 11 0 00 040323 ER AC,[ASCII /TST/]
2496 032665 312 11 0 00 040322 CAME AC,[0] ;C(AC) SHOULD BE ZEROED OUT.
2497 032666 001 12 0 00 040444 ERR AC1,RAN
2498 LOOP TSZNB,TSZNC^
2499 032667 367 10 0 00 032651 SOJG AC-1,TSZNB ;ITERATION COUNTER
2500 032670 200 11 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2501 032671 321 10 0 00 032656 JUMPL AC-1,TSZNC ;LOOP ON ERROR SWITCH ^
2502
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 45
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0076
2503
2504
2505 ;TEST TSN, TSNA. CHECK FOR SKIP/NO SKIP AND
2506 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION.
2507
2508
2509 000012 AC=12
2510 032672 TSN1: SETUP 100,0^
2511 000013 AC1=<AC+1>&17
2512 000014 AC2=<AC+2>&17
2513 000015 AC3=<AC+3>&17
2514 000016 AC4=<AC+4>&17
2515 000017 AC5=<AC+5>&17
2516 000010 RAN1=<AC-2>&17
2517 032672 201 11 0 00 032672 MOVEI AC-1,.
2518 032673 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2519 032674 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2520 032675 202 11 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2521 032676 201 11 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2522 032677 240 11 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2523 032700 240 11 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2524 032701 TSN2: RANDOM^
2525 032701 200 12 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2526 032702 270 12 0 00 040321 ADD AC,[142536475076]
2527 032703 241 12 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2528 032704 447 12 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
2529 032705 400 13 0 00 000000 TSN3: SETZ AC1, ;CLEAR C("E")
2530 032706 611 12 0 00 000013 TSN AC,AC1 ;SHOULD NOT SKIP
2531 032707 254 00 0 00 032711 JRST .+2
2532 032710 005 12 0 00 040323 ER AC,[ASCII /TST/];TSN SKIPPED.
2533 032711 615 12 0 00 000013 TSNA AC,AC1 ;SHOULD SKIP
2534 032712 005 12 0 00 040323 ER AC,[ASCII /TST/]
2535 032713 312 12 0 00 040444 CAME AC,RAN ;C(AC)SHOULD NOT CHANGE
2536 032714 001 13 0 00 040444 ERR AC1,RAN
2537 LOOP TSN2,TSN3^
2538 032715 367 11 0 00 032701 SOJG AC-1,TSN2 ;ITERATION COUNTER
2539 032716 200 12 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2540 032717 321 11 0 00 032705 JUMPL AC-1,TSN3 ;LOOP ON ERROR SWITCH ^
2541
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 46
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0077
2542
2543
2544 ;TEST TSN, TSNA CHECK FOR SKIP/NO SKIP AND
2545 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION.
2546
2547
2548 000013 AC=13
2549 032720 TSN4: SETUP 100,0^
2550 000014 AC1=<AC+1>&17
2551 000015 AC2=<AC+2>&17
2552 000016 AC3=<AC+3>&17
2553 000017 AC4=<AC+4>&17
2554 000000 AC5=<AC+5>&17
2555 000011 RAN1=<AC-2>&17
2556 032720 201 12 0 00 032720 MOVEI AC-1,.
2557 032721 202 12 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2558 032722 201 12 0 00 000012 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2559 032723 202 12 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2560 032724 201 12 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2561 032725 240 12 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2562 032726 240 12 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2563 032727 TSN5: RANDOM^
2564 032727 200 13 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2565 032730 270 13 0 00 040321 ADD AC,[142536475076]
2566 032731 241 13 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2567 032732 447 13 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
2568 032733 403 14 0 00 000011 TSN6: SETZB AC1,RAN1 ;CLEAR C("AC").
2569 032734 611 14 0 00 000013 TSN AC1,AC ;SHOULD NOT SKIP
2570 032735 254 00 0 00 032737 JRST .+2
2571 032736 005 14 0 00 040323 ER AC1,[ASCII /TST/];TSN SKIPPED.
2572 032737 615 14 0 00 000013 TSNA AC1,AC ;SHOULD SKIP
2573 032740 005 13 0 00 040323 ER AC,[ASCII /TST/]
2574 032741 312 14 0 00 000011 CAME AC1,RAN1 ;C(AC) SHOULD = ORIG. C(AC).
2575 032742 001 13 0 00 000011 ERR AC,RAN1
2576 LOOP TSN5,TSN6^
2577 032743 367 12 0 00 032727 SOJG AC-1,TSN5 ;ITERATION COUNTER
2578 032744 200 13 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2579 032745 321 12 0 00 032733 JUMPL AC-1,TSN6 ;LOOP ON ERROR SWITCH ^
2580
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 47
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0078
2581
2582
2583 ;TEST TSN, TSNA. CHECK FOR SKIP/NO SKIP AND
2584 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
2585
2586
2587 000014 AC=14
2588 032746 TSN7: SETUP 100,0^
2589 000015 AC1=<AC+1>&17
2590 000016 AC2=<AC+2>&17
2591 000017 AC3=<AC+3>&17
2592 000000 AC4=<AC+4>&17
2593 000001 AC5=<AC+5>&17
2594 000012 RAN1=<AC-2>&17
2595 032746 201 13 0 00 032746 MOVEI AC-1,.
2596 032747 202 13 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2597 032750 201 13 0 00 000013 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2598 032751 202 13 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2599 032752 201 13 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2600 032753 240 13 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2601 032754 240 13 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2602 032755 TSN8: RANDOM^
2603 032755 200 14 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2604 032756 270 14 0 00 040321 ADD AC,[142536475076]
2605 032757 241 14 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2606 032760 447 14 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
2607 032761 204 15 0 00 000014 TSN9: MOVS AC1,AC ;MAKE C("E")=C("AC") SWAPPED
2608 032762 611 14 0 00 000015 TSN AC,AC1 ;SHOULD NOT SKIP
2609 032763 254 00 0 00 032765 JRST .+2
2610 032764 005 14 0 00 040323 ER AC,[ASCII /TST/];TSN SKIPPED.
2611 032765 615 14 0 00 000015 TSNA AC,AC1 ;SHOULD SKIP
2612 032766 005 14 0 00 040323 ER AC,[ASCII /TST/]
2613 032767 312 14 0 00 040444 CAME AC,RAN ;C(AC)SHOULD NOT CHANGE
2614 032770 001 15 0 00 040444 ERR AC1,RAN
2615 LOOP TSN8,TSN9^
2616 032771 367 13 0 00 032755 SOJG AC-1,TSN8 ;ITERATION COUNTER
2617 032772 200 14 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2618 032773 321 13 0 00 032761 JUMPL AC-1,TSN9 ;LOOP ON ERROR SWITCH ^
2619
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 48
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0079
2620
2621
2622 ;TEST TSN, TSNA. CHECK FOR SKIP/NO SKIP AND
2623 ;CORRECT DATA IN AC FOR RAN1 TO RAN CONDITION
2624 ;RAN1=RAN BEFORE TSN
2625
2626
2627 000015 AC=15
2628 032774 TSNA1: SETUP 100,0^
2629 000016 AC1=<AC+1>&17
2630 000017 AC2=<AC+2>&17
2631 000000 AC3=<AC+3>&17
2632 000001 AC4=<AC+4>&17
2633 000002 AC5=<AC+5>&17
2634 000013 RAN1=<AC-2>&17
2635 032774 201 14 0 00 032774 MOVEI AC-1,.
2636 032775 202 14 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2637 032776 201 14 0 00 000014 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2638 032777 202 14 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2639 033000 201 14 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2640 033001 240 14 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2641 033002 240 14 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2642 033003 TSNA2: RANDOM^
2643 033003 200 15 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2644 033004 270 15 0 00 040321 ADD AC,[142536475076]
2645 033005 241 15 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2646 033006 447 15 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
2647 033007 200 16 0 00 000015 TSNA3: MOVE AC1,AC ;MAKE C("E")=C("AC")
2648 033010 611 15 0 00 000016 TSN AC,AC1 ;SHOULD NOT SKIP
2649 033011 254 00 0 00 033013 JRST .+2
2650 033012 005 15 0 00 040323 ER AC,[ASCII /TST/];TSN SKIPPED.
2651 033013 615 15 0 00 000016 TSNA AC,AC1 ;SHOULD SKIP
2652 033014 005 15 0 00 040323 ER AC,[ASCII /TST/]
2653 033015 312 15 0 00 040444 CAME AC,RAN ;C(AC) SHOULD NOT CHANGE
2654 033016 001 16 0 00 040444 ERR AC1,RAN
2655 LOOP TSNA2,TSNA3^
2656 033017 367 14 0 00 033003 SOJG AC-1,TSNA2 ;ITERATION COUNTER
2657 033020 200 15 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2658 033021 321 14 0 00 033007 JUMPL AC-1,TSNA3 ;LOOP ON ERROR SWITCH ^
2659
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 49
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0080
2660
2661
2662 ;TEST TSNE, TSNN. CHECK FOR SKIP/NO SKIP AND
2663 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
2664
2665
2666 000006 AC=6
2667 033022 TSNE1: SETUP 100,0^
2668 000007 AC1=<AC+1>&17
2669 000010 AC2=<AC+2>&17
2670 000011 AC3=<AC+3>&17
2671 000012 AC4=<AC+4>&17
2672 000013 AC5=<AC+5>&17
2673 000004 RAN1=<AC-2>&17
2674 033022 201 05 0 00 033022 MOVEI AC-1,.
2675 033023 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2676 033024 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2677 033025 202 05 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2678 033026 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2679 033027 240 05 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2680 033030 240 05 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2681 033031 TSNE2: RANDOM^
2682 033031 200 06 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2683 033032 270 06 0 00 040321 ADD AC,[142536475076]
2684 033033 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2685 033034 447 06 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
2686 033035 400 07 0 00 000000 TSNE3: SETZ AC1, ;CLEAR C("E").
2687 033036 617 06 0 00 000007 TSNN AC,AC1 ;C(E)+C(AC)=0. NO SKIP.
2688 033037 254 00 0 00 033041 JRST .+2
2689 033040 005 06 0 00 040323 ER AC,[ASCII /TST/];TSNN SKIPPED.
2690 033041 613 06 0 00 000007 TSNE AC,AC1 ;C(E)+C(AC)=0. SKIP
2691 033042 005 06 0 00 040323 ER AC,[ASCII /TST/]
2692 033043 312 06 0 00 040444 CAME AC,RAN ;C(AC) SHOULD NOT CHANGE
2693 033044 001 07 0 00 040444 ERR AC1,RAN
2694 LOOP TSNE2,TSNE3^
2695 033045 367 05 0 00 033031 SOJG AC-1,TSNE2 ;ITERATION COUNTER
2696 033046 200 06 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2697 033047 321 05 0 00 033035 JUMPL AC-1,TSNE3 ;LOOP ON ERROR SWITCH ^
2698
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 50
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0081
2699
2700
2701 ;TEST TSNE, TSNN. CHECK FOR SKIP/NO SKIP AND
2702 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION.
2703
2704
2705 000007 AC=7
2706 033050 TSNEA: SETUP 100,0^
2707 000010 AC1=<AC+1>&17
2708 000011 AC2=<AC+2>&17
2709 000012 AC3=<AC+3>&17
2710 000013 AC4=<AC+4>&17
2711 000014 AC5=<AC+5>&17
2712 000005 RAN1=<AC-2>&17
2713 033050 201 06 0 00 033050 MOVEI AC-1,.
2714 033051 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2715 033052 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2716 033053 202 06 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2717 033054 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2718 033055 240 06 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2719 033056 240 06 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2720 033057 TSNEB: RANDOM^
2721 033057 200 07 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2722 033060 270 07 0 00 040321 ADD AC,[142536475076]
2723 033061 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2724 033062 447 07 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
2725 033063 403 10 0 00 000005 TSNEC: SETZB AC1,RAN1 ;CLEAR C("AC").
2726 033064 617 10 0 00 000007 TSNN AC1,AC ;C(E)+C(AC)=0. NO SKIP.
2727 033065 254 00 0 00 033067 JRST .+2
2728 033066 005 10 0 00 040323 ER AC1,[ASCII /TST/];TSNN SKIPPED.
2729 033067 613 10 0 00 000007 TSNE AC1,AC ;C(E)+C(AC)=0. SKIP
2730 033070 005 10 0 00 040323 ER AC1,[ASCII /TST/]
2731 033071 312 10 0 00 000005 CAME AC1,RAN1 ;C(AC) SHOULD = ORIG. C(AC).
2732 033072 001 07 0 00 000005 ERR AC,RAN1
2733 LOOP TSNEB,TSNEC^
2734 033073 367 06 0 00 033057 SOJG AC-1,TSNEB ;ITERATION COUNTER
2735 033074 200 07 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2736 033075 321 06 0 00 033063 JUMPL AC-1,TSNEC ;LOOP ON ERROR SWITCH ^
2737
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 51
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0082
2738
2739
2740 ;TEST TSNE, TSNN. CHECK FOR SKIP/NO SKIP AND
2741 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION
2742
2743
2744 000010 AC=10
2745 033076 TSNE4: SETUP 100,0^
2746 000011 AC1=<AC+1>&17
2747 000012 AC2=<AC+2>&17
2748 000013 AC3=<AC+3>&17
2749 000014 AC4=<AC+4>&17
2750 000015 AC5=<AC+5>&17
2751 000006 RAN1=<AC-2>&17
2752 033076 201 07 0 00 033076 MOVEI AC-1,.
2753 033077 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2754 033100 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2755 033101 202 07 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2756 033102 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2757 033103 240 07 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2758 033104 240 07 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2759 033105 TSNE5: RANDOM^
2760 033105 200 10 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2761 033106 270 10 0 00 040321 ADD AC,[142536475076]
2762 033107 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2763 033110 447 10 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
2764 033111 322 10 0 00 033105 TSNE6: JUMPE AC,TSNE5 ;REJECT IF RAN = 0.
2765 033112 474 11 0 00 000000 SETO AC1, ;SET C("E") TO A-1.
2766 033113 613 10 0 00 000011 TSNE AC,AC1 ;C(E)+C(AC) NOT=0. NO SKIP.
2767 033114 254 00 0 00 033116 JRST .+2
2768 033115 005 10 0 00 040323 ER AC,[ASCII /TST/];TSNE SKIPPED.
2769 033116 617 10 0 00 000011 TSNN AC,AC1 ;C(E)+C(AC) NOT=0. SKIP.
2770 033117 005 10 0 00 040323 ER AC,[ASCII /TST/]
2771 033120 312 10 0 00 040444 CAME AC,RAN ;C(AC)SHOULD NOT CHANGE.
2772 033121 001 11 0 00 040444 ERR AC1,RAN
2773 LOOP TSNE5,TSNE6^
2774 033122 367 07 0 00 033105 SOJG AC-1,TSNE5 ;ITERATION COUNTER
2775 033123 200 10 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2776 033124 321 07 0 00 033111 JUMPL AC-1,TSNE6 ;LOOP ON ERROR SWITCH ^
2777
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 52
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0083
2778
2779
2780 ;TEST TSNE, TSNN. CHECK FOR SKIP/NO SKIP AND
2781 ;CORRECT DATA IN AC FOR RAN TO -1 CONDITION
2782
2783
2784 000011 AC=11
2785 033125 TSNED: SETUP 100,0^
2786 000012 AC1=<AC+1>&17
2787 000013 AC2=<AC+2>&17
2788 000014 AC3=<AC+3>&17
2789 000015 AC4=<AC+4>&17
2790 000016 AC5=<AC+5>&17
2791 000007 RAN1=<AC-2>&17
2792 033125 201 10 0 00 033125 MOVEI AC-1,.
2793 033126 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2794 033127 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2795 033130 202 10 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2796 033131 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2797 033132 240 10 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2798 033133 240 10 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2799 033134 TSNEE: RANDOM^
2800 033134 200 11 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2801 033135 270 11 0 00 040321 ADD AC,[142536475076]
2802 033136 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2803 033137 447 11 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
2804 033140 322 11 0 00 033134 JUMPE AC,TSNEE ;REJECT IF RAN = 0.
2805 033141 477 12 0 00 000007 TSNEF: SETOB AC1,RAN1 ;SET C("AC") TO A -1.
2806 033142 613 12 0 00 000011 TSNE AC1,AC ;C(E)+C(AC) NOT=0. NO SKIP.
2807 033143 254 00 0 00 033145 JRST .+2
2808 033144 005 12 0 00 040323 ER AC1,[ASCII /TST/];TSNE SKIPPED.
2809 033145 617 12 0 00 000011 TSNN AC1,AC ;C(E)+C(AC) NOT=0. SKIP.
2810 033146 005 12 0 00 040323 ER AC1,[ASCII /TST/]
2811 033147 312 12 0 00 000007 CAME AC1,RAN1 ;C(AC) SHOULD = ORIG. C(AC).
2812 033150 001 11 0 00 000007 ERR AC,RAN1
2813 LOOP TSNEE,TSNEF^
2814 033151 367 10 0 00 033134 SOJG AC-1,TSNEE ;ITERATION COUNTER
2815 033152 200 11 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2816 033153 321 10 0 00 033141 JUMPL AC-1,TSNEF ;LOOP ON ERROR SWITCH ^
2817
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 53
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0084
2818
2819
2820 ;TEST TSNE, TSNN CHECK FOR SKIP/NO SKIP AND
2821 ;CORRECT DATA IN AC FOR NOT RAN TO RAN CONDITION
2822
2823
2824 000002 AC=2
2825 033154 TSNN1: SETUP 100,0^
2826 000003 AC1=<AC+1>&17
2827 000004 AC2=<AC+2>&17
2828 000005 AC3=<AC+3>&17
2829 000006 AC4=<AC+4>&17
2830 000007 AC5=<AC+5>&17
2831 000000 RAN1=<AC-2>&17
2832 033154 201 01 0 00 033154 MOVEI AC-1,.
2833 033155 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2834 033156 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2835 033157 202 01 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2836 033160 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2837 033161 240 01 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2838 033162 240 01 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2839 033163 TSNN2: RANDOM^
2840 033163 200 02 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2841 033164 270 02 0 00 040321 ADD AC,[142536475076]
2842 033165 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2843 033166 447 02 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
2844 033167 322 02 0 00 033163 JUMPE AC,TSNN2 ;REJECT IF RAN = 0.
2845 033170 204 03 0 00 000002 TSNN3: MOVS AC1,AC ;MAKE C(E) =
2846 033171 450 03 0 00 000000 SETCA AC1, ;COMP C(AC).
2847 033172 617 02 0 00 000003 TSNN AC,AC1 ;C(E) + C(AC) = 0...NO SKIP.
2848 033173 254 00 0 00 033175 JRST .+2
2849 033174 005 02 0 00 040323 ER AC,[ASCII /TST/];TSNN SKIPPED.
2850 033175 613 02 0 00 000003 TSNE AC,AC1 ;C(E) + C(AC) = 0...SKIP.
2851 033176 005 02 0 00 040323 ER AC,[ASCII /TST/]
2852 033177 312 02 0 00 040444 CAME AC,RAN ;C(AC)SHOULD NOT CHANGE
2853 033200 001 03 0 00 040444 ERR AC1,RAN
2854 LOOP TSNN2,TSNN3^
2855 033201 367 01 0 00 033163 SOJG AC-1,TSNN2 ;ITERATION COUNTER
2856 033202 200 02 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2857 033203 321 01 0 00 033170 JUMPL AC-1,TSNN3 ;LOOP ON ERROR SWITCH ^
2858
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 54
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0085
2859
2860
2861 ;TEST TSNE, TSNN. CHECK FOR SKIP/NO SKIP AND
2862 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
2863
2864
2865 000003 AC=3
2866 033204 TSNNA: SETUP 100,0^
2867 000004 AC1=<AC+1>&17
2868 000005 AC2=<AC+2>&17
2869 000006 AC3=<AC+3>&17
2870 000007 AC4=<AC+4>&17
2871 000010 AC5=<AC+5>&17
2872 000001 RAN1=<AC-2>&17
2873 033204 201 02 0 00 033204 MOVEI AC-1,.
2874 033205 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2875 033206 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2876 033207 202 02 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2877 033210 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2878 033211 240 02 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2879 033212 240 02 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2880 033213 TSNNB: RANDOM^
2881 033213 200 03 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2882 033214 270 03 0 00 040321 ADD AC,[142536475076]
2883 033215 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2884 033216 447 03 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
2885 033217 204 05 0 00 000003 MOVS AC2,AC ;MAKE SURE
2886 033220 404 05 0 00 000003 AND AC2,AC ;AND CONDITION
2887 033221 322 05 0 00 033213 JUMPE AC2,TSNNB ;DOESN'T = 0.
2888 033222 200 04 0 00 000003 TSNNC: MOVE AC1,AC ;MAKE C("E") = C("AC").
2889 033223 613 03 0 00 000004 TSNE AC,AC1 ;C(E)+C(AC)NOT=0. NO SKIP
2890 033224 254 00 0 00 033226 JRST .+2
2891 033225 005 03 0 00 040323 ER AC,[ASCII /TST/];TSNE SKIPPED.
2892 033226 617 03 0 00 000004 TSNN AC,AC1 ;C(E)+C(AC)NOT=0. SKIP.
2893 033227 005 03 0 00 040323 ER AC,[ASCII /TST/]
2894 033230 312 03 0 00 040444 CAME AC,RAN ;C(AC) SHOULD NOT CHANGE
2895 033231 001 04 0 00 040444 ERR AC1,RAN
2896 LOOP TSNNB,TSNNC^
2897 033232 367 02 0 00 033213 SOJG AC-1,TSNNB ;ITERATION COUNTER
2898 033233 200 03 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2899 033234 321 02 0 00 033222 JUMPL AC-1,TSNNC ;LOOP ON ERROR SWITCH ^
2900
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 55
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0086
2901
2902
2903 ;TEST SKIP, SKIPA. CHECK FOR SKIP/NO SKIP AND
2904 ;CORRECT DATA IN C(E) AND C(AC)=C(E) AFTER SKIP
2905 ;ALSO CHECK FOR OVERFLOW FLAG NOT BEING SET.
2906
2907
2908 000004 AC=4
2909 033235 SKIP1: SETUP 100,0^
2910 000005 AC1=<AC+1>&17
2911 000006 AC2=<AC+2>&17
2912 000007 AC3=<AC+3>&17
2913 000010 AC4=<AC+4>&17
2914 000011 AC5=<AC+5>&17
2915 000002 RAN1=<AC-2>&17
2916 033235 201 03 0 00 033235 MOVEI AC-1,.
2917 033236 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2918 033237 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2919 033240 202 03 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2920 033241 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2921 033242 240 03 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2922 033243 240 03 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2923 033244 SKIP2: RANDOM^
2924 033244 200 04 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2925 033245 270 04 0 00 040321 ADD AC,[142536475076]
2926 033246 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2927 033247 447 04 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
2928 033250 255 10 0 00 033251 SKIP3: JFCL 10,.+1 ;CLEAR OV FLAG
2929 033251 200 02 0 00 000005 MOVE RAN1,AC1 ;SAVE C(AC) IN CASE OF ERROR.
2930 033252 330 05 0 00 000004 SKIP AC1,AC ;SHOULD NOT SKIP
2931 033253 334 05 0 00 000004 SKIPA AC1,AC ;SHOULD SKIP
2932 033254 005 04 0 00 040325 ER AC,[ASCII /SKP/]
2933 033255 255 10 0 00 033257 JFCL 10,.+2 ;OV FLAG GET SET?
2934 033256 254 00 0 00 033260 JRST .+2 ;NO
2935 033257 005 04 0 00 040326 ER AC,[ASCII /AROV/];YES..SHOULD NOT GET SET ON SKIP INST.
2936 033260 312 04 0 00 040444 CAME AC,RAN ;C(E) SHOULD NOT HAVE CHANGED
2937 033261 001 04 0 00 000002 ERR AC,RAN1
2938 033262 312 05 0 00 040444 CAME AC1,RAN ;C(AC) SHOULD =C(E).
2939 033263 001 04 0 00 000002 ERR AC,RAN1
2940 LOOP SKIP2,SKIP3^
2941 033264 367 03 0 00 033244 SOJG AC-1,SKIP2 ;ITERATION COUNTER
2942 033265 200 04 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2943 033266 321 03 0 00 033250 JUMPL AC-1,SKIP3 ;LOOP ON ERROR SWITCH ^
2944
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 56
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0087
2945
2946
2947 ;TEST SKIPE, SKIPN. CHECK FOR SKIP/ NO SKIP,
2948 ;CORRECT DATA IN C(E) AND C(AC)=C(E) AFTER SKIP.
2949
2950
2951 000005 AC=5
2952 033267 SKIPE1: SETUP 100,0^
2953 000006 AC1=<AC+1>&17
2954 000007 AC2=<AC+2>&17
2955 000010 AC3=<AC+3>&17
2956 000011 AC4=<AC+4>&17
2957 000012 AC5=<AC+5>&17
2958 000003 RAN1=<AC-2>&17
2959 033267 201 04 0 00 033267 MOVEI AC-1,.
2960 033270 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2961 033271 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2962 033272 202 04 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2963 033273 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2964 033274 240 04 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2965 033275 240 04 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2966 033276 201 06 0 00 000001 MOVEI AC1,1 ;SETUP C(E) FOR A FLOATING ONE
2967 033277 SKIPE2: RANDOM^
2968 033277 200 05 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2969 033300 270 05 0 00 040321 ADD AC,[142536475076]
2970 033301 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2971 033302 447 05 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
2972 033303 241 06 0 00 000001 ROT AC1,1 ;ROT TO TEST NEXT BIT.
2973 033304 200 07 0 00 000006 MOVE AC2,AC1 ;SAVE FLOATING ONE BIT
2974 033305 200 06 0 00 000007 SKIPE3: MOVE AC1,AC2 ;RESTORE C(5) IN CASE OF ERROR
2975 033306 332 05 0 00 000006 SKIPE AC,AC1 ;SHOULD NOT SKIP
2976 033307 336 05 0 00 000006 SKIPN AC,AC1 ;SHOULD SKIP
2977 033310 005 06 0 00 040325 ER AC1,[ASCII /SKP/]
2978 033311 312 06 0 00 000007 CAME AC1,AC2 ;C(E) SHOULD NOT CHANGE
2979 033312 001 07 0 00 040444 ERR AC2,RAN
2980 033313 312 05 0 00 000007 CAME AC,AC2 ;C(AC) SHOULD= C(E)
2981 033314 001 07 0 00 040444 ERR AC2,RAN
2982 LOOP SKIPE2,SKIPE3^
2983 033315 367 04 0 00 033277 SOJG AC-1,SKIPE2 ;ITERATION COUNTER
2984 033316 200 05 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2985 033317 321 04 0 00 033305 JUMPL AC-1,SKIPE3 ;LOOP ON ERROR SWITCH ^
2986
2987
2988
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 57
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0088
2989
2990
2991 ;TEST SKIPN, SKIPE. CHECK FOR SKIP/ NO SKIP,
2992 ;CORRECT DATA IN C(E) AND C(AC) = C(E) AFTER SKIP.
2993 ;C(AC) = RAN. NUM. AND C(E) = 0.
2994
2995
2996 000003 AC=3
2997 033320 SKIPN1: SETUP 100,0^
2998 000004 AC1=<AC+1>&17
2999 000005 AC2=<AC+2>&17
3000 000006 AC3=<AC+3>&17
3001 000007 AC4=<AC+4>&17
3002 000010 AC5=<AC+5>&17
3003 000001 RAN1=<AC-2>&17
3004 033320 201 02 0 00 033320 MOVEI AC-1,.
3005 033321 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3006 033322 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3007 033323 202 02 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3008 033324 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3009 033325 240 02 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3010 033326 240 02 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3011 033327 SKIPN2: RANDOM^
3012 033327 200 03 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3013 033330 270 03 0 00 040321 ADD AC,[142536475076]
3014 033331 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3015 033332 447 03 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
3016 033333 403 04 0 00 000001 SKIPN3: SETZB AC1,RAN1 ;CLEAR C(E).
3017 033334 336 03 0 00 000004 SKIPN AC,AC1 ;C(E) = 0...NO SKIP.
3018 033335 332 03 0 00 000004 SKIPE AC,AC1 ;C(E) = 0...SKIP.
3019 033336 005 04 0 00 040325 ER AC1,[ASCII /SKP/]
3020 033337 312 03 0 00 000004 CAME AC,AC1 ;C(AC) SHOULD = C(E).
3021 033340 001 01 0 00 040444 ERR RAN1,RAN
3022 033341 312 04 0 00 000001 CAME AC1,RAN1 ;C(E) SHOULD STILL = 0.
3023 033342 001 01 0 00 040444 ERR RAN1,RAN
3024 LOOP SKIPN2,SKIPN3^
3025 033343 367 02 0 00 033327 SOJG AC-1,SKIPN2 ;ITERATION COUNTER
3026 033344 200 03 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3027 033345 321 02 0 00 033333 JUMPL AC-1,SKIPN3 ;LOOP ON ERROR SWITCH ^
3028
3029
3030
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 58
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0089
3031
3032
3033 ;TEST SKIPG, SKIPL. CHECK FOR SKIP/NO SKIP,
3034 ;CORRECT DATA IN C(E), AND C(AC)=C(E)AFTER SKIP,
3035 ;BY ROTATING A BIT IN E.
3036
3037
3038 000006 AC=6
3039 033346 SKIPG1: SETUP 100,0^
3040 000007 AC1=<AC+1>&17
3041 000010 AC2=<AC+2>&17
3042 000011 AC3=<AC+3>&17
3043 000012 AC4=<AC+4>&17
3044 000013 AC5=<AC+5>&17
3045 000004 RAN1=<AC-2>&17
3046 033346 201 05 0 00 033346 MOVEI AC-1,.
3047 033347 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3048 033350 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3049 033351 202 05 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3050 033352 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3051 033353 240 05 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3052 033354 240 05 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3053 033355 201 07 0 00 000001 MOVEI AC1,1 ;SETUP AC1 FOR FLOATING ONE.
3054 033356 SKIPG2: RANDOM^
3055 033356 200 06 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3056 033357 270 06 0 00 040321 ADD AC,[142536475076]
3057 033360 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3058 033361 447 06 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
3059 033362 241 07 0 00 000001 ROT AC1,1 ;ROT AC1 TO TEST NEXT BIT.
3060 033363 316 07 0 00 040327 CAMN AC1,[XWD 400000,0];IS SIGN BIT SET?
3061 033364 241 07 0 00 000001 ROT AC1,1 ;YES. ROT AGAIN
3062 033365 200 10 0 00 000007 MOVE AC2,AC1 ;SAVE FLOATING ONE IN AC2.
3063 033366 200 07 0 00 000010 SKIPG3: MOVE AC1,AC2 ;RESTORE AC1 IN CASE OF ERROR
3064 033367 331 06 0 00 000007 SKIPL AC,AC1 ;SHOULD NOT SKIP.
3065 033370 337 06 0 00 000007 SKIPG AC,AC1 ;SKIPG SHOULD SKIP
3066 033371 005 06 0 00 040325 ER AC,[ASCII /SKP/]
3067 033372 312 07 0 00 000010 CAME AC1,AC2 ;NOT CHANGE C(E),
3068 033373 001 10 0 00 040444 ERR AC2,RAN
3069 033374 312 06 0 00 000010 CAME AC,AC2 ;AND PUT C(E) INTO AC.
3070 033375 001 10 0 00 040444 ERR AC2,RAN
3071 LOOP SKIPG2,SKIPG3^
3072 033376 367 05 0 00 033356 SOJG AC-1,SKIPG2 ;ITERATION COUNTER
3073 033377 200 06 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3074 033400 321 05 0 00 033366 JUMPL AC-1,SKIPG3 ;LOOP ON ERROR SWITCH ^
3075
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 59
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0090
3076
3077
3078 ;TEST SKIPG, SKIPL. CHECK FOR SKIP/NO SKIP,
3079 ;CORRECT DATA IN C(E), AND C(AC)=C(E) AFTER SKIP,
3080 ;BY USEING A NEGATIVE RANDOM NUMBER IN E.
3081
3082
3083 000007 AC=7
3084 033401 SKIPL1: SETUP 100,0^
3085 000010 AC1=<AC+1>&17
3086 000011 AC2=<AC+2>&17
3087 000012 AC3=<AC+3>&17
3088 000013 AC4=<AC+4>&17
3089 000014 AC5=<AC+5>&17
3090 000005 RAN1=<AC-2>&17
3091 033401 201 06 0 00 033401 MOVEI AC-1,.
3092 033402 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3093 033403 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3094 033404 202 06 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3095 033405 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3096 033406 240 06 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3097 033407 240 06 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3098 033410 SKIPL2: RANDOM^
3099 033410 200 07 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3100 033411 270 07 0 00 040321 ADD AC,[142536475076]
3101 033412 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3102 033413 447 07 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
3103 033414 311 07 0 00 040322 SKIPL3: CAML AC,[0] ;RAN A POSITIVE NUMB
3104 033415 450 07 0 00 000000 SETCA AC, ;YES, COMP TO MAKE IT NEG
3105 033416 200 11 0 00 000007 MOVE AC2,AC ;SAVE AC FOR FUTURE COMPARE
3106 033417 202 10 0 00 000005 MOVEM AC1,RAN1 ;SAVE AC1 IN CASE OF ERROR.
3107 033420 337 10 0 00 000007 SKIPG AC1,AC ;SHOULD NOT SKIP
3108 033421 331 10 0 00 000007 SKIPL AC1,AC ;C(E)IS NEG. SHOULD SKIP
3109 033422 005 07 0 00 040325 ER AC,[ASCII /SKP/]
3110 033423 312 07 0 00 000011 CAME AC,AC2 ;C(E) SHOULD NOT HAVE CHANGED
3111 033424 001 11 0 00 000005 ERR AC2,RAN1
3112 033425 312 10 0 00 000011 CAME AC1,AC2 ;C(AC) SHOULD BE =TO C(E)
3113 033426 001 11 0 00 000005 ERR AC2,RAN1
3114 LOOP SKIPL2,SKIPL3^
3115 033427 367 06 0 00 033410 SOJG AC-1,SKIPL2 ;ITERATION COUNTER
3116 033430 200 07 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3117 033431 321 06 0 00 033414 JUMPL AC-1,SKIPL3 ;LOOP ON ERROR SWITCH ^
3118
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 60
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0091
3119
3120
3121 ;TEST SKIPGE, SKIPL. CHECK FOR SKIP/NO SKIP,
3122 ;C(E) NOT CHANGING, AND C(AC)=C(E) AFTER SKIP,
3123 ;BY MAKEING C(E) POSITIVE AND THEN 0
3124
3125
3126 000010 AC=10
3127 033432 SKPGE1: SETUP 100,0^
3128 000011 AC1=<AC+1>&17
3129 000012 AC2=<AC+2>&17
3130 000013 AC3=<AC+3>&17
3131 000014 AC4=<AC+4>&17
3132 000015 AC5=<AC+5>&17
3133 000006 RAN1=<AC-2>&17
3134 033432 201 07 0 00 033432 MOVEI AC-1,.
3135 033433 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3136 033434 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3137 033435 202 07 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3138 033436 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3139 033437 240 07 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3140 033440 240 07 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3141 033441 SKPGE2: RANDOM^
3142 033441 200 10 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3143 033442 270 10 0 00 040321 ADD AC,[142536475076]
3144 033443 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3145 033444 447 10 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
3146 033445 315 10 0 00 040322 SKPGE3: CAMGE AC,[0] ;RAN POSITIVE?
3147 033446 450 10 0 00 000000 SETCA AC, ;NO. COMP AND MAKE IT POSITIVE
3148 033447 200 12 0 00 000010 MOVE AC2,AC ;SAVE FOR FUTURE COMPARE
3149 033450 202 11 0 00 000006 MOVEM AC1,RAN1 ;SAVE AC1 IN CASE OF ERROR.
3150 033451 331 11 0 00 000010 SKIPL AC1,AC ;C(E) IS POS SHOULD NOT SKIP
3151 033452 335 11 0 00 000010 SKIPGE AC1,AC ;C(E) IS POSITIVE. SHOULD SKIP
3152 033453 005 10 0 00 040325 ER AC,[ASCII /SKP/]
3153 033454 312 10 0 00 000012 CAME AC,AC2 ;C(E) SHOULD NOT HAVE CHANGED
3154 033455 001 12 0 00 000006 ERR AC2,RAN1
3155 033456 312 11 0 00 000012 CAME AC1,AC2 ;C(AC)SHOULD=C(E)
3156 033457 001 12 0 00 000006 ERR AC2,RAN1
3157 033460 400 10 0 00 000000 SETZ AC, ;CLEAR C(E)
3158 033461 331 11 0 00 000010 SKIPL AC1,AC ;C(E)=0...SHOULD NOT SKIP
3159 033462 335 11 0 00 000010 SKIPGE AC1,AC ;C(E)=0...SHOULD SKIP
3160 033463 005 10 0 00 040325 ER AC,[ASCII /SKP/]
3161 033464 312 10 0 00 040322 CAME AC,[0] ;C(E) SHOULD STILL=0
3162 033465 001 10 0 00 000012 ERR AC,AC2
3163 033466 312 11 0 00 040322 CAME AC1,[0] ;C(AC) SHOULD NOW=0
3164 033467 001 10 0 00 000012 ERR AC,AC2
3165 LOOP SKPGE2,SKPGE3^
3166 033470 367 07 0 00 033441 SOJG AC-1,SKPGE2 ;ITERATION COUNTER
3167 033471 200 10 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3168 033472 321 07 0 00 033445 JUMPL AC-1,SKPGE3 ;LOOP ON ERROR SWITCH ^
3169
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 61
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0092
3170 ;TEST SKIPG, SKIPLE. CHECK FOR SKIP/NO SKIP,
3171 ;C(E) NOT CHANGING AND C(AC)=C(E) AFTER SKIP,
3172 ;BY MAKING C(E) NEGATIVE OR 0.
3173
3174
3175 000011 AC=11
3176 033473 SKPLE1: SETUP 100,0^
3177 000012 AC1=<AC+1>&17
3178 000013 AC2=<AC+2>&17
3179 000014 AC3=<AC+3>&17
3180 000015 AC4=<AC+4>&17
3181 000016 AC5=<AC+5>&17
3182 000007 RAN1=<AC-2>&17
3183 033473 201 10 0 00 033473 MOVEI AC-1,.
3184 033474 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3185 033475 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3186 033476 202 10 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3187 033477 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3188 033500 240 10 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3189 033501 240 10 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3190 033502 SKPLE2: RANDOM^
3191 033502 200 11 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3192 033503 270 11 0 00 040321 ADD AC,[142536475076]
3193 033504 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3194 033505 447 11 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
3195 033506 313 11 0 00 040322 SKPLE3: CAMLE AC,[0] ;RAN NEG OR 0?
3196 033507 450 11 0 00 000000 SETCA AC, ;NO. MAKE IT NEG
3197 033510 200 07 0 00 000012 MOVE RAN1,AC1 ;SAVE AC1 IN CASE OF ERROR.
3198 033511 200 13 0 00 000011 MOVE AC2,AC ;SAVE FOR FUTURE COMPARE
3199 033512 337 12 0 00 000011 SKIPG AC1,AC ;C(E) NEG OR 0...SHOULD NOT SKIP
3200 033513 333 12 0 00 000011 SKIPLE AC1,AC ;C(E) NEG OR 0... SHOULD SKIP
3201 033514 005 11 0 00 040325 ER AC,[ASCII /SKP/]
3202 033515 312 11 0 00 000013 CAME AC,AC2 ;C(E) SHOULD NOT CHANGE
3203 033516 001 13 0 00 000007 ERR AC2,RAN1
3204 033517 312 12 0 00 000013 CAME AC1,AC2 ;C(AC) SHOULD=C(E)
3205 033520 001 13 0 00 000007 ERR AC2,RAN1
3206 033521 400 11 0 00 000000 SETZ AC, ;CLEAR C(E)
3207 033522 337 12 0 00 000011 SKIPG AC1,AC ;C(E)=0...SHOULD NOT SKIP
3208 033523 335 12 0 00 000011 SKIPGE AC1,AC ;C(E)=0.. SHOULD SKIP
3209 033524 005 11 0 00 040325 ER AC,[ASCII /SKP/]
3210 033525 312 11 0 00 040322 CAME AC,[0] ;C(E) SHOULD STILL=0
3211 033526 001 11 0 00 000013 ERR AC,AC2
3212 033527 312 12 0 00 040322 CAME AC1,[0] ;C(AC) SHOULD=0
3213 033530 001 11 0 00 000013 ERR AC,AC2
3214 LOOP SKPLE2,SKPLE3^
3215 033531 367 10 0 00 033502 SOJG AC-1,SKPLE2 ;ITERATION COUNTER
3216 033532 200 11 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3217 033533 321 10 0 00 033506 JUMPL AC-1,SKPLE3 ;LOOP ON ERROR SWITCH ^
3218
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 62
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0093
3219
3220
3221 ;TEST SKIPLE, SKIPGE. CHECK FOR SKIP/ NO SKIP,
3222 ;C(E) NOT CHANGING, AND COORECT STORING
3223 ;OF C(E) INTO AC FOR C(E) = POSITIVE RAN. NUM.
3224
3225
3226 000012 AC=12
3227 033534 SKPLEA: SETUP 100,0^
3228 000013 AC1=<AC+1>&17
3229 000014 AC2=<AC+2>&17
3230 000015 AC3=<AC+3>&17
3231 000016 AC4=<AC+4>&17
3232 000017 AC5=<AC+5>&17
3233 000010 RAN1=<AC-2>&17
3234 033534 201 11 0 00 033534 MOVEI AC-1,.
3235 033535 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3236 033536 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3237 033537 202 11 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3238 033540 201 11 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3239 033541 240 11 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3240 033542 240 11 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3241 033543 SKPLEB: RANDOM^
3242 033543 200 12 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3243 033544 270 12 0 00 040321 ADD AC,[142536475076]
3244 033545 241 12 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3245 033546 447 12 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
3246 033547 322 12 0 00 033543 JUMPE AC,SKPLEB ;REJECT IF RAN = 0.
3247 033550 477 13 0 00 000010 SKPLEC: SETOB AC1,RAN1 ;SET C(AC) TO ALL ONES.
3248 033551 404 12 0 00 040330 AND AC,[XWD 377777,-1];MAKE SURE C(E) IS POS.
3249 033552 200 14 0 00 000012 MOVE AC2,AC ;SAVE C(E) FOR FUTURE COMPARE.
3250 033553 333 13 0 00 000012 SKIPLE AC1,AC ;C(E) IS POS...NO SKIP.
3251 033554 335 13 0 00 000012 SKIPGE AC1,AC ;C(E) IS POS...SKIP.
3252 033555 005 12 0 00 040325 ER AC,[ASCII/SKP/]
3253 033556 312 13 0 00 000012 CAME AC1,AC ;C(AC) SHOULD = C(E).
3254 033557 001 14 0 00 000010 ERR AC2,RAN1
3255 033560 312 12 0 00 000014 CAME AC,AC2 ;C(E) SHOULD = ORIG C(E).
3256 033561 001 14 0 00 000010 ERR AC2,RAN1
3257 LOOP SKPLEB,SKPLEC^
3258 033562 367 11 0 00 033543 SOJG AC-1,SKPLEB ;ITERATION COUNTER
3259 033563 200 12 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3260 033564 321 11 0 00 033550 JUMPL AC-1,SKPLEC ;LOOP ON ERROR SWITCH ^
3261
3262
3263
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 63
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0094
3264
3265
3266 ;TEST JUMP, JUMPA. CHECK FOR JUMP/ NO JUMP AND
3267 ;NO MODIFICATION OF C(AC) FOR C(AC)=RANDOM NUMBER
3268
3269
3270 000012 AC=12
3271 033565 JMP1: SETUP 100,0^
3272 000013 AC1=<AC+1>&17
3273 000014 AC2=<AC+2>&17
3274 000015 AC3=<AC+3>&17
3275 000016 AC4=<AC+4>&17
3276 000017 AC5=<AC+5>&17
3277 000010 RAN1=<AC-2>&17
3278 033565 201 11 0 00 033565 MOVEI AC-1,.
3279 033566 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3280 033567 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3281 033570 202 11 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3282 033571 201 11 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3283 033572 240 11 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3284 033573 240 11 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3285 033574 JMP2: RANDOM^
3286 033574 200 12 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3287 033575 270 12 0 00 040321 ADD AC,[142536475076]
3288 033576 241 12 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3289 033577 447 12 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
3290 033600 200 10 0 00 000012 JMP3: MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
3291 033601 320 12 0 00 033603 JUMP AC,.+2 ;SHOULD NOT JUMP.
3292 033602 324 12 0 00 033604 JUMPA AC,.+2 ;SHOULD JUMP.
3293 033603 005 12 0 00 040331 ER AC,[ASCII /JMP/]
3294 033604 312 12 0 00 040444 CAME AC,RAN ;C(AC) SHOULD STILL=RAN.
3295 033605 003 10 0 00 033604 ERRI RAN1,.-1
3296 LOOP JMP2,JMP3^
3297 033606 367 11 0 00 033574 SOJG AC-1,JMP2 ;ITERATION COUNTER
3298 033607 200 12 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3299 033610 321 11 0 00 033600 JUMPL AC-1,JMP3 ;LOOP ON ERROR SWITCH ^
3300
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 64
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0095
3301
3302
3303 ;TEST JUMPE, JUMPN. CHECK FOR JUMP/ NO JUMP AND
3304 ;NO MODIFICATION OF C(AC) WITH C(AC) = TO A FLOATING ONE.
3305
3306
3307 000013 AC=13
3308 033611 JMPE1: SETUP 100,0^
3309 000014 AC1=<AC+1>&17
3310 000015 AC2=<AC+2>&17
3311 000016 AC3=<AC+3>&17
3312 000017 AC4=<AC+4>&17
3313 000000 AC5=<AC+5>&17
3314 000011 RAN1=<AC-2>&17
3315 033611 201 12 0 00 033611 MOVEI AC-1,.
3316 033612 202 12 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3317 033613 201 12 0 00 000012 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3318 033614 202 12 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3319 033615 201 12 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3320 033616 240 12 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3321 033617 240 12 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3322 033620 201 13 0 00 000001 MOVEI AC,1 ;SETUP AC FOR FLOATING ONE.
3323 033621 241 13 0 00 777777 JMPE2: ROT AC,-1 ;ROT TO TEST NEXT BIT
3324 033622 200 11 0 00 000013 MOVE RAN1,AC ;SAVE FOR FUTURE COMPARE.
3325 033623 200 13 0 00 000011 JMPE3: MOVE AC,RAN1 ;RESTORE C(AC) IN CASE OF ERROR.
3326 033624 322 13 0 00 033626 JUMPE AC,.+2 ;SHOULD NOT JUMP
3327 033625 326 13 0 00 033627 JUMPN AC,.+2 ;SHOULD JUMP
3328 033626 005 13 0 00 040331 ER AC,[ASCII /JMP/]
3329 033627 312 13 0 00 000011 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
3330 033630 003 11 0 00 033627 ERRI RAN1,.-1
3331 033631 367 12 0 00 033621 SOJG AC-1,JMPE2 ;ITERATION COUNTER.
3332 033632 321 12 0 00 033623 JUMPL AC-1,JMPE3 ;LOOP ON ERROR SWITCH.
3333
3334
3335
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 65
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0096
3336
3337
3338 ;TEST JUMPN, JUMPE. CHECK FOR JUMP/ NO JUMP AND
3339 ;NO MODIFICATION OF C(AC) WITH C(AC) = 0.
3340
3341
3342 000014 AC=14
3343 033633 JMPN1: SETUP 100,0^
3344 000015 AC1=<AC+1>&17
3345 000016 AC2=<AC+2>&17
3346 000017 AC3=<AC+3>&17
3347 000000 AC4=<AC+4>&17
3348 000001 AC5=<AC+5>&17
3349 000012 RAN1=<AC-2>&17
3350 033633 201 13 0 00 033633 MOVEI AC-1,.
3351 033634 202 13 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3352 033635 201 13 0 00 000013 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3353 033636 202 13 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3354 033637 201 13 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3355 033640 240 13 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3356 033641 240 13 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3357 033642 403 14 0 00 000012 JMPN2: SETZB AC,RAN1 ;CLEAR C(AC).
3358 033643 326 14 0 00 033645 JUMPN AC,.+2 ;C(AC) = 0...NO JUMP.
3359 033644 322 14 0 00 033646 JUMPE AC,.+2 ;C(AC) = 0...JUMP.
3360 033645 005 14 0 00 040331 ER AC,[ASCII /JMP/]
3361 033646 312 14 0 00 000012 CAME AC,RAN1 ;C(AC) SHOULD STILL = 0.
3362 033647 367 13 0 00 033642 SOJG AC-1,JMPN2 ;ITERATION COUNTER.
3363 033650 321 13 0 00 033642 JUMPL AC-1,JMPN2 ;LOOP ON ERROR SWITCH.
3364
3365
3366
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 66
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0097
3367
3368
3369 ;TEST JUMPL, JUMPG. CHECK FOR JUMP/ NO JUMP
3370 ;AND NO MODIFICATION OF C(AC) WITH C(AC)=TO A FLOATING ONE
3371 ;WITH SIGN BIT SET.
3372
3373
3374 000014 AC=14
3375 033651 JMPL1: SETUP 100,0^
3376 000015 AC1=<AC+1>&17
3377 000016 AC2=<AC+2>&17
3378 000017 AC3=<AC+3>&17
3379 000000 AC4=<AC+4>&17
3380 000001 AC5=<AC+5>&17
3381 000012 RAN1=<AC-2>&17
3382 033651 201 13 0 00 033651 MOVEI AC-1,.
3383 033652 202 13 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3384 033653 201 13 0 00 000013 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3385 033654 202 13 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3386 033655 201 13 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3387 033656 240 13 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3388 033657 240 13 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3389 033660 200 14 0 00 040332 MOVE AC,[XWD 400000,1];SETUP AC FOR FLOATING ONE BIT
3390 033661 430 14 0 00 040327 JMPL2: XOR AC,[XWD 400000,0];CLEAR SIGN BIT FOR ROT.
3391 033662 241 14 0 00 000001 JMPL3: ROT AC,1 ;ROT TO TEST NEXT BIT.
3392 033663 434 14 0 00 040327 IOR AC,[XWD 400000,0];SET SIGN BIT
3393 033664 202 14 0 00 000012 MOVEM AC,RAN1 ;SAVE AC FOR FUTURE COMPARE.
3394 033665 200 14 0 00 000012 JMPL4: MOVE AC,RAN1 ;RESTORE C(AC) IN CASE OF ERROR.
3395 033666 327 14 0 00 033670 JUMPG AC,.+2 ;SHOULD NOT JUMP.
3396 033667 321 14 0 00 033671 JUMPL AC,.+2 ;SHOULD JUMP.
3397 033670 005 14 0 00 040331 ER AC,[ASCII /JMP/]
3398 033671 312 14 0 00 000012 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
3399 033672 003 12 0 00 033671 ERRI RAN1,.-1
3400 033673 316 12 0 00 040327 CAMN RAN1,[XWD 400000,0];IS FLOATING ONE THE SIGN BIT?
3401 033674 254 00 0 00 033662 JRST JMPL3 ;YES. ROT AND SET SIGN BIT.
3402 033675 367 13 0 00 033661 SOJG AC-1,JMPL2 ;ITERATION COUNTER.
3403 033676 321 13 0 00 033665 JUMPL AC-1,JMPL4 ;LOOP ON ERROR SWITCH.
3404
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 67
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0098
3405
3406
3407 ;TEST JUMPG, JUMPL. CHECK FOR JUMP/ NO JUMP
3408 ;AND NO MODIFICATION OF C(AC) WITH A FLOATING ONE
3409 ;AND SIGN BIT NEVER SET.
3410
3411
3412 000015 AC=15
3413 033677 JMPG1: SETUP 100,0^
3414 000016 AC1=<AC+1>&17
3415 000017 AC2=<AC+2>&17
3416 000000 AC3=<AC+3>&17
3417 000001 AC4=<AC+4>&17
3418 000002 AC5=<AC+5>&17
3419 000013 RAN1=<AC-2>&17
3420 033677 201 14 0 00 033677 MOVEI AC-1,.
3421 033700 202 14 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3422 033701 201 14 0 00 000014 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3423 033702 202 14 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3424 033703 201 14 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3425 033704 240 14 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3426 033705 240 14 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3427 033706 201 15 0 00 000001 MOVEI AC,1 ;SETUP AC FOR FLOATING ONE BIT
3428 033707 241 15 0 00 000001 JMPG2: ROT AC,1 ;ROT TO TEST NEXT BIT.
3429 033710 316 15 0 00 040327 CAMN AC,[XWD 400000,0];IS BIT IN SIGN POSITION?
3430 033711 241 15 0 00 000001 ROT AC,1 ;YES, ROT AGAIN
3431 033712 200 13 0 00 000015 MOVE RAN1,AC ;SAVE FOR FUTURE COMPARE.
3432 033713 200 15 0 00 000013 JMPG3: MOVE AC,RAN1 ;RESTORE C(AC) IN CASE OF ERROR.
3433 033714 321 15 0 00 033716 JUMPL AC,.+2 ;SHOULD NOT JUMP.
3434 033715 327 15 0 00 033717 JUMPG AC,.+2 ;SHOULD JUMP.
3435 033716 005 15 0 00 040331 ER AC,[ASCII /JMP/]
3436 033717 312 15 0 00 000013 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
3437 033720 003 13 0 00 033717 ERRI RAN1,.-1
3438 033721 367 14 0 00 033707 SOJG AC-1,JMPG2 ;ITERATION COUNTER.
3439 033722 321 14 0 00 033713 JUMPL AC-1,JMPG3 ;LOOP ON ERROR SWITCH.
3440
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 68
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0099
3441
3442
3443 ;TEST JUMPGE, JUMPL. CHECK FOR JUMP/ NO JUMP
3444 ;AND NO MODIFICATION OF C(AC) WITH C(AC)=TO A FLOATING
3445 ;ONE WITH SIGN BIT NEVER SET.
3446
3447
3448 000006 AC=6
3449 033723 JMPGE1: SETUP 100,0^
3450 000007 AC1=<AC+1>&17
3451 000010 AC2=<AC+2>&17
3452 000011 AC3=<AC+3>&17
3453 000012 AC4=<AC+4>&17
3454 000013 AC5=<AC+5>&17
3455 000004 RAN1=<AC-2>&17
3456 033723 201 05 0 00 033723 MOVEI AC-1,.
3457 033724 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3458 033725 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3459 033726 202 05 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3460 033727 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3461 033730 240 05 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3462 033731 240 05 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3463 033732 201 06 0 00 000001 MOVEI AC,1 ;SETUP AC FOR FLOATING ONE BIT
3464 033733 241 06 0 00 000001 JMPGE2: ROT AC,1 ;ROT TO TEST NEXT BIT
3465 033734 316 06 0 00 040327 CAMN AC,[XWD 400000,0];SIGN BIT SET?
3466 033735 241 06 0 00 000001 ROT AC,1 ;YES. ROT AGAIN
3467 033736 202 06 0 00 000004 MOVEM AC,RAN1 ;SAVE AC FOR FUTURE COMPARE.
3468 033737 321 06 0 00 033741 JUMPL AC,.+2 ;C(AC) IS POSITIVE AND SHOULD NOT JUMP.
3469 033740 325 06 0 00 033742 JMPGE3: JUMPGE AC,.+2 ;SHOULD JUMP.
3470 033741 005 06 0 00 040331 ER AC,[ASCII /JMP/]
3471 033742 312 06 0 00 000004 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
3472 033743 003 04 0 00 033742 ERRI RAN1,.-1
3473 033744 403 06 0 00 000007 SETZB AC,AC1 ;CLEAR C(AC).
3474 033745 321 06 0 00 033747 JUMPL AC,.+2 ;C(E) IS POSITIVE...SHOULD NOT JUMP
3475 033746 325 06 0 00 033750 JUMPGE AC,.+2 ;SHOULD JUMP
3476 033747 005 06 0 00 040331 ER AC,[ASCII /JMP/]
3477 033750 312 06 0 00 000007 CAME AC,AC1 ;C(AC) SHOULD STILL = 0.
3478 033751 003 07 0 00 033750 ERRI AC1,.-1
3479 033752 367 05 0 00 033733 SOJG AC-1,JMPGE2 ;ITERATION COUNTER.
3480 033753 200 06 0 00 000004 MOVE AC,RAN1 ;RESTORE C(AC).
3481 033754 321 05 0 00 033740 JUMPL AC-1,JMPGE3 ;LOOP ON ERROR SWITCH.
3482
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 69
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0100
3483
3484
3485 ;TEST JUMPG, JUMPLE. CHECK FOR JUMP/ NO JUMP
3486 ;AND NO MODIFICATION OF C(AC) WITH C(AC)=FLOATING ONE
3487 ;WITH SIGN BIT SET
3488
3489
3490 000007 AC=7
3491 033755 JMPLE1: SETUP 100,0^
3492 000010 AC1=<AC+1>&17
3493 000011 AC2=<AC+2>&17
3494 000012 AC3=<AC+3>&17
3495 000013 AC4=<AC+4>&17
3496 000014 AC5=<AC+5>&17
3497 000005 RAN1=<AC-2>&17
3498 033755 201 06 0 00 033755 MOVEI AC-1,.
3499 033756 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3500 033757 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3501 033760 202 06 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3502 033761 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3503 033762 240 06 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3504 033763 240 06 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3505 033764 200 07 0 00 040332 MOVE AC,[XWD 400000,1];SETUP AC FOR FLOATING ONE AND SIGN BITS SET.
3506 033765 430 07 0 00 040327 JMPLE2: XOR AC,[XWD 400000,0];CLEAR SIGN BIT.
3507 033766 241 07 0 00 000001 ROT AC,1 ;ROT TO TEST NEXT BIT.
3508 033767 434 07 0 00 040327 IOR AC,[XWD 400000,0];SET SIGN BIT
3509 033770 202 07 0 00 000005 MOVEM AC,RAN1 ;SAVE C(AC) FOR FUTURE COMPARE.
3510 033771 327 07 0 00 033773 JMPLE3: JUMPG AC,.+2 ;C(AC) IS NEG...SHOULD NOT JUMP.
3511 033772 323 07 0 00 033774 JUMPLE AC,.+2 ;SHOULD JUMP.
3512 033773 005 07 0 00 040331 ER AC,[ASCII /JMP/]
3513 033774 312 07 0 00 000005 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
3514 033775 003 05 0 00 033774 ERRI RAN1,.-1
3515 033776 403 07 0 00 000010 SETZB AC,AC1 ;CLEAR C(AC).
3516 033777 327 07 0 00 034001 JUMPG AC,.+2 ;C(AC) =0. SHOULD NOT JUMP
3517 034000 323 07 0 00 034002 JUMPLE AC,.+2 ;SHOULD JUMP
3518 034001 005 07 0 00 040331 ER AC,[ASCII /JMP/]
3519 034002 312 07 0 00 000010 CAME AC,AC1 ;C(AC) SHOULD = ORIG C(AC).
3520 034003 003 10 0 00 034002 ERRI AC1,.-1
3521 034004 316 05 0 00 040327 CAMN RAN1,[XWD 400000,0];JUST THE SIGN BIT SET?
3522 034005 200 07 0 00 040332 MOVE AC,[XWD 400000,1];YES. REINITIALIZE NUMBER.
3523 034006 367 06 0 00 033765 SOJG AC-1,JMPLE2 ;ITERATION COUNTER.
3524 034007 200 07 0 00 000005 MOVE AC,RAN1 ;RESTORE C(AC).
3525 034010 321 06 0 00 033771 JUMPL AC-1,JMPLE3 ;LOOP ON ERROR SWITCH.
3526
3527
3528
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 70
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0101
3529
3530
3531 ;TEST JUMPLE, JUMPGE. CHECK FOR JUMP/ NO JUMP
3532 ;AND NO MODIFICATION OF C(AC) FOR C(AC) = POS. RAN. NUM.
3533
3534
3535 000010 AC=10
3536 034011 JMPLEA: SETUP 100,0^
3537 000011 AC1=<AC+1>&17
3538 000012 AC2=<AC+2>&17
3539 000013 AC3=<AC+3>&17
3540 000014 AC4=<AC+4>&17
3541 000015 AC5=<AC+5>&17
3542 000006 RAN1=<AC-2>&17
3543 034011 201 07 0 00 034011 MOVEI AC-1,.
3544 034012 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3545 034013 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3546 034014 202 07 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3547 034015 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3548 034016 240 07 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3549 034017 240 07 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3550 034020 JMPLEB: RANDOM^
3551 034020 200 10 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3552 034021 270 10 0 00 040321 ADD AC,[142536475076]
3553 034022 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3554 034023 447 10 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
3555 034024 322 10 0 00 034020 JUMPE AC,JMPLEB ;REJECT IF RAN = 0.
3556 034025 404 10 0 00 040330 JMPLEC: AND AC,[XWD 377777,-1];MAKE SURE C(AC) IS POS.
3557 034026 200 06 0 00 000010 MOVE RAN1,AC ;SAVE C(AC) FOR FUTURE COMPARE.
3558 034027 323 10 0 00 034031 JUMPLE AC,.+2 ;C(AC) IS POS...NO JUMP.
3559 034030 325 10 0 00 034032 JUMPGE AC,.+2 ;C(AC) IS POS...JUMP.
3560 034031 005 10 0 00 040331 ER AC,[ASCII /JMP/]
3561 034032 312 10 0 00 000006 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
3562 034033 003 06 0 00 034032 ERRI RAN1,.-1
3563 LOOP JMPLEB,JMPLEC^
3564 034034 367 07 0 00 034020 SOJG AC-1,JMPLEB ;ITERATION COUNTER
3565 034035 200 10 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3566 034036 321 07 0 00 034025 JUMPL AC-1,JMPLEC ;LOOP ON ERROR SWITCH ^
3567
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 71
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0102
3568
3569
3570 ;TEST AOS,AOSA. CHECK FOR SKIP/NO SKIP,
3571 ;CORRECT DATA IN C(E), AND PROPER LOADING OF C(E) INTO
3572 ;C(AC) FOR C(E)=TO RAN
3573 ;ALSO CHECK PROPER SETTING OF CRY0, CRY1, AND OVERFLOW FLAGS.
3574
3575
3576 000011 AC=11
3577 034037 AOS1: SETUP 100,0^
3578 000012 AC1=<AC+1>&17
3579 000013 AC2=<AC+2>&17
3580 000014 AC3=<AC+3>&17
3581 000015 AC4=<AC+4>&17
3582 000016 AC5=<AC+5>&17
3583 000007 RAN1=<AC-2>&17
3584 034037 201 10 0 00 034037 MOVEI AC-1,.
3585 034040 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3586 034041 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3587 034042 202 10 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3588 034043 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3589 034044 240 10 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3590 034045 240 10 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3591 034046 AOS2: RANDOM^
3592 034046 200 11 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3593 034047 270 11 0 00 040321 ADD AC,[142536475076]
3594 034050 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3595 034051 447 11 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
3596 034052 200 14 0 00 040444 AOS3: MOVE AC3,RAN ;SAVE C(E) IN CASE OF ERROR.
3597 034053 255 17 0 00 034054 JFCL 17,.+1 ;CLEAR THE FLAGS.
3598 034054 200 07 0 00 000012 MOVE RAN1,AC1 ;SAVE C(AC) FOR FUTURE COMPARE.
3599 034055 200 13 0 00 000011 MOVE AC2,AC ;SIMULATE
3600 034056 270 13 0 00 040333 ADD AC2,[2] ;2 AOS INST.
3601 034057 350 12 0 00 000011 AOS AC1,AC ;SHOULD NOT SKIP
3602 034060 354 12 0 00 000011 AOSA AC1,AC ;SHOULD SKIP
3603 034061 005 11 0 00 040334 ER AC,[ASCII /AOS/]
3604 034062 312 11 0 00 000013 CAME AC,AC2 ;C(E) SHOULD=RAN+2.
3605 034063 001 14 0 00 000007 ERR AC3,RAN1
3606 034064 312 12 0 00 000013 CAME AC1,AC2 ;C(AC) SHOULD=C(E)
3607 034065 001 14 0 00 000007 ERR AC3,RAN1
3608 034066 255 04 0 00 034073 JFCL 4,CRY0B
3609 034067 255 02 0 00 034102 JFCL 2,CRY1B
3610 034070 255 10 0 00 034072 JFCL 10,.+2
3611 034071 254 00 0 00 034106 JRST AOS4
3612 034072 005 12 0 00 040335 ER AC1,[ASCII /OV/];OV SET WITHOUT CRY0 OR CRY1 BEING SET.
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 72
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0103
3613 034073 312 14 0 00 040324 CRY0B: CAME AC3,[-1]
3614 034074 005 12 0 00 040336 ER AC1,[ASCII /CRY0/];CRY0 SHOULD NOT BE SET IF RAN DOESN'T = A -1.
3615 034075 255 02 0 00 034077 JFCL 2,.+2 ;IF RAN = A -1, BOTH CRY0 AND
3616 034076 005 12 0 00 040337 ER AC1,[ASCII /CRY1/];CRY1 SHOULD BE SET.
3617 034077 255 10 0 00 034101 JFCL 10,.+2
3618 034100 254 00 0 00 034106 JRST AOS4
3619 034101 005 12 0 00 040335 ER AC1,[ASCII /OV/];IF BOTH CRY0 AND CRY1 ARE SET, OV SHOULD NOT.
3620 034102 312 14 0 00 040330 CRY1B: CAME AC3,[XWD 377777,-1]
3621 034103 005 12 0 00 040337 ER AC1,[ASCII /CRY1/]
3622 034104 255 10 0 00 034106 JFCL 10,.+2
3623 034105 005 12 0 00 040335 ER AC1,[ASCII /OV/];IF CRY1 ONLY IS SET, OV SHOULD BE SET.
3624 034106 AOS4: LOOP AOS2,AOS3^
3625 034106 367 10 0 00 034046 SOJG AC-1,AOS2 ;ITERATION COUNTER
3626 034107 200 11 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3627 034110 321 10 0 00 034052 JUMPL AC-1,AOS3 ;LOOP ON ERROR SWITCH ^
3628
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 73
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0104
3629
3630
3631 ;TEST AOSE, AOSN. CHECK FOR SKIP/NO SKIP,
3632 ;CORRECT DATA IN C(E), AND PROPER LOADING OF
3633 ;AC WITH C(E). TESTED WITH C(E)=1,3,7,17,37,+ETC.
3634
3635
3636 000002 AC=2
3637 034111 AOSE1: SETUP 100,0^
3638 000003 AC1=<AC+1>&17
3639 000004 AC2=<AC+2>&17
3640 000005 AC3=<AC+3>&17
3641 000006 AC4=<AC+4>&17
3642 000007 AC5=<AC+5>&17
3643 000000 RAN1=<AC-2>&17
3644 034111 201 01 0 00 034111 MOVEI AC-1,.
3645 034112 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3646 034113 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3647 034114 202 01 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3648 034115 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3649 034116 240 01 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3650 034117 240 01 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3651 034120 201 02 0 00 000001 MOVEI AC,1 ;SETUP C("E") TO =1.
3652 034121 200 05 0 00 000002 AOSE2: MOVE AC3,AC ;SAVE C(E) IN CASE OF ERROR.
3653 034122 200 02 0 00 000005 AOSE3: MOVE AC,AC3 ;RESTORE AC IN CASE OF ERROR.
3654 034123 200 04 0 00 000002 MOVE AC2,AC ;SIMULATE
3655 034124 270 04 0 00 040333 ADD AC2,[2] ;TWO AOS INST
3656 034125 200 00 0 00 000003 MOVE RAN1,AC1 ;SAVE C(AC).
3657 034126 352 03 0 00 000002 AOSE AC1,AC ;C(E)=A POSITIVE NON ZERO NUMBER..DON'T SKIP
3658 034127 356 03 0 00 000002 AOSN AC1,AC ;C(E)=A POSITIVE NON ZERO NUMBER ..SKIP
3659 034130 005 02 0 00 040334 ER AC,[ASCII /AOS/]
3660 034131 312 02 0 00 000004 CAME AC,AC2 ;C(E) SHOULD=SIM ANS
3661 034132 001 05 0 00 000000 ERR AC3,RAN1
3662 034133 312 03 0 00 000004 CAME AC1,AC2 ;C(AC) SHOULD=C(E)
3663 034134 001 05 0 00 000000 ERR AC3,RAN1
3664 034135 200 02 0 00 040444 MOVE AC,RAN ;RESTOR C(E)
3665 034136 241 02 0 00 000001 ROT AC,1 ;ROT TO TEST NEXT BIT.
3666 034137 434 02 0 00 040340 IOR AC,[1] ;SET BIT 35
3667 034140 367 01 0 00 034121 SOJG AC-1,AOSE2 ;ITERATION COUNTER.
3668 034141 321 01 0 00 034122 JUMPL AC-1,AOSE3 ;LOOP ON ERROR SWITCH.
3669
3670
3671
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 74
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0105
3672
3673
3674 ;TEST AOSG, AOSE. CHECK FOR SKIP/ NO SKIP,
3675 ;CORRECT DATA IN C(E), AND PROPER LOADING
3676 ;OR AC WITCH C(E). C(E) = -2 AND C(AC) = RAN. NUM.
3677
3678
3679 000011 AC=11
3680 034142 AOSGA: SETUP 100,0^
3681 000012 AC1=<AC+1>&17
3682 000013 AC2=<AC+2>&17
3683 000014 AC3=<AC+3>&17
3684 000015 AC4=<AC+4>&17
3685 000016 AC5=<AC+5>&17
3686 000007 RAN1=<AC-2>&17
3687 034142 201 10 0 00 034142 MOVEI AC-1,.
3688 034143 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3689 034144 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3690 034145 202 10 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3691 034146 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3692 034147 240 10 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3693 034150 240 10 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3694 034151 AOSGB: RANDOM^
3695 034151 200 11 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3696 034152 270 11 0 00 040321 ADD AC,[142536475076]
3697 034153 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3698 034154 447 11 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
3699 034155 200 12 0 00 040341 AOSGC: MOVE AC1,[XWD -1,-2] ;MAKE C(E) = -2.
3700 034156 200 07 0 00 000012 MOVE RAN1,AC1 ;SAVE C(E) IN CASE OF ERR.
3701 034157 357 11 0 00 000012 AOSG AC,AC1 ;C(E) + 1 = -1...NO SKIP.
3702 034160 352 11 0 00 000012 AOSE AC,AC1 ;C(E) + 1 = 0...SKIP.
3703 034161 005 12 0 00 040334 ER AC1,[ASCII /AOS/]
3704 034162 312 12 0 00 000011 CAME AC1,AC ;C(AC) SHOULD = C(E)
3705 034163 001 07 0 00 040444 ERR RAN1,RAN
3706 034164 312 12 0 00 040322 CAME AC1,[0] ;C(E) SHOULD = 0.
3707 034165 001 07 0 00 040444 ERR RAN1,RAN
3708 LOOP AOSGB,AOSGC^
3709 034166 367 10 0 00 034151 SOJG AC-1,AOSGB ;ITERATION COUNTER
3710 034167 200 11 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3711 034170 321 10 0 00 034155 JUMPL AC-1,AOSGC ;LOOP ON ERROR SWITCH ^
3712
3713
3714
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 75
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0106
3715
3716
3717 ;TEST AOSL, AOSG. CHECK FOR SKIP/NO SKIP,
3718 ;CORRECT DATA IN C(E) AND PROPER STORING
3719 ;OF C(E) INTO AC FOR C(E)=+RAN.
3720
3721
3722 000010 AC=10
3723 034171 AOSL1: SETUP 100,0^
3724 000011 AC1=<AC+1>&17
3725 000012 AC2=<AC+2>&17
3726 000013 AC3=<AC+3>&17
3727 000014 AC4=<AC+4>&17
3728 000015 AC5=<AC+5>&17
3729 000006 RAN1=<AC-2>&17
3730 034171 201 07 0 00 034171 MOVEI AC-1,.
3731 034172 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3732 034173 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3733 034174 202 07 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3734 034175 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3735 034176 240 07 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3736 034177 240 07 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3737 034200 AOSL2: RANDOM^
3738 034200 200 10 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3739 034201 270 10 0 00 040321 ADD AC,[142536475076]
3740 034202 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3741 034203 447 10 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
3742 034204 630 10 0 00 040342 AOSL3: TDZ AC,[XWD 600000,0];MAKE C(E) SO TWO AOS'S WON'T CHANGE SIGN.
3743 034205 200 13 0 00 000010 MOVE AC3,AC ;SAVE C(E) IN CASE OF ERROR
3744 034206 200 12 0 00 000010 MOVE AC2,AC ;SIMULATE
3745 034207 270 12 0 00 040333 ADD AC2,[2] ;2 AOS'S
3746 034210 200 06 0 00 000011 MOVE RAN1,AC1 ;SAVE C(AC) IN CASE OF ERROR.
3747 034211 351 11 0 00 000010 AOSL AC1,AC ;C(E) POSITIVE...NO SKIP
3748 034212 357 11 0 00 000010 AOSG AC1,AC ;C(E) POSITIVE...SKIP
3749 034213 005 11 0 00 040334 ER AC1,[ASCII /AOS/]
3750 034214 312 11 0 00 000010 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER AOS.
3751 034215 001 13 0 00 000006 ERR AC3,RAN1
3752 034216 312 12 0 00 000010 CAME AC2,AC ;C(E) SHOULD=SIM ANS
3753 034217 001 13 0 00 000006 ERR AC3,RAN1
3754 LOOP AOSL2,AOSL3^
3755 034220 367 07 0 00 034200 SOJG AC-1,AOSL2 ;ITERATION COUNTER
3756 034221 200 10 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3757 034222 321 07 0 00 034204 JUMPL AC-1,AOSL3 ;LOOP ON ERROR SWITCH ^
3758
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 76
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0107
3759
3760
3761 ;TEST AOSG, AOSL. CHECK FOR SKIP/NO SKIP,
3762 ;CORRECT DATA IN C(E) AND PROPER STORING
3763 ;OF C(E) INTO AC FOR C(E) = -RAN NUM WITH END 2 BITS CLEARED
3764
3765
3766 000002 AC=2
3767 034223 AOSG1: SETUP 100,0^
3768 000003 AC1=<AC+1>&17
3769 000004 AC2=<AC+2>&17
3770 000005 AC3=<AC+3>&17
3771 000006 AC4=<AC+4>&17
3772 000007 AC5=<AC+5>&17
3773 000000 RAN1=<AC-2>&17
3774 034223 201 01 0 00 034223 MOVEI AC-1,.
3775 034224 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3776 034225 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3777 034226 202 01 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3778 034227 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3779 034230 240 01 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3780 034231 240 01 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3781 034232 AOSG2: RANDOM^
3782 034232 200 02 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3783 034233 270 02 0 00 040321 ADD AC,[142536475076]
3784 034234 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3785 034235 447 02 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
3786 034236 670 02 0 00 040327 AOSG3: TDO AC,[XWD 400000,0];MAKE C(E) BEG.
3787 034237 630 02 0 00 040343 TDZ AC,[3] ;CLEAR 2 END BITS SO AOSL WILL ALWAYS SKIP.
3788 034240 200 05 0 00 000002 MOVE AC3,AC ;SAVE C(E) IN CASE OF ERROR
3789 034241 200 04 0 00 000002 MOVE AC2,AC ;SIMULATE
3790 034242 270 04 0 00 040333 ADD AC2,[2] ;2 AOS'S
3791 034243 200 00 0 00 000003 MOVE RAN1,AC1 ;SAVE C(AC) IN CASE OF ERROR.
3792 034244 357 03 0 00 000002 AOSG AC1,AC ;C(E) IS NEG...SHOULD NOT SKIP
3793 034245 351 03 0 00 000002 AOSL AC1,AC ;C(E) IS NEG...SHOULD SKIP
3794 034246 005 03 0 00 040334 ER AC1,[ASCII /AOS/]
3795 034247 312 03 0 00 000002 CAME AC1,AC ;C(AC) SHOULD = C(E) AFTER AOS
3796 034250 001 05 0 00 000000 ERR AC3,RAN1
3797 034251 312 04 0 00 000002 CAME AC2,AC ;C(E) SHOULD = SIM ANS.
3798 034252 001 05 0 00 000000 ERR AC3,RAN1
3799 LOOP AOSG2,AOSG3^
3800 034253 367 01 0 00 034232 SOJG AC-1,AOSG2 ;ITERATION COUNTER
3801 034254 200 02 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3802 034255 321 01 0 00 034236 JUMPL AC-1,AOSG3 ;LOOP ON ERROR SWITCH ^
3803
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 77
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0108
3804
3805
3806 ;TEST AOSLE, AOSG. CHECK FOR SKIP/NO SKIP,
3807 ;PROPER STORING OF C(E) INTO AC, AND CORRECT
3808 ;DATA IN E FOR C(E) = FLOATING ONE
3809
3810
3811 000003 AC=3
3812 034256 AOSLE1: SETUP 100,0^
3813 000004 AC1=<AC+1>&17
3814 000005 AC2=<AC+2>&17
3815 000006 AC3=<AC+3>&17
3816 000007 AC4=<AC+4>&17
3817 000010 AC5=<AC+5>&17
3818 000001 RAN1=<AC-2>&17
3819 034256 201 02 0 00 034256 MOVEI AC-1,.
3820 034257 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3821 034260 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3822 034261 202 02 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3823 034262 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3824 034263 240 02 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3825 034264 240 02 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3826 034265 201 03 0 00 000001 AOSLE2: MOVEI AC,1 ;SETUP C(E)=FLOATING ONE
3827 034266 316 03 0 00 040344 AOSLE3: CAMN AC,[XWD 200000,0];C(E) = BIT 1 SET?
3828 034267 201 03 0 00 000001 MOVEI AC,1 ;YES. REINITIALIZE C(E).
3829 034270 241 03 0 00 000001 ROT AC,1 ;ROT TO TEST NEXT BIT.
3830 034271 200 01 0 00 000003 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR
3831 034272 200 06 0 00 000004 AOSLE4: MOVE AC3,AC1 ;SAVE C(AC) IN CASE OF ERROR.
3832 034273 200 05 0 00 000003 MOVE AC2,AC ;SIMULATE
3833 034274 270 05 0 00 040333 ADD AC2,[2] ;2 AOS'S
3834 034275 353 04 0 00 000003 AOSLE AC1,AC ;C(E) IS POSITIVE...NO SKIP
3835 034276 357 04 0 00 000003 AOSG AC1,AC ;C(E) IS POSITIVE...SKIP
3836 034277 005 04 0 00 040334 ER AC1,[ASCII /AOS/]
3837 034300 312 04 0 00 000003 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER AOS
3838 034301 001 01 0 00 000006 ERR RAN1,AC3
3839 034302 312 03 0 00 000005 CAME AC,AC2 ;C(E) SHOULD=SIM ANS
3840 034303 001 01 0 00 000006 ERR RAN1,AC3
3841 034304 200 03 0 00 000001 MOVE AC,RAN1 ;RESTORE FLOATING ONE.
3842 034305 367 02 0 00 034266 SOJG AC-1,AOSLE3 ;ITERATION COUNTER.
3843 034306 321 02 0 00 034272 JUMPL AC-1,AOSLE4 ;LOOP ON ERROR SWITCH.
3844
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 78
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0109
3845
3846
3847 ;TEST AOSG, AOSGE. CHECK FOR SKIP/NO SKIP,
3848 ;CORRECT LOADING OF C(E) INTO AC, AND C(E)=
3849 ;CORRECT DATA.
3850 ;RAN TO RAN1
3851
3852
3853 000004 AC=4
3854 034307 AOSGE1: SETUP 100,0^
3855 000005 AC1=<AC+1>&17
3856 000006 AC2=<AC+2>&17
3857 000007 AC3=<AC+3>&17
3858 000010 AC4=<AC+4>&17
3859 000011 AC5=<AC+5>&17
3860 000002 RAN1=<AC-2>&17
3861 034307 201 03 0 00 034307 MOVEI AC-1,.
3862 034310 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3863 034311 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3864 034312 202 03 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3865 034313 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3866 034314 240 03 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3867 034315 240 03 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3868 034316 200 04 0 00 040341 AOSGE2: MOVE AC,[XWD -1,-2] ;MAKE C(E) = -2.
3869 034317 200 06 0 00 000005 MOVE AC2,AC1 ;SAVE C(AC) IN CASE OF ERROR.
3870 034320 357 05 0 00 000004 AOSG AC1,AC ;C(E)+1=-1...NO SKIP
3871 034321 355 05 0 00 000004 AOSGE AC1,AC ;C(E)+1=0...SKIP
3872 034322 005 05 0 00 040334 ER AC1,[ASCII /AOS/]
3873 034323 312 05 0 00 000004 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER AOS
3874 034324 001 06 0 00 040341 ERR AC2,[XWD -1,-2]
3875 034325 312 04 0 00 040322 CAME AC,[0] ;C(AC) SHOULD=0
3876 034326 001 06 0 00 040341 ERR AC2,[XWD -1,-2]
3877 034327 367 03 0 00 034316 SOJG AC-1,AOSGE2 ;ITERATION COUNTER.
3878 034330 321 03 0 00 034316 JUMPL AC-1,AOSGE2 ;LOOP ON ERROR SWITCH.
3879
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 79
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0110
3880
3881
3882 ;TEST AOJ, AOJA. CHECK FOR JUMP/ NO JUMP AND
3883 ;CORRECT DATA IN AC FOR C(AC)=RAN.
3884
3885
3886 000006 AC=6
3887 034331 AOJ1: SETUP 100,0^
3888 000007 AC1=<AC+1>&17
3889 000010 AC2=<AC+2>&17
3890 000011 AC3=<AC+3>&17
3891 000012 AC4=<AC+4>&17
3892 000013 AC5=<AC+5>&17
3893 000004 RAN1=<AC-2>&17
3894 034331 201 05 0 00 034331 MOVEI AC-1,.
3895 034332 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3896 034333 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3897 034334 202 05 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3898 034335 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3899 034336 240 05 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3900 034337 240 05 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3901 034340 AOJ2: RANDOM^
3902 034340 200 06 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3903 034341 270 06 0 00 040321 ADD AC,[142536475076]
3904 034342 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3905 034343 447 06 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
3906 034344 200 07 0 00 000006 AOJ3: MOVE AC1,AC ;SIMULATE
3907 034345 270 07 0 00 040333 ADD AC1,[2] ;2 AOJ'S
3908 034346 340 06 0 00 034350 AOJ AC,.+2 ;SHOULD NOT SKIP
3909 034347 344 06 0 00 034351 AOJA AC,.+2 ;SHOULD SKIP
3910 034350 005 06 0 00 040345 ER AC,[ASCII /AOJ/]
3911 034351 312 06 0 00 000007 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
3912 034352 013 00 0 00 777777 EERRI ,-1
3913 LOOP AOJ2,AOJ3^
3914 034353 367 05 0 00 034340 SOJG AC-1,AOJ2 ;ITERATION COUNTER
3915 034354 200 06 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3916 034355 321 05 0 00 034344 JUMPL AC-1,AOJ3 ;LOOP ON ERROR SWITCH ^
3917
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 80
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0111
3918
3919
3920 ;TEST AOJE, AOJN. CHECK FOR JUMP/ NO JUMP AND
3921 ;C(AC) FOR CORRECT DATA WITH C(AC) = TO A FLOATING ONE
3922
3923
3924 000007 AC=7
3925 034356 AOJE1: SETUP 100,0^
3926 000010 AC1=<AC+1>&17
3927 000011 AC2=<AC+2>&17
3928 000012 AC3=<AC+3>&17
3929 000013 AC4=<AC+4>&17
3930 000014 AC5=<AC+5>&17
3931 000005 RAN1=<AC-2>&17
3932 034356 201 06 0 00 034356 MOVEI AC-1,.
3933 034357 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3934 034360 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3935 034361 202 06 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3936 034362 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3937 034363 240 06 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3938 034364 240 06 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3939 034365 201 07 0 00 000001 MOVEI AC,1 ;SETUP AC TO CONTAIN A FLOATING ONE
3940 034366 241 07 0 00 000001 AOJE2: ROT AC,1 ;ROT TO TEST NEXT BIT
3941 034367 200 10 0 00 000007 MOVE AC1,AC ;SAVE SO C(AC) CAN BE RESTORED
3942 034370 200 07 0 00 000010 AOJE3: MOVE AC,AC1 ;COME HERE AND RESTORE C(AC) IF ERROR
3943 034371 200 11 0 00 000007 MOVE AC2,AC ;SIMULATE
3944 034372 270 11 0 00 040333 ADD AC2,[2] ;2 AOJ'S
3945 034373 342 07 0 00 034375 AOJE AC,.+2 ;C(AC) NOT=0...NO SKIP
3946 034374 346 07 0 00 034376 AOJN AC,.+2 ;C(AC) NOT=0...SKIP
3947 034375 005 07 0 00 040345 ER AC,[ASCII /AOJ/] ;
3948 034376 312 07 0 00 000011 CAME AC,AC2 ;C(AC) SHOULD=SIM ANS
3949 034377 003 10 0 00 034376 ERRI AC1,.-1
3950 034400 200 07 0 00 000010 MOVE AC,AC1 ;RESTORE C(AC) BEFORE ROTATE
3951 034401 367 06 0 00 034366 SOJG AC-1,AOJE2 ;ITERATION COUNTER.
3952 034402 321 06 0 00 034370 JUMPL AC-1,AOJE3 ;LOOP ON ERROR SWITCH.
3953
3954
3955
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 81
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0112
3956
3957
3958 ;TEST AOJG, AOJE. CHECK FOR JUMP/ NO JUMP AND
3959 ;C(AC) = CORRECT DATA WITH C(AC) = -2.
3960
3961
3962 000006 AC=6
3963 034403 AOJGA: SETUP 100,0^
3964 000007 AC1=<AC+1>&17
3965 000010 AC2=<AC+2>&17
3966 000011 AC3=<AC+3>&17
3967 000012 AC4=<AC+4>&17
3968 000013 AC5=<AC+5>&17
3969 000004 RAN1=<AC-2>&17
3970 034403 201 05 0 00 034403 MOVEI AC-1,.
3971 034404 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3972 034405 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3973 034406 202 05 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3974 034407 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3975 034410 240 05 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3976 034411 240 05 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3977 034412 200 06 0 00 040341 AOJGB: MOVE AC,[XWD -1,-2] ;MAKE C(AC) = -2.
3978 034413 200 04 0 00 000006 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
3979 034414 347 06 0 00 034416 AOJG AC,.+2 ;C(AC) + 1 = -1...NO JUMP.
3980 034415 342 06 0 00 034417 AOJE AC,.+2 ;C(AC) + 1 = 0...JUMP.
3981 034416 005 06 0 00 040345 ER AC,[ASCII /AOJ/]
3982 034417 312 06 0 00 040322 CAME AC,[0] ;C(AC) SHOULD = 0.
3983 034420 003 04 0 00 034417 ERRI RAN1,.-1
3984 034421 367 05 0 00 034412 SOJG AC-1,AOJGB ;ITERATION COUNTER.
3985 034422 321 05 0 00 034412 JUMPL AC-1,AOJGB ;LOOP ON ERROR SWITCH.
3986
3987
3988
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 82
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0113
3989
3990
3991 ;TEST AOJL, AOJG. CHECK FOR JUMP/NO JUMP AND
3992 ;C(AC)=CORRECT DATA FOR C(AC)=RAN
3993
3994
3995 000010 AC=10
3996 034423 AOJL1: SETUP 100,0^
3997 000011 AC1=<AC+1>&17
3998 000012 AC2=<AC+2>&17
3999 000013 AC3=<AC+3>&17
4000 000014 AC4=<AC+4>&17
4001 000015 AC5=<AC+5>&17
4002 000006 RAN1=<AC-2>&17
4003 034423 201 07 0 00 034423 MOVEI AC-1,.
4004 034424 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4005 034425 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4006 034426 202 07 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4007 034427 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4008 034430 240 07 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4009 034431 240 07 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4010 034432 AOJL2: RANDOM^
4011 034432 200 10 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4012 034433 270 10 0 00 040321 ADD AC,[142536475076]
4013 034434 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4014 034435 447 10 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
4015 034436 630 10 0 00 040342 AOJL3: TDZ AC,[XWD 600000,0];MAKE C(AC) SO 2 AOJ'S WON'T CHANGE SIGN.
4016 034437 200 06 0 00 000010 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
4017 034440 200 11 0 00 000010 MOVE AC1,AC ;SIMULATE
4018 034441 270 11 0 00 040333 ADD AC1,[2] ;2 AOJ'S.
4019 034442 341 10 0 00 034444 AOJL AC,.+2 ;C(AC) IS POS...NO JUMP.
4020 034443 347 10 0 00 034445 AOJG AC,.+2 ;C(AC) IS POS...JUMP.
4021 034444 005 10 0 00 040345 ER AC,[ASCII /AOJ/]
4022 034445 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD = SIM. ANS.
4023 034446 003 06 0 00 034444 ERRI RAN1,.-2
4024 LOOP AOJL2,AOJL3^
4025 034447 367 07 0 00 034432 SOJG AC-1,AOJL2 ;ITERATION COUNTER
4026 034450 200 10 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4027 034451 321 07 0 00 034436 JUMPL AC-1,AOJL3 ;LOOP ON ERROR SWITCH ^
4028
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 83
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0114
4029
4030
4031 ;TEST AOJG, AOJL. CHECK FOR JUMP/NO JUMP AND
4032 ;C(AC)=CORRECT DATA FOR C(AC)=-RAN.
4033
4034
4035 000011 AC=11
4036 034452 AOJG1: SETUP 100,0^
4037 000012 AC1=<AC+1>&17
4038 000013 AC2=<AC+2>&17
4039 000014 AC3=<AC+3>&17
4040 000015 AC4=<AC+4>&17
4041 000016 AC5=<AC+5>&17
4042 000007 RAN1=<AC-2>&17
4043 034452 201 10 0 00 034452 MOVEI AC-1,.
4044 034453 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4045 034454 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4046 034455 202 10 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4047 034456 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4048 034457 240 10 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4049 034460 240 10 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4050 034461 AOJG2: RANDOM^
4051 034461 200 11 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4052 034462 270 11 0 00 040321 ADD AC,[142536475076]
4053 034463 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4054 034464 447 11 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
4055 034465 670 11 0 00 040327 AOJG3: TDO AC,[XWD 400000,0];MAKE C(AC) NEG.
4056 034466 630 11 0 00 040343 TDZ AC,[3] ;CLEAR TWO END BITS SO AOJL WILL ALWAYS SKIP.
4057 034467 200 07 0 00 000011 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
4058 034470 200 12 0 00 000011 MOVE AC1,AC ;SIMULATE
4059 034471 270 12 0 00 040333 ADD AC1,[2] ;2 AOJ'S
4060 034472 347 11 0 00 034474 AOJG AC,.+2 ;C(AC) IS NEG...NO SKIP
4061 034473 341 11 0 00 034475 AOJL AC,.+2 ;C(AC) IS NEG...SKIP
4062 034474 005 11 0 00 040345 ER AC,[ASCII /AOJ/]
4063 034475 312 11 0 00 000012 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
4064 034476 003 07 0 00 034474 ERRI RAN1,.-2
4065 LOOP AOJG2,AOJG3^
4066 034477 367 10 0 00 034461 SOJG AC-1,AOJG2 ;ITERATION COUNTER
4067 034500 200 11 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4068 034501 321 10 0 00 034465 JUMPL AC-1,AOJG3 ;LOOP ON ERROR SWITCH ^
4069
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 84
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0115
4070
4071
4072 ;TEST AOJG, AOJGE. CHECK FOR JUMP/NO JUMP AND
4073 ;CORRECT DATA IN AC FOR C(AC)=-2
4074
4075
4076 000012 AC=12
4077 034502 AOJGE1: SETUP 100,0^
4078 000013 AC1=<AC+1>&17
4079 000014 AC2=<AC+2>&17
4080 000015 AC3=<AC+3>&17
4081 000016 AC4=<AC+4>&17
4082 000017 AC5=<AC+5>&17
4083 000010 RAN1=<AC-2>&17
4084 034502 201 11 0 00 034502 MOVEI AC-1,.
4085 034503 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4086 034504 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4087 034505 202 11 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4088 034506 201 11 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4089 034507 240 11 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4090 034510 240 11 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4091 034511 200 12 0 00 040341 AOJGE2: MOVE AC,[XWD -1,-2] ;MAKE C(AC) = -2.
4092 034512 200 10 0 00 000012 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
4093 034513 347 12 0 00 034515 AOJG AC,.+2 ;C(AC)+1=-1. NO SKIP
4094 034514 345 12 0 00 034516 AOJGE AC,.+2 ;C(AC)+1=0. SKIP
4095 034515 005 12 0 00 040345 ER AC,[ASCII /AOJ/]
4096 034516 312 12 0 00 040322 CAME AC,[0] ;C(AC) SHOULD=0
4097 034517 003 10 0 00 034515 ERRI RAN1,.-2
4098 LOOP AOJGE2,AOJGE2^
4099 034520 367 11 0 00 034511 SOJG AC-1,AOJGE2 ;ITERATION COUNTER
4100 034521 200 12 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4101 034522 321 11 0 00 034511 JUMPL AC-1,AOJGE2 ;LOOP ON ERROR SWITCH ^
4102
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 85
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0116
4103
4104
4105 ;TEST AOJG, AOJLE. CHECK FOR JUMP/NO JUMP AND
4106 ;CORRECT DATA IN AC FOR C(AC)=-2
4107
4108
4109 000013 AC=13
4110 034523 AOJLE1: SETUP 100,0^
4111 000014 AC1=<AC+1>&17
4112 000015 AC2=<AC+2>&17
4113 000016 AC3=<AC+3>&17
4114 000017 AC4=<AC+4>&17
4115 000000 AC5=<AC+5>&17
4116 000011 RAN1=<AC-2>&17
4117 034523 201 12 0 00 034523 MOVEI AC-1,.
4118 034524 202 12 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4119 034525 201 12 0 00 000012 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4120 034526 202 12 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4121 034527 201 12 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4122 034530 240 12 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4123 034531 240 12 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4124 034532 200 13 0 00 040341 AOJLE2: MOVE AC,[XWD -1,-2] ;MAKE C(AC) = -2.
4125 034533 200 11 0 00 000013 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
4126 034534 347 13 0 00 034536 AOJG AC,.+2 ;C(AC)+1=-1. NO SKIP
4127 034535 343 13 0 00 034537 AOJLE AC,.+2 ;C(AC)+1=0. SKIP
4128 034536 005 13 0 00 040345 ER AC,[ASCII /AOJ/]
4129 034537 312 13 0 00 040322 CAME AC,[0] ;C(AC) SHOULD=0
4130 034540 003 11 0 00 034536 ERRI RAN1,.-2
4131 034541 367 12 0 00 034532 SOJG AC-1,AOJLE2 ;ITERATION COUNTER.
4132 034542 321 12 0 00 034532 JUMPL AC-1,AOJLE2 ;LOOP ON ERROR SWITCH.
4133
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 86
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0117
4134
4135
4136 ;TEST SOS, SOSA. CHECK FOR SKIP/NO SKIP,
4137 ;PROPER STORING OF C(E) INTO AC, AND CORRECT
4138 ;DATA IN E FOR C(E)=RAN
4139
4140
4141 000007 AC=7
4142 034543 SOS1: SETUP 100,0^
4143 000010 AC1=<AC+1>&17
4144 000011 AC2=<AC+2>&17
4145 000012 AC3=<AC+3>&17
4146 000013 AC4=<AC+4>&17
4147 000014 AC5=<AC+5>&17
4148 000005 RAN1=<AC-2>&17
4149 034543 201 06 0 00 034543 MOVEI AC-1,.
4150 034544 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4151 034545 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4152 034546 202 06 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4153 034547 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4154 034550 240 06 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4155 034551 240 06 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4156 034552 SOS2: RANDOM^
4157 034552 200 07 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4158 034553 270 07 0 00 040321 ADD AC,[142536475076]
4159 034554 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4160 034555 447 07 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
4161 034556 200 11 0 00 000010 SOS3: MOVE AC2,AC1 ;SAVE C(AC) IN CASE OF ERROR
4162 034557 200 12 0 00 000007 MOVE AC3,AC ;SIMULATE
4163 034560 274 12 0 00 040333 SUB AC3,[2] ;2 SOS'S
4164 034561 370 10 0 00 000007 SOS AC1,AC ;SHOULD NOT SKIP
4165 034562 374 10 0 00 000007 SOSA AC1,AC ;SHOULD SKIP
4166 034563 005 10 0 00 040346 ER AC1,[ASCII /SOS/]
4167 034564 312 10 0 00 000007 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER SOS
4168 034565 011 00 0 00 000011 EERR ,AC2
4169 034566 312 12 0 00 000007 CAME AC3,AC ;C(E) SHOULD=SIM ANS
4170 034567 011 00 0 00 000011 EERR ,AC2
4171 LOOP SOS2,SOS3^
4172 034570 367 06 0 00 034552 SOJG AC-1,SOS2 ;ITERATION COUNTER
4173 034571 200 07 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4174 034572 321 06 0 00 034556 JUMPL AC-1,SOS3 ;LOOP ON ERROR SWITCH ^
4175
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 87
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0118
4176
4177
4178 ;TEST SOSE, SOSN. CHECK FOR SKIP/NO SKIP,
4179 ;PROPER STORING C(E) INTO AC, AND CORRECT
4180 ;DATA IN E FOR C(E) = (3,7,17,37,+ETC.).
4181
4182
4183 000010 AC=10
4184 034573 SOSE1: SETUP 100,0^
4185 000011 AC1=<AC+1>&17
4186 000012 AC2=<AC+2>&17
4187 000013 AC3=<AC+3>&17
4188 000014 AC4=<AC+4>&17
4189 000015 AC5=<AC+5>&17
4190 000006 RAN1=<AC-2>&17
4191 034573 201 07 0 00 034573 MOVEI AC-1,.
4192 034574 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4193 034575 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4194 034576 202 07 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4195 034577 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4196 034600 240 07 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4197 034601 240 07 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4198 034602 201 10 0 00 000001 SOSE2: MOVEI AC,1 ;SETUP E TO
4199 034603 241 10 0 00 000001 SOSE3: ROT AC,1 ;CONTAIN
4200 034604 434 10 0 00 040340 IOR AC,[1] ;3,7,17,37,+ETC.
4201 034605 200 10 0 00 000006 SOSE4: MOVE AC,RAN1 ;RESTORE C(E) IN CASE OF ERROR.
4202 034606 200 12 0 00 000011 MOVE AC2,AC1 ;SAVE C(AC) IN CASE OF ERROR
4203 034607 200 13 0 00 000010 MOVE AC3,AC ;SIMULATE
4204 034610 274 13 0 00 040333 SUB AC3,[2] ;2 SOS'S
4205 034611 372 11 0 00 000010 SOSE AC1,AC ;SHOULD NOT SKIP
4206 034612 376 11 0 00 000010 SOSN AC1,AC ;SHOULD SKIP
4207 034613 005 11 0 00 040346 ER AC1,[ASCII /SOS/]
4208 034614 312 11 0 00 000010 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER SOS
4209 034615 011 00 0 00 000012 EERR ,AC2
4210 034616 312 13 0 00 000010 CAME AC3,AC ;C(E) SHOULD=SIM ANS
4211 034617 011 00 0 00 000012 EERR ,AC2
4212 034620 316 06 0 00 040324 CAMN RAN1,[-1] ;C(RAN1) = -1?
4213 034621 254 00 0 00 034602 JRST SOSE2 ;YES. REINITIALIZE E.
4214 034622 367 07 0 00 034603 SOJG AC-1,SOSE3 ;ITERATION COUNTER.
4215 034623 321 07 0 00 034605 JUMPL AC-1,SOSE4 ;LOOP ON ERROR SWITCH
4216
4217
4218
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 88
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0119
4219
4220
4221 ;TEST SOSL, SOSE. CHECK FOR SKIP/ NO SKIP,
4222 ;PROPER STORING C(E) INTO AC, AND CORRECT
4223 ;DATA IN E FOR C(E) = 2.
4224
4225
4226 000007 AC=7
4227 034624 SOSLA: SETUP 100,0^
4228 000010 AC1=<AC+1>&17
4229 000011 AC2=<AC+2>&17
4230 000012 AC3=<AC+3>&17
4231 000013 AC4=<AC+4>&17
4232 000014 AC5=<AC+5>&17
4233 000005 RAN1=<AC-2>&17
4234 034624 201 06 0 00 034624 MOVEI AC-1,.
4235 034625 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4236 034626 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4237 034627 202 06 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4238 034630 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4239 034631 240 06 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4240 034632 240 06 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4241 034633 SOSLB: RANDOM^
4242 034633 200 07 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4243 034634 270 07 0 00 040321 ADD AC,[142536475076]
4244 034635 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4245 034636 447 07 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
4246 034637 200 10 0 00 040333 SOSLC: MOVE AC1,[2] ;MAKE C(E) = 2.
4247 034640 200 05 0 00 000010 MOVE RAN1,AC1 ;SAVE C(E) IN CASE OF ERROR.
4248 034641 371 07 0 00 000010 SOSL AC,AC1 ;C(E) -1 = 1...NO SKIP.
4249 034642 372 07 0 00 000010 SOSE AC,AC1 ;C(E) -1 = 0...SKIP.
4250 034643 005 10 0 00 040346 ER AC1,[ASCII /SOS/]
4251 034644 312 07 0 00 000010 CAME AC,AC1 ;C(AC) SHOULD = C(E).
4252 034645 001 05 0 00 040444 ERR RAN1,RAN
4253 034646 312 10 0 00 040322 CAME AC1,[0] ;C(E) SHOULD = 0.
4254 034647 001 05 0 00 040444 ERR RAN1,RAN
4255 LOOP SOSLB, SOSLC^
4256 034650 367 06 0 00 034633 SOJG AC-1,SOSLB ;ITERATION COUNTER
4257 034651 200 07 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4258 034652 321 06 0 00 034637 JUMPL AC-1,SOSLC ;LOOP ON ERROR SWITCH ^
4259
4260
4261
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 89
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0120
4262
4263
4264 ;TEST SOSE,SOSL. CHECK FOR SKIP/NO SKIP,
4265 ;PROPER STORING C(E) INTO AC, AND
4266 ;CORRECT DATA IN E FOR C(E)=2
4267
4268
4269 000011 AC=11
4270 034653 SOSL1: SETUP 100,0^
4271 000012 AC1=<AC+1>&17
4272 000013 AC2=<AC+2>&17
4273 000014 AC3=<AC+3>&17
4274 000015 AC4=<AC+4>&17
4275 000016 AC5=<AC+5>&17
4276 000007 RAN1=<AC-2>&17
4277 034653 201 10 0 00 034653 MOVEI AC-1,.
4278 034654 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4279 034655 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4280 034656 202 10 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4281 034657 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4282 034660 240 10 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4283 034661 240 10 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4284 034662 201 11 0 00 000002 SOSL2: MOVEI AC,2 ;SETUP C(E) TO = 2.
4285 034663 200 07 0 00 000011 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR.
4286 034664 200 13 0 00 000012 MOVE AC2,AC1 ;SAVE C(AC) IN CASE OF ERROR.
4287 034665 371 12 0 00 000011 SOSL AC1,AC ;C(E)=1...NO SKIP.
4288 034666 372 12 0 00 000011 SOSE AC1,AC ;C(E)=0...SHOULD SKIP
4289 034667 005 12 0 00 040346 ER AC1,[ASCII /SOS/]
4290 034670 312 12 0 00 000011 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER SOS
4291 034671 001 07 0 00 000013 ERR RAN1,AC2
4292 034672 312 11 0 00 040322 CAME AC,[0] ;C(E) SHOULD NOW=0
4293 034673 001 07 0 00 000013 ERR RAN1,AC2
4294 034674 367 10 0 00 034662 SOJG AC-1,SOSL2 ;ITERATION COUNTER.
4295 034675 321 10 0 00 034662 JUMPL AC-1,SOSL2 ;LOOP ON ERROR SWITCH.
4296
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 90
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0121
4297
4298
4299 ;TEST SOSG, SOSL. CHECK FOR SKIP/ NO SKIP,
4300 ;PROPER STORING OF C(E) INTO AC, AND CORRECT
4301 ;DATA IN E FOR C(E)=+RAN.
4302
4303
4304 000012 AC=12
4305 034676 SOSG1: SETUP 100,0^
4306 000013 AC1=<AC+1>&17
4307 000014 AC2=<AC+2>&17
4308 000015 AC3=<AC+3>&17
4309 000016 AC4=<AC+4>&17
4310 000017 AC5=<AC+5>&17
4311 000010 RAN1=<AC-2>&17
4312 034676 201 11 0 00 034676 MOVEI AC-1,.
4313 034677 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4314 034700 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4315 034701 202 11 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4316 034702 201 11 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4317 034703 240 11 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4318 034704 240 11 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4319 034705 SOSG2: RANDOM^
4320 034705 200 12 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4321 034706 270 12 0 00 040321 ADD AC,[142536475076]
4322 034707 241 12 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4323 034710 447 12 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
4324 034711 630 12 0 00 040327 SOSG3: TDZ AC,[XWD 400000,0];MAKE C(E) POSITIVE.
4325 034712 435 12 0 00 000003 IORI AC,3 ;MAKE SURE C(E)=3.
4326 034713 200 10 0 00 000012 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR.
4327 034714 200 14 0 00 000013 MOVE AC2,AC1 ;SAVE C(AC) IN CASE OF ERROR.
4328 034715 200 15 0 00 000012 MOVE AC3,AC ;SIMULATE
4329 034716 274 15 0 00 040333 SUB AC3,[2] ;2 SOS'S
4330 034717 371 13 0 00 000012 SOSL AC1,AC ;C(E) IS POSITIVE. SHOULD NOT SKIP
4331 034720 377 13 0 00 000012 SOSG AC1,AC ;C(E) IS POSITIVE. SHOULD SKIP
4332 034721 005 13 0 00 040346 ER AC1,[ASCII /SOS/]
4333 034722 312 13 0 00 000012 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER SOS
4334 034723 001 10 0 00 000014 ERR RAN1,AC2
4335 034724 312 12 0 00 000015 CAME AC,AC3 ;C(E) SHOULD=SIM ANS
4336 034725 001 10 0 00 000014 ERR RAN1,AC2
4337 LOOP SOSG2,SOSG3^
4338 034726 367 11 0 00 034705 SOJG AC-1,SOSG2 ;ITERATION COUNTER
4339 034727 200 12 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4340 034730 321 11 0 00 034711 JUMPL AC-1,SOSG3 ;LOOP ON ERROR SWITCH ^
4341
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 91
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0122
4342
4343
4344 ;TEST SOSG, SOSL. CHECK FOR SKIP/ NO SKIP,
4345 ;PROPER STORING C(E) INTO AC, AND CORRECT
4346 ;DATA IN E FOR C(E)=-RAN
4347
4348
4349 000013 AC=13
4350 034731 SOSL1A: SETUP 100,0^
4351 000014 AC1=<AC+1>&17
4352 000015 AC2=<AC+2>&17
4353 000016 AC3=<AC+3>&17
4354 000017 AC4=<AC+4>&17
4355 000000 AC5=<AC+5>&17
4356 000011 RAN1=<AC-2>&17
4357 034731 201 12 0 00 034731 MOVEI AC-1,.
4358 034732 202 12 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4359 034733 201 12 0 00 000012 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4360 034734 202 12 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4361 034735 201 12 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4362 034736 240 12 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4363 034737 240 12 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4364 034740 SOSL2A: RANDOM^
4365 034740 200 13 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4366 034741 270 13 0 00 040321 ADD AC,[142536475076]
4367 034742 241 13 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4368 034743 447 13 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
4369 034744 670 13 0 00 040327 SOSL3A: TDO AC,[XWD 400000,0];MAKE C(E) NEG.
4370 034745 200 11 0 00 000013 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR
4371 034746 200 15 0 00 000014 MOVE AC2,AC1 ;SAVE C(AC) IN CASE OF ERROR
4372 034747 200 16 0 00 000013 MOVE AC3,AC ;SIMULATE
4373 034750 274 16 0 00 040333 SUB AC3,[2] ;2 SOS'S
4374 034751 377 14 0 00 000013 SOSG AC1,AC ;C(E) IS NEG. NO SKIP
4375 034752 371 14 0 00 000013 SOSL AC1,AC ;C(E) IS NEG. SKIP
4376 034753 005 14 0 00 040346 ER AC1,[ASCII /SOS/]
4377 034754 312 14 0 00 000013 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER SOS
4378 034755 001 11 0 00 000015 ERR RAN1,AC2
4379 034756 312 13 0 00 000016 CAME AC,AC3 ;C(E) SHOULD=SIM ANS
4380 034757 001 11 0 00 000015 ERR RAN1,AC2
4381 LOOP SOSL2A, SOSL3A^
4382 034760 367 12 0 00 034740 SOJG AC-1,SOSL2A ;ITERATION COUNTER
4383 034761 200 13 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4384 034762 321 12 0 00 034744 JUMPL AC-1,SOSL3A ;LOOP ON ERROR SWITCH ^
4385
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 92
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0123
4386
4387
4388 ;TEST SOSL, SOSLE. CHECK FOR SKIP/NO SKIP,
4389 ;PROPER STORING OF C(E) INTO AC, AND CORRECT
4390 ;DATA IN E FOR C(E)=2
4391
4392
4393 000014 AC=14
4394 034763 SOSLE1: SETUP 100,0^
4395 000015 AC1=<AC+1>&17
4396 000016 AC2=<AC+2>&17
4397 000017 AC3=<AC+3>&17
4398 000000 AC4=<AC+4>&17
4399 000001 AC5=<AC+5>&17
4400 000012 RAN1=<AC-2>&17
4401 034763 201 13 0 00 034763 MOVEI AC-1,.
4402 034764 202 13 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4403 034765 201 13 0 00 000013 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4404 034766 202 13 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4405 034767 201 13 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4406 034770 240 13 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4407 034771 240 13 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4408 034772 201 14 0 00 000002 SOSLE2: MOVEI AC,2 ;MAKE C(E)=2
4409 034773 200 12 0 00 000014 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR
4410 034774 200 16 0 00 000015 MOVE AC2,AC1 ;SAVE C(AC) IN CASE OF ERROR
4411 034775 371 15 0 00 000014 SOSL AC1,AC ;C(E)-1=1...NO SKIP
4412 034776 373 15 0 00 000014 SOSLE AC1,AC ;C(E)-1=0...SKIP
4413 034777 005 15 0 00 040346 ER AC1,[ASCII /SOS/]
4414 035000 312 15 0 00 000014 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER SOS
4415 035001 001 12 0 00 000016 ERR RAN1,AC2
4416 035002 312 14 0 00 040322 CAME AC,[0] ;C(AC) SHOULD = 0
4417 035003 001 12 0 00 000016 ERR RAN1,AC2
4418 035004 367 13 0 00 034772 SOJG AC-1,SOSLE2 ;ITERATION COUNTER.
4419 035005 321 13 0 00 034772 JUMPL AC-1,SOSLE2 ;LOOP ON ERROR SWITCH.
4420
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 93
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0124
4421
4422
4423 ;TEST SOSLE, SOSGE. CHECK FOR SKIP/NO SKIP,
4424 ;PROPER STORING OF C(E) INTO AC, AND CORRECT
4425 ;DATA IN E FOR C(E)=2
4426
4427
4428 000005 AC=5
4429 035006 SOSGE1: SETUP 100,0^
4430 000006 AC1=<AC+1>&17
4431 000007 AC2=<AC+2>&17
4432 000010 AC3=<AC+3>&17
4433 000011 AC4=<AC+4>&17
4434 000012 AC5=<AC+5>&17
4435 000003 RAN1=<AC-2>&17
4436 035006 201 04 0 00 035006 MOVEI AC-1,.
4437 035007 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4438 035010 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4439 035011 202 04 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4440 035012 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4441 035013 240 04 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4442 035014 240 04 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4443 035015 201 05 0 00 000002 SOSGE2: MOVEI AC,2 ;MAKE C(E)=2
4444 035016 200 03 0 00 000005 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR
4445 035017 200 07 0 00 000006 MOVE AC2,AC1 ;SAVE C(AC) IN CASE OF ERROR
4446 035020 373 06 0 00 000005 SOSLE AC1,AC ;C(E)-1=1...NO SKIP
4447 035021 375 06 0 00 000005 SOSGE AC1,AC ;C(E)-1=0...SKIP
4448 035022 005 06 0 00 040346 ER AC1,[ASCII /SOS/]
4449 035023 312 06 0 00 000005 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER SOS
4450 035024 001 03 0 00 000007 ERR RAN1,AC2
4451 035025 312 05 0 00 040322 CAME AC,[0] ;C(E) SHOULD=0
4452 035026 001 03 0 00 000007 ERR RAN1,AC2
4453 035027 367 04 0 00 035015 SOJG AC-1,SOSGE2 ;ITERATION COUNTER.
4454 035030 321 04 0 00 035015 JUMPL AC-1,SOSGE2 ;LOOP ON ERROR SWITCH.
4455
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 94
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0125
4456
4457
4458 ;TEST SOJ, SOJA. CHECK JUMP/NO JUMP AND
4459 ;CORRECT DATA IIN AC FOR C(AC)=RAN.
4460
4461
4462 000002 AC=2
4463 035031 SOJ1: SETUP 100,0^
4464 000003 AC1=<AC+1>&17
4465 000004 AC2=<AC+2>&17
4466 000005 AC3=<AC+3>&17
4467 000006 AC4=<AC+4>&17
4468 000007 AC5=<AC+5>&17
4469 000000 RAN1=<AC-2>&17
4470 035031 201 01 0 00 035031 MOVEI AC-1,.
4471 035032 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4472 035033 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4473 035034 202 01 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4474 035035 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4475 035036 240 01 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4476 035037 240 01 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4477 035040 SOJ2: RANDOM^
4478 035040 200 02 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4479 035041 270 02 0 00 040321 ADD AC,[142536475076]
4480 035042 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4481 035043 447 02 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
4482 035044 200 03 0 00 000002 SOJ3: MOVE AC1,AC ;SIMULATE
4483 035045 274 03 0 00 040333 SUB AC1,[2] ;2 SOJ'S
4484 035046 360 02 0 00 035050 SOJ AC,.+2 ;SHOULD NOT JUMP
4485 035047 364 02 0 00 035051 SOJA AC,.+2 ;SHOULD JUMP
4486 035050 005 02 0 00 040347 ER AC,[ASCII /SOJ/]
4487 035051 312 02 0 00 000003 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
4488 035052 013 00 0 00 035050 EERRI ,.-2
4489 LOOP SOJ2,SOJ3^
4490 035053 367 01 0 00 035040 SOJG AC-1,SOJ2 ;ITERATION COUNTER
4491 035054 200 02 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4492 035055 321 01 0 00 035044 JUMPL AC-1,SOJ3 ;LOOP ON ERROR SWITCH ^
4493
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 95
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0126
4494
4495
4496 ;TEST SOJE,SOJN. CHECK JUMP/NO JUMP AND
4497 ;CORRECT DATA IN AC FOR C(AC)=MAGIC NUMBERS (7,17,37,ETC.)
4498
4499
4500 000003 AC=3
4501 035056 SOJE1: SETUP 100,0^
4502 000004 AC1=<AC+1>&17
4503 000005 AC2=<AC+2>&17
4504 000006 AC3=<AC+3>&17
4505 000007 AC4=<AC+4>&17
4506 000010 AC5=<AC+5>&17
4507 000001 RAN1=<AC-2>&17
4508 035056 201 02 0 00 035056 MOVEI AC-1,.
4509 035057 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4510 035060 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4511 035061 202 02 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4512 035062 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4513 035063 240 02 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4514 035064 240 02 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4515 035065 201 03 0 00 000002 SOJE2: MOVEI AC,2 ;SETUP AC
4516 035066 241 03 0 00 000001 SOJE3: ROT AC,1 ;TO CONTAIN
4517 035067 435 03 0 00 000003 IORI AC,3 ;7,17,37,+ETC
4518 035070 200 01 0 00 000003 MOVE RAN1,AC ;SAVE FOR FUTURE COMPARE.
4519 035071 200 03 0 00 000001 SOJE4: MOVE AC,RAN1 ;COME HERE AND RESTORE IF THERE IS AN ERROR.
4520 035072 200 04 0 00 000001 MOVE AC1,RAN1 ;SIMULATE
4521 035073 274 04 0 00 040333 SUB AC1,[2] ;2 SOJ'S
4522 035074 362 03 0 00 035076 SOJE AC,.+2 ;SHOULD NOT SKIP
4523 035075 366 03 0 00 035077 SOJN AC,.+2 ;SHOULD SKIP.
4524 035076 005 03 0 00 040347 ER AC,[ASCII /SOJ/]
4525 035077 312 03 0 00 000004 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
4526 035100 003 01 0 00 035076 ERRI RAN1,.-2
4527 035101 316 01 0 00 040324 CAMN RAN1,[-1] ;C(RAN1) = -1?
4528 035102 254 00 0 00 035065 JRST SOJE2 ;YES, REINITIALIZE C(AC)
4529 035103 367 02 0 00 035066 SOJG AC-1,SOJE3 ;ITERATION COUNTER.
4530 035104 321 02 0 00 035071 JUMPL AC-1,SOJE4 ;LOOP ON ERROR SWITCH.
4531
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 96
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0127
4532
4533
4534 ;TEST SOJE, SOJL. CHECK FOR JUMP/ NO JUMP AND
4535 ;CORRECT DATA IN AC FOR ORIG. C(AC)=2
4536
4537
4538 000004 AC=4
4539 035105 SOJL1: SETUP 100,0^
4540 000005 AC1=<AC+1>&17
4541 000006 AC2=<AC+2>&17
4542 000007 AC3=<AC+3>&17
4543 000010 AC4=<AC+4>&17
4544 000011 AC5=<AC+5>&17
4545 000002 RAN1=<AC-2>&17
4546 035105 201 03 0 00 035105 MOVEI AC-1,.
4547 035106 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4548 035107 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4549 035110 202 03 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4550 035111 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4551 035112 240 03 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4552 035113 240 03 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4553 035114 201 04 0 00 000002 SOJL2: MOVEI AC,2 ;SETUP C(AC) TO = 2.
4554 035115 200 02 0 00 000004 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
4555 035116 361 04 0 00 035120 SOJL AC,.+2 ;C(AC) = 1...NO JUMP.
4556 035117 362 04 0 00 035121 SOJE AC,.+2 ;C(AC)=0...SHOULD SKIP
4557 035120 005 04 0 00 040347 ER AC,[ASCII /SOJ/]
4558 035121 312 04 0 00 040322 CAME AC,[0] ;C(AC) SHOULD=0
4559 035122 003 02 0 00 035120 ERRI RAN1,.-2
4560 035123 367 03 0 00 035114 SOJG AC-1,SOJL2 ;ITERATION COUNTER.
4561 035124 321 03 0 00 035114 JUMPL AC-1,SOJL2 ;LOOP ON ERROR SWITCH.
4562
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 97
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0128
4563
4564
4565 ;TEST SOJG, SOJL. CHECK FOR JUMP/ NO JUMP AND
4566 ;CORRECT DATA IN AC FOR C(AC)=+RAN
4567
4568
4569 000005 AC=5
4570 035125 SOJG1: SETUP 100,0^
4571 000006 AC1=<AC+1>&17
4572 000007 AC2=<AC+2>&17
4573 000010 AC3=<AC+3>&17
4574 000011 AC4=<AC+4>&17
4575 000012 AC5=<AC+5>&17
4576 000003 RAN1=<AC-2>&17
4577 035125 201 04 0 00 035125 MOVEI AC-1,.
4578 035126 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4579 035127 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4580 035130 202 04 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4581 035131 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4582 035132 240 04 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4583 035133 240 04 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4584 035134 SOJG2: RANDOM^
4585 035134 200 05 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4586 035135 270 05 0 00 040321 ADD AC,[142536475076]
4587 035136 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4588 035137 447 05 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
4589 035140 630 05 0 00 040327 SOJG3: TDZ AC,[XWD 400000,0];MAKE C(AC) POSITIVE.
4590 035141 434 05 0 00 040343 IOR AC,[3] ;MAKE SURE SOJ'S SKIP..SET LAST TWO BITS.
4591 035142 200 06 0 00 000005 MOVE AC1,AC ;SAVE C(AC) IN CASE OF ERROR
4592 035143 200 07 0 00 000005 MOVE AC2,AC ;SIMULATE
4593 035144 274 07 0 00 040333 SUB AC2,[2] ;2 SOJ'S
4594 035145 361 05 0 00 035147 SOJL AC,.+2 ;C(AC) IS POSITIVE...SHOULD NOT SKIP
4595 035146 367 05 0 00 035150 SOJG AC,.+2 ;C(AC) IS POSITIVE...SHOULD SKIP
4596 035147 005 05 0 00 040347 ER AC,[ASCII /SOJ/]
4597 035150 312 05 0 00 000007 CAME AC,AC2 ;C(AC) SHOULD=SIM ANS
4598 035151 003 06 0 00 035147 ERRI AC1,.-2
4599 LOOP SOJG2,SOJG3^
4600 035152 367 04 0 00 035134 SOJG AC-1,SOJG2 ;ITERATION COUNTER
4601 035153 200 05 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4602 035154 321 04 0 00 035140 JUMPL AC-1,SOJG3 ;LOOP ON ERROR SWITCH ^
4603
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 98
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0129
4604
4605
4606 ;TEST SOJG, SOJL. CHECK FOR JUMP/ NO JUMP AND
4607 ;CORRECT DATA IN AC FOR C(AC)=-RAN
4608
4609
4610 000006 AC=6
4611 035155 SOJL1A: SETUP 100,0^
4612 000007 AC1=<AC+1>&17
4613 000010 AC2=<AC+2>&17
4614 000011 AC3=<AC+3>&17
4615 000012 AC4=<AC+4>&17
4616 000013 AC5=<AC+5>&17
4617 000004 RAN1=<AC-2>&17
4618 035155 201 05 0 00 035155 MOVEI AC-1,.
4619 035156 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4620 035157 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4621 035160 202 05 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4622 035161 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4623 035162 240 05 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4624 035163 240 05 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4625 035164 SOJL2A: RANDOM^
4626 035164 200 06 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4627 035165 270 06 0 00 040321 ADD AC,[142536475076]
4628 035166 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4629 035167 447 06 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
4630 035170 670 06 0 00 040327 SOJL3A: TDO AC,[XWD 400000,0];MAKE C(AC) NEG.
4631 035171 200 07 0 00 000006 MOVE AC1,AC ;SAVE C(AC) IN CASE OF ERROR
4632 035172 200 10 0 00 000006 MOVE AC2,AC ;SIMULATE
4633 035173 274 10 0 00 040333 SUB AC2,[2] ;2 SOJ'S
4634 035174 367 06 0 00 035176 SOJG AC,.+2 ;C(AC) IS NEG. SHOULD NOT SKIP
4635 035175 361 06 0 00 035177 SOJL AC,.+2 ;C(AC) IS NEG. SHOULD SKIP
4636 035176 005 06 0 00 040347 ER AC,[ASCII /SOJ/]
4637 035177 312 06 0 00 000010 CAME AC,AC2 ;C(AC) SHOULD=SIM ANS
4638 035200 003 07 0 00 035176 ERRI AC1,.-2
4639 LOOP SOJL2A, SOJL3A^
4640 035201 367 05 0 00 035164 SOJG AC-1,SOJL2A ;ITERATION COUNTER
4641 035202 200 06 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4642 035203 321 05 0 00 035170 JUMPL AC-1,SOJL3A ;LOOP ON ERROR SWITCH ^
4643
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 99
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0130
4644
4645
4646 ;TEST SOJL, SOJLE. CHECK FOR JUMP/NO JUMP AND
4647 ;CORRECT DATA IN AC FOR C(AC)=2.
4648
4649
4650 000015 AC=15
4651 035204 SOJLE1: SETUP 100,0^
4652 000016 AC1=<AC+1>&17
4653 000017 AC2=<AC+2>&17
4654 000000 AC3=<AC+3>&17
4655 000001 AC4=<AC+4>&17
4656 000002 AC5=<AC+5>&17
4657 000013 RAN1=<AC-2>&17
4658 035204 201 14 0 00 035204 MOVEI AC-1,.
4659 035205 202 14 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4660 035206 201 14 0 00 000014 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4661 035207 202 14 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4662 035210 201 14 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4663 035211 240 14 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4664 035212 240 14 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4665 035213 201 15 0 00 000002 SOJLE2: MOVEI AC,2 ;MAKE C(AC)=2
4666 035214 200 13 0 00 000015 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
4667 035215 361 15 0 00 035217 SOJL AC,.+2 ;C(AC)-1=1...NO SKIP
4668 035216 363 15 0 00 035220 SOJLE AC,.+2 ;C(AC)-1=0...SKIP
4669 035217 005 15 0 00 040347 ER AC,[ASCII /SOJ/]
4670 035220 312 15 0 00 040322 CAME AC,[0] ;C(AC) SHOULD=0
4671 035221 003 13 0 00 035217 ERRI RAN1,.-2
4672 035222 367 14 0 00 035213 SOJG AC-1,SOJLE2 ;ITERATION COUNTER.
4673 035223 321 14 0 00 035213 JUMPL AC-1,SOJLE2 ;LOOP ON ERROR SWITCH.
4674
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 100
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0131
4675
4676
4677 ;TEST SOJLE, SOJGE. CHECK FOR JUMP/NO JUMP AND
4678 ;CORRECT DATA IN AC FOR C(AC)=2
4679
4680
4681 000006 AC=6
4682 035224 SOJGE1: SETUP 100,0^
4683 000007 AC1=<AC+1>&17
4684 000010 AC2=<AC+2>&17
4685 000011 AC3=<AC+3>&17
4686 000012 AC4=<AC+4>&17
4687 000013 AC5=<AC+5>&17
4688 000004 RAN1=<AC-2>&17
4689 035224 201 05 0 00 035224 MOVEI AC-1,.
4690 035225 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4691 035226 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4692 035227 202 05 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4693 035230 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4694 035231 240 05 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4695 035232 240 05 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4696 035233 201 06 0 00 000002 SOJGE2: MOVEI AC,2 ;MAKE C(AC)=2
4697 035234 200 04 0 00 000006 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
4698 035235 363 06 0 00 035237 SOJLE AC,.+2 ;C(AC)-1=1...NO SKIP
4699 035236 365 06 0 00 035240 SOJGE AC,.+2 ;C(AC)-1=0...SKIP
4700 035237 005 06 0 00 040347 ER AC,[ASCII /SOJ/]
4701 035240 312 06 0 00 040322 CAME AC,[0] ;C(AC) SHOULD=0
4702 035241 003 04 0 00 035237 ERRI RAN1,.-2
4703 035242 367 05 0 00 035233 SOJG AC-1,SOJGE2 ;ITERATION COUNTER.
4704 035243 321 05 0 00 035233 JUMPL AC-1,SOJGE2 ;LOOP ON ERROR SWITCH.
4705
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 101
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0132
4706
4707
4708 ;TEST AOS, SOSA. CHECK FOR SKIP/NO SKIP,
4709 ;CORRECT LOADING OF C(E) INTO AC, AND C(E)
4710 ;=ORIG. C(E) FOR C(E)=RAN
4711
4712
4713 000005 AC=5
4714 035244 ASSS1: SETUP 100,0^
4715 000006 AC1=<AC+1>&17
4716 000007 AC2=<AC+2>&17
4717 000010 AC3=<AC+3>&17
4718 000011 AC4=<AC+4>&17
4719 000012 AC5=<AC+5>&17
4720 000003 RAN1=<AC-2>&17
4721 035244 201 04 0 00 035244 MOVEI AC-1,.
4722 035245 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4723 035246 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4724 035247 202 04 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4725 035250 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4726 035251 240 04 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4727 035252 240 04 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4728 035253 ASSS2: RANDOM^
4729 035253 200 05 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4730 035254 270 05 0 00 040321 ADD AC,[142536475076]
4731 035255 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4732 035256 447 05 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
4733 035257 200 03 0 00 000006 ASSS3: MOVE RAN1,AC1 ;SAVE C(AC) IN CASE OF ERROR.
4734 035260 350 06 0 00 000005 AOS AC1,AC ;SHOULD NOT SKIP
4735 035261 374 06 0 00 000005 SOSA AC1,AC ;SHOULD SKIP
4736 035262 005 06 0 00 040334 ER AC1,[ASCII /AOS/]
4737 035263 312 06 0 00 000005 CAME AC1,AC ;C(AC) SHOULD=C(E)
4738 035264 011 00 0 00 000003 EERR ,RAN1
4739 035265 312 05 0 00 040444 CAME AC,RAN ;C(E) SHOULD=ORIG. C(E)
4740 035266 011 00 0 00 000003 EERR ,RAN1
4741 LOOP ASSS2,ASSS3^
4742 035267 367 04 0 00 035253 SOJG AC-1,ASSS2 ;ITERATION COUNTER
4743 035270 200 05 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4744 035271 321 04 0 00 035257 JUMPL AC-1,ASSS3 ;LOOP ON ERROR SWITCH ^
4745
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 102
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0133
4746
4747
4748 ;TEST AOJ, SOJA. CHECK FOR JUMP/NO JUMP AND
4749 ;C(AC)=ORIG C(AC) FOR C(AC) = RAN
4750
4751
4752 000006 AC=6
4753 035272 AJSJ1: SETUP 100,0^
4754 000007 AC1=<AC+1>&17
4755 000010 AC2=<AC+2>&17
4756 000011 AC3=<AC+3>&17
4757 000012 AC4=<AC+4>&17
4758 000013 AC5=<AC+5>&17
4759 000004 RAN1=<AC-2>&17
4760 035272 201 05 0 00 035272 MOVEI AC-1,.
4761 035273 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4762 035274 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4763 035275 202 05 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4764 035276 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4765 035277 240 05 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4766 035300 240 05 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4767 035301 AJSJ2: RANDOM^
4768 035301 200 06 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4769 035302 270 06 0 00 040321 ADD AC,[142536475076]
4770 035303 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4771 035304 447 06 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
4772 035305 340 06 0 00 035307 AJSJ3: AOJ AC,.+2 ;SHOULD NOT SKIP
4773 035306 364 06 0 00 035310 SOJA AC,.+2 ;SHOULD SKIP
4774 035307 005 06 0 00 040345 ER AC,[ASCII /AOJ/]
4775 035310 312 06 0 00 040444 CAME AC,RAN ;C(AC) SHOULD=ORIG C(AC)
4776 035311 013 00 0 00 035307 EERRI ,.-2
4777 LOOP AJSJ2,AJSJ3^
4778 035312 367 05 0 00 035301 SOJG AC-1,AJSJ2 ;ITERATION COUNTER
4779 035313 200 06 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4780 035314 321 05 0 00 035305 JUMPL AC-1,AJSJ3 ;LOOP ON ERROR SWITCH ^
4781
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 103
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0134
4782
4783
4784 ;TEST CAM, CAMA. CHECK FOR SKIP/NO SKIP AND
4785 ;C(AC) + C(E) NOT CHANGING WITH A FLOATING ONE
4786 ;IN C(E)
4787
4788
4789 000010 AC=10
4790 035315 CAM1: SETUP 100,0^
4791 000011 AC1=<AC+1>&17
4792 000012 AC2=<AC+2>&17
4793 000013 AC3=<AC+3>&17
4794 000014 AC4=<AC+4>&17
4795 000015 AC5=<AC+5>&17
4796 000006 RAN1=<AC-2>&17
4797 035315 201 07 0 00 035315 MOVEI AC-1,.
4798 035316 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4799 035317 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4800 035320 202 07 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4801 035321 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4802 035322 240 07 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4803 035323 240 07 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4804 035324 201 11 0 00 000001 MOVEI AC1,1 ;SETUP C(E) TO=A FLOATING ONE
4805 035325 CAM2: RANDOM^
4806 035325 200 10 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4807 035326 270 10 0 00 040321 ADD AC,[142536475076]
4808 035327 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4809 035330 447 10 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
4810 035331 241 11 0 00 000001 ROT AC1,1 ;ROT TO TEST NEXT BIT.
4811 035332 200 12 0 00 000011 MOVE AC2,AC1 ;SAVE FOR FUTURE COMPARE
4812 035333 200 11 0 00 000012 CAM3: MOVE AC1,AC2 ;RESTORE C(E) IF ERROR.
4813 035334 310 10 0 00 000011 CAM AC,AC1 ;SHOULD NOT SKIP.
4814 035335 314 10 0 00 000011 CAMA AC,AC1 ;SHOULD SKIP.
4815 035336 005 10 0 00 040350 ER AC,[ASCII /CAM/]
4816 035337 312 10 0 00 040444 CAME AC,RAN ;C(AC) SHOULD=ORIG C(AC).
4817 035340 001 12 0 00 040444 ERR AC2,RAN
4818 035341 312 11 0 00 000012 CAME AC1,AC2 ;C(E) SHOULD=ORIG C(E).
4819 035342 001 12 0 00 040444 ERR AC2,RAN
4820 LOOP CAM2,CAM3^
4821 035343 367 07 0 00 035325 SOJG AC-1,CAM2 ;ITERATION COUNTER
4822 035344 200 10 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4823 035345 321 07 0 00 035333 JUMPL AC-1,CAM3 ;LOOP ON ERROR SWITCH ^
4824
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 104
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0135
4825
4826
4827 ;TEST CAML,CAMG. CHECK FOR SKIP/NO SKIP AND
4828 ;C(AC)+C(E) NOT BEING CHANGED FOR+RAN1 TO -RAN CONDITION.
4829
4830
4831 000011 AC=11
4832 035346 CAML1: SETUP 100,0^
4833 000012 AC1=<AC+1>&17
4834 000013 AC2=<AC+2>&17
4835 000014 AC3=<AC+3>&17
4836 000015 AC4=<AC+4>&17
4837 000016 AC5=<AC+5>&17
4838 000007 RAN1=<AC-2>&17
4839 035346 201 10 0 00 035346 MOVEI AC-1,.
4840 035347 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4841 035350 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4842 035351 202 10 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4843 035352 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4844 035353 240 10 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4845 035354 240 10 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4846 035355 CAML2: RANDOM^
4847 035355 200 11 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4848 035356 270 11 0 00 040321 ADD AC,[142536475076]
4849 035357 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4850 035360 447 11 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
4851 035361 241 11 0 00 000011 CAML3: ROT AC,11 ;C(AC)=SECOND RAN. NUM.
4852 035362 200 12 0 00 040444 MOVE AC1,RAN ;C(E)=1'ST RAN. NUM
4853 035363 670 12 0 00 040327 TDO AC1,[XWD 400000,0];MAKE C(E) A NEG NUM.
4854 035364 630 11 0 00 040327 TDZ AC,[XWD 400000,0];MAKE C(AC) A POS. NUM.
4855 035365 200 07 0 00 000011 MOVE RAN1,AC ;SAVE C(AC) FOR FUTURE COMPARE
4856 035366 200 13 0 00 000012 MOVE AC2,AC1 ;SAVE C(E) FOr FUTURE COMPARE
4857 035367 311 11 0 00 000012 CAML AC,AC1 ;C(AC)>C(E)...NO SKIP.
4858 035370 317 11 0 00 000012 CAMG AC,AC1 ;C(AC)>C(E)...SKIP
4859 035371 005 11 0 00 040350 ER AC,[ASCII /CAM/]
4860 035372 312 11 0 00 000007 CAME AC,RAN1 ;C(AC) SHOULD=ORIG. C(AC)
4861 035373 001 13 0 00 000007 ERR AC2,RAN1
4862 035374 312 12 0 00 000013 CAME AC1,AC2 ;C(E) SHOULD=ORIG. C(E)
4863 035375 001 13 0 00 000007 ERR AC2,RAN1
4864 LOOP CAML2,CAML3^
4865 035376 367 10 0 00 035355 SOJG AC-1,CAML2 ;ITERATION COUNTER
4866 035377 200 11 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4867 035400 321 10 0 00 035361 JUMPL AC-1,CAML3 ;LOOP ON ERROR SWITCH ^
4868
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 105
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0136
4869
4870
4871 ;TEST CAMLE,CAMG. CHECK FOR SKIP/NO SKIP AND
4872 ;C(AC)+C(E) NOT BEING CHANGED FOR +RAN1 TO -RAN CONDITION.
4873
4874
4875 000002 AC=2
4876 035401 CAMLE1: SETUP 100,0^
4877 000003 AC1=<AC+1>&17
4878 000004 AC2=<AC+2>&17
4879 000005 AC3=<AC+3>&17
4880 000006 AC4=<AC+4>&17
4881 000007 AC5=<AC+5>&17
4882 000000 RAN1=<AC-2>&17
4883 035401 201 01 0 00 035401 MOVEI AC-1,.
4884 035402 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4885 035403 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4886 035404 202 01 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4887 035405 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4888 035406 240 01 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4889 035407 240 01 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4890 035410 CAMLE2: RANDOM^
4891 035410 200 02 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4892 035411 270 02 0 00 040321 ADD AC,[142536475076]
4893 035412 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4894 035413 447 02 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
4895 035414 241 02 0 00 000011 CAMLE3: ROT AC,11 ;C(AC)=SECOND RAN. NUM.
4896 035415 200 03 0 00 040444 MOVE AC1,RAN ;C(E)=1'ST RAN. NUM.
4897 035416 670 03 0 00 040327 TDO AC1,[XWD 400000,0];MAKE C(E) A NEG NUM.
4898 035417 630 02 0 00 040327 TDZ AC,[XWD 400000,0];MAKE C(AC) A POS. NUM.
4899 035420 200 00 0 00 000002 MOVE RAN1,AC ;SAVE C(AC) FOR FUTURE COMPARE.
4900 035421 200 04 0 00 000003 MOVE AC2,AC1 ;SAVE C(E) FOR FUTURE COMPARE
4901 035422 313 02 0 00 000003 CAMLE AC,AC1 ;C(AC)>C(E). NO SKIP.
4902 035423 317 02 0 00 000003 CAMG AC,AC1 ;C(AC)>C(E). SKIP
4903 035424 005 02 0 00 040350 ER AC,[ASCII /CAM/]
4904 035425 312 02 0 00 000000 CAME AC,RAN1 ;C(AC) SHOULD=ORIG. C(AC).
4905 035426 001 04 0 00 000000 ERR AC2,RAN1
4906 035427 312 03 0 00 000004 CAME AC1,AC2 ;C(E) SHOULD=ORIG C(E)
4907 035430 001 04 0 00 000000 ERR AC2,RAN1
4908 LOOP CAMLE2,CAMLE3^
4909 035431 367 01 0 00 035410 SOJG AC-1,CAMLE2 ;ITERATION COUNTER
4910 035432 200 02 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4911 035433 321 01 0 00 035414 JUMPL AC-1,CAMLE3 ;LOOP ON ERROR SWITCH ^
4912
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 106
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0137
4913
4914
4915 ;TEST CAML, CAMGE. CHECK FOR SKIP/ NO SKIP AND
4916 ;C(AC)+C(E) NOT BEING CHANGED FOR -RAN TO +RAN1 CONDITION
4917
4918
4919 000003 AC=3
4920 035434 CAMGE1: SETUP 100,0^
4921 000004 AC1=<AC+1>&17
4922 000005 AC2=<AC+2>&17
4923 000006 AC3=<AC+3>&17
4924 000007 AC4=<AC+4>&17
4925 000010 AC5=<AC+5>&17
4926 000001 RAN1=<AC-2>&17
4927 035434 201 02 0 00 035434 MOVEI AC-1,.
4928 035435 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4929 035436 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4930 035437 202 02 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4931 035440 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4932 035441 240 02 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4933 035442 240 02 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4934 035443 CAMGE2: RANDOM^
4935 035443 200 03 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4936 035444 270 03 0 00 040321 ADD AC,[142536475076]
4937 035445 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4938 035446 447 03 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
4939 035447 241 03 0 00 000011 CAMGE3: ROT AC,11 ;C(E)=SECOND RAN. NUM
4940 035450 200 04 0 00 040444 MOVE AC1,RAN ;C(AC)=1'ST RAN NUM
4941 035451 670 04 0 00 040327 TDO AC1,[XWD 400000,0];MAKE C(AC) A NEG NUM.
4942 035452 630 03 0 00 040327 TDZ AC,[XWD 400000,0];MAKE C(E) A POS. NUM.
4943 035453 200 01 0 00 000003 MOVE RAN1,AC ;SAVE C(E) FOR FUTURE COMPARE
4944 035454 200 05 0 00 000004 MOVE AC2,AC1 ;SAVE C(AC) FOR FUTURE COMPARE
4945 035455 315 04 0 00 000003 CAMGE AC1,AC ;C(AC)<C(E)...NO SKIP
4946 035456 311 04 0 00 000003 CAML AC1,AC ;C(AC)<C(E)...SKIP
4947 035457 005 04 0 00 040350 ER AC1,[ASCII /CAM/]
4948 035460 312 04 0 00 000005 CAME AC1,AC2 ;C(AC) SHOULD=ORIG. C(AC)
4949 035461 001 01 0 00 000005 ERR RAN1,AC2
4950 035462 312 01 0 00 000003 CAME RAN1,AC ;C(E) SHOULD=ORIG. C(E)
4951 035463 001 05 0 00 000001 ERR AC2,RAN1
4952 LOOP CAMGE2,CAMGE3^
4953 035464 367 02 0 00 035443 SOJG AC-1,CAMGE2 ;ITERATION COUNTER
4954 035465 200 03 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4955 035466 321 02 0 00 035447 JUMPL AC-1,CAMGE3 ;LOOP ON ERROR SWITCH ^
4956
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 107
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0138
4957
4958
4959 ;TEST CAMG, CAMGE. CHECK FOR SKIP/NO SKIP AND
4960 ;C(AC) NOT BEING CHANGED FOR RAN TO RAN CONDITION
4961
4962
4963 000004 AC=4
4964 035467 CAMG1: SETUP 100,0^
4965 000005 AC1=<AC+1>&17
4966 000006 AC2=<AC+2>&17
4967 000007 AC3=<AC+3>&17
4968 000010 AC4=<AC+4>&17
4969 000011 AC5=<AC+5>&17
4970 000002 RAN1=<AC-2>&17
4971 035467 201 03 0 00 035467 MOVEI AC-1,.
4972 035470 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4973 035471 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4974 035472 202 03 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4975 035473 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4976 035474 240 03 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4977 035475 240 03 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4978 035476 CAMG2: RANDOM^
4979 035476 200 04 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4980 035477 270 04 0 00 040321 ADD AC,[142536475076]
4981 035500 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4982 035501 447 04 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
4983 035502 317 04 0 00 040444 CAMG3: CAMG AC,RAN ;C(AC)=C(E)...NO SKIP.
4984 035503 315 04 0 00 040444 CAMGE AC,RAN ;C(AC)=C(E)...SKIP
4985 035504 005 04 0 00 040350 ER AC,[ASCII /CAM/]
4986 035505 312 04 0 00 040444 CAME AC,RAN ;C(AC) SHOULD=ORIG.C(AC).
4987 035506 011 00 0 00 040444 EERR ,RAN
4988 LOOP CAMG2,CAMG3^
4989 035507 367 03 0 00 035476 SOJG AC-1,CAMG2 ;ITERATION COUNTER
4990 035510 200 04 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4991 035511 321 03 0 00 035502 JUMPL AC-1,CAMG3 ;LOOP ON ERROR SWITCH ^
4992
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 108
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0139
4993
4994
4995 ;TEST CAML,CAMLE. CHECK FOR SKIP/NO SKIP AND
4996 ;C(AC)+C(E) NOT BEING CHANGED FOR RAN TO RAN CONDITION
4997
4998
4999 000005 AC=5
5000 035512 CAMLA: SETUP 100,0^
5001 000006 AC1=<AC+1>&17
5002 000007 AC2=<AC+2>&17
5003 000010 AC3=<AC+3>&17
5004 000011 AC4=<AC+4>&17
5005 000012 AC5=<AC+5>&17
5006 000003 RAN1=<AC-2>&17
5007 035512 201 04 0 00 035512 MOVEI AC-1,.
5008 035513 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5009 035514 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5010 035515 202 04 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5011 035516 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5012 035517 240 04 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5013 035520 240 04 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5014 035521 CAMLB: RANDOM^
5015 035521 200 05 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5016 035522 270 05 0 00 040321 ADD AC,[142536475076]
5017 035523 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5018 035524 447 05 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
5019 035525 311 05 0 00 040444 CAMLC: CAML AC,RAN ;C(AC)=C(E)...NO SKIP.
5020 035526 313 05 0 00 040444 CAMLE AC,RAN ;C(AC)=C(E)...SKIP
5021 035527 005 05 0 00 040350 ER AC,[ASCII /CAM/]
5022 035530 312 05 0 00 040444 CAME AC,RAN ;C(AC) SHOULD=ORIG.C(AC).
5023 035531 011 00 0 00 040444 EERR ,RAN
5024 LOOP CAMLB,CAMLC^
5025 035532 367 04 0 00 035521 SOJG AC-1,CAMLB ;ITERATION COUNTER
5026 035533 200 05 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5027 035534 321 04 0 00 035525 JUMPL AC-1,CAMLC ;LOOP ON ERROR SWITCH ^
5028
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 109
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0140
5029
5030
5031 ;TEST CAI,CAIA. CHECK FOR SKIP/NO SKIP AND
5032 ;C(AC) NOT BEING CHANGED FOR RAN TO RAN1 CONDITION
5033
5034
5035 000006 AC=6
5036 035535 CAI1: SETUP 100,0^
5037 000007 AC1=<AC+1>&17
5038 000010 AC2=<AC+2>&17
5039 000011 AC3=<AC+3>&17
5040 000012 AC4=<AC+4>&17
5041 000013 AC5=<AC+5>&17
5042 000004 RAN1=<AC-2>&17
5043 035535 201 05 0 00 035535 MOVEI AC-1,.
5044 035536 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5045 035537 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5046 035540 202 05 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5047 035541 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5048 035542 240 05 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5049 035543 240 05 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5050 035544 CAI2: RANDOM^
5051 035544 200 06 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5052 035545 270 06 0 00 040321 ADD AC,[142536475076]
5053 035546 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5054 035547 447 06 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
5055 035550 200 07 0 00 000006 MOVE AC1,AC ;SAVE E.
5056 035551 241 06 0 00 000011 CAI3: ROT AC,11 ;C(AC)=SECOND RAN.NUM
5057 035552 201 06 0 06 000000 MOVEI AC,(AC) ;CLEAR LEFT HALF FOR CAI INST.
5058 035553 200 04 0 00 000006 MOVE RAN1,AC ;SAVE C(AC) FOR FUTURE COMPARE
5059 035554 300 06 0 07 000000 CAI AC,(AC1) ;SHOULD NOT SKIP.
5060 035555 304 06 0 07 000000 CAIA AC,(AC1) ;SHOULD ALWAYS SKIP.
5061 035556 005 06 0 00 040351 ER AC,[ASCII /CAI/]
5062 035557 312 06 0 00 000004 CAME AC,RAN1 ;C(AC) SHOULD =ORIG. C(AC)
5063 035560 003 04 0 07 000000 ERRI RAN1,(AC1)
5064 LOOP CAI2,CAI3^
5065 035561 367 05 0 00 035544 SOJG AC-1,CAI2 ;ITERATION COUNTER
5066 035562 200 06 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5067 035563 321 05 0 00 035551 JUMPL AC-1,CAI3 ;LOOP ON ERROR SWITCH ^
5068
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 110
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0141
5069
5070
5071 ;TEST CAIE, CAIN. CHECK FOR SKIP/NO SKIP AND
5072 ;C(AC) NOT BEING CHANGED FOR RAN TO RAN1 CONDITION.
5073
5074
5075 000007 AC=7
5076 035564 CAIE1: SETUP 100,0^
5077 000010 AC1=<AC+1>&17
5078 000011 AC2=<AC+2>&17
5079 000012 AC3=<AC+3>&17
5080 000013 AC4=<AC+4>&17
5081 000014 AC5=<AC+5>&17
5082 000005 RAN1=<AC-2>&17
5083 035564 201 06 0 00 035564 MOVEI AC-1,.
5084 035565 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5085 035566 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5086 035567 202 06 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5087 035570 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5088 035571 240 06 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5089 035572 240 06 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5090 035573 CAIE2: RANDOM^
5091 035573 200 07 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5092 035574 270 07 0 00 040321 ADD AC,[142536475076]
5093 035575 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5094 035576 447 07 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
5095 035577 200 10 0 00 040444 MOVE AC1,RAN ;SAVE E.
5096 035600 201 07 0 07 000000 CAIE3: MOVEI AC,(AC) ;CLEAR LEFT SIDE FOR CAI INST.
5097 035601 430 07 0 00 040352 XOR AC,[3154] ;MAKE SURE C(AC) AND E ARE DIFFERENT.
5098 035602 200 05 0 00 000007 MOVE RAN1,AC ;SAVE FOR FUTURE COMPARE
5099 035603 302 07 0 10 000000 CAIE AC,(AC1) ;C(AC) NOT = E...NO SKIP.
5100 035604 306 07 0 10 000000 CAIN AC,(AC1) ;C(AC) NOT = E...SKIP.
5101 035605 005 07 0 00 040351 ER AC,[ASCII /CAI/]
5102 035606 312 07 0 00 000005 CAME AC,RAN1 ;C(AC) SHOULD = ORIG. C(AC).
5103 035607 003 05 0 10 000000 ERRI RAN1,(AC1)
5104 LOOP CAIE2,CAIE3^
5105 035610 367 06 0 00 035573 SOJG AC-1,CAIE2 ;ITERATION COUNTER
5106 035611 200 07 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5107 035612 321 06 0 00 035600 JUMPL AC-1,CAIE3 ;LOOP ON ERROR SWITCH ^
5108
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 111
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0142
5109
5110
5111 ;TEST CAIE, CAIN. CHECK FOR SKIP/NO SKIP AND
5112 ;C(AC) NOT BEING CHANGED FOR RAN TO RAN CONDITION.
5113
5114
5115 000010 AC=10
5116 035613 CAIN1: SETUP 100,0^
5117 000011 AC1=<AC+1>&17
5118 000012 AC2=<AC+2>&17
5119 000013 AC3=<AC+3>&17
5120 000014 AC4=<AC+4>&17
5121 000015 AC5=<AC+5>&17
5122 000006 RAN1=<AC-2>&17
5123 035613 201 07 0 00 035613 MOVEI AC-1,.
5124 035614 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5125 035615 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5126 035616 202 07 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5127 035617 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5128 035620 240 07 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5129 035621 240 07 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5130 035622 CAIN2: RANDOM^
5131 035622 200 10 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5132 035623 270 10 0 00 040321 ADD AC,[142536475076]
5133 035624 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5134 035625 447 10 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
5135 035626 200 11 0 00 040444 MOVE AC1,RAN ;SAVE E.
5136 035627 201 10 0 10 000000 CAIN3: MOVEI AC,(AC) ;MAKE C(AC) = E.
5137 035630 200 06 0 00 000010 MOVE RAN1,AC ;SAVE FOR FUTURE COMPARE
5138 035631 306 10 0 11 000000 CAIN AC,(AC1) ;C(AC) = E...NO SKIP.
5139 035632 302 10 0 11 000000 CAIE AC,(AC1) ;C(AC) = E...SKIP.
5140 035633 005 10 0 00 040351 ER AC,[ASCII /CAI/]
5141 035634 312 10 0 00 000006 CAME AC,RAN1 ;C(AC) SHOULD=ORIG. C(AC).
5142 035635 003 06 0 11 000000 ERRI RAN1,(AC1)
5143 LOOP CAIN2,CAIN3^
5144 035636 367 07 0 00 035622 SOJG AC-1,CAIN2 ;ITERATION COUNTER
5145 035637 200 10 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5146 035640 321 07 0 00 035627 JUMPL AC-1,CAIN3 ;LOOP ON ERROR SWITCH ^
5147
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 112
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0143
5148
5149
5150 ;TEST CAIL,CAIG. CHECK FOR SKIP/NO SKIP AND
5151 ;C(AC) NOT BEING CHANGED FOR C(AC) = 2,4,10,20, AND ETC,
5152 ;AND E = 1,3,7,17,37,AND ETC.
5153
5154
5155 000011 AC=11
5156 035641 CAIL1: SETUP 100,0^
5157 000012 AC1=<AC+1>&17
5158 000013 AC2=<AC+2>&17
5159 000014 AC3=<AC+3>&17
5160 000015 AC4=<AC+4>&17
5161 000016 AC5=<AC+5>&17
5162 000007 RAN1=<AC-2>&17
5163 035641 201 10 0 00 035641 MOVEI AC-1,.
5164 035642 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5165 035643 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5166 035644 202 10 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5167 035645 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5168 035646 240 10 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5169 035647 240 10 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5170 035650 201 11 0 00 000001 MOVEI AC,1 ;SETUP E TO = 1 LESS
5171 035651 201 12 0 00 000002 MOVEI AC1,2 ;THAN C(AC).
5172 035652 245 11 0 00 000001 CAIL2: ROTC AC,1 ;ROT TO TEST NEXT BITS.
5173 035653 434 11 0 00 040340 IOR AC,[1] ;SET SO E WILL = 1,3,7,17,AND ETC.
5174 035654 612 12 0 00 040353 TDNE AC1,[XWD 1,0] ;BIT INTO LEFT HAND SIDE?
5175 035655 254 00 0 00 035650 JRST .-5 ;YES. REINITIALIZE NUMBERS.
5176 035656 200 07 0 00 000012 MOVE RAN1,AC1 ;SAVE C(AC) SO IT CAN BE RESTORED
5177 035657 200 13 0 00 000011 MOVE AC2,AC ;SAVE C(E) SO IT CAN BE RESTORED
5178 035660 200 12 0 00 000007 CAIL3: MOVE AC1,RAN1 ;IN CASE OF ERROR.
5179 035661 301 12 0 11 000000 CAIL AC1,(AC) ;C(AC) > E...NO SKIP.
5180 035662 307 12 0 11 000000 CAIG AC1,(AC) ;C(AC) > E...SKIP.
5181 035663 005 12 0 00 040351 ER AC1,[ASCII /CAI/]
5182 035664 312 12 0 00 000007 CAME AC1,RAN1 ;C(AC) SHOULD = ORIG. C(AC).
5183 035665 003 07 0 11 000000 ERRI RAN1,(AC)
5184 035666 367 10 0 00 035652 SOJG AC-1,CAIL2 ;ITERATION COUNTER.
5185 035667 200 11 0 00 000013 MOVE AC,AC2 ;RESTORE C(E).
5186 035670 321 10 0 00 035660 JUMPL AC-1,CAIL3 ;LOOP ON ERROR SWITCH.
5187
5188
5189
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 113
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0144
5190
5191
5192 ;TEST CAIG, CAIL. CHECK FOR SKIP/NO SKIP AND
5193 ;C(AC) NOT BEING CHANGED FOR C(AC) = 1,3,7,17,37,AND ETC,
5194 ;AND E = 2,4,10,20,AND ETC.
5195
5196
5197 000012 AC=12
5198 035671 CAIG1: SETUP 100,0^
5199 000013 AC1=<AC+1>&17
5200 000014 AC2=<AC+2>&17
5201 000015 AC3=<AC+3>&17
5202 000016 AC4=<AC+4>&17
5203 000017 AC5=<AC+5>&17
5204 000010 RAN1=<AC-2>&17
5205 035671 201 11 0 00 035671 MOVEI AC-1,.
5206 035672 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5207 035673 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5208 035674 202 11 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5209 035675 201 11 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5210 035676 240 11 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5211 035677 240 11 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5212 035700 201 12 0 00 000001 MOVEI AC,1 ;SETUP C(AC) TO = 1.
5213 035701 201 13 0 00 000002 MOVEI AC1,2 ;SETUP E TO = 2.
5214 035702 245 12 0 00 000001 CAIG2: ROTC AC,1 ;ROT SO C(AC)=2, E=4.
5215 035703 434 12 0 00 040340 IOR AC,[1] ;SET BIT 35 SO C(AC) = 3,7,17.
5216 035704 612 13 0 00 040353 TDNE AC1,[XWD 1,0] ;BIT INTO LEFT HAND SIDE?
5217 035705 254 00 0 00 035700 JRST .-5 ;YES. REINITIALIZE NUMBERS.
5218 035706 200 10 0 00 000012 MOVE RAN1,AC ;SAVE C(AC) SO IT CAN
5219 035707 200 14 0 00 000013 MOVE AC2,AC1 ;AND C(E) CAN
5220 035710 200 12 0 00 000010 CAIG3: MOVE AC,RAN1 ;BE RESTORED IN CASE OF ERROR.
5221 035711 307 12 0 13 000000 CAIG AC,(AC1) ;C(AC) < E...NO SKIP.
5222 035712 301 12 0 13 000000 CAIL AC,(AC1) ;C(AC) < E...SKIP.
5223 035713 005 12 0 00 040351 ER AC,[ASCII /CAI/]
5224 035714 312 12 0 00 000010 CAME AC,RAN1
5225 035715 003 10 0 13 000000 ERRI RAN1,(AC1)
5226 035716 367 11 0 00 035702 SOJG AC-1,CAIG2 ;ITERATION COUNTER.
5227 035717 200 12 0 00 000014 MOVE AC,AC2 ;RESTORE C(E).
5228 035720 321 11 0 00 035710 JUMPL AC-1,CAIG3 ;LOOP ON ERROR SWITCH.
5229
5230
5231
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 114
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0145
5232
5233
5234 ;TEST CAIG, CAIGE. CHECK FOR SKIP/NO SKIP AND
5235 ;C(AC) NOT BEING CHANGED FOR RAN TO RAN CONDITION.
5236
5237
5238 000013 AC=13
5239 035721 CAIGE1: SETUP 100,0^
5240 000014 AC1=<AC+1>&17
5241 000015 AC2=<AC+2>&17
5242 000016 AC3=<AC+3>&17
5243 000017 AC4=<AC+4>&17
5244 000000 AC5=<AC+5>&17
5245 000011 RAN1=<AC-2>&17
5246 035721 201 12 0 00 035721 MOVEI AC-1,.
5247 035722 202 12 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5248 035723 201 12 0 00 000012 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5249 035724 202 12 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5250 035725 201 12 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5251 035726 240 12 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5252 035727 240 12 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5253 035730 CAIGE2: RANDOM^
5254 035730 200 13 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5255 035731 270 13 0 00 040321 ADD AC,[142536475076]
5256 035732 241 13 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5257 035733 447 13 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
5258 035734 200 14 0 00 040444 MOVE AC1,RAN ;SAVE E.
5259 035735 201 13 0 14 000000 CAIGE3: MOVEI AC,(AC1) ;MAKE C(AC) = E.
5260 035736 200 11 0 00 000013 MOVE RAN1,AC ;SAVE C(AC) FOR FUTURE COMPARE
5261 035737 307 13 0 14 000000 CAIG AC,(AC1) ;C(AC) = E...NO SKIP.
5262 035740 305 13 0 14 000000 CAIGE AC,(AC1) ;C(AC) = E...SKIP.
5263 035741 005 13 0 00 040351 ER AC,[ASCII /CAI/]
5264 035742 312 13 0 00 000011 CAME AC,RAN1 ;C(AC) SHOULD=ORIG. C(AC)
5265 035743 003 11 0 14 000000 ERRI RAN1,(AC1)
5266 035744 367 12 0 00 035730 SOJG AC-1,CAIGE2 ;ITERATION COUNTER.
5267 035745 321 12 0 00 035735 JUMPL AC-1,CAIGE3 ;LOOP ON ERROR SWITCH.
5268
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 115
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0146
5269
5270
5271 ;TEST CAIL, CAILE. CHECK FOR SKIP/NO SKIP AND
5272 ;C(AC) NOT CHANGEING FOR RAN TO RAN CONDITION
5273
5274
5275 000014 AC=14
5276 035746 CAILE1: SETUP 100,0^
5277 000015 AC1=<AC+1>&17
5278 000016 AC2=<AC+2>&17
5279 000017 AC3=<AC+3>&17
5280 000000 AC4=<AC+4>&17
5281 000001 AC5=<AC+5>&17
5282 000012 RAN1=<AC-2>&17
5283 035746 201 13 0 00 035746 MOVEI AC-1,.
5284 035747 202 13 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5285 035750 201 13 0 00 000013 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5286 035751 202 13 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5287 035752 201 13 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5288 035753 240 13 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5289 035754 240 13 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5290 035755 CAILE2: RANDOM^
5291 035755 200 14 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5292 035756 270 14 0 00 040321 ADD AC,[142536475076]
5293 035757 241 14 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5294 035760 447 14 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
5295 035761 200 15 0 00 040444 MOVE AC1,RAN ;SAVE E.
5296 035762 201 14 0 15 000000 CAILE3: MOVEI AC,(AC1) ;MAKE C(AC) = E.
5297 035763 200 12 0 00 000014 MOVE RAN1,AC ;SAVE FOR FUTURE COMPARE
5298 035764 301 14 0 15 000000 CAIL AC,(AC1) ;C(AC) = E...NO SKIP.
5299 035765 303 14 0 15 000000 CAILE AC,(AC1) ;C(AC) = E...SKIP.
5300 035766 005 14 0 00 040351 ER AC,[ASCII /CAI/]
5301 035767 312 14 0 00 000012 CAME AC,RAN1 ;C(AC) SHOULD=ORIG. C(AC).
5302 035770 003 12 0 15 000000 ERRI RAN1,(AC1)
5303 035771 367 13 0 00 035755 SOJG AC-1,CAILE2 ;ITERATION COUNTER.
5304 035772 321 13 0 00 035762 JUMPL AC-1,CAILE3 ;LOOP ON ERROR SWITCH.
5305
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 116
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0147
5306
5307
5308 ;TEST CAIGE, CAIL. CHECK FOR SKIP/NO SKIP AND
5309 ;C(AC) NOT CHANGING FOR C(AC) = 1,3,7,17,AND ETC,
5310 ;AND E = 2,4,10,20,AND ETC.
5311
5312
5313 000015 AC=15
5314 035773 CAILA: SETUP 100,0^
5315 000016 AC1=<AC+1>&17
5316 000017 AC2=<AC+2>&17
5317 000000 AC3=<AC+3>&17
5318 000001 AC4=<AC+4>&17
5319 000002 AC5=<AC+5>&17
5320 000013 RAN1=<AC-2>&17
5321 035773 201 14 0 00 035773 MOVEI AC-1,.
5322 035774 202 14 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5323 035775 201 14 0 00 000014 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5324 035776 202 14 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5325 035777 201 14 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5326 036000 240 14 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5327 036001 240 14 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5328 036002 201 15 0 00 000001 MOVEI AC,1 ;SETUP C(AC) TO = 1 LESS
5329 036003 201 16 0 00 000002 MOVEI AC1,2 ;THAN E.
5330 036004 245 15 0 00 000001 CAILB: ROTC AC,1 ;ROT TO TEST NEXT BITS.
5331 036005 434 15 0 00 040340 IOR AC,[1] ;SET SO C(AC) = 1,3,7,17,AND ETC.
5332 036006 612 16 0 00 040353 TDNE AC1,[XWD 1,0] ;BIT GONE INTO LEFT HAND SIDE?
5333 036007 254 00 0 00 036002 JRST .-5 ;YES. REINITIALIZE NUMBERS.
5334 036010 200 13 0 00 000015 MOVE RAN1,AC ;SAVE C(AC) FOR FUTURE COMPARE.
5335 036011 200 15 0 00 000013 CAILC: MOVE AC,RAN1 ;RESTORE AC IN CASE OF ERROR.
5336 036012 305 15 0 16 000000 CAIGE AC,(AC1) ;C(AC) < E...NO SKIP.
5337 036013 301 15 0 16 000000 CAIL AC,(AC1) ;C(AC) < E...SKIP.
5338 036014 005 15 0 00 040351 ER AC,[ASCII /CAI/]
5339 036015 312 15 0 00 000013 CAME AC,RAN1 ;C(AC) SHOULD = ORIG. C(AC).
5340 036016 003 13 0 16 000000 ERRI RAN1,(AC1)
5341 036017 367 14 0 00 036004 SOJG AC-1,CAILB ;ITERATION COUNTER.
5342 036020 321 14 0 00 036011 JUMPL AC-1,CAILC ;LOOP ON ERROR SWITCH.
5343
5344
5345
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 117
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0148
5346
5347
5348 ;TEST CAILE, CAIG. CHECK FOR SKIP/NO SKIP AND
5349 ;C(AC) NOT BEING CHANGED FOR C(AC) =2,4,10,20, AND ETC,
5350 ;AND E = 1,3,7,17,AND ETC.
5351
5352
5353 000006 AC=6
5354 036021 CAIGA: SETUP 100,0^
5355 000007 AC1=<AC+1>&17
5356 000010 AC2=<AC+2>&17
5357 000011 AC3=<AC+3>&17
5358 000012 AC4=<AC+4>&17
5359 000013 AC5=<AC+5>&17
5360 000004 RAN1=<AC-2>&17
5361 036021 201 05 0 00 036021 MOVEI AC-1,.
5362 036022 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5363 036023 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5364 036024 202 05 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5365 036025 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5366 036026 240 05 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5367 036027 240 05 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5368 036030 201 06 0 00 000001 MOVEI AC,1 ;SETUP E TO = 1 LESS
5369 036031 201 07 0 00 000002 MOVEI AC1,2 ;THAN C(AC).
5370 036032 245 06 0 00 000001 CAIGB: ROTC AC,1 ;ROT TO TEST NEXT BITS.
5371 036033 434 06 0 00 040340 IOR AC,[1] ;SET SO E WILL = 1,3,7,AND ETC.
5372 036034 612 07 0 00 040353 TDNE AC1,[XWD 1,0] ;BIT INTO LEFT HAND SIDE?
5373 036035 254 00 0 00 036030 JRST .-5 ;YES. REINITIALIZE NUMBERS.
5374 036036 200 04 0 00 000007 MOVE RAN1,AC1 ;SAVE C(AC) FOR FUTURE COMPARE.
5375 036037 200 07 0 00 000004 CAIGC: MOVE AC1,RAN1 ;RESTORE IN CASE OF ERROR.
5376 036040 303 07 0 06 000000 CAILE AC1,(AC) ;C(AC) > E...NO SKIP.
5377 036041 307 07 0 06 000000 CAIG AC1,(AC) ;C(AC) > E...SKIP.
5378 036042 005 07 0 00 040351 ER AC1,[ASCII /CAI/]
5379 036043 312 07 0 00 000004 CAME AC1,RAN1 ;C(AC) SHOULD = ORIG. C(AC).
5380 036044 003 04 0 06 000000 ERRI RAN1,(AC)
5381 036045 367 05 0 00 036032 SOJG AC-1,CAIGB ;ITERATION COUNTER.
5382 036046 321 05 0 00 036037 JUMPL AC-1,CAIGC ;LOOP ON ERROR SWITCH.
5383
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 118
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0149
5384
5385
5386 ;TEST ANDI. CHECK FOR CORRECT DATA IN AC.
5387 ;RAN TO RAN1
5388
5389
5390 000010 AC=10
5391 036047 ANDI4: SETUP 200,1^
5392 000011 AC1=<AC+1>&17
5393 000012 AC2=<AC+2>&17
5394 000013 AC3=<AC+3>&17
5395 000014 AC4=<AC+4>&17
5396 000015 AC5=<AC+5>&17
5397 000006 RAN1=<AC-2>&17
5398 036047 201 07 0 00 036047 MOVEI AC-1,.
5399 036050 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5400 036051 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5401 036052 202 07 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5402 036053 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5403 036054 240 07 1 00 030667 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
5404 036055 240 07 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5405 036056 ANDI5: RANDOM^
5406 036056 200 10 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5407 036057 270 10 0 00 040321 ADD AC,[142536475076]
5408 036060 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5409 036061 447 10 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
5410 036062 200 12 0 00 040444 MOVE AC2,RAN ;SAVE E.
5411 036063 207 06 0 00 000010 ANDI6: MOVSS RAN1,AC ;MAKE C(AC) = SEC. RAN. NUM.
5412 036064 201 11 0 12 000000 MOVEI AC1,(AC2) ;SIMULTE
5413 036065 470 11 0 00 000010 ORCB AC1,AC ;AN
5414 036066 450 11 0 00 000000 SETCA AC1, ;ANDI
5415 036067 405 10 0 12 000000 ANDI AC,(AC2) ;DO ANDI.
5416 036070 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
5417 036071 003 06 0 12 000000 ERRI RAN1,(AC2)
5418 LOOP ANDI5,ANDI6^
5419 036072 367 07 0 00 036056 SOJG AC-1,ANDI5 ;ITERATION COUNTER
5420 036073 200 10 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5421 036074 321 07 0 00 036063 JUMPL AC-1,ANDI6 ;LOOP ON ERROR SWITCH ^
5422
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 119
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0150
5423
5424
5425 ;TEST ANDCAI. CHECK C(AC) FOR CORRECT DATA
5426 ;RAN TO RAN1
5427
5428
5429 000011 AC=11
5430 036075 ANCAI4: SETUP 200,1^
5431 000012 AC1=<AC+1>&17
5432 000013 AC2=<AC+2>&17
5433 000014 AC3=<AC+3>&17
5434 000015 AC4=<AC+4>&17
5435 000016 AC5=<AC+5>&17
5436 000007 RAN1=<AC-2>&17
5437 036075 201 10 0 00 036075 MOVEI AC-1,.
5438 036076 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5439 036077 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5440 036100 202 10 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5441 036101 201 10 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5442 036102 240 10 1 00 030667 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
5443 036103 240 10 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5444 036104 ANCAI5: RANDOM^
5445 036104 200 11 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5446 036105 270 11 0 00 040321 ADD AC,[142536475076]
5447 036106 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5448 036107 447 11 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
5449 036110 200 13 0 00 040444 MOVE AC2,RAN ;SAVE E.
5450 036111 207 07 0 00 000011 ANCAI6: MOVSS RAN1,AC ;MAKE C(AC) A DIFF. RAN. NUM.
5451 036112 201 12 0 13 000000 MOVEI AC1,(AC2) ;SIMULTE AN
5452 036113 454 12 0 00 000011 ORCA AC1,AC ;ANDCAI
5453 036114 450 12 0 00 000000 SETCA AC1, ;INST
5454 036115 411 11 0 12 000000 ANDCAI AC,(AC1) ;DO ANDCAI.
5455 036116 312 11 0 00 000012 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
5456 036117 003 07 0 13 000000 ERRI RAN1,(AC2)
5457 LOOP ANCAI5,ANCAI6^
5458 036120 367 10 0 00 036104 SOJG AC-1,ANCAI5 ;ITERATION COUNTER
5459 036121 200 11 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5460 036122 321 10 0 00 036111 JUMPL AC-1,ANCAI6 ;LOOP ON ERROR SWITCH ^
5461
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 120
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0151
5462
5463
5464 ;TEST SETMI, CHECK C(AC) FOR CORRECT DATA
5465 ;RAN TO RAN1
5466
5467
5468 000002 AC=2
5469 036123 STMI4: SETUP 100,0^
5470 000003 AC1=<AC+1>&17
5471 000004 AC2=<AC+2>&17
5472 000005 AC3=<AC+3>&17
5473 000006 AC4=<AC+4>&17
5474 000007 AC5=<AC+5>&17
5475 000000 RAN1=<AC-2>&17
5476 036123 201 01 0 00 036123 MOVEI AC-1,.
5477 036124 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5478 036125 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5479 036126 202 01 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5480 036127 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5481 036130 240 01 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5482 036131 240 01 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5483 036132 STMI5: RANDOM^
5484 036132 200 02 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5485 036133 270 02 0 00 040321 ADD AC,[142536475076]
5486 036134 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5487 036135 447 02 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
5488 036136 200 04 0 00 040444 MOVE AC2,RAN ;SAVE E.
5489 036137 207 00 0 00 000002 STMI6: MOVSS RAN1,AC ;MAKE C(AC) A DIFF. RAN. NUM.
5490 036140 201 03 0 04 000000 MOVEI AC1,(AC2) ;SETMI = MOVEI.
5491 036141 415 02 0 04 000000 SETMI AC,(AC2) ;DO SETMI.
5492 036142 312 02 0 00 000003 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
5493 036143 003 00 0 04 000000 ERRI RAN1,(AC2)
5494 LOOP STMI5,STMI6^
5495 036144 367 01 0 00 036132 SOJG AC-1,STMI5 ;ITERATION COUNTER
5496 036145 200 02 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5497 036146 321 01 0 00 036137 JUMPL AC-1,STMI6 ;LOOP ON ERROR SWITCH ^
5498
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 121
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0152
5499
5500
5501 ;TEST ANDCMI. CHECK FOR CORRECT DATA IN C(AC)
5502 ;RAN TO RAN1
5503
5504
5505 000004 AC=4
5506 036147 ANCMIA: SETUP 200,1^
5507 000005 AC1=<AC+1>&17
5508 000006 AC2=<AC+2>&17
5509 000007 AC3=<AC+3>&17
5510 000010 AC4=<AC+4>&17
5511 000011 AC5=<AC+5>&17
5512 000002 RAN1=<AC-2>&17
5513 036147 201 03 0 00 036147 MOVEI AC-1,.
5514 036150 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5515 036151 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5516 036152 202 03 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5517 036153 201 03 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5518 036154 240 03 1 00 030667 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
5519 036155 240 03 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5520 036156 ANCMIB: RANDOM^
5521 036156 200 04 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5522 036157 270 04 0 00 040321 ADD AC,[142536475076]
5523 036160 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5524 036161 447 04 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
5525 036162 200 06 0 00 040444 MOVE AC2,RAN ;SAVE E.
5526 036163 207 02 0 00 000004 ANCMIC: MOVSS RAN1,AC ;MAKE C(AC) A DIFF. RAN. NUM.
5527 036164 201 05 0 06 000000 MOVEI AC1,(AC2) ;SIMULATE
5528 036165 464 05 0 00 000004 ORCM AC1,AC ;AN
5529 036166 450 05 0 00 000000 SETCA AC1, ;ANDCMI
5530 036167 421 04 0 06 000000 ANDCMI AC,(AC2) ;DO ANDCMI.
5531 036170 312 04 0 00 000005 CAME AC,AC1 ;C(AC) SHOULD = SIM ANS.
5532 036171 003 02 0 06 000000 ERRI RAN1,(AC2)
5533 LOOP ANCMIB,ANCMIC^
5534 036172 367 03 0 00 036156 SOJG AC-1,ANCMIB ;ITERATION COUNTER
5535 036173 200 04 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5536 036174 321 03 0 00 036163 JUMPL AC-1,ANCMIC ;LOOP ON ERROR SWITCH ^
5537
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 122
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0153
5538
5539
5540 ;TEST SETAI. CHECK C(AC) FOR CORRECT DATA
5541 ;RAN TO RAN1
5542
5543
5544 000004 AC=4
5545 036175 SETAIA: SETUP 100,0^
5546 000005 AC1=<AC+1>&17
5547 000006 AC2=<AC+2>&17
5548 000007 AC3=<AC+3>&17
5549 000010 AC4=<AC+4>&17
5550 000011 AC5=<AC+5>&17
5551 000002 RAN1=<AC-2>&17
5552 036175 201 03 0 00 036175 MOVEI AC-1,.
5553 036176 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5554 036177 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5555 036200 202 03 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5556 036201 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5557 036202 240 03 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5558 036203 240 03 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5559 036204 SETAIB: RANDOM^
5560 036204 200 04 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5561 036205 270 04 0 00 040321 ADD AC,[142536475076]
5562 036206 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5563 036207 447 04 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
5564 036210 200 06 0 00 040444 MOVE AC2,RAN ;SAVE E.
5565 036211 207 02 0 00 000004 SETAIC: MOVSS RAN1,AC ;MAKE C(AC) = SEC. RAN. NUM.
5566 036212 425 04 0 06 000000 SETAI AC,(AC2) ;DO SETAI.
5567 036213 312 04 0 00 000002 CAME AC,RAN1 ;C(AC) SHOULD NOT CHANGE
5568 036214 003 02 0 06 000000 ERRI RAN1,(AC2)
5569 LOOP SETAIB,SETAIC^
5570 036215 367 03 0 00 036204 SOJG AC-1,SETAIB ;ITERATION COUNTER
5571 036216 200 04 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5572 036217 321 03 0 00 036211 JUMPL AC-1,SETAIC ;LOOP ON ERROR SWITCH ^
5573
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 123
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0154
5574
5575
5576 ;TEST XORI. CHECK C(AC) FOR CORRECT DATA.
5577 ;RAN TO RAN1
5578
5579
5580 000005 AC=5
5581 036220 XORIA: SETUP 200,1^
5582 000006 AC1=<AC+1>&17
5583 000007 AC2=<AC+2>&17
5584 000010 AC3=<AC+3>&17
5585 000011 AC4=<AC+4>&17
5586 000012 AC5=<AC+5>&17
5587 000003 RAN1=<AC-2>&17
5588 036220 201 04 0 00 036220 MOVEI AC-1,.
5589 036221 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5590 036222 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5591 036223 202 04 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5592 036224 201 04 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5593 036225 240 04 1 00 030667 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
5594 036226 240 04 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5595 036227 XORIB: RANDOM^
5596 036227 200 05 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5597 036230 270 05 0 00 040321 ADD AC,[142536475076]
5598 036231 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5599 036232 447 05 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
5600 036233 200 07 0 00 040444 MOVE AC2,RAN ;SAVE E.
5601 036234 207 03 0 00 000005 XORIC: MOVSS RAN1,AC ;MAKE C(AC) = SEC. RAN. NUM.
5602 036235 201 06 0 07 000000 MOVEI AC1,(AC2) ;SIMULATE
5603 036236 444 06 0 00 000005 EQV AC1,AC ;AN
5604 036237 450 06 0 00 000000 SETCA AC1, ;XORI
5605 036240 431 05 0 07 000000 XORI AC,(AC2) ;DO XORI.
5606 036241 312 05 0 00 000006 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
5607 036242 003 03 0 07 000000 ERRI RAN1,(AC2)
5608 LOOP XORIB,XORIC^
5609 036243 367 04 0 00 036227 SOJG AC-1,XORIB ;ITERATION COUNTER
5610 036244 200 05 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5611 036245 321 04 0 00 036234 JUMPL AC-1,XORIC ;LOOP ON ERROR SWITCH ^
5612
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 124
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0155
5613
5614
5615 ;TEST IORI. CHECK C(AC) FOR CORRECT DATA
5616 ;RAN TO RAN1
5617
5618
5619 000006 AC=6
5620 036246 IORIA: SETUP 200,1^
5621 000007 AC1=<AC+1>&17
5622 000010 AC2=<AC+2>&17
5623 000011 AC3=<AC+3>&17
5624 000012 AC4=<AC+4>&17
5625 000013 AC5=<AC+5>&17
5626 000004 RAN1=<AC-2>&17
5627 036246 201 05 0 00 036246 MOVEI AC-1,.
5628 036247 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5629 036250 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5630 036251 202 05 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5631 036252 201 05 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5632 036253 240 05 1 00 030667 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
5633 036254 240 05 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5634 036255 IORIB: RANDOM^
5635 036255 200 06 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5636 036256 270 06 0 00 040321 ADD AC,[142536475076]
5637 036257 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5638 036260 447 06 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
5639 036261 200 10 0 00 040444 MOVE AC2,RAN ;SAVE E.
5640 036262 207 04 0 00 000006 IORIC: MOVSS RAN1,AC ;MAKE C(AC) = SEC. RAN. NUM.
5641 036263 201 07 0 10 000000 MOVEI AC1,(AC2) ;SIMULATE
5642 036264 420 07 0 00 000006 ANDCM AC1,AC ;AN
5643 036265 430 07 0 00 000006 XOR AC1,AC ;IORI
5644 036266 435 06 0 10 000000 IORI AC,(AC2) ;DO IORI.
5645 036267 312 06 0 00 000007 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
5646 036270 003 04 0 10 000000 ERRI RAN1,(AC2)
5647 LOOP IORIB,IORIC^
5648 036271 367 05 0 00 036255 SOJG AC-1,IORIB ;ITERATION COUNTER
5649 036272 200 06 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5650 036273 321 05 0 00 036262 JUMPL AC-1,IORIC ;LOOP ON ERROR SWITCH ^
5651
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 125
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0156
5652
5653
5654 ;TEST ANDCBI. CHECK C(AC) FOR CORRECT DATA
5655 ;RAN TO RAN1
5656
5657
5658 000007 AC=7
5659 036274 ANCBIA: SETUP 200,1^
5660 000010 AC1=<AC+1>&17
5661 000011 AC2=<AC+2>&17
5662 000012 AC3=<AC+3>&17
5663 000013 AC4=<AC+4>&17
5664 000014 AC5=<AC+5>&17
5665 000005 RAN1=<AC-2>&17
5666 036274 201 06 0 00 036274 MOVEI AC-1,.
5667 036275 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5668 036276 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5669 036277 202 06 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5670 036300 201 06 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5671 036301 240 06 1 00 030667 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
5672 036302 240 06 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5673 036303 ANCBIB: RANDOM^
5674 036303 200 07 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5675 036304 270 07 0 00 040321 ADD AC,[142536475076]
5676 036305 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5677 036306 447 07 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
5678 036307 200 11 0 00 040444 MOVE AC2,RAN ;SAVE E.
5679 036310 207 05 0 00 000007 ANCBIC: MOVSS RAN1,AC ;MAKE C(AC) = SEC. RAN. NUM.
5680 036311 201 10 0 11 000000 MOVEI AC1,(AC2) ;SIMULATE
5681 036312 434 10 0 00 000007 IOR AC1,AC ;AN
5682 036313 450 10 0 00 000000 SETCA AC1, ;ANDCBI
5683 036314 441 07 0 11 000000 ANDCBI AC,(AC2) ;DO ANDCBI.
5684 036315 312 07 0 00 000010 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
5685 036316 003 05 0 11 000000 ERRI RAN1,(AC2)
5686 LOOP ANCBIB, ANCBIC^
5687 036317 367 06 0 00 036303 SOJG AC-1,ANCBIB ;ITERATION COUNTER
5688 036320 200 07 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5689 036321 321 06 0 00 036310 JUMPL AC-1,ANCBIC ;LOOP ON ERROR SWITCH ^
5690
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 126
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0157
5691
5692
5693 ;TEST EQVI. CHECK C(AC) FOR CORRECT DATA
5694 ;RAN TO RAN1
5695
5696
5697 000010 AC=10
5698 036322 EQVIA: SETUP 200,1^
5699 000011 AC1=<AC+1>&17
5700 000012 AC2=<AC+2>&17
5701 000013 AC3=<AC+3>&17
5702 000014 AC4=<AC+4>&17
5703 000015 AC5=<AC+5>&17
5704 000006 RAN1=<AC-2>&17
5705 036322 201 07 0 00 036322 MOVEI AC-1,.
5706 036323 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5707 036324 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5708 036325 202 07 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5709 036326 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5710 036327 240 07 1 00 030667 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
5711 036330 240 07 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5712 036331 EQVIB: RANDOM^
5713 036331 200 10 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5714 036332 270 10 0 00 040321 ADD AC,[142536475076]
5715 036333 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5716 036334 447 10 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
5717 036335 200 12 0 00 040444 MOVE AC2,RAN ;SAVE E.
5718 036336 207 06 0 00 000010 EQVIC: MOVSS RAN1,AC ;MAKE C(AC) = SEC. RAN. NUM.
5719 036337 201 11 0 12 000000 MOVEI AC1,(AC2) ;SIMULATE
5720 036340 430 11 0 00 000010 XOR AC1,AC ;AN
5721 036341 450 11 0 00 000000 SETCA AC1, ;EQVI
5722 036342 445 10 0 12 000000 EQVI AC,(AC2) ;DO EQVI.
5723 036343 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
5724 036344 003 06 0 12 000000 ERRI RAN1,(AC2)
5725 LOOP EQVIB,EQVIC^
5726 036345 367 07 0 00 036331 SOJG AC-1,EQVIB ;ITERATION COUNTER
5727 036346 200 10 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5728 036347 321 07 0 00 036336 JUMPL AC-1,EQVIC ;LOOP ON ERROR SWITCH ^
5729
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 127
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0158
5730
5731
5732 ;TEST SETCAI. CHECK C(AC) FOR CORRECT DATA
5733 ;RAN TO RAN1
5734
5735
5736 000011 AC=11
5737 036350 STCAI1: SETUP 200,1^
5738 000012 AC1=<AC+1>&17
5739 000013 AC2=<AC+2>&17
5740 000014 AC3=<AC+3>&17
5741 000015 AC4=<AC+4>&17
5742 000016 AC5=<AC+5>&17
5743 000007 RAN1=<AC-2>&17
5744 036350 201 10 0 00 036350 MOVEI AC-1,.
5745 036351 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5746 036352 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5747 036353 202 10 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5748 036354 201 10 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5749 036355 240 10 1 00 030667 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
5750 036356 240 10 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5751 036357 STCAI2: RANDOM^
5752 036357 200 11 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5753 036360 270 11 0 00 040321 ADD AC,[142536475076]
5754 036361 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5755 036362 447 11 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
5756 036363 200 13 0 00 040444 MOVE AC2,RAN ;SAVE E.
5757 036364 207 07 0 00 000011 STCAI3: MOVSS RAN1,AC ;MAKE C(AC) = SEC. RAN. NUM.
5758 036365 460 12 0 00 000011 SETCM AC1,AC ;SIMULATE SETCAI
5759 036366 451 11 0 13 000000 SETCAI AC,(AC2) ;DO SETCAI.
5760 036367 312 11 0 00 000012 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
5761 036370 003 07 0 13 000000 ERRI RAN1,(AC2)
5762 LOOP STCAI2,STCAI3^
5763 036371 367 10 0 00 036357 SOJG AC-1,STCAI2 ;ITERATION COUNTER
5764 036372 200 11 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5765 036373 321 10 0 00 036364 JUMPL AC-1,STCAI3 ;LOOP ON ERROR SWITCH ^
5766
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 128
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0159
5767
5768
5769 ;TEST ORCAI. CHECK C(AC) FOR CORRECT DATA
5770 ;RAN TO RAN1
5771
5772
5773 000012 AC=12
5774 036374 ORCAI1: SETUP 200,1^
5775 000013 AC1=<AC+1>&17
5776 000014 AC2=<AC+2>&17
5777 000015 AC3=<AC+3>&17
5778 000016 AC4=<AC+4>&17
5779 000017 AC5=<AC+5>&17
5780 000010 RAN1=<AC-2>&17
5781 036374 201 11 0 00 036374 MOVEI AC-1,.
5782 036375 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5783 036376 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5784 036377 202 11 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5785 036400 201 11 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5786 036401 240 11 1 00 030667 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
5787 036402 240 11 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5788 036403 ORCAI2: RANDOM^
5789 036403 200 12 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5790 036404 270 12 0 00 040321 ADD AC,[142536475076]
5791 036405 241 12 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5792 036406 447 12 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
5793 036407 200 14 0 00 040444 MOVE AC2,RAN ;SAVE E.
5794 036410 207 10 0 00 000012 ORCAI3: MOVSS RAN1,AC ;MAKE C(AC) = SEC. RAN. NUM.
5795 036411 201 13 0 14 000000 MOVEI AC1,(AC2) ;SIMULATE
5796 036412 404 13 0 00 000012 AND AC1,AC ;AN
5797 036413 430 13 0 00 000012 XOR AC1,AC ;ORCAI
5798 036414 450 13 0 00 000000 SETCA AC1, ;INST.
5799 036415 455 12 0 14 000000 ORCAI AC,(AC2) ;DO ORCAI.
5800 036416 312 12 0 00 000013 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
5801 036417 003 10 0 14 000000 ERRI RAN1,(AC2)
5802 LOOP ORCAI2,ORCAI3^
5803 036420 367 11 0 00 036403 SOJG AC-1,ORCAI2 ;ITERATION COUNTER
5804 036421 200 12 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5805 036422 321 11 0 00 036410 JUMPL AC-1,ORCAI3 ;LOOP ON ERROR SWITCH ^
5806
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 129
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0160
5807
5808
5809 ;TEST SETCMI. CHECK C(AC) FOR CORRECT DATA
5810 ;RAN TO RAN1
5811
5812
5813 000013 AC=13
5814 036423 STCMI1: SETUP 200,1^
5815 000014 AC1=<AC+1>&17
5816 000015 AC2=<AC+2>&17
5817 000016 AC3=<AC+3>&17
5818 000017 AC4=<AC+4>&17
5819 000000 AC5=<AC+5>&17
5820 000011 RAN1=<AC-2>&17
5821 036423 201 12 0 00 036423 MOVEI AC-1,.
5822 036424 202 12 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5823 036425 201 12 0 00 000012 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5824 036426 202 12 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5825 036427 201 12 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5826 036430 240 12 1 00 030667 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
5827 036431 240 12 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5828 036432 STCMI2: RANDOM^
5829 036432 200 13 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5830 036433 270 13 0 00 040321 ADD AC,[142536475076]
5831 036434 241 13 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5832 036435 447 13 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
5833 036436 200 15 0 00 040444 MOVE AC2,RAN ;SAVE E.
5834 036437 207 11 0 00 000013 STCMI3: MOVSS RAN1,AC ;MAKE C(AC) = SEC. RAN. NUM.
5835 036440 201 14 0 15 000000 MOVEI AC1,(AC2) ;SIMULATE
5836 036441 450 14 0 00 000000 SETCA AC1, ;A SETCMI
5837 036442 461 13 0 15 000000 SETCMI AC,(AC2) ;DO SETCMI.
5838 036443 312 13 0 00 000014 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
5839 036444 003 11 0 15 000000 ERRI RAN1,(AC2)
5840 LOOP STCMI2,STCMI3^
5841 036445 367 12 0 00 036432 SOJG AC-1,STCMI2 ;ITERATION COUNTER
5842 036446 200 13 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5843 036447 321 12 0 00 036437 JUMPL AC-1,STCMI3 ;LOOP ON ERROR SWITCH ^
5844
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 130
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0161
5845
5846
5847 ;TEST ORCMI. CHECK C(AC) FOR CORRECT DATA
5848 ;RAN TO RAN1
5849
5850
5851 000014 AC=14
5852 036450 ORCMI1: SETUP 200,1^
5853 000015 AC1=<AC+1>&17
5854 000016 AC2=<AC+2>&17
5855 000017 AC3=<AC+3>&17
5856 000000 AC4=<AC+4>&17
5857 000001 AC5=<AC+5>&17
5858 000012 RAN1=<AC-2>&17
5859 036450 201 13 0 00 036450 MOVEI AC-1,.
5860 036451 202 13 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5861 036452 201 13 0 00 000013 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5862 036453 202 13 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5863 036454 201 13 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5864 036455 240 13 1 00 030667 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
5865 036456 240 13 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5866 036457 ORCMI2: RANDOM^
5867 036457 200 14 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5868 036460 270 14 0 00 040321 ADD AC,[142536475076]
5869 036461 241 14 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5870 036462 447 14 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
5871 036463 201 16 0 00 040444 MOVEI AC2,RAN ;SAVE E.
5872 036464 207 12 0 00 000014 ORCMI3: MOVSS RAN1,AC ;MAKE C(AC) = SEC. RAN. NUM.
5873 036465 201 15 0 16 000000 MOVEI AC1,(AC2) ;SIMULATE
5874 036466 420 15 0 00 000014 ANDCM AC1,AC ;AN
5875 036467 450 15 0 00 000000 SETCA AC1, ;ORCMI
5876 036470 465 14 0 16 000000 ORCMI AC,(AC2) ;DO ORCMI.
5877 036471 312 14 0 00 000015 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
5878 036472 003 12 0 16 000000 ERRI RAN1,(AC2)
5879 LOOP ORCMI2,ORCMI3^
5880 036473 367 13 0 00 036457 SOJG AC-1,ORCMI2 ;ITERATION COUNTER
5881 036474 200 14 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5882 036475 321 13 0 00 036464 JUMPL AC-1,ORCMI3 ;LOOP ON ERROR SWITCH ^
5883
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 131
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0162
5884
5885
5886 ;TEST ORCBI. CHECK C(AC) FOR CORRECT DATA
5887 ;RAN TO RAN1
5888
5889
5890 000005 AC=5
5891 036476 ORCBI1: SETUP 200,1^
5892 000006 AC1=<AC+1>&17
5893 000007 AC2=<AC+2>&17
5894 000010 AC3=<AC+3>&17
5895 000011 AC4=<AC+4>&17
5896 000012 AC5=<AC+5>&17
5897 000003 RAN1=<AC-2>&17
5898 036476 201 04 0 00 036476 MOVEI AC-1,.
5899 036477 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5900 036500 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5901 036501 202 04 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5902 036502 201 04 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5903 036503 240 04 1 00 030667 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
5904 036504 240 04 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5905 036505 ORCBI2: RANDOM^
5906 036505 200 05 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5907 036506 270 05 0 00 040321 ADD AC,[142536475076]
5908 036507 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5909 036510 447 05 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
5910 036511 200 07 0 00 040444 MOVE AC2,RAN ;SAVE E.
5911 036512 207 03 0 00 000005 ORCBI3: MOVSS RAN1,AC ;MAKE C(AC) = SEC. RAN. NUM.
5912 036513 201 06 0 07 000000 MOVEI AC1,(AC2) ;SIMULATE
5913 036514 410 06 0 00 000005 ANDCA AC1,AC ;AN
5914 036515 430 06 0 00 000005 XOR AC1,AC ;ORCBI
5915 036516 450 06 0 00 000000 SETCA AC1, ;INST.
5916 036517 471 05 0 07 000000 ORCBI AC,(AC2) ;DO ORCBI.
5917 036520 312 05 0 00 000006 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
5918 036521 003 03 0 07 000000 ERRI RAN1,(AC2)
5919 LOOP ORCBI2,ORCBI3^
5920 036522 367 04 0 00 036505 SOJG AC-1,ORCBI2 ;ITERATION COUNTER
5921 036523 200 05 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5922 036524 321 04 0 00 036512 JUMPL AC-1,ORCBI3 ;LOOP ON ERROR SWITCH ^
5923
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 132
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0163
5924
5925
5926 ;TEST SETOI. CHECK C(AC) FOR CORRECT DATA
5927 ;RAN TO RAN1
5928
5929
5930 000006 AC=6
5931 036525 STOI1: SETUP 100,0^
5932 000007 AC1=<AC+1>&17
5933 000010 AC2=<AC+2>&17
5934 000011 AC3=<AC+3>&17
5935 000012 AC4=<AC+4>&17
5936 000013 AC5=<AC+5>&17
5937 000004 RAN1=<AC-2>&17
5938 036525 201 05 0 00 036525 MOVEI AC-1,.
5939 036526 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5940 036527 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5941 036530 202 05 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5942 036531 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5943 036532 240 05 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5944 036533 240 05 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5945 036534 STOI2: RANDOM^
5946 036534 200 06 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5947 036535 270 06 0 00 040321 ADD AC,[142536475076]
5948 036536 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5949 036537 447 06 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
5950 036540 200 10 0 00 040444 MOVE AC2,RAN ;SAVE E.
5951 036541 207 04 0 00 000006 STOI3: MOVSS RAN1,AC ;MAKE C(AC) = SEC. RAN. NUM.
5952 036542 475 06 0 10 000000 SETOI AC,(AC2) ;DO SETOI.
5953 036543 312 06 0 00 040324 CAME AC,[-1] ;C(AC) SHOULD=-1
5954 036544 003 04 0 10 000000 ERRI RAN1,(AC2)
5955 LOOP STOI2,STOI3^
5956 036545 367 05 0 00 036534 SOJG AC-1,STOI2 ;ITERATION COUNTER
5957 036546 200 06 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5958 036547 321 05 0 00 036541 JUMPL AC-1,STOI3 ;LOOP ON ERROR SWITCH ^
5959
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 133
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0164
5960
5961
5962 ;TEST TRN, TRNA. CHECK FOR SKIP/NO SKIP AND
5963 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
5964
5965
5966 000010 AC=10
5967 036550 TRN1: SETUP 100,0^
5968 000011 AC1=<AC+1>&17
5969 000012 AC2=<AC+2>&17
5970 000013 AC3=<AC+3>&17
5971 000014 AC4=<AC+4>&17
5972 000015 AC5=<AC+5>&17
5973 000006 RAN1=<AC-2>&17
5974 036550 201 07 0 00 036550 MOVEI AC-1,.
5975 036551 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5976 036552 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5977 036553 202 07 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5978 036554 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5979 036555 240 07 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5980 036556 240 07 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5981 036557 TRN2: RANDOM^
5982 036557 200 10 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5983 036560 270 10 0 00 040321 ADD AC,[142536475076]
5984 036561 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5985 036562 447 10 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
5986 036563 600 10 0 00 000000 TRN3: TRN AC,0 ;SHOULD NOT SKIP
5987 036564 254 00 0 00 036566 JRST .+2
5988 036565 005 10 0 00 040323 ER AC,[ASCII /TST/];TRN SKIPPED.
5989 036566 604 10 0 00 000000 TRNA AC,0 ;SHOULD SKIP
5990 036567 005 10 0 00 040323 ER AC,[ASCII /TST/]
5991 036570 312 10 0 00 040444 CAME AC,RAN ;C(AC) SHOULD STILL=RAN
5992 036571 013 00 0 00 000000 EERRI ,0
5993 LOOP TRN2,TRN3^
5994 036572 367 07 0 00 036557 SOJG AC-1,TRN2 ;ITERATION COUNTER
5995 036573 200 10 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5996 036574 321 07 0 00 036563 JUMPL AC-1,TRN3 ;LOOP ON ERROR SWITCH ^
5997
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 134
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0165
5998
5999
6000 ;TEST TRN, TRNA. CHECK FOR SKIP/NO SKIP AND
6001 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
6002
6003
6004 000011 AC=11
6005 036575 TRN4: SETUP 100,0^
6006 000012 AC1=<AC+1>&17
6007 000013 AC2=<AC+2>&17
6008 000014 AC3=<AC+3>&17
6009 000015 AC4=<AC+4>&17
6010 000016 AC5=<AC+5>&17
6011 000007 RAN1=<AC-2>&17
6012 036575 201 10 0 00 036575 MOVEI AC-1,.
6013 036576 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6014 036577 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6015 036600 202 10 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6016 036601 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6017 036602 240 10 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6018 036603 240 10 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6019 036604 TRN5: RANDOM^
6020 036604 200 11 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6021 036605 270 11 0 00 040321 ADD AC,[142536475076]
6022 036606 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6023 036607 447 11 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
6024 036610 403 12 0 00 000007 TRN6: SETZB AC1,RAN1 ;CLEAR C(AC).
6025 036611 600 12 0 11 000000 TRN AC1,(AC) ;SHOULD NOT SKIP.
6026 036612 254 00 0 00 036614 JRST .+2
6027 036613 005 12 0 00 040323 ER AC1,[ASCII /TST/];TRN SKIPPED.
6028 036614 604 12 0 11 000000 TRNA AC1,(AC) ;SHOULD SKIP.
6029 036615 005 12 0 00 040323 ER AC1,[ASCII /TST/]
6030 036616 312 12 0 00 040322 CAME AC1,[0] ;C(AC) SHOULD STILL=0
6031 036617 003 07 0 11 000000 ERRI RAN1,(AC)
6032 LOOP TRN5,TRN6^
6033 036620 367 10 0 00 036604 SOJG AC-1,TRN5 ;ITERATION COUNTER
6034 036621 200 11 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6035 036622 321 10 0 00 036610 JUMPL AC-1,TRN6 ;LOOP ON ERROR SWITCH ^
6036
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 135
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0166
6037
6038
6039 ;TEST TRN, TRNA. CHECK FOR SKIP/NO SKIP AND
6040 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
6041
6042
6043 000002 AC=2
6044 036623 TRN7: SETUP 100,0^
6045 000003 AC1=<AC+1>&17
6046 000004 AC2=<AC+2>&17
6047 000005 AC3=<AC+3>&17
6048 000006 AC4=<AC+4>&17
6049 000007 AC5=<AC+5>&17
6050 000000 RAN1=<AC-2>&17
6051 036623 201 01 0 00 036623 MOVEI AC-1,.
6052 036624 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6053 036625 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6054 036626 202 01 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6055 036627 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6056 036630 240 01 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6057 036631 240 01 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6058 036632 TRN8: RANDOM^
6059 036632 200 02 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6060 036633 270 02 0 00 040321 ADD AC,[142536475076]
6061 036634 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6062 036635 447 02 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
6063 036636 200 03 0 00 000002 TRN9: MOVE AC1,AC ;MAKE "E"=C(AC)
6064 036637 600 02 0 03 000000 TRN AC,(AC1) ;SHOULD NOT SKIP.
6065 036640 254 00 0 00 036642 JRST .+2
6066 036641 005 02 0 00 040323 ER AC,[ASCII /TST/];TRN SKIPPED.
6067 036642 604 02 0 03 000000 TRNA AC,(AC1) ;SHOULD ALWAYS SKIP.
6068 036643 005 02 0 00 040323 ER AC,[ASCII /TST/]
6069 036644 312 02 0 00 040444 CAME AC,RAN ;C(AC) SHOULD NOT CHANGE
6070 036645 003 03 0 03 000000 ERRI AC1,(AC1)
6071 LOOP TRN8,TRN9^
6072 036646 367 01 0 00 036632 SOJG AC-1,TRN8 ;ITERATION COUNTER
6073 036647 200 02 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6074 036650 321 01 0 00 036636 JUMPL AC-1,TRN9 ;LOOP ON ERROR SWITCH ^
6075
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 136
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0167
6076
6077
6078 ;TEST TRN,TRNA. CHECK FOR SKIP/NO SKIP AND
6079 ;CORRECT DATA IN AC FOR RAN1 TO RAN CONDITION
6080
6081
6082 000003 AC=3
6083 036651 TRNA1: SETUP 100,0^
6084 000004 AC1=<AC+1>&17
6085 000005 AC2=<AC+2>&17
6086 000006 AC3=<AC+3>&17
6087 000007 AC4=<AC+4>&17
6088 000010 AC5=<AC+5>&17
6089 000001 RAN1=<AC-2>&17
6090 036651 201 02 0 00 036651 MOVEI AC-1,.
6091 036652 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6092 036653 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6093 036654 202 02 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6094 036655 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6095 036656 240 02 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6096 036657 240 02 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6097 036660 TRNA2: RANDOM^
6098 036660 200 03 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6099 036661 270 03 0 00 040321 ADD AC,[142536475076]
6100 036662 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6101 036663 447 03 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
6102 036664 204 04 0 00 000003 TRNA3: MOVS AC1,AC ;MAKE "E"=DIFFERENT RAN NUM
6103 036665 600 03 0 04 000000 TRN AC,(AC1) ;SHOULD NOT SKIP.
6104 036666 254 00 0 00 036670 JRST .+2
6105 036667 005 03 0 00 040323 ER AC,[ASCII /TST/];TRN SKIPPED.
6106 036670 604 03 0 04 000000 TRNA AC,(AC1) ;SHOULD SKIP.
6107 036671 005 03 0 00 040323 ER AC,[ASCII /TST/]
6108 036672 312 03 0 00 040444 CAME AC,RAN ;C(AC) SHOULD NOT CHANGE
6109 036673 013 00 0 04 000000 EERRI ,(AC1)
6110 LOOP TRNA2,TRNA3^
6111 036674 367 02 0 00 036660 SOJG AC-1,TRNA2 ;ITERATION COUNTER
6112 036675 200 03 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6113 036676 321 02 0 00 036664 JUMPL AC-1,TRNA3 ;LOOP ON ERROR SWITCH ^
6114
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 137
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0168
6115
6116
6117 ;TEST TRNE,TRNN. CHECK FOR SKIP/NO SKIP AND
6118 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
6119
6120
6121 000004 AC=4
6122 036677 TRNE1A: SETUP 100,0^
6123 000005 AC1=<AC+1>&17
6124 000006 AC2=<AC+2>&17
6125 000007 AC3=<AC+3>&17
6126 000010 AC4=<AC+4>&17
6127 000011 AC5=<AC+5>&17
6128 000002 RAN1=<AC-2>&17
6129 036677 201 03 0 00 036677 MOVEI AC-1,.
6130 036700 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6131 036701 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6132 036702 202 03 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6133 036703 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6134 036704 240 03 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6135 036705 240 03 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6136 036706 TRNE2A: RANDOM^
6137 036706 200 04 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6138 036707 270 04 0 00 040321 ADD AC,[142536475076]
6139 036710 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6140 036711 447 04 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
6141 036712 606 04 0 00 000000 TRNE3A: TRNN AC,0 ;E+C(AC)R=0. NO SKIP
6142 036713 254 00 0 00 036715 JRST .+2
6143 036714 005 04 0 00 040323 ER AC,[ASCII /TST/];TRNN SKIPPED.
6144 036715 602 04 0 00 000000 TRNE AC,0 ;E+C(AC)R = 0...SKIP.
6145 036716 005 04 0 00 040323 ER AC,[ASCII /TST/]
6146 036717 312 04 0 00 040444 CAME AC,RAN ;C(AC) SHOULD NOT CHANGE
6147 036720 013 00 0 00 000000 EERRI ,0
6148 LOOP TRNE2A,TRNE3A^
6149 036721 367 03 0 00 036706 SOJG AC-1,TRNE2A ;ITERATION COUNTER
6150 036722 200 04 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6151 036723 321 03 0 00 036712 JUMPL AC-1,TRNE3A ;LOOP ON ERROR SWITCH ^
6152
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 138
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0169
6153
6154
6155 ;TEST TRNE, TRNN. CHECK FOR SKIP/NO SKIP AND
6156 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
6157
6158
6159 000005 AC=5
6160 036724 TRNE1B: SETUP 100,0^
6161 000006 AC1=<AC+1>&17
6162 000007 AC2=<AC+2>&17
6163 000010 AC3=<AC+3>&17
6164 000011 AC4=<AC+4>&17
6165 000012 AC5=<AC+5>&17
6166 000003 RAN1=<AC-2>&17
6167 036724 201 04 0 00 036724 MOVEI AC-1,.
6168 036725 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6169 036726 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6170 036727 202 04 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6171 036730 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6172 036731 240 04 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6173 036732 240 04 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6174 036733 TRNE2B: RANDOM^
6175 036733 200 05 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6176 036734 270 05 0 00 040321 ADD AC,[142536475076]
6177 036735 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6178 036736 447 05 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
6179 036737 403 06 0 00 000003 TRNE3B: SETZB AC1,RAN1 ;CLEAR C(AC).
6180 036740 606 06 0 05 000000 TRNN AC1,(AC) ;E+C(AC)R = 0...NO SKIP.
6181 036741 254 00 0 00 036743 JRST .+2
6182 036742 005 06 0 00 040323 ER AC1,[ASCII /TST/];TRNN SKIPPED.
6183 036743 602 06 0 05 000000 TRNE AC1,(AC) ;E+C(AC)R = 0...SKIP.
6184 036744 005 06 0 00 040323 ER AC1,[ASCII /TST/]
6185 036745 312 06 0 00 040322 CAME AC1,[0] ;C(AC) SHOULD STILL=0
6186 036746 003 03 0 05 000000 ERRI RAN1,(AC)
6187 LOOP TRNE2B,TRNE3B^
6188 036747 367 04 0 00 036733 SOJG AC-1,TRNE2B ;ITERATION COUNTER
6189 036750 200 05 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6190 036751 321 04 0 00 036737 JUMPL AC-1,TRNE3B ;LOOP ON ERROR SWITCH ^
6191
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 139
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0170
6192
6193
6194 ;TEST TRNE, TRNN. CHECK FOR SKIP/NO SKIP AND
6195 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION
6196
6197
6198 000006 AC=6
6199 036752 TRNE1C: SETUP 100,0^
6200 000007 AC1=<AC+1>&17
6201 000010 AC2=<AC+2>&17
6202 000011 AC3=<AC+3>&17
6203 000012 AC4=<AC+4>&17
6204 000013 AC5=<AC+5>&17
6205 000004 RAN1=<AC-2>&17
6206 036752 201 05 0 00 036752 MOVEI AC-1,.
6207 036753 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6208 036754 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6209 036755 202 05 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6210 036756 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6211 036757 240 05 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6212 036760 240 05 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6213 036761 TRNE2C: RANDOM^
6214 036761 200 06 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6215 036762 270 06 0 00 040321 ADD AC,[142536475076]
6216 036763 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6217 036764 447 06 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
6218 036765 435 06 0 00 000002 TRNE3C: IORI AC,2 ;MAKE SURE C(AC)R HAS A BIT SET
6219 036766 200 04 0 00 000006 MOVE RAN1,AC ;SAVE C(AC) FOR FUTURE COMPARE.
6220 036767 602 06 0 00 777777 TRNE AC,-1 ;E+C(AC)R NOT=0. NO SKIP
6221 036770 254 00 0 00 036772 JRST .+2
6222 036771 005 06 0 00 040323 ER AC,[ASCII /TST/];TRNE SKIPPED.
6223 036772 606 06 0 00 777777 TRNN AC,-1 ;E+C(AC)R NOT=0. SKIP
6224 036773 005 06 0 00 040323 ER AC,[ASCII /TST/]
6225 036774 312 06 0 00 000004 CAME AC,RAN1 ;C(AC) SHOULD NEVER CHANGE.
6226 036775 003 04 0 00 777777 ERRI RAN1,-1
6227 LOOP TRNE2C,TRNE3C^
6228 036776 367 05 0 00 036761 SOJG AC-1,TRNE2C ;ITERATION COUNTER
6229 036777 200 06 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6230 037000 321 05 0 00 036765 JUMPL AC-1,TRNE3C ;LOOP ON ERROR SWITCH ^
6231
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 140
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0171
6232
6233
6234 ;TEST TRNE, TRNN. CHECK FOR SKIP/NO SKIP AND
6235 ;CORRECT DATA IN AC FOR RAN TO -1 CONDITION.
6236
6237
6238 000007 AC=7
6239 037001 TRNE1D: SETUP 100,0^
6240 000010 AC1=<AC+1>&17
6241 000011 AC2=<AC+2>&17
6242 000012 AC3=<AC+3>&17
6243 000013 AC4=<AC+4>&17
6244 000014 AC5=<AC+5>&17
6245 000005 RAN1=<AC-2>&17
6246 037001 201 06 0 00 037001 MOVEI AC-1,.
6247 037002 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6248 037003 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6249 037004 202 06 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6250 037005 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6251 037006 240 06 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6252 037007 240 06 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6253 037010 TRNE2D: RANDOM^
6254 037010 200 07 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6255 037011 270 07 0 00 040321 ADD AC,[142536475076]
6256 037012 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6257 037013 447 07 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
6258 037014 435 07 0 00 000001 TRNE3D: IORI AC,1 ;MAKE SURE E HAS A BIT.
6259 037015 477 10 0 00 000005 SETOB AC1,RAN1 ;MAKE C(AC) = -1.
6260 037016 602 10 0 07 000000 TRNE AC1,(AC) ;E+C(AC)R NOT = 0...NO SKIP.
6261 037017 254 00 0 00 037021 JRST .+2
6262 037020 005 10 0 00 040323 ER AC1,[ASCII /TST/];TRNE SKIPPED.
6263 037021 606 10 0 07 000000 TRNN AC1,(AC) ;E+C(AC)R NOT = 0...SKIP.
6264 037022 005 10 0 00 040323 ER AC1,[ASCII /TST/]
6265 037023 312 10 0 00 040324 CAME AC1,[-1] ;C(AC) SHOULD STILL = A -1.
6266 037024 003 05 0 07 000000 ERRI RAN1,(AC)
6267 LOOP TRNE2D,TRNE3D^
6268 037025 367 06 0 00 037010 SOJG AC-1,TRNE2D ;ITERATION COUNTER
6269 037026 200 07 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6270 037027 321 06 0 00 037014 JUMPL AC-1,TRNE3D ;LOOP ON ERROR SWITCH ^
6271
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 141
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0172
6272
6273
6274 ;TEST TRNE,TRNN. CHECK FOR SKIP/NO SKIP AND
6275 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
6276
6277
6278 000010 AC=10
6279 037030 TRNE1E: SETUP 100,0^
6280 000011 AC1=<AC+1>&17
6281 000012 AC2=<AC+2>&17
6282 000013 AC3=<AC+3>&17
6283 000014 AC4=<AC+4>&17
6284 000015 AC5=<AC+5>&17
6285 000006 RAN1=<AC-2>&17
6286 037030 201 07 0 00 037030 MOVEI AC-1,.
6287 037031 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6288 037032 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6289 037033 202 07 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6290 037034 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6291 037035 240 07 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6292 037036 240 07 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6293 037037 TRNE2E: RANDOM^
6294 037037 200 10 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6295 037040 270 10 0 00 040321 ADD AC,[142536475076]
6296 037041 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6297 037042 447 10 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
6298 037043 435 10 0 00 000004 TRNE3E: IORI AC,4 ;MAKE SURE C(AC)R HAS A BIT
6299 037044 200 11 0 00 000010 MOVE AC1,AC ;MAKE E=C(AC).
6300 037045 602 10 0 11 000000 TRNE AC,(AC1) ;E + C(AC)R NOT = 0...NO SKIP.
6301 037046 254 00 0 00 037050 JRST .+2
6302 037047 005 10 0 00 040323 ER AC,[ASCII /TST/];TRNE SKIPPED.
6303 037050 606 10 0 11 000000 TRNN AC,(AC1) ;E + C(AC)R NOT = 0...SKIP.
6304 037051 005 10 0 00 040323 ER AC,[ASCII /TST/]
6305 037052 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD = ORIG C(AC).
6306 037053 003 11 0 11 000000 ERRI AC1,(AC1)
6307 LOOP TRNE2E,TRNE3E^
6308 037054 367 07 0 00 037037 SOJG AC-1,TRNE2E ;ITERATION COUNTER
6309 037055 200 10 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6310 037056 321 07 0 00 037043 JUMPL AC-1,TRNE3E ;LOOP ON ERROR SWITCH ^
6311
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 142
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0173
6312
6313
6314 ;TEST TRNE,TRNN. CHECK FOR SKIP/NO SKIP AND
6315 ;CORRECT DATA IN AC FOR NOT RAN TO RAN CONDITION.
6316
6317
6318 000011 AC=11
6319 037057 TRNE1F: SETUP 100,0^
6320 000012 AC1=<AC+1>&17
6321 000013 AC2=<AC+2>&17
6322 000014 AC3=<AC+3>&17
6323 000015 AC4=<AC+4>&17
6324 000016 AC5=<AC+5>&17
6325 000007 RAN1=<AC-2>&17
6326 037057 201 10 0 00 037057 MOVEI AC-1,.
6327 037060 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6328 037061 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6329 037062 202 10 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6330 037063 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6331 037064 240 10 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6332 037065 240 10 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6333 037066 TRNE2F: RANDOM^
6334 037066 200 11 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6335 037067 270 11 0 00 040321 ADD AC,[142536475076]
6336 037070 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6337 037071 447 11 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
6338 037072 460 12 0 00 000011 TRNE3F: SETCM AC1,AC ;MAKE "E" = 1'S COMP OF C(AC).
6339 037073 606 11 0 12 000000 TRNN AC,(AC1) ;E+C(AC)R = 0...NO SKIP.
6340 037074 254 00 0 00 037076 JRST .+2
6341 037075 005 11 0 00 040323 ER AC,[ASCII /TST/];TRNN SKIPPED.
6342 037076 602 11 0 12 000000 TRNE AC,(AC1) ;E + C(AC)R = 0...SKIP.
6343 037077 005 11 0 00 040323 ER AC,[ASCII /TST/]
6344 037100 312 11 0 00 040444 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
6345 037101 013 00 0 12 000000 EERRI ,(AC1)
6346 LOOP TRNE2F,TRNE3F^
6347 037102 367 10 0 00 037066 SOJG AC-1,TRNE2F ;ITERATION COUNTER
6348 037103 200 11 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6349 037104 321 10 0 00 037072 JUMPL AC-1,TRNE3F ;LOOP ON ERROR SWITCH ^
6350
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 143
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0174
6351
6352
6353 ;TEST TRZ, TRZA. CHECK FOR SKIP/NO SKIP AND
6354 ;CORRECT DATA IN AC FOR NOT RAN TO RAN CONDITION
6355
6356
6357 000012 AC=12
6358 037105 TRZA1: SETUP 100,0^
6359 000013 AC1=<AC+1>&17
6360 000014 AC2=<AC+2>&17
6361 000015 AC3=<AC+3>&17
6362 000016 AC4=<AC+4>&17
6363 000017 AC5=<AC+5>&17
6364 000010 RAN1=<AC-2>&17
6365 037105 201 11 0 00 037105 MOVEI AC-1,.
6366 037106 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6367 037107 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6368 037110 202 11 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6369 037111 201 11 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6370 037112 240 11 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6371 037113 240 11 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6372 037114 TRZA2: RANDOM^
6373 037114 200 12 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6374 037115 270 12 0 00 040321 ADD AC,[142536475076]
6375 037116 241 12 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6376 037117 447 12 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
6377 037120 460 13 0 00 000012 TRZA3: SETCM AC1,AC ;MAKE "E"=COMP OF C(AC)
6378 037121 620 12 0 13 000000 TRZ AC,(AC1) ;SHOULD NOT SKIP.
6379 037122 254 00 0 00 037124 JRST .+2
6380 037123 005 12 0 00 040323 ER AC,[ASCII /TST/];TRZ SKIPPED.
6381 037124 624 12 0 13 000000 TRZA AC,(AC1) ;SHOULD ALWAYS SKIP.
6382 037125 005 12 0 00 040323 ER AC,[ASCII /TST/]
6383 037126 312 12 0 00 040444 CAME AC,RAN ;C(AC) SHOULD NOT CHANGE
6384 037127 013 00 0 13 000000 EERRI ,(AC1)
6385 LOOP TRZA2,TRZA3^
6386 037130 367 11 0 00 037114 SOJG AC-1,TRZA2 ;ITERATION COUNTER
6387 037131 200 12 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6388 037132 321 11 0 00 037120 JUMPL AC-1,TRZA3 ;LOOP ON ERROR SWITCH ^
6389
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 144
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0175
6390
6391
6392 ;TEST TRZ,TRZA. CHECK FOR SKIP/NO SKIP AND
6393 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
6394
6395
6396 000013 AC=13
6397 037133 TRZAA: SETUP 100,0^
6398 000014 AC1=<AC+1>&17
6399 000015 AC2=<AC+2>&17
6400 000016 AC3=<AC+3>&17
6401 000017 AC4=<AC+4>&17
6402 000000 AC5=<AC+5>&17
6403 000011 RAN1=<AC-2>&17
6404 037133 201 12 0 00 037133 MOVEI AC-1,.
6405 037134 202 12 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6406 037135 201 12 0 00 000012 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6407 037136 202 12 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6408 037137 201 12 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6409 037140 240 12 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6410 037141 240 12 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6411 037142 TRZAB: RANDOM^
6412 037142 200 13 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6413 037143 270 13 0 00 040321 ADD AC,[142536475076]
6414 037144 241 13 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6415 037145 447 13 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
6416 037146 200 14 0 00 000013 MOVE AC1,AC ;MAKE "E"=C(AC)
6417 037147 200 15 0 00 000013 TRZAC: MOVE AC2,AC ;SIMULATE
6418 037150 404 15 0 00 040354 AND AC2,[XWD -1,0] ;A (TRZ AC,-1).
6419 037151 620 13 0 14 000000 TRZ AC,(AC1) ;SHOULD NOT SKIP.
6420 037152 254 00 0 00 037154 JRST .+2
6421 037153 005 13 0 00 040323 ER AC,[ASCII /TST/];TRZ SKIPPED.
6422 037154 624 13 0 14 000000 TRZA AC,(AC1) ;SHOULD ALWAYS SKIP.
6423 037155 005 13 0 00 040323 ER AC,[ASCII /TST/]
6424 037156 312 13 0 00 000015 CAME AC,AC2 ;C(AC) SHOULD=SIM ANS
6425 037157 003 14 0 14 000000 ERRI AC1,(AC1)
6426 LOOP TRZAB,TRZAC^
6427 037160 367 12 0 00 037142 SOJG AC-1,TRZAB ;ITERATION COUNTER
6428 037161 200 13 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6429 037162 321 12 0 00 037147 JUMPL AC-1,TRZAC ;LOOP ON ERROR SWITCH ^
6430
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 145
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0176
6431
6432
6433 ;TEST TRZ,TRZA. CHECK FOR SKIP/NO SKIP AND
6434 ;CORRECT DATA IN AC FOR RAN1 TO RAN CONDITION
6435
6436
6437 000014 AC=14
6438 037163 TRZB1: SETUP 100,0^
6439 000015 AC1=<AC+1>&17
6440 000016 AC2=<AC+2>&17
6441 000017 AC3=<AC+3>&17
6442 000000 AC4=<AC+4>&17
6443 000001 AC5=<AC+5>&17
6444 000012 RAN1=<AC-2>&17
6445 037163 201 13 0 00 037163 MOVEI AC-1,.
6446 037164 202 13 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6447 037165 201 13 0 00 000013 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6448 037166 202 13 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6449 037167 201 13 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6450 037170 240 13 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6451 037171 240 13 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6452 037172 TRZB2: RANDOM^
6453 037172 200 14 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6454 037173 270 14 0 00 040321 ADD AC,[142536475076]
6455 037174 241 14 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6456 037175 447 14 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
6457 037176 204 15 0 00 000014 TRZB3: MOVS AC1,AC ;MAKE "E"=DIFFERENT RAN NUM
6458 037177 201 16 0 15 000000 MOVEI AC2,(AC1) ;SIMULATE
6459 037200 464 16 0 00 000014 ORCM AC2,AC ;A
6460 037201 450 16 0 00 000000 SETCA AC2, ;TRZ
6461 037202 620 14 0 15 000000 TRZ AC,(AC1) ;SHOULD NOT SKIP.
6462 037203 312 14 0 00 000016 CAME AC,AC2 ;C(AC) SHOULD=SIM ANS
6463 037204 013 00 0 15 000000 EERRI ,(AC1)
6464 037205 200 14 0 00 040444 MOVE AC,RAN ;RESTORE AC
6465 037206 624 14 0 15 000000 TRZA AC,(AC1) ;SHOULD ALWAYS SKIP.
6466 037207 005 14 0 00 040323 ER AC,[ASCII /TST/]
6467 037210 312 14 0 00 000016 CAME AC,AC2 ;C(AC) SHOULD=SIM ANS
6468 037211 013 00 0 15 000000 EERRI ,(AC1)
6469 LOOP TRZB2,TRZB3^
6470 037212 367 13 0 00 037172 SOJG AC-1,TRZB2 ;ITERATION COUNTER
6471 037213 200 14 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6472 037214 321 13 0 00 037176 JUMPL AC-1,TRZB3 ;LOOP ON ERROR SWITCH ^
6473
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 146
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0177
6474
6475
6476 ;TEST TRZE, TRZN. CHECK FOR SKIP/NO SKIP AND
6477 ;CORRECT DATA IN AC FOR A ROTATING MASK BIT WITH SAME BIT
6478 ;CLEARED IN AC.
6479
6480
6481 000005 AC=5
6482 037215 TRZE1: SETUP 40,0^
6483 000006 AC1=<AC+1>&17
6484 000007 AC2=<AC+2>&17
6485 000010 AC3=<AC+3>&17
6486 000011 AC4=<AC+4>&17
6487 000012 AC5=<AC+5>&17
6488 000003 RAN1=<AC-2>&17
6489 037215 201 04 0 00 037215 MOVEI AC-1,.
6490 037216 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6491 037217 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6492 037220 202 04 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6493 037221 201 04 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
6494 037222 240 04 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6495 037223 240 04 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6496 037224 201 06 0 00 000001 MOVEI AC1,1 ;SETUP E TO HAVE A MASK BIT.
6497 037225 TRZE2: RANDOM^
6498 037225 200 05 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6499 037226 270 05 0 00 040321 ADD AC,[142536475076]
6500 037227 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6501 037230 447 05 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
6502 037231 241 06 0 00 000001 ROT AC1,1 ;ROT TO TEST NEXT BIT
6503 037232 316 06 0 00 040353 CAMN AC1,[XWD 1,0] ;HAS THE BIT GONE TO THE LEFT SIDE?
6504 037233 201 06 0 00 000001 MOVEI AC1,1 ;YES, RESTORE E
6505 037234 420 05 0 00 000006 TRZE3: ANDCM AC,AC1 ;CLEAR MASK BIT IN AC
6506 037235 200 07 0 00 000005 MOVE AC2,AC ;SAVE FOR COMPARE
6507 037236 626 05 0 06 000000 TRZN AC,(AC1) ;E+C(AC)R = 0...NO SKIP.
6508 037237 254 00 0 00 037241 JRST .+2
6509 037240 005 05 0 00 040323 ER AC,[ASCII /TST/];TRZN SKIPPED.
6510 037241 622 05 0 06 000000 TRZE AC,(AC1) ;E+C(AC)R = 0...SKIP.
6511 037242 005 05 0 00 040323 ER AC,[ASCII /TST/]
6512 037243 312 05 0 00 000007 CAME AC,AC2 ;C(AC) SHOULD NOT HAVE CHANGED
6513 037244 003 07 0 06 000000 ERRI AC2,(AC1)
6514 LOOP TRZE2,TRZE3^
6515 037245 367 04 0 00 037225 SOJG AC-1,TRZE2 ;ITERATION COUNTER
6516 037246 200 05 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6517 037247 321 04 0 00 037234 JUMPL AC-1,TRZE3 ;LOOP ON ERROR SWITCH ^
6518
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 147
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0178
6519
6520
6521 ;TEST TRZE,TRZN. CHECK FOR SKIP/NO SKIP AND
6522 ;CORRECT DATA IN AC FOR A ROTATING MASK BIT WITH
6523 ;SAME BIT SET IN AC.
6524
6525
6526 000006 AC=6
6527 037250 TRZEA: SETUP 40,0^
6528 000007 AC1=<AC+1>&17
6529 000010 AC2=<AC+2>&17
6530 000011 AC3=<AC+3>&17
6531 000012 AC4=<AC+4>&17
6532 000013 AC5=<AC+5>&17
6533 000004 RAN1=<AC-2>&17
6534 037250 201 05 0 00 037250 MOVEI AC-1,.
6535 037251 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6536 037252 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6537 037253 202 05 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6538 037254 201 05 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
6539 037255 240 05 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6540 037256 240 05 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6541 037257 201 07 0 00 000001 MOVEI AC1,1 ;SETUP "E" FOR ONE MASK BIT
6542 037260 TRZEB: RANDOM^
6543 037260 200 06 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6544 037261 270 06 0 00 040321 ADD AC,[142536475076]
6545 037262 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6546 037263 447 06 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
6547 037264 241 07 0 00 000001 ROT AC1,1 ;ROT BIT TO TEST NEXT BIT
6548 037265 316 07 0 00 040353 CAMN AC1,[XWD 1,0] ;IS BIT ON LEFT SIDE?
6549 037266 201 07 0 00 000001 MOVEI AC1,1 ;YES, RESTORE.
6550 037267 434 06 0 00 000007 TRZEC: IOR AC,AC1 ;SET MASK BIT IN AC
6551 037270 200 04 0 00 000006 MOVE RAN1,AC ;SAVE FOR PRINT IN CASE OF ERROR.
6552 037271 200 10 0 00 000006 MOVE AC2,AC ;SIMULATE
6553 037272 420 10 0 00 000007 ANDCM AC2,AC1 ;TRZ.
6554 037273 622 06 0 07 000000 TRZE AC,(AC1) ;E+C(AC)R NOT = 0...NO SKIP.
6555 037274 312 06 0 00 000010 CAME AC,AC2 ;C(AC) SHOULD = SIM. ANS.
6556 037275 003 04 0 07 000000 ERRI RAN1,(AC1)
6557 037276 200 06 0 00 000004 MOVE AC,RAN1 ;RESTORE AC.
6558 037277 626 06 0 07 000000 TRZN AC,(AC1) ;E+C(AC)R NOT = 0...SKIP.
6559 037300 005 06 0 00 040323 ER AC,[ASCII /TST/]
6560 037301 312 06 0 00 000010 CAME AC,AC2 ;C(AC) SHOULD=SIM ANS
6561 037302 003 04 0 07 000000 ERRI RAN1,(AC1)
6562 LOOP TRZEB,TRZEC^
6563 037303 367 05 0 00 037260 SOJG AC-1,TRZEB ;ITERATION COUNTER
6564 037304 200 06 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6565 037305 321 05 0 00 037267 JUMPL AC-1,TRZEC ;LOOP ON ERROR SWITCH ^
6566
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 148
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0179
6567
6568
6569 ;TEST TRZE,TRZN. CHECK FOR SKIP/NO SKIP AND
6570 ;CORRECT DATA IN AC FOR A ROTATING MASK BIT IN AC
6571 ;AND SAME BIT CLEARED IN E.
6572
6573
6574 000007 AC=7
6575 037306 TRZNA: SETUP 40,0^
6576 000010 AC1=<AC+1>&17
6577 000011 AC2=<AC+2>&17
6578 000012 AC3=<AC+3>&17
6579 000013 AC4=<AC+4>&17
6580 000014 AC5=<AC+5>&17
6581 000005 RAN1=<AC-2>&17
6582 037306 201 06 0 00 037306 MOVEI AC-1,.
6583 037307 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6584 037310 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6585 037311 202 06 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6586 037312 201 06 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
6587 037313 240 06 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6588 037314 240 06 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6589 037315 201 10 0 00 000001 MOVEI AC1,1 ;SETUP A MASK BIT
6590 037316 TRZNB: RANDOM^
6591 037316 200 07 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6592 037317 270 07 0 00 040321 ADD AC,[142536475076]
6593 037320 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6594 037321 447 07 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
6595 037322 241 10 0 00 000001 ROT AC1,1 ;ROT BIT TO TEST NEXT BIT
6596 037323 316 10 0 00 040353 CAMN AC1,[XWD 1,0] ;IS BIT ON LEFT SIDE?
6597 037324 201 10 0 00 000001 MOVEI AC1,1 ;YES, RESTORE AC
6598 037325 200 11 0 00 000010 MOVE AC2,AC1 ;SAVE FOR FUTURE COMPARE.
6599 037326 200 10 0 00 000011 TRZNC: MOVE AC1,AC2 ;RESTORE "AC" IN CASE OF ERROR
6600 037327 420 07 0 00 000010 ANDCM AC,AC1 ;CLEAR BIT IN "E"
6601 037330 626 10 0 07 000000 TRZN AC1,(AC) ;E+C(AC)R = 0...NO SKIP.
6602 037331 254 00 0 00 037333 JRST .+2
6603 037332 005 10 0 00 040323 ER AC1,[ASCII /TST/];TRZN SKIPPED.
6604 037333 622 10 0 07 000000 TRZE AC1,(AC) ;E+C(AC)R = 0...SKIP.
6605 037334 005 10 0 00 040323 ER AC1,[ASCII /TST/]
6606 037335 312 10 0 00 000011 CAME AC1,AC2 ;C(AC) SHOULD NOT CHANGE
6607 037336 003 11 0 07 000000 ERRI AC2,(AC)
6608 LOOP TRZNB,TRZNC^
6609 037337 367 06 0 00 037316 SOJG AC-1,TRZNB ;ITERATION COUNTER
6610 037340 200 07 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6611 037341 321 06 0 00 037326 JUMPL AC-1,TRZNC ;LOOP ON ERROR SWITCH ^
6612
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 149
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0180
6613
6614
6615 ;TEST TRZE,TRZN. CHECK FOR SKIP/NO SKIP AND
6616 ;CORRECT DATA IN AC FOR A ROTATING MASK BIT
6617 ;IN AC AND SAME BIT SET IN E.
6618
6619
6620 000011 AC=11
6621 037342 TRZN1: SETUP 40,0^
6622 000012 AC1=<AC+1>&17
6623 000013 AC2=<AC+2>&17
6624 000014 AC3=<AC+3>&17
6625 000015 AC4=<AC+4>&17
6626 000016 AC5=<AC+5>&17
6627 000007 RAN1=<AC-2>&17
6628 037342 201 10 0 00 037342 MOVEI AC-1,.
6629 037343 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6630 037344 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6631 037345 202 10 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6632 037346 201 10 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
6633 037347 240 10 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6634 037350 240 10 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6635 037351 201 12 0 00 000001 MOVEI AC1,1 ;SETUP A MASK BIT
6636 037352 TRZN2: RANDOM^
6637 037352 200 11 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6638 037353 270 11 0 00 040321 ADD AC,[142536475076]
6639 037354 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6640 037355 447 11 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
6641 037356 241 12 0 00 000001 ROT AC1,1 ;ROT BIT TO TEST NEXT BIT
6642 037357 316 12 0 00 040353 CAMN AC1,[XWD 1,0] ;IS BIT ON LEFT SIDE?
6643 037360 201 12 0 00 000001 MOVEI AC1,1 ;YES, RESTORE
6644 037361 200 13 0 00 000012 MOVE AC2,AC1 ;SAVE FOR FUTURE COMPARE
6645 037362 434 11 0 00 000012 TRZN3: IOR AC,AC1 ;SET MASK BIT IN E
6646 037363 622 12 0 11 000000 TRZE AC1,(AC) ;E+C(AC)R NOT = 0...NO SKIP.
6647 037364 312 12 0 00 040322 CAME AC1,[0] ;C(AC) SHOULD=0
6648 037365 003 13 0 11 000000 ERRI AC2,(AC)
6649 037366 200 12 0 00 000013 MOVE AC1,AC2 ;RESTORE MASK BIT
6650 037367 626 12 0 11 000000 TRZN AC1,(AC) ;E+C(AC)R NOT = 0...SKIP.
6651 037370 005 12 0 00 040323 ER AC1,[ASCII /TST/]
6652 037371 312 12 0 00 040322 CAME AC1,[0] ;C(AC) SHOULD=0
6653 037372 003 13 0 11 000000 ERRI AC2,(AC)
6654 037373 200 12 0 00 000013 MOVE AC1,AC2 ;RESTORE MASK BIT
6655 LOOP TRZN2,TRZN3^
6656 037374 367 10 0 00 037352 SOJG AC-1,TRZN2 ;ITERATION COUNTER
6657 037375 200 11 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6658 037376 321 10 0 00 037362 JUMPL AC-1,TRZN3 ;LOOP ON ERROR SWITCH ^
6659
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 150
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0181
6660
6661
6662 ;TEST TRO,TROA. CHECK FOR SKIP/NO SKIP AND
6663 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
6664
6665
6666 000011 AC=11
6667 037377 TRO1: SETUP 100,0^
6668 000012 AC1=<AC+1>&17
6669 000013 AC2=<AC+2>&17
6670 000014 AC3=<AC+3>&17
6671 000015 AC4=<AC+4>&17
6672 000016 AC5=<AC+5>&17
6673 000007 RAN1=<AC-2>&17
6674 037377 201 10 0 00 037377 MOVEI AC-1,.
6675 037400 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6676 037401 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6677 037402 202 10 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6678 037403 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6679 037404 240 10 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6680 037405 240 10 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6681 037406 TRO2: RANDOM^
6682 037406 200 11 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6683 037407 270 11 0 00 040321 ADD AC,[142536475076]
6684 037410 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6685 037411 447 11 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
6686 037412 660 11 0 00 000000 TRO3: TRO AC,0 ;SHOULD NOT SKIP
6687 037413 254 00 0 00 037415 JRST .+2
6688 037414 005 11 0 00 040323 ER AC,[ASCII /TST/];TRO SKIPPED.
6689 037415 664 11 0 00 000000 TROA AC,0 ;SHOULD SKIP
6690 037416 005 11 0 00 040323 ER AC,[ASCII /TST/]
6691 037417 312 11 0 00 040444 CAME AC,RAN ;C(AC) SHOULD STILL=RAN NUM
6692 037420 013 00 0 00 000000 EERRI ,0
6693 LOOP TRO2,TRO3^
6694 037421 367 10 0 00 037406 SOJG AC-1,TRO2 ;ITERATION COUNTER
6695 037422 200 11 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6696 037423 321 10 0 00 037412 JUMPL AC-1,TRO3 ;LOOP ON ERROR SWITCH ^
6697
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 151
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0182
6698
6699
6700 ;TEST TRO, TROA. CHECK FOR SKIP/NO SKIP AND
6701 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
6702
6703
6704 000002 AC=2
6705 037424 TRO4: SETUP 100,0^
6706 000003 AC1=<AC+1>&17
6707 000004 AC2=<AC+2>&17
6708 000005 AC3=<AC+3>&17
6709 000006 AC4=<AC+4>&17
6710 000007 AC5=<AC+5>&17
6711 000000 RAN1=<AC-2>&17
6712 037424 201 01 0 00 037424 MOVEI AC-1,.
6713 037425 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6714 037426 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6715 037427 202 01 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6716 037430 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6717 037431 240 01 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6718 037432 240 01 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6719 037433 TRO5: RANDOM^
6720 037433 200 02 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6721 037434 270 02 0 00 040321 ADD AC,[142536475076]
6722 037435 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6723 037436 447 02 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
6724 037437 403 03 0 00 000000 TRO6: SETZB AC1,RAN1 ;CLEAR C(AC).
6725 037440 200 04 0 00 000002 MOVE AC2,AC ;SIMULATE
6726 037441 405 04 0 00 777777 ANDI AC2,-1 ;A TRO
6727 037442 660 03 0 02 000000 TRO AC1,(AC) ;SHOULD NOT SKIP.
6728 037443 254 00 0 00 037445 JRST .+2
6729 037444 005 03 0 00 040323 ER AC1,[ASCII /TST/];TRO SKIPPED.
6730 037445 664 03 0 02 000000 TROA AC1,(AC) ;SHOULD ALWAYS SKIP.
6731 037446 005 03 0 00 040323 ER AC1,[ASCII /TST/]
6732 037447 312 03 0 00 000004 CAME AC1,AC2 ;C(AC) SHOULD=SIM ANS
6733 037450 003 00 0 02 000000 ERRI RAN1,(AC)
6734 LOOP TRO5,TRO6^
6735 037451 367 01 0 00 037433 SOJG AC-1,TRO5 ;ITERATION COUNTER
6736 037452 200 02 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6737 037453 321 01 0 00 037437 JUMPL AC-1,TRO6 ;LOOP ON ERROR SWITCH ^
6738
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 152
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0183
6739
6740
6741 ;TEST TRO, TROA. CHECK FOR SKIP/NO SKIP AND
6742 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION
6743
6744
6745 000003 AC=3
6746 037454 TRO1A: SETUP 100,0^
6747 000004 AC1=<AC+1>&17
6748 000005 AC2=<AC+2>&17
6749 000006 AC3=<AC+3>&17
6750 000007 AC4=<AC+4>&17
6751 000010 AC5=<AC+5>&17
6752 000001 RAN1=<AC-2>&17
6753 037454 201 02 0 00 037454 MOVEI AC-1,.
6754 037455 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6755 037456 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6756 037457 202 02 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6757 037460 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6758 037461 240 02 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6759 037462 240 02 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6760 037463 TRO1B: RANDOM^
6761 037463 200 03 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6762 037464 270 03 0 00 040321 ADD AC,[142536475076]
6763 037465 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6764 037466 447 03 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
6765 037467 200 05 0 00 000003 TRO1C: MOVE AC2,AC ;SIMULATE
6766 037470 435 05 0 00 777777 IORI AC2,-1 ;ATRO
6767 037471 660 03 0 00 777777 TRO AC,-1 ;SHOULD NOT SKIP
6768 037472 254 00 0 00 037474 JRST .+2
6769 037473 005 03 0 00 040323 ER AC,[ASCII /TST/];TRO SKIPPED.
6770 037474 664 03 0 00 777777 TROA AC,-1 ;SHOULD SKIP
6771 037475 005 03 0 00 040323 ER AC,[ASCII /TST/]
6772 037476 312 03 0 00 000005 CAME AC,AC2 ;C(AC) SHOULD=SIM ANS
6773 037477 013 00 0 00 777777 EERRI ,-1
6774 LOOP TRO1B,TRO1C^
6775 037500 367 02 0 00 037463 SOJG AC-1,TRO1B ;ITERATION COUNTER
6776 037501 200 03 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6777 037502 321 02 0 00 037467 JUMPL AC-1,TRO1C ;LOOP ON ERROR SWITCH ^
6778
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 153
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0184
6779
6780
6781 ;TEST TRO,TROA. CHECK FOR SKIP/NO SKIP AND
6782 ;CORRECT DATA IN AC FOR RAN TO -1 CONDITION.
6783
6784
6785 000004 AC=4
6786 037503 TRO1D: SETUP 100,0^
6787 000005 AC1=<AC+1>&17
6788 000006 AC2=<AC+2>&17
6789 000007 AC3=<AC+3>&17
6790 000010 AC4=<AC+4>&17
6791 000011 AC5=<AC+5>&17
6792 000002 RAN1=<AC-2>&17
6793 037503 201 03 0 00 037503 MOVEI AC-1,.
6794 037504 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6795 037505 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6796 037506 202 03 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6797 037507 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6798 037510 240 03 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6799 037511 240 03 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6800 037512 TRO1E: RANDOM^
6801 037512 200 04 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6802 037513 270 04 0 00 040321 ADD AC,[142536475076]
6803 037514 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6804 037515 447 04 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
6805 037516 477 05 0 00 000002 TRO1F: SETOB AC1,RAN1 ;SET C(AC) TO ALL ONES.
6806 037517 660 05 0 04 000000 TRO AC1,(AC) ;SHOULD NOT SKIP.
6807 037520 254 00 0 00 037522 JRST .+2
6808 037521 005 05 0 00 040323 ER AC1,[ASCII /TST/];TRO SKIPPED.
6809 037522 664 05 0 04 000000 TROA AC1,(AC) ;SHOULD ALWAYS SKIP.
6810 037523 005 05 0 00 040323 ER AC1,[ASCII /TST/]
6811 037524 312 05 0 00 040324 CAME AC1,[-1] ;C(AC) SHOULD STILL = -1.
6812 037525 003 02 0 04 000000 ERRI RAN1,(AC)
6813 LOOP TRO1E,TRO1F^
6814 037526 367 03 0 00 037512 SOJG AC-1,TRO1E ;ITERATION COUNTER
6815 037527 200 04 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6816 037530 321 03 0 00 037516 JUMPL AC-1,TRO1F ;LOOP ON ERROR SWITCH ^
6817
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 154
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0185
6818
6819
6820 ;TEST TRO, TROA. CHECK FOR SKIP/NO SKIP AND
6821 ;CORRECT DATA IN AC FOR NOT RAN TO RAN CONDITION
6822
6823
6824 000005 AC=5
6825 037531 TROA1: SETUP 100,0^
6826 000006 AC1=<AC+1>&17
6827 000007 AC2=<AC+2>&17
6828 000010 AC3=<AC+3>&17
6829 000011 AC4=<AC+4>&17
6830 000012 AC5=<AC+5>&17
6831 000003 RAN1=<AC-2>&17
6832 037531 201 04 0 00 037531 MOVEI AC-1,.
6833 037532 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6834 037533 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6835 037534 202 04 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6836 037535 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6837 037536 240 04 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6838 037537 240 04 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6839 037540 TROA2: RANDOM^
6840 037540 200 05 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6841 037541 270 05 0 00 040321 ADD AC,[142536475076]
6842 037542 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6843 037543 447 05 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
6844 037544 460 06 0 00 000005 TROA3: SETCM AC1,AC ;MAKE "E" = COM C(AC)
6845 037545 200 07 0 00 000005 MOVE AC2,AC ;SIMULATE
6846 037546 410 07 0 00 040354 ANDCA AC2,[XWD-1,0] ;A
6847 037547 450 07 0 00 000000 SETCA AC2, ;TRO
6848 037550 660 05 0 06 000000 TRO AC,(AC1) ;SHOULD NOT SKIP.
6849 037551 254 00 0 00 037553 JRST .+2
6850 037552 005 05 0 00 040323 ER AC,[ASCII /TST/];TRO SKIPPED.
6851 037553 664 05 0 06 000000 TROA AC,(AC1) ;SHOULD ALWAYS SKIP.
6852 037554 005 05 0 00 040323 ER AC,[ASCII /TST/]
6853 037555 312 05 0 00 000007 CAME AC,AC2 ;C(AC) SHOULD=SIM ANS
6854 037556 013 00 0 06 000000 EERRI ,(AC1)
6855 LOOP TROA2,TROA3^
6856 037557 367 04 0 00 037540 SOJG AC-1,TROA2 ;ITERATION COUNTER
6857 037560 200 05 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6858 037561 321 04 0 00 037544 JUMPL AC-1,TROA3 ;LOOP ON ERROR SWITCH ^
6859
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 155
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0186
6860
6861
6862 ;TEST TRO, TROA. CHECK FOR SKIP/NO SKIP AND
6863 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
6864
6865
6866 000006 AC=6
6867 037562 TROA4: SETUP 100,0^
6868 000007 AC1=<AC+1>&17
6869 000010 AC2=<AC+2>&17
6870 000011 AC3=<AC+3>&17
6871 000012 AC4=<AC+4>&17
6872 000013 AC5=<AC+5>&17
6873 000004 RAN1=<AC-2>&17
6874 037562 201 05 0 00 037562 MOVEI AC-1,.
6875 037563 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6876 037564 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6877 037565 202 05 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6878 037566 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6879 037567 240 05 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6880 037570 240 05 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6881 037571 TROA5: RANDOM^
6882 037571 200 06 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6883 037572 270 06 0 00 040321 ADD AC,[142536475076]
6884 037573 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6885 037574 447 06 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
6886 037575 200 07 0 00 000006 TROA6: MOVE AC1,AC ;MAKE E = C(AC)R.
6887 037576 660 06 0 07 000000 TRO AC,(AC1) ;SHOULD NOT SKIP.
6888 037577 254 00 0 00 037601 JRST .+2
6889 037600 005 06 0 00 040323 ER AC,[ASCII /TST/];TRO SKIPPED.
6890 037601 664 06 0 07 000000 TROA AC,(AC1) ;SHOULD ALWAYS SKIP.
6891 037602 005 06 0 00 040323 ER AC,[ASCII /TST/]
6892 037603 312 06 0 00 040444 CAME AC,RAN ;C(AC) SHOULD NOT CHANGE
6893 037604 003 07 0 07 000000 ERRI AC1,(AC1)
6894 LOOP TROA5,TROA6^
6895 037605 367 05 0 00 037571 SOJG AC-1,TROA5 ;ITERATION COUNTER
6896 037606 200 06 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6897 037607 321 05 0 00 037575 JUMPL AC-1,TROA6 ;LOOP ON ERROR SWITCH ^
6898
6899
6900
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 156
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0187
6901
6902
6903 ;TEST TROE, TRON. CHECK FOR SKIP/ NO SKIP AND
6904 ;CORRECT DATA IN AC FOR A FLOATING MASK BIT
6905 ;WITH SAME BIT CLEARED IN AC.
6906
6907
6908 000007 AC=7
6909 037610 TROE1: SETUP 40,0^
6910 000010 AC1=<AC+1>&17
6911 000011 AC2=<AC+2>&17
6912 000012 AC3=<AC+3>&17
6913 000013 AC4=<AC+4>&17
6914 000014 AC5=<AC+5>&17
6915 000005 RAN1=<AC-2>&17
6916 037610 201 06 0 00 037610 MOVEI AC-1,.
6917 037611 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6918 037612 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6919 037613 202 06 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6920 037614 201 06 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
6921 037615 240 06 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6922 037616 240 06 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6923 037617 201 10 0 00 000001 MOVEI AC1,1 ;SETUP E TO HAVE A MASK BIT.
6924 037620 TROE2: RANDOM^
6925 037620 200 07 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6926 037621 270 07 0 00 040321 ADD AC,[142536475076]
6927 037622 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6928 037623 447 07 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
6929 037624 241 10 0 00 000001 ROT AC1,1 ;ROT TO TEST NEXT BIT.
6930 037625 316 10 0 00 040353 CAMN AC1,[XWD 1,0] ;BIT IN LEFT SIDE?
6931 037626 201 10 0 00 000001 MOVEI AC1,1 ;YES. REINITIALIZE E.
6932 037627 420 07 0 00 000010 TROE3: ANDCM AC,AC1 ;CLEAR MASK BIT IN AC.
6933 037630 200 05 0 00 000007 MOVE RAN1,AC ;SAVE AC IN CASE OF ERROR.
6934 037631 200 11 0 00 000007 MOVE AC2,AC ;SIMULATE
6935 037632 434 11 0 00 000010 IOR AC2,AC1 ;A TRO INST.
6936 037633 662 07 0 10 000000 TROE AC,(AC1) ;E + C(AC)R = 0...SKIP.
6937 037634 005 07 0 00 040323 ER AC,[ASCII /TST/]
6938 037635 666 07 0 10 000000 TRON AC,(AC1) ;E + C(AC)R NOT = 0...SKIP.
6939 037636 005 07 0 00 040323 ER AC,[ASCII /TST/]
6940 037637 312 07 0 00 000011 CAME AC,AC2 ;C(AC) SHOULD = SIM. ANS.
6941 037640 003 05 0 10 000000 ERRI RAN1,(AC1)
6942 LOOP TROE2,TROE3^
6943 037641 367 06 0 00 037620 SOJG AC-1,TROE2 ;ITERATION COUNTER
6944 037642 200 07 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6945 037643 321 06 0 00 037627 JUMPL AC-1,TROE3 ;LOOP ON ERROR SWITCH ^
6946
6947
6948
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 157
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0188
6949
6950
6951 ;TEST TROE, TRON. CHECK FOR SKIP/ NO SKIP AND
6952 ;CORRECT DATA IN AC FOR A FLOATING MASK BIT IN E
6953 ;AND WITH SAME BIT SET IN AC.
6954
6955
6956 000010 AC=10
6957 037644 TROEA: SETUP 40,0^
6958 000011 AC1=<AC+1>&17
6959 000012 AC2=<AC+2>&17
6960 000013 AC3=<AC+3>&17
6961 000014 AC4=<AC+4>&17
6962 000015 AC5=<AC+5>&17
6963 000006 RAN1=<AC-2>&17
6964 037644 201 07 0 00 037644 MOVEI AC-1,.
6965 037645 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6966 037646 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6967 037647 202 07 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6968 037650 201 07 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
6969 037651 240 07 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6970 037652 240 07 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6971 037653 201 11 0 00 000001 MOVEI AC1,1 ;SETUP E TO HAVE A MASK BIT.
6972 037654 TROEB: RANDOM^
6973 037654 200 10 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6974 037655 270 10 0 00 040321 ADD AC,[142536475076]
6975 037656 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6976 037657 447 10 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
6977 037660 241 11 0 00 000001 ROT AC1,1 ;ROT ATO TEST NEST BIT.
6978 037661 316 11 0 00 040353 CAMN AC1,[XWD 1,0] ;IS BIT ON LEFT SIDE?
6979 037662 201 11 0 00 000001 MOVEI AC1,1 ;YES. REINITIALIZE E.
6980 037663 434 10 0 00 000011 TROEC: IOR AC,AC1 ;SET MASK BIT IN AC.
6981 037664 200 06 0 00 000010 MOVE RAN1,AC ;SAVE FOR COMPARE.
6982 037665 662 10 0 11 000000 TROE AC,(AC1) ;E + C(AC) R NOT = 0...NO SKIP.
6983 037666 254 00 0 00 037670 JRST .+2
6984 037667 005 10 0 00 040323 ER AC,[ASCII /TST/];TROE SKIPPED.
6985 037670 666 10 0 11 000000 TRON AC,(AC1) ;E + C(AC)R NOT = 0...SKIP.
6986 037671 005 10 0 00 040323 ER AC,[ASCII /TST/]
6987 037672 312 10 0 00 000006 CAME AC,RAN1 ;C(AC) SHOULD = ORIG. C(AC).
6988 037673 003 06 0 11 000000 ERRI RAN1,(AC1)
6989 LOOP TROEB, TROEC^
6990 037674 367 07 0 00 037654 SOJG AC-1,TROEB ;ITERATION COUNTER
6991 037675 200 10 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6992 037676 321 07 0 00 037663 JUMPL AC-1,TROEC ;LOOP ON ERROR SWITCH ^
6993
6994
6995
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 158
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0189
6996 ;TEST TROE, TRON. CHECK FOR SKIP/ NO SKIP AND
6997 ;CORRECT DATA IN AC FOR A FLOATING MASK BIT IN AC
6998 ;AND SAME BIT CLEARED IN E.
6999
7000
7001 000011 AC=11
7002 037677 TRON1: SETUP 40,0^
7003 000012 AC1=<AC+1>&17
7004 000013 AC2=<AC+2>&17
7005 000014 AC3=<AC+3>&17
7006 000015 AC4=<AC+4>&17
7007 000016 AC5=<AC+5>&17
7008 000007 RAN1=<AC-2>&17
7009 037677 201 10 0 00 037677 MOVEI AC-1,.
7010 037700 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
7011 037701 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
7012 037702 202 10 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
7013 037703 201 10 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
7014 037704 240 10 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
7015 037705 240 10 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
7016 037706 201 12 0 00 000001 MOVEI AC1,1 ;SETUP AC TO HAVE A FLOATING MASK BIT.
7017 037707 TRON2: RANDOM^
7018 037707 200 11 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
7019 037710 270 11 0 00 040321 ADD AC,[142536475076]
7020 037711 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
7021 037712 447 11 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
7022 037713 241 12 0 00 000001 ROT AC1,1 ;ROT TO TEST NEXT BIT.
7023 037714 316 12 0 00 040353 CAMN AC1,[XWD 1,0] ;IS BIT ON LEFT SIDE?
7024 037715 201 12 0 00 000001 MOVEI AC1,1 ;YES. REINITIALIZE AC.
7025 037716 200 07 0 00 000012 MOVE RAN1,AC1 ;SAVE C(AC) SO IT CAN BE
7026 037717 420 11 0 00 000012 TRON3: ANDCM AC,AC1 ;CLEAR BIT IN E.
7027 037720 201 13 0 11 000000 MOVEI AC2,(AC) ;SIMULATE
7028 037721 322 13 0 00 037707 JUMPE AC2,TRON2 ;REJECT IF "E" = 0.
7029 037722 434 13 0 00 000012 IOR AC2,AC1 ;A TRO INST.
7030 037723 666 12 0 11 000000 TRON AC1,(AC) ;E + C(AC)R = 0...NO SKIP.
7031 037724 254 00 0 00 037726 JRST .+2
7032 037725 005 12 0 00 040323 ER AC1,[ASCII /TST/];TRON SKIPPED.
7033 037726 666 12 0 11 000000 TRON AC1,(AC) ;E + C(AC)R NOT = 0...SKIP.
7034 037727 005 12 0 00 040323 ER AC1,[ASCII /TST/]
7035 037730 312 12 0 00 000013 CAME AC1,AC2 ;C(AC) SHOULD = SIM. ANS.
7036 037731 003 07 0 11 000000 ERRI RAN1,(AC)
7037 037732 200 12 0 00 000007 MOVE AC1,RAN1 ;RESTORE C(AC).
7038 037733 662 12 0 11 000000 TROE AC1,(AC) ;E + C(AC)R = 0...SKIP.
7039 037734 005 12 0 00 040323 ER AC1,[ASCII /TST/]
7040 037735 662 12 0 11 000000 TROE AC1,(AC) ;E + C(AC)R NOT = 0...NO SKIP.
7041 037736 312 12 0 00 000013 CAME AC1,AC2 ;C(AC) SHOULD = SIM. ANS.
7042 037737 003 07 0 11 000000 ERRI RAN1,(AC)
7043 037740 200 12 0 00 000007 MOVE AC1,RAN1 ;RESTORE C(AC).
7044 LOOP TRON2, TRON3^
7045 037741 367 10 0 00 037707 SOJG AC-1,TRON2 ;ITERATION COUNTER
7046 037742 200 11 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
7047 037743 321 10 0 00 037717 JUMPL AC-1,TRON3 ;LOOP ON ERROR SWITCH ^
7048
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 159
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0190
7049
7050
7051 ;TEST TROE, TRON. CHECK FOR SKIP/ NO SKIP AND
7052 ;CORRECT DATA IN AC FOR A FLOATING ONE IN AC
7053 ;AND SAME BIT SET IN E.
7054
7055
7056 000012 AC=12
7057 037744 TRONA: SETUP 40,0^
7058 000013 AC1=<AC+1>&17
7059 000014 AC2=<AC+2>&17
7060 000015 AC3=<AC+3>&17
7061 000016 AC4=<AC+4>&17
7062 000017 AC5=<AC+5>&17
7063 000010 RAN1=<AC-2>&17
7064 037744 201 11 0 00 037744 MOVEI AC-1,.
7065 037745 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
7066 037746 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
7067 037747 202 11 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
7068 037750 201 11 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
7069 037751 240 11 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
7070 037752 240 11 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
7071 037753 201 13 0 00 000001 MOVEI AC1,1 ;SETUP AC TO HAVE A FLOATING ONE.
7072 037754 TRONB: RANDOM^
7073 037754 200 12 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
7074 037755 270 12 0 00 040321 ADD AC,[142536475076]
7075 037756 241 12 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
7076 037757 447 12 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
7077 037760 241 13 0 00 000001 ROT AC1,1 ;ROT TO TEST NEXT BIT.
7078 037761 316 13 0 00 040353 CAMN AC1,[XWD 1,0] ;IS BIT ON LEFT SIDE?
7079 037762 201 13 0 00 000001 MOVEI AC1,1 ;YES. REINITIALIZE AC.
7080 037763 200 10 0 00 000013 MOVE RAN1,AC1 ;SAVE C(AC) SO IT CAN BE
7081 037764 434 12 0 00 000013 TRONC: IOR AC,AC1 ;SET BIT IN E.
7082 037765 201 14 0 12 000000 MOVEI AC2,(AC) ;SIMULATE A TRO INST.
7083 037766 662 13 0 12 000000 TROE AC1,(AC) ;E + C(AC)R NOT = 0...NO SKIP.
7084 037767 254 00 0 00 037771 JRST .+2
7085 037770 005 13 0 00 040323 ER AC1,[ASCII /TST/];TROE SKIPPED.
7086 037771 666 13 0 12 000000 TRON AC1,(AC) ;E + C(AC)R NOT = 0...SKIP.
7087 037772 005 13 0 00 040323 ER AC1,[ASCII /TST/]
7088 037773 312 13 0 00 000014 CAME AC1,AC2 ;C(AC) SHOULD = SIM. ANS.
7089 037774 003 10 0 12 000000 ERRI RAN1,(AC)
7090 037775 200 13 0 00 000010 MOVE AC1,RAN1 ;RESTORE C(AC).
7091 LOOP TRONB, TRONC^
7092 037776 367 11 0 00 037754 SOJG AC-1,TRONB ;ITERATION COUNTER
7093 037777 200 12 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
7094 040000 321 11 0 00 037764 JUMPL AC-1,TRONC ;LOOP ON ERROR SWITCH ^
7095
7096
7097
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 160
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0191
7098
7099
7100
7101
7102 ;TEST TRC,TRCA. CHECK FOR SKIP/NO SKIP AND
7103 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
7104
7105
7106 000007 AC=7
7107 040001 TRC1: SETUP 100,0^
7108 000010 AC1=<AC+1>&17
7109 000011 AC2=<AC+2>&17
7110 000012 AC3=<AC+3>&17
7111 000013 AC4=<AC+4>&17
7112 000014 AC5=<AC+5>&17
7113 000005 RAN1=<AC-2>&17
7114 040001 201 06 0 00 040001 MOVEI AC-1,.
7115 040002 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
7116 040003 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
7117 040004 202 06 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
7118 040005 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
7119 040006 240 06 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
7120 040007 240 06 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
7121 040010 TRC2: RANDOM^
7122 040010 200 07 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
7123 040011 270 07 0 00 040321 ADD AC,[142536475076]
7124 040012 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
7125 040013 447 07 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
7126 040014 640 07 0 00 000000 TRC3: TRC AC,0 ;SHOULD NOT SKIP.
7127 040015 254 00 0 00 040017 JRST .+2
7128 040016 005 07 0 00 040323 ER AC,[ASCII /TST/];TRC SKIPPED.
7129 040017 644 07 0 00 000000 TRCA AC,0 ;SHOULD SKIP
7130 040020 005 07 0 00 040323 ER AC,[ASCII /TST/]
7131 040021 312 07 0 00 040444 CAME AC,RAN ;C(AC) SHOULD STILL=RAN NUM
7132 040022 013 00 0 00 000000 EERRI
7133 LOOP TRC2,TRC3^
7134 040023 367 06 0 00 040010 SOJG AC-1,TRC2 ;ITERATION COUNTER
7135 040024 200 07 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
7136 040025 321 06 0 00 040014 JUMPL AC-1,TRC3 ;LOOP ON ERROR SWITCH ^
7137
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 161
DAKBBM MAC 21-JAN-77 16:48 DIAGNOSTIC SECTION SEQ 0192
7138 ;TEST TRC,TRCA. CHECK FOR SKIP/NO SKIP AND
7139 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
7140
7141
7142 000010 AC=10
7143 040026 TRCA1: SETUP 100,0^
7144 000011 AC1=<AC+1>&17
7145 000012 AC2=<AC+2>&17
7146 000013 AC3=<AC+3>&17
7147 000014 AC4=<AC+4>&17
7148 000015 AC5=<AC+5>&17
7149 000006 RAN1=<AC-2>&17
7150 040026 201 07 0 00 040026 MOVEI AC-1,.
7151 040027 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
7152 040030 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
7153 040031 202 07 0 00 040441 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
7154 040032 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
7155 040033 240 07 1 00 030666 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
7156 040034 240 07 1 00 030665 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
7157 040035 TRCA2: RANDOM^
7158 040035 200 10 0 00 040444 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
7159 040036 270 10 0 00 040321 ADD AC,[142536475076]
7160 040037 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
7161 040040 447 10 0 00 040444 EQVB AC,RAN ;REGISTER RAN ^
7162 040041 403 11 0 00 000006 TRCA3: SETZB AC1,RAN1 ;CLEAR C(AC).
7163 040042 640 11 0 10 000000 TRC AC1,(AC) ;SHOULD NOT SKIP.
7164 040043 254 00 0 00 040045 JRST .+2
7165 040044 005 11 0 00 040323 ER AC1,[ASCII /TST/];TRC SKIPPED.
7166 040045 644 11 0 10 000000 TRCA AC1,(AC) ;SHOULD ALWAYS SKIP.
7167 040046 005 11 0 00 040323 ER AC1,[ASCII /TST/]
7168 040047 312 11 0 00 040322 CAME AC1,[0] ;C(AC) SHOULD STILL=0
7169 040050 003 06 0 10 000000 ERRI RAN1,(AC)
7170 LOOP TRCA2,TRCA3^
7171 040051 367 07 0 00 040035 SOJG AC-1,TRCA2 ;ITERATION COUNTER
7172 040052 200 10 0 00 040444 MOVE AC,RAN ;RESTORE RANDOM NUMBER
7173 040053 321 07 0 00 040041 JUMPL AC-1,TRCA3 ;LOOP ON ERROR SWITCH ^
7174
7175
7176 040054 254 00 0 00 030057 JRST BEGEND ;REPEAT TEST
7177
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 1
UUOERR KLM 22-APR-75 01:42 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0193
7178 SUBTTL *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975
7179
7180 ;THIS SUBROUTINE PROVIDES ERROR REPORTING THRU THE USE OF UUO'S.
7181
7182 040055 202 00 0 00 040453 ERRMES: MOVEM 0,%ERAC0# ;SAVE AC0
7183 IFDEF EXCASB,<IFDEF KI10,<
7184 SKIPN KAIFLG
7185 JRST .+5
7186 SKIPE USER ;USER MODE ?
7187 JRST .+3
7188 SKIPE MARGIN
7189 DATAO APR,[IMGNOF,,ISPDOF] ;CLR MARGINS >>
7190 040056 202 01 0 00 040454 MOVEM 1,%ERAC1# ;SAVE AC1
7191 040057 202 02 0 00 040455 MOVEM 2,%ERAC2# ;SAVE AC2
7192 040060 350 00 0 00 030053 AOS ERRTLS ;INCREMENT ERROR TOTALS
7193 040061 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO
7194 040062 316 00 0 00 030052 CAMN 0,ERRPC ;PC = PC OF LAST ERROR ?
7195 040063 350 00 0 00 040442 AOS MICNT# ;YES, ADD 1 TO ERROR COUNT
7196 040064 200 00 0 00 040442 MOVE 0,MICNT
7197 040065 504 00 0 00 030114 HRL 0,$SVUPC
7198 040066 336 00 0 00 030041 SKIPN KLFLG ;NOT KL10
7199 040067 332 00 0 00 030037 SKIPE USER ;AND NOT USER?
7200 040070 254 00 0 00 040072 JRST .+2
7201 040071 7 004 14 0 00 000000 DATAO PI,0 ;YES, DISPLAY ERROR PC,ERROR COUNT
7202 040072 402 00 0 00 040443 SETZM PROCED# ;CLEAR PROCEED FLAG
7203 040073 037 10 0 00 000002 SWITCH
7204 040074 603 00 0 00 040000 TLNE NOPNT ;PRINTOUT ?
7205 040075 254 00 0 00 040261 JRST %ERRS1 ;NO, RESTORE AC'S AND RETURN
7206 040076 200 01 0 00 030113 MOVE 1,$SVUUO
7207 040077 242 01 0 00 777745 LSH 1,-^D27
7208 040100 202 01 0 00 040445 MOVEM 1,%ACS1A# ;SAVE UUO NUMBER
7209 040101 200 00 0 00 040453 MOVE 0,%ERAC0
7210 040102 200 01 0 00 040454 MOVE 1,%ERAC1
7211 040103 335 00 1 00 040441 SKIPGE @ERRLOP ;ERR LOOP AC > OR = 0 ?
7212 040104 254 00 0 00 040313 JRST %ERRS4 ;NO, SEE IF PRINT ALL
7213 040105 402 00 0 00 040442 %ERMS1: SETZM MICNT ;CLEAR ERROR COUNT
7214 040106 331 00 0 00 030043 SKIPL MONCTL ;DIAG MON OR SYS EXER ?
7215 040107 254 00 0 00 040113 JRST .+4 ;NO, DON'T NEED TITLE
7216 040110 336 00 0 00 040456 SKIPN %ERFST# ;FIRST ERROR ?
7217 040111 037 04 0 00 000002 PNTNM ;YES, PRINT PROGRAM TITLE
7218 040112 476 00 0 00 040456 SETOM %ERFST
7219 040113 336 00 0 00 030047 SKIPN PASCNT ;FIRST PASS ?
7220 040114 254 00 0 00 040120 JRST .+4 ;YES
7221 PMSG <^TEST PASS COUNT = >^
7222 040115 037 02 0 00 040355 PSIXM [SIXBIT\^TEST PASS COUNT = _\]^
7223 040116 200 00 0 00 030047 MOVE PASCNT
7224 040117 037 15 0 00 000000 PNTDEC
7225 PMSG <^PC = >^
7226 040120 037 02 0 00 040361 PSIXM [SIXBIT\^PC = _\]^
7227 040121 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO
7228 040122 202 00 0 00 030052 MOVEM 0,ERRPC ;SAVE FOR COMPARE
7229 040123 037 06 0 00 000000 PNT6 ;PRINT UUO ADDRESS
7230 XLIST
7231 LIST
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 4
UUOERR KLM 22-APR-75 01:42 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0194
7232 ;RELIABILITY FORMAT ERROR PRINTER
7233
7234 040124 402 00 0 00 040457 %ERMS2: SETZM %RAND# ;CLEAR PNT C(RAN) FLAG
7235 040125 200 01 0 00 040445 MOVE 1,%ACS1A
7236 040126 301 01 0 00 000011 CAIL 1,11 ;UUO # 11-13
7237 040127 476 00 0 00 040457 SETOM %RAND ;YES, SET PNT C(RAN) FLAG
7238 040130 620 01 0 00 000010 TRZ 1,10 ;MAKE UUO # 1-7
7239 040131 202 01 0 00 040445 MOVEM 1,%ACS1A
7240 040132 200 02 0 00 030052 MOVE 2,ERRPC ;GET UUO ADDRESS
7241 040133 200 02 0 02 777777 MOVE 2,-1(2) ;GET INST IN UUO-1
7242 040134 301 01 0 00 000004 CAIL 1,4 ;UUO # < THAN 4 ?
7243 040135 200 02 0 00 030113 MOVE 2,$SVUUO ;YES, GET UUO
7244 040136 202 02 0 00 040446 MOVEM 2,%CNTE# ;SAVE E ADDRESS
7245 040137 200 02 0 00 040455 MOVE 2,%ERAC2
7246 040140 200 01 0 00 040454 MOVE 1,%ERAC1
7247 040141 200 00 0 00 040453 MOVE 0,%ERAC0
7248 040142 201 01 1 00 040446 MOVEI 1,@%CNTE ;GET ADRS FIELD OF UUO OR UUO-1
7249 040143 202 01 0 00 040447 MOVEM 1,%EE1#
7250 040144 200 01 0 00 040454 MOVE 1,%ERAC1
7251 040145 200 01 1 00 040447 MOVE 1,@%EE1 ;GET C(E)
7252 040146 202 01 0 00 040450 MOVEM 1,%EE1A#
7253 040147 200 01 0 00 040454 MOVE 1,%ERAC1
7254 040150 201 01 1 00 030113 MOVEI 1,@$SVUUO ;GET ADDRESS FIELD OF UUO
7255 040151 202 01 0 00 040451 MOVEM 1,%EE2#
7256 040152 200 01 0 00 040445 MOVE 1,%ACS1A
7257 040153 306 01 0 00 000003 CAIN 1,3 ;UUO # 3 ?
7258 040154 254 00 0 00 040160 JRST .+4 ;YES
7259 040155 200 01 0 00 040454 MOVE 1,%ERAC1
7260 040156 200 01 1 00 040451 MOVE 1,@%EE2 ;GET C(E) OF UUO
7261 040157 202 01 0 00 040452 MOVEM 1,%EE2A#
7262 040160 200 02 0 00 040445 MOVE 2,%ACS1A ;GET UUO #
7263 040161 200 01 0 00 040446 MOVE 1,%CNTE
7264 040162 242 01 0 00 777751 LSH 1,-27 ;GET AC NUMBER
7265 040163 405 01 0 00 000017 ANDI 1,17
7266 040164 307 02 0 00 000005 CAIG 2,5 ;UUO # 6,7 OR 2
7267 040165 306 02 0 00 000002 CAIN 2,2
7268 040166 254 00 0 00 040235 JRST %ERR2 ;YES, GO PNT E AND C(E)
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 5
UUOERR KLM 22-APR-75 01:42 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0195
7269 ;PRINT ERROR AC
7270
7271 PMSG <^AC = >^
7272 040167 037 02 0 00 040363 PSIXM [SIXBIT\^AC = _\]^
7273 040170 200 00 0 00 000001 MOVE 0,1
7274 040171 037 02 0 00 000000 PNT2 ;PRINT AC NUMBER
7275 PMSG <^C(AC)= >^
7276 040172 037 02 0 00 040365 PSIXM [SIXBIT\^C(AC)= _\]^
7277 040173 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC)
7278 040174 307 01 0 00 000002 CAIG 1,2 ;IS AC # = SAVED AC ?
7279 040175 200 00 0 01 040453 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC
7280 040176 037 13 0 00 000000 %ERRB: PNTHW ;PRINT C(AC) OR UUO2 (E)
7281
7282 ;PRINT ERROR INFO
7283
7284 040177 306 02 0 00 000005 CAIN 2,5 ;UUO # 5
7285 040200 254 00 0 00 040251 JRST %ERR4 ;YES, GO PNT 'TST','SKP', OR ETC.
7286
7287 PMSG <^COR = >^
7288 040201 037 02 0 00 040367 PSIXM [SIXBIT\^COR = _\]^
7289 040202 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC)
7290 040203 307 01 0 00 000002 CAIG 1,2 ;IS AC # = SAVED AC ?
7291 040204 200 00 0 01 040453 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC
7292 040205 302 02 0 00 000002 CAIE 2,2
7293 040206 200 00 0 00 040450 MOVE 0,%EE1A ;UUO # 2, GET C(E)
7294 040207 037 13 0 00 000000 PNTHW ;PRINT C(E) OR UUO2 C(AC)
7295 040210 301 02 0 00 000004 CAIL 2,4 ;UUO # >3 ?
7296 040211 254 00 0 00 040254 JRST %ERRC ;YES, RESTORE AC'S AND RETURN
7297
7298 PMSG <^ ORIGINAL>^
7299 040212 037 02 0 00 040371 PSIXM [SIXBIT\^ ORIGINAL_\]^
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 6
UUOERR KLM 22-APR-75 01:42 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0196
7300 040213 200 01 0 00 030113 %ERRB1: MOVE 1,$SVUUO
7301 040214 242 01 0 00 777751 LSH 1,-27 ;GET AC # OF UUO
7302 040215 405 01 0 00 000017 ANDI 1,17
7303 PMSG <^C(AC)= >^
7304 040216 037 02 0 00 040365 PSIXM [SIXBIT\^C(AC)= _\]^
7305 040217 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC)
7306 040220 307 01 0 00 000002 CAIG 1,2 ;IS AC # = SAVED AC ?
7307 040221 200 00 0 01 040453 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC
7308 040222 332 00 0 00 040457 SKIPE %RAND ;PRINT C(RAN) FLAG SET ?
7309 040223 200 00 0 00 040444 MOVE 0,RAN# ;YES
7310 040224 037 13 0 00 000000 PNTHW ;PRINT C(AC) OR C(RAN)
7311 040225 306 02 0 00 000003 CAIN 2,3 ;UUO # 3 ?
7312 040226 254 00 0 00 040235 JRST %ERR2 ;YES, PRINT E, RESTORE AC'S AND RETURN
7313 040227 306 02 0 00 000007 CAIN 2,7 ;UUO # 7 ?
7314 040230 254 00 0 00 040254 JRST %ERRC ;YES, BYPASS PRINTING C(E)
7315 PMSG <^C(E) = >^
7316 040231 037 02 0 00 040374 PSIXM [SIXBIT\^C(E) = _\]^
7317 040232 200 00 0 00 040452 MOVE 0,%EE2A
7318 040233 037 13 0 00 000000 PNTHW ;PRINT C(E)
7319 040234 254 00 0 00 040254 JRST %ERRC
7320
7321 040235 %ERR2: PMSG <^E = >^
7322 040235 037 02 0 00 040376 PSIXM [SIXBIT\^E = _\]^
7323 040236 200 00 0 00 040451 MOVE 0,%EE2
7324 040237 306 02 0 00 000002 CAIN 2,2 ;UUO # 2 ?
7325 040240 200 00 0 00 040447 MOVE 0,%EE1
7326 040241 037 06 0 00 000000 PNT6 ;PRINT E OF UUO OR UUO-1
7327 040242 301 02 0 00 000006 CAIL 2,6 ;UUO 6 OR 7 ?
7328 040243 254 00 0 00 040213 JRST %ERRB1 ;YES, GO PNT C(AC), C(E) AND RETURN
7329 040244 306 02 0 00 000003 CAIN 2,3 ;UUO # 3 ?
7330 040245 254 00 0 00 040254 JRST %ERRC ;YES, RESTORE AC'S AND RETURN
7331
7332 PMSG <^C(E) = >^
7333 040246 037 02 0 00 040374 PSIXM [SIXBIT\^C(E) = _\]^
7334 040247 200 00 0 00 040450 MOVE 0,%EE1A ;GET C(E)
7335 040250 254 00 0 00 040176 JRST %ERRB
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 7
UUOERR KLM 22-APR-75 01:42 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0197
7336 ;PRINT ASCII COMMENT
7337
7338 040251 551 00 1 00 030113 %ERR4: HRRZI 0,@$SVUUO
7339 040252 037 00 0 00 000000 PNTA ;PRINT 'TST','SKP', OR ETC.
7340 040253 254 00 0 00 040254 JRST %ERRC
7341
7342 ;COMPLETE PRINTOUT
7343
7344 040254 037 00 0 00 030242 %ERRC: PCRL
7345
7346 XLIST
7347 LIST
7348 040255 254 00 0 00 040256 JRST %ERMORE
7349
7350 >
7351 LIST
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 8
UUOERR KLM 22-APR-75 01:42 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0198
7352 ;RESTORE AC'S AND RETURN OR HALT
7353
7354 040256 256 00 0 00 030101 %ERMORE:XCT ERMORE
7355 040257 037 16 0 00 000002 PNTMGN ;PRINT MARGINS
7356 040260 037 10 0 00 000002 SWITCH
7357
7358 040261 037 07 0 00 000003 %ERRS1: TTALTM ;ALTMODE CHECK
7359 040262 254 00 0 00 040266 JRST .+4 ;NONE
7360 040263 201 00 0 00 040266 MOVEI .+3 ;SAVE CONT ADDRESS
7361 040264 202 00 0 00 000130 MOVEM JOBOPC
7362 040265 254 00 1 00 030063 JRST @ALTMGO ;PERFORM TRANSFER
7363 040266 200 00 0 00 030046 MOVE CONSW
7364 040267 603 00 0 00 002000 TLNE 0,ERSTOP ;HALT ON ERROR SWITCH SET ?
7365 040270 037 14 0 00 000004 ERRHLT ;YES
7366 040271 607 00 0 00 004000 TLNN 0,LOOPER ;LOOP ON ERROR SWITCH SET ?
7367 040272 476 00 0 00 040443 SETOM PROCED ;NO, SET THE PROCEED FLAG
7368 040273 603 00 0 00 010000 TLNE 0,DING ;RING BELL SWITCH SET ?
7369 040274 037 01 0 00 000007 PBELL ;YES, GO RING BELL
7370
7371 040275 200 02 0 00 040455 %ERRS2: MOVE 2,%ERAC2 ;RESTORE AC'S
7372 040276 200 01 0 00 040454 MOVE 1,%ERAC1
7373 040277 476 00 1 00 040441 SETOM @ERRLOP ;SET C(ERR LOOP AC) TO -1
7374 040300 336 00 0 00 040443 SKIPN PROCED ;LOOP ON ERROR ?
7375 040301 254 00 0 00 040311 JRST %ERRS5 ;YES
7376 040302 350 00 1 00 040441 AOS @ERRLOP ;NO, INC C(ERR LOOP AC)
7377 040303 350 00 1 00 040441 AOS @ERRLOP ;SO IT ='S 1
7378 040304 331 00 0 00 030043 SKIPL MONCTL ;UNDER DIAGNOSTIC MONITOR ?
7379 040305 254 00 0 00 040311 JRST %ERRS5 ;NO, CONTINUE PROGRAM
7380 040306 200 00 0 00 030053 MOVE 0,ERRTLS ;YES
7381 040307 301 00 0 00 000005 CAIL 0,5 ;PRINTED ALLOWED ERRORS ?
7382 040310 254 00 0 00 030061 JRST $BEND2
7383
7384 040311 200 00 0 00 040453 %ERRS5: MOVE 0,%ERAC0 ;NO, CONTINUE PROGRAM
7385 IFDEF EXCASB,<IFDEF KI10,<
7386 SKIPN KAIFLG
7387 JRST .+5
7388 SKIPE USER
7389 JRST .+3
7390 SKIPE MARGIN
7391 DATAO APR,MARGIN ;RESET MARGIN SYSTEM >>
7392 040312 254 00 0 00 030065 JRST UUOEXT
7393
7394 040313 200 00 0 00 030046 %ERRS4: MOVE 0,CONSW
7395 040314 607 00 0 00 001000 TLNN PALERS ;PRINT ALL ERRORS ?
7396 040315 254 00 0 00 040261 JRST %ERRS1 ;NO
7397 040316 254 00 0 00 040105 JRST %ERMS1 ;YES
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 1
STOR KLM 18-JAN-77 11:42 *STOR* RESERVED STORAGE, JAN 18,1977 SEQ 0199
7398 SUBTTL *STOR* RESERVED STORAGE, JAN 18,1977
7399
7400 ;PROGRAM LITERALS
7401
7402 XLIST
7403 IFNDEF $LPAPER,<LIST>
7404 040317 LIT
7405 040317 64 51 55 45 62 00
7406 040320 45 70 51 64 00 00
7407 040321 142536 475076
7408 040322 000000 000000
7409 040323 124 123 124 000 000
7410 040324 777777 777777
7411 040325 123 113 120 000 000
7412 040326 101 122 117 126 000
7413 040327 400000 000000
7414 040330 377777 777777
7415 040331 112 115 120 000 000
7416 040332 400000 000001
7417 040333 000000 000002
7418 040334 101 117 123 000 000
7419 040335 117 126 000 000 000
7420 040336 103 122 131 060 000
7421 040337 103 122 131 061 000
7422 040340 000000 000001
7423 040341 777777 777776
7424 040342 600000 000000
7425 040343 000000 000003
7426 040344 200000 000000
7427 040345 101 117 112 000 000
7428 040346 123 117 123 000 000
7429 040347 123 117 112 000 000
7430 040350 103 101 115 000 000
7431 040351 103 101 111 000 000
7432 040352 000000 003154
7433 040353 000001 000000
7434 040354 777777 000000
7435 040355 76 64 45 63 64 00
7436 040356 60 41 63 63 00 43
7437 040357 57 65 56 64 00 35
7438 040360 00 77 00 00 00 00
7439 040361 76 60 43 00 35 00
7440 040362 00 00 77 00 00 00
7441 040363 76 41 43 00 35 00
7442 040364 00 00 77 00 00 00
7443 040365 76 43 10 41 43 11
7444 040366 35 00 77 00 00 00
7445 040367 76 43 57 62 00 35
7446 040370 00 00 77 00 00 00
7447 040371 76 00 00 00 00 57
7448 040372 62 51 47 51 56 41
7449 040373 54 77 00 00 00 00
7450 040374 76 43 10 45 11 00
7451 040375 35 00 77 00 00 00
7452 040376 76 45 00 35 00 00
DAKBB PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %52(537) 17:32 21-JAN-77 PAGE 1-1
STOR KLM 18-JAN-77 11:42 *STOR* RESERVED STORAGE, JAN 18,1977 SEQ 0200
7453 040377 00 00 77 00 00 00
7454 LIST
7455 040400 000000 000000 ENDSLD: 0
7456
7457 IFDEF DEBUG,<
7458 040401 PATCH: BLOCK DEBUG ;PATCHING AREA
7459 >
7460
7461 ;PROGRAM VARIABLES
7462 040441 VAR
7463
7464 IFDEF PGMEND,<
7465 040460 000000 000000 END: 0
7466 030000 END BEGIN >
NO ERRORS DETECTED
PROGRAM BREAK IS 000000
ABSLUTE BREAK IS 040461
CPU TIME USED 00:36.490
11K CORE USED
A 681# 693 695 695# 697 699 699# 701 703 703# 705 707 707# 709
711 711# 713 715 715# 717 719 719# SEQ 0201
AABCLR 348#
AADRBK 348#
AAPRC1 348#
ABORT 119#
AC 768# 770 771 772 773 774 775 776 777 778 779 780 781 782
784 785 786 787 789 791 793 794 795 801# 803 804 805 806
807 808 809 810 811 812 813 814 815 817 818 819 820 821
823 824 827 829 830 831 841# 843 844 845 846 847 848 849
850 851 852 853 854 855 857 858 859 860 861 862 863 864
867 868 869 877# 879 880 881 882 883 884 885 886 887 888
889 890 891 893 894 895 896 897 899 901 903 904 905 914#
916 917 918 919 920 921 922 923 924 925 926 927 928 931
932 933 934 936 937 938 940 941 942 943 945 946 947 948
951 952 953 962# 964 965 966 967 968 969 970 971 972 973
974 975 976 979 980 981 982 984 985 986 988 989 990 991
993 994 995 996 999 1000 1001 1010# 1012 1013 1014 1015 1016 1017
1018 1019 1020 1021 1022 1023 1024 1027 1028 1029 1030 1034 1035 1036
1039 1042 1043 1045 1047 1049 1050 1051 1059# 1061 1062 1063 1064 1065
1066 1067 1068 1069 1070 1071 1072 1073 1076 1077 1078 1079 1083 1084
1086 1088 1090 1093 1096 1097 1098 1107# 1109 1110 1111 1112 1113 1114
1115 1116 1117 1118 1119 1120 1121 1124 1125 1126 1127 1129 1130 1131
1133 1134 1135 1136 1139 1140 1141 1149# 1151 1152 1153 1154 1155 1156
1157 1158 1159 1160 1161 1162 1163 1166 1167 1168 1169 1171 1172 1173
1175 1176 1177 1178 1181 1182 1183 1192# 1194 1195 1196 1197 1198 1199
1200 1201 1202 1203 1204 1205 1206 1209 1210 1211 1212 1216 1217 1220
1223 1225 1226 1227 1237# 1239 1240 1241 1242 1243 1244 1245 1246 1247
1248 1249 1250 1251 1254 1255 1256 1257 1261 1262 1265 1268 1270 1271
1272 1280# 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293
1294 1296 1297 1298 1299 1301 1303 1305 1307 1308 1309 1317# 1320 1321
1322 1323 1324 1325 1326 1327 1328 1329 1330 1331 1332 1334 1335 1336
1337 1339 1340 1343 1344 1345 1353# 1355 1356 1357 1358 1359 1360 1361
1362 1363 1364 1365 1366 1367 1369 1370 1371 1372 1373 1374 1375 1376
1377 1380 1381 1382 1391# 1393 1394 1395 1396 1397 1398 1399 1400 1401
1402 1403 1404 1405 1407 1408 1409 1410 1411 1412 1414 1415 1416 1417
1420 1421 1422 1432# 1434 1435 1436 1437 1438 1439 1440 1441 1442 1443
1444 1445 1446 1448 1449 1450 1451 1453 1455 1456 1457 1458 1461 1462
1463 1471# 1473 1474 1475 1476 1477 1478 1479 1480 1481 1482 1483 1484
1485 1487 1488 1489 1490 1492 1493 1495 1497 1500 1502 1503 1504 1512#
1514 1515 1516 1517 1518 1519 1520 1521 1522 1523 1524 1525 1526 1528
1529 1530 1531 1532 1533 1536 1538 1539 1540 1541 1544 1545 1546 1554#
1556 1557 1558 1559 1560 1561 1562 1563 1564 1565 1566 1567 1568 1570
1571 1572 1573 1574 1576 1579 1582 1584 1586 1588 1590 1591 1592 1601#
1603 1604 1605 1606 1607 1608 1609 1610 1611 1612 1613 1614 1615 1617
1618 1619 1620 1621 1622 1625 1627 1628 1629 1630 1632 1633 1634 1635
1638 1639 1640 1649# 1651 1652 1653 1654 1655 1656 1657 1658 1659 1660
1661 1662 1663 1665 1666 1667 1668 1669 1670 1671 1672 1674 1676 1678
1679 1680 1681 1684 1685 1686 1694# 1696 1697 1698 1699 1700 1701 1702
1703 1704 1705 1706 1707 1708 1710 1711 1712 1713 1715 1717 1720 1723
1725 1726 1727 1735# 1737 1738 1739 1740 1741 1742 1743 1744 1745 1746
1747 1748 1749 1751 1752 1753 1754 1756 1758 1759 1760 1761 1764 1765
1766 1775# 1777 1778 1779 1780 1781 1782 1783 1784 1785 1786 1787 1788
1789 1791 1792 1793 1794 1795 1796 1798 1799 1800 1801 1804 1805 1806
1814# 1816 1817 1818 1819 1820 1821 1822 1823 1824 1825 1826 1827 1828 SEQ 0202
1830 1831 1832 1833 1834 1836 1838 1840 1841 1842 1843 1846 1847 1848
1856# 1858 1859 1860 1861 1862 1863 1864 1865 1866 1867 1868 1869 1870
1872 1873 1874 1875 1877 1879 1880 1881 1882 1885 1886 1887 1895# 1897
1898 1899 1900 1901 1902 1903 1904 1905 1906 1907 1908 1909 1911 1912
1913 1914 1915 1917 1918 1921 1924 1926 1928 1930 1932 1933 1934 1942#
1944 1945 1946 1947 1948 1949 1950 1951 1952 1953 1954 1955 1956 1958
1959 1960 1961 1962 1964 1965 1967 1968 1969 1970 1973 1974 1975 1983#
1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1999
2000 2001 2002 2003 2005 2008 2011 2013 2014 2015 2023# 2025 2026 2027
2028 2029 2030 2031 2032 2033 2034 2035 2036 2037 2039 2040 2041 2042
2043 2045 2046 2048 2049 2050 2051 2054 2055 2056 2064# 2066 2067 2068
2069 2070 2071 2072 2073 2074 2075 2076 2077 2078 2080 2081 2082 2083
2084 2085 2086 2088 2089 2090 2091 2094 2095 2096 2104# 2106 2107 2108
2109 2110 2111 2112 2113 2114 2115 2116 2117 2118 2120 2121 2122 2123
2125 2127 2128 2129 2130 2133 2134 2135 2143# 2145 2146 2147 2148 2149
2150 2151 2152 2153 2154 2155 2156 2157 2159 2160 2161 2162 2164 2167
2170 2172 2173 2174 2183# 2185 2186 2187 2188 2189 2190 2191 2192 2193
2194 2195 2196 2197 2199 2200 2201 2202 2203 2204 2206 2207 2208 2209
2212 2213 2214 2222# 2224 2225 2226 2227 2228 2229 2230 2231 2232 2233
2234 2235 2236 2238 2239 2240 2241 2242 2243 2244 2248 2250 2251 2252
2253 2256 2257 2258 2266# 2268 2269 2270 2271 2272 2273 2274 2275 2276
2277 2278 2279 2280 2282 2283 2284 2285 2287 2289 2290 2291 2292 2295
2296 2297 2305# 2307 2308 2309 2310 2311 2312 2313 2314 2315 2316 2317
2318 2319 2321 2322 2323 2324 2326 2329 2332 2334 2335 2336 2344# 2346
2347 2348 2349 2350 2351 2352 2353 2354 2355 2356 2357 2358 2360 2361
2362 2363 2364 2366 2367 2369 2370 2371 2372 2375 2376 2377 2385# 2387
2388 2389 2390 2391 2392 2393 2394 2395 2396 2397 2398 2399 2401 2402
2403 2404 2405 2407 2409 2411 2413 2416 2418 2419 2420 2428# 2430 2431
2432 2433 2434 2435 2436 2437 2438 2439 2440 2441 2442 2444 2445 2446
2447 2448 2450 2451 2453 2454 2455 2458 2459 2460 2468# 2470 2471 2472
2473 2474 2475 2476 2477 2478 2479 2480 2481 2482 2484 2485 2486 2487
2488 2489 2490 2491 2493 2494 2495 2496 2499 2500 2501 2509# 2511 2512
2513 2514 2515 2516 2517 2518 2519 2520 2521 2522 2523 2525 2526 2527
2528 2530 2532 2533 2534 2535 2538 2539 2540 2548# 2550 2551 2552 2553
2554 2555 2556 2557 2558 2559 2560 2561 2562 2564 2565 2566 2567 2569
2572 2573 2575 2577 2578 2579 2587# 2589 2590 2591 2592 2593 2594 2595
2596 2597 2598 2599 2600 2601 2603 2604 2605 2606 2607 2608 2610 2611
2612 2613 2616 2617 2618 2627# 2629 2630 2631 2632 2633 2634 2635 2636
2637 2638 2639 2640 2641 2643 2644 2645 2646 2647 2648 2650 2651 2652
2653 2656 2657 2658 2666# 2668 2669 2670 2671 2672 2673 2674 2675 2676
2677 2678 2679 2680 2682 2683 2684 2685 2687 2689 2690 2691 2692 2695
2696 2697 2705# 2707 2708 2709 2710 2711 2712 2713 2714 2715 2716 2717
2718 2719 2721 2722 2723 2724 2726 2729 2732 2734 2735 2736 2744# 2746
2747 2748 2749 2750 2751 2752 2753 2754 2755 2756 2757 2758 2760 2761
2762 2763 2764 2766 2768 2769 2770 2771 2774 2775 2776 2784# 2786 2787
2788 2789 2790 2791 2792 2793 2794 2795 2796 2797 2798 2800 2801 2802
2803 2804 2806 2809 2812 2814 2815 2816 2824# 2826 2827 2828 2829 2830
2831 2832 2833 2834 2835 2836 2837 2838 2840 2841 2842 2843 2844 2845
2847 2849 2850 2851 2852 2855 2856 2857 2865# 2867 2868 2869 2870 2871
2872 2873 2874 2875 2876 2877 2878 2879 2881 2882 2883 2884 2885 2886
2888 2889 2891 2892 2893 2894 2897 2898 2899 2908# 2910 2911 2912 2913
2914 2915 2916 2917 2918 2919 2920 2921 2922 2924 2925 2926 2927 2930
2931 2932 2935 2936 2937 2939 2941 2942 2943 2951# 2953 2954 2955 2956 SEQ 0203
2957 2958 2959 2960 2961 2962 2963 2964 2965 2968 2969 2970 2971 2975
2976 2980 2983 2984 2985 2996# 2998 2999 3000 3001 3002 3003 3004 3005
3006 3007 3008 3009 3010 3012 3013 3014 3015 3017 3018 3020 3025 3026
3027 3038# 3040 3041 3042 3043 3044 3045 3046 3047 3048 3049 3050 3051
3052 3055 3056 3057 3058 3064 3065 3066 3069 3072 3073 3074 3083# 3085
3086 3087 3088 3089 3090 3091 3092 3093 3094 3095 3096 3097 3099 3100
3101 3102 3103 3104 3105 3107 3108 3109 3110 3115 3116 3117 3126# 3128
3129 3130 3131 3132 3133 3134 3135 3136 3137 3138 3139 3140 3142 3143
3144 3145 3146 3147 3148 3150 3151 3152 3153 3157 3158 3159 3160 3161
3162 3164 3166 3167 3168 3175# 3177 3178 3179 3180 3181 3182 3183 3184
3185 3186 3187 3188 3189 3191 3192 3193 3194 3195 3196 3198 3199 3200
3201 3202 3206 3207 3208 3209 3210 3211 3213 3215 3216 3217 3226# 3228
3229 3230 3231 3232 3233 3234 3235 3236 3237 3238 3239 3240 3242 3243
3244 3245 3246 3248 3249 3250 3251 3252 3253 3255 3258 3259 3260 3270#
3272 3273 3274 3275 3276 3277 3278 3279 3280 3281 3282 3283 3284 3286
3287 3288 3289 3290 3291 3292 3293 3294 3297 3298 3299 3307# 3309 3310
3311 3312 3313 3314 3315 3316 3317 3318 3319 3320 3321 3322 3323 3324
3325 3326 3327 3328 3329 3331 3332 3342# 3344 3345 3346 3347 3348 3349
3350 3351 3352 3353 3354 3355 3356 3357 3358 3359 3360 3361 3362 3363
3374# 3376 3377 3378 3379 3380 3381 3382 3383 3384 3385 3386 3387 3388
3389 3390 3391 3392 3393 3394 3395 3396 3397 3398 3402 3403 3412# 3414
3415 3416 3417 3418 3419 3420 3421 3422 3423 3424 3425 3426 3427 3428
3429 3430 3431 3432 3433 3434 3435 3436 3438 3439 3448# 3450 3451 3452
3453 3454 3455 3456 3457 3458 3459 3460 3461 3462 3463 3464 3465 3466
3467 3468 3469 3470 3471 3473 3474 3475 3476 3477 3479 3480 3481 3490#
3492 3493 3494 3495 3496 3497 3498 3499 3500 3501 3502 3503 3504 3505
3506 3507 3508 3509 3510 3511 3512 3513 3515 3516 3517 3518 3519 3522
3523 3524 3525 3535# 3537 3538 3539 3540 3541 3542 3543 3544 3545 3546
3547 3548 3549 3551 3552 3553 3554 3555 3556 3557 3558 3559 3560 3561
3564 3565 3566 3576# 3578 3579 3580 3581 3582 3583 3584 3585 3586 3587
3588 3589 3590 3592 3593 3594 3595 3599 3601 3602 3603 3604 3625 3626
3627 3636# 3638 3639 3640 3641 3642 3643 3644 3645 3646 3647 3648 3649
3650 3651 3652 3653 3654 3657 3658 3659 3660 3664 3665 3666 3667 3668
3679# 3681 3682 3683 3684 3685 3686 3687 3688 3689 3690 3691 3692 3693
3695 3696 3697 3698 3701 3702 3704 3709 3710 3711 3722# 3724 3725 3726
3727 3728 3729 3730 3731 3732 3733 3734 3735 3736 3738 3739 3740 3741
3742 3743 3744 3747 3748 3750 3752 3755 3756 3757 3766# 3768 3769 3770
3771 3772 3773 3774 3775 3776 3777 3778 3779 3780 3782 3783 3784 3785
3786 3787 3788 3789 3792 3793 3795 3797 3800 3801 3802 3811# 3813 3814
3815 3816 3817 3818 3819 3820 3821 3822 3823 3824 3825 3826 3827 3828
3829 3830 3832 3834 3835 3837 3839 3841 3842 3843 3853# 3855 3856 3857
3858 3859 3860 3861 3862 3863 3864 3865 3866 3867 3868 3870 3871 3873
3875 3877 3878 3886# 3888 3889 3890 3891 3892 3893 3894 3895 3896 3897
3898 3899 3900 3902 3903 3904 3905 3906 3908 3909 3910 3911 3914 3915
3916 3924# 3926 3927 3928 3929 3930 3931 3932 3933 3934 3935 3936 3937
3938 3939 3940 3941 3942 3943 3945 3946 3947 3948 3950 3951 3952 3962#
3964 3965 3966 3967 3968 3969 3970 3971 3972 3973 3974 3975 3976 3977
3978 3979 3980 3981 3982 3984 3985 3995# 3997 3998 3999 4000 4001 4002
4003 4004 4005 4006 4007 4008 4009 4011 4012 4013 4014 4015 4016 4017
4019 4020 4021 4022 4025 4026 4027 4035# 4037 4038 4039 4040 4041 4042
4043 4044 4045 4046 4047 4048 4049 4051 4052 4053 4054 4055 4056 4057
4058 4060 4061 4062 4063 4066 4067 4068 4076# 4078 4079 4080 4081 4082
4083 4084 4085 4086 4087 4088 4089 4090 4091 4092 4093 4094 4095 4096 SEQ 0204
4099 4100 4101 4109# 4111 4112 4113 4114 4115 4116 4117 4118 4119 4120
4121 4122 4123 4124 4125 4126 4127 4128 4129 4131 4132 4141# 4143 4144
4145 4146 4147 4148 4149 4150 4151 4152 4153 4154 4155 4157 4158 4159
4160 4162 4164 4165 4167 4169 4172 4173 4174 4183# 4185 4186 4187 4188
4189 4190 4191 4192 4193 4194 4195 4196 4197 4198 4199 4200 4201 4203
4205 4206 4208 4210 4214 4215 4226# 4228 4229 4230 4231 4232 4233 4234
4235 4236 4237 4238 4239 4240 4242 4243 4244 4245 4248 4249 4251 4256
4257 4258 4269# 4271 4272 4273 4274 4275 4276 4277 4278 4279 4280 4281
4282 4283 4284 4285 4287 4288 4290 4292 4294 4295 4304# 4306 4307 4308
4309 4310 4311 4312 4313 4314 4315 4316 4317 4318 4320 4321 4322 4323
4324 4325 4326 4328 4330 4331 4333 4335 4338 4339 4340 4349# 4351 4352
4353 4354 4355 4356 4357 4358 4359 4360 4361 4362 4363 4365 4366 4367
4368 4369 4370 4372 4374 4375 4377 4379 4382 4383 4384 4393# 4395 4396
4397 4398 4399 4400 4401 4402 4403 4404 4405 4406 4407 4408 4409 4411
4412 4414 4416 4418 4419 4428# 4430 4431 4432 4433 4434 4435 4436 4437
4438 4439 4440 4441 4442 4443 4444 4446 4447 4449 4451 4453 4454 4462#
4464 4465 4466 4467 4468 4469 4470 4471 4472 4473 4474 4475 4476 4478
4479 4480 4481 4482 4484 4485 4486 4487 4490 4491 4492 4500# 4502 4503
4504 4505 4506 4507 4508 4509 4510 4511 4512 4513 4514 4515 4516 4517
4518 4519 4522 4523 4524 4525 4529 4530 4538# 4540 4541 4542 4543 4544
4545 4546 4547 4548 4549 4550 4551 4552 4553 4554 4555 4556 4557 4558
4560 4561 4569# 4571 4572 4573 4574 4575 4576 4577 4578 4579 4580 4581
4582 4583 4585 4586 4587 4588 4589 4590 4591 4592 4594 4595 4596 4597
4600 4601 4602 4610# 4612 4613 4614 4615 4616 4617 4618 4619 4620 4621
4622 4623 4624 4626 4627 4628 4629 4630 4631 4632 4634 4635 4636 4637
4640 4641 4642 4650# 4652 4653 4654 4655 4656 4657 4658 4659 4660 4661
4662 4663 4664 4665 4666 4667 4668 4669 4670 4672 4673 4681# 4683 4684
4685 4686 4687 4688 4689 4690 4691 4692 4693 4694 4695 4696 4697 4698
4699 4700 4701 4703 4704 4713# 4715 4716 4717 4718 4719 4720 4721 4722
4723 4724 4725 4726 4727 4729 4730 4731 4732 4734 4735 4737 4739 4742
4743 4744 4752# 4754 4755 4756 4757 4758 4759 4760 4761 4762 4763 4764
4765 4766 4768 4769 4770 4771 4772 4773 4774 4775 4778 4779 4780 4789#
4791 4792 4793 4794 4795 4796 4797 4798 4799 4800 4801 4802 4803 4806
4807 4808 4809 4813 4814 4815 4816 4821 4822 4823 4831# 4833 4834 4835
4836 4837 4838 4839 4840 4841 4842 4843 4844 4845 4847 4848 4849 4850
4851 4854 4855 4857 4858 4859 4860 4865 4866 4867 4875# 4877 4878 4879
4880 4881 4882 4883 4884 4885 4886 4887 4888 4889 4891 4892 4893 4894
4895 4898 4899 4901 4902 4903 4904 4909 4910 4911 4919# 4921 4922 4923
4924 4925 4926 4927 4928 4929 4930 4931 4932 4933 4935 4936 4937 4938
4939 4942 4943 4945 4946 4950 4953 4954 4955 4963# 4965 4966 4967 4968
4969 4970 4971 4972 4973 4974 4975 4976 4977 4979 4980 4981 4982 4983
4984 4985 4986 4989 4990 4991 4999# 5001 5002 5003 5004 5005 5006 5007
5008 5009 5010 5011 5012 5013 5015 5016 5017 5018 5019 5020 5021 5022
5025 5026 5027 5035# 5037 5038 5039 5040 5041 5042 5043 5044 5045 5046
5047 5048 5049 5051 5052 5053 5054 5055 5056 5057 5058 5059 5060 5061
5062 5065 5066 5067 5075# 5077 5078 5079 5080 5081 5082 5083 5084 5085
5086 5087 5088 5089 5091 5092 5093 5094 5096 5097 5098 5099 5100 5101
5102 5105 5106 5107 5115# 5117 5118 5119 5120 5121 5122 5123 5124 5125
5126 5127 5128 5129 5131 5132 5133 5134 5136 5137 5138 5139 5140 5141
5144 5145 5146 5155# 5157 5158 5159 5160 5161 5162 5163 5164 5165 5166
5167 5168 5169 5170 5172 5173 5177 5179 5180 5183 5184 5185 5186 5197#
5199 5200 5201 5202 5203 5204 5205 5206 5207 5208 5209 5210 5211 5212
5214 5215 5218 5220 5221 5222 5223 5224 5226 5227 5228 5238# 5240 5241 SEQ 0205
5242 5243 5244 5245 5246 5247 5248 5249 5250 5251 5252 5254 5255 5256
5257 5259 5260 5261 5262 5263 5264 5266 5267 5275# 5277 5278 5279 5280
5281 5282 5283 5284 5285 5286 5287 5288 5289 5291 5292 5293 5294 5296
5297 5298 5299 5300 5301 5303 5304 5313# 5315 5316 5317 5318 5319 5320
5321 5322 5323 5324 5325 5326 5327 5328 5330 5331 5334 5335 5336 5337
5338 5339 5341 5342 5353# 5355 5356 5357 5358 5359 5360 5361 5362 5363
5364 5365 5366 5367 5368 5370 5371 5376 5377 5380 5381 5382 5390# 5392
5393 5394 5395 5396 5397 5398 5399 5400 5401 5402 5403 5404 5406 5407
5408 5409 5411 5413 5415 5416 5419 5420 5421 5429# 5431 5432 5433 5434
5435 5436 5437 5438 5439 5440 5441 5442 5443 5445 5446 5447 5448 5450
5452 5454 5455 5458 5459 5460 5468# 5470 5471 5472 5473 5474 5475 5476
5477 5478 5479 5480 5481 5482 5484 5485 5486 5487 5489 5491 5492 5495
5496 5497 5505# 5507 5508 5509 5510 5511 5512 5513 5514 5515 5516 5517
5518 5519 5521 5522 5523 5524 5526 5528 5530 5531 5534 5535 5536 5544#
5546 5547 5548 5549 5550 5551 5552 5553 5554 5555 5556 5557 5558 5560
5561 5562 5563 5565 5566 5567 5570 5571 5572 5580# 5582 5583 5584 5585
5586 5587 5588 5589 5590 5591 5592 5593 5594 5596 5597 5598 5599 5601
5603 5605 5606 5609 5610 5611 5619# 5621 5622 5623 5624 5625 5626 5627
5628 5629 5630 5631 5632 5633 5635 5636 5637 5638 5640 5642 5643 5644
5645 5648 5649 5650 5658# 5660 5661 5662 5663 5664 5665 5666 5667 5668
5669 5670 5671 5672 5674 5675 5676 5677 5679 5681 5683 5684 5687 5688
5689 5697# 5699 5700 5701 5702 5703 5704 5705 5706 5707 5708 5709 5710
5711 5713 5714 5715 5716 5718 5720 5722 5723 5726 5727 5728 5736# 5738
5739 5740 5741 5742 5743 5744 5745 5746 5747 5748 5749 5750 5752 5753
5754 5755 5757 5758 5759 5760 5763 5764 5765 5773# 5775 5776 5777 5778
5779 5780 5781 5782 5783 5784 5785 5786 5787 5789 5790 5791 5792 5794
5796 5797 5799 5800 5803 5804 5805 5813# 5815 5816 5817 5818 5819 5820
5821 5822 5823 5824 5825 5826 5827 5829 5830 5831 5832 5834 5837 5838
5841 5842 5843 5851# 5853 5854 5855 5856 5857 5858 5859 5860 5861 5862
5863 5864 5865 5867 5868 5869 5870 5872 5874 5876 5877 5880 5881 5882
5890# 5892 5893 5894 5895 5896 5897 5898 5899 5900 5901 5902 5903 5904
5906 5907 5908 5909 5911 5913 5914 5916 5917 5920 5921 5922 5930# 5932
5933 5934 5935 5936 5937 5938 5939 5940 5941 5942 5943 5944 5946 5947
5948 5949 5951 5952 5953 5956 5957 5958 5966# 5968 5969 5970 5971 5972
5973 5974 5975 5976 5977 5978 5979 5980 5982 5983 5984 5985 5986 5988
5989 5990 5991 5994 5995 5996 6004# 6006 6007 6008 6009 6010 6011 6012
6013 6014 6015 6016 6017 6018 6020 6021 6022 6023 6025 6028 6031 6033
6034 6035 6043# 6045 6046 6047 6048 6049 6050 6051 6052 6053 6054 6055
6056 6057 6059 6060 6061 6062 6063 6064 6066 6067 6068 6069 6072 6073
6074 6082# 6084 6085 6086 6087 6088 6089 6090 6091 6092 6093 6094 6095
6096 6098 6099 6100 6101 6102 6103 6105 6106 6107 6108 6111 6112 6113
6121# 6123 6124 6125 6126 6127 6128 6129 6130 6131 6132 6133 6134 6135
6137 6138 6139 6140 6141 6143 6144 6145 6146 6149 6150 6151 6159# 6161
6162 6163 6164 6165 6166 6167 6168 6169 6170 6171 6172 6173 6175 6176
6177 6178 6180 6183 6186 6188 6189 6190 6198# 6200 6201 6202 6203 6204
6205 6206 6207 6208 6209 6210 6211 6212 6214 6215 6216 6217 6218 6219
6220 6222 6223 6224 6225 6228 6229 6230 6238# 6240 6241 6242 6243 6244
6245 6246 6247 6248 6249 6250 6251 6252 6254 6255 6256 6257 6258 6260
6263 6266 6268 6269 6270 6278# 6280 6281 6282 6283 6284 6285 6286 6287
6288 6289 6290 6291 6292 6294 6295 6296 6297 6298 6299 6300 6302 6303
6304 6305 6308 6309 6310 6318# 6320 6321 6322 6323 6324 6325 6326 6327
6328 6329 6330 6331 6332 6334 6335 6336 6337 6338 6339 6341 6342 6343
6344 6347 6348 6349 6357# 6359 6360 6361 6362 6363 6364 6365 6366 6367 SEQ 0206
6368 6369 6370 6371 6373 6374 6375 6376 6377 6378 6380 6381 6382 6383
6386 6387 6388 6396# 6398 6399 6400 6401 6402 6403 6404 6405 6406 6407
6408 6409 6410 6412 6413 6414 6415 6416 6417 6419 6421 6422 6423 6424
6427 6428 6429 6437# 6439 6440 6441 6442 6443 6444 6445 6446 6447 6448
6449 6450 6451 6453 6454 6455 6456 6457 6459 6461 6462 6464 6465 6466
6467 6470 6471 6472 6481# 6483 6484 6485 6486 6487 6488 6489 6490 6491
6492 6493 6494 6495 6498 6499 6500 6501 6505 6506 6507 6509 6510 6511
6512 6515 6516 6517 6526# 6528 6529 6530 6531 6532 6533 6534 6535 6536
6537 6538 6539 6540 6543 6544 6545 6546 6550 6551 6552 6554 6555 6557
6558 6559 6560 6563 6564 6565 6574# 6576 6577 6578 6579 6580 6581 6582
6583 6584 6585 6586 6587 6588 6591 6592 6593 6594 6600 6601 6604 6607
6609 6610 6611 6620# 6622 6623 6624 6625 6626 6627 6628 6629 6630 6631
6632 6633 6634 6637 6638 6639 6640 6645 6646 6648 6650 6653 6656 6657
6658 6666# 6668 6669 6670 6671 6672 6673 6674 6675 6676 6677 6678 6679
6680 6682 6683 6684 6685 6686 6688 6689 6690 6691 6694 6695 6696 6704#
6706 6707 6708 6709 6710 6711 6712 6713 6714 6715 6716 6717 6718 6720
6721 6722 6723 6725 6727 6730 6733 6735 6736 6737 6745# 6747 6748 6749
6750 6751 6752 6753 6754 6755 6756 6757 6758 6759 6761 6762 6763 6764
6765 6767 6769 6770 6771 6772 6775 6776 6777 6785# 6787 6788 6789 6790
6791 6792 6793 6794 6795 6796 6797 6798 6799 6801 6802 6803 6804 6806
6809 6812 6814 6815 6816 6824# 6826 6827 6828 6829 6830 6831 6832 6833
6834 6835 6836 6837 6838 6840 6841 6842 6843 6844 6845 6848 6850 6851
6852 6853 6856 6857 6858 6866# 6868 6869 6870 6871 6872 6873 6874 6875
6876 6877 6878 6879 6880 6882 6883 6884 6885 6886 6887 6889 6890 6891
6892 6895 6896 6897 6908# 6910 6911 6912 6913 6914 6915 6916 6917 6918
6919 6920 6921 6922 6925 6926 6927 6928 6932 6933 6934 6936 6937 6938
6939 6940 6943 6944 6945 6956# 6958 6959 6960 6961 6962 6963 6964 6965
6966 6967 6968 6969 6970 6973 6974 6975 6976 6980 6981 6982 6984 6985
6986 6987 6990 6991 6992 7001# 7003 7004 7005 7006 7007 7008 7009 7010
7011 7012 7013 7014 7015 7018 7019 7020 7021 7026 7027 7030 7033 7036
7038 7040 7042 7045 7046 7047 7056# 7058 7059 7060 7061 7062 7063 7064
7065 7066 7067 7068 7069 7070 7073 7074 7075 7076 7081 7082 7083 7086
7089 7092 7093 7094 7106# 7108 7109 7110 7111 7112 7113 7114 7115 7116
7117 7118 7119 7120 7122 7123 7124 7125 7126 7128 7129 7130 7131 7134
7135 7136 7142# 7144 7145 7146 7147 7148 7149 7150 7151 7152 7153 7154
7155 7156 7158 7159 7160 7161 7163 7166 7169 7171 7172 7173
AC1 770# 788 789 790 803# 822 824 825 826 843# 879# 897 898 899
900 916# 929 935 936 938 941 944 945 947 949 964# 977 983
984 986 989 992 993 995 997 1012# 1025 1031 1032 1033 1034 1036
1038 1039 1040 1041 1043 1044 1045 1046 1061# 1074 1080 1081 1082 1083
1085 1086 1087 1089 1090 1091 1092 1094 1109# 1122 1128 1129 1131 1134
1137 1151# 1164 1170 1171 1173 1176 1179 1194# 1207 1213 1214 1215 1216
1217 1219 1220 1221 1222 1239# 1252 1258 1259 1260 1261 1262 1264 1265
1266 1267 1282# 1300 1303 1304 1320# 1338 1339 1341 1355# 1374 1375 1377
1393# 1411 1412 1415 1418 1434# 1452 1453 1456 1473# 1491 1493 1494 1496
1497 1498 1499 1514# 1535 1536 1539 1556# 1575 1576 1578 1579 1580 1581
1583 1584 1585 1586 1587 1603# 1622 1623 1624 1625 1628 1631 1632 1634
1636 1651# 1670 1676 1679 1682 1696# 1714 1717 1719 1720 1721 1722 1737#
1755 1756 1759 1762 1777# 1795 1796 1799 1802 1816# 1834 1835 1838 1841
1844 1858# 1876 1877 1880 1897# 1916 1918 1920 1921 1922 1923 1925 1926
1927 1928 1929 1944# 1963 1964 1968 1985# 2004 2005 2007 2008 2009 2010
2025# 2043 2044 2045 2047 2049 2052 2066# 2085 2086 2089 2092 2106# 2124
2125 2128 2131 2145# 2163 2164 2166 2167 2168 2169 2185# 2203 2204 2207 SEQ 0207
2210 2224# 2242 2248 2251 2254 2268# 2286 2287 2290 2293 2307# 2325 2326
2328 2329 2330 2331 2346# 2365 2366 2368 2370 2373 2387# 2406 2408 2409
2410 2412 2413 2414 2415 2430# 2448 2449 2450 2452 2453 2456 2470# 2489
2490 2492 2494 2497 2511# 2529 2530 2533 2536 2550# 2568 2569 2571 2572
2574 2589# 2607 2608 2611 2614 2629# 2647 2648 2651 2654 2668# 2686 2687
2690 2693 2707# 2725 2726 2728 2729 2730 2731 2746# 2765 2766 2769 2772
2786# 2805 2806 2808 2809 2810 2811 2826# 2845 2846 2847 2850 2853 2867#
2888 2889 2892 2895 2910# 2929 2930 2931 2938 2953# 2966 2972 2973 2974
2975 2976 2977 2978 2998# 3016 3017 3018 3019 3020 3022 3040# 3053 3059
3060 3061 3062 3063 3064 3065 3067 3085# 3106 3107 3108 3112 3128# 3149
3150 3151 3155 3158 3159 3163 3177# 3197 3199 3200 3204 3207 3208 3212
3228# 3247 3250 3251 3253 3272# 3309# 3344# 3376# 3414# 3450# 3473 3477 3478
3492# 3515 3519 3520 3537# 3578# 3598 3601 3602 3606 3612 3614 3616 3619
3621 3623 3638# 3656 3657 3658 3662 3681# 3699 3700 3701 3702 3703 3704
3706 3724# 3746 3747 3748 3749 3750 3768# 3791 3792 3793 3794 3795 3813#
3831 3834 3835 3836 3837 3855# 3869 3870 3871 3872 3873 3888# 3906 3907
3911 3926# 3941 3942 3949 3950 3964# 3997# 4017 4018 4022 4037# 4058 4059
4063 4078# 4111# 4143# 4161 4164 4165 4166 4167 4185# 4202 4205 4206 4207
4208 4228# 4246 4247 4248 4249 4250 4251 4253 4271# 4286 4287 4288 4289
4290 4306# 4327 4330 4331 4332 4333 4351# 4371 4374 4375 4376 4377 4395#
4410 4411 4412 4413 4414 4430# 4445 4446 4447 4448 4449 4464# 4482 4483
4487 4502# 4520 4521 4525 4540# 4571# 4591 4598 4612# 4631 4638 4652# 4683#
4715# 4733 4734 4735 4736 4737 4754# 4791# 4804 4810 4811 4812 4813 4814
4818 4833# 4852 4853 4856 4857 4858 4862 4877# 4896 4897 4900 4901 4902
4906 4921# 4940 4941 4944 4945 4946 4947 4948 4965# 5001# 5037# 5055 5059
5060 5063 5077# 5095 5099 5100 5103 5117# 5135 5138 5139 5142 5157# 5171
5174 5176 5178 5179 5180 5181 5182 5199# 5213 5216 5219 5221 5222 5225
5240# 5258 5259 5261 5262 5265 5277# 5295 5296 5298 5299 5302 5315# 5329
5332 5336 5337 5340 5355# 5369 5372 5374 5375 5376 5377 5378 5379 5392#
5412 5413 5414 5416 5431# 5451 5452 5453 5454 5455 5470# 5490 5492 5507#
5527 5528 5529 5531 5546# 5582# 5602 5603 5604 5606 5621# 5641 5642 5643
5645 5660# 5680 5681 5682 5684 5699# 5719 5720 5721 5723 5738# 5758 5760
5775# 5795 5796 5797 5798 5800 5815# 5835 5836 5838 5853# 5873 5874 5875
5877 5892# 5912 5913 5914 5915 5917 5932# 5968# 6006# 6024 6025 6027 6028
6029 6030 6045# 6063 6064 6067 6070 6084# 6102 6103 6106 6109 6123# 6161#
6179 6180 6182 6183 6184 6185 6200# 6240# 6259 6260 6262 6263 6264 6265
6280# 6299 6300 6303 6305 6306 6320# 6338 6339 6342 6345 6359# 6377 6378
6381 6384 6398# 6416 6419 6422 6425 6439# 6457 6458 6461 6463 6465 6468
6483# 6496 6502 6503 6504 6505 6507 6510 6513 6528# 6541 6547 6548 6549
6550 6553 6554 6556 6558 6561 6576# 6589 6595 6596 6597 6598 6599 6600
6601 6603 6604 6605 6606 6622# 6635 6641 6642 6643 6644 6645 6646 6647
6649 6650 6651 6652 6654 6668# 6706# 6724 6727 6729 6730 6731 6732 6747#
6787# 6805 6806 6808 6809 6810 6811 6826# 6844 6848 6851 6854 6868# 6886
6887 6890 6893 6910# 6923 6929 6930 6931 6932 6935 6936 6938 6941 6958#
6971 6977 6978 6979 6980 6982 6985 6988 7003# 7016 7022 7023 7024 7025
7026 7029 7030 7032 7033 7034 7035 7037 7038 7039 7040 7041 7043 7058#
7071 7077 7078 7079 7080 7081 7083 7085 7086 7087 7088 7090 7108# 7144#
7162 7163 7165 7166 7167 7168
AC2 771# 804# 823 826 844# 880# 917# 937 943 944 948 949 965# 985
991 992 996 997 1013# 1032 1033 1041 1042 1046 1047 1062# 1081 1082
1088 1089 1093 1094 1110# 1130 1136 1137 1152# 1172 1178 1179 1195# 1214
1215 1222 1223 1240# 1259 1260 1267 1268 1283# 1301 1302 1304 1321# 1356#
1394# 1435# 1474# 1492 1494 1499 1515# 1557# 1604# 1652# 1671 1672 1673 1674 SEQ 0208
1675 1697# 1715 1716 1722 1738# 1778# 1817# 1835 1837 1859# 1898# 1917 1923
1929 1945# 1986# 2026# 2067# 2107# 2146# 2186# 2225# 2243 2245 2246 2247 2253
2269# 2308# 2347# 2388# 2407 2408 2410 2415 2431# 2471# 2512# 2551# 2590# 2630#
2669# 2708# 2747# 2787# 2827# 2868# 2885 2886 2887 2911# 2954# 2973 2974 2978
2979 2980 2981 2999# 3041# 3062 3063 3067 3068 3069 3070 3086# 3105 3110
3111 3112 3113 3129# 3148 3153 3154 3155 3156 3162 3164 3178# 3198 3202
3203 3204 3205 3211 3213 3229# 3249 3254 3255 3256 3273# 3310# 3345# 3377#
3415# 3451# 3493# 3538# 3579# 3599 3600 3604 3606 3639# 3654 3655 3660 3662
3682# 3725# 3744 3745 3752 3769# 3789 3790 3797 3814# 3832 3833 3839 3856#
3869 3874 3876 3889# 3927# 3943 3944 3948 3965# 3998# 4038# 4079# 4112# 4144#
4161 4168 4170 4186# 4202 4209 4211 4229# 4272# 4286 4291 4293 4307# 4327
4334 4336 4352# 4371 4378 4380 4396# 4410 4415 4417 4431# 4445 4450 4452
4465# 4503# 4541# 4572# 4592 4593 4597 4613# 4632 4633 4637 4653# 4684# 4716#
4755# 4792# 4811 4812 4817 4818 4819 4834# 4856 4861 4862 4863 4878# 4900
4905 4906 4907 4922# 4944 4948 4949 4951 4966# 5002# 5038# 5078# 5118# 5158#
5177 5185 5200# 5219 5227 5241# 5278# 5316# 5356# 5393# 5410 5412 5415 5417
5432# 5449 5451 5456 5471# 5488 5490 5491 5493 5508# 5525 5527 5530 5532
5547# 5564 5566 5568 5583# 5600 5602 5605 5607 5622# 5639 5641 5644 5646
5661# 5678 5680 5683 5685 5700# 5717 5719 5722 5724 5739# 5756 5759 5761
5776# 5793 5795 5799 5801 5816# 5833 5835 5837 5839 5854# 5871 5873 5876
5878 5893# 5910 5912 5916 5918 5933# 5950 5952 5954 5969# 6007# 6046# 6085#
6124# 6162# 6201# 6241# 6281# 6321# 6360# 6399# 6417 6418 6424 6440# 6458 6459
6460 6462 6467 6484# 6506 6512 6513 6529# 6552 6553 6555 6560 6577# 6598
6599 6606 6607 6623# 6644 6648 6649 6653 6654 6669# 6707# 6725 6726 6732
6748# 6765 6766 6772 6788# 6827# 6845 6846 6847 6853 6869# 6911# 6934 6935
6940 6959# 7004# 7027 7028 7029 7035 7041 7059# 7082 7088 7109# 7145#
AC3 772# 805# 845# 881# 918# 966# 1014# 1063# 1084 1085 1087 1092 1111# 1153#
1196# 1241# 1284# 1322# 1357# 1395# 1436# 1475# 1516# 1558# 1605# 1653# 1698# 1739#
1779# 1818# 1836 1837 1843 1860# 1899# 1946# 1987# 2027# 2068# 2108# 2147# 2187#
2226# 2244 2245 2270# 2309# 2348# 2389# 2432# 2472# 2513# 2552# 2591# 2631# 2670#
2709# 2748# 2788# 2828# 2869# 2912# 2955# 3000# 3042# 3087# 3130# 3179# 3230# 3274#
3311# 3346# 3378# 3416# 3452# 3494# 3539# 3580# 3596 3605 3607 3613 3620 3640#
3652 3653 3661 3663 3683# 3726# 3743 3751 3753 3770# 3788 3796 3798 3815#
3831 3838 3840 3857# 3890# 3928# 3966# 3999# 4039# 4080# 4113# 4145# 4162 4163
4169 4187# 4203 4204 4210 4230# 4273# 4308# 4328 4329 4335 4353# 4372 4373
4379 4397# 4432# 4466# 4504# 4542# 4573# 4614# 4654# 4685# 4717# 4756# 4793# 4835#
4879# 4923# 4967# 5003# 5039# 5079# 5119# 5159# 5201# 5242# 5279# 5317# 5357# 5394#
5433# 5472# 5509# 5548# 5584# 5623# 5662# 5701# 5740# 5777# 5817# 5855# 5894# 5934#
5970# 6008# 6047# 6086# 6125# 6163# 6202# 6242# 6282# 6322# 6361# 6400# 6441# 6485#
6530# 6578# 6624# 6670# 6708# 6749# 6789# 6828# 6870# 6912# 6960# 7005# 7060# 7110#
7146#
AC4 773# 806# 846# 882# 919# 967# 1015# 1064# 1112# 1154# 1197# 1242# 1285# 1323#
1358# 1396# 1437# 1476# 1517# 1559# 1606# 1654# 1699# 1740# 1780# 1819# 1861# 1900#
1947# 1988# 2028# 2069# 2109# 2148# 2188# 2227# 2271# 2310# 2349# 2390# 2433# 2473#
2514# 2553# 2592# 2632# 2671# 2710# 2749# 2789# 2829# 2870# 2913# 2956# 3001# 3043#
3088# 3131# 3180# 3231# 3275# 3312# 3347# 3379# 3417# 3453# 3495# 3540# 3581# 3641#
3684# 3727# 3771# 3816# 3858# 3891# 3929# 3967# 4000# 4040# 4081# 4114# 4146# 4188#
4231# 4274# 4309# 4354# 4398# 4433# 4467# 4505# 4543# 4574# 4615# 4655# 4686# 4718#
4757# 4794# 4836# 4880# 4924# 4968# 5004# 5040# 5080# 5120# 5160# 5202# 5243# 5280#
5318# 5358# 5395# 5434# 5473# 5510# 5549# 5585# 5624# 5663# 5702# 5741# 5778# 5818#
5856# 5895# 5935# 5971# 6009# 6048# 6087# 6126# 6164# 6203# 6243# 6283# 6323# 6362#
6401# 6442# 6486# 6531# 6579# 6625# 6671# 6709# 6750# 6790# 6829# 6871# 6913# 6961#
7006# 7061# 7111# 7147# SEQ 0209
AC5 774# 807# 847# 883# 920# 968# 1016# 1065# 1113# 1155# 1198# 1243# 1286# 1324#
1359# 1397# 1438# 1477# 1518# 1560# 1607# 1655# 1700# 1741# 1781# 1820# 1862# 1901#
1948# 1989# 2029# 2070# 2110# 2149# 2189# 2228# 2272# 2311# 2350# 2391# 2434# 2474#
2515# 2554# 2593# 2633# 2672# 2711# 2750# 2790# 2830# 2871# 2914# 2957# 3002# 3044#
3089# 3132# 3181# 3232# 3276# 3313# 3348# 3380# 3418# 3454# 3496# 3541# 3582# 3642#
3685# 3728# 3772# 3817# 3859# 3892# 3930# 3968# 4001# 4041# 4082# 4115# 4147# 4189#
4232# 4275# 4310# 4355# 4399# 4434# 4468# 4506# 4544# 4575# 4616# 4656# 4687# 4719#
4758# 4795# 4837# 4881# 4925# 4969# 5005# 5041# 5081# 5121# 5161# 5203# 5244# 5281#
5319# 5359# 5396# 5435# 5474# 5511# 5550# 5586# 5625# 5664# 5703# 5742# 5779# 5819#
5857# 5896# 5936# 5972# 6010# 6049# 6088# 6127# 6165# 6204# 6244# 6284# 6324# 6363#
6402# 6443# 6487# 6532# 6580# 6626# 6672# 6710# 6751# 6791# 6830# 6872# 6914# 6962#
7007# 7062# 7112# 7148#
AFOCLR 348#
AFODIS 348#
AFOENB 348#
AFOV 348#
AJSJ1 4753#
AJSJ2 4767# 4778
AJSJ3 4772# 4780
ALTMGO 434# 7362
AMPCLR 348#
AMPV 348#
ANCAI4 5430#
ANCAI5 5444# 5458
ANCAI6 5450# 5460
ANCBIA 5659#
ANCBIB 5673# 5687
ANCBIC 5679# 5689
ANCMIA 5506#
ANCMIB 5520# 5534
ANCMIC 5526# 5536
ANDI4 5391#
ANDI5 5405# 5419
ANDI6 5411# 5421
ANXCLR 348#
ANXM 348#
AOJ1 3887#
AOJ2 3901# 3914
AOJ3 3906# 3916
AOJE1 3925#
AOJE2 3940# 3951
AOJE3 3942# 3952
AOJG1 4036#
AOJG2 4050# 4066
AOJG3 4055# 4068
AOJGA 3963#
AOJGB 3977# 3984 3985
AOJGE1 4077#
AOJGE2 4091# 4099 4101
AOJL1 3996#
AOJL2 4010# 4025
AOJL3 4015# 4027
AOJLE1 4110# SEQ 0210
AOJLE2 4124# 4131 4132
AOS1 3577#
AOS2 3591# 3625
AOS3 3596# 3627
AOS4 3611 3618 3624#
AOSE1 3637#
AOSE2 3652# 3667
AOSE3 3653# 3668
AOSG1 3767#
AOSG2 3781# 3800
AOSG3 3786# 3802
AOSGA 3680#
AOSGB 3694# 3709
AOSGC 3699# 3711
AOSGE1 3854#
AOSGE2 3868# 3877 3878
AOSL1 3723#
AOSL2 3737# 3755
AOSL3 3742# 3757
AOSLE1 3812#
AOSLE2 3826#
AOSLE3 3827# 3842
AOSLE4 3831# 3843
AOVCLR 348#
AOVDIS 348#
AOVENB 348#
AOVFLO 348#
APAREN 348#
APARER 348#
APDCLR 348#
APDLOV 348#
APWRFL 348#
AROV 348#
AROVU 348#
ASSS1 4714#
ASSS2 4728# 4742
ASSS3 4733# 4744
AST 549#
ATRPOS 348#
ATSIN 550#
AUSRIO 348#
BEGEND 430# 7176
BEGIN 62 65 66 67 68 69 70 71 72 333 334 361# 7466
BEGIN1 377# 431
BELL 553#
BIS 348#
CAI1 5036#
CAI2 5050# 5065
CAI3 5056# 5067
CAIE1 5076#
CAIE2 5090# 5105
CAIE3 5096# 5107
CAIG1 5198# SEQ 0211
CAIG2 5214# 5226
CAIG3 5220# 5228
CAIGA 5354#
CAIGB 5370# 5381
CAIGC 5375# 5382
CAIGE1 5239#
CAIGE2 5253# 5266
CAIGE3 5259# 5267
CAIL1 5156#
CAIL2 5172# 5184
CAIL3 5178# 5186
CAILA 5314#
CAILB 5330# 5341
CAILC 5335# 5342
CAILE1 5276#
CAILE2 5290# 5303
CAILE3 5296# 5304
CAIN1 5116#
CAIN2 5130# 5144
CAIN3 5136# 5146
CAM1 4790#
CAM2 4805# 4821
CAM3 4812# 4823
CAMG1 4964#
CAMG2 4978# 4989
CAMG3 4983# 4991
CAMGE1 4920#
CAMGE2 4934# 4953
CAMGE3 4939# 4955
CAML1 4832#
CAML2 4846# 4865
CAML3 4851# 4867
CAMLA 5000#
CAMLB 5014# 5025
CAMLC 5019# 5027
CAMLE1 4876#
CAMLE2 4890# 4909
CAMLE3 4895# 4911
CCA 348#
CHAIN 139#
CHNOFF 348#
CHNON 348#
CLK 348#
CLKCLR 348#
CLKDIS 348#
CLKENB 348#
CLKU 348#
CLOCKF 416#
CMPLXT 682 693 697 701 705 709 713 717 760# 781 814 854 890 927
975 1023 1072 1120 1162 1205 1250 1293 1331 1366 1404 1445 1484 1525
1567 1614 1662 1707 1748 1788 1827 1869 1908 1955 1996 2036 2077 2117
2156 2196 2235 2279 2318 2357 2398 2441 2481 2522 2561 2600 2640 2679
2718 2757 2797 2837 2878 2921 2964 3009 3051 3096 3139 3188 3239 3283 SEQ 0212
3320 3355 3387 3425 3461 3503 3548 3589 3649 3692 3735 3779 3824 3866
3899 3937 3975 4008 4048 4089 4122 4154 4196 4239 4282 4317 4362 4406
4441 4475 4513 4551 4582 4623 4663 4694 4726 4765 4802 4844 4888 4932
4976 5012 5048 5088 5128 5168 5210 5251 5288 5326 5366 5403 5442 5481
5518 5557 5593 5632 5671 5710 5749 5786 5826 5864 5903 5943 5979 6017
6056 6095 6134 6172 6211 6251 6291 6331 6370 6409 6450 6494 6539 6587
6633 6679 6717 6758 6798 6837 6879 6921 6969 7014 7069 7119 7155
CNTLC 433#
COMMA 542#
CONSW 417# 7363 7394
CPOPJ 437#
CPOPJ1 435#
CRLF 268 269 537#
CRLF2 272 273 539#
CRY0 348#
CRY0B 3608 3613#
CRY1 348#
CRY1B 3609 3620#
CSHFLG 596#
CSHMEM 597#
CYCL60 590#
DCK 348#
DDTLNK 153# 375
DDTSRT 375#
DEBUG 59# 7457 7458
DECVER 3# 10 26 396
DF22F 501#
DIAGMN 364#
DING 125# 7368
DOLLAR 556#
DSKUPD 401
END 7465#
ENDFIX 670#
ENDPGM 28#
ENDSLD 7455#
EQVIA 5698#
EQVIB 5712# 5726
EQVIC 5718# 5728
ERDIAG 7231
ERMORE 450# 7354
ERRELB 60# 7231
ERRLOP 779# 779 812# 812 852# 852 888# 888 925# 925 973# 973 1021# 1021
1070# 1070 1118# 1118 1160# 1160 1203# 1203 1248# 1248 1291# 1291 1329# 1329
1364# 1364 1402# 1402 1443# 1443 1482# 1482 1523# 1523 1565# 1565 1612# 1612
1660# 1660 1705# 1705 1746# 1746 1786# 1786 1825# 1825 1867# 1867 1906# 1906
1953# 1953 1994# 1994 2034# 2034 2075# 2075 2115# 2115 2154# 2154 2194# 2194
2233# 2233 2277# 2277 2316# 2316 2355# 2355 2396# 2396 2439# 2439 2479# 2479
2520# 2520 2559# 2559 2598# 2598 2638# 2638 2677# 2677 2716# 2716 2755# 2755
2795# 2795 2835# 2835 2876# 2876 2919# 2919 2962# 2962 3007# 3007 3049# 3049
3094# 3094 3137# 3137 3186# 3186 3237# 3237 3281# 3281 3318# 3318 3353# 3353
3385# 3385 3423# 3423 3459# 3459 3501# 3501 3546# 3546 3587# 3587 3647# 3647
3690# 3690 3733# 3733 3777# 3777 3822# 3822 3864# 3864 3897# 3897 3935# 3935
3973# 3973 4006# 4006 4046# 4046 4087# 4087 4120# 4120 4152# 4152 4194# 4194 SEQ 0213
4237# 4237 4280# 4280 4315# 4315 4360# 4360 4404# 4404 4439# 4439 4473# 4473
4511# 4511 4549# 4549 4580# 4580 4621# 4621 4661# 4661 4692# 4692 4724# 4724
4763# 4763 4800# 4800 4842# 4842 4886# 4886 4930# 4930 4974# 4974 5010# 5010
5046# 5046 5086# 5086 5126# 5126 5166# 5166 5208# 5208 5249# 5249 5286# 5286
5324# 5324 5364# 5364 5401# 5401 5440# 5440 5479# 5479 5516# 5516 5555# 5555
5591# 5591 5630# 5630 5669# 5669 5708# 5708 5747# 5747 5784# 5784 5824# 5824
5862# 5862 5901# 5901 5941# 5941 5977# 5977 6015# 6015 6054# 6054 6093# 6093
6132# 6132 6170# 6170 6209# 6209 6249# 6249 6289# 6289 6329# 6329 6368# 6368
6407# 6407 6448# 6448 6492# 6492 6537# 6537 6585# 6585 6631# 6631 6677# 6677
6715# 6715 6756# 6756 6796# 6796 6835# 6835 6877# 6877 6919# 6919 6967# 6967
7012# 7012 7067# 7067 7117# 7117 7153# 7153 7211 7373 7376 7377
ERRMES 44 45 46 47 48 49 50 51 7182#
ERRPC 421# 7194 7228 7240
ERRTLS 422# 7192 7380
ERSTOP 128# 7364
EXCASB 55# 399 7183 7385
EXIOT 348#
FOV 348#
FOVU 348#
FRDLNK 151#
FSELNK 150#
FXU 348#
HYPEN 547#
INHCSH 136#
INHPAG 133#
INXM 348#
IOCLR 348#
IORIA 5620#
IORIB 5634# 5648
IORIC 5640# 5650
ITERAT 81# 394
ITRCH1 454#
ITRCNT 394#
JMP1 3271#
JMP2 3285# 3297
JMP3 3290# 3299
JMPE1 3308#
JMPE2 3323# 3331
JMPE3 3325# 3332
JMPG1 3413#
JMPG2 3428# 3438
JMPG3 3432# 3439
JMPGE1 3449#
JMPGE2 3464# 3479
JMPGE3 3469# 3481
JMPL1 3375#
JMPL2 3390# 3402
JMPL3 3391# 3401
JMPL4 3394# 3403
JMPLE1 3491#
JMPLE2 3506# 3523
JMPLE3 3510# 3525
JMPLEA 3536# SEQ 0214
JMPLEB 3550# 3555 3564
JMPLEC 3556# 3566
JMPN1 3343#
JMPN2 3357# 3362 3363
JOB41 348#
JOBAPR 348#
JOBCNI 348#
JOBDDT 348#
JOBFF 348#
JOBOPC 348# 7361
JOBREL 348#
JOBREN 348#
JOBSA 348#
JOBSYM 348#
JOBTPC 348#
JOBUSY 348#
JOBUUO 348#
JOBVER 348#
KA10 57# 348
KAHZ50 141#
KAIFLG 411#
KI10 348 7183 7385
KL10 348
KLFLG 412# 7198
KLOLD 43# 348
KLTYP 628#
LDLNK 152# 364 366
LFP 551#
LOOPER 127# 7366
LUUO 348#
LUUO1 44# 481 482
LUUO10 481 486
LUUO11 49# 481 486
LUUO12 50# 481 487
LUUO13 51# 481 487
LUUO14 481 488
LUUO15 481 488
LUUO16 481 489
LUUO17 481 489
LUUO2 45# 481 483
LUUO20 481 490
LUUO21 481 490
LUUO22 481 491
LUUO23 481 491
LUUO24 481 492
LUUO25 481 492
LUUO26 481 493
LUUO27 481 493
LUUO3 46# 481 483
LUUO30 481 494
LUUO31 481 494
LUUO32 481 495
LUUO33 481 495 SEQ 0215
LUUO4 47# 481 484
LUUO5 48# 481 484
LUUO6 481 485
LUUO7 481 485
LUUOI 348#
MAPNEW 502#
MARGIN 424#
MCNVER 4# 10 26 396
MEMLOW 504#
MEMMAP 402
MEMSIZ 505#
MEMTOT 503#
MICNT 7195# 7195 7196 7213
MINUS 546#
MODDVC 135#
MODDVL 333 333# 397
MODDVU 334 334# 398
MODLNK 154# 361
MONCTL 414# 7214 7378
MONFLG 413#
MONTEN 415#
MPVU 348#
NOPNT 123# 7204
NXMU 348#
OPRSEL 137#
OPTIME 516#
ORCAI1 5774#
ORCAI2 5788# 5803
ORCAI3 5794# 5805
ORCBI1 5891#
ORCBI2 5905# 5920
ORCBI3 5911# 5922
ORCMI1 5852#
ORCMI2 5866# 5880
ORCMI3 5872# 5882
P 180 181 182 183 348# 436
PAG 348#
PALERS 129# 7395
PARCLR 348#
PARDIS 348#
PAREA1 74# 392
PAREA2 75# 393
PAREA3 76# 390
PAREA4 77# 391
PAREA5 78# 403
PAREA6 79# 404
PAREA7 403#
PAREA8 404#
PARENB 348#
PARU 348#
PASCNT 418# 7219 7223
PATCH 7458#
PDISF 513# SEQ 0216
PDLOVU 348#
PERIOD 543#
PFSTRT 370#
PGMEND 58# 7464
PGMNAM 395 733#
PI 7201
PICHN1 348#
PICHN2 348#
PICHN3 348#
PICHN4 348#
PICHN5 348#
PICHN6 348#
PICHN7 348#
PICHNA 348#
PICLR 348#
PIOFF 348#
PION 348#
PLIST 582# 582
PLISTE 582 584# 668
PLISTS 583#
PLUS 548#
PNTENB 512#
PNTEXT 391#
PNTFLG 511#
PNTINH 514#
PNTLPT 124#
PNTNAM 390#
PNTSPC 515#
PROCED 7202# 7202 7367 7374
PVPAGI 609#
PWFCLR 348#
QUEST 554#
RADIX 557#
RADLSC 559#
RADLSP 558#
RAN 677 784# 784 787 790 794 817# 817 820 830 857# 857 860 865
868 893# 893 896 904 931# 931 934 952 979# 979 982 1000 1027#
1027 1030 1050 1076# 1076 1079 1097 1124# 1124 1127 1140 1166# 1166 1169
1182 1209# 1209 1212 1226 1254# 1254 1257 1271 1296# 1296 1299 1308 1334#
1334 1337 1340 1341 1344 1369# 1369 1372 1378 1381 1407# 1407 1410 1417
1418 1421 1448# 1448 1451 1458 1459 1462 1487# 1487 1490 1503 1528# 1528
1531 1541 1542 1545 1570# 1570 1573 1591 1617# 1617 1620 1630 1631 1635
1636 1639 1665# 1665 1668 1681 1682 1685 1710# 1710 1713 1726 1751# 1751
1754 1761 1762 1765 1791# 1791 1794 1801 1802 1805 1830# 1830 1833 1847
1872# 1872 1875 1882 1883 1886 1911# 1911 1914 1933 1958# 1958 1961 1966
1967 1971 1974 1999# 1999 2002 2014 2039# 2039 2042 2047 2048 2052 2055
2080# 2080 2083 2091 2092 2095 2120# 2120 2123 2130 2131 2134 2159# 2159
2162 2173 2199# 2199 2202 2210 2213 2238# 2238 2241 2254 2257 2282# 2282
2285 2292 2293 2296 2321# 2321 2324 2335 2360# 2360 2363 2368 2369 2373
2376 2401# 2401 2404 2419 2444# 2444 2447 2451 2452 2455 2456 2459 2484#
2484 2487 2492 2493 2497 2500 2525# 2525 2528 2535 2536 2539 2564# 2564
2567 2578 2603# 2603 2606 2613 2614 2617 2643# 2643 2646 2653 2654 2657
2682# 2682 2685 2692 2693 2696 2721# 2721 2724 2735 2760# 2760 2763 2771 SEQ 0217
2772 2775 2800# 2800 2803 2815 2840# 2840 2843 2852 2853 2856 2881# 2881
2884 2894 2895 2898 2924# 2924 2927 2936 2938 2942 2968# 2968 2971 2979
2981 2984 3012# 3012 3015 3021 3023 3026 3055# 3055 3058 3068 3070 3073
3099# 3099 3102 3116 3142# 3142 3145 3167 3191# 3191 3194 3216 3242# 3242
3245 3259 3286# 3286 3289 3294 3298 3551# 3551 3554 3565 3592# 3592 3595
3596 3626 3664 3695# 3695 3698 3705 3707 3710 3738# 3738 3741 3756 3782#
3782 3785 3801 3902# 3902 3905 3915 4011# 4011 4014 4026 4051# 4051 4054
4067 4100 4157# 4157 4160 4173 4242# 4242 4245 4252 4254 4257 4320# 4320
4323 4339 4365# 4365 4368 4383 4478# 4478 4481 4491 4585# 4585 4588 4601
4626# 4626 4629 4641 4729# 4729 4732 4739 4743 4768# 4768 4771 4775 4779
4806# 4806 4809 4816 4817 4819 4822 4847# 4847 4850 4852 4866 4891# 4891
4894 4896 4910 4935# 4935 4938 4940 4954 4979# 4979 4982 4983 4984 4986
4987 4990 5015# 5015 5018 5019 5020 5022 5023 5026 5051# 5051 5054 5066
5091# 5091 5094 5095 5106 5131# 5131 5134 5135 5145 5254# 5254 5257 5258
5291# 5291 5294 5295 5406# 5406 5409 5410 5420 5445# 5445 5448 5449 5459
5484# 5484 5487 5488 5496 5521# 5521 5524 5525 5535 5560# 5560 5563 5564
5571 5596# 5596 5599 5600 5610 5635# 5635 5638 5639 5649 5674# 5674 5677
5678 5688 5713# 5713 5716 5717 5727 5752# 5752 5755 5756 5764 5789# 5789
5792 5793 5804 5829# 5829 5832 5833 5842 5867# 5867 5870 5871 5881 5906#
5906 5909 5910 5921 5946# 5946 5949 5950 5957 5982# 5982 5985 5991 5995
6020# 6020 6023 6034 6059# 6059 6062 6069 6073 6098# 6098 6101 6108 6112
6137# 6137 6140 6146 6150 6175# 6175 6178 6189 6214# 6214 6217 6229 6254#
6254 6257 6269 6294# 6294 6297 6309 6334# 6334 6337 6344 6348 6373# 6373
6376 6383 6387 6412# 6412 6415 6428 6453# 6453 6456 6464 6471 6498# 6498
6501 6516 6543# 6543 6546 6564 6591# 6591 6594 6610 6637# 6637 6640 6657
6682# 6682 6685 6691 6695 6720# 6720 6723 6736 6761# 6761 6764 6776 6801#
6801 6804 6815 6840# 6840 6843 6857 6882# 6882 6885 6892 6896 6925# 6925
6928 6944 6973# 6973 6976 6991 7018# 7018 7021 7046 7073# 7073 7076 7093
7122# 7122 7125 7131 7135 7158# 7158 7161 7172 7309# 7309
RAN1 775# 808# 822 848# 884# 898 901 921# 969# 1017# 1066# 1114# 1156# 1199#
1244# 1287# 1300 1305 1325# 1360# 1373 1378 1398# 1439# 1452 1459 1478# 1491
1495 1500 1519# 1535 1542 1561# 1575 1582 1588 1608# 1656# 1701# 1714 1723
1742# 1782# 1821# 1863# 1876 1883 1902# 1916 1924 1930 1949# 1963 1966 1971
1990# 2004 2011 2030# 2071# 2111# 2150# 2163 2170 2190# 2229# 2273# 2312# 2325
2332 2351# 2392# 2406 2411 2416 2435# 2475# 2516# 2555# 2568 2574 2575 2594#
2634# 2673# 2712# 2725 2731 2732 2751# 2791# 2805 2811 2812 2831# 2872# 2915#
2929 2937 2939 2958# 3003# 3016 3021 3022 3023 3045# 3090# 3106 3111 3113
3133# 3149 3154 3156 3182# 3197 3203 3205 3233# 3247 3254 3256 3277# 3290
3295 3314# 3324 3325 3329 3330 3349# 3357 3361 3381# 3393 3394 3398 3399
3400 3419# 3431 3432 3436 3437 3455# 3467 3471 3472 3480 3497# 3509 3513
3514 3521 3524 3542# 3557 3561 3562 3583# 3598 3605 3607 3643# 3656 3661
3663 3686# 3700 3705 3707 3729# 3746 3751 3753 3773# 3791 3796 3798 3818#
3830 3838 3840 3841 3860# 3893# 3931# 3969# 3978 3983 4002# 4016 4023 4042#
4057 4064 4083# 4092 4097 4116# 4125 4130 4148# 4190# 4201 4212 4233# 4247
4252 4254 4276# 4285 4291 4293 4311# 4326 4334 4336 4356# 4370 4378 4380
4400# 4409 4415 4417 4435# 4444 4450 4452 4469# 4507# 4518 4519 4520 4526
4527 4545# 4554 4559 4576# 4617# 4657# 4666 4671 4688# 4697 4702 4720# 4733
4738 4740 4759# 4796# 4838# 4855 4860 4861 4863 4882# 4899 4904 4905 4907
4926# 4943 4949 4950 4951 4970# 5006# 5042# 5058 5062 5063 5082# 5098 5102
5103 5122# 5137 5141 5142 5162# 5176 5178 5182 5183 5204# 5218 5220 5224
5225 5245# 5260 5264 5265 5282# 5297 5301 5302 5320# 5334 5335 5339 5340
5360# 5374 5375 5379 5380 5397# 5411 5417 5436# 5450 5456 5475# 5489 5493
5512# 5526 5532 5551# 5565 5567 5568 5587# 5601 5607 5626# 5640 5646 5665# SEQ 0218
5679 5685 5704# 5718 5724 5743# 5757 5761 5780# 5794 5801 5820# 5834 5839
5858# 5872 5878 5897# 5911 5918 5937# 5951 5954 5973# 6011# 6024 6031 6050#
6089# 6128# 6166# 6179 6186 6205# 6219 6225 6226 6245# 6259 6266 6285# 6325#
6364# 6403# 6444# 6488# 6533# 6551 6556 6557 6561 6581# 6627# 6673# 6711# 6724
6733 6752# 6792# 6805 6812 6831# 6873# 6915# 6933 6941 6963# 6981 6987 6988
7008# 7025 7036 7037 7042 7043 7063# 7080 7089 7090 7113# 7149# 7162 7169
RANDBS 392# 674
REENTR 372#
RELIAB 131# 685 724
RENTR1 64 730#
REPT 348#
REPT1 348#
REPTU 470#
REQSET 348#
RESRT1 63 447#
RESRT2 448#
RETURN 379#
RSTART 120#
RTIME 726 759# 782 815 855 891 928 976 1024 1073 1121 1163 1206 1251
1294 1332 1367 1405 1446 1485 1526 1568 1615 1663 1708 1749 1789 1828
1870 1909 1956 1997 2037 2078 2118 2157 2197 2236 2280 2319 2358 2399
2442 2482 2523 2562 2601 2641 2680 2719 2758 2798 2838 2879 2922 2965
3010 3052 3097 3140 3189 3240 3284 3321 3356 3388 3426 3462 3504 3549
3590 3650 3693 3736 3780 3825 3867 3900 3938 3976 4009 4049 4090 4123
4155 4197 4240 4283 4318 4363 4407 4442 4476 4514 4552 4583 4624 4664
4695 4727 4766 4803 4845 4889 4933 4977 5013 5049 5089 5129 5169 5211
5252 5289 5327 5367 5404 5443 5482 5519 5558 5594 5633 5672 5711 5750
5787 5827 5865 5904 5944 5980 6018 6057 6096 6135 6173 6212 6252 6292
6332 6371 6410 6451 6495 6540 6588 6634 6680 6718 6759 6799 6838 6880
6922 6970 7015 7070 7120 7156
RTP 552#
RUNFLG 419#
SADR1 62# 368
SADR10 71# 384
SADR11 72# 385
SADR2 63# 370
SADR3 64# 372
SADR4 65#
SADR5 66# 433
SADR6 67# 434
SADR7 68# 381
SADR8 69# 382
SADR9 70# 383
SBINIT 193 378#
SCOPE 471#
SETAIA 5545#
SETAIB 5559# 5570
SETAIC 5565# 5572
SFSTRT 368#
SKIP1 2909#
SKIP2 2923# 2941
SKIP3 2928# 2943
SKIPE1 2952# SEQ 0219
SKIPE2 2967# 2983
SKIPE3 2974# 2985
SKIPG1 3039#
SKIPG2 3054# 3072
SKIPG3 3063# 3074
SKIPL1 3084#
SKIPL2 3098# 3115
SKIPL3 3103# 3117
SKIPN1 2997#
SKIPN2 3011# 3025
SKIPN3 3016# 3027
SKPGE1 3127#
SKPGE2 3141# 3166
SKPGE3 3146# 3168
SKPLE1 3176#
SKPLE2 3190# 3215
SKPLE3 3195# 3217
SKPLEA 3227#
SKPLEB 3241# 3246 3258
SKPLEC 3247# 3260
SLASH 555#
SOJ1 4463#
SOJ2 4477# 4490
SOJ3 4482# 4492
SOJE1 4501#
SOJE2 4515# 4528
SOJE3 4516# 4529
SOJE4 4519# 4530
SOJG1 4570#
SOJG2 4584# 4600
SOJG3 4589# 4602
SOJGE1 4682#
SOJGE2 4696# 4703 4704
SOJL1 4539#
SOJL1A 4611#
SOJL2 4553# 4560 4561
SOJL2A 4625# 4640
SOJL3A 4630# 4642
SOJLE1 4651#
SOJLE2 4665# 4672 4673
SOS1 4142#
SOS2 4156# 4172
SOS3 4161# 4174
SOSE1 4184#
SOSE2 4198# 4213
SOSE3 4199# 4214
SOSE4 4201# 4215
SOSG1 4305#
SOSG2 4319# 4338
SOSG3 4324# 4340
SOSGE1 4429#
SOSGE2 4443# 4453 4454
SOSL1 4270# SEQ 0220
SOSL1A 4350#
SOSL2 4284# 4294 4295
SOSL2A 4364# 4382
SOSL3A 4369# 4384
SOSLA 4227#
SOSLB 4241# 4256
SOSLC 4246# 4258
SOSLE1 4394#
SOSLE2 4408# 4418 4419
SPACE 544#
SRTDDT 374#
START 362 673#
START1 381#
START2 382#
START3 383#
START4 384#
START5 385#
STARTA 377 682#
STCAI1 5737#
STCAI2 5751# 5763
STCAI3 5757# 5765
STCMI1 5814#
STCMI2 5828# 5841
STCMI3 5834# 5843
STMI4 5469#
STMI5 5483# 5495
STMI6 5489# 5497
STOI1 5931#
STOI2 5945# 5956
STOI3 5951# 5958
SUBLNK 155# 378
SWTEXR 393#
SYSEXR 366#
TAB 545#
TDCE1 915#
TDCE2 930# 951
TDCE3 936# 953
TDCEA 963#
TDCEB 978# 999
TDCEC 984# 1001
TDCN1 728 769#
TDCN1A 1011#
TDCN1B 1026# 1035 1049
TDCN1C 1033# 1051
TDCN2 783# 793
TDCN3 788# 795
TDCN4 802#
TDCN5 816# 821 829
TDCN6 822# 831
TDCN7 842#
TDCN8 856# 861 867
TDCN9 862# 869
TDCNA1 1060# SEQ 0221
TDCNA2 1075# 1096
TDCNA3 1082# 1098
TDCNG 878#
TDCNH 892# 903
TDCNI 897# 905
TDNN1 1108#
TDNN2 1123# 1139
TDNN3 1129# 1141
TDNN4 1238#
TDNN5 1253# 1270
TDNN6 1260# 1272
TDNNA 1150#
TDNNB 1165# 1181
TDNNC 1171# 1183
TDNND 1193#
TDNNE 1208# 1225
TDNNF 1215# 1227
TESTPC 420# 777 810 850 886 923 971 1019 1068 1116 1158 1201 1246 1289
1327 1362 1400 1441 1480 1521 1563 1610 1658 1703 1744 1784 1823 1865
1904 1951 1992 2032 2073 2113 2152 2192 2231 2275 2314 2353 2394 2437
2477 2518 2557 2596 2636 2675 2714 2753 2793 2833 2874 2917 2960 3005
3047 3092 3135 3184 3235 3279 3316 3351 3383 3421 3457 3499 3544 3585
3645 3688 3731 3775 3820 3862 3895 3933 3971 4004 4044 4085 4118 4150
4192 4235 4278 4313 4358 4402 4437 4471 4509 4547 4578 4619 4659 4690
4722 4761 4798 4840 4884 4928 4972 5008 5044 5084 5124 5164 5206 5247
5284 5322 5362 5399 5438 5477 5514 5553 5589 5628 5667 5706 5745 5782
5822 5860 5899 5939 5975 6013 6052 6091 6130 6168 6207 6247 6287 6327
6366 6405 6446 6490 6535 6583 6629 6675 6713 6754 6794 6833 6875 6917
6965 7010 7065 7115 7151
TICKS 423#
TOTALS 121#
TRC1 7107#
TRC2 7121# 7134
TRC3 7126# 7136
TRCA1 7143#
TRCA2 7157# 7171
TRCA3 7162# 7173
TRN1 5967#
TRN2 5981# 5994
TRN3 5986# 5996
TRN4 6005#
TRN5 6019# 6033
TRN6 6024# 6035
TRN7 6044#
TRN8 6058# 6072
TRN9 6063# 6074
TRNA1 6083#
TRNA2 6097# 6111
TRNA3 6102# 6113
TRNE1A 6122#
TRNE1B 6160#
TRNE1C 6199#
TRNE1D 6239# SEQ 0222
TRNE1E 6279#
TRNE1F 6319#
TRNE2A 6136# 6149
TRNE2B 6174# 6188
TRNE2C 6213# 6228
TRNE2D 6253# 6268
TRNE2E 6293# 6308
TRNE2F 6333# 6347
TRNE3A 6141# 6151
TRNE3B 6179# 6190
TRNE3C 6218# 6230
TRNE3D 6258# 6270
TRNE3E 6298# 6310
TRNE3F 6338# 6349
TRO1 6667#
TRO1A 6746#
TRO1B 6760# 6775
TRO1C 6765# 6777
TRO1D 6786#
TRO1E 6800# 6814
TRO1F 6805# 6816
TRO2 6681# 6694
TRO3 6686# 6696
TRO4 6705#
TRO5 6719# 6735
TRO6 6724# 6737
TROA1 6825#
TROA2 6839# 6856
TROA3 6844# 6858
TROA4 6867#
TROA5 6881# 6895
TROA6 6886# 6897
TROE1 6909#
TROE2 6924# 6943
TROE3 6932# 6945
TROEA 6957#
TROEB 6972# 6990
TROEC 6980# 6992
TRON1 7002#
TRON2 7017# 7028 7045
TRON3 7026# 7047
TRONA 7057#
TRONB 7072# 7092
TRONC 7081# 7094
TRZA1 6358#
TRZA2 6372# 6386
TRZA3 6377# 6388
TRZAA 6397#
TRZAB 6411# 6427
TRZAC 6417# 6429
TRZB1 6438#
TRZB2 6452# 6470
TRZB3 6457# 6472 SEQ 0223
TRZE1 6482#
TRZE2 6497# 6515
TRZE3 6505# 6517
TRZEA 6527#
TRZEB 6542# 6563
TRZEC 6550# 6565
TRZN1 6621#
TRZN2 6636# 6656
TRZN3 6645# 6658
TRZNA 6575#
TRZNB 6590# 6609
TRZNC 6599# 6611
TSC1 1281#
TSC2 1295# 1307
TSC3 1300# 1309
TSC4 1319#
TSC5 1333# 1343
TSC6 1338# 1345
TSC7 1354#
TSC8 1368# 1380
TSC9 1373# 1382
TSCA1 1392#
TSCA2 1406# 1420
TSCA3 1411# 1422
TSCE1 1433#
TSCE2 1447# 1461
TSCE3 1452# 1463
TSCE4 1513#
TSCE5 1527# 1532 1534 1544
TSCE6 1535# 1546
TSCEA 1472#
TSCEB 1486# 1502
TSCEC 1491# 1504
TSCED 1555#
TSCEE 1569# 1574 1590
TSCEF 1575# 1592
TSCN1 1602#
TSCN2 1616# 1621 1624 1638
TSCN3 1622# 1640
TSCNA 1650#
TSCNB 1664# 1669 1673 1675 1684
TSCNC 1670# 1686
TSN1 2510#
TSN2 2524# 2538
TSN3 2529# 2540
TSN4 2549#
TSN5 2563# 2577
TSN6 2568# 2579
TSN7 2588#
TSN8 2602# 2616
TSN9 2607# 2618
TSNA1 2628#
TSNA2 2642# 2656 SEQ 0224
TSNA3 2647# 2658
TSNE1 2667#
TSNE2 2681# 2695
TSNE3 2686# 2697
TSNE4 2745#
TSNE5 2759# 2764 2774
TSNE6 2764# 2776
TSNEA 2706#
TSNEB 2720# 2734
TSNEC 2725# 2736
TSNED 2785#
TSNEE 2799# 2804 2814
TSNEF 2805# 2816
TSNN1 2825#
TSNN2 2839# 2844 2855
TSNN3 2845# 2857
TSNNA 2866#
TSNNB 2880# 2887 2897
TSNNC 2888# 2899
TSO1 1695#
TSO2 1709# 1725
TSO3 1714# 1727
TSO4 1736#
TSO5 1750# 1764
TSO6 1755# 1766
TSO7 1776#
TSO8 1790# 1804
TSO9 1795# 1806
TSOA1 1815#
TSOA2 1829# 1846
TSOA3 1834# 1848
TSOE1 1857#
TSOE2 1871# 1885
TSOE3 1876# 1887
TSOE4 1943#
TSOE5 1957# 1962 1973
TSOE6 1963# 1975
TSOEA 1896#
TSOEB 1910# 1915 1932
TSOEC 1916# 1934
TSOED 1984#
TSOEE 1998# 2003 2013
TSOEF 2004# 2015
TSON1 2024#
TSON2 2038# 2054
TSON3 2043# 2056
TSONA 2065#
TSONB 2079# 2084 2094
TSONC 2085# 2096
TSZ1 2105#
TSZ2 2119# 2133
TSZ3 2124# 2135
TSZ4 2144# SEQ 0225
TSZ5 2158# 2172
TSZ6 2163# 2174
TSZ7 2184#
TSZ8 2198# 2212
TSZ9 2203# 2214
TSZA1 2223#
TSZA2 2237# 2256
TSZA3 2242# 2258
TSZE1 2267#
TSZE2 2281# 2295
TSZE3 2286# 2297
TSZE4 2345#
TSZE5 2359# 2364 2375
TSZE6 2365# 2377
TSZEA 2306#
TSZEB 2320# 2334
TSZEC 2325# 2336
TSZED 2386#
TSZEE 2400# 2405 2418
TSZEF 2406# 2420
TSZN1 2429#
TSZN2 2443# 2458
TSZN3 2448# 2460
TSZNA 2469#
TSZNB 2483# 2488 2499
TSZNC 2489# 2501
TTNBRF 603#
TTYFIL 519#
TTYSPD 520#
TXTINH 132#
USER 410# 675 7199
USERF 348#
USRASB 56# 400
USRCRF 529#
USRLFF 528#
UUODIS 482#
UUOEXT 438# 7392
UUORTN 439#
UUOSKP 436#
UUOTXT 7347
XORIA 5581#
XORIB 5595# 5609
XORIC 5601# 5611
$$MUUO 634#
$$OUTE 640#
$$TAX1 652#
$$TAX2 653#
$$TOGG 646#
$$UUO 623#
$ACC0 461#
$BEND1 431#
$BEND2 432# 7382
$CHRIN 522# SEQ 0226
$CRLF 524#
$DEVCH 348#
$DSKUP 401#
$DVCH1 348#
$DVOFF 518#
$EMODE 399#
$ENDFX 668# 669
$FFF 526#
$IBUF 574#
$INEXT 576#
$INNM 575#
$ITRHL 442#
$ITRX1 443#
$LPAPE 7403
$MMAP 402#
$MODVL 397#
$MODVU 398#
$OBUF 565#
$ONETM 425#
$OUTEX 567#
$OUTNM 566#
$PAPER 348
$PARER 449#
$PNAME 395#
$PSHER 453#
$PVER 396#
$RSRTX 445#
$RSRTY 446#
$SPAG1 465#
$START 362#
$SVAPR 463#
$SVPAG 464#
$SVPI 462#
$SVUPC 468# 7193 7197 7227
$SVUUO 467# 7206 7243 7254 7300 7338
$TABF 525#
$TTCHR 521#
$TWCNT 517#
$TYPNB 523#
$UMODE 400#
$UORTX 440#
$USRHL 444#
$UUOER 441# 482
$VTF 527#
%ACS1A 7208# 7208 7235 7239 7256 7262
%ACTFL 474#
%ACTUL 475#
%CNTE 7244# 7244 7248 7263
%COREC 473#
%CORFL 472#
%DISCR 476#
%EE1 7249# 7249 7251 7325
%EE1A 7252# 7252 7293 7334 SEQ 0227
%EE2 7255# 7255 7260 7323
%EE2A 7261# 7261 7317
%ERAC0 7182# 7182 7209 7247 7279 7291 7307 7384
%ERAC1 7190# 7190 7210 7246 7250 7253 7259 7372
%ERAC2 7191# 7191 7245 7371
%ERFST 7216# 7216 7218
%ERHI1 615#
%ERHI2 616#
%ERHI3 617#
%ERMOR 7348 7354#
%ERMS1 7213# 7397
%ERMS2 7234#
%ERR2 7268 7312 7321#
%ERR4 7285 7338#
%ERRB 7280# 7335
%ERRB1 7300# 7328
%ERRC 7296 7314 7319 7330 7340 7344#
%ERRS1 7205 7358# 7396
%ERRS2 7371#
%ERRS4 7212 7394#
%ERRS5 7375 7379 7384#
%RAND 7234# 7234 7237 7308
.JB41 348#
.JBAPR 348#
.JBCNI 348#
.JBDDT 348#
.JBFF 348#
.JBOPC 348#
.JBREL 348#
.JBREN 348#
.JBSA 348#
.JBSYM 348#
.JBTPC 348#
.JBUSY 348#
.JBUUO 348#
.JBVER 348#
CFLUSH 304#
CINVAL 303# SEQ 0228
CLOKOP 298#
CWRTBI 305#
DROPDV 265# 730
EERR 39# 865 4168 4170 4209 4211 4738 4740 4987 5023
EERRI 41# 3912 4488 4776 5992 6109 6147 6345 6384 6463 6468 6692 6773 6854
7132
EERRM 40#
ENDUUO 311# 430
EOPUUO 312# 432
ER 38# 825 863 940 942 946 988 990 994 1038 1040 1044 1091 1133
1135 1175 1177 1219 1221 1264 1266 1414 1416 1455 1457 1498 1538 1540
1578 1580 1585 1627 1629 1633 1678 1680 1719 1721 1758 1760 1798 1800
1840 1842 1879 1881 1920 1922 1927 1969 2007 2009 2050 2088 2090 2127
2129 2166 2168 2206 2208 2250 2252 2289 2291 2328 2330 2371 2414 2454
2495 2532 2534 2571 2573 2610 2612 2650 2652 2689 2691 2728 2730 2768
2770 2808 2810 2849 2851 2891 2893 2932 2935 2977 3019 3066 3109 3152
3160 3201 3209 3252 3293 3328 3360 3397 3435 3470 3476 3512 3518 3560
3603 3612 3614 3616 3619 3621 3623 3659 3703 3749 3794 3836 3872 3910
3947 3981 4021 4062 4095 4128 4166 4207 4250 4289 4332 4376 4413 4448
4486 4524 4557 4596 4636 4669 4700 4736 4774 4815 4859 4903 4947 4985
5021 5061 5101 5140 5181 5223 5263 5300 5338 5378 5988 5990 6027 6029
6066 6068 6105 6107 6143 6145 6182 6184 6222 6224 6262 6264 6302 6304
6341 6343 6380 6382 6421 6423 6466 6509 6511 6559 6603 6605 6651 6688
6690 6729 6731 6769 6771 6808 6810 6850 6852 6889 6891 6937 6939 6984
6986 7032 7034 7039 7085 7087 7128 7130 7165 7167
ERR 34# 791 827 901 944 949 992 997 1042 1047 1088 1093 1137 1179
1223 1268 1305 1341 1378 1418 1459 1495 1500 1542 1582 1588 1631 1636
1682 1723 1762 1802 1844 1883 1924 1930 1966 1971 2011 2047 2052 2092
2131 2170 2210 2254 2293 2332 2368 2373 2411 2416 2452 2456 2492 2497
2536 2575 2614 2654 2693 2732 2772 2812 2853 2895 2937 2939 2979 2981
3021 3023 3068 3070 3111 3113 3154 3156 3162 3164 3203 3205 3211 3213
3254 3256 3605 3607 3661 3663 3705 3707 3751 3753 3796 3798 3838 3840
3874 3876 4252 4254 4291 4293 4334 4336 4378 4380 4415 4417 4450 4452
4817 4819 4861 4863 4905 4907 4949 4951
ERRHLT 200# 7365
ERRI 36# 3295 3330 3399 3437 3472 3478 3514 3520 3562 3949 3983 4023 4064
4097 4130 4526 4559 4598 4638 4671 4702 5063 5103 5142 5183 5225 5265
5302 5340 5380 5417 5456 5493 5532 5568 5607 5646 5685 5724 5761 5801
5839 5878 5918 5954 6031 6070 6186 6226 6266 6306 6425 6513 6556 6561
6607 6648 6653 6733 6812 6893 6941 6988 7036 7042 7089 7169
ERRM 35#
ERROR 37#
FATAL 199#
FRD36 340#
FRD8 341#
FREAD 339#
FSELEC 338#
GET 183#
GO 180#
HALT 68 69 70 71 72 185# 451
JEN 187#
JRSTF 186#
LOOP 105# 792 828 866 902 950 998 1048 1095 1138 1180 1224 1269 1306 SEQ 0229
1342 1379 1419 1460 1501 1543 1589 1637 1683 1724 1763 1803 1845 1884
1931 1972 2012 2053 2093 2132 2171 2211 2255 2294 2333 2374 2417 2457
2498 2537 2576 2615 2655 2694 2733 2773 2813 2854 2896 2940 2982 3024
3071 3114 3165 3214 3257 3296 3563 3624 3708 3754 3799 3913 4024 4065
4098 4171 4255 4337 4381 4489 4599 4639 4741 4777 4820 4864 4908 4952
4988 5024 5064 5104 5143 5418 5457 5494 5533 5569 5608 5647 5686 5725
5762 5802 5840 5879 5919 5955 5993 6032 6071 6110 6148 6187 6227 6267
6307 6346 6385 6426 6469 6514 6562 6608 6655 6693 6734 6774 6813 6855
6894 6942 6989 7044 7091 7133 7170
MAPADR 321#
MAPCNK 322#
MAPMEM 318#
MAPPNT 324#
MAPSET 323#
MEMSEG 320#
MEMZRO 319#
MODPCP 331#
MODPCU 330#
MTROP 299#
NAME 7# 10
PBELL 274# 7369
PCRL 268# 7344
PCRL2 272#
PCRL2F 273#
PCRLF 269#
PFORCE 276#
PGMINT 193# 673
PJRST 184#
PMSG 278# 7221 7225 7271 7275 7287 7298 7303 7315 7321 7332
PMSGF 281#
PNT1 234#
PNT11 248#
PNT11F 249#
PNT1F 235#
PNT2 236# 7274
PNT2F 237#
PNT3 238#
PNT3F 239#
PNT4 240#
PNT4F 241#
PNT5 242#
PNT5F 243#
PNT6 244# 7229 7326
PNT6F 245#
PNT7 246#
PNT7F 247#
PNTA 220# 7339
PNTADF 251#
PNTADR 250#
PNTAF 221#
PNTAL 222#
PNTALF 223#
PNTCHF 233# SEQ 0230
PNTCHR 232#
PNTCI 230#
PNTCIF 231#
PNTCW 266#
PNTCWF 267#
PNTDCF 259#
PNTDEC 258# 7224
PNTDS 260#
PNTDSF 261#
PNTHW 254# 7280 7294 7310 7318
PNTHWF 255#
PNTMGN 345# 7355
PNTMSF 227#
PNTMSG 226#
PNTNM 262# 7217
PNTOCF 257#
PNTOCS 256#
PNTOCT 252#
PNTOTF 253#
PNTSIX 263#
PNTSXF 264#
PSIXL 224#
PSIXLF 225#
PSIXM 228# 7222 7226 7272 7276 7288 7299 7304 7316 7322 7333
PSIXMF 229#
PSP 270#
PSPF 271#
PUT 182#
RANDOM 99# 783 816 856 892 930 978 1026 1075 1123 1165 1208 1253 1295
1333 1368 1406 1447 1486 1527 1569 1616 1664 1709 1750 1790 1829 1871
1910 1957 1998 2038 2079 2119 2158 2198 2237 2281 2320 2359 2400 2443
2483 2524 2563 2602 2642 2681 2720 2759 2799 2839 2880 2923 2967 3011
3054 3098 3141 3190 3241 3285 3550 3591 3694 3737 3781 3901 4010 4050
4156 4241 4319 4364 4477 4584 4625 4728 4767 4805 4846 4890 4934 4978
5014 5050 5090 5130 5253 5290 5405 5444 5483 5520 5559 5595 5634 5673
5712 5751 5788 5828 5866 5905 5945 5981 6019 6058 6097 6136 6174 6213
6253 6293 6333 6372 6411 6452 6497 6542 6590 6636 6681 6719 6760 6800
6839 6881 6924 6972 7017 7072 7121 7157
RTN 181# 438
S 111# 113 117 146 148 157 160 175 176 178 189 191 195 197
202 206 348 353 359 386 388 406 408 426 428 457 459 477
479 497 499 507 509 530 535 561 563 570 572 578 580 586
588 592 594 599 601 605 607 611 613 619 621 624 626 630
632 636 638 642 644 648 650 655 660 664 666
SETUP 84# 769 802 842 878 915 963 1011 1060 1108 1150 1193 1238 1281
1319 1354 1392 1433 1472 1513 1555 1602 1650 1695 1736 1776 1815 1857
1896 1943 1984 2024 2065 2105 2144 2184 2223 2267 2306 2345 2386 2429
2469 2510 2549 2588 2628 2667 2706 2745 2785 2825 2866 2909 2952 2997
3039 3084 3127 3176 3227 3271 3308 3343 3375 3413 3449 3491 3536 3577
3637 3680 3723 3767 3812 3854 3887 3925 3963 3996 4036 4077 4110 4142
4184 4227 4270 4305 4350 4394 4429 4463 4501 4539 4570 4611 4651 4682
4714 4753 4790 4832 4876 4920 4964 5000 5036 5076 5116 5156 5198 5239
5276 5314 5354 5391 5430 5469 5506 5545 5581 5620 5659 5698 5737 5774 SEQ 0231
5814 5852 5891 5931 5967 6005 6044 6083 6122 6160 6199 6239 6279 6319
6358 6397 6438 6482 6527 6575 6621 6667 6705 6746 6786 6825 6867 6909
6957 7002 7057 7107 7143
SIXBTZ 287#
SWITCH 293# 684 7203 7356
TTALTM 215# 7358
TTICHR 208#
TTICNV 213#
TTIDEC 212#
TTINO 210#
TTIOCT 211#
TTIYES 209#
TTLOOK 214#
TTSIXB 216#