Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dakbc.seq
There are no other files named dakbc.seq in the archive.
MAINDEC-10-DAKBC.TXT
SEQ 0001
IDENTIFICATION
--------------
PRODUCT CODE: MAINDEC-10-DAKBC-B-D
PRODUCT NAME: DECSYSTEM10 PDP-10 KA10 BASIC
INSTRUCTION RELIABILITY TEST (3)
FUNCTION: TESTS, HALF WORD, ADD/SUB, JFFO, 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-DAKBC.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-DAKBC.TXT
PAGE 3 SEQ 0003
1.0 ABSTRACT
THIS PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST
IS THE THIRD IN A SERIES OF PDP-10 KA10 PROCESSOR
RANDOM NUMBER DIAGNOSTICS.
THE DIAGNOSTIC TESTS TESTS, HALF WORD, ADD/SUB, JFFO, 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-DAKBC.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-DAKBC.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-DAKBC.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-DAKBC.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-DAKBC.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-DAKBC.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-DAKBC.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-DAKBC.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-DAKBC.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-DAKBC.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 'DAKBC.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-DAKBC
SEQ 0014
************************************************************************
PRODUCT CODE: MAINDEC-10-DAKBC
PRODUCT NAME: KA10 BASIC INSTRUCTION RELIABILITY # 3
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
************************************************************************
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 1
DAKBCT MAC 21-JAN-77 16:45 DIAGNOSTIC PARAMETERS SEQ 0015
1 ;MAINDEC-10-DAKBC
2
3 000002 DECVER==002
4 000000 MCNVER==000
5
6 XLIST
7 LIST
8 LALL
9
10 NAME \MCNVER,\DECVER^
11
12 TITLE DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 ^
13
14 XALL
15
16 ;TEST DESIGNED FOR RANDOM NUMBER TESTING OF THE PDP-10 BASIC INSTRUCTIONS
17 ;(TESTS,HALF WORD,ADD/SUB,JFFO,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 000001 PGMEND==1
28 NOSYM
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 2
DAKBCT MAC 21-JAN-77 16:45 DIAGNOSTIC PARAMETERS SEQ 0016
29 SUBTTL DIAGNOSTIC PARAMETERS
30
31 ;LUUO DEFINITIONS
32
33 001000 000000 OPDEF ERR [1B8]
34 002000 000000 OPDEF ERRM [2B8]
35 003000 000000 OPDEF ERRI [3B8]
36 004000 000000 OPDEF ERROR [4B8]
37 005000 000000 OPDEF ER [5B8]
38 007000 000000 OPDEF ERM [7B8]
39 011000 000000 OPDEF EERR [11B8]
40 012000 000000 OPDEF EERRM [12B8]
41 013000 000000 OPDEF EERRI [13B8]
42 037625 LUUO1=ERRMES
43 037625 LUUO2=ERRMES
44 037625 LUUO3=ERRMES
45 037625 LUUO4=ERRMES
46 037625 LUUO5=ERRMES
47 037625 LUUO7=ERRMES
48 037625 LUUO11=ERRMES
49 037625 LUUO12=ERRMES
50 037625 LUUO13=ERRMES
51
52 ;SUBROUTINE ASSEMBLY DEFINITIONS
53
54 000001 EXCASB==1
55 000001 USRASB==1
56 000001 KA10=1
57 000001 PGMEND==1
58 000040 DEBUG==40
59 000001 ERRELB==1
60 000001 KLOLD==1
61 030000 SADR1=BEGIN
62 030076 SADR2=RESRT1
63 030635 SADR3=RENTR1
64 030000 SADR4=BEGIN
65 030000 SADR5=BEGIN
66 030000 SADR6==BEGIN
67 254200 030000 SADR7=HALT BEGIN
68 254200 030000 SADR8=HALT BEGIN
69 254200 030000 SADR9=HALT BEGIN
70 254200 030000 SADR10=HALT BEGIN
71 254200 030000 SADR11=HALT BEGIN
72 123457 654321 PAREA1=123457,,654321
73 000000 PAREA2=0
74 444153 424300 PAREA3=SIXBIT/DAKBC/
75 645560 000000 PAREA4=SIXBIT/TMP/
76 000000 PAREA5=0
77 000000 PAREA6=0
78 000001 ITERAT=1
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 3
DAKBCT MAC 21-JAN-77 16:45 DIAGNOSTIC PARAMETERS SEQ 0017
79 ;MACROS
80
81 DEFINE SETUP (A,B)<
82 AC1=<AC+1>&17
83 AC2=<AC+2>&17
84 AC3=<AC+3>&17
85 AC4=<AC+4>&17
86 AC5=<AC+5>&17
87 RAN1=<AC-2>&17
88 MOVEI AC-1,.
89 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
90 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
91 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
92 MOVEI AC-1,A ;ROUTINE WEIGHTING
93 ASH AC-1,@CMPLXT+B ;ROUTINE COMPLEXITY
94 ASH AC-1,@RTIME ;RUN TIME CONTROLLER >
95
96 DEFINE RANDOM (A)<
97 MOVE AC,RAN# ;GENERATE A PSEUDO RANDOM NUMBER
98 ADD AC,[142536475076]
99 ROT AC,-1 ;IN BOTH AC AND
100 EQVB AC,RAN ;REGISTER RAN >
101
102 DEFINE LOOP (A,B)<
103 SOJG AC-1,A ;ITERATION COUNTER
104 MOVE AC,RAN ;RESTORE RANDOM NUMBER
105 JUMPL AC-1,B ;LOOP ON ERROR SWITCH >
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 1
PARAM KLM 18-JAN-77 11:38 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977 SEQ 0018
106 SUBTTL *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977
107
108 DEFINE S,<;*********************************************************************>
109
110 S^;*********************************************************************^
111 ;*DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE)
112 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
113 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
114 S^;*********************************************************************^
115
116 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION
117 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS
118 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE
119
120 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
121 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
122 010000 DING== 010000 ;RING BELL ON ERROR
123
124 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR
125 002000 ERSTOP==002000 ;HALT ON TEST ERROR
126 001000 PALERS==001000 ;PRINT ALL ERRORS
127
128 000400 RELIAB==000400 ;RELIABILITY MODE
129 000200 TXTINH==000200 ;INHIBIT ERROR TEXT
130 000100 INHPAG==000100 ;INHIBIT PAGING
131
132 000040 MODDVC==000040 ;MODIFY DEVICE CODE
133 000020 INHCSH==000020 ;INHIBIT CACHE
134 000010 OPRSEL==000010 ;OPERATOR SELECTION
135
136 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH
137
138 000002 KAHZ50==000002 ;KA10 50 HERTZ POWER
139
140 ;SWITCH 17 RESERVED !!!
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 2
PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0019
141 SUBTTL *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977
142
143 S^;*********************************************************************^
144 ;*SPECIAL SUBPROGRAM LINKAGES
145 S^;*********************************************************************^
146
147 027772 FSELNK= 27772 ;FILE SELECT LINK
148 027773 FRDLNK= 27773 ;FILE READ LINK
149 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS
150 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS
151 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS
152 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS
153
154 S^;*********************************************************************^
155 ;*SPECIAL SUBROUTINE FATAL HALTS
156 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
157 S^;*********************************************************************^
158
159 ;ADDRESS TAG REASON
160 ;---------------------
161
162 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION
163 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR
164 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR
165 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT
166 ; 1014 DTEBER ;DTE20 INTERRUPT WITHOUT DOORBELL
167 ; 1015 DTECER ;DTE20 CLOCK INTERRUPT WITHOUT FLAG SET
168 ; 1016 CPIERR ;CPU INITIALIZATION ERROR
169 ; 1017 EOPERR ;END OF PROGRAM ERROR
170 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT
171
172 S^;*********************************************************************^
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 3
PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0020
173 S^;*********************************************************************^
174 ;OPERATOR DEFINITIONS (NON-UUO'S)
175 S^;*********************************************************************^
176
177 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL
178 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN
179 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST
180 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST
181 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S
182 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT
183 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT
184 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT
185
186 S^;*********************************************************************^
187 ;*SUBROUTINE INITIALIZATION CALL
188 S^;*********************************************************************^
189
190 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION
191
192 S^;*********************************************************************^
193 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
194 S^;*********************************************************************^
195
196 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT
197 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT
198
199 S^;*********************************************************************^
200 ;*TERMINAL INPUT UUO'S
201 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
202 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
203 S^;*********************************************************************^
204
205 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER
206 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y
207 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N
208 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD
209 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD
210 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD
211 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK
212 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK
213 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD
214 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 4
PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0021
215 ;*TERMINAL OUTPUT UUO'S.
216
217 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD
218 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED
219 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE
220 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED
221 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE
222 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED
223 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE
224 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED
225 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE
226 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED
227 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE
228 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED
229 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER
230 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED
231 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT
232 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED
233 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS
234 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED
235 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS
236 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED
237 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS
238 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED
239 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS
240 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED
241 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS
242 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED
243 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS
244 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED
245 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS
246 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED.
247 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS
248 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED
249 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL
250 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED
251 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6
252 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
253 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S
254 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
255 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S
256 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
257 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S
258 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
259 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME
260 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD
261 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED
262 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE
263 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD
264 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED
265 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
266 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
267 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE
268 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED
269 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 4-1
PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0022
270 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
271 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL
272
273 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE
274
275 DEFINE PMSG (ARG),<
276 PSIXM [SIXBIT\ARG'_\]>
277
278 DEFINE PMSGF (ARG),<
279 PSIXMF [SIXBIT\ARG'_\]>
280
281 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
282 ;* CONSERVES CORE OVER ASCIZ
283
284 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]>
285
286 ;*CONSOLE SWITCH INPUT UUO.
287 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
288 ;* USER MODE.
289
290 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES
291
292 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
293 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
294
295 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - PDP-11 CLOCK
296 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - DK20 METER
297
298 ;*KL10 ONLY CACHE OPERATION UUO'S
299
300 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE
301 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH
302 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 5
PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0023
303 ;*END OF PASS/PROGRAM UUOS
304
305 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
306 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
307
308 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS
309 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO
310
311 ;*MEMORY MANAGEMENT UUO'S
312 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
313 ;*ADDRESS CONVERSION, ETC...
314
315 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY
316 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY
317 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT
318 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT
319 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK
320 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP
321 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP
322
323 ;*DEVICE CODE MODIFICATION UUO
324 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
325 ;*IOT'S TO A DIFFERENT DEVICE CODE.
326
327 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER
328 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM
329
330 030000 IFNDEF MODDVL,<MODDVL==BEGIN>
331 030000 IFNDEF MODDVU,<MODDVU==BEGIN>
332
333 ;*"DIAMON" FILE SELECTION AND READ UUOS
334
335 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION
336 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA
337 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA
338 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA
339
340 ;*KI10 ONLY UUO FOR PRINTING MARGIN VALUES
341
342 037700 000002 OPDEF PNTMGN [37B8!16B12!2] ;PRINT MARGIN VALUE
343
344 XLIST
345 LIST
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 1
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0024
346 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977
347
348 030000 LOC 30000
349
350 S^;*********************************************************************^
351 ;*PROGRAM STARTING ADDRESSES
352 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
353 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
354 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
355 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
356 S^;*********************************************************************^
357
358 030000 254 00 1 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START
359 030001 254 00 0 00 030600 $START: JRST START ;MODE CHECK STARTING ADDRESS
360
361 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START
362
363 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START
364
365 030004 254 00 0 00 030000 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START
366
367 030005 254 00 0 00 030076 PFSTRT: JRST SADR2 ;POWER FAIL RESTART
368
369 030006 254 00 0 00 030635 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY)
370
371 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT"
372 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START
373
374 030010 254 00 0 00 030605 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE)
375 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE
376 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE
377
378 030013 254200 030000 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS
379 030014 254200 030000 START2: SADR8 ; "
380 030015 254200 030000 START3: SADR9 ; "
381 030016 254200 030000 START4: SADR10 ; "
382 030017 254200 030000 START5: SADR11 ; "
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 2
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0025
383 S^;*********************************************************************^
384 ;*PROGRAM FIXED PARAMETER AREA
385 S^;*********************************************************************^
386
387 030020 444153 424300 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME
388 030021 645560 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION
389 030022 123457 654321 RANDBS: PAREA1 ;RANDOM BASE NUMBER
390 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES
391 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS
392 030025 000000 030637 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME
393 030026 000000 000002 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL
394 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT
395 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT
396 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED
397 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED
398 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE
399 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS
400 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER
401 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER
402
403 S^;*********************************************************************^
404 ;*PROGRAM VARIABLE PARAMETER AREA
405 S^;*********************************************************************^
406
407 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG
408 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10
409 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
410 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG
411 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG
412 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10
413 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG
414 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS
415 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT
416 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG
417 030051 000000 000000 TESTPC: 0 ;SUBTEST PC
418 030052 000000 000000 ERRPC: 0 ;ERROR PC
419 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS
420 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME
421 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE
422 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 3
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0026
423 S^;*********************************************************************^
424 ;*SPECIAL PROGRAM DISPATCH ADDRESSES
425 S^;*********************************************************************^
426
427 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS
428 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM
429 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN
430 030062 000000 030000 CNTLC: SADR5 ;CONTROL C XFER ADDRESS
431 030063 000000 030000 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS
432 030064 CPOPJ1: ;SKIP RETURN
433 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO
434 030065 CPOPJ: ;NON-SKIP REGULAR RETURN
435 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN
436 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE
437 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE
438 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX)
439 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE
440 030072 255 00 0 00 000000 $ITRX1: JFCL ; "
441 030073 255 00 0 00 000000 $USRHL: JFCL ; "
442 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE
443 030075 255 00 0 00 000000 $RSRTY: JFCL ; "
444 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX)
445 030077 255 00 0 00 000000 RESRT2: JFCL ; "
446 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE
447 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE
448 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT
449
450 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR)
451 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT
452 030105 000000 000000 0 ;INITED AS (JRST $ITRC1)
453
454 S^;*********************************************************************^
455 ;*PROCESSOR CONTROL STORAGE
456 S^;*********************************************************************^
457
458 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0
459 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI
460 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR
461 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI)
462 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI)
463
464 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO
465 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO
466
467 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS
468 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG
469 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG
470 030120 000000 000000 %COREC: 0 ; " CORRECT DATA
471 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG
472 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA
473 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 4
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0027
474 S^;*********************************************************************^
475 ;*UUO DISPATCH TABLE
476 S^;*********************************************************************^
477 XLIST
478 LIST
479 030124 037625 030070 UUODIS: LUUO1,,$UUOER
480 030125 037625 037625 LUUO3,,LUUO2
481 030126 037625 037625 LUUO5,,LUUO4
482 030127 037625 030070 LUUO7,,LUUO6
483 030130 037625 030070 LUUO11,,LUUO10
484 030131 037625 037625 LUUO13,,LUUO12
485 030132 030070 030070 LUUO15,,LUUO14
486 030133 030070 030070 LUUO17,,LUUO16
487 030134 030070 030070 LUUO21,,LUUO20
488 030135 030070 030070 LUUO23,,LUUO22
489 030136 030070 030070 LUUO25,,LUUO24
490 030137 030070 030070 LUUO27,,LUUO26
491 030140 030070 030070 LUUO31,,LUUO30
492 030141 030070 030070 LUUO33,,LUUO32
493
494 S^;*********************************************************************^
495 ;*MEMORY MANAGMENT STORAGE
496 S^;*********************************************************************^
497
498 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
499 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
500 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.)
501 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY
502 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE
503
504 S^;*********************************************************************^
505 ;*PRINT CONTROL STORAGE
506 S^;*********************************************************************^
507
508 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
509 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE
510 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG
511 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS
512 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL
513 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME
514 030225 000000 000000 $TWCNT: 0 ;TIME WAITED
515 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG
516 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG
517 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE
518 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR
519 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR
520 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER
521 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG
522 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG
523 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG
524 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG
525 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS
526 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 5
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0028
527 S^;*********************************************************************^
528 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
529 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
530 ;* MOVEI NAME
531 ;* PNTA ;OR PNTAF
532 S^;*********************************************************************^
533
534 030242 CRLF: ASCII/
535 030242 015 012 000 000 000 /
536 030243 CRLF2: ASCII/
537
538 030243 015 012 015 012 000 /
539 030244 054 000 000 000 000 COMMA: ASCII/,/
540 030245 056 000 000 000 000 PERIOD: ASCII/./
541 030246 040 000 000 000 000 SPACE: ASCII/ /
542 030247 011 000 000 000 000 TAB: ASCII/ /
543 030250 MINUS:
544 030250 055 000 000 000 000 HYPEN: ASCII/-/
545 030251 053 000 000 000 000 PLUS: ASCII/+/
546 030252 052 000 000 000 000 AST: ASCII/*/
547 030253 100 000 000 000 000 ATSIN: ASCII/@/
548 030254 050 000 000 000 000 LFP: ASCII/(/
549 030255 051 000 000 000 000 RTP: ASCII/)/
550 030256 007 0000000000 BELL: BYTE (7) 007
551 030257 077 000 000 000 000 QUEST: ASCII/?/
552 030260 057 000 000 000 000 SLASH: ASCII!/!
553 030261 044 000 000 000 000 DOLLAR: ASCII/$/
554 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX
555 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR
556 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT
557
558 S^;*********************************************************************^
559 ;*USER MODE OUTPUT FILE INFORMATION
560 S^;*********************************************************************^
561
562 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER
563 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME
564 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION
565 030272 BLOCK 2
566
567 S^;*********************************************************************^
568 ;*DISK UPDATE MODE FILE INFORMATION
569 S^;*********************************************************************^
570
571 030274 $IBUF: BLOCK 3
572 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/
573 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/
574 030301 BLOCK 2
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 6
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0029
575 S^;*********************************************************************^
576 ;*PUSHDOWN LIST CONTROL INFORMATION
577 S^;*********************************************************************^
578
579 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST
580 030304 PLISTS: BLOCK 200
581 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST
582
583 S^;*********************************************************************^
584 ;*POWER LINE CLOCK FREQUENCY FLAG
585 S^;*********************************************************************^
586
587 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE
588
589 S^;*********************************************************************^
590 ;*KL10 CACHE CONTROL FLAGS
591 S^;*********************************************************************^
592
593 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0
594 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0
595
596 S^;*********************************************************************^
597 ;*NUMBER INPUT DIGIT FLAG
598 S^;*********************************************************************^
599
600 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED
601
602 S^;*********************************************************************^
603 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
604 S^;*********************************************************************^
605
606 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
607
608 S^;*********************************************************************^
609 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
610 S^;*********************************************************************^
611
612 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO
613 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO
614 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
615
616 S^;*********************************************************************^
617 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION
618 S^;*********************************************************************^
619
620 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 7
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0030
621 S^;*********************************************************************^
622 ;*KL10 PROCESSOR TYPE FLAG, 0=P0, 1=BBD NEW, 2=BBD OLD
623 S^;*********************************************************************^
624
625 030516 000000 000000 KLTYP: 0
626
627 S^;*********************************************************************^
628 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION
629 S^;*********************************************************************^
630
631 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER
632
633 S^;*********************************************************************^
634 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
635 S^;*********************************************************************^
636
637 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
638
639 S^;*********************************************************************^
640 ;*"SWITCH" CALL USAGE CONTROL
641 S^;*********************************************************************^
642
643 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
644
645 S^;*********************************************************************^
646 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
647 S^;*********************************************************************^
648
649 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
650 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
651
652 S^;*********************************************************************^
653 ;*SPECIAL FUTURE EXPANSION ROOM
654 ;*IF ANY FIXED AREA TAGS ARE ADDED, REDUCE THE SIZE OF
655 ;*THIS BLOCK STATEMENT ACCORDINGLY. THIS MUST BE DONE
656 ;*SO THAT PREVIOUS FIXED ASSIGNMENTS DO NOT CHANGE.
657 S^;*********************************************************************^
658
659 030524 BLOCK 53 ;HOPEFULLY THIS IS ENOUGH FOREVER
660
661 S^;*********************************************************************^
662 ;*END OF FIXED STORAGE
663 S^;*********************************************************************^
664
665 030577 $ENDFX=<PLISTE+100>&<777700>-1
666 030577 LOC $ENDFX
667 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 1
DAKBCM MAC 21-JAN-77 16:49 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0031
668 ;INITIALIZE UUO HANDLER
669
670 030600 265 00 0 00 030011 START: PGMINT ;INITIALIZE SUBROUTINES
671 030601 200 00 0 00 030022 MOVE 0,RANDBS ;EXEC, SETUP RANDOM BASE
672 030602 332 00 0 00 030037 SKIPE USER ;USER, USE TIME OF DAY IN JIFFIES
673 030603 040 00 0 00 040067 CALL 0,[SIXBIT/TIMER/]
674 030604 202 00 0 00 040201 MOVEM 0,RAN ;SETUP RANDOM BASE
675
676 ;INITIALIZE COMPLEXITY TABLE
677
678 000000 A=0
679 030605 402 00 0 00 030665 STARTA: SETZM CMPLXT ;STORE A TABLE OF POWERS OF 2
680 030606 201 01 0 00 000001 MOVEI 1,1 ;OR 0.
681 030607 037 10 0 00 000002 SWITCH
682 030610 607 00 0 00 000400 TLNN RELIAB ;FAST CYCLE SWITCH SET ?
683 030611 402 00 0 00 000001 SETZM 1 ;YES, STORE ZERO'S
684 REPEAT 7,
685 < MOVEM 1,CMPLXT+1+A
686 LSH 1,1
687 A=A+1>
688 030612 202 01 0 00 030666 MOVEM 1,CMPLXT+1+A
689 030613 242 01 0 00 000001 LSH 1,1
690 000001 A=A+1
691 030614 202 01 0 00 030667 MOVEM 1,CMPLXT+1+A
692 030615 242 01 0 00 000001 LSH 1,1
693 000002 A=A+1
694 030616 202 01 0 00 030670 MOVEM 1,CMPLXT+1+A
695 030617 242 01 0 00 000001 LSH 1,1
696 000003 A=A+1
697 030620 202 01 0 00 030671 MOVEM 1,CMPLXT+1+A
698 030621 242 01 0 00 000001 LSH 1,1
699 000004 A=A+1
700 030622 202 01 0 00 030672 MOVEM 1,CMPLXT+1+A
701 030623 242 01 0 00 000001 LSH 1,1
702 000005 A=A+1
703 030624 202 01 0 00 030673 MOVEM 1,CMPLXT+1+A
704 030625 242 01 0 00 000001 LSH 1,1
705 000006 A=A+1
706 030626 202 01 0 00 030674 MOVEM 1,CMPLXT+1+A
707 030627 242 01 0 00 000001 LSH 1,1
708 000007 A=A+1
709
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 2
DAKBCM MAC 21-JAN-77 16:49 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0032
710 ;INITIALIZE RUN TIME
711
712 030630 201 01 0 00 000001 MOVEI 1,1
713 030631 603 00 0 00 000400 TLNE RELIAB ;FAST CYCLE SWITCH SET ?
714 030632 201 01 0 00 000007 MOVEI 1,7 ;NO, MULTIPLY RUNNING TIME
715 030633 202 01 0 00 030664 MOVEM 1,RTIME ;STORE IN RTIME
716
717 030634 254 00 0 00 030710 JRST TRC4 ;GO PERFORM DIAGNOSTIC
718
719 030635 037 05 0 00 000002 RENTR1: DROPDV ;CLOSE LOGICAL OUTPUT FILE
720 030636 040 00 0 00 040070 CALL [SIXBIT .EXIT.]
721
722 030637 PGMNAM: ASCIZ?
723 030637 015 012 120 104 120 PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3 (DAKBC)
724 030640 055 061 060 040 040
725 030641 113 101 061 060 040
726 030642 102 101 123 111 103
727 030643 040 111 116 123 124
728 030644 122 125 103 124 111
729 030645 117 116 040 122 105
730 030646 114 111 101 102 111
731 030647 114 111 124 131 040
732 030650 124 105 123 124 040
733 030651 063 040 050 104 101
734 030652 113 102 103 051 015
735 030653 012 050 124 105 123 (TESTS, HALF WORD, ADD/SUB, JFFO, ETC.)
736 030654 124 123 054 040 110
737 030655 101 114 106 040 127
738 030656 117 122 104 054 040
739 030657 101 104 104 057 123
740 030660 125 102 054 040 112
741 030661 106 106 117 054 040
742 030662 105 124 103 056 051
743 030663 015 012 000 000 000 ?
744
745 ;CONSTANTS
746
747 030664 000000 000000 RTIME: 0
748 030665 CMPLXT: BLOCK 20
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 3
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0033
749 SUBTTL DIAGNOSTIC SECTION
750 LALL
751
752 030705 002000 000000 TSTLFT: 2000000000
753 030706 004000 000000 TLFT1: 4000000000
754 030707 010000 000000 TLFT2: 10000000000
755
756
757 ;TEST TRC, TRCA. CHECK FOR SKIP/NO SKIP AND
758 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION.
759
760
761 000011 AC=11
762 030710 TRC4: SETUP 100,0^
763 000012 AC1=<AC+1>&17
764 000013 AC2=<AC+2>&17
765 000014 AC3=<AC+3>&17
766 000015 AC4=<AC+4>&17
767 000016 AC5=<AC+5>&17
768 000007 RAN1=<AC-2>&17
769 030710 201 10 0 00 030710 MOVEI AC-1,.
770 030711 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
771 030712 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
772 030713 202 10 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
773 030714 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
774 030715 240 10 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
775 030716 240 10 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
776 030717 TRC5: RANDOM^
777 030717 200 11 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
778 030720 270 11 0 00 040071 ADD AC,[142536475076]
779 030721 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
780 030722 447 11 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
781 030723 640 11 0 00 777777 TRC6: TRC AC,-1 ;SHOULD NOT SKIP.
782 030724 254 00 0 00 030726 JRST .+2
783 030725 005 11 0 00 040072 ER AC,[ASCII /TST/];TRC SKIPPED.
784 030726 644 11 0 00 777777 TRCA AC,-1 ;SHOULD SKIP.
785 030727 005 11 0 00 040072 ER AC,[ASCII /TST/]
786 030730 312 11 0 00 040201 CAME AC,RAN ;C(AC) SHOULD STILL=RAN NUM.
787 030731 013 00 0 00 777777 EERRI ,-1
788 LOOP TRC5,TRC6^
789 030732 367 10 0 00 030717 SOJG AC-1,TRC5 ;ITERATION COUNTER
790 030733 200 11 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
791 030734 321 10 0 00 030723 JUMPL AC-1,TRC6 ;LOOP ON ERROR SWITCH ^
792
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 4
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0034
793
794
795 ;TEST TRC, TRCA. CHECK FOR SKIP/NO SKIP AND
796 ;CORRECT DATA IN AC FOR RAN TO -1 CONDITION.
797
798
799 000004 AC=4
800 030735 TRCA4: SETUP 100,0^
801 000005 AC1=<AC+1>&17
802 000006 AC2=<AC+2>&17
803 000007 AC3=<AC+3>&17
804 000010 AC4=<AC+4>&17
805 000011 AC5=<AC+5>&17
806 000002 RAN1=<AC-2>&17
807 030735 201 03 0 00 030735 MOVEI AC-1,.
808 030736 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
809 030737 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
810 030740 202 03 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
811 030741 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
812 030742 240 03 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
813 030743 240 03 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
814 030744 TRCA5: RANDOM^
815 030744 200 04 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
816 030745 270 04 0 00 040071 ADD AC,[142536475076]
817 030746 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
818 030747 447 04 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
819 030750 477 05 0 00 000002 TRCA6: SETOB AC1,RAN1 ;SET C(AC) TO -1.
820 030751 640 05 0 04 000000 TRC AC1,(AC) ;SHOULD NOT SKIP.
821 030752 254 00 0 00 030754 JRST .+2
822 030753 005 05 0 00 040072 ER AC1,[ASCII /TST/];TRC SKIPPED.
823 030754 644 05 0 04 000000 TRCA AC1,(AC) ;SHOULD SKIP.
824 030755 005 05 0 00 040072 ER AC1,[ASCII /TST/]
825 030756 312 05 0 00 040073 CAME AC1,[-1] ;C(AC) SHOULD STILL=-1
826 030757 003 02 0 04 000000 ERRI RAN1,(AC)
827 LOOP TRCA5,TRCA6^
828 030760 367 03 0 00 030744 SOJG AC-1,TRCA5 ;ITERATION COUNTER
829 030761 200 04 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
830 030762 321 03 0 00 030750 JUMPL AC-1,TRCA6 ;LOOP ON ERROR SWITCH ^
831
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 5
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0035
832
833
834 ;TEST TRC, TRCA. CHECK FOR SKIP/NO SKIP AND
835 ;CORRECT DATA IN AC FOR NOT RAN TO RAN CONDITION.
836
837
838 000005 AC=5
839 030763 TRC7: SETUP 100,0^
840 000006 AC1=<AC+1>&17
841 000007 AC2=<AC+2>&17
842 000010 AC3=<AC+3>&17
843 000011 AC4=<AC+4>&17
844 000012 AC5=<AC+5>&17
845 000003 RAN1=<AC-2>&17
846 030763 201 04 0 00 030763 MOVEI AC-1,.
847 030764 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
848 030765 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
849 030766 202 04 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
850 030767 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
851 030770 240 04 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
852 030771 240 04 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
853 030772 TRC8: RANDOM^
854 030772 200 05 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
855 030773 270 05 0 00 040071 ADD AC,[142536475076]
856 030774 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
857 030775 447 05 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
858 030776 460 06 0 00 000005 TRC9: SETCM AC1,AC ;MAKE "E"=COMP OF C(AC)
859 030777 640 05 0 06 000000 TRC AC,(AC1) ;SHOULD NOT SKIP
860 031000 254 00 0 00 031002 JRST .+2
861 031001 005 05 0 00 040072 ER AC,[ASCII /TST/];TRC SKIPPED.
862 031002 644 05 0 06 000000 TRCA AC,(AC1) ;SHOULD SKIP
863 031003 005 05 0 00 040072 ER AC,[ASCII /TST/]
864 031004 312 05 0 00 040201 CAME AC,RAN ;C(AC) SHOULD=RAN NUM.
865 031005 013 00 0 06 000000 EERRI ,(AC1)
866 LOOP TRC8,TRC9^
867 031006 367 04 0 00 030772 SOJG AC-1,TRC8 ;ITERATION COUNTER
868 031007 200 05 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
869 031010 321 04 0 00 030776 JUMPL AC-1,TRC9 ;LOOP ON ERROR SWITCH ^
870
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 6
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0036
871
872
873 ;TEST TRC, TRCA. CHECK FOR SKIP/NO SKIP AND
874 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
875
876
877 000006 AC=6
878 031011 TRCA7: SETUP 100,0^
879 000007 AC1=<AC+1>&17
880 000010 AC2=<AC+2>&17
881 000011 AC3=<AC+3>&17
882 000012 AC4=<AC+4>&17
883 000013 AC5=<AC+5>&17
884 000004 RAN1=<AC-2>&17
885 031011 201 05 0 00 031011 MOVEI AC-1,.
886 031012 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
887 031013 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
888 031014 202 05 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
889 031015 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
890 031016 240 05 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
891 031017 240 05 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
892 031020 TRCA8: RANDOM^
893 031020 200 06 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
894 031021 270 06 0 00 040071 ADD AC,[142536475076]
895 031022 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
896 031023 447 06 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
897 031024 200 07 0 00 000006 TRCA9: MOVE AC1,AC ;MAKE "E"=C(AC).
898 031025 640 06 0 07 000000 TRC AC,(AC1) ;SHOULD NOT SKIP
899 031026 254 00 0 00 031030 JRST .+2
900 031027 005 06 0 00 040072 ER AC,[ASCII /TST/];TRC SKIPPED.
901 031030 644 06 0 07 000000 TRCA AC,(AC1) ;SHOULD SKIP
902 031031 005 06 0 00 040072 ER AC,[ASCII /TST/]
903 031032 312 06 0 00 040201 CAME AC,RAN ;C(AC)SHOULD=RAN NUM
904 031033 003 07 0 07 000000 ERRI AC1,(AC1)
905 LOOP TRCA8,TRCA9^
906 031034 367 05 0 00 031020 SOJG AC-1,TRCA8 ;ITERATION COUNTER
907 031035 200 06 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
908 031036 321 05 0 00 031024 JUMPL AC-1,TRCA9 ;LOOP ON ERROR SWITCH ^
909
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 7
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0037
910
911
912 ;TEST TRCE, TRCN. CHECK FOR SKIP/NO SKIP AND
913 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
914
915
916 000007 AC=7
917 031037 TRCE1: SETUP 100,0^
918 000010 AC1=<AC+1>&17
919 000011 AC2=<AC+2>&17
920 000012 AC3=<AC+3>&17
921 000013 AC4=<AC+4>&17
922 000014 AC5=<AC+5>&17
923 000005 RAN1=<AC-2>&17
924 031037 201 06 0 00 031037 MOVEI AC-1,.
925 031040 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
926 031041 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
927 031042 202 06 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
928 031043 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
929 031044 240 06 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
930 031045 240 06 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
931 031046 TRCE2: RANDOM^
932 031046 200 07 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
933 031047 270 07 0 00 040071 ADD AC,[142536475076]
934 031050 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
935 031051 447 07 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
936 031052 646 07 0 00 000000 TRCE3: TRCN AC,0 ;E+C(AC)R=0. NO SKIP
937 031053 254 00 0 00 031055 JRST .+2
938 031054 005 07 0 00 040072 ER AC,[ASCII /TST/];TRCN SKIPPED.
939 031055 642 07 0 00 000000 TRCE AC,0 ;E+C(AC)R=0. SKIP
940 031056 005 07 0 00 040072 ER AC,[ASCII /TST/]
941 031057 312 07 0 00 040201 CAME AC,RAN ;C(AC) SHOULD STILL=RAN.
942 031060 013 00 0 00 000000 EERRI ,0
943 LOOP TRCE2,TRCE3^
944 031061 367 06 0 00 031046 SOJG AC-1,TRCE2 ;ITERATION COUNTER
945 031062 200 07 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
946 031063 321 06 0 00 031052 JUMPL AC-1,TRCE3 ;LOOP ON ERROR SWITCH ^
947
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 8
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0038
948
949
950 ;TEST TRCE, TRCN. CHECK FOR SKIP/NO SKIP AND
951 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION.
952
953
954 000010 AC=10
955 031064 TRCEA1: SETUP 100,0^
956 000011 AC1=<AC+1>&17
957 000012 AC2=<AC+2>&17
958 000013 AC3=<AC+3>&17
959 000014 AC4=<AC+4>&17
960 000015 AC5=<AC+5>&17
961 000006 RAN1=<AC-2>&17
962 031064 201 07 0 00 031064 MOVEI AC-1,.
963 031065 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
964 031066 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
965 031067 202 07 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
966 031070 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
967 031071 240 07 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
968 031072 240 07 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
969 031073 TRCEA2: RANDOM^
970 031073 200 10 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
971 031074 270 10 0 00 040071 ADD AC,[142536475076]
972 031075 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
973 031076 447 10 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
974 031077 606 10 0 00 777777 TRNN AC,-1 ;RIGHT HALF OF AC CLR?
975 031100 254 00 0 00 031073 JRST TRCEA2 ;YES. GO GEN A NEW RAN NUM.
976 031101 403 11 0 00 000006 TRCEA3: SETZB AC1,RAN1 ;CLEAR C(AC).
977 031102 646 11 0 10 000000 TRCN AC1,(AC) ;E+C(AC)R=0. NO SKIP
978 031103 254 00 0 00 031105 JRST .+2
979 031104 005 11 0 00 040072 ER AC1,[ASCII /TST/];TRCN SKIPPED.
980 031105 646 11 0 10 000000 TRCN AC1,(AC) ;E+C(AC)R NOT=0. SKIP
981 031106 005 11 0 00 040072 ER AC1,[ASCII /TST/]
982 031107 312 11 0 00 040074 CAME AC1,[0] ;C(AC) SHOULD=0 AGAIN
983 031110 003 06 0 10 000000 ERRI RAN1,(AC)
984 031111 642 11 0 10 000000 TRCE AC1,(AC) ;E+C(AC)R=0 .SKIP
985 031112 005 11 0 00 040072 ER AC1,[ASCII /TST/]
986 031113 642 11 0 10 000000 TRCE AC1,(AC) ;E+C(AC)R NOT=0 NO SKIP
987 031114 312 11 0 00 040074 CAME AC1,[0] ;C(AC) SHOULD=0 AGAIN
988 031115 003 06 0 10 000000 ERRI RAN1,(AC)
989 LOOP TRCEA2,TRCEA3^
990 031116 367 07 0 00 031073 SOJG AC-1,TRCEA2 ;ITERATION COUNTER
991 031117 200 10 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
992 031120 321 07 0 00 031101 JUMPL AC-1,TRCEA3 ;LOOP ON ERROR SWITCH ^
993
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 9
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0039
994
995
996 ;TEST TRCE, TRCN. CHECK FOR SKIP/NO SKIP AND
997 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION
998
999
1000 000010 AC=10
1001 031121 TRCE4: SETUP 100,0^
1002 000011 AC1=<AC+1>&17
1003 000012 AC2=<AC+2>&17
1004 000013 AC3=<AC+3>&17
1005 000014 AC4=<AC+4>&17
1006 000015 AC5=<AC+5>&17
1007 000006 RAN1=<AC-2>&17
1008 031121 201 07 0 00 031121 MOVEI AC-1,.
1009 031122 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1010 031123 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1011 031124 202 07 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1012 031125 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1013 031126 240 07 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1014 031127 240 07 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1015 031130 TRCE5: RANDOM^
1016 031130 200 10 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1017 031131 270 10 0 00 040071 ADD AC,[142536475076]
1018 031132 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1019 031133 447 10 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
1020 031134 435 10 0 00 000002 TRCE6: IORI AC,2 ;MAKE C(AC) HAVE AT LEAST ONE BIT.
1021 031135 201 11 0 10 000000 MOVEI AC1,(AC) ;CHECK TO MAKE
1022 031136 306 11 0 00 777777 CAIN AC1,-1 ;SURE C(AC)R DOES NOT = -1.
1023 031137 254 00 0 00 031130 JRST TRCE5 ;REJECT IF IT DOES.
1024 031140 200 06 0 00 000010 MOVE RAN1,AC ;SAVE C(AC) FOR FUTURE COMPARE.
1025 031141 642 10 0 00 777777 TRCE AC,-1 ;E+C(AC)R NOT = 0...NO SKIP.
1026 031142 254 00 0 00 031144 JRST .+2
1027 031143 005 10 0 00 040072 ER AC,[ASCII /TST/];TRCE SKIPPED.
1028 031144 646 10 0 00 777777 TRCN AC,-1 ;E+C(AC)R NOT=0. SKIP
1029 031145 005 10 0 00 040072 ER AC,[ASCII /TST/]
1030 031146 312 10 0 00 000006 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
1031 031147 003 06 0 00 777777 ERRI RAN1,-1
1032 LOOP TRCE5,TRCE6^
1033 031150 367 07 0 00 031130 SOJG AC-1,TRCE5 ;ITERATION COUNTER
1034 031151 200 10 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1035 031152 321 07 0 00 031134 JUMPL AC-1,TRCE6 ;LOOP ON ERROR SWITCH ^
1036
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 10
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0040
1037
1038
1039 ;TEST TRCE, TRCN. CHECK FOR SKIP/NO SKIP AND
1040 ;CORRECT DATA IN AC FOR RAN TO-1 CONDITION.
1041
1042
1043 000003 AC=3
1044 031153 TRCEA4: SETUP 100,0^
1045 000004 AC1=<AC+1>&17
1046 000005 AC2=<AC+2>&17
1047 000006 AC3=<AC+3>&17
1048 000007 AC4=<AC+4>&17
1049 000010 AC5=<AC+5>&17
1050 000001 RAN1=<AC-2>&17
1051 031153 201 02 0 00 031153 MOVEI AC-1,.
1052 031154 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1053 031155 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1054 031156 202 02 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1055 031157 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1056 031160 240 02 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1057 031161 240 02 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1058 031162 TRCEA5: RANDOM^
1059 031162 200 03 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1060 031163 270 03 0 00 040071 ADD AC,[142536475076]
1061 031164 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1062 031165 447 03 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
1063 031166 435 03 0 00 000004 TRCEA6: IORI AC,4 ;MAKE E HAVE AT LEAST ONE BIT.
1064 031167 477 04 0 00 000001 SETOB AC1,RAN1 ;SET C(AC) TO A -1.
1065 031170 642 04 0 03 000000 TRCE AC1,(AC) ;E+C(AC)R NOT=0 NO SKIP
1066 031171 254 00 0 00 031173 JRST .+2
1067 031172 005 04 0 00 040072 ER AC1,[ASCII /TST/];TRCE SKIPPED.
1068 031173 642 04 0 03 000000 TRCE AC1,(AC) ;E+C(AC)R=0. SKIP
1069 031174 005 04 0 00 040072 ER AC1,[ASCII /TST/]
1070 031175 312 04 0 00 040073 CAME AC1,[-1] ;C(AC) SHOULD=ORIG C(AC)
1071 031176 003 01 0 03 000000 ERRI RAN1,(AC)
1072 031177 646 04 0 03 000000 TRCN AC1,(AC) ;E+C(AC)R NOT=0. SKIP
1073 031200 005 04 0 00 040072 ER AC1,[ASCII /TST/]
1074 031201 646 04 0 03 000000 TRCN AC1,(AC) ;E+C(AC)R=0 NO SKIP
1075 031202 312 04 0 00 040073 CAME AC1,[-1] ;C(AC) SHOULD=ORIG. C(AC).
1076 031203 003 01 0 03 000000 ERRI RAN1,(AC)
1077 LOOP TRCEA5,TRCEA6^
1078 031204 367 02 0 00 031162 SOJG AC-1,TRCEA5 ;ITERATION COUNTER
1079 031205 200 03 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1080 031206 321 02 0 00 031166 JUMPL AC-1,TRCEA6 ;LOOP ON ERROR SWITCH ^
1081
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 11
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0041
1082
1083
1084 ;TEST TRCE, TRCN. CHECK FOR SKIP/NO SKIP AND
1085 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
1086
1087
1088 000003 AC=3
1089 031207 TRCN1: SETUP 100,0^
1090 000004 AC1=<AC+1>&17
1091 000005 AC2=<AC+2>&17
1092 000006 AC3=<AC+3>&17
1093 000007 AC4=<AC+4>&17
1094 000010 AC5=<AC+5>&17
1095 000001 RAN1=<AC-2>&17
1096 031207 201 02 0 00 031207 MOVEI AC-1,.
1097 031210 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1098 031211 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1099 031212 202 02 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1100 031213 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1101 031214 240 02 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1102 031215 240 02 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1103 031216 TRCN2: RANDOM^
1104 031216 200 03 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1105 031217 270 03 0 00 040071 ADD AC,[142536475076]
1106 031220 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1107 031221 447 03 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
1108 031222 435 03 0 00 000040 TRCN3: IORI AC,40 ;MAKE C(AC) HAVE AT LEAST ONE BIT.
1109 031223 200 01 0 00 000003 MOVE RAN1,AC ;SAVE IN CASE OF ERROR.
1110 031224 200 04 0 00 000003 MOVE AC1,AC ;MAKE "E" = C(AC).
1111 031225 642 03 0 04 000000 TRCE AC,(AC1) ;E+C (AC) R NOT=0 NO SKIP
1112 031226 254 00 0 00 031230 JRST .+2
1113 031227 005 03 0 00 040072 ER AC,[ASCII /TST/];TRCE SKIPPED.
1114 031230 642 03 0 04 000000 TRCE AC,(AC1) ;E+C (AC)R=0 SKIP
1115 031231 005 03 0 00 040072 ER AC,[ASCII /TST/]
1116 031232 312 03 0 00 000001 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
1117 031233 003 04 0 04 000000 ERRI AC1,(AC1)
1118 031234 646 03 0 04 000000 TRCN AC,(AC1) ;E+C(AC)R NOT=0 SKIP
1119 031235 005 03 0 00 040072 ER AC,[ASCII /TST/]
1120 031236 646 03 0 04 000000 TRCN AC,(AC1) ;E+C (AC)R=0. NO SKIP
1121 031237 312 03 0 00 000001 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
1122 031240 003 04 0 04 000000 ERRI AC1,(AC1)
1123 LOOP TRCN2,TRCN3^
1124 031241 367 02 0 00 031216 SOJG AC-1,TRCN2 ;ITERATION COUNTER
1125 031242 200 03 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1126 031243 321 02 0 00 031222 JUMPL AC-1,TRCN3 ;LOOP ON ERROR SWITCH ^
1127
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 12
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0042
1128 ;TEST TRCE, TRCN. CHECK FOR SKIP/NO SKIP AND
1129 ;CORRECT DATA IN AC WITH E = TO A FLOATING
1130 ;ONE AND C(AC) = RAN. NUM. WITH THAT BIT CLEAR.
1131
1132
1133 000002 AC=2
1134 031244 TRCNA: SETUP 40,0^
1135 000003 AC1=<AC+1>&17
1136 000004 AC2=<AC+2>&17
1137 000005 AC3=<AC+3>&17
1138 000006 AC4=<AC+4>&17
1139 000007 AC5=<AC+5>&17
1140 000000 RAN1=<AC-2>&17
1141 031244 201 01 0 00 031244 MOVEI AC-1,.
1142 031245 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1143 031246 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1144 031247 202 01 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1145 031250 201 01 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
1146 031251 240 01 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1147 031252 240 01 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1148 031253 201 03 0 00 000001 MOVEI AC1,1 ;SETUP E TO HAVE ONE BIT.
1149 031254 TRCNB: RANDOM^
1150 031254 200 02 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1151 031255 270 02 0 00 040071 ADD AC,[142536475076]
1152 031256 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1153 031257 447 02 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
1154 031260 241 03 0 00 000001 ROT AC1,1 ;ROT TO TEST NEXT BIT.
1155 031261 316 03 0 00 040075 CAMN AC1,[XWD 1,0] ;IS BIT ON LEFT SIDE?
1156 031262 201 03 0 00 000001 MOVEI AC1,1 ;YES. REINITIALIZE E.
1157 031263 420 02 0 00 000003 TRCNC: ANDCM AC,AC1 ;CLEAR BIT IN AC.
1158 031264 200 00 0 00 000002 MOVE RAN1,AC ;SAVE C(AC) FOR FUTURE COMPARE.
1159 031265 646 02 0 03 000000 TRCN AC,(AC1) ;E + C(AC)R = 0...NO SKIP.
1160 031266 254 00 0 00 031270 JRST .+2
1161 031267 005 02 0 00 040072 ER AC,[ASCII /TST/];TRCN SKIPPED.
1162 031270 646 02 0 03 000000 TRCN AC,(AC1) ;E + C(AC)R NOT = 0...SKIP.
1163 031271 005 02 0 00 040072 ER AC,[ASCII /TST/]
1164 031272 312 02 0 00 000000 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
1165 031273 003 00 0 03 000000 ERRI RAN1,(AC1)
1166 031274 642 02 0 03 000000 TRCE AC,(AC1) ;E + C(AC)R = 0...SKIP.
1167 031275 005 02 0 00 040072 ER AC,[ASCII /TST/]
1168 031276 642 02 0 03 000000 TRCE AC,(AC1) ;E + C(AC)R NOT = 0...NO SKIP.
1169 031277 312 02 0 00 000000 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
1170 031300 003 00 0 03 000000 ERRI RAN1,(AC1)
1171 LOOP TRCNB,TRCNC^
1172 031301 367 01 0 00 031254 SOJG AC-1,TRCNB ;ITERATION COUNTER
1173 031302 200 02 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1174 031303 321 01 0 00 031263 JUMPL AC-1,TRCNC ;LOOP ON ERROR SWITCH ^
1175
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 13
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0043
1176
1177
1178 ;TEST TLN, TLNA CHECK FOR SKIP/NO SKIP AND
1179 ;NO DATA CHANGE IN AC FOR 0 TO RAN CONDITION.
1180
1181
1182 000003 AC=3
1183 031304 TLN1: SETUP 100,0^
1184 000004 AC1=<AC+1>&17
1185 000005 AC2=<AC+2>&17
1186 000006 AC3=<AC+3>&17
1187 000007 AC4=<AC+4>&17
1188 000010 AC5=<AC+5>&17
1189 000001 RAN1=<AC-2>&17
1190 031304 201 02 0 00 031304 MOVEI AC-1,.
1191 031305 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1192 031306 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1193 031307 202 02 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1194 031310 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1195 031311 240 02 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1196 031312 240 02 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1197 031313 TLN2: RANDOM^
1198 031313 200 03 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1199 031314 270 03 0 00 040071 ADD AC,[142536475076]
1200 031315 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1201 031316 447 03 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
1202 031317 601 03 0 00 000000 TLN3: TLN AC,0 ;SHOULD NOT SKIP.
1203 031320 254 00 0 00 031322 JRST .+2
1204 031321 005 03 0 00 040072 ER AC,[ASCII /TST/];TLN SKIPPED.
1205 031322 605 03 0 00 000000 TLNA AC,0 ;SHOULD SKIP
1206 031323 005 03 0 00 040072 ER AC,[ASCII /TST/]
1207 031324 312 03 0 00 040201 CAME AC,RAN ;C(AC) SHOULD=ORIG C(AC)
1208 031325 013 00 0 00 000000 EERRI ,0
1209 LOOP TLN2,TLN3^
1210 031326 367 02 0 00 031313 SOJG AC-1,TLN2 ;ITERATION COUNTER
1211 031327 200 03 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1212 031330 321 02 0 00 031317 JUMPL AC-1,TLN3 ;LOOP ON ERROR SWITCH ^
1213
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 14
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0044
1214
1215
1216 ;TEST TLN, TLNA CHECK FOR SKIP/NO SKIP AND
1217 ;NO DATA CHANGE IN AC FOR RAN TO 0 CONDITION
1218
1219
1220 000004 AC=4
1221 031331 TLN4: SETUP 100,0^
1222 000005 AC1=<AC+1>&17
1223 000006 AC2=<AC+2>&17
1224 000007 AC3=<AC+3>&17
1225 000010 AC4=<AC+4>&17
1226 000011 AC5=<AC+5>&17
1227 000002 RAN1=<AC-2>&17
1228 031331 201 03 0 00 031331 MOVEI AC-1,.
1229 031332 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1230 031333 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1231 031334 202 03 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1232 031335 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1233 031336 240 03 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1234 031337 240 03 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1235 031340 TLN5: RANDOM^
1236 031340 200 04 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1237 031341 270 04 0 00 040071 ADD AC,[142536475076]
1238 031342 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1239 031343 447 04 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
1240 031344 403 05 0 00 000002 TLN6: SETZB AC1,RAN1 ;CLEAR C(AC)
1241 031345 601 05 0 04 000000 TLN AC1,(AC) ;SHOULD NOT SKIP
1242 031346 254 00 0 00 031350 JRST .+2
1243 031347 005 05 0 00 040072 ER AC1,[ASCII /TST/];TLN SKIPPED.
1244 031350 605 05 0 04 000000 TLNA AC1,(AC) ;SHOULD SKIP
1245 031351 005 05 0 00 040072 ER AC1,[ASCII /TST/]
1246 031352 312 05 0 00 040074 CAME AC1,[0] ;C(AC) SHOULD=ORIG C(AC)
1247 031353 003 02 0 04 000000 ERRI RAN1,(AC)
1248 LOOP TLN5,TLN6^
1249 031354 367 03 0 00 031340 SOJG AC-1,TLN5 ;ITERATION COUNTER
1250 031355 200 04 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1251 031356 321 03 0 00 031344 JUMPL AC-1,TLN6 ;LOOP ON ERROR SWITCH ^
1252
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 15
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0045
1253
1254
1255 ;TEST TLN, TLNA. CHECK FOR SKIP/NO SKIP AND
1256 ;NO DATA CHANGE IN AC FOR -1 TO RAN CONDITION
1257
1258
1259 000005 AC=5
1260 031357 TLN7: SETUP 100,0^
1261 000006 AC1=<AC+1>&17
1262 000007 AC2=<AC+2>&17
1263 000010 AC3=<AC+3>&17
1264 000011 AC4=<AC+4>&17
1265 000012 AC5=<AC+5>&17
1266 000003 RAN1=<AC-2>&17
1267 031357 201 04 0 00 031357 MOVEI AC-1,.
1268 031360 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1269 031361 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1270 031362 202 04 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1271 031363 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1272 031364 240 04 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1273 031365 240 04 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1274 031366 TLN8: RANDOM^
1275 031366 200 05 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1276 031367 270 05 0 00 040071 ADD AC,[142536475076]
1277 031370 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1278 031371 447 05 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
1279 031372 601 05 0 00 777777 TLN9: TLN AC,-1 ;SHOULD NOT SKIP
1280 031373 254 00 0 00 031375 JRST .+2
1281 031374 005 05 0 00 040072 ER AC,[ASCII /TST/];TLN SKIPPED.
1282 031375 605 05 0 00 777777 TLNA AC,-1 ;SHOULD SKIP
1283 031376 005 05 0 00 040072 ER AC,[ASCII /TST/]
1284 031377 312 05 0 00 040201 CAME AC,RAN ;C(AC) SHOULD=ORIG. C(AC)
1285 031400 013 00 0 00 777777 EERRI ,-1
1286 LOOP TLN8,TLN9^
1287 031401 367 04 0 00 031366 SOJG AC-1,TLN8 ;ITERATION COUNTER
1288 031402 200 05 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1289 031403 321 04 0 00 031372 JUMPL AC-1,TLN9 ;LOOP ON ERROR SWITCH ^
1290
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 16
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0046
1291
1292
1293 ;TEST TLN, TLNA. CHECK FOR SKIP/NO SKIP AND
1294 ;NO DATA CHANGE IN AC FOR RAN TO -1 CONDITION
1295
1296
1297 000006 AC=6
1298 031404 TLNA1: SETUP 100,0^
1299 000007 AC1=<AC+1>&17
1300 000010 AC2=<AC+2>&17
1301 000011 AC3=<AC+3>&17
1302 000012 AC4=<AC+4>&17
1303 000013 AC5=<AC+5>&17
1304 000004 RAN1=<AC-2>&17
1305 031404 201 05 0 00 031404 MOVEI AC-1,.
1306 031405 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1307 031406 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1308 031407 202 05 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1309 031410 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1310 031411 240 05 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1311 031412 240 05 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1312 031413 TLNA2: RANDOM^
1313 031413 200 06 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1314 031414 270 06 0 00 040071 ADD AC,[142536475076]
1315 031415 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1316 031416 447 06 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
1317 031417 477 07 0 00 000004 TLNA3: SETOB AC1,RAN1 ;SET C(AC) TO=-1
1318 031420 601 07 0 06 000000 TLN AC1,(AC) ;SHOULD NOT SKIP
1319 031421 254 00 0 00 031423 JRST .+2
1320 031422 005 07 0 00 040072 ER AC1,[ASCII /TST/];TLN SKIPPED.
1321 031423 605 07 0 06 000000 TLNA AC1,(AC) ;SHOULD SKIP.
1322 031424 005 07 0 00 040072 ER AC1,[ASCII /TST/]
1323 031425 312 07 0 00 000004 CAME AC1,RAN1 ;C(AC) SHOULD=ORIG C(AC)
1324 031426 003 04 0 06 000000 ERRI RAN1,(AC)
1325 LOOP TLNA2,TLNA3^
1326 031427 367 05 0 00 031413 SOJG AC-1,TLNA2 ;ITERATION COUNTER
1327 031430 200 06 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1328 031431 321 05 0 00 031417 JUMPL AC-1,TLNA3 ;LOOP ON ERROR SWITCH ^
1329
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 17
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0047
1330
1331
1332 ;TEST TLN, TLNA. CHECK FOR SKIP/NO SKIP AND
1333 ;NO DATA CHANGE IN AC FOR RAN TO RAN CONDITION
1334
1335
1336 000007 AC=7
1337 031432 TLNA4: SETUP 100,0^
1338 000010 AC1=<AC+1>&17
1339 000011 AC2=<AC+2>&17
1340 000012 AC3=<AC+3>&17
1341 000013 AC4=<AC+4>&17
1342 000014 AC5=<AC+5>&17
1343 000005 RAN1=<AC-2>&17
1344 031432 201 06 0 00 031432 MOVEI AC-1,.
1345 031433 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1346 031434 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1347 031435 202 06 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1348 031436 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1349 031437 240 06 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1350 031440 240 06 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1351 031441 TLNA5: RANDOM^
1352 031441 200 07 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1353 031442 270 07 0 00 040071 ADD AC,[142536475076]
1354 031443 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1355 031444 447 07 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
1356 031445 200 10 0 00 000007 TLNA6: MOVE AC1,AC ;MAKE "E"=C(AC)
1357 031446 601 07 0 10 000000 TLN AC,(AC1) ;SHOULD NOT SKIP
1358 031447 254 00 0 00 031451 JRST .+2
1359 031450 005 07 0 00 040072 ER AC,[ASCII /TST/];TLN SKIPPED.
1360 031451 605 07 0 10 000000 TLNA AC,(AC1) ;SHOULD SKIP
1361 031452 005 07 0 00 040072 ER AC,[ASCII /TST/]
1362 031453 312 07 0 00 040201 CAME AC,RAN ;C(AC) SHOULD=ORIG C(AC)
1363 031454 003 10 0 10 000000 ERRI AC1,(AC1)
1364 LOOP TLNA5,TLNA6^
1365 031455 367 06 0 00 031441 SOJG AC-1,TLNA5 ;ITERATION COUNTER
1366 031456 200 07 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1367 031457 321 06 0 00 031445 JUMPL AC-1,TLNA6 ;LOOP ON ERROR SWITCH ^
1368
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 18
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0048
1369
1370
1371 ;TEST TLN, TLNA. CHECK FOR SKIP/NO SKIP AND
1372 ;NO DATA CHANGE IN AC FOR RAN1 TO RAN CONDITION.
1373
1374
1375 000010 AC=10
1376 031460 TLNA7: SETUP 100,0^
1377 000011 AC1=<AC+1>&17
1378 000012 AC2=<AC+2>&17
1379 000013 AC3=<AC+3>&17
1380 000014 AC4=<AC+4>&17
1381 000015 AC5=<AC+5>&17
1382 000006 RAN1=<AC-2>&17
1383 031460 201 07 0 00 031460 MOVEI AC-1,.
1384 031461 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1385 031462 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1386 031463 202 07 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1387 031464 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1388 031465 240 07 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1389 031466 240 07 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1390 031467 TLNA8: RANDOM^
1391 031467 200 10 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1392 031470 270 10 0 00 040071 ADD AC,[142536475076]
1393 031471 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1394 031472 447 10 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
1395 031473 200 11 0 00 000010 TLNA9: MOVE AC1,AC ;MAKE "E"
1396 031474 241 11 0 00 000011 ROT AC1,11 ;A DIFFERENT RANDOM NUM
1397 031475 601 10 0 11 000000 TLN AC,(AC1) ;SHOULD NOT SKIP
1398 031476 254 00 0 00 031500 JRST .+2
1399 031477 005 10 0 00 040072 ER AC,[ASCII /TST/];TLN SKIPPED.
1400 031500 605 10 0 11 000000 TLNA AC,(AC1) ;SHOULD SKIP
1401 031501 005 10 0 00 040072 ER AC,[ASCII /TST/]
1402 031502 312 10 0 00 040201 CAME AC,RAN ;C(AC) SHOULD=ORIG C(AC)
1403 031503 013 00 0 11 000000 EERRI ,(AC1)
1404 LOOP TLNA8,TLNA9^
1405 031504 367 07 0 00 031467 SOJG AC-1,TLNA8 ;ITERATION COUNTER
1406 031505 200 10 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1407 031506 321 07 0 00 031473 JUMPL AC-1,TLNA9 ;LOOP ON ERROR SWITCH ^
1408
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 19
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0049
1409
1410
1411 ;TEST TLNE, TLNN CHECK FOR SKIP/NO SKIP AND
1412 ;NO DATA CHANGE IN AC FOR 0 TO RAN CONDITION
1413
1414
1415 000011 AC=11
1416 031507 TLNE1: SETUP 100,0^
1417 000012 AC1=<AC+1>&17
1418 000013 AC2=<AC+2>&17
1419 000014 AC3=<AC+3>&17
1420 000015 AC4=<AC+4>&17
1421 000016 AC5=<AC+5>&17
1422 000007 RAN1=<AC-2>&17
1423 031507 201 10 0 00 031507 MOVEI AC-1,.
1424 031510 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1425 031511 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1426 031512 202 10 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1427 031513 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1428 031514 240 10 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1429 031515 240 10 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1430 031516 TLNE2: RANDOM^
1431 031516 200 11 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1432 031517 270 11 0 00 040071 ADD AC,[142536475076]
1433 031520 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1434 031521 447 11 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
1435 031522 607 11 0 00 000000 TLNE3: TLNN AC,0 ;E+C(AC)L=0. NO SKIP
1436 031523 254 00 0 00 031525 JRST .+2
1437 031524 005 11 0 00 040072 ER AC,[ASCII /TST/];TLNN SKIPPED.
1438 031525 603 11 0 00 000000 TLNE AC,0 ;E+C(AC)L=0. SKIP
1439 031526 005 11 0 00 040072 ER AC,[ASCII /TST/]
1440 031527 312 11 0 00 040201 CAME AC,RAN ;C(AC) SHOULD=ORIG C(AC)
1441 031530 013 00 0 00 000000 EERRI ,0
1442 LOOP TLNE2,TLNE3^
1443 031531 367 10 0 00 031516 SOJG AC-1,TLNE2 ;ITERATION COUNTER
1444 031532 200 11 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1445 031533 321 10 0 00 031522 JUMPL AC-1,TLNE3 ;LOOP ON ERROR SWITCH ^
1446
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 20
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0050
1447
1448
1449 ;TEST TLNE, TLNN. CHECK FOR SKIP/NO SKIP AND
1450 ;NO DATA CHANGE IN AC FOR RAN TO 0 CONDITION
1451
1452
1453 000004 AC=4
1454 031534 TLNE4: SETUP 100,0^
1455 000005 AC1=<AC+1>&17
1456 000006 AC2=<AC+2>&17
1457 000007 AC3=<AC+3>&17
1458 000010 AC4=<AC+4>&17
1459 000011 AC5=<AC+5>&17
1460 000002 RAN1=<AC-2>&17
1461 031534 201 03 0 00 031534 MOVEI AC-1,.
1462 031535 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1463 031536 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1464 031537 202 03 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1465 031540 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1466 031541 240 03 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1467 031542 240 03 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1468 031543 TLNE5: RANDOM^
1469 031543 200 04 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1470 031544 270 04 0 00 040071 ADD AC,[142536475076]
1471 031545 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1472 031546 447 04 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
1473 031547 403 05 0 00 000002 TLNE6: SETZB AC1,RAN1 ;CLEAR C(AC)
1474 031550 607 05 0 04 000000 TLNN AC1,(AC) ;E+C(AC)L=0 NO SKIP
1475 031551 254 00 0 00 031553 JRST .+2
1476 031552 005 05 0 00 040072 ER AC1,[ASCII /TST/];TLNN SKIPPED.
1477 031553 603 05 0 04 000000 TLNE AC1,(AC) ;E+C(AC)L=0. SKIP
1478 031554 005 05 0 00 040072 ER AC1,[ASCII /TST/]
1479 031555 312 05 0 00 000002 CAME AC1,RAN1 ;C(AC) SHOULD=ORIG. C(AC)
1480 031556 003 02 0 04 000000 ERRI RAN1,(AC)
1481 LOOP TLNE5,TLNE6^
1482 031557 367 03 0 00 031543 SOJG AC-1,TLNE5 ;ITERATION COUNTER
1483 031560 200 04 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1484 031561 321 03 0 00 031547 JUMPL AC-1,TLNE6 ;LOOP ON ERROR SWITCH ^
1485
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 21
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0051
1486
1487
1488 ;TEST TLNE, TLNN, CHECK FOR SKIP/NO SKIP AND
1489 ;NO DATA CHANGE IN AC FOR -1 TO RAN CONDITION
1490
1491
1492 000005 AC=5
1493 031562 TLNE7: SETUP 100,0^
1494 000006 AC1=<AC+1>&17
1495 000007 AC2=<AC+2>&17
1496 000010 AC3=<AC+3>&17
1497 000011 AC4=<AC+4>&17
1498 000012 AC5=<AC+5>&17
1499 000003 RAN1=<AC-2>&17
1500 031562 201 04 0 00 031562 MOVEI AC-1,.
1501 031563 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1502 031564 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1503 031565 202 04 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1504 031566 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1505 031567 240 04 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1506 031570 240 04 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1507 031571 TLNE8: RANDOM^
1508 031571 200 05 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1509 031572 270 05 0 00 040071 ADD AC,[142536475076]
1510 031573 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1511 031574 447 05 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
1512 031575 434 05 0 00 030705 TLNE9: IOR AC,TSTLFT ;MAKE C(AC)L HAVE A BIT
1513 031576 200 03 0 00 000005 MOVE RAN1,AC ;SAVE C(AC) FOR FUTURE COMPARE.
1514 031577 603 05 0 00 777777 TLNE AC,-1 ;E+C(AC)L NOT=0 NO SKIP
1515 031600 254 00 0 00 031602 JRST .+2
1516 031601 005 05 0 00 040072 ER AC,[ASCII /TST/];TLNE SKIPPED.
1517 031602 607 05 0 00 777777 TLNN AC,-1 ;E+C(AC)L NOT = 0...SKIP.
1518 031603 005 05 0 00 040072 ER AC,[ASCII /TST/]
1519 031604 312 05 0 00 000003 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
1520 031605 003 03 0 00 777777 ERRI RAN1,-1
1521 LOOP TLNE8,TLNE9^
1522 031606 367 04 0 00 031571 SOJG AC-1,TLNE8 ;ITERATION COUNTER
1523 031607 200 05 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1524 031610 321 04 0 00 031575 JUMPL AC-1,TLNE9 ;LOOP ON ERROR SWITCH ^
1525
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 22
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0052
1526
1527
1528 ;TEST TLNE, TLNN. CHECK FOR SKIP/NO SKIP AND
1529 ;NO DATA CHANGE IN AC FOR RAN TO -1 CONDITION
1530
1531
1532 000006 AC=6
1533 031611 TLNN1: SETUP 100,0^
1534 000007 AC1=<AC+1>&17
1535 000010 AC2=<AC+2>&17
1536 000011 AC3=<AC+3>&17
1537 000012 AC4=<AC+4>&17
1538 000013 AC5=<AC+5>&17
1539 000004 RAN1=<AC-2>&17
1540 031611 201 05 0 00 031611 MOVEI AC-1,.
1541 031612 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1542 031613 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1543 031614 202 05 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1544 031615 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1545 031616 240 05 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1546 031617 240 05 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1547 031620 TLNN2: RANDOM^
1548 031620 200 06 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1549 031621 270 06 0 00 040071 ADD AC,[142536475076]
1550 031622 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1551 031623 447 06 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
1552 031624 435 06 0 00 000002 IORI AC,2 ;MAKE "E" HAVE A BIT.
1553 031625 477 07 0 00 000004 TLNN3: SETOB AC1,RAN1 ;MAKE C(AC)=-1
1554 031626 603 07 0 06 000000 TLNE AC1,(AC) ;E+C(AC)L NOT=0 NO SKIP.
1555 031627 254 00 0 00 031631 JRST .+2
1556 031630 005 07 0 00 040072 ER AC1,[ASCII /TST/];TLNE SKIPPED.
1557 031631 607 07 0 06 000000 TLNN AC1,(AC) ;E+C(AC)L NOT=0. SKIP
1558 031632 005 07 0 00 040072 ER AC1,[ASCII /TST/]
1559 031633 312 07 0 00 000004 CAME AC1,RAN1 ;C(AC) SHOULD=ORIG C(AC)
1560 031634 003 04 0 06 000000 ERRI RAN1,(AC)
1561 LOOP TLNN2,TLNN3^
1562 031635 367 05 0 00 031620 SOJG AC-1,TLNN2 ;ITERATION COUNTER
1563 031636 200 06 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1564 031637 321 05 0 00 031625 JUMPL AC-1,TLNN3 ;LOOP ON ERROR SWITCH ^
1565
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 23
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0053
1566
1567
1568 ;TEST TLNE, TLNN. CHECK FOR SKIP/NO SKIP AND
1569 ;NO DATA CHANGE IN AC FOR RAN TO RAN CONDITION
1570
1571
1572 000007 AC=7
1573 031640 TLNN4: SETUP 100,0^
1574 000010 AC1=<AC+1>&17
1575 000011 AC2=<AC+2>&17
1576 000012 AC3=<AC+3>&17
1577 000013 AC4=<AC+4>&17
1578 000014 AC5=<AC+5>&17
1579 000005 RAN1=<AC-2>&17
1580 031640 201 06 0 00 031640 MOVEI AC-1,.
1581 031641 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1582 031642 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1583 031643 202 06 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1584 031644 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1585 031645 240 06 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1586 031646 240 06 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1587 031647 TLNN5: RANDOM^
1588 031647 200 07 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1589 031650 270 07 0 00 040071 ADD AC,[142536475076]
1590 031651 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1591 031652 447 07 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
1592 031653 434 07 0 00 030705 TLNN6: IOR AC,TSTLFT ;MAKE C(AC)L HAVE A BIT
1593 031654 200 05 0 00 000007 MOVE RAN1,AC ;SAVE C(AC) FOR FUTURE COMPARE.
1594 031655 204 10 0 00 000007 MOVS AC1,AC ;MAKE "E"=C(AC)L.
1595 031656 603 07 0 10 000000 TLNE AC,(AC1) ;E+C(AC)L NOT=0. NO SKIP
1596 031657 254 00 0 00 031661 JRST .+2
1597 031660 005 07 0 00 040072 ER AC,[ASCII /TST/];TLNE SKIPPED.
1598 031661 607 07 0 10 000000 TLNN AC,(AC1) ;E+C(AC)L NOT=0. SKIP
1599 031662 005 07 0 00 040072 ER AC,[ASCII /TST/]
1600 031663 312 07 0 00 000005 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
1601 031664 003 05 0 10 000000 ERRI RAN1,(AC1)
1602 LOOP TLNN5,TLNN6^
1603 031665 367 06 0 00 031647 SOJG AC-1,TLNN5 ;ITERATION COUNTER
1604 031666 200 07 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1605 031667 321 06 0 00 031653 JUMPL AC-1,TLNN6 ;LOOP ON ERROR SWITCH ^
1606
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 24
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0054
1607
1608
1609 ;TEST TLNE, TLNN. CHECK FOR SKIP/NO SKIP AND
1610 ;NO DATA CHANGE IN AC FOR RAN1 TO RAN CONDITION
1611
1612
1613 000010 AC=10
1614 031670 TLNN7: SETUP 100,0^
1615 000011 AC1=<AC+1>&17
1616 000012 AC2=<AC+2>&17
1617 000013 AC3=<AC+3>&17
1618 000014 AC4=<AC+4>&17
1619 000015 AC5=<AC+5>&17
1620 000006 RAN1=<AC-2>&17
1621 031670 201 07 0 00 031670 MOVEI AC-1,.
1622 031671 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1623 031672 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1624 031673 202 07 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1625 031674 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1626 031675 240 07 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1627 031676 240 07 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1628 031677 TLNN8: RANDOM^
1629 031677 200 10 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1630 031700 270 10 0 00 040071 ADD AC,[142536475076]
1631 031701 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1632 031702 447 10 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
1633 031703 434 10 0 00 040076 TLNN9: IOR AC,[XWD 100,100];MAKE C(AC) + E HAVE A BIT.
1634 031704 200 06 0 00 000010 MOVE RAN1,AC ;SAVE C(AC) FOR FUTURE COMPARE.
1635 031705 200 11 0 00 000010 MOVE AC1,AC ;MAKE E A DIFF. RAN. NUM.
1636 031706 603 10 0 11 000000 TLNE AC,(AC1) ;E+C (AC)L NOT=0. NO SKIP,
1637 031707 254 00 0 00 031711 JRST .+2
1638 031710 005 10 0 00 040072 ER AC,[ASCII /TST/];TLNE SKIPPED.
1639 031711 607 10 0 11 000000 TLNN AC,(AC1) ;E+C(AC)L NOT=0. SKIP
1640 031712 005 10 0 00 040072 ER AC,[ASCII /TST/]
1641 031713 312 10 0 00 000006 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
1642 031714 003 06 0 11 000000 ERRI RAN1,(AC1)
1643 LOOP TLNN8,TLNN9^
1644 031715 367 07 0 00 031677 SOJG AC-1,TLNN8 ;ITERATION COUNTER
1645 031716 200 10 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1646 031717 321 07 0 00 031703 JUMPL AC-1,TLNN9 ;LOOP ON ERROR SWITCH ^
1647
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 25
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0055
1648
1649
1650 ;TEST TLZ, TLZA. CHECK FOR SKIP/NO SKIP AND
1651 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
1652
1653
1654 000010 AC=10
1655 031720 TLZ1: SETUP 100,0^
1656 000011 AC1=<AC+1>&17
1657 000012 AC2=<AC+2>&17
1658 000013 AC3=<AC+3>&17
1659 000014 AC4=<AC+4>&17
1660 000015 AC5=<AC+5>&17
1661 000006 RAN1=<AC-2>&17
1662 031720 201 07 0 00 031720 MOVEI AC-1,.
1663 031721 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1664 031722 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1665 031723 202 07 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1666 031724 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1667 031725 240 07 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1668 031726 240 07 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1669 031727 TLZ2: RANDOM^
1670 031727 200 10 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1671 031730 270 10 0 00 040071 ADD AC,[142536475076]
1672 031731 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1673 031732 447 10 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
1674 031733 621 10 0 00 000000 TLZ3: TLZ AC,0 ;SHOULD NOT SKIP
1675 031734 254 00 0 00 031736 JRST .+2
1676 031735 005 10 0 00 040072 ER AC,[ASCII /TST/];TLZ SKIPPED.
1677 031736 625 10 0 00 000000 TLZA AC,0 ;SHOULD SKIP
1678 031737 005 10 0 00 040072 ER AC,[ASCII /TST/]
1679 031740 312 10 0 00 040201 CAME AC,RAN ;C(AC) SHOULD STILL=RAN NUM
1680 031741 013 00 0 00 000000 EERRI ,0
1681 LOOP TLZ2,TLZ3^
1682 031742 367 07 0 00 031727 SOJG AC-1,TLZ2 ;ITERATION COUNTER
1683 031743 200 10 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1684 031744 321 07 0 00 031733 JUMPL AC-1,TLZ3 ;LOOP ON ERROR SWITCH ^
1685
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 26
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0056
1686
1687
1688 ;TEST TLZ, TLZA. CHECK FOR SKIP/NO SKIP AND
1689 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
1690
1691
1692 000003 AC=3
1693 031745 TLZ4: SETUP 100,0^
1694 000004 AC1=<AC+1>&17
1695 000005 AC2=<AC+2>&17
1696 000006 AC3=<AC+3>&17
1697 000007 AC4=<AC+4>&17
1698 000010 AC5=<AC+5>&17
1699 000001 RAN1=<AC-2>&17
1700 031745 201 02 0 00 031745 MOVEI AC-1,.
1701 031746 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1702 031747 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1703 031750 202 02 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1704 031751 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1705 031752 240 02 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1706 031753 240 02 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1707 031754 TLZ5: RANDOM^
1708 031754 200 03 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1709 031755 270 03 0 00 040071 ADD AC,[142536475076]
1710 031756 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1711 031757 447 03 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
1712 031760 403 04 0 00 000001 TLZ6: SETZB AC1,RAN1 ;CLEAR C(AC).
1713 031761 621 04 0 03 000000 TLZ AC1,(AC) ;SHOULD NOT SKIP
1714 031762 254 00 0 00 031764 JRST .+2
1715 031763 005 04 0 00 040072 ER AC1,[ASCII /TST/];TLZ SKIPPED.
1716 031764 625 04 0 03 000000 TLZA AC1,(AC) ;SHOULD SKIP
1717 031765 005 04 0 00 040072 ER AC1,[ASCII /TST/]
1718 031766 312 04 0 00 000001 CAME AC1,RAN1 ;C(AC) SHOULD STILL=0
1719 031767 003 01 0 03 000000 ERRI RAN1,(AC)
1720 LOOP TLZ5,TLZ6^
1721 031770 367 02 0 00 031754 SOJG AC-1,TLZ5 ;ITERATION COUNTER
1722 031771 200 03 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1723 031772 321 02 0 00 031760 JUMPL AC-1,TLZ6 ;LOOP ON ERROR SWITCH ^
1724
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 27
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0057
1725
1726
1727 ;TEST TLZ, TLZA CHECK FOR SKIP/NO SKIP AND
1728 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION
1729
1730
1731 000003 AC=3
1732 031773 TLZ7: SETUP 100,0^
1733 000004 AC1=<AC+1>&17
1734 000005 AC2=<AC+2>&17
1735 000006 AC3=<AC+3>&17
1736 000007 AC4=<AC+4>&17
1737 000010 AC5=<AC+5>&17
1738 000001 RAN1=<AC-2>&17
1739 031773 201 02 0 00 031773 MOVEI AC-1,.
1740 031774 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1741 031775 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1742 031776 202 02 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1743 031777 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1744 032000 240 02 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1745 032001 240 02 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1746 032002 TLZ8: RANDOM^
1747 032002 200 03 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1748 032003 270 03 0 00 040071 ADD AC,[142536475076]
1749 032004 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1750 032005 447 03 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
1751 032006 200 04 0 00 000003 TLZ9: MOVE AC1,AC ;SIMULATE
1752 032007 405 04 0 00 777777 ANDI AC1,-1 ;A TLZ AC,-1.
1753 032010 621 03 0 00 777777 TLZ AC,-1 ;SHOULD NOT SKIP
1754 032011 254 00 0 00 032013 JRST .+2
1755 032012 005 03 0 00 040072 ER AC,[ASCII /TST/];TLZ SKIPPED.
1756 032013 625 03 0 00 777777 TLZA AC,-1 ;SHOULD SKIP
1757 032014 005 03 0 00 040072 ER AC,[ASCII /TST/]
1758 032015 312 03 0 00 000004 CAME AC,AC1 ;C(AC) SHOULD = SIM. ANS.
1759 032016 013 00 0 00 777777 EERRI ,-1
1760 LOOP TLZ8,TLZ9^
1761 032017 367 02 0 00 032002 SOJG AC-1,TLZ8 ;ITERATION COUNTER
1762 032020 200 03 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1763 032021 321 02 0 00 032006 JUMPL AC-1,TLZ9 ;LOOP ON ERROR SWITCH ^
1764
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 28
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0058
1765
1766
1767 ;TEST TLZ, TLZA. CHECK FOR SKIP/NO SKIP AND
1768 ;CORRECT DATA IN AC FOR RAN TO -1 CONDITION
1769
1770
1771 000002 AC=2
1772 032022 TLZA1: SETUP 100,0^
1773 000003 AC1=<AC+1>&17
1774 000004 AC2=<AC+2>&17
1775 000005 AC3=<AC+3>&17
1776 000006 AC4=<AC+4>&17
1777 000007 AC5=<AC+5>&17
1778 000000 RAN1=<AC-2>&17
1779 032022 201 01 0 00 032022 MOVEI AC-1,.
1780 032023 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1781 032024 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1782 032025 202 01 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1783 032026 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1784 032027 240 01 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1785 032030 240 01 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1786 032031 TLZA2: RANDOM^
1787 032031 200 02 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1788 032032 270 02 0 00 040071 ADD AC,[142536475076]
1789 032033 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1790 032034 447 02 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
1791 032035 477 03 0 00 000000 TLZA3: SETOB AC1,RAN1 ;MAKE C(AC)=-1
1792 032036 205 04 0 02 000000 MOVSI AC2,(AC) ;SIMULATE A
1793 032037 450 04 0 00 000000 SETCA AC2, ;TLZ
1794 032040 621 03 0 02 000000 TLZ AC1,(AC) ;SHOULD NOT SKIP
1795 032041 254 00 0 00 032043 JRST .+2
1796 032042 005 03 0 00 040072 ER AC1,[ASCII /TST/]
1797 ;CORRECT DATA IN AC FOR NOT RAN1 TO RAN CONDITION.
1798
1799
1800 000004 AC=4
1801 032043 TLZA7: SETUP 100,0^
1802 000005 AC1=<AC+1>&17
1803 000006 AC2=<AC+2>&17
1804 000007 AC3=<AC+3>&17
1805 000010 AC4=<AC+4>&17
1806 000011 AC5=<AC+5>&17
1807 000002 RAN1=<AC-2>&17
1808 032043 201 03 0 00 032043 MOVEI AC-1,.
1809 032044 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1810 032045 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1811 032046 202 03 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1812 032047 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1813 032050 240 03 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1814 032051 240 03 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1815 032052 TLZA8: RANDOM^
1816 032052 200 04 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1817 032053 270 04 0 00 040071 ADD AC,[142536475076]
1818 032054 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1819 032055 447 04 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 28-1
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0059
1820 032056 200 05 0 00 000004 TLZA9: MOVE AC1,AC ;MAKE "E"
1821 032057 241 05 0 00 000011 ROT AC1,11 ;=A DIFFEREND VAND NUM
1822 032060 205 06 0 05 000000 MOVSI AC2,(AC1) ;SIMULATE
1823 032061 410 06 0 00 000004 ANDCA AC2,AC ;A TLZ
1824 032062 621 04 0 05 000000 TLZ AC,(AC1) ;SHOULD NOT SKIP,
1825 032063 254 00 0 00 032065 JRST .+2
1826 032064 005 04 0 00 040072 ER AC,[ASCII /TST/];TLZ SKIPPED.
1827 032065 625 04 0 05 000000 TLZA AC,(AC1) ;SHOULD SKIP.
1828 032066 005 04 0 00 040072 ER AC,[ASCII /TST/]
1829 032067 312 04 0 00 000006 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
1830 032070 013 00 0 05 000000 EERRI ,(AC1)
1831 LOOP TLZA8,TLZA9^
1832 032071 367 03 0 00 032052 SOJG AC-1,TLZA8 ;ITERATION COUNTER
1833 032072 200 04 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1834 032073 321 03 0 00 032056 JUMPL AC-1,TLZA9 ;LOOP ON ERROR SWITCH ^
1835
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 29
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0060
1836
1837
1838 ;TEST TLZE, TLZN. CHECK FOR SKIP/NO SKIP AND
1839 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
1840
1841
1842 000005 AC=5
1843 032074 TLZE1: SETUP 100,0^
1844 000006 AC1=<AC+1>&17
1845 000007 AC2=<AC+2>&17
1846 000010 AC3=<AC+3>&17
1847 000011 AC4=<AC+4>&17
1848 000012 AC5=<AC+5>&17
1849 000003 RAN1=<AC-2>&17
1850 032074 201 04 0 00 032074 MOVEI AC-1,.
1851 032075 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1852 032076 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1853 032077 202 04 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1854 032100 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1855 032101 240 04 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1856 032102 240 04 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1857 032103 TLZE2: RANDOM^
1858 032103 200 05 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1859 032104 270 05 0 00 040071 ADD AC,[142536475076]
1860 032105 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1861 032106 447 05 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
1862 032107 627 05 0 00 000000 TLZE3: TLZN AC,0 ;E+C(AC)L=0. NO SKIP
1863 032110 254 00 0 00 032112 JRST .+2
1864 032111 005 05 0 00 040072 ER AC,[ASCII /TST/];TLZN SKIPPED.
1865 032112 623 05 0 00 000000 TLZE AC,0 ;E+C(AC)L=0. SKIP
1866 032113 005 05 0 00 040072 ER AC,[ASCII /TST/]
1867 032114 312 05 0 00 040201 CAME AC,RAN ;C(AC) SHOULD=ORIG. C(AC).
1868 032115 013 00 0 00 000000 EERRI ,0
1869 LOOP TLZE2,TLZE3^
1870 032116 367 04 0 00 032103 SOJG AC-1,TLZE2 ;ITERATION COUNTER
1871 032117 200 05 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1872 032120 321 04 0 00 032107 JUMPL AC-1,TLZE3 ;LOOP ON ERROR SWITCH ^
1873
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 30
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0061
1874
1875
1876 ;TEST TLZE, TLZN. CHECK FOR SKIP/NO SKIP AND
1877 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION.
1878
1879
1880 000006 AC=6
1881 032121 TLZE4: SETUP 100,0^
1882 000007 AC1=<AC+1>&17
1883 000010 AC2=<AC+2>&17
1884 000011 AC3=<AC+3>&17
1885 000012 AC4=<AC+4>&17
1886 000013 AC5=<AC+5>&17
1887 000004 RAN1=<AC-2>&17
1888 032121 201 05 0 00 032121 MOVEI AC-1,.
1889 032122 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1890 032123 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1891 032124 202 05 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1892 032125 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1893 032126 240 05 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1894 032127 240 05 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1895 032130 TLZE5: RANDOM^
1896 032130 200 06 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1897 032131 270 06 0 00 040071 ADD AC,[142536475076]
1898 032132 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1899 032133 447 06 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
1900 032134 403 07 0 00 000004 TLZE6: SETZB AC1,RAN1 ;CLEAR C(AC)
1901 032135 627 07 0 06 000000 TLZN AC1,(AC) ;E+C(AC)L=0. NO SKIP
1902 032136 254 00 0 00 032140 JRST .+2
1903 032137 005 07 0 00 040072 ER AC1,[ASCII /TST/];TLZN SKIPPED.
1904 032140 623 07 0 06 000000 TLZE AC1,(AC) ;E+C(AC)L=0. SKIP
1905 032141 005 07 0 00 040072 ER AC1,[ASCII /TST/]
1906 032142 312 07 0 00 040074 CAME AC1,[0] ;C(AC) SHOULD=ORIG. C(AC)
1907 032143 003 04 0 06 000000 ERRI RAN1,(AC)
1908 LOOP TLZE5,TLZE6^
1909 032144 367 05 0 00 032130 SOJG AC-1,TLZE5 ;ITERATION COUNTER
1910 032145 200 06 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1911 032146 321 05 0 00 032134 JUMPL AC-1,TLZE6 ;LOOP ON ERROR SWITCH ^
1912
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 31
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0062
1913
1914
1915 ;TEST TLZE, TLZN. CHECK FOR SKIP/NO SKIP AND
1916 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION.
1917
1918
1919 000007 AC=7
1920 032147 TLZE7: SETUP 100,0^
1921 000010 AC1=<AC+1>&17
1922 000011 AC2=<AC+2>&17
1923 000012 AC3=<AC+3>&17
1924 000013 AC4=<AC+4>&17
1925 000014 AC5=<AC+5>&17
1926 000005 RAN1=<AC-2>&17
1927 032147 201 06 0 00 032147 MOVEI AC-1,.
1928 032150 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1929 032151 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1930 032152 202 06 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1931 032153 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1932 032154 240 06 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1933 032155 240 06 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1934 032156 TLZE8: RANDOM^
1935 032156 200 07 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1936 032157 270 07 0 00 040071 ADD AC,[142536475076]
1937 032160 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1938 032161 447 07 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
1939 032162 434 07 0 00 030706 TLZE9: IOR AC,TLFT1 ;SET A BIT IN LEFT SIDE OF AC.
1940 032163 200 05 0 00 000007 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
1941 032164 200 11 0 00 000007 MOVE AC2,AC ;SIMULATE
1942 032165 405 11 0 00 777777 ANDI AC2,-1 ;A TLZ AC,-1
1943 032166 623 07 0 00 777777 TLZE AC,-1 ;E+C(AC)L NOT = 0..NO SKIP.
1944 032167 312 07 0 00 000011 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
1945 032170 003 05 0 00 777777 ERRI RAN1,-1
1946 032171 200 07 0 00 000005 MOVE AC,RAN1 ;RESTORE AC.
1947 032172 627 07 0 00 777777 TLZN AC,-1 ;E+C(AC)L NOT = 0...SKIP.
1948 032173 005 07 0 00 040072 ER AC,[ASCII /TST/]
1949 032174 312 07 0 00 000011 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
1950 032175 003 05 0 00 777777 ERRI RAN1,-1
1951 LOOP TLZE8,TLZE9^
1952 032176 367 06 0 00 032156 SOJG AC-1,TLZE8 ;ITERATION COUNTER
1953 032177 200 07 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1954 032200 321 06 0 00 032162 JUMPL AC-1,TLZE9 ;LOOP ON ERROR SWITCH ^
1955
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 32
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0063
1956
1957
1958 ;TEST TLZE, TLZN. CHECK FOR SKIP/NO SKIP AND
1959 ;CORRECT DATA IN AC FOR RAN TO-1 CONDITION
1960
1961
1962 000010 AC=10
1963 032201 TLZN1: SETUP 100,0^
1964 000011 AC1=<AC+1>&17
1965 000012 AC2=<AC+2>&17
1966 000013 AC3=<AC+3>&17
1967 000014 AC4=<AC+4>&17
1968 000015 AC5=<AC+5>&17
1969 000006 RAN1=<AC-2>&17
1970 032201 201 07 0 00 032201 MOVEI AC-1,.
1971 032202 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1972 032203 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1973 032204 202 07 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1974 032205 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1975 032206 240 07 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1976 032207 240 07 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1977 032210 TLZN2: RANDOM^
1978 032210 200 10 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1979 032211 270 10 0 00 040071 ADD AC,[142536475076]
1980 032212 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1981 032213 447 10 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
1982 032214 435 10 0 00 000400 TLZN3: IORI AC,400 ;SET A BIT IN E.
1983 032215 477 11 0 00 000006 SETOB AC1,RAN1 ;MAKE C(AC) =-1
1984 032216 205 12 0 10 000000 MOVSI AC2,(AC) ;SIMULATE
1985 032217 450 12 0 00 000000 SETCA AC2, ;A TLZ
1986 032220 623 11 0 10 000000 TLZE AC1,(AC) ;E+C(AC) L NOT=0 NO SKIP
1987 032221 312 11 0 00 000012 CAME AC1,AC2 ;C(AC) SHOULD=SIM. ANS
1988 032222 003 06 0 10 000000 ERRI RAN1,(AC)
1989 032223 474 11 0 00 000000 SETO AC1, ;RESTORE AC TO A-1
1990 032224 627 11 0 10 000000 TLZN AC1,(AC)
1991 032225 005 11 0 00 040072 ER AC1,[ASCII /TST/]
1992 032226 312 11 0 00 000012 CAME AC1,AC2 ;C(AC) SHOULD=SIM. ANS
1993 032227 003 06 0 10 000000 ERRI RAN1,(AC)
1994 LOOP TLZN2,TLZN3^
1995 032230 367 07 0 00 032210 SOJG AC-1,TLZN2 ;ITERATION COUNTER
1996 032231 200 10 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1997 032232 321 07 0 00 032214 JUMPL AC-1,TLZN3 ;LOOP ON ERROR SWITCH ^
1998
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 33
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0064
1999
2000
2001 ;TEST TLZE, TLZN CHECK FOR SKIP/NO SKIP AND
2002 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION.
2003
2004
2005 000011 AC=11
2006 032233 TLZN4: SETUP 100,0^
2007 000012 AC1=<AC+1>&17
2008 000013 AC2=<AC+2>&17
2009 000014 AC3=<AC+3>&17
2010 000015 AC4=<AC+4>&17
2011 000016 AC5=<AC+5>&17
2012 000007 RAN1=<AC-2>&17
2013 032233 201 10 0 00 032233 MOVEI AC-1,.
2014 032234 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2015 032235 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2016 032236 202 10 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2017 032237 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2018 032240 240 10 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2019 032241 240 10 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2020 032242 TLZN5: RANDOM^
2021 032242 200 11 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2022 032243 270 11 0 00 040071 ADD AC,[142536475076]
2023 032244 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2024 032245 447 11 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
2025 032246 434 11 0 00 030707 TLZN6: IOR AC,TLFT2 ;SET A BIT IN LEFT SIDE OF AC.
2026 032247 200 07 0 00 000011 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
2027 032250 204 12 0 00 000011 MOVS AC1,AC ;MAKE E = C(AC)L.
2028 032251 200 13 0 00 000011 MOVE AC2,AC ;SIMULATE
2029 032252 405 13 0 00 777777 ANDI AC2,-1 ;A TLZ
2030 032253 623 11 0 12 000000 TLZE AC,(AC1) ;E+C(AC)L NOT=0. NO SKIP.
2031 032254 312 11 0 00 000013 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
2032 032255 003 07 0 12 000000 ERRI RAN1,(AC1)
2033 032256 204 11 0 00 000012 MOVS AC,AC1 ;RESTORE AC.
2034 032257 627 11 0 12 000000 TLZN AC,(AC1) ;E+C(AC)L NOT=0 SKIP.
2035 032260 005 11 0 00 040072 ER AC,[ASCII /TST/]
2036 032261 312 11 0 00 000013 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
2037 032262 003 07 0 12 000000 ERRI RAN1,(AC1)
2038 LOOP TLZN5,TLZN6^
2039 032263 367 10 0 00 032242 SOJG AC-1,TLZN5 ;ITERATION COUNTER
2040 032264 200 11 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2041 032265 321 10 0 00 032246 JUMPL AC-1,TLZN6 ;LOOP ON ERROR SWITCH ^
2042
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 34
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0065
2043
2044
2045 ;TEST TLZE, TLZN. CHECK FOR SKIP/NO SKIP AND
2046 ;CORRECT DATA IN AC FOR RAN1 TO RAN CONDITION.
2047
2048
2049 000004 AC=4
2050 032266 TLZN7: SETUP 100,1^
2051 000005 AC1=<AC+1>&17
2052 000006 AC2=<AC+2>&17
2053 000007 AC3=<AC+3>&17
2054 000010 AC4=<AC+4>&17
2055 000011 AC5=<AC+5>&17
2056 000002 RAN1=<AC-2>&17
2057 032266 201 03 0 00 032266 MOVEI AC-1,.
2058 032267 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2059 032270 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2060 032271 202 03 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2061 032272 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2062 032273 240 03 1 00 030666 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
2063 032274 240 03 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2064 032275 TLZN8: RANDOM^
2065 032275 200 04 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2066 032276 270 04 0 00 040071 ADD AC,[142536475076]
2067 032277 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2068 032300 447 04 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
2069 032301 434 04 0 00 040077 TLZN9: IOR AC,[XWD 10000,10000];SET A BIT IN C(AC) + E.
2070 032302 200 02 0 00 000004 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
2071 032303 200 05 0 00 000004 MOVE AC1,AC ;MAKE E = A DIFF. RAN NUM.
2072 032304 205 06 0 05 000000 MOVSI AC2,(AC1) ;SIMULATE
2073 032305 410 06 0 00 000004 ANDCA AC2,AC ;A TLZ.
2074 032306 623 04 0 05 000000 TLZE AC,(AC1) ;E+C(AC)L NOT = 0...NO SKIP.
2075 032307 312 04 0 00 000006 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
2076 032310 003 02 0 05 000000 ERRI RAN1,(AC1)
2077 032311 200 04 0 00 000002 MOVE AC,RAN1 ;RESTORE AC.
2078 032312 627 04 0 05 000000 TLZN AC,(AC1) ;E+C(AC)L NOT=0. SKIP.
2079 032313 005 04 0 00 040072 ER AC,[ASCII /TST/]
2080 032314 312 04 0 00 000006 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
2081 032315 003 02 0 05 000000 ERRI RAN1,(AC1)
2082 LOOP TLZN8,TLZN9^
2083 032316 367 03 0 00 032275 SOJG AC-1,TLZN8 ;ITERATION COUNTER
2084 032317 200 04 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2085 032320 321 03 0 00 032301 JUMPL AC-1,TLZN9 ;LOOP ON ERROR SWITCH ^
2086
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 35
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0066
2087
2088
2089 ;TEST TLO, TLOA CHECK FOR SKIP/NO SKIP AND
2090 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION.
2091
2092
2093 000005 AC=5
2094 032321 TLO1: SETUP 100,0^
2095 000006 AC1=<AC+1>&17
2096 000007 AC2=<AC+2>&17
2097 000010 AC3=<AC+3>&17
2098 000011 AC4=<AC+4>&17
2099 000012 AC5=<AC+5>&17
2100 000003 RAN1=<AC-2>&17
2101 032321 201 04 0 00 032321 MOVEI AC-1,.
2102 032322 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2103 032323 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2104 032324 202 04 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2105 032325 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2106 032326 240 04 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2107 032327 240 04 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2108 032330 TLO2: RANDOM^
2109 032330 200 05 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2110 032331 270 05 0 00 040071 ADD AC,[142536475076]
2111 032332 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2112 032333 447 05 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
2113 032334 661 05 0 00 000000 TLO3: TLO AC,0 ;SHOULD NOT SKIP.
2114 032335 254 00 0 00 032337 JRST .+2
2115 032336 005 05 0 00 040072 ER AC,[ASCII /TST/];TLO SKIPPED.
2116 032337 665 05 0 00 000000 TLOA AC,0 ;SHOULD SKIP
2117 032340 005 05 0 00 040072 ER AC,[ASCII /TST/]
2118 032341 312 05 0 00 040201 CAME AC,RAN ;C(AC) SHOULD=ORIG C(AC)
2119 032342 013 00 0 00 000000 EERRI
2120 LOOP TLO2,TLO3^
2121 032343 367 04 0 00 032330 SOJG AC-1,TLO2 ;ITERATION COUNTER
2122 032344 200 05 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2123 032345 321 04 0 00 032334 JUMPL AC-1,TLO3 ;LOOP ON ERROR SWITCH ^
2124
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 36
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0067
2125
2126
2127 ;TEST TLO, TLOA. CHECK FOR SKIP/NO SKIP AND
2128 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION
2129
2130
2131 000006 AC=6
2132 032346 TLO4: SETUP 100,0^
2133 000007 AC1=<AC+1>&17
2134 000010 AC2=<AC+2>&17
2135 000011 AC3=<AC+3>&17
2136 000012 AC4=<AC+4>&17
2137 000013 AC5=<AC+5>&17
2138 000004 RAN1=<AC-2>&17
2139 032346 201 05 0 00 032346 MOVEI AC-1,.
2140 032347 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2141 032350 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2142 032351 202 05 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2143 032352 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2144 032353 240 05 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2145 032354 240 05 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2146 032355 TLO5: RANDOM^
2147 032355 200 06 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2148 032356 270 06 0 00 040071 ADD AC,[142536475076]
2149 032357 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2150 032360 447 06 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
2151 032361 403 07 0 00 000004 TLO6: SETZB AC1,RAN1 ;CLEAR C(AC).
2152 032362 205 10 0 06 000000 MOVSI AC2,(AC) ;SIMULATE TLO.
2153 032363 661 07 0 06 000000 TLO AC1,(AC) ;SHOULD NOT SKIP
2154 032364 254 00 0 00 032366 JRST .+2
2155 032365 005 07 0 00 040072 ER AC1,[ASCII /TST/];TLO SKIPPED.
2156 032366 665 07 0 06 000000 TLOA AC1,(AC) ;SHOULD SKIP
2157 032367 005 07 0 00 040072 ER AC1,[ASCII /TST/]
2158 032370 312 07 0 00 000010 CAME AC1,AC2 ;C(AC) SHOULD=SIM. ANS
2159 032371 003 04 0 06 000000 ERRI RAN1,(AC)
2160 LOOP TLO5,TLO6^
2161 032372 367 05 0 00 032355 SOJG AC-1,TLO5 ;ITERATION COUNTER
2162 032373 200 06 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2163 032374 321 05 0 00 032361 JUMPL AC-1,TLO6 ;LOOP ON ERROR SWITCH ^
2164
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 37
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0068
2165
2166
2167 ;TEST TLO, TLOA CHECK FOR SKIP/NO SKIP AND
2168 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION
2169
2170
2171 000007 AC=7
2172 032375 TLO7: SETUP 100,0^
2173 000010 AC1=<AC+1>&17
2174 000011 AC2=<AC+2>&17
2175 000012 AC3=<AC+3>&17
2176 000013 AC4=<AC+4>&17
2177 000014 AC5=<AC+5>&17
2178 000005 RAN1=<AC-2>&17
2179 032375 201 06 0 00 032375 MOVEI AC-1,.
2180 032376 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2181 032377 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2182 032400 202 06 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2183 032401 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2184 032402 240 06 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2185 032403 240 06 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2186 032404 TLO8: RANDOM^
2187 032404 200 07 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2188 032405 270 07 0 00 040071 ADD AC,[142536475076]
2189 032406 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2190 032407 447 07 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
2191 032410 200 10 0 00 000007 TLO9: MOVE AC1,AC ;SIMULATE
2192 032411 434 10 0 00 040100 IOR AC1,[XWD -1,0] ;A TLO AC,-1.
2193 032412 661 07 0 00 777777 TLO AC,-1 ;SHOULD NOT SKIP
2194 032413 254 00 0 00 032415 JRST .+2
2195 032414 005 07 0 00 040072 ER AC,[ASCII /TST/];TLO SKIPPED.
2196 032415 665 07 0 00 777777 TLOA AC,-1 ;SHOULD SKIP
2197 032416 005 07 0 00 040072 ER AC,[ASCII /TST/]
2198 032417 312 07 0 00 000010 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
2199 032420 013 00 0 00 777777 EERRI ,-1
2200 LOOP TLO8,TLO9^
2201 032421 367 06 0 00 032404 SOJG AC-1,TLO8 ;ITERATION COUNTER
2202 032422 200 07 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2203 032423 321 06 0 00 032410 JUMPL AC-1,TLO9 ;LOOP ON ERROR SWITCH ^
2204
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 38
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0069
2205
2206
2207 ;TEST TLO, TLOA. CHECK FOR SKIP/NO SKIP AND
2208 ;CORRECT DATA IN AC FOR RAN TO -1 CONDITION.
2209
2210
2211 000010 AC=10
2212 032424 TLOA1: SETUP 100,0^
2213 000011 AC1=<AC+1>&17
2214 000012 AC2=<AC+2>&17
2215 000013 AC3=<AC+3>&17
2216 000014 AC4=<AC+4>&17
2217 000015 AC5=<AC+5>&17
2218 000006 RAN1=<AC-2>&17
2219 032424 201 07 0 00 032424 MOVEI AC-1,.
2220 032425 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2221 032426 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2222 032427 202 07 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2223 032430 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2224 032431 240 07 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2225 032432 240 07 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2226 032433 TLOA2: RANDOM^
2227 032433 200 10 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2228 032434 270 10 0 00 040071 ADD AC,[142536475076]
2229 032435 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2230 032436 447 10 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
2231 032437 477 11 0 00 000006 TLOA3: SETOB AC1,RAN1 ;MAKE C(AC)=-1.
2232 032440 661 11 0 10 000000 TLO AC1,(AC) ;SHOULD NOT SKIP
2233 032441 254 00 0 00 032443 JRST .+2
2234 032442 005 11 0 00 040072 ER AC1,[ASCII /TST/];TLO SKIPPED.
2235 032443 665 11 0 10 000000 TLOA AC1,(AC) ;SHOULD SKIP.
2236 032444 005 11 0 00 040072 ER AC1,[ASCII /TST/]
2237 032445 312 11 0 00 040073 CAME AC1,[-1] ;C(AC) SHOULD STILL=-1
2238 032446 003 06 0 10 000000 ERRI RAN1,(AC)
2239 LOOP TLOA2,TLOA3^
2240 032447 367 07 0 00 032433 SOJG AC-1,TLOA2 ;ITERATION COUNTER
2241 032450 200 10 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2242 032451 321 07 0 00 032437 JUMPL AC-1,TLOA3 ;LOOP ON ERROR SWITCH ^
2243
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 39
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0070
2244
2245
2246 ;TEST TLO, TLOA. CHECK FOR SKIP/NO SKIP AND
2247 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION.
2248
2249
2250 000002 AC=2
2251 032452 TLOA4: SETUP 100,0^
2252 000003 AC1=<AC+1>&17
2253 000004 AC2=<AC+2>&17
2254 000005 AC3=<AC+3>&17
2255 000006 AC4=<AC+4>&17
2256 000007 AC5=<AC+5>&17
2257 000000 RAN1=<AC-2>&17
2258 032452 201 01 0 00 032452 MOVEI AC-1,.
2259 032453 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2260 032454 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2261 032455 202 01 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2262 032456 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2263 032457 240 01 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2264 032460 240 01 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2265 032461 TLOA5: RANDOM^
2266 032461 200 02 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2267 032462 270 02 0 00 040071 ADD AC,[142536475076]
2268 032463 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2269 032464 447 02 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
2270 032465 204 03 0 00 000002 TLOA6: MOVS AC1,AC ;MAKE "E"=C(AC)L.
2271 032466 661 02 0 03 000000 TLO AC,(AC1) ;SHOULD NOT SKIP
2272 032467 254 00 0 00 032471 JRST .+2
2273 032470 005 02 0 00 040072 ER AC,[ASCII /TST/];TLO SKIPPED.
2274 032471 665 02 0 03 000000 TLOA AC,(AC1) ;SHOULD SKIP
2275 032472 005 02 0 00 040072 ER AC,[ASCII /TST/]
2276 032473 312 02 0 00 040201 CAME AC,RAN ;C(AC) SHOULD=ORIG. C(AC)
2277 032474 013 00 0 03 000000 EERRI ,(AC1)
2278 LOOP TLOA5,TLOA6^
2279 032475 367 01 0 00 032461 SOJG AC-1,TLOA5 ;ITERATION COUNTER
2280 032476 200 02 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2281 032477 321 01 0 00 032465 JUMPL AC-1,TLOA6 ;LOOP ON ERROR SWITCH ^
2282
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 40
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0071
2283
2284
2285 ;TEST TLO, TLOA. CHECK FOR SKIPNO SKIP AND
2286 ;CORRECT DATA IN AC FOR RAN1 TO RAN CONDITION
2287
2288
2289 000002 AC=2
2290 032500 TLOA7: SETUP 100,0^
2291 000003 AC1=<AC+1>&17
2292 000004 AC2=<AC+2>&17
2293 000005 AC3=<AC+3>&17
2294 000006 AC4=<AC+4>&17
2295 000007 AC5=<AC+5>&17
2296 000000 RAN1=<AC-2>&17
2297 032500 201 01 0 00 032500 MOVEI AC-1,.
2298 032501 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2299 032502 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2300 032503 202 01 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2301 032504 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2302 032505 240 01 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2303 032506 240 01 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2304 032507 TLOA8: RANDOM^
2305 032507 200 02 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2306 032510 270 02 0 00 040071 ADD AC,[142536475076]
2307 032511 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2308 032512 447 02 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
2309 032513 200 03 0 00 000002 TLOA9: MOVE AC1,AC ;MAKE "E"
2310 032514 241 03 0 00 000011 ROT AC1,11 ;=A DIFFERENT RAN NUM
2311 032515 205 04 0 03 000000 MOVSI AC2,(AC1) ;SIMULATE
2312 032516 434 04 0 00 000002 IOR AC2,AC ;A TLO
2313 032517 661 02 0 03 000000 TLO AC,(AC1) ;SHOULD NOT SKIP
2314 032520 254 00 0 00 032522 JRST .+2
2315 032521 005 02 0 00 040072 ER AC,[ASCII /TST/];TLO SKIPPED.
2316 032522 665 02 0 03 000000 TLOA AC,(AC1) ;SHOULD SKIP
2317 032523 005 02 0 00 040072 ER AC,[ASCII /TST/]
2318 032524 312 02 0 00 000004 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
2319 032525 013 00 0 03 000000 EERRI ,(AC1)
2320 LOOP TLOA8,TLOA9^
2321 032526 367 01 0 00 032507 SOJG AC-1,TLOA8 ;ITERATION COUNTER
2322 032527 200 02 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2323 032530 321 01 0 00 032513 JUMPL AC-1,TLOA9 ;LOOP ON ERROR SWITCH ^
2324
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 41
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0072
2325
2326
2327 ;TEST TLOE, TLON. CHECK FOR SKIP/NO SKIP AND
2328 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION.
2329
2330
2331 000002 AC=2
2332 032531 TLOE1: SETUP 100,0^
2333 000003 AC1=<AC+1>&17
2334 000004 AC2=<AC+2>&17
2335 000005 AC3=<AC+3>&17
2336 000006 AC4=<AC+4>&17
2337 000007 AC5=<AC+5>&17
2338 000000 RAN1=<AC-2>&17
2339 032531 201 01 0 00 032531 MOVEI AC-1,.
2340 032532 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2341 032533 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2342 032534 202 01 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2343 032535 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2344 032536 240 01 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2345 032537 240 01 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2346 032540 TLOE2: RANDOM^
2347 032540 200 02 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2348 032541 270 02 0 00 040071 ADD AC,[142536475076]
2349 032542 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2350 032543 447 02 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
2351 032544 667 02 0 00 000000 TLOE3: TLON AC,0 ;E+C(AC)=0. NO SKIP.
2352 032545 254 00 0 00 032547 JRST .+2
2353 032546 005 02 0 00 040072 ER AC,[ASCII /TST/];TLON SKIPPED.
2354 032547 663 02 0 00 000000 TLOE AC,0 ;E+C(AC)=0. SKIP
2355 032550 005 02 0 00 040072 ER AC,[ASCII /TST/]
2356 032551 312 02 0 00 040201 CAME AC,RAN ;C(AC) SHOULD=ORIG. C(AC)
2357 032552 013 00 0 00 000000 EERRI
2358 LOOP TLOE2,TLOE3^
2359 032553 367 01 0 00 032540 SOJG AC-1,TLOE2 ;ITERATION COUNTER
2360 032554 200 02 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2361 032555 321 01 0 00 032544 JUMPL AC-1,TLOE3 ;LOOP ON ERROR SWITCH ^
2362
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 42
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0073
2363
2364
2365 ;TEST TLOE, TLON. CHECK FOR SKIP/NO SKIP AND
2366 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION.
2367
2368
2369 000003 AC=3
2370 032556 TLOE4: SETUP 100,0^
2371 000004 AC1=<AC+1>&17
2372 000005 AC2=<AC+2>&17
2373 000006 AC3=<AC+3>&17
2374 000007 AC4=<AC+4>&17
2375 000010 AC5=<AC+5>&17
2376 000001 RAN1=<AC-2>&17
2377 032556 201 02 0 00 032556 MOVEI AC-1,.
2378 032557 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2379 032560 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2380 032561 202 02 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2381 032562 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2382 032563 240 02 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2383 032564 240 02 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2384 032565 TLOE5: RANDOM^
2385 032565 200 03 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2386 032566 270 03 0 00 040071 ADD AC,[142536475076]
2387 032567 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2388 032570 447 03 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
2389 032571 435 03 0 00 020000 TLOE6: IORI AC,20000 ;SET A BIT IN E.
2390 032572 403 04 0 00 000001 SETZB AC1,RAN1 ;CLEAR AC.
2391 032573 205 05 0 03 000000 MOVSI AC2,(AC) ;SIMULATE A TLO
2392 032574 663 04 0 03 000000 TLOE AC1,(AC) ;E+C(AC)L=0. SKIP
2393 032575 005 04 0 00 040072 ER AC1,[ASCII /TST/]
2394 032576 667 04 0 03 000000 TLON AC1,(AC) ;E+C(AC)L NOT=0. SKIP
2395 032577 005 04 0 00 040072 ER AC1,[ASCII /TST/]
2396 032600 312 04 0 00 000005 CAME AC1,AC2 ;C(AC) SHOULD=SIM. ANS
2397 032601 003 01 0 03 000000 ERRI RAN1,(AC)
2398 LOOP TLOE5,TLOE6^
2399 032602 367 02 0 00 032565 SOJG AC-1,TLOE5 ;ITERATION COUNTER
2400 032603 200 03 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2401 032604 321 02 0 00 032571 JUMPL AC-1,TLOE6 ;LOOP ON ERROR SWITCH ^
2402
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 43
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0074
2403
2404
2405 ;TEST TLOE, TLON. CHECK FOR SKIP/NO SKIP AND
2406 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION.
2407
2408
2409 000002 AC=2
2410 032605 TLOE7: SETUP 100,0^
2411 000003 AC1=<AC+1>&17
2412 000004 AC2=<AC+2>&17
2413 000005 AC3=<AC+3>&17
2414 000006 AC4=<AC+4>&17
2415 000007 AC5=<AC+5>&17
2416 000000 RAN1=<AC-2>&17
2417 032605 201 01 0 00 032605 MOVEI AC-1,.
2418 032606 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2419 032607 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2420 032610 202 01 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2421 032611 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2422 032612 240 01 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2423 032613 240 01 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2424 032614 TLOE8: RANDOM^
2425 032614 200 02 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2426 032615 270 02 0 00 040071 ADD AC,[142536475076]
2427 032616 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2428 032617 447 02 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
2429 032620 434 02 0 00 030705 TLOE9: IOR AC,TSTLFT ;SET A BIT IN LEFT SIDE OF AC.
2430 032621 200 00 0 00 000002 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
2431 032622 205 03 0 00 777777 MOVSI AC1,-1 ;SIMULATE
2432 032623 434 03 0 00 000002 IOR AC1,AC ;A TLO.
2433 032624 663 02 0 00 777777 TLOE AC,-1 ;E+C(AC)L NOT=0. NO SKIP.
2434 032625 254 00 0 00 032627 JRST .+2
2435 032626 005 02 0 00 040072 ER AC,[ASCII /TST/];TLOE SKIPPED.
2436 032627 667 02 0 00 777777 TLON AC,-1 ;E+C(AC)L NOT=0. SKIP
2437 032630 005 02 0 00 040072 ER AC,[ASCII /TST/]
2438 032631 312 02 0 00 000003 CAME AC,AC1
2439 032632 003 00 0 00 777777 ERRI RAN1,-1
2440 LOOP TLOE8,TLOE9^
2441 032633 367 01 0 00 032614 SOJG AC-1,TLOE8 ;ITERATION COUNTER
2442 032634 200 02 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2443 032635 321 01 0 00 032620 JUMPL AC-1,TLOE9 ;LOOP ON ERROR SWITCH ^
2444
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 44
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0075
2445
2446
2447 ;TEST TLOE, TLON. CHECK FOR SKIP/NO SKIP AND
2448 ;CORRECT DATA IN AC FOR RAN TO -1 CONDITION.
2449
2450
2451 000003 AC=3
2452 032636 TLON1: SETUP 100,0^
2453 000004 AC1=<AC+1>&17
2454 000005 AC2=<AC+2>&17
2455 000006 AC3=<AC+3>&17
2456 000007 AC4=<AC+4>&17
2457 000010 AC5=<AC+5>&17
2458 000001 RAN1=<AC-2>&17
2459 032636 201 02 0 00 032636 MOVEI AC-1,.
2460 032637 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2461 032640 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2462 032641 202 02 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2463 032642 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2464 032643 240 02 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2465 032644 240 02 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2466 032645 TLON2: RANDOM^
2467 032645 200 03 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2468 032646 270 03 0 00 040071 ADD AC,[142536475076]
2469 032647 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2470 032650 447 03 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
2471 032651 435 03 0 00 000010 TLON3: IORI AC,10 ;SET A BIT IN E
2472 032652 477 04 0 00 000001 SETOB AC1,RAN1 ;SET C(AC) TO=-1.
2473 032653 663 04 0 03 000000 TLOE AC1,(AC) ;E+C(AC)L NOT =0. NO SKIP
2474 032654 254 00 0 00 032656 JRST .+2
2475 032655 005 04 0 00 040072 ER AC1,[ASCII /TST/];TLOE SKIPPED.
2476 032656 667 04 0 03 000000 TLON AC1,(AC) ;E+C(AC)L NOT=0 SKIP
2477 032657 005 04 0 00 040072 ER AC1,[ASCII /TST/]
2478 032660 312 04 0 00 040073 CAME AC1,[-1] ;C(AC) SHOULD STILL=-1.
2479 032661 003 01 0 03 000000 ERRI RAN1,(AC)
2480 LOOP TLON2,TLON3^
2481 032662 367 02 0 00 032645 SOJG AC-1,TLON2 ;ITERATION COUNTER
2482 032663 200 03 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2483 032664 321 02 0 00 032651 JUMPL AC-1,TLON3 ;LOOP ON ERROR SWITCH ^
2484
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 45
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0076
2485
2486
2487 ;TEST TLOE, TLON. CHECK FOR SKIP/NO SKIP
2488 ;AND CORRECT DATA IN AC FOR RAN TO RAN CONDITION
2489
2490
2491 000004 AC=4
2492 032665 TLON4: SETUP 100,0^
2493 000005 AC1=<AC+1>&17
2494 000006 AC2=<AC+2>&17
2495 000007 AC3=<AC+3>&17
2496 000010 AC4=<AC+4>&17
2497 000011 AC5=<AC+5>&17
2498 000002 RAN1=<AC-2>&17
2499 032665 201 03 0 00 032665 MOVEI AC-1,.
2500 032666 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2501 032667 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2502 032670 202 03 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2503 032671 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2504 032672 240 03 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2505 032673 240 03 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2506 032674 TLON5: RANDOM^
2507 032674 200 04 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2508 032675 270 04 0 00 040071 ADD AC,[142536475076]
2509 032676 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2510 032677 447 04 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
2511 032700 434 04 0 00 030706 TLON6: IOR AC,TLFT1 ;SET A BIT IN LEFT SIDE OF AC.
2512 032701 200 02 0 00 000004 MOVE RAN1,AC ;SAVE C(AC) FOR FUTURE COMPARE.
2513 032702 204 05 0 00 000004 MOVS AC1,AC ;MAKE E = C(AC)L.
2514 032703 663 04 0 05 000000 TLOE AC,(AC1) ;E+C(AC)L NOT=0. NO SKIP.
2515 032704 254 00 0 00 032706 JRST .+2
2516 032705 005 04 0 00 040072 ER AC,[ASCII /TST/];TLOE SKIPPED.
2517 032706 667 04 0 05 000000 TLON AC,(AC1) ;E+C(AC)L NOT=0 SKIP
2518 032707 005 04 0 00 040072 ER AC,[ASCII /TST/]
2519 032710 312 04 0 00 000002 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
2520 032711 003 02 0 05 000000 ERRI RAN1,(AC1)
2521 LOOP TLON5,TLON6^
2522 032712 367 03 0 00 032674 SOJG AC-1,TLON5 ;ITERATION COUNTER
2523 032713 200 04 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2524 032714 321 03 0 00 032700 JUMPL AC-1,TLON6 ;LOOP ON ERROR SWITCH ^
2525
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 46
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0077
2526
2527
2528 ;TEST TLOE, TLON. CHECK FOR SKIP/NO SKIP AND
2529 ;CORRECT DATA IN AC FOR RAN1 TO RAN CONDITION.
2530
2531
2532 000005 AC=5
2533 032715 TLON7: SETUP 100,1^
2534 000006 AC1=<AC+1>&17
2535 000007 AC2=<AC+2>&17
2536 000010 AC3=<AC+3>&17
2537 000011 AC4=<AC+4>&17
2538 000012 AC5=<AC+5>&17
2539 000003 RAN1=<AC-2>&17
2540 032715 201 04 0 00 032715 MOVEI AC-1,.
2541 032716 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2542 032717 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2543 032720 202 04 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2544 032721 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2545 032722 240 04 1 00 030666 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
2546 032723 240 04 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2547 032724 TLON8: RANDOM^
2548 032724 200 05 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2549 032725 270 05 0 00 040071 ADD AC,[142536475076]
2550 032726 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2551 032727 447 05 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
2552 032730 434 05 0 00 040101 TLON9: IOR AC,[XWD 400000,400000];SET A BIT IN AC + E.
2553 032731 200 03 0 00 000005 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
2554 032732 200 06 0 00 000005 MOVE AC1,AC ;MAKE E A DIFF RAN NUM.
2555 032733 205 07 0 06 000000 MOVSI AC2,(AC1) ;SIMULATE
2556 032734 434 07 0 00 000005 IOR AC2,AC ;A TLO
2557 032735 663 05 0 06 000000 TLOE AC,(AC1) ;E+C(AC)L NOT = 0...NO SKIP.
2558 032736 254 00 0 00 032740 JRST .+2
2559 032737 005 05 0 00 040072 ER AC,[ASCII /TST/];TLOE SKIPPED.
2560 032740 667 05 0 06 000000 TLON AC,(AC1) ;E+C(AC)L NOT=0. SKIP
2561 032741 005 05 0 00 040072 ER AC,[ASCII /TST/]
2562 032742 312 05 0 00 000007 CAME AC,AC2
2563 032743 003 03 0 06 000000 ERRI RAN1,(AC1) ;C(AC) SHOULD=SIM. ANS
2564 LOOP TLON8,TLON9^
2565 032744 367 04 0 00 032724 SOJG AC-1,TLON8 ;ITERATION COUNTER
2566 032745 200 05 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2567 032746 321 04 0 00 032730 JUMPL AC-1,TLON9 ;LOOP ON ERROR SWITCH ^
2568
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 47
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0078
2569
2570
2571 ;TEST TLC, TLCA. CHECK FOR SKIP/NO SKIP AND
2572 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
2573
2574
2575 000006 AC=6
2576 032747 TLC1: SETUP 100,0^
2577 000007 AC1=<AC+1>&17
2578 000010 AC2=<AC+2>&17
2579 000011 AC3=<AC+3>&17
2580 000012 AC4=<AC+4>&17
2581 000013 AC5=<AC+5>&17
2582 000004 RAN1=<AC-2>&17
2583 032747 201 05 0 00 032747 MOVEI AC-1,.
2584 032750 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2585 032751 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2586 032752 202 05 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2587 032753 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2588 032754 240 05 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2589 032755 240 05 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2590 032756 TLC2: RANDOM^
2591 032756 200 06 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2592 032757 270 06 0 00 040071 ADD AC,[142536475076]
2593 032760 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2594 032761 447 06 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
2595 032762 641 06 0 00 000000 TLC3: TLC AC,0 ;SHOULD NOT SKIP,.
2596 032763 254 00 0 00 032765 JRST .+2
2597 032764 005 06 0 00 040072 ER AC,[ASCII /TST/];TLC SKIPPED.
2598 032765 645 06 0 00 000000 TLCA AC,0 ;SHOULD SKIP
2599 032766 005 06 0 00 040072 ER AC,[ASCII /TST/]
2600 032767 312 06 0 00 040201 CAME AC,RAN ;C(AC) SHOULD NOT HAVE CHANGED
2601 032770 013 00 0 00 000000 EERRI
2602 LOOP TLC2,TLC3^
2603 032771 367 05 0 00 032756 SOJG AC-1,TLC2 ;ITERATION COUNTER
2604 032772 200 06 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2605 032773 321 05 0 00 032762 JUMPL AC-1,TLC3 ;LOOP ON ERROR SWITCH ^
2606
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 48
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0079
2607
2608
2609 ;TEST TLC, TLCA. CHECK FOR SKIP/NO SKIP AND
2610 ;CORRECT DATA IN AC FOR RAN TO 0. CONDITION.
2611
2612
2613 000007 AC=7
2614 032774 TLC4: SETUP 100,0^
2615 000010 AC1=<AC+1>&17
2616 000011 AC2=<AC+2>&17
2617 000012 AC3=<AC+3>&17
2618 000013 AC4=<AC+4>&17
2619 000014 AC5=<AC+5>&17
2620 000005 RAN1=<AC-2>&17
2621 032774 201 06 0 00 032774 MOVEI AC-1,.
2622 032775 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2623 032776 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2624 032777 202 06 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2625 033000 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2626 033001 240 06 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2627 033002 240 06 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2628 033003 TLC5: RANDOM^
2629 033003 200 07 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2630 033004 270 07 0 00 040071 ADD AC,[142536475076]
2631 033005 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2632 033006 447 07 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
2633 033007 403 10 0 00 000005 TLC6: SETZB AC1,RAN1 ;CLEAR AC
2634 033010 641 10 0 07 000000 TLC AC1,(AC) ;SHOULD NOT SKIP
2635 033011 254 00 0 00 033013 JRST .+2
2636 033012 005 10 0 00 040072 ER AC1,[ASCII /TST/];TLC SKIPPED.
2637 033013 645 10 0 07 000000 TLCA AC1,(AC) ;SHOULD SKIP
2638 033014 005 10 0 00 040072 ER AC1,[ASCII /TST/]
2639 033015 312 10 0 00 040074 CAME AC1,[0] ;C(AC) SHOULD=ORIG C(AC)
2640 033016 003 05 0 07 000000 ERRI RAN1,(AC)
2641 LOOP TLC5,TLC6^
2642 033017 367 06 0 00 033003 SOJG AC-1,TLC5 ;ITERATION COUNTER
2643 033020 200 07 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2644 033021 321 06 0 00 033007 JUMPL AC-1,TLC6 ;LOOP ON ERROR SWITCH ^
2645
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 49
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0080
2646 ;TEST TLC, TLCA. CHECK FOR SKIP/NO SKIP AND
2647 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION
2648
2649
2650 000010 AC=10
2651 033022 TLC7: SETUP 100,0^
2652 000011 AC1=<AC+1>&17
2653 000012 AC2=<AC+2>&17
2654 000013 AC3=<AC+3>&17
2655 000014 AC4=<AC+4>&17
2656 000015 AC5=<AC+5>&17
2657 000006 RAN1=<AC-2>&17
2658 033022 201 07 0 00 033022 MOVEI AC-1,.
2659 033023 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2660 033024 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2661 033025 202 07 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2662 033026 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2663 033027 240 07 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2664 033030 240 07 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2665 033031 TLC8: RANDOM^
2666 033031 200 10 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2667 033032 270 10 0 00 040071 ADD AC,[142536475076]
2668 033033 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2669 033034 447 10 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
2670 033035 641 10 0 00 777777 TLC9: TLC AC,-1 ;SHOULD NOT SKIP
2671 033036 254 00 0 00 033040 JRST .+2
2672 033037 005 10 0 00 040072 ER AC,[ASCII /TST/];TLC SKIPPED.
2673 033040 645 10 0 00 777777 TLCA AC,-1
2674 033041 005 10 0 00 040072 ER AC,[ASCII /TST/]
2675 033042 312 10 0 00 040201 CAME AC,RAN ;C(AC) SHOULD=ORIG C(AC)
2676 033043 013 00 0 00 777777 EERRI ,-1
2677 LOOP TLC8,TLC9^
2678 033044 367 07 0 00 033031 SOJG AC-1,TLC8 ;ITERATION COUNTER
2679 033045 200 10 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2680 033046 321 07 0 00 033035 JUMPL AC-1,TLC9 ;LOOP ON ERROR SWITCH ^
2681
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 50
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0081
2682
2683
2684 ;TEST TLC, TLCA. CHECK FOR SKIP/NO SKIP AND
2685 ;CORRECT DATA IN AC FOR RAN TO -1 CONDITION
2686
2687
2688 000003 AC=3
2689 033047 TLCA1: SETUP 100,0^
2690 000004 AC1=<AC+1>&17
2691 000005 AC2=<AC+2>&17
2692 000006 AC3=<AC+3>&17
2693 000007 AC4=<AC+4>&17
2694 000010 AC5=<AC+5>&17
2695 000001 RAN1=<AC-2>&17
2696 033047 201 02 0 00 033047 MOVEI AC-1,.
2697 033050 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2698 033051 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2699 033052 202 02 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2700 033053 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2701 033054 240 02 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2702 033055 240 02 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2703 033056 TLCA2: RANDOM^
2704 033056 200 03 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2705 033057 270 03 0 00 040071 ADD AC,[142536475076]
2706 033060 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2707 033061 447 03 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
2708 033062 477 04 0 00 000001 TLCA3: SETOB AC1,RAN1 ;MAKE C(AC) = -1.
2709 033063 641 04 0 03 000000 TLC AC1,(AC) ;SHOULD NOT SKIP
2710 033064 254 00 0 00 033066 JRST .+2
2711 033065 005 04 0 00 040072 ER AC1,[ASCII /TST/];TLC SKIPPED.
2712 033066 645 04 0 03 000000 TLCA AC1,(AC) ;SHOULD SKIP
2713 033067 005 04 0 00 040072 ER AC1,[ASCII /TST/]
2714 033070 312 04 0 00 040073 CAME AC1,[-1] ;C(AC) SHOULD=ORIG. C(AC)
2715 033071 003 01 0 03 000000 ERRI RAN1,(AC)
2716 LOOP TLCA2,TLCA3^
2717 033072 367 02 0 00 033056 SOJG AC-1,TLCA2 ;ITERATION COUNTER
2718 033073 200 03 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2719 033074 321 02 0 00 033062 JUMPL AC-1,TLCA3 ;LOOP ON ERROR SWITCH ^
2720
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 51
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0082
2721
2722
2723 ;TEST TLC, TLCA. CHECK FOR SKIP/NO SKIP AND
2724 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
2725
2726
2727 000002 AC=2
2728 033075 TLCA4: SETUP 100,0^
2729 000003 AC1=<AC+1>&17
2730 000004 AC2=<AC+2>&17
2731 000005 AC3=<AC+3>&17
2732 000006 AC4=<AC+4>&17
2733 000007 AC5=<AC+5>&17
2734 000000 RAN1=<AC-2>&17
2735 033075 201 01 0 00 033075 MOVEI AC-1,.
2736 033076 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2737 033077 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2738 033100 202 01 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2739 033101 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2740 033102 240 01 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2741 033103 240 01 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2742 033104 TLCA5: RANDOM^
2743 033104 200 02 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2744 033105 270 02 0 00 040071 ADD AC,[142536475076]
2745 033106 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2746 033107 447 02 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
2747 033110 204 03 0 00 000002 TLCA6: MOVS AC1,AC ;MAKE "E"=C(AC)L.
2748 033111 641 02 0 03 000000 TLC AC,(AC1) ;SHOULD NOT SKIP.
2749 033112 254 00 0 00 033114 JRST .+2
2750 033113 005 02 0 00 040072 ER AC,[ASCII /TST/];TLC SKIPPED.
2751 033114 645 02 0 03 000000 TLCA AC,(AC1) ;SHOULD SKIP
2752 033115 005 02 0 00 040072 ER AC,[ASCII /TST/]
2753 033116 312 02 0 00 040201 CAME AC,RAN ;C(AC) SHOULD=ORIG C(AC)
2754 033117 013 00 0 03 000000 EERRI ,(AC1)
2755 LOOP TLCA5,TLCA6^
2756 033120 367 01 0 00 033104 SOJG AC-1,TLCA5 ;ITERATION COUNTER
2757 033121 200 02 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2758 033122 321 01 0 00 033110 JUMPL AC-1,TLCA6 ;LOOP ON ERROR SWITCH ^
2759
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 52
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0083
2760
2761
2762 ;TEST TLC, TLCA. CHECK FOR SKIP/NO SKIP AND
2763 ;CORRECT DATA IN AC FOR NOT RAN TO RAN
2764
2765
2766 000003 AC=3
2767 033123 TLCA7: SETUP 100,0^
2768 000004 AC1=<AC+1>&17
2769 000005 AC2=<AC+2>&17
2770 000006 AC3=<AC+3>&17
2771 000007 AC4=<AC+4>&17
2772 000010 AC5=<AC+5>&17
2773 000001 RAN1=<AC-2>&17
2774 033123 201 02 0 00 033123 MOVEI AC-1,.
2775 033124 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2776 033125 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2777 033126 202 02 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2778 033127 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2779 033130 240 02 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2780 033131 240 02 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2781 033132 TLCA8: RANDOM^
2782 033132 200 03 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2783 033133 270 03 0 00 040071 ADD AC,[142536475076]
2784 033134 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2785 033135 447 03 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
2786 033136 460 04 0 00 000003 TLCA9: SETCM AC1,AC ;MAKE "E"=
2787 033137 204 04 0 00 000004 MOVS AC1,AC1 ;1'S COMP OF C(AC)L.
2788 033140 641 03 0 04 000000 TLC AC,(AC1) ;SHOULD NOT SKIP
2789 033141 254 00 0 00 033143 JRST .+2
2790 033142 005 03 0 00 040072 ER AC,[ASCII /TST/];TLC SKIPPED.
2791 033143 645 03 0 04 000000 TLCA AC,(AC1) ;SHOULD SKIP
2792 033144 005 03 0 00 040072 ER AC,[ASCII /TST/]
2793 033145 312 03 0 00 040201 CAME AC,RAN ;C(AC) SHOULD=ORIG C(AC)
2794 033146 013 00 0 04 000000 EERRI ,(AC1)
2795 LOOP TLCA8,TLCA9^
2796 033147 367 02 0 00 033132 SOJG AC-1,TLCA8 ;ITERATION COUNTER
2797 033150 200 03 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2798 033151 321 02 0 00 033136 JUMPL AC-1,TLCA9 ;LOOP ON ERROR SWITCH ^
2799
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 53
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0084
2800
2801
2802 ;TEST TLCE, TLCN. CHECK FOR SKIP/NO SKIP AND
2803 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION
2804
2805
2806 000004 AC=4
2807 033152 TLCE1: SETUP 100,0^
2808 000005 AC1=<AC+1>&17
2809 000006 AC2=<AC+2>&17
2810 000007 AC3=<AC+3>&17
2811 000010 AC4=<AC+4>&17
2812 000011 AC5=<AC+5>&17
2813 000002 RAN1=<AC-2>&17
2814 033152 201 03 0 00 033152 MOVEI AC-1,.
2815 033153 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2816 033154 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2817 033155 202 03 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2818 033156 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2819 033157 240 03 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2820 033160 240 03 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2821 033161 TLCE2: RANDOM^
2822 033161 200 04 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2823 033162 270 04 0 00 040071 ADD AC,[142536475076]
2824 033163 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2825 033164 447 04 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
2826 033165 647 04 0 00 000000 TLCE3: TLCN AC,0 ;E+C(AC)L=0. NO SKIP
2827 033166 254 00 0 00 033170 JRST .+2
2828 033167 005 04 0 00 040072 ER AC,[ASCII /TST/];TLCN SKIPPED.
2829 033170 643 04 0 00 000000 TLCE AC,0 ;E+C(AC)L=0. SKIP
2830 033171 005 04 0 00 040072 ER AC,[ASCII /TST/]
2831 033172 312 04 0 00 040201 CAME AC,RAN ;C(AC) SHOULD=ORIG C(AC).
2832 033173 013 00 0 00 000000 EERRI ,0
2833 LOOP TLCE2,TLCE3^
2834 033174 367 03 0 00 033161 SOJG AC-1,TLCE2 ;ITERATION COUNTER
2835 033175 200 04 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2836 033176 321 03 0 00 033165 JUMPL AC-1,TLCE3 ;LOOP ON ERROR SWITCH ^
2837
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 54
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0085
2838
2839
2840 ;TEST TLCE, TLCN. CHECK FOR SKIP/NO SKIP AND
2841 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION.
2842
2843
2844 000005 AC=5
2845 033177 TLCE4: SETUP 100,0^
2846 000006 AC1=<AC+1>&17
2847 000007 AC2=<AC+2>&17
2848 000010 AC3=<AC+3>&17
2849 000011 AC4=<AC+4>&17
2850 000012 AC5=<AC+5>&17
2851 000003 RAN1=<AC-2>&17
2852 033177 201 04 0 00 033177 MOVEI AC-1,.
2853 033200 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2854 033201 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2855 033202 202 04 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2856 033203 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2857 033204 240 04 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2858 033205 240 04 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2859 033206 TLCE5: RANDOM^
2860 033206 200 05 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2861 033207 270 05 0 00 040071 ADD AC,[142536475076]
2862 033210 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2863 033211 447 05 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
2864 033212 435 05 0 00 000001 TLCE6: IORI AC,1 ;MAKE SURE A BIT IS SET IN E.
2865 033213 403 06 0 00 000003 SETZB AC1,RAN1 ;CLEAR C(AC).
2866 033214 647 06 0 05 000000 TLCN AC1,(AC) ;E+C(AC)L=0. NO SKIP.
2867 033215 254 00 0 00 033217 JRST .+2
2868 033216 005 06 0 00 040072 ER AC1,[ASCII /TST/];TLCN SKIPPED.
2869 033217 647 06 0 05 000000 TLCN AC1,(AC) ;E+C(AC)L NOT=0. SKIP
2870 033220 005 06 0 00 040072 ER AC1,[ASCII /TST/]
2871 033221 312 06 0 00 040074 CAME AC1,[0] ;C(AC) SHOULD=ORIG C(AC).
2872 033222 003 03 0 05 000000 ERRI RAN1,(AC)
2873 033223 643 06 0 05 000000 TLCE AC1,(AC) ;E+C(AC)L=0. SKIP
2874 033224 005 06 0 00 040072 ER AC1,[ASCII /TST/]
2875 033225 643 06 0 05 000000 TLCE AC1,(AC) ;E+C(AC)L NOT=0 NO SKIP
2876 033226 312 06 0 00 040074 CAME AC1,[0] ;C(AC) SHOULD=ORIG. C(AC)
2877 033227 003 03 0 05 000000 ERRI RAN1,(AC)
2878 LOOP TLCE5,TLCE6^
2879 033230 367 04 0 00 033206 SOJG AC-1,TLCE5 ;ITERATION COUNTER
2880 033231 200 05 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2881 033232 321 04 0 00 033212 JUMPL AC-1,TLCE6 ;LOOP ON ERROR SWITCH ^
2882
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 55
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0086
2883
2884
2885 ;TEST TLCE, TLCN CHECK FOR SKIP/NO SKIP AND
2886 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION
2887
2888
2889 000006 AC=6
2890 033233 TLCE7: SETUP 100,0^
2891 000007 AC1=<AC+1>&17
2892 000010 AC2=<AC+2>&17
2893 000011 AC3=<AC+3>&17
2894 000012 AC4=<AC+4>&17
2895 000013 AC5=<AC+5>&17
2896 000004 RAN1=<AC-2>&17
2897 033233 201 05 0 00 033233 MOVEI AC-1,.
2898 033234 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2899 033235 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2900 033236 202 05 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2901 033237 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2902 033240 240 05 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2903 033241 240 05 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2904 033242 TLCE8: RANDOM^
2905 033242 200 06 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2906 033243 270 06 0 00 040071 ADD AC,[142536475076]
2907 033244 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2908 033245 447 06 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
2909 033246 434 06 0 00 030705 TLCE9: IOR AC,TSTLFT ;SET A BIT IN AC LEFT.
2910 033247 204 07 0 00 000006 MOVS AC1,AC ;CHECK TO MAKE
2911 033250 201 07 0 07 000000 MOVEI AC1,(AC1) ;SURE C(AC)L DOES
2912 033251 306 07 0 00 777777 CAIN AC1,-1 ;NOT = -1.
2913 033252 254 00 0 00 033242 JRST TLCE8 ;REJECT IF IT DOES.
2914 033253 200 04 0 00 000006 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
2915 033254 643 06 0 00 777777 TLCE AC,-1 ;E+C(AC) L NOT=0. NO SKIP
2916 033255 254 00 0 00 033257 JRST .+2
2917 033256 005 06 0 00 040072 ER AC,[ASCII /TST/];TLCE SKIPPED.
2918 033257 647 06 0 00 777777 TLCN AC,-1 ;E+C(AC)L NOT=0. SKIP
2919 033260 005 06 0 00 040072 ER AC,[ASCII /TST/]
2920 033261 312 06 0 00 000004 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
2921 033262 003 04 0 00 777777 ERRI RAN1,-1
2922 LOOP TLCE8,TLCE9^
2923 033263 367 05 0 00 033242 SOJG AC-1,TLCE8 ;ITERATION COUNTER
2924 033264 200 06 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2925 033265 321 05 0 00 033246 JUMPL AC-1,TLCE9 ;LOOP ON ERROR SWITCH ^
2926
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 56
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0087
2927
2928
2929 ;TEST TLCE, TLCN. CHECK FOR SKIP/NO SKIP AND
2930 ;CORRECT DATA IN AC FOR RAN TO-1 CONDITION
2931
2932
2933 000007 AC=7
2934 033266 TLCN1: SETUP 100,0^
2935 000010 AC1=<AC+1>&17
2936 000011 AC2=<AC+2>&17
2937 000012 AC3=<AC+3>&17
2938 000013 AC4=<AC+4>&17
2939 000014 AC5=<AC+5>&17
2940 000005 RAN1=<AC-2>&17
2941 033266 201 06 0 00 033266 MOVEI AC-1,.
2942 033267 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2943 033270 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2944 033271 202 06 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2945 033272 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2946 033273 240 06 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2947 033274 240 06 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2948 033275 TLCN2: RANDOM^
2949 033275 200 07 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2950 033276 270 07 0 00 040071 ADD AC,[142536475076]
2951 033277 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2952 033300 447 07 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
2953 033301 435 07 0 00 000004 TLCN3: IORI AC,4 ;SET A BIT IN E.
2954 033302 477 10 0 00 000005 SETOB AC1,RAN1 ;MAKE C(AC)=-1
2955 033303 647 10 0 07 000000 TLCN AC1,(AC) ;E+C(AC)L NOT=0. SKIP
2956 033304 005 10 0 00 040072 ER AC1,[ASCII /TST/]
2957 033305 643 10 0 07 000000 TLCE AC1,(AC) ;E+C(AC)L=0. SKIP
2958 033306 005 10 0 00 040072 ER AC1,[ASCII /TST/]
2959 033307 312 10 0 00 040073 CAME AC1,[-1] ;C(AC) SHOULD=ORIG C(AC).
2960 033310 003 05 0 07 000000 ERRI RAN1,(AC)
2961 LOOP TLCN2,TLCN3^
2962 033311 367 06 0 00 033275 SOJG AC-1,TLCN2 ;ITERATION COUNTER
2963 033312 200 07 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2964 033313 321 06 0 00 033301 JUMPL AC-1,TLCN3 ;LOOP ON ERROR SWITCH ^
2965
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 57
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0088
2966
2967
2968 ;TEST TLCE, TLCN. CHECK FOR SKIP/NO SKIP AND
2969 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION
2970
2971
2972 000010 AC=10
2973 033314 TLCN4: SETUP 100,0^
2974 000011 AC1=<AC+1>&17
2975 000012 AC2=<AC+2>&17
2976 000013 AC3=<AC+3>&17
2977 000014 AC4=<AC+4>&17
2978 000015 AC5=<AC+5>&17
2979 000006 RAN1=<AC-2>&17
2980 033314 201 07 0 00 033314 MOVEI AC-1,.
2981 033315 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2982 033316 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2983 033317 202 07 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2984 033320 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2985 033321 240 07 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2986 033322 240 07 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2987 033323 TLCN5: RANDOM^
2988 033323 200 10 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2989 033324 270 10 0 00 040071 ADD AC,[142536475076]
2990 033325 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2991 033326 447 10 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
2992 033327 434 10 0 00 030706 TLCN6: IOR AC,TLFT1 ;MAKE SURE A BIT IS SET IN AC LEFT.
2993 033330 200 06 0 00 000010 MOVE RAN1,AC ;SAVE C(AC) FOR FUTURE COMPARE.
2994 033331 204 11 0 00 000010 MOVS AC1,AC ;MAKE "E"=C(AC)L
2995 033332 643 10 0 11 000000 TLCE AC,(AC1) ;E+C(AC)L NOT=0. NO SKIP
2996 033333 254 00 0 00 033335 JRST .+2
2997 033334 005 10 0 00 040072 ER AC,[ASCII /TST/];TLCE SKIPPED.
2998 033335 643 10 0 11 000000 TLCE AC,(AC1) ;E+C(AC)L=0 SKIP
2999 033336 005 10 0 00 040072 ER AC,[ASCII /TST/]
3000 033337 312 10 0 00 000006 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
3001 033340 003 06 0 11 000000 ERRI RAN1,(AC1)
3002 033341 647 10 0 11 000000 TLCN AC,(AC1) ;E+C(AC)L NOT=0. SKIP
3003 033342 005 10 0 00 040072 ER AC,[ASCII /TST/]
3004 033343 647 10 0 11 000000 TLCN AC,(AC1) ;E+C(AC)L=0. NO SKIP
3005 033344 312 10 0 00 000006 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
3006 033345 003 06 0 11 000000 ERRI RAN1,(AC1)
3007 LOOP TLCN5,TLCN6^
3008 033346 367 07 0 00 033323 SOJG AC-1,TLCN5 ;ITERATION COUNTER
3009 033347 200 10 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3010 033350 321 07 0 00 033327 JUMPL AC-1,TLCN6 ;LOOP ON ERROR SWITCH ^
3011
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 58
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0089
3012
3013
3014 ;TEST TLCE, TLCN. CHECK FOR SKIP/NO SKIP AND
3015 ;CORRECT DATA IN AC FOR E = TO A FLOATING ONE
3016 ;AND C(AC) = RAN. NUM. WITH THAT BIT CLEAR.
3017
3018
3019 000011 AC=11
3020 033351 TLCN7: SETUP 100,0^
3021 000012 AC1=<AC+1>&17
3022 000013 AC2=<AC+2>&17
3023 000014 AC3=<AC+3>&17
3024 000015 AC4=<AC+4>&17
3025 000016 AC5=<AC+5>&17
3026 000007 RAN1=<AC-2>&17
3027 033351 201 10 0 00 033351 MOVEI AC-1,.
3028 033352 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3029 033353 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3030 033354 202 10 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3031 033355 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3032 033356 240 10 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3033 033357 240 10 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3034 033360 201 12 0 00 000001 MOVEI AC1,1 ;SETUP E TO HAVE ONE BIT.
3035 033361 TLCN8: RANDOM^
3036 033361 200 11 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3037 033362 270 11 0 00 040071 ADD AC,[142536475076]
3038 033363 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3039 033364 447 11 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
3040 033365 241 12 0 00 000001 ROT AC1,1 ;ROT TO TEST NEXT BIT.
3041 033366 316 12 0 00 040075 CAMN AC1,[XWD 1,0] ;IS BIT ON LEFT SIDE?
3042 033367 201 12 0 00 000001 MOVEI AC1,1 ;YES. REINITAILIZE E.
3043 033370 204 13 0 00 000012 TLCN9: MOVS AC2,AC1 ;CLEAR THAT
3044 033371 420 11 0 00 000013 ANDCM AC,AC2 ;BIT IN AC.
3045 033372 200 07 0 00 000011 MOVE RAN1,AC ;SAVE C(AC) FOR FUTURE COMPARE.
3046 033373 647 11 0 12 000000 TLCN AC,(AC1) ;E + C(AC)L = 0...NO SKIP.
3047 033374 254 00 0 00 033376 JRST .+2
3048 033375 005 11 0 00 040072 ER AC,[ASCII /TST/];TLCN SKIPPED.
3049 033376 647 11 0 12 000000 TLCN AC,(AC1) ;E + C(AC)L NOT = 0...SKIP.
3050 033377 005 11 0 00 040072 ER AC,[ASCII /TST/]
3051 033400 312 11 0 00 000007 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
3052 033401 003 07 0 12 000000 ERRI RAN1,(AC1)
3053 033402 643 11 0 12 000000 TLCE AC,(AC1) ;E + C(AC)L = 0...SKIP.
3054 033403 005 11 0 00 040072 ER AC,[ASCII /TST/]
3055 033404 643 11 0 12 000000 TLCE AC,(AC1) ;E + C(AC)L NOT = 0...NO SKIP.
3056 033405 312 11 0 00 000007 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
3057 033406 003 07 0 12 000000 ERRI RAN1,(AC1)
3058 LOOP TLCN8,TLCN9^
3059 033407 367 10 0 00 033361 SOJG AC-1,TLCN8 ;ITERATION COUNTER
3060 033410 200 11 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3061 033411 321 10 0 00 033370 JUMPL AC-1,TLCN9 ;LOOP ON ERROR SWITCH ^
3062
3063
3064
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 59
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0090
3065
3066
3067 ;TEST SETZB. CHECK C(AC)=C(E), AND C(AC)=CORRECT DATA
3068 ;RAN TO RAN1.
3069
3070
3071 000002 AC=2
3072 033412 SETZB1: SETUP 100,0^
3073 000003 AC1=<AC+1>&17
3074 000004 AC2=<AC+2>&17
3075 000005 AC3=<AC+3>&17
3076 000006 AC4=<AC+4>&17
3077 000007 AC5=<AC+5>&17
3078 000000 RAN1=<AC-2>&17
3079 033412 201 01 0 00 033412 MOVEI AC-1,.
3080 033413 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3081 033414 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3082 033415 202 01 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3083 033416 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3084 033417 240 01 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3085 033420 240 01 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3086 033421 SETZB2: RANDOM^
3087 033421 200 02 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3088 033422 270 02 0 00 040071 ADD AC,[142536475076]
3089 033423 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3090 033424 447 02 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
3091 033425 207 00 0 00 000002 SETZB3: MOVSS RAN1,AC ;C(AC) = SEC. RAN. NUM.
3092 033426 200 03 0 00 040201 MOVE AC1,RAN ;C(E)=1'ST RAN NUM
3093 033427 403 02 0 00 000003 SETZB AC,AC1 ;DO A SETZB INST.
3094 033430 312 02 0 00 000003 CAME AC,AC1 ;C(AC) SHOULD=C(E).
3095 033431 011 00 0 00 000000 EERR ,RAN1
3096 033432 312 02 0 00 040074 CAME AC,[0] ;C(AC) SHOULD=0.
3097 033433 011 00 0 00 000000 EERR ,RAN1
3098 LOOP SETZB2,SETZB3^
3099 033434 367 01 0 00 033421 SOJG AC-1,SETZB2 ;ITERATION COUNTER
3100 033435 200 02 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3101 033436 321 01 0 00 033425 JUMPL AC-1,SETZB3 ;LOOP ON ERROR SWITCH ^
3102
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 60
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0091
3103
3104
3105 ;TEST ANDB. CHECK C(AC)=C(E), AND C(AC)=CORRECT DATA
3106 ;RAN TO RAN1
3107
3108
3109 000003 AC=3
3110 033437 ANDB1: SETUP 200,1^
3111 000004 AC1=<AC+1>&17
3112 000005 AC2=<AC+2>&17
3113 000006 AC3=<AC+3>&17
3114 000007 AC4=<AC+4>&17
3115 000010 AC5=<AC+5>&17
3116 000001 RAN1=<AC-2>&17
3117 033437 201 02 0 00 033437 MOVEI AC-1,.
3118 033440 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3119 033441 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3120 033442 202 02 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3121 033443 201 02 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
3122 033444 240 02 1 00 030666 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
3123 033445 240 02 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3124 033446 ANDB2: RANDOM^
3125 033446 200 03 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3126 033447 270 03 0 00 040071 ADD AC,[142536475076]
3127 033450 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3128 033451 447 03 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
3129 033452 207 01 0 00 000003 ANDB3: MOVSS RAN1,AC ;C(AC) = SEC. RAN. NUM.
3130 033453 200 04 0 00 040201 MOVE AC1,RAN ;C(E)=1'ST RAN NUM
3131 033454 200 05 0 00 040201 MOVE AC2,RAN ;SIMULATE
3132 033455 470 05 0 00 000003 ORCB AC2,AC ;AN
3133 033456 450 05 0 00 000000 SETCA AC2, ;"AND" INST.
3134 033457 407 03 0 00 000004 ANDB AC,AC1 ;DO AN ANDB INST.
3135 033460 312 03 0 00 000004 CAME AC,AC1 ;C(AC) SHOULD=C(E)
3136 033461 011 00 0 00 000001 EERR ,RAN1
3137 033462 312 03 0 00 000005 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS.
3138 033463 011 00 0 00 000001 EERR ,RAN1
3139 LOOP ANDB2,ANDB3^
3140 033464 367 02 0 00 033446 SOJG AC-1,ANDB2 ;ITERATION COUNTER
3141 033465 200 03 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3142 033466 321 02 0 00 033452 JUMPL AC-1,ANDB3 ;LOOP ON ERROR SWITCH ^
3143
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 61
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0092
3144
3145
3146 ;TEST ANDCAB. CHECK FOR C(AC)=C(E) AND C(AC)=CORRECT DATA.
3147 ;RAN TO RAN1
3148
3149
3150 000002 AC=2
3151 033467 ANCAB1: SETUP 200,1^
3152 000003 AC1=<AC+1>&17
3153 000004 AC2=<AC+2>&17
3154 000005 AC3=<AC+3>&17
3155 000006 AC4=<AC+4>&17
3156 000007 AC5=<AC+5>&17
3157 000000 RAN1=<AC-2>&17
3158 033467 201 01 0 00 033467 MOVEI AC-1,.
3159 033470 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3160 033471 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3161 033472 202 01 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3162 033473 201 01 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
3163 033474 240 01 1 00 030666 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
3164 033475 240 01 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3165 033476 ANCAB2: RANDOM^
3166 033476 200 02 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3167 033477 270 02 0 00 040071 ADD AC,[142536475076]
3168 033500 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3169 033501 447 02 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
3170 033502 207 00 0 00 000002 ANCAB3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
3171 033503 200 03 0 00 040201 MOVE AC1,RAN ;C(E)=1'ST RAN. NUM
3172 033504 200 04 0 00 040201 MOVE AC2,RAN ;SIMULATE
3173 033505 454 04 0 00 000002 ORCA AC2,AC ;AN
3174 033506 450 04 0 00 000000 SETCA AC2, ;ANDCA INST.
3175 033507 413 02 0 00 000003 ANDCAB AC,AC1 ;DO AN ANDCAB INST.
3176 033510 312 02 0 00 000003 CAME AC,AC1 ;C(AC) SHOULD=C(E)
3177 033511 011 00 0 00 000000 EERR ,RAN1
3178 033512 312 02 0 00 000004 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
3179 033513 011 00 0 00 000000 EERR ,RAN1
3180 LOOP ANCAB2,ANCAB3^
3181 033514 367 01 0 00 033476 SOJG AC-1,ANCAB2 ;ITERATION COUNTER
3182 033515 200 02 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3183 033516 321 01 0 00 033502 JUMPL AC-1,ANCAB3 ;LOOP ON ERROR SWITCH ^
3184
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 62
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0093
3185
3186
3187 ;TEST SETMB. CHECK FOR C(AC)=C(E), AND C(AC)=CORRECT DATA.
3188 ;RAN TO RAN1.
3189
3190
3191 000004 AC=4
3192 033517 SETMB1: SETUP 100,0^
3193 000005 AC1=<AC+1>&17
3194 000006 AC2=<AC+2>&17
3195 000007 AC3=<AC+3>&17
3196 000010 AC4=<AC+4>&17
3197 000011 AC5=<AC+5>&17
3198 000002 RAN1=<AC-2>&17
3199 033517 201 03 0 00 033517 MOVEI AC-1,.
3200 033520 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3201 033521 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3202 033522 202 03 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3203 033523 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3204 033524 240 03 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3205 033525 240 03 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3206 033526 SETMB2: RANDOM^
3207 033526 200 04 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3208 033527 270 04 0 00 040071 ADD AC,[142536475076]
3209 033530 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3210 033531 447 04 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
3211 033532 207 02 0 00 000004 SETMB3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
3212 033533 200 02 0 00 000004 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
3213 033534 200 05 0 00 040201 MOVE AC1,RAN
3214 033535 417 04 0 00 000005 SETMB AC,AC1 ;DO SETMB INST.
3215 033536 312 04 0 00 000005 CAME AC,AC1 ;C(AC) SHOULD=C(E)
3216 033537 011 00 0 00 000002 EERR ,RAN1
3217 033540 312 04 0 00 040201 CAME AC,RAN ;C(AC) SHOULD=ORIG. C(E)
3218 033541 011 00 0 00 000002 EERR ,RAN1
3219 LOOP SETMB2,SETMB3^
3220 033542 367 03 0 00 033526 SOJG AC-1,SETMB2 ;ITERATION COUNTER
3221 033543 200 04 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3222 033544 321 03 0 00 033532 JUMPL AC-1,SETMB3 ;LOOP ON ERROR SWITCH ^
3223
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 63
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0094
3224
3225
3226 ;TEST ANDCMB CHECK FOR C(AC)=C(E), AND CORRECT DATA IN AC.
3227 ;RAN TO RAN1.
3228
3229
3230 000004 AC=4
3231 033545 ANCMB1: SETUP 200,1^
3232 000005 AC1=<AC+1>&17
3233 000006 AC2=<AC+2>&17
3234 000007 AC3=<AC+3>&17
3235 000010 AC4=<AC+4>&17
3236 000011 AC5=<AC+5>&17
3237 000002 RAN1=<AC-2>&17
3238 033545 201 03 0 00 033545 MOVEI AC-1,.
3239 033546 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3240 033547 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3241 033550 202 03 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3242 033551 201 03 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
3243 033552 240 03 1 00 030666 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
3244 033553 240 03 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3245 033554 ANCMB2: RANDOM^
3246 033554 200 04 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3247 033555 270 04 0 00 040071 ADD AC,[142536475076]
3248 033556 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3249 033557 447 04 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
3250 033560 207 02 0 00 000004 ANCMB3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
3251 033561 200 05 0 00 040201 MOVE AC1,RAN ;C(E)-1'ST RAN NUM
3252 033562 200 06 0 00 040201 MOVE AC2,RAN ;SIMULATE
3253 033563 464 06 0 00 000004 ORCM AC2,AC ;AN
3254 033564 450 06 0 00 000000 SETCA AC2, ;ANDCM INST.
3255 033565 423 04 0 00 000005 ANDCMB AC,AC1 ;DO ANDCMB INST.
3256 033566 312 04 0 00 000005 CAME AC,AC1 ;C(AC) SHOULD=C(E).
3257 033567 011 00 0 00 000002 EERR ,RAN1
3258 033570 312 04 0 00 000006 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
3259 033571 011 00 0 00 000002 EERR ,RAN1
3260 LOOP ANCMB2,ANCMB3^
3261 033572 367 03 0 00 033554 SOJG AC-1,ANCMB2 ;ITERATION COUNTER
3262 033573 200 04 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3263 033574 321 03 0 00 033560 JUMPL AC-1,ANCMB3 ;LOOP ON ERROR SWITCH ^
3264
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 64
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0095
3265
3266
3267 ;TEST SETAB. CHECK FOR C(AC)=C(E), AND C(E)=CORRECT DATA
3268 ;RAN TO RAN1.
3269
3270
3271 000005 AC=5
3272 033575 SETAB1: SETUP 100,0^
3273 000006 AC1=<AC+1>&17
3274 000007 AC2=<AC+2>&17
3275 000010 AC3=<AC+3>&17
3276 000011 AC4=<AC+4>&17
3277 000012 AC5=<AC+5>&17
3278 000003 RAN1=<AC-2>&17
3279 033575 201 04 0 00 033575 MOVEI AC-1,.
3280 033576 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3281 033577 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3282 033600 202 04 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3283 033601 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3284 033602 240 04 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3285 033603 240 04 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3286 033604 SETAB2: RANDOM^
3287 033604 200 05 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3288 033605 270 05 0 00 040071 ADD AC,[142536475076]
3289 033606 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3290 033607 447 05 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
3291 033610 207 03 0 00 000005 SETAB3: MOVSS RAN1,AC ;C(AC) =SEC RAN NUM.
3292 033611 200 06 0 00 040201 MOVE AC1,RAN ;C(E)=1'ST RAN. NUM.
3293 033612 427 05 0 00 000006 SETAB AC,AC1 ;DO A SETAB INST.
3294 033613 312 05 0 00 000006 CAME AC,AC1 ;C(AC) SHOULD=C(E).
3295 033614 011 00 0 00 000003 EERR ,RAN1
3296 033615 312 06 0 00 000003 CAME AC1,RAN1 ;C(E) SHOULD=ORIG. C(AC).
3297 033616 011 00 0 00 000003 EERR ,RAN1
3298 LOOP SETAB2,SETAB3^
3299 033617 367 04 0 00 033604 SOJG AC-1,SETAB2 ;ITERATION COUNTER
3300 033620 200 05 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3301 033621 321 04 0 00 033610 JUMPL AC-1,SETAB3 ;LOOP ON ERROR SWITCH ^
3302
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 65
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0096
3303
3304
3305 ;TEST XORB. CHECK FOR C(AC)=C(E),AND CORRECT DATA IN AC.
3306 ;RAN TO RAN1.
3307
3308
3309 000006 AC=6
3310 033622 XORB1: SETUP 200,1^
3311 000007 AC1=<AC+1>&17
3312 000010 AC2=<AC+2>&17
3313 000011 AC3=<AC+3>&17
3314 000012 AC4=<AC+4>&17
3315 000013 AC5=<AC+5>&17
3316 000004 RAN1=<AC-2>&17
3317 033622 201 05 0 00 033622 MOVEI AC-1,.
3318 033623 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3319 033624 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3320 033625 202 05 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3321 033626 201 05 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
3322 033627 240 05 1 00 030666 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
3323 033630 240 05 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3324 033631 XORB2: RANDOM^
3325 033631 200 06 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3326 033632 270 06 0 00 040071 ADD AC,[142536475076]
3327 033633 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3328 033634 447 06 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
3329 033635 207 04 0 00 000006 XORB3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
3330 033636 200 07 0 00 040201 MOVE AC1,RAN ;C(E)=1'ST RAN. NUM
3331 033637 200 10 0 00 040201 MOVE AC2,RAN ;SIMULATE
3332 033640 444 10 0 00 000006 EQV AC2,AC ;AN
3333 033641 450 10 0 00 000000 SETCA AC2, ;XOR INST.
3334 033642 433 06 0 00 000007 XORB AC,AC1 ;DO AN XORB INST
3335 033643 312 06 0 00 000007 CAME AC,AC1 ;C(AC) SHOULD=C(E).
3336 033644 011 00 0 00 000004 EERR ,RAN1
3337 033645 312 06 0 00 000010 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
3338 033646 011 00 0 00 000004 EERR ,RAN1
3339 LOOP XORB2,XORB3^
3340 033647 367 05 0 00 033631 SOJG AC-1,XORB2 ;ITERATION COUNTER
3341 033650 200 06 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3342 033651 321 05 0 00 033635 JUMPL AC-1,XORB3 ;LOOP ON ERROR SWITCH ^
3343
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 66
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0097
3344
3345
3346 ;TEST IORB. CHECK FOR C(AC)=C(E), AND C(AC)=CORRECT DATA.
3347 ;RAN TO RAN1.
3348
3349
3350 000007 AC=7
3351 033652 IORB1: SETUP 200,1^
3352 000010 AC1=<AC+1>&17
3353 000011 AC2=<AC+2>&17
3354 000012 AC3=<AC+3>&17
3355 000013 AC4=<AC+4>&17
3356 000014 AC5=<AC+5>&17
3357 000005 RAN1=<AC-2>&17
3358 033652 201 06 0 00 033652 MOVEI AC-1,.
3359 033653 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3360 033654 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3361 033655 202 06 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3362 033656 201 06 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
3363 033657 240 06 1 00 030666 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
3364 033660 240 06 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3365 033661 IORB2: RANDOM^
3366 033661 200 07 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3367 033662 270 07 0 00 040071 ADD AC,[142536475076]
3368 033663 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3369 033664 447 07 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
3370 033665 207 05 0 00 000007 IORB3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
3371 033666 200 10 0 00 040201 MOVE AC1,RAN ;C(E)=1'ST RAN. NUM.
3372 033667 200 11 0 00 040201 MOVE AC2,RAN ;SIMULATE
3373 033670 420 11 0 00 000007 ANDCM AC2,AC ;AN
3374 033671 430 11 0 00 000007 XOR AC2,AC ;IOR INST.
3375 033672 437 07 0 00 000010 IORB AC,AC1 ;DO AN IORB INST
3376 033673 312 07 0 00 000010 CAME AC,AC1 ;C(AC) SHOULD=C(E).
3377 033674 011 00 0 00 000005 EERR ,RAN1
3378 033675 312 07 0 00 000011 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS.
3379 033676 011 00 0 00 000005 EERR ,RAN1
3380 LOOP IORB2,IORB3^
3381 033677 367 06 0 00 033661 SOJG AC-1,IORB2 ;ITERATION COUNTER
3382 033700 200 07 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3383 033701 321 06 0 00 033665 JUMPL AC-1,IORB3 ;LOOP ON ERROR SWITCH ^
3384
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 67
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0098
3385
3386
3387 ;TEST ANDCBB. CHECK C(AC)=C(E), AND C(AC)=CORRECT DATA.
3388 ;RAN TO RAN1
3389
3390
3391 000010 AC=10
3392 033702 ANCBB1: SETUP 200,1^
3393 000011 AC1=<AC+1>&17
3394 000012 AC2=<AC+2>&17
3395 000013 AC3=<AC+3>&17
3396 000014 AC4=<AC+4>&17
3397 000015 AC5=<AC+5>&17
3398 000006 RAN1=<AC-2>&17
3399 033702 201 07 0 00 033702 MOVEI AC-1,.
3400 033703 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3401 033704 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3402 033705 202 07 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3403 033706 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
3404 033707 240 07 1 00 030666 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
3405 033710 240 07 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3406 033711 ANCBB2: RANDOM^
3407 033711 200 10 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3408 033712 270 10 0 00 040071 ADD AC,[142536475076]
3409 033713 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3410 033714 447 10 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
3411 033715 207 06 0 00 000010 ANCBB3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
3412 033716 200 11 0 00 040201 MOVE AC1,RAN ;C(AC)=1'ST RAN. NUM
3413 033717 200 12 0 00 040201 MOVE AC2,RAN ;SIMULATE
3414 033720 434 12 0 00 000010 IOR AC2,AC ;AN
3415 033721 450 12 0 00 000000 SETCA AC2, ;ANDCB INST
3416 033722 443 10 0 00 000011 ANDCBB AC,AC1 ;DO AN ANDCBB INST
3417 033723 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD=C(E)
3418 033724 011 00 0 00 000006 EERR ,RAN1
3419 033725 312 10 0 00 000012 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
3420 033726 011 00 0 00 000006 EERR ,RAN1
3421 LOOP ANCBB2,ANCBB3^
3422 033727 367 07 0 00 033711 SOJG AC-1,ANCBB2 ;ITERATION COUNTER
3423 033730 200 10 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3424 033731 321 07 0 00 033715 JUMPL AC-1,ANCBB3 ;LOOP ON ERROR SWITCH ^
3425
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 68
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0099
3426
3427
3428 ;TEST EQVB. CHECK FOR C(AC)=C(E), AND CORRECT DATA IN AC.
3429 ;RAN TO RAN1
3430
3431
3432 000011 AC=11
3433 033732 EQVB1: SETUP 200,1^
3434 000012 AC1=<AC+1>&17
3435 000013 AC2=<AC+2>&17
3436 000014 AC3=<AC+3>&17
3437 000015 AC4=<AC+4>&17
3438 000016 AC5=<AC+5>&17
3439 000007 RAN1=<AC-2>&17
3440 033732 201 10 0 00 033732 MOVEI AC-1,.
3441 033733 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3442 033734 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3443 033735 202 10 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3444 033736 201 10 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
3445 033737 240 10 1 00 030666 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
3446 033740 240 10 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3447 033741 EQVB2: RANDOM^
3448 033741 200 11 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3449 033742 270 11 0 00 040071 ADD AC,[142536475076]
3450 033743 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3451 033744 447 11 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
3452 033745 207 07 0 00 000011 EQVB3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
3453 033746 200 12 0 00 040201 MOVE AC1,RAN ;C(E)=1'ST RAN. NUM.
3454 033747 200 13 0 00 040201 MOVE AC2,RAN ;SIMULATE
3455 033750 430 13 0 00 000011 XOR AC2,AC ;AN
3456 033751 450 13 0 00 000000 SETCA AC2, ;EQV INST1
3457 033752 447 11 0 00 000012 EQVB AC,AC1 ;NO AN EQVB INST.
3458 033753 312 11 0 00 000012 CAME AC,AC1 ;C(AC) SHOULD=C(E).
3459 033754 011 00 0 00 000007 EERR ,RAN1
3460 033755 312 11 0 00 000013 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
3461 033756 011 00 0 00 000007 EERR ,RAN1
3462 LOOP EQVB2,EQVB3^
3463 033757 367 10 0 00 033741 SOJG AC-1,EQVB2 ;ITERATION COUNTER
3464 033760 200 11 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3465 033761 321 10 0 00 033745 JUMPL AC-1,EQVB3 ;LOOP ON ERROR SWITCH ^
3466
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 69
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0100
3467
3468
3469 ;TEST SETCAB. CHECK FOR C(AC)=C(E), AND C(AC)=CORRECT DATA.
3470 ;RAN TO RAN1
3471
3472
3473 000004 AC=4
3474 033762 STCAB1: SETUP 100,0^
3475 000005 AC1=<AC+1>&17
3476 000006 AC2=<AC+2>&17
3477 000007 AC3=<AC+3>&17
3478 000010 AC4=<AC+4>&17
3479 000011 AC5=<AC+5>&17
3480 000002 RAN1=<AC-2>&17
3481 033762 201 03 0 00 033762 MOVEI AC-1,.
3482 033763 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3483 033764 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3484 033765 202 03 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3485 033766 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3486 033767 240 03 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3487 033770 240 03 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3488 033771 STCAB2: RANDOM^
3489 033771 200 04 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3490 033772 270 04 0 00 040071 ADD AC,[142536475076]
3491 033773 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3492 033774 447 04 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
3493 033775 207 02 0 00 000004 STCAB3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
3494 033776 200 05 0 00 040201 MOVE AC1,RAN ;C(E)=1'ST RAN. NUM
3495 033777 460 06 0 00 000004 SETCM AC2,AC ;SIMULATE A SETCA INST.
3496 034000 453 04 0 00 000005 SETCAB AC,AC1 ;DO SETCAB INST
3497 034001 312 04 0 00 000005 CAME AC,AC1 ;C(AC) SHOULD=C(E).
3498 034002 011 00 0 00 000002 EERR ,RAN1
3499 034003 312 04 0 00 000006 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
3500 034004 011 00 0 00 000002 EERR ,RAN1
3501 LOOP STCAB2,STCAB3^
3502 034005 367 03 0 00 033771 SOJG AC-1,STCAB2 ;ITERATION COUNTER
3503 034006 200 04 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3504 034007 321 03 0 00 033775 JUMPL AC-1,STCAB3 ;LOOP ON ERROR SWITCH ^
3505
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 70
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0101
3506
3507
3508 ;TEST ORCAB. CHECK FOR C(AC)=C(E), AND C(AC)=CORRECT DATA
3509 ;RAN TO RAN1
3510
3511
3512 000005 AC=5
3513 034010 ORCAB1: SETUP 200,1^
3514 000006 AC1=<AC+1>&17
3515 000007 AC2=<AC+2>&17
3516 000010 AC3=<AC+3>&17
3517 000011 AC4=<AC+4>&17
3518 000012 AC5=<AC+5>&17
3519 000003 RAN1=<AC-2>&17
3520 034010 201 04 0 00 034010 MOVEI AC-1,.
3521 034011 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3522 034012 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3523 034013 202 04 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3524 034014 201 04 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
3525 034015 240 04 1 00 030666 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
3526 034016 240 04 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3527 034017 ORCAB2: RANDOM^
3528 034017 200 05 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3529 034020 270 05 0 00 040071 ADD AC,[142536475076]
3530 034021 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3531 034022 447 05 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
3532 034023 207 03 0 00 000005 ORCAB3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
3533 034024 200 06 0 00 040201 MOVE AC1,RAN ;C(E) =1'ST RAN. NUM
3534 034025 460 07 0 00 000005 SETCM AC2,AC ;SIMULATE
3535 034026 434 07 0 00 040201 IOR AC2,RAN ;AN ORCA INST.
3536 034027 457 05 0 00 000006 ORCAB AC,AC1 ;DO AN ORCAB INST
3537 034030 312 05 0 00 000006 CAME AC,AC1 ;C(AC) SHOULD=C(E).
3538 034031 011 00 0 00 000003 EERR ,RAN1
3539 034032 312 05 0 00 000007 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
3540 034033 011 00 0 00 000003 EERR ,RAN1
3541 LOOP ORCAB2,ORCAB3^
3542 034034 367 04 0 00 034017 SOJG AC-1,ORCAB2 ;ITERATION COUNTER
3543 034035 200 05 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3544 034036 321 04 0 00 034023 JUMPL AC-1,ORCAB3 ;LOOP ON ERROR SWITCH ^
3545
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 71
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0102
3546
3547
3548 ;TEST SETCMB. CHECK FOR C(AC)=C(E), AND C(AC)=CORRECT DATA
3549 ;RAN TO RAN1
3550
3551
3552 000006 AC=6
3553 034037 STCMB1: SETUP 100,0^
3554 000007 AC1=<AC+1>&17
3555 000010 AC2=<AC+2>&17
3556 000011 AC3=<AC+3>&17
3557 000012 AC4=<AC+4>&17
3558 000013 AC5=<AC+5>&17
3559 000004 RAN1=<AC-2>&17
3560 034037 201 05 0 00 034037 MOVEI AC-1,.
3561 034040 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3562 034041 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3563 034042 202 05 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3564 034043 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3565 034044 240 05 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3566 034045 240 05 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3567 034046 STCMB2: RANDOM^
3568 034046 200 06 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3569 034047 270 06 0 00 040071 ADD AC,[142536475076]
3570 034050 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3571 034051 447 06 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
3572 034052 207 04 0 00 000006 STCMB3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
3573 034053 200 07 0 00 040201 MOVE AC1,RAN ;C(E)=1'ST RAN NUM.
3574 034054 200 10 0 00 040201 MOVE AC2,RAN ;SIMULATE
3575 034055 450 10 0 00 000000 SETCA AC2, ;A SETCM INST.
3576 034056 463 06 0 00 000007 SETCMB AC,AC1 ;DO A SETCMB INST.
3577 034057 312 06 0 00 000007 CAME AC,AC1 ;C(AC) SHOULD=C(E).
3578 034060 011 00 0 00 000004 EERR ,RAN1
3579 034061 312 06 0 00 000010 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS.
3580 034062 011 00 0 00 000004 EERR ,RAN1
3581 LOOP STCMB2,STCMB3^
3582 034063 367 05 0 00 034046 SOJG AC-1,STCMB2 ;ITERATION COUNTER
3583 034064 200 06 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3584 034065 321 05 0 00 034052 JUMPL AC-1,STCMB3 ;LOOP ON ERROR SWITCH ^
3585
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 72
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0103
3586
3587
3588 ;TEST ORCMB. CHECK FOR C(AC)=C(E), AND C(AC)=CORRECT DATA.
3589 ;RAN TO RAN1
3590
3591
3592 000007 AC=7
3593 034066 ORCMB1: SETUP 200,1^
3594 000010 AC1=<AC+1>&17
3595 000011 AC2=<AC+2>&17
3596 000012 AC3=<AC+3>&17
3597 000013 AC4=<AC+4>&17
3598 000014 AC5=<AC+5>&17
3599 000005 RAN1=<AC-2>&17
3600 034066 201 06 0 00 034066 MOVEI AC-1,.
3601 034067 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3602 034070 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3603 034071 202 06 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3604 034072 201 06 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
3605 034073 240 06 1 00 030666 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
3606 034074 240 06 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3607 034075 ORCMB2: RANDOM^
3608 034075 200 07 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3609 034076 270 07 0 00 040071 ADD AC,[142536475076]
3610 034077 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3611 034100 447 07 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
3612 034101 207 05 0 00 000007 ORCMB3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
3613 034102 200 10 0 00 040201 MOVE AC1,RAN ;C(E)=1'ST RAN. NUM
3614 034103 200 11 0 00 040201 MOVE AC2,RAN ;SIMULATE
3615 034104 420 11 0 00 000007 ANDCM AC2,AC ;AN
3616 034105 450 11 0 00 000000 SETCA AC2, ;ORCM INST.
3617 034106 467 07 0 00 000010 ORCMB AC,AC1 ;DO AN ORCMB INST.
3618 034107 312 07 0 00 000010 CAME AC,AC1 ;C(AC) SHOULD=C(E).
3619 034110 011 00 0 00 000005 EERR ,RAN1
3620 034111 312 07 0 00 000011 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS.
3621 034112 011 00 0 00 000005 EERR ,RAN1
3622 LOOP ORCMB2,ORCMB3^
3623 034113 367 06 0 00 034075 SOJG AC-1,ORCMB2 ;ITERATION COUNTER
3624 034114 200 07 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3625 034115 321 06 0 00 034101 JUMPL AC-1,ORCMB3 ;LOOP ON ERROR SWITCH ^
3626
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 73
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0104
3627
3628
3629 ;TEST ORCBB. CHECK FOR C(AC)=C(E), AND C(AC)=CORRECT DATA
3630 ;RAN TO RAN1.
3631
3632
3633 000010 AC=10
3634 034116 ORCBB1: SETUP 200,1^
3635 000011 AC1=<AC+1>&17
3636 000012 AC2=<AC+2>&17
3637 000013 AC3=<AC+3>&17
3638 000014 AC4=<AC+4>&17
3639 000015 AC5=<AC+5>&17
3640 000006 RAN1=<AC-2>&17
3641 034116 201 07 0 00 034116 MOVEI AC-1,.
3642 034117 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3643 034120 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3644 034121 202 07 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3645 034122 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
3646 034123 240 07 1 00 030666 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
3647 034124 240 07 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3648 034125 ORCBB2: RANDOM^
3649 034125 200 10 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3650 034126 270 10 0 00 040071 ADD AC,[142536475076]
3651 034127 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3652 034130 447 10 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
3653 034131 207 06 0 00 000010 ORCBB3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
3654 034132 200 11 0 00 040201 MOVE AC1,RAN ;C(E)=1'ST RAN NUM
3655 034133 200 12 0 00 040201 MOVE AC2,RAN ;SIMULATE
3656 034134 404 12 0 00 000010 AND AC2,AC ;AN
3657 034135 450 12 0 00 000000 SETCA AC2, ;ORCB INST.
3658 034136 473 10 0 00 000011 ORCBB AC,AC1 ;DO AN ORCBB INST.
3659 034137 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD=C(E).
3660 034140 011 00 0 00 000006 EERR ,RAN1
3661 034141 312 10 0 00 000012 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS
3662 034142 011 00 0 00 000006 EERR ,RAN1
3663 LOOP ORCBB2,ORCBB3^
3664 034143 367 07 0 00 034125 SOJG AC-1,ORCBB2 ;ITERATION COUNTER
3665 034144 200 10 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3666 034145 321 07 0 00 034131 JUMPL AC-1,ORCBB3 ;LOOP ON ERROR SWITCH ^
3667
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 74
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0105
3668
3669
3670 ;TEST SETOB. CHECK FOR C(AC)=C(E), AND C(AC)=-1.
3671 ;RAN TO RAN1
3672
3673
3674 000010 AC=10
3675 034146 STOB1: SETUP 100,0^
3676 000011 AC1=<AC+1>&17
3677 000012 AC2=<AC+2>&17
3678 000013 AC3=<AC+3>&17
3679 000014 AC4=<AC+4>&17
3680 000015 AC5=<AC+5>&17
3681 000006 RAN1=<AC-2>&17
3682 034146 201 07 0 00 034146 MOVEI AC-1,.
3683 034147 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3684 034150 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3685 034151 202 07 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3686 034152 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3687 034153 240 07 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3688 034154 240 07 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3689 034155 STOB2: RANDOM^
3690 034155 200 10 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3691 034156 270 10 0 00 040071 ADD AC,[142536475076]
3692 034157 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3693 034160 447 10 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
3694 034161 207 06 0 00 000010 STOB3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
3695 034162 200 11 0 00 040201 MOVE AC1,RAN ;C(E)=1'ST RAN. NUM
3696 034163 477 10 0 00 000011 SETOB AC,AC1 ;DO A SETOB INST.
3697 034164 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD=C(E).
3698 034165 011 00 0 00 000006 EERR ,RAN1
3699 034166 312 10 0 00 040073 CAME AC,[-1] ;C(AC) SHOULD=-1
3700 034167 011 00 0 00 000006 EERR ,RAN1
3701 LOOP STOB2,STOB3^
3702 034170 367 07 0 00 034155 SOJG AC-1,STOB2 ;ITERATION COUNTER
3703 034171 200 10 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3704 034172 321 07 0 00 034161 JUMPL AC-1,STOB3 ;LOOP ON ERROR SWITCH ^
3705
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 75
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0106
3706
3707
3708 ;TEST HLL. CHECK C(AC) FOR CORRECT DATA
3709 ;RAN TO RAN1.
3710
3711
3712 000003 AC=3
3713 034173 HLL1: SETUP 100,0^
3714 000004 AC1=<AC+1>&17
3715 000005 AC2=<AC+2>&17
3716 000006 AC3=<AC+3>&17
3717 000007 AC4=<AC+4>&17
3718 000010 AC5=<AC+5>&17
3719 000001 RAN1=<AC-2>&17
3720 034173 201 02 0 00 034173 MOVEI AC-1,.
3721 034174 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3722 034175 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3723 034176 202 02 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3724 034177 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3725 034200 240 02 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3726 034201 240 02 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3727 034202 HLL2: RANDOM^
3728 034202 200 03 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3729 034203 270 03 0 00 040071 ADD AC,[142536475076]
3730 034204 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3731 034205 447 03 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
3732 034206 241 03 0 00 000011 HLL3: ROT AC,11 ;MAKE C(AC) A DIFFERENT RAN NUM.
3733 034207 200 01 0 00 000003 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
3734 034210 201 04 0 03 000000 MOVEI AC1,(AC) ;SIMULATE
3735 034211 204 05 0 00 040201 MOVS AC2,RAN ;A
3736 034212 661 04 0 05 000000 TLO AC1,(AC2) ;HLL.
3737 034213 500 03 0 00 040201 HLL AC,RAN ;DO HLL.
3738 034214 312 03 0 00 000004 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
3739 034215 001 04 0 00 000001 ERR AC1,RAN1
3740 LOOP HLL2,HLL3^
3741 034216 367 02 0 00 034202 SOJG AC-1,HLL2 ;ITERATION COUNTER
3742 034217 200 03 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3743 034220 321 02 0 00 034206 JUMPL AC-1,HLL3 ;LOOP ON ERROR SWITCH ^
3744
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 76
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0107
3745
3746
3747 ;TEST HLLI. CHECK C(AC) FOR CORRECT DATA
3748 ;RAN TO RAN1.
3749
3750
3751 000003 AC=3
3752 034221 HLLI1: SETUP 100,0^
3753 000004 AC1=<AC+1>&17
3754 000005 AC2=<AC+2>&17
3755 000006 AC3=<AC+3>&17
3756 000007 AC4=<AC+4>&17
3757 000010 AC5=<AC+5>&17
3758 000001 RAN1=<AC-2>&17
3759 034221 201 02 0 00 034221 MOVEI AC-1,.
3760 034222 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3761 034223 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3762 034224 202 02 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3763 034225 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3764 034226 240 02 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3765 034227 240 02 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3766 034230 HLLI2: RANDOM^
3767 034230 200 03 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3768 034231 270 03 0 00 040071 ADD AC,[142536475076]
3769 034232 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3770 034233 447 03 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
3771 034234 200 05 0 00 040201 MOVE AC2,RAN ;SAVE E.
3772 034235 241 03 0 00 000011 HLLI3: ROT AC,11 ;MAKE C(AC) DIFF. RAN. NUM.
3773 034236 200 01 0 00 000003 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
3774 034237 201 04 0 03 000000 MOVEI AC1,(AC) ;SIMULATE A HLLI.
3775 034240 501 03 0 05 000000 HLLI AC,(AC2) ;DO HLLI.
3776 034241 312 03 0 00 000004 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
3777 034242 003 01 0 05 000000 ERRI RAN1,(AC2)
3778 LOOP HLLI2,HLLI3^
3779 034243 367 02 0 00 034230 SOJG AC-1,HLLI2 ;ITERATION COUNTER
3780 034244 200 03 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3781 034245 321 02 0 00 034235 JUMPL AC-1,HLLI3 ;LOOP ON ERROR SWITCH ^
3782
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 77
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0108
3783
3784
3785 ;TEST HLLM. CHECK C(E) FOR CORRECT DATA.
3786 ;RAN1 TO RAN1.
3787
3788
3789 000003 AC=3
3790 034246 HLLM1: SETUP 100,0^
3791 000004 AC1=<AC+1>&17
3792 000005 AC2=<AC+2>&17
3793 000006 AC3=<AC+3>&17
3794 000007 AC4=<AC+4>&17
3795 000010 AC5=<AC+5>&17
3796 000001 RAN1=<AC-2>&17
3797 034246 201 02 0 00 034246 MOVEI AC-1,.
3798 034247 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3799 034250 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3800 034251 202 02 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3801 034252 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3802 034253 240 02 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3803 034254 240 02 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3804 034255 HLLM2: RANDOM^
3805 034255 200 03 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3806 034256 270 03 0 00 040071 ADD AC,[142536475076]
3807 034257 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3808 034260 447 03 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
3809 034261 200 06 0 00 040201 MOVE AC3,RAN ;SAVE C(AC) IN CASE OF ERROR.
3810 034262 241 03 0 00 000011 HLLM3: ROT AC,11 ;MAKE C (E) A DIFFERENT RAN NUM
3811 034263 202 03 0 00 000001 MOVEM AC,RAN1 ;SAVE IN CASE OF ERROR
3812 034264 201 04 0 03 000000 MOVEI AC1,(AC) ;SIMULATE
3813 034265 204 05 0 00 040201 MOVS AC2,RAN ;A
3814 034266 661 04 0 05 000000 TLO AC1,(AC2) ;HLLM
3815 034267 502 06 0 00 000003 HLLM AC3,AC ;DO HLLM.
3816 034270 312 04 0 00 000003 CAME AC1,AC ;C(E) SHOULD=SIM ANS
3817 034271 002 01 0 00 000006 ERRM RAN1,AC3
3818 LOOP HLLM2,HLLM3^
3819 034272 367 02 0 00 034255 SOJG AC-1,HLLM2 ;ITERATION COUNTER
3820 034273 200 03 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3821 034274 321 02 0 00 034262 JUMPL AC-1,HLLM3 ;LOOP ON ERROR SWITCH ^
3822
3823
3824
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 78
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0109
3825
3826
3827 ;TEST HLLS.
3828 ;CHECK C(E), C(E) SHOULD NOT CHANGE, AND CORRECT
3829 ;LOADING OF C(E) INTO AC.
3830 ;RAN TO RAN.
3831
3832
3833 000004 AC=4
3834 034275 HLLS1: SETUP 100,0^
3835 000005 AC1=<AC+1>&17
3836 000006 AC2=<AC+2>&17
3837 000007 AC3=<AC+3>&17
3838 000010 AC4=<AC+4>&17
3839 000011 AC5=<AC+5>&17
3840 000002 RAN1=<AC-2>&17
3841 034275 201 03 0 00 034275 MOVEI AC-1,.
3842 034276 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3843 034277 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3844 034300 202 03 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3845 034301 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3846 034302 240 03 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3847 034303 240 03 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3848 034304 HLLS2: RANDOM^
3849 034304 200 04 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3850 034305 270 04 0 00 040071 ADD AC,[142536475076]
3851 034306 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3852 034307 447 04 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
3853 034310 200 06 0 00 040201 MOVE AC2,RAN ;SAVE RAN FOR FUTURE COMPARE.
3854 034311 477 05 0 00 000002 HLLS3: SETOB AC1,RAN1 ;MAKE C (AC)=-1
3855 034312 503 05 0 00 000004 HLLS AC1,AC ;DO HLLS
3856 034313 312 05 0 00 000004 CAME AC1,AC ;C(AC) SHOULD=C(E)
3857 034314 012 00 0 00 000002 EERRM ,RAN1
3858 034315 312 06 0 00 000004 CAME AC2,AC ;C(E) SHOULD = ORIG C(AC).
3859 034316 012 00 0 00 000002 EERRM ,RAN1
3860 LOOP HLLS2,HLLS3^
3861 034317 367 03 0 00 034304 SOJG AC-1,HLLS2 ;ITERATION COUNTER
3862 034320 200 04 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3863 034321 321 03 0 00 034311 JUMPL AC-1,HLLS3 ;LOOP ON ERROR SWITCH ^
3864
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 79
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0110
3865
3866
3867 ;TEST HRR. CHECK C(AC) FOR CORRECT DATA
3868 ;RAN TO RAN1.
3869
3870
3871 000005 AC=5
3872 034322 HRR1: SETUP 100,0^
3873 000006 AC1=<AC+1>&17
3874 000007 AC2=<AC+2>&17
3875 000010 AC3=<AC+3>&17
3876 000011 AC4=<AC+4>&17
3877 000012 AC5=<AC+5>&17
3878 000003 RAN1=<AC-2>&17
3879 034322 201 04 0 00 034322 MOVEI AC-1,.
3880 034323 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3881 034324 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3882 034325 202 04 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3883 034326 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3884 034327 240 04 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3885 034330 240 04 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3886 034331 HRR2: RANDOM^
3887 034331 200 05 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3888 034332 270 05 0 00 040071 ADD AC,[142536475076]
3889 034333 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3890 034334 447 05 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
3891 034335 200 07 0 00 040201 MOVE AC2,RAN ;SAVE RAN IN ANOTHER AC.
3892 034336 241 05 0 00 000011 HRR3: ROT AC,11 ;MAKE C(AC) A DIFFERENT RAN NUM
3893 034337 200 03 0 00 000005 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
3894 034340 200 06 0 00 000005 MOVE AC1,AC ;SIMULATE
3895 034341 620 06 0 00 777777 TRZ AC1,-1 ;A
3896 034342 660 06 0 07 000000 TRO AC1,(AC2) ;HRR.
3897 034343 540 05 0 00 040201 HRR AC,RAN ;DO HRR
3898 034344 312 05 0 00 000006 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
3899 034345 001 07 0 00 000003 ERR AC2,RAN1
3900 LOOP HRR2,HRR3^
3901 034346 367 04 0 00 034331 SOJG AC-1,HRR2 ;ITERATION COUNTER
3902 034347 200 05 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3903 034350 321 04 0 00 034336 JUMPL AC-1,HRR3 ;LOOP ON ERROR SWITCH ^
3904
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 80
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0111
3905
3906
3907 ;TEST HRRI. CHECK C(AC) FOR CORRECT DATA
3908 ;RAN TO RAN1
3909
3910
3911 000006 AC=6
3912 034351 HRRI1: SETUP 100,0^
3913 000007 AC1=<AC+1>&17
3914 000010 AC2=<AC+2>&17
3915 000011 AC3=<AC+3>&17
3916 000012 AC4=<AC+4>&17
3917 000013 AC5=<AC+5>&17
3918 000004 RAN1=<AC-2>&17
3919 034351 201 05 0 00 034351 MOVEI AC-1,.
3920 034352 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3921 034353 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3922 034354 202 05 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3923 034355 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3924 034356 240 05 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3925 034357 240 05 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3926 034360 HRRI2: RANDOM^
3927 034360 200 06 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3928 034361 270 06 0 00 040071 ADD AC,[142536475076]
3929 034362 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3930 034363 447 06 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
3931 034364 200 10 0 00 040201 MOVE AC2,RAN ;SAVE E.
3932 034365 241 06 0 00 000011 HRRI3: ROT AC,11 ;MAKE C(AC)=DIFFERENT RAN. NUM
3933 034366 200 04 0 00 000006 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF AN ERROR
3934 034367 200 07 0 00 000006 MOVE AC1,AC ;SIMULATE
3935 034370 620 07 0 00 777777 TRZ AC1,-1 ;A
3936 034371 660 07 0 10 000000 TRO AC1,(AC2) ;HRRI.
3937 034372 541 06 0 10 000000 HRRI AC,(AC2) ;DO HRRI.
3938 034373 312 06 0 00 000007 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
3939 034374 003 04 0 10 000000 ERRI RAN1,(AC2)
3940 LOOP HRRI2,HRRI3^
3941 034375 367 05 0 00 034360 SOJG AC-1,HRRI2 ;ITERATION COUNTER
3942 034376 200 06 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3943 034377 321 05 0 00 034365 JUMPL AC-1,HRRI3 ;LOOP ON ERROR SWITCH ^
3944
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 81
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0112
3945
3946
3947 ;TEST HRRM. CHECK C(E) FOR CORRECT DATA.
3948 ;RAN TO RAN1
3949
3950
3951 000007 AC=7
3952 034400 HRRM1: SETUP 100,0^
3953 000010 AC1=<AC+1>&17
3954 000011 AC2=<AC+2>&17
3955 000012 AC3=<AC+3>&17
3956 000013 AC4=<AC+4>&17
3957 000014 AC5=<AC+5>&17
3958 000005 RAN1=<AC-2>&17
3959 034400 201 06 0 00 034400 MOVEI AC-1,.
3960 034401 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3961 034402 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3962 034403 202 06 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3963 034404 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3964 034405 240 06 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3965 034406 240 06 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3966 034407 HRRM2: RANDOM^
3967 034407 200 07 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3968 034410 270 07 0 00 040071 ADD AC,[142536475076]
3969 034411 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3970 034412 447 07 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
3971 034413 200 11 0 00 040201 MOVE AC2,RAN ;SAVE C(AC).
3972 034414 241 07 0 00 000011 HRRM3: ROT AC,11 ;MAKE C(E)=DIFFERENT RAN. NUM
3973 034415 200 05 0 00 000007 MOVE RAN1,AC ;SAVE IN CASE OF ERROR
3974 034416 200 10 0 00 000007 MOVE AC1,AC ;SIMULATE
3975 034417 620 10 0 00 777777 TRZ AC1,-1 ;A
3976 034420 660 10 0 11 000000 TRO AC1,(AC2) ;HRRM.
3977 034421 542 11 0 00 000007 HRRM AC2,AC ;DO HRRM.
3978 034422 312 10 0 00 000007 CAME AC1,AC ;C(E) SHOULD=SIM. ANS.
3979 034423 002 05 0 00 040201 ERRM RAN1,RAN
3980 LOOP HRRM2,HRRM3^
3981 034424 367 06 0 00 034407 SOJG AC-1,HRRM2 ;ITERATION COUNTER
3982 034425 200 07 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3983 034426 321 06 0 00 034414 JUMPL AC-1,HRRM3 ;LOOP ON ERROR SWITCH ^
3984
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 82
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0113
3985
3986
3987 ;TEST HRRS. CHECK C(E) FOR NOT CHANGING, AND
3988 ;CORRECT STORING OF C(E) INTO AC.
3989 ;RAN TO RAN
3990
3991
3992 000010 AC=10
3993 034427 HRRS1: SETUP 100,0^
3994 000011 AC1=<AC+1>&17
3995 000012 AC2=<AC+2>&17
3996 000013 AC3=<AC+3>&17
3997 000014 AC4=<AC+4>&17
3998 000015 AC5=<AC+5>&17
3999 000006 RAN1=<AC-2>&17
4000 034427 201 07 0 00 034427 MOVEI AC-1,.
4001 034430 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4002 034431 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4003 034432 202 07 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4004 034433 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4005 034434 240 07 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4006 034435 240 07 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4007 034436 HRRS2: RANDOM^
4008 034436 200 10 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4009 034437 270 10 0 00 040071 ADD AC,[142536475076]
4010 034440 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4011 034441 447 10 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
4012 034442 200 12 0 00 040201 MOVE AC2,RAN ;SAVE C(AC).
4013 034443 477 11 0 00 000006 HRRS3: SETOB AC1,RAN1 ;SET C(AC)=-1
4014 034444 543 11 0 00 000010 HRRS AC1,AC ;DO HRRS
4015 034445 312 11 0 00 000010 CAME AC1,AC ;C(AC) SHOULD=C(E)
4016 034446 002 12 0 00 000006 ERRM AC2,RAN1
4017 034447 312 12 0 00 000010 CAME AC2,AC ;C(E) SHOULD = ORIG. C(E).
4018 034450 002 12 0 00 000006 ERRM AC2,RAN1
4019 LOOP HRRS2,HRRS3^
4020 034451 367 07 0 00 034436 SOJG AC-1,HRRS2 ;ITERATION COUNTER
4021 034452 200 10 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4022 034453 321 07 0 00 034443 JUMPL AC-1,HRRS3 ;LOOP ON ERROR SWITCH ^
4023
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 83
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0114
4024
4025
4026 ;TEST HRL. CHECK C(AC) FOR CORRECT DATA
4027 ;RAN TO RAN1.
4028
4029
4030 000011 AC=11
4031 034454 HRL1: SETUP 140,0^
4032 000012 AC1=<AC+1>&17
4033 000013 AC2=<AC+2>&17
4034 000014 AC3=<AC+3>&17
4035 000015 AC4=<AC+4>&17
4036 000016 AC5=<AC+5>&17
4037 000007 RAN1=<AC-2>&17
4038 034454 201 10 0 00 034454 MOVEI AC-1,.
4039 034455 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4040 034456 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4041 034457 202 10 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4042 034460 201 10 0 00 000140 MOVEI AC-1,140 ;ROUTINE WEIGHTING
4043 034461 240 10 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4044 034462 240 10 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4045 034463 HRL2: RANDOM^
4046 034463 200 11 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4047 034464 270 11 0 00 040071 ADD AC,[142536475076]
4048 034465 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4049 034466 447 11 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
4050 034467 200 13 0 00 040201 MOVE AC2,RAN ;SAVE C(E).
4051 034470 241 11 0 00 000011 HRL3: ROT AC,11 ;C(AC)=SECOND RANDOM NUM
4052 034471 200 07 0 00 000011 MOVE RAN1,AC ;SAVE IN CASE OF ERROR.
4053 034472 205 12 0 13 000000 MOVSI AC1,(AC2) ;SIMULATE
4054 034473 660 12 0 11 000000 TRO AC1,(AC) ;A HRL
4055 034474 504 11 0 00 040201 HRL AC,RAN ;DO HRL
4056 034475 312 11 0 00 000012 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
4057 034476 001 13 0 00 000007 ERR AC2,RAN1
4058 LOOP HRL2,HRL3^
4059 034477 367 10 0 00 034463 SOJG AC-1,HRL2 ;ITERATION COUNTER
4060 034500 200 11 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4061 034501 321 10 0 00 034470 JUMPL AC-1,HRL3 ;LOOP ON ERROR SWITCH ^
4062
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 84
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0115
4063
4064
4065 ;TEST HRLI. CHECK C(AC)FOR CORRECT DATA.
4066 ;RAN TO RAN1
4067
4068
4069 000004 AC=4
4070 034502 HRLI1: SETUP 140,0^
4071 000005 AC1=<AC+1>&17
4072 000006 AC2=<AC+2>&17
4073 000007 AC3=<AC+3>&17
4074 000010 AC4=<AC+4>&17
4075 000011 AC5=<AC+5>&17
4076 000002 RAN1=<AC-2>&17
4077 034502 201 03 0 00 034502 MOVEI AC-1,.
4078 034503 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4079 034504 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4080 034505 202 03 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4081 034506 201 03 0 00 000140 MOVEI AC-1,140 ;ROUTINE WEIGHTING
4082 034507 240 03 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4083 034510 240 03 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4084 034511 HRLI2: RANDOM^
4085 034511 200 04 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4086 034512 270 04 0 00 040071 ADD AC,[142536475076]
4087 034513 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4088 034514 447 04 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
4089 034515 200 06 0 00 040201 MOVE AC2,RAN ;SAVE E.
4090 034516 241 04 0 00 000011 HRLI3: ROT AC,11 ;C(AC)=SECOND RAN NUM
4091 034517 200 02 0 00 000004 MOVE RAN1,AC ;SAVE IN CASE OF ERROR.
4092 034520 205 05 0 06 000000 MOVSI AC1,(AC2) ;SIMULATE
4093 034521 660 05 0 04 000000 TRO AC1,(AC) ;A HRLI
4094 034522 505 04 0 06 000000 HRLI AC,(AC2) ;DO HRLI.
4095 034523 312 04 0 00 000005 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
4096 034524 003 02 0 06 000000 ERRI RAN1,(AC2)
4097 LOOP HRLI2,HRLI3^
4098 034525 367 03 0 00 034511 SOJG AC-1,HRLI2 ;ITERATION COUNTER
4099 034526 200 04 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4100 034527 321 03 0 00 034516 JUMPL AC-1,HRLI3 ;LOOP ON ERROR SWITCH ^
4101
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 85
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0116
4102
4103
4104 ;TEST HRLM. CHECK C(E) FOR CORRECT DATA.
4105 ;RAN TO RAN1
4106
4107
4108 000005 AC=5
4109 034530 HRLM1: SETUP 140,0^
4110 000006 AC1=<AC+1>&17
4111 000007 AC2=<AC+2>&17
4112 000010 AC3=<AC+3>&17
4113 000011 AC4=<AC+4>&17
4114 000012 AC5=<AC+5>&17
4115 000003 RAN1=<AC-2>&17
4116 034530 201 04 0 00 034530 MOVEI AC-1,.
4117 034531 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4118 034532 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4119 034533 202 04 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4120 034534 201 04 0 00 000140 MOVEI AC-1,140 ;ROUTINE WEIGHTING
4121 034535 240 04 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4122 034536 240 04 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4123 034537 HRLM2: RANDOM^
4124 034537 200 05 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4125 034540 270 05 0 00 040071 ADD AC,[142536475076]
4126 034541 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4127 034542 447 05 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
4128 034543 200 07 0 00 040201 MOVE AC2,RAN ;SAVE RAN IN AN AC.
4129 034544 241 05 0 00 000011 HRLM3: ROT AC,11 ;C(E)=SECOND RAN NUM
4130 034545 200 03 0 00 000005 MOVE RAN1,AC ;SAVE IN CASE OF ERROR
4131 034546 205 06 0 07 000000 MOVSI AC1,(AC2) ;SIMULATE
4132 034547 660 06 0 05 000000 TRO AC1,(AC) ;A HRLM
4133 034550 506 07 0 00 000005 HRLM AC2,AC ;DO HRLM.
4134 034551 312 06 0 00 000005 CAME AC1,AC ;C(E) SHOULD=SIM. ANS.
4135 034552 002 03 0 00 040201 ERRM RAN1,RAN
4136 LOOP HRLM2,HRLM3^
4137 034553 367 04 0 00 034537 SOJG AC-1,HRLM2 ;ITERATION COUNTER
4138 034554 200 05 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4139 034555 321 04 0 00 034544 JUMPL AC-1,HRLM3 ;LOOP ON ERROR SWITCH ^
4140
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 86
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0117
4141
4142
4143 ;TEST HRLS. CHECK C(E) FOR CORRECT DATA, AND
4144 ;CORRECT STORING OF C(E) INTO AC.
4145 ;RAN TO RAN
4146
4147
4148 000006 AC=6
4149 034556 HRLS1: SETUP 140,0^
4150 000007 AC1=<AC+1>&17
4151 000010 AC2=<AC+2>&17
4152 000011 AC3=<AC+3>&17
4153 000012 AC4=<AC+4>&17
4154 000013 AC5=<AC+5>&17
4155 000004 RAN1=<AC-2>&17
4156 034556 201 05 0 00 034556 MOVEI AC-1,.
4157 034557 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4158 034560 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4159 034561 202 05 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4160 034562 201 05 0 00 000140 MOVEI AC-1,140 ;ROUTINE WEIGHTING
4161 034563 240 05 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4162 034564 240 05 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4163 034565 HRLS2: RANDOM^
4164 034565 200 06 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4165 034566 270 06 0 00 040071 ADD AC,[142536475076]
4166 034567 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4167 034570 447 06 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
4168 034571 477 07 0 00 000004 HRLS3: SETOB AC1,RAN1 ;SET C(AC) TO -1
4169 034572 205 10 0 06 000000 MOVSI AC2,(AC) ;SIMULATE
4170 034573 660 10 0 06 000000 TRO AC2,(AC) ;A HRLS
4171 034574 507 07 0 00 000006 HRLS AC1,AC ;DO HRLS
4172 034575 312 07 0 00 000006 CAME AC1,AC ;C(AC) SHOULD=C(F) AFTER HRLS
4173 034576 012 00 0 00 000004 EERRM ,RAN1
4174 034577 312 10 0 00 000006 CAME AC2,AC ;C(E) SHOULD=SIM. ANS
4175 034600 012 00 0 00 000004 EERRM ,RAN1
4176 LOOP HRLS2,HRLS3^
4177 034601 367 05 0 00 034565 SOJG AC-1,HRLS2 ;ITERATION COUNTER
4178 034602 200 06 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4179 034603 321 05 0 00 034571 JUMPL AC-1,HRLS3 ;LOOP ON ERROR SWITCH ^
4180
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 87
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0118
4181
4182
4183 ;TEST HLR. CHECK C(AC) FOR CORRECT DATA
4184 ;RAN TO RAN1
4185
4186
4187 000007 AC=7
4188 034604 HLR1: SETUP 140,0^
4189 000010 AC1=<AC+1>&17
4190 000011 AC2=<AC+2>&17
4191 000012 AC3=<AC+3>&17
4192 000013 AC4=<AC+4>&17
4193 000014 AC5=<AC+5>&17
4194 000005 RAN1=<AC-2>&17
4195 034604 201 06 0 00 034604 MOVEI AC-1,.
4196 034605 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4197 034606 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4198 034607 202 06 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4199 034610 201 06 0 00 000140 MOVEI AC-1,140 ;ROUTINE WEIGHTING
4200 034611 240 06 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4201 034612 240 06 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4202 034613 HLR2: RANDOM^
4203 034613 200 07 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4204 034614 270 07 0 00 040071 ADD AC,[142536475076]
4205 034615 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4206 034616 447 07 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
4207 034617 241 07 0 00 000011 HLR3: ROT AC,11 ;C(AC)=SECOND RAN NUM
4208 034620 200 05 0 00 000007 MOVE RAN1,AC ;SAVE IN CASE OF ERROR
4209 034621 200 10 0 00 000007 MOVE AC1,AC ;SIMULATE
4210 034622 620 10 0 00 777777 TRZ AC1,-1 ;A
4211 034623 204 11 0 00 040201 MOVS AC2,RAN ;HLR
4212 034624 660 10 0 11 000000 TRO AC1,(AC2) ;INST
4213 034625 544 07 0 00 040201 HLR AC,RAN ;DO HLR
4214 034626 312 07 0 00 000010 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
4215 034627 011 00 0 00 000005 EERR ,RAN1
4216 LOOP HLR2,HLR3^
4217 034630 367 06 0 00 034613 SOJG AC-1,HLR2 ;ITERATION COUNTER
4218 034631 200 07 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4219 034632 321 06 0 00 034617 JUMPL AC-1,HLR3 ;LOOP ON ERROR SWITCH ^
4220
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 88
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0119
4221
4222
4223 ;TEST HLRI. CHECK C(AC) FOR CORRECT DATA
4224 ;RAN TO RAN1
4225
4226
4227 000010 AC=10
4228 034633 HLRI1: SETUP 140,0^
4229 000011 AC1=<AC+1>&17
4230 000012 AC2=<AC+2>&17
4231 000013 AC3=<AC+3>&17
4232 000014 AC4=<AC+4>&17
4233 000015 AC5=<AC+5>&17
4234 000006 RAN1=<AC-2>&17
4235 034633 201 07 0 00 034633 MOVEI AC-1,.
4236 034634 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4237 034635 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4238 034636 202 07 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4239 034637 201 07 0 00 000140 MOVEI AC-1,140 ;ROUTINE WEIGHTING
4240 034640 240 07 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4241 034641 240 07 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4242 034642 HLRI2: RANDOM^
4243 034642 200 10 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4244 034643 270 10 0 00 040071 ADD AC,[142536475076]
4245 034644 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4246 034645 447 10 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
4247 034646 200 13 0 00 040201 MOVE AC3,RAN ;SAVE RAN IN AN AC.
4248 034647 241 10 0 00 000011 HLRI3: ROT AC,11 ;C(AC)=SECOND RAN NUM
4249 034650 200 06 0 00 000010 MOVE RAN1,AC ;SAVE IN CASE OF ERROR
4250 034651 200 11 0 00 000010 MOVE AC1,AC ;SIMULATE
4251 034652 620 11 0 00 777777 TRZ AC1,-1 ;A HLRI
4252 034653 545 10 0 13 000000 HLRI AC,(AC3) ;DO HLRI.
4253 034654 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD=SIMULATED ANS
4254 034655 003 06 0 13 000000 ERRI RAN1,(AC3)
4255 LOOP HLRI2,HLRI3^
4256 034656 367 07 0 00 034642 SOJG AC-1,HLRI2 ;ITERATION COUNTER
4257 034657 200 10 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4258 034660 321 07 0 00 034647 JUMPL AC-1,HLRI3 ;LOOP ON ERROR SWITCH ^
4259
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 89
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0120
4260
4261
4262 ;TEST HLRM CHECK C(E) FOR CORRECT DATA
4263 ;RAN TO RAN1.
4264
4265
4266 000010 AC=10
4267 034661 HLRM1: SETUP 100,0^
4268 000011 AC1=<AC+1>&17
4269 000012 AC2=<AC+2>&17
4270 000013 AC3=<AC+3>&17
4271 000014 AC4=<AC+4>&17
4272 000015 AC5=<AC+5>&17
4273 000006 RAN1=<AC-2>&17
4274 034661 201 07 0 00 034661 MOVEI AC-1,.
4275 034662 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4276 034663 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4277 034664 202 07 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4278 034665 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4279 034666 240 07 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4280 034667 240 07 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4281 034670 HLRM2: RANDOM^
4282 034670 200 10 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4283 034671 270 10 0 00 040071 ADD AC,[142536475076]
4284 034672 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4285 034673 447 10 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
4286 034674 200 13 0 00 040201 MOVE AC3,RAN ;SAVE RAN IN AN AC.
4287 034675 241 10 0 00 000011 HLRM3: ROT AC,11 ;C(AC)=SECOND RAN. NUM
4288 034676 200 06 0 00 000010 MOVE RAN1,AC ;SAVE IN CASE OF ERROR
4289 034677 200 11 0 00 000010 MOVE AC1,AC ;SIMULATE
4290 034700 620 11 0 00 777777 TRZ AC1,-1 ;A
4291 034701 204 12 0 00 040201 MOVS AC2,RAN ;HLRM
4292 034702 660 11 0 12 000000 TRO AC1,(AC2) ;INST
4293 034703 546 13 0 00 000010 HLRM AC3,AC ;DO HLRM.
4294 034704 312 11 0 00 000010 CAME AC1,AC ;C(E) SHOULD=SIM. ANS
4295 034705 002 06 0 00 040201 ERRM RAN1,RAN
4296 LOOP HLRM2,HLRM3^
4297 034706 367 07 0 00 034670 SOJG AC-1,HLRM2 ;ITERATION COUNTER
4298 034707 200 10 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4299 034710 321 07 0 00 034675 JUMPL AC-1,HLRM3 ;LOOP ON ERROR SWITCH ^
4300
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 90
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0121
4301
4302
4303 ;TEST HLRS. CHECK C(E) FOR CORRECT DATA, AND
4304 ;CORRECT STORING OF C(E) INTO AC
4305 ;RAN TO RAN.
4306
4307
4308 000002 AC=2
4309 034711 HLRS1: SETUP 140,0^
4310 000003 AC1=<AC+1>&17
4311 000004 AC2=<AC+2>&17
4312 000005 AC3=<AC+3>&17
4313 000006 AC4=<AC+4>&17
4314 000007 AC5=<AC+5>&17
4315 000000 RAN1=<AC-2>&17
4316 034711 201 01 0 00 034711 MOVEI AC-1,.
4317 034712 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4318 034713 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4319 034714 202 01 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4320 034715 201 01 0 00 000140 MOVEI AC-1,140 ;ROUTINE WEIGHTING
4321 034716 240 01 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4322 034717 240 01 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4323 034720 HLRS2: RANDOM^
4324 034720 200 02 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4325 034721 270 02 0 00 040071 ADD AC,[142536475076]
4326 034722 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4327 034723 447 02 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
4328 034724 477 03 0 00 000000 HLRS3: SETOB AC1,RAN1 ;SAVE IN CASE OF ERROR
4329 034725 200 04 0 00 000002 MOVE AC2,AC ;SIMULATE
4330 034726 620 04 0 00 777777 TRZ AC2,-1 ;A
4331 034727 204 05 0 00 000002 MOVS AC3,AC ;HLRS
4332 034730 621 05 0 00 777777 TLZ AC3,-1
4333 034731 434 04 0 00 000005 IOR AC2,AC3 ;INST
4334 034732 547 03 0 00 000002 HLRS AC1,AC ;DO HLRS
4335 034733 312 03 0 00 000002 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER HLRS
4336 034734 012 00 0 00 000000 EERRM ,RAN1
4337 034735 312 04 0 00 000002 CAME AC2,AC ;C(E) SHOULD=SIM. ANS.
4338 034736 012 00 0 00 000000 EERRM ,RAN1
4339 LOOP HLRS2,HLRS3^
4340 034737 367 01 0 00 034720 SOJG AC-1,HLRS2 ;ITERATION COUNTER
4341 034740 200 02 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4342 034741 321 01 0 00 034724 JUMPL AC-1,HLRS3 ;LOOP ON ERROR SWITCH ^
4343
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 91
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0122
4344
4345
4346 ;TEST HLLZ. CHECK C(AC) FOR CORRECT DATA
4347 ;RAN TO RAN1.
4348
4349
4350 000003 AC=3
4351 034742 HLLZ1: SETUP 200,0^
4352 000004 AC1=<AC+1>&17
4353 000005 AC2=<AC+2>&17
4354 000006 AC3=<AC+3>&17
4355 000007 AC4=<AC+4>&17
4356 000010 AC5=<AC+5>&17
4357 000001 RAN1=<AC-2>&17
4358 034742 201 02 0 00 034742 MOVEI AC-1,.
4359 034743 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4360 034744 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4361 034745 202 02 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4362 034746 201 02 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
4363 034747 240 02 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4364 034750 240 02 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4365 034751 HLLZ2: RANDOM^
4366 034751 200 03 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4367 034752 270 03 0 00 040071 ADD AC,[142536475076]
4368 034753 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4369 034754 447 03 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
4370 034755 241 03 0 00 000011 HLLZ3: ROT AC,11 ;C(AC)=SECOND RAN NUM
4371 034756 200 01 0 00 000003 MOVE RAN1,AC ;SAVE IN CASE OF ERROR
4372 034757 200 04 0 00 040201 MOVE AC1,RAN ;SIMULATE
4373 034760 620 04 0 00 777777 TRZ AC1,-1 ;A HLLZ
4374 034761 510 03 0 00 040201 HLLZ AC,RAN ;DO HLLZ
4375 034762 312 03 0 00 000004 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
4376 034763 011 00 0 00 000001 EERR ,RAN1
4377 LOOP HLLZ2,HLLZ3^
4378 034764 367 02 0 00 034751 SOJG AC-1,HLLZ2 ;ITERATION COUNTER
4379 034765 200 03 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4380 034766 321 02 0 00 034755 JUMPL AC-1,HLLZ3 ;LOOP ON ERROR SWITCH ^
4381
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 92
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0123
4382
4383
4384 ;TEST HLLZI. CHECK C(AC) FOR 0
4385 ;RAN TO RAN1
4386
4387
4388 000002 AC=2
4389 034767 HLLZI1: SETUP 200,0^
4390 000003 AC1=<AC+1>&17
4391 000004 AC2=<AC+2>&17
4392 000005 AC3=<AC+3>&17
4393 000006 AC4=<AC+4>&17
4394 000007 AC5=<AC+5>&17
4395 000000 RAN1=<AC-2>&17
4396 034767 201 01 0 00 034767 MOVEI AC-1,.
4397 034770 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4398 034771 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4399 034772 202 01 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4400 034773 201 01 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
4401 034774 240 01 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4402 034775 240 01 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4403 034776 HLLZI2: RANDOM^
4404 034776 200 02 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4405 034777 270 02 0 00 040071 ADD AC,[142536475076]
4406 035000 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4407 035001 447 02 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
4408 035002 200 03 0 00 040201 MOVE AC1,RAN ;SAVE RAN IN AN AC.
4409 035003 241 02 0 00 000011 HLLZI3: ROT AC,11 ;C(AC)=SECOND RAN NUM
4410 035004 200 00 0 00 000002 MOVE RAN1,AC ;SAVE IN CASE OF ERROR
4411 035005 511 02 0 03 000000 HLLZI AC,(AC1) ;DO HLLZI.
4412 035006 312 02 0 00 040074 CAME AC,[0] ;C(AC) SHOULD=0
4413 035007 003 00 0 03 000000 ERRI RAN1,(AC1)
4414 LOOP HLLZI2,HLLZI3^
4415 035010 367 01 0 00 034776 SOJG AC-1,HLLZI2 ;ITERATION COUNTER
4416 035011 200 02 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4417 035012 321 01 0 00 035003 JUMPL AC-1,HLLZI3 ;LOOP ON ERROR SWITCH ^
4418
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 93
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0124
4419
4420
4421 ;TEST HLLZM. CHECK C(E) FOR CORRECT DATA
4422 ;RAN TO RAN1
4423
4424
4425 000003 AC=3
4426 035013 HLLZM1: SETUP 200,0^
4427 000004 AC1=<AC+1>&17
4428 000005 AC2=<AC+2>&17
4429 000006 AC3=<AC+3>&17
4430 000007 AC4=<AC+4>&17
4431 000010 AC5=<AC+5>&17
4432 000001 RAN1=<AC-2>&17
4433 035013 201 02 0 00 035013 MOVEI AC-1,.
4434 035014 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4435 035015 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4436 035016 202 02 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4437 035017 201 02 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
4438 035020 240 02 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4439 035021 240 02 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4440 035022 HLLZM2: RANDOM^
4441 035022 200 03 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4442 035023 270 03 0 00 040071 ADD AC,[142536475076]
4443 035024 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4444 035025 447 03 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
4445 035026 200 05 0 00 040201 MOVE AC2,RAN ;SAVE RAN IN AN AC.
4446 035027 241 03 0 00 000011 HLLZM3: ROT AC,11 ;C(E)=SECOND RAN NUM
4447 035030 200 01 0 00 000003 MOVE RAN1,AC ;SAVE IN CASE OF ERROR
4448 035031 200 04 0 00 040201 MOVE AC1,RAN ;SIMULATE
4449 035032 620 04 0 00 777777 TRZ AC1,-1 ;A HLLZM
4450 035033 512 05 0 00 000003 HLLZM AC2,AC ;DO HLLZM.
4451 035034 312 04 0 00 000003 CAME AC1,AC ;C(E) SHOULD=SIM.ANS
4452 035035 002 01 0 00 040201 ERRM RAN1,RAN
4453 LOOP HLLZM2,HLLZM3^
4454 035036 367 02 0 00 035022 SOJG AC-1,HLLZM2 ;ITERATION COUNTER
4455 035037 200 03 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4456 035040 321 02 0 00 035027 JUMPL AC-1,HLLZM3 ;LOOP ON ERROR SWITCH ^
4457
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 94
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0125
4458
4459
4460 ;TEST HLLZS. CHECK C(E) FOR CORRECT DATA, AND
4461 ;CORRECT STORING OF C(E) INTO AC.
4462 ;RAN TO RAN.
4463
4464
4465 000004 AC=4
4466 035041 HLLZS1: SETUP 200,0^
4467 000005 AC1=<AC+1>&17
4468 000006 AC2=<AC+2>&17
4469 000007 AC3=<AC+3>&17
4470 000010 AC4=<AC+4>&17
4471 000011 AC5=<AC+5>&17
4472 000002 RAN1=<AC-2>&17
4473 035041 201 03 0 00 035041 MOVEI AC-1,.
4474 035042 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4475 035043 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4476 035044 202 03 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4477 035045 201 03 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
4478 035046 240 03 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4479 035047 240 03 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4480 035050 HLLZS2: RANDOM^
4481 035050 200 04 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4482 035051 270 04 0 00 040071 ADD AC,[142536475076]
4483 035052 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4484 035053 447 04 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
4485 035054 477 05 0 00 000002 HLLZS3: SETOB AC1,RAN1 ;SET C(AC) TO A -1
4486 035055 200 06 0 00 000004 MOVE AC2,AC ;SIMULATE
4487 035056 620 06 0 00 777777 TRZ AC2,-1 ;A HLLZS
4488 035057 513 05 0 00 000004 HLLZS AC1,AC ;DO HLLZS
4489 035060 312 05 0 00 000004 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER HLLZS
4490 035061 012 00 0 00 000002 EERRM ,RAN1
4491 035062 312 05 0 00 000004 CAME AC1,AC ;C(E) SHOULD=SIM. ANS
4492 035063 012 00 0 00 000002 EERRM ,RAN1
4493 LOOP HLLZS2,HLLZS3^
4494 035064 367 03 0 00 035050 SOJG AC-1,HLLZS2 ;ITERATION COUNTER
4495 035065 200 04 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4496 035066 321 03 0 00 035054 JUMPL AC-1,HLLZS3 ;LOOP ON ERROR SWITCH ^
4497
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 95
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0126
4498
4499
4500 ;TEST HRRZ. CHECK C(AC) FOR CORRECT DATA.
4501 ;RAN TO RAN1
4502
4503
4504 000005 AC=5
4505 035067 HRRZ1: SETUP 200,0^
4506 000006 AC1=<AC+1>&17
4507 000007 AC2=<AC+2>&17
4508 000010 AC3=<AC+3>&17
4509 000011 AC4=<AC+4>&17
4510 000012 AC5=<AC+5>&17
4511 000003 RAN1=<AC-2>&17
4512 035067 201 04 0 00 035067 MOVEI AC-1,.
4513 035070 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4514 035071 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4515 035072 202 04 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4516 035073 201 04 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
4517 035074 240 04 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4518 035075 240 04 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4519 035076 HRRZ2: RANDOM^
4520 035076 200 05 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4521 035077 270 05 0 00 040071 ADD AC,[142536475076]
4522 035100 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4523 035101 447 05 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
4524 035102 200 07 0 00 040201 MOVE AC2,RAN ;SAVE RAN IN AN AC.
4525 035103 241 05 0 00 000011 HRRZ3: ROT AC,11 ;C(AC)=SECOND RAND NUM
4526 035104 200 03 0 00 000005 MOVE RAN1,AC ;SAVE IN CASE OF ERROR
4527 035105 201 06 0 07 000000 MOVEI AC1,(AC2) ;SIMULATE A HRRZ INST.
4528 035106 550 05 0 00 040201 HRRZ AC,RAN ;DO HRRZ
4529 035107 312 05 0 00 000006 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
4530 035110 001 07 0 00 000003 ERR AC2,RAN1
4531 LOOP HRRZ2,HRRZ3^
4532 035111 367 04 0 00 035076 SOJG AC-1,HRRZ2 ;ITERATION COUNTER
4533 035112 200 05 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4534 035113 321 04 0 00 035103 JUMPL AC-1,HRRZ3 ;LOOP ON ERROR SWITCH ^
4535
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 96
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0127
4536
4537
4538 ;TEST HRRZI. CHECK C(AC) FOR CORRECT DATA
4539 ;RAN TO RAN1
4540
4541
4542 000006 AC=6
4543 035114 HRRZI1: SETUP 200,0^
4544 000007 AC1=<AC+1>&17
4545 000010 AC2=<AC+2>&17
4546 000011 AC3=<AC+3>&17
4547 000012 AC4=<AC+4>&17
4548 000013 AC5=<AC+5>&17
4549 000004 RAN1=<AC-2>&17
4550 035114 201 05 0 00 035114 MOVEI AC-1,.
4551 035115 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4552 035116 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4553 035117 202 05 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4554 035120 201 05 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
4555 035121 240 05 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4556 035122 240 05 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4557 035123 HRRZI2: RANDOM^
4558 035123 200 06 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4559 035124 270 06 0 00 040071 ADD AC,[142536475076]
4560 035125 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4561 035126 447 06 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
4562 035127 200 10 0 00 040201 MOVE AC2,RAN ;SAVE RAN IN AN AC.
4563 035130 241 06 0 00 000011 HRRZI3: ROT AC,11 ;C(AC)=SECOND RAN NUM
4564 035131 200 04 0 00 000006 MOVE RAN1,AC ;SAVE IN CASE OF ERROR
4565 035132 201 07 0 10 000000 MOVEI AC1,(AC2) ;SIMULATE A HRRZI INST.
4566 035133 551 06 0 10 000000 HRRZI AC,(AC2) ;DO HRRZI.
4567 035134 312 06 0 00 000007 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
4568 035135 003 04 0 10 000000 ERRI RAN1,(AC2)
4569 LOOP HRRZI2,HRRZI3^
4570 035136 367 05 0 00 035123 SOJG AC-1,HRRZI2 ;ITERATION COUNTER
4571 035137 200 06 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4572 035140 321 05 0 00 035130 JUMPL AC-1,HRRZI3 ;LOOP ON ERROR SWITCH ^
4573
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 97
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0128
4574
4575
4576 ;TEST HRRZM. CHECK C(E) FOR CORRECT DATA
4577 ;RAN TO RAN1
4578
4579
4580 000007 AC=7
4581 035141 HRRZM1: SETUP 200,0^
4582 000010 AC1=<AC+1>&17
4583 000011 AC2=<AC+2>&17
4584 000012 AC3=<AC+3>&17
4585 000013 AC4=<AC+4>&17
4586 000014 AC5=<AC+5>&17
4587 000005 RAN1=<AC-2>&17
4588 035141 201 06 0 00 035141 MOVEI AC-1,.
4589 035142 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4590 035143 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4591 035144 202 06 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4592 035145 201 06 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
4593 035146 240 06 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4594 035147 240 06 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4595 035150 HRRZM2: RANDOM^
4596 035150 200 07 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4597 035151 270 07 0 00 040071 ADD AC,[142536475076]
4598 035152 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4599 035153 447 07 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
4600 035154 200 11 0 00 040201 MOVE AC2,RAN ;SAVE RAN IN AN AC.
4601 035155 241 07 0 00 000011 HRRZM3: ROT AC,11 ;C(E)=SECOND RAN. NUM
4602 035156 200 05 0 00 000007 MOVE RAN1,AC ;SAVE IN CASE OF ERROR
4603 035157 201 10 0 11 000000 MOVEI AC1,(AC2) ;SIMULATE A HRRZM INST.
4604 035160 552 11 0 00 000007 HRRZM AC2,AC ;DO HRRZM.
4605 035161 312 10 0 00 000007 CAME AC1,AC ;C(E) SHOULD=SIM. ANS
4606 035162 002 05 0 00 040201 ERRM RAN1,RAN
4607 LOOP HRRZM2,HRRZM3^
4608 035163 367 06 0 00 035150 SOJG AC-1,HRRZM2 ;ITERATION COUNTER
4609 035164 200 07 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4610 035165 321 06 0 00 035155 JUMPL AC-1,HRRZM3 ;LOOP ON ERROR SWITCH ^
4611
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 98
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0129
4612
4613
4614 ;TEST HRRZS. CHECK C(E) FOR CORRECT DATA, AND
4615 ;CORRECT STORING OF C(E) INTO AC.
4616 ;RAN TO RAN.
4617
4618
4619 000010 AC=10
4620 035166 HRRZS1: SETUP 200,0^
4621 000011 AC1=<AC+1>&17
4622 000012 AC2=<AC+2>&17
4623 000013 AC3=<AC+3>&17
4624 000014 AC4=<AC+4>&17
4625 000015 AC5=<AC+5>&17
4626 000006 RAN1=<AC-2>&17
4627 035166 201 07 0 00 035166 MOVEI AC-1,.
4628 035167 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4629 035170 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4630 035171 202 07 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4631 035172 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
4632 035173 240 07 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4633 035174 240 07 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4634 035175 HRRZS2: RANDOM^
4635 035175 200 10 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4636 035176 270 10 0 00 040071 ADD AC,[142536475076]
4637 035177 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4638 035200 447 10 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
4639 035201 477 11 0 00 000006 HRRZS3: SETOB AC1,RAN1 ;SETC(AC) TO A-1
4640 035202 201 12 0 10 000000 MOVEI AC2,(AC) ;SIMULATE A HRRZS
4641 035203 553 11 0 00 000010 HRRZS AC1,AC ;DO HRRZS
4642 035204 312 11 0 00 000010 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER HRRZS
4643 035205 012 00 0 00 000006 EERRM ,RAN1
4644 035206 312 12 0 00 000010 CAME AC2,AC ;C(E) SHOULD=SIM. ANS
4645 035207 012 00 0 00 000006 EERRM ,RAN1
4646 LOOP HRRZS2,HRRZS3^
4647 035210 367 07 0 00 035175 SOJG AC-1,HRRZS2 ;ITERATION COUNTER
4648 035211 200 10 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4649 035212 321 07 0 00 035201 JUMPL AC-1,HRRZS3 ;LOOP ON ERROR SWITCH ^
4650
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 99
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0130
4651
4652
4653 ;TEST HLLO. CHECK C(AC) FOR CORRECT DATA
4654 ;RAN TO RAN1
4655
4656
4657 000011 AC=11
4658 035213 HLLO1: SETUP 200,0^
4659 000012 AC1=<AC+1>&17
4660 000013 AC2=<AC+2>&17
4661 000014 AC3=<AC+3>&17
4662 000015 AC4=<AC+4>&17
4663 000016 AC5=<AC+5>&17
4664 000007 RAN1=<AC-2>&17
4665 035213 201 10 0 00 035213 MOVEI AC-1,.
4666 035214 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4667 035215 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4668 035216 202 10 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4669 035217 201 10 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
4670 035220 240 10 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4671 035221 240 10 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4672 035222 HLLO2: RANDOM^
4673 035222 200 11 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4674 035223 270 11 0 00 040071 ADD AC,[142536475076]
4675 035224 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4676 035225 447 11 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
4677 035226 241 11 0 00 000011 HLLO3: ROT AC,11 ;C(AC)=SECOND RAN NUM
4678 035227 200 07 0 00 000011 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
4679 035230 200 12 0 00 040201 MOVE AC1,RAN ;SIMULATE
4680 035231 660 12 0 00 777777 TRO AC1,-1 ;A HLLO
4681 035232 520 11 0 00 040201 HLLO AC,RAN ;DO HLLO
4682 035233 312 11 0 00 000012 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
4683 035234 011 00 0 00 000007 EERR ,RAN1
4684 LOOP HLLO2,HLLO3^
4685 035235 367 10 0 00 035222 SOJG AC-1,HLLO2 ;ITERATION COUNTER
4686 035236 200 11 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4687 035237 321 10 0 00 035226 JUMPL AC-1,HLLO3 ;LOOP ON ERROR SWITCH ^
4688
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 100
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0131
4689
4690
4691
4692
4693 ;TEST HLLOI CHECK C(AC) FOR CORRECT DATA
4694 ;RAN TO RAN1
4695
4696
4697 000004 AC=4
4698 035240 HLLOI1: SETUP 200,0^
4699 000005 AC1=<AC+1>&17
4700 000006 AC2=<AC+2>&17
4701 000007 AC3=<AC+3>&17
4702 000010 AC4=<AC+4>&17
4703 000011 AC5=<AC+5>&17
4704 000002 RAN1=<AC-2>&17
4705 035240 201 03 0 00 035240 MOVEI AC-1,.
4706 035241 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4707 035242 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4708 035243 202 03 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4709 035244 201 03 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
4710 035245 240 03 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4711 035246 240 03 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4712 035247 HLLOI2: RANDOM^
4713 035247 200 04 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4714 035250 270 04 0 00 040071 ADD AC,[142536475076]
4715 035251 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4716 035252 447 04 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
4717 035253 200 06 0 00 040201 MOVE AC2,RAN ;SAVE RAN IN AN AC.
4718 035254 241 04 0 00 000011 HLLOI3: ROT AC,11 ;C(AC)=SECOND RAN. NUM
4719 035255 200 02 0 00 000004 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
4720 035256 400 05 0 00 000000 SETZ AC1, ;SIMULATE
4721 035257 660 05 0 00 777777 TRO AC1,-1 ;A HLLOI
4722 035260 521 04 0 06 000000 HLLOI AC,(AC2) ;DO HLLOI.
4723 035261 312 04 0 00 000005 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
4724 035262 003 02 0 06 000000 ERRI RAN1,(AC2)
4725 LOOP HLLOI2,HLLOI3^
4726 035263 367 03 0 00 035247 SOJG AC-1,HLLOI2 ;ITERATION COUNTER
4727 035264 200 04 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4728 035265 321 03 0 00 035254 JUMPL AC-1,HLLOI3 ;LOOP ON ERROR SWITCH ^
4729
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 101
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0132
4730
4731
4732 ;TEST HLLOM. CHECK C(E) FOR CORRECT DATA
4733 ;RAN TO RAO1
4734
4735
4736 000005 AC=5
4737 035266 HLLOM1: SETUP 200,0^
4738 000006 AC1=<AC+1>&17
4739 000007 AC2=<AC+2>&17
4740 000010 AC3=<AC+3>&17
4741 000011 AC4=<AC+4>&17
4742 000012 AC5=<AC+5>&17
4743 000003 RAN1=<AC-2>&17
4744 035266 201 04 0 00 035266 MOVEI AC-1,.
4745 035267 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4746 035270 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4747 035271 202 04 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4748 035272 201 04 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
4749 035273 240 04 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4750 035274 240 04 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4751 035275 HLLOM2: RANDOM^
4752 035275 200 05 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4753 035276 270 05 0 00 040071 ADD AC,[142536475076]
4754 035277 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4755 035300 447 05 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
4756 035301 200 07 0 00 040201 MOVE AC2,RAN ;SAVE RAN IN AN AC.
4757 035302 241 05 0 00 000011 HLLOM3: ROT AC,11 ;C(E) =SECOND RANDOM NUM.
4758 035303 200 03 0 00 000005 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR
4759 035304 200 06 0 00 040201 MOVE AC1,RAN ;SIMULATE
4760 035305 660 06 0 00 777777 TRO AC1,-1 ;A HLLOM
4761 035306 522 07 0 00 000005 HLLOM AC2,AC ;DO A HLLOM.
4762 035307 312 06 0 00 000005 CAME AC1,AC ;C(E) SHOULD=SIM. ANS
4763 035310 002 03 0 00 040201 ERRM RAN1,RAN
4764 LOOP HLLOM2,HLLOM3^
4765 035311 367 04 0 00 035275 SOJG AC-1,HLLOM2 ;ITERATION COUNTER
4766 035312 200 05 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4767 035313 321 04 0 00 035302 JUMPL AC-1,HLLOM3 ;LOOP ON ERROR SWITCH ^
4768
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 102
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0133
4769
4770
4771 ;TEST HLLOS. CHECK C(E) FOR CORRECT DATA, AND
4772 ;CORRECT STORING OF C(E) INTO AC.
4773 ;RAN TO RAN
4774
4775
4776 000006 AC=6
4777 035314 HLLOS1: SETUP 200,0^
4778 000007 AC1=<AC+1>&17
4779 000010 AC2=<AC+2>&17
4780 000011 AC3=<AC+3>&17
4781 000012 AC4=<AC+4>&17
4782 000013 AC5=<AC+5>&17
4783 000004 RAN1=<AC-2>&17
4784 035314 201 05 0 00 035314 MOVEI AC-1,.
4785 035315 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4786 035316 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4787 035317 202 05 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4788 035320 201 05 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
4789 035321 240 05 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4790 035322 240 05 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4791 035323 HLLOS2: RANDOM^
4792 035323 200 06 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4793 035324 270 06 0 00 040071 ADD AC,[142536475076]
4794 035325 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4795 035326 447 06 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
4796 035327 477 07 0 00 000004 HLLOS3: SETOB AC1,RAN1 ;SET C(AC) TO A -1
4797 035330 200 10 0 00 000006 MOVE AC2,AC ;SIMULATE
4798 035331 660 10 0 00 777777 TRO AC2,-1 ;A HLLOS
4799 035332 523 07 0 00 000006 HLLOS AC1,AC ;DO HLLOS
4800 035333 312 07 0 00 000006 CAME AC1,AC ;C(AC) SHOULD=C(AC) AFTER HLLOS
4801 035334 012 00 0 00 000004 EERRM ,RAN1
4802 035335 312 10 0 00 000006 CAME AC2,AC ;C(E) SHOULD=SIM ANS
4803 035336 012 00 0 00 000004 EERRM ,RAN1
4804 LOOP HLLOS2,HLLOS3^
4805 035337 367 05 0 00 035323 SOJG AC-1,HLLOS2 ;ITERATION COUNTER
4806 035340 200 06 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4807 035341 321 05 0 00 035327 JUMPL AC-1,HLLOS3 ;LOOP ON ERROR SWITCH ^
4808
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 103
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0134
4809
4810
4811 ;TEST HRRO. CHECK C(AC) FOR CORRECT DATA
4812 ;RAN TO RAN1
4813
4814
4815 000007 AC=7
4816 035342 HRRO1: SETUP 200,0^
4817 000010 AC1=<AC+1>&17
4818 000011 AC2=<AC+2>&17
4819 000012 AC3=<AC+3>&17
4820 000013 AC4=<AC+4>&17
4821 000014 AC5=<AC+5>&17
4822 000005 RAN1=<AC-2>&17
4823 035342 201 06 0 00 035342 MOVEI AC-1,.
4824 035343 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4825 035344 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4826 035345 202 06 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4827 035346 201 06 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
4828 035347 240 06 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4829 035350 240 06 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4830 035351 HRRO2: RANDOM^
4831 035351 200 07 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4832 035352 270 07 0 00 040071 ADD AC,[142536475076]
4833 035353 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4834 035354 447 07 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
4835 035355 241 07 0 00 000011 HRRO3: ROT AC,11 ;C(AC)=SECOND RAN NUM
4836 035356 200 05 0 00 000007 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
4837 035357 200 10 0 00 040201 MOVE AC1,RAN ;SIMULATE
4838 035360 661 10 0 00 777777 TLO AC1,-1 ;A HRRO
4839 035361 560 07 0 00 040201 HRRO AC,RAN ;DO HRRO
4840 035362 312 07 0 00 000010 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
4841 035363 011 00 0 00 000005 EERR ,RAN1
4842 LOOP HRRO2,HRRO3^
4843 035364 367 06 0 00 035351 SOJG AC-1,HRRO2 ;ITERATION COUNTER
4844 035365 200 07 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4845 035366 321 06 0 00 035355 JUMPL AC-1,HRRO3 ;LOOP ON ERROR SWITCH ^
4846
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 104
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0135
4847
4848
4849 ;TEST HRROI. CHECK C(AC) FOR CORRECT DATA
4850 ;RAN TO RAN1
4851
4852
4853 000010 AC=10
4854 035367 HRROI1: SETUP 200,0^
4855 000011 AC1=<AC+1>&17
4856 000012 AC2=<AC+2>&17
4857 000013 AC3=<AC+3>&17
4858 000014 AC4=<AC+4>&17
4859 000015 AC5=<AC+5>&17
4860 000006 RAN1=<AC-2>&17
4861 035367 201 07 0 00 035367 MOVEI AC-1,.
4862 035370 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4863 035371 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4864 035372 202 07 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4865 035373 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
4866 035374 240 07 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4867 035375 240 07 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4868 035376 HRROI2: RANDOM^
4869 035376 200 10 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4870 035377 270 10 0 00 040071 ADD AC,[142536475076]
4871 035400 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4872 035401 447 10 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
4873 035402 200 13 0 00 040201 MOVE AC3,RAN ;SAVE RAN IN AN AC.
4874 035403 241 10 0 00 000011 HRROI3: ROT AC,11 ;C(AC)=SECOND RAN. NUM
4875 035404 200 06 0 00 000010 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
4876 035405 200 11 0 00 040201 MOVE AC1,RAN ;SIMULATE
4877 035406 661 11 0 00 777777 TLO AC1,-1 ;A HRROI
4878 035407 561 10 0 13 000000 HRROI AC,(AC3) ;DO HRROI.
4879 035410 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
4880 035411 003 06 0 13 000000 ERRI RAN1,(AC3)
4881 LOOP HRROI2,HRROI3^
4882 035412 367 07 0 00 035376 SOJG AC-1,HRROI2 ;ITERATION COUNTER
4883 035413 200 10 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4884 035414 321 07 0 00 035403 JUMPL AC-1,HRROI3 ;LOOP ON ERROR SWITCH ^
4885
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 105
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0136
4886
4887
4888 ;TEST HRROM. CHECK C(E) FOR CORRECT DATA.
4889 ;RAN TO RAN1
4890
4891
4892 000010 AC=10
4893 035415 HRROM1: SETUP 200,0^
4894 000011 AC1=<AC+1>&17
4895 000012 AC2=<AC+2>&17
4896 000013 AC3=<AC+3>&17
4897 000014 AC4=<AC+4>&17
4898 000015 AC5=<AC+5>&17
4899 000006 RAN1=<AC-2>&17
4900 035415 201 07 0 00 035415 MOVEI AC-1,.
4901 035416 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4902 035417 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4903 035420 202 07 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4904 035421 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
4905 035422 240 07 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4906 035423 240 07 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4907 035424 HRROM2: RANDOM^
4908 035424 200 10 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4909 035425 270 10 0 00 040071 ADD AC,[142536475076]
4910 035426 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4911 035427 447 10 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
4912 035430 200 12 0 00 040201 MOVE AC2,RAN ;SAVE RAN IN AN AC.
4913 035431 241 10 0 00 000011 HRROM3: ROT AC,11 ;C(E)=SECOND RAN NUM
4914 035432 200 06 0 00 000010 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR
4915 035433 200 11 0 00 040201 MOVE AC1,RAN ;SIMULATE
4916 035434 661 11 0 00 777777 TLO AC1,-1 ;A HRROM
4917 035435 562 12 0 00 000010 HRROM AC2,AC ;DO HRROM.
4918 035436 312 11 0 00 000010 CAME AC1,AC ;C(E) SHOULD=SIM. ANS
4919 035437 002 06 0 00 040201 ERRM RAN1,RAN
4920 LOOP HRROM2,HRROM3^
4921 035440 367 07 0 00 035424 SOJG AC-1,HRROM2 ;ITERATION COUNTER
4922 035441 200 10 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4923 035442 321 07 0 00 035431 JUMPL AC-1,HRROM3 ;LOOP ON ERROR SWITCH ^
4924
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 106
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0137
4925
4926
4927 ;TEST HRROS. CHECK C(E) FOR CORRECT DATA, AND
4928 ;CORRECT STORING OF C(E) INTO AC.
4929 ;RAN TO RAN
4930
4931
4932 000002 AC=2
4933 035443 HRROS1: SETUP 200,0^
4934 000003 AC1=<AC+1>&17
4935 000004 AC2=<AC+2>&17
4936 000005 AC3=<AC+3>&17
4937 000006 AC4=<AC+4>&17
4938 000007 AC5=<AC+5>&17
4939 000000 RAN1=<AC-2>&17
4940 035443 201 01 0 00 035443 MOVEI AC-1,.
4941 035444 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4942 035445 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4943 035446 202 01 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4944 035447 201 01 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
4945 035450 240 01 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4946 035451 240 01 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4947 035452 HRROS2: RANDOM^
4948 035452 200 02 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4949 035453 270 02 0 00 040071 ADD AC,[142536475076]
4950 035454 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4951 035455 447 02 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
4952 035456 477 03 0 00 000000 HRROS3: SETOB AC1,RAN1 ;SET C(AC) TO A -1
4953 035457 200 04 0 00 000002 MOVE AC2,AC ;SIMULATE
4954 035460 661 04 0 00 777777 TLO AC2,-1 ;A HRROS
4955 035461 563 03 0 00 000002 HRROS AC1,AC ;DO HRROS
4956 035462 312 03 0 00 000002 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER HRROS
4957 035463 012 00 0 00 000000 EERRM ,RAN1
4958 035464 312 04 0 00 000002 CAME AC2,AC ;C(E) SHOULD=SIM. ANS
4959 035465 012 00 0 00 000000 EERRM ,RAN1
4960 LOOP HRROS2,HRROS3^
4961 035466 367 01 0 00 035452 SOJG AC-1,HRROS2 ;ITERATION COUNTER
4962 035467 200 02 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4963 035470 321 01 0 00 035456 JUMPL AC-1,HRROS3 ;LOOP ON ERROR SWITCH ^
4964
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 107
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0138
4965
4966
4967 ;TEST HRLO. CHECK C(AC) FOR CORRECT DATA
4968 ;RAN TO RAN1
4969
4970
4971 000003 AC=3
4972 035471 HRLO1: SETUP 200,1^
4973 000004 AC1=<AC+1>&17
4974 000005 AC2=<AC+2>&17
4975 000006 AC3=<AC+3>&17
4976 000007 AC4=<AC+4>&17
4977 000010 AC5=<AC+5>&17
4978 000001 RAN1=<AC-2>&17
4979 035471 201 02 0 00 035471 MOVEI AC-1,.
4980 035472 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4981 035473 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4982 035474 202 02 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4983 035475 201 02 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
4984 035476 240 02 1 00 030666 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
4985 035477 240 02 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4986 035500 HRLO2: RANDOM^
4987 035500 200 03 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4988 035501 270 03 0 00 040071 ADD AC,[142536475076]
4989 035502 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4990 035503 447 03 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
4991 035504 200 05 0 00 040201 MOVE AC2,RAN ;SAVE RAN IN AN AC.
4992 035505 241 03 0 00 000011 HRLO3: ROT AC,11 ;C(AC)=SECOND RAN NUM
4993 035506 200 01 0 00 000003 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
4994 035507 205 04 0 05 000000 MOVSI AC1,(AC2) ;SIMULATE
4995 035510 660 04 0 00 777777 TRO AC1,-1 ;A HRLO
4996 035511 524 03 0 00 040201 HRLO AC,RAN ;DO HRLO
4997 035512 312 03 0 00 000004 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
4998 035513 001 05 0 00 000001 ERR AC2,RAN1
4999 LOOP HRLO2,HRLO3^
5000 035514 367 02 0 00 035500 SOJG AC-1,HRLO2 ;ITERATION COUNTER
5001 035515 200 03 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5002 035516 321 02 0 00 035505 JUMPL AC-1,HRLO3 ;LOOP ON ERROR SWITCH ^
5003
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 108
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0139
5004
5005
5006 ;TEST HRLOI. CHECK C(AC) FOR CORRECT DATA
5007 ;RAN TO RAN1
5008
5009
5010 000002 AC=2
5011 035517 HRLOI1: SETUP 200,1^
5012 000003 AC1=<AC+1>&17
5013 000004 AC2=<AC+2>&17
5014 000005 AC3=<AC+3>&17
5015 000006 AC4=<AC+4>&17
5016 000007 AC5=<AC+5>&17
5017 000000 RAN1=<AC-2>&17
5018 035517 201 01 0 00 035517 MOVEI AC-1,.
5019 035520 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5020 035521 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5021 035522 202 01 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5022 035523 201 01 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5023 035524 240 01 1 00 030666 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
5024 035525 240 01 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5025 035526 HRLOI2: RANDOM^
5026 035526 200 02 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5027 035527 270 02 0 00 040071 ADD AC,[142536475076]
5028 035530 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5029 035531 447 02 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
5030 035532 200 04 0 00 040201 MOVE AC2,RAN ;SAVE RAN IN AN AC.
5031 035533 241 02 0 00 000011 HRLOI3: ROT AC,11 ;C(AC)=SECOND RANDOM NUM
5032 035534 200 00 0 00 000002 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
5033 035535 205 03 0 04 000000 MOVSI AC1,(AC2) ;SIMULATE
5034 035536 660 03 0 00 777777 TRO AC1,-1 ;A HRLOI
5035 035537 525 02 0 04 000000 HRLOI AC,(AC2) ;DO HRLOI.
5036 035540 312 02 0 00 000003 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
5037 035541 003 00 0 04 000000 ERRI RAN1,(AC2)
5038 LOOP HRLOI2,HRLOI3^
5039 035542 367 01 0 00 035526 SOJG AC-1,HRLOI2 ;ITERATION COUNTER
5040 035543 200 02 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5041 035544 321 01 0 00 035533 JUMPL AC-1,HRLOI3 ;LOOP ON ERROR SWITCH ^
5042
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 109
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0140
5043
5044
5045 ;TEST HRLOM. CHECK C(E) FOR CORRECT DATA
5046 ;RAN TO RAN1
5047
5048
5049 000003 AC=3
5050 035545 HRLOM1: SETUP 200,1^
5051 000004 AC1=<AC+1>&17
5052 000005 AC2=<AC+2>&17
5053 000006 AC3=<AC+3>&17
5054 000007 AC4=<AC+4>&17
5055 000010 AC5=<AC+5>&17
5056 000001 RAN1=<AC-2>&17
5057 035545 201 02 0 00 035545 MOVEI AC-1,.
5058 035546 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5059 035547 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5060 035550 202 02 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5061 035551 201 02 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5062 035552 240 02 1 00 030666 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
5063 035553 240 02 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5064 035554 HRLOM2: RANDOM^
5065 035554 200 03 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5066 035555 270 03 0 00 040071 ADD AC,[142536475076]
5067 035556 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5068 035557 447 03 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
5069 035560 200 05 0 00 040201 MOVE AC2,RAN ;SAVE RAN IN AN AC.
5070 035561 241 03 0 00 000011 HRLOM3: ROT AC,11 ;C(E)=SECOND RAN. NUM
5071 035562 200 01 0 00 000003 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR
5072 035563 205 04 0 05 000000 MOVSI AC1,(AC2) ;SIMULATE
5073 035564 660 04 0 00 777777 TRO AC1,-1 ;A HRLOM
5074 035565 526 05 0 00 000003 HRLOM AC2,AC ;DO HRLOM.
5075 035566 312 04 0 00 000003 CAME AC1,AC ;C(E) SHOULD=SIM. ANS
5076 035567 002 01 0 00 040201 ERRM RAN1,RAN
5077 LOOP HRLOM2,HRLOM3^
5078 035570 367 02 0 00 035554 SOJG AC-1,HRLOM2 ;ITERATION COUNTER
5079 035571 200 03 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5080 035572 321 02 0 00 035561 JUMPL AC-1,HRLOM3 ;LOOP ON ERROR SWITCH ^
5081
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 110
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0141
5082
5083
5084 ;TEST HRLOS. CHECK C(E) FOR CORRECT DATA AND IF
5085 ;C(AC) IS BEING LOADED WITH C(E) FOR RAN TO RAN CONDITION.
5086
5087
5088 000004 AC=4
5089 035573 HRLOS1: SETUP 200,1^
5090 000005 AC1=<AC+1>&17
5091 000006 AC2=<AC+2>&17
5092 000007 AC3=<AC+3>&17
5093 000010 AC4=<AC+4>&17
5094 000011 AC5=<AC+5>&17
5095 000002 RAN1=<AC-2>&17
5096 035573 201 03 0 00 035573 MOVEI AC-1,.
5097 035574 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5098 035575 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5099 035576 202 03 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5100 035577 201 03 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5101 035600 240 03 1 00 030666 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
5102 035601 240 03 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5103 035602 HRLOS2: RANDOM^
5104 035602 200 04 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5105 035603 270 04 0 00 040071 ADD AC,[142536475076]
5106 035604 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5107 035605 447 04 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
5108 035606 477 05 0 00 000002 HRLOS3: SETOB AC1,RAN1 ;SET C(AC) TO A -1
5109 035607 205 06 0 04 000000 MOVSI AC2,(AC) ;SIMULATE
5110 035610 660 06 0 00 777777 TRO AC2,-1 ;A HRLOS
5111 035611 527 05 0 00 000004 HRLOS AC1,AC ;DO HRLOS
5112 035612 312 05 0 00 000004 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER HRLOS
5113 035613 012 00 0 00 000002 EERRM ,RAN1
5114 035614 312 06 0 00 000004 CAME AC2,AC ;C(E) SHOULD=SIM. ANS
5115 035615 012 00 0 00 000002 EERRM ,RAN1
5116 LOOP HRLOS2,HRLOS3^
5117 035616 367 03 0 00 035602 SOJG AC-1,HRLOS2 ;ITERATION COUNTER
5118 035617 200 04 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5119 035620 321 03 0 00 035606 JUMPL AC-1,HRLOS3 ;LOOP ON ERROR SWITCH ^
5120
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 111
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0142
5121
5122
5123 ;TEST HLLE. CHECK C(AC) FOR CORRECT DATA
5124 ;RAN TO RAN1.
5125
5126
5127 000005 AC=5
5128 035621 HLLE1: SETUP 200,2^
5129 000006 AC1=<AC+1>&17
5130 000007 AC2=<AC+2>&17
5131 000010 AC3=<AC+3>&17
5132 000011 AC4=<AC+4>&17
5133 000012 AC5=<AC+5>&17
5134 000003 RAN1=<AC-2>&17
5135 035621 201 04 0 00 035621 MOVEI AC-1,.
5136 035622 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5137 035623 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5138 035624 202 04 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5139 035625 201 04 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5140 035626 240 04 1 00 030667 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
5141 035627 240 04 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5142 035630 HLLE2: RANDOM^
5143 035630 200 05 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5144 035631 270 05 0 00 040071 ADD AC,[142536475076]
5145 035632 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5146 035633 447 05 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
5147 035634 200 07 0 00 040201 MOVE AC2,RAN ;SAVE RAN IN AN AC.
5148 035635 241 05 0 00 000011 HLLE3: ROT AC,11 ;C(AC)=SECOND RAN. NUM
5149 035636 200 03 0 00 000005 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
5150 035637 200 06 0 00 040201 MOVE AC1,RAN ;SIMULATE
5151 035640 620 06 0 00 777777 TRZ AC1,-1 ;A
5152 035641 603 07 0 00 400000 TLNE AC2,400000 ;HLLE
5153 035642 660 06 0 00 777777 TRO AC1,-1 ;INST
5154 035643 530 05 0 00 040201 HLLE AC,RAN ;DO HLLE
5155 035644 312 05 0 00 000006 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
5156 035645 001 07 0 00 000003 ERR AC2,RAN1
5157 LOOP HLLE2,HLLE3^
5158 035646 367 04 0 00 035630 SOJG AC-1,HLLE2 ;ITERATION COUNTER
5159 035647 200 05 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5160 035650 321 04 0 00 035635 JUMPL AC-1,HLLE3 ;LOOP ON ERROR SWITCH ^
5161
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 112
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0143
5162
5163
5164 ;TEST HLLEI. CHECK C(AC) FOR 0
5165 ;RAN TO RAN1
5166
5167
5168 000006 AC=6
5169 035651 HLLEI1: SETUP 200,2^
5170 000007 AC1=<AC+1>&17
5171 000010 AC2=<AC+2>&17
5172 000011 AC3=<AC+3>&17
5173 000012 AC4=<AC+4>&17
5174 000013 AC5=<AC+5>&17
5175 000004 RAN1=<AC-2>&17
5176 035651 201 05 0 00 035651 MOVEI AC-1,.
5177 035652 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5178 035653 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5179 035654 202 05 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5180 035655 201 05 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5181 035656 240 05 1 00 030667 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
5182 035657 240 05 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5183 035660 HLLEI2: RANDOM^
5184 035660 200 06 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5185 035661 270 06 0 00 040071 ADD AC,[142536475076]
5186 035662 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5187 035663 447 06 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
5188 035664 200 07 0 00 040201 MOVE AC1,RAN ;SAVE RAN IN AN AC.
5189 035665 241 06 0 00 000011 HLLEI3: ROT AC,11 ;C(AC)=SECOND RAN NUM
5190 035666 200 04 0 00 000006 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
5191 035667 531 06 0 07 000000 HLLEI AC,(AC1) ;DO HLLEI.
5192 035670 312 06 0 00 040074 CAME AC,[0] ;C(AC) SHOULD=0
5193 035671 003 04 0 07 000000 ERRI RAN1,(AC1)
5194 LOOP HLLEI2,HLLEI3^
5195 035672 367 05 0 00 035660 SOJG AC-1,HLLEI2 ;ITERATION COUNTER
5196 035673 200 06 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5197 035674 321 05 0 00 035665 JUMPL AC-1,HLLEI3 ;LOOP ON ERROR SWITCH ^
5198
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 113
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0144
5199
5200
5201 ;TEST HLLEM. CHECK C(E) FOR CORRECT DATA
5202 ;RAN TO RAN1.
5203
5204
5205 000007 AC=7
5206 035675 HLLEM1: SETUP 200,2^
5207 000010 AC1=<AC+1>&17
5208 000011 AC2=<AC+2>&17
5209 000012 AC3=<AC+3>&17
5210 000013 AC4=<AC+4>&17
5211 000014 AC5=<AC+5>&17
5212 000005 RAN1=<AC-2>&17
5213 035675 201 06 0 00 035675 MOVEI AC-1,.
5214 035676 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5215 035677 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5216 035700 202 06 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5217 035701 201 06 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5218 035702 240 06 1 00 030667 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
5219 035703 240 06 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5220 035704 HLLEM2: RANDOM^
5221 035704 200 07 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5222 035705 270 07 0 00 040071 ADD AC,[142536475076]
5223 035706 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5224 035707 447 07 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
5225 035710 200 11 0 00 040201 MOVE AC2,RAN ;SAVE AC IN AN AC.
5226 035711 241 07 0 00 000011 HLLEM3: ROT AC,11 ;C(E)=SECOND RANDOM NUMBER
5227 035712 200 05 0 00 000007 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR
5228 035713 200 10 0 00 040201 MOVE AC1,RAN ;SIMULATE
5229 035714 620 10 0 00 777777 TRZ AC1,-1 ;A
5230 035715 603 11 0 00 400000 TLNE AC2,400000 ;HLLEM
5231 035716 660 10 0 00 777777 TRO AC1,-1 ;INST
5232 035717 532 11 0 00 000007 HLLEM AC2,AC ;DO HLLEM.
5233 035720 312 10 0 00 000007 CAME AC1,AC ;C(E) SHOULD=SIM ANS
5234 035721 002 05 0 00 040201 ERRM RAN1,RAN
5235 LOOP HLLEM2,HLLEM3^
5236 035722 367 06 0 00 035704 SOJG AC-1,HLLEM2 ;ITERATION COUNTER
5237 035723 200 07 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5238 035724 321 06 0 00 035711 JUMPL AC-1,HLLEM3 ;LOOP ON ERROR SWITCH ^
5239
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 114
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0145
5240
5241
5242 ;TEST HLLES. CHECK C(E) FOR CORRECT DATA AND
5243 ;PROPER STORING THE C(E) INTO C(AC) FOR RAN TO RAN CONDITION
5244
5245
5246 000010 AC=10
5247 035725 HLLES1: SETUP 200,2^
5248 000011 AC1=<AC+1>&17
5249 000012 AC2=<AC+2>&17
5250 000013 AC3=<AC+3>&17
5251 000014 AC4=<AC+4>&17
5252 000015 AC5=<AC+5>&17
5253 000006 RAN1=<AC-2>&17
5254 035725 201 07 0 00 035725 MOVEI AC-1,.
5255 035726 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5256 035727 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5257 035730 202 07 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5258 035731 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5259 035732 240 07 1 00 030667 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
5260 035733 240 07 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5261 035734 HLLES2: RANDOM^
5262 035734 200 10 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5263 035735 270 10 0 00 040071 ADD AC,[142536475076]
5264 035736 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5265 035737 447 10 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
5266 035740 477 11 0 00 000006 HLLES3: SETOB AC1,RAN1 ;SET C(AC)=-1
5267 035741 200 12 0 00 000010 MOVE AC2,AC ;SIMULATE
5268 035742 620 12 0 00 777777 TRZ AC2,-1 ;A
5269 035743 603 10 0 00 400000 TLNE AC,400000 ;HLLES
5270 035744 660 12 0 00 777777 TRO AC2,-1 ;INST
5271 035745 533 11 0 00 000010 HLLES AC1,AC ;DO HLLES
5272 035746 312 11 0 00 000010 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER HLLES
5273 035747 012 00 0 00 000006 EERRM ,RAN1
5274 035750 312 12 0 00 000010 CAME AC2,AC ;C(E) SHOULD= SIM. ANS
5275 035751 012 00 0 00 000006 EERRM ,RAN1
5276 LOOP HLLES2,HLLES3^
5277 035752 367 07 0 00 035734 SOJG AC-1,HLLES2 ;ITERATION COUNTER
5278 035753 200 10 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5279 035754 321 07 0 00 035740 JUMPL AC-1,HLLES3 ;LOOP ON ERROR SWITCH ^
5280
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 115
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0146
5281
5282
5283 ;TEST HRRE. CHECK C(AC) FOR CORRECT DATA
5284 ;RAN TO RAN1.
5285
5286
5287 000011 AC=11
5288 035755 HRRE1: SETUP 200,2^
5289 000012 AC1=<AC+1>&17
5290 000013 AC2=<AC+2>&17
5291 000014 AC3=<AC+3>&17
5292 000015 AC4=<AC+4>&17
5293 000016 AC5=<AC+5>&17
5294 000007 RAN1=<AC-2>&17
5295 035755 201 10 0 00 035755 MOVEI AC-1,.
5296 035756 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5297 035757 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5298 035760 202 10 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5299 035761 201 10 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5300 035762 240 10 1 00 030667 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
5301 035763 240 10 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5302 035764 HRRE2: RANDOM^
5303 035764 200 11 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5304 035765 270 11 0 00 040071 ADD AC,[142536475076]
5305 035766 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5306 035767 447 11 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
5307 035770 200 13 0 00 040201 MOVE AC2,RAN ;SAVE RAN IN AN AC.
5308 035771 241 11 0 00 000011 HRRE3: ROT AC,11 ;C(AC)=SECOND RAN NUM
5309 035772 200 07 0 00 000011 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
5310 035773 200 12 0 00 040201 MOVE AC1,RAN ;SIMULATE
5311 035774 621 12 0 00 777777 TLZ AC1,-1 ;A
5312 035775 602 13 0 00 400000 TRNE AC2,400000 ;HRRE
5313 035776 661 12 0 00 777777 TLO AC1,-1 ;INST
5314 035777 570 11 0 00 040201 HRRE AC,RAN ;DO HRRE
5315 036000 312 11 0 00 000012 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
5316 036001 001 13 0 00 000007 ERR AC2,RAN1
5317 LOOP HRRE2,HRRE3^
5318 036002 367 10 0 00 035764 SOJG AC-1,HRRE2 ;ITERATION COUNTER
5319 036003 200 11 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5320 036004 321 10 0 00 035771 JUMPL AC-1,HRRE3 ;LOOP ON ERROR SWITCH ^
5321
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 116
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0147
5322
5323
5324 ;TEST HRREI. CHECK C(AC) FOR CORRECT DATA
5325 ;RAN TO RAN1
5326
5327
5328 000004 AC=4
5329 036005 HRREI1: SETUP 200,2^
5330 000005 AC1=<AC+1>&17
5331 000006 AC2=<AC+2>&17
5332 000007 AC3=<AC+3>&17
5333 000010 AC4=<AC+4>&17
5334 000011 AC5=<AC+5>&17
5335 000002 RAN1=<AC-2>&17
5336 036005 201 03 0 00 036005 MOVEI AC-1,.
5337 036006 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5338 036007 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5339 036010 202 03 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5340 036011 201 03 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5341 036012 240 03 1 00 030667 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
5342 036013 240 03 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5343 036014 HRREI2: RANDOM^
5344 036014 200 04 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5345 036015 270 04 0 00 040071 ADD AC,[142536475076]
5346 036016 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5347 036017 447 04 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
5348 036020 200 06 0 00 040201 MOVE AC2,RAN ;SAVE RAN IN AN AC.
5349 036021 241 04 0 00 000011 HRREI3: ROT AC,11 ;C(AC)=SECOND RANDOM NUM
5350 036022 200 02 0 00 000004 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
5351 036023 200 05 0 00 040201 MOVE AC1,RAN ;SIMULATE
5352 036024 621 05 0 00 777777 TLZ AC1,-1 ;A
5353 036025 602 06 0 00 400000 TRNE AC2,400000 ;HRREI
5354 036026 661 05 0 00 777777 TLO AC1,-1 ;INST
5355 036027 571 04 0 06 000000 HRREI AC,(AC2) ;DO HRREI.
5356 036030 312 04 0 00 000005 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
5357 036031 003 02 0 06 000000 ERRI RAN1,(AC2)
5358 LOOP HRREI2,HRREI3^
5359 036032 367 03 0 00 036014 SOJG AC-1,HRREI2 ;ITERATION COUNTER
5360 036033 200 04 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5361 036034 321 03 0 00 036021 JUMPL AC-1,HRREI3 ;LOOP ON ERROR SWITCH ^
5362
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 117
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0148
5363
5364
5365 ;TEST HRREM CHECK C(E) FOR CORRECT DATA
5366 ;RAN TO RAN1
5367
5368
5369 000005 AC=5
5370 036035 HRREM1: SETUP 200,2^
5371 000006 AC1=<AC+1>&17
5372 000007 AC2=<AC+2>&17
5373 000010 AC3=<AC+3>&17
5374 000011 AC4=<AC+4>&17
5375 000012 AC5=<AC+5>&17
5376 000003 RAN1=<AC-2>&17
5377 036035 201 04 0 00 036035 MOVEI AC-1,.
5378 036036 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5379 036037 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5380 036040 202 04 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5381 036041 201 04 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5382 036042 240 04 1 00 030667 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
5383 036043 240 04 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5384 036044 HRREM2: RANDOM^
5385 036044 200 05 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5386 036045 270 05 0 00 040071 ADD AC,[142536475076]
5387 036046 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5388 036047 447 05 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
5389 036050 200 07 0 00 040201 MOVE AC2,RAN ;SAVE RAN IN AN AC.
5390 036051 241 05 0 00 000011 HRREM3: ROT AC,11 ;C(E)=SECOND RAN NUMBER
5391 036052 200 03 0 00 000005 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR
5392 036053 200 06 0 00 040201 MOVE AC1,RAN ;SIMULATE
5393 036054 621 06 0 00 777777 TLZ AC1,-1 ;A
5394 036055 602 07 0 00 400000 TRNE AC2,400000 ;HRREM
5395 036056 661 06 0 00 777777 TLO AC1,-1 ;INST
5396 036057 572 07 0 00 000005 HRREM AC2,AC ;DO HRREM.
5397 036060 312 06 0 00 000005 CAME AC1,AC ;C(E) SHOULD=SIM. ANS
5398 036061 002 03 0 00 040201 ERRM RAN1,RAN
5399 LOOP HRREM2,HRREM3^
5400 036062 367 04 0 00 036044 SOJG AC-1,HRREM2 ;ITERATION COUNTER
5401 036063 200 05 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5402 036064 321 04 0 00 036051 JUMPL AC-1,HRREM3 ;LOOP ON ERROR SWITCH ^
5403
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 118
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0149
5404
5405
5406 ;TEST HRRES. CHECK C(E) FOR CORRECT DATA AND
5407 ;PROPER STORING OF C(E) INTO AC FOR RAN TO RAN CONDITION
5408
5409
5410 000006 AC=6
5411 036065 HRRES1: SETUP 200,2^
5412 000007 AC1=<AC+1>&17
5413 000010 AC2=<AC+2>&17
5414 000011 AC3=<AC+3>&17
5415 000012 AC4=<AC+4>&17
5416 000013 AC5=<AC+5>&17
5417 000004 RAN1=<AC-2>&17
5418 036065 201 05 0 00 036065 MOVEI AC-1,.
5419 036066 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5420 036067 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5421 036070 202 05 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5422 036071 201 05 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5423 036072 240 05 1 00 030667 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
5424 036073 240 05 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5425 036074 HRRES2: RANDOM^
5426 036074 200 06 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5427 036075 270 06 0 00 040071 ADD AC,[142536475076]
5428 036076 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5429 036077 447 06 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
5430 036100 477 07 0 00 000004 HRRES3: SETOB AC1,RAN1 ;SET C(AC) TO -1
5431 036101 200 10 0 00 000006 MOVE AC2,AC ;SIMULATE
5432 036102 621 10 0 00 777777 TLZ AC2,-1 ;A
5433 036103 602 06 0 00 400000 TRNE AC,400000 ;HRRES
5434 036104 661 10 0 00 777777 TLO AC2,-1 ;INST
5435 036105 573 07 0 00 000006 HRRES AC1,AC ;DO HRRES
5436 036106 312 07 0 00 000006 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER HRRES
5437 036107 012 00 0 00 000004 EERRM ,RAN1
5438 036110 312 10 0 00 000006 CAME AC2,AC ;C(E) SHOULD = SIM. ANS.
5439 036111 012 00 0 00 000004 EERRM ,RAN1
5440 LOOP HRRES2,HRRES3^
5441 036112 367 05 0 00 036074 SOJG AC-1,HRRES2 ;ITERATION COUNTER
5442 036113 200 06 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5443 036114 321 05 0 00 036100 JUMPL AC-1,HRRES3 ;LOOP ON ERROR SWITCH ^
5444
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 119
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0150
5445
5446
5447 ;TEST HRLZ. CHECK C(AC) FOR CORRECT DATA
5448 ;RAN TO RAN1.
5449
5450
5451 000007 AC=7
5452 036115 HRLZ1: SETUP 200,1^
5453 000010 AC1=<AC+1>&17
5454 000011 AC2=<AC+2>&17
5455 000012 AC3=<AC+3>&17
5456 000013 AC4=<AC+4>&17
5457 000014 AC5=<AC+5>&17
5458 000005 RAN1=<AC-2>&17
5459 036115 201 06 0 00 036115 MOVEI AC-1,.
5460 036116 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5461 036117 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5462 036120 202 06 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5463 036121 201 06 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5464 036122 240 06 1 00 030666 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
5465 036123 240 06 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5466 036124 HRLZ2: RANDOM^
5467 036124 200 07 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5468 036125 270 07 0 00 040071 ADD AC,[142536475076]
5469 036126 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5470 036127 447 07 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
5471 036130 200 11 0 00 040201 MOVE AC2,RAN ;SAVE RAN IN AN AC.
5472 036131 241 07 0 00 000011 HRLZ3: ROT AC,11 ;C(AC)=SECOND RAN. NUM
5473 036132 200 05 0 00 000007 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
5474 036133 205 10 0 11 000000 MOVSI AC1,(AC2) ;SIMULATE A HRLZ INST.
5475 036134 514 07 0 00 040201 HRLZ AC,RAN ;DO HRLZ
5476 036135 312 07 0 00 000010 CAME AC,AC1 ;C(E) SHOULD=SIM.ANS
5477 036136 001 11 0 00 000005 ERR AC2,RAN1
5478 LOOP HRLZ2,HRLZ3^
5479 036137 367 06 0 00 036124 SOJG AC-1,HRLZ2 ;ITERATION COUNTER
5480 036140 200 07 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5481 036141 321 06 0 00 036131 JUMPL AC-1,HRLZ3 ;LOOP ON ERROR SWITCH ^
5482
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 120
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0151
5483
5484
5485 ;TEST HRLZI. CHECK C(AC) FOR CORRECT DATA
5486 ;RAN TO RAN1
5487
5488
5489 000010 AC=10
5490 036142 HRLZI1: SETUP 200,1^
5491 000011 AC1=<AC+1>&17
5492 000012 AC2=<AC+2>&17
5493 000013 AC3=<AC+3>&17
5494 000014 AC4=<AC+4>&17
5495 000015 AC5=<AC+5>&17
5496 000006 RAN1=<AC-2>&17
5497 036142 201 07 0 00 036142 MOVEI AC-1,.
5498 036143 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5499 036144 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5500 036145 202 07 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5501 036146 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5502 036147 240 07 1 00 030666 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
5503 036150 240 07 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5504 036151 HRLZI2: RANDOM^
5505 036151 200 10 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5506 036152 270 10 0 00 040071 ADD AC,[142536475076]
5507 036153 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5508 036154 447 10 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
5509 036155 200 13 0 00 040201 MOVE AC3,RAN ;SAVE RAN IN AN AC.
5510 036156 241 10 0 00 000011 HRLZI3: ROT AC,11 ;C(AC)=SECOND RAN. NUM
5511 036157 200 06 0 00 000010 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
5512 036160 205 11 0 13 000000 MOVSI AC1,(AC3) ;SIMULATE A HRLZI INST.
5513 036161 515 10 0 13 000000 HRLZI AC,(AC3) ;DO HRLZI.
5514 036162 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
5515 036163 003 06 0 13 000000 ERRI RAN1,(AC3)
5516 LOOP HRLZI2,HRLZI3^
5517 036164 367 07 0 00 036151 SOJG AC-1,HRLZI2 ;ITERATION COUNTER
5518 036165 200 10 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5519 036166 321 07 0 00 036156 JUMPL AC-1,HRLZI3 ;LOOP ON ERROR SWITCH ^
5520
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 121
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0152
5521
5522
5523 ;TEST HRLZM. CHECK C(E) FOR CORRECT DATA.
5524 ;RAN TO RAN1
5525
5526
5527 000010 AC=10
5528 036167 HRLZM1: SETUP 200,1^
5529 000011 AC1=<AC+1>&17
5530 000012 AC2=<AC+2>&17
5531 000013 AC3=<AC+3>&17
5532 000014 AC4=<AC+4>&17
5533 000015 AC5=<AC+5>&17
5534 000006 RAN1=<AC-2>&17
5535 036167 201 07 0 00 036167 MOVEI AC-1,.
5536 036170 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5537 036171 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5538 036172 202 07 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5539 036173 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5540 036174 240 07 1 00 030666 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
5541 036175 240 07 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5542 036176 HRLZM2: RANDOM^
5543 036176 200 10 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5544 036177 270 10 0 00 040071 ADD AC,[142536475076]
5545 036200 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5546 036201 447 10 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
5547 036202 200 12 0 00 040201 MOVE AC2,RAN ;SAVE RAN IN AN AC.
5548 036203 241 10 0 00 000011 HRLZM3: ROT AC,11 ;C(E)=SECOND RAN. NUM
5549 036204 200 06 0 00 000010 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR
5550 036205 205 11 0 12 000000 MOVSI AC1,(AC2) ;SIMULATE A HRLZM INST.
5551 036206 516 12 0 00 000010 HRLZM AC2,AC ;DO HRLZM.
5552 036207 312 11 0 00 000010 CAME AC1,AC ;C(E) SHOULD=SIM. ANS.
5553 036210 002 06 0 00 040201 ERRM RAN1,RAN
5554 LOOP HRLZM2,HRLZM3^
5555 036211 367 07 0 00 036176 SOJG AC-1,HRLZM2 ;ITERATION COUNTER
5556 036212 200 10 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5557 036213 321 07 0 00 036203 JUMPL AC-1,HRLZM3 ;LOOP ON ERROR SWITCH ^
5558
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 122
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0153
5559
5560
5561 ;TEST HRLZS. CHECK C(E) FOR CORRECT DATA AND
5562 ;PROPER STORING OF C(E) INTO AC FOR RAN TO RAN CONDITION
5563
5564
5565 000002 AC=2
5566 036214 HRLZS1: SETUP 200,1^
5567 000003 AC1=<AC+1>&17
5568 000004 AC2=<AC+2>&17
5569 000005 AC3=<AC+3>&17
5570 000006 AC4=<AC+4>&17
5571 000007 AC5=<AC+5>&17
5572 000000 RAN1=<AC-2>&17
5573 036214 201 01 0 00 036214 MOVEI AC-1,.
5574 036215 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5575 036216 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5576 036217 202 01 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5577 036220 201 01 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5578 036221 240 01 1 00 030666 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
5579 036222 240 01 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5580 036223 HRLZS2: RANDOM^
5581 036223 200 02 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5582 036224 270 02 0 00 040071 ADD AC,[142536475076]
5583 036225 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5584 036226 447 02 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
5585 036227 200 05 0 00 040201 MOVE AC3,RAN ;SAVE RAN IN AN AC.
5586 036230 477 03 0 00 000000 HRLZS3: SETOB AC1,RAN1 ;SET C(AC) TO -1
5587 036231 205 04 0 05 000000 MOVSI AC2,(AC3) ;SIMULATE A HRLZ INST.
5588 036232 517 03 0 00 000002 HRLZS AC1,AC ;DO HRLZS
5589 036233 312 03 0 00 000002 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER HRLZS
5590 036234 002 05 0 00 000000 ERRM AC3,RAN1
5591 036235 312 04 0 00 000002 CAME AC2,AC ;C(E) SHOULD=SIM ANS
5592 036236 002 05 0 00 000000 ERRM AC3,RAN1
5593 LOOP HRLZS2,HRLZS3^
5594 036237 367 01 0 00 036223 SOJG AC-1,HRLZS2 ;ITERATION COUNTER
5595 036240 200 02 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5596 036241 321 01 0 00 036230 JUMPL AC-1,HRLZS3 ;LOOP ON ERROR SWITCH ^
5597
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 123
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0154
5598
5599
5600 ;TEST HLRZ CHECK C(AC) FOR CORRECT DATA
5601 ;RAN TO RAN1
5602
5603
5604 000003 AC=3
5605 036242 HLRZ1: SETUP 200,1^
5606 000004 AC1=<AC+1>&17
5607 000005 AC2=<AC+2>&17
5608 000006 AC3=<AC+3>&17
5609 000007 AC4=<AC+4>&17
5610 000010 AC5=<AC+5>&17
5611 000001 RAN1=<AC-2>&17
5612 036242 201 02 0 00 036242 MOVEI AC-1,.
5613 036243 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5614 036244 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5615 036245 202 02 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5616 036246 201 02 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5617 036247 240 02 1 00 030666 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
5618 036250 240 02 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5619 036251 HLRZ2: RANDOM^
5620 036251 200 03 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5621 036252 270 03 0 00 040071 ADD AC,[142536475076]
5622 036253 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5623 036254 447 03 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
5624 036255 241 03 0 00 000011 HLRZ3: ROT AC,11 ;C(AC)=SECOND RAN. NUM
5625 036256 200 01 0 00 000003 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
5626 036257 204 04 0 00 040201 MOVS AC1,RAN ;SIMULATE
5627 036260 621 04 0 00 777777 TLZ AC1,-1 ;A HLRZ INST.
5628 036261 554 03 0 00 040201 HLRZ AC,RAN ;DO HLRZ
5629 036262 312 03 0 00 000004 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS.
5630 036263 011 00 0 00 000001 EERR ,RAN1
5631 LOOP HLRZ2,HLRZ3^
5632 036264 367 02 0 00 036251 SOJG AC-1,HLRZ2 ;ITERATION COUNTER
5633 036265 200 03 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5634 036266 321 02 0 00 036255 JUMPL AC-1,HLRZ3 ;LOOP ON ERROR SWITCH ^
5635
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 124
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0155
5636
5637
5638 ;TEST HLRZI. CHECK C(AC) FOR 0
5639 ;RAN TO RAN1.
5640
5641
5642 000003 AC=3
5643 036267 HLRZI1: SETUP 200,1^
5644 000004 AC1=<AC+1>&17
5645 000005 AC2=<AC+2>&17
5646 000006 AC3=<AC+3>&17
5647 000007 AC4=<AC+4>&17
5648 000010 AC5=<AC+5>&17
5649 000001 RAN1=<AC-2>&17
5650 036267 201 02 0 00 036267 MOVEI AC-1,.
5651 036270 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5652 036271 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5653 036272 202 02 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5654 036273 201 02 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5655 036274 240 02 1 00 030666 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
5656 036275 240 02 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5657 036276 HLRZI2: RANDOM^
5658 036276 200 03 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5659 036277 270 03 0 00 040071 ADD AC,[142536475076]
5660 036300 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5661 036301 447 03 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
5662 036302 200 04 0 00 040201 MOVE AC1,RAN ;SAVE RAN IN AN AC.
5663 036303 241 03 0 00 000011 HLRZI3: ROT AC,11 ;C(AC)=SECOND RAN. NUM
5664 036304 200 01 0 00 000003 MOVE RAN1,AC ;SAVE C (AC) IN CASE OF ERROR
5665 036305 555 03 0 04 000000 HLRZI AC,(AC1) ;DO HLRZI.
5666 036306 312 03 0 00 040074 CAME AC,[0] ;C(AC) SHOULD=0
5667 036307 003 01 0 04 000000 ERRI RAN1,(AC1)
5668 LOOP HLRZI2,HLRZI3^
5669 036310 367 02 0 00 036276 SOJG AC-1,HLRZI2 ;ITERATION COUNTER
5670 036311 200 03 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5671 036312 321 02 0 00 036303 JUMPL AC-1,HLRZI3 ;LOOP ON ERROR SWITCH ^
5672
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 125
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0156
5673
5674
5675 ;TEST HLRZM. CHECK C(E) FOR CORRECT DATA
5676 ;RAN TO RAN1
5677
5678
5679 000003 AC=3
5680 036313 HLRZM1: SETUP 200,1^
5681 000004 AC1=<AC+1>&17
5682 000005 AC2=<AC+2>&17
5683 000006 AC3=<AC+3>&17
5684 000007 AC4=<AC+4>&17
5685 000010 AC5=<AC+5>&17
5686 000001 RAN1=<AC-2>&17
5687 036313 201 02 0 00 036313 MOVEI AC-1,.
5688 036314 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5689 036315 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5690 036316 202 02 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5691 036317 201 02 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5692 036320 240 02 1 00 030666 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
5693 036321 240 02 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5694 036322 HLRZM2: RANDOM^
5695 036322 200 03 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5696 036323 270 03 0 00 040071 ADD AC,[142536475076]
5697 036324 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5698 036325 447 03 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
5699 036326 200 05 0 00 040201 MOVE AC2,RAN ;SAVE RAN IN AN AC.
5700 036327 241 03 0 00 000011 HLRZM3: ROT AC,11 ;C(E)=SECOND RAN. NUM
5701 036330 200 01 0 00 000003 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR
5702 036331 204 04 0 00 040201 MOVS AC1,RAN ;SIMULATE
5703 036332 621 04 0 00 777777 TLZ AC1,-1 ;A HLRZ INST
5704 036333 556 05 0 00 000003 HLRZM AC2,AC ;DO A HLRZM.
5705 036334 312 04 0 00 000003 CAME AC1,AC ;C(E) SHOULD=SIM ANS
5706 036335 002 01 0 00 040201 ERRM RAN1,RAN
5707 LOOP HLRZM2,HLRZM3^
5708 036336 367 02 0 00 036322 SOJG AC-1,HLRZM2 ;ITERATION COUNTER
5709 036337 200 03 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5710 036340 321 02 0 00 036327 JUMPL AC-1,HLRZM3 ;LOOP ON ERROR SWITCH ^
5711
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 126
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0157
5712
5713
5714 ;TEST HLRZS. CHECK C(E) FOR CORRECT DATA AND
5715 ;PROPER STORING C(E) INTO AC FOR RAN TO RAN CONDITION
5716
5717
5718 000004 AC=4
5719 036341 HLRZS1: SETUP 200,1^
5720 000005 AC1=<AC+1>&17
5721 000006 AC2=<AC+2>&17
5722 000007 AC3=<AC+3>&17
5723 000010 AC4=<AC+4>&17
5724 000011 AC5=<AC+5>&17
5725 000002 RAN1=<AC-2>&17
5726 036341 201 03 0 00 036341 MOVEI AC-1,.
5727 036342 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5728 036343 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5729 036344 202 03 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5730 036345 201 03 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5731 036346 240 03 1 00 030666 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
5732 036347 240 03 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5733 036350 HLRZS2: RANDOM^
5734 036350 200 04 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5735 036351 270 04 0 00 040071 ADD AC,[142536475076]
5736 036352 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5737 036353 447 04 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
5738 036354 477 05 0 00 000002 HLRZS3: SETOB AC1,RAN1 ;SET C(AC) TO = -1
5739 036355 204 06 0 00 000004 MOVS AC2,AC ;SIMULATE
5740 036356 621 06 0 00 777777 TLZ AC2,-1 ;A HLRZ
5741 036357 557 05 0 00 000004 HLRZS AC1,AC ;DO HLRZS
5742 036360 312 05 0 00 000004 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER HLRZS
5743 036361 012 00 0 00 000002 EERRM ,RAN1
5744 036362 312 06 0 00 000004 CAME AC2,AC ;C(E) SHOULD=SIM. ANS.
5745 036363 012 00 0 00 000002 EERRM ,RAN1
5746 LOOP HLRZS2,HLRZS3^
5747 036364 367 03 0 00 036350 SOJG AC-1,HLRZS2 ;ITERATION COUNTER
5748 036365 200 04 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5749 036366 321 03 0 00 036354 JUMPL AC-1,HLRZS3 ;LOOP ON ERROR SWITCH ^
5750
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 127
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0158
5751
5752
5753 ;TEST HLRO CHECK C(AC) FOR CORRECT DATA
5754 ;RAN TO RAN1
5755
5756
5757 000005 AC=5
5758 036367 HLRO1: SETUP 200,1^
5759 000006 AC1=<AC+1>&17
5760 000007 AC2=<AC+2>&17
5761 000010 AC3=<AC+3>&17
5762 000011 AC4=<AC+4>&17
5763 000012 AC5=<AC+5>&17
5764 000003 RAN1=<AC-2>&17
5765 036367 201 04 0 00 036367 MOVEI AC-1,.
5766 036370 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5767 036371 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5768 036372 202 04 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5769 036373 201 04 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5770 036374 240 04 1 00 030666 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
5771 036375 240 04 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5772 036376 HLRO2: RANDOM^
5773 036376 200 05 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5774 036377 270 05 0 00 040071 ADD AC,[142536475076]
5775 036400 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5776 036401 447 05 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
5777 036402 241 05 0 00 000011 HLRO3: ROT AC,11
5778 036403 200 03 0 00 000005 MOVE RAN1,AC ;C(AC)=SECOND RAND. NUM
5779 036404 204 06 0 00 040201 MOVS AC1,RAN ;SIMULAE
5780 036405 661 06 0 00 777777 TLO AC1,-1 ;A HLRO
5781 036406 564 05 0 00 040201 HLRO AC,RAN ;DO HLRO
5782 036407 312 05 0 00 000006 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
5783 036410 011 00 0 00 000003 EERR ,RAN1
5784 LOOP HLRO2,HLRO3^
5785 036411 367 04 0 00 036376 SOJG AC-1,HLRO2 ;ITERATION COUNTER
5786 036412 200 05 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5787 036413 321 04 0 00 036402 JUMPL AC-1,HLRO3 ;LOOP ON ERROR SWITCH ^
5788
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 128
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0159
5789
5790
5791 ;TEST HLROI. CHECK C(AC) FOR CORRECT DATA
5792 ;RAN TO RAN1
5793
5794
5795 000006 AC=6
5796 036414 HLROI1: SETUP 200,1^
5797 000007 AC1=<AC+1>&17
5798 000010 AC2=<AC+2>&17
5799 000011 AC3=<AC+3>&17
5800 000012 AC4=<AC+4>&17
5801 000013 AC5=<AC+5>&17
5802 000004 RAN1=<AC-2>&17
5803 036414 201 05 0 00 036414 MOVEI AC-1,.
5804 036415 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5805 036416 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5806 036417 202 05 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5807 036420 201 05 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5808 036421 240 05 1 00 030666 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
5809 036422 240 05 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5810 036423 HLROI2: RANDOM^
5811 036423 200 06 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5812 036424 270 06 0 00 040071 ADD AC,[142536475076]
5813 036425 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5814 036426 447 06 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
5815 036427 200 10 0 00 040201 MOVE AC2,RAN ;SAVE RAN IN AN AC.
5816 036430 241 06 0 00 000011 HLROI3: ROT AC,11 ;C(AC)=SECOND RAN. NUM
5817 036431 200 04 0 00 000006 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
5818 036432 205 07 0 00 777777 MOVSI AC1,-1 ;SIMULATE A HLROI
5819 036433 565 06 0 10 000000 HLROI AC,(AC2) ;DO HLROI.
5820 036434 312 06 0 00 000007 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
5821 036435 003 04 0 10 000000 ERRI RAN1,(AC2)
5822 LOOP HLROI2,HLROI3^
5823 036436 367 05 0 00 036423 SOJG AC-1,HLROI2 ;ITERATION COUNTER
5824 036437 200 06 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5825 036440 321 05 0 00 036430 JUMPL AC-1,HLROI3 ;LOOP ON ERROR SWITCH ^
5826
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 129
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0160
5827
5828
5829 ;TEST HLROM CHECK C(E) FOR CORRECT DATA.
5830 ;RAN TO RAN1
5831
5832
5833 000007 AC=7
5834 036441 HLROM1: SETUP 200,1^
5835 000010 AC1=<AC+1>&17
5836 000011 AC2=<AC+2>&17
5837 000012 AC3=<AC+3>&17
5838 000013 AC4=<AC+4>&17
5839 000014 AC5=<AC+5>&17
5840 000005 RAN1=<AC-2>&17
5841 036441 201 06 0 00 036441 MOVEI AC-1,.
5842 036442 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5843 036443 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5844 036444 202 06 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5845 036445 201 06 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5846 036446 240 06 1 00 030666 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
5847 036447 240 06 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5848 036450 HLROM2: RANDOM^
5849 036450 200 07 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5850 036451 270 07 0 00 040071 ADD AC,[142536475076]
5851 036452 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5852 036453 447 07 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
5853 036454 200 11 0 00 040201 MOVE AC2,RAN ;SAVE RAN IN AN AC.
5854 036455 241 07 0 00 000011 HLROM3: ROT AC,11 ;C(E)=SECOND RAN. NUM
5855 036456 200 05 0 00 000007 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR
5856 036457 204 10 0 00 040201 MOVS AC1,RAN ;SIMULATE
5857 036460 661 10 0 00 777777 TLO AC1,-1 ;A HLRO
5858 036461 566 11 0 00 000007 HLROM AC2,AC ;DO HLROM.
5859 036462 312 10 0 00 000007 CAME AC1,AC ;C(E) SHOULD=SIM. ANS
5860 036463 002 05 0 00 040201 ERRM RAN1,RAN
5861 LOOP HLROM2,HLROM3^
5862 036464 367 06 0 00 036450 SOJG AC-1,HLROM2 ;ITERATION COUNTER
5863 036465 200 07 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5864 036466 321 06 0 00 036455 JUMPL AC-1,HLROM3 ;LOOP ON ERROR SWITCH ^
5865
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 130
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0161
5866
5867
5868 ;TEST HLROS. CHECK C(E) FOR CORRECT DATA AND
5869 ;PROPER STORING OF C(E) INTO AC FOR RAN TO RAN CONDITION
5870
5871
5872 000010 AC=10
5873 036467 HLROS1: SETUP 200,1^
5874 000011 AC1=<AC+1>&17
5875 000012 AC2=<AC+2>&17
5876 000013 AC3=<AC+3>&17
5877 000014 AC4=<AC+4>&17
5878 000015 AC5=<AC+5>&17
5879 000006 RAN1=<AC-2>&17
5880 036467 201 07 0 00 036467 MOVEI AC-1,.
5881 036470 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5882 036471 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5883 036472 202 07 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5884 036473 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5885 036474 240 07 1 00 030666 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
5886 036475 240 07 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5887 036476 HLROS2: RANDOM^
5888 036476 200 10 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5889 036477 270 10 0 00 040071 ADD AC,[142536475076]
5890 036500 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5891 036501 447 10 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
5892 036502 477 11 0 00 000006 HLROS3: SETOB AC1,RAN1 ;SET C(AC) TO ALL ONES
5893 036503 204 12 0 00 000010 MOVS AC2,AC ;SIMULATE
5894 036504 661 12 0 00 777777 TLO AC2,-1 ;A HLRO
5895 036505 567 11 0 00 000010 HLROS AC1,AC ;DO HLROS
5896 036506 312 11 0 00 000010 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER HLROS.
5897 036507 012 00 0 00 000006 EERRM ,RAN1
5898 036510 312 12 0 00 000010 CAME AC2,AC ;C(E) SHOULD=SIM. ANS
5899 036511 012 00 0 00 000006 EERRM ,RAN1
5900 LOOP HLROS2,HLROS3^
5901 036512 367 07 0 00 036476 SOJG AC-1,HLROS2 ;ITERATION COUNTER
5902 036513 200 10 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5903 036514 321 07 0 00 036502 JUMPL AC-1,HLROS3 ;LOOP ON ERROR SWITCH ^
5904
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 131
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0162
5905
5906
5907 ;TEST HRLE CHECK C(AC) FOR CORRECT DATA
5908 ;RAN TO RAN1.
5909
5910
5911 000011 AC=11
5912 036515 HRLE1: SETUP 200,4^
5913 000012 AC1=<AC+1>&17
5914 000013 AC2=<AC+2>&17
5915 000014 AC3=<AC+3>&17
5916 000015 AC4=<AC+4>&17
5917 000016 AC5=<AC+5>&17
5918 000007 RAN1=<AC-2>&17
5919 036515 201 10 0 00 036515 MOVEI AC-1,.
5920 036516 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5921 036517 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5922 036520 202 10 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5923 036521 201 10 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5924 036522 240 10 1 00 030671 ASH AC-1,@CMPLXT+4 ;ROUTINE COMPLEXITY
5925 036523 240 10 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5926 036524 HRLE2: RANDOM^
5927 036524 200 11 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5928 036525 270 11 0 00 040071 ADD AC,[142536475076]
5929 036526 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5930 036527 447 11 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
5931 036530 200 13 0 00 040201 MOVE AC2,RAN ;SAVE RAN IN AN AC.
5932 036531 241 11 0 00 000011 HRLE3: ROT AC,11 ;C(AC)=SECOND RAN. NUM
5933 036532 200 07 0 00 000011 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
5934 036533 204 12 0 00 040201 MOVS AC1,RAN ;SIULATE
5935 036534 620 12 0 00 777777 TRZ AC1,-1 ;A
5936 036535 602 13 0 00 400000 TRNE AC2,400000 ;HRLE
5937 036536 660 12 0 00 777777 TRO AC1,-1 ;INST
5938 036537 534 11 0 00 040201 HRLE AC,RAN ;NO HRLE
5939 036540 312 11 0 00 000012 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
5940 036541 001 13 0 00 000007 ERR AC2,RAN1
5941 LOOP HRLE2,HRLE3^
5942 036542 367 10 0 00 036524 SOJG AC-1,HRLE2 ;ITERATION COUNTER
5943 036543 200 11 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5944 036544 321 10 0 00 036531 JUMPL AC-1,HRLE3 ;LOOP ON ERROR SWITCH ^
5945
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 132
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0163
5946
5947
5948 ;TEST HRLEI. CHECK C(AC) FOR CORRECT DATA
5949 ;RAN TO RAN1
5950
5951
5952 000004 AC=4
5953 036545 HRLEI1: SETUP 200,4^
5954 000005 AC1=<AC+1>&17
5955 000006 AC2=<AC+2>&17
5956 000007 AC3=<AC+3>&17
5957 000010 AC4=<AC+4>&17
5958 000011 AC5=<AC+5>&17
5959 000002 RAN1=<AC-2>&17
5960 036545 201 03 0 00 036545 MOVEI AC-1,.
5961 036546 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5962 036547 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5963 036550 202 03 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5964 036551 201 03 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5965 036552 240 03 1 00 030671 ASH AC-1,@CMPLXT+4 ;ROUTINE COMPLEXITY
5966 036553 240 03 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5967 036554 HRLEI2: RANDOM^
5968 036554 200 04 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5969 036555 270 04 0 00 040071 ADD AC,[142536475076]
5970 036556 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5971 036557 447 04 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
5972 036560 200 06 0 00 040201 MOVE AC2,RAN ;SAVE RAN IN AN AC.
5973 036561 241 04 0 00 000011 HRLEI3: ROT AC,11 ;C(AC)=SECOND RAN NUM
5974 036562 200 02 0 00 000004 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
5975 036563 204 05 0 00 040201 MOVS AC1,RAN ;SIMULATE
5976 036564 620 05 0 00 777777 TRZ AC1,-1 ;A
5977 036565 602 06 0 00 400000 TRNE AC2,400000 ;HRLE
5978 036566 660 05 0 00 777777 TRO AC1,-1 ;INST
5979 036567 535 04 0 06 000000 HRLEI AC,(AC2) ;DO HRLEI.
5980 036570 312 04 0 00 000005 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
5981 036571 003 02 0 06 000000 ERRI RAN1,(AC2)
5982 LOOP HRLEI2,HRLEI3^
5983 036572 367 03 0 00 036554 SOJG AC-1,HRLEI2 ;ITERATION COUNTER
5984 036573 200 04 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5985 036574 321 03 0 00 036561 JUMPL AC-1,HRLEI3 ;LOOP ON ERROR SWITCH ^
5986
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 133
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0164
5987
5988
5989 ;TEST HRLEM. CHECK C(E) FOR CORRECT DATA
5990 ;RAN TO RAN1
5991
5992
5993 000005 AC=5
5994 036575 HRLEM1: SETUP 200,4^
5995 000006 AC1=<AC+1>&17
5996 000007 AC2=<AC+2>&17
5997 000010 AC3=<AC+3>&17
5998 000011 AC4=<AC+4>&17
5999 000012 AC5=<AC+5>&17
6000 000003 RAN1=<AC-2>&17
6001 036575 201 04 0 00 036575 MOVEI AC-1,.
6002 036576 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6003 036577 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6004 036600 202 04 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6005 036601 201 04 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
6006 036602 240 04 1 00 030671 ASH AC-1,@CMPLXT+4 ;ROUTINE COMPLEXITY
6007 036603 240 04 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6008 036604 HRLEM2: RANDOM^
6009 036604 200 05 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6010 036605 270 05 0 00 040071 ADD AC,[142536475076]
6011 036606 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6012 036607 447 05 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
6013 036610 200 07 0 00 040201 MOVE AC2,RAN ;SAVE RAN IN AN AC.
6014 036611 241 05 0 00 000011 HRLEM3: ROT AC,11 ;C(E)=SECOND RAN. NUM
6015 036612 200 03 0 00 000005 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR
6016 036613 204 06 0 00 040201 MOVS AC1,RAN ;SIMULATE
6017 036614 620 06 0 00 777777 TRZ AC1,-1 ;A
6018 036615 602 07 0 00 400000 TRNE AC2,400000 ;HRLE
6019 036616 660 06 0 00 777777 TRO AC1,-1 ;INST
6020 036617 536 07 0 00 000005 HRLEM AC2,AC ;DO HRLEM.
6021 036620 312 06 0 00 000005 CAME AC1,AC ;C(AC) SHOULD=SIM. ANS
6022 036621 002 03 0 00 040201 ERRM RAN1,RAN
6023 LOOP HRLEM2,HRLEM3^
6024 036622 367 04 0 00 036604 SOJG AC-1,HRLEM2 ;ITERATION COUNTER
6025 036623 200 05 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6026 036624 321 04 0 00 036611 JUMPL AC-1,HRLEM3 ;LOOP ON ERROR SWITCH ^
6027
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 134
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0165
6028
6029
6030 ;TEST HRLES. CHECK C(E) FOR CORRECT DATA AND
6031 ;PROPER STORING OF C(E) INTO AC FOR RAN TO RAN CONDITION
6032
6033
6034 000006 AC=6
6035 036625 HRLES1: SETUP 200,4^
6036 000007 AC1=<AC+1>&17
6037 000010 AC2=<AC+2>&17
6038 000011 AC3=<AC+3>&17
6039 000012 AC4=<AC+4>&17
6040 000013 AC5=<AC+5>&17
6041 000004 RAN1=<AC-2>&17
6042 036625 201 05 0 00 036625 MOVEI AC-1,.
6043 036626 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6044 036627 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6045 036630 202 05 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6046 036631 201 05 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
6047 036632 240 05 1 00 030671 ASH AC-1,@CMPLXT+4 ;ROUTINE COMPLEXITY
6048 036633 240 05 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6049 036634 HRLES2: RANDOM^
6050 036634 200 06 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6051 036635 270 06 0 00 040071 ADD AC,[142536475076]
6052 036636 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6053 036637 447 06 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
6054 036640 477 07 0 00 000004 HRLES3: SETOB AC1,RAN1 ;SET C(AC) TO ALL ONES.
6055 036641 204 10 0 00 000006 MOVS AC2,AC ;SIMULATE
6056 036642 620 10 0 00 777777 TRZ AC2,-1 ;A
6057 036643 602 06 0 00 400000 TRNE AC,400000 ;HRLE
6058 036644 660 10 0 00 777777 TRO AC2,-1 ;INST
6059 036645 537 07 0 00 000006 HRLES AC1,AC ;DO HRLES
6060 036646 312 07 0 00 000006 CAME AC1,AC ;C(AC) HOULD=C(E) AFTER HRLES.
6061 036647 012 00 0 00 000004 EERRM ,RAN1
6062 036650 312 10 0 00 000006 CAME AC2,AC ;C(E) SHOULD=SIM. ANS
6063 036651 012 00 0 00 000004 EERRM ,RAN1
6064 LOOP HRLES2,HRLES3^
6065 036652 367 05 0 00 036634 SOJG AC-1,HRLES2 ;ITERATION COUNTER
6066 036653 200 06 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6067 036654 321 05 0 00 036640 JUMPL AC-1,HRLES3 ;LOOP ON ERROR SWITCH ^
6068
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 135
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0166
6069
6070
6071 ;TEST HLRE CHECK C(AC) FOR CORRECT DATA
6072 ;RAN TO RAN1
6073
6074
6075 000007 AC=7
6076 036655 HLRE1: SETUP 200,4^
6077 000010 AC1=<AC+1>&17
6078 000011 AC2=<AC+2>&17
6079 000012 AC3=<AC+3>&17
6080 000013 AC4=<AC+4>&17
6081 000014 AC5=<AC+5>&17
6082 000005 RAN1=<AC-2>&17
6083 036655 201 06 0 00 036655 MOVEI AC-1,.
6084 036656 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6085 036657 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6086 036660 202 06 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6087 036661 201 06 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
6088 036662 240 06 1 00 030671 ASH AC-1,@CMPLXT+4 ;ROUTINE COMPLEXITY
6089 036663 240 06 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6090 036664 HLRE2: RANDOM^
6091 036664 200 07 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6092 036665 270 07 0 00 040071 ADD AC,[142536475076]
6093 036666 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6094 036667 447 07 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
6095 036670 200 11 0 00 040201 MOVE AC2,RAN ;SAVE RAN IN AN AC.
6096 036671 241 07 0 00 000011 HLRE3: ROT AC,11 ;C(AC)=SECOND RAN. NUM
6097 036672 200 05 0 00 000007 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
6098 036673 204 10 0 00 040201 MOVS AC1,RAN ;SIMULATE
6099 036674 621 10 0 00 777777 TLZ AC1,-1 ;A
6100 036675 603 11 0 00 400000 TLNE AC2,400000 ;HLRE
6101 036676 661 10 0 00 777777 TLO AC1,-1 ;INST
6102 036677 574 07 0 00 040201 HLRE AC,RAN ;DO HLRE
6103 036700 312 07 0 00 000010 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS
6104 036701 001 11 0 00 000005 ERR AC2,RAN1
6105 LOOP HLRE2,HLRE3^
6106 036702 367 06 0 00 036664 SOJG AC-1,HLRE2 ;ITERATION COUNTER
6107 036703 200 07 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6108 036704 321 06 0 00 036671 JUMPL AC-1,HLRE3 ;LOOP ON ERROR SWITCH ^
6109
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 136
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0167
6110
6111
6112 ;TEST HLREI. CHECK C(AC) FOR 0
6113 ;RAN TO RAN1
6114
6115
6116 000010 AC=10
6117 036705 HLREI1: SETUP 200,4^
6118 000011 AC1=<AC+1>&17
6119 000012 AC2=<AC+2>&17
6120 000013 AC3=<AC+3>&17
6121 000014 AC4=<AC+4>&17
6122 000015 AC5=<AC+5>&17
6123 000006 RAN1=<AC-2>&17
6124 036705 201 07 0 00 036705 MOVEI AC-1,.
6125 036706 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6126 036707 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6127 036710 202 07 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6128 036711 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
6129 036712 240 07 1 00 030671 ASH AC-1,@CMPLXT+4 ;ROUTINE COMPLEXITY
6130 036713 240 07 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6131 036714 HLREI2: RANDOM^
6132 036714 200 10 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6133 036715 270 10 0 00 040071 ADD AC,[142536475076]
6134 036716 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6135 036717 447 10 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
6136 036720 200 11 0 00 040201 MOVE AC1,RAN ;SAVE RAN IN AN AC.
6137 036721 241 10 0 00 000001 HLREI3: ROT AC,1 ;C(AC)=SECOND RAN. NUM
6138 036722 200 06 0 00 000010 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR
6139 036723 575 10 0 11 000000 HLREI AC,(AC1) ;DO HLREI INST.
6140 036724 312 10 0 00 040074 CAME AC,[0] ;C(AC) SHOULD = 0.
6141 036725 003 06 0 11 000000 ERRI RAN1,(AC1)
6142 LOOP HLREI2,HLREI3^
6143 036726 367 07 0 00 036714 SOJG AC-1,HLREI2 ;ITERATION COUNTER
6144 036727 200 10 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6145 036730 321 07 0 00 036721 JUMPL AC-1,HLREI3 ;LOOP ON ERROR SWITCH ^
6146
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 137
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0168
6147
6148
6149 ;TEST HLREM. CHECK C(E) FOR CORRECT DATA
6150 ;RAN TO RAN1
6151
6152
6153 000010 AC=10
6154 036731 HLREM1: SETUP 200,4^
6155 000011 AC1=<AC+1>&17
6156 000012 AC2=<AC+2>&17
6157 000013 AC3=<AC+3>&17
6158 000014 AC4=<AC+4>&17
6159 000015 AC5=<AC+5>&17
6160 000006 RAN1=<AC-2>&17
6161 036731 201 07 0 00 036731 MOVEI AC-1,.
6162 036732 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6163 036733 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6164 036734 202 07 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6165 036735 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
6166 036736 240 07 1 00 030671 ASH AC-1,@CMPLXT+4 ;ROUTINE COMPLEXITY
6167 036737 240 07 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6168 036740 HLREM2: RANDOM^
6169 036740 200 10 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6170 036741 270 10 0 00 040071 ADD AC,[142536475076]
6171 036742 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6172 036743 447 10 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
6173 036744 200 12 0 00 040201 MOVE AC2,RAN ;SAVE RAN IN AN AC.
6174 036745 241 10 0 00 000011 HLREM3: ROT AC,11 ;C(E)=SECOND RAN. NUM
6175 036746 200 06 0 00 000010 MOVE RAN1,AC ;SAVE C(E) IN CASE OF ERROR
6176 036747 204 11 0 00 040201 MOVS AC1,RAN ;SIMULATE
6177 036750 621 11 0 00 777777 TLZ AC1,-1 ;A
6178 036751 603 12 0 00 400000 TLNE AC2,400000 ;HLRE
6179 036752 661 11 0 00 777777 TLO AC1,-1 ;INST
6180 036753 576 12 0 00 000010 HLREM AC2,AC ;DO HLREM.
6181 036754 312 11 0 00 000010 CAME AC1,AC ;C(E) SHOULD=SIM. ANS
6182 036755 002 06 0 00 040201 ERRM RAN1,RAN
6183 LOOP HLREM2,HLREM3^
6184 036756 367 07 0 00 036740 SOJG AC-1,HLREM2 ;ITERATION COUNTER
6185 036757 200 10 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6186 036760 321 07 0 00 036745 JUMPL AC-1,HLREM3 ;LOOP ON ERROR SWITCH ^
6187
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 138
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0169
6188
6189
6190 ;TEST HLRES. CHECK C(E) FOR CORRECT DATA AND
6191 ;PROPER STORING OF C(E) INTO AC FOR RAN TO RAN CONDITION
6192
6193
6194 000002 AC=2
6195 036761 HLRES1: SETUP 200,4^
6196 000003 AC1=<AC+1>&17
6197 000004 AC2=<AC+2>&17
6198 000005 AC3=<AC+3>&17
6199 000006 AC4=<AC+4>&17
6200 000007 AC5=<AC+5>&17
6201 000000 RAN1=<AC-2>&17
6202 036761 201 01 0 00 036761 MOVEI AC-1,.
6203 036762 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6204 036763 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6205 036764 202 01 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6206 036765 201 01 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
6207 036766 240 01 1 00 030671 ASH AC-1,@CMPLXT+4 ;ROUTINE COMPLEXITY
6208 036767 240 01 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6209 036770 HLRES2: RANDOM^
6210 036770 200 02 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6211 036771 270 02 0 00 040071 ADD AC,[142536475076]
6212 036772 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6213 036773 447 02 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
6214 036774 477 03 0 00 000000 HLRES3: SETOB AC1,RAN1 ;SET C(E) TO ALL ONES
6215 036775 204 04 0 00 000002 MOVS AC2,AC ;SIMULATE
6216 036776 621 04 0 00 777777 TLZ AC2,-1 ;A
6217 036777 603 02 0 00 400000 TLNE AC,400000 ;HLRE
6218 037000 661 04 0 00 777777 TLO AC2,-1 ;INST
6219 037001 577 03 0 00 000002 HLRES AC1,AC ;DO HLRES
6220 037002 312 03 0 00 000002 CAME AC1,AC ;C(AC) SHOULD=C(E) AFTER HLRES
6221 037003 012 00 0 00 000000 EERRM ,RAN1
6222 037004 312 04 0 00 000002 CAME AC2,AC ;C(E) SHOULD=SIM ANS
6223 037005 012 00 0 00 000000 EERRM ,RAN1
6224 LOOP HLRES2,HLRES3^
6225 037006 367 01 0 00 036770 SOJG AC-1,HLRES2 ;ITERATION COUNTER
6226 037007 200 02 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6227 037010 321 01 0 00 036774 JUMPL AC-1,HLRES3 ;LOOP ON ERROR SWITCH ^
6228
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 139
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0170
6229
6230
6231 DEFINE ADSBSM <
6232 MOVE AC1,AC ;PUT SEC. NUM. INTO AC1.
6233 MOVE AC3,AC1 ;PUT SEC. NUM. INTO AC3 AND
6234 AND AC3,AC2 ;"AND" IT WITH 1ST NUM..PRODUCE CRY BIT.
6235 XOR AC1,AC2 ;PRODUCE SAME 1'S + 0'S AN ADD WOULD
6236 ;PRODUCE, WITHOUT CARRY BITS.
6237 LSH AC3,1 ;SHIFT CRY BIT(S) TO LINE UP WITH NEXT BIT(S).
6238 MOVE AC4,AC1 ;SAVE FOR FUTURE "AND".
6239 TDCN AC1,AC3 ;A 0,1 CONDITION (NO FURTHUR CARRY)
6240 JRST .+3 ;WILL LEAVE WITH ANY CRY BIT(S) SET,
6241 AND AC3,AC4 ;OTHERWISE IT WILL COMP. THE CRY BIT(S) AND
6242 JRST .-5 ;PRODUCE OTHER CRY BIT(S). >
6243
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 140
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0171
6244
6245
6246 ;TEST ADD. CHECK FOR CORRECT DATA IN AC BY
6247 ;SIMULATING AN ADD, DOING AN ADD, AND COMPARING C(AC) WITH
6248 ;SIMULATED ANS.
6249 ;RAN TO RAN1.
6250 000003 AC=3
6251 037011 ADDA1: SETUP 200,2^
6252 000004 AC1=<AC+1>&17
6253 000005 AC2=<AC+2>&17
6254 000006 AC3=<AC+3>&17
6255 000007 AC4=<AC+4>&17
6256 000010 AC5=<AC+5>&17
6257 000001 RAN1=<AC-2>&17
6258 037011 201 02 0 00 037011 MOVEI AC-1,.
6259 037012 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6260 037013 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6261 037014 202 02 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6262 037015 201 02 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
6263 037016 240 02 1 00 030667 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
6264 037017 240 02 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6265 037020 ADDA2: RANDOM^
6266 037020 200 03 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6267 037021 270 03 0 00 040071 ADD AC,[142536475076]
6268 037022 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6269 037023 447 03 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
6270 037024 207 01 0 00 000003 ADDA3: MOVSS RAN1,AC ;C(AC)=SECOND RAN. NUM.
6271 037025 200 05 0 00 040201 MOVE AC2,RAN ;PUT 1ST NUM. INTO AC2.
6272 ;SIMULATE AN ADD INSTRUCTION.
6273 ADSBSM^
6274 037026 200 04 0 00 000003 MOVE AC1,AC ;PUT SEC. NUM. INTO AC1.
6275 037027 200 06 0 00 000004 MOVE AC3,AC1 ;PUT SEC. NUM. INTO AC3 AND
6276 037030 404 06 0 00 000005 AND AC3,AC2 ;"AND" IT WITH 1ST NUM..PRODUCE CRY BIT.
6277 037031 430 04 0 00 000005 XOR AC1,AC2 ;PRODUCE SAME 1'S + 0'S AN ADD WOULD
6278 ;PRODUCE, WITHOUT CARRY BITS.
6279 037032 242 06 0 00 000001 LSH AC3,1 ;SHIFT CRY BIT(S) TO LINE UP WITH NEXT BIT(S).
6280 037033 200 07 0 00 000004 MOVE AC4,AC1 ;SAVE FOR FUTURE "AND".
6281 037034 656 04 0 00 000006 TDCN AC1,AC3 ;A 0,1 CONDITION (NO FURTHUR CARRY)
6282 037035 254 00 0 00 037040 JRST .+3 ;WILL LEAVE WITH ANY CRY BIT(S) SET,
6283 037036 404 06 0 00 000007 AND AC3,AC4 ;OTHERWISE IT WILL COMP. THE CRY BIT(S) AND
6284 037037 254 00 0 00 037032 JRST .-5 ;PRODUCE OTHER CRY BIT(S). ^
6285 037040 270 03 0 00 040201 ADD AC,RAN ;DO AN ADD.
6286 037041 312 03 0 00 000004 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS.
6287 037042 011 00 0 00 000001 EERR ,RAN1
6288 LOOP ADDA2,ADDA3^
6289 037043 367 02 0 00 037020 SOJG AC-1,ADDA2 ;ITERATION COUNTER
6290 037044 200 03 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6291 037045 321 02 0 00 037024 JUMPL AC-1,ADDA3 ;LOOP ON ERROR SWITCH ^
6292
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 141
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0172
6293 ;TEST ADDM. CHECK FOR CORRECT DATA IN E BY
6294 ;SIMULATING AN ADDM, DOING AN ADDM, AND COMPARING C(E)
6295 ;WITH SIMULATED ANS.
6296 ;RAN TO RAN1.
6297 000002 AC=2
6298 037046 ADDMA1: SETUP 200,2^
6299 000003 AC1=<AC+1>&17
6300 000004 AC2=<AC+2>&17
6301 000005 AC3=<AC+3>&17
6302 000006 AC4=<AC+4>&17
6303 000007 AC5=<AC+5>&17
6304 000000 RAN1=<AC-2>&17
6305 037046 201 01 0 00 037046 MOVEI AC-1,.
6306 037047 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6307 037050 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6308 037051 202 01 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6309 037052 201 01 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
6310 037053 240 01 1 00 030667 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
6311 037054 240 01 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6312 037055 ADDMA2: RANDOM^
6313 037055 200 02 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6314 037056 270 02 0 00 040071 ADD AC,[142536475076]
6315 037057 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6316 037060 447 02 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
6317 037061 200 07 0 00 040201 MOVE AC5,RAN ;SAVE RAN IN AN AC.
6318 037062 207 00 0 00 000002 ADDMA3: MOVSS RAN1,AC ;C(E)=SECOND RAN NUM.
6319 037063 200 04 0 00 040201 MOVE AC2,RAN ;PUT 1ST NUMBER INTO AC2
6320 ;SIMULATE AN ADD INSTRUCTION
6321 ADSBSM^
6322 037064 200 03 0 00 000002 MOVE AC1,AC ;PUT SEC. NUM. INTO AC1.
6323 037065 200 05 0 00 000003 MOVE AC3,AC1 ;PUT SEC. NUM. INTO AC3 AND
6324 037066 404 05 0 00 000004 AND AC3,AC2 ;"AND" IT WITH 1ST NUM..PRODUCE CRY BIT.
6325 037067 430 03 0 00 000004 XOR AC1,AC2 ;PRODUCE SAME 1'S + 0'S AN ADD WOULD
6326 ;PRODUCE, WITHOUT CARRY BITS.
6327 037070 242 05 0 00 000001 LSH AC3,1 ;SHIFT CRY BIT(S) TO LINE UP WITH NEXT BIT(S).
6328 037071 200 06 0 00 000003 MOVE AC4,AC1 ;SAVE FOR FUTURE "AND".
6329 037072 656 03 0 00 000005 TDCN AC1,AC3 ;A 0,1 CONDITION (NO FURTHUR CARRY)
6330 037073 254 00 0 00 037076 JRST .+3 ;WILL LEAVE WITH ANY CRY BIT(S) SET,
6331 037074 404 05 0 00 000006 AND AC3,AC4 ;OTHERWISE IT WILL COMP. THE CRY BIT(S) AND
6332 037075 254 00 0 00 037070 JRST .-5 ;PRODUCE OTHER CRY BIT(S). ^
6333 037076 272 07 0 00 000002 ADDM AC5,AC ;DO AN ADDM.
6334 037077 312 03 0 00 000002 CAME AC1,AC ;C(E) SHOULD=SIM. ANS.
6335 037100 002 00 0 00 040201 ERRM RAN1,RAN
6336 LOOP ADDMA2,ADDMA3^
6337 037101 367 01 0 00 037055 SOJG AC-1,ADDMA2 ;ITERATION COUNTER
6338 037102 200 02 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6339 037103 321 01 0 00 037062 JUMPL AC-1,ADDMA3 ;LOOP ON ERROR SWITCH ^
6340
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 142
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0173
6341
6342
6343 ;TEST ADDI. CHECK FOR CORRECT DATA IN AC BY
6344 ;SIMULATING AN ADDI, DOING AN ADDI, AND COMPARING
6345 ;C(AC) WITH SIMULATED ANS.
6346 ;RAN TO RAN1 CONDITION
6347 000003 AC=3
6348 037104 ADDIA1: SETUP 200,2^
6349 000004 AC1=<AC+1>&17
6350 000005 AC2=<AC+2>&17
6351 000006 AC3=<AC+3>&17
6352 000007 AC4=<AC+4>&17
6353 000010 AC5=<AC+5>&17
6354 000001 RAN1=<AC-2>&17
6355 037104 201 02 0 00 037104 MOVEI AC-1,.
6356 037105 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6357 037106 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6358 037107 202 02 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6359 037110 201 02 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
6360 037111 240 02 1 00 030667 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
6361 037112 240 02 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6362 037113 ADDIA2: RANDOM^
6363 037113 200 03 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6364 037114 270 03 0 00 040071 ADD AC,[142536475076]
6365 037115 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6366 037116 447 03 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
6367 037117 200 10 0 00 040201 MOVE AC5,RAN ;SAVE RAN IN AN AC.
6368 037120 207 01 0 00 000003 ADDIA3: MOVSS RAN1,AC ;C(AC)=SECOND RAN. NUM.
6369 037121 201 05 0 10 000000 MOVEI AC2,(AC5) ;PUT 1ST NUM INTO AC2.
6370 ;SIMULATE ADDI INSTRUCTION
6371 ADSBSM^
6372 037122 200 04 0 00 000003 MOVE AC1,AC ;PUT SEC. NUM. INTO AC1.
6373 037123 200 06 0 00 000004 MOVE AC3,AC1 ;PUT SEC. NUM. INTO AC3 AND
6374 037124 404 06 0 00 000005 AND AC3,AC2 ;"AND" IT WITH 1ST NUM..PRODUCE CRY BIT.
6375 037125 430 04 0 00 000005 XOR AC1,AC2 ;PRODUCE SAME 1'S + 0'S AN ADD WOULD
6376 ;PRODUCE, WITHOUT CARRY BITS.
6377 037126 242 06 0 00 000001 LSH AC3,1 ;SHIFT CRY BIT(S) TO LINE UP WITH NEXT BIT(S).
6378 037127 200 07 0 00 000004 MOVE AC4,AC1 ;SAVE FOR FUTURE "AND".
6379 037130 656 04 0 00 000006 TDCN AC1,AC3 ;A 0,1 CONDITION (NO FURTHUR CARRY)
6380 037131 254 00 0 00 037134 JRST .+3 ;WILL LEAVE WITH ANY CRY BIT(S) SET,
6381 037132 404 06 0 00 000007 AND AC3,AC4 ;OTHERWISE IT WILL COMP. THE CRY BIT(S) AND
6382 037133 254 00 0 00 037126 JRST .-5 ;PRODUCE OTHER CRY BIT(S). ^
6383 037134 271 03 0 10 000000 ADDI AC,(AC5) ;DO AN ADDI.
6384 037135 312 03 0 00 000004 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS.
6385 037136 003 01 0 10 000000 ERRI RAN1,(AC5)
6386 LOOP ADDIA2,ADDIA3^
6387 037137 367 02 0 00 037113 SOJG AC-1,ADDIA2 ;ITERATION COUNTER
6388 037140 200 03 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6389 037141 321 02 0 00 037120 JUMPL AC-1,ADDIA3 ;LOOP ON ERROR SWITCH ^
6390
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 143
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0174
6391 ;TEST ADDB. CHECK FOR C(E)=C(AC), AND CORRECT DATA IN AC
6392 ;BY SIMULATING AN ADD, DOING AN ADDB, AND COMPARING C(AC)
6393 ;WITH SIMULATED ANS.
6394 ;RAN TO RAN1 CONDITION.
6395 000004 AC=4
6396 037142 ADDBA1: SETUP 200,2^
6397 000005 AC1=<AC+1>&17
6398 000006 AC2=<AC+2>&17
6399 000007 AC3=<AC+3>&17
6400 000010 AC4=<AC+4>&17
6401 000011 AC5=<AC+5>&17
6402 000002 RAN1=<AC-2>&17
6403 037142 201 03 0 00 037142 MOVEI AC-1,.
6404 037143 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6405 037144 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6406 037145 202 03 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6407 037146 201 03 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
6408 037147 240 03 1 00 030667 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
6409 037150 240 03 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6410 037151 ADDBA2: RANDOM^
6411 037151 200 04 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6412 037152 270 04 0 00 040071 ADD AC,[142536475076]
6413 037153 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6414 037154 447 04 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
6415 037155 207 02 0 00 000004 ADDBA3: MOVSS RAN1,AC ;C(AC)=SECOND RAN NUM.
6416 037156 200 11 0 00 040201 MOVE AC5,RAN ;PUT 1ST NUM INTO C(E).
6417 037157 200 06 0 00 040201 MOVE AC2,RAN ;PUT C(E) (1ST NUM.) INTO AC2.
6418 ;SIMULATE AN ADD INSTRUCTION
6419 ADSBSM^
6420 037160 200 05 0 00 000004 MOVE AC1,AC ;PUT SEC. NUM. INTO AC1.
6421 037161 200 07 0 00 000005 MOVE AC3,AC1 ;PUT SEC. NUM. INTO AC3 AND
6422 037162 404 07 0 00 000006 AND AC3,AC2 ;"AND" IT WITH 1ST NUM..PRODUCE CRY BIT.
6423 037163 430 05 0 00 000006 XOR AC1,AC2 ;PRODUCE SAME 1'S + 0'S AN ADD WOULD
6424 ;PRODUCE, WITHOUT CARRY BITS.
6425 037164 242 07 0 00 000001 LSH AC3,1 ;SHIFT CRY BIT(S) TO LINE UP WITH NEXT BIT(S).
6426 037165 200 10 0 00 000005 MOVE AC4,AC1 ;SAVE FOR FUTURE "AND".
6427 037166 656 05 0 00 000007 TDCN AC1,AC3 ;A 0,1 CONDITION (NO FURTHUR CARRY)
6428 037167 254 00 0 00 037172 JRST .+3 ;WILL LEAVE WITH ANY CRY BIT(S) SET,
6429 037170 404 07 0 00 000010 AND AC3,AC4 ;OTHERWISE IT WILL COMP. THE CRY BIT(S) AND
6430 037171 254 00 0 00 037164 JRST .-5 ;PRODUCE OTHER CRY BIT(S). ^
6431 037172 273 04 0 00 000011 ADDB AC,AC5 ;DO AN ADDB.
6432 037173 312 04 0 00 000011 CAME AC,AC5 ;C(AC) SHOULD=C(E)
6433 037174 011 00 0 00 000002 EERR ,RAN1
6434 037175 312 04 0 00 000005 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS.
6435 037176 011 00 0 00 000002 EERR ,RAN1
6436 LOOP ADDBA2,ADDBA3^
6437 037177 367 03 0 00 037151 SOJG AC-1,ADDBA2 ;ITERATION COUNTER
6438 037200 200 04 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6439 037201 321 03 0 00 037155 JUMPL AC-1,ADDBA3 ;LOOP ON ERROR SWITCH ^
6440
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 144
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0175
6441
6442
6443 ;TEST SUB. CHECK FOR CORRECT DATA IN AC BY
6444 ;SIMULATING A SUB, DOING A SUB, AND COMPARING C(AC)
6445 ;WITH THE SIMULATED ANSWER
6446 ;RAN TO RAN1
6447 000005 AC=5
6448 037202 SUBA1: SETUP 200,2^
6449 000006 AC1=<AC+1>&17
6450 000007 AC2=<AC+2>&17
6451 000010 AC3=<AC+3>&17
6452 000011 AC4=<AC+4>&17
6453 000012 AC5=<AC+5>&17
6454 000003 RAN1=<AC-2>&17
6455 037202 201 04 0 00 037202 MOVEI AC-1,.
6456 037203 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6457 037204 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6458 037205 202 04 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6459 037206 201 04 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
6460 037207 240 04 1 00 030667 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
6461 037210 240 04 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6462 037211 SUBA2: RANDOM^
6463 037211 200 05 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6464 037212 270 05 0 00 040071 ADD AC,[142536475076]
6465 037213 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6466 037214 447 05 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
6467 037215 207 03 0 00 000005 SUBA3: MOVSS RAN1,AC ;C(AC)=SECOND RAN. NUM.
6468 037216 210 07 0 00 040201 MOVN AC2,RAN ;PUT 2'S COMP OF 1ST NUM INTO AC2.
6469 ;SIMULATE A SUB INSTRUCTION
6470 ADSBSM^
6471 037217 200 06 0 00 000005 MOVE AC1,AC ;PUT SEC. NUM. INTO AC1.
6472 037220 200 10 0 00 000006 MOVE AC3,AC1 ;PUT SEC. NUM. INTO AC3 AND
6473 037221 404 10 0 00 000007 AND AC3,AC2 ;"AND" IT WITH 1ST NUM..PRODUCE CRY BIT.
6474 037222 430 06 0 00 000007 XOR AC1,AC2 ;PRODUCE SAME 1'S + 0'S AN ADD WOULD
6475 ;PRODUCE, WITHOUT CARRY BITS.
6476 037223 242 10 0 00 000001 LSH AC3,1 ;SHIFT CRY BIT(S) TO LINE UP WITH NEXT BIT(S).
6477 037224 200 11 0 00 000006 MOVE AC4,AC1 ;SAVE FOR FUTURE "AND".
6478 037225 656 06 0 00 000010 TDCN AC1,AC3 ;A 0,1 CONDITION (NO FURTHUR CARRY)
6479 037226 254 00 0 00 037231 JRST .+3 ;WILL LEAVE WITH ANY CRY BIT(S) SET,
6480 037227 404 10 0 00 000011 AND AC3,AC4 ;OTHERWISE IT WILL COMP. THE CRY BIT(S) AND
6481 037230 254 00 0 00 037223 JRST .-5 ;PRODUCE OTHER CRY BIT(S). ^
6482 037231 274 05 0 00 040201 SUB AC,RAN ;DO A SUB.
6483 037232 312 05 0 00 000006 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS.
6484 037233 011 00 0 00 000003 EERR ,RAN1
6485 LOOP SUBA2,SUBA3^
6486 037234 367 04 0 00 037211 SOJG AC-1,SUBA2 ;ITERATION COUNTER
6487 037235 200 05 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6488 037236 321 04 0 00 037215 JUMPL AC-1,SUBA3 ;LOOP ON ERROR SWITCH ^
6489
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 145
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0176
6490
6491
6492 ;TEST SUBM. CHECK FOR CORRECT DATA IN E BY
6493 ;SIMULATING A SUBM, DOING A SUBM, AND COMPARING C(E)
6494 ;WITH THE SIMULATED ANSWER
6495 ;RAN TO RAN1.
6496 000006 AC=6
6497 037237 SUBMA1: SETUP 200,2^
6498 000007 AC1=<AC+1>&17
6499 000010 AC2=<AC+2>&17
6500 000011 AC3=<AC+3>&17
6501 000012 AC4=<AC+4>&17
6502 000013 AC5=<AC+5>&17
6503 000004 RAN1=<AC-2>&17
6504 037237 201 05 0 00 037237 MOVEI AC-1,.
6505 037240 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6506 037241 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6507 037242 202 05 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6508 037243 201 05 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
6509 037244 240 05 1 00 030667 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
6510 037245 240 05 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6511 037246 SUBMA2: RANDOM^
6512 037246 200 06 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6513 037247 270 06 0 00 040071 ADD AC,[142536475076]
6514 037250 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6515 037251 447 06 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
6516 037252 207 04 0 00 000006 SUBMA3: MOVSS RAN1,AC ;C(AC)=SECOND RAN. NUM.
6517 037253 200 13 0 00 040201 MOVE AC5,RAN ;C(E)=1ST RAN. NUM.
6518 037254 210 10 0 00 000013 MOVN AC2,AC5 ;PUT 1ST RAN. NUM INTO AC2
6519 ;SIMULATE A SUB INSTRUCTION
6520 ADSBSM^
6521 037255 200 07 0 00 000006 MOVE AC1,AC ;PUT SEC. NUM. INTO AC1.
6522 037256 200 11 0 00 000007 MOVE AC3,AC1 ;PUT SEC. NUM. INTO AC3 AND
6523 037257 404 11 0 00 000010 AND AC3,AC2 ;"AND" IT WITH 1ST NUM..PRODUCE CRY BIT.
6524 037260 430 07 0 00 000010 XOR AC1,AC2 ;PRODUCE SAME 1'S + 0'S AN ADD WOULD
6525 ;PRODUCE, WITHOUT CARRY BITS.
6526 037261 242 11 0 00 000001 LSH AC3,1 ;SHIFT CRY BIT(S) TO LINE UP WITH NEXT BIT(S).
6527 037262 200 12 0 00 000007 MOVE AC4,AC1 ;SAVE FOR FUTURE "AND".
6528 037263 656 07 0 00 000011 TDCN AC1,AC3 ;A 0,1 CONDITION (NO FURTHUR CARRY)
6529 037264 254 00 0 00 037267 JRST .+3 ;WILL LEAVE WITH ANY CRY BIT(S) SET,
6530 037265 404 11 0 00 000012 AND AC3,AC4 ;OTHERWISE IT WILL COMP. THE CRY BIT(S) AND
6531 037266 254 00 0 00 037261 JRST .-5 ;PRODUCE OTHER CRY BIT(S). ^
6532 037267 276 06 0 00 000013 SUBM AC,AC5 ;DO A SUBM.
6533 037270 312 07 0 00 000013 CAME AC1,AC5 ;C(E) SHOULD=SIM. ANS.
6534 037271 012 00 0 00 000004 EERRM ,RAN1
6535 LOOP SUBMA2,SUBMA3^
6536 037272 367 05 0 00 037246 SOJG AC-1,SUBMA2 ;ITERATION COUNTER
6537 037273 200 06 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6538 037274 321 05 0 00 037252 JUMPL AC-1,SUBMA3 ;LOOP ON ERROR SWITCH ^
6539
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 146
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0177
6540
6541
6542 ;TEST SUBI. CHECK FOR CORRECT DATA IN AC BY
6543 ;SIMULATING A SUBI, DOING A SUBI, AND COMPARING
6544 ;C(AC) WITH THE SIMULATED ANSWER
6545 ;RAN TO RAN1
6546 000007 AC=7
6547 037275 SUBIA1: SETUP 200,2^
6548 000010 AC1=<AC+1>&17
6549 000011 AC2=<AC+2>&17
6550 000012 AC3=<AC+3>&17
6551 000013 AC4=<AC+4>&17
6552 000014 AC5=<AC+5>&17
6553 000005 RAN1=<AC-2>&17
6554 037275 201 06 0 00 037275 MOVEI AC-1,.
6555 037276 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6556 037277 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6557 037300 202 06 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6558 037301 201 06 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
6559 037302 240 06 1 00 030667 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
6560 037303 240 06 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6561 037304 SUBIA2: RANDOM^
6562 037304 200 07 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6563 037305 270 07 0 00 040071 ADD AC,[142536475076]
6564 037306 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6565 037307 447 07 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
6566 037310 200 14 0 00 040201 MOVE AC5,RAN ;SAVE RAN IN AN AC.
6567 037311 207 05 0 00 000007 SUBIA3: MOVSS RAN1,AC ;C(AC)=SECOND RAN. NUM.
6568 037312 211 11 0 14 000000 MOVNI AC2,(AC5) ;PUT 2'S COMP OF 1ST RAN NUM INTO AC2.
6569 ;SIMULATE A SUB INSTRUCTION
6570 ADSBSM^
6571 037313 200 10 0 00 000007 MOVE AC1,AC ;PUT SEC. NUM. INTO AC1.
6572 037314 200 12 0 00 000010 MOVE AC3,AC1 ;PUT SEC. NUM. INTO AC3 AND
6573 037315 404 12 0 00 000011 AND AC3,AC2 ;"AND" IT WITH 1ST NUM..PRODUCE CRY BIT.
6574 037316 430 10 0 00 000011 XOR AC1,AC2 ;PRODUCE SAME 1'S + 0'S AN ADD WOULD
6575 ;PRODUCE, WITHOUT CARRY BITS.
6576 037317 242 12 0 00 000001 LSH AC3,1 ;SHIFT CRY BIT(S) TO LINE UP WITH NEXT BIT(S).
6577 037320 200 13 0 00 000010 MOVE AC4,AC1 ;SAVE FOR FUTURE "AND".
6578 037321 656 10 0 00 000012 TDCN AC1,AC3 ;A 0,1 CONDITION (NO FURTHUR CARRY)
6579 037322 254 00 0 00 037325 JRST .+3 ;WILL LEAVE WITH ANY CRY BIT(S) SET,
6580 037323 404 12 0 00 000013 AND AC3,AC4 ;OTHERWISE IT WILL COMP. THE CRY BIT(S) AND
6581 037324 254 00 0 00 037317 JRST .-5 ;PRODUCE OTHER CRY BIT(S). ^
6582 037325 275 07 0 14 000000 SUBI AC,(AC5) ;DO A SUBI.
6583 037326 312 07 0 00 000010 CAME AC,AC1 ;C(AC) SHOULD=SIM. ANS.
6584 037327 003 05 0 14 000000 ERRI RAN1,(AC5)
6585 LOOP SUBIA2,SUBIA3^
6586 037330 367 06 0 00 037304 SOJG AC-1,SUBIA2 ;ITERATION COUNTER
6587 037331 200 07 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6588 037332 321 06 0 00 037311 JUMPL AC-1,SUBIA3 ;LOOP ON ERROR SWITCH ^
6589
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 147
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0178
6590 ;TEST SUBB. CHECK FOR C(AC)=C(E), AND CORRECT DATA
6591 ;IN AC BY SIMULATING A SUB, DOING A SUBB, AND COMPARING
6592 ;C(AC) WITH SIMULATED ANSWER.
6593 ;RAN TO RAN1 CONDITION.
6594 000010 AC=10
6595 037333 SUBBA1: SETUP 200,2^
6596 000011 AC1=<AC+1>&17
6597 000012 AC2=<AC+2>&17
6598 000013 AC3=<AC+3>&17
6599 000014 AC4=<AC+4>&17
6600 000015 AC5=<AC+5>&17
6601 000006 RAN1=<AC-2>&17
6602 037333 201 07 0 00 037333 MOVEI AC-1,.
6603 037334 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6604 037335 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6605 037336 202 07 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6606 037337 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
6607 037340 240 07 1 00 030667 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
6608 037341 240 07 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6609 037342 SUBBA2: RANDOM^
6610 037342 200 10 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6611 037343 270 10 0 00 040071 ADD AC,[142536475076]
6612 037344 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6613 037345 447 10 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
6614 037346 207 06 0 00 000010 SUBBA3: MOVSS RAN1,AC ;C(AC)=SECOND RAN. NUM.
6615 037347 200 15 0 00 040201 MOVE AC5,RAN ;C(E)=1ST RAN. NUM.
6616 037350 210 12 0 00 000015 MOVN AC2,AC5 ;PUT 2'S COMP OF 1ST NUM. INTO C2
6617 ;SIMULATE A SUB INSTRUCTION
6618 ADSBSM^
6619 037351 200 11 0 00 000010 MOVE AC1,AC ;PUT SEC. NUM. INTO AC1.
6620 037352 200 13 0 00 000011 MOVE AC3,AC1 ;PUT SEC. NUM. INTO AC3 AND
6621 037353 404 13 0 00 000012 AND AC3,AC2 ;"AND" IT WITH 1ST NUM..PRODUCE CRY BIT.
6622 037354 430 11 0 00 000012 XOR AC1,AC2 ;PRODUCE SAME 1'S + 0'S AN ADD WOULD
6623 ;PRODUCE, WITHOUT CARRY BITS.
6624 037355 242 13 0 00 000001 LSH AC3,1 ;SHIFT CRY BIT(S) TO LINE UP WITH NEXT BIT(S).
6625 037356 200 14 0 00 000011 MOVE AC4,AC1 ;SAVE FOR FUTURE "AND".
6626 037357 656 11 0 00 000013 TDCN AC1,AC3 ;A 0,1 CONDITION (NO FURTHUR CARRY)
6627 037360 254 00 0 00 037363 JRST .+3 ;WILL LEAVE WITH ANY CRY BIT(S) SET,
6628 037361 404 13 0 00 000014 AND AC3,AC4 ;OTHERWISE IT WILL COMP. THE CRY BIT(S) AND
6629 037362 254 00 0 00 037355 JRST .-5 ;PRODUCE OTHER CRY BIT(S). ^
6630 037363 277 10 0 00 000015 SUBB AC,AC5 ;DO A SUBB.
6631 037364 312 10 0 00 000015 CAME AC,AC5 ;C(AC) SHOULD=C(E)
6632 037365 011 00 0 00 000006 EERR ,RAN1
6633 037366 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD=SIM ANS
6634 037367 011 00 0 00 000006 EERR ,RAN1
6635 LOOP SUBBA2,SUBBA3^
6636 037370 367 07 0 00 037342 SOJG AC-1,SUBBA2 ;ITERATION COUNTER
6637 037371 200 10 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6638 037372 321 07 0 00 037346 JUMPL AC-1,SUBBA3 ;LOOP ON ERROR SWITCH ^
6639
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 148
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0179
6640
6641
6642 ;TEST AOBJP. CHECK FOR CORRECT DATA IN AC.
6643 ;C(AC) = RAN.
6644
6645
6646 000002 AC=2
6647 037373 ABJP1: SETUP 100,0^
6648 000003 AC1=<AC+1>&17
6649 000004 AC2=<AC+2>&17
6650 000005 AC3=<AC+3>&17
6651 000006 AC4=<AC+4>&17
6652 000007 AC5=<AC+5>&17
6653 000000 RAN1=<AC-2>&17
6654 037373 201 01 0 00 037373 MOVEI AC-1,.
6655 037374 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6656 037375 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6657 037376 202 01 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6658 037377 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6659 037400 240 01 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6660 037401 240 01 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6661 037402 ABJP2: RANDOM^
6662 037402 200 02 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6663 037403 270 02 0 00 040071 ADD AC,[142536475076]
6664 037404 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6665 037405 447 02 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
6666 037406 200 03 0 00 000002 ABJP3: MOVE AC1,AC ;SIMULATE
6667 037407 270 03 0 00 040102 ADD AC1,[XWD 1,1] ;AN AOBJP INST.
6668 037410 606 03 0 00 777777 TRNN AC1,777777 ;IF CARRY ACROSS OCCURS
6669 037411 274 03 0 00 040075 SUB AC1,[XWD 1,0] ;DELETE CARRY 18 TO 17 EFFECT
6670 037412 252 02 0 00 037413 AOBJP AC,.+1 ;DO AN AOBJP INST.
6671 037413 312 02 0 00 000003 CAME AC,AC1 ;C(AC) SHOULD = SIM. ANS.
6672 037414 013 00 0 00 037413 EERRI ,.-1
6673 LOOP ABJP2,ABJP3^
6674 037415 367 01 0 00 037402 SOJG AC-1,ABJP2 ;ITERATION COUNTER
6675 037416 200 02 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6676 037417 321 01 0 00 037406 JUMPL AC-1,ABJP3 ;LOOP ON ERROR SWITCH ^
6677
6678
6679
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 149
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0180
6680
6681
6682 ;TEST AOBJN. CHEC C(AC) FOR CORRECT DATA.
6683 ;C(AC) = RAN.
6684
6685
6686 000003 AC=3
6687 037420 ABJN1: SETUP 100,0^
6688 000004 AC1=<AC+1>&17
6689 000005 AC2=<AC+2>&17
6690 000006 AC3=<AC+3>&17
6691 000007 AC4=<AC+4>&17
6692 000010 AC5=<AC+5>&17
6693 000001 RAN1=<AC-2>&17
6694 037420 201 02 0 00 037420 MOVEI AC-1,.
6695 037421 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6696 037422 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6697 037423 202 02 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6698 037424 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6699 037425 240 02 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6700 037426 240 02 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6701 037427 ABJN2: RANDOM^
6702 037427 200 03 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6703 037430 270 03 0 00 040071 ADD AC,[142536475076]
6704 037431 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6705 037432 447 03 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
6706 037433 200 04 0 00 000003 ABJN3: MOVE AC1,AC ;SIMULATE
6707 037434 270 04 0 00 040102 ADD AC1,[XWD 1,1] ;AN AOBJN.
6708 037435 606 04 0 00 777777 TRNN AC1,777777 ;IF CARRY ACROSS OCCURS
6709 037436 274 04 0 00 040075 SUB AC1,[XWD 1,0] ;DELETE CARRY 18 TO 17 EFFECT
6710 037437 253 03 0 00 037440 AOBJN AC,.+1 ;DO AN AOBJN INST.
6711 037440 312 03 0 00 000004 CAME AC,AC1 ;C(AC) SHOULD = SIM. ANS.
6712 037441 013 00 0 00 037440 EERRI ,.-1
6713 LOOP ABJN2,ABJN3^
6714 037442 367 02 0 00 037427 SOJG AC-1,ABJN2 ;ITERATION COUNTER
6715 037443 200 03 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6716 037444 321 02 0 00 037433 JUMPL AC-1,ABJN3 ;LOOP ON ERROR SWITCH ^
6717
6718
6719
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 150
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0181
6720
6721
6722 ;TEST AOBJN, AOBJP. CHECK FOR JUMP/ NO JUMP AND
6723 ;CORRECT DAT IN AC.
6724 ;C(AC) = RAN.
6725
6726
6727 000002 AC=2
6728 037445 ABJP1A: SETUP 100,0^
6729 000003 AC1=<AC+1>&17
6730 000004 AC2=<AC+2>&17
6731 000005 AC3=<AC+3>&17
6732 000006 AC4=<AC+4>&17
6733 000007 AC5=<AC+5>&17
6734 000000 RAN1=<AC-2>&17
6735 037445 201 01 0 00 037445 MOVEI AC-1,.
6736 037446 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6737 037447 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6738 037450 202 01 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6739 037451 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6740 037452 240 01 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6741 037453 240 01 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6742 037454 ABJP1B: RANDOM^
6743 037454 200 02 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6744 037455 270 02 0 00 040071 ADD AC,[142536475076]
6745 037456 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6746 037457 447 02 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
6747 037460 630 02 0 00 040103 ABJP1C: TDZ AC,[XWD 400002,2];MAKE C(AC) SO AOBJP WILL ALWAYS JUMP.
6748 037461 200 00 0 00 000002 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
6749 037462 200 03 0 00 000002 MOVE AC1,AC ;SIMULATE AN
6750 037463 270 03 0 00 040104 ADD AC1,[XWD 2,2] ;AOBJP INST.
6751 037464 253 02 0 00 037466 AOBJN AC,.+2 ;C(AC) IS POS...NO JUMP.
6752 037465 252 02 0 00 037467 AOBJP AC,.+2 ;C(AC) IS POS...JUMP.
6753 037466 005 02 0 00 040105 ER AC,[ASCII /AOBJP/]
6754 037467 312 02 0 00 000003 CAME AC,AC1 ;C(AC) SHOULD = SIM. ANS.
6755 037470 003 00 0 00 037467 ERRI RAN1,.-1
6756 LOOP ABJP1B,ABJP1C^
6757 037471 367 01 0 00 037454 SOJG AC-1,ABJP1B ;ITERATION COUNTER
6758 037472 200 02 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6759 037473 321 01 0 00 037460 JUMPL AC-1,ABJP1C ;LOOP ON ERROR SWITCH ^
6760
6761
6762
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 151
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0182
6763
6764
6765 ;TEST AOBJP, AOBJN. CHECK FOR JUMP/ NO JUMP AND
6766 ;CORRECT DATA IN AC.
6767 ;C(AC) = RAN.
6768
6769
6770 000003 AC=3
6771 037474 ABJN1A: SETUP 100,0^
6772 000004 AC1=<AC+1>&17
6773 000005 AC2=<AC+2>&17
6774 000006 AC3=<AC+3>&17
6775 000007 AC4=<AC+4>&17
6776 000010 AC5=<AC+5>&17
6777 000001 RAN1=<AC-2>&17
6778 037474 201 02 0 00 037474 MOVEI AC-1,.
6779 037475 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6780 037476 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6781 037477 202 02 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6782 037500 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6783 037501 240 02 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6784 037502 240 02 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6785 037503 ABJN1B: RANDOM^
6786 037503 200 03 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6787 037504 270 03 0 00 040071 ADD AC,[142536475076]
6788 037505 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6789 037506 447 03 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
6790 037507 630 03 0 00 040104 ABJN1C: TDZ AC,[XWD 2,2] ;MAKE C(AC) SO
6791 037510 661 03 0 00 400000 TLO AC,400000 ;AOBJN WILL ALWAYS JUMP.
6792 037511 200 01 0 00 000003 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
6793 037512 200 04 0 00 000003 MOVE AC1,AC ;SIMULATE AN
6794 037513 270 04 0 00 040104 ADD AC1,[XWD 2,2] ;AOBJN INST.
6795 037514 252 03 0 00 037516 AOBJP AC,.+2 ;C(AC) IS NEG...NO JUMP.
6796 037515 253 03 0 00 037517 AOBJN AC,.+2 ;C(AC) IS NEG...JUMP.
6797 037516 005 03 0 00 040106 ER AC,[ASCII /AOBJN/]
6798 037517 312 03 0 00 000004 CAME AC,AC1 ;C(AC) SHOULD = SIM. ANS.
6799 037520 003 01 0 00 037517 ERRI RAN1,.-1
6800 LOOP ABJN1B,ABJN1C^
6801 037521 367 02 0 00 037503 SOJG AC-1,ABJN1B ;ITERATION COUNTER
6802 037522 200 03 0 00 040201 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6803 037523 321 02 0 00 037507 JUMPL AC-1,ABJN1C ;LOOP ON ERROR SWITCH ^
6804
6805
6806
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 152
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0183
6807
6808
6809 ;TEST AOBJP. CHECK TO SEE THAT AOBJP STOPS JUMPING
6810 ;AT THE RIGHT TIME.
6811 ;C(AC) = (377677,377677) ON FIRST AOBJP.
6812
6813
6814 000004 AC=4
6815 037524 ABJP2A: SETUP 1,0^
6816 000005 AC1=<AC+1>&17
6817 000006 AC2=<AC+2>&17
6818 000007 AC3=<AC+3>&17
6819 000010 AC4=<AC+4>&17
6820 000011 AC5=<AC+5>&17
6821 000002 RAN1=<AC-2>&17
6822 037524 201 03 0 00 037524 MOVEI AC-1,.
6823 037525 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6824 037526 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6825 037527 202 03 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6826 037530 201 03 0 00 000001 MOVEI AC-1,1 ;ROUTINE WEIGHTING
6827 037531 240 03 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6828 037532 240 03 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6829 037533 200 04 0 00 040107 ABJP2B: MOVE AC,[XWD 377677,377677]
6830 037534 200 02 0 00 000004 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
6831 037535 252 04 0 00 037535 AOBJP AC,. ;STAY HERE UNTIL C(AC) IS NEG.
6832 037536 312 04 0 00 040101 CAME AC,[XWD 400000,400000];C(AC) SHOULD = THIS CONSTANT.
6833 037537 004 04 0 00 040101 ERROR AC,[XWD 400000,400000]
6834 037540 367 03 0 00 037533 SOJG AC-1,ABJP2B ;ITERATION COUNTER.
6835 037541 321 03 0 00 037533 JUMPL AC-1,ABJP2B ;LOOP ON ERROR SWITCH.
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 153
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0184
6836 ;TEST AOBJN. CHECK TO SEE THAT AOBJN STOPS JUMPING
6837 ;AT THE RIGHT TIME.
6838 ;C(AC) = (777700,777700) ON FIRST AOBJN.
6839
6840
6841 000005 AC=5
6842 037542 ABJN2A: SETUP 1,0^
6843 000006 AC1=<AC+1>&17
6844 000007 AC2=<AC+2>&17
6845 000010 AC3=<AC+3>&17
6846 000011 AC4=<AC+4>&17
6847 000012 AC5=<AC+5>&17
6848 000003 RAN1=<AC-2>&17
6849 037542 201 04 0 00 037542 MOVEI AC-1,.
6850 037543 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6851 037544 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6852 037545 202 04 0 00 040175 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6853 037546 201 04 0 00 000001 MOVEI AC-1,1 ;ROUTINE WEIGHTING
6854 037547 240 04 1 00 030665 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6855 037550 240 04 1 00 030664 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6856 037551 200 05 0 00 040110 ABJN2B: MOVE AC,[XWD -100,-100]
6857 037552 253 05 0 00 037552 AOBJN AC,. ;STAY HERE UNTIL C(AC) IS POS.
6858 037553 312 05 0 00 040075 CAME AC,[XWD 1,0] ;C(AC) SHOULD = THIS CONSTANT.
6859 037554 004 05 0 00 040075 ERROR AC,[XWD 1,0] ;(WITH CARRY FROM RH TO LH)
6860 037555 367 04 0 00 037551 SOJG AC-1,ABJN2B ;ITERATION COUNTER.
6861 037556 321 04 0 00 037551 JUMPL AC-1,ABJN2B ;LOOP ON ERROR SWITCH.
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 154
DAKBCM MAC 21-JAN-77 16:49 DIAGNOSTIC SECTION SEQ 0185
6862 ;JFFO RELIABILITY TEST
6863
6864 000001 YY=1
6865 000010 AC=10
6866 000015 RAN1=15
6867 037557 201 05 0 00 000005 JFOT0: MOVEI 5,5
6868 037560 202 05 0 00 040175 MOVEM 5,ERRLOP
6869 037561 201 00 0 00 001000 MOVEI 0,1000
6870 037562 202 00 0 00 040176 MOVEM 0,JFCNTR#
6871 037563 JFOT0A: RANDOM^
6872 037563 200 10 0 00 040201 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6873 037564 270 10 0 00 040071 ADD AC,[142536475076]
6874 037565 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6875 037566 447 10 0 00 040201 EQVB AC,RAN ;REGISTER RAN ^
6876 037567 241 10 0 00 000001 ROT AC,1
6877 037570 447 10 0 00 000015 EQVB AC,RAN1
6878 037571 200 02 0 00 040201 JFOT1: MOVE 2,RAN
6879 037572 403 03 0 00 000004 SETZB 3,4
6880 037573 332 00 0 00 000002 SKIPE 2
6881 037574 603 02 0 00 400000 JFOT2: TLNE 2,400000
6882 037575 254 00 0 00 037601 JRST JFOT3
6883 037576 241 02 0 00 000001 ROT 2,1
6884 037577 201 04 0 00 000001 MOVEI 4,1
6885 037600 344 03 0 00 037574 AOJA 3,JFOT2
6886 037601 200 01 0 00 040201 JFOT3: MOVE 1,RAN
6887 037602 200 02 0 00 000015 MOVE 2,RAN1
6888 037603 243 01 1 04 037617 JFFO 1,@JFTAB(4)
6889 037604 332 00 0 00 040201 SKIPE RAN
6890 037605 007 01 0 00 000001 ERM 1,YY ;C(AC) HAD A BIT SET SO PC SHOULD
6891 037606 321 05 0 00 037571 JUMPL 5,JFOT1 ;HAVE GONE TO E.
6892 037607 254 00 0 00 037622 JRST JFOND
6893
6894 037610 332 00 0 00 000002 JFOT4: SKIPE 2 ;C(AC+1) GET CLEARED?
6895 037611 007 02 0 00 000002 ERM 2,YY+1 ;NO.
6896 037612 254 00 0 00 037615 JRST JFOT6
6897 037613 312 02 0 00 000003 JFOT5: CAME 2,3 ;C(AC+1) GET CORECT NUMBER OF LEADING ZERO BITS IN AC?
6898 037614 007 02 0 00 000003 ERM 2,YY+2 ;NO.
6899 037615 321 05 0 00 037571 JFOT6: JUMPL 5,JFOT1
6900 037616 254 00 0 00 037622 JRST JFOND
6901 037617 000000 037610 JFTAB: XWD 0,JFOT4
6902 037620 000000 037613 XWD 0,JFOT5
6903
6904 037621 252525 252525 K1: 252525252525
6905
6906 037622 372 00 0 00 040176 JFOND: SOSE JFCNTR ;DECREMENT JFFO RAN NUM CNT.
6907 037623 254 00 0 00 037563 JRST JFOT0A ;CONTINUE IF NON 0.
6908
6909
6910
6911 037624 254 00 0 00 030057 JRST BEGEND ;REPEAT TEST
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 1
UUOERR KLM 22-APR-75 01:42 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0186
6912 SUBTTL *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975
6913
6914 ;THIS SUBROUTINE PROVIDES ERROR REPORTING THRU THE USE OF UUO'S.
6915
6916 037625 202 00 0 00 040210 ERRMES: MOVEM 0,%ERAC0# ;SAVE AC0
6917 IFDEF EXCASB,<IFDEF KI10,<
6918 SKIPN KAIFLG
6919 JRST .+5
6920 SKIPE USER ;USER MODE ?
6921 JRST .+3
6922 SKIPE MARGIN
6923 DATAO APR,[IMGNOF,,ISPDOF] ;CLR MARGINS >>
6924 037626 202 01 0 00 040211 MOVEM 1,%ERAC1# ;SAVE AC1
6925 037627 202 02 0 00 040212 MOVEM 2,%ERAC2# ;SAVE AC2
6926 037630 350 00 0 00 030053 AOS ERRTLS ;INCREMENT ERROR TOTALS
6927 037631 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO
6928 037632 316 00 0 00 030052 CAMN 0,ERRPC ;PC = PC OF LAST ERROR ?
6929 037633 350 00 0 00 040177 AOS MICNT# ;YES, ADD 1 TO ERROR COUNT
6930 037634 200 00 0 00 040177 MOVE 0,MICNT
6931 037635 504 00 0 00 030114 HRL 0,$SVUPC
6932 037636 336 00 0 00 030041 SKIPN KLFLG ;NOT KL10
6933 037637 332 00 0 00 030037 SKIPE USER ;AND NOT USER?
6934 037640 254 00 0 00 037642 JRST .+2
6935 037641 7 004 14 0 00 000000 DATAO PI,0 ;YES, DISPLAY ERROR PC,ERROR COUNT
6936 037642 402 00 0 00 040200 SETZM PROCED# ;CLEAR PROCEED FLAG
6937 037643 037 10 0 00 000002 SWITCH
6938 037644 603 00 0 00 040000 TLNE NOPNT ;PRINTOUT ?
6939 037645 254 00 0 00 040031 JRST %ERRS1 ;NO, RESTORE AC'S AND RETURN
6940 037646 200 01 0 00 030113 MOVE 1,$SVUUO
6941 037647 242 01 0 00 777745 LSH 1,-^D27
6942 037650 202 01 0 00 040202 MOVEM 1,%ACS1A# ;SAVE UUO NUMBER
6943 037651 200 00 0 00 040210 MOVE 0,%ERAC0
6944 037652 200 01 0 00 040211 MOVE 1,%ERAC1
6945 037653 335 00 1 00 040175 SKIPGE @ERRLOP ;ERR LOOP AC > OR = 0 ?
6946 037654 254 00 0 00 040063 JRST %ERRS4 ;NO, SEE IF PRINT ALL
6947 037655 402 00 0 00 040177 %ERMS1: SETZM MICNT ;CLEAR ERROR COUNT
6948 037656 331 00 0 00 030043 SKIPL MONCTL ;DIAG MON OR SYS EXER ?
6949 037657 254 00 0 00 037663 JRST .+4 ;NO, DON'T NEED TITLE
6950 037660 336 00 0 00 040213 SKIPN %ERFST# ;FIRST ERROR ?
6951 037661 037 04 0 00 000002 PNTNM ;YES, PRINT PROGRAM TITLE
6952 037662 476 00 0 00 040213 SETOM %ERFST
6953 037663 336 00 0 00 030047 SKIPN PASCNT ;FIRST PASS ?
6954 037664 254 00 0 00 037670 JRST .+4 ;YES
6955 PMSG <^TEST PASS COUNT = >^
6956 037665 037 02 0 00 040111 PSIXM [SIXBIT\^TEST PASS COUNT = _\]^
6957 037666 200 00 0 00 030047 MOVE PASCNT
6958 037667 037 15 0 00 000000 PNTDEC
6959 PMSG <^PC = >^
6960 037670 037 02 0 00 040115 PSIXM [SIXBIT\^PC = _\]^
6961 037671 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO
6962 037672 202 00 0 00 030052 MOVEM 0,ERRPC ;SAVE FOR COMPARE
6963 037673 037 06 0 00 000000 PNT6 ;PRINT UUO ADDRESS
6964 XLIST
6965 LIST
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 4
UUOERR KLM 22-APR-75 01:42 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0187
6966 ;RELIABILITY FORMAT ERROR PRINTER
6967
6968 037674 402 00 0 00 040214 %ERMS2: SETZM %RAND# ;CLEAR PNT C(RAN) FLAG
6969 037675 200 01 0 00 040202 MOVE 1,%ACS1A
6970 037676 301 01 0 00 000011 CAIL 1,11 ;UUO # 11-13
6971 037677 476 00 0 00 040214 SETOM %RAND ;YES, SET PNT C(RAN) FLAG
6972 037700 620 01 0 00 000010 TRZ 1,10 ;MAKE UUO # 1-7
6973 037701 202 01 0 00 040202 MOVEM 1,%ACS1A
6974 037702 200 02 0 00 030052 MOVE 2,ERRPC ;GET UUO ADDRESS
6975 037703 200 02 0 02 777777 MOVE 2,-1(2) ;GET INST IN UUO-1
6976 037704 301 01 0 00 000004 CAIL 1,4 ;UUO # < THAN 4 ?
6977 037705 200 02 0 00 030113 MOVE 2,$SVUUO ;YES, GET UUO
6978 037706 202 02 0 00 040203 MOVEM 2,%CNTE# ;SAVE E ADDRESS
6979 037707 200 02 0 00 040212 MOVE 2,%ERAC2
6980 037710 200 01 0 00 040211 MOVE 1,%ERAC1
6981 037711 200 00 0 00 040210 MOVE 0,%ERAC0
6982 037712 201 01 1 00 040203 MOVEI 1,@%CNTE ;GET ADRS FIELD OF UUO OR UUO-1
6983 037713 202 01 0 00 040204 MOVEM 1,%EE1#
6984 037714 200 01 0 00 040211 MOVE 1,%ERAC1
6985 037715 200 01 1 00 040204 MOVE 1,@%EE1 ;GET C(E)
6986 037716 202 01 0 00 040205 MOVEM 1,%EE1A#
6987 037717 200 01 0 00 040211 MOVE 1,%ERAC1
6988 037720 201 01 1 00 030113 MOVEI 1,@$SVUUO ;GET ADDRESS FIELD OF UUO
6989 037721 202 01 0 00 040206 MOVEM 1,%EE2#
6990 037722 200 01 0 00 040202 MOVE 1,%ACS1A
6991 037723 306 01 0 00 000003 CAIN 1,3 ;UUO # 3 ?
6992 037724 254 00 0 00 037730 JRST .+4 ;YES
6993 037725 200 01 0 00 040211 MOVE 1,%ERAC1
6994 037726 200 01 1 00 040206 MOVE 1,@%EE2 ;GET C(E) OF UUO
6995 037727 202 01 0 00 040207 MOVEM 1,%EE2A#
6996 037730 200 02 0 00 040202 MOVE 2,%ACS1A ;GET UUO #
6997 037731 200 01 0 00 040203 MOVE 1,%CNTE
6998 037732 242 01 0 00 777751 LSH 1,-27 ;GET AC NUMBER
6999 037733 405 01 0 00 000017 ANDI 1,17
7000 037734 307 02 0 00 000005 CAIG 2,5 ;UUO # 6,7 OR 2
7001 037735 306 02 0 00 000002 CAIN 2,2
7002 037736 254 00 0 00 040005 JRST %ERR2 ;YES, GO PNT E AND C(E)
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 5
UUOERR KLM 22-APR-75 01:42 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0188
7003 ;PRINT ERROR AC
7004
7005 PMSG <^AC = >^
7006 037737 037 02 0 00 040117 PSIXM [SIXBIT\^AC = _\]^
7007 037740 200 00 0 00 000001 MOVE 0,1
7008 037741 037 02 0 00 000000 PNT2 ;PRINT AC NUMBER
7009 PMSG <^C(AC)= >^
7010 037742 037 02 0 00 040121 PSIXM [SIXBIT\^C(AC)= _\]^
7011 037743 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC)
7012 037744 307 01 0 00 000002 CAIG 1,2 ;IS AC # = SAVED AC ?
7013 037745 200 00 0 01 040210 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC
7014 037746 037 13 0 00 000000 %ERRB: PNTHW ;PRINT C(AC) OR UUO2 (E)
7015
7016 ;PRINT ERROR INFO
7017
7018 037747 306 02 0 00 000005 CAIN 2,5 ;UUO # 5
7019 037750 254 00 0 00 040021 JRST %ERR4 ;YES, GO PNT 'TST','SKP', OR ETC.
7020
7021 PMSG <^COR = >^
7022 037751 037 02 0 00 040123 PSIXM [SIXBIT\^COR = _\]^
7023 037752 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC)
7024 037753 307 01 0 00 000002 CAIG 1,2 ;IS AC # = SAVED AC ?
7025 037754 200 00 0 01 040210 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC
7026 037755 302 02 0 00 000002 CAIE 2,2
7027 037756 200 00 0 00 040205 MOVE 0,%EE1A ;UUO # 2, GET C(E)
7028 037757 037 13 0 00 000000 PNTHW ;PRINT C(E) OR UUO2 C(AC)
7029 037760 301 02 0 00 000004 CAIL 2,4 ;UUO # >3 ?
7030 037761 254 00 0 00 040024 JRST %ERRC ;YES, RESTORE AC'S AND RETURN
7031
7032 PMSG <^ ORIGINAL>^
7033 037762 037 02 0 00 040125 PSIXM [SIXBIT\^ ORIGINAL_\]^
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 6
UUOERR KLM 22-APR-75 01:42 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0189
7034 037763 200 01 0 00 030113 %ERRB1: MOVE 1,$SVUUO
7035 037764 242 01 0 00 777751 LSH 1,-27 ;GET AC # OF UUO
7036 037765 405 01 0 00 000017 ANDI 1,17
7037 PMSG <^C(AC)= >^
7038 037766 037 02 0 00 040121 PSIXM [SIXBIT\^C(AC)= _\]^
7039 037767 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC)
7040 037770 307 01 0 00 000002 CAIG 1,2 ;IS AC # = SAVED AC ?
7041 037771 200 00 0 01 040210 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC
7042 037772 332 00 0 00 040214 SKIPE %RAND ;PRINT C(RAN) FLAG SET ?
7043 037773 200 00 0 00 040201 MOVE 0,RAN# ;YES
7044 037774 037 13 0 00 000000 PNTHW ;PRINT C(AC) OR C(RAN)
7045 037775 306 02 0 00 000003 CAIN 2,3 ;UUO # 3 ?
7046 037776 254 00 0 00 040005 JRST %ERR2 ;YES, PRINT E, RESTORE AC'S AND RETURN
7047 037777 306 02 0 00 000007 CAIN 2,7 ;UUO # 7 ?
7048 040000 254 00 0 00 040024 JRST %ERRC ;YES, BYPASS PRINTING C(E)
7049 PMSG <^C(E) = >^
7050 040001 037 02 0 00 040130 PSIXM [SIXBIT\^C(E) = _\]^
7051 040002 200 00 0 00 040207 MOVE 0,%EE2A
7052 040003 037 13 0 00 000000 PNTHW ;PRINT C(E)
7053 040004 254 00 0 00 040024 JRST %ERRC
7054
7055 040005 %ERR2: PMSG <^E = >^
7056 040005 037 02 0 00 040132 PSIXM [SIXBIT\^E = _\]^
7057 040006 200 00 0 00 040206 MOVE 0,%EE2
7058 040007 306 02 0 00 000002 CAIN 2,2 ;UUO # 2 ?
7059 040010 200 00 0 00 040204 MOVE 0,%EE1
7060 040011 037 06 0 00 000000 PNT6 ;PRINT E OF UUO OR UUO-1
7061 040012 301 02 0 00 000006 CAIL 2,6 ;UUO 6 OR 7 ?
7062 040013 254 00 0 00 037763 JRST %ERRB1 ;YES, GO PNT C(AC), C(E) AND RETURN
7063 040014 306 02 0 00 000003 CAIN 2,3 ;UUO # 3 ?
7064 040015 254 00 0 00 040024 JRST %ERRC ;YES, RESTORE AC'S AND RETURN
7065
7066 PMSG <^C(E) = >^
7067 040016 037 02 0 00 040130 PSIXM [SIXBIT\^C(E) = _\]^
7068 040017 200 00 0 00 040205 MOVE 0,%EE1A ;GET C(E)
7069 040020 254 00 0 00 037746 JRST %ERRB
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 7
UUOERR KLM 22-APR-75 01:42 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0190
7070 ;PRINT ASCII COMMENT
7071
7072 040021 551 00 1 00 030113 %ERR4: HRRZI 0,@$SVUUO
7073 040022 037 00 0 00 000000 PNTA ;PRINT 'TST','SKP', OR ETC.
7074 040023 254 00 0 00 040024 JRST %ERRC
7075
7076 ;COMPLETE PRINTOUT
7077
7078 040024 037 00 0 00 030242 %ERRC: PCRL
7079
7080 XLIST
7081 LIST
7082 040025 254 00 0 00 040026 JRST %ERMORE
7083
7084 >
7085 LIST
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 8
UUOERR KLM 22-APR-75 01:42 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0191
7086 ;RESTORE AC'S AND RETURN OR HALT
7087
7088 040026 256 00 0 00 030101 %ERMORE:XCT ERMORE
7089 040027 037 16 0 00 000002 PNTMGN ;PRINT MARGINS
7090 040030 037 10 0 00 000002 SWITCH
7091
7092 040031 037 07 0 00 000003 %ERRS1: TTALTM ;ALTMODE CHECK
7093 040032 254 00 0 00 040036 JRST .+4 ;NONE
7094 040033 201 00 0 00 040036 MOVEI .+3 ;SAVE CONT ADDRESS
7095 040034 202 00 0 00 000130 MOVEM JOBOPC
7096 040035 254 00 1 00 030063 JRST @ALTMGO ;PERFORM TRANSFER
7097 040036 200 00 0 00 030046 MOVE CONSW
7098 040037 603 00 0 00 002000 TLNE 0,ERSTOP ;HALT ON ERROR SWITCH SET ?
7099 040040 037 14 0 00 000004 ERRHLT ;YES
7100 040041 607 00 0 00 004000 TLNN 0,LOOPER ;LOOP ON ERROR SWITCH SET ?
7101 040042 476 00 0 00 040200 SETOM PROCED ;NO, SET THE PROCEED FLAG
7102 040043 603 00 0 00 010000 TLNE 0,DING ;RING BELL SWITCH SET ?
7103 040044 037 01 0 00 000007 PBELL ;YES, GO RING BELL
7104
7105 040045 200 02 0 00 040212 %ERRS2: MOVE 2,%ERAC2 ;RESTORE AC'S
7106 040046 200 01 0 00 040211 MOVE 1,%ERAC1
7107 040047 476 00 1 00 040175 SETOM @ERRLOP ;SET C(ERR LOOP AC) TO -1
7108 040050 336 00 0 00 040200 SKIPN PROCED ;LOOP ON ERROR ?
7109 040051 254 00 0 00 040061 JRST %ERRS5 ;YES
7110 040052 350 00 1 00 040175 AOS @ERRLOP ;NO, INC C(ERR LOOP AC)
7111 040053 350 00 1 00 040175 AOS @ERRLOP ;SO IT ='S 1
7112 040054 331 00 0 00 030043 SKIPL MONCTL ;UNDER DIAGNOSTIC MONITOR ?
7113 040055 254 00 0 00 040061 JRST %ERRS5 ;NO, CONTINUE PROGRAM
7114 040056 200 00 0 00 030053 MOVE 0,ERRTLS ;YES
7115 040057 301 00 0 00 000005 CAIL 0,5 ;PRINTED ALLOWED ERRORS ?
7116 040060 254 00 0 00 030061 JRST $BEND2
7117
7118 040061 200 00 0 00 040210 %ERRS5: MOVE 0,%ERAC0 ;NO, CONTINUE PROGRAM
7119 IFDEF EXCASB,<IFDEF KI10,<
7120 SKIPN KAIFLG
7121 JRST .+5
7122 SKIPE USER
7123 JRST .+3
7124 SKIPE MARGIN
7125 DATAO APR,MARGIN ;RESET MARGIN SYSTEM >>
7126 040062 254 00 0 00 030065 JRST UUOEXT
7127
7128 040063 200 00 0 00 030046 %ERRS4: MOVE 0,CONSW
7129 040064 607 00 0 00 001000 TLNN PALERS ;PRINT ALL ERRORS ?
7130 040065 254 00 0 00 040031 JRST %ERRS1 ;NO
7131 040066 254 00 0 00 037655 JRST %ERMS1 ;YES
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 1
STOR KLM 18-JAN-77 11:42 *STOR* RESERVED STORAGE, JAN 18,1977 SEQ 0192
7132 SUBTTL *STOR* RESERVED STORAGE, JAN 18,1977
7133
7134 ;PROGRAM LITERALS
7135
7136 XLIST
7137 IFNDEF $LPAPER,<LIST>
7138 040067 LIT
7139 040067 64 51 55 45 62 00
7140 040070 45 70 51 64 00 00
7141 040071 142536 475076
7142 040072 124 123 124 000 000
7143 040073 777777 777777
7144 040074 000000 000000
7145 040075 000001 000000
7146 040076 000100 000100
7147 040077 010000 010000
7148 040100 777777 000000
7149 040101 400000 400000
7150 040102 000001 000001
7151 040103 400002 000002
7152 040104 000002 000002
7153 040105 101 117 102 112 120
7154 040106 101 117 102 112 116
7155 040107 377677 377677
7156 040110 777700 777700
7157 040111 76 64 45 63 64 00
7158 040112 60 41 63 63 00 43
7159 040113 57 65 56 64 00 35
7160 040114 00 77 00 00 00 00
7161 040115 76 60 43 00 35 00
7162 040116 00 00 77 00 00 00
7163 040117 76 41 43 00 35 00
7164 040120 00 00 77 00 00 00
7165 040121 76 43 10 41 43 11
7166 040122 35 00 77 00 00 00
7167 040123 76 43 57 62 00 35
7168 040124 00 00 77 00 00 00
7169 040125 76 00 00 00 00 57
7170 040126 62 51 47 51 56 41
7171 040127 54 77 00 00 00 00
7172 040130 76 43 10 45 11 00
7173 040131 35 00 77 00 00 00
7174 040132 76 45 00 35 00 00
7175 040133 00 00 77 00 00 00
7176 LIST
7177 040134 000000 000000 ENDSLD: 0
7178
7179 IFDEF DEBUG,<
7180 040135 PATCH: BLOCK DEBUG ;PATCHING AREA
7181 >
7182
7183 ;PROGRAM VARIABLES
7184 040175 VAR
7185
7186 IFDEF PGMEND,<
DAKBC PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 3, VERSION 0,2 MACRO %52(537) 17:35 21-JAN-77 PAGE 1-1
STOR KLM 18-JAN-77 11:42 *STOR* RESERVED STORAGE, JAN 18,1977 SEQ 0193
7187 040215 000000 000000 END: 0
7188 030000 END BEGIN >
NO ERRORS DETECTED
PROGRAM BREAK IS 000000
ABSLUTE BREAK IS 040216
CPU TIME USED 00:32.328
11K CORE USED
A 678# 688 690 690# 691 693 693# 694 696 696# 697 699 699# 700
702 702# 703 705 705# 706 708 708# SEQ 0194
AABCLR 345#
AADRBK 345#
AAPRC1 345#
ABJN1 6687#
ABJN1A 6771#
ABJN1B 6785# 6801
ABJN1C 6790# 6803
ABJN2 6701# 6714
ABJN2A 6842#
ABJN2B 6856# 6860 6861
ABJN3 6706# 6716
ABJP1 6647#
ABJP1A 6728#
ABJP1B 6742# 6757
ABJP1C 6747# 6759
ABJP2 6661# 6674
ABJP2A 6815#
ABJP2B 6829# 6834 6835
ABJP3 6666# 6676
ABORT 116#
AC 761# 763 764 765 766 767 768 769 770 771 772 773 774 775
777 778 779 780 781 783 784 785 786 789 790 791 799# 801
802 803 804 805 806 807 808 809 810 811 812 813 815 816
817 818 820 823 826 828 829 830 838# 840 841 842 843 844
845 846 847 848 849 850 851 852 854 855 856 857 858 859
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 898 900
901 902 903 906 907 908 916# 918 919 920 921 922 923 924
925 926 927 928 929 930 932 933 934 935 936 938 939 940
941 944 945 946 954# 956 957 958 959 960 961 962 963 964
965 966 967 968 970 971 972 973 974 977 980 983 984 986
988 990 991 992 1000# 1002 1003 1004 1005 1006 1007 1008 1009 1010
1011 1012 1013 1014 1016 1017 1018 1019 1020 1021 1024 1025 1027 1028
1029 1030 1033 1034 1035 1043# 1045 1046 1047 1048 1049 1050 1051 1052
1053 1054 1055 1056 1057 1059 1060 1061 1062 1063 1065 1068 1071 1072
1074 1076 1078 1079 1080 1088# 1090 1091 1092 1093 1094 1095 1096 1097
1098 1099 1100 1101 1102 1104 1105 1106 1107 1108 1109 1110 1111 1113
1114 1115 1116 1118 1119 1120 1121 1124 1125 1126 1133# 1135 1136 1137
1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1150 1151 1152 1153
1157 1158 1159 1161 1162 1163 1164 1166 1167 1168 1169 1172 1173 1174
1182# 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196
1198 1199 1200 1201 1202 1204 1205 1206 1207 1210 1211 1212 1220# 1222
1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1236 1237
1238 1239 1241 1244 1247 1249 1250 1251 1259# 1261 1262 1263 1264 1265
1266 1267 1268 1269 1270 1271 1272 1273 1275 1276 1277 1278 1279 1281
1282 1283 1284 1287 1288 1289 1297# 1299 1300 1301 1302 1303 1304 1305
1306 1307 1308 1309 1310 1311 1313 1314 1315 1316 1318 1321 1324 1326
1327 1328 1336# 1338 1339 1340 1341 1342 1343 1344 1345 1346 1347 1348
1349 1350 1352 1353 1354 1355 1356 1357 1359 1360 1361 1362 1365 1366
1367 1375# 1377 1378 1379 1380 1381 1382 1383 1384 1385 1386 1387 1388
1389 1391 1392 1393 1394 1395 1397 1399 1400 1401 1402 1405 1406 1407
1415# 1417 1418 1419 1420 1421 1422 1423 1424 1425 1426 1427 1428 1429
1431 1432 1433 1434 1435 1437 1438 1439 1440 1443 1444 1445 1453# 1455 SEQ 0195
1456 1457 1458 1459 1460 1461 1462 1463 1464 1465 1466 1467 1469 1470
1471 1472 1474 1477 1480 1482 1483 1484 1492# 1494 1495 1496 1497 1498
1499 1500 1501 1502 1503 1504 1505 1506 1508 1509 1510 1511 1512 1513
1514 1516 1517 1518 1519 1522 1523 1524 1532# 1534 1535 1536 1537 1538
1539 1540 1541 1542 1543 1544 1545 1546 1548 1549 1550 1551 1552 1554
1557 1560 1562 1563 1564 1572# 1574 1575 1576 1577 1578 1579 1580 1581
1582 1583 1584 1585 1586 1588 1589 1590 1591 1592 1593 1594 1595 1597
1598 1599 1600 1603 1604 1605 1613# 1615 1616 1617 1618 1619 1620 1621
1622 1623 1624 1625 1626 1627 1629 1630 1631 1632 1633 1634 1635 1636
1638 1639 1640 1641 1644 1645 1646 1654# 1656 1657 1658 1659 1660 1661
1662 1663 1664 1665 1666 1667 1668 1670 1671 1672 1673 1674 1676 1677
1678 1679 1682 1683 1684 1692# 1694 1695 1696 1697 1698 1699 1700 1701
1702 1703 1704 1705 1706 1708 1709 1710 1711 1713 1716 1719 1721 1722
1723 1731# 1733 1734 1735 1736 1737 1738 1739 1740 1741 1742 1743 1744
1745 1747 1748 1749 1750 1751 1753 1755 1756 1757 1758 1761 1762 1763
1771# 1773 1774 1775 1776 1777 1778 1779 1780 1781 1782 1783 1784 1785
1787 1788 1789 1790 1792 1794 1800# 1802 1803 1804 1805 1806 1807 1808
1809 1810 1811 1812 1813 1814 1816 1817 1818 1819 1820 1823 1824 1826
1827 1828 1829 1832 1833 1834 1842# 1844 1845 1846 1847 1848 1849 1850
1851 1852 1853 1854 1855 1856 1858 1859 1860 1861 1862 1864 1865 1866
1867 1870 1871 1872 1880# 1882 1883 1884 1885 1886 1887 1888 1889 1890
1891 1892 1893 1894 1896 1897 1898 1899 1901 1904 1907 1909 1910 1911
1919# 1921 1922 1923 1924 1925 1926 1927 1928 1929 1930 1931 1932 1933
1935 1936 1937 1938 1939 1940 1941 1943 1944 1946 1947 1948 1949 1952
1953 1954 1962# 1964 1965 1966 1967 1968 1969 1970 1971 1972 1973 1974
1975 1976 1978 1979 1980 1981 1982 1984 1986 1988 1990 1993 1995 1996
1997 2005# 2007 2008 2009 2010 2011 2012 2013 2014 2015 2016 2017 2018
2019 2021 2022 2023 2024 2025 2026 2027 2028 2030 2031 2033 2034 2035
2036 2039 2040 2041 2049# 2051 2052 2053 2054 2055 2056 2057 2058 2059
2060 2061 2062 2063 2065 2066 2067 2068 2069 2070 2071 2073 2074 2075
2077 2078 2079 2080 2083 2084 2085 2093# 2095 2096 2097 2098 2099 2100
2101 2102 2103 2104 2105 2106 2107 2109 2110 2111 2112 2113 2115 2116
2117 2118 2121 2122 2123 2131# 2133 2134 2135 2136 2137 2138 2139 2140
2141 2142 2143 2144 2145 2147 2148 2149 2150 2152 2153 2156 2159 2161
2162 2163 2171# 2173 2174 2175 2176 2177 2178 2179 2180 2181 2182 2183
2184 2185 2187 2188 2189 2190 2191 2193 2195 2196 2197 2198 2201 2202
2203 2211# 2213 2214 2215 2216 2217 2218 2219 2220 2221 2222 2223 2224
2225 2227 2228 2229 2230 2232 2235 2238 2240 2241 2242 2250# 2252 2253
2254 2255 2256 2257 2258 2259 2260 2261 2262 2263 2264 2266 2267 2268
2269 2270 2271 2273 2274 2275 2276 2279 2280 2281 2289# 2291 2292 2293
2294 2295 2296 2297 2298 2299 2300 2301 2302 2303 2305 2306 2307 2308
2309 2312 2313 2315 2316 2317 2318 2321 2322 2323 2331# 2333 2334 2335
2336 2337 2338 2339 2340 2341 2342 2343 2344 2345 2347 2348 2349 2350
2351 2353 2354 2355 2356 2359 2360 2361 2369# 2371 2372 2373 2374 2375
2376 2377 2378 2379 2380 2381 2382 2383 2385 2386 2387 2388 2389 2391
2392 2394 2397 2399 2400 2401 2409# 2411 2412 2413 2414 2415 2416 2417
2418 2419 2420 2421 2422 2423 2425 2426 2427 2428 2429 2430 2432 2433
2435 2436 2437 2438 2441 2442 2443 2451# 2453 2454 2455 2456 2457 2458
2459 2460 2461 2462 2463 2464 2465 2467 2468 2469 2470 2471 2473 2476
2479 2481 2482 2483 2491# 2493 2494 2495 2496 2497 2498 2499 2500 2501
2502 2503 2504 2505 2507 2508 2509 2510 2511 2512 2513 2514 2516 2517
2518 2519 2522 2523 2524 2532# 2534 2535 2536 2537 2538 2539 2540 2541
2542 2543 2544 2545 2546 2548 2549 2550 2551 2552 2553 2554 2556 2557 SEQ 0196
2559 2560 2561 2562 2565 2566 2567 2575# 2577 2578 2579 2580 2581 2582
2583 2584 2585 2586 2587 2588 2589 2591 2592 2593 2594 2595 2597 2598
2599 2600 2603 2604 2605 2613# 2615 2616 2617 2618 2619 2620 2621 2622
2623 2624 2625 2626 2627 2629 2630 2631 2632 2634 2637 2640 2642 2643
2644 2650# 2652 2653 2654 2655 2656 2657 2658 2659 2660 2661 2662 2663
2664 2666 2667 2668 2669 2670 2672 2673 2674 2675 2678 2679 2680 2688#
2690 2691 2692 2693 2694 2695 2696 2697 2698 2699 2700 2701 2702 2704
2705 2706 2707 2709 2712 2715 2717 2718 2719 2727# 2729 2730 2731 2732
2733 2734 2735 2736 2737 2738 2739 2740 2741 2743 2744 2745 2746 2747
2748 2750 2751 2752 2753 2756 2757 2758 2766# 2768 2769 2770 2771 2772
2773 2774 2775 2776 2777 2778 2779 2780 2782 2783 2784 2785 2786 2788
2790 2791 2792 2793 2796 2797 2798 2806# 2808 2809 2810 2811 2812 2813
2814 2815 2816 2817 2818 2819 2820 2822 2823 2824 2825 2826 2828 2829
2830 2831 2834 2835 2836 2844# 2846 2847 2848 2849 2850 2851 2852 2853
2854 2855 2856 2857 2858 2860 2861 2862 2863 2864 2866 2869 2872 2873
2875 2877 2879 2880 2881 2889# 2891 2892 2893 2894 2895 2896 2897 2898
2899 2900 2901 2902 2903 2905 2906 2907 2908 2909 2910 2914 2915 2917
2918 2919 2920 2923 2924 2925 2933# 2935 2936 2937 2938 2939 2940 2941
2942 2943 2944 2945 2946 2947 2949 2950 2951 2952 2953 2955 2957 2960
2962 2963 2964 2972# 2974 2975 2976 2977 2978 2979 2980 2981 2982 2983
2984 2985 2986 2988 2989 2990 2991 2992 2993 2994 2995 2997 2998 2999
3000 3002 3003 3004 3005 3008 3009 3010 3019# 3021 3022 3023 3024 3025
3026 3027 3028 3029 3030 3031 3032 3033 3036 3037 3038 3039 3044 3045
3046 3048 3049 3050 3051 3053 3054 3055 3056 3059 3060 3061 3071# 3073
3074 3075 3076 3077 3078 3079 3080 3081 3082 3083 3084 3085 3087 3088
3089 3090 3091 3093 3094 3096 3099 3100 3101 3109# 3111 3112 3113 3114
3115 3116 3117 3118 3119 3120 3121 3122 3123 3125 3126 3127 3128 3129
3132 3134 3135 3137 3140 3141 3142 3150# 3152 3153 3154 3155 3156 3157
3158 3159 3160 3161 3162 3163 3164 3166 3167 3168 3169 3170 3173 3175
3176 3178 3181 3182 3183 3191# 3193 3194 3195 3196 3197 3198 3199 3200
3201 3202 3203 3204 3205 3207 3208 3209 3210 3211 3212 3214 3215 3217
3220 3221 3222 3230# 3232 3233 3234 3235 3236 3237 3238 3239 3240 3241
3242 3243 3244 3246 3247 3248 3249 3250 3253 3255 3256 3258 3261 3262
3263 3271# 3273 3274 3275 3276 3277 3278 3279 3280 3281 3282 3283 3284
3285 3287 3288 3289 3290 3291 3293 3294 3299 3300 3301 3309# 3311 3312
3313 3314 3315 3316 3317 3318 3319 3320 3321 3322 3323 3325 3326 3327
3328 3329 3332 3334 3335 3337 3340 3341 3342 3350# 3352 3353 3354 3355
3356 3357 3358 3359 3360 3361 3362 3363 3364 3366 3367 3368 3369 3370
3373 3374 3375 3376 3378 3381 3382 3383 3391# 3393 3394 3395 3396 3397
3398 3399 3400 3401 3402 3403 3404 3405 3407 3408 3409 3410 3411 3414
3416 3417 3419 3422 3423 3424 3432# 3434 3435 3436 3437 3438 3439 3440
3441 3442 3443 3444 3445 3446 3448 3449 3450 3451 3452 3455 3457 3458
3460 3463 3464 3465 3473# 3475 3476 3477 3478 3479 3480 3481 3482 3483
3484 3485 3486 3487 3489 3490 3491 3492 3493 3495 3496 3497 3499 3502
3503 3504 3512# 3514 3515 3516 3517 3518 3519 3520 3521 3522 3523 3524
3525 3526 3528 3529 3530 3531 3532 3534 3536 3537 3539 3542 3543 3544
3552# 3554 3555 3556 3557 3558 3559 3560 3561 3562 3563 3564 3565 3566
3568 3569 3570 3571 3572 3576 3577 3579 3582 3583 3584 3592# 3594 3595
3596 3597 3598 3599 3600 3601 3602 3603 3604 3605 3606 3608 3609 3610
3611 3612 3615 3617 3618 3620 3623 3624 3625 3633# 3635 3636 3637 3638
3639 3640 3641 3642 3643 3644 3645 3646 3647 3649 3650 3651 3652 3653
3656 3658 3659 3661 3664 3665 3666 3674# 3676 3677 3678 3679 3680 3681
3682 3683 3684 3685 3686 3687 3688 3690 3691 3692 3693 3694 3696 3697 SEQ 0197
3699 3702 3703 3704 3712# 3714 3715 3716 3717 3718 3719 3720 3721 3722
3723 3724 3725 3726 3728 3729 3730 3731 3732 3733 3734 3737 3738 3741
3742 3743 3751# 3753 3754 3755 3756 3757 3758 3759 3760 3761 3762 3763
3764 3765 3767 3768 3769 3770 3772 3773 3774 3775 3776 3779 3780 3781
3789# 3791 3792 3793 3794 3795 3796 3797 3798 3799 3800 3801 3802 3803
3805 3806 3807 3808 3810 3811 3812 3815 3816 3819 3820 3821 3833# 3835
3836 3837 3838 3839 3840 3841 3842 3843 3844 3845 3846 3847 3849 3850
3851 3852 3855 3856 3858 3861 3862 3863 3871# 3873 3874 3875 3876 3877
3878 3879 3880 3881 3882 3883 3884 3885 3887 3888 3889 3890 3892 3893
3894 3897 3898 3901 3902 3903 3911# 3913 3914 3915 3916 3917 3918 3919
3920 3921 3922 3923 3924 3925 3927 3928 3929 3930 3932 3933 3934 3937
3938 3941 3942 3943 3951# 3953 3954 3955 3956 3957 3958 3959 3960 3961
3962 3963 3964 3965 3967 3968 3969 3970 3972 3973 3974 3977 3978 3981
3982 3983 3992# 3994 3995 3996 3997 3998 3999 4000 4001 4002 4003 4004
4005 4006 4008 4009 4010 4011 4014 4015 4017 4020 4021 4022 4030# 4032
4033 4034 4035 4036 4037 4038 4039 4040 4041 4042 4043 4044 4046 4047
4048 4049 4051 4052 4054 4055 4056 4059 4060 4061 4069# 4071 4072 4073
4074 4075 4076 4077 4078 4079 4080 4081 4082 4083 4085 4086 4087 4088
4090 4091 4093 4094 4095 4098 4099 4100 4108# 4110 4111 4112 4113 4114
4115 4116 4117 4118 4119 4120 4121 4122 4124 4125 4126 4127 4129 4130
4132 4133 4134 4137 4138 4139 4148# 4150 4151 4152 4153 4154 4155 4156
4157 4158 4159 4160 4161 4162 4164 4165 4166 4167 4169 4170 4171 4172
4174 4177 4178 4179 4187# 4189 4190 4191 4192 4193 4194 4195 4196 4197
4198 4199 4200 4201 4203 4204 4205 4206 4207 4208 4209 4213 4214 4217
4218 4219 4227# 4229 4230 4231 4232 4233 4234 4235 4236 4237 4238 4239
4240 4241 4243 4244 4245 4246 4248 4249 4250 4252 4253 4256 4257 4258
4266# 4268 4269 4270 4271 4272 4273 4274 4275 4276 4277 4278 4279 4280
4282 4283 4284 4285 4287 4288 4289 4293 4294 4297 4298 4299 4308# 4310
4311 4312 4313 4314 4315 4316 4317 4318 4319 4320 4321 4322 4324 4325
4326 4327 4329 4331 4334 4335 4337 4340 4341 4342 4350# 4352 4353 4354
4355 4356 4357 4358 4359 4360 4361 4362 4363 4364 4366 4367 4368 4369
4370 4371 4374 4375 4378 4379 4380 4388# 4390 4391 4392 4393 4394 4395
4396 4397 4398 4399 4400 4401 4402 4404 4405 4406 4407 4409 4410 4411
4412 4415 4416 4417 4425# 4427 4428 4429 4430 4431 4432 4433 4434 4435
4436 4437 4438 4439 4441 4442 4443 4444 4446 4447 4450 4451 4454 4455
4456 4465# 4467 4468 4469 4470 4471 4472 4473 4474 4475 4476 4477 4478
4479 4481 4482 4483 4484 4486 4488 4489 4491 4494 4495 4496 4504# 4506
4507 4508 4509 4510 4511 4512 4513 4514 4515 4516 4517 4518 4520 4521
4522 4523 4525 4526 4528 4529 4532 4533 4534 4542# 4544 4545 4546 4547
4548 4549 4550 4551 4552 4553 4554 4555 4556 4558 4559 4560 4561 4563
4564 4566 4567 4570 4571 4572 4580# 4582 4583 4584 4585 4586 4587 4588
4589 4590 4591 4592 4593 4594 4596 4597 4598 4599 4601 4602 4604 4605
4608 4609 4610 4619# 4621 4622 4623 4624 4625 4626 4627 4628 4629 4630
4631 4632 4633 4635 4636 4637 4638 4640 4641 4642 4644 4647 4648 4649
4657# 4659 4660 4661 4662 4663 4664 4665 4666 4667 4668 4669 4670 4671
4673 4674 4675 4676 4677 4678 4681 4682 4685 4686 4687 4697# 4699 4700
4701 4702 4703 4704 4705 4706 4707 4708 4709 4710 4711 4713 4714 4715
4716 4718 4719 4722 4723 4726 4727 4728 4736# 4738 4739 4740 4741 4742
4743 4744 4745 4746 4747 4748 4749 4750 4752 4753 4754 4755 4757 4758
4761 4762 4765 4766 4767 4776# 4778 4779 4780 4781 4782 4783 4784 4785
4786 4787 4788 4789 4790 4792 4793 4794 4795 4797 4799 4800 4802 4805
4806 4807 4815# 4817 4818 4819 4820 4821 4822 4823 4824 4825 4826 4827
4828 4829 4831 4832 4833 4834 4835 4836 4839 4840 4843 4844 4845 4853# SEQ 0198
4855 4856 4857 4858 4859 4860 4861 4862 4863 4864 4865 4866 4867 4869
4870 4871 4872 4874 4875 4878 4879 4882 4883 4884 4892# 4894 4895 4896
4897 4898 4899 4900 4901 4902 4903 4904 4905 4906 4908 4909 4910 4911
4913 4914 4917 4918 4921 4922 4923 4932# 4934 4935 4936 4937 4938 4939
4940 4941 4942 4943 4944 4945 4946 4948 4949 4950 4951 4953 4955 4956
4958 4961 4962 4963 4971# 4973 4974 4975 4976 4977 4978 4979 4980 4981
4982 4983 4984 4985 4987 4988 4989 4990 4992 4993 4996 4997 5000 5001
5002 5010# 5012 5013 5014 5015 5016 5017 5018 5019 5020 5021 5022 5023
5024 5026 5027 5028 5029 5031 5032 5035 5036 5039 5040 5041 5049# 5051
5052 5053 5054 5055 5056 5057 5058 5059 5060 5061 5062 5063 5065 5066
5067 5068 5070 5071 5074 5075 5078 5079 5080 5088# 5090 5091 5092 5093
5094 5095 5096 5097 5098 5099 5100 5101 5102 5104 5105 5106 5107 5109
5111 5112 5114 5117 5118 5119 5127# 5129 5130 5131 5132 5133 5134 5135
5136 5137 5138 5139 5140 5141 5143 5144 5145 5146 5148 5149 5154 5155
5158 5159 5160 5168# 5170 5171 5172 5173 5174 5175 5176 5177 5178 5179
5180 5181 5182 5184 5185 5186 5187 5189 5190 5191 5192 5195 5196 5197
5205# 5207 5208 5209 5210 5211 5212 5213 5214 5215 5216 5217 5218 5219
5221 5222 5223 5224 5226 5227 5232 5233 5236 5237 5238 5246# 5248 5249
5250 5251 5252 5253 5254 5255 5256 5257 5258 5259 5260 5262 5263 5264
5265 5267 5269 5271 5272 5274 5277 5278 5279 5287# 5289 5290 5291 5292
5293 5294 5295 5296 5297 5298 5299 5300 5301 5303 5304 5305 5306 5308
5309 5314 5315 5318 5319 5320 5328# 5330 5331 5332 5333 5334 5335 5336
5337 5338 5339 5340 5341 5342 5344 5345 5346 5347 5349 5350 5355 5356
5359 5360 5361 5369# 5371 5372 5373 5374 5375 5376 5377 5378 5379 5380
5381 5382 5383 5385 5386 5387 5388 5390 5391 5396 5397 5400 5401 5402
5410# 5412 5413 5414 5415 5416 5417 5418 5419 5420 5421 5422 5423 5424
5426 5427 5428 5429 5431 5433 5435 5436 5438 5441 5442 5443 5451# 5453
5454 5455 5456 5457 5458 5459 5460 5461 5462 5463 5464 5465 5467 5468
5469 5470 5472 5473 5475 5476 5479 5480 5481 5489# 5491 5492 5493 5494
5495 5496 5497 5498 5499 5500 5501 5502 5503 5505 5506 5507 5508 5510
5511 5513 5514 5517 5518 5519 5527# 5529 5530 5531 5532 5533 5534 5535
5536 5537 5538 5539 5540 5541 5543 5544 5545 5546 5548 5549 5551 5552
5555 5556 5557 5565# 5567 5568 5569 5570 5571 5572 5573 5574 5575 5576
5577 5578 5579 5581 5582 5583 5584 5588 5589 5591 5594 5595 5596 5604#
5606 5607 5608 5609 5610 5611 5612 5613 5614 5615 5616 5617 5618 5620
5621 5622 5623 5624 5625 5628 5629 5632 5633 5634 5642# 5644 5645 5646
5647 5648 5649 5650 5651 5652 5653 5654 5655 5656 5658 5659 5660 5661
5663 5664 5665 5666 5669 5670 5671 5679# 5681 5682 5683 5684 5685 5686
5687 5688 5689 5690 5691 5692 5693 5695 5696 5697 5698 5700 5701 5704
5705 5708 5709 5710 5718# 5720 5721 5722 5723 5724 5725 5726 5727 5728
5729 5730 5731 5732 5734 5735 5736 5737 5739 5741 5742 5744 5747 5748
5749 5757# 5759 5760 5761 5762 5763 5764 5765 5766 5767 5768 5769 5770
5771 5773 5774 5775 5776 5777 5778 5781 5782 5785 5786 5787 5795# 5797
5798 5799 5800 5801 5802 5803 5804 5805 5806 5807 5808 5809 5811 5812
5813 5814 5816 5817 5819 5820 5823 5824 5825 5833# 5835 5836 5837 5838
5839 5840 5841 5842 5843 5844 5845 5846 5847 5849 5850 5851 5852 5854
5855 5858 5859 5862 5863 5864 5872# 5874 5875 5876 5877 5878 5879 5880
5881 5882 5883 5884 5885 5886 5888 5889 5890 5891 5893 5895 5896 5898
5901 5902 5903 5911# 5913 5914 5915 5916 5917 5918 5919 5920 5921 5922
5923 5924 5925 5927 5928 5929 5930 5932 5933 5938 5939 5942 5943 5944
5952# 5954 5955 5956 5957 5958 5959 5960 5961 5962 5963 5964 5965 5966
5968 5969 5970 5971 5973 5974 5979 5980 5983 5984 5985 5993# 5995 5996
5997 5998 5999 6000 6001 6002 6003 6004 6005 6006 6007 6009 6010 6011 SEQ 0199
6012 6014 6015 6020 6021 6024 6025 6026 6034# 6036 6037 6038 6039 6040
6041 6042 6043 6044 6045 6046 6047 6048 6050 6051 6052 6053 6055 6057
6059 6060 6062 6065 6066 6067 6075# 6077 6078 6079 6080 6081 6082 6083
6084 6085 6086 6087 6088 6089 6091 6092 6093 6094 6096 6097 6102 6103
6106 6107 6108 6116# 6118 6119 6120 6121 6122 6123 6124 6125 6126 6127
6128 6129 6130 6132 6133 6134 6135 6137 6138 6139 6140 6143 6144 6145
6153# 6155 6156 6157 6158 6159 6160 6161 6162 6163 6164 6165 6166 6167
6169 6170 6171 6172 6174 6175 6180 6181 6184 6185 6186 6194# 6196 6197
6198 6199 6200 6201 6202 6203 6204 6205 6206 6207 6208 6210 6211 6212
6213 6215 6217 6219 6220 6222 6225 6226 6227 6250# 6252 6253 6254 6255
6256 6257 6258 6259 6260 6261 6262 6263 6264 6266 6267 6268 6269 6270
6274 6285 6286 6289 6290 6291 6297# 6299 6300 6301 6302 6303 6304 6305
6306 6307 6308 6309 6310 6311 6313 6314 6315 6316 6318 6322 6333 6334
6337 6338 6339 6347# 6349 6350 6351 6352 6353 6354 6355 6356 6357 6358
6359 6360 6361 6363 6364 6365 6366 6368 6372 6383 6384 6387 6388 6389
6395# 6397 6398 6399 6400 6401 6402 6403 6404 6405 6406 6407 6408 6409
6411 6412 6413 6414 6415 6420 6431 6432 6434 6437 6438 6439 6447# 6449
6450 6451 6452 6453 6454 6455 6456 6457 6458 6459 6460 6461 6463 6464
6465 6466 6467 6471 6482 6483 6486 6487 6488 6496# 6498 6499 6500 6501
6502 6503 6504 6505 6506 6507 6508 6509 6510 6512 6513 6514 6515 6516
6521 6532 6536 6537 6538 6546# 6548 6549 6550 6551 6552 6553 6554 6555
6556 6557 6558 6559 6560 6562 6563 6564 6565 6567 6571 6582 6583 6586
6587 6588 6594# 6596 6597 6598 6599 6600 6601 6602 6603 6604 6605 6606
6607 6608 6610 6611 6612 6613 6614 6619 6630 6631 6633 6636 6637 6638
6646# 6648 6649 6650 6651 6652 6653 6654 6655 6656 6657 6658 6659 6660
6662 6663 6664 6665 6666 6670 6671 6674 6675 6676 6686# 6688 6689 6690
6691 6692 6693 6694 6695 6696 6697 6698 6699 6700 6702 6703 6704 6705
6706 6710 6711 6714 6715 6716 6727# 6729 6730 6731 6732 6733 6734 6735
6736 6737 6738 6739 6740 6741 6743 6744 6745 6746 6747 6748 6749 6751
6752 6753 6754 6757 6758 6759 6770# 6772 6773 6774 6775 6776 6777 6778
6779 6780 6781 6782 6783 6784 6786 6787 6788 6789 6790 6791 6792 6793
6795 6796 6797 6798 6801 6802 6803 6814# 6816 6817 6818 6819 6820 6821
6822 6823 6824 6825 6826 6827 6828 6829 6830 6831 6832 6833 6834 6835
6841# 6843 6844 6845 6846 6847 6848 6849 6850 6851 6852 6853 6854 6855
6856 6857 6858 6859 6860 6861 6865# 6872 6873 6874 6875 6876 6877
AC1 763# 801# 819 820 822 823 824 825 840# 858 859 862 865 879#
897 898 901 904 918# 956# 976 977 979 980 981 982 984 985
986 987 1002# 1021 1022 1045# 1064 1065 1067 1068 1069 1070 1072 1073
1074 1075 1090# 1110 1111 1114 1117 1118 1120 1122 1135# 1148 1154 1155
1156 1157 1159 1162 1165 1166 1168 1170 1184# 1222# 1240 1241 1243 1244
1245 1246 1261# 1299# 1317 1318 1320 1321 1322 1323 1338# 1356 1357 1360
1363 1377# 1395 1396 1397 1400 1403 1417# 1455# 1473 1474 1476 1477 1478
1479 1494# 1534# 1553 1554 1556 1557 1558 1559 1574# 1594 1595 1598 1601
1615# 1635 1636 1639 1642 1656# 1694# 1712 1713 1715 1716 1717 1718 1733#
1751 1752 1758 1773# 1791 1794 1796 1802# 1820 1821 1822 1824 1827 1830
1844# 1882# 1900 1901 1903 1904 1905 1906 1921# 1964# 1983 1986 1987 1989
1990 1991 1992 2007# 2027 2030 2032 2033 2034 2037 2051# 2071 2072 2074
2076 2078 2081 2095# 2133# 2151 2153 2155 2156 2157 2158 2173# 2191 2192
2198 2213# 2231 2232 2234 2235 2236 2237 2252# 2270 2271 2274 2277 2291#
2309 2310 2311 2313 2316 2319 2333# 2371# 2390 2392 2393 2394 2395 2396
2411# 2431 2432 2438 2453# 2472 2473 2475 2476 2477 2478 2493# 2513 2514
2517 2520 2534# 2554 2555 2557 2560 2563 2577# 2615# 2633 2634 2636 2637
2638 2639 2652# 2690# 2708 2709 2711 2712 2713 2714 2729# 2747 2748 2751 SEQ 0200
2754 2768# 2786 2787 2788 2791 2794 2808# 2846# 2865 2866 2868 2869 2870
2871 2873 2874 2875 2876 2891# 2910 2911 2912 2935# 2954 2955 2956 2957
2958 2959 2974# 2994 2995 2998 3001 3002 3004 3006 3021# 3034 3040 3041
3042 3043 3046 3049 3052 3053 3055 3057 3073# 3092 3093 3094 3111# 3130
3134 3135 3152# 3171 3175 3176 3193# 3213 3214 3215 3232# 3251 3255 3256
3273# 3292 3293 3294 3296 3311# 3330 3334 3335 3352# 3371 3375 3376 3393#
3412 3416 3417 3434# 3453 3457 3458 3475# 3494 3496 3497 3514# 3533 3536
3537 3554# 3573 3576 3577 3594# 3613 3617 3618 3635# 3654 3658 3659 3676#
3695 3696 3697 3714# 3734 3736 3738 3739 3753# 3774 3776 3791# 3812 3814
3816 3835# 3854 3855 3856 3873# 3894 3895 3896 3898 3913# 3934 3935 3936
3938 3953# 3974 3975 3976 3978 3994# 4013 4014 4015 4032# 4053 4054 4056
4071# 4092 4093 4095 4110# 4131 4132 4134 4150# 4168 4171 4172 4189# 4209
4210 4212 4214 4229# 4250 4251 4253 4268# 4289 4290 4292 4294 4310# 4328
4334 4335 4352# 4372 4373 4375 4390# 4408 4411 4413 4427# 4448 4449 4451
4467# 4485 4488 4489 4491 4506# 4527 4529 4544# 4565 4567 4582# 4603 4605
4621# 4639 4641 4642 4659# 4679 4680 4682 4699# 4720 4721 4723 4738# 4759
4760 4762 4778# 4796 4799 4800 4817# 4837 4838 4840 4855# 4876 4877 4879
4894# 4915 4916 4918 4934# 4952 4955 4956 4973# 4994 4995 4997 5012# 5033
5034 5036 5051# 5072 5073 5075 5090# 5108 5111 5112 5129# 5150 5151 5153
5155 5170# 5188 5191 5193 5207# 5228 5229 5231 5233 5248# 5266 5271 5272
5289# 5310 5311 5313 5315 5330# 5351 5352 5354 5356 5371# 5392 5393 5395
5397 5412# 5430 5435 5436 5453# 5474 5476 5491# 5512 5514 5529# 5550 5552
5567# 5586 5588 5589 5606# 5626 5627 5629 5644# 5662 5665 5667 5681# 5702
5703 5705 5720# 5738 5741 5742 5759# 5779 5780 5782 5797# 5818 5820 5835#
5856 5857 5859 5874# 5892 5895 5896 5913# 5934 5935 5937 5939 5954# 5975
5976 5978 5980 5995# 6016 6017 6019 6021 6036# 6054 6059 6060 6077# 6098
6099 6101 6103 6118# 6136 6139 6141 6155# 6176 6177 6179 6181 6196# 6214
6219 6220 6252# 6274 6275 6277 6280 6281 6286 6299# 6322 6323 6325 6328
6329 6334 6349# 6372 6373 6375 6378 6379 6384 6397# 6420 6421 6423 6426
6427 6434 6449# 6471 6472 6474 6477 6478 6483 6498# 6521 6522 6524 6527
6528 6533 6548# 6571 6572 6574 6577 6578 6583 6596# 6619 6620 6622 6625
6626 6633 6648# 6666 6667 6668 6669 6671 6688# 6706 6707 6708 6709 6711
6729# 6749 6750 6754 6772# 6793 6794 6798 6816# 6843#
AC2 764# 802# 841# 880# 919# 957# 1003# 1046# 1091# 1136# 1185# 1223# 1262# 1300#
1339# 1378# 1418# 1456# 1495# 1535# 1575# 1616# 1657# 1695# 1734# 1774# 1792 1793
1803# 1822 1823 1829 1845# 1883# 1922# 1941 1942 1944 1949 1965# 1984 1985
1987 1992 2008# 2028 2029 2031 2036 2052# 2072 2073 2075 2080 2096# 2134#
2152 2158 2174# 2214# 2253# 2292# 2311 2312 2318 2334# 2372# 2391 2396 2412#
2454# 2494# 2535# 2555 2556 2562 2578# 2616# 2653# 2691# 2730# 2769# 2809# 2847#
2892# 2936# 2975# 3022# 3043 3044 3074# 3112# 3131 3132 3133 3137 3153# 3172
3173 3174 3178 3194# 3233# 3252 3253 3254 3258 3274# 3312# 3331 3332 3333
3337 3353# 3372 3373 3374 3378 3394# 3413 3414 3415 3419 3435# 3454 3455
3456 3460 3476# 3495 3499 3515# 3534 3535 3539 3555# 3574 3575 3579 3595#
3614 3615 3616 3620 3636# 3655 3656 3657 3661 3677# 3715# 3735 3736 3754#
3771 3775 3777 3792# 3813 3814 3836# 3853 3858 3874# 3891 3896 3899 3914#
3931 3936 3937 3939 3954# 3971 3976 3977 3995# 4012 4016 4017 4018 4033#
4050 4053 4057 4072# 4089 4092 4094 4096 4111# 4128 4131 4133 4151# 4169
4170 4174 4190# 4211 4212 4230# 4269# 4291 4292 4311# 4329 4330 4333 4337
4353# 4391# 4428# 4445 4450 4468# 4486 4487 4507# 4524 4527 4530 4545# 4562
4565 4566 4568 4583# 4600 4603 4604 4622# 4640 4644 4660# 4700# 4717 4722
4724 4739# 4756 4761 4779# 4797 4798 4802 4818# 4856# 4895# 4912 4917 4935#
4953 4954 4958 4974# 4991 4994 4998 5013# 5030 5033 5035 5037 5052# 5069
5072 5074 5091# 5109 5110 5114 5130# 5147 5152 5156 5171# 5208# 5225 5230 SEQ 0201
5232 5249# 5267 5268 5270 5274 5290# 5307 5312 5316 5331# 5348 5353 5355
5357 5372# 5389 5394 5396 5413# 5431 5432 5434 5438 5454# 5471 5474 5477
5492# 5530# 5547 5550 5551 5568# 5587 5591 5607# 5645# 5682# 5699 5704 5721#
5739 5740 5744 5760# 5798# 5815 5819 5821 5836# 5853 5858 5875# 5893 5894
5898 5914# 5931 5936 5940 5955# 5972 5977 5979 5981 5996# 6013 6018 6020
6037# 6055 6056 6058 6062 6078# 6095 6100 6104 6119# 6156# 6173 6178 6180
6197# 6215 6216 6218 6222 6253# 6271 6276 6277 6300# 6319 6324 6325 6350#
6369 6374 6375 6398# 6417 6422 6423 6450# 6468 6473 6474 6499# 6518 6523
6524 6549# 6568 6573 6574 6597# 6616 6621 6622 6649# 6689# 6730# 6773# 6817#
6844#
AC3 765# 803# 842# 881# 920# 958# 1004# 1047# 1092# 1137# 1186# 1224# 1263# 1301#
1340# 1379# 1419# 1457# 1496# 1536# 1576# 1617# 1658# 1696# 1735# 1775# 1804# 1846#
1884# 1923# 1966# 2009# 2053# 2097# 2135# 2175# 2215# 2254# 2293# 2335# 2373# 2413#
2455# 2495# 2536# 2579# 2617# 2654# 2692# 2731# 2770# 2810# 2848# 2893# 2937# 2976#
3023# 3075# 3113# 3154# 3195# 3234# 3275# 3313# 3354# 3395# 3436# 3477# 3516# 3556#
3596# 3637# 3678# 3716# 3755# 3793# 3809 3815 3817 3837# 3875# 3915# 3955# 3996#
4034# 4073# 4112# 4152# 4191# 4231# 4247 4252 4254 4270# 4286 4293 4312# 4331
4332 4333 4354# 4392# 4429# 4469# 4508# 4546# 4584# 4623# 4661# 4701# 4740# 4780#
4819# 4857# 4873 4878 4880 4896# 4936# 4975# 5014# 5053# 5092# 5131# 5172# 5209#
5250# 5291# 5332# 5373# 5414# 5455# 5493# 5509 5512 5513 5515 5531# 5569# 5585
5587 5590 5592 5608# 5646# 5683# 5722# 5761# 5799# 5837# 5876# 5915# 5956# 5997#
6038# 6079# 6120# 6157# 6198# 6254# 6275 6276 6279 6281 6283 6301# 6323 6324
6327 6329 6331 6351# 6373 6374 6377 6379 6381 6399# 6421 6422 6425 6427
6429 6451# 6472 6473 6476 6478 6480 6500# 6522 6523 6526 6528 6530 6550#
6572 6573 6576 6578 6580 6598# 6620 6621 6624 6626 6628 6650# 6690# 6731#
6774# 6818# 6845#
AC4 766# 804# 843# 882# 921# 959# 1005# 1048# 1093# 1138# 1187# 1225# 1264# 1302#
1341# 1380# 1420# 1458# 1497# 1537# 1577# 1618# 1659# 1697# 1736# 1776# 1805# 1847#
1885# 1924# 1967# 2010# 2054# 2098# 2136# 2176# 2216# 2255# 2294# 2336# 2374# 2414#
2456# 2496# 2537# 2580# 2618# 2655# 2693# 2732# 2771# 2811# 2849# 2894# 2938# 2977#
3024# 3076# 3114# 3155# 3196# 3235# 3276# 3314# 3355# 3396# 3437# 3478# 3517# 3557#
3597# 3638# 3679# 3717# 3756# 3794# 3838# 3876# 3916# 3956# 3997# 4035# 4074# 4113#
4153# 4192# 4232# 4271# 4313# 4355# 4393# 4430# 4470# 4509# 4547# 4585# 4624# 4662#
4702# 4741# 4781# 4820# 4858# 4897# 4937# 4976# 5015# 5054# 5093# 5132# 5173# 5210#
5251# 5292# 5333# 5374# 5415# 5456# 5494# 5532# 5570# 5609# 5647# 5684# 5723# 5762#
5800# 5838# 5877# 5916# 5957# 5998# 6039# 6080# 6121# 6158# 6199# 6255# 6280 6283
6302# 6328 6331 6352# 6378 6381 6400# 6426 6429 6452# 6477 6480 6501# 6527
6530 6551# 6577 6580 6599# 6625 6628 6651# 6691# 6732# 6775# 6819# 6846#
AC5 767# 805# 844# 883# 922# 960# 1006# 1049# 1094# 1139# 1188# 1226# 1265# 1303#
1342# 1381# 1421# 1459# 1498# 1538# 1578# 1619# 1660# 1698# 1737# 1777# 1806# 1848#
1886# 1925# 1968# 2011# 2055# 2099# 2137# 2177# 2217# 2256# 2295# 2337# 2375# 2415#
2457# 2497# 2538# 2581# 2619# 2656# 2694# 2733# 2772# 2812# 2850# 2895# 2939# 2978#
3025# 3077# 3115# 3156# 3197# 3236# 3277# 3315# 3356# 3397# 3438# 3479# 3518# 3558#
3598# 3639# 3680# 3718# 3757# 3795# 3839# 3877# 3917# 3957# 3998# 4036# 4075# 4114#
4154# 4193# 4233# 4272# 4314# 4356# 4394# 4431# 4471# 4510# 4548# 4586# 4625# 4663#
4703# 4742# 4782# 4821# 4859# 4898# 4938# 4977# 5016# 5055# 5094# 5133# 5174# 5211#
5252# 5293# 5334# 5375# 5416# 5457# 5495# 5533# 5571# 5610# 5648# 5685# 5724# 5763#
5801# 5839# 5878# 5917# 5958# 5999# 6040# 6081# 6122# 6159# 6200# 6256# 6303# 6317
6333 6353# 6367 6369 6383 6385 6401# 6416 6431 6432 6453# 6502# 6517 6518
6532 6533 6552# 6566 6568 6582 6584 6600# 6615 6616 6630 6631 6652# 6692#
6733# 6776# 6820# 6847#
ADDA1 6251#
ADDA2 6265# 6289 SEQ 0202
ADDA3 6270# 6291
ADDBA1 6396#
ADDBA2 6410# 6437
ADDBA3 6415# 6439
ADDIA1 6348#
ADDIA2 6362# 6387
ADDIA3 6368# 6389
ADDMA1 6298#
ADDMA2 6312# 6337
ADDMA3 6318# 6339
AFOCLR 345#
AFODIS 345#
AFOENB 345#
AFOV 345#
ALTMGO 431# 7096
AMPCLR 345#
AMPV 345#
ANCAB1 3151#
ANCAB2 3165# 3181
ANCAB3 3170# 3183
ANCBB1 3392#
ANCBB2 3406# 3422
ANCBB3 3411# 3424
ANCMB1 3231#
ANCMB2 3245# 3261
ANCMB3 3250# 3263
ANDB1 3110#
ANDB2 3124# 3140
ANDB3 3129# 3142
ANXCLR 345#
ANXM 345#
AOVCLR 345#
AOVDIS 345#
AOVENB 345#
AOVFLO 345#
APAREN 345#
APARER 345#
APDCLR 345#
APDLOV 345#
APWRFL 345#
AROV 345#
AROVU 345#
AST 546#
ATRPOS 345#
ATSIN 547#
AUSRIO 345#
BEGEND 427# 6911
BEGIN 61 64 65 66 67 68 69 70 71 330 331 358# 7188
BEGIN1 374# 428
BELL 550#
BIS 345#
CCA 345#
CHAIN 136# SEQ 0203
CHNOFF 345#
CHNON 345#
CLK 345#
CLKCLR 345#
CLKDIS 345#
CLKENB 345#
CLKU 345#
CLOCKF 413#
CMPLXT 679 688 691 694 697 700 703 706 748# 774 812 851 890 929
967 1013 1056 1101 1146 1195 1233 1272 1310 1349 1388 1428 1466 1505
1545 1585 1626 1667 1705 1744 1784 1813 1855 1893 1932 1975 2018 2062
2106 2144 2184 2224 2263 2302 2344 2382 2422 2464 2504 2545 2588 2626
2663 2701 2740 2779 2819 2857 2902 2946 2985 3032 3084 3122 3163 3204
3243 3284 3322 3363 3404 3445 3486 3525 3565 3605 3646 3687 3725 3764
3802 3846 3884 3924 3964 4005 4043 4082 4121 4161 4200 4240 4279 4321
4363 4401 4438 4478 4517 4555 4593 4632 4670 4710 4749 4789 4828 4866
4905 4945 4984 5023 5062 5101 5140 5181 5218 5259 5300 5341 5382 5423
5464 5502 5540 5578 5617 5655 5692 5731 5770 5808 5846 5885 5924 5965
6006 6047 6088 6129 6166 6207 6263 6310 6360 6408 6460 6509 6559 6607
6659 6699 6740 6783 6827 6854
CNTLC 430#
COMMA 539#
CONSW 414# 7097 7128
CPOPJ 434#
CPOPJ1 432#
CRLF 265 266 534#
CRLF2 269 270 536#
CRY0 345#
CRY1 345#
CSHFLG 593#
CSHMEM 594#
CYCL60 587#
DCK 345#
DDTLNK 150# 372
DDTSRT 372#
DEBUG 58# 7179 7180
DECVER 3# 10 26 393
DF22F 498#
DIAGMN 361#
DING 122# 7102
DOLLAR 553#
DSKUPD 398
END 7187#
ENDFIX 667#
ENDSLD 7177#
EQVB1 3433#
EQVB2 3447# 3463
EQVB3 3452# 3465
ERDIAG 6965
ERMORE 447# 7088
ERRELB 59# 6965
ERRLOP 772# 772 810# 810 849# 849 888# 888 927# 927 965# 965 1011# 1011
1054# 1054 1099# 1099 1144# 1144 1193# 1193 1231# 1231 1270# 1270 1308# 1308 SEQ 0204
1347# 1347 1386# 1386 1426# 1426 1464# 1464 1503# 1503 1543# 1543 1583# 1583
1624# 1624 1665# 1665 1703# 1703 1742# 1742 1782# 1782 1811# 1811 1853# 1853
1891# 1891 1930# 1930 1973# 1973 2016# 2016 2060# 2060 2104# 2104 2142# 2142
2182# 2182 2222# 2222 2261# 2261 2300# 2300 2342# 2342 2380# 2380 2420# 2420
2462# 2462 2502# 2502 2543# 2543 2586# 2586 2624# 2624 2661# 2661 2699# 2699
2738# 2738 2777# 2777 2817# 2817 2855# 2855 2900# 2900 2944# 2944 2983# 2983
3030# 3030 3082# 3082 3120# 3120 3161# 3161 3202# 3202 3241# 3241 3282# 3282
3320# 3320 3361# 3361 3402# 3402 3443# 3443 3484# 3484 3523# 3523 3563# 3563
3603# 3603 3644# 3644 3685# 3685 3723# 3723 3762# 3762 3800# 3800 3844# 3844
3882# 3882 3922# 3922 3962# 3962 4003# 4003 4041# 4041 4080# 4080 4119# 4119
4159# 4159 4198# 4198 4238# 4238 4277# 4277 4319# 4319 4361# 4361 4399# 4399
4436# 4436 4476# 4476 4515# 4515 4553# 4553 4591# 4591 4630# 4630 4668# 4668
4708# 4708 4747# 4747 4787# 4787 4826# 4826 4864# 4864 4903# 4903 4943# 4943
4982# 4982 5021# 5021 5060# 5060 5099# 5099 5138# 5138 5179# 5179 5216# 5216
5257# 5257 5298# 5298 5339# 5339 5380# 5380 5421# 5421 5462# 5462 5500# 5500
5538# 5538 5576# 5576 5615# 5615 5653# 5653 5690# 5690 5729# 5729 5768# 5768
5806# 5806 5844# 5844 5883# 5883 5922# 5922 5963# 5963 6004# 6004 6045# 6045
6086# 6086 6127# 6127 6164# 6164 6205# 6205 6261# 6261 6308# 6308 6358# 6358
6406# 6406 6458# 6458 6507# 6507 6557# 6557 6605# 6605 6657# 6657 6697# 6697
6738# 6738 6781# 6781 6825# 6825 6852# 6852 6868 6945 7107 7110 7111
ERRMES 42 43 44 45 46 47 48 49 50 6916#
ERRPC 418# 6928 6962 6974
ERRTLS 419# 6926 7114
ERSTOP 125# 7098
EXCASB 54# 396 6917 7119
EXIOT 345#
FOV 345#
FOVU 345#
FRDLNK 148#
FSELNK 147#
FXU 345#
HLL1 3713#
HLL2 3727# 3741
HLL3 3732# 3743
HLLE1 5128#
HLLE2 5142# 5158
HLLE3 5148# 5160
HLLEI1 5169#
HLLEI2 5183# 5195
HLLEI3 5189# 5197
HLLEM1 5206#
HLLEM2 5220# 5236
HLLEM3 5226# 5238
HLLES1 5247#
HLLES2 5261# 5277
HLLES3 5266# 5279
HLLI1 3752#
HLLI2 3766# 3779
HLLI3 3772# 3781
HLLM1 3790#
HLLM2 3804# 3819
HLLM3 3810# 3821
HLLO1 4658# SEQ 0205
HLLO2 4672# 4685
HLLO3 4677# 4687
HLLOI1 4698#
HLLOI2 4712# 4726
HLLOI3 4718# 4728
HLLOM1 4737#
HLLOM2 4751# 4765
HLLOM3 4757# 4767
HLLOS1 4777#
HLLOS2 4791# 4805
HLLOS3 4796# 4807
HLLS1 3834#
HLLS2 3848# 3861
HLLS3 3854# 3863
HLLZ1 4351#
HLLZ2 4365# 4378
HLLZ3 4370# 4380
HLLZI1 4389#
HLLZI2 4403# 4415
HLLZI3 4409# 4417
HLLZM1 4426#
HLLZM2 4440# 4454
HLLZM3 4446# 4456
HLLZS1 4466#
HLLZS2 4480# 4494
HLLZS3 4485# 4496
HLR1 4188#
HLR2 4202# 4217
HLR3 4207# 4219
HLRE1 6076#
HLRE2 6090# 6106
HLRE3 6096# 6108
HLREI1 6117#
HLREI2 6131# 6143
HLREI3 6137# 6145
HLREM1 6154#
HLREM2 6168# 6184
HLREM3 6174# 6186
HLRES1 6195#
HLRES2 6209# 6225
HLRES3 6214# 6227
HLRI1 4228#
HLRI2 4242# 4256
HLRI3 4248# 4258
HLRM1 4267#
HLRM2 4281# 4297
HLRM3 4287# 4299
HLRO1 5758#
HLRO2 5772# 5785
HLRO3 5777# 5787
HLROI1 5796#
HLROI2 5810# 5823
HLROI3 5816# 5825 SEQ 0206
HLROM1 5834#
HLROM2 5848# 5862
HLROM3 5854# 5864
HLROS1 5873#
HLROS2 5887# 5901
HLROS3 5892# 5903
HLRS1 4309#
HLRS2 4323# 4340
HLRS3 4328# 4342
HLRZ1 5605#
HLRZ2 5619# 5632
HLRZ3 5624# 5634
HLRZI1 5643#
HLRZI2 5657# 5669
HLRZI3 5663# 5671
HLRZM1 5680#
HLRZM2 5694# 5708
HLRZM3 5700# 5710
HLRZS1 5719#
HLRZS2 5733# 5747
HLRZS3 5738# 5749
HRL1 4031#
HRL2 4045# 4059
HRL3 4051# 4061
HRLE1 5912#
HRLE2 5926# 5942
HRLE3 5932# 5944
HRLEI1 5953#
HRLEI2 5967# 5983
HRLEI3 5973# 5985
HRLEM1 5994#
HRLEM2 6008# 6024
HRLEM3 6014# 6026
HRLES1 6035#
HRLES2 6049# 6065
HRLES3 6054# 6067
HRLI1 4070#
HRLI2 4084# 4098
HRLI3 4090# 4100
HRLM1 4109#
HRLM2 4123# 4137
HRLM3 4129# 4139
HRLO1 4972#
HRLO2 4986# 5000
HRLO3 4992# 5002
HRLOI1 5011#
HRLOI2 5025# 5039
HRLOI3 5031# 5041
HRLOM1 5050#
HRLOM2 5064# 5078
HRLOM3 5070# 5080
HRLOS1 5089#
HRLOS2 5103# 5117 SEQ 0207
HRLOS3 5108# 5119
HRLS1 4149#
HRLS2 4163# 4177
HRLS3 4168# 4179
HRLZ1 5452#
HRLZ2 5466# 5479
HRLZ3 5472# 5481
HRLZI1 5490#
HRLZI2 5504# 5517
HRLZI3 5510# 5519
HRLZM1 5528#
HRLZM2 5542# 5555
HRLZM3 5548# 5557
HRLZS1 5566#
HRLZS2 5580# 5594
HRLZS3 5586# 5596
HRR1 3872#
HRR2 3886# 3901
HRR3 3892# 3903
HRRE1 5288#
HRRE2 5302# 5318
HRRE3 5308# 5320
HRREI1 5329#
HRREI2 5343# 5359
HRREI3 5349# 5361
HRREM1 5370#
HRREM2 5384# 5400
HRREM3 5390# 5402
HRRES1 5411#
HRRES2 5425# 5441
HRRES3 5430# 5443
HRRI1 3912#
HRRI2 3926# 3941
HRRI3 3932# 3943
HRRM1 3952#
HRRM2 3966# 3981
HRRM3 3972# 3983
HRRO1 4816#
HRRO2 4830# 4843
HRRO3 4835# 4845
HRROI1 4854#
HRROI2 4868# 4882
HRROI3 4874# 4884
HRROM1 4893#
HRROM2 4907# 4921
HRROM3 4913# 4923
HRROS1 4933#
HRROS2 4947# 4961
HRROS3 4952# 4963
HRRS1 3993#
HRRS2 4007# 4020
HRRS3 4013# 4022
HRRZ1 4505# SEQ 0208
HRRZ2 4519# 4532
HRRZ3 4525# 4534
HRRZI1 4543#
HRRZI2 4557# 4570
HRRZI3 4563# 4572
HRRZM1 4581#
HRRZM2 4595# 4608
HRRZM3 4601# 4610
HRRZS1 4620#
HRRZS2 4634# 4647
HRRZS3 4639# 4649
HYPEN 544#
INHCSH 133#
INHPAG 130#
INXM 345#
IOCLR 345#
IORB1 3351#
IORB2 3365# 3381
IORB3 3370# 3383
ITERAT 78# 391
ITRCH1 451#
ITRCNT 391#
JFCNTR 6870# 6870 6906
JFOND 6892 6900 6906#
JFOT0 6867#
JFOT0A 6871# 6907
JFOT1 6878# 6891 6899
JFOT2 6881# 6885
JFOT3 6882 6886#
JFOT4 6894# 6901
JFOT5 6897# 6902
JFOT6 6896 6899#
JFTAB 6888 6901#
JOB41 345#
JOBAPR 345#
JOBCNI 345#
JOBDDT 345#
JOBFF 345#
JOBOPC 345# 7095
JOBREL 345#
JOBREN 345#
JOBSA 345#
JOBSYM 345#
JOBTPC 345#
JOBUSY 345#
JOBUUO 345#
JOBVER 345#
K1 6904#
KA10 56# 345
KAHZ50 138#
KAIFLG 408#
KI10 345 6917 7119
KL10 345 SEQ 0209
KLFLG 409# 6932
KLOLD 60# 345
KLTYP 625#
LDLNK 149# 361 363
LFP 548#
LOOPER 124# 7100
LUUO 345#
LUUO1 42# 478 479
LUUO10 478 483
LUUO11 48# 478 483
LUUO12 49# 478 484
LUUO13 50# 478 484
LUUO14 478 485
LUUO15 478 485
LUUO16 478 486
LUUO17 478 486
LUUO2 43# 478 480
LUUO20 478 487
LUUO21 478 487
LUUO22 478 488
LUUO23 478 488
LUUO24 478 489
LUUO25 478 489
LUUO26 478 490
LUUO27 478 490
LUUO3 44# 478 480
LUUO30 478 491
LUUO31 478 491
LUUO32 478 492
LUUO33 478 492
LUUO4 45# 478 481
LUUO5 46# 478 481
LUUO6 478 482
LUUO7 47# 478 482
LUUOI 345#
MAPNEW 499#
MARGIN 421#
MCNVER 4# 10 26 393
MEMLOW 501#
MEMMAP 399
MEMSIZ 502#
MEMTOT 500#
MICNT 6929# 6929 6930 6947
MINUS 543#
MODDVC 132#
MODDVL 330 330# 394
MODDVU 331 331# 395
MODLNK 151# 358
MONCTL 411# 6948 7112
MONFLG 410#
MONTEN 412#
MPVU 345#
NOPNT 120# 6938 SEQ 0210
NXMU 345#
OPRSEL 134#
OPTIME 513#
ORCAB1 3513#
ORCAB2 3527# 3542
ORCAB3 3532# 3544
ORCBB1 3634#
ORCBB2 3648# 3664
ORCBB3 3653# 3666
ORCMB1 3593#
ORCMB2 3607# 3623
ORCMB3 3612# 3625
P 177 178 179 180 345# 433
PAG 345#
PALERS 126# 7129
PARCLR 345#
PARDIS 345#
PAREA1 72# 389
PAREA2 73# 390
PAREA3 74# 387
PAREA4 75# 388
PAREA5 76# 400
PAREA6 77# 401
PAREA7 400#
PAREA8 401#
PARENB 345#
PARU 345#
PASCNT 415# 6953 6957
PATCH 7180#
PDISF 510#
PDLOVU 345#
PERIOD 540#
PFSTRT 367#
PGMEND 27# 57# 7186
PGMNAM 392 722#
PI 6935
PICHN1 345#
PICHN2 345#
PICHN3 345#
PICHN4 345#
PICHN5 345#
PICHN6 345#
PICHN7 345#
PICHNA 345#
PICLR 345#
PIOFF 345#
PION 345#
PLIST 579# 579
PLISTE 579 581# 665
PLISTS 580#
PLUS 545#
PNTENB 509#
PNTEXT 388# SEQ 0211
PNTFLG 508#
PNTINH 511#
PNTLPT 121#
PNTNAM 387#
PNTSPC 512#
PROCED 6936# 6936 7101 7108
PVPAGI 606#
PWFCLR 345#
QUEST 551#
RADIX 554#
RADLSC 556#
RADLSP 555#
RAN 674 777# 777 780 786 790 815# 815 818 829 854# 854 857 864
868 893# 893 896 903 907 932# 932 935 941 945 970# 970 973
991 1016# 1016 1019 1034 1059# 1059 1062 1079 1104# 1104 1107 1125 1150#
1150 1153 1173 1198# 1198 1201 1207 1211 1236# 1236 1239 1250 1275# 1275
1278 1284 1288 1313# 1313 1316 1327 1352# 1352 1355 1362 1366 1391# 1391
1394 1402 1406 1431# 1431 1434 1440 1444 1469# 1469 1472 1483 1508# 1508
1511 1523 1548# 1548 1551 1563 1588# 1588 1591 1604 1629# 1629 1632 1645
1670# 1670 1673 1679 1683 1708# 1708 1711 1722 1747# 1747 1750 1762 1787#
1787 1790 1816# 1816 1819 1833 1858# 1858 1861 1867 1871 1896# 1896 1899
1910 1935# 1935 1938 1953 1978# 1978 1981 1996 2021# 2021 2024 2040 2065#
2065 2068 2084 2109# 2109 2112 2118 2122 2147# 2147 2150 2162 2187# 2187
2190 2202 2227# 2227 2230 2241 2266# 2266 2269 2276 2280 2305# 2305 2308
2322 2347# 2347 2350 2356 2360 2385# 2385 2388 2400 2425# 2425 2428 2442
2467# 2467 2470 2482 2507# 2507 2510 2523 2548# 2548 2551 2566 2591# 2591
2594 2600 2604 2629# 2629 2632 2643 2666# 2666 2669 2675 2679 2704# 2704
2707 2718 2743# 2743 2746 2753 2757 2782# 2782 2785 2793 2797 2822# 2822
2825 2831 2835 2860# 2860 2863 2880 2905# 2905 2908 2924 2949# 2949 2952
2963 2988# 2988 2991 3009 3036# 3036 3039 3060 3087# 3087 3090 3092 3100
3125# 3125 3128 3130 3131 3141 3166# 3166 3169 3171 3172 3182 3207# 3207
3210 3213 3217 3221 3246# 3246 3249 3251 3252 3262 3287# 3287 3290 3292
3300 3325# 3325 3328 3330 3331 3341 3366# 3366 3369 3371 3372 3382 3407#
3407 3410 3412 3413 3423 3448# 3448 3451 3453 3454 3464 3489# 3489 3492
3494 3503 3528# 3528 3531 3533 3535 3543 3568# 3568 3571 3573 3574 3583
3608# 3608 3611 3613 3614 3624 3649# 3649 3652 3654 3655 3665 3690# 3690
3693 3695 3703 3728# 3728 3731 3735 3737 3742 3767# 3767 3770 3771 3780
3805# 3805 3808 3809 3813 3820 3849# 3849 3852 3853 3862 3887# 3887 3890
3891 3897 3902 3927# 3927 3930 3931 3942 3967# 3967 3970 3971 3979 3982
4008# 4008 4011 4012 4021 4046# 4046 4049 4050 4055 4060 4085# 4085 4088
4089 4099 4124# 4124 4127 4128 4135 4138 4164# 4164 4167 4178 4203# 4203
4206 4211 4213 4218 4243# 4243 4246 4247 4257 4282# 4282 4285 4286 4291
4295 4298 4324# 4324 4327 4341 4366# 4366 4369 4372 4374 4379 4404# 4404
4407 4408 4416 4441# 4441 4444 4445 4448 4452 4455 4481# 4481 4484 4495
4520# 4520 4523 4524 4528 4533 4558# 4558 4561 4562 4571 4596# 4596 4599
4600 4606 4609 4635# 4635 4638 4648 4673# 4673 4676 4679 4681 4686 4713#
4713 4716 4717 4727 4752# 4752 4755 4756 4759 4763 4766 4792# 4792 4795
4806 4831# 4831 4834 4837 4839 4844 4869# 4869 4872 4873 4876 4883 4908#
4908 4911 4912 4915 4919 4922 4948# 4948 4951 4962 4987# 4987 4990 4991
4996 5001 5026# 5026 5029 5030 5040 5065# 5065 5068 5069 5076 5079 5104#
5104 5107 5118 5143# 5143 5146 5147 5150 5154 5159 5184# 5184 5187 5188
5196 5221# 5221 5224 5225 5228 5234 5237 5262# 5262 5265 5278 5303# 5303
5306 5307 5310 5314 5319 5344# 5344 5347 5348 5351 5360 5385# 5385 5388 SEQ 0212
5389 5392 5398 5401 5426# 5426 5429 5442 5467# 5467 5470 5471 5475 5480
5505# 5505 5508 5509 5518 5543# 5543 5546 5547 5553 5556 5581# 5581 5584
5585 5595 5620# 5620 5623 5626 5628 5633 5658# 5658 5661 5662 5670 5695#
5695 5698 5699 5702 5706 5709 5734# 5734 5737 5748 5773# 5773 5776 5779
5781 5786 5811# 5811 5814 5815 5824 5849# 5849 5852 5853 5856 5860 5863
5888# 5888 5891 5902 5927# 5927 5930 5931 5934 5938 5943 5968# 5968 5971
5972 5975 5984 6009# 6009 6012 6013 6016 6022 6025 6050# 6050 6053 6066
6091# 6091 6094 6095 6098 6102 6107 6132# 6132 6135 6136 6144 6169# 6169
6172 6173 6176 6182 6185 6210# 6210 6213 6226 6266# 6266 6269 6271 6285
6290 6313# 6313 6316 6317 6319 6335 6338 6363# 6363 6366 6367 6388 6411#
6411 6414 6416 6417 6438 6463# 6463 6466 6468 6482 6487 6512# 6512 6515
6517 6537 6562# 6562 6565 6566 6587 6610# 6610 6613 6615 6637 6662# 6662
6665 6675 6702# 6702 6705 6715 6743# 6743 6746 6758 6786# 6786 6789 6802
6872# 6872 6875 6878 6886 6889 7043# 7043
RAN1 768# 806# 819 826 845# 884# 923# 961# 976 983 988 1007# 1024 1030
1031 1050# 1064 1071 1076 1095# 1109 1116 1121 1140# 1158 1164 1165 1169
1170 1189# 1227# 1240 1247 1266# 1304# 1317 1323 1324 1343# 1382# 1422# 1460#
1473 1479 1480 1499# 1513 1519 1520 1539# 1553 1559 1560 1579# 1593 1600
1601 1620# 1634 1641 1642 1661# 1699# 1712 1718 1719 1738# 1778# 1791 1807#
1849# 1887# 1900 1907 1926# 1940 1945 1946 1950 1969# 1983 1988 1993 2012#
2026 2032 2037 2056# 2070 2076 2077 2081 2100# 2138# 2151 2159 2178# 2218#
2231 2238 2257# 2296# 2338# 2376# 2390 2397 2416# 2430 2439 2458# 2472 2479
2498# 2512 2519 2520 2539# 2553 2563 2582# 2620# 2633 2640 2657# 2695# 2708
2715 2734# 2773# 2813# 2851# 2865 2872 2877 2896# 2914 2920 2921 2940# 2954
2960 2979# 2993 3000 3001 3005 3006 3026# 3045 3051 3052 3056 3057 3078#
3091 3095 3097 3116# 3129 3136 3138 3157# 3170 3177 3179 3198# 3211 3212
3216 3218 3237# 3250 3257 3259 3278# 3291 3295 3296 3297 3316# 3329 3336
3338 3357# 3370 3377 3379 3398# 3411 3418 3420 3439# 3452 3459 3461 3480#
3493 3498 3500 3519# 3532 3538 3540 3559# 3572 3578 3580 3599# 3612 3619
3621 3640# 3653 3660 3662 3681# 3694 3698 3700 3719# 3733 3739 3758# 3773
3777 3796# 3811 3817 3840# 3854 3857 3859 3878# 3893 3899 3918# 3933 3939
3958# 3973 3979 3999# 4013 4016 4018 4037# 4052 4057 4076# 4091 4096 4115#
4130 4135 4155# 4168 4173 4175 4194# 4208 4215 4234# 4249 4254 4273# 4288
4295 4315# 4328 4336 4338 4357# 4371 4376 4395# 4410 4413 4432# 4447 4452
4472# 4485 4490 4492 4511# 4526 4530 4549# 4564 4568 4587# 4602 4606 4626#
4639 4643 4645 4664# 4678 4683 4704# 4719 4724 4743# 4758 4763 4783# 4796
4801 4803 4822# 4836 4841 4860# 4875 4880 4899# 4914 4919 4939# 4952 4957
4959 4978# 4993 4998 5017# 5032 5037 5056# 5071 5076 5095# 5108 5113 5115
5134# 5149 5156 5175# 5190 5193 5212# 5227 5234 5253# 5266 5273 5275 5294#
5309 5316 5335# 5350 5357 5376# 5391 5398 5417# 5430 5437 5439 5458# 5473
5477 5496# 5511 5515 5534# 5549 5553 5572# 5586 5590 5592 5611# 5625 5630
5649# 5664 5667 5686# 5701 5706 5725# 5738 5743 5745 5764# 5778 5783 5802#
5817 5821 5840# 5855 5860 5879# 5892 5897 5899 5918# 5933 5940 5959# 5974
5981 6000# 6015 6022 6041# 6054 6061 6063 6082# 6097 6104 6123# 6138 6141
6160# 6175 6182 6201# 6214 6221 6223 6257# 6270 6287 6304# 6318 6335 6354#
6368 6385 6402# 6415 6433 6435 6454# 6467 6484 6503# 6516 6534 6553# 6567
6584 6601# 6614 6632 6634 6653# 6693# 6734# 6748 6755 6777# 6792 6799 6821#
6830 6848# 6866# 6877 6887
RANDBS 389# 671
REENTR 369#
RELIAB 128# 682 713
RENTR1 63 719#
REPT 345# SEQ 0213
REPT1 345#
REPTU 467#
REQSET 345#
RESRT1 62 444#
RESRT2 445#
RETURN 376#
RSTART 117#
RTIME 715 747# 775 813 852 891 930 968 1014 1057 1102 1147 1196 1234
1273 1311 1350 1389 1429 1467 1506 1546 1586 1627 1668 1706 1745 1785
1814 1856 1894 1933 1976 2019 2063 2107 2145 2185 2225 2264 2303 2345
2383 2423 2465 2505 2546 2589 2627 2664 2702 2741 2780 2820 2858 2903
2947 2986 3033 3085 3123 3164 3205 3244 3285 3323 3364 3405 3446 3487
3526 3566 3606 3647 3688 3726 3765 3803 3847 3885 3925 3965 4006 4044
4083 4122 4162 4201 4241 4280 4322 4364 4402 4439 4479 4518 4556 4594
4633 4671 4711 4750 4790 4829 4867 4906 4946 4985 5024 5063 5102 5141
5182 5219 5260 5301 5342 5383 5424 5465 5503 5541 5579 5618 5656 5693
5732 5771 5809 5847 5886 5925 5966 6007 6048 6089 6130 6167 6208 6264
6311 6361 6409 6461 6510 6560 6608 6660 6700 6741 6784 6828 6855
RTP 549#
RUNFLG 416#
SADR1 61# 365
SADR10 70# 381
SADR11 71# 382
SADR2 62# 367
SADR3 63# 369
SADR4 64#
SADR5 65# 430
SADR6 66# 431
SADR7 67# 378
SADR8 68# 379
SADR9 69# 380
SBINIT 190 375#
SCOPE 468#
SETAB1 3272#
SETAB2 3286# 3299
SETAB3 3291# 3301
SETMB1 3192#
SETMB2 3206# 3220
SETMB3 3211# 3222
SETZB1 3072#
SETZB2 3086# 3099
SETZB3 3091# 3101
SFSTRT 365#
SLASH 552#
SPACE 541#
SRTDDT 371#
START 359 670#
START1 378#
START2 379#
START3 380#
START4 381#
START5 382#
STARTA 374 679# SEQ 0214
STCAB1 3474#
STCAB2 3488# 3502
STCAB3 3493# 3504
STCMB1 3553#
STCMB2 3567# 3582
STCMB3 3572# 3584
STOB1 3675#
STOB2 3689# 3702
STOB3 3694# 3704
SUBA1 6448#
SUBA2 6462# 6486
SUBA3 6467# 6488
SUBBA1 6595#
SUBBA2 6609# 6636
SUBBA3 6614# 6638
SUBIA1 6547#
SUBIA2 6561# 6586
SUBIA3 6567# 6588
SUBLNK 152# 375
SUBMA1 6497#
SUBMA2 6511# 6536
SUBMA3 6516# 6538
SWTEXR 390#
SYSEXR 363#
TAB 542#
TESTPC 417# 770 808 847 886 925 963 1009 1052 1097 1142 1191 1229 1268
1306 1345 1384 1424 1462 1501 1541 1581 1622 1663 1701 1740 1780 1809
1851 1889 1928 1971 2014 2058 2102 2140 2180 2220 2259 2298 2340 2378
2418 2460 2500 2541 2584 2622 2659 2697 2736 2775 2815 2853 2898 2942
2981 3028 3080 3118 3159 3200 3239 3280 3318 3359 3400 3441 3482 3521
3561 3601 3642 3683 3721 3760 3798 3842 3880 3920 3960 4001 4039 4078
4117 4157 4196 4236 4275 4317 4359 4397 4434 4474 4513 4551 4589 4628
4666 4706 4745 4785 4824 4862 4901 4941 4980 5019 5058 5097 5136 5177
5214 5255 5296 5337 5378 5419 5460 5498 5536 5574 5613 5651 5688 5727
5766 5804 5842 5881 5920 5961 6002 6043 6084 6125 6162 6203 6259 6306
6356 6404 6456 6505 6555 6603 6655 6695 6736 6779 6823 6850
TICKS 420#
TLC1 2576#
TLC2 2590# 2603
TLC3 2595# 2605
TLC4 2614#
TLC5 2628# 2642
TLC6 2633# 2644
TLC7 2651#
TLC8 2665# 2678
TLC9 2670# 2680
TLCA1 2689#
TLCA2 2703# 2717
TLCA3 2708# 2719
TLCA4 2728#
TLCA5 2742# 2756
TLCA6 2747# 2758
TLCA7 2767# SEQ 0215
TLCA8 2781# 2796
TLCA9 2786# 2798
TLCE1 2807#
TLCE2 2821# 2834
TLCE3 2826# 2836
TLCE4 2845#
TLCE5 2859# 2879
TLCE6 2864# 2881
TLCE7 2890#
TLCE8 2904# 2913 2923
TLCE9 2909# 2925
TLCN1 2934#
TLCN2 2948# 2962
TLCN3 2953# 2964
TLCN4 2973#
TLCN5 2987# 3008
TLCN6 2992# 3010
TLCN7 3020#
TLCN8 3035# 3059
TLCN9 3043# 3061
TLFT1 753# 1939 2511 2992
TLFT2 754# 2025
TLN1 1183#
TLN2 1197# 1210
TLN3 1202# 1212
TLN4 1221#
TLN5 1235# 1249
TLN6 1240# 1251
TLN7 1260#
TLN8 1274# 1287
TLN9 1279# 1289
TLNA1 1298#
TLNA2 1312# 1326
TLNA3 1317# 1328
TLNA4 1337#
TLNA5 1351# 1365
TLNA6 1356# 1367
TLNA7 1376#
TLNA8 1390# 1405
TLNA9 1395# 1407
TLNE1 1416#
TLNE2 1430# 1443
TLNE3 1435# 1445
TLNE4 1454#
TLNE5 1468# 1482
TLNE6 1473# 1484
TLNE7 1493#
TLNE8 1507# 1522
TLNE9 1512# 1524
TLNN1 1533#
TLNN2 1547# 1562
TLNN3 1553# 1564
TLNN4 1573# SEQ 0216
TLNN5 1587# 1603
TLNN6 1592# 1605
TLNN7 1614#
TLNN8 1628# 1644
TLNN9 1633# 1646
TLO1 2094#
TLO2 2108# 2121
TLO3 2113# 2123
TLO4 2132#
TLO5 2146# 2161
TLO6 2151# 2163
TLO7 2172#
TLO8 2186# 2201
TLO9 2191# 2203
TLOA1 2212#
TLOA2 2226# 2240
TLOA3 2231# 2242
TLOA4 2251#
TLOA5 2265# 2279
TLOA6 2270# 2281
TLOA7 2290#
TLOA8 2304# 2321
TLOA9 2309# 2323
TLOE1 2332#
TLOE2 2346# 2359
TLOE3 2351# 2361
TLOE4 2370#
TLOE5 2384# 2399
TLOE6 2389# 2401
TLOE7 2410#
TLOE8 2424# 2441
TLOE9 2429# 2443
TLON1 2452#
TLON2 2466# 2481
TLON3 2471# 2483
TLON4 2492#
TLON5 2506# 2522
TLON6 2511# 2524
TLON7 2533#
TLON8 2547# 2565
TLON9 2552# 2567
TLZ1 1655#
TLZ2 1669# 1682
TLZ3 1674# 1684
TLZ4 1693#
TLZ5 1707# 1721
TLZ6 1712# 1723
TLZ7 1732#
TLZ8 1746# 1761
TLZ9 1751# 1763
TLZA1 1772#
TLZA2 1786#
TLZA3 1791# SEQ 0217
TLZA7 1801#
TLZA8 1815# 1832
TLZA9 1820# 1834
TLZE1 1843#
TLZE2 1857# 1870
TLZE3 1862# 1872
TLZE4 1881#
TLZE5 1895# 1909
TLZE6 1900# 1911
TLZE7 1920#
TLZE8 1934# 1952
TLZE9 1939# 1954
TLZN1 1963#
TLZN2 1977# 1995
TLZN3 1982# 1997
TLZN4 2006#
TLZN5 2020# 2039
TLZN6 2025# 2041
TLZN7 2050#
TLZN8 2064# 2083
TLZN9 2069# 2085
TOTALS 118#
TRC4 717 762#
TRC5 776# 789
TRC6 781# 791
TRC7 839#
TRC8 853# 867
TRC9 858# 869
TRCA4 800#
TRCA5 814# 828
TRCA6 819# 830
TRCA7 878#
TRCA8 892# 906
TRCA9 897# 908
TRCE1 917#
TRCE2 931# 944
TRCE3 936# 946
TRCE4 1001#
TRCE5 1015# 1023 1033
TRCE6 1020# 1035
TRCEA1 955#
TRCEA2 969# 975 990
TRCEA3 976# 992
TRCEA4 1044#
TRCEA5 1058# 1078
TRCEA6 1063# 1080
TRCN1 1089#
TRCN2 1103# 1124
TRCN3 1108# 1126
TRCNA 1134#
TRCNB 1149# 1172
TRCNC 1157# 1174
TSTLFT 752# 1512 1592 2429 2909 SEQ 0218
TTNBRF 600#
TTYFIL 516#
TTYSPD 517#
TXTINH 129#
USER 407# 672 6933
USERF 345#
USRASB 55# 397
USRCRF 526#
USRLFF 525#
UUODIS 479#
UUOEXT 435# 7126
UUORTN 436#
UUOSKP 433#
UUOTXT 7081
XORB1 3310#
XORB2 3324# 3340
XORB3 3329# 3342
YY 6864# 6890 6895 6898
$$MUUO 631#
$$OUTE 637#
$$TAX1 649#
$$TAX2 650#
$$TOGG 643#
$$UUO 620#
$ACC0 458#
$BEND1 428#
$BEND2 429# 7116
$CHRIN 519#
$CRLF 521#
$DEVCH 345#
$DSKUP 398#
$DVCH1 345#
$DVOFF 515#
$EMODE 396#
$ENDFX 665# 666
$FFF 523#
$IBUF 571#
$INEXT 573#
$INNM 572#
$ITRHL 439#
$ITRX1 440#
$LPAPE 7137
$MMAP 399#
$MODVL 394#
$MODVU 395#
$OBUF 562#
$ONETM 422#
$OUTEX 564#
$OUTNM 563#
$PAPER 345
$PARER 446#
$PNAME 392#
$PSHER 450# SEQ 0219
$PVER 393#
$RSRTX 442#
$RSRTY 443#
$SPAG1 462#
$START 359#
$SVAPR 460#
$SVPAG 461#
$SVPI 459#
$SVUPC 465# 6927 6931 6961
$SVUUO 464# 6940 6977 6988 7034 7072
$TABF 522#
$TTCHR 518#
$TWCNT 514#
$TYPNB 520#
$UMODE 397#
$UORTX 437#
$USRHL 441#
$UUOER 438# 479
$VTF 524#
%ACS1A 6942# 6942 6969 6973 6990 6996
%ACTFL 471#
%ACTUL 472#
%CNTE 6978# 6978 6982 6997
%COREC 470#
%CORFL 469#
%DISCR 473#
%EE1 6983# 6983 6985 7059
%EE1A 6986# 6986 7027 7068
%EE2 6989# 6989 6994 7057
%EE2A 6995# 6995 7051
%ERAC0 6916# 6916 6943 6981 7013 7025 7041 7118
%ERAC1 6924# 6924 6944 6980 6984 6987 6993 7106
%ERAC2 6925# 6925 6979 7105
%ERFST 6950# 6950 6952
%ERHI1 612#
%ERHI2 613#
%ERHI3 614#
%ERMOR 7082 7088#
%ERMS1 6947# 7131
%ERMS2 6968#
%ERR2 7002 7046 7055#
%ERR4 7019 7072#
%ERRB 7014# 7069
%ERRB1 7034# 7062
%ERRC 7030 7048 7053 7064 7074 7078#
%ERRS1 6939 7092# 7130
%ERRS2 7105#
%ERRS4 6946 7128#
%ERRS5 7109 7113 7118#
%RAND 6968# 6968 6971 7042
.JB41 345#
.JBAPR 345#
.JBCNI 345# SEQ 0220
.JBDDT 345#
.JBFF 345#
.JBOPC 345#
.JBREL 345#
.JBREN 345#
.JBSA 345#
.JBSYM 345#
.JBTPC 345#
.JBUSY 345#
.JBUUO 345#
.JBVER 345#
ADSBSM 6231# 6273 6321 6371 6419 6470 6520 6570 6618
CFLUSH 301# SEQ 0221
CINVAL 300#
CLOKOP 295#
CWRTBI 302#
DROPDV 262# 719
EERR 39# 3095 3097 3136 3138 3177 3179 3216 3218 3257 3259 3295 3297 3336
3338 3377 3379 3418 3420 3459 3461 3498 3500 3538 3540 3578 3580 3619
3621 3660 3662 3698 3700 4215 4376 4683 4841 5630 5783 6287 6433 6435
6484 6632 6634
EERRI 41# 787 865 942 1208 1285 1403 1441 1680 1759 1830 1868 2119 2199
2277 2319 2357 2601 2676 2754 2794 2832 6672 6712
EERRM 40# 3857 3859 4173 4175 4336 4338 4490 4492 4643 4645 4801 4803 4957
4959 5113 5115 5273 5275 5437 5439 5743 5745 5897 5899 6061 6063 6221
6223 6534
ENDUUO 308# 427
EOPUUO 309# 429
ER 37# 783 785 822 824 861 863 900 902 938 940 979 981 985
1027 1029 1067 1069 1073 1113 1115 1119 1161 1163 1167 1204 1206 1243
1245 1281 1283 1320 1322 1359 1361 1399 1401 1437 1439 1476 1478 1516
1518 1556 1558 1597 1599 1638 1640 1676 1678 1715 1717 1755 1757 1796
1826 1828 1864 1866 1903 1905 1948 1991 2035 2079 2115 2117 2155 2157
2195 2197 2234 2236 2273 2275 2315 2317 2353 2355 2393 2395 2435 2437
2475 2477 2516 2518 2559 2561 2597 2599 2636 2638 2672 2674 2711 2713
2750 2752 2790 2792 2828 2830 2868 2870 2874 2917 2919 2956 2958 2997
2999 3003 3048 3050 3054 6753 6797
ERM 38# 6890 6895 6898
ERR 33# 3739 3899 4057 4530 4998 5156 5316 5477 5940 6104
ERRHLT 197# 7099
ERRI 35# 826 904 983 988 1031 1071 1076 1117 1122 1165 1170 1247 1324
1363 1480 1520 1560 1601 1642 1719 1907 1945 1950 1988 1993 2032 2037
2076 2081 2159 2238 2397 2439 2479 2520 2563 2640 2715 2872 2877 2921
2960 3001 3006 3052 3057 3777 3939 4096 4254 4413 4568 4724 4880 5037
5193 5357 5515 5667 5821 5981 6141 6385 6584 6755 6799
ERRM 34# 3817 3979 4016 4018 4135 4295 4452 4606 4763 4919 5076 5234 5398
5553 5590 5592 5706 5860 6022 6182 6335
ERROR 36# 6833 6859
FATAL 196#
FRD36 337#
FRD8 338#
FREAD 336#
FSELEC 335#
GET 180#
GO 177#
HALT 67 68 69 70 71 182# 448
JEN 184#
JRSTF 183#
LOOP 102# 788 827 866 905 943 989 1032 1077 1123 1171 1209 1248 1286
1325 1364 1404 1442 1481 1521 1561 1602 1643 1681 1720 1760 1831 1869
1908 1951 1994 2038 2082 2120 2160 2200 2239 2278 2320 2358 2398 2440
2480 2521 2564 2602 2641 2677 2716 2755 2795 2833 2878 2922 2961 3007
3058 3098 3139 3180 3219 3260 3298 3339 3380 3421 3462 3501 3541 3581
3622 3663 3701 3740 3778 3818 3860 3900 3940 3980 4019 4058 4097 4136
4176 4216 4255 4296 4339 4377 4414 4453 4493 4531 4569 4607 4646 4684
4725 4764 4804 4842 4881 4920 4960 4999 5038 5077 5116 5157 5194 5235 SEQ 0222
5276 5317 5358 5399 5440 5478 5516 5554 5593 5631 5668 5707 5746 5784
5822 5861 5900 5941 5982 6023 6064 6105 6142 6183 6224 6288 6336 6386
6436 6485 6535 6585 6635 6673 6713 6756 6800
MAPADR 318#
MAPCNK 319#
MAPMEM 315#
MAPPNT 321#
MAPSET 320#
MEMSEG 317#
MEMZRO 316#
MODPCP 328#
MODPCU 327#
MTROP 296#
NAME 7# 10
PBELL 271# 7103
PCRL 265# 7078
PCRL2 269#
PCRL2F 270#
PCRLF 266#
PFORCE 273#
PGMINT 190# 670
PJRST 181#
PMSG 275# 6955 6959 7005 7009 7021 7032 7037 7049 7055 7066
PMSGF 278#
PNT1 231#
PNT11 245#
PNT11F 246#
PNT1F 232#
PNT2 233# 7008
PNT2F 234#
PNT3 235#
PNT3F 236#
PNT4 237#
PNT4F 238#
PNT5 239#
PNT5F 240#
PNT6 241# 6963 7060
PNT6F 242#
PNT7 243#
PNT7F 244#
PNTA 217# 7073
PNTADF 248#
PNTADR 247#
PNTAF 218#
PNTAL 219#
PNTALF 220#
PNTCHF 230#
PNTCHR 229#
PNTCI 227#
PNTCIF 228#
PNTCW 263#
PNTCWF 264#
PNTDCF 256# SEQ 0223
PNTDEC 255# 6958
PNTDS 257#
PNTDSF 258#
PNTHW 251# 7014 7028 7044 7052
PNTHWF 252#
PNTMGN 342# 7089
PNTMSF 224#
PNTMSG 223#
PNTNM 259# 6951
PNTOCF 254#
PNTOCS 253#
PNTOCT 249#
PNTOTF 250#
PNTSIX 260#
PNTSXF 261#
PSIXL 221#
PSIXLF 222#
PSIXM 225# 6956 6960 7006 7010 7022 7033 7038 7050 7056 7067
PSIXMF 226#
PSP 267#
PSPF 268#
PUT 179#
RANDOM 96# 776 814 853 892 931 969 1015 1058 1103 1149 1197 1235 1274
1312 1351 1390 1430 1468 1507 1547 1587 1628 1669 1707 1746 1786 1815
1857 1895 1934 1977 2020 2064 2108 2146 2186 2226 2265 2304 2346 2384
2424 2466 2506 2547 2590 2628 2665 2703 2742 2781 2821 2859 2904 2948
2987 3035 3086 3124 3165 3206 3245 3286 3324 3365 3406 3447 3488 3527
3567 3607 3648 3689 3727 3766 3804 3848 3886 3926 3966 4007 4045 4084
4123 4163 4202 4242 4281 4323 4365 4403 4440 4480 4519 4557 4595 4634
4672 4712 4751 4791 4830 4868 4907 4947 4986 5025 5064 5103 5142 5183
5220 5261 5302 5343 5384 5425 5466 5504 5542 5580 5619 5657 5694 5733
5772 5810 5848 5887 5926 5967 6008 6049 6090 6131 6168 6209 6265 6312
6362 6410 6462 6511 6561 6609 6661 6701 6742 6785 6871
RTN 178# 435
S 108# 110 114 143 145 154 157 172 173 175 186 188 192 194
199 203 345 350 356 383 385 403 405 423 425 454 456 474
476 494 496 504 506 527 532 558 560 567 569 575 577 583
585 589 591 596 598 602 604 608 610 616 618 621 623 627
629 633 635 639 641 645 647 652 657 661 663
SETUP 81# 762 800 839 878 917 955 1001 1044 1089 1134 1183 1221 1260
1298 1337 1376 1416 1454 1493 1533 1573 1614 1655 1693 1732 1772 1801
1843 1881 1920 1963 2006 2050 2094 2132 2172 2212 2251 2290 2332 2370
2410 2452 2492 2533 2576 2614 2651 2689 2728 2767 2807 2845 2890 2934
2973 3020 3072 3110 3151 3192 3231 3272 3310 3351 3392 3433 3474 3513
3553 3593 3634 3675 3713 3752 3790 3834 3872 3912 3952 3993 4031 4070
4109 4149 4188 4228 4267 4309 4351 4389 4426 4466 4505 4543 4581 4620
4658 4698 4737 4777 4816 4854 4893 4933 4972 5011 5050 5089 5128 5169
5206 5247 5288 5329 5370 5411 5452 5490 5528 5566 5605 5643 5680 5719
5758 5796 5834 5873 5912 5953 5994 6035 6076 6117 6154 6195 6251 6298
6348 6396 6448 6497 6547 6595 6647 6687 6728 6771 6815 6842
SIXBTZ 284#
SWITCH 290# 681 6937 7090
TTALTM 212# 7092 SEQ 0224
TTICHR 205#
TTICNV 210#
TTIDEC 209#
TTINO 207#
TTIOCT 208#
TTIYES 206#
TTLOOK 211#
TTSIXB 213#