Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dakba.seq
There are no other files named dakba.seq in the archive.
MAINDEC-10-DAKBA.TXT
SEQ 0001
IDENTIFICATION
--------------
PRODUCT CODE: MAINDEC-10-DAKBA-B-D
PRODUCT NAME: DECSYSTEM10 PDP-10 KA10 BASIC
INSTRUCTION RELIABILITY TEST (1)
FUNCTION: COMPARES, SKIPS, EXCHANGES, BOOLE, ROTATES, TESTS
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-DAKBA.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-DAKBA.TXT
PAGE 3 SEQ 0003
1.0 ABSTRACT
THIS PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST
IS THE FIRST IN A SERIES OF PDP-10 KA10 PROCESSOR
RANDOM NUMBER DIAGNOSTICS.
THE DIAGNOSTIC TESTS COMPARES, SKIPS, EXCHANGES, BOOLE, ROTATES, TESTS.
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-DAKBA.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-DAKBA.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-DAKBA.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-DAKBA.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-DAKBA.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-DAKBA.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-DAKBA.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-DAKBA.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-DAKBA.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-DAKBA.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 'DAKBA.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-DAKBA
SEQ 0014
************************************************************************
PRODUCT CODE: MAINDEC-10-DAKBA
PRODUCT NAME: KA10 BASIC INSTRUCTION RELIABILITY # 1
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
************************************************************************
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 1
DAKBAT MAC 21-JAN-77 16:42 DIAGNOSTIC PARAMETERS SEQ 0015
1 ;MAINDEC-10-DAKBA
2
3 000002 DECVER=002
4 000000 MCNVER=000
5
6 XLIST
7 LIST
8 LALL
9
10 NAME \MCNVER,\DECVER^
11
12 TITLE DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 ^
13
14 XALL
15
16 ;TEST DESIGNED FOR RANDOM NUMBER TESTING OF THE PDP-10 BASIC INSTRUCTIONS
17 ;(COMPARES,SKIPS,EXCHANGES,BOOLE,ROTATES,TESTS,ETC.)
18
19 ;COPYRIGHT 1977
20 ;DIGITAL EQUIPMENT CORPORATION
21 ;MARLBORO, MASS. 01752
22
23 ;JOHN R. KIRCHOFF
24
25 000137 LOC 137
26 000137 000000 000002 MCNVER,,DECVER
27
28 NOSYM
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 2
DAKBAT MAC 21-JAN-77 16:42 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 011000 000000 OPDEF EERR [11B8]
39 012000 000000 OPDEF EERRM [12B8]
40 013000 000000 OPDEF EERRI [13B8]
41 037316 LUUO1=ERRMES
42 037316 LUUO2=ERRMES
43 037316 LUUO3=ERRMES
44 037316 LUUO4=ERRMES
45 037316 LUUO5=ERRMES
46 037316 LUUO11=ERRMES
47 037316 LUUO12=ERRMES
48 037316 LUUO13=ERRMES
49
50 ;SUBROUTINE ASSEMBLY DEFINITIONS
51
52 000001 EXCASB==1
53 000001 USRASB==1
54 000040 DEBUG==40
55 000001 KLOLD==1
56 000010 KA10=10
57 000001 PGMEND==1
58 000001 ERRELB==1
59 030000 SADR1==BEGIN
60 030076 SADR2==RESRT1
61 030635 SADR3==RENTR1
62 030000 SADR4==BEGIN
63 030000 SADR5==BEGIN
64 030000 SADR6==BEGIN
65 254200 030000 SADR7==HALT BEGIN
66 254200 030000 SADR8==HALT BEGIN
67 254200 030000 SADR9==HALT BEGIN
68 254200 030000 SADR10==HALT BEGIN
69 254200 030000 SADR11==HALT BEGIN
70 123457 654321 PAREA1==123457,,654321
71 000000 PAREA2==0
72 444153 424100 PAREA3==SIXBIT/DAKBA/
73 645560 000000 PAREA4==SIXBIT/TMP/
74 000000 PAREA5==0
75 000000 PAREA6==0
76 000001 ITERAT==1
77 000001 ENDPGM==1
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 3
DAKBAT MAC 21-JAN-77 16:42 DIAGNOSTIC PARAMETERS SEQ 0017
78 ;MACROS
79
80 DEFINE SETUP (A,B)<
81 AC1=<AC+1>&17
82 AC2=<AC+2>&17
83 AC3=<AC+3>&17
84 AC4=<AC+4>&17
85 AC5=<AC+5>&17
86 RAN1=<AC-2>&17
87 MOVEI AC-1,.
88 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
89 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
90 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
91 MOVEI AC-1,A ;ROUTINE WEIGHTING
92 ASH AC-1,@CMPLXT+B ;ROUTINE COMPLEXITY
93 ASH AC-1,@RTIME ;RUN TIME CONTROLLER >
94
95 DEFINE RANDOM (A)<
96 MOVE AC,RAN# ;GENERATE A PSEUDO RANDOM NUMBER
97 ADD AC,[142536475076]
98 ROT AC,-1 ;IN BOTH AC AND
99 EQVB AC,RAN ;REGISTER RAN >
100
101 DEFINE LOOP (A,B)<
102 SOJG AC-1,A ;ITERATION COUNTER
103 MOVE AC,RAN ;RESTORE RANDOM NUMBER
104 JUMPL AC-1,B ;LOOP ON ERROR SWITCH >
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 1
PARAM KLM 18-JAN-77 11:38 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977 SEQ 0018
105 SUBTTL *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977
106
107 DEFINE S,<;*********************************************************************>
108
109 S^;*********************************************************************^
110 ;*DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE)
111 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
112 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
113 S^;*********************************************************************^
114
115 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION
116 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS
117 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE
118
119 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
120 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
121 010000 DING== 010000 ;RING BELL ON ERROR
122
123 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR
124 002000 ERSTOP==002000 ;HALT ON TEST ERROR
125 001000 PALERS==001000 ;PRINT ALL ERRORS
126
127 000400 RELIAB==000400 ;RELIABILITY MODE
128 000200 TXTINH==000200 ;INHIBIT ERROR TEXT
129 000100 INHPAG==000100 ;INHIBIT PAGING
130
131 000040 MODDVC==000040 ;MODIFY DEVICE CODE
132 000020 INHCSH==000020 ;INHIBIT CACHE
133 000010 OPRSEL==000010 ;OPERATOR SELECTION
134
135 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH
136
137 000002 KAHZ50==000002 ;KA10 50 HERTZ POWER
138
139 ;SWITCH 17 RESERVED !!!
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 2
PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0019
140 SUBTTL *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977
141
142 S^;*********************************************************************^
143 ;*SPECIAL SUBPROGRAM LINKAGES
144 S^;*********************************************************************^
145
146 027772 FSELNK= 27772 ;FILE SELECT LINK
147 027773 FRDLNK= 27773 ;FILE READ LINK
148 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS
149 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS
150 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS
151 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS
152
153 S^;*********************************************************************^
154 ;*SPECIAL SUBROUTINE FATAL HALTS
155 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
156 S^;*********************************************************************^
157
158 ;ADDRESS TAG REASON
159 ;---------------------
160
161 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION
162 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR
163 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR
164 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT
165 ; 1014 DTEBER ;DTE20 INTERRUPT WITHOUT DOORBELL
166 ; 1015 DTECER ;DTE20 CLOCK INTERRUPT WITHOUT FLAG SET
167 ; 1016 CPIERR ;CPU INITIALIZATION ERROR
168 ; 1017 EOPERR ;END OF PROGRAM ERROR
169 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT
170
171 S^;*********************************************************************^
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 3
PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0020
172 S^;*********************************************************************^
173 ;OPERATOR DEFINITIONS (NON-UUO'S)
174 S^;*********************************************************************^
175
176 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL
177 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN
178 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST
179 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST
180 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S
181 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT
182 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT
183 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT
184
185 S^;*********************************************************************^
186 ;*SUBROUTINE INITIALIZATION CALL
187 S^;*********************************************************************^
188
189 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION
190
191 S^;*********************************************************************^
192 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
193 S^;*********************************************************************^
194
195 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT
196 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT
197
198 S^;*********************************************************************^
199 ;*TERMINAL INPUT UUO'S
200 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
201 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
202 S^;*********************************************************************^
203
204 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER
205 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y
206 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N
207 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD
208 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD
209 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD
210 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK
211 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK
212 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD
213 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 4
PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0021
214 ;*TERMINAL OUTPUT UUO'S.
215
216 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD
217 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED
218 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE
219 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED
220 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE
221 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED
222 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE
223 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED
224 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE
225 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED
226 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE
227 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED
228 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER
229 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED
230 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT
231 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED
232 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS
233 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED
234 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS
235 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED
236 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS
237 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED
238 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS
239 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED
240 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS
241 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED
242 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS
243 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED
244 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS
245 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED.
246 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS
247 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED
248 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL
249 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED
250 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6
251 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
252 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S
253 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
254 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S
255 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
256 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S
257 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
258 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME
259 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD
260 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED
261 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE
262 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD
263 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED
264 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
265 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
266 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE
267 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED
268 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 4-1
PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0022
269 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
270 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL
271
272 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE
273
274 DEFINE PMSG (ARG),<
275 PSIXM [SIXBIT\ARG'_\]>
276
277 DEFINE PMSGF (ARG),<
278 PSIXMF [SIXBIT\ARG'_\]>
279
280 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
281 ;* CONSERVES CORE OVER ASCIZ
282
283 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]>
284
285 ;*CONSOLE SWITCH INPUT UUO.
286 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
287 ;* USER MODE.
288
289 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES
290
291 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
292 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
293
294 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - PDP-11 CLOCK
295 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - DK20 METER
296
297 ;*KL10 ONLY CACHE OPERATION UUO'S
298
299 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE
300 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH
301 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 5
PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0023
302 ;*END OF PASS/PROGRAM UUOS
303
304 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
305 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
306
307 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS
308 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO
309
310 ;*MEMORY MANAGEMENT UUO'S
311 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
312 ;*ADDRESS CONVERSION, ETC...
313
314 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY
315 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY
316 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT
317 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT
318 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK
319 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP
320 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP
321
322 ;*DEVICE CODE MODIFICATION UUO
323 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
324 ;*IOT'S TO A DIFFERENT DEVICE CODE.
325
326 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER
327 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM
328
329 030000 IFNDEF MODDVL,<MODDVL==BEGIN>
330 030000 IFNDEF MODDVU,<MODDVU==BEGIN>
331
332 ;*"DIAMON" FILE SELECTION AND READ UUOS
333
334 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION
335 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA
336 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA
337 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA
338
339 ;*KI10 ONLY UUO FOR PRINTING MARGIN VALUES
340
341 037700 000002 OPDEF PNTMGN [37B8!16B12!2] ;PRINT MARGIN VALUE
342
343 XLIST
344 LIST
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 1
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0024
345 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977
346
347 030000 LOC 30000
348
349 S^;*********************************************************************^
350 ;*PROGRAM STARTING ADDRESSES
351 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
352 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
353 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
354 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
355 S^;*********************************************************************^
356
357 030000 254 00 1 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START
358 030001 254 00 0 00 030600 $START: JRST START ;MODE CHECK STARTING ADDRESS
359
360 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START
361
362 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START
363
364 030004 254 00 0 00 030000 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START
365
366 030005 254 00 0 00 030076 PFSTRT: JRST SADR2 ;POWER FAIL RESTART
367
368 030006 254 00 0 00 030635 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY)
369
370 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT"
371 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START
372
373 030010 254 00 0 00 030605 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE)
374 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE
375 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE
376
377 030013 254200 030000 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS
378 030014 254200 030000 START2: SADR8 ; "
379 030015 254200 030000 START3: SADR9 ; "
380 030016 254200 030000 START4: SADR10 ; "
381 030017 254200 030000 START5: SADR11 ; "
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 2
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0025
382 S^;*********************************************************************^
383 ;*PROGRAM FIXED PARAMETER AREA
384 S^;*********************************************************************^
385
386 030020 444153 424100 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME
387 030021 645560 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION
388 030022 123457 654321 RANDBS: PAREA1 ;RANDOM BASE NUMBER
389 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES
390 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS
391 030025 000000 030637 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME
392 030026 000000 000002 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL
393 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT
394 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT
395 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED
396 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED
397 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE
398 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS
399 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER
400 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER
401
402 S^;*********************************************************************^
403 ;*PROGRAM VARIABLE PARAMETER AREA
404 S^;*********************************************************************^
405
406 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG
407 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10
408 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
409 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG
410 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG
411 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10
412 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG
413 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS
414 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT
415 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG
416 030051 000000 000000 TESTPC: 0 ;SUBTEST PC
417 030052 000000 000000 ERRPC: 0 ;ERROR PC
418 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS
419 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME
420 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE
421 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 3
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0026
422 S^;*********************************************************************^
423 ;*SPECIAL PROGRAM DISPATCH ADDRESSES
424 S^;*********************************************************************^
425
426 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS
427 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM
428 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN
429 030062 000000 030000 CNTLC: SADR5 ;CONTROL C XFER ADDRESS
430 030063 000000 030000 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS
431 030064 CPOPJ1: ;SKIP RETURN
432 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO
433 030065 CPOPJ: ;NON-SKIP REGULAR RETURN
434 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN
435 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE
436 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE
437 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX)
438 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE
439 030072 255 00 0 00 000000 $ITRX1: JFCL ; "
440 030073 255 00 0 00 000000 $USRHL: JFCL ; "
441 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE
442 030075 255 00 0 00 000000 $RSRTY: JFCL ; "
443 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX)
444 030077 255 00 0 00 000000 RESRT2: JFCL ; "
445 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE
446 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE
447 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT
448
449 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR)
450 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT
451 030105 000000 000000 0 ;INITED AS (JRST $ITRC1)
452
453 S^;*********************************************************************^
454 ;*PROCESSOR CONTROL STORAGE
455 S^;*********************************************************************^
456
457 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0
458 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI
459 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR
460 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI)
461 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI)
462
463 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO
464 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO
465
466 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS
467 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG
468 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG
469 030120 000000 000000 %COREC: 0 ; " CORRECT DATA
470 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG
471 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA
472 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 4
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0027
473 S^;*********************************************************************^
474 ;*UUO DISPATCH TABLE
475 S^;*********************************************************************^
476 XLIST
477 LIST
478 030124 037316 030070 UUODIS: LUUO1,,$UUOER
479 030125 037316 037316 LUUO3,,LUUO2
480 030126 037316 037316 LUUO5,,LUUO4
481 030127 030070 030070 LUUO7,,LUUO6
482 030130 037316 030070 LUUO11,,LUUO10
483 030131 037316 037316 LUUO13,,LUUO12
484 030132 030070 030070 LUUO15,,LUUO14
485 030133 030070 030070 LUUO17,,LUUO16
486 030134 030070 030070 LUUO21,,LUUO20
487 030135 030070 030070 LUUO23,,LUUO22
488 030136 030070 030070 LUUO25,,LUUO24
489 030137 030070 030070 LUUO27,,LUUO26
490 030140 030070 030070 LUUO31,,LUUO30
491 030141 030070 030070 LUUO33,,LUUO32
492
493 S^;*********************************************************************^
494 ;*MEMORY MANAGMENT STORAGE
495 S^;*********************************************************************^
496
497 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
498 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
499 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.)
500 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY
501 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE
502
503 S^;*********************************************************************^
504 ;*PRINT CONTROL STORAGE
505 S^;*********************************************************************^
506
507 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
508 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE
509 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG
510 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS
511 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL
512 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME
513 030225 000000 000000 $TWCNT: 0 ;TIME WAITED
514 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG
515 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG
516 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE
517 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR
518 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR
519 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER
520 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG
521 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG
522 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG
523 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG
524 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS
525 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 5
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0028
526 S^;*********************************************************************^
527 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
528 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
529 ;* MOVEI NAME
530 ;* PNTA ;OR PNTAF
531 S^;*********************************************************************^
532
533 030242 CRLF: ASCII/
534 030242 015 012 000 000 000 /
535 030243 CRLF2: ASCII/
536
537 030243 015 012 015 012 000 /
538 030244 054 000 000 000 000 COMMA: ASCII/,/
539 030245 056 000 000 000 000 PERIOD: ASCII/./
540 030246 040 000 000 000 000 SPACE: ASCII/ /
541 030247 011 000 000 000 000 TAB: ASCII/ /
542 030250 MINUS:
543 030250 055 000 000 000 000 HYPEN: ASCII/-/
544 030251 053 000 000 000 000 PLUS: ASCII/+/
545 030252 052 000 000 000 000 AST: ASCII/*/
546 030253 100 000 000 000 000 ATSIN: ASCII/@/
547 030254 050 000 000 000 000 LFP: ASCII/(/
548 030255 051 000 000 000 000 RTP: ASCII/)/
549 030256 007 0000000000 BELL: BYTE (7) 007
550 030257 077 000 000 000 000 QUEST: ASCII/?/
551 030260 057 000 000 000 000 SLASH: ASCII!/!
552 030261 044 000 000 000 000 DOLLAR: ASCII/$/
553 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX
554 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR
555 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT
556
557 S^;*********************************************************************^
558 ;*USER MODE OUTPUT FILE INFORMATION
559 S^;*********************************************************************^
560
561 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER
562 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME
563 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION
564 030272 BLOCK 2
565
566 S^;*********************************************************************^
567 ;*DISK UPDATE MODE FILE INFORMATION
568 S^;*********************************************************************^
569
570 030274 $IBUF: BLOCK 3
571 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/
572 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/
573 030301 BLOCK 2
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 6
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0029
574 S^;*********************************************************************^
575 ;*PUSHDOWN LIST CONTROL INFORMATION
576 S^;*********************************************************************^
577
578 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST
579 030304 PLISTS: BLOCK 200
580 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST
581
582 S^;*********************************************************************^
583 ;*POWER LINE CLOCK FREQUENCY FLAG
584 S^;*********************************************************************^
585
586 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE
587
588 S^;*********************************************************************^
589 ;*KL10 CACHE CONTROL FLAGS
590 S^;*********************************************************************^
591
592 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0
593 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0
594
595 S^;*********************************************************************^
596 ;*NUMBER INPUT DIGIT FLAG
597 S^;*********************************************************************^
598
599 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED
600
601 S^;*********************************************************************^
602 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
603 S^;*********************************************************************^
604
605 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
606
607 S^;*********************************************************************^
608 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
609 S^;*********************************************************************^
610
611 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO
612 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO
613 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
614
615 S^;*********************************************************************^
616 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION
617 S^;*********************************************************************^
618
619 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 7
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0030
620 S^;*********************************************************************^
621 ;*KL10 PROCESSOR TYPE FLAG, 0=P0, 1=BBD NEW, 2=BBD OLD
622 S^;*********************************************************************^
623
624 030516 000000 000000 KLTYP: 0
625
626 S^;*********************************************************************^
627 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION
628 S^;*********************************************************************^
629
630 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER
631
632 S^;*********************************************************************^
633 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
634 S^;*********************************************************************^
635
636 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
637
638 S^;*********************************************************************^
639 ;*"SWITCH" CALL USAGE CONTROL
640 S^;*********************************************************************^
641
642 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
643
644 S^;*********************************************************************^
645 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
646 S^;*********************************************************************^
647
648 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
649 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
650
651 S^;*********************************************************************^
652 ;*SPECIAL FUTURE EXPANSION ROOM
653 ;*IF ANY FIXED AREA TAGS ARE ADDED, REDUCE THE SIZE OF
654 ;*THIS BLOCK STATEMENT ACCORDINGLY. THIS MUST BE DONE
655 ;*SO THAT PREVIOUS FIXED ASSIGNMENTS DO NOT CHANGE.
656 S^;*********************************************************************^
657
658 030524 BLOCK 53 ;HOPEFULLY THIS IS ENOUGH FOREVER
659
660 S^;*********************************************************************^
661 ;*END OF FIXED STORAGE
662 S^;*********************************************************************^
663
664 030577 $ENDFX=<PLISTE+100>&<777700>-1
665 030577 LOC $ENDFX
666 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 1
DAKBAM MAC 21-JAN-77 16:47 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0031
667 ;INITIALIZE UUO HANDLER
668
669 030600 265 00 0 00 030011 START: PGMINT ;INITIALIZE SUBROUTINES
670 030601 200 00 0 00 030022 MOVE 0,RANDBS ;EXEC, SETUP RANDOM BASE
671 030602 332 00 0 00 030037 SKIPE USER ;USER, USE TIME OF DAY IN JIFFIES
672 030603 040 00 0 00 037560 CALL 0,[SIXBIT/TIMER/]
673 030604 202 00 0 00 037667 MOVEM 0,RAN ;SETUP RANDOM BASE
674
675 ;INITIALIZE COMPLEXITY TABLE
676 000000 A=0
677 030605 402 00 0 00 030671 STARTA: SETZM CMPLXT ;STORE A TABLE OF POWERS OF 2
678 030606 201 01 0 00 000001 MOVEI 1,1 ;OR 0.
679 030607 037 10 0 00 000002 SWITCH
680 030610 607 00 0 00 000400 TLNN RELIAB ;FAST CYCLE SWITCH SET ?
681 030611 402 00 0 00 000001 SETZM 1 ;YES, STORE ZERO'S
682 REPEAT 7,
683 < MOVEM 1,CMPLXT+1+A
684 LSH 1,1
685 A=A+1>
686 030612 202 01 0 00 030672 MOVEM 1,CMPLXT+1+A
687 030613 242 01 0 00 000001 LSH 1,1
688 000001 A=A+1
689 030614 202 01 0 00 030673 MOVEM 1,CMPLXT+1+A
690 030615 242 01 0 00 000001 LSH 1,1
691 000002 A=A+1
692 030616 202 01 0 00 030674 MOVEM 1,CMPLXT+1+A
693 030617 242 01 0 00 000001 LSH 1,1
694 000003 A=A+1
695 030620 202 01 0 00 030675 MOVEM 1,CMPLXT+1+A
696 030621 242 01 0 00 000001 LSH 1,1
697 000004 A=A+1
698 030622 202 01 0 00 030676 MOVEM 1,CMPLXT+1+A
699 030623 242 01 0 00 000001 LSH 1,1
700 000005 A=A+1
701 030624 202 01 0 00 030677 MOVEM 1,CMPLXT+1+A
702 030625 242 01 0 00 000001 LSH 1,1
703 000006 A=A+1
704 030626 202 01 0 00 030700 MOVEM 1,CMPLXT+1+A
705 030627 242 01 0 00 000001 LSH 1,1
706 000007 A=A+1
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 2
DAKBAM MAC 21-JAN-77 16:47 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0032
707 ;INITIALIZE RUN TIME
708
709 030630 201 01 0 00 000001 MOVEI 1,1
710 030631 603 00 0 00 000400 TLNE RELIAB ;FAST CYCLE SWITCH SET ?
711 030632 201 01 0 00 000007 MOVEI 1,7 ;NO, MULTIPLY RUNNING TIME
712 030633 202 01 0 00 030670 MOVEM 1,RTIME ;STORE IN RTIME
713
714 030634 254 00 0 00 030711 JRST CAM1 ;GO PERFORM DIAGNOSTIC
715
716 030635 037 05 0 00 000002 RENTR1: DROPDV ;CLOSE LOGICAL OUTPUT FILE
717 030636 040 00 0 00 037561 CALL [SIXBIT .EXIT.]
718
719 030637 PGMNAM: ASCIZ/
720 030637 015 012 120 104 120 PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST 1 (DAKBA)
721 030640 055 061 060 040 040
722 030641 113 101 061 060 040
723 030642 102 101 123 111 103
724 030643 040 111 116 123 124
725 030644 122 125 103 124 111
726 030645 117 116 040 122 105
727 030646 114 111 101 102 111
728 030647 114 111 124 131 040
729 030650 124 105 123 124 040
730 030651 061 040 050 104 101
731 030652 113 102 101 051 015
732 030653 012 050 103 117 115 (COMPARES, SKIPS, EXCHANGES, BOOLE, ROTATES, TESTS, ETC.)
733 030654 120 101 122 105 123
734 030655 054 040 123 113 111
735 030656 120 123 054 040 105
736 030657 130 103 110 101 116
737 030660 107 105 123 054 040
738 030661 102 117 117 114 105
739 030662 054 040 122 117 124
740 030663 101 124 105 123 054
741 030664 040 124 105 123 124
742 030665 123 054 040 105 124
743 030666 103 056 051 015 012 /
744 030667 000 000 000 000 000
745 ;CONSTANTS
746
747 030670 000000 000000 RTIME: 0
748 030671 CMPLXT: BLOCK 20
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 3
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0033
749 SUBTTL DIAGNOSTIC SECTION
750 LALL
751
752 ;TEST CAMN,CAME (SIMPLE)
753 ;THE CONTENTS OF THE AC IS COMPARED WITH ITSELF
754 ;AN ERROR WILL OCCUR IF CAMN SKIPS OR CAME FAILS TO SKIP
755 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
756 ;15 ACS ARE USED IN THE TEST
757
758 000002 AC=2
759 030711 CAM1: SETUP 20,0^
760 000003 AC1=<AC+1>&17
761 000004 AC2=<AC+2>&17
762 000005 AC3=<AC+3>&17
763 000006 AC4=<AC+4>&17
764 000007 AC5=<AC+5>&17
765 000000 RAN1=<AC-2>&17
766 030711 201 01 0 00 030711 MOVEI AC-1,.
767 030712 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
768 030713 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
769 030714 202 01 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
770 030715 201 01 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
771 030716 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
772 030717 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
773 RANDOM^
774 030720 200 02 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
775 030721 270 02 0 00 037562 ADD AC,[142536475076]
776 030722 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
777 030723 447 02 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
778 CAMNE1: REPEAT ^D10,
779 < MOVE AC,RAN
780 CAMN AC,AC ;C(AC) = C(AC)
781 CAME AC,AC
782 ERROR AC,AC ;CHECK CAME,CAMN
783 AC=<AC+1>&17
784 >
785 030724 200 02 0 00 037667 MOVE AC,RAN
786 030725 316 02 0 00 000002 CAMN AC,AC ;C(AC) = C(AC)
787 030726 312 02 0 00 000002 CAME AC,AC
788 030727 004 02 0 00 000002 ERROR AC,AC ;CHECK CAME,CAMN
789 000003 AC=<AC+1>&17
790
791 030730 200 03 0 00 037667 MOVE AC,RAN
792 030731 316 03 0 00 000003 CAMN AC,AC ;C(AC) = C(AC)
793 030732 312 03 0 00 000003 CAME AC,AC
794 030733 004 03 0 00 000003 ERROR AC,AC ;CHECK CAME,CAMN
795 000004 AC=<AC+1>&17
796
797 030734 200 04 0 00 037667 MOVE AC,RAN
798 030735 316 04 0 00 000004 CAMN AC,AC ;C(AC) = C(AC)
799 030736 312 04 0 00 000004 CAME AC,AC
800 030737 004 04 0 00 000004 ERROR AC,AC ;CHECK CAME,CAMN
801 000005 AC=<AC+1>&17
802
803 030740 200 05 0 00 037667 MOVE AC,RAN
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 3-1
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0034
804 030741 316 05 0 00 000005 CAMN AC,AC ;C(AC) = C(AC)
805 030742 312 05 0 00 000005 CAME AC,AC
806 030743 004 05 0 00 000005 ERROR AC,AC ;CHECK CAME,CAMN
807 000006 AC=<AC+1>&17
808
809 030744 200 06 0 00 037667 MOVE AC,RAN
810 030745 316 06 0 00 000006 CAMN AC,AC ;C(AC) = C(AC)
811 030746 312 06 0 00 000006 CAME AC,AC
812 030747 004 06 0 00 000006 ERROR AC,AC ;CHECK CAME,CAMN
813 000007 AC=<AC+1>&17
814
815 030750 200 07 0 00 037667 MOVE AC,RAN
816 030751 316 07 0 00 000007 CAMN AC,AC ;C(AC) = C(AC)
817 030752 312 07 0 00 000007 CAME AC,AC
818 030753 004 07 0 00 000007 ERROR AC,AC ;CHECK CAME,CAMN
819 000010 AC=<AC+1>&17
820
821 030754 200 10 0 00 037667 MOVE AC,RAN
822 030755 316 10 0 00 000010 CAMN AC,AC ;C(AC) = C(AC)
823 030756 312 10 0 00 000010 CAME AC,AC
824 030757 004 10 0 00 000010 ERROR AC,AC ;CHECK CAME,CAMN
825 000011 AC=<AC+1>&17
826
827 030760 200 11 0 00 037667 MOVE AC,RAN
828 030761 316 11 0 00 000011 CAMN AC,AC ;C(AC) = C(AC)
829 030762 312 11 0 00 000011 CAME AC,AC
830 030763 004 11 0 00 000011 ERROR AC,AC ;CHECK CAME,CAMN
831 000012 AC=<AC+1>&17
832
833 030764 200 12 0 00 037667 MOVE AC,RAN
834 030765 316 12 0 00 000012 CAMN AC,AC ;C(AC) = C(AC)
835 030766 312 12 0 00 000012 CAME AC,AC
836 030767 004 12 0 00 000012 ERROR AC,AC ;CHECK CAME,CAMN
837 000013 AC=<AC+1>&17
838
839 030770 200 13 0 00 037667 MOVE AC,RAN
840 030771 316 13 0 00 000013 CAMN AC,AC ;C(AC) = C(AC)
841 030772 312 13 0 00 000013 CAME AC,AC
842 030773 004 13 0 00 000013 ERROR AC,AC ;CHECK CAME,CAMN
843 000014 AC=<AC+1>&17
844
845 000002 AC=2
846 LOOP CAMNE1-3,CAMNE1^
847 030774 367 01 0 00 030721 SOJG AC-1,CAMNE1-3 ;ITERATION COUNTER
848 030775 200 02 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
849 030776 321 01 0 00 030724 JUMPL AC-1,CAMNE1 ;LOOP ON ERROR SWITCH ^
850
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 4
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0035
851
852 ;TEST MOVE TO AC,FURTHER TEST OF CAME
853 ;THE C(AC) IS COMPARED WITH THE CONTENTS OF THE RANDOM
854 ;NUMBER GENERATOR. 15 ACS ARE USED IN THE TEST
855 ;ERRORS ARE PRINTED IN THE FORM (PC,AC,C(AC),CORRECT)
856
857 000002 AC=2
858 030777 MOVAC: SETUP 20,0^
859 000003 AC1=<AC+1>&17
860 000004 AC2=<AC+2>&17
861 000005 AC3=<AC+3>&17
862 000006 AC4=<AC+4>&17
863 000007 AC5=<AC+5>&17
864 000000 RAN1=<AC-2>&17
865 030777 201 01 0 00 030777 MOVEI AC-1,.
866 031000 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
867 031001 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
868 031002 202 01 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
869 031003 201 01 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
870 031004 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
871 031005 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
872 RANDOM^
873 031006 200 02 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
874 031007 270 02 0 00 037562 ADD AC,[142536475076]
875 031010 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
876 031011 447 02 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
877 MOVAC1: REPEAT ^D10,
878 < MOVE AC,RAN ;MOVE RAN INTO AC.
879 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
880 ERROR AC,RAN ;IF NOT MOVE FAILED
881 CAME AC,RAN# ;IF AC=RAN CAME FAILED
882 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
883 AC=<AC+1>&17 ;AC ON CAME FAILED
884 >
885 031012 200 02 0 00 037667 MOVE AC,RAN ;MOVE RAN INTO AC.
886 031013 312 02 0 00 037667 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
887 031014 004 02 0 00 037667 ERROR AC,RAN ;IF NOT MOVE FAILED
888 031015 312 02 0 00 037667 CAME AC,RAN# ;IF AC=RAN CAME FAILED
889 031016 004 02 0 00 037667 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
890 000003 AC=<AC+1>&17 ;AC ON CAME FAILED
891
892 031017 200 03 0 00 037667 MOVE AC,RAN ;MOVE RAN INTO AC.
893 031020 312 03 0 00 037667 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
894 031021 004 03 0 00 037667 ERROR AC,RAN ;IF NOT MOVE FAILED
895 031022 312 03 0 00 037667 CAME AC,RAN# ;IF AC=RAN CAME FAILED
896 031023 004 03 0 00 037667 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
897 000004 AC=<AC+1>&17 ;AC ON CAME FAILED
898
899 031024 200 04 0 00 037667 MOVE AC,RAN ;MOVE RAN INTO AC.
900 031025 312 04 0 00 037667 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
901 031026 004 04 0 00 037667 ERROR AC,RAN ;IF NOT MOVE FAILED
902 031027 312 04 0 00 037667 CAME AC,RAN# ;IF AC=RAN CAME FAILED
903 031030 004 04 0 00 037667 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
904 000005 AC=<AC+1>&17 ;AC ON CAME FAILED
905
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 4-1
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0036
906 031031 200 05 0 00 037667 MOVE AC,RAN ;MOVE RAN INTO AC.
907 031032 312 05 0 00 037667 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
908 031033 004 05 0 00 037667 ERROR AC,RAN ;IF NOT MOVE FAILED
909 031034 312 05 0 00 037667 CAME AC,RAN# ;IF AC=RAN CAME FAILED
910 031035 004 05 0 00 037667 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
911 000006 AC=<AC+1>&17 ;AC ON CAME FAILED
912
913 031036 200 06 0 00 037667 MOVE AC,RAN ;MOVE RAN INTO AC.
914 031037 312 06 0 00 037667 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
915 031040 004 06 0 00 037667 ERROR AC,RAN ;IF NOT MOVE FAILED
916 031041 312 06 0 00 037667 CAME AC,RAN# ;IF AC=RAN CAME FAILED
917 031042 004 06 0 00 037667 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
918 000007 AC=<AC+1>&17 ;AC ON CAME FAILED
919
920 031043 200 07 0 00 037667 MOVE AC,RAN ;MOVE RAN INTO AC.
921 031044 312 07 0 00 037667 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
922 031045 004 07 0 00 037667 ERROR AC,RAN ;IF NOT MOVE FAILED
923 031046 312 07 0 00 037667 CAME AC,RAN# ;IF AC=RAN CAME FAILED
924 031047 004 07 0 00 037667 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
925 000010 AC=<AC+1>&17 ;AC ON CAME FAILED
926
927 031050 200 10 0 00 037667 MOVE AC,RAN ;MOVE RAN INTO AC.
928 031051 312 10 0 00 037667 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
929 031052 004 10 0 00 037667 ERROR AC,RAN ;IF NOT MOVE FAILED
930 031053 312 10 0 00 037667 CAME AC,RAN# ;IF AC=RAN CAME FAILED
931 031054 004 10 0 00 037667 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
932 000011 AC=<AC+1>&17 ;AC ON CAME FAILED
933
934 031055 200 11 0 00 037667 MOVE AC,RAN ;MOVE RAN INTO AC.
935 031056 312 11 0 00 037667 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
936 031057 004 11 0 00 037667 ERROR AC,RAN ;IF NOT MOVE FAILED
937 031060 312 11 0 00 037667 CAME AC,RAN# ;IF AC=RAN CAME FAILED
938 031061 004 11 0 00 037667 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
939 000012 AC=<AC+1>&17 ;AC ON CAME FAILED
940
941 031062 200 12 0 00 037667 MOVE AC,RAN ;MOVE RAN INTO AC.
942 031063 312 12 0 00 037667 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
943 031064 004 12 0 00 037667 ERROR AC,RAN ;IF NOT MOVE FAILED
944 031065 312 12 0 00 037667 CAME AC,RAN# ;IF AC=RAN CAME FAILED
945 031066 004 12 0 00 037667 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
946 000013 AC=<AC+1>&17 ;AC ON CAME FAILED
947
948 031067 200 13 0 00 037667 MOVE AC,RAN ;MOVE RAN INTO AC.
949 031070 312 13 0 00 037667 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
950 031071 004 13 0 00 037667 ERROR AC,RAN ;IF NOT MOVE FAILED
951 031072 312 13 0 00 037667 CAME AC,RAN# ;IF AC=RAN CAME FAILED
952 031073 004 13 0 00 037667 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
953 000014 AC=<AC+1>&17 ;AC ON CAME FAILED
954
955 000002 AC=2
956 LOOP MOVAC1-3,MOVAC1^
957 031074 367 01 0 00 031007 SOJG AC-1,MOVAC1-3 ;ITERATION COUNTER
958 031075 200 02 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
959 031076 321 01 0 00 031012 JUMPL AC-1,MOVAC1 ;LOOP ON ERROR SWITCH ^
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 5
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0037
960
961 ;TEST THE SKIP INST FOR NO SKIP,ABILITY TO LOAD
962 ;AN AC,AC SELECTION,AND AC0 LOGIC(NOT LOADING 0)
963 ;ERRORS ARE PRESENTED IN THE FORM(PC,AC,C(AC),CORRECT)
964
965 000005 AC=5
966 031077 SKP: SETUP 30,0^
967 000006 AC1=<AC+1>&17
968 000007 AC2=<AC+2>&17
969 000010 AC3=<AC+3>&17
970 000011 AC4=<AC+4>&17
971 000012 AC5=<AC+5>&17
972 000003 RAN1=<AC-2>&17
973 031077 201 04 0 00 031077 MOVEI AC-1,.
974 031100 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
975 031101 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
976 031102 202 04 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
977 031103 201 04 0 00 000030 MOVEI AC-1,30 ;ROUTINE WEIGHTING
978 031104 240 04 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
979 031105 240 04 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
980 RANDOM^
981 031106 200 05 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
982 031107 270 05 0 00 037562 ADD AC,[142536475076]
983 031110 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
984 031111 447 05 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
985 031112 200 00 0 00 037563 SKP1: MOVE [0] ;DO NOT USE AC0 FOR SKIP
986 REPEAT ^D8,
987 < SKIP AC1,RAN# ;STORE IN AC,DO NOT SKIP,CHECK
988 CAME AC1,AC ;NEW AC AGAINST PREVIOUSLY
989 ERROR AC1,AC ;STORED AC. IF AC=AC+1(SKIP LOGIC)
990 CAME [0] ;IF NOT= STORE CYCLE
991 ERROR [0] ;IF 0 NONE ZERO ADDR/STORE
992 AC=<AC+1>&17
993 AC1=<AC+1>&17
994 >
995 031113 330 06 0 00 037667 SKIP AC1,RAN# ;STORE IN AC,DO NOT SKIP,CHECK
996 031114 312 06 0 00 000005 CAME AC1,AC ;NEW AC AGAINST PREVIOUSLY
997 031115 004 06 0 00 000005 ERROR AC1,AC ;STORED AC. IF AC=AC+1(SKIP LOGIC)
998 031116 312 00 0 00 037563 CAME [0] ;IF NOT= STORE CYCLE
999 031117 004 00 0 00 037563 ERROR [0] ;IF 0 NONE ZERO ADDR/STORE
1000 000006 AC=<AC+1>&17
1001 000007 AC1=<AC+1>&17
1002
1003 031120 330 07 0 00 037667 SKIP AC1,RAN# ;STORE IN AC,DO NOT SKIP,CHECK
1004 031121 312 07 0 00 000006 CAME AC1,AC ;NEW AC AGAINST PREVIOUSLY
1005 031122 004 07 0 00 000006 ERROR AC1,AC ;STORED AC. IF AC=AC+1(SKIP LOGIC)
1006 031123 312 00 0 00 037563 CAME [0] ;IF NOT= STORE CYCLE
1007 031124 004 00 0 00 037563 ERROR [0] ;IF 0 NONE ZERO ADDR/STORE
1008 000007 AC=<AC+1>&17
1009 000010 AC1=<AC+1>&17
1010
1011 031125 330 10 0 00 037667 SKIP AC1,RAN# ;STORE IN AC,DO NOT SKIP,CHECK
1012 031126 312 10 0 00 000007 CAME AC1,AC ;NEW AC AGAINST PREVIOUSLY
1013 031127 004 10 0 00 000007 ERROR AC1,AC ;STORED AC. IF AC=AC+1(SKIP LOGIC)
1014 031130 312 00 0 00 037563 CAME [0] ;IF NOT= STORE CYCLE
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 5-1
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0038
1015 031131 004 00 0 00 037563 ERROR [0] ;IF 0 NONE ZERO ADDR/STORE
1016 000010 AC=<AC+1>&17
1017 000011 AC1=<AC+1>&17
1018
1019 031132 330 11 0 00 037667 SKIP AC1,RAN# ;STORE IN AC,DO NOT SKIP,CHECK
1020 031133 312 11 0 00 000010 CAME AC1,AC ;NEW AC AGAINST PREVIOUSLY
1021 031134 004 11 0 00 000010 ERROR AC1,AC ;STORED AC. IF AC=AC+1(SKIP LOGIC)
1022 031135 312 00 0 00 037563 CAME [0] ;IF NOT= STORE CYCLE
1023 031136 004 00 0 00 037563 ERROR [0] ;IF 0 NONE ZERO ADDR/STORE
1024 000011 AC=<AC+1>&17
1025 000012 AC1=<AC+1>&17
1026
1027 031137 330 12 0 00 037667 SKIP AC1,RAN# ;STORE IN AC,DO NOT SKIP,CHECK
1028 031140 312 12 0 00 000011 CAME AC1,AC ;NEW AC AGAINST PREVIOUSLY
1029 031141 004 12 0 00 000011 ERROR AC1,AC ;STORED AC. IF AC=AC+1(SKIP LOGIC)
1030 031142 312 00 0 00 037563 CAME [0] ;IF NOT= STORE CYCLE
1031 031143 004 00 0 00 037563 ERROR [0] ;IF 0 NONE ZERO ADDR/STORE
1032 000012 AC=<AC+1>&17
1033 000013 AC1=<AC+1>&17
1034
1035 031144 330 13 0 00 037667 SKIP AC1,RAN# ;STORE IN AC,DO NOT SKIP,CHECK
1036 031145 312 13 0 00 000012 CAME AC1,AC ;NEW AC AGAINST PREVIOUSLY
1037 031146 004 13 0 00 000012 ERROR AC1,AC ;STORED AC. IF AC=AC+1(SKIP LOGIC)
1038 031147 312 00 0 00 037563 CAME [0] ;IF NOT= STORE CYCLE
1039 031150 004 00 0 00 037563 ERROR [0] ;IF 0 NONE ZERO ADDR/STORE
1040 000013 AC=<AC+1>&17
1041 000014 AC1=<AC+1>&17
1042
1043 031151 330 14 0 00 037667 SKIP AC1,RAN# ;STORE IN AC,DO NOT SKIP,CHECK
1044 031152 312 14 0 00 000013 CAME AC1,AC ;NEW AC AGAINST PREVIOUSLY
1045 031153 004 14 0 00 000013 ERROR AC1,AC ;STORED AC. IF AC=AC+1(SKIP LOGIC)
1046 031154 312 00 0 00 037563 CAME [0] ;IF NOT= STORE CYCLE
1047 031155 004 00 0 00 037563 ERROR [0] ;IF 0 NONE ZERO ADDR/STORE
1048 000014 AC=<AC+1>&17
1049 000015 AC1=<AC+1>&17
1050
1051 031156 330 15 0 00 037667 SKIP AC1,RAN# ;STORE IN AC,DO NOT SKIP,CHECK
1052 031157 312 15 0 00 000014 CAME AC1,AC ;NEW AC AGAINST PREVIOUSLY
1053 031160 004 15 0 00 000014 ERROR AC1,AC ;STORED AC. IF AC=AC+1(SKIP LOGIC)
1054 031161 312 00 0 00 037563 CAME [0] ;IF NOT= STORE CYCLE
1055 031162 004 00 0 00 037563 ERROR [0] ;IF 0 NONE ZERO ADDR/STORE
1056 000015 AC=<AC+1>&17
1057 000016 AC1=<AC+1>&17
1058
1059 000005 AC=5
1060 LOOP SKP1-4,SKP1^
1061 031163 367 04 0 00 031106 SOJG AC-1,SKP1-4 ;ITERATION COUNTER
1062 031164 200 05 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1063 031165 321 04 0 00 031112 JUMPL AC-1,SKP1 ;LOOP ON ERROR SWITCH ^
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 6
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0039
1064
1065 ;TEST SKIPA INST FOR PC INCREMENT,ABILITY TO LOAD AN AC,
1066 ;AC SELECTION AND AC0 LOGIC(NOT LOADING 0).ERRORS ARE
1067 ;PRESENTED IN THE FORM (PC,AC,C(AC),CORRECT)
1068
1069 000005 AC=5
1070 031166 SKPA: SETUP 30,0^
1071 000006 AC1=<AC+1>&17
1072 000007 AC2=<AC+2>&17
1073 000010 AC3=<AC+3>&17
1074 000011 AC4=<AC+4>&17
1075 000012 AC5=<AC+5>&17
1076 000003 RAN1=<AC-2>&17
1077 031166 201 04 0 00 031166 MOVEI AC-1,.
1078 031167 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1079 031170 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1080 031171 202 04 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1081 031172 201 04 0 00 000030 MOVEI AC-1,30 ;ROUTINE WEIGHTING
1082 031173 240 04 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1083 031174 240 04 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1084 RANDOM^
1085 031175 200 05 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1086 031176 270 05 0 00 037562 ADD AC,[142536475076]
1087 031177 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1088 031200 447 05 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
1089 031201 200 00 0 00 037563 SKPA1: MOVE [0] ;DO NOT USE AC0 FOR SKIPA
1090 REPEAT ^D8,
1091 < SKIPA AC1,AC ;LOAD AC1 AND SKIP
1092 ER AC,[ASCII /SKP/] ;FAILED TO SKIP.
1093 CAME AC,RAN ;C(E) GET CHANGED?
1094 ERROR AC,RAN ;YES.
1095 CAME AC1,RAN ;AC GET LOADED WITH RAN?
1096 ERROR AC1,RAN ;NO.
1097 CAME 0,[0] ;C(AC0) STILL = 0?
1098 ERROR [0] ;CHECK STORE CYCLE,AC ADDRESS
1099 AC=<AC+1>&17
1100 AC1=<AC+1>&17
1101 >
1102 031202 334 06 0 00 000005 SKIPA AC1,AC ;LOAD AC1 AND SKIP
1103 031203 005 05 0 00 037564 ER AC,[ASCII /SKP/] ;FAILED TO SKIP.
1104 031204 312 05 0 00 037667 CAME AC,RAN ;C(E) GET CHANGED?
1105 031205 004 05 0 00 037667 ERROR AC,RAN ;YES.
1106 031206 312 06 0 00 037667 CAME AC1,RAN ;AC GET LOADED WITH RAN?
1107 031207 004 06 0 00 037667 ERROR AC1,RAN ;NO.
1108 031210 312 00 0 00 037563 CAME 0,[0] ;C(AC0) STILL = 0?
1109 031211 004 00 0 00 037563 ERROR [0] ;CHECK STORE CYCLE,AC ADDRESS
1110 000006 AC=<AC+1>&17
1111 000007 AC1=<AC+1>&17
1112
1113 031212 334 07 0 00 000006 SKIPA AC1,AC ;LOAD AC1 AND SKIP
1114 031213 005 06 0 00 037564 ER AC,[ASCII /SKP/] ;FAILED TO SKIP.
1115 031214 312 06 0 00 037667 CAME AC,RAN ;C(E) GET CHANGED?
1116 031215 004 06 0 00 037667 ERROR AC,RAN ;YES.
1117 031216 312 07 0 00 037667 CAME AC1,RAN ;AC GET LOADED WITH RAN?
1118 031217 004 07 0 00 037667 ERROR AC1,RAN ;NO.
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 6-1
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0040
1119 031220 312 00 0 00 037563 CAME 0,[0] ;C(AC0) STILL = 0?
1120 031221 004 00 0 00 037563 ERROR [0] ;CHECK STORE CYCLE,AC ADDRESS
1121 000007 AC=<AC+1>&17
1122 000010 AC1=<AC+1>&17
1123
1124 031222 334 10 0 00 000007 SKIPA AC1,AC ;LOAD AC1 AND SKIP
1125 031223 005 07 0 00 037564 ER AC,[ASCII /SKP/] ;FAILED TO SKIP.
1126 031224 312 07 0 00 037667 CAME AC,RAN ;C(E) GET CHANGED?
1127 031225 004 07 0 00 037667 ERROR AC,RAN ;YES.
1128 031226 312 10 0 00 037667 CAME AC1,RAN ;AC GET LOADED WITH RAN?
1129 031227 004 10 0 00 037667 ERROR AC1,RAN ;NO.
1130 031230 312 00 0 00 037563 CAME 0,[0] ;C(AC0) STILL = 0?
1131 031231 004 00 0 00 037563 ERROR [0] ;CHECK STORE CYCLE,AC ADDRESS
1132 000010 AC=<AC+1>&17
1133 000011 AC1=<AC+1>&17
1134
1135 031232 334 11 0 00 000010 SKIPA AC1,AC ;LOAD AC1 AND SKIP
1136 031233 005 10 0 00 037564 ER AC,[ASCII /SKP/] ;FAILED TO SKIP.
1137 031234 312 10 0 00 037667 CAME AC,RAN ;C(E) GET CHANGED?
1138 031235 004 10 0 00 037667 ERROR AC,RAN ;YES.
1139 031236 312 11 0 00 037667 CAME AC1,RAN ;AC GET LOADED WITH RAN?
1140 031237 004 11 0 00 037667 ERROR AC1,RAN ;NO.
1141 031240 312 00 0 00 037563 CAME 0,[0] ;C(AC0) STILL = 0?
1142 031241 004 00 0 00 037563 ERROR [0] ;CHECK STORE CYCLE,AC ADDRESS
1143 000011 AC=<AC+1>&17
1144 000012 AC1=<AC+1>&17
1145
1146 031242 334 12 0 00 000011 SKIPA AC1,AC ;LOAD AC1 AND SKIP
1147 031243 005 11 0 00 037564 ER AC,[ASCII /SKP/] ;FAILED TO SKIP.
1148 031244 312 11 0 00 037667 CAME AC,RAN ;C(E) GET CHANGED?
1149 031245 004 11 0 00 037667 ERROR AC,RAN ;YES.
1150 031246 312 12 0 00 037667 CAME AC1,RAN ;AC GET LOADED WITH RAN?
1151 031247 004 12 0 00 037667 ERROR AC1,RAN ;NO.
1152 031250 312 00 0 00 037563 CAME 0,[0] ;C(AC0) STILL = 0?
1153 031251 004 00 0 00 037563 ERROR [0] ;CHECK STORE CYCLE,AC ADDRESS
1154 000012 AC=<AC+1>&17
1155 000013 AC1=<AC+1>&17
1156
1157 031252 334 13 0 00 000012 SKIPA AC1,AC ;LOAD AC1 AND SKIP
1158 031253 005 12 0 00 037564 ER AC,[ASCII /SKP/] ;FAILED TO SKIP.
1159 031254 312 12 0 00 037667 CAME AC,RAN ;C(E) GET CHANGED?
1160 031255 004 12 0 00 037667 ERROR AC,RAN ;YES.
1161 031256 312 13 0 00 037667 CAME AC1,RAN ;AC GET LOADED WITH RAN?
1162 031257 004 13 0 00 037667 ERROR AC1,RAN ;NO.
1163 031260 312 00 0 00 037563 CAME 0,[0] ;C(AC0) STILL = 0?
1164 031261 004 00 0 00 037563 ERROR [0] ;CHECK STORE CYCLE,AC ADDRESS
1165 000013 AC=<AC+1>&17
1166 000014 AC1=<AC+1>&17
1167
1168 031262 334 14 0 00 000013 SKIPA AC1,AC ;LOAD AC1 AND SKIP
1169 031263 005 13 0 00 037564 ER AC,[ASCII /SKP/] ;FAILED TO SKIP.
1170 031264 312 13 0 00 037667 CAME AC,RAN ;C(E) GET CHANGED?
1171 031265 004 13 0 00 037667 ERROR AC,RAN ;YES.
1172 031266 312 14 0 00 037667 CAME AC1,RAN ;AC GET LOADED WITH RAN?
1173 031267 004 14 0 00 037667 ERROR AC1,RAN ;NO.
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 6-2
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0041
1174 031270 312 00 0 00 037563 CAME 0,[0] ;C(AC0) STILL = 0?
1175 031271 004 00 0 00 037563 ERROR [0] ;CHECK STORE CYCLE,AC ADDRESS
1176 000014 AC=<AC+1>&17
1177 000015 AC1=<AC+1>&17
1178
1179 031272 334 15 0 00 000014 SKIPA AC1,AC ;LOAD AC1 AND SKIP
1180 031273 005 14 0 00 037564 ER AC,[ASCII /SKP/] ;FAILED TO SKIP.
1181 031274 312 14 0 00 037667 CAME AC,RAN ;C(E) GET CHANGED?
1182 031275 004 14 0 00 037667 ERROR AC,RAN ;YES.
1183 031276 312 15 0 00 037667 CAME AC1,RAN ;AC GET LOADED WITH RAN?
1184 031277 004 15 0 00 037667 ERROR AC1,RAN ;NO.
1185 031300 312 00 0 00 037563 CAME 0,[0] ;C(AC0) STILL = 0?
1186 031301 004 00 0 00 037563 ERROR [0] ;CHECK STORE CYCLE,AC ADDRESS
1187 000015 AC=<AC+1>&17
1188 000016 AC1=<AC+1>&17
1189
1190 000005 AC=5
1191 LOOP SKPA1-4,SKPA1^
1192 031302 367 04 0 00 031175 SOJG AC-1,SKPA1-4 ;ITERATION COUNTER
1193 031303 200 05 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1194 031304 321 04 0 00 031201 JUMPL AC-1,SKPA1 ;LOOP ON ERROR SWITCH ^
1195
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 7
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0042
1196
1197 ;TEST EXCH. BOTH AC AND E ARE AC'S. CHECK FOR
1198 ;CORRECT DATA IN AC AND C(E).
1199 ;C(E) = -1, C(AC) = RAN NUM.
1200
1201 000005 AC=5
1202 031305 EXCH1: SETUP 200,0^
1203 000006 AC1=<AC+1>&17
1204 000007 AC2=<AC+2>&17
1205 000010 AC3=<AC+3>&17
1206 000011 AC4=<AC+4>&17
1207 000012 AC5=<AC+5>&17
1208 000003 RAN1=<AC-2>&17
1209 031305 201 04 0 00 031305 MOVEI AC-1,.
1210 031306 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1211 031307 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1212 031310 202 04 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1213 031311 201 04 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
1214 031312 240 04 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1215 031313 240 04 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1216 031314 EXCH2: RANDOM^
1217 031314 200 05 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1218 031315 270 05 0 00 037562 ADD AC,[142536475076]
1219 031316 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1220 031317 447 05 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
1221 031320 477 06 0 00 000003 EXCH3: SETOB AC1,RAN1 ;MAKE C(E) = -1.
1222 031321 250 05 0 00 000006 EXCH AC,AC1 ;DO THE EXCH.
1223 031322 312 05 0 00 000003 CAME AC,RAN1 ;THE C(AC) SHOULD = ORIG C(E).
1224 031323 001 03 0 00 037667 ERR RAN1,RAN
1225 031324 312 06 0 00 037667 CAME AC1,RAN ;THE C(E) SHOULD = ORIG C(AC).
1226 031325 001 03 0 00 037667 ERR RAN1,RAN
1227 LOOP EXCH2,EXCH3^
1228 031326 367 04 0 00 031314 SOJG AC-1,EXCH2 ;ITERATION COUNTER
1229 031327 200 05 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1230 031330 321 04 0 00 031320 JUMPL AC-1,EXCH3 ;LOOP ON ERROR SWITCH ^
1231
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 8
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0043
1232
1233 ;TEST SETCA FOR COMPLEMENT AC AND NOT STORING IN C(E)
1234 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
1235 ;SETCA DOES NOT NORMALLY CHANGE THE CONTENTS OF "E"
1236
1237 000010 AC=10
1238 BOLCA: REPEAT 2,
1239 < SETUP 100,2
1240 RANDOM
1241 MOVE AC2,[0] ;CLEAR AC2, USED TO INSURE
1242 SETCA AC,AC2 ;SETCA DOES NOT STORE IN C(E)
1243 CAMN AC,RAN# ;IF AC UNCHANGED CNTL PULSES
1244 ERROR AC,RAN ;FOR INST SETCA FAILED
1245 REPEAT 3,
1246 < SETCA AC,AC2>
1247 CAME AC,RAN# ;A TOTAL OF 4 COMPLEMENTS
1248 ERROR AC,RAN ;SHOULD PRODUCE ORIGINAL NUM
1249 CAME AC2,[0] ;IF SETCA STORED C(E)
1250 ERROR AC2,[0] ;C(AC2) WILL NO LONGER BE 0.
1251 LOOP .-16,.-15
1252 AC=AC+17
1253 >
1254 SETUP 100,2^
1255 000011 AC1=<AC+1>&17
1256 000012 AC2=<AC+2>&17
1257 000013 AC3=<AC+3>&17
1258 000014 AC4=<AC+4>&17
1259 000015 AC5=<AC+5>&17
1260 000006 RAN1=<AC-2>&17
1261 031331 201 07 0 00 031331 MOVEI AC-1,.
1262 031332 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1263 031333 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1264 031334 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1265 031335 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1266 031336 240 07 1 00 030673 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
1267 031337 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1268 RANDOM^
1269 031340 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1270 031341 270 10 0 00 037562 ADD AC,[142536475076]
1271 031342 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1272 031343 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
1273 031344 200 12 0 00 037563 MOVE AC2,[0] ;CLEAR AC2, USED TO INSURE
1274 031345 450 10 0 00 000012 SETCA AC,AC2 ;SETCA DOES NOT STORE IN C(E)
1275 031346 316 10 0 00 037667 CAMN AC,RAN# ;IF AC UNCHANGED CNTL PULSES
1276 031347 004 10 0 00 037667 ERROR AC,RAN ;FOR INST SETCA FAILED
1277 REPEAT 3,
1278 031350 450 10 0 00 000012 SETCA AC,AC2
1279 031351 450 10 0 00 000012 SETCA AC,AC2
1280 031352 450 10 0 00 000012 SETCA AC,AC2
1281 031353 312 10 0 00 037667 CAME AC,RAN# ;A TOTAL OF 4 COMPLEMENTS
1282 031354 004 10 0 00 037667 ERROR AC,RAN ;SHOULD PRODUCE ORIGINAL NUM
1283 031355 312 12 0 00 037563 CAME AC2,[0] ;IF SETCA STORED C(E)
1284 031356 004 12 0 00 037563 ERROR AC2,[0] ;C(AC2) WILL NO LONGER BE 0.
1285 LOOP .-16,.-15^
1286 031357 367 07 0 00 031341 SOJG AC-1,.-16 ;ITERATION COUNTER
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 8-1
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0044
1287 031360 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1288 031361 321 07 0 00 031344 JUMPL AC-1,.-15 ;LOOP ON ERROR SWITCH ^
1289 000027 AC=AC+17
1290
1291 SETUP 100,2^
1292 000010 AC1=<AC+1>&17
1293 000011 AC2=<AC+2>&17
1294 000012 AC3=<AC+3>&17
1295 000013 AC4=<AC+4>&17
1296 000014 AC5=<AC+5>&17
1297 000005 RAN1=<AC-2>&17
1298 031362 201 06 0 00 031362 MOVEI AC-1,.
1299 031363 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1300 031364 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1301 031365 202 06 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1302 031366 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1303 031367 240 06 1 00 030673 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
1304 031370 240 06 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1305 RANDOM^
1306 031371 200 07 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1307 031372 270 07 0 00 037562 ADD AC,[142536475076]
1308 031373 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1309 031374 447 07 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
1310 031375 200 11 0 00 037563 MOVE AC2,[0] ;CLEAR AC2, USED TO INSURE
1311 031376 450 07 0 00 000011 SETCA AC,AC2 ;SETCA DOES NOT STORE IN C(E)
1312 031377 316 07 0 00 037667 CAMN AC,RAN# ;IF AC UNCHANGED CNTL PULSES
1313 031400 004 07 0 00 037667 ERROR AC,RAN ;FOR INST SETCA FAILED
1314 REPEAT 3,
1315 031401 450 07 0 00 000011 SETCA AC,AC2
1316 031402 450 07 0 00 000011 SETCA AC,AC2
1317 031403 450 07 0 00 000011 SETCA AC,AC2
1318 031404 312 07 0 00 037667 CAME AC,RAN# ;A TOTAL OF 4 COMPLEMENTS
1319 031405 004 07 0 00 037667 ERROR AC,RAN ;SHOULD PRODUCE ORIGINAL NUM
1320 031406 312 11 0 00 037563 CAME AC2,[0] ;IF SETCA STORED C(E)
1321 031407 004 11 0 00 037563 ERROR AC2,[0] ;C(AC2) WILL NO LONGER BE 0.
1322 LOOP .-16,.-15^
1323 031410 367 06 0 00 031372 SOJG AC-1,.-16 ;ITERATION COUNTER
1324 031411 200 07 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1325 031412 321 06 0 00 031375 JUMPL AC-1,.-15 ;LOOP ON ERROR SWITCH ^
1326 000046 AC=AC+17
1327
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 9
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0045
1328
1329 ;TEST SETCAI ABILITY TO COMPLEMENT AC AND FAILURE TO FETCH C(E)
1330 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT
1331 ;SETCA IS INDEXED FOR NOISE PURPOSES
1332
1333 000005 AC=5
1334 031413 BOLCAI: SETUP 40,0^
1335 000006 AC1=<AC+1>&17
1336 000007 AC2=<AC+2>&17
1337 000010 AC3=<AC+3>&17
1338 000011 AC4=<AC+4>&17
1339 000012 AC5=<AC+5>&17
1340 000003 RAN1=<AC-2>&17
1341 031413 201 04 0 00 031413 MOVEI AC-1,.
1342 031414 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1343 031415 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1344 031416 202 04 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1345 031417 201 04 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
1346 031420 240 04 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1347 031421 240 04 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1348 031422 BOLCA1: RANDOM^
1349 031422 200 05 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1350 031423 270 05 0 00 037562 ADD AC,[142536475076]
1351 031424 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1352 031425 447 05 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
1353 BOLCA2: REPEAT 4,
1354 < MOVE AC1,AC ;MOVE RANDOM TO AN AC
1355 SETCAI AC1,-1(AC) ;TWO COMP SHOULD PRODUCE
1356 SETCAI AC1,777000(AC) ;ORIGINAL NUMBER
1357 CAME AC1,AC ;SETCAI FAILED
1358 ERROR AC1,AC
1359 AC=<AC+1>&17
1360 AC1=<AC+1>&17
1361 >
1362 031426 200 06 0 00 000005 MOVE AC1,AC ;MOVE RANDOM TO AN AC
1363 031427 451 06 0 05 777777 SETCAI AC1,-1(AC) ;TWO COMP SHOULD PRODUCE
1364 031430 451 06 0 05 777000 SETCAI AC1,777000(AC) ;ORIGINAL NUMBER
1365 031431 312 06 0 00 000005 CAME AC1,AC ;SETCAI FAILED
1366 031432 004 06 0 00 000005 ERROR AC1,AC
1367 000006 AC=<AC+1>&17
1368 000007 AC1=<AC+1>&17
1369
1370 031433 200 07 0 00 000006 MOVE AC1,AC ;MOVE RANDOM TO AN AC
1371 031434 451 07 0 06 777777 SETCAI AC1,-1(AC) ;TWO COMP SHOULD PRODUCE
1372 031435 451 07 0 06 777000 SETCAI AC1,777000(AC) ;ORIGINAL NUMBER
1373 031436 312 07 0 00 000006 CAME AC1,AC ;SETCAI FAILED
1374 031437 004 07 0 00 000006 ERROR AC1,AC
1375 000007 AC=<AC+1>&17
1376 000010 AC1=<AC+1>&17
1377
1378 031440 200 10 0 00 000007 MOVE AC1,AC ;MOVE RANDOM TO AN AC
1379 031441 451 10 0 07 777777 SETCAI AC1,-1(AC) ;TWO COMP SHOULD PRODUCE
1380 031442 451 10 0 07 777000 SETCAI AC1,777000(AC) ;ORIGINAL NUMBER
1381 031443 312 10 0 00 000007 CAME AC1,AC ;SETCAI FAILED
1382 031444 004 10 0 00 000007 ERROR AC1,AC
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 9-1
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0046
1383 000010 AC=<AC+1>&17
1384 000011 AC1=<AC+1>&17
1385
1386 031445 200 11 0 00 000010 MOVE AC1,AC ;MOVE RANDOM TO AN AC
1387 031446 451 11 0 10 777777 SETCAI AC1,-1(AC) ;TWO COMP SHOULD PRODUCE
1388 031447 451 11 0 10 777000 SETCAI AC1,777000(AC) ;ORIGINAL NUMBER
1389 031450 312 11 0 00 000010 CAME AC1,AC ;SETCAI FAILED
1390 031451 004 11 0 00 000010 ERROR AC1,AC
1391 000011 AC=<AC+1>&17
1392 000012 AC1=<AC+1>&17
1393
1394 000005 AC=5
1395 LOOP BOLCA1,BOLCA2^
1396 031452 367 04 0 00 031422 SOJG AC-1,BOLCA1 ;ITERATION COUNTER
1397 031453 200 05 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1398 031454 321 04 0 00 031426 JUMPL AC-1,BOLCA2 ;LOOP ON ERROR SWITCH ^
1399
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 10
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0047
1400
1401 ;TEST XOR TO ZERO,XOR 0 TO N,N TO N,-1 TO N
1402 ;THREE ACS ARE USED IN THE TEST
1403 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT
1404
1405 000001 AC=1
1406 BOLX: REPEAT 3,
1407 < SETUP 200,0
1408 RANDOM
1409 MOVE AC,[0] ;CLEAR THE AC
1410 XOR AC,RAN ;0 EXCLUSIVE ORED WITH
1411 CAME AC,RAN ;RANDOM SHOULD = RANDOM
1412 ERROR AC,RAN ;XOR FAILED
1413 XOR AC,[0] ;ANY NUMBER XORED
1414 CAME AC,RAN ;WITH THE NUMBER 0
1415 ERROR AC,RAN ;SHOULD REMAIN UNCHANGED
1416 XOR AC,RAN ;ANY NUMBER XORED
1417 CAME AC,[0] ;WITH ITSELF SHOULD
1418 ERROR AC,[0] ;EQUAL 0
1419 XOR AC,[-1] ;SET AC TO ALL ONES
1420 XOR AC,RAN ;AC SHOULD CONTAIN COMP OF RAN
1421 XOR AC,[-1] ;RECOMPLEMENT AC TO ORIG
1422 CAME AC,RAN ;CHECK FOR RANDOM
1423 ERROR AC,RAN ;XOR FAILED
1424 LOOP .-22,.-21
1425 AC=AC+1
1426 >
1427 SETUP 200,0^
1428 000002 AC1=<AC+1>&17
1429 000003 AC2=<AC+2>&17
1430 000004 AC3=<AC+3>&17
1431 000005 AC4=<AC+4>&17
1432 000006 AC5=<AC+5>&17
1433 000017 RAN1=<AC-2>&17
1434 031455 201 00 0 00 031455 MOVEI AC-1,.
1435 031456 202 00 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1436 031457 201 00 0 00 000000 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1437 031460 202 00 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1438 031461 201 00 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
1439 031462 240 00 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1440 031463 240 00 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1441 RANDOM^
1442 031464 200 01 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1443 031465 270 01 0 00 037562 ADD AC,[142536475076]
1444 031466 241 01 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1445 031467 447 01 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
1446 031470 200 01 0 00 037563 MOVE AC,[0] ;CLEAR THE AC
1447 031471 430 01 0 00 037667 XOR AC,RAN ;0 EXCLUSIVE ORED WITH
1448 031472 312 01 0 00 037667 CAME AC,RAN ;RANDOM SHOULD = RANDOM
1449 031473 004 01 0 00 037667 ERROR AC,RAN ;XOR FAILED
1450 031474 430 01 0 00 037563 XOR AC,[0] ;ANY NUMBER XORED
1451 031475 312 01 0 00 037667 CAME AC,RAN ;WITH THE NUMBER 0
1452 031476 004 01 0 00 037667 ERROR AC,RAN ;SHOULD REMAIN UNCHANGED
1453 031477 430 01 0 00 037667 XOR AC,RAN ;ANY NUMBER XORED
1454 031500 312 01 0 00 037563 CAME AC,[0] ;WITH ITSELF SHOULD
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 10-1
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0048
1455 031501 004 01 0 00 037563 ERROR AC,[0] ;EQUAL 0
1456 031502 430 01 0 00 037565 XOR AC,[-1] ;SET AC TO ALL ONES
1457 031503 430 01 0 00 037667 XOR AC,RAN ;AC SHOULD CONTAIN COMP OF RAN
1458 031504 430 01 0 00 037565 XOR AC,[-1] ;RECOMPLEMENT AC TO ORIG
1459 031505 312 01 0 00 037667 CAME AC,RAN ;CHECK FOR RANDOM
1460 031506 004 01 0 00 037667 ERROR AC,RAN ;XOR FAILED
1461 LOOP .-22,.-21^
1462 031507 367 00 0 00 031465 SOJG AC-1,.-22 ;ITERATION COUNTER
1463 031510 200 01 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1464 031511 321 00 0 00 031470 JUMPL AC-1,.-21 ;LOOP ON ERROR SWITCH ^
1465 000002 AC=AC+1
1466
1467 SETUP 200,0^
1468 000003 AC1=<AC+1>&17
1469 000004 AC2=<AC+2>&17
1470 000005 AC3=<AC+3>&17
1471 000006 AC4=<AC+4>&17
1472 000007 AC5=<AC+5>&17
1473 000000 RAN1=<AC-2>&17
1474 031512 201 01 0 00 031512 MOVEI AC-1,.
1475 031513 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1476 031514 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1477 031515 202 01 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1478 031516 201 01 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
1479 031517 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1480 031520 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1481 RANDOM^
1482 031521 200 02 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1483 031522 270 02 0 00 037562 ADD AC,[142536475076]
1484 031523 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1485 031524 447 02 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
1486 031525 200 02 0 00 037563 MOVE AC,[0] ;CLEAR THE AC
1487 031526 430 02 0 00 037667 XOR AC,RAN ;0 EXCLUSIVE ORED WITH
1488 031527 312 02 0 00 037667 CAME AC,RAN ;RANDOM SHOULD = RANDOM
1489 031530 004 02 0 00 037667 ERROR AC,RAN ;XOR FAILED
1490 031531 430 02 0 00 037563 XOR AC,[0] ;ANY NUMBER XORED
1491 031532 312 02 0 00 037667 CAME AC,RAN ;WITH THE NUMBER 0
1492 031533 004 02 0 00 037667 ERROR AC,RAN ;SHOULD REMAIN UNCHANGED
1493 031534 430 02 0 00 037667 XOR AC,RAN ;ANY NUMBER XORED
1494 031535 312 02 0 00 037563 CAME AC,[0] ;WITH ITSELF SHOULD
1495 031536 004 02 0 00 037563 ERROR AC,[0] ;EQUAL 0
1496 031537 430 02 0 00 037565 XOR AC,[-1] ;SET AC TO ALL ONES
1497 031540 430 02 0 00 037667 XOR AC,RAN ;AC SHOULD CONTAIN COMP OF RAN
1498 031541 430 02 0 00 037565 XOR AC,[-1] ;RECOMPLEMENT AC TO ORIG
1499 031542 312 02 0 00 037667 CAME AC,RAN ;CHECK FOR RANDOM
1500 031543 004 02 0 00 037667 ERROR AC,RAN ;XOR FAILED
1501 LOOP .-22,.-21^
1502 031544 367 01 0 00 031522 SOJG AC-1,.-22 ;ITERATION COUNTER
1503 031545 200 02 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1504 031546 321 01 0 00 031525 JUMPL AC-1,.-21 ;LOOP ON ERROR SWITCH ^
1505 000003 AC=AC+1
1506
1507 SETUP 200,0^
1508 000004 AC1=<AC+1>&17
1509 000005 AC2=<AC+2>&17
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 10-2
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0049
1510 000006 AC3=<AC+3>&17
1511 000007 AC4=<AC+4>&17
1512 000010 AC5=<AC+5>&17
1513 000001 RAN1=<AC-2>&17
1514 031547 201 02 0 00 031547 MOVEI AC-1,.
1515 031550 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1516 031551 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1517 031552 202 02 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1518 031553 201 02 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
1519 031554 240 02 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1520 031555 240 02 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1521 RANDOM^
1522 031556 200 03 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1523 031557 270 03 0 00 037562 ADD AC,[142536475076]
1524 031560 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1525 031561 447 03 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
1526 031562 200 03 0 00 037563 MOVE AC,[0] ;CLEAR THE AC
1527 031563 430 03 0 00 037667 XOR AC,RAN ;0 EXCLUSIVE ORED WITH
1528 031564 312 03 0 00 037667 CAME AC,RAN ;RANDOM SHOULD = RANDOM
1529 031565 004 03 0 00 037667 ERROR AC,RAN ;XOR FAILED
1530 031566 430 03 0 00 037563 XOR AC,[0] ;ANY NUMBER XORED
1531 031567 312 03 0 00 037667 CAME AC,RAN ;WITH THE NUMBER 0
1532 031570 004 03 0 00 037667 ERROR AC,RAN ;SHOULD REMAIN UNCHANGED
1533 031571 430 03 0 00 037667 XOR AC,RAN ;ANY NUMBER XORED
1534 031572 312 03 0 00 037563 CAME AC,[0] ;WITH ITSELF SHOULD
1535 031573 004 03 0 00 037563 ERROR AC,[0] ;EQUAL 0
1536 031574 430 03 0 00 037565 XOR AC,[-1] ;SET AC TO ALL ONES
1537 031575 430 03 0 00 037667 XOR AC,RAN ;AC SHOULD CONTAIN COMP OF RAN
1538 031576 430 03 0 00 037565 XOR AC,[-1] ;RECOMPLEMENT AC TO ORIG
1539 031577 312 03 0 00 037667 CAME AC,RAN ;CHECK FOR RANDOM
1540 031600 004 03 0 00 037667 ERROR AC,RAN ;XOR FAILED
1541 LOOP .-22,.-21^
1542 031601 367 02 0 00 031557 SOJG AC-1,.-22 ;ITERATION COUNTER
1543 031602 200 03 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1544 031603 321 02 0 00 031562 JUMPL AC-1,.-21 ;LOOP ON ERROR SWITCH ^
1545 000004 AC=AC+1
1546
1547
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 11
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0050
1548
1549 ;TEST SETZI AND IOR. SETZI ABILITY TO CLEAR,IOR RAN TO 0,
1550 ;RANDOM TO RANDOM,RANDOM TO COMP RANDOM,0 TO RANDOM
1551 ;ERROR IN THE FORM (PC,AC,C(AC),CORRECT)
1552
1553 000005 AC=5
1554 031604 BOLZI: SETUP 100,0^
1555 000006 AC1=<AC+1>&17
1556 000007 AC2=<AC+2>&17
1557 000010 AC3=<AC+3>&17
1558 000011 AC4=<AC+4>&17
1559 000012 AC5=<AC+5>&17
1560 000003 RAN1=<AC-2>&17
1561 031604 201 04 0 00 031604 MOVEI AC-1,.
1562 031605 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1563 031606 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1564 031607 202 04 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1565 031610 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1566 031611 240 04 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1567 031612 240 04 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1568 RANDOM^
1569 031613 200 05 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1570 031614 270 05 0 00 037562 ADD AC,[142536475076]
1571 031615 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1572 031616 447 05 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
1573 BOLZI1: REPEAT 2,
1574 < MOVE AC,RAN# ;LOAD THE AC THEN
1575 SETZI AC,(AC) ;TRY TO CLEAR IT,INDEX REDUNDANT
1576 CAME AC,[0] ;IF NOT 0
1577 ERROR AC,[0] ;SETZI FAILED
1578 IOR AC,RAN ;INCLUSIVE OR OF A
1579 CAME AC,RAN ;NUMBER TO 0 SHOULD PRODUCE
1580 ERROR AC,RAN ;THE NUMBER
1581 IOR AC,RAN ;IOR SAME NUMBERS
1582 CAME AC,RAN ;SHOULD HAVE NO EFFECT
1583 ERROR AC,RAN ;ON AC.IOR FAILED
1584 IOR AC,[0] ;IOR OF NO BITS SHOULD DO NOTHING
1585 CAME AC,RAN
1586 ERROR AC,RAN ;IOR FAILED
1587 SETCA AC,0
1588 IOR AC,RAN ;INCLUSIVE OR OF COMP NUMBERS
1589 CAME AC,[-1] ;SHOULD SET ALL BITS
1590 ERROR AC,[-1] ;IOR FAILED
1591 IOR AC,[-1] ;ALL BITS TO ALL BITS
1592 CAME AC,[-1] ;PRODUCE ALL BITS
1593 ERROR AC,[-1]
1594 AC=<AC+1>&17
1595 >
1596 031617 200 05 0 00 037667 MOVE AC,RAN# ;LOAD THE AC THEN
1597 031620 401 05 0 05 000000 SETZI AC,(AC) ;TRY TO CLEAR IT,INDEX REDUNDANT
1598 031621 312 05 0 00 037563 CAME AC,[0] ;IF NOT 0
1599 031622 004 05 0 00 037563 ERROR AC,[0] ;SETZI FAILED
1600 031623 434 05 0 00 037667 IOR AC,RAN ;INCLUSIVE OR OF A
1601 031624 312 05 0 00 037667 CAME AC,RAN ;NUMBER TO 0 SHOULD PRODUCE
1602 031625 004 05 0 00 037667 ERROR AC,RAN ;THE NUMBER
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 11-1
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0051
1603 031626 434 05 0 00 037667 IOR AC,RAN ;IOR SAME NUMBERS
1604 031627 312 05 0 00 037667 CAME AC,RAN ;SHOULD HAVE NO EFFECT
1605 031630 004 05 0 00 037667 ERROR AC,RAN ;ON AC.IOR FAILED
1606 031631 434 05 0 00 037563 IOR AC,[0] ;IOR OF NO BITS SHOULD DO NOTHING
1607 031632 312 05 0 00 037667 CAME AC,RAN
1608 031633 004 05 0 00 037667 ERROR AC,RAN ;IOR FAILED
1609 031634 450 05 0 00 000000 SETCA AC,0
1610 031635 434 05 0 00 037667 IOR AC,RAN ;INCLUSIVE OR OF COMP NUMBERS
1611 031636 312 05 0 00 037565 CAME AC,[-1] ;SHOULD SET ALL BITS
1612 031637 004 05 0 00 037565 ERROR AC,[-1] ;IOR FAILED
1613 031640 434 05 0 00 037565 IOR AC,[-1] ;ALL BITS TO ALL BITS
1614 031641 312 05 0 00 037565 CAME AC,[-1] ;PRODUCE ALL BITS
1615 031642 004 05 0 00 037565 ERROR AC,[-1]
1616 000006 AC=<AC+1>&17
1617
1618 031643 200 06 0 00 037667 MOVE AC,RAN# ;LOAD THE AC THEN
1619 031644 401 06 0 06 000000 SETZI AC,(AC) ;TRY TO CLEAR IT,INDEX REDUNDANT
1620 031645 312 06 0 00 037563 CAME AC,[0] ;IF NOT 0
1621 031646 004 06 0 00 037563 ERROR AC,[0] ;SETZI FAILED
1622 031647 434 06 0 00 037667 IOR AC,RAN ;INCLUSIVE OR OF A
1623 031650 312 06 0 00 037667 CAME AC,RAN ;NUMBER TO 0 SHOULD PRODUCE
1624 031651 004 06 0 00 037667 ERROR AC,RAN ;THE NUMBER
1625 031652 434 06 0 00 037667 IOR AC,RAN ;IOR SAME NUMBERS
1626 031653 312 06 0 00 037667 CAME AC,RAN ;SHOULD HAVE NO EFFECT
1627 031654 004 06 0 00 037667 ERROR AC,RAN ;ON AC.IOR FAILED
1628 031655 434 06 0 00 037563 IOR AC,[0] ;IOR OF NO BITS SHOULD DO NOTHING
1629 031656 312 06 0 00 037667 CAME AC,RAN
1630 031657 004 06 0 00 037667 ERROR AC,RAN ;IOR FAILED
1631 031660 450 06 0 00 000000 SETCA AC,0
1632 031661 434 06 0 00 037667 IOR AC,RAN ;INCLUSIVE OR OF COMP NUMBERS
1633 031662 312 06 0 00 037565 CAME AC,[-1] ;SHOULD SET ALL BITS
1634 031663 004 06 0 00 037565 ERROR AC,[-1] ;IOR FAILED
1635 031664 434 06 0 00 037565 IOR AC,[-1] ;ALL BITS TO ALL BITS
1636 031665 312 06 0 00 037565 CAME AC,[-1] ;PRODUCE ALL BITS
1637 031666 004 06 0 00 037565 ERROR AC,[-1]
1638 000007 AC=<AC+1>&17
1639
1640 000005 AC=5
1641 LOOP BOLZI1-4,BOLZI1^
1642 031667 367 04 0 00 031613 SOJG AC-1,BOLZI1-4 ;ITERATION COUNTER
1643 031670 200 05 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1644 031671 321 04 0 00 031617 JUMPL AC-1,BOLZI1 ;LOOP ON ERROR SWITCH ^
1645
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 12
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0052
1646 ;TEST AND FOR 0 TO 0,1 TO 1,0 TO 1,1 TO 0
1647 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
1648
1649 000010 AC=10
1650 031672 BOLA: SETUP 400,0^
1651 000011 AC1=<AC+1>&17
1652 000012 AC2=<AC+2>&17
1653 000013 AC3=<AC+3>&17
1654 000014 AC4=<AC+4>&17
1655 000015 AC5=<AC+5>&17
1656 000006 RAN1=<AC-2>&17
1657 031672 201 07 0 00 031672 MOVEI AC-1,.
1658 031673 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1659 031674 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1660 031675 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1661 031676 201 07 0 00 000400 MOVEI AC-1,400 ;ROUTINE WEIGHTING
1662 031677 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1663 031700 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1664 RANDOM^
1665 031701 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1666 031702 270 10 0 00 037562 ADD AC,[142536475076]
1667 031703 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1668 031704 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
1669 031705 404 10 0 00 037667 BOLA1: AND AC,RAN ;NUMBER AND NUMBeR
1670 031706 312 10 0 00 037667 CAME AC,RAN ;SHOULD EQUAL NUMBER
1671 031707 004 10 0 00 037667 ERROR AC,RAN ;IF NOT, "AND" FAILED.
1672 031710 404 10 0 00 037565 AND AC,[-1] ;"AND" OF ALL BITS WITH
1673 031711 312 10 0 00 037667 CAME AC,RAN ;ANY NUMBER SHOULD
1674 031712 004 10 0 00 037667 ERROR AC,RAN ;LEAVE THE NUMBER UNCHANGED
1675 031713 450 10 0 00 000000 SETCA AC,
1676 031714 404 10 0 00 037667 AND AC,RAN ;"AND" OF A NUMBER WITH ITS
1677 031715 312 10 0 00 037563 CAME AC,[0] ;COMPLEMENT SHOULD
1678 031716 004 10 0 00 037563 ERROR AC,[0] ;PRODUCE 0
1679 LOOP BOLA1-4,BOLA1^
1680 031717 367 07 0 00 031701 SOJG AC-1,BOLA1-4 ;ITERATION COUNTER
1681 031720 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1682 031721 321 07 0 00 031705 JUMPL AC-1,BOLA1 ;LOOP ON ERROR SWITCH ^
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 13
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0053
1683
1684 ;TEST ORCA AND SETO. 1 TO 0,1 TO 1, 0 TO 0, 1 TO 0,0 TO 1
1685 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
1686 ;ONE AC IS USED FOR TESTING
1687
1688 000012 AC=12
1689 031722 BOLOS: SETUP 300,0^
1690 000013 AC1=<AC+1>&17
1691 000014 AC2=<AC+2>&17
1692 000015 AC3=<AC+3>&17
1693 000016 AC4=<AC+4>&17
1694 000017 AC5=<AC+5>&17
1695 000010 RAN1=<AC-2>&17
1696 031722 201 11 0 00 031722 MOVEI AC-1,.
1697 031723 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1698 031724 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1699 031725 202 11 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1700 031726 201 11 0 00 000300 MOVEI AC-1,300 ;ROUTINE WEIGHTING
1701 031727 240 11 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1702 031730 240 11 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1703 RANDOM^
1704 031731 200 12 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1705 031732 270 12 0 00 037562 ADD AC,[142536475076]
1706 031733 241 12 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1707 031734 447 12 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
1708 031735 474 12 0 00 031735 BOLOS1: SETO AC,. ;WILL CHANGE THIS INST IF FETCH/STORE C(E).
1709 031736 312 12 0 00 037565 CAME AC,[-1] ;CHECK FOR ALL BITS SET
1710 031737 004 12 0 00 037565 ERROR AC,[-1] ;SETO FAILED
1711 031740 454 12 0 00 037667 ORCA AC,RAN ;-1 ORED TO RANDOM
1712 031741 312 12 0 00 037667 CAME AC,RAN ;SHOULD PRODUCE RANDOM
1713 031742 004 12 0 00 037667 ERROR AC,RAN ;IF AC COMP PROBELY
1714 031743 454 12 0 00 037667 ORCA AC,RAN ;RANDOM TO RANDOM SHOULD
1715 031744 312 12 0 00 037565 CAME AC,[-1] ;PRODUCE -1
1716 031745 004 12 0 00 037565 ERROR AC,[-1] ;IF AC COMPLEMENTED PROPERLY
1717 031746 454 12 0 00 037563 ORCA AC,[0] ;WITH NO BITS EFFECT IC COMP AC
1718 031747 454 12 0 00 037667 ORCA AC,RAN
1719 031750 312 12 0 00 037565 CAME AC,[-1] ;NO BITS COMPLEMENTS TO PRODUCE
1720 031751 004 12 0 00 037565 ERROR AC,[-1] ;ALL ONES
1721 LOOP BOLOS1-4,BOLOS1^
1722 031752 367 11 0 00 031731 SOJG AC-1,BOLOS1-4 ;ITERATION COUNTER
1723 031753 200 12 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1724 031754 321 11 0 00 031735 JUMPL AC-1,BOLOS1 ;LOOP ON ERROR SWITCH ^
1725
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 14
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0054
1726
1727 ;TEST ANDCA.1 TO 1,0 TO 0, 0 TO 1,0 TO 0,1 TO 1,1 TO 0
1728 ;ERRORS ARE IN THE FORM(PC,AC,C(AC),CORRECT
1729 ;ONE AC IS USED
1730
1731 000013 AC=13
1732 031755 BOLAC: SETUP 200,1^
1733 000014 AC1=<AC+1>&17
1734 000015 AC2=<AC+2>&17
1735 000016 AC3=<AC+3>&17
1736 000017 AC4=<AC+4>&17
1737 000000 AC5=<AC+5>&17
1738 000011 RAN1=<AC-2>&17
1739 031755 201 12 0 00 031755 MOVEI AC-1,.
1740 031756 202 12 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1741 031757 201 12 0 00 000012 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1742 031760 202 12 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1743 031761 201 12 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
1744 031762 240 12 1 00 030672 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
1745 031763 240 12 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1746 RANDOM^
1747 031764 200 13 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1748 031765 270 13 0 00 037562 ADD AC,[142536475076]
1749 031766 241 13 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1750 031767 447 13 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
1751 031770 410 13 0 00 037667 BOLAC1: ANDCA AC,RAN ;ANDCA OF LIKE NUMBERS
1752 031771 312 13 0 00 037563 CAME AC,[0] ;SHOULD PRODUCE 0
1753 031772 004 13 0 00 037563 ERROR AC,[0] ;ANDCA FAILED
1754 031773 410 13 0 00 037667 ANDCA AC,RAN
1755 031774 312 13 0 00 037667 CAME AC,RAN ;ANDCA OF ZERO AND NUMBER
1756 031775 004 13 0 00 037667 ERROR AC,RAN ;SHOULD PRODUCE NUMBER
1757 031776 474 13 0 00 031776 SETO AC,. ;SET ALL BITS
1758 031777 410 13 0 00 037667 ANDCA AC,RAN
1759 032000 312 13 0 00 037563 CAME AC,[0] ;ANDCA OF ALL BITS WITH NUMBER
1760 032001 004 13 0 00 037563 ERROR AC,[0] ;SHOULD PRODUCE 0
1761 LOOP BOLAC1-4,BOLAC1^
1762 032002 367 12 0 00 031764 SOJG AC-1,BOLAC1-4 ;ITERATION COUNTER
1763 032003 200 13 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1764 032004 321 12 0 00 031770 JUMPL AC-1,BOLAC1 ;LOOP ON ERROR SWITCH ^
1765
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 15
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0055
1766
1767 ;TEST EQV,1 TO 1,0 TO 0,1 TO 0,0 TO 1. EQV =(SET ALL LIKE BITS)
1768 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
1769
1770 000014 AC=14
1771 032005 BOLEQ: SETUP 200,2^
1772 000015 AC1=<AC+1>&17
1773 000016 AC2=<AC+2>&17
1774 000017 AC3=<AC+3>&17
1775 000000 AC4=<AC+4>&17
1776 000001 AC5=<AC+5>&17
1777 000012 RAN1=<AC-2>&17
1778 032005 201 13 0 00 032005 MOVEI AC-1,.
1779 032006 202 13 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1780 032007 201 13 0 00 000013 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1781 032010 202 13 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1782 032011 201 13 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
1783 032012 240 13 1 00 030673 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
1784 032013 240 13 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1785 RANDOM^
1786 032014 200 14 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1787 032015 270 14 0 00 037562 ADD AC,[142536475076]
1788 032016 241 14 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1789 032017 447 14 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
1790 032020 444 14 0 00 037667 BOLEQ1: EQV AC,RAN ;WHEN NUMBERS ARE EQUAL
1791 032021 312 14 0 00 037565 CAME AC,[-1] ;EQV SHOULD PRODUCE ALL
1792 032022 004 14 0 00 037565 ERROR AC,[-1] ;BITS SET.EQV FAILED
1793 032023 444 14 0 00 037667 EQV AC,RAN#
1794 032024 312 14 0 00 037667 CAME AC,RAN ;WITH AC SET,EQV SHOULD
1795 032025 004 14 0 00 037667 ERROR AC,RAN ;PRODUCE C(E) IN THE AC
1796 032026 401 14 0 00 777777 SETZI AC,-1
1797 032027 444 14 0 00 037667 EQV AC,RAN ;WHEN AC=0 EQV SHOULD
1798 032030 450 14 0 00 032030 SETCA AC,. ;PRODUCE COMPLEMENT OF
1799 032031 312 14 0 00 037667 CAME AC,RAN ;C(E)
1800 032032 004 14 0 00 037667 ERROR AC,RAN ;EQV FAILED
1801 LOOP BOLEQ1-3,BOLEQ1^
1802 032033 367 13 0 00 032015 SOJG AC-1,BOLEQ1-3 ;ITERATION COUNTER
1803 032034 200 14 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1804 032035 321 13 0 00 032020 JUMPL AC-1,BOLEQ1 ;LOOP ON ERROR SWITCH ^
1805
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 16
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0056
1806
1807 ;TEST SETM. SET THE CONTENTS OF MEMORY TO THE AC
1808 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
1809
1810 000010 AC=10
1811 032036 BOLSM: SETUP 100,0^
1812 000011 AC1=<AC+1>&17
1813 000012 AC2=<AC+2>&17
1814 000013 AC3=<AC+3>&17
1815 000014 AC4=<AC+4>&17
1816 000015 AC5=<AC+5>&17
1817 000006 RAN1=<AC-2>&17
1818 032036 201 07 0 00 032036 MOVEI AC-1,.
1819 032037 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1820 032040 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1821 032041 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1822 032042 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1823 032043 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1824 032044 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1825 RANDOM^
1826 032045 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1827 032046 270 10 0 00 037562 ADD AC,[142536475076]
1828 032047 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1829 032050 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
1830 BOLSM1: REPEAT 2,
1831 < SETM AC1,RAN ;THE NET RESULT OF SETM
1832 CAME AC1,AC ;IS THE SAME AS MOVE
1833 ERROR AC1,RAN ;SETM FAILED
1834 AC=<AC+1>&17
1835 AC1=<AC+1>&17
1836 >
1837 032051 414 11 0 00 037667 SETM AC1,RAN ;THE NET RESULT OF SETM
1838 032052 312 11 0 00 000010 CAME AC1,AC ;IS THE SAME AS MOVE
1839 032053 004 11 0 00 037667 ERROR AC1,RAN ;SETM FAILED
1840 000011 AC=<AC+1>&17
1841 000012 AC1=<AC+1>&17
1842
1843 032054 414 12 0 00 037667 SETM AC1,RAN ;THE NET RESULT OF SETM
1844 032055 312 12 0 00 000011 CAME AC1,AC ;IS THE SAME AS MOVE
1845 032056 004 12 0 00 037667 ERROR AC1,RAN ;SETM FAILED
1846 000012 AC=<AC+1>&17
1847 000013 AC1=<AC+1>&17
1848
1849 000010 AC=10
1850 LOOP BOLSM1-4,BOLSM1^
1851 032057 367 07 0 00 032045 SOJG AC-1,BOLSM1-4 ;ITERATION COUNTER
1852 032060 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1853 032061 321 07 0 00 032051 JUMPL AC-1,BOLSM1 ;LOOP ON ERROR SWITCH ^
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 17
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0057
1854
1855 ;TEST SETCM. (MOVE THE COMPLEMENT OF MEMORY TO AC)
1856 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
1857
1858 000014 AC=14
1859 032062 BOLCM: SETUP 100,0^
1860 000015 AC1=<AC+1>&17
1861 000016 AC2=<AC+2>&17
1862 000017 AC3=<AC+3>&17
1863 000000 AC4=<AC+4>&17
1864 000001 AC5=<AC+5>&17
1865 000012 RAN1=<AC-2>&17
1866 032062 201 13 0 00 032062 MOVEI AC-1,.
1867 032063 202 13 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1868 032064 201 13 0 00 000013 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1869 032065 202 13 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1870 032066 201 13 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1871 032067 240 13 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1872 032070 240 13 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1873 RANDOM^
1874 032071 200 14 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1875 032072 270 14 0 00 037562 ADD AC,[142536475076]
1876 032073 241 14 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1877 032074 447 14 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
1878 032075 460 15 0 00 037667 BOLCM1: SETCM AC1,RAN ;COMP OF RANDOM TO AC
1879 032076 460 16 0 00 000015 SETCM AC2,AC1 ;RECOMP TO AC2
1880 032077 312 16 0 00 037667 CAME AC2,RAN
1881 032100 004 16 0 00 037667 ERROR AC2,RAN ;SETCM 1 OR 2 FAILED
1882 LOOP BOLCM1-3,BOLCM1^
1883 032101 367 13 0 00 032072 SOJG AC-1,BOLCM1-3 ;ITERATION COUNTER
1884 032102 200 14 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1885 032103 321 13 0 00 032075 JUMPL AC-1,BOLCM1 ;LOOP ON ERROR SWITCH ^
1886
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 18
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0058
1887
1888 ;TEST ORCM. (INCLUSIVE OR THE CONTENTS OF COMPLEMENTED MEMORY
1889 ;TO THE CONTENTS OF AC.) ERRORS ARE IN THE FORM (PC,AC,
1890 ;C(AC),CORRECT
1891
1892 000005 AC=5
1893 032104 BOLOC: SETUP 140,0^
1894 000006 AC1=<AC+1>&17
1895 000007 AC2=<AC+2>&17
1896 000010 AC3=<AC+3>&17
1897 000011 AC4=<AC+4>&17
1898 000012 AC5=<AC+5>&17
1899 000003 RAN1=<AC-2>&17
1900 032104 201 04 0 00 032104 MOVEI AC-1,.
1901 032105 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1902 032106 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1903 032107 202 04 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1904 032110 201 04 0 00 000140 MOVEI AC-1,140 ;ROUTINE WEIGHTING
1905 032111 240 04 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1906 032112 240 04 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1907 RANDOM^
1908 032113 200 05 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1909 032114 270 05 0 00 037562 ADD AC,[142536475076]
1910 032115 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1911 032116 447 05 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
1912 032117 464 05 0 00 037667 BOLOC1: ORCM AC,RAN ;LIKE NUMBERS SHOULD PRODUCE
1913 032120 312 05 0 00 037565 CAME AC,[-1] ;ALL BITS SET
1914 032121 004 05 0 00 037565 ERROR AC,[-1]
1915 032122 464 05 0 00 037667 ORCM AC,RAN ;ANY NUMBER ORED WITH ALL
1916 032123 312 05 0 00 037565 CAME AC,[-1] ;ONES SHOULD PRODUCE
1917 032124 004 05 0 00 037565 ERROR AC,[-1] ;ALL ONES
1918 032125 401 05 0 00 777777 SETZI AC,-1
1919 032126 464 05 0 00 037667 ORCM AC,RAN ;THE RANDOM NUMBER IS
1920 032127 450 05 0 00 032127 SETCA AC,. ;ORED TO 0. THIS SHOULD
1921 032130 312 05 0 00 037667 CAME AC,RAN ;PRODUCE THE COMPLEMENT
1922 032131 004 05 0 00 037667 ERROR AC,RAN ;OF RANDOM
1923 032132 464 05 0 00 037565 ORCM AC,[-1]
1924 032133 312 05 0 00 037667 CAME AC,RAN ;ORING -1 SHOULD LEAVE
1925 032134 004 05 0 00 037667 ERROR AC,RAN ;AC UNCHANGED
1926 LOOP BOLOC1-3,BOLOC1^
1927 032135 367 04 0 00 032114 SOJG AC-1,BOLOC1-3 ;ITERATION COUNTER
1928 032136 200 05 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1929 032137 321 04 0 00 032117 JUMPL AC-1,BOLOC1 ;LOOP ON ERROR SWITCH ^
1930
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 19
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0059
1931
1932 ;TEST ANDCM (AND WITH THE COMP OF MEMORY)
1933 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
1934
1935 000010 AC=10
1936 032140 BOLAX: SETUP 140,0^
1937 000011 AC1=<AC+1>&17
1938 000012 AC2=<AC+2>&17
1939 000013 AC3=<AC+3>&17
1940 000014 AC4=<AC+4>&17
1941 000015 AC5=<AC+5>&17
1942 000006 RAN1=<AC-2>&17
1943 032140 201 07 0 00 032140 MOVEI AC-1,.
1944 032141 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1945 032142 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1946 032143 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1947 032144 201 07 0 00 000140 MOVEI AC-1,140 ;ROUTINE WEIGHTING
1948 032145 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1949 032146 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1950 RANDOM^
1951 032147 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1952 032150 270 10 0 00 037562 ADD AC,[142536475076]
1953 032151 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1954 032152 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
1955 032153 420 10 0 00 037667 BOLAX1: ANDCM AC,RAN ;LIKE NUMBERS SHOULD
1956 032154 312 10 0 00 037563 CAME AC,[0] ;PRODUCE 0
1957 032155 004 10 0 00 037563 ERROR AC,[0] ;ANDCM FAILED
1958 032156 420 10 0 00 037667 ANDCM AC,RAN ;ANYTHING ANDED TO
1959 032157 312 10 0 00 037563 CAME AC,[0] ;ZERO SHOULD = 0
1960 032160 004 10 0 00 037563 ERROR AC,[0]
1961 032161 474 10 0 00 000000 SETO AC,
1962 032162 420 10 0 00 037667 ANDCM AC,RAN ;AC SHOULD - COMP OF MEMORY
1963 032163 420 10 0 00 037563 ANDCM AC,[0] ;AC SHOULD REMAIN UNCHANGED
1964 032164 430 10 0 00 037565 XOR AC,[-1] ;COMP AC
1965 032165 312 10 0 00 037667 CAME AC,RAN ;AFTER COMP SHOULD EQUAL
1966 032166 004 10 0 00 037667 ERROR AC,RAN ;RANDOM. ANDCM FAILED
1967 LOOP BOLAX1-3,BOLAX1^
1968 032167 367 07 0 00 032150 SOJG AC-1,BOLAX1-3 ;ITERATION COUNTER
1969 032170 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1970 032171 321 07 0 00 032153 JUMPL AC-1,BOLAX1 ;LOOP ON ERROR SWITCH ^
1971
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 20
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0060
1972
1973 ;TEST ORCB (INCLUSIVE OR THE COMPLEMENT OF AC AND C(E))
1974 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
1975
1976 000001 AC=1
1977 032172 BOLOB: SETUP 140,0^
1978 000002 AC1=<AC+1>&17
1979 000003 AC2=<AC+2>&17
1980 000004 AC3=<AC+3>&17
1981 000005 AC4=<AC+4>&17
1982 000006 AC5=<AC+5>&17
1983 000017 RAN1=<AC-2>&17
1984 032172 201 00 0 00 032172 MOVEI AC-1,.
1985 032173 202 00 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1986 032174 201 00 0 00 000000 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1987 032175 202 00 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1988 032176 201 00 0 00 000140 MOVEI AC-1,140 ;ROUTINE WEIGHTING
1989 032177 240 00 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1990 032200 240 00 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1991 RANDOM^
1992 032201 200 01 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1993 032202 270 01 0 00 037562 ADD AC,[142536475076]
1994 032203 241 01 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1995 032204 447 01 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
1996 032205 470 01 0 00 037667 BOLOB1: ORCB AC,RAN ;PRODUCE COMP OF RAN
1997 032206 470 01 0 00 037565 ORCB AC,[-1] ;COMP AC
1998 032207 312 01 0 00 037667 CAME AC,RAN ;CHECK ORCB
1999 032210 004 01 0 00 037667 ERROR AC,RAN
2000 032211 470 01 0 00 037565 ORCB AC,[-1] ;COMP AC
2001 032212 470 01 0 00 037667 ORCB AC,RAN ;ANY TWO COMPLEMENTED NUMBERS
2002 032213 312 01 0 00 037565 CAME AC,[-1] ;SHOULD PRODUCE ALL ONES
2003 032214 004 01 0 00 037565 ERROR AC,[-1]
2004 032215 470 01 0 00 037563 ORCB AC,[0] ;AC COMPLEMENTS TO 0
2005 032216 312 01 0 00 037565 CAME AC,[-1]
2006 032217 004 01 0 00 037565 ERROR AC,[-1] ;ORCB FAILED
2007 LOOP BOLOB1-4,BOLOB1^
2008 032220 367 00 0 00 032201 SOJG AC-1,BOLOB1-4 ;ITERATION COUNTER
2009 032221 200 01 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2010 032222 321 00 0 00 032205 JUMPL AC-1,BOLOB1 ;LOOP ON ERROR SWITCH ^
2011
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 21
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0061
2012
2013 ;TEST ANDCB (AND WITH BOTH OPERANDS COMPLEMENTED)
2014 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2015
2016 000002 AC=2
2017 032223 BOLAB: SETUP 140,0^
2018 000003 AC1=<AC+1>&17
2019 000004 AC2=<AC+2>&17
2020 000005 AC3=<AC+3>&17
2021 000006 AC4=<AC+4>&17
2022 000007 AC5=<AC+5>&17
2023 000000 RAN1=<AC-2>&17
2024 032223 201 01 0 00 032223 MOVEI AC-1,.
2025 032224 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2026 032225 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2027 032226 202 01 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2028 032227 201 01 0 00 000140 MOVEI AC-1,140 ;ROUTINE WEIGHTING
2029 032230 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2030 032231 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2031 RANDOM^
2032 032232 200 02 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2033 032233 270 02 0 00 037562 ADD AC,[142536475076]
2034 032234 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2035 032235 447 02 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
2036 032236 440 02 0 00 037667 BOLAB1: ANDCB AC,RAN ;PRODUCE COMP OF RAN
2037 032237 440 02 0 00 037563 ANDCB AC,[0] ;COMP AC
2038 032240 312 02 0 00 037667 CAME AC,RAN ;CHECK FOR ORIGIONAL NUMBER
2039 032241 004 02 0 00 037667 ERROR AC,RAN ;ANDCB FAILED
2040 032242 440 02 0 00 037563 ANDCB AC,[0] ;COMPLEMENT AC
2041 032243 440 02 0 00 037563 ANDCB AC,[0] ;RECOMPLEMENT AC
2042 032244 312 02 0 00 037667 CAME AC,RAN ;SHOULD PRODUCE ORIGIONAL
2043 032245 004 02 0 00 037667 ERROR AC,RAN ;ANDCB FAILED
2044 032246 440 02 0 00 037565 ANDCB AC,[-1] ;RESULT SHOULD BE 0 IF
2045 032247 312 02 0 00 037563 CAME AC,[0] ;CONTENTS OF E
2046 032250 004 02 0 00 037563 ERROR AC,[0] ;CONTAINS NO BITS AFTER COMP
2047 032251 440 02 0 00 037667 ANDCB AC,RAN ;AC SHOULD EQUAL COMP OF RAN
2048 032252 440 02 0 00 037563 ANDCB AC,[0] ;COMP AC
2049 032253 312 02 0 00 037667 CAME AC,RAN ;THE AND TO 0
2050 032254 004 02 0 00 037667 ERROR AC,RAN ;FAILED
2051 LOOP BOLAB1-3,BOLAB1^
2052 032255 367 01 0 00 032233 SOJG AC-1,BOLAB1-3 ;ITERATION COUNTER
2053 032256 200 02 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2054 032257 321 01 0 00 032236 JUMPL AC-1,BOLAB1 ;LOOP ON ERROR SWITCH ^
2055
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 22
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0062
2056
2057 ;TEST SETA (EFFECTIVELY A NO OPERATION IN THIS MODE)
2058 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2059
2060 000003 AC=3
2061 032260 BOLSA: SETUP 100,0^
2062 000004 AC1=<AC+1>&17
2063 000005 AC2=<AC+2>&17
2064 000006 AC3=<AC+3>&17
2065 000007 AC4=<AC+4>&17
2066 000010 AC5=<AC+5>&17
2067 000001 RAN1=<AC-2>&17
2068 032260 201 02 0 00 032260 MOVEI AC-1,.
2069 032261 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2070 032262 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2071 032263 202 02 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2072 032264 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2073 032265 240 02 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2074 032266 240 02 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2075 RANDOM^
2076 032267 200 03 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2077 032270 270 03 0 00 037562 ADD AC,[142536475076]
2078 032271 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2079 032272 447 03 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
2080 ;DO 7 SETA'S.
2081 BOLSA1: REPEAT 7,<
2082 SETA AC,.>
2083
2084 032273 424 03 0 00 032273 SETA AC,.
2085
2086 032274 424 03 0 00 032274 SETA AC,.
2087
2088 032275 424 03 0 00 032275 SETA AC,.
2089
2090 032276 424 03 0 00 032276 SETA AC,.
2091
2092 032277 424 03 0 00 032277 SETA AC,.
2093
2094 032300 424 03 0 00 032300 SETA AC,.
2095
2096 032301 424 03 0 00 032301 SETA AC,.
2097 032302 312 03 0 00 037667 CAME AC,RAN ;C(AC) SHOULD = ORIG. C(AC)
2098 032303 004 03 0 00 037667 ERROR AC,RAN
2099 LOOP BOLSA1-3,BOLSA1^
2100 032304 367 02 0 00 032270 SOJG AC-1,BOLSA1-3 ;ITERATION COUNTER
2101 032305 200 03 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2102 032306 321 02 0 00 032273 JUMPL AC-1,BOLSA1 ;LOOP ON ERROR SWITCH ^
2103
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 23
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0063
2104
2105 ;TEST IORM, WHERE E IS AN AC. THE INST IS TESTED
2106 ;FOR NOT STORING IN AC AS WELL AS STORING PROPERLY
2107 ;IN E.
2108 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2109
2110 000011 AC=11
2111 032307 BMIOR: SETUP 100,1^
2112 000012 AC1=<AC+1>&17
2113 000013 AC2=<AC+2>&17
2114 000014 AC3=<AC+3>&17
2115 000015 AC4=<AC+4>&17
2116 000016 AC5=<AC+5>&17
2117 000007 RAN1=<AC-2>&17
2118 032307 201 10 0 00 032307 MOVEI AC-1,.
2119 032310 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2120 032311 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2121 032312 202 10 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2122 032313 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2123 032314 240 10 1 00 030672 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
2124 032315 240 10 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2125 032316 BMIOR1: RANDOM^
2126 032316 200 11 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2127 032317 270 11 0 00 037562 ADD AC,[142536475076]
2128 032320 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2129 032321 447 11 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
2130 032322 204 12 0 00 000011 BMIOR2: MOVS AC1,AC ;AC=C(E) ORIG
2131 032323 316 11 0 00 000012 CAMN AC,AC1 ;HALVES SAME?
2132 032324 254 00 0 00 032316 JRST BMIOR1 ;YES. REJECT.
2133 032325 460 00 0 00 000011 SETCM AC ;SIM AN
2134 032326 404 00 0 00 000012 AND AC1 ;IOR
2135 032327 430 00 0 00 000011 XOR AC ;INST
2136 032330 436 11 0 00 000012 IORM AC,AC1 ;RESULT TO AC1
2137 032331 316 11 0 00 000012 CAMN AC,AC1 ;BOTH SAME?
2138 032332 004 11 0 00 000012 ERROR AC,AC1 ;YES. STORED IN AC.
2139 032333 312 12 0 00 000000 CAME AC1,0 ;C(E) = SIM. ANS?
2140 032334 004 11 0 00 000000 ERROR AC,0 ;NO. IORM FAILED.
2141 LOOP BMIOR1,BMIOR2^
2142 032335 367 10 0 00 032316 SOJG AC-1,BMIOR1 ;ITERATION COUNTER
2143 032336 200 11 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2144 032337 321 10 0 00 032322 JUMPL AC-1,BMIOR2 ;LOOP ON ERROR SWITCH ^
2145
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 24
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0064
2146
2147 ;TEST ORCAM, WHERE E IS AN AC. THE INSTRUCTION IS TESTED
2148 ;FOR NOT STORING IN AC AS WELL AS STORING PROPERLY IN C(E).
2149 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2150
2151 000012 AC=12
2152 032340 BMICA: SETUP 100,1^
2153 000013 AC1=<AC+1>&17
2154 000014 AC2=<AC+2>&17
2155 000015 AC3=<AC+3>&17
2156 000016 AC4=<AC+4>&17
2157 000017 AC5=<AC+5>&17
2158 000010 RAN1=<AC-2>&17
2159 032340 201 11 0 00 032340 MOVEI AC-1,.
2160 032341 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2161 032342 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2162 032343 202 11 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2163 032344 201 11 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2164 032345 240 11 1 00 030672 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
2165 032346 240 11 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2166 032347 BMICA1: RANDOM^
2167 032347 200 12 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2168 032350 270 12 0 00 037562 ADD AC,[142536475076]
2169 032351 241 12 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2170 032352 447 12 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
2171 032353 204 13 0 00 000012 BMICA2: MOVS AC1,AC ;SECOND RANDOM NUMBER
2172 032354 460 14 0 00 000013 SETCM AC2,AC1 ;MOVE COMPLEMENT OF NUMBER
2173 032355 460 00 0 00 000012 SETCM AC ;SIMULATE
2174 032356 404 00 0 00 000014 AND AC2 ;THE INSTRUCTION
2175 032357 430 00 0 00 000012 XOR AC ;IN AC0.
2176 032360 456 13 0 00 000012 ORCAM AC1,AC ;RESULT TO C(E)
2177 032361 316 13 0 00 000012 CAMN AC1,AC ;EQUAL?
2178 032362 004 13 0 00 000012 ERROR AC1,AC ;YES. STORED IN AC.
2179 032363 312 12 0 00 000000 CAME AC,0 ;C(E) = SIM. ANS?
2180 032364 004 12 0 00 000000 ERROR AC,0 ;NO. ORCAM FAILED.
2181 LOOP BMICA1,BMICA2^
2182 032365 367 11 0 00 032347 SOJG AC-1,BMICA1 ;ITERATION COUNTER
2183 032366 200 12 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2184 032367 321 11 0 00 032353 JUMPL AC-1,BMICA2 ;LOOP ON ERROR SWITCH ^
2185
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 25
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0065
2186
2187 ;TEST ORCMM, WHERE E IS AN AC. THE INSTRUCTION
2188 ;IS TESTED FOR NOT STORING IN AC AS WELL AS THE
2189 ;CORRECT ANSWER IN C(E).
2190 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2191
2192 000013 AC=13
2193 032370 BMICM: SETUP 100,0^
2194 000014 AC1=<AC+1>&17
2195 000015 AC2=<AC+2>&17
2196 000016 AC3=<AC+3>&17
2197 000017 AC4=<AC+4>&17
2198 000000 AC5=<AC+5>&17
2199 000011 RAN1=<AC-2>&17
2200 032370 201 12 0 00 032370 MOVEI AC-1,.
2201 032371 202 12 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2202 032372 201 12 0 00 000012 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2203 032373 202 12 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2204 032374 201 12 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2205 032375 240 12 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2206 032376 240 12 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2207 032377 BMICM1: RANDOM^
2208 032377 200 13 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2209 032400 270 13 0 00 037562 ADD AC,[142536475076]
2210 032401 241 13 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2211 032402 447 13 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
2212 032403 204 14 0 00 000013 BMICM2: MOVS AC1,AC ;SECOND RANDOM NUMBER
2213 032404 460 15 0 00 000013 SETCM AC2,AC ;SIMULATE
2214 032405 460 00 0 00 000014 SETCM AC1 ;THE
2215 032406 404 00 0 00 000015 AND AC2 ;INSTRUCTION
2216 032407 430 00 0 00 000014 XOR AC1 ;IN AC0
2217 032410 316 00 0 00 000014 CAMN 0,AC1 ;IS SIMULATED ANS
2218 032411 254 00 0 00 032377 JRST BMICM1 ;= C(AC)?...REJECT.
2219 032412 466 14 0 00 000013 ORCMM AC1,AC ;IF AC1 = AC, STORE INHIBIT
2220 032413 316 14 0 00 000013 CAMN AC1,AC
2221 032414 004 14 0 00 000013 ERROR AC1,AC ;FAILED.
2222 032415 312 13 0 00 000000 CAME AC,0 ;C(E) SHOULD = SIM. ANS.
2223 032416 004 13 0 00 000000 ERROR AC,0 ;ORCMM FAILED.
2224 LOOP BMICM1,BMICM2^
2225 032417 367 12 0 00 032377 SOJG AC-1,BMICM1 ;ITERATION COUNTER
2226 032420 200 13 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2227 032421 321 12 0 00 032403 JUMPL AC-1,BMICM2 ;LOOP ON ERROR SWITCH ^
2228
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 26
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0066
2229
2230 ;TEST ORCBM, WHERE E IS AN AC. THE INSTRUCTION
2231 ;IS TESTED FOR NOT STORING IN AC AS WELL AS THE
2232 ;CORRECT ANSWER IN C(E).
2233 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2234
2235 000014 AC=14
2236 032422 BMICB: SETUP 200,0^
2237 000015 AC1=<AC+1>&17
2238 000016 AC2=<AC+2>&17
2239 000017 AC3=<AC+3>&17
2240 000000 AC4=<AC+4>&17
2241 000001 AC5=<AC+5>&17
2242 000012 RAN1=<AC-2>&17
2243 032422 201 13 0 00 032422 MOVEI AC-1,.
2244 032423 202 13 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2245 032424 201 13 0 00 000013 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2246 032425 202 13 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2247 032426 201 13 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
2248 032427 240 13 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2249 032430 240 13 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2250 032431 BMICB1: RANDOM^
2251 032431 200 14 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2252 032432 270 14 0 00 037562 ADD AC,[142536475076]
2253 032433 241 14 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2254 032434 447 14 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
2255 032435 204 15 0 00 000014 BMICB2: MOVS AC1,AC ;AC1= 0101,0011
2256 032436 460 16 0 00 000014 SETCM AC2,AC ;AC2= 1100,1010
2257 032437 460 00 0 00 000016 SETCM AC2 ;AC0 = 0011,0101
2258 032440 420 00 0 00 000015 ANDCM AC1 ;AC0 = 0010,0100
2259 032441 430 00 0 00 000016 XOR AC2 ;AC0 = 1110,1110
2260 032442 472 15 0 00 000014 ORCBM AC1,AC ;SHOULD PRODUCE SAME LOGIC
2261 032443 316 15 0 00 000014 CAMN AC1,AC ;EQUAL?
2262 032444 004 15 0 00 000014 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2263 032445 312 14 0 00 000000 CAME AC,0 ;C(E) SHOULD = SIM. ANS.
2264 032446 004 14 0 00 000000 ERROR AC,0 ;ORCBM FAILED.
2265 LOOP BMICB1,BMICB2^
2266 032447 367 13 0 00 032431 SOJG AC-1,BMICB1 ;ITERATION COUNTER
2267 032450 200 14 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2268 032451 321 13 0 00 032435 JUMPL AC-1,BMICB2 ;LOOP ON ERROR SWITCH ^
2269
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 27
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0067
2270
2271 ;TEST XORM, WHERE E IS AN AC. THE INSTRUCTION IS
2272 ;TESTED FOR NOT STORING AC AS WELL AS CONTENTS
2273 ;OF E CORRECTNESS.
2274 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2275
2276 000010 AC=10
2277 032452 BMX: SETUP 200,1^
2278 000011 AC1=<AC+1>&17
2279 000012 AC2=<AC+2>&17
2280 000013 AC3=<AC+3>&17
2281 000014 AC4=<AC+4>&17
2282 000015 AC5=<AC+5>&17
2283 000006 RAN1=<AC-2>&17
2284 032452 201 07 0 00 032452 MOVEI AC-1,.
2285 032453 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2286 032454 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2287 032455 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2288 032456 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
2289 032457 240 07 1 00 030672 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
2290 032460 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2291 032461 BMX1: RANDOM^
2292 032461 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2293 032462 270 10 0 00 037562 ADD AC,[142536475076]
2294 032463 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2295 032464 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
2296 032465 322 10 0 00 032461 BMX2: JUMPE AC,BMX1 ;REJECT IF RAN = 0.
2297 032466 204 11 0 00 000010 MOVS AC1,AC ;SECOND RANDOM NUMBER.
2298 032467 460 00 0 00 000010 SETCM AC
2299 032470 410 00 0 00 000011 ANDCA AC1 ;PERFORM
2300 032471 200 12 0 00 000010 MOVE AC2,AC ;A PSEUDO
2301 032472 434 12 0 00 000011 IOR AC2,AC1 ;EXCLUSIVE
2302 032473 410 00 0 00 000012 ANDCA AC2 ;OR INSTRUCTION
2303 032474 432 11 0 00 000010 XORM AC1,AC ;DO THE XOR
2304 032475 316 11 0 00 000010 CAMN AC1,AC ;EQUAL?
2305 032476 004 11 0 00 000010 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2306 032477 312 10 0 00 000000 CAME AC,0 ;C(E) SHOULD = SIM. ANS.
2307 032500 004 10 0 00 000000 ERROR AC,0 ;XORM FAILED.
2308 LOOP BMX1,BMX2^
2309 032501 367 07 0 00 032461 SOJG AC-1,BMX1 ;ITERATION COUNTER
2310 032502 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2311 032503 321 07 0 00 032465 JUMPL AC-1,BMX2 ;LOOP ON ERROR SWITCH ^
2312
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 28
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0068
2313
2314 ;TEST EQVM, WHERE E IS AN AC. THE INSTRUCTION
2315 ;IS TESTED FOR NOT STORING AC AS WELL AS
2316 ;CORRECTNESS OF C(E).
2317 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2318
2319 000010 AC=10
2320 032504 BMEQ: SETUP 100,0^
2321 000011 AC1=<AC+1>&17
2322 000012 AC2=<AC+2>&17
2323 000013 AC3=<AC+3>&17
2324 000014 AC4=<AC+4>&17
2325 000015 AC5=<AC+5>&17
2326 000006 RAN1=<AC-2>&17
2327 032504 201 07 0 00 032504 MOVEI AC-1,.
2328 032505 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2329 032506 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2330 032507 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2331 032510 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2332 032511 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2333 032512 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2334 032513 BMEQ1: RANDOM^
2335 032513 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2336 032514 270 10 0 00 037562 ADD AC,[142536475076]
2337 032515 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2338 032516 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
2339 032517 204 11 0 00 000010 BMEQ2: MOVS AC1,AC ;SECOND RANDOM NUMBER
2340 032520 460 00 0 00 000011 SETCM AC1 ;EQV IS SAME LOGIC
2341 032521 430 00 0 00 000010 XOR AC ;AS XOR WITH COMP AC
2342 032522 446 11 0 00 000010 EQVM AC1,AC ;EQV SETS ALL LIKE BITS
2343 032523 316 11 0 00 000010 CAMN AC1,AC ;EQUAL?
2344 032524 004 11 0 00 000010 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2345 032525 312 10 0 00 000000 CAME AC,0 ;C(E) SHOULD = SIM. ANS.
2346 032526 004 10 0 00 000000 ERROR AC,0 ;EQVM FAILED.
2347 LOOP BMEQ1,BMEQ2^
2348 032527 367 07 0 00 032513 SOJG AC-1,BMEQ1 ;ITERATION COUNTER
2349 032530 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2350 032531 321 07 0 00 032517 JUMPL AC-1,BMEQ2 ;LOOP ON ERROR SWITCH ^
2351
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 29
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0069
2352
2353
2354 ;TEST ANDM, WHERE E IS AN AC. THE INSTRUCTION IS
2355 ;TESTED FOR NOT STORING IN AC AS WELL AS STORING
2356 ;PROPERLY IN C(E).
2357 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2358
2359 000003 AC=3
2360 032532 BMAN: SETUP 100,0^
2361 000004 AC1=<AC+1>&17
2362 000005 AC2=<AC+2>&17
2363 000006 AC3=<AC+3>&17
2364 000007 AC4=<AC+4>&17
2365 000010 AC5=<AC+5>&17
2366 000001 RAN1=<AC-2>&17
2367 032532 201 02 0 00 032532 MOVEI AC-1,.
2368 032533 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2369 032534 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2370 032535 202 02 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2371 032536 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2372 032537 240 02 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2373 032540 240 02 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2374 032541 BMAN1: RANDOM^
2375 032541 200 03 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2376 032542 270 03 0 00 037562 ADD AC,[142536475076]
2377 032543 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2378 032544 447 03 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
2379 032545 204 04 0 00 000003 BMAN2: MOVS AC1,AC ;SECOND RANDOM NUMBER
2380 032546 200 00 0 00 000003 MOVE AC ;SIMULATE
2381 032547 434 00 0 00 000004 IOR AC1 ;AN "AND"
2382 032550 430 00 0 00 000004 XOR AC1 ;INSTRUCTION.
2383 032551 430 00 0 00 000003 XOR AC ;IN AC0
2384 032552 316 04 0 00 000003 CAMN AC1,AC ;REJECT THE NUMBER
2385 032553 254 00 0 00 032541 JRST BMAN1 ;IF EQUAL.
2386 032554 406 04 0 00 000003 ANDM AC1,AC ;THE INSTRUCTION
2387 032555 316 04 0 00 000003 CAMN AC1,AC ;EQUAL?
2388 032556 004 04 0 00 000003 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2389 032557 312 03 0 00 000000 CAME AC,0 ;C(E) SHOULD = SIM. ANS.
2390 032560 004 03 0 00 000000 ERROR AC,0 ;AND FAILED.
2391 LOOP BMAN1,BMAN2^
2392 032561 367 02 0 00 032541 SOJG AC-1,BMAN1 ;ITERATION COUNTER
2393 032562 200 03 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2394 032563 321 02 0 00 032545 JUMPL AC-1,BMAN2 ;LOOP ON ERROR SWITCH ^
2395
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 30
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0070
2396
2397
2398 ;TEST ANDCAM, WHERE E IS AN AC. THE INSTRUCTION IS
2399 ;TESTED FOR NOT STORING IN AN AC AS WELL AS
2400 ;STORING C(E) PROPERLY.
2401 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2402
2403 000004 AC=4
2404 032564 BMACA: SETUP 100,0^
2405 000005 AC1=<AC+1>&17
2406 000006 AC2=<AC+2>&17
2407 000007 AC3=<AC+3>&17
2408 000010 AC4=<AC+4>&17
2409 000011 AC5=<AC+5>&17
2410 000002 RAN1=<AC-2>&17
2411 032564 201 03 0 00 032564 MOVEI AC-1,.
2412 032565 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2413 032566 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2414 032567 202 03 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2415 032570 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2416 032571 240 03 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2417 032572 240 03 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2418 032573 BMACA1: RANDOM^
2419 032573 200 04 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2420 032574 270 04 0 00 037562 ADD AC,[142536475076]
2421 032575 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2422 032576 447 04 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
2423 032577 322 04 0 00 032573 BMACA2: JUMPE AC,BMACA1 ;REJECT IF RAN = 0.
2424 032600 204 05 0 00 000004 MOVS AC1,AC ;SECOND RANDOM NUMBER
2425 032601 414 00 0 00 000004 SETM AC ;SIMULATE
2426 032602 454 00 0 00 000005 ORCA AC1 ;ANDCA
2427 032603 450 00 0 00 000000 SETCA ;LOGIC
2428 032604 412 05 0 00 000004 ANDCAM AC1,AC ;THE INSTRUCTION
2429 032605 316 05 0 00 000004 CAMN AC1,AC ;EQUAL?
2430 032606 004 05 0 00 000004 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2431 032607 312 04 0 00 000000 CAME AC,0 ;C(E) SHOULD = SIM. ANS.
2432 032610 004 04 0 00 000000 ERROR AC,0 ;ANDCA FAILED.
2433 LOOP BMACA1,BMACA2^
2434 032611 367 03 0 00 032573 SOJG AC-1,BMACA1 ;ITERATION COUNTER
2435 032612 200 04 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2436 032613 321 03 0 00 032577 JUMPL AC-1,BMACA2 ;LOOP ON ERROR SWITCH ^
2437
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 31
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0071
2438
2439 ;TEST ANDCMM, WHERE E IS AN AC. THE INSTRUCTION IS
2440 ;TESTED FOR NOT STORING IN AN AC AS WELL AS
2441 ;STORING C(E) PROPERLY.
2442 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2443
2444 000005 AC=5
2445 032614 BMACM: SETUP 100,0^
2446 000006 AC1=<AC+1>&17
2447 000007 AC2=<AC+2>&17
2448 000010 AC3=<AC+3>&17
2449 000011 AC4=<AC+4>&17
2450 000012 AC5=<AC+5>&17
2451 000003 RAN1=<AC-2>&17
2452 032614 201 04 0 00 032614 MOVEI AC-1,.
2453 032615 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2454 032616 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2455 032617 202 04 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2456 032620 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2457 032621 240 04 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2458 032622 240 04 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2459 032623 BMACM1: RANDOM^
2460 032623 200 05 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2461 032624 270 05 0 00 037562 ADD AC,[142536475076]
2462 032625 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2463 032626 447 05 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
2464 032627 322 05 0 00 032623 BMACM2: JUMPE AC,BMACM1 ;REJECT IF RAN = 0.
2465 032630 204 06 0 00 000005 MOVS AC1,AC ;SECOND RANDOM NUMBER
2466 032631 426 06 0 00 000000 SETAM AC1,0 ;AC1 TO AC0.
2467 032632 434 00 0 00 000005 IOR AC ;SIMULATE
2468 032633 430 00 0 00 000005 XOR AC ;THE INSTUCTION
2469 032634 316 00 0 00 000006 CAMN 0,AC1 ;SIM ANS = C(AC)?
2470 032635 254 00 0 00 032623 JRST BMACM1 ;YES. REJECT.
2471 032636 422 06 0 00 000005 ANDCMM AC1,AC ;DO AN ANDCMM INSTRUCTION.
2472 032637 316 06 0 00 000005 CAMN AC1,AC ;EQUAL?
2473 032640 004 06 0 00 000005 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2474 032641 312 05 0 00 000000 CAME AC,0 ;C(E) SHOULD = SIM. ANS.
2475 032642 004 05 0 00 000000 ERROR AC,0 ;ANDCMM FAILED.
2476 LOOP BMACM1,BMACM2^
2477 032643 367 04 0 00 032623 SOJG AC-1,BMACM1 ;ITERATION COUNTER
2478 032644 200 05 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2479 032645 321 04 0 00 032627 JUMPL AC-1,BMACM2 ;LOOP ON ERROR SWITCH ^
2480
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 32
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0072
2481
2482 ;TEST ANDCBM, WHERE E IS AN AC. THE INSTRUCTION
2483 ;IS TESTED FOR NOT STORING IN AC AS WELL AS STORING
2484 ;PROPERLY IN C(E).
2485 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2486
2487 000007 AC=7
2488 032646 BMACB: SETUP 100,0^
2489 000010 AC1=<AC+1>&17
2490 000011 AC2=<AC+2>&17
2491 000012 AC3=<AC+3>&17
2492 000013 AC4=<AC+4>&17
2493 000014 AC5=<AC+5>&17
2494 000005 RAN1=<AC-2>&17
2495 032646 201 06 0 00 032646 MOVEI AC-1,.
2496 032647 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2497 032650 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2498 032651 202 06 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2499 032652 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2500 032653 240 06 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2501 032654 240 06 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2502 032655 BMACB1: RANDOM^
2503 032655 200 07 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2504 032656 270 07 0 00 037562 ADD AC,[142536475076]
2505 032657 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2506 032660 447 07 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
2507 032661 204 10 0 00 000007 BMACB2: MOVS AC1,AC ;SECOND RANDOM NUMBER.
2508 032662 460 00 0 00 000010 SETCM AC1 ;SIMULATE
2509 032663 460 01 0 00 000007 SETCM 1,AC ;AN
2510 032664 404 00 0 00 000001 AND 1 ;ANDCBM INST.
2511 032665 442 10 0 00 000007 ANDCBM AC1,AC ;DO AN ANDCBM.
2512 032666 316 10 0 00 000007 CAMN AC1,AC ;EQUAL?
2513 032667 004 10 0 00 000007 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2514 032670 312 07 0 00 000000 CAME AC,0 ;C(E) SHOULD = SIM. ANS.
2515 032671 004 07 0 00 000000 ERROR AC,0 ;ANDCBM FAILED.
2516 LOOP BMACB1,BMACB2^
2517 032672 367 06 0 00 032655 SOJG AC-1,BMACB1 ;ITERATION COUNTER
2518 032673 200 07 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2519 032674 321 06 0 00 032661 JUMPL AC-1,BMACB2 ;LOOP ON ERROR SWITCH ^
2520
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 33
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0073
2521
2522 ;TEST SETCAM, WHERE E IS AN AC. THE INSTRUCTION
2523 ;IS TESTED FOR NOT STORING IN AC AS WELL AS
2524 ;PROPER C(E).
2525 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2526
2527 000010 AC=10
2528 032675 BMCMM: SETUP 200,0^
2529 000011 AC1=<AC+1>&17
2530 000012 AC2=<AC+2>&17
2531 000013 AC3=<AC+3>&17
2532 000014 AC4=<AC+4>&17
2533 000015 AC5=<AC+5>&17
2534 000006 RAN1=<AC-2>&17
2535 032675 201 07 0 00 032675 MOVEI AC-1,.
2536 032676 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2537 032677 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2538 032700 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2539 032701 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
2540 032702 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2541 032703 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2542 032704 BMCMM1: RANDOM^
2543 032704 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2544 032705 270 10 0 00 037562 ADD AC,[142536475076]
2545 032706 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2546 032707 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
2547 032710 204 11 0 00 000010 BMCMM2: MOVS AC1,AC ;CHECK FOR NO CHANGE
2548 032711 316 11 0 00 000010 CAMN AC1,AC ;IN 8 COMPLEMENTS
2549 032712 254 00 0 00 032704 JRST BMCMM1 ;REJECT IF HALF SAME.
2550
2551 REPEAT 10,<
2552 SETCMM AC1,AC>
2553
2554 032713 462 11 0 00 000010 SETCMM AC1,AC
2555
2556 032714 462 11 0 00 000010 SETCMM AC1,AC
2557
2558 032715 462 11 0 00 000010 SETCMM AC1,AC
2559
2560 032716 462 11 0 00 000010 SETCMM AC1,AC
2561
2562 032717 462 11 0 00 000010 SETCMM AC1,AC
2563
2564 032720 462 11 0 00 000010 SETCMM AC1,AC
2565
2566 032721 462 11 0 00 000010 SETCMM AC1,AC
2567
2568 032722 462 11 0 00 000010 SETCMM AC1,AC
2569 032723 316 11 0 00 000010 CAMN AC1,AC ;EQUAL?
2570 032724 004 11 0 00 000010 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2571 032725 312 10 0 00 037667 CAME AC,RAN ;C(E) SHOULD = ORIG. C(E).
2572 032726 004 10 0 00 037667 ERROR AC,RAN ;SETCMM FAILED.
2573 LOOP BMCMM1,BMCMM2^
2574 032727 367 07 0 00 032704 SOJG AC-1,BMCMM1 ;ITERATION COUNTER
2575 032730 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 33-1
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0074
2576 032731 321 07 0 00 032710 JUMPL AC-1,BMCMM2 ;LOOP ON ERROR SWITCH ^
2577
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 34
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0075
2578
2579 ;TEST SETCAM, WHERE E IS AN AC. TEST FOR NOT
2580 ;STORING IN AC AS WELL AS PROPER STORAGE IN C(E).
2581 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2582
2583 000011 AC=11
2584 032732 BMCAM: SETUP 100,0^
2585 000012 AC1=<AC+1>&17
2586 000013 AC2=<AC+2>&17
2587 000014 AC3=<AC+3>&17
2588 000015 AC4=<AC+4>&17
2589 000016 AC5=<AC+5>&17
2590 000007 RAN1=<AC-2>&17
2591 032732 201 10 0 00 032732 MOVEI AC-1,.
2592 032733 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2593 032734 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2594 032735 202 10 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2595 032736 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2596 032737 240 10 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2597 032740 240 10 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2598 032741 BMCAM1: RANDOM^
2599 032741 200 11 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2600 032742 270 11 0 00 037562 ADD AC,[142536475076]
2601 032743 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2602 032744 447 11 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
2603 032745 204 12 0 00 000011 BMCAM2: MOVS AC1,AC ;SECOND RANDOM NUMBER.
2604 032746 460 00 0 00 000012 SETCM AC1 ;SIMULATE SETCAM.
2605 032747 452 12 0 00 000011 SETCAM AC1,AC ;DO SETCAM.
2606 032750 316 12 0 00 000011 CAMN AC1,AC ;EQUAL?
2607 032751 004 12 0 00 000011 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2608 032752 312 11 0 00 000000 CAME AC,0 ;C(E) SHOULD = SIM. ANS.
2609 032753 004 11 0 00 000000 ERROR AC,0 ;SETCAM FAILED.
2610 LOOP BMCAM1,BMACM2^
2611 032754 367 10 0 00 032741 SOJG AC-1,BMCAM1 ;ITERATION COUNTER
2612 032755 200 11 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2613 032756 321 10 0 00 032627 JUMPL AC-1,BMACM2 ;LOOP ON ERROR SWITCH ^
2614
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 35
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0076
2615
2616 ;TEST SETAM, WHERE E IS AN AC.
2617 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2618
2619 000010 AC=10
2620 032757 BMSA: SETUP 100,0^
2621 000011 AC1=<AC+1>&17
2622 000012 AC2=<AC+2>&17
2623 000013 AC3=<AC+3>&17
2624 000014 AC4=<AC+4>&17
2625 000015 AC5=<AC+5>&17
2626 000006 RAN1=<AC-2>&17
2627 032757 201 07 0 00 032757 MOVEI AC-1,.
2628 032760 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2629 032761 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2630 032762 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2631 032763 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2632 032764 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2633 032765 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2634 032766 BMSA1: RANDOM^
2635 032766 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2636 032767 270 10 0 00 037562 ADD AC,[142536475076]
2637 032770 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2638 032771 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
2639 032772 204 11 0 00 000010 BMSA2: MOVS AC1,AC ;SECOND RANDOM NUMBER
2640 032773 316 11 0 00 000010 CAMN AC1,AC
2641 032774 254 00 0 00 032766 JRST BMSA1 ;REJECT IF SAME.
2642 032775 426 10 0 00 000011 SETAM AC,AC1 ;C(AC) TO C(AC1)
2643 032776 312 10 0 00 000011 CAME AC,AC1 ;EQUAL?
2644 032777 004 10 0 00 000011 ERROR AC,AC1 ;NO.
2645 033000 312 11 0 00 037667 CAME AC1,RAN ;C(E) SHOULD = ORIG C(AC).
2646 033001 004 11 0 00 037667 ERROR AC1,RAN ;SETAM FAILED.
2647 LOOP BMSA1,BMSA2^
2648 033002 367 07 0 00 032766 SOJG AC-1,BMSA1 ;ITERATION COUNTER
2649 033003 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2650 033004 321 07 0 00 032772 JUMPL AC-1,BMSA2 ;LOOP ON ERROR SWITCH ^
2651
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 36
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0077
2652
2653 ;TEST SETOM, WHERE E IS AN AC.
2654 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2655
2656 000010 AC=10
2657 033005 BMSM: SETUP 100,0^
2658 000011 AC1=<AC+1>&17
2659 000012 AC2=<AC+2>&17
2660 000013 AC3=<AC+3>&17
2661 000014 AC4=<AC+4>&17
2662 000015 AC5=<AC+5>&17
2663 000006 RAN1=<AC-2>&17
2664 033005 201 07 0 00 033005 MOVEI AC-1,.
2665 033006 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2666 033007 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2667 033010 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2668 033011 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2669 033012 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2670 033013 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2671 033014 BMSM1: RANDOM^
2672 033014 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2673 033015 270 10 0 00 037562 ADD AC,[142536475076]
2674 033016 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2675 033017 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
2676 033020 204 11 0 00 000010 BMSM2: MOVS AC1,AC ;SECOND RANDOM NUMBER
2677 033021 476 11 0 00 000010 SETOM AC1,AC ;DO SETOM INST.
2678 033022 316 11 0 00 000010 CAMN AC1,AC ;EQUAL?
2679 033023 004 11 0 00 000010 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2680 033024 312 10 0 00 037565 CAME AC,[-1] ;C(E) SHOULD = A -1.
2681 033025 004 10 0 00 037565 ERROR AC,[-1] ;SETOM FAILED.
2682 LOOP BMSM1,BMSM2^
2683 033026 367 07 0 00 033014 SOJG AC-1,BMSM1 ;ITERATION COUNTER
2684 033027 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2685 033030 321 07 0 00 033020 JUMPL AC-1,BMSM2 ;LOOP ON ERROR SWITCH ^
2686
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 37
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0078
2687
2688 ;TEST SETMM, WHERE E IS AN AC.
2689 ;ERRORS ARE IN THE FORM (PC, AC,C(AC),CORRECT)
2690
2691 000010 AC=10
2692 033031 BMSMM: SETUP 100,0^
2693 000011 AC1=<AC+1>&17
2694 000012 AC2=<AC+2>&17
2695 000013 AC3=<AC+3>&17
2696 000014 AC4=<AC+4>&17
2697 000015 AC5=<AC+5>&17
2698 000006 RAN1=<AC-2>&17
2699 033031 201 07 0 00 033031 MOVEI AC-1,.
2700 033032 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2701 033033 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2702 033034 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2703 033035 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2704 033036 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2705 033037 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2706 033040 BMSMM1: RANDOM^
2707 033040 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2708 033041 270 10 0 00 037562 ADD AC,[142536475076]
2709 033042 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2710 033043 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
2711 033044 204 11 0 00 000010 BMSMM2: MOVS AC1,AC ;A SECOND RANDOM NUMBER
2712 033045 316 10 0 00 000011 CAMN AC,AC1 ;REJECT IF
2713 033046 254 00 0 00 033040 JRST BMSMM1 ;HALF SAME
2714 ;DO 8 SETMM...SHOULD NOT CHANGE C(E).
2715 REPEAT 10,<
2716 SETMM AC1,AC>
2717
2718 033047 416 11 0 00 000010 SETMM AC1,AC
2719
2720 033050 416 11 0 00 000010 SETMM AC1,AC
2721
2722 033051 416 11 0 00 000010 SETMM AC1,AC
2723
2724 033052 416 11 0 00 000010 SETMM AC1,AC
2725
2726 033053 416 11 0 00 000010 SETMM AC1,AC
2727
2728 033054 416 11 0 00 000010 SETMM AC1,AC
2729
2730 033055 416 11 0 00 000010 SETMM AC1,AC
2731
2732 033056 416 11 0 00 000010 SETMM AC1,AC
2733 033057 316 11 0 00 000010 CAMN AC1,AC ;EQUAL?
2734 033060 004 11 0 00 000010 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2735 033061 312 10 0 00 037667 CAME AC,RAN ;C(E) SHOULD = ORIG. C(E).
2736 033062 004 10 0 00 037667 ERROR AC,RAN ;SETMM FAILED.
2737 LOOP BMSMM1,BMSMM2^
2738 033063 367 07 0 00 033040 SOJG AC-1,BMSMM1 ;ITERATION COUNTER
2739 033064 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2740 033065 321 07 0 00 033044 JUMPL AC-1,BMSMM2 ;LOOP ON ERROR SWITCH ^
2741
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 38
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0079
2742
2743 ;TEST SETZM, WHERE E IS AN AC. TESTS FOR NOT STORING
2744 ;IN AC AS WELL AS STORING IN C(E) PROPERLY.
2745
2746 000010 AC=10
2747 033066 SETZM1: SETUP 40,0^
2748 000011 AC1=<AC+1>&17
2749 000012 AC2=<AC+2>&17
2750 000013 AC3=<AC+3>&17
2751 000014 AC4=<AC+4>&17
2752 000015 AC5=<AC+5>&17
2753 000006 RAN1=<AC-2>&17
2754 033066 201 07 0 00 033066 MOVEI AC-1,.
2755 033067 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2756 033070 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2757 033071 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2758 033072 201 07 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
2759 033073 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2760 033074 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2761 033075 SETZM2: RANDOM^
2762 033075 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2763 033076 270 10 0 00 037562 ADD AC,[142536475076]
2764 033077 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2765 033100 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
2766 033101 322 10 0 00 033075 SETZM3: JUMPE AC,SETZM2 ;REJECT IF C(AC) = 0.
2767 033102 477 11 0 00 000006 SETOB AC1,RAN1 ;SET C(AC) TO ALL ONES.
2768 033103 402 11 0 00 000010 SETZM AC1,AC ;DO SETZM
2769 033104 312 10 0 00 037563 CAME AC,[0] ;DID AC GET CLEARED?
2770 033105 011 00 0 00 000006 EERR ,RAN1 ;NO.
2771 033106 312 11 0 00 037565 CAME AC1,[-1] ;DOES C(AC1) STILL = -1?
2772 033107 011 00 0 00 000006 EERR ,RAN1 ;NO.
2773 LOOP SETZM2,SETZM3^
2774 033110 367 07 0 00 033075 SOJG AC-1,SETZM2 ;ITERATION COUNTER
2775 033111 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2776 033112 321 07 0 00 033101 JUMPL AC-1,SETZM3 ;LOOP ON ERROR SWITCH ^
2777
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 39
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0080
2778
2779 ;TEST ROT LEFT 3X(2X18). CHECKING FOR AC1 NOT CHANGED
2780 ;AS WELL AS C(AC) BEING THE PROPER NUMBER.
2781 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2782
2783 000010 AC=10
2784 033113 ROTL2: SETUP 200,2^
2785 000011 AC1=<AC+1>&17
2786 000012 AC2=<AC+2>&17
2787 000013 AC3=<AC+3>&17
2788 000014 AC4=<AC+4>&17
2789 000015 AC5=<AC+5>&17
2790 000006 RAN1=<AC-2>&17
2791 033113 201 07 0 00 033113 MOVEI AC-1,.
2792 033114 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2793 033115 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2794 033116 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2795 033117 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
2796 033120 240 07 1 00 030673 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
2797 033121 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2798 033122 ROTL2A: RANDOM^
2799 033122 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2800 033123 270 10 0 00 037562 ADD AC,[142536475076]
2801 033124 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2802 033125 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
2803 033126 477 11 0 00 000006 ROTL2B: SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
2804 ;DO 6 X (ROT LEFT 18 PLACES).
2805 REPEAT 3,<
2806 ROT AC,22
2807 ROT AC,22>
2808
2809 033127 241 10 0 00 000022 ROT AC,22
2810 033130 241 10 0 00 000022 ROT AC,22
2811
2812 033131 241 10 0 00 000022 ROT AC,22
2813 033132 241 10 0 00 000022 ROT AC,22
2814
2815 033133 241 10 0 00 000022 ROT AC,22
2816 033134 241 10 0 00 000022 ROT AC,22
2817 033135 312 10 0 00 037667 CAME AC,RAN ;C(AC)SHOULD = C(AC) BEFORE ROT.
2818 033136 013 00 0 00 000022 EERRI ,22
2819 033137 312 11 0 00 037565 CAME AC1,[-1] ;AC1 SHOULD NOT HAVE CHANGED.
2820 033140 001 06 0 00 000022 ERR RAN1,22
2821 LOOP ROTL2A,ROTL2B^
2822 033141 367 07 0 00 033122 SOJG AC-1,ROTL2A ;ITERATION COUNTER
2823 033142 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2824 033143 321 07 0 00 033126 JUMPL AC-1,ROTL2B ;LOOP ON ERROR SWITCH ^
2825
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 40
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0081
2826 ;TEST ROT RIGHT 3X(2X18)..CHECKING FOR AC1 NOT
2827 ;CHANGED AS WELL AS C(AC) ENDING UP BEING
2828 ;THE SAME AS IT WAS BEFORE THE ROT.
2829 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2830
2831 000010 AC=10
2832 033144 ROTR2: SETUP 300,2^
2833 000011 AC1=<AC+1>&17
2834 000012 AC2=<AC+2>&17
2835 000013 AC3=<AC+3>&17
2836 000014 AC4=<AC+4>&17
2837 000015 AC5=<AC+5>&17
2838 000006 RAN1=<AC-2>&17
2839 033144 201 07 0 00 033144 MOVEI AC-1,.
2840 033145 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2841 033146 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2842 033147 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2843 033150 201 07 0 00 000300 MOVEI AC-1,300 ;ROUTINE WEIGHTING
2844 033151 240 07 1 00 030673 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
2845 033152 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2846 033153 ROTR2A: RANDOM^
2847 033153 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2848 033154 270 10 0 00 037562 ADD AC,[142536475076]
2849 033155 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2850 033156 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
2851 033157 477 11 0 00 000006 ROTR2B: SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
2852 ;DO 6 X (ROT RIGHT 18 PLACES).
2853 REPEAT 3,<
2854 ROT AC,-22
2855 ROT AC,-22>
2856
2857 033160 241 10 0 00 777756 ROT AC,-22
2858 033161 241 10 0 00 777756 ROT AC,-22
2859
2860 033162 241 10 0 00 777756 ROT AC,-22
2861 033163 241 10 0 00 777756 ROT AC,-22
2862
2863 033164 241 10 0 00 777756 ROT AC,-22
2864 033165 241 10 0 00 777756 ROT AC,-22
2865 033166 312 10 0 00 037667 CAME AC,RAN ;C(AC) SHOULD = C(AC) BEFORE ROT.
2866 033167 011 00 0 00 777756 EERR ,-22
2867 033170 312 11 0 00 037565 CAME AC1,[-1] ;C(AC1) SHOULD STILL = -1.
2868 033171 003 06 0 00 777756 ERRI RAN1,-22
2869 LOOP ROTR2A,ROTR2B^
2870 033172 367 07 0 00 033153 SOJG AC-1,ROTR2A ;ITERATION COUNTER
2871 033173 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2872 033174 321 07 0 00 033157 JUMPL AC-1,ROTR2B ;LOOP ON ERROR SWITCH ^
2873
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 41
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0082
2874
2875 ;TEST ROT LEFT 3X36. CHECKING FOR AC1 NOT
2876 ;CHANGED AND C(AC) = WHAT IT WAS BEFORE
2877 ;ROT.
2878 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2879
2880 000002 AC=2
2881 033175 RTL36: SETUP 300,2^
2882 000003 AC1=<AC+1>&17
2883 000004 AC2=<AC+2>&17
2884 000005 AC3=<AC+3>&17
2885 000006 AC4=<AC+4>&17
2886 000007 AC5=<AC+5>&17
2887 000000 RAN1=<AC-2>&17
2888 033175 201 01 0 00 033175 MOVEI AC-1,.
2889 033176 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2890 033177 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2891 033200 202 01 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2892 033201 201 01 0 00 000300 MOVEI AC-1,300 ;ROUTINE WEIGHTING
2893 033202 240 01 1 00 030673 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
2894 033203 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2895 033204 RTL36A: RANDOM^
2896 033204 200 02 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2897 033205 270 02 0 00 037562 ADD AC,[142536475076]
2898 033206 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2899 033207 447 02 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
2900 033210 477 03 0 00 000000 RTL36B: SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
2901 ;DO 3 X (ROT LEFT 36 PLACES).
2902 REPEAT 3,<
2903 ROT AC,44>
2904
2905 033211 241 02 0 00 000044 ROT AC,44
2906
2907 033212 241 02 0 00 000044 ROT AC,44
2908
2909 033213 241 02 0 00 000044 ROT AC,44
2910 033214 312 02 0 00 037667 CAME AC,RAN ;C(AC) SHOULD = C(AC) BEFORE ROT.
2911 033215 013 00 0 00 000044 EERRI ,44
2912 033216 312 03 0 00 037565 CAME AC1,[-1] ;C(AC1) SHOULD STILL = -1.
2913 033217 003 00 0 00 000044 ERRI RAN1,44
2914 LOOP RTL36A,RTL36B^
2915 033220 367 01 0 00 033204 SOJG AC-1,RTL36A ;ITERATION COUNTER
2916 033221 200 02 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2917 033222 321 01 0 00 033210 JUMPL AC-1,RTL36B ;LOOP ON ERROR SWITCH ^
2918
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 42
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0083
2919
2920 ;TEST ROT RIGHT 3X36. CHECKING FOR AC1 NOT
2921 ;CHANGED AND C(AC) = WHAT IT DID BEFORE ROT.
2922 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2923
2924 000002 AC=2
2925 033223 RTR36: SETUP 300,2^
2926 000003 AC1=<AC+1>&17
2927 000004 AC2=<AC+2>&17
2928 000005 AC3=<AC+3>&17
2929 000006 AC4=<AC+4>&17
2930 000007 AC5=<AC+5>&17
2931 000000 RAN1=<AC-2>&17
2932 033223 201 01 0 00 033223 MOVEI AC-1,.
2933 033224 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2934 033225 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2935 033226 202 01 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2936 033227 201 01 0 00 000300 MOVEI AC-1,300 ;ROUTINE WEIGHTING
2937 033230 240 01 1 00 030673 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
2938 033231 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2939 033232 RTR36A: RANDOM^
2940 033232 200 02 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2941 033233 270 02 0 00 037562 ADD AC,[142536475076]
2942 033234 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2943 033235 447 02 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
2944 033236 477 03 0 00 000000 RTR36B: SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
2945 ;DO 3 X (ROT RIGHT 36 PLACES).
2946 REPEAT 3,<
2947 ROT AC,-44>
2948
2949 033237 241 02 0 00 777734 ROT AC,-44
2950
2951 033240 241 02 0 00 777734 ROT AC,-44
2952
2953 033241 241 02 0 00 777734 ROT AC,-44
2954 033242 312 02 0 00 037667 CAME AC,RAN ;C(AC) SHOULD = RAN.
2955 033243 013 00 0 00 777734 EERRI ,-44
2956 033244 312 03 0 00 037565 CAME AC1,[-1] ;C(AC1) SHOULD STILL = -1.
2957 033245 003 00 0 00 777734 ERRI RAN1,-44
2958 LOOP RTR36A,RTR36B^
2959 033246 367 01 0 00 033232 SOJG AC-1,RTR36A ;ITERATION COUNTER
2960 033247 200 02 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2961 033250 321 01 0 00 033236 JUMPL AC-1,RTR36B ;LOOP ON ERROR SWITCH ^
2962
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 43
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0084
2963
2964 ;TEST ROTC LEFT 3X36 THROUGH ALL AC'S CHECKING
2965 ;FOR C(AC) AND C(AC1) BEING EXCHANGED
2966 ;AFTER THE ROTC.
2967 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2968
2969 000002 AC=2
2970 033251 RTCL: SETUP 100,2^
2971 000003 AC1=<AC+1>&17
2972 000004 AC2=<AC+2>&17
2973 000005 AC3=<AC+3>&17
2974 000006 AC4=<AC+4>&17
2975 000007 AC5=<AC+5>&17
2976 000000 RAN1=<AC-2>&17
2977 033251 201 01 0 00 033251 MOVEI AC-1,.
2978 033252 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2979 033253 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2980 033254 202 01 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2981 033255 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2982 033256 240 01 1 00 030673 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
2983 033257 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2984 033260 RTCLA: RANDOM^
2985 033260 200 02 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2986 033261 270 02 0 00 037562 ADD AC,[142536475076]
2987 033262 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2988 033263 447 02 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
2989
2990 RTCLB: REPEAT ^D10,<
2991 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
2992 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
2993 ;DO 3 X (ROTC LEFT 36 PLACES).
2994 REPEAT 3,<
2995 ROTC AC,44>
2996 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
2997 EERRI ,44
2998 CAME AC,[-1] ;C(AC) SHOULD = A -1.
2999 ERRI RAN1,44
3000 AC=<AC+1>&17
3001 AC1=<AC+1>&17
3002 >
3003
3004 033264 200 02 0 00 037667 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3005 033265 477 03 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3006 ;DO 3 X (ROTC LEFT 36 PLACES).
3007 REPEAT 3,
3008
3009 033266 245 02 0 00 000044 ROTC AC,44
3010
3011 033267 245 02 0 00 000044 ROTC AC,44
3012
3013 033270 245 02 0 00 000044 ROTC AC,44
3014 033271 312 03 0 00 037667 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
3015 033272 013 00 0 00 000044 EERRI ,44
3016 033273 312 02 0 00 037565 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3017 033274 003 00 0 00 000044 ERRI RAN1,44
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 43-1
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0085
3018 000003 AC=<AC+1>&17
3019 000004 AC1=<AC+1>&17
3020
3021
3022 033275 200 03 0 00 037667 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3023 033276 477 04 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3024 ;DO 3 X (ROTC LEFT 36 PLACES).
3025 REPEAT 3,
3026
3027 033277 245 03 0 00 000044 ROTC AC,44
3028
3029 033300 245 03 0 00 000044 ROTC AC,44
3030
3031 033301 245 03 0 00 000044 ROTC AC,44
3032 033302 312 04 0 00 037667 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
3033 033303 013 00 0 00 000044 EERRI ,44
3034 033304 312 03 0 00 037565 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3035 033305 003 00 0 00 000044 ERRI RAN1,44
3036 000004 AC=<AC+1>&17
3037 000005 AC1=<AC+1>&17
3038
3039
3040 033306 200 04 0 00 037667 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3041 033307 477 05 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3042 ;DO 3 X (ROTC LEFT 36 PLACES).
3043 REPEAT 3,
3044
3045 033310 245 04 0 00 000044 ROTC AC,44
3046
3047 033311 245 04 0 00 000044 ROTC AC,44
3048
3049 033312 245 04 0 00 000044 ROTC AC,44
3050 033313 312 05 0 00 037667 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
3051 033314 013 00 0 00 000044 EERRI ,44
3052 033315 312 04 0 00 037565 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3053 033316 003 00 0 00 000044 ERRI RAN1,44
3054 000005 AC=<AC+1>&17
3055 000006 AC1=<AC+1>&17
3056
3057
3058 033317 200 05 0 00 037667 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3059 033320 477 06 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3060 ;DO 3 X (ROTC LEFT 36 PLACES).
3061 REPEAT 3,
3062
3063 033321 245 05 0 00 000044 ROTC AC,44
3064
3065 033322 245 05 0 00 000044 ROTC AC,44
3066
3067 033323 245 05 0 00 000044 ROTC AC,44
3068 033324 312 06 0 00 037667 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
3069 033325 013 00 0 00 000044 EERRI ,44
3070 033326 312 05 0 00 037565 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3071 033327 003 00 0 00 000044 ERRI RAN1,44
3072 000006 AC=<AC+1>&17
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 43-2
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0086
3073 000007 AC1=<AC+1>&17
3074
3075
3076 033330 200 06 0 00 037667 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3077 033331 477 07 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3078 ;DO 3 X (ROTC LEFT 36 PLACES).
3079 REPEAT 3,
3080
3081 033332 245 06 0 00 000044 ROTC AC,44
3082
3083 033333 245 06 0 00 000044 ROTC AC,44
3084
3085 033334 245 06 0 00 000044 ROTC AC,44
3086 033335 312 07 0 00 037667 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
3087 033336 013 00 0 00 000044 EERRI ,44
3088 033337 312 06 0 00 037565 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3089 033340 003 00 0 00 000044 ERRI RAN1,44
3090 000007 AC=<AC+1>&17
3091 000010 AC1=<AC+1>&17
3092
3093
3094 033341 200 07 0 00 037667 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3095 033342 477 10 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3096 ;DO 3 X (ROTC LEFT 36 PLACES).
3097 REPEAT 3,
3098
3099 033343 245 07 0 00 000044 ROTC AC,44
3100
3101 033344 245 07 0 00 000044 ROTC AC,44
3102
3103 033345 245 07 0 00 000044 ROTC AC,44
3104 033346 312 10 0 00 037667 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
3105 033347 013 00 0 00 000044 EERRI ,44
3106 033350 312 07 0 00 037565 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3107 033351 003 00 0 00 000044 ERRI RAN1,44
3108 000010 AC=<AC+1>&17
3109 000011 AC1=<AC+1>&17
3110
3111
3112 033352 200 10 0 00 037667 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3113 033353 477 11 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3114 ;DO 3 X (ROTC LEFT 36 PLACES).
3115 REPEAT 3,
3116
3117 033354 245 10 0 00 000044 ROTC AC,44
3118
3119 033355 245 10 0 00 000044 ROTC AC,44
3120
3121 033356 245 10 0 00 000044 ROTC AC,44
3122 033357 312 11 0 00 037667 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
3123 033360 013 00 0 00 000044 EERRI ,44
3124 033361 312 10 0 00 037565 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3125 033362 003 00 0 00 000044 ERRI RAN1,44
3126 000011 AC=<AC+1>&17
3127 000012 AC1=<AC+1>&17
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 43-3
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0087
3128
3129
3130 033363 200 11 0 00 037667 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3131 033364 477 12 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3132 ;DO 3 X (ROTC LEFT 36 PLACES).
3133 REPEAT 3,
3134
3135 033365 245 11 0 00 000044 ROTC AC,44
3136
3137 033366 245 11 0 00 000044 ROTC AC,44
3138
3139 033367 245 11 0 00 000044 ROTC AC,44
3140 033370 312 12 0 00 037667 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
3141 033371 013 00 0 00 000044 EERRI ,44
3142 033372 312 11 0 00 037565 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3143 033373 003 00 0 00 000044 ERRI RAN1,44
3144 000012 AC=<AC+1>&17
3145 000013 AC1=<AC+1>&17
3146
3147
3148 033374 200 12 0 00 037667 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3149 033375 477 13 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3150 ;DO 3 X (ROTC LEFT 36 PLACES).
3151 REPEAT 3,
3152
3153 033376 245 12 0 00 000044 ROTC AC,44
3154
3155 033377 245 12 0 00 000044 ROTC AC,44
3156
3157 033400 245 12 0 00 000044 ROTC AC,44
3158 033401 312 13 0 00 037667 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
3159 033402 013 00 0 00 000044 EERRI ,44
3160 033403 312 12 0 00 037565 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3161 033404 003 00 0 00 000044 ERRI RAN1,44
3162 000013 AC=<AC+1>&17
3163 000014 AC1=<AC+1>&17
3164
3165
3166 033405 200 13 0 00 037667 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3167 033406 477 14 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3168 ;DO 3 X (ROTC LEFT 36 PLACES).
3169 REPEAT 3,
3170
3171 033407 245 13 0 00 000044 ROTC AC,44
3172
3173 033410 245 13 0 00 000044 ROTC AC,44
3174
3175 033411 245 13 0 00 000044 ROTC AC,44
3176 033412 312 14 0 00 037667 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
3177 033413 013 00 0 00 000044 EERRI ,44
3178 033414 312 13 0 00 037565 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3179 033415 003 00 0 00 000044 ERRI RAN1,44
3180 000014 AC=<AC+1>&17
3181 000015 AC1=<AC+1>&17
3182
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 43-4
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0088
3183 000002 AC=2
3184 LOOP RTCLA,RTCLB^
3185 033416 367 01 0 00 033260 SOJG AC-1,RTCLA ;ITERATION COUNTER
3186 033417 200 02 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3187 033420 321 01 0 00 033264 JUMPL AC-1,RTCLB ;LOOP ON ERROR SWITCH ^
3188
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 44
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0089
3189
3190 ;TEST ROTC RIGHT 3X36 THROUGH ALL AC'S. CHECKING
3191 ;FOR C(AC) AND C(AC1) BEING EXCHANGED.
3192 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
3193
3194 000002 AC=2
3195 033421 RTCR: SETUP 100,2^
3196 000003 AC1=<AC+1>&17
3197 000004 AC2=<AC+2>&17
3198 000005 AC3=<AC+3>&17
3199 000006 AC4=<AC+4>&17
3200 000007 AC5=<AC+5>&17
3201 000000 RAN1=<AC-2>&17
3202 033421 201 01 0 00 033421 MOVEI AC-1,.
3203 033422 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3204 033423 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3205 033424 202 01 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3206 033425 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3207 033426 240 01 1 00 030673 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
3208 033427 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3209 033430 RTCRA: RANDOM^
3210 033430 200 02 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3211 033431 270 02 0 00 037562 ADD AC,[142536475076]
3212 033432 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3213 033433 447 02 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
3214
3215 RTCRB: REPEAT ^D10,<
3216 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3217 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3218 ;DO 3 X (ROTC RIGHT 36 PLACES).
3219 REPEAT 3,<
3220 ROTC AC,-44>
3221 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3222 EERRI ,-44
3223 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3224 ERRI RAN1,-44
3225 AC=<AC+1>&17
3226 AC1=<AC+1>&17
3227 >
3228
3229 033434 200 02 0 00 037667 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3230 033435 477 03 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3231 ;DO 3 X (ROTC RIGHT 36 PLACES).
3232 REPEAT 3,
3233
3234 033436 245 02 0 00 777734 ROTC AC,-44
3235
3236 033437 245 02 0 00 777734 ROTC AC,-44
3237
3238 033440 245 02 0 00 777734 ROTC AC,-44
3239 033441 312 03 0 00 037667 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3240 033442 013 00 0 00 777734 EERRI ,-44
3241 033443 312 02 0 00 037565 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3242 033444 003 00 0 00 777734 ERRI RAN1,-44
3243 000003 AC=<AC+1>&17
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 44-1
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0090
3244 000004 AC1=<AC+1>&17
3245
3246
3247 033445 200 03 0 00 037667 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3248 033446 477 04 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3249 ;DO 3 X (ROTC RIGHT 36 PLACES).
3250 REPEAT 3,
3251
3252 033447 245 03 0 00 777734 ROTC AC,-44
3253
3254 033450 245 03 0 00 777734 ROTC AC,-44
3255
3256 033451 245 03 0 00 777734 ROTC AC,-44
3257 033452 312 04 0 00 037667 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3258 033453 013 00 0 00 777734 EERRI ,-44
3259 033454 312 03 0 00 037565 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3260 033455 003 00 0 00 777734 ERRI RAN1,-44
3261 000004 AC=<AC+1>&17
3262 000005 AC1=<AC+1>&17
3263
3264
3265 033456 200 04 0 00 037667 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3266 033457 477 05 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3267 ;DO 3 X (ROTC RIGHT 36 PLACES).
3268 REPEAT 3,
3269
3270 033460 245 04 0 00 777734 ROTC AC,-44
3271
3272 033461 245 04 0 00 777734 ROTC AC,-44
3273
3274 033462 245 04 0 00 777734 ROTC AC,-44
3275 033463 312 05 0 00 037667 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3276 033464 013 00 0 00 777734 EERRI ,-44
3277 033465 312 04 0 00 037565 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3278 033466 003 00 0 00 777734 ERRI RAN1,-44
3279 000005 AC=<AC+1>&17
3280 000006 AC1=<AC+1>&17
3281
3282
3283 033467 200 05 0 00 037667 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3284 033470 477 06 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3285 ;DO 3 X (ROTC RIGHT 36 PLACES).
3286 REPEAT 3,
3287
3288 033471 245 05 0 00 777734 ROTC AC,-44
3289
3290 033472 245 05 0 00 777734 ROTC AC,-44
3291
3292 033473 245 05 0 00 777734 ROTC AC,-44
3293 033474 312 06 0 00 037667 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3294 033475 013 00 0 00 777734 EERRI ,-44
3295 033476 312 05 0 00 037565 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3296 033477 003 00 0 00 777734 ERRI RAN1,-44
3297 000006 AC=<AC+1>&17
3298 000007 AC1=<AC+1>&17
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 44-2
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0091
3299
3300
3301 033500 200 06 0 00 037667 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3302 033501 477 07 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3303 ;DO 3 X (ROTC RIGHT 36 PLACES).
3304 REPEAT 3,
3305
3306 033502 245 06 0 00 777734 ROTC AC,-44
3307
3308 033503 245 06 0 00 777734 ROTC AC,-44
3309
3310 033504 245 06 0 00 777734 ROTC AC,-44
3311 033505 312 07 0 00 037667 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3312 033506 013 00 0 00 777734 EERRI ,-44
3313 033507 312 06 0 00 037565 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3314 033510 003 00 0 00 777734 ERRI RAN1,-44
3315 000007 AC=<AC+1>&17
3316 000010 AC1=<AC+1>&17
3317
3318
3319 033511 200 07 0 00 037667 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3320 033512 477 10 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3321 ;DO 3 X (ROTC RIGHT 36 PLACES).
3322 REPEAT 3,
3323
3324 033513 245 07 0 00 777734 ROTC AC,-44
3325
3326 033514 245 07 0 00 777734 ROTC AC,-44
3327
3328 033515 245 07 0 00 777734 ROTC AC,-44
3329 033516 312 10 0 00 037667 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3330 033517 013 00 0 00 777734 EERRI ,-44
3331 033520 312 07 0 00 037565 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3332 033521 003 00 0 00 777734 ERRI RAN1,-44
3333 000010 AC=<AC+1>&17
3334 000011 AC1=<AC+1>&17
3335
3336
3337 033522 200 10 0 00 037667 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3338 033523 477 11 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3339 ;DO 3 X (ROTC RIGHT 36 PLACES).
3340 REPEAT 3,
3341
3342 033524 245 10 0 00 777734 ROTC AC,-44
3343
3344 033525 245 10 0 00 777734 ROTC AC,-44
3345
3346 033526 245 10 0 00 777734 ROTC AC,-44
3347 033527 312 11 0 00 037667 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3348 033530 013 00 0 00 777734 EERRI ,-44
3349 033531 312 10 0 00 037565 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3350 033532 003 00 0 00 777734 ERRI RAN1,-44
3351 000011 AC=<AC+1>&17
3352 000012 AC1=<AC+1>&17
3353
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 44-3
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0092
3354
3355 033533 200 11 0 00 037667 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3356 033534 477 12 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3357 ;DO 3 X (ROTC RIGHT 36 PLACES).
3358 REPEAT 3,
3359
3360 033535 245 11 0 00 777734 ROTC AC,-44
3361
3362 033536 245 11 0 00 777734 ROTC AC,-44
3363
3364 033537 245 11 0 00 777734 ROTC AC,-44
3365 033540 312 12 0 00 037667 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3366 033541 013 00 0 00 777734 EERRI ,-44
3367 033542 312 11 0 00 037565 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3368 033543 003 00 0 00 777734 ERRI RAN1,-44
3369 000012 AC=<AC+1>&17
3370 000013 AC1=<AC+1>&17
3371
3372
3373 033544 200 12 0 00 037667 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3374 033545 477 13 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3375 ;DO 3 X (ROTC RIGHT 36 PLACES).
3376 REPEAT 3,
3377
3378 033546 245 12 0 00 777734 ROTC AC,-44
3379
3380 033547 245 12 0 00 777734 ROTC AC,-44
3381
3382 033550 245 12 0 00 777734 ROTC AC,-44
3383 033551 312 13 0 00 037667 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3384 033552 013 00 0 00 777734 EERRI ,-44
3385 033553 312 12 0 00 037565 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3386 033554 003 00 0 00 777734 ERRI RAN1,-44
3387 000013 AC=<AC+1>&17
3388 000014 AC1=<AC+1>&17
3389
3390
3391 033555 200 13 0 00 037667 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3392 033556 477 14 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3393 ;DO 3 X (ROTC RIGHT 36 PLACES).
3394 REPEAT 3,
3395
3396 033557 245 13 0 00 777734 ROTC AC,-44
3397
3398 033560 245 13 0 00 777734 ROTC AC,-44
3399
3400 033561 245 13 0 00 777734 ROTC AC,-44
3401 033562 312 14 0 00 037667 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3402 033563 013 00 0 00 777734 EERRI ,-44
3403 033564 312 13 0 00 037565 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3404 033565 003 00 0 00 777734 ERRI RAN1,-44
3405 000014 AC=<AC+1>&17
3406 000015 AC1=<AC+1>&17
3407
3408 000002 AC=2
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 44-4
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0093
3409 LOOP RTCRA,RTCRB^
3410 033566 367 01 0 00 033430 SOJG AC-1,RTCRA ;ITERATION COUNTER
3411 033567 200 02 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3412 033570 321 01 0 00 033434 JUMPL AC-1,RTCRB ;LOOP ON ERROR SWITCH ^
3413
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 45
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0094
3414
3415 ;TEST ROT. ROT A RANDOM NUMBER A RANDOM NUMBER OF TIMES
3416 ;IN ONE DIRECTION AND THEN THE SAME NUMBER OF TIMES
3417 ;IN THE OPPOSITE DIRECTION.
3418 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT).
3419
3420 000002 AC=2
3421 033571 ROTLR: SETUP 100,4^
3422 000003 AC1=<AC+1>&17
3423 000004 AC2=<AC+2>&17
3424 000005 AC3=<AC+3>&17
3425 000006 AC4=<AC+4>&17
3426 000007 AC5=<AC+5>&17
3427 000000 RAN1=<AC-2>&17
3428 033571 201 01 0 00 033571 MOVEI AC-1,.
3429 033572 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3430 033573 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3431 033574 202 01 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3432 033575 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3433 033576 240 01 1 00 030675 ASH AC-1,@CMPLXT+4 ;ROUTINE COMPLEXITY
3434 033577 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3435 033600 ROTLR1: RANDOM^
3436 033600 200 02 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3437 033601 270 02 0 00 037562 ADD AC,[142536475076]
3438 033602 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3439 033603 447 02 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
3440 033604 200 05 0 00 037667 MOVE AC3,RAN ;CHECK TO SEE
3441 033605 404 05 0 00 037566 AND AC3,[377] ;THAT THE RIGHT MOST 8 BITS
3442 033606 322 05 0 00 033600 JUMPE AC3,ROTLR1 ;DO NOT = 0..REJECT IF THEY DO.
3443 033607 210 04 0 00 037667 ROTLR2: MOVN AC2,RAN ;PUT 2'S COMP OF RAN INTO AC2.
3444 033610 477 03 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3445 033611 241 02 0 02 000000 ROT AC,(AC) ;ROT AC A RANDOM NUMBER OF TIMES.
3446 033612 241 02 0 04 000000 ROT AC,(AC2) ;ROT AC THE SAME NUM OF TIMES
3447 ;IN THE OPPOSITE DIRECTION.
3448 033613 312 02 0 00 037667 CAME AC,RAN ;C(AC) SHOULD STILL = C(RAN).
3449 033614 004 02 0 00 037667 ERROR AC,RAN
3450 033615 312 03 0 00 037565 CAME AC1,[-1] ;C(AC1) SHOULD STILL = -1.
3451 033616 004 03 0 00 037565 ERROR AC1,[-1]
3452 LOOP ROTLR1,ROTLR2^
3453 033617 367 01 0 00 033600 SOJG AC-1,ROTLR1 ;ITERATION COUNTER
3454 033620 200 02 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3455 033621 321 01 0 00 033607 JUMPL AC-1,ROTLR2 ;LOOP ON ERROR SWITCH ^
3456
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 46
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0095
3457
3458 ;TEST ROTC. DO A ROTC WITH A RANDOM NUMBER A RANDOM
3459 ;NUMBER OF TIMES IN ONE DIRECTION AND THEN THE SAME
3460 ;NUMBER OF TIMES IN THE OPPOSITE DIRECTION.
3461 ;REPEAT THIS TEST FOR ALL AC'S.
3462 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
3463
3464 000002 AC=2
3465 033622 RTCLR: SETUP 200,3^
3466 000003 AC1=<AC+1>&17
3467 000004 AC2=<AC+2>&17
3468 000005 AC3=<AC+3>&17
3469 000006 AC4=<AC+4>&17
3470 000007 AC5=<AC+5>&17
3471 000000 RAN1=<AC-2>&17
3472 033622 201 01 0 00 033622 MOVEI AC-1,.
3473 033623 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3474 033624 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3475 033625 202 01 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3476 033626 201 01 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
3477 033627 240 01 1 00 030674 ASH AC-1,@CMPLXT+3 ;ROUTINE COMPLEXITY
3478 033630 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3479 033631 RTCLR1: RANDOM^
3480 033631 200 02 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3481 033632 270 02 0 00 037562 ADD AC,[142536475076]
3482 033633 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3483 033634 447 02 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
3484 033635 200 05 0 00 037667 MOVE AC3,RAN ;CHECK TO SEE
3485 033636 404 05 0 00 037566 AND AC3,[377] ;THAT THE RIGHT MOST 8 BITS
3486 033637 322 05 0 00 033631 JUMPE AC3,RTCLR1 ;DO NOT = 0..REJECT IF THEY DO.
3487
3488 RTCLR2: REPEAT ^D10,<
3489 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3490 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3491 SETO AC1, ;SET AC1 TO ALL ONES.
3492 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3493 ;TIMES IN ONE DIRECTION.
3494 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
3495 ;TIMES IN THE OPPOSITE DIRECTION.
3496 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3497 ERROR AC,RAN
3498 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3499 ERROR AC1,[-1]
3500 AC=<AC+1>&17
3501 AC1=<AC+1>&17
3502 AC2=<AC+2>&17
3503
3504 >
3505
3506 033640 200 02 0 00 037667 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3507 033641 210 04 0 00 037667 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3508 033642 474 03 0 00 000000 SETO AC1, ;SET AC1 TO ALL ONES.
3509 033643 245 02 0 02 000000 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3510 ;TIMES IN ONE DIRECTION.
3511 033644 245 02 0 04 000000 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 46-1
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0096
3512 ;TIMES IN THE OPPOSITE DIRECTION.
3513 033645 312 02 0 00 037667 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3514 033646 004 02 0 00 037667 ERROR AC,RAN
3515 033647 312 03 0 00 037565 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3516 033650 004 03 0 00 037565 ERROR AC1,[-1]
3517 000003 AC=<AC+1>&17
3518 000004 AC1=<AC+1>&17
3519 000005 AC2=<AC+2>&17
3520
3521
3522
3523 033651 200 03 0 00 037667 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3524 033652 210 05 0 00 037667 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3525 033653 474 04 0 00 000000 SETO AC1, ;SET AC1 TO ALL ONES.
3526 033654 245 03 0 03 000000 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3527 ;TIMES IN ONE DIRECTION.
3528 033655 245 03 0 05 000000 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
3529 ;TIMES IN THE OPPOSITE DIRECTION.
3530 033656 312 03 0 00 037667 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3531 033657 004 03 0 00 037667 ERROR AC,RAN
3532 033660 312 04 0 00 037565 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3533 033661 004 04 0 00 037565 ERROR AC1,[-1]
3534 000004 AC=<AC+1>&17
3535 000005 AC1=<AC+1>&17
3536 000006 AC2=<AC+2>&17
3537
3538
3539
3540 033662 200 04 0 00 037667 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3541 033663 210 06 0 00 037667 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3542 033664 474 05 0 00 000000 SETO AC1, ;SET AC1 TO ALL ONES.
3543 033665 245 04 0 04 000000 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3544 ;TIMES IN ONE DIRECTION.
3545 033666 245 04 0 06 000000 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
3546 ;TIMES IN THE OPPOSITE DIRECTION.
3547 033667 312 04 0 00 037667 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3548 033670 004 04 0 00 037667 ERROR AC,RAN
3549 033671 312 05 0 00 037565 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3550 033672 004 05 0 00 037565 ERROR AC1,[-1]
3551 000005 AC=<AC+1>&17
3552 000006 AC1=<AC+1>&17
3553 000007 AC2=<AC+2>&17
3554
3555
3556
3557 033673 200 05 0 00 037667 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3558 033674 210 07 0 00 037667 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3559 033675 474 06 0 00 000000 SETO AC1, ;SET AC1 TO ALL ONES.
3560 033676 245 05 0 05 000000 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3561 ;TIMES IN ONE DIRECTION.
3562 033677 245 05 0 07 000000 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
3563 ;TIMES IN THE OPPOSITE DIRECTION.
3564 033700 312 05 0 00 037667 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3565 033701 004 05 0 00 037667 ERROR AC,RAN
3566 033702 312 06 0 00 037565 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 46-2
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0097
3567 033703 004 06 0 00 037565 ERROR AC1,[-1]
3568 000006 AC=<AC+1>&17
3569 000007 AC1=<AC+1>&17
3570 000010 AC2=<AC+2>&17
3571
3572
3573
3574 033704 200 06 0 00 037667 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3575 033705 210 10 0 00 037667 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3576 033706 474 07 0 00 000000 SETO AC1, ;SET AC1 TO ALL ONES.
3577 033707 245 06 0 06 000000 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3578 ;TIMES IN ONE DIRECTION.
3579 033710 245 06 0 10 000000 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
3580 ;TIMES IN THE OPPOSITE DIRECTION.
3581 033711 312 06 0 00 037667 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3582 033712 004 06 0 00 037667 ERROR AC,RAN
3583 033713 312 07 0 00 037565 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3584 033714 004 07 0 00 037565 ERROR AC1,[-1]
3585 000007 AC=<AC+1>&17
3586 000010 AC1=<AC+1>&17
3587 000011 AC2=<AC+2>&17
3588
3589
3590
3591 033715 200 07 0 00 037667 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3592 033716 210 11 0 00 037667 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3593 033717 474 10 0 00 000000 SETO AC1, ;SET AC1 TO ALL ONES.
3594 033720 245 07 0 07 000000 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3595 ;TIMES IN ONE DIRECTION.
3596 033721 245 07 0 11 000000 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
3597 ;TIMES IN THE OPPOSITE DIRECTION.
3598 033722 312 07 0 00 037667 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3599 033723 004 07 0 00 037667 ERROR AC,RAN
3600 033724 312 10 0 00 037565 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3601 033725 004 10 0 00 037565 ERROR AC1,[-1]
3602 000010 AC=<AC+1>&17
3603 000011 AC1=<AC+1>&17
3604 000012 AC2=<AC+2>&17
3605
3606
3607
3608 033726 200 10 0 00 037667 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3609 033727 210 12 0 00 037667 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3610 033730 474 11 0 00 000000 SETO AC1, ;SET AC1 TO ALL ONES.
3611 033731 245 10 0 10 000000 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3612 ;TIMES IN ONE DIRECTION.
3613 033732 245 10 0 12 000000 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
3614 ;TIMES IN THE OPPOSITE DIRECTION.
3615 033733 312 10 0 00 037667 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3616 033734 004 10 0 00 037667 ERROR AC,RAN
3617 033735 312 11 0 00 037565 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3618 033736 004 11 0 00 037565 ERROR AC1,[-1]
3619 000011 AC=<AC+1>&17
3620 000012 AC1=<AC+1>&17
3621 000013 AC2=<AC+2>&17
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 46-3
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0098
3622
3623
3624
3625 033737 200 11 0 00 037667 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3626 033740 210 13 0 00 037667 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3627 033741 474 12 0 00 000000 SETO AC1, ;SET AC1 TO ALL ONES.
3628 033742 245 11 0 11 000000 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3629 ;TIMES IN ONE DIRECTION.
3630 033743 245 11 0 13 000000 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
3631 ;TIMES IN THE OPPOSITE DIRECTION.
3632 033744 312 11 0 00 037667 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3633 033745 004 11 0 00 037667 ERROR AC,RAN
3634 033746 312 12 0 00 037565 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3635 033747 004 12 0 00 037565 ERROR AC1,[-1]
3636 000012 AC=<AC+1>&17
3637 000013 AC1=<AC+1>&17
3638 000014 AC2=<AC+2>&17
3639
3640
3641
3642 033750 200 12 0 00 037667 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3643 033751 210 14 0 00 037667 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3644 033752 474 13 0 00 000000 SETO AC1, ;SET AC1 TO ALL ONES.
3645 033753 245 12 0 12 000000 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3646 ;TIMES IN ONE DIRECTION.
3647 033754 245 12 0 14 000000 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
3648 ;TIMES IN THE OPPOSITE DIRECTION.
3649 033755 312 12 0 00 037667 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3650 033756 004 12 0 00 037667 ERROR AC,RAN
3651 033757 312 13 0 00 037565 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3652 033760 004 13 0 00 037565 ERROR AC1,[-1]
3653 000013 AC=<AC+1>&17
3654 000014 AC1=<AC+1>&17
3655 000015 AC2=<AC+2>&17
3656
3657
3658
3659 033761 200 13 0 00 037667 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3660 033762 210 15 0 00 037667 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3661 033763 474 14 0 00 000000 SETO AC1, ;SET AC1 TO ALL ONES.
3662 033764 245 13 0 13 000000 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3663 ;TIMES IN ONE DIRECTION.
3664 033765 245 13 0 15 000000 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
3665 ;TIMES IN THE OPPOSITE DIRECTION.
3666 033766 312 13 0 00 037667 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3667 033767 004 13 0 00 037667 ERROR AC,RAN
3668 033770 312 14 0 00 037565 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3669 033771 004 14 0 00 037565 ERROR AC1,[-1]
3670 000014 AC=<AC+1>&17
3671 000015 AC1=<AC+1>&17
3672 000016 AC2=<AC+2>&17
3673
3674
3675 000002 AC=2
3676 LOOP RTCLR1,RTCLR2^
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 46-4
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0099
3677 033772 367 01 0 00 033631 SOJG AC-1,RTCLR1 ;ITERATION COUNTER
3678 033773 200 02 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3679 033774 321 01 0 00 033640 JUMPL AC-1,RTCLR2 ;LOOP ON ERROR SWITCH ^
3680
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 47
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0100
3681
3682 ;TEST OVERFLOW ON A ROT LEFT...AROV SHOULD NOT COME UP.
3683
3684 000002 AC=2
3685 033775 ROTOV: SETUP 20,0^
3686 000003 AC1=<AC+1>&17
3687 000004 AC2=<AC+2>&17
3688 000005 AC3=<AC+3>&17
3689 000006 AC4=<AC+4>&17
3690 000007 AC5=<AC+5>&17
3691 000000 RAN1=<AC-2>&17
3692 033775 201 01 0 00 033775 MOVEI AC-1,.
3693 033776 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3694 033777 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3695 034000 202 01 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3696 034001 201 01 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
3697 034002 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3698 034003 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3699 034004 ROTOV1: RANDOM^
3700 034004 200 02 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3701 034005 270 02 0 00 037562 ADD AC,[142536475076]
3702 034006 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3703 034007 447 02 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
3704 034010 322 02 0 00 034004 ROTOV2: JUMPE AC,ROTOV1 ;REJECT IF RAN = 0.
3705 034011 316 02 0 00 037565 CAMN AC,[-1] ;ALSO REJECT IF RAN = -1.
3706 034012 254 00 0 00 034004 JRST ROTOV1
3707 034013 255 10 0 00 034014 JFCL 10,.+1 ;CLEAR OV FLAG.
3708 034014 241 02 0 00 000256 ROT AC,256 ;ROT C(AC) 256 TIMES.
3709 034015 255 10 0 00 034017 JFCL 10,.+2 ;OV FLAG GET SET?
3710 034016 254 00 0 00 034020 JRST .+2 ;NO.
3711 034017 005 02 0 00 037567 ER AC,[ASCII /OV/] ;YES. SHOULD NOT SET ON A ROT.
3712 LOOP ROTOV1,ROTOV2^
3713 034020 367 01 0 00 034004 SOJG AC-1,ROTOV1 ;ITERATION COUNTER
3714 034021 200 02 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3715 034022 321 01 0 00 034010 JUMPL AC-1,ROTOV2 ;LOOP ON ERROR SWITCH ^
3716
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 48
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0101
3717
3718 ;TEST OVERFLOW FLAG ON A ROT RIGHT...SHOULD NEVER GET SET.
3719
3720 000003 AC=3
3721 034023 RTROV: SETUP 20,0^
3722 000004 AC1=<AC+1>&17
3723 000005 AC2=<AC+2>&17
3724 000006 AC3=<AC+3>&17
3725 000007 AC4=<AC+4>&17
3726 000010 AC5=<AC+5>&17
3727 000001 RAN1=<AC-2>&17
3728 034023 201 02 0 00 034023 MOVEI AC-1,.
3729 034024 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3730 034025 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3731 034026 202 02 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3732 034027 201 02 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
3733 034030 240 02 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3734 034031 240 02 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3735 034032 RTROV1: RANDOM^
3736 034032 200 03 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3737 034033 270 03 0 00 037562 ADD AC,[142536475076]
3738 034034 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3739 034035 447 03 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
3740 034036 322 03 0 00 034032 RTROV2: JUMPE AC,RTROV1 ;REJECT IF RAN = 0.
3741 034037 316 03 0 00 037565 CAMN AC,[-1] ;ALSO REJECT IF RAN = -1.
3742 034040 254 00 0 00 034032 JRST RTROV1
3743 034041 255 10 0 00 034042 JFCL 10,.+1 ;CLEAR OVERFLOW FLAG.
3744 034042 241 03 0 00 777522 ROT AC,-256 ;ROT AC RIGHT 256 TIMES.
3745 034043 255 10 0 00 034045 JFCL 10,.+2 ;OVERFLOW FALG GET SET?
3746 034044 254 00 0 00 034046 JRST .+2 ;NO.
3747 034045 005 03 0 00 037567 ER AC,[ASCII /OV/]
3748 LOOP RTROV1,RTROV2^
3749 034046 367 02 0 00 034032 SOJG AC-1,RTROV1 ;ITERATION COUNTER
3750 034047 200 03 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3751 034050 321 02 0 00 034036 JUMPL AC-1,RTROV2 ;LOOP ON ERROR SWITCH ^
3752
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 49
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0102
3753
3754 ;TEST MOVEM. AFTER <MOVEM AC,AC1> FOLLOWED BY
3755 ;<MOVEM AC1,AC>, C(AC) SHOULD = ORIG C(AC).
3756 ;RAN TO RAN1.
3757
3758 000002 AC=2
3759 034051 MVEM1: SETUP 30,0^
3760 000003 AC1=<AC+1>&17
3761 000004 AC2=<AC+2>&17
3762 000005 AC3=<AC+3>&17
3763 000006 AC4=<AC+4>&17
3764 000007 AC5=<AC+5>&17
3765 000000 RAN1=<AC-2>&17
3766 034051 201 01 0 00 034051 MOVEI AC-1,.
3767 034052 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3768 034053 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3769 034054 202 01 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3770 034055 201 01 0 00 000030 MOVEI AC-1,30 ;ROUTINE WEIGHTING
3771 034056 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3772 034057 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3773 034060 MVEM2: RANDOM^
3774 034060 200 02 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3775 034061 270 02 0 00 037562 ADD AC,[142536475076]
3776 034062 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3777 034063 447 02 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
3778 ;DO 3 SETS OF MOVEM'S.
3779 MVEM3: REPEAT 3,<
3780 MOVEM AC,AC1
3781 MOVEM AC1,AC>
3782
3783 034064 202 02 0 00 000003 MOVEM AC,AC1
3784 034065 202 03 0 00 000002 MOVEM AC1,AC
3785
3786 034066 202 02 0 00 000003 MOVEM AC,AC1
3787 034067 202 03 0 00 000002 MOVEM AC1,AC
3788
3789 034070 202 02 0 00 000003 MOVEM AC,AC1
3790 034071 202 03 0 00 000002 MOVEM AC1,AC
3791 034072 312 02 0 00 037667 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
3792 034073 004 02 0 00 037667 ERROR AC,RAN
3793 034074 312 03 0 00 037667 CAME AC1,RAN ;C(AC1) SHOULD ALSO = ORIG. C(AC).
3794 034075 004 03 0 00 037667 ERROR AC1,RAN
3795 LOOP MVEM2,MVEM3^
3796 034076 367 01 0 00 034060 SOJG AC-1,MVEM2 ;ITERATION COUNTER
3797 034077 200 02 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3798 034100 321 01 0 00 034064 JUMPL AC-1,MVEM3 ;LOOP ON ERROR SWITCH ^
3799
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 50
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0103
3800
3801 ;TEST MOVES. AFTER 6 MOVES IN A ROW, THE C(E)
3802 ;SHOULD = ORIG C(E).
3803
3804 000002 AC=2
3805 034101 MVES1: SETUP 200,1^
3806 000003 AC1=<AC+1>&17
3807 000004 AC2=<AC+2>&17
3808 000005 AC3=<AC+3>&17
3809 000006 AC4=<AC+4>&17
3810 000007 AC5=<AC+5>&17
3811 000000 RAN1=<AC-2>&17
3812 034101 201 01 0 00 034101 MOVEI AC-1,.
3813 034102 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3814 034103 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3815 034104 202 01 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3816 034105 201 01 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
3817 034106 240 01 1 00 030672 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
3818 034107 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3819 034110 MVES2: RANDOM^
3820 034110 200 02 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3821 034111 270 02 0 00 037562 ADD AC,[142536475076]
3822 034112 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3823 034113 447 02 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
3824 ;DO 6 MOVE INSTRUCTIONS.
3825 MVES3: REPEAT 3,<
3826 MOVES AC1,AC
3827 MOVES AC1,AC>
3828
3829 034114 203 03 0 00 000002 MOVES AC1,AC
3830 034115 203 03 0 00 000002 MOVES AC1,AC
3831
3832 034116 203 03 0 00 000002 MOVES AC1,AC
3833 034117 203 03 0 00 000002 MOVES AC1,AC
3834
3835 034120 203 03 0 00 000002 MOVES AC1,AC
3836 034121 203 03 0 00 000002 MOVES AC1,AC
3837 034122 312 03 0 00 000002 CAME AC1,AC ;C(AC) SHOULD = C(E).
3838 034123 004 03 0 00 000002 ERROR AC1,AC
3839 034124 312 02 0 00 037667 CAME AC,RAN ;C(E) SHOULD = ORIG C(E).
3840 034125 004 02 0 00 037667 ERROR AC,RAN
3841 LOOP MVES2,MVES3^
3842 034126 367 01 0 00 034110 SOJG AC-1,MVES2 ;ITERATION COUNTER
3843 034127 200 02 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3844 034130 321 01 0 00 034114 JUMPL AC-1,MVES3 ;LOOP ON ERROR SWITCH ^
3845
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 51
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0104
3846
3847 ;TEST MOVS INSTRUCTION...TWO MOVS SHOULD GIVE SAME NUMBER.
3848
3849 000004 AC=4
3850 034131 MOVSA: SETUP 200,2^
3851 000005 AC1=<AC+1>&17
3852 000006 AC2=<AC+2>&17
3853 000007 AC3=<AC+3>&17
3854 000010 AC4=<AC+4>&17
3855 000011 AC5=<AC+5>&17
3856 000002 RAN1=<AC-2>&17
3857 034131 201 03 0 00 034131 MOVEI AC-1,.
3858 034132 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3859 034133 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3860 034134 202 03 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3861 034135 201 03 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
3862 034136 240 03 1 00 030673 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
3863 034137 240 03 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3864 034140 MOVSB: RANDOM^
3865 034140 200 04 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3866 034141 270 04 0 00 037562 ADD AC,[142536475076]
3867 034142 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3868 034143 447 04 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
3869 ;DO 6 MOVS INSTRUCTIONS.
3870 MOVSC: REPEAT 3,<
3871 MOVS AC,AC
3872 MOVS AC,AC>
3873
3874 034144 204 04 0 00 000004 MOVS AC,AC
3875 034145 204 04 0 00 000004 MOVS AC,AC
3876
3877 034146 204 04 0 00 000004 MOVS AC,AC
3878 034147 204 04 0 00 000004 MOVS AC,AC
3879
3880 034150 204 04 0 00 000004 MOVS AC,AC
3881 034151 204 04 0 00 000004 MOVS AC,AC
3882 034152 312 04 0 00 037667 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3883 034153 011 00 0 00 037667 EERR ,RAN
3884 LOOP MOVSB,MOVSC^
3885 034154 367 03 0 00 034140 SOJG AC-1,MOVSB ;ITERATION COUNTER
3886 034155 200 04 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3887 034156 321 03 0 00 034144 JUMPL AC-1,MOVSC ;LOOP ON ERROR SWITCH ^
3888
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 52
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0105
3889
3890 ;TEST MOVS INSTRUCTION...MOVS FOLLOWED BY ROT SHOULD GIVE
3891 ;SAME NUMBER.
3892
3893 000005 AC=5
3894 034157 MOVS1: SETUP 200,1^
3895 000006 AC1=<AC+1>&17
3896 000007 AC2=<AC+2>&17
3897 000010 AC3=<AC+3>&17
3898 000011 AC4=<AC+4>&17
3899 000012 AC5=<AC+5>&17
3900 000003 RAN1=<AC-2>&17
3901 034157 201 04 0 00 034157 MOVEI AC-1,.
3902 034160 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3903 034161 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3904 034162 202 04 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3905 034163 201 04 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
3906 034164 240 04 1 00 030672 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
3907 034165 240 04 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3908 034166 MOVS2: RANDOM^
3909 034166 200 05 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3910 034167 270 05 0 00 037562 ADD AC,[142536475076]
3911 034170 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3912 034171 447 05 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
3913 034172 204 05 0 00 000005 MOVS3: MOVS AC,AC ;DO MOVS INSTRUCTION.
3914 034173 241 05 0 00 000022 ROT AC,22 ;ROT LEFT 18 PLACES.
3915 034174 312 05 0 00 037667 CAME AC,RAN ;C(AC) SHOULD NOW = RAN.
3916 034175 011 00 0 00 037667 EERR ,RAN
3917 LOOP MOVS2,MOVS3^
3918 034176 367 04 0 00 034166 SOJG AC-1,MOVS2 ;ITERATION COUNTER
3919 034177 200 05 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3920 034200 321 04 0 00 034172 JUMPL AC-1,MOVS3 ;LOOP ON ERROR SWITCH ^
3921
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 53
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0106
3922
3923 ;TEST MOVSM....TWO MOVSM SHOULD GIVE THE ORIG. NUM.
3924
3925 000006 AC=6
3926 034201 MOVSMA: SETUP 300,1^
3927 000007 AC1=<AC+1>&17
3928 000010 AC2=<AC+2>&17
3929 000011 AC3=<AC+3>&17
3930 000012 AC4=<AC+4>&17
3931 000013 AC5=<AC+5>&17
3932 000004 RAN1=<AC-2>&17
3933 034201 201 05 0 00 034201 MOVEI AC-1,.
3934 034202 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3935 034203 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3936 034204 202 05 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3937 034205 201 05 0 00 000300 MOVEI AC-1,300 ;ROUTINE WEIGHTING
3938 034206 240 05 1 00 030672 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
3939 034207 240 05 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3940 034210 MOVSMB: RANDOM^
3941 034210 200 06 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3942 034211 270 06 0 00 037562 ADD AC,[142536475076]
3943 034212 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3944 034213 447 06 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
3945
3946 MOVSMC: REPEAT 3,<
3947 MOVSM AC,AC1
3948 MOVSM AC1,AC>
3949
3950 034214 206 06 0 00 000007 MOVSM AC,AC1
3951 034215 206 07 0 00 000006 MOVSM AC1,AC
3952
3953 034216 206 06 0 00 000007 MOVSM AC,AC1
3954 034217 206 07 0 00 000006 MOVSM AC1,AC
3955
3956 034220 206 06 0 00 000007 MOVSM AC,AC1
3957 034221 206 07 0 00 000006 MOVSM AC1,AC
3958 034222 312 06 0 00 037667 CAME AC,RAN ;C(AC) SHOULD NOW BE = TO RAN.
3959 034223 004 06 0 00 037667 ERROR AC,RAN
3960 LOOP MOVSMB,MOVSMC^
3961 034224 367 05 0 00 034210 SOJG AC-1,MOVSMB ;ITERATION COUNTER
3962 034225 200 06 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3963 034226 321 05 0 00 034214 JUMPL AC-1,MOVSMC ;LOOP ON ERROR SWITCH ^
3964
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 54
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0107
3965
3966 ;TEST MOVSS...TWO MOVSS SHOULD GIVE THE ORIGINAL NUMBER.
3967
3968 000007 AC=7
3969 034227 MOVSSA: SETUP 200,0^
3970 000010 AC1=<AC+1>&17
3971 000011 AC2=<AC+2>&17
3972 000012 AC3=<AC+3>&17
3973 000013 AC4=<AC+4>&17
3974 000014 AC5=<AC+5>&17
3975 000005 RAN1=<AC-2>&17
3976 034227 201 06 0 00 034227 MOVEI AC-1,.
3977 034230 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3978 034231 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3979 034232 202 06 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3980 034233 201 06 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
3981 034234 240 06 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3982 034235 240 06 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3983 034236 MOVSSB: RANDOM^
3984 034236 200 07 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3985 034237 270 07 0 00 037562 ADD AC,[142536475076]
3986 034240 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3987 034241 447 07 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
3988 034242 403 00 0 00 000005 MOVSSC: SETZB 0,RAN1 ;CLEAR AC0.
3989
3990 REPEAT 3,<
3991 MOVSS AC
3992 MOVSS AC>
3993
3994 034243 207 00 0 00 000007 MOVSS AC
3995 034244 207 00 0 00 000007 MOVSS AC
3996
3997 034245 207 00 0 00 000007 MOVSS AC
3998 034246 207 00 0 00 000007 MOVSS AC
3999
4000 034247 207 00 0 00 000007 MOVSS AC
4001 034250 207 00 0 00 000007 MOVSS AC
4002 034251 312 07 0 00 037667 CAME AC,RAN ;C(AC) SHOULD NOW BE = TO RAN.
4003 034252 011 00 0 00 000005 EERR ,RAN1
4004 034253 312 00 0 00 037563 CAME [0] ;C(AC0) SHOULD STILL = 0.
4005 034254 011 00 0 00 000005 EERR ,RAN1
4006 LOOP MOVSSB,MOVSSC^
4007 034255 367 06 0 00 034236 SOJG AC-1,MOVSSB ;ITERATION COUNTER
4008 034256 200 07 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4009 034257 321 06 0 00 034242 JUMPL AC-1,MOVSSC ;LOOP ON ERROR SWITCH ^
4010
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 55
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0108
4011
4012 ;TEST MOVSI.
4013
4014 000010 AC=10
4015 034260 MOVSIA: SETUP 100,0^
4016 000011 AC1=<AC+1>&17
4017 000012 AC2=<AC+2>&17
4018 000013 AC3=<AC+3>&17
4019 000014 AC4=<AC+4>&17
4020 000015 AC5=<AC+5>&17
4021 000006 RAN1=<AC-2>&17
4022 034260 201 07 0 00 034260 MOVEI AC-1,.
4023 034261 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4024 034262 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4025 034263 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4026 034264 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4027 034265 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4028 034266 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4029 034267 MOVSIB: RANDOM^
4030 034267 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4031 034270 270 10 0 00 037562 ADD AC,[142536475076]
4032 034271 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4033 034272 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
4034 034273 200 12 0 00 037667 MOVE AC2,RAN ;PUT RAN INTO AN AC.
4035 034274 405 10 0 00 777777 MOVSIC: ANDI AC,-1 ;SIMULATE
4036 034275 241 10 0 00 000022 ROT AC,22 ;A MOVSI INST.
4037 034276 205 11 0 12 000000 MOVSI AC1,(AC2) ;DO MOVSI.
4038 034277 312 11 0 00 000010 CAME AC1,AC ;C(AC1) SHOULD = SIM. ANS.
4039 034300 004 11 0 00 000010 ERROR AC1,AC
4040 LOOP MOVSIB,MOVSIC^
4041 034301 367 07 0 00 034267 SOJG AC-1,MOVSIB ;ITERATION COUNTER
4042 034302 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4043 034303 321 07 0 00 034274 JUMPL AC-1,MOVSIC ;LOOP ON ERROR SWITCH ^
4044
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 56
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0109
4045
4046 ;TEST LSH. SIMULATE A LSH 18 PLACES WITH A MOVSI.
4047
4048 000011 AC=11
4049 034304 LSHA: SETUP 200,1^
4050 000012 AC1=<AC+1>&17
4051 000013 AC2=<AC+2>&17
4052 000014 AC3=<AC+3>&17
4053 000015 AC4=<AC+4>&17
4054 000016 AC5=<AC+5>&17
4055 000007 RAN1=<AC-2>&17
4056 034304 201 10 0 00 034304 MOVEI AC-1,.
4057 034305 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4058 034306 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4059 034307 202 10 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4060 034310 201 10 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
4061 034311 240 10 1 00 030672 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
4062 034312 240 10 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4063 034313 LSHB: RANDOM^
4064 034313 200 11 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4065 034314 270 11 0 00 037562 ADD AC,[142536475076]
4066 034315 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4067 034316 447 11 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
4068 034317 474 12 0 00 000000 LSHC: SETO AC1, ;SET AC+1 TO ALL ONES.
4069 034320 205 13 0 11 000000 MOVSI AC2,(AC) ;SIMULATE LSH 18 PLACES.
4070 034321 242 11 0 00 000022 LSH AC,22 ;DO LSH
4071 034322 312 11 0 00 000013 CAME AC,AC2 ;C(AC) SHOULD = SIM. ANS.
4072 034323 004 11 0 00 000013 ERROR AC,AC2
4073 034324 312 12 0 00 037565 CAME AC1,[-1] ;AC1 GET CHANGED?
4074 034325 004 12 0 00 037565 ERROR AC1,[-1] ;YES.
4075 LOOP LSHB,LSHC^
4076 034326 367 10 0 00 034313 SOJG AC-1,LSHB ;ITERATION COUNTER
4077 034327 200 11 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4078 034330 321 10 0 00 034317 JUMPL AC-1,LSHC ;LOOP ON ERROR SWITCH ^
4079
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 57
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0110
4080
4081 ;TEST LSH RIGHT 18 PLACES.
4082
4083 000010 AC=10
4084 034331 LSH1: SETUP 200,1^
4085 000011 AC1=<AC+1>&17
4086 000012 AC2=<AC+2>&17
4087 000013 AC3=<AC+3>&17
4088 000014 AC4=<AC+4>&17
4089 000015 AC5=<AC+5>&17
4090 000006 RAN1=<AC-2>&17
4091 034331 201 07 0 00 034331 MOVEI AC-1,.
4092 034332 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4093 034333 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4094 034334 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4095 034335 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
4096 034336 240 07 1 00 030672 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
4097 034337 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4098 034340 LSH2: RANDOM^
4099 034340 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4100 034341 270 10 0 00 037562 ADD AC,[142536475076]
4101 034342 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4102 034343 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
4103 034344 477 11 0 00 000006 LSH3: SETOB AC1,RAN1 ;SET C(AC+1) TO ALL ONES.
4104 034345 242 10 0 00 777756 LSH AC,-22 ;DO LSH RIGHT 18 PLACES.
4105 034346 204 12 0 00 037667 MOVS AC2,RAN ;SIMULATE
4106 034347 405 12 0 00 777777 ANDI AC2,-1 ;LSH.
4107 034350 312 10 0 00 000012 CAME AC,AC2 ;C(AC) SHOULD = SIM. ANS.
4108 034351 013 00 0 00 777756 EERRI ,-22
4109 034352 312 11 0 00 037565 CAME AC1,[-1] ;C(AC+1) GET CHANGED?
4110 034353 003 06 0 00 777756 ERRI RAN1,-22
4111 LOOP LSH2,LSH3^
4112 034354 367 07 0 00 034340 SOJG AC-1,LSH2 ;ITERATION COUNTER
4113 034355 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4114 034356 321 07 0 00 034344 JUMPL AC-1,LSH3 ;LOOP ON ERROR SWITCH ^
4115
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 58
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0111
4116
4117 ;TEST ASH ABILITY TO SET OR NOT SET OVERFLOW FLAG.
4118
4119 000010 AC=10
4120 034357 ASHOV: SETUP 30,0^
4121 000011 AC1=<AC+1>&17
4122 000012 AC2=<AC+2>&17
4123 000013 AC3=<AC+3>&17
4124 000014 AC4=<AC+4>&17
4125 000015 AC5=<AC+5>&17
4126 000006 RAN1=<AC-2>&17
4127 034357 201 07 0 00 034357 MOVEI AC-1,.
4128 034360 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4129 034361 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4130 034362 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4131 034363 201 07 0 00 000030 MOVEI AC-1,30 ;ROUTINE WEIGHTING
4132 034364 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4133 034365 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4134 034366 474 10 0 00 000000 ASHOV1: SETO AC, ;SET AC TO ALL ONES..1,1 CONDITION.
4135 034367 255 10 0 00 034370 JFCL 10,.+1 ;CLEAR OV FLAG.
4136 034370 240 10 0 00 000001 ASH AC,1 ;DO ASH.
4137 034371 255 10 0 00 034373 JFCL 10,.+2 ;OVERFLOW FLAG GET SET?
4138 034372 254 00 0 00 034374 JRST .+2 ;NO.
4139 034373 005 10 0 00 037567 ER AC,[ASCII /OV/] ;YES. 1,1 CONDITION SHOULD NOT SET IT.
4140 034374 255 10 0 00 034375 JFCL 10,.+1 ;CLEAR OV FLAG.
4141 034375 400 10 0 00 000000 SETZ AC, ;CLEAR AC...0,0 CONDITION.
4142 034376 240 10 0 00 000001 ASH AC,1 ;DO ASH.
4143 034377 255 10 0 00 034401 JFCL 10,.+2 ;OVERFLOW FLAG GET SET?
4144 034400 254 00 0 00 034402 JRST .+2 ;NO.
4145 034401 005 10 0 00 037567 ER AC,[ASCII /OV/] ;YES. 0,0 COND. SHOULDN'T SET IT.
4146 034402 255 10 0 00 034403 JFCL 10,.+1 ;CLEAR OV FLAG.
4147 034403 205 10 0 00 377777 MOVSI AC,377777 ;SET AC FOR 0,1 CONDITION.
4148 034404 240 10 0 00 000001 ASH AC,1 ;DO ASH.
4149 034405 255 10 0 00 034407 JFCL 10,.+2 ;OVERFLOW FLAG GET SET?
4150 034406 005 10 0 00 037567 ER AC,[ASCII /OV/] ;NO. 0,1 COND. SHOULD SET IT.
4151 034407 255 10 0 00 034410 JFCL 10,.+1 ;CLEAR OV FLAG.
4152 034410 205 10 0 00 400000 MOVSI AC,400000 ;SET AC FOR 1,0 CONDITION.
4153 034411 240 10 0 00 000001 ASH AC,1 ;DO ASH.
4154 034412 255 10 0 00 034414 JFCL 10,.+2 ;OV FLAG GET SET?
4155 034413 005 10 0 00 037567 ER AC,[ASCII /OV/] ;NO. 1,0 COND. SHOULD SET IT.
4156 LOOP ASHOV1,ASHOV1^
4157 034414 367 07 0 00 034366 SOJG AC-1,ASHOV1 ;ITERATION COUNTER
4158 034415 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4159 034416 321 07 0 00 034366 JUMPL AC-1,ASHOV1 ;LOOP ON ERROR SWITCH ^
4160
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 59
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0112
4161
4162 ;TEST ASH. DO ASH RIGHT 36 PLACES WITH ORIG.
4163 ;C(AC) = 400000000000. AFTER ASH THE C(AC) SHOULD = A -1.
4164
4165 000010 AC=10
4166 034417 ASH1: SETUP 20,0^
4167 000011 AC1=<AC+1>&17
4168 000012 AC2=<AC+2>&17
4169 000013 AC3=<AC+3>&17
4170 000014 AC4=<AC+4>&17
4171 000015 AC5=<AC+5>&17
4172 000006 RAN1=<AC-2>&17
4173 034417 201 07 0 00 034417 MOVEI AC-1,.
4174 034420 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4175 034421 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4176 034422 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4177 034423 201 07 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
4178 034424 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4179 034425 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4180 034426 200 10 0 00 037570 ASH2: MOVE AC,[XWD 400000,0] ;MAKE C(AC) = ALL 0'S WITH SIGN BIT SET.
4181 034427 240 10 0 00 777734 ASH AC,-44 ;DO ASH RIGHT 36 PLACES...SIGN
4182 034430 312 10 0 00 037565 CAME AC,[-1] ;BIT SHOULD HAVE SET ALL BITS TO A ONE.
4183 034431 004 10 0 00 037565 ERROR AC,[-1]
4184 LOOP ASH2,ASH2^
4185 034432 367 07 0 00 034426 SOJG AC-1,ASH2 ;ITERATION COUNTER
4186 034433 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4187 034434 321 07 0 00 034426 JUMPL AC-1,ASH2 ;LOOP ON ERROR SWITCH ^
4188
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 60
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0113
4189
4190 ;TEST ASH. DO ASH LEFT 36 PLACES WITH ORIG. C(AC) =
4191 ;TO A -1. AFTER ASH THE C(AC) SHOULD = THE SIGN
4192 ;BIT SET AND THE REST ZEROS.
4193
4194 000011 AC=11
4195 034435 ASH3: SETUP 20,0^
4196 000012 AC1=<AC+1>&17
4197 000013 AC2=<AC+2>&17
4198 000014 AC3=<AC+3>&17
4199 000015 AC4=<AC+4>&17
4200 000016 AC5=<AC+5>&17
4201 000007 RAN1=<AC-2>&17
4202 034435 201 10 0 00 034435 MOVEI AC-1,.
4203 034436 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4204 034437 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4205 034440 202 10 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4206 034441 201 10 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
4207 034442 240 10 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4208 034443 240 10 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4209 034444 200 11 0 00 037565 ASH4: MOVE AC,[-1] ;MAKE C(AC) = A -1.
4210 034445 240 11 0 00 000044 ASH AC,44 ;DO ASH LEFT 36 PLACES..0'S GOING
4211 034446 312 11 0 00 037570 CAME AC,[XWD 400000,0] ;INTO BIT 35 SHOULD JUST LEAVE SIGN BIT SET.
4212 034447 004 11 0 00 037563 ERROR AC,[0]
4213 LOOP ASH4,ASH4^
4214 034450 367 10 0 00 034444 SOJG AC-1,ASH4 ;ITERATION COUNTER
4215 034451 200 11 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4216 034452 321 10 0 00 034444 JUMPL AC-1,ASH4 ;LOOP ON ERROR SWITCH ^
4217
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 61
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0114
4218
4219 ;TEST ADD. RAN TO 0 CONDITION.
4220
4221 000010 AC=10
4222 034453 ADD1: SETUP 100,0^
4223 000011 AC1=<AC+1>&17
4224 000012 AC2=<AC+2>&17
4225 000013 AC3=<AC+3>&17
4226 000014 AC4=<AC+4>&17
4227 000015 AC5=<AC+5>&17
4228 000006 RAN1=<AC-2>&17
4229 034453 201 07 0 00 034453 MOVEI AC-1,.
4230 034454 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4231 034455 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4232 034456 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4233 034457 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4234 034460 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4235 034461 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4236 034462 ADD2: RANDOM^
4237 034462 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4238 034463 270 10 0 00 037562 ADD AC,[142536475076]
4239 034464 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4240 034465 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
4241 034466 400 10 0 00 000000 ADD3: SETZ AC, ;CLEAR AC.
4242 034467 270 10 0 00 037667 ADD AC,RAN ;ADD RAN TO 0.
4243 034470 312 10 0 00 037667 CAME AC,RAN ;C(AC) SHOULD = RAN NUM.
4244 034471 004 10 0 00 037667 ERROR AC,RAN
4245 LOOP ADD2,ADD3^
4246 034472 367 07 0 00 034462 SOJG AC-1,ADD2 ;ITERATION COUNTER
4247 034473 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4248 034474 321 07 0 00 034466 JUMPL AC-1,ADD3 ;LOOP ON ERROR SWITCH ^
4249
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 62
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0115
4250
4251 ; TEST ADD. 0 TO RAN CONDITION.
4252
4253 000010 AC=10
4254 034475 ADD1A: SETUP 100,0^
4255 000011 AC1=<AC+1>&17
4256 000012 AC2=<AC+2>&17
4257 000013 AC3=<AC+3>&17
4258 000014 AC4=<AC+4>&17
4259 000015 AC5=<AC+5>&17
4260 000006 RAN1=<AC-2>&17
4261 034475 201 07 0 00 034475 MOVEI AC-1,.
4262 034476 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4263 034477 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4264 034500 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4265 034501 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4266 034502 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4267 034503 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4268 034504 ADD2A: RANDOM^
4269 034504 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4270 034505 270 10 0 00 037562 ADD AC,[142536475076]
4271 034506 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4272 034507 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
4273 ;ADD A CONSTANT 0 TO RAN 5 TIMES.
4274 ADD3A: REPEAT 5,<
4275 ADD AC,[0]>
4276
4277 034510 270 10 0 00 037563 ADD AC,[0]
4278
4279 034511 270 10 0 00 037563 ADD AC,[0]
4280
4281 034512 270 10 0 00 037563 ADD AC,[0]
4282
4283 034513 270 10 0 00 037563 ADD AC,[0]
4284
4285 034514 270 10 0 00 037563 ADD AC,[0]
4286 034515 312 10 0 00 037667 CAME AC,RAN ;C(AC) SHOULD STILL = RAN NUM.
4287 034516 004 10 0 00 037667 ERROR AC,RAN
4288 LOOP ADD2A,ADD3A^
4289 034517 367 07 0 00 034504 SOJG AC-1,ADD2A ;ITERATION COUNTER
4290 034520 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4291 034521 321 07 0 00 034510 JUMPL AC-1,ADD3A ;LOOP ON ERROR SWITCH ^
4292
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 63
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0116
4293
4294 ;TEST ADD. ADD 1'S COMP OF RAN TO RAN.
4295 ;SHOULD GET A -1.
4296
4297 000010 AC=10
4298 034522 ADD1B: SETUP 100,0^
4299 000011 AC1=<AC+1>&17
4300 000012 AC2=<AC+2>&17
4301 000013 AC3=<AC+3>&17
4302 000014 AC4=<AC+4>&17
4303 000015 AC5=<AC+5>&17
4304 000006 RAN1=<AC-2>&17
4305 034522 201 07 0 00 034522 MOVEI AC-1,.
4306 034523 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4307 034524 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4308 034525 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4309 034526 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4310 034527 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4311 034530 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4312 034531 ADD2B: RANDOM^
4313 034531 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4314 034532 270 10 0 00 037562 ADD AC,[142536475076]
4315 034533 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4316 034534 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
4317 034535 460 11 0 00 037667 ADD3B: SETCM AC1,RAN ;1'S COMP OF RAN TO AC1.
4318 034536 270 10 0 00 000011 ADD AC,AC1 ;ADD IT TO RAN.
4319 034537 312 10 0 00 037565 CAME AC,[-1] ;C(AC) SHOULD = -1.
4320 034540 004 10 0 00 037565 ERROR AC,[-1]
4321 LOOP ADD2B,ADD3B^
4322 034541 367 07 0 00 034531 SOJG AC-1,ADD2B ;ITERATION COUNTER
4323 034542 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4324 034543 321 07 0 00 034535 JUMPL AC-1,ADD3B ;LOOP ON ERROR SWITCH ^
4325
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 64
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0117
4326
4327 ;TEST ADD. CHECK CRY0,CRY1,AND OV FLAGS.
4328 ;ADD, TO A RANDOM NUMBER, A -1 AND THEN A +1.
4329 ;CRY0 AND CRY1 SHOULD BOTH GET SET AND AROV SHOULD NOT GET SET.
4330
4331 000010 AC=10
4332 034544 ADD1C: SETUP 400,2^
4333 000011 AC1=<AC+1>&17
4334 000012 AC2=<AC+2>&17
4335 000013 AC3=<AC+3>&17
4336 000014 AC4=<AC+4>&17
4337 000015 AC5=<AC+5>&17
4338 000006 RAN1=<AC-2>&17
4339 034544 201 07 0 00 034544 MOVEI AC-1,.
4340 034545 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4341 034546 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4342 034547 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4343 034550 201 07 0 00 000400 MOVEI AC-1,400 ;ROUTINE WEIGHTING
4344 034551 240 07 1 00 030673 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
4345 034552 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4346 034553 ADD2C: RANDOM^
4347 034553 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4348 034554 270 10 0 00 037562 ADD AC,[142536475076]
4349 034555 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4350 034556 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
4351 034557 255 17 0 00 034560 ADD3C: JFCL 17,.+1 ;CLEAR ALL FLAGS.
4352 034560 270 10 0 00 037565 ADD AC,[-1] ;ADD A -1 TO RAN.
4353 034561 270 10 0 00 037571 ADD AC,[1] ;ADD A +1 TO ANS OF ADDITION OF RAN AND A -1.
4354 034562 312 10 0 00 037667 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
4355 034563 004 10 0 00 037667 ERROR AC,RAN
4356 034564 255 04 0 00 034570 JFCL 4,CRY0A
4357 034565 255 02 0 00 034567 JFCL 2,.+2
4358 034566 254 00 0 00 034573 JRST BOTHF
4359 034567 005 10 0 00 037572 ER AC,[ASCII /CRY0/];CRY0 FAILED TO GET SET.
4360 034570 255 02 0 00 034572 CRY0A: JFCL 2,.+2
4361 034571 005 10 0 00 037573 ER AC,[ASCII /CRY1/];CRY1 FAILED TO GET SET.
4362 034572 254 00 0 00 034574 JRST AROVA
4363 034573 005 10 0 00 037574 BOTHF: ER AC,[ASCII /CRY01/];BOTH CRY0 + CRY1 FAILED TO GET SET.
4364 034574 255 10 0 00 034576 AROVA: JFCL 10,.+2
4365 034575 254 00 0 00 034577 JRST ADD4C
4366 034576 005 10 0 00 037567 ER AC,[ASCII /OV/] ;AROV GOT SET.
4367 034577 ADD4C: LOOP ADD2C,ADD3C^
4368 034577 367 07 0 00 034553 SOJG AC-1,ADD2C ;ITERATION COUNTER
4369 034600 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4370 034601 321 07 0 00 034557 JUMPL AC-1,ADD3C ;LOOP ON ERROR SWITCH ^
4371
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 65
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0118
4372
4373 ;TEST ADDM. WHERE E IS AN AC.
4374 ;RAN TO 0 CONDITION.
4375
4376 000004 AC=4
4377 034602 ADDM1: SETUP 100,0^
4378 000005 AC1=<AC+1>&17
4379 000006 AC2=<AC+2>&17
4380 000007 AC3=<AC+3>&17
4381 000010 AC4=<AC+4>&17
4382 000011 AC5=<AC+5>&17
4383 000002 RAN1=<AC-2>&17
4384 034602 201 03 0 00 034602 MOVEI AC-1,.
4385 034603 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4386 034604 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4387 034605 202 03 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4388 034606 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4389 034607 240 03 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4390 034610 240 03 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4391 034611 ADDM2: RANDOM^
4392 034611 200 04 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4393 034612 270 04 0 00 037562 ADD AC,[142536475076]
4394 034613 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4395 034614 447 04 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
4396 034615 200 06 0 00 037667 MOVE AC2,RAN ;SAVE RAN IN AN AC.
4397 034616 403 05 0 00 000002 ADDM3: SETZB AC1,RAN1 ;MAKE C(E) = 0.
4398 034617 272 04 0 00 000005 ADDM AC,AC1 ;DO ADDM.
4399 034620 312 06 0 00 000005 CAME AC2,AC1 ;C(E) SHOULD =ORIG C(AC).
4400 034621 002 02 0 00 037667 ERRM RAN1,RAN
4401 LOOP ADDM2,ADDM3^
4402 034622 367 03 0 00 034611 SOJG AC-1,ADDM2 ;ITERATION COUNTER
4403 034623 200 04 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4404 034624 321 03 0 00 034616 JUMPL AC-1,ADDM3 ;LOOP ON ERROR SWITCH ^
4405
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 66
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0119
4406
4407 ;TEST ADDM. WHERE E IS AN AC.
4408 ;0 TO RAN CONDITION.
4409
4410 000005 AC=5
4411 034625 ADDM1A: SETUP 100,0^
4412 000006 AC1=<AC+1>&17
4413 000007 AC2=<AC+2>&17
4414 000010 AC3=<AC+3>&17
4415 000011 AC4=<AC+4>&17
4416 000012 AC5=<AC+5>&17
4417 000003 RAN1=<AC-2>&17
4418 034625 201 04 0 00 034625 MOVEI AC-1,.
4419 034626 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4420 034627 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4421 034630 202 04 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4422 034631 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4423 034632 240 04 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4424 034633 240 04 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4425 034634 ADDM2A: RANDOM^
4426 034634 200 05 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4427 034635 270 05 0 00 037562 ADD AC,[142536475076]
4428 034636 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4429 034637 447 05 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
4430 034640 200 07 0 00 037667 MOVE AC2,RAN ;SAVE RAN IN AN AC.
4431 034641 403 06 0 00 000003 ADDM3A: SETZB AC1,RAN1 ;MAKE C(AC) = 0.
4432 034642 272 06 0 00 000005 ADDM AC1,AC ;DO ADDM.
4433 034643 312 07 0 00 000005 CAME AC2,AC ;C(E) SHOULD = ORIG C(E).
4434 034644 012 00 0 00 000003 EERRM ,RAN1
4435 LOOP ADDM2A,ADDM3A^
4436 034645 367 04 0 00 034634 SOJG AC-1,ADDM2A ;ITERATION COUNTER
4437 034646 200 05 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4438 034647 321 04 0 00 034641 JUMPL AC-1,ADDM3A ;LOOP ON ERROR SWITCH ^
4439
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 67
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0120
4440
4441 ;TEST ADDM. WHERE E IS AN AC.
4442 ;1'S COMP RAN TO RAN.
4443
4444 000006 AC=6
4445 034650 ADDM1B: SETUP 100,0^
4446 000007 AC1=<AC+1>&17
4447 000010 AC2=<AC+2>&17
4448 000011 AC3=<AC+3>&17
4449 000012 AC4=<AC+4>&17
4450 000013 AC5=<AC+5>&17
4451 000004 RAN1=<AC-2>&17
4452 034650 201 05 0 00 034650 MOVEI AC-1,.
4453 034651 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4454 034652 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4455 034653 202 05 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4456 034654 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4457 034655 240 05 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4458 034656 240 05 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4459 034657 ADDM2B: RANDOM^
4460 034657 200 06 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4461 034660 270 06 0 00 037562 ADD AC,[142536475076]
4462 034661 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4463 034662 447 06 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
4464 034663 460 07 0 00 000006 ADDM3B: SETCM AC1,AC ;MAKE C(AC) = 1'S COMP OF C(E).
4465 034664 200 04 0 00 000007 MOVE RAN1,AC1 ;SAVE C(AC) IN CASE OF ERROR.
4466 034665 272 07 0 00 000006 ADDM AC1,AC ;DO ADDM.
4467 034666 312 06 0 00 037565 CAME AC,[-1] ;C(E) SHOULD = A -1.
4468 034667 012 00 0 00 000004 EERRM ,RAN1
4469 LOOP ADDM2B,ADDM3B^
4470 034670 367 05 0 00 034657 SOJG AC-1,ADDM2B ;ITERATION COUNTER
4471 034671 200 06 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4472 034672 321 05 0 00 034663 JUMPL AC-1,ADDM3B ;LOOP ON ERROR SWITCH ^
4473
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 68
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0121
4474
4475 ;TEST ADDI. CHECK C(AC) FOR CORRECT DATA.
4476 ;0 TO RAN CONDITION.
4477
4478 000002 AC=2
4479 034673 ADDI1: SETUP 20,0^
4480 000003 AC1=<AC+1>&17
4481 000004 AC2=<AC+2>&17
4482 000005 AC3=<AC+3>&17
4483 000006 AC4=<AC+4>&17
4484 000007 AC5=<AC+5>&17
4485 000000 RAN1=<AC-2>&17
4486 034673 201 01 0 00 034673 MOVEI AC-1,.
4487 034674 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4488 034675 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4489 034676 202 01 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4490 034677 201 01 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
4491 034700 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4492 034701 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4493 034702 ADDI2: RANDOM^
4494 034702 200 02 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4495 034703 270 02 0 00 037562 ADD AC,[142536475076]
4496 034704 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4497 034705 447 02 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
4498 034706 271 02 0 00 000000 ADDI3: ADDI AC,0 ;DO ADDI.
4499 034707 312 02 0 00 037667 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
4500 034710 013 00 0 00 000000 EERRI ,0
4501 LOOP ADDI2,ADDI3^
4502 034711 367 01 0 00 034702 SOJG AC-1,ADDI2 ;ITERATION COUNTER
4503 034712 200 02 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4504 034713 321 01 0 00 034706 JUMPL AC-1,ADDI3 ;LOOP ON ERROR SWITCH ^
4505
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 69
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0122
4506
4507 ;TEST ADDI. CHECK FOR CORRECT DATA IN AC.
4508 ;RAN TO 0 CONDITION.
4509
4510 000002 AC=2
4511 034714 ADDI1A: SETUP 100,0^
4512 000003 AC1=<AC+1>&17
4513 000004 AC2=<AC+2>&17
4514 000005 AC3=<AC+3>&17
4515 000006 AC4=<AC+4>&17
4516 000007 AC5=<AC+5>&17
4517 000000 RAN1=<AC-2>&17
4518 034714 201 01 0 00 034714 MOVEI AC-1,.
4519 034715 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4520 034716 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4521 034717 202 01 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4522 034720 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4523 034721 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4524 034722 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4525 034723 ADDI2A: RANDOM^
4526 034723 200 02 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4527 034724 270 02 0 00 037562 ADD AC,[142536475076]
4528 034725 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4529 034726 447 02 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
4530 034727 403 03 0 00 000000 ADDI3A: SETZB AC1,RAN1 ;CLEAR C(AC).
4531 034730 201 04 0 02 000000 MOVEI AC2,(AC) ;SIMULATE ADDI.
4532 034731 271 03 0 02 000000 ADDI AC1,(AC) ;DO ADDI.
4533 034732 312 03 0 00 000004 CAME AC1,AC2 ;C(AC) SHOULD = SIM. ANS.
4534 034733 003 00 0 02 000000 ERRI RAN1,(AC)
4535 LOOP ADDI2A,ADDI3A^
4536 034734 367 01 0 00 034723 SOJG AC-1,ADDI2A ;ITERATION COUNTER
4537 034735 200 02 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4538 034736 321 01 0 00 034727 JUMPL AC-1,ADDI3A ;LOOP ON ERROR SWITCH ^
4539
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 70
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0123
4540
4541 ;TEST ADDI. CHECK FOR CORRECT DATA IN AC.
4542 ;1'S COMP RAN TO RAN.
4543
4544 000003 AC=3
4545 034737 ADDI1B: SETUP 40,0^
4546 000004 AC1=<AC+1>&17
4547 000005 AC2=<AC+2>&17
4548 000006 AC3=<AC+3>&17
4549 000007 AC4=<AC+4>&17
4550 000010 AC5=<AC+5>&17
4551 000001 RAN1=<AC-2>&17
4552 034737 201 02 0 00 034737 MOVEI AC-1,.
4553 034740 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4554 034741 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4555 034742 202 02 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4556 034743 201 02 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
4557 034744 240 02 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4558 034745 240 02 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4559 034746 ADDI2B: RANDOM^
4560 034746 200 03 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4561 034747 270 03 0 00 037562 ADD AC,[142536475076]
4562 034750 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4563 034751 447 03 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
4564 034752 460 04 0 00 000003 ADDI3B: SETCM AC1,AC ;MAKE C(AC) = 1'S COMP OF E.
4565 034753 200 05 0 00 000004 MOVE AC2,AC1 ;SIMULATE
4566 034754 435 05 0 00 777777 IORI AC2,-1 ;ADDI INST.
4567 034755 200 01 0 00 000004 MOVE RAN1,AC1 ;SAVE C(AC) IN CASE OF ERROR.
4568 034756 271 04 0 03 000000 ADDI AC1,(AC) ;DO ADDI.
4569 034757 312 04 0 00 000005 CAME AC1,AC2 ;C(AC) SHOULD = SIM. ANS.
4570 034760 003 01 0 03 000000 ERRI RAN1,(AC)
4571 LOOP ADDI2B,ADDI3B^
4572 034761 367 02 0 00 034746 SOJG AC-1,ADDI2B ;ITERATION COUNTER
4573 034762 200 03 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4574 034763 321 02 0 00 034752 JUMPL AC-1,ADDI3B ;LOOP ON ERROR SWITCH ^
4575
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 71
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0124
4576
4577 ;TEST ADDB. CHECK FOR C(AC) = C(E), AND CORRECT
4578 ;DATA IN AC FOR 0 TO RAN CONDITION.
4579
4580 000004 AC=4
4581 034764 ADDB1: SETUP 100,0^
4582 000005 AC1=<AC+1>&17
4583 000006 AC2=<AC+2>&17
4584 000007 AC3=<AC+3>&17
4585 000010 AC4=<AC+4>&17
4586 000011 AC5=<AC+5>&17
4587 000002 RAN1=<AC-2>&17
4588 034764 201 03 0 00 034764 MOVEI AC-1,.
4589 034765 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4590 034766 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4591 034767 202 03 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4592 034770 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4593 034771 240 03 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4594 034772 240 03 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4595 034773 ADDB2: RANDOM^
4596 034773 200 04 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4597 034774 270 04 0 00 037562 ADD AC,[142536475076]
4598 034775 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4599 034776 447 04 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
4600 034777 403 05 0 00 000002 ADDB3: SETZB AC1,RAN1 ;CLEAR C(E).
4601 035000 273 04 0 00 000005 ADDB AC,AC1 ;DO ADDB.
4602 035001 312 04 0 00 000005 CAME AC,AC1 ;C(AC) SHOULLD = C(E).
4603 035002 001 02 0 00 037667 ERR RAN1,RAN
4604 035003 312 04 0 00 037667 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
4605 035004 001 02 0 00 037667 ERR RAN1,RAN
4606 LOOP ADDB2,ADDB3^
4607 035005 367 03 0 00 034773 SOJG AC-1,ADDB2 ;ITERATION COUNTER
4608 035006 200 04 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4609 035007 321 03 0 00 034777 JUMPL AC-1,ADDB3 ;LOOP ON ERROR SWITCH ^
4610
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 72
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0125
4611
4612 ;TEST ADDB. CHECK FOR C(AC) = C(E), AND CORRECT
4613 ;DATA IN AC FOR RAN TO 0 CONDITION.
4614
4615 000005 AC=5
4616 035010 ADDB1A: SETUP 100,0^
4617 000006 AC1=<AC+1>&17
4618 000007 AC2=<AC+2>&17
4619 000010 AC3=<AC+3>&17
4620 000011 AC4=<AC+4>&17
4621 000012 AC5=<AC+5>&17
4622 000003 RAN1=<AC-2>&17
4623 035010 201 04 0 00 035010 MOVEI AC-1,.
4624 035011 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4625 035012 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4626 035013 202 04 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4627 035014 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4628 035015 240 04 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4629 035016 240 04 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4630 035017 ADDB2A: RANDOM^
4631 035017 200 05 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4632 035020 270 05 0 00 037562 ADD AC,[142536475076]
4633 035021 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4634 035022 447 05 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
4635 035023 403 06 0 00 000003 ADDB3A: SETZB AC1,RAN1 ;CLEAR C(AC).
4636 035024 273 06 0 00 000005 ADDB AC1,AC ;DO ADDB.
4637 035025 312 06 0 00 000005 CAME AC1,AC ;C(AC) SHOULD = C(E).
4638 035026 011 00 0 00 000003 EERR ,RAN1
4639 035027 312 06 0 00 037667 CAME AC1,RAN ;C(AC) SHOULD = ORIG C(E).
4640 035030 011 00 0 00 000003 EERR ,RAN1
4641 LOOP ADDB2A,ADDB3A^
4642 035031 367 04 0 00 035017 SOJG AC-1,ADDB2A ;ITERATION COUNTER
4643 035032 200 05 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4644 035033 321 04 0 00 035023 JUMPL AC-1,ADDB3A ;LOOP ON ERROR SWITCH ^
4645
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 73
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0126
4646
4647 ;TEST ADDB. CHECK FOR C(AC) = C(E), AND CORRECT DATA
4648 ;IN AC FOR NOT RAN TO RAN CONDITION.
4649
4650 000006 AC=6
4651 035034 ADDB1B: SETUP 100,0^
4652 000007 AC1=<AC+1>&17
4653 000010 AC2=<AC+2>&17
4654 000011 AC3=<AC+3>&17
4655 000012 AC4=<AC+4>&17
4656 000013 AC5=<AC+5>&17
4657 000004 RAN1=<AC-2>&17
4658 035034 201 05 0 00 035034 MOVEI AC-1,.
4659 035035 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4660 035036 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4661 035037 202 05 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4662 035040 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4663 035041 240 05 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4664 035042 240 05 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4665 035043 ADDB2B: RANDOM^
4666 035043 200 06 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4667 035044 270 06 0 00 037562 ADD AC,[142536475076]
4668 035045 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4669 035046 447 06 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
4670 035047 460 07 0 00 000006 ADDB3B: SETCM AC1,AC ;MAKE C(E) = 1'S COMP OF C(AC).
4671 035050 200 04 0 00 000007 MOVE RAN1,AC1 ;SAVE C(E) IN CASE OF ERROR.
4672 035051 273 06 0 00 000007 ADDB AC,AC1 ;DO ADDB.
4673 035052 312 06 0 00 000007 CAME AC,AC1 ;C(AC) SHOULD = C(E).
4674 035053 001 04 0 00 037667 ERR RAN1,RAN
4675 035054 312 06 0 00 037565 CAME AC,[-1] ;C(AC) SHOULD = A -1.
4676 035055 001 04 0 00 037667 ERR RAN1,RAN
4677 LOOP ADDB2B,ADDB3B^
4678 035056 367 05 0 00 035043 SOJG AC-1,ADDB2B ;ITERATION COUNTER
4679 035057 200 06 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4680 035060 321 05 0 00 035047 JUMPL AC-1,ADDB3B ;LOOP ON ERROR SWITCH ^
4681
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 74
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0127
4682
4683 ;TEST SUB. CHECK C(AC) FOR CORRECT DATA.
4684 ;0 TO RAN CONDITION.
4685
4686 000002 AC=2
4687 035061 SUB1: SETUP 100,0^
4688 000003 AC1=<AC+1>&17
4689 000004 AC2=<AC+2>&17
4690 000005 AC3=<AC+3>&17
4691 000006 AC4=<AC+4>&17
4692 000007 AC5=<AC+5>&17
4693 000000 RAN1=<AC-2>&17
4694 035061 201 01 0 00 035061 MOVEI AC-1,.
4695 035062 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4696 035063 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4697 035064 202 01 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4698 035065 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4699 035066 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4700 035067 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4701 035070 SUB2: RANDOM^
4702 035070 200 02 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4703 035071 270 02 0 00 037562 ADD AC,[142536475076]
4704 035072 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4705 035073 447 02 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
4706 035074 403 03 0 00 000000 SUB3: SETZB AC1,RAN1 ;CLEAR C(E).
4707
4708 REPEAT 3,<
4709 SUB AC,AC1>
4710
4711 035075 274 02 0 00 000003 SUB AC,AC1
4712
4713 035076 274 02 0 00 000003 SUB AC,AC1
4714
4715 035077 274 02 0 00 000003 SUB AC,AC1
4716 035100 312 02 0 00 037667 CAME AC,RAN ;C(AC) SHOULD STILL = ORIG C(AC).
4717 035101 001 00 0 00 037667 ERR RAN1,RAN
4718 LOOP SUB2,SUB3^
4719 035102 367 01 0 00 035070 SOJG AC-1,SUB2 ;ITERATION COUNTER
4720 035103 200 02 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4721 035104 321 01 0 00 035074 JUMPL AC-1,SUB3 ;LOOP ON ERROR SWITCH ^
4722
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 75
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0128
4723
4724 ;TEST SUB. CHECK C(AC) FOR CORRECT DATA.
4725 ;RAN TO 0 CONDITION.
4726
4727 000002 AC=2
4728 035105 SUB1A: SETUP 100,0^
4729 000003 AC1=<AC+1>&17
4730 000004 AC2=<AC+2>&17
4731 000005 AC3=<AC+3>&17
4732 000006 AC4=<AC+4>&17
4733 000007 AC5=<AC+5>&17
4734 000000 RAN1=<AC-2>&17
4735 035105 201 01 0 00 035105 MOVEI AC-1,.
4736 035106 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4737 035107 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4738 035110 202 01 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4739 035111 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4740 035112 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4741 035113 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4742 035114 SUB1B: RANDOM^
4743 035114 200 02 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4744 035115 270 02 0 00 037562 ADD AC,[142536475076]
4745 035116 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4746 035117 447 02 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
4747 035120 403 03 0 00 000000 SUB1C: SETZB AC1,RAN1 ;CLEAR C(AC).
4748 035121 210 04 0 00 037667 MOVN AC2,RAN ;ANY NUM FROM 0 = 2'S COMP OF THAT NUM.
4749 035122 274 03 0 00 000002 SUB AC1,AC ;SUBTRACT RAN FROM 0.
4750 035123 312 03 0 00 000004 CAME AC1,AC2 ;C(AC) SHOULD = SIM. ANS.
4751 035124 011 00 0 00 000000 EERR ,RAN1
4752 LOOP SUB1B,SUB1C^
4753 035125 367 01 0 00 035114 SOJG AC-1,SUB1B ;ITERATION COUNTER
4754 035126 200 02 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4755 035127 321 01 0 00 035120 JUMPL AC-1,SUB1C ;LOOP ON ERROR SWITCH ^
4756
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 76
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0129
4757
4758 ;TEST SUB. CHECK C(AC) FOR CORRECT DATA.
4759 ;SUB RAN FROM RAN.
4760
4761 000002 AC=2
4762 035130 SUB2A: SETUP 100,0^
4763 000003 AC1=<AC+1>&17
4764 000004 AC2=<AC+2>&17
4765 000005 AC3=<AC+3>&17
4766 000006 AC4=<AC+4>&17
4767 000007 AC5=<AC+5>&17
4768 000000 RAN1=<AC-2>&17
4769 035130 201 01 0 00 035130 MOVEI AC-1,.
4770 035131 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4771 035132 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4772 035133 202 01 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4773 035134 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4774 035135 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4775 035136 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4776 035137 SUB2B: RANDOM^
4777 035137 200 02 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4778 035140 270 02 0 00 037562 ADD AC,[142536475076]
4779 035141 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4780 035142 447 02 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
4781 035143 200 03 0 00 000002 SUB2C: MOVE AC1,AC ;MAKE C(E) = C(AC).
4782 035144 274 02 0 00 000003 SUB AC,AC1 ;SUB RAN FROM RAN.
4783 035145 312 02 0 00 037563 CAME AC,[0] ;C(AC) SHOULD = 0.
4784 035146 011 00 0 00 037667 EERR ,RAN
4785 LOOP SUB2B,SUB2C^
4786 035147 367 01 0 00 035137 SOJG AC-1,SUB2B ;ITERATION COUNTER
4787 035150 200 02 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4788 035151 321 01 0 00 035143 JUMPL AC-1,SUB2C ;LOOP ON ERROR SWITCH ^
4789
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 77
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0130
4790
4791 ;TEST SUBM. WHERE E IS AN AC.
4792 ;RAN TO 0 CONDITION.
4793
4794 000007 AC=7
4795 035152 SUBM1: SETUP 100,0^
4796 000010 AC1=<AC+1>&17
4797 000011 AC2=<AC+2>&17
4798 000012 AC3=<AC+3>&17
4799 000013 AC4=<AC+4>&17
4800 000014 AC5=<AC+5>&17
4801 000005 RAN1=<AC-2>&17
4802 035152 201 06 0 00 035152 MOVEI AC-1,.
4803 035153 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4804 035154 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4805 035155 202 06 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4806 035156 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4807 035157 240 06 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4808 035160 240 06 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4809 035161 SUBM2: RANDOM^
4810 035161 200 07 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4811 035162 270 07 0 00 037562 ADD AC,[142536475076]
4812 035163 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4813 035164 447 07 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
4814 035165 403 10 0 00 000005 SUBM3: SETZB AC1,RAN1 ;CLEAR C(AC).
4815 035166 210 11 0 00 000007 MOVN AC2,AC ;SIM SUB..RAN FROM 0 = 2'S COMP RAN.
4816 035167 276 10 0 00 000007 SUBM AC1,AC ;DO SUBM.
4817 035170 312 11 0 00 000007 CAME AC2,AC ;C(E) SHOULD = SIM. ANS.
4818 035171 012 00 0 00 000005 EERRM ,RAN1
4819 LOOP SUBM2,SUBM3^
4820 035172 367 06 0 00 035161 SOJG AC-1,SUBM2 ;ITERATION COUNTER
4821 035173 200 07 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4822 035174 321 06 0 00 035165 JUMPL AC-1,SUBM3 ;LOOP ON ERROR SWITCH ^
4823
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 78
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0131
4824 ;TEST SUBM. SHERE E IS AN AC.
4825 ;0 TO RAN CONDITION.
4826
4827 000010 AC=10
4828 035175 SUBM1A: SETUP 100,0^
4829 000011 AC1=<AC+1>&17
4830 000012 AC2=<AC+2>&17
4831 000013 AC3=<AC+3>&17
4832 000014 AC4=<AC+4>&17
4833 000015 AC5=<AC+5>&17
4834 000006 RAN1=<AC-2>&17
4835 035175 201 07 0 00 035175 MOVEI AC-1,.
4836 035176 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4837 035177 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4838 035200 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4839 035201 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4840 035202 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4841 035203 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4842 035204 SUBM2A: RANDOM^
4843 035204 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4844 035205 270 10 0 00 037562 ADD AC,[142536475076]
4845 035206 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4846 035207 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
4847 035210 200 12 0 00 037667 MOVE AC2,RAN ;SAVE RAN IN AN AC.
4848 035211 403 11 0 00 000006 SUBM3A: SETZB AC1,RAN1 ;CLEAR C(E).
4849 035212 276 10 0 00 000011 SUBM AC,AC1 ;DO SUBM...0 FROM RAN = RAN.
4850 035213 312 12 0 00 000011 CAME AC2,AC1 ;C(E) SHOULD = ORIG C(AC).
4851 035214 002 06 0 00 037667 ERRM RAN1,RAN
4852 035215 312 10 0 00 037667 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
4853 035216 002 06 0 00 037667 ERRM RAN1,RAN
4854 LOOP SUBM2A,SUBM3A^
4855 035217 367 07 0 00 035204 SOJG AC-1,SUBM2A ;ITERATION COUNTER
4856 035220 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4857 035221 321 07 0 00 035211 JUMPL AC-1,SUBM3A ;LOOP ON ERROR SWITCH ^
4858
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 79
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0132
4859
4860 ;TEST SUBM. WHERE E IS AN AC.
4861 ;RAN TO RAN CONDITION.
4862
4863 000011 AC=11
4864 035222 SUBM1B: SETUP 100,0^
4865 000012 AC1=<AC+1>&17
4866 000013 AC2=<AC+2>&17
4867 000014 AC3=<AC+3>&17
4868 000015 AC4=<AC+4>&17
4869 000016 AC5=<AC+5>&17
4870 000007 RAN1=<AC-2>&17
4871 035222 201 10 0 00 035222 MOVEI AC-1,.
4872 035223 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4873 035224 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4874 035225 202 10 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4875 035226 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4876 035227 240 10 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4877 035230 240 10 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4878 035231 SUBM2B: RANDOM^
4879 035231 200 11 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4880 035232 270 11 0 00 037562 ADD AC,[142536475076]
4881 035233 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4882 035234 447 11 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
4883 035235 200 12 0 00 000011 SUBM3B: MOVE AC1,AC ;MAKE C(E) = C(AC).
4884 035236 276 11 0 00 000012 SUBM AC,AC1 ;DO SUBM.
4885 035237 312 12 0 00 037563 CAME AC1,[0] ;C(E) SHOULD = 0.
4886 035240 012 00 0 00 037667 EERRM ,RAN
4887 035241 312 11 0 00 037667 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
4888 035242 012 00 0 00 037667 EERRM ,RAN
4889 LOOP SUBM2B,SUBM3B^
4890 035243 367 10 0 00 035231 SOJG AC-1,SUBM2B ;ITERATION COUNTER
4891 035244 200 11 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4892 035245 321 10 0 00 035235 JUMPL AC-1,SUBM3B ;LOOP ON ERROR SWITCH ^
4893
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 80
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0133
4894
4895 ;TEST SUBI. CHECK C(AC) FOR CORRECT DATA.
4896 ;0 TO RAN CONDITION.
4897
4898 000010 AC=10
4899 035246 SUBI1: SETUP 20,0^
4900 000011 AC1=<AC+1>&17
4901 000012 AC2=<AC+2>&17
4902 000013 AC3=<AC+3>&17
4903 000014 AC4=<AC+4>&17
4904 000015 AC5=<AC+5>&17
4905 000006 RAN1=<AC-2>&17
4906 035246 201 07 0 00 035246 MOVEI AC-1,.
4907 035247 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4908 035250 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4909 035251 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4910 035252 201 07 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
4911 035253 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4912 035254 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4913 035255 SUBI2: RANDOM^
4914 035255 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4915 035256 270 10 0 00 037562 ADD AC,[142536475076]
4916 035257 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4917 035260 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
4918 035261 275 10 0 00 000000 SUBI3: SUBI AC,0 ;DO SUBI..0 FROM RAN = RAN.
4919 035262 312 10 0 00 037667 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
4920 035263 013 00 0 00 000000 EERRI ,0
4921 LOOP SUBI2,SUBI3^
4922 035264 367 07 0 00 035255 SOJG AC-1,SUBI2 ;ITERATION COUNTER
4923 035265 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4924 035266 321 07 0 00 035261 JUMPL AC-1,SUBI3 ;LOOP ON ERROR SWITCH ^
4925
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 81
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0134
4926
4927 ;TEST SUBI. CHECK C(AC) FOR CORRECT DATA.
4928 ;RAN TO 0 CONDITION.
4929
4930 000010 AC=10
4931 035267 SUBI1A: SETUP 20,0^
4932 000011 AC1=<AC+1>&17
4933 000012 AC2=<AC+2>&17
4934 000013 AC3=<AC+3>&17
4935 000014 AC4=<AC+4>&17
4936 000015 AC5=<AC+5>&17
4937 000006 RAN1=<AC-2>&17
4938 035267 201 07 0 00 035267 MOVEI AC-1,.
4939 035270 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4940 035271 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4941 035272 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4942 035273 201 07 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
4943 035274 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4944 035275 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4945 035276 SUBI2A: RANDOM^
4946 035276 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4947 035277 270 10 0 00 037562 ADD AC,[142536475076]
4948 035300 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4949 035301 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
4950 035302 403 11 0 00 000006 SUBI3A: SETZB AC1,RAN1 ;CLEAR C(AC).
4951 035303 211 12 0 10 000000 MOVNI AC2,(AC) ;SIM SUB..RAN FROM 0 = 2'S COMP RAN.
4952 035304 275 11 0 10 000000 SUBI AC1,(AC) ;DO SUBI.
4953 035305 312 11 0 00 000012 CAME AC1,AC2 ;C(AC) SHOULD = SIM ANS.
4954 035306 003 06 0 10 000000 ERRI RAN1,(AC)
4955 LOOP SUBI2A,SUBI3A^
4956 035307 367 07 0 00 035276 SOJG AC-1,SUBI2A ;ITERATION COUNTER
4957 035310 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4958 035311 321 07 0 00 035302 JUMPL AC-1,SUBI3A ;LOOP ON ERROR SWITCH ^
4959
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 82
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0135
4960
4961 ;TEST SUBI. CHECK C(AC) FOR CORRECT DATA.
4962 ;RAN TO RAN CONDITION.
4963
4964 000010 AC=10
4965 035312 SUBI1B: SETUP 20,0^
4966 000011 AC1=<AC+1>&17
4967 000012 AC2=<AC+2>&17
4968 000013 AC3=<AC+3>&17
4969 000014 AC4=<AC+4>&17
4970 000015 AC5=<AC+5>&17
4971 000006 RAN1=<AC-2>&17
4972 035312 201 07 0 00 035312 MOVEI AC-1,.
4973 035313 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4974 035314 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4975 035315 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4976 035316 201 07 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
4977 035317 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4978 035320 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4979 035321 SUBI2B: RANDOM^
4980 035321 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4981 035322 270 10 0 00 037562 ADD AC,[142536475076]
4982 035323 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4983 035324 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
4984 035325 200 06 0 00 000010 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
4985 035326 200 11 0 00 000010 SUBI3B: MOVE AC1,AC ;SIMULATE A
4986 035327 404 11 0 00 037575 AND AC1,[XWD -1,0] ;SUBI RAN FROM RAN.
4987 035330 275 10 0 10 000000 SUBI AC,(AC) ;DO SUBI.
4988 035331 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD = SIM. ANS.
4989 035332 003 06 0 06 000000 ERRI RAN1,(RAN1)
4990 LOOP SUBI2B,SUBI3B^
4991 035333 367 07 0 00 035321 SOJG AC-1,SUBI2B ;ITERATION COUNTER
4992 035334 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4993 035335 321 07 0 00 035326 JUMPL AC-1,SUBI3B ;LOOP ON ERROR SWITCH ^
4994
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 83
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0136
4995
4996 ;TEST SUBB. CHECK THAT C(AC) = C(E) AND C(AC)
4997 ;= CORRECT DATA.
4998 ;0 TO RAN.
4999
5000 000010 AC=10
5001 035336 SUBB1: SETUP 20,0^
5002 000011 AC1=<AC+1>&17
5003 000012 AC2=<AC+2>&17
5004 000013 AC3=<AC+3>&17
5005 000014 AC4=<AC+4>&17
5006 000015 AC5=<AC+5>&17
5007 000006 RAN1=<AC-2>&17
5008 035336 201 07 0 00 035336 MOVEI AC-1,.
5009 035337 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5010 035340 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5011 035341 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5012 035342 201 07 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
5013 035343 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5014 035344 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5015 035345 SUBB2: RANDOM^
5016 035345 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5017 035346 270 10 0 00 037562 ADD AC,[142536475076]
5018 035347 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5019 035350 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
5020 035351 403 11 0 00 000006 SUBB3: SETZB AC1,RAN1 ;CLEAR C(E).
5021 035352 277 10 0 00 000011 SUBB AC,AC1 ;DO SUBB..0 FROM RAN = RAN.
5022 035353 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD = C(E).
5023 035354 001 06 0 00 037667 ERR RAN1,RAN
5024 035355 312 10 0 00 037667 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
5025 035356 001 06 0 00 037667 ERR RAN1,RAN
5026 LOOP SUBB2,SUBB3^
5027 035357 367 07 0 00 035345 SOJG AC-1,SUBB2 ;ITERATION COUNTER
5028 035360 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5029 035361 321 07 0 00 035351 JUMPL AC-1,SUBB3 ;LOOP ON ERROR SWITCH ^
5030
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 84
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0137
5031
5032 ;TEST SUBB. CHECK C(AC) = C(E) AND C(AC) FOR
5033 ;CORRECT DATA.
5034 ;RAN TO 0 CONDITION.
5035
5036 000010 AC=10
5037 035362 SUBB1A: SETUP 20,0^
5038 000011 AC1=<AC+1>&17
5039 000012 AC2=<AC+2>&17
5040 000013 AC3=<AC+3>&17
5041 000014 AC4=<AC+4>&17
5042 000015 AC5=<AC+5>&17
5043 000006 RAN1=<AC-2>&17
5044 035362 201 07 0 00 035362 MOVEI AC-1,.
5045 035363 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5046 035364 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5047 035365 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5048 035366 201 07 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
5049 035367 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5050 035370 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5051 035371 SUBB2A: RANDOM^
5052 035371 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5053 035372 270 10 0 00 037562 ADD AC,[142536475076]
5054 035373 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5055 035374 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
5056 035375 403 11 0 00 000006 SUBB3A: SETZB AC1,RAN1 ;CLEAR C(AC).
5057 035376 210 12 0 00 000010 MOVN AC2,AC ;SIMULATE SUB...RAN FROM 0 = 2'S COMP RAN.
5058 035377 277 11 0 00 000010 SUBB AC1,AC ;DO SUBB.
5059 035400 312 11 0 00 000010 CAME AC1,AC ;C(AC) SHOULD = C(E).
5060 035401 011 00 0 00 000006 EERR ,RAN1
5061 035402 312 11 0 00 000012 CAME AC1,AC2 ;C(AC) SHOULD = SIM. ANS.
5062 035403 011 00 0 00 000006 EERR ,RAN1
5063 LOOP SUBB2A,SUBB3A^
5064 035404 367 07 0 00 035371 SOJG AC-1,SUBB2A ;ITERATION COUNTER
5065 035405 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5066 035406 321 07 0 00 035375 JUMPL AC-1,SUBB3A ;LOOP ON ERROR SWITCH ^
5067
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 85
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0138
5068
5069 ;TEST SUBB. CHECK C(AC) = C(E) AND FOR
5070 ;CORRECT DATA IN AC.
5071 ;RAN TO RAN CONDITION.
5072
5073 000010 AC=10
5074 035407 SUBB1B: SETUP 40,0^
5075 000011 AC1=<AC+1>&17
5076 000012 AC2=<AC+2>&17
5077 000013 AC3=<AC+3>&17
5078 000014 AC4=<AC+4>&17
5079 000015 AC5=<AC+5>&17
5080 000006 RAN1=<AC-2>&17
5081 035407 201 07 0 00 035407 MOVEI AC-1,.
5082 035410 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5083 035411 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5084 035412 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5085 035413 201 07 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
5086 035414 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5087 035415 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5088 035416 SUBB2B: RANDOM^
5089 035416 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5090 035417 270 10 0 00 037562 ADD AC,[142536475076]
5091 035420 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5092 035421 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
5093 035422 200 11 0 00 000010 SUBB3B: MOVE AC1,AC ;MAKE C(E) = C(AC).
5094 035423 277 10 0 00 000011 SUBB AC,AC1 ;DO SUBB..RAN FROM RAN = 0.
5095 035424 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD = C(E).
5096 035425 011 00 0 00 037667 EERR ,RAN
5097 035426 312 10 0 00 037563 CAME AC,[0] ;C(AC) SHOULD = 0.
5098 035427 011 00 0 00 037667 EERR ,RAN
5099 LOOP SUBB2B,SUBB3B^
5100 035430 367 07 0 00 035416 SOJG AC-1,SUBB2B ;ITERATION COUNTER
5101 035431 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5102 035432 321 07 0 00 035422 JUMPL AC-1,SUBB3B ;LOOP ON ERROR SWITCH ^
5103
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 86
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0139
5104
5105
5106 ;TEST MOVEI. CHECK C(AC) FOR CORRECT DATA.
5107 ;RAN TO RAN1.
5108
5109 000002 AC=2
5110 035433 MVEI1: SETUP 20,0^
5111 000003 AC1=<AC+1>&17
5112 000004 AC2=<AC+2>&17
5113 000005 AC3=<AC+3>&17
5114 000006 AC4=<AC+4>&17
5115 000007 AC5=<AC+5>&17
5116 000000 RAN1=<AC-2>&17
5117 035433 201 01 0 00 035433 MOVEI AC-1,.
5118 035434 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5119 035435 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5120 035436 202 01 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5121 035437 201 01 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
5122 035440 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5123 035441 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5124 035442 MVEI2: RANDOM^
5125 035442 200 02 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5126 035443 270 02 0 00 037562 ADD AC,[142536475076]
5127 035444 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5128 035445 447 02 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
5129 035446 200 04 0 00 037667 MOVE AC2,RAN ;SAVE RAN IN AN AC.
5130 035447 207 00 0 00 000002 MVEI3: MOVSS RAN1,AC ;MAKE C(AC) = SEC RAN NUM.
5131 035450 200 03 0 00 037667 MOVE AC1,RAN ;SIMULATE
5132 035451 242 03 0 00 000022 LSH AC1,22 ;A
5133 035452 242 03 0 00 777756 LSH AC1,-22 ;MOVEI.
5134 035453 201 02 0 04 000000 MOVEI AC,(AC2) ;DO A MOVEI.
5135 035454 312 02 0 00 000003 CAME AC,AC1 ;C(AC) SHOULD = SIM. ANS.
5136 035455 003 00 0 04 000000 ERRI RAN1,(AC2)
5137 LOOP MVEI2,MVEI3^
5138 035456 367 01 0 00 035442 SOJG AC-1,MVEI2 ;ITERATION COUNTER
5139 035457 200 02 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5140 035460 321 01 0 00 035447 JUMPL AC-1,MVEI3 ;LOOP ON ERROR SWITCH ^
5141
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 87
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0140
5142
5143 ;TEST MOVN. TWO MOVN INSTRUCTIONS SHOULD NOT CHANGE C(AC).
5144
5145 000002 AC=2
5146 035461 MOVN1: SETUP 200,0^
5147 000003 AC1=<AC+1>&17
5148 000004 AC2=<AC+2>&17
5149 000005 AC3=<AC+3>&17
5150 000006 AC4=<AC+4>&17
5151 000007 AC5=<AC+5>&17
5152 000000 RAN1=<AC-2>&17
5153 035461 201 01 0 00 035461 MOVEI AC-1,.
5154 035462 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5155 035463 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5156 035464 202 01 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5157 035465 201 01 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5158 035466 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5159 035467 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5160 035470 MOVN2: RANDOM^
5161 035470 200 02 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5162 035471 270 02 0 00 037562 ADD AC,[142536475076]
5163 035472 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5164 035473 447 02 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
5165 ;DO 6 X (MOVN RAN TO RAN).
5166 MOVN3: REPEAT 3,<
5167 MOVN AC,AC
5168 MOVN AC,AC>
5169
5170 035474 210 02 0 00 000002 MOVN AC,AC
5171 035475 210 02 0 00 000002 MOVN AC,AC
5172
5173 035476 210 02 0 00 000002 MOVN AC,AC
5174 035477 210 02 0 00 000002 MOVN AC,AC
5175
5176 035500 210 02 0 00 000002 MOVN AC,AC
5177 035501 210 02 0 00 000002 MOVN AC,AC
5178 035502 312 02 0 00 037667 CAME AC,RAN ;C(AC) SHOULD STILL = RAN NUM.
5179 035503 004 02 0 00 037667 ERROR AC,RAN
5180 LOOP MOVN2,MOVN3^
5181 035504 367 01 0 00 035470 SOJG AC-1,MOVN2 ;ITERATION COUNTER
5182 035505 200 02 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5183 035506 321 01 0 00 035474 JUMPL AC-1,MOVN3 ;LOOP ON ERROR SWITCH ^
5184
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 88
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0141
5185
5186 ;TEST MOVNI. CHECK C(AC) FOR CORRECT DATA.
5187 ;RAN TO RAN1.
5188
5189 000002 AC=2
5190 035507 MVNI1: SETUP 40,0^
5191 000003 AC1=<AC+1>&17
5192 000004 AC2=<AC+2>&17
5193 000005 AC3=<AC+3>&17
5194 000006 AC4=<AC+4>&17
5195 000007 AC5=<AC+5>&17
5196 000000 RAN1=<AC-2>&17
5197 035507 201 01 0 00 035507 MOVEI AC-1,.
5198 035510 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5199 035511 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5200 035512 202 01 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5201 035513 201 01 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
5202 035514 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5203 035515 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5204 035516 MVNI2: RANDOM^
5205 035516 200 02 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5206 035517 270 02 0 00 037562 ADD AC,[142536475076]
5207 035520 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5208 035521 447 02 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
5209 035522 200 04 0 00 037667 MOVE AC2,RAN ;SAVE RAN IN AN AC.
5210 035523 207 00 0 00 000002 MVNI3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
5211 035524 201 03 0 04 000000 MOVEI AC1,(AC2) ;SIMULATE
5212 035525 450 03 0 00 000000 SETCA AC1, ;A
5213 035526 270 03 0 00 037571 ADD AC1,[1] ;MOVNI INST.
5214 035527 211 02 0 04 000000 MOVNI AC,(AC2) ;DO A MOVNI.
5215 035530 312 02 0 00 000003 CAME AC,AC1 ;C(AC) SHOULD = SIM. ANS.
5216 035531 003 00 0 04 000000 ERRI RAN1,(AC2)
5217 LOOP MVNI2,MVNI3^
5218 035532 367 01 0 00 035516 SOJG AC-1,MVNI2 ;ITERATION COUNTER
5219 035533 200 02 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5220 035534 321 01 0 00 035523 JUMPL AC-1,MVNI3 ;LOOP ON ERROR SWITCH ^
5221
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 89
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0142
5222
5223 ;TEST MOVNM. WHERE E IS AN AC.
5224 ;CHECK C(E) FOR CORRECT DATA.
5225 ;RAN TO RAN.
5226
5227 000002 AC=2
5228 035535 MVNM1: SETUP 100,0^
5229 000003 AC1=<AC+1>&17
5230 000004 AC2=<AC+2>&17
5231 000005 AC3=<AC+3>&17
5232 000006 AC4=<AC+4>&17
5233 000007 AC5=<AC+5>&17
5234 000000 RAN1=<AC-2>&17
5235 035535 201 01 0 00 035535 MOVEI AC-1,.
5236 035536 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5237 035537 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5238 035540 202 01 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5239 035541 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5240 035542 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5241 035543 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5242 035544 MVNM2: RANDOM^
5243 035544 200 02 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5244 035545 270 02 0 00 037562 ADD AC,[142536475076]
5245 035546 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5246 035547 447 02 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
5247 035550 200 00 0 00 037667 MOVE RAN1,RAN ;SAVE RAN IN AN AC.
5248 035551 200 03 0 00 000002 MVNM3: MOVE AC1,AC ;MAKE C(E) = C(AC).
5249 ;DO 3 X 2(MOVNM).
5250 REPEAT 3,<
5251 MOVNM AC,AC1
5252 MOVNM AC1,AC>
5253
5254 035552 212 02 0 00 000003 MOVNM AC,AC1
5255 035553 212 03 0 00 000002 MOVNM AC1,AC
5256
5257 035554 212 02 0 00 000003 MOVNM AC,AC1
5258 035555 212 03 0 00 000002 MOVNM AC1,AC
5259
5260 035556 212 02 0 00 000003 MOVNM AC,AC1
5261 035557 212 03 0 00 000002 MOVNM AC1,AC
5262 035560 312 00 0 00 000002 CAME RAN1,AC ;C(E) SHOULD = ORIG C(E).
5263 035561 012 00 0 00 037667 EERRM ,RAN
5264 LOOP MVNM2,MVNM3^
5265 035562 367 01 0 00 035544 SOJG AC-1,MVNM2 ;ITERATION COUNTER
5266 035563 200 02 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5267 035564 321 01 0 00 035551 JUMPL AC-1,MVNM3 ;LOOP ON ERROR SWITCH ^
5268
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 90
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0143
5269
5270 ;TEST MOVNS. WHERE E IS AN AC.
5271 ;CHECK PROPER STORING OF C(E) INTO AC.
5272 ;TWO MOVNS = ORIG NUMBER.
5273 ;C(E) = RAN.
5274
5275 000003 AC=3
5276 035565 MVNS1: SETUP 100,0^
5277 000004 AC1=<AC+1>&17
5278 000005 AC2=<AC+2>&17
5279 000006 AC3=<AC+3>&17
5280 000007 AC4=<AC+4>&17
5281 000010 AC5=<AC+5>&17
5282 000001 RAN1=<AC-2>&17
5283 035565 201 02 0 00 035565 MOVEI AC-1,.
5284 035566 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5285 035567 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5286 035570 202 02 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5287 035571 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5288 035572 240 02 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5289 035573 240 02 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5290 035574 MVNS2: RANDOM^
5291 035574 200 03 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5292 035575 270 03 0 00 037562 ADD AC,[142536475076]
5293 035576 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5294 035577 447 03 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
5295 035600 200 05 0 00 037667 MOVE AC2,RAN ;PUT C(RAN) INTO AC2 FOR FUTURE COMPARE.
5296 035601 477 04 0 00 000001 MVNS3: SETOB AC1,RAN1 ;MAKE C(AC) = -1.
5297 ;DO 3 X 2(MOVNS).
5298 REPEAT 3,<
5299 MOVNS AC1,AC
5300 MOVNS AC1,AC>
5301
5302 035602 213 04 0 00 000003 MOVNS AC1,AC
5303 035603 213 04 0 00 000003 MOVNS AC1,AC
5304
5305 035604 213 04 0 00 000003 MOVNS AC1,AC
5306 035605 213 04 0 00 000003 MOVNS AC1,AC
5307
5308 035606 213 04 0 00 000003 MOVNS AC1,AC
5309 035607 213 04 0 00 000003 MOVNS AC1,AC
5310 035610 312 04 0 00 000003 CAME AC1,AC ;C(AC) SHOULD = C(E).
5311 035611 012 00 0 00 000001 EERRM ,RAN1
5312 035612 312 05 0 00 000003 CAME AC2,AC ;C(E) SHOULD = ORIG. C(E).
5313 035613 012 00 0 00 000001 EERRM ,RAN1
5314 LOOP MVNS2,MVNS3^
5315 035614 367 02 0 00 035574 SOJG AC-1,MVNS2 ;ITERATION COUNTER
5316 035615 200 03 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5317 035616 321 02 0 00 035601 JUMPL AC-1,MVNS3 ;LOOP ON ERROR SWITCH ^
5318
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 91
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0144
5319
5320 ;TEST MOVNS. WHERE E IS AN AC.
5321 ;CHECK FOR NOT LOADING C(E) INTO AC WHEN AC= 0.
5322 ;TWO MOVNS = ORIGINAL NUM.
5323 ;C(E) = RAN.
5324
5325 000010 AC=10
5326 035617 MVNSA: SETUP 40,0^
5327 000011 AC1=<AC+1>&17
5328 000012 AC2=<AC+2>&17
5329 000013 AC3=<AC+3>&17
5330 000014 AC4=<AC+4>&17
5331 000015 AC5=<AC+5>&17
5332 000006 RAN1=<AC-2>&17
5333 035617 201 07 0 00 035617 MOVEI AC-1,.
5334 035620 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5335 035621 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5336 035622 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5337 035623 201 07 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
5338 035624 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5339 035625 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5340 035626 MVNSB: RANDOM^
5341 035626 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5342 035627 270 10 0 00 037562 ADD AC,[142536475076]
5343 035630 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5344 035631 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
5345 035632 200 12 0 00 037667 MOVE AC2,RAN ;SAVE RAN IN AN AC.
5346 035633 477 00 0 00 000006 MVNSC: SETOB RAN1 ;MAKE C(AC) = -1.
5347 ;DO 3 X 2(MOVNS).
5348 REPEAT 3,<
5349 MOVNS AC
5350 MOVNS AC>
5351
5352 035634 213 00 0 00 000010 MOVNS AC
5353 035635 213 00 0 00 000010 MOVNS AC
5354
5355 035636 213 00 0 00 000010 MOVNS AC
5356 035637 213 00 0 00 000010 MOVNS AC
5357
5358 035640 213 00 0 00 000010 MOVNS AC
5359 035641 213 00 0 00 000010 MOVNS AC
5360 035642 316 00 0 00 000010 CAMN AC ;C(AC) SHOULD NOT = C(E).
5361 035643 012 00 0 00 000006 EERRM ,RAN1
5362 035644 312 12 0 00 000010 CAME AC2,AC ;C(AC) SHOULD = ORIG C(AC).
5363 035645 012 00 0 00 000006 EERRM ,RAN1
5364 LOOP MVNSB, MVNSC^
5365 035646 367 07 0 00 035626 SOJG AC-1,MVNSB ;ITERATION COUNTER
5366 035647 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5367 035650 321 07 0 00 035633 JUMPL AC-1,MVNSC ;LOOP ON ERROR SWITCH ^
5368
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 92
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0145
5369
5370 ;TEST MOVM. CHECK F(AC) FOR CORRECT DATA.
5371 ;RAN TO RAN1.
5372
5373 000007 AC=7
5374 035651 MVM1: SETUP 40,0^
5375 000010 AC1=<AC+1>&17
5376 000011 AC2=<AC+2>&17
5377 000012 AC3=<AC+3>&17
5378 000013 AC4=<AC+4>&17
5379 000014 AC5=<AC+5>&17
5380 000005 RAN1=<AC-2>&17
5381 035651 201 06 0 00 035651 MOVEI AC-1,.
5382 035652 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5383 035653 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5384 035654 202 06 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5385 035655 201 06 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
5386 035656 240 06 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5387 035657 240 06 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5388 035660 MVM2: RANDOM^
5389 035660 200 07 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5390 035661 270 07 0 00 037562 ADD AC,[142536475076]
5391 035662 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5392 035663 447 07 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
5393 035664 207 05 0 00 000007 MVM3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
5394 035665 200 10 0 00 037667 MOVE AC1,RAN ;C(E) = 1ST RAN NUM.
5395 035666 460 11 0 00 000010 SETCM AC2,AC1 ;SIMULATE
5396 035667 607 10 0 00 400000 TLNN AC1,400000 ;A
5397 035670 200 11 0 00 000010 MOVE AC2,AC1 ;MOVM
5398 035671 603 10 0 00 400000 TLNE AC1,400000 ;INST.
5399 035672 270 11 0 00 037571 ADD AC2,[1]
5400 035673 214 07 0 00 000010 MOVM AC,AC1 ;DO A MOVM.
5401 035674 312 07 0 00 000011 CAME AC,AC2 ;C(AC) SHOULD = SIM. ANS.
5402 035675 011 00 0 00 000005 EERR ,RAN1
5403 LOOP MVM2, MVM3^
5404 035676 367 06 0 00 035660 SOJG AC-1,MVM2 ;ITERATION COUNTER
5405 035677 200 07 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5406 035700 321 06 0 00 035664 JUMPL AC-1,MVM3 ;LOOP ON ERROR SWITCH ^
5407
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 93
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0146
5408
5409 ;TEST MOVMI. CHECK C(AC) FOR CORRECT DATA.
5410 ;RAN TO RAN1.
5411
5412 000010 AC=10
5413 035701 MVMI1: SETUP 40,0^
5414 000011 AC1=<AC+1>&17
5415 000012 AC2=<AC+2>&17
5416 000013 AC3=<AC+3>&17
5417 000014 AC4=<AC+4>&17
5418 000015 AC5=<AC+5>&17
5419 000006 RAN1=<AC-2>&17
5420 035701 201 07 0 00 035701 MOVEI AC-1,.
5421 035702 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5422 035703 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5423 035704 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5424 035705 201 07 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
5425 035706 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5426 035707 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5427 035710 MVMI2: RANDOM^
5428 035710 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5429 035711 270 10 0 00 037562 ADD AC,[142536475076]
5430 035712 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5431 035713 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
5432 035714 201 11 0 00 000010 MVMI3: MOVEI AC1,AC ;SIMULATE A MOVMI INST...MOVEI.
5433 035715 207 06 0 00 000010 MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
5434 035716 215 10 0 11 000000 MOVMI AC,(AC1) ;DO MOVMI.
5435 035717 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD = SIM ANS.
5436 035720 003 06 0 11 000000 ERRI RAN1,(AC1)
5437 LOOP MVMI2, MVMI3^
5438 035721 367 07 0 00 035710 SOJG AC-1,MVMI2 ;ITERATION COUNTER
5439 035722 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5440 035723 321 07 0 00 035714 JUMPL AC-1,MVMI3 ;LOOP ON ERROR SWITCH ^
5441
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 94
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0147
5442
5443 ;TEST MOVMM. CHECK C(AC) + C(E) FOR CORRECT DATA.
5444 ;RAN TO RAN1.
5445
5446 000011 AC=11
5447 035724 MVMM1: SETUP 200,0^
5448 000012 AC1=<AC+1>&17
5449 000013 AC2=<AC+2>&17
5450 000014 AC3=<AC+3>&17
5451 000015 AC4=<AC+4>&17
5452 000016 AC5=<AC+5>&17
5453 000007 RAN1=<AC-2>&17
5454 035724 201 10 0 00 035724 MOVEI AC-1,.
5455 035725 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5456 035726 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5457 035727 202 10 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5458 035730 201 10 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5459 035731 240 10 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5460 035732 240 10 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5461 035733 MVMM2: RANDOM^
5462 035733 200 11 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5463 035734 270 11 0 00 037562 ADD AC,[142536475076]
5464 035735 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5465 035736 447 11 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
5466 035737 207 07 0 00 000011 MVMM3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
5467 035740 200 12 0 00 037667 MOVE AC1,RAN ;C(E) = RAN.
5468 035741 460 13 0 00 000011 SETCM AC2,AC ;SIMULATE
5469 035742 607 11 0 00 400000 TLNN AC,400000 ;A
5470 035743 200 13 0 00 000011 MOVE AC2,AC ;MOVMM
5471 035744 603 11 0 00 400000 TLNE AC,400000 ;INST
5472 035745 270 13 0 00 037571 ADD AC2,[1]
5473 035746 216 11 0 00 000012 MOVMM AC,AC1 ;DO A MOVMM INST.
5474 035747 312 11 0 00 000007 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
5475 035750 012 00 0 00 000007 EERRM ,RAN1
5476 035751 312 12 0 00 000013 CAME AC1,AC2 ;C(E) SHOULD = SIM. ANS.
5477 035752 012 00 0 00 000007 EERRM ,RAN1
5478 LOOP MVMM2, MVMM3^
5479 035753 367 10 0 00 035733 SOJG AC-1,MVMM2 ;ITERATION COUNTER
5480 035754 200 11 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5481 035755 321 10 0 00 035737 JUMPL AC-1,MVMM3 ;LOOP ON ERROR SWITCH ^
5482
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 95
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0148
5483
5484 ;TEST MOVMS. CHECK C(E) FOR CORRECT DATA.
5485 ;RAN TO RAN1.
5486
5487 000010 AC=10
5488 035756 MVMS1: SETUP 200,0^
5489 000011 AC1=<AC+1>&17
5490 000012 AC2=<AC+2>&17
5491 000013 AC3=<AC+3>&17
5492 000014 AC4=<AC+4>&17
5493 000015 AC5=<AC+5>&17
5494 000006 RAN1=<AC-2>&17
5495 035756 201 07 0 00 035756 MOVEI AC-1,.
5496 035757 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5497 035760 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5498 035761 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5499 035762 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5500 035763 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5501 035764 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5502 035765 MVMS2: RANDOM^
5503 035765 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5504 035766 270 10 0 00 037562 ADD AC,[142536475076]
5505 035767 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5506 035770 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
5507 035771 207 06 0 00 000010 MVMS3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
5508 035772 200 11 0 00 037667 MOVE AC1,RAN ;C(E) = RAN.
5509 035773 460 12 0 00 037667 SETCM AC2,RAN ;SIMULATE
5510 035774 607 11 0 00 400000 TLNN AC1,400000 ;A
5511 035775 200 12 0 00 000011 MOVE AC2,AC1 ;MOVMS
5512 035776 603 11 0 00 400000 TLNE AC1,400000 ;INST.
5513 035777 270 12 0 00 037571 ADD AC2,[1]
5514 036000 217 10 0 00 000011 MOVMS AC,AC1 ;DO A MOVMS.
5515 036001 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD = C(E).
5516 036002 012 00 0 00 000006 EERRM ,RAN1
5517 036003 312 11 0 00 000012 CAME AC1,AC2 ;C(E) SHOULD = SIM. ANS.
5518 036004 012 00 0 00 000006 EERRM ,RAN1
5519 LOOP MVMS2, MVMS3^
5520 036005 367 07 0 00 035765 SOJG AC-1,MVMS2 ;ITERATION COUNTER
5521 036006 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5522 036007 321 07 0 00 035771 JUMPL AC-1,MVMS3 ;LOOP ON ERROR SWITCH ^
5523
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 96
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0149
5524
5525 ;TEST LSH. A LSH LEFT AND A LSH RIGHT SHOULD
5526 ;GIVE THE SAME NUMBER WITH A ZERO SIGN BIT.
5527
5528 000002 AC=2
5529 036010 LSH1P: SETUP 40,0^
5530 000003 AC1=<AC+1>&17
5531 000004 AC2=<AC+2>&17
5532 000005 AC3=<AC+3>&17
5533 000006 AC4=<AC+4>&17
5534 000007 AC5=<AC+5>&17
5535 000000 RAN1=<AC-2>&17
5536 036010 201 01 0 00 036010 MOVEI AC-1,.
5537 036011 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5538 036012 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5539 036013 202 01 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5540 036014 201 01 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
5541 036015 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5542 036016 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5543 036017 LSH1PA: RANDOM^
5544 036017 200 02 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5545 036020 270 02 0 00 037562 ADD AC,[142536475076]
5546 036021 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5547 036022 447 02 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
5548 036023 404 02 0 00 037576 LSH1PB: AND AC,[XWD 377777,-1] ;SIMULATE A LSH LEFT THEN RIGHT.
5549 036024 200 03 0 00 037667 MOVE AC1,RAN ;MOVE RANDOM NUM INTO AN AC
5550 ;AND DO 3(LSH LEFT 1 PLACE THEN RIGHT 1 PLACE).
5551 REPEAT 3,<
5552 LSH AC1,1
5553 LSH AC1,-1>
5554
5555 036025 242 03 0 00 000001 LSH AC1,1
5556 036026 242 03 0 00 777777 LSH AC1,-1
5557
5558 036027 242 03 0 00 000001 LSH AC1,1
5559 036030 242 03 0 00 777777 LSH AC1,-1
5560
5561 036031 242 03 0 00 000001 LSH AC1,1
5562 036032 242 03 0 00 777777 LSH AC1,-1
5563 036033 312 03 0 00 000002 CAME AC1,AC ;C(AC1) = SIM. ANS?
5564 036034 004 03 0 00 000002 ERROR AC1,AC ;NO. LSH FAILED.
5565 LOOP LSH1PA,LSH1PB^
5566 036035 367 01 0 00 036017 SOJG AC-1,LSH1PA ;ITERATION COUNTER
5567 036036 200 02 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5568 036037 321 01 0 00 036023 JUMPL AC-1,LSH1PB ;LOOP ON ERROR SWITCH ^
5569
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 97
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0150
5570
5571 ;TEST TDN,TDNA. CHECK FOR SKIP/NO SKIP AND
5572 ;NO DATA CHANGE IN AC FOR RAN1 TO RAN CONDITION.
5573
5574 000002 AC=2
5575 036040 TDN1: SETUP 100,0^
5576 000003 AC1=<AC+1>&17
5577 000004 AC2=<AC+2>&17
5578 000005 AC3=<AC+3>&17
5579 000006 AC4=<AC+4>&17
5580 000007 AC5=<AC+5>&17
5581 000000 RAN1=<AC-2>&17
5582 036040 201 01 0 00 036040 MOVEI AC-1,.
5583 036041 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5584 036042 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5585 036043 202 01 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5586 036044 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5587 036045 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5588 036046 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5589 036047 TDN2: RANDOM^
5590 036047 200 02 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5591 036050 270 02 0 00 037562 ADD AC,[142536475076]
5592 036051 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5593 036052 447 02 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
5594 036053 204 03 0 00 000002 TDN3: MOVS AC1,AC ;PUT SECOND RAN. NUM. INTO "E".
5595 036054 610 02 0 00 000003 TDN AC,AC1 ;NO SKIP, NO DATA CHANGE.
5596 036055 254 00 0 00 036057 JRST .+2 ;HERE..GO AROUND ERR UUO.
5597 036056 005 02 0 00 037577 ER AC,[ASCII /TST/];TDN SKIPPED.
5598 036057 614 02 0 00 000003 TDNA AC,AC1 ;SKIP, NO DATA CHANGE.
5599 036060 005 02 0 00 037577 ER AC,[ASCII /TST/]
5600 036061 312 02 0 00 037667 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
5601 036062 001 03 0 00 037667 ERR AC1,RAN
5602 LOOP TDN2,TDN3^
5603 036063 367 01 0 00 036047 SOJG AC-1,TDN2 ;ITERATION COUNTER
5604 036064 200 02 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5605 036065 321 01 0 00 036053 JUMPL AC-1,TDN3 ;LOOP ON ERROR SWITCH ^
5606
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 98
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0151
5607
5608 ;TEST TDNN,TDNE. CHECK FOR SKIP/ NO SKIP AND
5609 ;NO DATA CHANGE IN AC FOR RAN TO 0 CONDITION.
5610
5611 000003 AC=3
5612 036066 TDNE1A: SETUP 100,0^
5613 000004 AC1=<AC+1>&17
5614 000005 AC2=<AC+2>&17
5615 000006 AC3=<AC+3>&17
5616 000007 AC4=<AC+4>&17
5617 000010 AC5=<AC+5>&17
5618 000001 RAN1=<AC-2>&17
5619 036066 201 02 0 00 036066 MOVEI AC-1,.
5620 036067 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5621 036070 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5622 036071 202 02 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5623 036072 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5624 036073 240 02 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5625 036074 240 02 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5626 036075 TDNE2A: RANDOM^
5627 036075 200 03 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5628 036076 270 03 0 00 037562 ADD AC,[142536475076]
5629 036077 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5630 036100 447 03 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
5631 036101 403 04 0 00 000001 TDNE3A: SETZB AC1,RAN1 ;CLEAR C(AC).
5632 036102 616 04 0 00 000003 TDNN AC1,AC ;C(E) + C(AC) =0..NO SKIP.
5633 036103 254 00 0 00 036105 JRST .+2
5634 036104 005 04 0 00 037577 ER AC1,[ASCII /TST/];TDNN SKIPPED.
5635 036105 612 04 0 00 000003 TDNE AC1,AC ;C(E) + C(AC) = 0. SKIP.
5636 036106 005 04 0 00 037577 ER AC1,[ASCII /TST/]
5637 036107 312 04 0 00 037563 CAME AC1,[0] ;C(AC) SHOULD STILL = 0.
5638 036110 001 03 0 00 000001 ERR AC,RAN1
5639 LOOP TDNE2A,TDNE3A^
5640 036111 367 02 0 00 036075 SOJG AC-1,TDNE2A ;ITERATION COUNTER
5641 036112 200 03 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5642 036113 321 02 0 00 036101 JUMPL AC-1,TDNE3A ;LOOP ON ERROR SWITCH ^
5643
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 99
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0152
5644
5645 ;TEST TDNN,TDNE. CHECK FOR SKIP/ NO SKIP AND
5646 ;NO DATA CHANGE FOR 0 TO RAN CONDITION.
5647
5648 000004 AC=4
5649 036114 TDNE1B: SETUP 40,0^
5650 000005 AC1=<AC+1>&17
5651 000006 AC2=<AC+2>&17
5652 000007 AC3=<AC+3>&17
5653 000010 AC4=<AC+4>&17
5654 000011 AC5=<AC+5>&17
5655 000002 RAN1=<AC-2>&17
5656 036114 201 03 0 00 036114 MOVEI AC-1,.
5657 036115 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5658 036116 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5659 036117 202 03 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5660 036120 201 03 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
5661 036121 240 03 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5662 036122 240 03 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5663 036123 TDNE2B: RANDOM^
5664 036123 200 04 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5665 036124 270 04 0 00 037562 ADD AC,[142536475076]
5666 036125 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5667 036126 447 04 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
5668 036127 400 05 0 00 000000 TDNE3B: SETZ AC1, ;CLEAR C(E).
5669 036130 616 04 0 00 000005 TDNN AC,AC1 ;C(E) + C(AC) = 0. NO SKIP.
5670 036131 254 00 0 00 036133 JRST .+2
5671 036132 005 04 0 00 037577 ER AC,[ASCII /TST/];TDNN SKIPPED.
5672 036133 612 04 0 00 000005 TDNE AC,AC1 ;C(E) + C(AC) = 0. SKIP.
5673 036134 005 04 0 00 037577 ER AC,[ASCII /TST/]
5674 036135 312 04 0 00 037667 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
5675 036136 001 05 0 00 037667 ERR AC1,RAN
5676 LOOP TDNE2B,TDNE3B^
5677 036137 367 03 0 00 036123 SOJG AC-1,TDNE2B ;ITERATION COUNTER
5678 036140 200 04 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5679 036141 321 03 0 00 036127 JUMPL AC-1,TDNE3B ;LOOP ON ERROR SWITCH ^
5680
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 100
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0153
5681
5682 ;TEST TDNN,TDNE. CHECK FOR SKIP/ NO SKIP AND
5683 ;NO DATA CHANGE IN AC FOR RAN TO -1 CONDITION.
5684
5685 000005 AC=5
5686 036142 TDNE1C: SETUP 40,0^
5687 000006 AC1=<AC+1>&17
5688 000007 AC2=<AC+2>&17
5689 000010 AC3=<AC+3>&17
5690 000011 AC4=<AC+4>&17
5691 000012 AC5=<AC+5>&17
5692 000003 RAN1=<AC-2>&17
5693 036142 201 04 0 00 036142 MOVEI AC-1,.
5694 036143 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5695 036144 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5696 036145 202 04 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5697 036146 201 04 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
5698 036147 240 04 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5699 036150 240 04 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5700 036151 TDNE2C: RANDOM^
5701 036151 200 05 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5702 036152 270 05 0 00 037562 ADD AC,[142536475076]
5703 036153 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5704 036154 447 05 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
5705 036155 322 05 0 00 036151 JUMPE AC,TDNE2C ;REJECT IF RAN = 0.
5706 036156 477 06 0 00 000003 TDNE3C: SETOB AC1,RAN1 ;SET C(AC) TO ALL ONES.
5707 036157 612 06 0 00 000005 TDNE AC1,AC ;C(E) + C(AC) NOT = 0..NO SKIP.
5708 036160 254 00 0 00 036162 JRST .+2
5709 036161 005 06 0 00 037577 ER AC1,[ASCII /TST/];TDNE SKIPPED.
5710 036162 616 06 0 00 000005 TDNN AC1,AC ;C(E) + C(AC) NOT = 0..SKIP.
5711 036163 005 06 0 00 037577 ER AC1,[ASCII /TST/]
5712 036164 312 06 0 00 037565 CAME AC1,[-1] ;C(AC) SHOULD = ORIG C(AC).
5713 036165 001 05 0 00 000003 ERR AC,RAN1
5714 LOOP TDNE2C,TDNE3C^
5715 036166 367 04 0 00 036151 SOJG AC-1,TDNE2C ;ITERATION COUNTER
5716 036167 200 05 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5717 036170 321 04 0 00 036156 JUMPL AC-1,TDNE3C ;LOOP ON ERROR SWITCH ^
5718
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 101
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0154
5719
5720 ;TEST TDNE,TDNN. CHECK FOR SKIP/ NO SKIP AND
5721 ;NO DATA CHANGE IN AC FOR -1 TO RAN CONDITION.
5722
5723 000006 AC=6
5724 036171 TDNE1D: SETUP 40,0^
5725 000007 AC1=<AC+1>&17
5726 000010 AC2=<AC+2>&17
5727 000011 AC3=<AC+3>&17
5728 000012 AC4=<AC+4>&17
5729 000013 AC5=<AC+5>&17
5730 000004 RAN1=<AC-2>&17
5731 036171 201 05 0 00 036171 MOVEI AC-1,.
5732 036172 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5733 036173 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5734 036174 202 05 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5735 036175 201 05 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
5736 036176 240 05 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5737 036177 240 05 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5738 036200 TDNE2D: RANDOM^
5739 036200 200 06 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5740 036201 270 06 0 00 037562 ADD AC,[142536475076]
5741 036202 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5742 036203 447 06 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
5743 036204 322 06 0 00 036200 JUMPE AC,TDNE2D ;REJECT IF RAN = 0.
5744 036205 474 07 0 00 000000 TDNE3D: SETO AC1, ;SET C(E) TO ALL ONES.
5745 036206 612 06 0 00 000007 TDNE AC,AC1 ;C(E) + C(AC) NOT = 0..NO SKIP.
5746 036207 254 00 0 00 036211 JRST .+2
5747 036210 005 06 0 00 037577 ER AC,[ASCII /TST/];TDNE SKIPPED.
5748 036211 616 06 0 00 000007 TDNN AC,AC1 ;C(E) + C(AC) NOT = 0..SKIP.
5749 036212 005 06 0 00 037577 ER AC,[ASCII /TST/]
5750 036213 312 06 0 00 037667 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
5751 036214 001 07 0 00 037667 ERR AC1,RAN
5752 LOOP TDNE2D,TDNE3D^
5753 036215 367 05 0 00 036200 SOJG AC-1,TDNE2D ;ITERATION COUNTER
5754 036216 200 06 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5755 036217 321 05 0 00 036205 JUMPL AC-1,TDNE3D ;LOOP ON ERROR SWITCH ^
5756
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 102
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0155
5757
5758 ;TEST TDNE,TDNN. CHECK FOR SKIP/ NO SKIP AND
5759 ;NO DATA CHANGE IN AC FOR RAN TO RAN CONDITION.
5760
5761 000007 AC=7
5762 036220 TDNE1E: SETUP 20,0^
5763 000010 AC1=<AC+1>&17
5764 000011 AC2=<AC+2>&17
5765 000012 AC3=<AC+3>&17
5766 000013 AC4=<AC+4>&17
5767 000014 AC5=<AC+5>&17
5768 000005 RAN1=<AC-2>&17
5769 036220 201 06 0 00 036220 MOVEI AC-1,.
5770 036221 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5771 036222 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5772 036223 202 06 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5773 036224 201 06 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
5774 036225 240 06 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5775 036226 240 06 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5776 036227 TDNE2E: RANDOM^
5777 036227 200 07 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5778 036230 270 07 0 00 037562 ADD AC,[142536475076]
5779 036231 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5780 036232 447 07 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
5781 036233 322 07 0 00 036227 JUMPE AC,TDNE2E ;REJECT IF RAN = 0.
5782 036234 200 10 0 00 000007 TDNE3E: MOVE AC1,AC ;MAKE C(E) = C(AC).
5783 036235 612 07 0 00 000010 TDNE AC,AC1 ;C(E) + C(AC) NOT = 0..NO SKIP.
5784 036236 254 00 0 00 036240 JRST .+2
5785 036237 005 07 0 00 037577 ER AC,[ASCII /TST/];TDNE SKIPPED.
5786 036240 616 07 0 00 000010 TDNN AC,AC1 ;C(E) + C(AC) NOT = 0. SKIP.
5787 036241 005 07 0 00 037577 ER AC,[ASCII /TST/]
5788 036242 312 07 0 00 037667 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
5789 036243 001 10 0 00 037667 ERR AC1,RAN
5790 LOOP TDNE2E,TDNE3E^
5791 036244 367 06 0 00 036227 SOJG AC-1,TDNE2E ;ITERATION COUNTER
5792 036245 200 07 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5793 036246 321 06 0 00 036234 JUMPL AC-1,TDNE3E ;LOOP ON ERROR SWITCH ^
5794
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 103
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0156
5795
5796 ;TEST TDNE,TDNN. CHECK FOR SKIP/ NO SKIP AND
5797 ;NO DATA CHANGE IN AC FOR NOT RAN TO RAN CONDITON.
5798
5799 000010 AC=10
5800 036247 TDNE1F: SETUP 20,0^
5801 000011 AC1=<AC+1>&17
5802 000012 AC2=<AC+2>&17
5803 000013 AC3=<AC+3>&17
5804 000014 AC4=<AC+4>&17
5805 000015 AC5=<AC+5>&17
5806 000006 RAN1=<AC-2>&17
5807 036247 201 07 0 00 036247 MOVEI AC-1,.
5808 036250 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5809 036251 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5810 036252 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5811 036253 201 07 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
5812 036254 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5813 036255 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5814 036256 TDNE2F: RANDOM^
5815 036256 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5816 036257 270 10 0 00 037562 ADD AC,[142536475076]
5817 036260 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5818 036261 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
5819 036262 460 11 0 00 000010 TDNE3F: SETCM AC1,AC ;MAKE C(E) = 1'S COMP OF C(AC).
5820 036263 616 10 0 00 000011 TDNN AC,AC1 ;C(E) + C(AC) = 0..NO SKIP.
5821 036264 254 00 0 00 036266 JRST .+2
5822 036265 005 10 0 00 037577 ER AC,[ASCII /TST/];TDNN SKIPPED.
5823 036266 612 10 0 00 000011 TDNE AC,AC1 ;C(E) + C(AC) = 0..SKIP.
5824 036267 005 10 0 00 037577 ER AC,[ASCII /TST/]
5825 036270 312 10 0 00 037667 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
5826 036271 001 11 0 00 037667 ERR AC1,RAN
5827 LOOP TDNE2F,TDNE3F^
5828 036272 367 07 0 00 036256 SOJG AC-1,TDNE2F ;ITERATION COUNTER
5829 036273 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5830 036274 321 07 0 00 036262 JUMPL AC-1,TDNE3F ;LOOP ON ERROR SWITCH ^
5831
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 104
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0157
5832
5833 ;TEST TDZ,TDZA. CHECK FOR SKIP/ NO SKIP AND
5834 ;CORRECT DATA IN AC FOR NOT RAN TO RAN CONDITION.
5835
5836 000011 AC=11
5837 036275 TDZA1: SETUP 100,0^
5838 000012 AC1=<AC+1>&17
5839 000013 AC2=<AC+2>&17
5840 000014 AC3=<AC+3>&17
5841 000015 AC4=<AC+4>&17
5842 000016 AC5=<AC+5>&17
5843 000007 RAN1=<AC-2>&17
5844 036275 201 10 0 00 036275 MOVEI AC-1,.
5845 036276 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5846 036277 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5847 036300 202 10 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5848 036301 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5849 036302 240 10 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5850 036303 240 10 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5851 036304 TDZA2: RANDOM^
5852 036304 200 11 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5853 036305 270 11 0 00 037562 ADD AC,[142536475076]
5854 036306 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5855 036307 447 11 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
5856 036310 460 12 0 00 000011 TDZA3: SETCM AC1,AC ;MAKE C(E) 1'S COMP OF C(AC).
5857 036311 630 11 0 00 000012 TDZ AC,AC1 ;SHOULD NOT SKIP.
5858 036312 254 00 0 00 036314 JRST .+2
5859 036313 005 11 0 00 037577 ER AC,[ASCII/TST/] ;TDZ SKIPPED.
5860 036314 634 11 0 00 000012 TDZA AC,AC1 ;SHOULD SKIP.
5861 036315 005 11 0 00 037577 ER AC,[ASCII /TST/]
5862 036316 312 11 0 00 037667 CAME AC,RAN ;C(AC) SHOULD STILL = RAN NUM.
5863 036317 001 12 0 00 037667 ERR AC1,RAN
5864 036320 316 12 0 00 037667 CAMN AC1,RAN ;C(E) SHOULD NOT = RAN.
5865 036321 001 12 0 00 037667 ERR AC1,RAN
5866 LOOP TDZA2,TDZA3^
5867 036322 367 10 0 00 036304 SOJG AC-1,TDZA2 ;ITERATION COUNTER
5868 036323 200 11 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5869 036324 321 10 0 00 036310 JUMPL AC-1,TDZA3 ;LOOP ON ERROR SWITCH ^
5870
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 105
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0158
5871
5872 ;TEST TDZ,TDZA. CHECK FOR SKIP/NO SKIP AND
5873 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION.
5874
5875 000010 AC=10
5876 036325 TDZAA: SETUP 100,1^
5877 000011 AC1=<AC+1>&17
5878 000012 AC2=<AC+2>&17
5879 000013 AC3=<AC+3>&17
5880 000014 AC4=<AC+4>&17
5881 000015 AC5=<AC+5>&17
5882 000006 RAN1=<AC-2>&17
5883 036325 201 07 0 00 036325 MOVEI AC-1,.
5884 036326 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5885 036327 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5886 036330 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5887 036331 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5888 036332 240 07 1 00 030672 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
5889 036333 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5890 036334 TDZAB: RANDOM^
5891 036334 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5892 036335 270 10 0 00 037562 ADD AC,[142536475076]
5893 036336 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5894 036337 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
5895 036340 630 10 0 00 000010 TDZAC: TDZ AC,AC ;SHOULD NOT SKIP.
5896 036341 312 10 0 00 037563 CAME AC,[0] ;SHOULD CLEAR C(AC).
5897 036342 011 00 0 00 037667 EERR ,RAN
5898 036343 200 10 0 00 037667 MOVE AC,RAN ;RESTORE AC.
5899 036344 634 10 0 00 000010 TDZA AC,AC ;SHOULD SKIP.
5900 036345 005 10 0 00 037577 ER AC,[ASCII /TST/]
5901 036346 312 10 0 00 037563 CAME AC,[0] ;C(AC) SHOULD BE CLEARED.
5902 036347 011 00 0 00 037667 EERR ,RAN
5903 LOOP TDZAB,TDZAC^
5904 036350 367 07 0 00 036334 SOJG AC-1,TDZAB ;ITERATION COUNTER
5905 036351 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5906 036352 321 07 0 00 036340 JUMPL AC-1,TDZAC ;LOOP ON ERROR SWITCH ^
5907
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 106
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0159
5908
5909
5910 ;TEST TDZ,TDZA. CHECK FOR SKIP/ NO SKIP AND
5911 ;CORRECT DATA IN AC FOR RAN1 TO RAN CONDITION.
5912
5913 000010 AC=10
5914 036353 TDZB1: SETUP 100,0^
5915 000011 AC1=<AC+1>&17
5916 000012 AC2=<AC+2>&17
5917 000013 AC3=<AC+3>&17
5918 000014 AC4=<AC+4>&17
5919 000015 AC5=<AC+5>&17
5920 000006 RAN1=<AC-2>&17
5921 036353 201 07 0 00 036353 MOVEI AC-1,.
5922 036354 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5923 036355 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5924 036356 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5925 036357 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5926 036360 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5927 036361 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5928 036362 TDZB2: RANDOM^
5929 036362 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5930 036363 270 10 0 00 037562 ADD AC,[142536475076]
5931 036364 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5932 036365 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
5933 036366 204 11 0 00 000010 TDZB3: MOVS AC1,AC ;MAKE C(E) A DIFF. RAN. NUM.
5934 036367 200 12 0 00 000011 MOVE AC2,AC1 ;SIMULATE
5935 036370 430 12 0 00 000010 XOR AC2,AC ;A
5936 036371 404 12 0 00 000010 AND AC2,AC ;TDZ.
5937 036372 630 10 0 00 000011 TDZ AC,AC1 ;TDZ SHOULD NOT SKIP.
5938 036373 312 10 0 00 000012 CAME AC,AC2 ;C(AC) SHOULD = SIM. ANS.
5939 036374 001 11 0 00 037667 ERR AC1,RAN
5940 036375 200 10 0 00 037667 MOVE AC,RAN ;RESTORE AC.
5941 036376 634 10 0 00 000011 TDZA AC,AC1 ;SHOULD SKIP.
5942 036377 005 10 0 00 037577 ER AC,[ASCII /TST/]
5943 036400 312 10 0 00 000012 CAME AC,AC2 ;C(AC) SHOULD = SIM. ANS.
5944 036401 001 11 0 00 037667 ERR AC1,RAN
5945 LOOP TDZB2,TDZB3^
5946 036402 367 07 0 00 036362 SOJG AC-1,TDZB2 ;ITERATION COUNTER
5947 036403 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5948 036404 321 07 0 00 036366 JUMPL AC-1,TDZB3 ;LOOP ON ERROR SWITCH ^
5949
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 107
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0160
5950 ;TEST TDZE, TDZN. CHECK FOR SKIP/NO SKIP AND
5951 ;CORRECT DATA IN AC FOR FLOATING ONE IN C(E) AND
5952 ;THAT BIT CLEARED IN RANDOM NUM. IN AC.
5953
5954 000010 AC=10
5955 036405 TDZE1: SETUP 100,0^
5956 000011 AC1=<AC+1>&17
5957 000012 AC2=<AC+2>&17
5958 000013 AC3=<AC+3>&17
5959 000014 AC4=<AC+4>&17
5960 000015 AC5=<AC+5>&17
5961 000006 RAN1=<AC-2>&17
5962 036405 201 07 0 00 036405 MOVEI AC-1,.
5963 036406 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5964 036407 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5965 036410 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5966 036411 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5967 036412 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5968 036413 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5969 036414 201 11 0 00 000001 MOVEI AC1,1 ;SETUP AC1 TO CONTAIN A MASK BIT.
5970 036415 TDZE2: RANDOM^
5971 036415 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5972 036416 270 10 0 00 037562 ADD AC,[142536475076]
5973 036417 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5974 036420 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
5975 036421 241 11 0 00 000001 ROT AC1,1 ;ROT TO TEST NEXT BIT.
5976 036422 420 10 0 00 000011 TDZE3: ANDCM AC,AC1 ;CLEAR MASK BIT IN AC.
5977 036423 200 12 0 00 000010 MOVE AC2,AC ;SAVE FOR FUTURE COMPARE.
5978 036424 636 10 0 00 000011 TDZN AC,AC1 ;C(E) + C(AC) = 0...NO SKIP.
5979 036425 254 00 0 00 036427 JRST .+2
5980 036426 005 10 0 00 037577 ER AC,[ASCII /TST/] ;TDZN SKIPPED.
5981 036427 632 10 0 00 000011 TDZE AC,AC1 ;C(E) + C(AC) = 0...SKIP.
5982 036430 005 10 0 00 037577 ER AC,[ASCII /TST/]
5983 036431 312 10 0 00 000012 CAME AC,AC2 ;C(AC) SHOULD = ORIG C(AC).
5984 036432 001 11 0 00 000012 ERR AC1,AC2
5985 LOOP TDZE2,TDZE3^
5986 036433 367 07 0 00 036415 SOJG AC-1,TDZE2 ;ITERATION COUNTER
5987 036434 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5988 036435 321 07 0 00 036422 JUMPL AC-1,TDZE3 ;LOOP ON ERROR SWITCH ^
5989
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 108
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0161
5990
5991 ;TEST TDZE, TDZN. CHECK FOR SKIP/ NO SKIP AND
5992 ;CORRECT DATA IN AC FOR FLOATING ONE IN C(E)
5993 ;AND THAT BIT SET IN RAN. NUM. IN C(AC).
5994
5995 000010 AC=10
5996 036436 TDZEA: SETUP 100,0^
5997 000011 AC1=<AC+1>&17
5998 000012 AC2=<AC+2>&17
5999 000013 AC3=<AC+3>&17
6000 000014 AC4=<AC+4>&17
6001 000015 AC5=<AC+5>&17
6002 000006 RAN1=<AC-2>&17
6003 036436 201 07 0 00 036436 MOVEI AC-1,.
6004 036437 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6005 036440 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6006 036441 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6007 036442 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6008 036443 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6009 036444 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6010 036445 201 11 0 00 000001 MOVEI AC1,1 ;SET MASK BIT IN C(E).
6011 036446 TDZEB: RANDOM^
6012 036446 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6013 036447 270 10 0 00 037562 ADD AC,[142536475076]
6014 036450 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6015 036451 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
6016 036452 241 11 0 00 000001 ROT AC1,1 ;ROT MASK BIT TO TEST NEXT BIT.
6017 036453 434 10 0 00 000011 TDZEC: IOR AC,AC1 ;SET MASK BIT IN AC.
6018 036454 200 06 0 00 000010 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
6019 036455 200 12 0 00 000010 MOVE AC2,AC ;SIMULATE
6020 036456 420 12 0 00 000011 ANDCM AC2,AC1 ;A TDZ.
6021 036457 632 10 0 00 000011 TDZE AC,AC1 ;C(E) + C(AC) NOT = 0...NO SKIP.
6022 036460 312 10 0 00 000012 CAME AC,AC2 ;C(AC) SHOULD = SIM. ANS.
6023 036461 001 11 0 00 000006 ERR AC1,RAN1
6024 036462 434 10 0 00 000011 IOR AC,AC1 ;RESET MASK BIT IN AC.
6025 036463 636 10 0 00 000011 TDZN AC,AC1 ;C(E) + C(AC) NOT = 0...SKIP.
6026 036464 005 10 0 00 037577 ER AC,[ASCII /TST/]
6027 036465 312 10 0 00 000012 CAME AC,AC2 ;AND C(AC) SHOULD = SIM. ANS.
6028 036466 001 11 0 00 000006 ERR AC1,RAN1
6029 LOOP TDZEB,TDZEC^
6030 036467 367 07 0 00 036446 SOJG AC-1,TDZEB ;ITERATION COUNTER
6031 036470 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6032 036471 321 07 0 00 036453 JUMPL AC-1,TDZEC ;LOOP ON ERROR SWITCH ^
6033
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 109
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0162
6034
6035 ;TEST TDZE,TDZN. SET AND ROT A MASK BIT IN AC
6036 ;AND CHECK SKIP/NO SKIP AND PROPER C(AC)
6037 ;FOR MASK BIT IN AC ANS RANDOM NUMBER IN E.
6038
6039 000010 AC=10
6040 036472 TDZNA: SETUP 100,0^
6041 000011 AC1=<AC+1>&17
6042 000012 AC2=<AC+2>&17
6043 000013 AC3=<AC+3>&17
6044 000014 AC4=<AC+4>&17
6045 000015 AC5=<AC+5>&17
6046 000006 RAN1=<AC-2>&17
6047 036472 201 07 0 00 036472 MOVEI AC-1,.
6048 036473 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6049 036474 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6050 036475 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6051 036476 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6052 036477 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6053 036500 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6054 036501 201 11 0 00 000001 MOVEI AC1,1 ;SETUP AC1 FOR MASK BIT.
6055 036502 TDZNB: RANDOM^
6056 036502 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6057 036503 270 10 0 00 037562 ADD AC,[142536475076]
6058 036504 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6059 036505 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
6060 036506 241 11 0 00 000001 ROT AC1,1 ;ROT AC1 TO TEST NEXT BIT.
6061 036507 200 12 0 00 000011 MOVE AC2,AC1 ;SAVE MASK BIT.
6062 036510 200 11 0 00 000012 TDZNC: MOVE AC1,AC2 ;RESTORE MASK BIT IF ERROR.
6063 036511 420 10 0 00 000011 ANDCM AC,AC1 ;CLEAR MASK BIT IN RAN NUM.
6064 036512 636 11 0 00 000010 TDZN AC1,AC ;C(E) + C(AC) =0..SHOULDN'T SKIP.
6065 036513 254 00 0 00 036515 JRST .+2
6066 036514 005 11 0 00 037577 ER AC1,[ASCII /TST/];TDZN SKIPPED.
6067 036515 632 11 0 00 000010 TDZE AC1,AC ;C(E) + C(AC) = 0..SKIP.
6068 036516 005 11 0 00 037577 ER AC1,[ASCII /TST/]
6069 036517 312 11 0 00 000012 CAME AC1,AC2 ;C(AC1) SHOULD NOT HAVE CHANGED.
6070 036520 001 10 0 00 000012 ERR AC,AC2
6071 LOOP TDZNB,TDZNC^
6072 036521 367 07 0 00 036502 SOJG AC-1,TDZNB ;ITERATION COUNTER
6073 036522 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6074 036523 321 07 0 00 036510 JUMPL AC-1,TDZNC ;LOOP ON ERROR SWITCH ^
6075
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 110
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0163
6076
6077 ;TEST TDZE,TDZN. SET AND ROT A MASK BIT IN AC
6078 ;AND CHECK SKIP/NO SKIP AND PROPER C(AC)
6079 ;FOR MASK BIT IN AC AND RANDOM NUMBER IN E.
6080 ;RANDOM NUMBER HAS MASK BIT SET.
6081
6082 000010 AC=10
6083 036524 TDZN1: SETUP 40,0^
6084 000011 AC1=<AC+1>&17
6085 000012 AC2=<AC+2>&17
6086 000013 AC3=<AC+3>&17
6087 000014 AC4=<AC+4>&17
6088 000015 AC5=<AC+5>&17
6089 000006 RAN1=<AC-2>&17
6090 036524 201 07 0 00 036524 MOVEI AC-1,.
6091 036525 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6092 036526 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6093 036527 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6094 036530 201 07 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
6095 036531 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6096 036532 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6097 036533 201 11 0 00 000001 MOVEI AC1,1 ;SETUP AC1 FOR MASK BIT.
6098 036534 TDZN2: RANDOM^
6099 036534 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6100 036535 270 10 0 00 037562 ADD AC,[142536475076]
6101 036536 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6102 036537 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
6103 036540 241 11 0 00 000001 ROT AC1,1 ;ROT AC1 TO TEST NEXT BIT.
6104 036541 200 12 0 00 000011 TDZN3: MOVE AC2,AC1 ;SAVE MASK BIT.
6105 036542 434 10 0 00 000011 IOR AC,AC1 ;SET MASK BIT IN RAN.
6106 036543 632 11 0 00 000010 TDZE AC1,AC ;C(E) + C(AC) NOT = 0...NO SKIP.
6107 036544 312 11 0 00 037563 CAME AC1,[0] ;C(AC) SHOULD = 0.
6108 036545 001 10 0 00 000012 ERR AC,AC2
6109 036546 200 11 0 00 000012 MOVE AC1,AC2 ;RESTORE MASK BIT.
6110 036547 636 11 0 00 000010 TDZN AC1,AC ;C(E) + C(AC) NOT = 0...SKIP.
6111 036550 005 11 0 00 037577 ER AC1,[ASCII /TST/]
6112 036551 312 11 0 00 037563 CAME AC1,[0] ;AC1 SHOULD HAVE GOTTEN CLEARED OUT.
6113 036552 001 10 0 00 000012 ERR AC,AC2
6114 036553 200 11 0 00 000012 MOVE AC1,AC2 ;RESTORE MASK BIT.
6115 LOOP TDZN2,TDZN3^
6116 036554 367 07 0 00 036534 SOJG AC-1,TDZN2 ;ITERATION COUNTER
6117 036555 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6118 036556 321 07 0 00 036541 JUMPL AC-1,TDZN3 ;LOOP ON ERROR SWITCH ^
6119
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 111
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0164
6120
6121 ;TEST TDO TDOA. CHECK FOR SKIP/NO SKIP ANS CORRECT DATA
6122 ;IN AC FOR RAN TO NOT RAN.
6123
6124 000010 AC=10
6125 036557 TDOA1: SETUP 100,0^
6126 000011 AC1=<AC+1>&17
6127 000012 AC2=<AC+2>&17
6128 000013 AC3=<AC+3>&17
6129 000014 AC4=<AC+4>&17
6130 000015 AC5=<AC+5>&17
6131 000006 RAN1=<AC-2>&17
6132 036557 201 07 0 00 036557 MOVEI AC-1,.
6133 036560 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6134 036561 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6135 036562 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6136 036563 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6137 036564 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6138 036565 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6139 036566 TDOA2: RANDOM^
6140 036566 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6141 036567 270 10 0 00 037562 ADD AC,[142536475076]
6142 036570 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6143 036571 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
6144 036572 460 11 0 00 000010 TDOA3: SETCM AC1,AC ;MAKE "C(E)" = COMP OF RAN.
6145 036573 670 10 0 00 000011 TDO AC,AC1 ;SHOULD NOT SKIP.
6146 036574 312 10 0 00 037565 CAME AC,[-1] ;AC SHOULD HAVE ALL BITS SET.
6147 036575 001 11 0 00 037667 ERR AC1,RAN
6148 036576 200 10 0 00 037667 MOVE AC,RAN ;RESTORE AC.
6149 036577 674 10 0 00 000011 TDOA AC,AC1 ;SHOULD SKIP.
6150 036600 005 10 0 00 037577 ER AC,[ASCII /TST/]
6151 036601 312 10 0 00 037565 CAME AC,[-1] ;AC SHOULD HAVE ALL BITS SET.
6152 036602 001 11 0 00 037667 ERR AC1,RAN
6153 LOOP TDOA2,TDOA3^
6154 036603 367 07 0 00 036566 SOJG AC-1,TDOA2 ;ITERATION COUNTER
6155 036604 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6156 036605 321 07 0 00 036572 JUMPL AC-1,TDOA3 ;LOOP ON ERROR SWITCH ^
6157
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 112
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0165
6158
6159 ;TEST TDO,TDOA. CHECK SKIP/NO SKIP AND
6160 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION.
6161
6162 000002 AC=2
6163 036606 TDOAA: SETUP 40,0^
6164 000003 AC1=<AC+1>&17
6165 000004 AC2=<AC+2>&17
6166 000005 AC3=<AC+3>&17
6167 000006 AC4=<AC+4>&17
6168 000007 AC5=<AC+5>&17
6169 000000 RAN1=<AC-2>&17
6170 036606 201 01 0 00 036606 MOVEI AC-1,.
6171 036607 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6172 036610 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6173 036611 202 01 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6174 036612 201 01 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
6175 036613 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6176 036614 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6177 036615 TDOAB: RANDOM^
6178 036615 200 02 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6179 036616 270 02 0 00 037562 ADD AC,[142536475076]
6180 036617 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6181 036620 447 02 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
6182 036621 670 02 0 00 000002 TDOAC: TDO AC,AC ;SHOULD NOT SKIP.
6183 036622 254 00 0 00 036624 JRST .+2
6184 036623 005 02 0 00 037577 ER AC,[ASCII /TST/] ;TDO SKIPPED.
6185 036624 674 02 0 00 000002 TDOA AC,AC ;SHOULD SKIP.
6186 036625 005 02 0 00 037577 ER AC,[ASCII /TST/]
6187 036626 312 02 0 00 037667 CAME AC,RAN ;C(AC) SHOULD NOT HAVE CHANGED.
6188 036627 011 00 0 00 037667 EERR ,RAN
6189 LOOP TDOAB,TDOAC^
6190 036630 367 01 0 00 036615 SOJG AC-1,TDOAB ;ITERATION COUNTER
6191 036631 200 02 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6192 036632 321 01 0 00 036621 JUMPL AC-1,TDOAC ;LOOP ON ERROR SWITCH ^
6193
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 113
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0166
6194
6195 ;TEST TDO, TDOA. CHECK FOR SKIP/NO SKIP
6196 ;AND CORRECT DATA IN AC FOR RAN1 TO RAN CONDITION.
6197
6198 000002 AC=2
6199 036633 TDOB1: SETUP 400,3^
6200 000003 AC1=<AC+1>&17
6201 000004 AC2=<AC+2>&17
6202 000005 AC3=<AC+3>&17
6203 000006 AC4=<AC+4>&17
6204 000007 AC5=<AC+5>&17
6205 000000 RAN1=<AC-2>&17
6206 036633 201 01 0 00 036633 MOVEI AC-1,.
6207 036634 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6208 036635 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6209 036636 202 01 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6210 036637 201 01 0 00 000400 MOVEI AC-1,400 ;ROUTINE WEIGHTING
6211 036640 240 01 1 00 030674 ASH AC-1,@CMPLXT+3 ;ROUTINE COMPLEXITY
6212 036641 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6213 036642 TDOB2: RANDOM^
6214 036642 200 02 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6215 036643 270 02 0 00 037562 ADD AC,[142536475076]
6216 036644 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6217 036645 447 02 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
6218 036646 204 03 0 00 000002 TDOB3: MOVS AC1,AC ;MAKE AC1 ANOTHER RAN NUM.
6219 036647 200 04 0 00 000002 MOVE AC2,AC ;SIMULATE
6220 036650 430 04 0 00 000003 XOR AC2,AC1 ;A
6221 036651 434 04 0 00 000002 IOR AC2,AC ;TDO INST.
6222 036652 670 02 0 00 000003 TDO AC,AC1 ;SHOULD NOT SKIP.
6223 036653 312 02 0 00 000004 CAME AC,AC2 ;C(AC) = SIM. ANS?
6224 036654 001 03 0 00 037667 ERR AC1,RAN ;NO.
6225 036655 200 02 0 00 037667 MOVE AC,RAN ;RESTORE AC.
6226 036656 674 02 0 00 000003 TDOA AC,AC1 ;SHOULD SKIP.
6227 036657 005 02 0 00 037577 ER AC,[ASCII /TST/]
6228 036660 312 02 0 00 000004 CAME AC,AC2 ;C(AC) = SIM ANS?
6229 036661 001 03 0 00 037667 ERR AC1,RAN ;NO.
6230 LOOP TDOB2,TDOB3^
6231 036662 367 01 0 00 036642 SOJG AC-1,TDOB2 ;ITERATION COUNTER
6232 036663 200 02 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6233 036664 321 01 0 00 036646 JUMPL AC-1,TDOB3 ;LOOP ON ERROR SWITCH ^
6234
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 114
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0167
6235
6236 ;TEST TDOE,TDON. ROT A MASK BIT IN E AND SET THAT
6237 ;BIT IN AC BEFORE TDO. CHECK FOR SKIP/NO SKIP
6238 ;AND PROPER DATA IN AC.
6239
6240 000002 AC=2
6241 036665 TDOE1: SETUP 40,0^
6242 000003 AC1=<AC+1>&17
6243 000004 AC2=<AC+2>&17
6244 000005 AC3=<AC+3>&17
6245 000006 AC4=<AC+4>&17
6246 000007 AC5=<AC+5>&17
6247 000000 RAN1=<AC-2>&17
6248 036665 201 01 0 00 036665 MOVEI AC-1,.
6249 036666 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6250 036667 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6251 036670 202 01 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6252 036671 201 01 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
6253 036672 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6254 036673 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6255 036674 201 03 0 00 000001 MOVEI AC1,1 ;SETUP A MASK BIT IN "E".
6256 036675 TDOE2: RANDOM^
6257 036675 200 02 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6258 036676 270 02 0 00 037562 ADD AC,[142536475076]
6259 036677 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6260 036700 447 02 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
6261 036701 241 03 0 00 000000 ROT AC1, ;ROT MASK BIT TO TEST NEXT BIT.
6262 036702 434 02 0 00 000003 TDOE3: IOR AC,AC1 ;SET MASK BIT IN AC.
6263 036703 200 04 0 00 000002 MOVE AC2,AC ;SAVE AC IN AC2.
6264 036704 672 02 0 00 000003 TDOE AC,AC1 ;C(E) + C(AC) NOT = 0. NO SKIP.
6265 036705 254 00 0 00 036707 JRST .+2
6266 036706 005 02 0 00 037577 ER AC,[ASCII /TST/];TDOE SKIPPED.
6267 036707 676 02 0 00 000003 TDON AC,AC1 ;C(E) + C(AC) NOT = 0..SKIP.
6268 036710 005 02 0 00 037577 ER AC,[ASCII /TST/]
6269 036711 312 02 0 00 000004 CAME AC,AC2 ;C(AC) SHOULD NOT CHANGE.
6270 036712 001 03 0 00 000004 ERR AC1,AC2
6271 LOOP TDOE2,TDOE3^
6272 036713 367 01 0 00 036675 SOJG AC-1,TDOE2 ;ITERATION COUNTER
6273 036714 200 02 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6274 036715 321 01 0 00 036702 JUMPL AC-1,TDOE3 ;LOOP ON ERROR SWITCH ^
6275
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 115
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0168
6276
6277 ;TEST TDOE,TDON. ROT A MASK BIT IN E AND CLEAR THAT
6278 ;BIT IN AC BEFORE TDO. CHECK FOR SKIP/NO SKIP
6279 ;AND PROPER DATA IN AC.
6280
6281 000003 AC=3
6282 036716 TDOEA: SETUP 40,0^
6283 000004 AC1=<AC+1>&17
6284 000005 AC2=<AC+2>&17
6285 000006 AC3=<AC+3>&17
6286 000007 AC4=<AC+4>&17
6287 000010 AC5=<AC+5>&17
6288 000001 RAN1=<AC-2>&17
6289 036716 201 02 0 00 036716 MOVEI AC-1,.
6290 036717 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6291 036720 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6292 036721 202 02 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6293 036722 201 02 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
6294 036723 240 02 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6295 036724 240 02 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6296 036725 201 04 0 00 000001 MOVEI AC1,1 ;SETUP MASK BIT IN"E".
6297 036726 TDOEB: RANDOM^
6298 036726 200 03 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6299 036727 270 03 0 00 037562 ADD AC,[142536475076]
6300 036730 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6301 036731 447 03 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
6302 036732 241 04 0 00 000001 ROT AC1,1 ;ROT MASK BIT TO TEST NEXT BIT.
6303 036733 420 03 0 00 000004 TDOEC: ANDCM AC,AC1 ;CLEAR MASK BIT IN AC.
6304 036734 200 01 0 00 000003 MOVE RAN1,AC ;SAVE AC.
6305 036735 200 05 0 00 000003 MOVE AC2,AC ;SIMULATE
6306 036736 434 05 0 00 000004 IOR AC2,AC1 ;A TDO.
6307 036737 672 03 0 00 000004 TDOE AC,AC1 ;C(E) + C(AC) = 0. SKIP.
6308 036740 005 03 0 00 037577 ER AC,[ASCII /TST/]
6309 036741 312 03 0 00 000005 CAME AC,AC2 ;C(AC) = SIM ANS?
6310 036742 001 04 0 00 000001 ERR AC1,RAN1 ;NO.
6311 036743 200 03 0 00 000001 MOVE AC,RAN1 ;RESTORE AC.
6312 036744 676 03 0 00 000004 TDON AC,AC1 ;C(E) + C(AC) = 0..NO SKIP.
6313 036745 312 03 0 00 000005 CAME AC,AC2 ;C(AC) = SIM. ANS?
6314 036746 001 04 0 00 000001 ERR AC1,RAN1 ;NO.
6315 LOOP TDOEB,TDOEC^
6316 036747 367 02 0 00 036726 SOJG AC-1,TDOEB ;ITERATION COUNTER
6317 036750 200 03 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6318 036751 321 02 0 00 036733 JUMPL AC-1,TDOEC ;LOOP ON ERROR SWITCH ^
6319
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 116
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0169
6320
6321 ;TEST TDOE,TDON. ROT A MASK BIT IN AC AND CLEAR THAT
6322 ;BIT IN E BEFORE TDO. CHECK FOR SKIP/NO SKIP
6323 ;AND PROPER DATA IN AC.
6324
6325 000004 AC=4
6326 036752 TDONA: SETUP 40,0^
6327 000005 AC1=<AC+1>&17
6328 000006 AC2=<AC+2>&17
6329 000007 AC3=<AC+3>&17
6330 000010 AC4=<AC+4>&17
6331 000011 AC5=<AC+5>&17
6332 000002 RAN1=<AC-2>&17
6333 036752 201 03 0 00 036752 MOVEI AC-1,.
6334 036753 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6335 036754 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6336 036755 202 03 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6337 036756 201 03 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
6338 036757 240 03 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6339 036760 240 03 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6340 036761 201 05 0 00 000001 MOVEI AC1,1 ;SETUP A MASK BIT IN AC.
6341 036762 TDONB: RANDOM^
6342 036762 200 04 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6343 036763 270 04 0 00 037562 ADD AC,[142536475076]
6344 036764 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6345 036765 447 04 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
6346 036766 241 05 0 00 000001 ROT AC1,1 ;ROT BIT TO TEST NEXT BIT.
6347 036767 200 06 0 00 000005 MOVE AC2,AC1 ;SAVE MASK BIT SO IN CASE
6348 036770 200 05 0 00 000006 TDONC: MOVE AC1,AC2 ;OF ERROR IT CAN BE RESTORED.
6349 036771 420 04 0 00 000005 ANDCM AC,AC1 ;CLEAR MASK BIT IN E.
6350 036772 322 04 0 00 036762 JUMPE AC,TDONB ;REJECT IF C(AC) = 0.
6351 036773 200 07 0 00 000004 MOVE AC3,AC ;SIMULATE
6352 036774 434 07 0 00 000005 IOR AC3,AC1 ;TDO.
6353 036775 672 05 0 00 000004 TDOE AC1,AC ;C(E) + C(AC) = 0...SKIP.
6354 036776 005 05 0 00 037577 ER AC1,[ASCII /TST/];TDOE DID NOT SKIP.
6355 036777 312 05 0 00 000007 CAME AC1,AC3 ;C(AC) SHOULD = SIM. ANS.
6356 037000 001 04 0 00 000006 ERR AC,AC2
6357 037001 676 05 0 00 000004 TDON AC1,AC ;C(E) + C(AC) NOT = 0...SKIP.
6358 037002 005 05 0 00 037577 ER AC1,[ASCII /TST/]
6359 037003 312 05 0 00 000007 CAME AC1,AC3 ;C(AC) SHOULD = SIM. ANS.
6360 037004 001 04 0 00 000006 ERR AC,AC2
6361 037005 200 05 0 00 000006 MOVE AC1,AC2 ;RESTORE AC.
6362 LOOP TDONB,TDONC^
6363 037006 367 03 0 00 036762 SOJG AC-1,TDONB ;ITERATION COUNTER
6364 037007 200 04 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6365 037010 321 03 0 00 036770 JUMPL AC-1,TDONC ;LOOP ON ERROR SWITCH ^
6366
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 117
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0170
6367
6368 ;TEST TDOE,TDON. ROT A MASK BIT IN AC AND SET
6369 ;THAT BIT IN E BEFORE TDO. CHECK FOR SKIP/ NO SKIP
6370 ;AND CORRECT DATA IN AC.
6371
6372 000005 AC=5
6373 037011 TDON1: SETUP 40,0^
6374 000006 AC1=<AC+1>&17
6375 000007 AC2=<AC+2>&17
6376 000010 AC3=<AC+3>&17
6377 000011 AC4=<AC+4>&17
6378 000012 AC5=<AC+5>&17
6379 000003 RAN1=<AC-2>&17
6380 037011 201 04 0 00 037011 MOVEI AC-1,.
6381 037012 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6382 037013 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6383 037014 202 04 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6384 037015 201 04 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
6385 037016 240 04 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6386 037017 240 04 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6387 037020 201 06 0 00 000001 MOVEI AC1,1 ;SETUP AC TO CONTAIN A MASK BIT.
6388 037021 TDON2: RANDOM^
6389 037021 200 05 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6390 037022 270 05 0 00 037562 ADD AC,[142536475076]
6391 037023 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6392 037024 447 05 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
6393 037025 241 06 0 00 000001 ROT AC1,1 ;ROT TO TEST NEXT BIT.
6394 037026 200 07 0 00 000006 MOVE AC2,AC1 ;SAVE C(AC) SO IT CAN BE
6395 037027 200 06 0 00 000007 TDON3: MOVE AC1,AC2 ;RESTORED IN CASE OF ERROR.
6396 037030 434 05 0 00 000006 IOR AC,AC1 ;SET MASK BIT IN E.
6397 037031 672 06 0 00 000005 TDOE AC1,AC ;C(E) + C(AC) NOT = 0...NO SKIP.
6398 037032 254 00 0 00 037034 JRST .+2
6399 037033 005 06 0 00 037577 ER AC1,[ASCII /TST/];TDOE SKIPPED.
6400 037034 676 06 0 00 000005 TDON AC1,AC ;C(E) + C(AC) NOT = 0...SKIP.
6401 037035 005 06 0 00 037577 ER AC1,[ASCII /TST/]
6402 037036 312 06 0 00 000005 CAME AC1,AC ;C(AC) SHOULD = C(E).
6403 037037 001 05 0 00 000007 ERR AC,AC2
6404 037040 200 06 0 00 000007 MOVE AC1,AC2 ;RESTORE AC.
6405 LOOP TDON2,TDON3^
6406 037041 367 04 0 00 037021 SOJG AC-1,TDON2 ;ITERATION COUNTER
6407 037042 200 05 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6408 037043 321 04 0 00 037027 JUMPL AC-1,TDON3 ;LOOP ON ERROR SWITCH ^
6409
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 118
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0171
6410
6411 ;TEST TDC. CHECK FOR SKIP/NO SKIP AND CORRECT
6412 ;DATA FOR NOT RAN TO RAN CONDITION.
6413
6414 000006 AC=6
6415 037044 TDC1: SETUP 100,0^
6416 000007 AC1=<AC+1>&17
6417 000010 AC2=<AC+2>&17
6418 000011 AC3=<AC+3>&17
6419 000012 AC4=<AC+4>&17
6420 000013 AC5=<AC+5>&17
6421 000004 RAN1=<AC-2>&17
6422 037044 201 05 0 00 037044 MOVEI AC-1,.
6423 037045 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6424 037046 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6425 037047 202 05 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6426 037050 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6427 037051 240 05 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6428 037052 240 05 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6429 037053 TDC2: RANDOM^
6430 037053 200 06 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6431 037054 270 06 0 00 037562 ADD AC,[142536475076]
6432 037055 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6433 037056 447 06 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
6434 037057 460 07 0 00 037667 TDC3: SETCM AC1,RAN ;MAKE C("E") = COMP. OF RAN.
6435 037060 650 06 0 00 000007 TDC AC,AC1 ;NO SKIP.
6436 037061 312 06 0 00 037565 CAME AC,[-1] ;C(AC) SHOULD = A -1.
6437 037062 001 07 0 00 037667 ERR AC1,RAN
6438 037063 474 04 0 00 000000 SETO RAN1, ;SET RAN1 FOR ERROR MESSAGE.
6439 037064 650 06 0 00 000007 TDC AC,AC1 ;NO SKIP.
6440 037065 312 06 0 00 037667 CAME AC,RAN ;C(AC) SHOULD = RAN AGAIN.
6441 037066 001 07 0 00 000004 ERR AC1,RAN1
6442 LOOP TDC2,TDC3^
6443 037067 367 05 0 00 037053 SOJG AC-1,TDC2 ;ITERATION COUNTER
6444 037070 200 06 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6445 037071 321 05 0 00 037057 JUMPL AC-1,TDC3 ;LOOP ON ERROR SWITCH ^
6446
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 119
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0172
6447
6448 ;TEST TDCA. CHECKING FOR SKIP/ NO SKIP AND
6449 ;CORRECT DATA IN AC FOR NOT RAN TO RAN CONDITION.
6450
6451 000010 AC=10
6452 037072 TDCA1: SETUP 100,0^
6453 000011 AC1=<AC+1>&17
6454 000012 AC2=<AC+2>&17
6455 000013 AC3=<AC+3>&17
6456 000014 AC4=<AC+4>&17
6457 000015 AC5=<AC+5>&17
6458 000006 RAN1=<AC-2>&17
6459 037072 201 07 0 00 037072 MOVEI AC-1,.
6460 037073 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6461 037074 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6462 037075 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6463 037076 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6464 037077 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6465 037100 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6466 037101 TDCA2: RANDOM^
6467 037101 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6468 037102 270 10 0 00 037562 ADD AC,[142536475076]
6469 037103 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6470 037104 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
6471 037105 460 11 0 00 037667 TDCA3: SETCM AC1,RAN ;MAKE C("E") = COMP OF RAN.
6472 037106 650 10 0 00 000011 TDC AC,AC1 ;SHOULD NOT SKIP.
6473 037107 254 00 0 00 037111 JRST .+2
6474 037110 005 10 0 00 037577 ER AC,[ASCII /TST/];TDC SKIPPED.
6475 037111 654 10 0 00 000011 TDCA AC,AC1 ;SHOULD SKIP.
6476 037112 005 10 0 00 037577 ER AC,[ASCII /TST/]
6477 037113 312 10 0 00 037667 CAME AC,RAN ;TWO TDC'S SHOULD RETURN C(AC)
6478 ;TO IT'S ORIGINAL VALUE.
6479 037114 001 11 0 00 037667 ERR AC1,RAN
6480 LOOP TDCA2,TDCA3^
6481 037115 367 07 0 00 037101 SOJG AC-1,TDCA2 ;ITERATION COUNTER
6482 037116 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6483 037117 321 07 0 00 037105 JUMPL AC-1,TDCA3 ;LOOP ON ERROR SWITCH ^
6484
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 120
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0173
6485
6486 ;TEST TDCE. CHECKING FOR SKIP/NO SKIP AND
6487 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION.
6488
6489 000011 AC=11
6490 037120 TDCE1: SETUP 100,0^
6491 000012 AC1=<AC+1>&17
6492 000013 AC2=<AC+2>&17
6493 000014 AC3=<AC+3>&17
6494 000015 AC4=<AC+4>&17
6495 000016 AC5=<AC+5>&17
6496 000007 RAN1=<AC-2>&17
6497 037120 201 10 0 00 037120 MOVEI AC-1,.
6498 037121 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6499 037122 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6500 037123 202 10 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6501 037124 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6502 037125 240 10 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6503 037126 240 10 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6504 037127 TDCE2: RANDOM^
6505 037127 200 11 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6506 037130 270 11 0 00 037562 ADD AC,[142536475076]
6507 037131 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6508 037132 447 11 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
6509 037133 403 12 0 00 000007 TDCE3: SETZB AC1,RAN1 ;CLEAR BOTH AC AND RAN1.
6510 037134 652 12 0 00 000011 TDCE AC1,AC ;C(E) + C(AC) = 0. SKIP.
6511 037135 005 12 0 00 037577 ER AC1,[ASCII /TST/]
6512 037136 312 12 0 00 037667 CAME AC1,RAN ;C(AC) SHOULD = RAN.
6513 037137 011 00 0 00 000007 EERR ,RAN1
6514 LOOP TDCE2,TDCE3^
6515 037140 367 10 0 00 037127 SOJG AC-1,TDCE2 ;ITERATION COUNTER
6516 037141 200 11 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6517 037142 321 10 0 00 037133 JUMPL AC-1,TDCE3 ;LOOP ON ERROR SWITCH ^
6518
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 121
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0174
6519
6520 ;TEST TDCE,TDCN. CHECKING FOR SKIP/NO SKIP AND
6521 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION.
6522
6523 000011 AC=11
6524 037143 TDCEA: SETUP 100,0^
6525 000012 AC1=<AC+1>&17
6526 000013 AC2=<AC+2>&17
6527 000014 AC3=<AC+3>&17
6528 000015 AC4=<AC+4>&17
6529 000016 AC5=<AC+5>&17
6530 000007 RAN1=<AC-2>&17
6531 037143 201 10 0 00 037143 MOVEI AC-1,.
6532 037144 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6533 037145 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6534 037146 202 10 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6535 037147 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6536 037150 240 10 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6537 037151 240 10 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6538 037152 TDCEB: RANDOM^
6539 037152 200 11 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6540 037153 270 11 0 00 037562 ADD AC,[142536475076]
6541 037154 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6542 037155 447 11 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
6543 037156 400 12 0 00 000000 TDCEC: SETZ AC1, ;CLEAR C(E).
6544 037157 656 11 0 00 000012 TDCN AC,AC1 ;C(E) + C(AC) = 0...NO SKIP.
6545 037160 254 00 0 00 037162 JRST .+2
6546 037161 005 11 0 00 037577 ER AC,[ASCII /TST/];TDCN SKIPPED.
6547 037162 652 11 0 00 000012 TDCE AC,AC1 ;C(E) + C(AC) = 0. SKIP.
6548 037163 005 11 0 00 037577 ER AC,[ASCII /TST/]
6549 037164 312 11 0 00 037667 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
6550 037165 001 12 0 00 037667 ERR AC1,RAN
6551 LOOP TDCEB,TDCEC^
6552 037166 367 10 0 00 037152 SOJG AC-1,TDCEB ;ITERATION COUNTER
6553 037167 200 11 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6554 037170 321 10 0 00 037156 JUMPL AC-1,TDCEC ;LOOP ON ERROR SWITCH ^
6555
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 122
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0175
6556
6557 ;TEST TDCE. CHECKING FOR SKIP/NO SKIP AND
6558 ;CORRECT DATA IN AC FOR RAN TO -1 CONDITION.
6559
6560 000010 AC=10
6561 037171 TDCE4: SETUP 100,0^
6562 000011 AC1=<AC+1>&17
6563 000012 AC2=<AC+2>&17
6564 000013 AC3=<AC+3>&17
6565 000014 AC4=<AC+4>&17
6566 000015 AC5=<AC+5>&17
6567 000006 RAN1=<AC-2>&17
6568 037171 201 07 0 00 037171 MOVEI AC-1,.
6569 037172 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6570 037173 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6571 037174 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6572 037175 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6573 037176 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6574 037177 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6575 037200 TDCE5: RANDOM^
6576 037200 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6577 037201 270 10 0 00 037562 ADD AC,[142536475076]
6578 037202 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6579 037203 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
6580 037204 322 10 0 00 037200 JUMPE AC,TDCE5 ;REJECT IF RAN = 0.
6581 037205 477 11 0 00 000006 TDCE6: SETOB AC1,RAN1 ;SET C(AC) TO ALL ONES.
6582 037206 460 12 0 00 000010 SETCM AC2,AC ;SIMULATE A TDC.
6583 037207 652 11 0 00 000010 TDCE AC1,AC ;C(E) + C(AC) NOT = 0. NO SKIP.
6584 037210 312 11 0 00 000012 CAME AC1,AC2 ;C(AC) = SIM.. ANS?
6585 037211 001 10 0 00 000006 ERR AC,RAN1 ;NO.
6586 LOOP TDCE5,TDCE6^
6587 037212 367 07 0 00 037200 SOJG AC-1,TDCE5 ;ITERATION COUNTER
6588 037213 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6589 037214 321 07 0 00 037205 JUMPL AC-1,TDCE6 ;LOOP ON ERROR SWITCH ^
6590
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 123
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0176
6591
6592 ;TEST TDCE,TDCN. CHECKING FOR SKIP/NO SKIP AND
6593 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION.
6594
6595 000010 AC=10
6596 037215 TDCED: SETUP 100,0^
6597 000011 AC1=<AC+1>&17
6598 000012 AC2=<AC+2>&17
6599 000013 AC3=<AC+3>&17
6600 000014 AC4=<AC+4>&17
6601 000015 AC5=<AC+5>&17
6602 000006 RAN1=<AC-2>&17
6603 037215 201 07 0 00 037215 MOVEI AC-1,.
6604 037216 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6605 037217 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6606 037220 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6607 037221 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6608 037222 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6609 037223 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6610 037224 TDCEE: RANDOM^
6611 037224 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6612 037225 270 10 0 00 037562 ADD AC,[142536475076]
6613 037226 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6614 037227 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
6615 037230 322 10 0 00 037224 JUMPE AC,TDCEE ;REJECT IF RAN = 0.
6616 037231 316 10 0 00 037565 CAMN AC,[-1] ;C(AC) = -1?
6617 037232 254 00 0 00 037224 JRST TDCEE ;YES. REJECT.
6618 037233 477 11 0 00 000006 TDCEF: SETOB AC1,RAN1 ;SET C(E) TO ALL ONES.
6619 037234 652 10 0 00 000011 TDCE AC,AC1 ;C(E) + C(AC) NOT = 0. NO SKIP.
6620 037235 254 00 0 00 037237 JRST .+2
6621 037236 005 10 0 00 037577 ER AC,[ASCII /TST/];TDCE SKIPPED.
6622 037237 656 10 0 00 000011 TDCN AC,AC1 ;C(E) + C(AC) NOT = 0..SKIP.
6623 037240 005 10 0 00 037577 ER AC,[ASCII /TST/]
6624 037241 312 10 0 00 037667 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
6625 037242 001 06 0 00 037667 ERR RAN1,RAN
6626 LOOP TDCEE,TDCEF^
6627 037243 367 07 0 00 037224 SOJG AC-1,TDCEE ;ITERATION COUNTER
6628 037244 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6629 037245 321 07 0 00 037233 JUMPL AC-1,TDCEF ;LOOP ON ERROR SWITCH ^
6630
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 124
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0177
6631
6632 ;TEST TDCE. CHECKING FOR SKIP/NO SKIP AND
6633 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION.
6634
6635 000010 AC=10
6636 037246 TDCE7: SETUP 100,0^
6637 000011 AC1=<AC+1>&17
6638 000012 AC2=<AC+2>&17
6639 000013 AC3=<AC+3>&17
6640 000014 AC4=<AC+4>&17
6641 000015 AC5=<AC+5>&17
6642 000006 RAN1=<AC-2>&17
6643 037246 201 07 0 00 037246 MOVEI AC-1,.
6644 037247 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6645 037250 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6646 037251 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6647 037252 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6648 037253 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6649 037254 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6650 037255 TDCE8: RANDOM^
6651 037255 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6652 037256 270 10 0 00 037562 ADD AC,[142536475076]
6653 037257 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6654 037260 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
6655 037261 322 10 0 00 037255 JUMPE AC,TDCE8 ;REJECT IF RAN = 0.
6656 037262 200 11 0 00 037667 TDCE9: MOVE AC1,RAN ;MAKE C("AC") = C("E").
6657 037263 652 11 0 00 000010 TDCE AC1,AC ;C(E) + C(AC) NOT = 0. NO SKIP.
6658 037264 312 11 0 00 037563 CAME AC1,[0] ;C(AC) SHOULD = 0.
6659 037265 001 10 0 00 000010 ERR AC,AC
6660 LOOP TDCE8,TDCE9^
6661 037266 367 07 0 00 037255 SOJG AC-1,TDCE8 ;ITERATION COUNTER
6662 037267 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6663 037270 321 07 0 00 037262 JUMPL AC-1,TDCE9 ;LOOP ON ERROR SWITCH ^
6664
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 125
DAKBAM MAC 21-JAN-77 16:47 DIAGNOSTIC SECTION SEQ 0178
6665
6666 ;TEST TDCE. CHECKING FOR SKIP/NO SKIP AND
6667 ;CORRECT DATA IN AC FOR RAN TO NOT RAN.
6668
6669 000010 AC=10
6670 037271 TDCEG: SETUP 100,0^
6671 000011 AC1=<AC+1>&17
6672 000012 AC2=<AC+2>&17
6673 000013 AC3=<AC+3>&17
6674 000014 AC4=<AC+4>&17
6675 000015 AC5=<AC+5>&17
6676 000006 RAN1=<AC-2>&17
6677 037271 201 07 0 00 037271 MOVEI AC-1,.
6678 037272 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6679 037273 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6680 037274 202 07 0 00 037664 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6681 037275 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6682 037276 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6683 037277 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6684 037300 TDCEH: RANDOM^
6685 037300 200 10 0 00 037667 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6686 037301 270 10 0 00 037562 ADD AC,[142536475076]
6687 037302 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6688 037303 447 10 0 00 037667 EQVB AC,RAN ;REGISTER RAN ^
6689 037304 460 11 0 00 000010 TDCEI: SETCM AC1,AC ;MAKE C("AC") = TO COMP OF RAN.
6690 037305 200 06 0 00 000011 MOVE RAN1,AC1 ;SAVE C(AC) IN CASE OF ERROR.
6691 037306 652 11 0 00 000010 TDCE AC1,AC ;C(E) + C(AC) = 0. SKIP.
6692 037307 005 11 0 00 037577 ER AC1,[ASCII /TST/]
6693 037310 312 11 0 00 037565 CAME AC1,[-1] ;C(AC) SHOULD = -1.
6694 037311 001 10 0 00 000006 ERR AC,RAN1
6695 LOOP TDCEH,TDCEI^
6696 037312 367 07 0 00 037300 SOJG AC-1,TDCEH ;ITERATION COUNTER
6697 037313 200 10 0 00 037667 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6698 037314 321 07 0 00 037304 JUMPL AC-1,TDCEI ;LOOP ON ERROR SWITCH ^
6699
6700
6701
6702 037315 254 00 0 00 030057 JRST BEGEND ;REPEAT TEST
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 1
UUOERR KLM 22-APR-75 01:42 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0179
6703 SUBTTL *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975
6704
6705 ;THIS SUBROUTINE PROVIDES ERROR REPORTING THRU THE USE OF UUO'S.
6706
6707 037316 202 00 0 00 037676 ERRMES: MOVEM 0,%ERAC0# ;SAVE AC0
6708 IFDEF EXCASB,<IFDEF KI10,<
6709 SKIPN KAIFLG
6710 JRST .+5
6711 SKIPE USER ;USER MODE ?
6712 JRST .+3
6713 SKIPE MARGIN
6714 DATAO APR,[IMGNOF,,ISPDOF] ;CLR MARGINS >>
6715 037317 202 01 0 00 037677 MOVEM 1,%ERAC1# ;SAVE AC1
6716 037320 202 02 0 00 037700 MOVEM 2,%ERAC2# ;SAVE AC2
6717 037321 350 00 0 00 030053 AOS ERRTLS ;INCREMENT ERROR TOTALS
6718 037322 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO
6719 037323 316 00 0 00 030052 CAMN 0,ERRPC ;PC = PC OF LAST ERROR ?
6720 037324 350 00 0 00 037665 AOS MICNT# ;YES, ADD 1 TO ERROR COUNT
6721 037325 200 00 0 00 037665 MOVE 0,MICNT
6722 037326 504 00 0 00 030114 HRL 0,$SVUPC
6723 037327 336 00 0 00 030041 SKIPN KLFLG ;NOT KL10
6724 037330 332 00 0 00 030037 SKIPE USER ;AND NOT USER?
6725 037331 254 00 0 00 037333 JRST .+2
6726 037332 7 004 14 0 00 000000 DATAO PI,0 ;YES, DISPLAY ERROR PC,ERROR COUNT
6727 037333 402 00 0 00 037666 SETZM PROCED# ;CLEAR PROCEED FLAG
6728 037334 037 10 0 00 000002 SWITCH
6729 037335 603 00 0 00 040000 TLNE NOPNT ;PRINTOUT ?
6730 037336 254 00 0 00 037522 JRST %ERRS1 ;NO, RESTORE AC'S AND RETURN
6731 037337 200 01 0 00 030113 MOVE 1,$SVUUO
6732 037340 242 01 0 00 777745 LSH 1,-^D27
6733 037341 202 01 0 00 037670 MOVEM 1,%ACS1A# ;SAVE UUO NUMBER
6734 037342 200 00 0 00 037676 MOVE 0,%ERAC0
6735 037343 200 01 0 00 037677 MOVE 1,%ERAC1
6736 037344 335 00 1 00 037664 SKIPGE @ERRLOP ;ERR LOOP AC > OR = 0 ?
6737 037345 254 00 0 00 037554 JRST %ERRS4 ;NO, SEE IF PRINT ALL
6738 037346 402 00 0 00 037665 %ERMS1: SETZM MICNT ;CLEAR ERROR COUNT
6739 037347 331 00 0 00 030043 SKIPL MONCTL ;DIAG MON OR SYS EXER ?
6740 037350 254 00 0 00 037354 JRST .+4 ;NO, DON'T NEED TITLE
6741 037351 336 00 0 00 037701 SKIPN %ERFST# ;FIRST ERROR ?
6742 037352 037 04 0 00 000002 PNTNM ;YES, PRINT PROGRAM TITLE
6743 037353 476 00 0 00 037701 SETOM %ERFST
6744 037354 336 00 0 00 030047 SKIPN PASCNT ;FIRST PASS ?
6745 037355 254 00 0 00 037361 JRST .+4 ;YES
6746 PMSG <^TEST PASS COUNT = >^
6747 037356 037 02 0 00 037600 PSIXM [SIXBIT\^TEST PASS COUNT = _\]^
6748 037357 200 00 0 00 030047 MOVE PASCNT
6749 037360 037 15 0 00 000000 PNTDEC
6750 PMSG <^PC = >^
6751 037361 037 02 0 00 037604 PSIXM [SIXBIT\^PC = _\]^
6752 037362 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO
6753 037363 202 00 0 00 030052 MOVEM 0,ERRPC ;SAVE FOR COMPARE
6754 037364 037 06 0 00 000000 PNT6 ;PRINT UUO ADDRESS
6755 XLIST
6756 LIST
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 4
UUOERR KLM 22-APR-75 01:42 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0180
6757 ;RELIABILITY FORMAT ERROR PRINTER
6758
6759 037365 402 00 0 00 037702 %ERMS2: SETZM %RAND# ;CLEAR PNT C(RAN) FLAG
6760 037366 200 01 0 00 037670 MOVE 1,%ACS1A
6761 037367 301 01 0 00 000011 CAIL 1,11 ;UUO # 11-13
6762 037370 476 00 0 00 037702 SETOM %RAND ;YES, SET PNT C(RAN) FLAG
6763 037371 620 01 0 00 000010 TRZ 1,10 ;MAKE UUO # 1-7
6764 037372 202 01 0 00 037670 MOVEM 1,%ACS1A
6765 037373 200 02 0 00 030052 MOVE 2,ERRPC ;GET UUO ADDRESS
6766 037374 200 02 0 02 777777 MOVE 2,-1(2) ;GET INST IN UUO-1
6767 037375 301 01 0 00 000004 CAIL 1,4 ;UUO # < THAN 4 ?
6768 037376 200 02 0 00 030113 MOVE 2,$SVUUO ;YES, GET UUO
6769 037377 202 02 0 00 037671 MOVEM 2,%CNTE# ;SAVE E ADDRESS
6770 037400 200 02 0 00 037700 MOVE 2,%ERAC2
6771 037401 200 01 0 00 037677 MOVE 1,%ERAC1
6772 037402 200 00 0 00 037676 MOVE 0,%ERAC0
6773 037403 201 01 1 00 037671 MOVEI 1,@%CNTE ;GET ADRS FIELD OF UUO OR UUO-1
6774 037404 202 01 0 00 037672 MOVEM 1,%EE1#
6775 037405 200 01 0 00 037677 MOVE 1,%ERAC1
6776 037406 200 01 1 00 037672 MOVE 1,@%EE1 ;GET C(E)
6777 037407 202 01 0 00 037673 MOVEM 1,%EE1A#
6778 037410 200 01 0 00 037677 MOVE 1,%ERAC1
6779 037411 201 01 1 00 030113 MOVEI 1,@$SVUUO ;GET ADDRESS FIELD OF UUO
6780 037412 202 01 0 00 037674 MOVEM 1,%EE2#
6781 037413 200 01 0 00 037670 MOVE 1,%ACS1A
6782 037414 306 01 0 00 000003 CAIN 1,3 ;UUO # 3 ?
6783 037415 254 00 0 00 037421 JRST .+4 ;YES
6784 037416 200 01 0 00 037677 MOVE 1,%ERAC1
6785 037417 200 01 1 00 037674 MOVE 1,@%EE2 ;GET C(E) OF UUO
6786 037420 202 01 0 00 037675 MOVEM 1,%EE2A#
6787 037421 200 02 0 00 037670 MOVE 2,%ACS1A ;GET UUO #
6788 037422 200 01 0 00 037671 MOVE 1,%CNTE
6789 037423 242 01 0 00 777751 LSH 1,-27 ;GET AC NUMBER
6790 037424 405 01 0 00 000017 ANDI 1,17
6791 037425 307 02 0 00 000005 CAIG 2,5 ;UUO # 6,7 OR 2
6792 037426 306 02 0 00 000002 CAIN 2,2
6793 037427 254 00 0 00 037476 JRST %ERR2 ;YES, GO PNT E AND C(E)
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 5
UUOERR KLM 22-APR-75 01:42 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0181
6794 ;PRINT ERROR AC
6795
6796 PMSG <^AC = >^
6797 037430 037 02 0 00 037606 PSIXM [SIXBIT\^AC = _\]^
6798 037431 200 00 0 00 000001 MOVE 0,1
6799 037432 037 02 0 00 000000 PNT2 ;PRINT AC NUMBER
6800 PMSG <^C(AC)= >^
6801 037433 037 02 0 00 037610 PSIXM [SIXBIT\^C(AC)= _\]^
6802 037434 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC)
6803 037435 307 01 0 00 000002 CAIG 1,2 ;IS AC # = SAVED AC ?
6804 037436 200 00 0 01 037676 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC
6805 037437 037 13 0 00 000000 %ERRB: PNTHW ;PRINT C(AC) OR UUO2 (E)
6806
6807 ;PRINT ERROR INFO
6808
6809 037440 306 02 0 00 000005 CAIN 2,5 ;UUO # 5
6810 037441 254 00 0 00 037512 JRST %ERR4 ;YES, GO PNT 'TST','SKP', OR ETC.
6811
6812 PMSG <^COR = >^
6813 037442 037 02 0 00 037612 PSIXM [SIXBIT\^COR = _\]^
6814 037443 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC)
6815 037444 307 01 0 00 000002 CAIG 1,2 ;IS AC # = SAVED AC ?
6816 037445 200 00 0 01 037676 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC
6817 037446 302 02 0 00 000002 CAIE 2,2
6818 037447 200 00 0 00 037673 MOVE 0,%EE1A ;UUO # 2, GET C(E)
6819 037450 037 13 0 00 000000 PNTHW ;PRINT C(E) OR UUO2 C(AC)
6820 037451 301 02 0 00 000004 CAIL 2,4 ;UUO # >3 ?
6821 037452 254 00 0 00 037515 JRST %ERRC ;YES, RESTORE AC'S AND RETURN
6822
6823 PMSG <^ ORIGINAL>^
6824 037453 037 02 0 00 037614 PSIXM [SIXBIT\^ ORIGINAL_\]^
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 6
UUOERR KLM 22-APR-75 01:42 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0182
6825 037454 200 01 0 00 030113 %ERRB1: MOVE 1,$SVUUO
6826 037455 242 01 0 00 777751 LSH 1,-27 ;GET AC # OF UUO
6827 037456 405 01 0 00 000017 ANDI 1,17
6828 PMSG <^C(AC)= >^
6829 037457 037 02 0 00 037610 PSIXM [SIXBIT\^C(AC)= _\]^
6830 037460 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC)
6831 037461 307 01 0 00 000002 CAIG 1,2 ;IS AC # = SAVED AC ?
6832 037462 200 00 0 01 037676 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC
6833 037463 332 00 0 00 037702 SKIPE %RAND ;PRINT C(RAN) FLAG SET ?
6834 037464 200 00 0 00 037667 MOVE 0,RAN# ;YES
6835 037465 037 13 0 00 000000 PNTHW ;PRINT C(AC) OR C(RAN)
6836 037466 306 02 0 00 000003 CAIN 2,3 ;UUO # 3 ?
6837 037467 254 00 0 00 037476 JRST %ERR2 ;YES, PRINT E, RESTORE AC'S AND RETURN
6838 037470 306 02 0 00 000007 CAIN 2,7 ;UUO # 7 ?
6839 037471 254 00 0 00 037515 JRST %ERRC ;YES, BYPASS PRINTING C(E)
6840 PMSG <^C(E) = >^
6841 037472 037 02 0 00 037617 PSIXM [SIXBIT\^C(E) = _\]^
6842 037473 200 00 0 00 037675 MOVE 0,%EE2A
6843 037474 037 13 0 00 000000 PNTHW ;PRINT C(E)
6844 037475 254 00 0 00 037515 JRST %ERRC
6845
6846 037476 %ERR2: PMSG <^E = >^
6847 037476 037 02 0 00 037621 PSIXM [SIXBIT\^E = _\]^
6848 037477 200 00 0 00 037674 MOVE 0,%EE2
6849 037500 306 02 0 00 000002 CAIN 2,2 ;UUO # 2 ?
6850 037501 200 00 0 00 037672 MOVE 0,%EE1
6851 037502 037 06 0 00 000000 PNT6 ;PRINT E OF UUO OR UUO-1
6852 037503 301 02 0 00 000006 CAIL 2,6 ;UUO 6 OR 7 ?
6853 037504 254 00 0 00 037454 JRST %ERRB1 ;YES, GO PNT C(AC), C(E) AND RETURN
6854 037505 306 02 0 00 000003 CAIN 2,3 ;UUO # 3 ?
6855 037506 254 00 0 00 037515 JRST %ERRC ;YES, RESTORE AC'S AND RETURN
6856
6857 PMSG <^C(E) = >^
6858 037507 037 02 0 00 037617 PSIXM [SIXBIT\^C(E) = _\]^
6859 037510 200 00 0 00 037673 MOVE 0,%EE1A ;GET C(E)
6860 037511 254 00 0 00 037437 JRST %ERRB
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 7
UUOERR KLM 22-APR-75 01:42 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0183
6861 ;PRINT ASCII COMMENT
6862
6863 037512 551 00 1 00 030113 %ERR4: HRRZI 0,@$SVUUO
6864 037513 037 00 0 00 000000 PNTA ;PRINT 'TST','SKP', OR ETC.
6865 037514 254 00 0 00 037515 JRST %ERRC
6866
6867 ;COMPLETE PRINTOUT
6868
6869 037515 037 00 0 00 030242 %ERRC: PCRL
6870
6871 XLIST
6872 LIST
6873 037516 254 00 0 00 037517 JRST %ERMORE
6874
6875 >
6876 LIST
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 8
UUOERR KLM 22-APR-75 01:42 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0184
6877 ;RESTORE AC'S AND RETURN OR HALT
6878
6879 037517 256 00 0 00 030101 %ERMORE:XCT ERMORE
6880 037520 037 16 0 00 000002 PNTMGN ;PRINT MARGINS
6881 037521 037 10 0 00 000002 SWITCH
6882
6883 037522 037 07 0 00 000003 %ERRS1: TTALTM ;ALTMODE CHECK
6884 037523 254 00 0 00 037527 JRST .+4 ;NONE
6885 037524 201 00 0 00 037527 MOVEI .+3 ;SAVE CONT ADDRESS
6886 037525 202 00 0 00 000130 MOVEM JOBOPC
6887 037526 254 00 1 00 030063 JRST @ALTMGO ;PERFORM TRANSFER
6888 037527 200 00 0 00 030046 MOVE CONSW
6889 037530 603 00 0 00 002000 TLNE 0,ERSTOP ;HALT ON ERROR SWITCH SET ?
6890 037531 037 14 0 00 000004 ERRHLT ;YES
6891 037532 607 00 0 00 004000 TLNN 0,LOOPER ;LOOP ON ERROR SWITCH SET ?
6892 037533 476 00 0 00 037666 SETOM PROCED ;NO, SET THE PROCEED FLAG
6893 037534 603 00 0 00 010000 TLNE 0,DING ;RING BELL SWITCH SET ?
6894 037535 037 01 0 00 000007 PBELL ;YES, GO RING BELL
6895
6896 037536 200 02 0 00 037700 %ERRS2: MOVE 2,%ERAC2 ;RESTORE AC'S
6897 037537 200 01 0 00 037677 MOVE 1,%ERAC1
6898 037540 476 00 1 00 037664 SETOM @ERRLOP ;SET C(ERR LOOP AC) TO -1
6899 037541 336 00 0 00 037666 SKIPN PROCED ;LOOP ON ERROR ?
6900 037542 254 00 0 00 037552 JRST %ERRS5 ;YES
6901 037543 350 00 1 00 037664 AOS @ERRLOP ;NO, INC C(ERR LOOP AC)
6902 037544 350 00 1 00 037664 AOS @ERRLOP ;SO IT ='S 1
6903 037545 331 00 0 00 030043 SKIPL MONCTL ;UNDER DIAGNOSTIC MONITOR ?
6904 037546 254 00 0 00 037552 JRST %ERRS5 ;NO, CONTINUE PROGRAM
6905 037547 200 00 0 00 030053 MOVE 0,ERRTLS ;YES
6906 037550 301 00 0 00 000005 CAIL 0,5 ;PRINTED ALLOWED ERRORS ?
6907 037551 254 00 0 00 030061 JRST $BEND2
6908
6909 037552 200 00 0 00 037676 %ERRS5: MOVE 0,%ERAC0 ;NO, CONTINUE PROGRAM
6910 IFDEF EXCASB,<IFDEF KI10,<
6911 SKIPN KAIFLG
6912 JRST .+5
6913 SKIPE USER
6914 JRST .+3
6915 SKIPE MARGIN
6916 DATAO APR,MARGIN ;RESET MARGIN SYSTEM >>
6917 037553 254 00 0 00 030065 JRST UUOEXT
6918
6919 037554 200 00 0 00 030046 %ERRS4: MOVE 0,CONSW
6920 037555 607 00 0 00 001000 TLNN PALERS ;PRINT ALL ERRORS ?
6921 037556 254 00 0 00 037522 JRST %ERRS1 ;NO
6922 037557 254 00 0 00 037346 JRST %ERMS1 ;YES
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 1
STOR KLM 18-JAN-77 11:42 *STOR* RESERVED STORAGE, JAN 18,1977 SEQ 0185
6923 SUBTTL *STOR* RESERVED STORAGE, JAN 18,1977
6924
6925 ;PROGRAM LITERALS
6926
6927 XLIST
6928 IFNDEF $LPAPER,<LIST>
6929 037560 LIT
6930 037560 64 51 55 45 62 00
6931 037561 45 70 51 64 00 00
6932 037562 142536 475076
6933 037563 000000 000000
6934 037564 123 113 120 000 000
6935 037565 777777 777777
6936 037566 000000 000377
6937 037567 117 126 000 000 000
6938 037570 400000 000000
6939 037571 000000 000001
6940 037572 103 122 131 060 000
6941 037573 103 122 131 061 000
6942 037574 103 122 131 060 061
6943 037575 777777 000000
6944 037576 377777 777777
6945 037577 124 123 124 000 000
6946 037600 76 64 45 63 64 00
6947 037601 60 41 63 63 00 43
6948 037602 57 65 56 64 00 35
6949 037603 00 77 00 00 00 00
6950 037604 76 60 43 00 35 00
6951 037605 00 00 77 00 00 00
6952 037606 76 41 43 00 35 00
6953 037607 00 00 77 00 00 00
6954 037610 76 43 10 41 43 11
6955 037611 35 00 77 00 00 00
6956 037612 76 43 57 62 00 35
6957 037613 00 00 77 00 00 00
6958 037614 76 00 00 00 00 57
6959 037615 62 51 47 51 56 41
6960 037616 54 77 00 00 00 00
6961 037617 76 43 10 45 11 00
6962 037620 35 00 77 00 00 00
6963 037621 76 45 00 35 00 00
6964 037622 00 00 77 00 00 00
6965 LIST
6966 037623 000000 000000 ENDSLD: 0
6967
6968 IFDEF DEBUG,<
6969 037624 PATCH: BLOCK DEBUG ;PATCHING AREA
6970 >
6971
6972 ;PROGRAM VARIABLES
6973 037664 VAR
6974
6975 IFDEF PGMEND,<
6976 037703 000000 000000 END: 0
6977 030000 END BEGIN >
DAKBA PDP-10 KA10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %52(537) 17:24 21-JAN-77 PAGE 1-1
STOR KLM 18-JAN-77 11:42 *STOR* RESERVED STORAGE, JAN 18,1977 SEQ 0186
NO ERRORS DETECTED
PROGRAM BREAK IS 000000
ABSLUTE BREAK IS 037704
CPU TIME USED 00:32.099
11K CORE USED
A 676# 686 688 688# 689 691 691# 692 694 694# 695 697 697# 698
700 700# 701 703 703# 704 706 706# SEQ 0187
AABCLR 344#
AADRBK 344#
AAPRC1 344#
ABORT 115#
AC 758# 760 761 762 763 764 765 766 767 768 769 770 771 772
774 775 776 777 785 786 787 788 789 789# 791 792 793 794
795 795# 797 798 799 800 801 801# 803 804 805 806 807 807#
809 810 811 812 813 813# 815 816 817 818 819 819# 821 822
823 824 825 825# 827 828 829 830 831 831# 833 834 835 836
837 837# 839 840 841 842 843 843# 845# 847 848 849 857# 859
860 861 862 863 864 865 866 867 868 869 870 871 873 874
875 876 885 886 887 888 889 890 890# 892 893 894 895 896
897 897# 899 900 901 902 903 904 904# 906 907 908 909 910
911 911# 913 914 915 916 917 918 918# 920 921 922 923 924
925 925# 927 928 929 930 931 932 932# 934 935 936 937 938
939 939# 941 942 943 944 945 946 946# 948 949 950 951 952
953 953# 955# 957 958 959 965# 967 968 969 970 971 972 973
974 975 976 977 978 979 981 982 983 984 996 997 1000 1000#
1001 1004 1005 1008 1008# 1009 1012 1013 1016 1016# 1017 1020 1021 1024
1024# 1025 1028 1029 1032 1032# 1033 1036 1037 1040 1040# 1041 1044 1045
1048 1048# 1049 1052 1053 1056 1056# 1057 1059# 1061 1062 1063 1069# 1071
1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 1083 1085 1086
1087 1088 1102 1103 1104 1105 1110 1110# 1111 1113 1114 1115 1116 1121
1121# 1122 1124 1125 1126 1127 1132 1132# 1133 1135 1136 1137 1138 1143
1143# 1144 1146 1147 1148 1149 1154 1154# 1155 1157 1158 1159 1160 1165
1165# 1166 1168 1169 1170 1171 1176 1176# 1177 1179 1180 1181 1182 1187
1187# 1188 1190# 1192 1193 1194 1201# 1203 1204 1205 1206 1207 1208 1209
1210 1211 1212 1213 1214 1215 1217 1218 1219 1220 1222 1223 1228 1229
1230 1237# 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266
1267 1269 1270 1271 1272 1274 1275 1276 1278 1279 1280 1281 1282 1286
1287 1288 1289 1289# 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301
1302 1303 1304 1306 1307 1308 1309 1311 1312 1313 1315 1316 1317 1318
1319 1323 1324 1325 1326 1326# 1333# 1335 1336 1337 1338 1339 1340 1341
1342 1343 1344 1345 1346 1347 1349 1350 1351 1352 1362 1363 1364 1365
1366 1367 1367# 1368 1370 1371 1372 1373 1374 1375 1375# 1376 1378 1379
1380 1381 1382 1383 1383# 1384 1386 1387 1388 1389 1390 1391 1391# 1392
1394# 1396 1397 1398 1405# 1428 1429 1430 1431 1432 1433 1434 1435 1436
1437 1438 1439 1440 1442 1443 1444 1445 1446 1447 1448 1449 1450 1451
1452 1453 1454 1455 1456 1457 1458 1459 1460 1462 1463 1464 1465 1465#
1468 1469 1470 1471 1472 1473 1474 1475 1476 1477 1478 1479 1480 1482
1483 1484 1485 1486 1487 1488 1489 1490 1491 1492 1493 1494 1495 1496
1497 1498 1499 1500 1502 1503 1504 1505 1505# 1508 1509 1510 1511 1512
1513 1514 1515 1516 1517 1518 1519 1520 1522 1523 1524 1525 1526 1527
1528 1529 1530 1531 1532 1533 1534 1535 1536 1537 1538 1539 1540 1542
1543 1544 1545 1545# 1553# 1555 1556 1557 1558 1559 1560 1561 1562 1563
1564 1565 1566 1567 1569 1570 1571 1572 1596 1597 1598 1599 1600 1601
1602 1603 1604 1605 1606 1607 1608 1609 1610 1611 1612 1613 1614 1615
1616 1616# 1618 1619 1620 1621 1622 1623 1624 1625 1626 1627 1628 1629
1630 1631 1632 1633 1634 1635 1636 1637 1638 1638# 1640# 1642 1643 1644
1649# 1651 1652 1653 1654 1655 1656 1657 1658 1659 1660 1661 1662 1663
1665 1666 1667 1668 1669 1670 1671 1672 1673 1674 1675 1676 1677 1678
1680 1681 1682 1688# 1690 1691 1692 1693 1694 1695 1696 1697 1698 1699
1700 1701 1702 1704 1705 1706 1707 1708 1709 1710 1711 1712 1713 1714 SEQ 0188
1715 1716 1717 1718 1719 1720 1722 1723 1724 1731# 1733 1734 1735 1736
1737 1738 1739 1740 1741 1742 1743 1744 1745 1747 1748 1749 1750 1751
1752 1753 1754 1755 1756 1757 1758 1759 1760 1762 1763 1764 1770# 1772
1773 1774 1775 1776 1777 1778 1779 1780 1781 1782 1783 1784 1786 1787
1788 1789 1790 1791 1792 1793 1794 1795 1796 1797 1798 1799 1800 1802
1803 1804 1810# 1812 1813 1814 1815 1816 1817 1818 1819 1820 1821 1822
1823 1824 1826 1827 1828 1829 1838 1840 1840# 1841 1844 1846 1846# 1847
1849# 1851 1852 1853 1858# 1860 1861 1862 1863 1864 1865 1866 1867 1868
1869 1870 1871 1872 1874 1875 1876 1877 1883 1884 1885 1892# 1894 1895
1896 1897 1898 1899 1900 1901 1902 1903 1904 1905 1906 1908 1909 1910
1911 1912 1913 1914 1915 1916 1917 1918 1919 1920 1921 1922 1923 1924
1925 1927 1928 1929 1935# 1937 1938 1939 1940 1941 1942 1943 1944 1945
1946 1947 1948 1949 1951 1952 1953 1954 1955 1956 1957 1958 1959 1960
1961 1962 1963 1964 1965 1966 1968 1969 1970 1976# 1978 1979 1980 1981
1982 1983 1984 1985 1986 1987 1988 1989 1990 1992 1993 1994 1995 1996
1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2008 2009 2010 2016#
2018 2019 2020 2021 2022 2023 2024 2025 2026 2027 2028 2029 2030 2032
2033 2034 2035 2036 2037 2038 2039 2040 2041 2042 2043 2044 2045 2046
2047 2048 2049 2050 2052 2053 2054 2060# 2062 2063 2064 2065 2066 2067
2068 2069 2070 2071 2072 2073 2074 2076 2077 2078 2079 2084 2086 2088
2090 2092 2094 2096 2097 2098 2100 2101 2102 2110# 2112 2113 2114 2115
2116 2117 2118 2119 2120 2121 2122 2123 2124 2126 2127 2128 2129 2130
2131 2133 2135 2136 2137 2138 2140 2142 2143 2144 2151# 2153 2154 2155
2156 2157 2158 2159 2160 2161 2162 2163 2164 2165 2167 2168 2169 2170
2171 2173 2175 2176 2177 2178 2179 2180 2182 2183 2184 2192# 2194 2195
2196 2197 2198 2199 2200 2201 2202 2203 2204 2205 2206 2208 2209 2210
2211 2212 2213 2219 2220 2221 2222 2223 2225 2226 2227 2235# 2237 2238
2239 2240 2241 2242 2243 2244 2245 2246 2247 2248 2249 2251 2252 2253
2254 2255 2256 2260 2261 2262 2263 2264 2266 2267 2268 2276# 2278 2279
2280 2281 2282 2283 2284 2285 2286 2287 2288 2289 2290 2292 2293 2294
2295 2296 2297 2298 2300 2303 2304 2305 2306 2307 2309 2310 2311 2319#
2321 2322 2323 2324 2325 2326 2327 2328 2329 2330 2331 2332 2333 2335
2336 2337 2338 2339 2341 2342 2343 2344 2345 2346 2348 2349 2350 2359#
2361 2362 2363 2364 2365 2366 2367 2368 2369 2370 2371 2372 2373 2375
2376 2377 2378 2379 2380 2383 2384 2386 2387 2388 2389 2390 2392 2393
2394 2403# 2405 2406 2407 2408 2409 2410 2411 2412 2413 2414 2415 2416
2417 2419 2420 2421 2422 2423 2424 2425 2428 2429 2430 2431 2432 2434
2435 2436 2444# 2446 2447 2448 2449 2450 2451 2452 2453 2454 2455 2456
2457 2458 2460 2461 2462 2463 2464 2465 2467 2468 2471 2472 2473 2474
2475 2477 2478 2479 2487# 2489 2490 2491 2492 2493 2494 2495 2496 2497
2498 2499 2500 2501 2503 2504 2505 2506 2507 2509 2511 2512 2513 2514
2515 2517 2518 2519 2527# 2529 2530 2531 2532 2533 2534 2535 2536 2537
2538 2539 2540 2541 2543 2544 2545 2546 2547 2548 2554 2556 2558 2560
2562 2564 2566 2568 2569 2570 2571 2572 2574 2575 2576 2583# 2585 2586
2587 2588 2589 2590 2591 2592 2593 2594 2595 2596 2597 2599 2600 2601
2602 2603 2605 2606 2607 2608 2609 2611 2612 2613 2619# 2621 2622 2623
2624 2625 2626 2627 2628 2629 2630 2631 2632 2633 2635 2636 2637 2638
2639 2640 2642 2643 2644 2648 2649 2650 2656# 2658 2659 2660 2661 2662
2663 2664 2665 2666 2667 2668 2669 2670 2672 2673 2674 2675 2676 2677
2678 2679 2680 2681 2683 2684 2685 2691# 2693 2694 2695 2696 2697 2698
2699 2700 2701 2702 2703 2704 2705 2707 2708 2709 2710 2711 2712 2718
2720 2722 2724 2726 2728 2730 2732 2733 2734 2735 2736 2738 2739 2740
2746# 2748 2749 2750 2751 2752 2753 2754 2755 2756 2757 2758 2759 2760 SEQ 0189
2762 2763 2764 2765 2766 2768 2769 2774 2775 2776 2783# 2785 2786 2787
2788 2789 2790 2791 2792 2793 2794 2795 2796 2797 2799 2800 2801 2802
2809 2810 2812 2813 2815 2816 2817 2822 2823 2824 2831# 2833 2834 2835
2836 2837 2838 2839 2840 2841 2842 2843 2844 2845 2847 2848 2849 2850
2857 2858 2860 2861 2863 2864 2865 2870 2871 2872 2880# 2882 2883 2884
2885 2886 2887 2888 2889 2890 2891 2892 2893 2894 2896 2897 2898 2899
2905 2907 2909 2910 2915 2916 2917 2924# 2926 2927 2928 2929 2930 2931
2932 2933 2934 2935 2936 2937 2938 2940 2941 2942 2943 2949 2951 2953
2954 2959 2960 2961 2969# 2971 2972 2973 2974 2975 2976 2977 2978 2979
2980 2981 2982 2983 2985 2986 2987 2988 3004 3009 3011 3013 3016 3018
3018# 3019 3022 3027 3029 3031 3034 3036 3036# 3037 3040 3045 3047 3049
3052 3054 3054# 3055 3058 3063 3065 3067 3070 3072 3072# 3073 3076 3081
3083 3085 3088 3090 3090# 3091 3094 3099 3101 3103 3106 3108 3108# 3109
3112 3117 3119 3121 3124 3126 3126# 3127 3130 3135 3137 3139 3142 3144
3144# 3145 3148 3153 3155 3157 3160 3162 3162# 3163 3166 3171 3173 3175
3178 3180 3180# 3181 3183# 3185 3186 3187 3194# 3196 3197 3198 3199 3200
3201 3202 3203 3204 3205 3206 3207 3208 3210 3211 3212 3213 3229 3234
3236 3238 3241 3243 3243# 3244 3247 3252 3254 3256 3259 3261 3261# 3262
3265 3270 3272 3274 3277 3279 3279# 3280 3283 3288 3290 3292 3295 3297
3297# 3298 3301 3306 3308 3310 3313 3315 3315# 3316 3319 3324 3326 3328
3331 3333 3333# 3334 3337 3342 3344 3346 3349 3351 3351# 3352 3355 3360
3362 3364 3367 3369 3369# 3370 3373 3378 3380 3382 3385 3387 3387# 3388
3391 3396 3398 3400 3403 3405 3405# 3406 3408# 3410 3411 3412 3420# 3422
3423 3424 3425 3426 3427 3428 3429 3430 3431 3432 3433 3434 3436 3437
3438 3439 3445 3446 3448 3449 3453 3454 3455 3464# 3466 3467 3468 3469
3470 3471 3472 3473 3474 3475 3476 3477 3478 3480 3481 3482 3483 3506
3509 3511 3513 3514 3517 3517# 3518 3519 3523 3526 3528 3530 3531 3534
3534# 3535 3536 3540 3543 3545 3547 3548 3551 3551# 3552 3553 3557 3560
3562 3564 3565 3568 3568# 3569 3570 3574 3577 3579 3581 3582 3585 3585#
3586 3587 3591 3594 3596 3598 3599 3602 3602# 3603 3604 3608 3611 3613
3615 3616 3619 3619# 3620 3621 3625 3628 3630 3632 3633 3636 3636# 3637
3638 3642 3645 3647 3649 3650 3653 3653# 3654 3655 3659 3662 3664 3666
3667 3670 3670# 3671 3672 3675# 3677 3678 3679 3684# 3686 3687 3688 3689
3690 3691 3692 3693 3694 3695 3696 3697 3698 3700 3701 3702 3703 3704
3705 3708 3711 3713 3714 3715 3720# 3722 3723 3724 3725 3726 3727 3728
3729 3730 3731 3732 3733 3734 3736 3737 3738 3739 3740 3741 3744 3747
3749 3750 3751 3758# 3760 3761 3762 3763 3764 3765 3766 3767 3768 3769
3770 3771 3772 3774 3775 3776 3777 3783 3784 3786 3787 3789 3790 3791
3792 3796 3797 3798 3804# 3806 3807 3808 3809 3810 3811 3812 3813 3814
3815 3816 3817 3818 3820 3821 3822 3823 3829 3830 3832 3833 3835 3836
3837 3838 3839 3840 3842 3843 3844 3849# 3851 3852 3853 3854 3855 3856
3857 3858 3859 3860 3861 3862 3863 3865 3866 3867 3868 3874 3875 3877
3878 3880 3881 3882 3885 3886 3887 3893# 3895 3896 3897 3898 3899 3900
3901 3902 3903 3904 3905 3906 3907 3909 3910 3911 3912 3913 3914 3915
3918 3919 3920 3925# 3927 3928 3929 3930 3931 3932 3933 3934 3935 3936
3937 3938 3939 3941 3942 3943 3944 3950 3951 3953 3954 3956 3957 3958
3959 3961 3962 3963 3968# 3970 3971 3972 3973 3974 3975 3976 3977 3978
3979 3980 3981 3982 3984 3985 3986 3987 3994 3995 3997 3998 4000 4001
4002 4007 4008 4009 4014# 4016 4017 4018 4019 4020 4021 4022 4023 4024
4025 4026 4027 4028 4030 4031 4032 4033 4035 4036 4038 4039 4041 4042
4043 4048# 4050 4051 4052 4053 4054 4055 4056 4057 4058 4059 4060 4061
4062 4064 4065 4066 4067 4069 4070 4071 4072 4076 4077 4078 4083# 4085
4086 4087 4088 4089 4090 4091 4092 4093 4094 4095 4096 4097 4099 4100 SEQ 0190
4101 4102 4104 4107 4112 4113 4114 4119# 4121 4122 4123 4124 4125 4126
4127 4128 4129 4130 4131 4132 4133 4134 4136 4139 4141 4142 4145 4147
4148 4150 4152 4153 4155 4157 4158 4159 4165# 4167 4168 4169 4170 4171
4172 4173 4174 4175 4176 4177 4178 4179 4180 4181 4182 4183 4185 4186
4187 4194# 4196 4197 4198 4199 4200 4201 4202 4203 4204 4205 4206 4207
4208 4209 4210 4211 4212 4214 4215 4216 4221# 4223 4224 4225 4226 4227
4228 4229 4230 4231 4232 4233 4234 4235 4237 4238 4239 4240 4241 4242
4243 4244 4246 4247 4248 4253# 4255 4256 4257 4258 4259 4260 4261 4262
4263 4264 4265 4266 4267 4269 4270 4271 4272 4277 4279 4281 4283 4285
4286 4287 4289 4290 4291 4297# 4299 4300 4301 4302 4303 4304 4305 4306
4307 4308 4309 4310 4311 4313 4314 4315 4316 4318 4319 4320 4322 4323
4324 4331# 4333 4334 4335 4336 4337 4338 4339 4340 4341 4342 4343 4344
4345 4347 4348 4349 4350 4352 4353 4354 4355 4359 4361 4363 4366 4368
4369 4370 4376# 4378 4379 4380 4381 4382 4383 4384 4385 4386 4387 4388
4389 4390 4392 4393 4394 4395 4398 4402 4403 4404 4410# 4412 4413 4414
4415 4416 4417 4418 4419 4420 4421 4422 4423 4424 4426 4427 4428 4429
4432 4433 4436 4437 4438 4444# 4446 4447 4448 4449 4450 4451 4452 4453
4454 4455 4456 4457 4458 4460 4461 4462 4463 4464 4466 4467 4470 4471
4472 4478# 4480 4481 4482 4483 4484 4485 4486 4487 4488 4489 4490 4491
4492 4494 4495 4496 4497 4498 4499 4502 4503 4504 4510# 4512 4513 4514
4515 4516 4517 4518 4519 4520 4521 4522 4523 4524 4526 4527 4528 4529
4531 4532 4534 4536 4537 4538 4544# 4546 4547 4548 4549 4550 4551 4552
4553 4554 4555 4556 4557 4558 4560 4561 4562 4563 4564 4568 4570 4572
4573 4574 4580# 4582 4583 4584 4585 4586 4587 4588 4589 4590 4591 4592
4593 4594 4596 4597 4598 4599 4601 4602 4604 4607 4608 4609 4615# 4617
4618 4619 4620 4621 4622 4623 4624 4625 4626 4627 4628 4629 4631 4632
4633 4634 4636 4637 4642 4643 4644 4650# 4652 4653 4654 4655 4656 4657
4658 4659 4660 4661 4662 4663 4664 4666 4667 4668 4669 4670 4672 4673
4675 4678 4679 4680 4686# 4688 4689 4690 4691 4692 4693 4694 4695 4696
4697 4698 4699 4700 4702 4703 4704 4705 4711 4713 4715 4716 4719 4720
4721 4727# 4729 4730 4731 4732 4733 4734 4735 4736 4737 4738 4739 4740
4741 4743 4744 4745 4746 4749 4753 4754 4755 4761# 4763 4764 4765 4766
4767 4768 4769 4770 4771 4772 4773 4774 4775 4777 4778 4779 4780 4781
4782 4783 4786 4787 4788 4794# 4796 4797 4798 4799 4800 4801 4802 4803
4804 4805 4806 4807 4808 4810 4811 4812 4813 4815 4816 4817 4820 4821
4822 4827# 4829 4830 4831 4832 4833 4834 4835 4836 4837 4838 4839 4840
4841 4843 4844 4845 4846 4849 4852 4855 4856 4857 4863# 4865 4866 4867
4868 4869 4870 4871 4872 4873 4874 4875 4876 4877 4879 4880 4881 4882
4883 4884 4887 4890 4891 4892 4898# 4900 4901 4902 4903 4904 4905 4906
4907 4908 4909 4910 4911 4912 4914 4915 4916 4917 4918 4919 4922 4923
4924 4930# 4932 4933 4934 4935 4936 4937 4938 4939 4940 4941 4942 4943
4944 4946 4947 4948 4949 4951 4952 4954 4956 4957 4958 4964# 4966 4967
4968 4969 4970 4971 4972 4973 4974 4975 4976 4977 4978 4980 4981 4982
4983 4984 4985 4987 4988 4991 4992 4993 5000# 5002 5003 5004 5005 5006
5007 5008 5009 5010 5011 5012 5013 5014 5016 5017 5018 5019 5021 5022
5024 5027 5028 5029 5036# 5038 5039 5040 5041 5042 5043 5044 5045 5046
5047 5048 5049 5050 5052 5053 5054 5055 5057 5058 5059 5064 5065 5066
5073# 5075 5076 5077 5078 5079 5080 5081 5082 5083 5084 5085 5086 5087
5089 5090 5091 5092 5093 5094 5095 5097 5100 5101 5102 5109# 5111 5112
5113 5114 5115 5116 5117 5118 5119 5120 5121 5122 5123 5125 5126 5127
5128 5130 5134 5135 5138 5139 5140 5145# 5147 5148 5149 5150 5151 5152
5153 5154 5155 5156 5157 5158 5159 5161 5162 5163 5164 5170 5171 5173
5174 5176 5177 5178 5179 5181 5182 5183 5189# 5191 5192 5193 5194 5195 SEQ 0191
5196 5197 5198 5199 5200 5201 5202 5203 5205 5206 5207 5208 5210 5214
5215 5218 5219 5220 5227# 5229 5230 5231 5232 5233 5234 5235 5236 5237
5238 5239 5240 5241 5243 5244 5245 5246 5248 5254 5255 5257 5258 5260
5261 5262 5265 5266 5267 5275# 5277 5278 5279 5280 5281 5282 5283 5284
5285 5286 5287 5288 5289 5291 5292 5293 5294 5302 5303 5305 5306 5308
5309 5310 5312 5315 5316 5317 5325# 5327 5328 5329 5330 5331 5332 5333
5334 5335 5336 5337 5338 5339 5341 5342 5343 5344 5352 5353 5355 5356
5358 5359 5360 5362 5365 5366 5367 5373# 5375 5376 5377 5378 5379 5380
5381 5382 5383 5384 5385 5386 5387 5389 5390 5391 5392 5393 5400 5401
5404 5405 5406 5412# 5414 5415 5416 5417 5418 5419 5420 5421 5422 5423
5424 5425 5426 5428 5429 5430 5431 5432 5433 5434 5435 5438 5439 5440
5446# 5448 5449 5450 5451 5452 5453 5454 5455 5456 5457 5458 5459 5460
5462 5463 5464 5465 5466 5468 5469 5470 5471 5473 5474 5479 5480 5481
5487# 5489 5490 5491 5492 5493 5494 5495 5496 5497 5498 5499 5500 5501
5503 5504 5505 5506 5507 5514 5515 5520 5521 5522 5528# 5530 5531 5532
5533 5534 5535 5536 5537 5538 5539 5540 5541 5542 5544 5545 5546 5547
5548 5563 5564 5566 5567 5568 5574# 5576 5577 5578 5579 5580 5581 5582
5583 5584 5585 5586 5587 5588 5590 5591 5592 5593 5594 5595 5597 5598
5599 5600 5603 5604 5605 5611# 5613 5614 5615 5616 5617 5618 5619 5620
5621 5622 5623 5624 5625 5627 5628 5629 5630 5632 5635 5638 5640 5641
5642 5648# 5650 5651 5652 5653 5654 5655 5656 5657 5658 5659 5660 5661
5662 5664 5665 5666 5667 5669 5671 5672 5673 5674 5677 5678 5679 5685#
5687 5688 5689 5690 5691 5692 5693 5694 5695 5696 5697 5698 5699 5701
5702 5703 5704 5705 5707 5710 5713 5715 5716 5717 5723# 5725 5726 5727
5728 5729 5730 5731 5732 5733 5734 5735 5736 5737 5739 5740 5741 5742
5743 5745 5747 5748 5749 5750 5753 5754 5755 5761# 5763 5764 5765 5766
5767 5768 5769 5770 5771 5772 5773 5774 5775 5777 5778 5779 5780 5781
5782 5783 5785 5786 5787 5788 5791 5792 5793 5799# 5801 5802 5803 5804
5805 5806 5807 5808 5809 5810 5811 5812 5813 5815 5816 5817 5818 5819
5820 5822 5823 5824 5825 5828 5829 5830 5836# 5838 5839 5840 5841 5842
5843 5844 5845 5846 5847 5848 5849 5850 5852 5853 5854 5855 5856 5857
5859 5860 5861 5862 5867 5868 5869 5875# 5877 5878 5879 5880 5881 5882
5883 5884 5885 5886 5887 5888 5889 5891 5892 5893 5894 5895 5896 5898
5899 5900 5901 5904 5905 5906 5913# 5915 5916 5917 5918 5919 5920 5921
5922 5923 5924 5925 5926 5927 5929 5930 5931 5932 5933 5935 5936 5937
5938 5940 5941 5942 5943 5946 5947 5948 5954# 5956 5957 5958 5959 5960
5961 5962 5963 5964 5965 5966 5967 5968 5971 5972 5973 5974 5976 5977
5978 5980 5981 5982 5983 5986 5987 5988 5995# 5997 5998 5999 6000 6001
6002 6003 6004 6005 6006 6007 6008 6009 6012 6013 6014 6015 6017 6018
6019 6021 6022 6024 6025 6026 6027 6030 6031 6032 6039# 6041 6042 6043
6044 6045 6046 6047 6048 6049 6050 6051 6052 6053 6056 6057 6058 6059
6063 6064 6067 6070 6072 6073 6074 6082# 6084 6085 6086 6087 6088 6089
6090 6091 6092 6093 6094 6095 6096 6099 6100 6101 6102 6105 6106 6108
6110 6113 6116 6117 6118 6124# 6126 6127 6128 6129 6130 6131 6132 6133
6134 6135 6136 6137 6138 6140 6141 6142 6143 6144 6145 6146 6148 6149
6150 6151 6154 6155 6156 6162# 6164 6165 6166 6167 6168 6169 6170 6171
6172 6173 6174 6175 6176 6178 6179 6180 6181 6182 6184 6185 6186 6187
6190 6191 6192 6198# 6200 6201 6202 6203 6204 6205 6206 6207 6208 6209
6210 6211 6212 6214 6215 6216 6217 6218 6219 6221 6222 6223 6225 6226
6227 6228 6231 6232 6233 6240# 6242 6243 6244 6245 6246 6247 6248 6249
6250 6251 6252 6253 6254 6257 6258 6259 6260 6262 6263 6264 6266 6267
6268 6269 6272 6273 6274 6281# 6283 6284 6285 6286 6287 6288 6289 6290
6291 6292 6293 6294 6295 6298 6299 6300 6301 6303 6304 6305 6307 6308 SEQ 0192
6309 6311 6312 6313 6316 6317 6318 6325# 6327 6328 6329 6330 6331 6332
6333 6334 6335 6336 6337 6338 6339 6342 6343 6344 6345 6349 6350 6351
6353 6356 6357 6360 6363 6364 6365 6372# 6374 6375 6376 6377 6378 6379
6380 6381 6382 6383 6384 6385 6386 6389 6390 6391 6392 6396 6397 6400
6402 6403 6406 6407 6408 6414# 6416 6417 6418 6419 6420 6421 6422 6423
6424 6425 6426 6427 6428 6430 6431 6432 6433 6435 6436 6439 6440 6443
6444 6445 6451# 6453 6454 6455 6456 6457 6458 6459 6460 6461 6462 6463
6464 6465 6467 6468 6469 6470 6472 6474 6475 6476 6477 6481 6482 6483
6489# 6491 6492 6493 6494 6495 6496 6497 6498 6499 6500 6501 6502 6503
6505 6506 6507 6508 6510 6515 6516 6517 6523# 6525 6526 6527 6528 6529
6530 6531 6532 6533 6534 6535 6536 6537 6539 6540 6541 6542 6544 6546
6547 6548 6549 6552 6553 6554 6560# 6562 6563 6564 6565 6566 6567 6568
6569 6570 6571 6572 6573 6574 6576 6577 6578 6579 6580 6582 6583 6585
6587 6588 6589 6595# 6597 6598 6599 6600 6601 6602 6603 6604 6605 6606
6607 6608 6609 6611 6612 6613 6614 6615 6616 6619 6621 6622 6623 6624
6627 6628 6629 6635# 6637 6638 6639 6640 6641 6642 6643 6644 6645 6646
6647 6648 6649 6651 6652 6653 6654 6655 6657 6659 6661 6662 6663 6669#
6671 6672 6673 6674 6675 6676 6677 6678 6679 6680 6681 6682 6683 6685
6686 6687 6688 6689 6691 6694 6696 6697 6698
AC1 760# 859# 967# 995 996 997 1001# 1003 1004 1005 1009# 1011 1012 1013
1017# 1019 1020 1021 1025# 1027 1028 1029 1033# 1035 1036 1037 1041# 1043
1044 1045 1049# 1051 1052 1053 1057# 1071# 1102 1106 1107 1111# 1113 1117
1118 1122# 1124 1128 1129 1133# 1135 1139 1140 1144# 1146 1150 1151 1155#
1157 1161 1162 1166# 1168 1172 1173 1177# 1179 1183 1184 1188# 1203# 1221
1222 1225 1255# 1292# 1335# 1362 1363 1364 1365 1366 1368# 1370 1371 1372
1373 1374 1376# 1378 1379 1380 1381 1382 1384# 1386 1387 1388 1389 1390
1392# 1428# 1468# 1508# 1555# 1651# 1690# 1733# 1772# 1812# 1837 1838 1839 1841#
1843 1844 1845 1847# 1860# 1878 1879 1894# 1937# 1978# 2018# 2062# 2112# 2130
2131 2134 2136 2137 2138 2139 2153# 2171 2172 2176 2177 2178 2194# 2212
2214 2216 2217 2219 2220 2221 2237# 2255 2258 2260 2261 2262 2278# 2297
2299 2301 2303 2304 2305 2321# 2339 2340 2342 2343 2344 2361# 2379 2381
2382 2384 2386 2387 2388 2405# 2424 2426 2428 2429 2430 2446# 2465 2466
2469 2471 2472 2473 2489# 2507 2508 2511 2512 2513 2529# 2547 2548 2554
2556 2558 2560 2562 2564 2566 2568 2569 2570 2585# 2603 2604 2605 2606
2607 2621# 2639 2640 2642 2643 2644 2645 2646 2658# 2676 2677 2678 2679
2693# 2711 2712 2718 2720 2722 2724 2726 2728 2730 2732 2733 2734 2748#
2767 2768 2771 2785# 2803 2819 2833# 2851 2867 2882# 2900 2912 2926# 2944
2956 2971# 3005 3014 3019# 3023 3032 3037# 3041 3050 3055# 3059 3068 3073#
3077 3086 3091# 3095 3104 3109# 3113 3122 3127# 3131 3140 3145# 3149 3158
3163# 3167 3176 3181# 3196# 3230 3239 3244# 3248 3257 3262# 3266 3275 3280#
3284 3293 3298# 3302 3311 3316# 3320 3329 3334# 3338 3347 3352# 3356 3365
3370# 3374 3383 3388# 3392 3401 3406# 3422# 3444 3450 3451 3466# 3508 3515
3516 3518# 3525 3532 3533 3535# 3542 3549 3550 3552# 3559 3566 3567 3569#
3576 3583 3584 3586# 3593 3600 3601 3603# 3610 3617 3618 3620# 3627 3634
3635 3637# 3644 3651 3652 3654# 3661 3668 3669 3671# 3686# 3722# 3760# 3783
3784 3786 3787 3789 3790 3793 3794 3806# 3829 3830 3832 3833 3835 3836
3837 3838 3851# 3895# 3927# 3950 3951 3953 3954 3956 3957 3970# 4016# 4037
4038 4039 4050# 4068 4073 4074 4085# 4103 4109 4121# 4167# 4196# 4223# 4255#
4299# 4317 4318 4333# 4378# 4397 4398 4399 4412# 4431 4432 4446# 4464 4465
4466 4480# 4512# 4530 4532 4533 4546# 4564 4565 4567 4568 4569 4582# 4600
4601 4602 4617# 4635 4636 4637 4639 4652# 4670 4671 4672 4673 4688# 4706
4711 4713 4715 4729# 4747 4749 4750 4763# 4781 4782 4796# 4814 4816 4829#
4848 4849 4850 4865# 4883 4884 4885 4900# 4932# 4950 4952 4953 4966# 4985 SEQ 0193
4986 4988 5002# 5020 5021 5022 5038# 5056 5058 5059 5061 5075# 5093 5094
5095 5111# 5131 5132 5133 5135 5147# 5191# 5211 5212 5213 5215 5229# 5248
5254 5255 5257 5258 5260 5261 5277# 5296 5302 5303 5305 5306 5308 5309
5310 5327# 5375# 5394 5395 5396 5397 5398 5400 5414# 5432 5434 5435 5436
5448# 5467 5473 5476 5489# 5508 5510 5511 5512 5514 5515 5517 5530# 5549
5555 5556 5558 5559 5561 5562 5563 5564 5576# 5594 5595 5598 5601 5613#
5631 5632 5634 5635 5636 5637 5650# 5668 5669 5672 5675 5687# 5706 5707
5709 5710 5711 5712 5725# 5744 5745 5748 5751 5763# 5782 5783 5786 5789
5801# 5819 5820 5823 5826 5838# 5856 5857 5860 5863 5864 5865 5877# 5915#
5933 5934 5937 5939 5941 5944 5956# 5969 5975 5976 5978 5981 5984 5997#
6010 6016 6017 6020 6021 6023 6024 6025 6028 6041# 6054 6060 6061 6062
6063 6064 6066 6067 6068 6069 6084# 6097 6103 6104 6105 6106 6107 6109
6110 6111 6112 6114 6126# 6144 6145 6147 6149 6152 6164# 6200# 6218 6220
6222 6224 6226 6229 6242# 6255 6261 6262 6264 6267 6270 6283# 6296 6302
6303 6306 6307 6310 6312 6314 6327# 6340 6346 6347 6348 6349 6352 6353
6354 6355 6357 6358 6359 6361 6374# 6387 6393 6394 6395 6396 6397 6399
6400 6401 6402 6404 6416# 6434 6435 6437 6439 6441 6453# 6471 6472 6475
6479 6491# 6509 6510 6511 6512 6525# 6543 6544 6547 6550 6562# 6581 6583
6584 6597# 6618 6619 6622 6637# 6656 6657 6658 6671# 6689 6690 6691 6692
6693
AC2 761# 860# 968# 1072# 1204# 1256# 1273 1274 1278 1279 1280 1283 1284 1293#
1310 1311 1315 1316 1317 1320 1321 1336# 1429# 1469# 1509# 1556# 1652# 1691#
1734# 1773# 1813# 1861# 1879 1880 1881 1895# 1938# 1979# 2019# 2063# 2113# 2154#
2172 2174 2195# 2213 2215 2238# 2256 2257 2259 2279# 2300 2301 2302 2322#
2362# 2406# 2447# 2490# 2530# 2586# 2622# 2659# 2694# 2749# 2786# 2834# 2883# 2927#
2972# 3197# 3423# 3443 3446 3467# 3507 3511 3519# 3524 3528 3536# 3541 3545
3553# 3558 3562 3570# 3575 3579 3587# 3592 3596 3604# 3609 3613 3621# 3626
3630 3638# 3643 3647 3655# 3660 3664 3672# 3687# 3723# 3761# 3807# 3852# 3896#
3928# 3971# 4017# 4034 4037 4051# 4069 4071 4072 4086# 4105 4106 4107 4122#
4168# 4197# 4224# 4256# 4300# 4334# 4379# 4396 4399 4413# 4430 4433 4447# 4481#
4513# 4531 4533 4547# 4565 4566 4569 4583# 4618# 4653# 4689# 4730# 4748 4750
4764# 4797# 4815 4817 4830# 4847 4850 4866# 4901# 4933# 4951 4953 4967# 5003#
5039# 5057 5061 5076# 5112# 5129 5134 5136 5148# 5192# 5209 5211 5214 5216
5230# 5278# 5295 5312 5328# 5345 5362 5376# 5395 5397 5399 5401 5415# 5449#
5468 5470 5472 5476 5490# 5509 5511 5513 5517 5531# 5577# 5614# 5651# 5688#
5726# 5764# 5802# 5839# 5878# 5916# 5934 5935 5936 5938 5943 5957# 5977 5983
5984 5998# 6019 6020 6022 6027 6042# 6061 6062 6069 6070 6085# 6104 6108
6109 6113 6114 6127# 6165# 6201# 6219 6220 6221 6223 6228 6243# 6263 6269
6270 6284# 6305 6306 6309 6313 6328# 6347 6348 6356 6360 6361 6375# 6394
6395 6403 6404 6417# 6454# 6492# 6526# 6563# 6582 6584 6598# 6638# 6672#
AC3 762# 861# 969# 1073# 1205# 1257# 1294# 1337# 1430# 1470# 1510# 1557# 1653# 1692#
1735# 1774# 1814# 1862# 1896# 1939# 1980# 2020# 2064# 2114# 2155# 2196# 2239# 2280#
2323# 2363# 2407# 2448# 2491# 2531# 2587# 2623# 2660# 2695# 2750# 2787# 2835# 2884#
2928# 2973# 3198# 3424# 3440 3441 3442 3468# 3484 3485 3486 3688# 3724# 3762#
3808# 3853# 3897# 3929# 3972# 4018# 4052# 4087# 4123# 4169# 4198# 4225# 4257# 4301#
4335# 4380# 4414# 4448# 4482# 4514# 4548# 4584# 4619# 4654# 4690# 4731# 4765# 4798#
4831# 4867# 4902# 4934# 4968# 5004# 5040# 5077# 5113# 5149# 5193# 5231# 5279# 5329#
5377# 5416# 5450# 5491# 5532# 5578# 5615# 5652# 5689# 5727# 5765# 5803# 5840# 5879#
5917# 5958# 5999# 6043# 6086# 6128# 6166# 6202# 6244# 6285# 6329# 6351 6352 6355
6359 6376# 6418# 6455# 6493# 6527# 6564# 6599# 6639# 6673#
AC4 763# 862# 970# 1074# 1206# 1258# 1295# 1338# 1431# 1471# 1511# 1558# 1654# 1693#
1736# 1775# 1815# 1863# 1897# 1940# 1981# 2021# 2065# 2115# 2156# 2197# 2240# 2281#
2324# 2364# 2408# 2449# 2492# 2532# 2588# 2624# 2661# 2696# 2751# 2788# 2836# 2885# SEQ 0194
2929# 2974# 3199# 3425# 3469# 3689# 3725# 3763# 3809# 3854# 3898# 3930# 3973# 4019#
4053# 4088# 4124# 4170# 4199# 4226# 4258# 4302# 4336# 4381# 4415# 4449# 4483# 4515#
4549# 4585# 4620# 4655# 4691# 4732# 4766# 4799# 4832# 4868# 4903# 4935# 4969# 5005#
5041# 5078# 5114# 5150# 5194# 5232# 5280# 5330# 5378# 5417# 5451# 5492# 5533# 5579#
5616# 5653# 5690# 5728# 5766# 5804# 5841# 5880# 5918# 5959# 6000# 6044# 6087# 6129#
6167# 6203# 6245# 6286# 6330# 6377# 6419# 6456# 6494# 6528# 6565# 6600# 6640# 6674#
AC5 764# 863# 971# 1075# 1207# 1259# 1296# 1339# 1432# 1472# 1512# 1559# 1655# 1694#
1737# 1776# 1816# 1864# 1898# 1941# 1982# 2022# 2066# 2116# 2157# 2198# 2241# 2282#
2325# 2365# 2409# 2450# 2493# 2533# 2589# 2625# 2662# 2697# 2752# 2789# 2837# 2886#
2930# 2975# 3200# 3426# 3470# 3690# 3726# 3764# 3810# 3855# 3899# 3931# 3974# 4020#
4054# 4089# 4125# 4171# 4200# 4227# 4259# 4303# 4337# 4382# 4416# 4450# 4484# 4516#
4550# 4586# 4621# 4656# 4692# 4733# 4767# 4800# 4833# 4869# 4904# 4936# 4970# 5006#
5042# 5079# 5115# 5151# 5195# 5233# 5281# 5331# 5379# 5418# 5452# 5493# 5534# 5580#
5617# 5654# 5691# 5729# 5767# 5805# 5842# 5881# 5919# 5960# 6001# 6045# 6088# 6130#
6168# 6204# 6246# 6287# 6331# 6378# 6420# 6457# 6495# 6529# 6566# 6601# 6641# 6675#
ADD1 4222#
ADD1A 4254#
ADD1B 4298#
ADD1C 4332#
ADD2 4236# 4246
ADD2A 4268# 4289
ADD2B 4312# 4322
ADD2C 4346# 4368
ADD3 4241# 4248
ADD3A 4274# 4291
ADD3B 4317# 4324
ADD3C 4351# 4370
ADD4C 4365 4367#
ADDB1 4581#
ADDB1A 4616#
ADDB1B 4651#
ADDB2 4595# 4607
ADDB2A 4630# 4642
ADDB2B 4665# 4678
ADDB3 4600# 4609
ADDB3A 4635# 4644
ADDB3B 4670# 4680
ADDI1 4479#
ADDI1A 4511#
ADDI1B 4545#
ADDI2 4493# 4502
ADDI2A 4525# 4536
ADDI2B 4559# 4572
ADDI3 4498# 4504
ADDI3A 4530# 4538
ADDI3B 4564# 4574
ADDM1 4377#
ADDM1A 4411#
ADDM1B 4445#
ADDM2 4391# 4402
ADDM2A 4425# 4436
ADDM2B 4459# 4470
ADDM3 4397# 4404 SEQ 0195
ADDM3A 4431# 4438
ADDM3B 4464# 4472
AFOCLR 344#
AFODIS 344#
AFOENB 344#
AFOV 344#
ALTMGO 430# 6887
AMPCLR 344#
AMPV 344#
ANXCLR 344#
ANXM 344#
AOVCLR 344#
AOVDIS 344#
AOVENB 344#
AOVFLO 344#
APAREN 344#
APARER 344#
APDCLR 344#
APDLOV 344#
APWRFL 344#
AROV 344#
AROVA 4362 4364#
AROVU 344#
ASH1 4166#
ASH2 4180# 4185 4187
ASH3 4195#
ASH4 4209# 4214 4216
ASHOV 4120#
ASHOV1 4134# 4157 4159
AST 545#
ATRPOS 344#
ATSIN 546#
AUSRIO 344#
BEGEND 426# 6702
BEGIN 59 62 63 64 65 66 67 68 69 329 330 357# 6977
BEGIN1 373# 427
BELL 549#
BIS 344#
BMACA 2404#
BMACA1 2418# 2423 2434
BMACA2 2423# 2436
BMACB 2488#
BMACB1 2502# 2517
BMACB2 2507# 2519
BMACM 2445#
BMACM1 2459# 2464 2470 2477
BMACM2 2464# 2479 2613
BMAN 2360#
BMAN1 2374# 2385 2392
BMAN2 2379# 2394
BMCAM 2584#
BMCAM1 2598# 2611
BMCAM2 2603# SEQ 0196
BMCMM 2528#
BMCMM1 2542# 2549 2574
BMCMM2 2547# 2576
BMEQ 2320#
BMEQ1 2334# 2348
BMEQ2 2339# 2350
BMICA 2152#
BMICA1 2166# 2182
BMICA2 2171# 2184
BMICB 2236#
BMICB1 2250# 2266
BMICB2 2255# 2268
BMICM 2193#
BMICM1 2207# 2218 2225
BMICM2 2212# 2227
BMIOR 2111#
BMIOR1 2125# 2132 2142
BMIOR2 2130# 2144
BMSA 2620#
BMSA1 2634# 2641 2648
BMSA2 2639# 2650
BMSM 2657#
BMSM1 2671# 2683
BMSM2 2676# 2685
BMSMM 2692#
BMSMM1 2706# 2713 2738
BMSMM2 2711# 2740
BMX 2277#
BMX1 2291# 2296 2309
BMX2 2296# 2311
BOLA 1650#
BOLA1 1669# 1680 1682
BOLAB 2017#
BOLAB1 2036# 2052 2054
BOLAC 1732#
BOLAC1 1751# 1762 1764
BOLAX 1936#
BOLAX1 1955# 1968 1970
BOLCA 1238#
BOLCA1 1348# 1396
BOLCA2 1353# 1398
BOLCAI 1334#
BOLCM 1859#
BOLCM1 1878# 1883 1885
BOLEQ 1771#
BOLEQ1 1790# 1802 1804
BOLOB 1977#
BOLOB1 1996# 2008 2010
BOLOC 1893#
BOLOC1 1912# 1927 1929
BOLOS 1689#
BOLOS1 1708# 1722 1724
BOLSA 2061# SEQ 0197
BOLSA1 2081# 2100 2102
BOLSM 1811#
BOLSM1 1830# 1851 1853
BOLX 1406#
BOLZI 1554#
BOLZI1 1573# 1642 1644
BOTHF 4358 4363#
CAM1 714 759#
CAMNE1 778# 847 849
CCA 344#
CHAIN 135#
CHNOFF 344#
CHNON 344#
CLK 344#
CLKCLR 344#
CLKDIS 344#
CLKENB 344#
CLKU 344#
CLOCKF 412#
CMPLXT 677 686 689 692 695 698 701 704 748# 771 870 978 1082 1214
1266 1303 1346 1439 1479 1519 1566 1662 1701 1744 1783 1823 1871 1905
1948 1989 2029 2073 2123 2164 2205 2248 2289 2332 2372 2416 2457 2500
2540 2596 2632 2669 2704 2759 2796 2844 2893 2937 2982 3207 3433 3477
3697 3733 3771 3817 3862 3906 3938 3981 4027 4061 4096 4132 4178 4207
4234 4266 4310 4344 4389 4423 4457 4491 4523 4557 4593 4628 4663 4699
4740 4774 4807 4840 4876 4911 4943 4977 5013 5049 5086 5122 5158 5202
5240 5288 5338 5386 5425 5459 5500 5541 5587 5624 5661 5698 5736 5774
5812 5849 5888 5926 5967 6008 6052 6095 6137 6175 6211 6253 6294 6338
6385 6427 6464 6502 6536 6573 6608 6648 6682
CNTLC 429#
COMMA 538#
CONSW 413# 6888 6919
CPOPJ 433#
CPOPJ1 431#
CRLF 264 265 533#
CRLF2 268 269 535#
CRY0 344#
CRY0A 4356 4360#
CRY1 344#
CSHFLG 592#
CSHMEM 593#
CYCL60 586#
DCK 344#
DDTLNK 149# 371
DDTSRT 371#
DEBUG 54# 6968 6969
DECVER 3# 10 26 392
DF22F 497#
DIAGMN 360#
DING 121# 6893
DOLLAR 552#
DSKUPD 397
END 6976# SEQ 0198
ENDFIX 666#
ENDPGM 77#
ENDSLD 6966#
ERDIAG 6756
ERMORE 446# 6879
ERRELB 58# 6756
ERRLOP 769# 769 868# 868 976# 976 1080# 1080 1212# 1212 1264# 1264 1301# 1301
1344# 1344 1437# 1437 1477# 1477 1517# 1517 1564# 1564 1660# 1660 1699# 1699
1742# 1742 1781# 1781 1821# 1821 1869# 1869 1903# 1903 1946# 1946 1987# 1987
2027# 2027 2071# 2071 2121# 2121 2162# 2162 2203# 2203 2246# 2246 2287# 2287
2330# 2330 2370# 2370 2414# 2414 2455# 2455 2498# 2498 2538# 2538 2594# 2594
2630# 2630 2667# 2667 2702# 2702 2757# 2757 2794# 2794 2842# 2842 2891# 2891
2935# 2935 2980# 2980 3205# 3205 3431# 3431 3475# 3475 3695# 3695 3731# 3731
3769# 3769 3815# 3815 3860# 3860 3904# 3904 3936# 3936 3979# 3979 4025# 4025
4059# 4059 4094# 4094 4130# 4130 4176# 4176 4205# 4205 4232# 4232 4264# 4264
4308# 4308 4342# 4342 4387# 4387 4421# 4421 4455# 4455 4489# 4489 4521# 4521
4555# 4555 4591# 4591 4626# 4626 4661# 4661 4697# 4697 4738# 4738 4772# 4772
4805# 4805 4838# 4838 4874# 4874 4909# 4909 4941# 4941 4975# 4975 5011# 5011
5047# 5047 5084# 5084 5120# 5120 5156# 5156 5200# 5200 5238# 5238 5286# 5286
5336# 5336 5384# 5384 5423# 5423 5457# 5457 5498# 5498 5539# 5539 5585# 5585
5622# 5622 5659# 5659 5696# 5696 5734# 5734 5772# 5772 5810# 5810 5847# 5847
5886# 5886 5924# 5924 5965# 5965 6006# 6006 6050# 6050 6093# 6093 6135# 6135
6173# 6173 6209# 6209 6251# 6251 6292# 6292 6336# 6336 6383# 6383 6425# 6425
6462# 6462 6500# 6500 6534# 6534 6571# 6571 6606# 6606 6646# 6646 6680# 6680
6736 6898 6901 6902
ERRMES 41 42 43 44 45 46 47 48 6707#
ERRPC 417# 6719 6753 6765
ERRTLS 418# 6717 6905
ERSTOP 124# 6889
EXCASB 52# 395 6708 6910
EXCH1 1202#
EXCH2 1216# 1228
EXCH3 1221# 1230
EXIOT 344#
FOV 344#
FOVU 344#
FRDLNK 147#
FSELNK 146#
FXU 344#
HYPEN 543#
INHCSH 132#
INHPAG 129#
INXM 344#
IOCLR 344#
ITERAT 76# 390
ITRCH1 450#
ITRCNT 390#
JOB41 344#
JOBAPR 344#
JOBCNI 344#
JOBDDT 344#
JOBFF 344#
JOBOPC 344# 6886 SEQ 0199
JOBREL 344#
JOBREN 344#
JOBSA 344#
JOBSYM 344#
JOBTPC 344#
JOBUSY 344#
JOBUUO 344#
JOBVER 344#
KA10 56# 344
KAHZ50 137#
KAIFLG 407#
KI10 344 6708 6910
KL10 344
KLFLG 408# 6723
KLOLD 55# 344
KLTYP 624#
LDLNK 148# 360 362
LFP 547#
LOOPER 123# 6891
LSH1 4084#
LSH1P 5529#
LSH1PA 5543# 5566
LSH1PB 5548# 5568
LSH2 4098# 4112
LSH3 4103# 4114
LSHA 4049#
LSHB 4063# 4076
LSHC 4068# 4078
LUUO 344#
LUUO1 41# 477 478
LUUO10 477 482
LUUO11 46# 477 482
LUUO12 47# 477 483
LUUO13 48# 477 483
LUUO14 477 484
LUUO15 477 484
LUUO16 477 485
LUUO17 477 485
LUUO2 42# 477 479
LUUO20 477 486
LUUO21 477 486
LUUO22 477 487
LUUO23 477 487
LUUO24 477 488
LUUO25 477 488
LUUO26 477 489
LUUO27 477 489
LUUO3 43# 477 479
LUUO30 477 490
LUUO31 477 490
LUUO32 477 491
LUUO33 477 491
LUUO4 44# 477 480 SEQ 0200
LUUO5 45# 477 480
LUUO6 477 481
LUUO7 477 481
LUUOI 344#
MAPNEW 498#
MARGIN 420#
MCNVER 4# 10 26 392
MEMLOW 500#
MEMMAP 398
MEMSIZ 501#
MEMTOT 499#
MICNT 6720# 6720 6721 6738
MINUS 542#
MODDVC 131#
MODDVL 329 329# 393
MODDVU 330 330# 394
MODLNK 150# 357
MONCTL 410# 6739 6903
MONFLG 409#
MONTEN 411#
MOVAC 858#
MOVAC1 877# 957 959
MOVN1 5146#
MOVN2 5160# 5181
MOVN3 5166# 5183
MOVS1 3894#
MOVS2 3908# 3918
MOVS3 3913# 3920
MOVSA 3850#
MOVSB 3864# 3885
MOVSC 3870# 3887
MOVSIA 4015#
MOVSIB 4029# 4041
MOVSIC 4035# 4043
MOVSMA 3926#
MOVSMB 3940# 3961
MOVSMC 3946# 3963
MOVSSA 3969#
MOVSSB 3983# 4007
MOVSSC 3988# 4009
MPVU 344#
MVEI1 5110#
MVEI2 5124# 5138
MVEI3 5130# 5140
MVEM1 3759#
MVEM2 3773# 3796
MVEM3 3779# 3798
MVES1 3805#
MVES2 3819# 3842
MVES3 3825# 3844
MVM1 5374#
MVM2 5388# 5404
MVM3 5393# 5406 SEQ 0201
MVMI1 5413#
MVMI2 5427# 5438
MVMI3 5432# 5440
MVMM1 5447#
MVMM2 5461# 5479
MVMM3 5466# 5481
MVMS1 5488#
MVMS2 5502# 5520
MVMS3 5507# 5522
MVNI1 5190#
MVNI2 5204# 5218
MVNI3 5210# 5220
MVNM1 5228#
MVNM2 5242# 5265
MVNM3 5248# 5267
MVNS1 5276#
MVNS2 5290# 5315
MVNS3 5296# 5317
MVNSA 5326#
MVNSB 5340# 5365
MVNSC 5346# 5367
NOPNT 119# 6729
NXMU 344#
OPRSEL 133#
OPTIME 512#
P 176 177 178 179 344# 432
PAG 344#
PALERS 125# 6920
PARCLR 344#
PARDIS 344#
PAREA1 70# 388
PAREA2 71# 389
PAREA3 72# 386
PAREA4 73# 387
PAREA5 74# 399
PAREA6 75# 400
PAREA7 399#
PAREA8 400#
PARENB 344#
PARU 344#
PASCNT 414# 6744 6748
PATCH 6969#
PDISF 509#
PDLOVU 344#
PERIOD 539#
PFSTRT 366#
PGMEND 57# 6975
PGMNAM 391 719#
PI 6726
PICHN1 344#
PICHN2 344#
PICHN3 344#
PICHN4 344# SEQ 0202
PICHN5 344#
PICHN6 344#
PICHN7 344#
PICHNA 344#
PICLR 344#
PIOFF 344#
PION 344#
PLIST 578# 578
PLISTE 578 580# 664
PLISTS 579#
PLUS 544#
PNTENB 508#
PNTEXT 387#
PNTFLG 507#
PNTINH 510#
PNTLPT 120#
PNTNAM 386#
PNTSPC 511#
PROCED 6727# 6727 6892 6899
PVPAGI 605#
PWFCLR 344#
QUEST 550#
RADIX 553#
RADLSC 555#
RADLSP 554#
RAN 673 774# 774 777 785 791 797 803 809 815 821 827 833 839
848 873# 873 876 885 886 887 888# 888 889# 889 892 893 894
895# 895 896# 896 899 900 901 902# 902 903# 903 906 907 908
909# 909 910# 910 913 914 915 916# 916 917# 917 920 921 922
923# 923 924# 924 927 928 929 930# 930 931# 931 934 935 936
937# 937 938# 938 941 942 943 944# 944 945# 945 948 949 950
951# 951 952# 952 958 981# 981 984 995# 995 1003# 1003 1011# 1011
1019# 1019 1027# 1027 1035# 1035 1043# 1043 1051# 1051 1062 1085# 1085 1088
1104 1105 1106 1107 1115 1116 1117 1118 1126 1127 1128 1129 1137 1138
1139 1140 1148 1149 1150 1151 1159 1160 1161 1162 1170 1171 1172 1173
1181 1182 1183 1184 1193 1217# 1217 1220 1224 1225 1226 1229 1269# 1269
1272 1275# 1275 1276 1281# 1281 1282 1287 1306# 1306 1309 1312# 1312 1313
1318# 1318 1319 1324 1349# 1349 1352 1397 1442# 1442 1445 1447 1448 1449
1451 1452 1453 1457 1459 1460 1463 1482# 1482 1485 1487 1488 1489 1491
1492 1493 1497 1499 1500 1503 1522# 1522 1525 1527 1528 1529 1531 1532
1533 1537 1539 1540 1543 1569# 1569 1572 1596# 1596 1600 1601 1602 1603
1604 1605 1607 1608 1610 1618# 1618 1622 1623 1624 1625 1626 1627 1629
1630 1632 1643 1665# 1665 1668 1669 1670 1671 1673 1674 1676 1681 1704#
1704 1707 1711 1712 1713 1714 1718 1723 1747# 1747 1750 1751 1754 1755
1756 1758 1763 1786# 1786 1789 1790 1793# 1793 1794 1795 1797 1799 1800
1803 1826# 1826 1829 1837 1839 1843 1845 1852 1874# 1874 1877 1878 1880
1881 1884 1908# 1908 1911 1912 1915 1919 1921 1922 1924 1925 1928 1951#
1951 1954 1955 1958 1962 1965 1966 1969 1992# 1992 1995 1996 1998 1999
2001 2009 2032# 2032 2035 2036 2038 2039 2042 2043 2047 2049 2050 2053
2076# 2076 2079 2097 2098 2101 2126# 2126 2129 2143 2167# 2167 2170 2183
2208# 2208 2211 2226 2251# 2251 2254 2267 2292# 2292 2295 2310 2335# 2335
2338 2349 2375# 2375 2378 2393 2419# 2419 2422 2435 2460# 2460 2463 2478
2503# 2503 2506 2518 2543# 2543 2546 2571 2572 2575 2599# 2599 2602 2612 SEQ 0203
2635# 2635 2638 2645 2646 2649 2672# 2672 2675 2684 2707# 2707 2710 2735
2736 2739 2762# 2762 2765 2775 2799# 2799 2802 2817 2823 2847# 2847 2850
2865 2871 2896# 2896 2899 2910 2916 2940# 2940 2943 2954 2960 2985# 2985
2988 3004 3014 3022 3032 3040 3050 3058 3068 3076 3086 3094 3104 3112
3122 3130 3140 3148 3158 3166 3176 3186 3210# 3210 3213 3229 3239 3247
3257 3265 3275 3283 3293 3301 3311 3319 3329 3337 3347 3355 3365 3373
3383 3391 3401 3411 3436# 3436 3439 3440 3443 3448 3449 3454 3480# 3480
3483 3484 3506 3507 3513 3514 3523 3524 3530 3531 3540 3541 3547 3548
3557 3558 3564 3565 3574 3575 3581 3582 3591 3592 3598 3599 3608 3609
3615 3616 3625 3626 3632 3633 3642 3643 3649 3650 3659 3660 3666 3667
3678 3700# 3700 3703 3714 3736# 3736 3739 3750 3774# 3774 3777 3791 3792
3793 3794 3797 3820# 3820 3823 3839 3840 3843 3865# 3865 3868 3882 3883
3886 3909# 3909 3912 3915 3916 3919 3941# 3941 3944 3958 3959 3962 3984#
3984 3987 4002 4008 4030# 4030 4033 4034 4042 4064# 4064 4067 4077 4099#
4099 4102 4105 4113 4158 4186 4215 4237# 4237 4240 4242 4243 4244 4247
4269# 4269 4272 4286 4287 4290 4313# 4313 4316 4317 4323 4347# 4347 4350
4354 4355 4369 4392# 4392 4395 4396 4400 4403 4426# 4426 4429 4430 4437
4460# 4460 4463 4471 4494# 4494 4497 4499 4503 4526# 4526 4529 4537 4560#
4560 4563 4573 4596# 4596 4599 4603 4604 4605 4608 4631# 4631 4634 4639
4643 4666# 4666 4669 4674 4676 4679 4702# 4702 4705 4716 4717 4720 4743#
4743 4746 4748 4754 4777# 4777 4780 4784 4787 4810# 4810 4813 4821 4843#
4843 4846 4847 4851 4852 4853 4856 4879# 4879 4882 4886 4887 4888 4891
4914# 4914 4917 4919 4923 4946# 4946 4949 4957 4980# 4980 4983 4992 5016#
5016 5019 5023 5024 5025 5028 5052# 5052 5055 5065 5089# 5089 5092 5096
5098 5101 5125# 5125 5128 5129 5131 5139 5161# 5161 5164 5178 5179 5182
5205# 5205 5208 5209 5219 5243# 5243 5246 5247 5263 5266 5291# 5291 5294
5295 5316 5341# 5341 5344 5345 5366 5389# 5389 5392 5394 5405 5428# 5428
5431 5439 5462# 5462 5465 5467 5480 5503# 5503 5506 5508 5509 5521 5544#
5544 5547 5549 5567 5590# 5590 5593 5600 5601 5604 5627# 5627 5630 5641
5664# 5664 5667 5674 5675 5678 5701# 5701 5704 5716 5739# 5739 5742 5750
5751 5754 5777# 5777 5780 5788 5789 5792 5815# 5815 5818 5825 5826 5829
5852# 5852 5855 5862 5863 5864 5865 5868 5891# 5891 5894 5897 5898 5902
5905 5929# 5929 5932 5939 5940 5944 5947 5971# 5971 5974 5987 6012# 6012
6015 6031 6056# 6056 6059 6073 6099# 6099 6102 6117 6140# 6140 6143 6147
6148 6152 6155 6178# 6178 6181 6187 6188 6191 6214# 6214 6217 6224 6225
6229 6232 6257# 6257 6260 6273 6298# 6298 6301 6317 6342# 6342 6345 6364
6389# 6389 6392 6407 6430# 6430 6433 6434 6437 6440 6444 6467# 6467 6470
6471 6477 6479 6482 6505# 6505 6508 6512 6516 6539# 6539 6542 6549 6550
6553 6576# 6576 6579 6588 6611# 6611 6614 6624 6625 6628 6651# 6651 6654
6656 6662 6685# 6685 6688 6697 6834# 6834
RAN1 765# 864# 972# 1076# 1208# 1221 1223 1224 1226 1260# 1297# 1340# 1433# 1473#
1513# 1560# 1656# 1695# 1738# 1777# 1817# 1865# 1899# 1942# 1983# 2023# 2067# 2117#
2158# 2199# 2242# 2283# 2326# 2366# 2410# 2451# 2494# 2534# 2590# 2626# 2663# 2698#
2753# 2767 2770 2772 2790# 2803 2820 2838# 2851 2868 2887# 2900 2913 2931#
2944 2957 2976# 3005 3017 3023 3035 3041 3053 3059 3071 3077 3089 3095
3107 3113 3125 3131 3143 3149 3161 3167 3179 3201# 3230 3242 3248 3260
3266 3278 3284 3296 3302 3314 3320 3332 3338 3350 3356 3368 3374 3386
3392 3404 3427# 3444 3471# 3691# 3727# 3765# 3811# 3856# 3900# 3932# 3975# 3988
4003 4005 4021# 4055# 4090# 4103 4110 4126# 4172# 4201# 4228# 4260# 4304# 4338#
4383# 4397 4400 4417# 4431 4434 4451# 4465 4468 4485# 4517# 4530 4534 4551#
4567 4570 4587# 4600 4603 4605 4622# 4635 4638 4640 4657# 4671 4674 4676
4693# 4706 4717 4734# 4747 4751 4768# 4801# 4814 4818 4834# 4848 4851 4853
4870# 4905# 4937# 4950 4954 4971# 4984 4989 5007# 5020 5023 5025 5043# 5056 SEQ 0204
5060 5062 5080# 5116# 5130 5136 5152# 5196# 5210 5216 5234# 5247 5262 5282#
5296 5311 5313 5332# 5346 5361 5363 5380# 5393 5402 5419# 5433 5436 5453#
5466 5474 5475 5477 5494# 5507 5516 5518 5535# 5581# 5618# 5631 5638 5655#
5692# 5706 5713 5730# 5768# 5806# 5843# 5882# 5920# 5961# 6002# 6018 6023 6028
6046# 6089# 6131# 6169# 6205# 6247# 6288# 6304 6310 6311 6314 6332# 6379# 6421#
6438 6441 6458# 6496# 6509 6513 6530# 6567# 6581 6585 6602# 6618 6625 6642#
6676# 6690 6694
RANDBS 388# 670
REENTR 368#
RELIAB 127# 680 710
RENTR1 61 716#
REPT 344#
REPT1 344#
REPTU 466#
REQSET 344#
RESRT1 60 443#
RESRT2 444#
RETURN 375#
ROTL2 2784#
ROTL2A 2798# 2822
ROTL2B 2803# 2824
ROTLR 3421#
ROTLR1 3435# 3442 3453
ROTLR2 3443# 3455
ROTOV 3685#
ROTOV1 3699# 3704 3706 3713
ROTOV2 3704# 3715
ROTR2 2832#
ROTR2A 2846# 2870
ROTR2B 2851# 2872
RSTART 116#
RTCL 2970#
RTCLA 2984# 3185
RTCLB 2990# 3187
RTCLR 3465#
RTCLR1 3479# 3486 3677
RTCLR2 3488# 3679
RTCR 3195#
RTCRA 3209# 3410
RTCRB 3215# 3412
RTIME 712 747# 772 871 979 1083 1215 1267 1304 1347 1440 1480 1520 1567
1663 1702 1745 1784 1824 1872 1906 1949 1990 2030 2074 2124 2165 2206
2249 2290 2333 2373 2417 2458 2501 2541 2597 2633 2670 2705 2760 2797
2845 2894 2938 2983 3208 3434 3478 3698 3734 3772 3818 3863 3907 3939
3982 4028 4062 4097 4133 4179 4208 4235 4267 4311 4345 4390 4424 4458
4492 4524 4558 4594 4629 4664 4700 4741 4775 4808 4841 4877 4912 4944
4978 5014 5050 5087 5123 5159 5203 5241 5289 5339 5387 5426 5460 5501
5542 5588 5625 5662 5699 5737 5775 5813 5850 5889 5927 5968 6009 6053
6096 6138 6176 6212 6254 6295 6339 6386 6428 6465 6503 6537 6574 6609
6649 6683
RTL36 2881#
RTL36A 2895# 2915
RTL36B 2900# 2917 SEQ 0205
RTP 548#
RTR36 2925#
RTR36A 2939# 2959
RTR36B 2944# 2961
RTROV 3721#
RTROV1 3735# 3740 3742 3749
RTROV2 3740# 3751
RUNFLG 415#
SADR1 59# 364
SADR10 68# 380
SADR11 69# 381
SADR2 60# 366
SADR3 61# 368
SADR4 62#
SADR5 63# 429
SADR6 64# 430
SADR7 65# 377
SADR8 66# 378
SADR9 67# 379
SBINIT 189 374#
SCOPE 467#
SETZM1 2747#
SETZM2 2761# 2766 2774
SETZM3 2766# 2776
SFSTRT 364#
SKP 966#
SKP1 985# 1061 1063
SKPA 1070#
SKPA1 1089# 1192 1194
SLASH 551#
SPACE 540#
SRTDDT 370#
START 358 669#
START1 377#
START2 378#
START3 379#
START4 380#
START5 381#
STARTA 373 677#
SUB1 4687#
SUB1A 4728#
SUB1B 4742# 4753
SUB1C 4747# 4755
SUB2 4701# 4719
SUB2A 4762#
SUB2B 4776# 4786
SUB2C 4781# 4788
SUB3 4706# 4721
SUBB1 5001#
SUBB1A 5037#
SUBB1B 5074#
SUBB2 5015# 5027
SUBB2A 5051# 5064 SEQ 0206
SUBB2B 5088# 5100
SUBB3 5020# 5029
SUBB3A 5056# 5066
SUBB3B 5093# 5102
SUBI1 4899#
SUBI1A 4931#
SUBI1B 4965#
SUBI2 4913# 4922
SUBI2A 4945# 4956
SUBI2B 4979# 4991
SUBI3 4918# 4924
SUBI3A 4950# 4958
SUBI3B 4985# 4993
SUBLNK 151# 374
SUBM1 4795#
SUBM1A 4828#
SUBM1B 4864#
SUBM2 4809# 4820
SUBM2A 4842# 4855
SUBM2B 4878# 4890
SUBM3 4814# 4822
SUBM3A 4848# 4857
SUBM3B 4883# 4892
SWTEXR 389#
SYSEXR 362#
TAB 541#
TDC1 6415#
TDC2 6429# 6443
TDC3 6434# 6445
TDCA1 6452#
TDCA2 6466# 6481
TDCA3 6471# 6483
TDCE1 6490#
TDCE2 6504# 6515
TDCE3 6509# 6517
TDCE4 6561#
TDCE5 6575# 6580 6587
TDCE6 6581# 6589
TDCE7 6636#
TDCE8 6650# 6655 6661
TDCE9 6656# 6663
TDCEA 6524#
TDCEB 6538# 6552
TDCEC 6543# 6554
TDCED 6596#
TDCEE 6610# 6615 6617 6627
TDCEF 6618# 6629
TDCEG 6670#
TDCEH 6684# 6696
TDCEI 6689# 6698
TDN1 5575#
TDN2 5589# 5603
TDN3 5594# 5605 SEQ 0207
TDNE1A 5612#
TDNE1B 5649#
TDNE1C 5686#
TDNE1D 5724#
TDNE1E 5762#
TDNE1F 5800#
TDNE2A 5626# 5640
TDNE2B 5663# 5677
TDNE2C 5700# 5705 5715
TDNE2D 5738# 5743 5753
TDNE2E 5776# 5781 5791
TDNE2F 5814# 5828
TDNE3A 5631# 5642
TDNE3B 5668# 5679
TDNE3C 5706# 5717
TDNE3D 5744# 5755
TDNE3E 5782# 5793
TDNE3F 5819# 5830
TDOA1 6125#
TDOA2 6139# 6154
TDOA3 6144# 6156
TDOAA 6163#
TDOAB 6177# 6190
TDOAC 6182# 6192
TDOB1 6199#
TDOB2 6213# 6231
TDOB3 6218# 6233
TDOE1 6241#
TDOE2 6256# 6272
TDOE3 6262# 6274
TDOEA 6282#
TDOEB 6297# 6316
TDOEC 6303# 6318
TDON1 6373#
TDON2 6388# 6406
TDON3 6395# 6408
TDONA 6326#
TDONB 6341# 6350 6363
TDONC 6348# 6365
TDZA1 5837#
TDZA2 5851# 5867
TDZA3 5856# 5869
TDZAA 5876#
TDZAB 5890# 5904
TDZAC 5895# 5906
TDZB1 5914#
TDZB2 5928# 5946
TDZB3 5933# 5948
TDZE1 5955#
TDZE2 5970# 5986
TDZE3 5976# 5988
TDZEA 5996#
TDZEB 6011# 6030 SEQ 0208
TDZEC 6017# 6032
TDZN1 6083#
TDZN2 6098# 6116
TDZN3 6104# 6118
TDZNA 6040#
TDZNB 6055# 6072
TDZNC 6062# 6074
TESTPC 416# 767 866 974 1078 1210 1262 1299 1342 1435 1475 1515 1562 1658
1697 1740 1779 1819 1867 1901 1944 1985 2025 2069 2119 2160 2201 2244
2285 2328 2368 2412 2453 2496 2536 2592 2628 2665 2700 2755 2792 2840
2889 2933 2978 3203 3429 3473 3693 3729 3767 3813 3858 3902 3934 3977
4023 4057 4092 4128 4174 4203 4230 4262 4306 4340 4385 4419 4453 4487
4519 4553 4589 4624 4659 4695 4736 4770 4803 4836 4872 4907 4939 4973
5009 5045 5082 5118 5154 5198 5236 5284 5334 5382 5421 5455 5496 5537
5583 5620 5657 5694 5732 5770 5808 5845 5884 5922 5963 6004 6048 6091
6133 6171 6207 6249 6290 6334 6381 6423 6460 6498 6532 6569 6604 6644
6678
TICKS 419#
TOTALS 117#
TTNBRF 599#
TTYFIL 515#
TTYSPD 516#
TXTINH 128#
USER 406# 671 6724
USERF 344#
USRASB 53# 396
USRCRF 525#
USRLFF 524#
UUODIS 478#
UUOEXT 434# 6917
UUORTN 435#
UUOSKP 432#
UUOTXT 6872
$$MUUO 630#
$$OUTE 636#
$$TAX1 648#
$$TAX2 649#
$$TOGG 642#
$$UUO 619#
$ACC0 457#
$BEND1 427#
$BEND2 428# 6907
$CHRIN 518#
$CRLF 520#
$DEVCH 344#
$DSKUP 397#
$DVCH1 344#
$DVOFF 514#
$EMODE 395#
$ENDFX 664# 665
$FFF 522#
$IBUF 570#
$INEXT 572# SEQ 0209
$INNM 571#
$ITRHL 438#
$ITRX1 439#
$LPAPE 6928
$MMAP 398#
$MODVL 393#
$MODVU 394#
$OBUF 561#
$ONETM 421#
$OUTEX 563#
$OUTNM 562#
$PAPER 344
$PARER 445#
$PNAME 391#
$PSHER 449#
$PVER 392#
$RSRTX 441#
$RSRTY 442#
$SPAG1 461#
$START 358#
$SVAPR 459#
$SVPAG 460#
$SVPI 458#
$SVUPC 464# 6718 6722 6752
$SVUUO 463# 6731 6768 6779 6825 6863
$TABF 521#
$TTCHR 517#
$TWCNT 513#
$TYPNB 519#
$UMODE 396#
$UORTX 436#
$USRHL 440#
$UUOER 437# 478
$VTF 523#
%ACS1A 6733# 6733 6760 6764 6781 6787
%ACTFL 470#
%ACTUL 471#
%CNTE 6769# 6769 6773 6788
%COREC 469#
%CORFL 468#
%DISCR 472#
%EE1 6774# 6774 6776 6850
%EE1A 6777# 6777 6818 6859
%EE2 6780# 6780 6785 6848
%EE2A 6786# 6786 6842
%ERAC0 6707# 6707 6734 6772 6804 6816 6832 6909
%ERAC1 6715# 6715 6735 6771 6775 6778 6784 6897
%ERAC2 6716# 6716 6770 6896
%ERFST 6741# 6741 6743
%ERHI1 611#
%ERHI2 612#
%ERHI3 613#
%ERMOR 6873 6879# SEQ 0210
%ERMS1 6738# 6922
%ERMS2 6759#
%ERR2 6793 6837 6846#
%ERR4 6810 6863#
%ERRB 6805# 6860
%ERRB1 6825# 6853
%ERRC 6821 6839 6844 6855 6865 6869#
%ERRS1 6730 6883# 6921
%ERRS2 6896#
%ERRS4 6737 6919#
%ERRS5 6900 6904 6909#
%RAND 6759# 6759 6762 6833
.JB41 344#
.JBAPR 344#
.JBCNI 344#
.JBDDT 344#
.JBFF 344#
.JBOPC 344#
.JBREL 344#
.JBREN 344#
.JBSA 344#
.JBSYM 344#
.JBTPC 344#
.JBUSY 344#
.JBUUO 344#
.JBVER 344#
CFLUSH 300#
CINVAL 299# SEQ 0211
CLOKOP 294#
CWRTBI 301#
DROPDV 261# 716
EERR 38# 2770 2772 2866 3883 3916 4003 4005 4638 4640 4751 4784 5060 5062
5096 5098 5402 5897 5902 6188 6513
EERRI 40# 2818 2911 2955 3015 3033 3051 3069 3087 3105 3123 3141 3159 3177
3240 3258 3276 3294 3312 3330 3348 3366 3384 3402 4108 4500 4920
EERRM 39# 4434 4468 4818 4886 4888 5263 5311 5313 5361 5363 5475 5477 5516
5518
ENDUUO 307# 426
EOPUUO 308# 428
ER 37# 1103 1114 1125 1136 1147 1158 1169 1180 3711 3747 4139 4145 4150
4155 4359 4361 4363 4366 5597 5599 5634 5636 5671 5673 5709 5711 5747
5749 5785 5787 5822 5824 5859 5861 5900 5942 5980 5982 6026 6066 6068
6111 6150 6184 6186 6227 6266 6268 6308 6354 6358 6399 6401 6474 6476
6511 6546 6548 6621 6623 6692
ERR 33# 1224 1226 2820 4603 4605 4674 4676 4717 5023 5025 5601 5638 5675
5713 5751 5789 5826 5863 5865 5939 5944 5984 6023 6028 6070 6108 6113
6147 6152 6224 6229 6270 6310 6314 6356 6360 6403 6437 6441 6479 6550
6585 6625 6659 6694
ERRHLT 196# 6890
ERRI 35# 2868 2913 2957 3017 3035 3053 3071 3089 3107 3125 3143 3161 3179
3242 3260 3278 3296 3314 3332 3350 3368 3386 3404 4110 4534 4570 4954
4989 5136 5216 5436
ERRM 34# 4400 4851 4853
ERROR 36# 788 794 800 806 812 818 824 830 836 842 887 889 894
896 901 903 908 910 915 917 922 924 929 931 936 938 943
945 950 952 997 999 1005 1007 1013 1015 1021 1023 1029 1031 1037
1039 1045 1047 1053 1055 1105 1107 1109 1116 1118 1120 1127 1129 1131
1138 1140 1142 1149 1151 1153 1160 1162 1164 1171 1173 1175 1182 1184
1186 1276 1282 1284 1313 1319 1321 1366 1374 1382 1390 1449 1452 1455
1460 1489 1492 1495 1500 1529 1532 1535 1540 1599 1602 1605 1608 1612
1615 1621 1624 1627 1630 1634 1637 1671 1674 1678 1710 1713 1716 1720
1753 1756 1760 1792 1795 1800 1839 1845 1881 1914 1917 1922 1925 1957
1960 1966 1999 2003 2006 2039 2043 2046 2050 2098 2138 2140 2178 2180
2221 2223 2262 2264 2305 2307 2344 2346 2388 2390 2430 2432 2473 2475
2513 2515 2570 2572 2607 2609 2644 2646 2679 2681 2734 2736 3449 3451
3514 3516 3531 3533 3548 3550 3565 3567 3582 3584 3599 3601 3616 3618
3633 3635 3650 3652 3667 3669 3792 3794 3838 3840 3959 4039 4072 4074
4183 4212 4244 4287 4320 4355 5179 5564
FATAL 195#
FRD36 336#
FRD8 337#
FREAD 335#
FSELEC 334#
GET 179#
GO 176#
HALT 65 66 67 68 69 181# 447
JEN 183#
JRSTF 182#
LOOP 101# 846 956 1060 1191 1227 1285 1322 1395 1461 1501 1541 1641 1679
1721 1761 1801 1850 1882 1926 1967 2007 2051 2099 2141 2181 2224 2265
2308 2347 2391 2433 2476 2516 2573 2610 2647 2682 2737 2773 2821 2869 SEQ 0212
2914 2958 3184 3409 3452 3676 3712 3748 3795 3841 3884 3917 3960 4006
4040 4075 4111 4156 4184 4213 4245 4288 4321 4367 4401 4435 4469 4501
4535 4571 4606 4641 4677 4718 4752 4785 4819 4854 4889 4921 4955 4990
5026 5063 5099 5137 5180 5217 5264 5314 5364 5403 5437 5478 5519 5565
5602 5639 5676 5714 5752 5790 5827 5866 5903 5945 5985 6029 6071 6115
6153 6189 6230 6271 6315 6362 6405 6442 6480 6514 6551 6586 6626 6660
6695
MAPADR 317#
MAPCNK 318#
MAPMEM 314#
MAPPNT 320#
MAPSET 319#
MEMSEG 316#
MEMZRO 315#
MODPCP 327#
MODPCU 326#
MTROP 295#
NAME 7# 10
PBELL 270# 6894
PCRL 264# 6869
PCRL2 268#
PCRL2F 269#
PCRLF 265#
PFORCE 272#
PGMINT 189# 669
PJRST 180#
PMSG 274# 6746 6750 6796 6800 6812 6823 6828 6840 6846 6857
PMSGF 277#
PNT1 230#
PNT11 244#
PNT11F 245#
PNT1F 231#
PNT2 232# 6799
PNT2F 233#
PNT3 234#
PNT3F 235#
PNT4 236#
PNT4F 237#
PNT5 238#
PNT5F 239#
PNT6 240# 6754 6851
PNT6F 241#
PNT7 242#
PNT7F 243#
PNTA 216# 6864
PNTADF 247#
PNTADR 246#
PNTAF 217#
PNTAL 218#
PNTALF 219#
PNTCHF 229#
PNTCHR 228#
PNTCI 226# SEQ 0213
PNTCIF 227#
PNTCW 262#
PNTCWF 263#
PNTDCF 255#
PNTDEC 254# 6749
PNTDS 256#
PNTDSF 257#
PNTHW 250# 6805 6819 6835 6843
PNTHWF 251#
PNTMGN 341# 6880
PNTMSF 223#
PNTMSG 222#
PNTNM 258# 6742
PNTOCF 253#
PNTOCS 252#
PNTOCT 248#
PNTOTF 249#
PNTSIX 259#
PNTSXF 260#
PSIXL 220#
PSIXLF 221#
PSIXM 224# 6747 6751 6797 6801 6813 6824 6829 6841 6847 6858
PSIXMF 225#
PSP 266#
PSPF 267#
PUT 178#
RANDOM 95# 773 872 980 1084 1216 1268 1305 1348 1441 1481 1521 1568 1664
1703 1746 1785 1825 1873 1907 1950 1991 2031 2075 2125 2166 2207 2250
2291 2334 2374 2418 2459 2502 2542 2598 2634 2671 2706 2761 2798 2846
2895 2939 2984 3209 3435 3479 3699 3735 3773 3819 3864 3908 3940 3983
4029 4063 4098 4236 4268 4312 4346 4391 4425 4459 4493 4525 4559 4595
4630 4665 4701 4742 4776 4809 4842 4878 4913 4945 4979 5015 5051 5088
5124 5160 5204 5242 5290 5340 5388 5427 5461 5502 5543 5589 5626 5663
5700 5738 5776 5814 5851 5890 5928 5970 6011 6055 6098 6139 6177 6213
6256 6297 6341 6388 6429 6466 6504 6538 6575 6610 6650 6684
RTN 177# 434
S 107# 109 113 142 144 153 156 171 172 174 185 187 191 193
198 202 344 349 355 382 384 402 404 422 424 453 455 473
475 493 495 503 505 526 531 557 559 566 568 574 576 582
584 588 590 595 597 601 603 607 609 615 617 620 622 626
628 632 634 638 640 644 646 651 656 660 662
SETUP 80# 759 858 966 1070 1202 1254 1291 1334 1427 1467 1507 1554 1650
1689 1732 1771 1811 1859 1893 1936 1977 2017 2061 2111 2152 2193 2236
2277 2320 2360 2404 2445 2488 2528 2584 2620 2657 2692 2747 2784 2832
2881 2925 2970 3195 3421 3465 3685 3721 3759 3805 3850 3894 3926 3969
4015 4049 4084 4120 4166 4195 4222 4254 4298 4332 4377 4411 4445 4479
4511 4545 4581 4616 4651 4687 4728 4762 4795 4828 4864 4899 4931 4965
5001 5037 5074 5110 5146 5190 5228 5276 5326 5374 5413 5447 5488 5529
5575 5612 5649 5686 5724 5762 5800 5837 5876 5914 5955 5996 6040 6083
6125 6163 6199 6241 6282 6326 6373 6415 6452 6490 6524 6561 6596 6636
6670
SIXBTZ 283#
SWITCH 289# 679 6728 6881 SEQ 0214
TTALTM 211# 6883
TTICHR 204#
TTICNV 209#
TTIDEC 208#
TTINO 206#
TTIOCT 207#
TTIYES 205#
TTLOOK 210#
TTSIXB 212#