Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dbkba.seq
There are no other files named dbkba.seq in the archive.
MAINDEC-10-DBKBA.TXT
SEQ 0001
IDENTIFICATION
--------------
PRODUCT CODE: MAINDEC-10-DBKBA
PRODUCT NAME: DECSYSTEM10 PDP-10 KI10 BASIC
INSTRUCTION RELIABILITY TEST (1)
FUNCTION: COMPARES, SKIPS, EXCHANGES, BOOLE, ROTATES, TESTS
VERSION: 0.2
DATE RELEASED: AUGUST,1976
MAINTAINED BY: DIAGNOSTIC ENGINEERING GROUP
AUTHOR: JOHN R. KIRCHOFF
COPYRIGHT(C) 1976
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-DBKBA.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-DBKBA.TXT
PAGE 3 SEQ 0003
1.0 ABSTRACT
THIS PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST
IS THE FIRST IN A SERIES OF PDP-10 KI10 PROCESSOR
RANDOM NUMBER DIAGNOSTICS.
THE DIAGNOSTIC TESTS COMPARES, SKIPS, EXCHANGES, BOOLE, ROTATES
AND 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 KI10 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-DBKBA.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-DBKBA.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-DBKBA.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 0 ALLOW PAGING AND TRAP ENABLE
1 INHIBIT PAGING AND TRAPPING
12 MODDVC NOT USED
13 INHCSH NOT USED
MAINDEC-10-DBKBA.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-DBKBA.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-DBKBA.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-DBKBA.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-DBKBA.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-DBKBA.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-DBKBA.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 'DBKBA.PNT'
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-DBKBA
SEQ 0014
************************************************************************
PRODUCT CODE: MAINDEC-10-DBKBA
PRODUCT NAME: BASIC INSTRUCTION RELIABILITY TEST #1
DATE RELEASED: AUGUST,1976
VERSION: 0.2
UPDATE AUTHOR: EDWARD G. PRENTICE
CHANGES MADE:
1. UPGRADE TO ALLOW COMPATABILITY WITH THE SUBROUTINE PACKAGE.
************************************************************************
VERSION: 1.1
UPDATE AUTHOR: JOHN R. KIRCHOFF
DATE RELEASED: 07-MAR-73
REASON FOR UPDATE: FIX POWER FAIL RESTART ROUTINE TO RESTORE FLAGS
************************************************************************
ORIGINAL VERSION: 0.1
ORIGINAL AUTHOR: JOHN R. KIRCHOFF
ORIGINAL RELEASE: 16-MAR-72
************************************************************************
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 1
DBKBAT MAC 30-JUL-76 12:45 DIAGNOSTIC PARAMETERS SEQ 0015
1 ;MAINDEC-10-DBKBA
2
3 000002 DECVER=002
4 000000 MCNVER=000
5
6 XLIST
7 LIST
8 LALL
9
10 NAME \MCNVER,\DECVER^
11
12 TITLE DBKBA PDP-10 KI10 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 1975
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 NOSYM
28 000001 ENDPGM==1
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 2
DBKBAT MAC 30-JUL-76 12:45 DIAGNOSTIC PARAMETERS SEQ 0016
29 SUBTTL DIAGNOSTIC PARAMETERS
30
31 ;LUUO DEFINITIONS
32
33 001000 000000 OPDEF ERR [1B8]
34 002000 000000 OPDEF ERRM [2B8]
35 003000 000000 OPDEF ERRI [3B8]
36 004000 000000 OPDEF ERROR [4B8]
37 005000 000000 OPDEF ER [5B8]
38 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 000001 KI10==1
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 444253 424100 PAREA3==SIXBIT/DBKBA/
73 605664 000000 PAREA4==SIXBIT/PNT/
74 000000 PAREA5==0
75 000000 PAREA6==0
76 000001 ITERAT==1
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 3
DBKBAT MAC 30-JUL-76 12:45 DIAGNOSTIC PARAMETERS SEQ 0017
77 ;MACROS
78
79 DEFINE SETUP (A,B)<
80 AC1=<AC+1>&17
81 AC2=<AC+2>&17
82 AC3=<AC+3>&17
83 AC4=<AC+4>&17
84 AC5=<AC+5>&17
85 RAN1=<AC-2>&17
86 MOVEI AC-1,.
87 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
88 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
89 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
90 MOVEI AC-1,A ;ROUTINE WEIGHTING
91 ASH AC-1,@CMPLXT+B ;ROUTINE COMPLEXITY
92 ASH AC-1,@RTIME ;RUN TIME CONTROLLER >
93
94 DEFINE RANDOM (A)<
95 MOVE AC,RAN# ;GENERATE A PSEUDO RANDOM NUMBER
96 ADD AC,[142536475076]
97 ROT AC,-1 ;IN BOTH AC AND
98 EQVB AC,RAN ;REGISTER RAN >
99
100 DEFINE LOOP (A,B)<
101 SOJG AC-1,A ;ITERATION COUNTER
102 MOVE AC,RAN ;RESTORE RANDOM NUMBER
103 JUMPL AC-1,B ;LOOP ON ERROR SWITCH >
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 1
PARAM KLM 26-FEB-76 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, FEB 26,1976 SEQ 0018
104 SUBTTL *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, FEB 26,1976
105
106 DEFINE S,<;*********************************************************************>
107
108 S^;*********************************************************************^
109 ;*DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE)
110 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
111 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
112 S^;*********************************************************************^
113
114 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION
115 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS
116 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE
117
118 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
119 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
120 010000 DING== 010000 ;RING BELL ON ERROR
121
122 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR
123 002000 ERSTOP==002000 ;HALT ON TEST ERROR
124 001000 PALERS==001000 ;PRINT ALL ERRORS
125
126 000400 RELIAB==000400 ;RELIABILITY MODE
127 000200 TXTINH==000200 ;INHIBIT ERROR TEXT
128 000100 INHPAG==000100 ;INHIBIT PAGING
129
130 000040 MODDVC==000040 ;MODIFY DEVICE CODE
131 000020 INHCSH==000020 ;INHIBIT CACHE
132 000010 OPRSEL==000010 ;OPERATOR SELECTION
133
134 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH
135
136 000002 KAHZ50==000002 ;KA10 50 HERTZ POWER
137
138 ;SWITCH 17 RESERVED !!!
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 2
PARAM KLM 26-FEB-76 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976 SEQ 0019
139 SUBTTL *PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976
140
141 S^;*********************************************************************^
142 ;*SPECIAL SUBPROGRAM LINKAGES
143 S^;*********************************************************************^
144
145 027772 FSELNK= 27772 ;FILE SELECT LINK
146 027773 FRDLNK= 27773 ;FILE READ LINK
147 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS
148 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS
149 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS
150 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS
151
152 S^;*********************************************************************^
153 ;*SPECIAL SUBROUTINE FATAL HALTS
154 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
155 S^;*********************************************************************^
156
157 ;ADDRESS TAG REASON
158 ;---------------------
159
160 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION
161 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR
162 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR
163 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT
164 ; 1014 DTEBER ;DTE20 INTERRUPT WITHOUT DOORBELL
165 ; 1015 DTECER ;DTE20 CLOCK INTERRUPT WITHOUT FLAG SET
166 ; 1016 CPIERR ;CPU INITIALIZATION ERROR
167 ; 1017 EOPERR ;END OF PROGRAM ERROR
168 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT
169
170 S^;*********************************************************************^
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 3
PARAM KLM 26-FEB-76 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976 SEQ 0020
171 S^;*********************************************************************^
172 ;OPERATOR DEFINITIONS (NON-UUO'S)
173 S^;*********************************************************************^
174
175 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL
176 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN
177 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST
178 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST
179 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S
180 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT
181 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT
182 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT
183
184 S^;*********************************************************************^
185 ;*SUBROUTINE INITIALIZATION CALL
186 S^;*********************************************************************^
187
188 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION
189
190 S^;*********************************************************************^
191 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
192 S^;*********************************************************************^
193
194 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT
195 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT
196
197 S^;*********************************************************************^
198 ;*TERMINAL INPUT UUO'S
199 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
200 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
201 S^;*********************************************************************^
202
203 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER
204 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y
205 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N
206 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD
207 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD
208 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD
209 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK
210 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK
211 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD
212 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 4
PARAM KLM 26-FEB-76 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976 SEQ 0021
213 ;*TERMINAL OUTPUT UUO'S.
214
215 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD
216 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED
217 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE
218 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED
219 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE
220 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED
221 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE
222 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED
223 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE
224 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED
225 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE
226 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED
227 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER
228 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED
229 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT
230 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED
231 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS
232 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED
233 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS
234 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED
235 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS
236 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED
237 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS
238 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED
239 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS
240 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED
241 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS
242 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED
243 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS
244 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED.
245 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS
246 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED
247 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL
248 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED
249 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6
250 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
251 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S
252 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
253 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S
254 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
255 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S
256 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 5
PARAM KLM 26-FEB-76 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976 SEQ 0022
257 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME
258 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD
259 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED
260 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE
261 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD
262 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED
263 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
264 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
265 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE
266 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED
267 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
268 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
269 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL
270
271 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE
272
273 DEFINE PMSG (ARG),<
274 PSIXM [SIXBIT\ARG'_\]>
275
276 DEFINE PMSGF (ARG),<
277 PSIXMF [SIXBIT\ARG'_\]>
278
279 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
280 ;* CONSERVES CORE OVER ASCIZ
281
282 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]>
283
284 ;*CONSOLE SWITCH INPUT UUO.
285 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
286 ;* USER MODE.
287
288 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES
289
290 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
291 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
292
293 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - PDP-11 CLOCK
294 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - DK20 METER
295
296 ;*KL10 ONLY CACHE OPERATION UUO'S
297
298 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE
299 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH
300 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 6
PARAM KLM 26-FEB-76 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976 SEQ 0023
301 ;*END OF PASS/PROGRAM UUOS
302
303 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
304 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
305
306 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS
307 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO
308
309 ;*MEMORY MANAGEMENT UUO'S
310 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
311 ;*ADDRESS CONVERSION, ETC...
312
313 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY
314 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY
315 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT
316 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT
317 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK
318 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP
319 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP
320
321 ;*DEVICE CODE MODIFICATION UUO
322 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
323 ;*IOT'S TO A DIFFERENT DEVICE CODE.
324
325 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER
326 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM
327
328 030000 IFNDEF MODDVL,<MODDVL==BEGIN>
329 030000 IFNDEF MODDVU,<MODDVU==BEGIN>
330
331 ;*"DIAMON" FILE SELECTION AND READ UUOS
332
333 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION
334 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA
335 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA
336 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA
337
338 ;*KI10 ONLY UUO FOR PRINTING MARGIN VALUES
339
340 037700 000002 OPDEF PNTMGN [37B8!16B12!2] ;PRINT MARGIN VALUE
341
342 XLIST
343 LIST
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 1
FIXED KLM 26-FEB-76 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, FEB 26,1976 SEQ 0024
344 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, FEB 26,1976
345
346 030000 LOC 30000
347
348 S^;*********************************************************************^
349 ;*PROGRAM STARTING ADDRESSES
350 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
351 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
352 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
353 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
354 S^;*********************************************************************^
355
356 030000 254 00 1 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START
357 030001 254 00 0 00 030600 $START: JRST START ;MODE CHECK STARTING ADDRESS
358
359 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START
360
361 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START
362
363 030004 254 00 0 00 030000 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START
364
365 030005 254 00 0 00 030076 PFSTRT: JRST SADR2 ;POWER FAIL RESTART
366
367 030006 254 00 0 00 030635 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY)
368
369 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT"
370 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START
371
372 030010 254 00 0 00 030605 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE)
373 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE
374 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE
375
376 030013 254200 030000 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS
377 030014 254200 030000 START2: SADR8 ; "
378 030015 254200 030000 START3: SADR9 ; "
379 030016 254200 030000 START4: SADR10 ; "
380 030017 254200 030000 START5: SADR11 ; "
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 2
FIXED KLM 26-FEB-76 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, FEB 26,1976 SEQ 0025
381 S^;*********************************************************************^
382 ;*PROGRAM FIXED PARAMETER AREA
383 S^;*********************************************************************^
384
385 030020 444253 424100 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME
386 030021 605664 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION
387 030022 123457 654321 RANDBS: PAREA1 ;RANDOM BASE NUMBER
388 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES
389 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS
390 030025 000000 030637 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME
391 030026 000000 000002 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL
392 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT
393 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT
394 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED
395 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED
396 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE
397 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS
398 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER
399 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER
400
401 S^;*********************************************************************^
402 ;*PROGRAM VARIABLE PARAMETER AREA
403 S^;*********************************************************************^
404
405 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG
406 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10
407 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
408 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG
409 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG
410 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10
411 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG
412 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS
413 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT
414 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG
415 030051 000000 000000 TESTPC: 0 ;SUBTEST PC
416 030052 000000 000000 ERRPC: 0 ;ERROR PC
417 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS
418 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME
419 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE
420 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 3
FIXED KLM 26-FEB-76 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, FEB 26,1976 SEQ 0026
421 S^;*********************************************************************^
422 ;*SPECIAL PROGRAM DISPATCH ADDRESSES
423 S^;*********************************************************************^
424
425 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS
426 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM
427 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN
428 030062 000000 030000 CNTLC: SADR5 ;CONTROL C XFER ADDRESS
429 030063 000000 030000 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS
430 030064 CPOPJ1: ;SKIP RETURN
431 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO
432 030065 CPOPJ: ;NON-SKIP REGULAR RETURN
433 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN
434 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE
435 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE
436 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX)
437 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE
438 030072 255 00 0 00 000000 $ITRX1: JFCL ; "
439 030073 255 00 0 00 000000 $USRHL: JFCL ; "
440 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE
441 030075 255 00 0 00 000000 $RSRTY: JFCL ; "
442 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX)
443 030077 255 00 0 00 000000 RESRT2: JFCL ; "
444 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE
445 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE
446 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT
447
448 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR)
449 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT
450 030105 000000 000000 0 ;INITED AS (JRST $ITRC1)
451
452 S^;*********************************************************************^
453 ;*PROCESSOR CONTROL STORAGE
454 S^;*********************************************************************^
455
456 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0
457 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI
458 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR
459 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI)
460 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI)
461
462 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO
463 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO
464
465 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS
466 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG
467 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG
468 030120 000000 000000 %COREC: 0 ; " CORRECT DATA
469 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG
470 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA
471 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 4
FIXED KLM 26-FEB-76 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, FEB 26,1976 SEQ 0027
472 S^;*********************************************************************^
473 ;*UUO DISPATCH TABLE
474 S^;*********************************************************************^
475 XLIST
476 LIST
477 030124 037316 030070 UUODIS: LUUO1,,$UUOER
478 030125 037316 037316 LUUO3,,LUUO2
479 030126 037316 037316 LUUO5,,LUUO4
480 030127 030070 030070 LUUO7,,LUUO6
481 030130 037316 030070 LUUO11,,LUUO10
482 030131 037316 037316 LUUO13,,LUUO12
483 030132 030070 030070 LUUO15,,LUUO14
484 030133 030070 030070 LUUO17,,LUUO16
485 030134 030070 030070 LUUO21,,LUUO20
486 030135 030070 030070 LUUO23,,LUUO22
487 030136 030070 030070 LUUO25,,LUUO24
488 030137 030070 030070 LUUO27,,LUUO26
489 030140 030070 030070 LUUO31,,LUUO30
490 030141 030070 030070 LUUO33,,LUUO32
491
492 S^;*********************************************************************^
493 ;*MEMORY MANAGMENT STORAGE
494 S^;*********************************************************************^
495
496 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
497 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
498 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.)
499 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY
500 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE
501
502 S^;*********************************************************************^
503 ;*PRINT CONTROL STORAGE
504 S^;*********************************************************************^
505
506 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
507 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE
508 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG
509 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS
510 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL
511 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME
512 030225 000000 000000 $TWCNT: 0 ;TIME WAITED
513 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG
514 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG
515 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE
516 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR
517 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR
518 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER
519 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG
520 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG
521 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG
522 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG
523 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS
524 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 5
FIXED KLM 26-FEB-76 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, FEB 26,1976 SEQ 0028
525 S^;*********************************************************************^
526 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
527 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
528 ;* MOVEI NAME
529 ;* PNTA ;OR PNTAF
530 S^;*********************************************************************^
531
532 030242 CRLF: ASCII/
533 030242 015 012 000 000 000 /
534 030243 CRLF2: ASCII/
535
536 030243 015 012 015 012 000 /
537 030244 054 000 000 000 000 COMMA: ASCII/,/
538 030245 056 000 000 000 000 PERIOD: ASCII/./
539 030246 040 000 000 000 000 SPACE: ASCII/ /
540 030247 011 000 000 000 000 TAB: ASCII/ /
541 030250 MINUS:
542 030250 055 000 000 000 000 HYPEN: ASCII/-/
543 030251 053 000 000 000 000 PLUS: ASCII/+/
544 030252 052 000 000 000 000 AST: ASCII/*/
545 030253 100 000 000 000 000 ATSIN: ASCII/@/
546 030254 050 000 000 000 000 LFP: ASCII/(/
547 030255 051 000 000 000 000 RTP: ASCII/)/
548 030256 007 0000000000 BELL: BYTE (7) 007
549 030257 077 000 000 000 000 QUEST: ASCII/?/
550 030260 057 000 000 000 000 SLASH: ASCII!/!
551 030261 044 000 000 000 000 DOLLAR: ASCII/$/
552 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX
553 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR
554 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT
555
556 S^;*********************************************************************^
557 ;*USER MODE OUTPUT FILE INFORMATION
558 S^;*********************************************************************^
559
560 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER
561 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME
562 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION
563 030272 BLOCK 2
564
565 S^;*********************************************************************^
566 ;*DISK UPDATE MODE FILE INFORMATION
567 S^;*********************************************************************^
568
569 030274 $IBUF: BLOCK 3
570 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/
571 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/
572 030301 BLOCK 2
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 6
FIXED KLM 26-FEB-76 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, FEB 26,1976 SEQ 0029
573 S^;*********************************************************************^
574 ;*PUSHDOWN LIST CONTROL INFORMATION
575 S^;*********************************************************************^
576
577 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST
578 030304 PLISTS: BLOCK 200
579 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST
580
581 S^;*********************************************************************^
582 ;*POWER LINE CLOCK FREQUENCY FLAG
583 S^;*********************************************************************^
584
585 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE
586
587 S^;*********************************************************************^
588 ;*KL10 CACHE CONTROL FLAGS
589 S^;*********************************************************************^
590
591 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0
592 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0
593
594 S^;*********************************************************************^
595 ;*NUMBER INPUT DIGIT FLAG
596 S^;*********************************************************************^
597
598 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED
599
600 S^;*********************************************************************^
601 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
602 S^;*********************************************************************^
603
604 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
605
606 S^;*********************************************************************^
607 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
608 S^;*********************************************************************^
609
610 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO
611 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO
612 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
613
614 S^;*********************************************************************^
615 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION
616 S^;*********************************************************************^
617
618 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 7
FIXED KLM 26-FEB-76 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, FEB 26,1976 SEQ 0030
619 S^;*********************************************************************^
620 ;*KL10 PROCESSOR TYPE FLAG, 0=P0, 1=BBD NEW, 2=BBD OLD
621 S^;*********************************************************************^
622
623 030516 000000 000000 KLTYP: 0
624
625 S^;*********************************************************************^
626 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION
627 S^;*********************************************************************^
628
629 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER
630
631 S^;*********************************************************************^
632 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
633 S^;*********************************************************************^
634
635 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
636
637 S^;*********************************************************************^
638 ;*"SWITCH" CALL USAGE CONTROL
639 S^;*********************************************************************^
640
641 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
642
643 S^;*********************************************************************^
644 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
645 S^;*********************************************************************^
646
647 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
648 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
649
650 S^;*********************************************************************^
651 ;*SPECIAL FUTURE EXPANSION ROOM
652 ;*IF ANY FIXED AREA TAGS ARE ADDED, REDUCE THE SIZE OF
653 ;*THIS BLOCK STATEMENT ACCORDINGLY. THIS MUST BE DONE
654 ;*SO THAT PREVIOUS FIXED ASSIGNMENTS DO NOT CHANGE.
655 S^;*********************************************************************^
656
657 030524 BLOCK 53 ;HOPEFULLY THIS IS ENOUGH FOREVER
658
659 S^;*********************************************************************^
660 ;*END OF FIXED STORAGE
661 S^;*********************************************************************^
662
663 030577 $ENDFX=<PLISTE+100>&<777700>-1
664 030577 LOC $ENDFX
665 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 1
DBKBAM MAC 26-MAY-76 16:47 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, FEB 26,1976 SEQ 0031
666 ;INITIALIZE UUO HANDLER
667
668 030600 265 00 0 00 030011 START: PGMINT ;INITIALIZE SUBROUTINES
669 030601 200 00 0 00 030022 MOVE 0,RANDBS ;EXEC, SETUP RANDOM BASE
670 030602 332 00 0 00 030037 SKIPE USER ;USER, USE TIME OF DAY IN JIFFIES
671 030603 040 00 0 00 037574 CALL 0,[SIXBIT/TIMER/]
672 030604 202 00 0 00 037704 MOVEM 0,RAN ;SETUP RANDOM BASE
673
674 ;INITIALIZE COMPLEXITY TABLE
675 000000 A=0
676 030605 402 00 0 00 030671 STARTA: SETZM CMPLXT ;STORE A TABLE OF POWERS OF 2
677 030606 201 01 0 00 000001 MOVEI 1,1 ;OR 0.
678 030607 037 10 0 00 000002 SWITCH
679 030610 607 00 0 00 000400 TLNN RELIAB ;FAST CYCLE SWITCH SET ?
680 030611 402 00 0 00 000001 SETZM 1 ;YES, STORE ZERO'S
681 REPEAT 7,
682 < MOVEM 1,CMPLXT+1+A
683 LSH 1,1
684 A=A+1>
685 030612 202 01 0 00 030672 MOVEM 1,CMPLXT+1+A
686 030613 242 01 0 00 000001 LSH 1,1
687 000001 A=A+1
688 030614 202 01 0 00 030673 MOVEM 1,CMPLXT+1+A
689 030615 242 01 0 00 000001 LSH 1,1
690 000002 A=A+1
691 030616 202 01 0 00 030674 MOVEM 1,CMPLXT+1+A
692 030617 242 01 0 00 000001 LSH 1,1
693 000003 A=A+1
694 030620 202 01 0 00 030675 MOVEM 1,CMPLXT+1+A
695 030621 242 01 0 00 000001 LSH 1,1
696 000004 A=A+1
697 030622 202 01 0 00 030676 MOVEM 1,CMPLXT+1+A
698 030623 242 01 0 00 000001 LSH 1,1
699 000005 A=A+1
700 030624 202 01 0 00 030677 MOVEM 1,CMPLXT+1+A
701 030625 242 01 0 00 000001 LSH 1,1
702 000006 A=A+1
703 030626 202 01 0 00 030700 MOVEM 1,CMPLXT+1+A
704 030627 242 01 0 00 000001 LSH 1,1
705 000007 A=A+1
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 2
DBKBAM MAC 26-MAY-76 16:47 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, FEB 26,1976 SEQ 0032
706 ;INITIALIZE RUN TIME
707
708 030630 201 01 0 00 000001 MOVEI 1,1
709 030631 603 00 0 00 000400 TLNE RELIAB ;FAST CYCLE SWITCH SET ?
710 030632 201 01 0 00 000007 MOVEI 1,7 ;NO, MULTIPLY RUNNING TIME
711 030633 202 01 0 00 030670 MOVEM 1,RTIME ;STORE IN RTIME
712
713 030634 254 00 0 00 030711 JRST CAM1 ;GO PERFORM DIAGNOSTIC
714
715 030635 037 05 0 00 000002 RENTR1: DROPDV ;CLOSE LOGICAL OUTPUT FILE
716 030636 040 00 0 00 037575 CALL [SIXBIT .EXIT.]
717
718 030637 PGMNAM: ASCIZ/
719 030637 015 012 120 104 120 PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST 1 (DBKBA)
720 030640 055 061 060 040 040
721 030641 113 111 061 060 040
722 030642 102 101 123 111 103
723 030643 040 111 116 123 124
724 030644 122 125 103 124 111
725 030645 117 116 040 122 105
726 030646 114 111 101 102 111
727 030647 114 111 124 131 040
728 030650 124 105 123 124 040
729 030651 061 040 050 104 102
730 030652 113 102 101 051 015
731 030653 012 050 103 117 115 (COMPARES, SKIPS, EXCHANGES, BOOLE, ROTATES, TESTS, ETC.)
732 030654 120 101 122 105 123
733 030655 054 040 123 113 111
734 030656 120 123 054 040 105
735 030657 130 103 110 101 116
736 030660 107 105 123 054 040
737 030661 102 117 117 114 105
738 030662 054 040 122 117 124
739 030663 101 124 105 123 054
740 030664 040 124 105 123 124
741 030665 123 054 040 105 124
742 030666 103 056 051 015 012 /
743 030667 000 000 000 000 000
744 ;CONSTANTS
745
746 030670 000000 000000 RTIME: 0
747 030671 CMPLXT: BLOCK 20
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 3
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0033
748 SUBTTL DIAGNOSTIC SECTION
749 LALL
750
751 ;TEST CAMN,CAME (SIMPLE)
752 ;THE CONTENTS OF THE AC IS COMPARED WITH ITSELF
753 ;AN ERROR WILL OCCUR IF CAMN SKIPS OR CAME FAILS TO SKIP
754 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
755 ;15 ACS ARE USED IN THE TEST
756
757 000002 AC=2
758 030711 CAM1: SETUP 20,0^
759 000003 AC1=<AC+1>&17
760 000004 AC2=<AC+2>&17
761 000005 AC3=<AC+3>&17
762 000006 AC4=<AC+4>&17
763 000007 AC5=<AC+5>&17
764 000000 RAN1=<AC-2>&17
765 030711 201 01 0 00 030711 MOVEI AC-1,.
766 030712 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
767 030713 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
768 030714 202 01 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
769 030715 201 01 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
770 030716 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
771 030717 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
772 RANDOM^
773 030720 200 02 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
774 030721 270 02 0 00 037576 ADD AC,[142536475076]
775 030722 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
776 030723 447 02 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
777 CAMNE1: REPEAT ^D10,
778 < MOVE AC,RAN
779 CAMN AC,AC ;C(AC) = C(AC)
780 CAME AC,AC
781 ERROR AC,AC ;CHECK CAME,CAMN
782 AC=<AC+1>&17
783 >
784 030724 200 02 0 00 037704 MOVE AC,RAN
785 030725 316 02 0 00 000002 CAMN AC,AC ;C(AC) = C(AC)
786 030726 312 02 0 00 000002 CAME AC,AC
787 030727 004 02 0 00 000002 ERROR AC,AC ;CHECK CAME,CAMN
788 000003 AC=<AC+1>&17
789
790 030730 200 03 0 00 037704 MOVE AC,RAN
791 030731 316 03 0 00 000003 CAMN AC,AC ;C(AC) = C(AC)
792 030732 312 03 0 00 000003 CAME AC,AC
793 030733 004 03 0 00 000003 ERROR AC,AC ;CHECK CAME,CAMN
794 000004 AC=<AC+1>&17
795
796 030734 200 04 0 00 037704 MOVE AC,RAN
797 030735 316 04 0 00 000004 CAMN AC,AC ;C(AC) = C(AC)
798 030736 312 04 0 00 000004 CAME AC,AC
799 030737 004 04 0 00 000004 ERROR AC,AC ;CHECK CAME,CAMN
800 000005 AC=<AC+1>&17
801
802 030740 200 05 0 00 037704 MOVE AC,RAN
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 3-1
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0034
803 030741 316 05 0 00 000005 CAMN AC,AC ;C(AC) = C(AC)
804 030742 312 05 0 00 000005 CAME AC,AC
805 030743 004 05 0 00 000005 ERROR AC,AC ;CHECK CAME,CAMN
806 000006 AC=<AC+1>&17
807
808 030744 200 06 0 00 037704 MOVE AC,RAN
809 030745 316 06 0 00 000006 CAMN AC,AC ;C(AC) = C(AC)
810 030746 312 06 0 00 000006 CAME AC,AC
811 030747 004 06 0 00 000006 ERROR AC,AC ;CHECK CAME,CAMN
812 000007 AC=<AC+1>&17
813
814 030750 200 07 0 00 037704 MOVE AC,RAN
815 030751 316 07 0 00 000007 CAMN AC,AC ;C(AC) = C(AC)
816 030752 312 07 0 00 000007 CAME AC,AC
817 030753 004 07 0 00 000007 ERROR AC,AC ;CHECK CAME,CAMN
818 000010 AC=<AC+1>&17
819
820 030754 200 10 0 00 037704 MOVE AC,RAN
821 030755 316 10 0 00 000010 CAMN AC,AC ;C(AC) = C(AC)
822 030756 312 10 0 00 000010 CAME AC,AC
823 030757 004 10 0 00 000010 ERROR AC,AC ;CHECK CAME,CAMN
824 000011 AC=<AC+1>&17
825
826 030760 200 11 0 00 037704 MOVE AC,RAN
827 030761 316 11 0 00 000011 CAMN AC,AC ;C(AC) = C(AC)
828 030762 312 11 0 00 000011 CAME AC,AC
829 030763 004 11 0 00 000011 ERROR AC,AC ;CHECK CAME,CAMN
830 000012 AC=<AC+1>&17
831
832 030764 200 12 0 00 037704 MOVE AC,RAN
833 030765 316 12 0 00 000012 CAMN AC,AC ;C(AC) = C(AC)
834 030766 312 12 0 00 000012 CAME AC,AC
835 030767 004 12 0 00 000012 ERROR AC,AC ;CHECK CAME,CAMN
836 000013 AC=<AC+1>&17
837
838 030770 200 13 0 00 037704 MOVE AC,RAN
839 030771 316 13 0 00 000013 CAMN AC,AC ;C(AC) = C(AC)
840 030772 312 13 0 00 000013 CAME AC,AC
841 030773 004 13 0 00 000013 ERROR AC,AC ;CHECK CAME,CAMN
842 000014 AC=<AC+1>&17
843
844 000002 AC=2
845 LOOP CAMNE1-3,CAMNE1^
846 030774 367 01 0 00 030721 SOJG AC-1,CAMNE1-3 ;ITERATION COUNTER
847 030775 200 02 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
848 030776 321 01 0 00 030724 JUMPL AC-1,CAMNE1 ;LOOP ON ERROR SWITCH ^
849
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 4
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0035
850
851 ;TEST MOVE TO AC,FURTHER TEST OF CAME
852 ;THE C(AC) IS COMPARED WITH THE CONTENTS OF THE RANDOM
853 ;NUMBER GENERATOR. 15 ACS ARE USED IN THE TEST
854 ;ERRORS ARE PRINTED IN THE FORM (PC,AC,C(AC),CORRECT)
855
856 000002 AC=2
857 030777 MOVAC: SETUP 20,0^
858 000003 AC1=<AC+1>&17
859 000004 AC2=<AC+2>&17
860 000005 AC3=<AC+3>&17
861 000006 AC4=<AC+4>&17
862 000007 AC5=<AC+5>&17
863 000000 RAN1=<AC-2>&17
864 030777 201 01 0 00 030777 MOVEI AC-1,.
865 031000 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
866 031001 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
867 031002 202 01 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
868 031003 201 01 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
869 031004 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
870 031005 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
871 RANDOM^
872 031006 200 02 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
873 031007 270 02 0 00 037576 ADD AC,[142536475076]
874 031010 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
875 031011 447 02 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
876 MOVAC1: REPEAT ^D10,
877 < MOVE AC,RAN ;MOVE RAN INTO AC.
878 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
879 ERROR AC,RAN ;IF NOT MOVE FAILED
880 CAME AC,RAN# ;IF AC=RAN CAME FAILED
881 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
882 AC=<AC+1>&17 ;AC ON CAME FAILED
883 >
884 031012 200 02 0 00 037704 MOVE AC,RAN ;MOVE RAN INTO AC.
885 031013 312 02 0 00 037704 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
886 031014 004 02 0 00 037704 ERROR AC,RAN ;IF NOT MOVE FAILED
887 031015 312 02 0 00 037704 CAME AC,RAN# ;IF AC=RAN CAME FAILED
888 031016 004 02 0 00 037704 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
889 000003 AC=<AC+1>&17 ;AC ON CAME FAILED
890
891 031017 200 03 0 00 037704 MOVE AC,RAN ;MOVE RAN INTO AC.
892 031020 312 03 0 00 037704 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
893 031021 004 03 0 00 037704 ERROR AC,RAN ;IF NOT MOVE FAILED
894 031022 312 03 0 00 037704 CAME AC,RAN# ;IF AC=RAN CAME FAILED
895 031023 004 03 0 00 037704 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
896 000004 AC=<AC+1>&17 ;AC ON CAME FAILED
897
898 031024 200 04 0 00 037704 MOVE AC,RAN ;MOVE RAN INTO AC.
899 031025 312 04 0 00 037704 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
900 031026 004 04 0 00 037704 ERROR AC,RAN ;IF NOT MOVE FAILED
901 031027 312 04 0 00 037704 CAME AC,RAN# ;IF AC=RAN CAME FAILED
902 031030 004 04 0 00 037704 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
903 000005 AC=<AC+1>&17 ;AC ON CAME FAILED
904
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 4-1
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0036
905 031031 200 05 0 00 037704 MOVE AC,RAN ;MOVE RAN INTO AC.
906 031032 312 05 0 00 037704 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
907 031033 004 05 0 00 037704 ERROR AC,RAN ;IF NOT MOVE FAILED
908 031034 312 05 0 00 037704 CAME AC,RAN# ;IF AC=RAN CAME FAILED
909 031035 004 05 0 00 037704 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
910 000006 AC=<AC+1>&17 ;AC ON CAME FAILED
911
912 031036 200 06 0 00 037704 MOVE AC,RAN ;MOVE RAN INTO AC.
913 031037 312 06 0 00 037704 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
914 031040 004 06 0 00 037704 ERROR AC,RAN ;IF NOT MOVE FAILED
915 031041 312 06 0 00 037704 CAME AC,RAN# ;IF AC=RAN CAME FAILED
916 031042 004 06 0 00 037704 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
917 000007 AC=<AC+1>&17 ;AC ON CAME FAILED
918
919 031043 200 07 0 00 037704 MOVE AC,RAN ;MOVE RAN INTO AC.
920 031044 312 07 0 00 037704 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
921 031045 004 07 0 00 037704 ERROR AC,RAN ;IF NOT MOVE FAILED
922 031046 312 07 0 00 037704 CAME AC,RAN# ;IF AC=RAN CAME FAILED
923 031047 004 07 0 00 037704 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
924 000010 AC=<AC+1>&17 ;AC ON CAME FAILED
925
926 031050 200 10 0 00 037704 MOVE AC,RAN ;MOVE RAN INTO AC.
927 031051 312 10 0 00 037704 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
928 031052 004 10 0 00 037704 ERROR AC,RAN ;IF NOT MOVE FAILED
929 031053 312 10 0 00 037704 CAME AC,RAN# ;IF AC=RAN CAME FAILED
930 031054 004 10 0 00 037704 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
931 000011 AC=<AC+1>&17 ;AC ON CAME FAILED
932
933 031055 200 11 0 00 037704 MOVE AC,RAN ;MOVE RAN INTO AC.
934 031056 312 11 0 00 037704 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
935 031057 004 11 0 00 037704 ERROR AC,RAN ;IF NOT MOVE FAILED
936 031060 312 11 0 00 037704 CAME AC,RAN# ;IF AC=RAN CAME FAILED
937 031061 004 11 0 00 037704 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
938 000012 AC=<AC+1>&17 ;AC ON CAME FAILED
939
940 031062 200 12 0 00 037704 MOVE AC,RAN ;MOVE RAN INTO AC.
941 031063 312 12 0 00 037704 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
942 031064 004 12 0 00 037704 ERROR AC,RAN ;IF NOT MOVE FAILED
943 031065 312 12 0 00 037704 CAME AC,RAN# ;IF AC=RAN CAME FAILED
944 031066 004 12 0 00 037704 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
945 000013 AC=<AC+1>&17 ;AC ON CAME FAILED
946
947 031067 200 13 0 00 037704 MOVE AC,RAN ;MOVE RAN INTO AC.
948 031070 312 13 0 00 037704 CAME AC,RAN ;RANDOM SHOULD EQUAL AC
949 031071 004 13 0 00 037704 ERROR AC,RAN ;IF NOT MOVE FAILED
950 031072 312 13 0 00 037704 CAME AC,RAN# ;IF AC=RAN CAME FAILED
951 031073 004 13 0 00 037704 ERROR AC,RAN# ;IF PREVIOUS WORKED,INHIBIT STORE
952 000014 AC=<AC+1>&17 ;AC ON CAME FAILED
953
954 000002 AC=2
955 LOOP MOVAC1-3,MOVAC1^
956 031074 367 01 0 00 031007 SOJG AC-1,MOVAC1-3 ;ITERATION COUNTER
957 031075 200 02 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
958 031076 321 01 0 00 031012 JUMPL AC-1,MOVAC1 ;LOOP ON ERROR SWITCH ^
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 5
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0037
959
960 ;TEST THE SKIP INST FOR NO SKIP,ABILITY TO LOAD
961 ;AN AC,AC SELECTION,AND AC0 LOGIC(NOT LOADING 0)
962 ;ERRORS ARE PRESENTED IN THE FORM(PC,AC,C(AC),CORRECT)
963
964 000005 AC=5
965 031077 SKP: SETUP 30,0^
966 000006 AC1=<AC+1>&17
967 000007 AC2=<AC+2>&17
968 000010 AC3=<AC+3>&17
969 000011 AC4=<AC+4>&17
970 000012 AC5=<AC+5>&17
971 000003 RAN1=<AC-2>&17
972 031077 201 04 0 00 031077 MOVEI AC-1,.
973 031100 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
974 031101 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
975 031102 202 04 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
976 031103 201 04 0 00 000030 MOVEI AC-1,30 ;ROUTINE WEIGHTING
977 031104 240 04 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
978 031105 240 04 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
979 RANDOM^
980 031106 200 05 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
981 031107 270 05 0 00 037576 ADD AC,[142536475076]
982 031110 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
983 031111 447 05 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
984 031112 200 00 0 00 037577 SKP1: MOVE [0] ;DO NOT USE AC0 FOR SKIP
985 REPEAT ^D8,
986 < SKIP AC1,RAN# ;STORE IN AC,DO NOT SKIP,CHECK
987 CAME AC1,AC ;NEW AC AGAINST PREVIOUSLY
988 ERROR AC1,AC ;STORED AC. IF AC=AC+1(SKIP LOGIC)
989 CAME [0] ;IF NOT= STORE CYCLE
990 ERROR [0] ;IF 0 NONE ZERO ADDR/STORE
991 AC=<AC+1>&17
992 AC1=<AC+1>&17
993 >
994 031113 330 06 0 00 037704 SKIP AC1,RAN# ;STORE IN AC,DO NOT SKIP,CHECK
995 031114 312 06 0 00 000005 CAME AC1,AC ;NEW AC AGAINST PREVIOUSLY
996 031115 004 06 0 00 000005 ERROR AC1,AC ;STORED AC. IF AC=AC+1(SKIP LOGIC)
997 031116 312 00 0 00 037577 CAME [0] ;IF NOT= STORE CYCLE
998 031117 004 00 0 00 037577 ERROR [0] ;IF 0 NONE ZERO ADDR/STORE
999 000006 AC=<AC+1>&17
1000 000007 AC1=<AC+1>&17
1001
1002 031120 330 07 0 00 037704 SKIP AC1,RAN# ;STORE IN AC,DO NOT SKIP,CHECK
1003 031121 312 07 0 00 000006 CAME AC1,AC ;NEW AC AGAINST PREVIOUSLY
1004 031122 004 07 0 00 000006 ERROR AC1,AC ;STORED AC. IF AC=AC+1(SKIP LOGIC)
1005 031123 312 00 0 00 037577 CAME [0] ;IF NOT= STORE CYCLE
1006 031124 004 00 0 00 037577 ERROR [0] ;IF 0 NONE ZERO ADDR/STORE
1007 000007 AC=<AC+1>&17
1008 000010 AC1=<AC+1>&17
1009
1010 031125 330 10 0 00 037704 SKIP AC1,RAN# ;STORE IN AC,DO NOT SKIP,CHECK
1011 031126 312 10 0 00 000007 CAME AC1,AC ;NEW AC AGAINST PREVIOUSLY
1012 031127 004 10 0 00 000007 ERROR AC1,AC ;STORED AC. IF AC=AC+1(SKIP LOGIC)
1013 031130 312 00 0 00 037577 CAME [0] ;IF NOT= STORE CYCLE
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 5-1
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0038
1014 031131 004 00 0 00 037577 ERROR [0] ;IF 0 NONE ZERO ADDR/STORE
1015 000010 AC=<AC+1>&17
1016 000011 AC1=<AC+1>&17
1017
1018 031132 330 11 0 00 037704 SKIP AC1,RAN# ;STORE IN AC,DO NOT SKIP,CHECK
1019 031133 312 11 0 00 000010 CAME AC1,AC ;NEW AC AGAINST PREVIOUSLY
1020 031134 004 11 0 00 000010 ERROR AC1,AC ;STORED AC. IF AC=AC+1(SKIP LOGIC)
1021 031135 312 00 0 00 037577 CAME [0] ;IF NOT= STORE CYCLE
1022 031136 004 00 0 00 037577 ERROR [0] ;IF 0 NONE ZERO ADDR/STORE
1023 000011 AC=<AC+1>&17
1024 000012 AC1=<AC+1>&17
1025
1026 031137 330 12 0 00 037704 SKIP AC1,RAN# ;STORE IN AC,DO NOT SKIP,CHECK
1027 031140 312 12 0 00 000011 CAME AC1,AC ;NEW AC AGAINST PREVIOUSLY
1028 031141 004 12 0 00 000011 ERROR AC1,AC ;STORED AC. IF AC=AC+1(SKIP LOGIC)
1029 031142 312 00 0 00 037577 CAME [0] ;IF NOT= STORE CYCLE
1030 031143 004 00 0 00 037577 ERROR [0] ;IF 0 NONE ZERO ADDR/STORE
1031 000012 AC=<AC+1>&17
1032 000013 AC1=<AC+1>&17
1033
1034 031144 330 13 0 00 037704 SKIP AC1,RAN# ;STORE IN AC,DO NOT SKIP,CHECK
1035 031145 312 13 0 00 000012 CAME AC1,AC ;NEW AC AGAINST PREVIOUSLY
1036 031146 004 13 0 00 000012 ERROR AC1,AC ;STORED AC. IF AC=AC+1(SKIP LOGIC)
1037 031147 312 00 0 00 037577 CAME [0] ;IF NOT= STORE CYCLE
1038 031150 004 00 0 00 037577 ERROR [0] ;IF 0 NONE ZERO ADDR/STORE
1039 000013 AC=<AC+1>&17
1040 000014 AC1=<AC+1>&17
1041
1042 031151 330 14 0 00 037704 SKIP AC1,RAN# ;STORE IN AC,DO NOT SKIP,CHECK
1043 031152 312 14 0 00 000013 CAME AC1,AC ;NEW AC AGAINST PREVIOUSLY
1044 031153 004 14 0 00 000013 ERROR AC1,AC ;STORED AC. IF AC=AC+1(SKIP LOGIC)
1045 031154 312 00 0 00 037577 CAME [0] ;IF NOT= STORE CYCLE
1046 031155 004 00 0 00 037577 ERROR [0] ;IF 0 NONE ZERO ADDR/STORE
1047 000014 AC=<AC+1>&17
1048 000015 AC1=<AC+1>&17
1049
1050 031156 330 15 0 00 037704 SKIP AC1,RAN# ;STORE IN AC,DO NOT SKIP,CHECK
1051 031157 312 15 0 00 000014 CAME AC1,AC ;NEW AC AGAINST PREVIOUSLY
1052 031160 004 15 0 00 000014 ERROR AC1,AC ;STORED AC. IF AC=AC+1(SKIP LOGIC)
1053 031161 312 00 0 00 037577 CAME [0] ;IF NOT= STORE CYCLE
1054 031162 004 00 0 00 037577 ERROR [0] ;IF 0 NONE ZERO ADDR/STORE
1055 000015 AC=<AC+1>&17
1056 000016 AC1=<AC+1>&17
1057
1058 000005 AC=5
1059 LOOP SKP1-4,SKP1^
1060 031163 367 04 0 00 031106 SOJG AC-1,SKP1-4 ;ITERATION COUNTER
1061 031164 200 05 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1062 031165 321 04 0 00 031112 JUMPL AC-1,SKP1 ;LOOP ON ERROR SWITCH ^
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 6
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0039
1063
1064 ;TEST SKIPA INST FOR PC INCREMENT,ABILITY TO LOAD AN AC,
1065 ;AC SELECTION AND AC0 LOGIC(NOT LOADING 0).ERRORS ARE
1066 ;PRESENTED IN THE FORM (PC,AC,C(AC),CORRECT)
1067
1068 000005 AC=5
1069 031166 SKPA: SETUP 30,0^
1070 000006 AC1=<AC+1>&17
1071 000007 AC2=<AC+2>&17
1072 000010 AC3=<AC+3>&17
1073 000011 AC4=<AC+4>&17
1074 000012 AC5=<AC+5>&17
1075 000003 RAN1=<AC-2>&17
1076 031166 201 04 0 00 031166 MOVEI AC-1,.
1077 031167 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1078 031170 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1079 031171 202 04 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1080 031172 201 04 0 00 000030 MOVEI AC-1,30 ;ROUTINE WEIGHTING
1081 031173 240 04 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1082 031174 240 04 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1083 RANDOM^
1084 031175 200 05 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1085 031176 270 05 0 00 037576 ADD AC,[142536475076]
1086 031177 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1087 031200 447 05 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
1088 031201 200 00 0 00 037577 SKPA1: MOVE [0] ;DO NOT USE AC0 FOR SKIPA
1089 REPEAT ^D8,
1090 < SKIPA AC1,AC ;LOAD AC1 AND SKIP
1091 ER AC,[ASCII /SKP/] ;FAILED TO SKIP.
1092 CAME AC,RAN ;C(E) GET CHANGED?
1093 ERROR AC,RAN ;YES.
1094 CAME AC1,RAN ;AC GET LOADED WITH RAN?
1095 ERROR AC1,RAN ;NO.
1096 CAME 0,[0] ;C(AC0) STILL = 0?
1097 ERROR [0] ;CHECK STORE CYCLE,AC ADDRESS
1098 AC=<AC+1>&17
1099 AC1=<AC+1>&17
1100 >
1101 031202 334 06 0 00 000005 SKIPA AC1,AC ;LOAD AC1 AND SKIP
1102 031203 005 05 0 00 037600 ER AC,[ASCII /SKP/] ;FAILED TO SKIP.
1103 031204 312 05 0 00 037704 CAME AC,RAN ;C(E) GET CHANGED?
1104 031205 004 05 0 00 037704 ERROR AC,RAN ;YES.
1105 031206 312 06 0 00 037704 CAME AC1,RAN ;AC GET LOADED WITH RAN?
1106 031207 004 06 0 00 037704 ERROR AC1,RAN ;NO.
1107 031210 312 00 0 00 037577 CAME 0,[0] ;C(AC0) STILL = 0?
1108 031211 004 00 0 00 037577 ERROR [0] ;CHECK STORE CYCLE,AC ADDRESS
1109 000006 AC=<AC+1>&17
1110 000007 AC1=<AC+1>&17
1111
1112 031212 334 07 0 00 000006 SKIPA AC1,AC ;LOAD AC1 AND SKIP
1113 031213 005 06 0 00 037600 ER AC,[ASCII /SKP/] ;FAILED TO SKIP.
1114 031214 312 06 0 00 037704 CAME AC,RAN ;C(E) GET CHANGED?
1115 031215 004 06 0 00 037704 ERROR AC,RAN ;YES.
1116 031216 312 07 0 00 037704 CAME AC1,RAN ;AC GET LOADED WITH RAN?
1117 031217 004 07 0 00 037704 ERROR AC1,RAN ;NO.
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 6-1
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0040
1118 031220 312 00 0 00 037577 CAME 0,[0] ;C(AC0) STILL = 0?
1119 031221 004 00 0 00 037577 ERROR [0] ;CHECK STORE CYCLE,AC ADDRESS
1120 000007 AC=<AC+1>&17
1121 000010 AC1=<AC+1>&17
1122
1123 031222 334 10 0 00 000007 SKIPA AC1,AC ;LOAD AC1 AND SKIP
1124 031223 005 07 0 00 037600 ER AC,[ASCII /SKP/] ;FAILED TO SKIP.
1125 031224 312 07 0 00 037704 CAME AC,RAN ;C(E) GET CHANGED?
1126 031225 004 07 0 00 037704 ERROR AC,RAN ;YES.
1127 031226 312 10 0 00 037704 CAME AC1,RAN ;AC GET LOADED WITH RAN?
1128 031227 004 10 0 00 037704 ERROR AC1,RAN ;NO.
1129 031230 312 00 0 00 037577 CAME 0,[0] ;C(AC0) STILL = 0?
1130 031231 004 00 0 00 037577 ERROR [0] ;CHECK STORE CYCLE,AC ADDRESS
1131 000010 AC=<AC+1>&17
1132 000011 AC1=<AC+1>&17
1133
1134 031232 334 11 0 00 000010 SKIPA AC1,AC ;LOAD AC1 AND SKIP
1135 031233 005 10 0 00 037600 ER AC,[ASCII /SKP/] ;FAILED TO SKIP.
1136 031234 312 10 0 00 037704 CAME AC,RAN ;C(E) GET CHANGED?
1137 031235 004 10 0 00 037704 ERROR AC,RAN ;YES.
1138 031236 312 11 0 00 037704 CAME AC1,RAN ;AC GET LOADED WITH RAN?
1139 031237 004 11 0 00 037704 ERROR AC1,RAN ;NO.
1140 031240 312 00 0 00 037577 CAME 0,[0] ;C(AC0) STILL = 0?
1141 031241 004 00 0 00 037577 ERROR [0] ;CHECK STORE CYCLE,AC ADDRESS
1142 000011 AC=<AC+1>&17
1143 000012 AC1=<AC+1>&17
1144
1145 031242 334 12 0 00 000011 SKIPA AC1,AC ;LOAD AC1 AND SKIP
1146 031243 005 11 0 00 037600 ER AC,[ASCII /SKP/] ;FAILED TO SKIP.
1147 031244 312 11 0 00 037704 CAME AC,RAN ;C(E) GET CHANGED?
1148 031245 004 11 0 00 037704 ERROR AC,RAN ;YES.
1149 031246 312 12 0 00 037704 CAME AC1,RAN ;AC GET LOADED WITH RAN?
1150 031247 004 12 0 00 037704 ERROR AC1,RAN ;NO.
1151 031250 312 00 0 00 037577 CAME 0,[0] ;C(AC0) STILL = 0?
1152 031251 004 00 0 00 037577 ERROR [0] ;CHECK STORE CYCLE,AC ADDRESS
1153 000012 AC=<AC+1>&17
1154 000013 AC1=<AC+1>&17
1155
1156 031252 334 13 0 00 000012 SKIPA AC1,AC ;LOAD AC1 AND SKIP
1157 031253 005 12 0 00 037600 ER AC,[ASCII /SKP/] ;FAILED TO SKIP.
1158 031254 312 12 0 00 037704 CAME AC,RAN ;C(E) GET CHANGED?
1159 031255 004 12 0 00 037704 ERROR AC,RAN ;YES.
1160 031256 312 13 0 00 037704 CAME AC1,RAN ;AC GET LOADED WITH RAN?
1161 031257 004 13 0 00 037704 ERROR AC1,RAN ;NO.
1162 031260 312 00 0 00 037577 CAME 0,[0] ;C(AC0) STILL = 0?
1163 031261 004 00 0 00 037577 ERROR [0] ;CHECK STORE CYCLE,AC ADDRESS
1164 000013 AC=<AC+1>&17
1165 000014 AC1=<AC+1>&17
1166
1167 031262 334 14 0 00 000013 SKIPA AC1,AC ;LOAD AC1 AND SKIP
1168 031263 005 13 0 00 037600 ER AC,[ASCII /SKP/] ;FAILED TO SKIP.
1169 031264 312 13 0 00 037704 CAME AC,RAN ;C(E) GET CHANGED?
1170 031265 004 13 0 00 037704 ERROR AC,RAN ;YES.
1171 031266 312 14 0 00 037704 CAME AC1,RAN ;AC GET LOADED WITH RAN?
1172 031267 004 14 0 00 037704 ERROR AC1,RAN ;NO.
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 6-2
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0041
1173 031270 312 00 0 00 037577 CAME 0,[0] ;C(AC0) STILL = 0?
1174 031271 004 00 0 00 037577 ERROR [0] ;CHECK STORE CYCLE,AC ADDRESS
1175 000014 AC=<AC+1>&17
1176 000015 AC1=<AC+1>&17
1177
1178 031272 334 15 0 00 000014 SKIPA AC1,AC ;LOAD AC1 AND SKIP
1179 031273 005 14 0 00 037600 ER AC,[ASCII /SKP/] ;FAILED TO SKIP.
1180 031274 312 14 0 00 037704 CAME AC,RAN ;C(E) GET CHANGED?
1181 031275 004 14 0 00 037704 ERROR AC,RAN ;YES.
1182 031276 312 15 0 00 037704 CAME AC1,RAN ;AC GET LOADED WITH RAN?
1183 031277 004 15 0 00 037704 ERROR AC1,RAN ;NO.
1184 031300 312 00 0 00 037577 CAME 0,[0] ;C(AC0) STILL = 0?
1185 031301 004 00 0 00 037577 ERROR [0] ;CHECK STORE CYCLE,AC ADDRESS
1186 000015 AC=<AC+1>&17
1187 000016 AC1=<AC+1>&17
1188
1189 000005 AC=5
1190 LOOP SKPA1-4,SKPA1^
1191 031302 367 04 0 00 031175 SOJG AC-1,SKPA1-4 ;ITERATION COUNTER
1192 031303 200 05 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1193 031304 321 04 0 00 031201 JUMPL AC-1,SKPA1 ;LOOP ON ERROR SWITCH ^
1194
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 7
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0042
1195
1196 ;TEST EXCH. BOTH AC AND E ARE AC'S. CHECK FOR
1197 ;CORRECT DATA IN AC AND C(E).
1198 ;C(E) = -1, C(AC) = RAN NUM.
1199
1200 000005 AC=5
1201 031305 EXCH1: SETUP 200,0^
1202 000006 AC1=<AC+1>&17
1203 000007 AC2=<AC+2>&17
1204 000010 AC3=<AC+3>&17
1205 000011 AC4=<AC+4>&17
1206 000012 AC5=<AC+5>&17
1207 000003 RAN1=<AC-2>&17
1208 031305 201 04 0 00 031305 MOVEI AC-1,.
1209 031306 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1210 031307 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1211 031310 202 04 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1212 031311 201 04 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
1213 031312 240 04 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1214 031313 240 04 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1215 031314 EXCH2: RANDOM^
1216 031314 200 05 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1217 031315 270 05 0 00 037576 ADD AC,[142536475076]
1218 031316 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1219 031317 447 05 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
1220 031320 477 06 0 00 000003 EXCH3: SETOB AC1,RAN1 ;MAKE C(E) = -1.
1221 031321 250 05 0 00 000006 EXCH AC,AC1 ;DO THE EXCH.
1222 031322 312 05 0 00 000003 CAME AC,RAN1 ;THE C(AC) SHOULD = ORIG C(E).
1223 031323 001 03 0 00 037704 ERR RAN1,RAN
1224 031324 312 06 0 00 037704 CAME AC1,RAN ;THE C(E) SHOULD = ORIG C(AC).
1225 031325 001 03 0 00 037704 ERR RAN1,RAN
1226 LOOP EXCH2,EXCH3^
1227 031326 367 04 0 00 031314 SOJG AC-1,EXCH2 ;ITERATION COUNTER
1228 031327 200 05 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1229 031330 321 04 0 00 031320 JUMPL AC-1,EXCH3 ;LOOP ON ERROR SWITCH ^
1230
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 8
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0043
1231
1232 ;TEST SETCA FOR COMPLEMENT AC AND NOT STORING IN C(E)
1233 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
1234 ;SETCA DOES NOT NORMALLY CHANGE THE CONTENTS OF "E"
1235
1236 000010 AC=10
1237 BOLCA: REPEAT 2,
1238 < SETUP 100,2
1239 RANDOM
1240 MOVE AC2,[0] ;CLEAR AC2, USED TO INSURE
1241 SETCA AC,AC2 ;SETCA DOES NOT STORE IN C(E)
1242 CAMN AC,RAN# ;IF AC UNCHANGED CNTL PULSES
1243 ERROR AC,RAN ;FOR INST SETCA FAILED
1244 REPEAT 3,
1245 < SETCA AC,AC2>
1246 CAME AC,RAN# ;A TOTAL OF 4 COMPLEMENTS
1247 ERROR AC,RAN ;SHOULD PRODUCE ORIGINAL NUM
1248 CAME AC2,[0] ;IF SETCA STORED C(E)
1249 ERROR AC2,[0] ;C(AC2) WILL NO LONGER BE 0.
1250 LOOP .-16,.-15
1251 AC=AC+17
1252 >
1253 SETUP 100,2^
1254 000011 AC1=<AC+1>&17
1255 000012 AC2=<AC+2>&17
1256 000013 AC3=<AC+3>&17
1257 000014 AC4=<AC+4>&17
1258 000015 AC5=<AC+5>&17
1259 000006 RAN1=<AC-2>&17
1260 031331 201 07 0 00 031331 MOVEI AC-1,.
1261 031332 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1262 031333 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1263 031334 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1264 031335 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1265 031336 240 07 1 00 030673 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
1266 031337 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1267 RANDOM^
1268 031340 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1269 031341 270 10 0 00 037576 ADD AC,[142536475076]
1270 031342 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1271 031343 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
1272 031344 200 12 0 00 037577 MOVE AC2,[0] ;CLEAR AC2, USED TO INSURE
1273 031345 450 10 0 00 000012 SETCA AC,AC2 ;SETCA DOES NOT STORE IN C(E)
1274 031346 316 10 0 00 037704 CAMN AC,RAN# ;IF AC UNCHANGED CNTL PULSES
1275 031347 004 10 0 00 037704 ERROR AC,RAN ;FOR INST SETCA FAILED
1276 REPEAT 3,
1277 031350 450 10 0 00 000012 SETCA AC,AC2
1278 031351 450 10 0 00 000012 SETCA AC,AC2
1279 031352 450 10 0 00 000012 SETCA AC,AC2
1280 031353 312 10 0 00 037704 CAME AC,RAN# ;A TOTAL OF 4 COMPLEMENTS
1281 031354 004 10 0 00 037704 ERROR AC,RAN ;SHOULD PRODUCE ORIGINAL NUM
1282 031355 312 12 0 00 037577 CAME AC2,[0] ;IF SETCA STORED C(E)
1283 031356 004 12 0 00 037577 ERROR AC2,[0] ;C(AC2) WILL NO LONGER BE 0.
1284 LOOP .-16,.-15^
1285 031357 367 07 0 00 031341 SOJG AC-1,.-16 ;ITERATION COUNTER
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 8-1
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0044
1286 031360 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1287 031361 321 07 0 00 031344 JUMPL AC-1,.-15 ;LOOP ON ERROR SWITCH ^
1288 000027 AC=AC+17
1289
1290 SETUP 100,2^
1291 000010 AC1=<AC+1>&17
1292 000011 AC2=<AC+2>&17
1293 000012 AC3=<AC+3>&17
1294 000013 AC4=<AC+4>&17
1295 000014 AC5=<AC+5>&17
1296 000005 RAN1=<AC-2>&17
1297 031362 201 06 0 00 031362 MOVEI AC-1,.
1298 031363 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1299 031364 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1300 031365 202 06 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1301 031366 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1302 031367 240 06 1 00 030673 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
1303 031370 240 06 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1304 RANDOM^
1305 031371 200 07 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1306 031372 270 07 0 00 037576 ADD AC,[142536475076]
1307 031373 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1308 031374 447 07 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
1309 031375 200 11 0 00 037577 MOVE AC2,[0] ;CLEAR AC2, USED TO INSURE
1310 031376 450 07 0 00 000011 SETCA AC,AC2 ;SETCA DOES NOT STORE IN C(E)
1311 031377 316 07 0 00 037704 CAMN AC,RAN# ;IF AC UNCHANGED CNTL PULSES
1312 031400 004 07 0 00 037704 ERROR AC,RAN ;FOR INST SETCA FAILED
1313 REPEAT 3,
1314 031401 450 07 0 00 000011 SETCA AC,AC2
1315 031402 450 07 0 00 000011 SETCA AC,AC2
1316 031403 450 07 0 00 000011 SETCA AC,AC2
1317 031404 312 07 0 00 037704 CAME AC,RAN# ;A TOTAL OF 4 COMPLEMENTS
1318 031405 004 07 0 00 037704 ERROR AC,RAN ;SHOULD PRODUCE ORIGINAL NUM
1319 031406 312 11 0 00 037577 CAME AC2,[0] ;IF SETCA STORED C(E)
1320 031407 004 11 0 00 037577 ERROR AC2,[0] ;C(AC2) WILL NO LONGER BE 0.
1321 LOOP .-16,.-15^
1322 031410 367 06 0 00 031372 SOJG AC-1,.-16 ;ITERATION COUNTER
1323 031411 200 07 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1324 031412 321 06 0 00 031375 JUMPL AC-1,.-15 ;LOOP ON ERROR SWITCH ^
1325 000046 AC=AC+17
1326
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 9
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0045
1327
1328 ;TEST SETCAI ABILITY TO COMPLEMENT AC AND FAILURE TO FETCH C(E)
1329 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT
1330 ;SETCA IS INDEXED FOR NOISE PURPOSES
1331
1332 000005 AC=5
1333 031413 BOLCAI: SETUP 40,0^
1334 000006 AC1=<AC+1>&17
1335 000007 AC2=<AC+2>&17
1336 000010 AC3=<AC+3>&17
1337 000011 AC4=<AC+4>&17
1338 000012 AC5=<AC+5>&17
1339 000003 RAN1=<AC-2>&17
1340 031413 201 04 0 00 031413 MOVEI AC-1,.
1341 031414 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1342 031415 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1343 031416 202 04 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1344 031417 201 04 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
1345 031420 240 04 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1346 031421 240 04 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1347 031422 BOLCA1: RANDOM^
1348 031422 200 05 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1349 031423 270 05 0 00 037576 ADD AC,[142536475076]
1350 031424 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1351 031425 447 05 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
1352 BOLCA2: REPEAT 4,
1353 < MOVE AC1,AC ;MOVE RANDOM TO AN AC
1354 SETCAI AC1,-1(AC) ;TWO COMP SHOULD PRODUCE
1355 SETCAI AC1,777000(AC) ;ORIGINAL NUMBER
1356 CAME AC1,AC ;SETCAI FAILED
1357 ERROR AC1,AC
1358 AC=<AC+1>&17
1359 AC1=<AC+1>&17
1360 >
1361 031426 200 06 0 00 000005 MOVE AC1,AC ;MOVE RANDOM TO AN AC
1362 031427 451 06 0 05 777777 SETCAI AC1,-1(AC) ;TWO COMP SHOULD PRODUCE
1363 031430 451 06 0 05 777000 SETCAI AC1,777000(AC) ;ORIGINAL NUMBER
1364 031431 312 06 0 00 000005 CAME AC1,AC ;SETCAI FAILED
1365 031432 004 06 0 00 000005 ERROR AC1,AC
1366 000006 AC=<AC+1>&17
1367 000007 AC1=<AC+1>&17
1368
1369 031433 200 07 0 00 000006 MOVE AC1,AC ;MOVE RANDOM TO AN AC
1370 031434 451 07 0 06 777777 SETCAI AC1,-1(AC) ;TWO COMP SHOULD PRODUCE
1371 031435 451 07 0 06 777000 SETCAI AC1,777000(AC) ;ORIGINAL NUMBER
1372 031436 312 07 0 00 000006 CAME AC1,AC ;SETCAI FAILED
1373 031437 004 07 0 00 000006 ERROR AC1,AC
1374 000007 AC=<AC+1>&17
1375 000010 AC1=<AC+1>&17
1376
1377 031440 200 10 0 00 000007 MOVE AC1,AC ;MOVE RANDOM TO AN AC
1378 031441 451 10 0 07 777777 SETCAI AC1,-1(AC) ;TWO COMP SHOULD PRODUCE
1379 031442 451 10 0 07 777000 SETCAI AC1,777000(AC) ;ORIGINAL NUMBER
1380 031443 312 10 0 00 000007 CAME AC1,AC ;SETCAI FAILED
1381 031444 004 10 0 00 000007 ERROR AC1,AC
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 9-1
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0046
1382 000010 AC=<AC+1>&17
1383 000011 AC1=<AC+1>&17
1384
1385 031445 200 11 0 00 000010 MOVE AC1,AC ;MOVE RANDOM TO AN AC
1386 031446 451 11 0 10 777777 SETCAI AC1,-1(AC) ;TWO COMP SHOULD PRODUCE
1387 031447 451 11 0 10 777000 SETCAI AC1,777000(AC) ;ORIGINAL NUMBER
1388 031450 312 11 0 00 000010 CAME AC1,AC ;SETCAI FAILED
1389 031451 004 11 0 00 000010 ERROR AC1,AC
1390 000011 AC=<AC+1>&17
1391 000012 AC1=<AC+1>&17
1392
1393 000005 AC=5
1394 LOOP BOLCA1,BOLCA2^
1395 031452 367 04 0 00 031422 SOJG AC-1,BOLCA1 ;ITERATION COUNTER
1396 031453 200 05 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1397 031454 321 04 0 00 031426 JUMPL AC-1,BOLCA2 ;LOOP ON ERROR SWITCH ^
1398
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 10
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0047
1399
1400 ;TEST XOR TO ZERO,XOR 0 TO N,N TO N,-1 TO N
1401 ;THREE ACS ARE USED IN THE TEST
1402 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT
1403
1404 000001 AC=1
1405 BOLX: REPEAT 3,
1406 < SETUP 200,0
1407 RANDOM
1408 MOVE AC,[0] ;CLEAR THE AC
1409 XOR AC,RAN ;0 EXCLUSIVE ORED WITH
1410 CAME AC,RAN ;RANDOM SHOULD = RANDOM
1411 ERROR AC,RAN ;XOR FAILED
1412 XOR AC,[0] ;ANY NUMBER XORED
1413 CAME AC,RAN ;WITH THE NUMBER 0
1414 ERROR AC,RAN ;SHOULD REMAIN UNCHANGED
1415 XOR AC,RAN ;ANY NUMBER XORED
1416 CAME AC,[0] ;WITH ITSELF SHOULD
1417 ERROR AC,[0] ;EQUAL 0
1418 XOR AC,[-1] ;SET AC TO ALL ONES
1419 XOR AC,RAN ;AC SHOULD CONTAIN COMP OF RAN
1420 XOR AC,[-1] ;RECOMPLEMENT AC TO ORIG
1421 CAME AC,RAN ;CHECK FOR RANDOM
1422 ERROR AC,RAN ;XOR FAILED
1423 LOOP .-22,.-21
1424 AC=AC+1
1425 >
1426 SETUP 200,0^
1427 000002 AC1=<AC+1>&17
1428 000003 AC2=<AC+2>&17
1429 000004 AC3=<AC+3>&17
1430 000005 AC4=<AC+4>&17
1431 000006 AC5=<AC+5>&17
1432 000017 RAN1=<AC-2>&17
1433 031455 201 00 0 00 031455 MOVEI AC-1,.
1434 031456 202 00 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1435 031457 201 00 0 00 000000 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1436 031460 202 00 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1437 031461 201 00 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
1438 031462 240 00 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1439 031463 240 00 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1440 RANDOM^
1441 031464 200 01 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1442 031465 270 01 0 00 037576 ADD AC,[142536475076]
1443 031466 241 01 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1444 031467 447 01 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
1445 031470 200 01 0 00 037577 MOVE AC,[0] ;CLEAR THE AC
1446 031471 430 01 0 00 037704 XOR AC,RAN ;0 EXCLUSIVE ORED WITH
1447 031472 312 01 0 00 037704 CAME AC,RAN ;RANDOM SHOULD = RANDOM
1448 031473 004 01 0 00 037704 ERROR AC,RAN ;XOR FAILED
1449 031474 430 01 0 00 037577 XOR AC,[0] ;ANY NUMBER XORED
1450 031475 312 01 0 00 037704 CAME AC,RAN ;WITH THE NUMBER 0
1451 031476 004 01 0 00 037704 ERROR AC,RAN ;SHOULD REMAIN UNCHANGED
1452 031477 430 01 0 00 037704 XOR AC,RAN ;ANY NUMBER XORED
1453 031500 312 01 0 00 037577 CAME AC,[0] ;WITH ITSELF SHOULD
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 10-1
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0048
1454 031501 004 01 0 00 037577 ERROR AC,[0] ;EQUAL 0
1455 031502 430 01 0 00 037601 XOR AC,[-1] ;SET AC TO ALL ONES
1456 031503 430 01 0 00 037704 XOR AC,RAN ;AC SHOULD CONTAIN COMP OF RAN
1457 031504 430 01 0 00 037601 XOR AC,[-1] ;RECOMPLEMENT AC TO ORIG
1458 031505 312 01 0 00 037704 CAME AC,RAN ;CHECK FOR RANDOM
1459 031506 004 01 0 00 037704 ERROR AC,RAN ;XOR FAILED
1460 LOOP .-22,.-21^
1461 031507 367 00 0 00 031465 SOJG AC-1,.-22 ;ITERATION COUNTER
1462 031510 200 01 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1463 031511 321 00 0 00 031470 JUMPL AC-1,.-21 ;LOOP ON ERROR SWITCH ^
1464 000002 AC=AC+1
1465
1466 SETUP 200,0^
1467 000003 AC1=<AC+1>&17
1468 000004 AC2=<AC+2>&17
1469 000005 AC3=<AC+3>&17
1470 000006 AC4=<AC+4>&17
1471 000007 AC5=<AC+5>&17
1472 000000 RAN1=<AC-2>&17
1473 031512 201 01 0 00 031512 MOVEI AC-1,.
1474 031513 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1475 031514 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1476 031515 202 01 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1477 031516 201 01 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
1478 031517 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1479 031520 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1480 RANDOM^
1481 031521 200 02 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1482 031522 270 02 0 00 037576 ADD AC,[142536475076]
1483 031523 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1484 031524 447 02 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
1485 031525 200 02 0 00 037577 MOVE AC,[0] ;CLEAR THE AC
1486 031526 430 02 0 00 037704 XOR AC,RAN ;0 EXCLUSIVE ORED WITH
1487 031527 312 02 0 00 037704 CAME AC,RAN ;RANDOM SHOULD = RANDOM
1488 031530 004 02 0 00 037704 ERROR AC,RAN ;XOR FAILED
1489 031531 430 02 0 00 037577 XOR AC,[0] ;ANY NUMBER XORED
1490 031532 312 02 0 00 037704 CAME AC,RAN ;WITH THE NUMBER 0
1491 031533 004 02 0 00 037704 ERROR AC,RAN ;SHOULD REMAIN UNCHANGED
1492 031534 430 02 0 00 037704 XOR AC,RAN ;ANY NUMBER XORED
1493 031535 312 02 0 00 037577 CAME AC,[0] ;WITH ITSELF SHOULD
1494 031536 004 02 0 00 037577 ERROR AC,[0] ;EQUAL 0
1495 031537 430 02 0 00 037601 XOR AC,[-1] ;SET AC TO ALL ONES
1496 031540 430 02 0 00 037704 XOR AC,RAN ;AC SHOULD CONTAIN COMP OF RAN
1497 031541 430 02 0 00 037601 XOR AC,[-1] ;RECOMPLEMENT AC TO ORIG
1498 031542 312 02 0 00 037704 CAME AC,RAN ;CHECK FOR RANDOM
1499 031543 004 02 0 00 037704 ERROR AC,RAN ;XOR FAILED
1500 LOOP .-22,.-21^
1501 031544 367 01 0 00 031522 SOJG AC-1,.-22 ;ITERATION COUNTER
1502 031545 200 02 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1503 031546 321 01 0 00 031525 JUMPL AC-1,.-21 ;LOOP ON ERROR SWITCH ^
1504 000003 AC=AC+1
1505
1506 SETUP 200,0^
1507 000004 AC1=<AC+1>&17
1508 000005 AC2=<AC+2>&17
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 10-2
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0049
1509 000006 AC3=<AC+3>&17
1510 000007 AC4=<AC+4>&17
1511 000010 AC5=<AC+5>&17
1512 000001 RAN1=<AC-2>&17
1513 031547 201 02 0 00 031547 MOVEI AC-1,.
1514 031550 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1515 031551 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1516 031552 202 02 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1517 031553 201 02 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
1518 031554 240 02 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1519 031555 240 02 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1520 RANDOM^
1521 031556 200 03 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1522 031557 270 03 0 00 037576 ADD AC,[142536475076]
1523 031560 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1524 031561 447 03 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
1525 031562 200 03 0 00 037577 MOVE AC,[0] ;CLEAR THE AC
1526 031563 430 03 0 00 037704 XOR AC,RAN ;0 EXCLUSIVE ORED WITH
1527 031564 312 03 0 00 037704 CAME AC,RAN ;RANDOM SHOULD = RANDOM
1528 031565 004 03 0 00 037704 ERROR AC,RAN ;XOR FAILED
1529 031566 430 03 0 00 037577 XOR AC,[0] ;ANY NUMBER XORED
1530 031567 312 03 0 00 037704 CAME AC,RAN ;WITH THE NUMBER 0
1531 031570 004 03 0 00 037704 ERROR AC,RAN ;SHOULD REMAIN UNCHANGED
1532 031571 430 03 0 00 037704 XOR AC,RAN ;ANY NUMBER XORED
1533 031572 312 03 0 00 037577 CAME AC,[0] ;WITH ITSELF SHOULD
1534 031573 004 03 0 00 037577 ERROR AC,[0] ;EQUAL 0
1535 031574 430 03 0 00 037601 XOR AC,[-1] ;SET AC TO ALL ONES
1536 031575 430 03 0 00 037704 XOR AC,RAN ;AC SHOULD CONTAIN COMP OF RAN
1537 031576 430 03 0 00 037601 XOR AC,[-1] ;RECOMPLEMENT AC TO ORIG
1538 031577 312 03 0 00 037704 CAME AC,RAN ;CHECK FOR RANDOM
1539 031600 004 03 0 00 037704 ERROR AC,RAN ;XOR FAILED
1540 LOOP .-22,.-21^
1541 031601 367 02 0 00 031557 SOJG AC-1,.-22 ;ITERATION COUNTER
1542 031602 200 03 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1543 031603 321 02 0 00 031562 JUMPL AC-1,.-21 ;LOOP ON ERROR SWITCH ^
1544 000004 AC=AC+1
1545
1546
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 11
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0050
1547
1548 ;TEST SETZI AND IOR. SETZI ABILITY TO CLEAR,IOR RAN TO 0,
1549 ;RANDOM TO RANDOM,RANDOM TO COMP RANDOM,0 TO RANDOM
1550 ;ERROR IN THE FORM (PC,AC,C(AC),CORRECT)
1551
1552 000005 AC=5
1553 031604 BOLZI: SETUP 100,0^
1554 000006 AC1=<AC+1>&17
1555 000007 AC2=<AC+2>&17
1556 000010 AC3=<AC+3>&17
1557 000011 AC4=<AC+4>&17
1558 000012 AC5=<AC+5>&17
1559 000003 RAN1=<AC-2>&17
1560 031604 201 04 0 00 031604 MOVEI AC-1,.
1561 031605 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1562 031606 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1563 031607 202 04 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1564 031610 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1565 031611 240 04 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1566 031612 240 04 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1567 RANDOM^
1568 031613 200 05 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1569 031614 270 05 0 00 037576 ADD AC,[142536475076]
1570 031615 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1571 031616 447 05 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
1572 BOLZI1: REPEAT 2,
1573 < MOVE AC,RAN# ;LOAD THE AC THEN
1574 SETZI AC,(AC) ;TRY TO CLEAR IT,INDEX REDUNDANT
1575 CAME AC,[0] ;IF NOT 0
1576 ERROR AC,[0] ;SETZI FAILED
1577 IOR AC,RAN ;INCLUSIVE OR OF A
1578 CAME AC,RAN ;NUMBER TO 0 SHOULD PRODUCE
1579 ERROR AC,RAN ;THE NUMBER
1580 IOR AC,RAN ;IOR SAME NUMBERS
1581 CAME AC,RAN ;SHOULD HAVE NO EFFECT
1582 ERROR AC,RAN ;ON AC.IOR FAILED
1583 IOR AC,[0] ;IOR OF NO BITS SHOULD DO NOTHING
1584 CAME AC,RAN
1585 ERROR AC,RAN ;IOR FAILED
1586 SETCA AC,0
1587 IOR AC,RAN ;INCLUSIVE OR OF COMP NUMBERS
1588 CAME AC,[-1] ;SHOULD SET ALL BITS
1589 ERROR AC,[-1] ;IOR FAILED
1590 IOR AC,[-1] ;ALL BITS TO ALL BITS
1591 CAME AC,[-1] ;PRODUCE ALL BITS
1592 ERROR AC,[-1]
1593 AC=<AC+1>&17
1594 >
1595 031617 200 05 0 00 037704 MOVE AC,RAN# ;LOAD THE AC THEN
1596 031620 401 05 0 05 000000 SETZI AC,(AC) ;TRY TO CLEAR IT,INDEX REDUNDANT
1597 031621 312 05 0 00 037577 CAME AC,[0] ;IF NOT 0
1598 031622 004 05 0 00 037577 ERROR AC,[0] ;SETZI FAILED
1599 031623 434 05 0 00 037704 IOR AC,RAN ;INCLUSIVE OR OF A
1600 031624 312 05 0 00 037704 CAME AC,RAN ;NUMBER TO 0 SHOULD PRODUCE
1601 031625 004 05 0 00 037704 ERROR AC,RAN ;THE NUMBER
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 11-1
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0051
1602 031626 434 05 0 00 037704 IOR AC,RAN ;IOR SAME NUMBERS
1603 031627 312 05 0 00 037704 CAME AC,RAN ;SHOULD HAVE NO EFFECT
1604 031630 004 05 0 00 037704 ERROR AC,RAN ;ON AC.IOR FAILED
1605 031631 434 05 0 00 037577 IOR AC,[0] ;IOR OF NO BITS SHOULD DO NOTHING
1606 031632 312 05 0 00 037704 CAME AC,RAN
1607 031633 004 05 0 00 037704 ERROR AC,RAN ;IOR FAILED
1608 031634 450 05 0 00 000000 SETCA AC,0
1609 031635 434 05 0 00 037704 IOR AC,RAN ;INCLUSIVE OR OF COMP NUMBERS
1610 031636 312 05 0 00 037601 CAME AC,[-1] ;SHOULD SET ALL BITS
1611 031637 004 05 0 00 037601 ERROR AC,[-1] ;IOR FAILED
1612 031640 434 05 0 00 037601 IOR AC,[-1] ;ALL BITS TO ALL BITS
1613 031641 312 05 0 00 037601 CAME AC,[-1] ;PRODUCE ALL BITS
1614 031642 004 05 0 00 037601 ERROR AC,[-1]
1615 000006 AC=<AC+1>&17
1616
1617 031643 200 06 0 00 037704 MOVE AC,RAN# ;LOAD THE AC THEN
1618 031644 401 06 0 06 000000 SETZI AC,(AC) ;TRY TO CLEAR IT,INDEX REDUNDANT
1619 031645 312 06 0 00 037577 CAME AC,[0] ;IF NOT 0
1620 031646 004 06 0 00 037577 ERROR AC,[0] ;SETZI FAILED
1621 031647 434 06 0 00 037704 IOR AC,RAN ;INCLUSIVE OR OF A
1622 031650 312 06 0 00 037704 CAME AC,RAN ;NUMBER TO 0 SHOULD PRODUCE
1623 031651 004 06 0 00 037704 ERROR AC,RAN ;THE NUMBER
1624 031652 434 06 0 00 037704 IOR AC,RAN ;IOR SAME NUMBERS
1625 031653 312 06 0 00 037704 CAME AC,RAN ;SHOULD HAVE NO EFFECT
1626 031654 004 06 0 00 037704 ERROR AC,RAN ;ON AC.IOR FAILED
1627 031655 434 06 0 00 037577 IOR AC,[0] ;IOR OF NO BITS SHOULD DO NOTHING
1628 031656 312 06 0 00 037704 CAME AC,RAN
1629 031657 004 06 0 00 037704 ERROR AC,RAN ;IOR FAILED
1630 031660 450 06 0 00 000000 SETCA AC,0
1631 031661 434 06 0 00 037704 IOR AC,RAN ;INCLUSIVE OR OF COMP NUMBERS
1632 031662 312 06 0 00 037601 CAME AC,[-1] ;SHOULD SET ALL BITS
1633 031663 004 06 0 00 037601 ERROR AC,[-1] ;IOR FAILED
1634 031664 434 06 0 00 037601 IOR AC,[-1] ;ALL BITS TO ALL BITS
1635 031665 312 06 0 00 037601 CAME AC,[-1] ;PRODUCE ALL BITS
1636 031666 004 06 0 00 037601 ERROR AC,[-1]
1637 000007 AC=<AC+1>&17
1638
1639 000005 AC=5
1640 LOOP BOLZI1-4,BOLZI1^
1641 031667 367 04 0 00 031613 SOJG AC-1,BOLZI1-4 ;ITERATION COUNTER
1642 031670 200 05 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1643 031671 321 04 0 00 031617 JUMPL AC-1,BOLZI1 ;LOOP ON ERROR SWITCH ^
1644
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 12
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0052
1645 ;TEST AND FOR 0 TO 0,1 TO 1,0 TO 1,1 TO 0
1646 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
1647
1648 000010 AC=10
1649 031672 BOLA: SETUP 400,0^
1650 000011 AC1=<AC+1>&17
1651 000012 AC2=<AC+2>&17
1652 000013 AC3=<AC+3>&17
1653 000014 AC4=<AC+4>&17
1654 000015 AC5=<AC+5>&17
1655 000006 RAN1=<AC-2>&17
1656 031672 201 07 0 00 031672 MOVEI AC-1,.
1657 031673 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1658 031674 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1659 031675 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1660 031676 201 07 0 00 000400 MOVEI AC-1,400 ;ROUTINE WEIGHTING
1661 031677 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1662 031700 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1663 RANDOM^
1664 031701 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1665 031702 270 10 0 00 037576 ADD AC,[142536475076]
1666 031703 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1667 031704 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
1668 031705 404 10 0 00 037704 BOLA1: AND AC,RAN ;NUMBER AND NUMBeR
1669 031706 312 10 0 00 037704 CAME AC,RAN ;SHOULD EQUAL NUMBER
1670 031707 004 10 0 00 037704 ERROR AC,RAN ;IF NOT, "AND" FAILED.
1671 031710 404 10 0 00 037601 AND AC,[-1] ;"AND" OF ALL BITS WITH
1672 031711 312 10 0 00 037704 CAME AC,RAN ;ANY NUMBER SHOULD
1673 031712 004 10 0 00 037704 ERROR AC,RAN ;LEAVE THE NUMBER UNCHANGED
1674 031713 450 10 0 00 000000 SETCA AC,
1675 031714 404 10 0 00 037704 AND AC,RAN ;"AND" OF A NUMBER WITH ITS
1676 031715 312 10 0 00 037577 CAME AC,[0] ;COMPLEMENT SHOULD
1677 031716 004 10 0 00 037577 ERROR AC,[0] ;PRODUCE 0
1678 LOOP BOLA1-4,BOLA1^
1679 031717 367 07 0 00 031701 SOJG AC-1,BOLA1-4 ;ITERATION COUNTER
1680 031720 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1681 031721 321 07 0 00 031705 JUMPL AC-1,BOLA1 ;LOOP ON ERROR SWITCH ^
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 13
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0053
1682
1683 ;TEST ORCA AND SETO. 1 TO 0,1 TO 1, 0 TO 0, 1 TO 0,0 TO 1
1684 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
1685 ;ONE AC IS USED FOR TESTING
1686
1687 000012 AC=12
1688 031722 BOLOS: SETUP 300,0^
1689 000013 AC1=<AC+1>&17
1690 000014 AC2=<AC+2>&17
1691 000015 AC3=<AC+3>&17
1692 000016 AC4=<AC+4>&17
1693 000017 AC5=<AC+5>&17
1694 000010 RAN1=<AC-2>&17
1695 031722 201 11 0 00 031722 MOVEI AC-1,.
1696 031723 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1697 031724 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1698 031725 202 11 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1699 031726 201 11 0 00 000300 MOVEI AC-1,300 ;ROUTINE WEIGHTING
1700 031727 240 11 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1701 031730 240 11 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1702 RANDOM^
1703 031731 200 12 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1704 031732 270 12 0 00 037576 ADD AC,[142536475076]
1705 031733 241 12 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1706 031734 447 12 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
1707 031735 474 12 0 00 031735 BOLOS1: SETO AC,. ;WILL CHANGE THIS INST IF FETCH/STORE C(E).
1708 031736 312 12 0 00 037601 CAME AC,[-1] ;CHECK FOR ALL BITS SET
1709 031737 004 12 0 00 037601 ERROR AC,[-1] ;SETO FAILED
1710 031740 454 12 0 00 037704 ORCA AC,RAN ;-1 ORED TO RANDOM
1711 031741 312 12 0 00 037704 CAME AC,RAN ;SHOULD PRODUCE RANDOM
1712 031742 004 12 0 00 037704 ERROR AC,RAN ;IF AC COMP PROBELY
1713 031743 454 12 0 00 037704 ORCA AC,RAN ;RANDOM TO RANDOM SHOULD
1714 031744 312 12 0 00 037601 CAME AC,[-1] ;PRODUCE -1
1715 031745 004 12 0 00 037601 ERROR AC,[-1] ;IF AC COMPLEMENTED PROPERLY
1716 031746 454 12 0 00 037577 ORCA AC,[0] ;WITH NO BITS EFFECT IC COMP AC
1717 031747 454 12 0 00 037704 ORCA AC,RAN
1718 031750 312 12 0 00 037601 CAME AC,[-1] ;NO BITS COMPLEMENTS TO PRODUCE
1719 031751 004 12 0 00 037601 ERROR AC,[-1] ;ALL ONES
1720 LOOP BOLOS1-4,BOLOS1^
1721 031752 367 11 0 00 031731 SOJG AC-1,BOLOS1-4 ;ITERATION COUNTER
1722 031753 200 12 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1723 031754 321 11 0 00 031735 JUMPL AC-1,BOLOS1 ;LOOP ON ERROR SWITCH ^
1724
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 14
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0054
1725
1726 ;TEST ANDCA.1 TO 1,0 TO 0, 0 TO 1,0 TO 0,1 TO 1,1 TO 0
1727 ;ERRORS ARE IN THE FORM(PC,AC,C(AC),CORRECT
1728 ;ONE AC IS USED
1729
1730 000013 AC=13
1731 031755 BOLAC: SETUP 200,1^
1732 000014 AC1=<AC+1>&17
1733 000015 AC2=<AC+2>&17
1734 000016 AC3=<AC+3>&17
1735 000017 AC4=<AC+4>&17
1736 000000 AC5=<AC+5>&17
1737 000011 RAN1=<AC-2>&17
1738 031755 201 12 0 00 031755 MOVEI AC-1,.
1739 031756 202 12 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1740 031757 201 12 0 00 000012 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1741 031760 202 12 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1742 031761 201 12 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
1743 031762 240 12 1 00 030672 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
1744 031763 240 12 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1745 RANDOM^
1746 031764 200 13 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1747 031765 270 13 0 00 037576 ADD AC,[142536475076]
1748 031766 241 13 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1749 031767 447 13 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
1750 031770 410 13 0 00 037704 BOLAC1: ANDCA AC,RAN ;ANDCA OF LIKE NUMBERS
1751 031771 312 13 0 00 037577 CAME AC,[0] ;SHOULD PRODUCE 0
1752 031772 004 13 0 00 037577 ERROR AC,[0] ;ANDCA FAILED
1753 031773 410 13 0 00 037704 ANDCA AC,RAN
1754 031774 312 13 0 00 037704 CAME AC,RAN ;ANDCA OF ZERO AND NUMBER
1755 031775 004 13 0 00 037704 ERROR AC,RAN ;SHOULD PRODUCE NUMBER
1756 031776 474 13 0 00 031776 SETO AC,. ;SET ALL BITS
1757 031777 410 13 0 00 037704 ANDCA AC,RAN
1758 032000 312 13 0 00 037577 CAME AC,[0] ;ANDCA OF ALL BITS WITH NUMBER
1759 032001 004 13 0 00 037577 ERROR AC,[0] ;SHOULD PRODUCE 0
1760 LOOP BOLAC1-4,BOLAC1^
1761 032002 367 12 0 00 031764 SOJG AC-1,BOLAC1-4 ;ITERATION COUNTER
1762 032003 200 13 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1763 032004 321 12 0 00 031770 JUMPL AC-1,BOLAC1 ;LOOP ON ERROR SWITCH ^
1764
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 15
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0055
1765
1766 ;TEST EQV,1 TO 1,0 TO 0,1 TO 0,0 TO 1. EQV =(SET ALL LIKE BITS)
1767 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
1768
1769 000014 AC=14
1770 032005 BOLEQ: SETUP 200,2^
1771 000015 AC1=<AC+1>&17
1772 000016 AC2=<AC+2>&17
1773 000017 AC3=<AC+3>&17
1774 000000 AC4=<AC+4>&17
1775 000001 AC5=<AC+5>&17
1776 000012 RAN1=<AC-2>&17
1777 032005 201 13 0 00 032005 MOVEI AC-1,.
1778 032006 202 13 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1779 032007 201 13 0 00 000013 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1780 032010 202 13 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1781 032011 201 13 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
1782 032012 240 13 1 00 030673 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
1783 032013 240 13 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1784 RANDOM^
1785 032014 200 14 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1786 032015 270 14 0 00 037576 ADD AC,[142536475076]
1787 032016 241 14 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1788 032017 447 14 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
1789 032020 444 14 0 00 037704 BOLEQ1: EQV AC,RAN ;WHEN NUMBERS ARE EQUAL
1790 032021 312 14 0 00 037601 CAME AC,[-1] ;EQV SHOULD PRODUCE ALL
1791 032022 004 14 0 00 037601 ERROR AC,[-1] ;BITS SET.EQV FAILED
1792 032023 444 14 0 00 037704 EQV AC,RAN#
1793 032024 312 14 0 00 037704 CAME AC,RAN ;WITH AC SET,EQV SHOULD
1794 032025 004 14 0 00 037704 ERROR AC,RAN ;PRODUCE C(E) IN THE AC
1795 032026 401 14 0 00 777777 SETZI AC,-1
1796 032027 444 14 0 00 037704 EQV AC,RAN ;WHEN AC=0 EQV SHOULD
1797 032030 450 14 0 00 032030 SETCA AC,. ;PRODUCE COMPLEMENT OF
1798 032031 312 14 0 00 037704 CAME AC,RAN ;C(E)
1799 032032 004 14 0 00 037704 ERROR AC,RAN ;EQV FAILED
1800 LOOP BOLEQ1-3,BOLEQ1^
1801 032033 367 13 0 00 032015 SOJG AC-1,BOLEQ1-3 ;ITERATION COUNTER
1802 032034 200 14 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1803 032035 321 13 0 00 032020 JUMPL AC-1,BOLEQ1 ;LOOP ON ERROR SWITCH ^
1804
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 16
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0056
1805
1806 ;TEST SETM. SET THE CONTENTS OF MEMORY TO THE AC
1807 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
1808
1809 000010 AC=10
1810 032036 BOLSM: SETUP 100,0^
1811 000011 AC1=<AC+1>&17
1812 000012 AC2=<AC+2>&17
1813 000013 AC3=<AC+3>&17
1814 000014 AC4=<AC+4>&17
1815 000015 AC5=<AC+5>&17
1816 000006 RAN1=<AC-2>&17
1817 032036 201 07 0 00 032036 MOVEI AC-1,.
1818 032037 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1819 032040 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1820 032041 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1821 032042 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1822 032043 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1823 032044 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1824 RANDOM^
1825 032045 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1826 032046 270 10 0 00 037576 ADD AC,[142536475076]
1827 032047 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1828 032050 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
1829 BOLSM1: REPEAT 2,
1830 < SETM AC1,RAN ;THE NET RESULT OF SETM
1831 CAME AC1,AC ;IS THE SAME AS MOVE
1832 ERROR AC1,RAN ;SETM FAILED
1833 AC=<AC+1>&17
1834 AC1=<AC+1>&17
1835 >
1836 032051 414 11 0 00 037704 SETM AC1,RAN ;THE NET RESULT OF SETM
1837 032052 312 11 0 00 000010 CAME AC1,AC ;IS THE SAME AS MOVE
1838 032053 004 11 0 00 037704 ERROR AC1,RAN ;SETM FAILED
1839 000011 AC=<AC+1>&17
1840 000012 AC1=<AC+1>&17
1841
1842 032054 414 12 0 00 037704 SETM AC1,RAN ;THE NET RESULT OF SETM
1843 032055 312 12 0 00 000011 CAME AC1,AC ;IS THE SAME AS MOVE
1844 032056 004 12 0 00 037704 ERROR AC1,RAN ;SETM FAILED
1845 000012 AC=<AC+1>&17
1846 000013 AC1=<AC+1>&17
1847
1848 000010 AC=10
1849 LOOP BOLSM1-4,BOLSM1^
1850 032057 367 07 0 00 032045 SOJG AC-1,BOLSM1-4 ;ITERATION COUNTER
1851 032060 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1852 032061 321 07 0 00 032051 JUMPL AC-1,BOLSM1 ;LOOP ON ERROR SWITCH ^
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 17
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0057
1853
1854 ;TEST SETCM. (MOVE THE COMPLEMENT OF MEMORY TO AC)
1855 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
1856
1857 000014 AC=14
1858 032062 BOLCM: SETUP 100,0^
1859 000015 AC1=<AC+1>&17
1860 000016 AC2=<AC+2>&17
1861 000017 AC3=<AC+3>&17
1862 000000 AC4=<AC+4>&17
1863 000001 AC5=<AC+5>&17
1864 000012 RAN1=<AC-2>&17
1865 032062 201 13 0 00 032062 MOVEI AC-1,.
1866 032063 202 13 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1867 032064 201 13 0 00 000013 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1868 032065 202 13 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1869 032066 201 13 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
1870 032067 240 13 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1871 032070 240 13 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1872 RANDOM^
1873 032071 200 14 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1874 032072 270 14 0 00 037576 ADD AC,[142536475076]
1875 032073 241 14 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1876 032074 447 14 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
1877 032075 460 15 0 00 037704 BOLCM1: SETCM AC1,RAN ;COMP OF RANDOM TO AC
1878 032076 460 16 0 00 000015 SETCM AC2,AC1 ;RECOMP TO AC2
1879 032077 312 16 0 00 037704 CAME AC2,RAN
1880 032100 004 16 0 00 037704 ERROR AC2,RAN ;SETCM 1 OR 2 FAILED
1881 LOOP BOLCM1-3,BOLCM1^
1882 032101 367 13 0 00 032072 SOJG AC-1,BOLCM1-3 ;ITERATION COUNTER
1883 032102 200 14 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1884 032103 321 13 0 00 032075 JUMPL AC-1,BOLCM1 ;LOOP ON ERROR SWITCH ^
1885
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 18
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0058
1886
1887 ;TEST ORCM. (INCLUSIVE OR THE CONTENTS OF COMPLEMENTED MEMORY
1888 ;TO THE CONTENTS OF AC.) ERRORS ARE IN THE FORM (PC,AC,
1889 ;C(AC),CORRECT
1890
1891 000005 AC=5
1892 032104 BOLOC: SETUP 140,0^
1893 000006 AC1=<AC+1>&17
1894 000007 AC2=<AC+2>&17
1895 000010 AC3=<AC+3>&17
1896 000011 AC4=<AC+4>&17
1897 000012 AC5=<AC+5>&17
1898 000003 RAN1=<AC-2>&17
1899 032104 201 04 0 00 032104 MOVEI AC-1,.
1900 032105 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1901 032106 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1902 032107 202 04 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1903 032110 201 04 0 00 000140 MOVEI AC-1,140 ;ROUTINE WEIGHTING
1904 032111 240 04 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1905 032112 240 04 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1906 RANDOM^
1907 032113 200 05 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1908 032114 270 05 0 00 037576 ADD AC,[142536475076]
1909 032115 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1910 032116 447 05 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
1911 032117 464 05 0 00 037704 BOLOC1: ORCM AC,RAN ;LIKE NUMBERS SHOULD PRODUCE
1912 032120 312 05 0 00 037601 CAME AC,[-1] ;ALL BITS SET
1913 032121 004 05 0 00 037601 ERROR AC,[-1]
1914 032122 464 05 0 00 037704 ORCM AC,RAN ;ANY NUMBER ORED WITH ALL
1915 032123 312 05 0 00 037601 CAME AC,[-1] ;ONES SHOULD PRODUCE
1916 032124 004 05 0 00 037601 ERROR AC,[-1] ;ALL ONES
1917 032125 401 05 0 00 777777 SETZI AC,-1
1918 032126 464 05 0 00 037704 ORCM AC,RAN ;THE RANDOM NUMBER IS
1919 032127 450 05 0 00 032127 SETCA AC,. ;ORED TO 0. THIS SHOULD
1920 032130 312 05 0 00 037704 CAME AC,RAN ;PRODUCE THE COMPLEMENT
1921 032131 004 05 0 00 037704 ERROR AC,RAN ;OF RANDOM
1922 032132 464 05 0 00 037601 ORCM AC,[-1]
1923 032133 312 05 0 00 037704 CAME AC,RAN ;ORING -1 SHOULD LEAVE
1924 032134 004 05 0 00 037704 ERROR AC,RAN ;AC UNCHANGED
1925 LOOP BOLOC1-3,BOLOC1^
1926 032135 367 04 0 00 032114 SOJG AC-1,BOLOC1-3 ;ITERATION COUNTER
1927 032136 200 05 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1928 032137 321 04 0 00 032117 JUMPL AC-1,BOLOC1 ;LOOP ON ERROR SWITCH ^
1929
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 19
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0059
1930
1931 ;TEST ANDCM (AND WITH THE COMP OF MEMORY)
1932 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
1933
1934 000010 AC=10
1935 032140 BOLAX: SETUP 140,0^
1936 000011 AC1=<AC+1>&17
1937 000012 AC2=<AC+2>&17
1938 000013 AC3=<AC+3>&17
1939 000014 AC4=<AC+4>&17
1940 000015 AC5=<AC+5>&17
1941 000006 RAN1=<AC-2>&17
1942 032140 201 07 0 00 032140 MOVEI AC-1,.
1943 032141 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1944 032142 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1945 032143 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1946 032144 201 07 0 00 000140 MOVEI AC-1,140 ;ROUTINE WEIGHTING
1947 032145 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1948 032146 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1949 RANDOM^
1950 032147 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1951 032150 270 10 0 00 037576 ADD AC,[142536475076]
1952 032151 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1953 032152 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
1954 032153 420 10 0 00 037704 BOLAX1: ANDCM AC,RAN ;LIKE NUMBERS SHOULD
1955 032154 312 10 0 00 037577 CAME AC,[0] ;PRODUCE 0
1956 032155 004 10 0 00 037577 ERROR AC,[0] ;ANDCM FAILED
1957 032156 420 10 0 00 037704 ANDCM AC,RAN ;ANYTHING ANDED TO
1958 032157 312 10 0 00 037577 CAME AC,[0] ;ZERO SHOULD = 0
1959 032160 004 10 0 00 037577 ERROR AC,[0]
1960 032161 474 10 0 00 000000 SETO AC,
1961 032162 420 10 0 00 037704 ANDCM AC,RAN ;AC SHOULD - COMP OF MEMORY
1962 032163 420 10 0 00 037577 ANDCM AC,[0] ;AC SHOULD REMAIN UNCHANGED
1963 032164 430 10 0 00 037601 XOR AC,[-1] ;COMP AC
1964 032165 312 10 0 00 037704 CAME AC,RAN ;AFTER COMP SHOULD EQUAL
1965 032166 004 10 0 00 037704 ERROR AC,RAN ;RANDOM. ANDCM FAILED
1966 LOOP BOLAX1-3,BOLAX1^
1967 032167 367 07 0 00 032150 SOJG AC-1,BOLAX1-3 ;ITERATION COUNTER
1968 032170 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
1969 032171 321 07 0 00 032153 JUMPL AC-1,BOLAX1 ;LOOP ON ERROR SWITCH ^
1970
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 20
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0060
1971
1972 ;TEST ORCB (INCLUSIVE OR THE COMPLEMENT OF AC AND C(E))
1973 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
1974
1975 000001 AC=1
1976 032172 BOLOB: SETUP 140,0^
1977 000002 AC1=<AC+1>&17
1978 000003 AC2=<AC+2>&17
1979 000004 AC3=<AC+3>&17
1980 000005 AC4=<AC+4>&17
1981 000006 AC5=<AC+5>&17
1982 000017 RAN1=<AC-2>&17
1983 032172 201 00 0 00 032172 MOVEI AC-1,.
1984 032173 202 00 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1985 032174 201 00 0 00 000000 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1986 032175 202 00 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1987 032176 201 00 0 00 000140 MOVEI AC-1,140 ;ROUTINE WEIGHTING
1988 032177 240 00 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
1989 032200 240 00 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
1990 RANDOM^
1991 032201 200 01 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
1992 032202 270 01 0 00 037576 ADD AC,[142536475076]
1993 032203 241 01 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
1994 032204 447 01 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
1995 032205 470 01 0 00 037704 BOLOB1: ORCB AC,RAN ;PRODUCE COMP OF RAN
1996 032206 470 01 0 00 037601 ORCB AC,[-1] ;COMP AC
1997 032207 312 01 0 00 037704 CAME AC,RAN ;CHECK ORCB
1998 032210 004 01 0 00 037704 ERROR AC,RAN
1999 032211 470 01 0 00 037601 ORCB AC,[-1] ;COMP AC
2000 032212 470 01 0 00 037704 ORCB AC,RAN ;ANY TWO COMPLEMENTED NUMBERS
2001 032213 312 01 0 00 037601 CAME AC,[-1] ;SHOULD PRODUCE ALL ONES
2002 032214 004 01 0 00 037601 ERROR AC,[-1]
2003 032215 470 01 0 00 037577 ORCB AC,[0] ;AC COMPLEMENTS TO 0
2004 032216 312 01 0 00 037601 CAME AC,[-1]
2005 032217 004 01 0 00 037601 ERROR AC,[-1] ;ORCB FAILED
2006 LOOP BOLOB1-4,BOLOB1^
2007 032220 367 00 0 00 032201 SOJG AC-1,BOLOB1-4 ;ITERATION COUNTER
2008 032221 200 01 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2009 032222 321 00 0 00 032205 JUMPL AC-1,BOLOB1 ;LOOP ON ERROR SWITCH ^
2010
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 21
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0061
2011
2012 ;TEST ANDCB (AND WITH BOTH OPERANDS COMPLEMENTED)
2013 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2014
2015 000002 AC=2
2016 032223 BOLAB: SETUP 140,0^
2017 000003 AC1=<AC+1>&17
2018 000004 AC2=<AC+2>&17
2019 000005 AC3=<AC+3>&17
2020 000006 AC4=<AC+4>&17
2021 000007 AC5=<AC+5>&17
2022 000000 RAN1=<AC-2>&17
2023 032223 201 01 0 00 032223 MOVEI AC-1,.
2024 032224 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2025 032225 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2026 032226 202 01 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2027 032227 201 01 0 00 000140 MOVEI AC-1,140 ;ROUTINE WEIGHTING
2028 032230 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2029 032231 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2030 RANDOM^
2031 032232 200 02 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2032 032233 270 02 0 00 037576 ADD AC,[142536475076]
2033 032234 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2034 032235 447 02 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
2035 032236 440 02 0 00 037704 BOLAB1: ANDCB AC,RAN ;PRODUCE COMP OF RAN
2036 032237 440 02 0 00 037577 ANDCB AC,[0] ;COMP AC
2037 032240 312 02 0 00 037704 CAME AC,RAN ;CHECK FOR ORIGIONAL NUMBER
2038 032241 004 02 0 00 037704 ERROR AC,RAN ;ANDCB FAILED
2039 032242 440 02 0 00 037577 ANDCB AC,[0] ;COMPLEMENT AC
2040 032243 440 02 0 00 037577 ANDCB AC,[0] ;RECOMPLEMENT AC
2041 032244 312 02 0 00 037704 CAME AC,RAN ;SHOULD PRODUCE ORIGIONAL
2042 032245 004 02 0 00 037704 ERROR AC,RAN ;ANDCB FAILED
2043 032246 440 02 0 00 037601 ANDCB AC,[-1] ;RESULT SHOULD BE 0 IF
2044 032247 312 02 0 00 037577 CAME AC,[0] ;CONTENTS OF E
2045 032250 004 02 0 00 037577 ERROR AC,[0] ;CONTAINS NO BITS AFTER COMP
2046 032251 440 02 0 00 037704 ANDCB AC,RAN ;AC SHOULD EQUAL COMP OF RAN
2047 032252 440 02 0 00 037577 ANDCB AC,[0] ;COMP AC
2048 032253 312 02 0 00 037704 CAME AC,RAN ;THE AND TO 0
2049 032254 004 02 0 00 037704 ERROR AC,RAN ;FAILED
2050 LOOP BOLAB1-3,BOLAB1^
2051 032255 367 01 0 00 032233 SOJG AC-1,BOLAB1-3 ;ITERATION COUNTER
2052 032256 200 02 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2053 032257 321 01 0 00 032236 JUMPL AC-1,BOLAB1 ;LOOP ON ERROR SWITCH ^
2054
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 22
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0062
2055
2056 ;TEST SETA (EFFECTIVELY A NO OPERATION IN THIS MODE)
2057 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2058
2059 000003 AC=3
2060 032260 BOLSA: SETUP 100,0^
2061 000004 AC1=<AC+1>&17
2062 000005 AC2=<AC+2>&17
2063 000006 AC3=<AC+3>&17
2064 000007 AC4=<AC+4>&17
2065 000010 AC5=<AC+5>&17
2066 000001 RAN1=<AC-2>&17
2067 032260 201 02 0 00 032260 MOVEI AC-1,.
2068 032261 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2069 032262 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2070 032263 202 02 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2071 032264 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2072 032265 240 02 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2073 032266 240 02 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2074 RANDOM^
2075 032267 200 03 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2076 032270 270 03 0 00 037576 ADD AC,[142536475076]
2077 032271 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2078 032272 447 03 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
2079 ;DO 7 SETA'S.
2080 BOLSA1: REPEAT 7,<
2081 SETA AC,.>
2082
2083 032273 424 03 0 00 032273 SETA AC,.
2084
2085 032274 424 03 0 00 032274 SETA AC,.
2086
2087 032275 424 03 0 00 032275 SETA AC,.
2088
2089 032276 424 03 0 00 032276 SETA AC,.
2090
2091 032277 424 03 0 00 032277 SETA AC,.
2092
2093 032300 424 03 0 00 032300 SETA AC,.
2094
2095 032301 424 03 0 00 032301 SETA AC,.
2096 032302 312 03 0 00 037704 CAME AC,RAN ;C(AC) SHOULD = ORIG. C(AC)
2097 032303 004 03 0 00 037704 ERROR AC,RAN
2098 LOOP BOLSA1-3,BOLSA1^
2099 032304 367 02 0 00 032270 SOJG AC-1,BOLSA1-3 ;ITERATION COUNTER
2100 032305 200 03 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2101 032306 321 02 0 00 032273 JUMPL AC-1,BOLSA1 ;LOOP ON ERROR SWITCH ^
2102
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 23
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0063
2103
2104 ;TEST IORM, WHERE E IS AN AC. THE INST IS TESTED
2105 ;FOR NOT STORING IN AC AS WELL AS STORING PROPERLY
2106 ;IN E.
2107 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2108
2109 000011 AC=11
2110 032307 BMIOR: SETUP 100,1^
2111 000012 AC1=<AC+1>&17
2112 000013 AC2=<AC+2>&17
2113 000014 AC3=<AC+3>&17
2114 000015 AC4=<AC+4>&17
2115 000016 AC5=<AC+5>&17
2116 000007 RAN1=<AC-2>&17
2117 032307 201 10 0 00 032307 MOVEI AC-1,.
2118 032310 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2119 032311 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2120 032312 202 10 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2121 032313 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2122 032314 240 10 1 00 030672 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
2123 032315 240 10 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2124 032316 BMIOR1: RANDOM^
2125 032316 200 11 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2126 032317 270 11 0 00 037576 ADD AC,[142536475076]
2127 032320 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2128 032321 447 11 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
2129 032322 204 12 0 00 000011 BMIOR2: MOVS AC1,AC ;AC=C(E) ORIG
2130 032323 316 11 0 00 000012 CAMN AC,AC1 ;HALVES SAME?
2131 032324 254 00 0 00 032316 JRST BMIOR1 ;YES. REJECT.
2132 032325 460 00 0 00 000011 SETCM AC ;SIM AN
2133 032326 404 00 0 00 000012 AND AC1 ;IOR
2134 032327 430 00 0 00 000011 XOR AC ;INST
2135 032330 436 11 0 00 000012 IORM AC,AC1 ;RESULT TO AC1
2136 032331 316 11 0 00 000012 CAMN AC,AC1 ;BOTH SAME?
2137 032332 004 11 0 00 000012 ERROR AC,AC1 ;YES. STORED IN AC.
2138 032333 312 12 0 00 000000 CAME AC1,0 ;C(E) = SIM. ANS?
2139 032334 004 11 0 00 000000 ERROR AC,0 ;NO. IORM FAILED.
2140 LOOP BMIOR1,BMIOR2^
2141 032335 367 10 0 00 032316 SOJG AC-1,BMIOR1 ;ITERATION COUNTER
2142 032336 200 11 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2143 032337 321 10 0 00 032322 JUMPL AC-1,BMIOR2 ;LOOP ON ERROR SWITCH ^
2144
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 24
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0064
2145
2146 ;TEST ORCAM, WHERE E IS AN AC. THE INSTRUCTION IS TESTED
2147 ;FOR NOT STORING IN AC AS WELL AS STORING PROPERLY IN C(E).
2148 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2149
2150 000012 AC=12
2151 032340 BMICA: SETUP 100,1^
2152 000013 AC1=<AC+1>&17
2153 000014 AC2=<AC+2>&17
2154 000015 AC3=<AC+3>&17
2155 000016 AC4=<AC+4>&17
2156 000017 AC5=<AC+5>&17
2157 000010 RAN1=<AC-2>&17
2158 032340 201 11 0 00 032340 MOVEI AC-1,.
2159 032341 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2160 032342 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2161 032343 202 11 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2162 032344 201 11 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2163 032345 240 11 1 00 030672 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
2164 032346 240 11 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2165 032347 BMICA1: RANDOM^
2166 032347 200 12 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2167 032350 270 12 0 00 037576 ADD AC,[142536475076]
2168 032351 241 12 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2169 032352 447 12 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
2170 032353 204 13 0 00 000012 BMICA2: MOVS AC1,AC ;SECOND RANDOM NUMBER
2171 032354 460 14 0 00 000013 SETCM AC2,AC1 ;MOVE COMPLEMENT OF NUMBER
2172 032355 460 00 0 00 000012 SETCM AC ;SIMULATE
2173 032356 404 00 0 00 000014 AND AC2 ;THE INSTRUCTION
2174 032357 430 00 0 00 000012 XOR AC ;IN AC0.
2175 032360 456 13 0 00 000012 ORCAM AC1,AC ;RESULT TO C(E)
2176 032361 316 13 0 00 000012 CAMN AC1,AC ;EQUAL?
2177 032362 004 13 0 00 000012 ERROR AC1,AC ;YES. STORED IN AC.
2178 032363 312 12 0 00 000000 CAME AC,0 ;C(E) = SIM. ANS?
2179 032364 004 12 0 00 000000 ERROR AC,0 ;NO. ORCAM FAILED.
2180 LOOP BMICA1,BMICA2^
2181 032365 367 11 0 00 032347 SOJG AC-1,BMICA1 ;ITERATION COUNTER
2182 032366 200 12 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2183 032367 321 11 0 00 032353 JUMPL AC-1,BMICA2 ;LOOP ON ERROR SWITCH ^
2184
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 25
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0065
2185
2186 ;TEST ORCMM, WHERE E IS AN AC. THE INSTRUCTION
2187 ;IS TESTED FOR NOT STORING IN AC AS WELL AS THE
2188 ;CORRECT ANSWER IN C(E).
2189 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2190
2191 000013 AC=13
2192 032370 BMICM: SETUP 100,0^
2193 000014 AC1=<AC+1>&17
2194 000015 AC2=<AC+2>&17
2195 000016 AC3=<AC+3>&17
2196 000017 AC4=<AC+4>&17
2197 000000 AC5=<AC+5>&17
2198 000011 RAN1=<AC-2>&17
2199 032370 201 12 0 00 032370 MOVEI AC-1,.
2200 032371 202 12 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2201 032372 201 12 0 00 000012 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2202 032373 202 12 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2203 032374 201 12 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2204 032375 240 12 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2205 032376 240 12 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2206 032377 BMICM1: RANDOM^
2207 032377 200 13 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2208 032400 270 13 0 00 037576 ADD AC,[142536475076]
2209 032401 241 13 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2210 032402 447 13 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
2211 032403 204 14 0 00 000013 BMICM2: MOVS AC1,AC ;SECOND RANDOM NUMBER
2212 032404 460 15 0 00 000013 SETCM AC2,AC ;SIMULATE
2213 032405 460 00 0 00 000014 SETCM AC1 ;THE
2214 032406 404 00 0 00 000015 AND AC2 ;INSTRUCTION
2215 032407 430 00 0 00 000014 XOR AC1 ;IN AC0
2216 032410 316 00 0 00 000014 CAMN 0,AC1 ;IS SIMULATED ANS
2217 032411 254 00 0 00 032377 JRST BMICM1 ;= C(AC)?...REJECT.
2218 032412 466 14 0 00 000013 ORCMM AC1,AC ;IF AC1 = AC, STORE INHIBIT
2219 032413 316 14 0 00 000013 CAMN AC1,AC
2220 032414 004 14 0 00 000013 ERROR AC1,AC ;FAILED.
2221 032415 312 13 0 00 000000 CAME AC,0 ;C(E) SHOULD = SIM. ANS.
2222 032416 004 13 0 00 000000 ERROR AC,0 ;ORCMM FAILED.
2223 LOOP BMICM1,BMICM2^
2224 032417 367 12 0 00 032377 SOJG AC-1,BMICM1 ;ITERATION COUNTER
2225 032420 200 13 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2226 032421 321 12 0 00 032403 JUMPL AC-1,BMICM2 ;LOOP ON ERROR SWITCH ^
2227
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 26
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0066
2228
2229 ;TEST ORCBM, WHERE E IS AN AC. THE INSTRUCTION
2230 ;IS TESTED FOR NOT STORING IN AC AS WELL AS THE
2231 ;CORRECT ANSWER IN C(E).
2232 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2233
2234 000014 AC=14
2235 032422 BMICB: SETUP 200,0^
2236 000015 AC1=<AC+1>&17
2237 000016 AC2=<AC+2>&17
2238 000017 AC3=<AC+3>&17
2239 000000 AC4=<AC+4>&17
2240 000001 AC5=<AC+5>&17
2241 000012 RAN1=<AC-2>&17
2242 032422 201 13 0 00 032422 MOVEI AC-1,.
2243 032423 202 13 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2244 032424 201 13 0 00 000013 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2245 032425 202 13 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2246 032426 201 13 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
2247 032427 240 13 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2248 032430 240 13 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2249 032431 BMICB1: RANDOM^
2250 032431 200 14 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2251 032432 270 14 0 00 037576 ADD AC,[142536475076]
2252 032433 241 14 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2253 032434 447 14 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
2254 032435 204 15 0 00 000014 BMICB2: MOVS AC1,AC ;AC1= 0101,0011
2255 032436 460 16 0 00 000014 SETCM AC2,AC ;AC2= 1100,1010
2256 032437 460 00 0 00 000016 SETCM AC2 ;AC0 = 0011,0101
2257 032440 420 00 0 00 000015 ANDCM AC1 ;AC0 = 0010,0100
2258 032441 430 00 0 00 000016 XOR AC2 ;AC0 = 1110,1110
2259 032442 472 15 0 00 000014 ORCBM AC1,AC ;SHOULD PRODUCE SAME LOGIC
2260 032443 316 15 0 00 000014 CAMN AC1,AC ;EQUAL?
2261 032444 004 15 0 00 000014 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2262 032445 312 14 0 00 000000 CAME AC,0 ;C(E) SHOULD = SIM. ANS.
2263 032446 004 14 0 00 000000 ERROR AC,0 ;ORCBM FAILED.
2264 LOOP BMICB1,BMICB2^
2265 032447 367 13 0 00 032431 SOJG AC-1,BMICB1 ;ITERATION COUNTER
2266 032450 200 14 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2267 032451 321 13 0 00 032435 JUMPL AC-1,BMICB2 ;LOOP ON ERROR SWITCH ^
2268
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 27
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0067
2269
2270 ;TEST XORM, WHERE E IS AN AC. THE INSTRUCTION IS
2271 ;TESTED FOR NOT STORING AC AS WELL AS CONTENTS
2272 ;OF E CORRECTNESS.
2273 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2274
2275 000010 AC=10
2276 032452 BMX: SETUP 200,1^
2277 000011 AC1=<AC+1>&17
2278 000012 AC2=<AC+2>&17
2279 000013 AC3=<AC+3>&17
2280 000014 AC4=<AC+4>&17
2281 000015 AC5=<AC+5>&17
2282 000006 RAN1=<AC-2>&17
2283 032452 201 07 0 00 032452 MOVEI AC-1,.
2284 032453 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2285 032454 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2286 032455 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2287 032456 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
2288 032457 240 07 1 00 030672 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
2289 032460 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2290 032461 BMX1: RANDOM^
2291 032461 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2292 032462 270 10 0 00 037576 ADD AC,[142536475076]
2293 032463 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2294 032464 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
2295 032465 322 10 0 00 032461 BMX2: JUMPE AC,BMX1 ;REJECT IF RAN = 0.
2296 032466 204 11 0 00 000010 MOVS AC1,AC ;SECOND RANDOM NUMBER.
2297 032467 460 00 0 00 000010 SETCM AC
2298 032470 410 00 0 00 000011 ANDCA AC1 ;PERFORM
2299 032471 200 12 0 00 000010 MOVE AC2,AC ;A PSEUDO
2300 032472 434 12 0 00 000011 IOR AC2,AC1 ;EXCLUSIVE
2301 032473 410 00 0 00 000012 ANDCA AC2 ;OR INSTRUCTION
2302 032474 432 11 0 00 000010 XORM AC1,AC ;DO THE XOR
2303 032475 316 11 0 00 000010 CAMN AC1,AC ;EQUAL?
2304 032476 004 11 0 00 000010 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2305 032477 312 10 0 00 000000 CAME AC,0 ;C(E) SHOULD = SIM. ANS.
2306 032500 004 10 0 00 000000 ERROR AC,0 ;XORM FAILED.
2307 LOOP BMX1,BMX2^
2308 032501 367 07 0 00 032461 SOJG AC-1,BMX1 ;ITERATION COUNTER
2309 032502 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2310 032503 321 07 0 00 032465 JUMPL AC-1,BMX2 ;LOOP ON ERROR SWITCH ^
2311
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 28
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0068
2312
2313 ;TEST EQVM, WHERE E IS AN AC. THE INSTRUCTION
2314 ;IS TESTED FOR NOT STORING AC AS WELL AS
2315 ;CORRECTNESS OF C(E).
2316 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2317
2318 000010 AC=10
2319 032504 BMEQ: SETUP 100,0^
2320 000011 AC1=<AC+1>&17
2321 000012 AC2=<AC+2>&17
2322 000013 AC3=<AC+3>&17
2323 000014 AC4=<AC+4>&17
2324 000015 AC5=<AC+5>&17
2325 000006 RAN1=<AC-2>&17
2326 032504 201 07 0 00 032504 MOVEI AC-1,.
2327 032505 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2328 032506 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2329 032507 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2330 032510 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2331 032511 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2332 032512 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2333 032513 BMEQ1: RANDOM^
2334 032513 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2335 032514 270 10 0 00 037576 ADD AC,[142536475076]
2336 032515 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2337 032516 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
2338 032517 204 11 0 00 000010 BMEQ2: MOVS AC1,AC ;SECOND RANDOM NUMBER
2339 032520 460 00 0 00 000011 SETCM AC1 ;EQV IS SAME LOGIC
2340 032521 430 00 0 00 000010 XOR AC ;AS XOR WITH COMP AC
2341 032522 446 11 0 00 000010 EQVM AC1,AC ;EQV SETS ALL LIKE BITS
2342 032523 316 11 0 00 000010 CAMN AC1,AC ;EQUAL?
2343 032524 004 11 0 00 000010 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2344 032525 312 10 0 00 000000 CAME AC,0 ;C(E) SHOULD = SIM. ANS.
2345 032526 004 10 0 00 000000 ERROR AC,0 ;EQVM FAILED.
2346 LOOP BMEQ1,BMEQ2^
2347 032527 367 07 0 00 032513 SOJG AC-1,BMEQ1 ;ITERATION COUNTER
2348 032530 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2349 032531 321 07 0 00 032517 JUMPL AC-1,BMEQ2 ;LOOP ON ERROR SWITCH ^
2350
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 29
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0069
2351
2352
2353 ;TEST ANDM, WHERE E IS AN AC. THE INSTRUCTION IS
2354 ;TESTED FOR NOT STORING IN AC AS WELL AS STORING
2355 ;PROPERLY IN C(E).
2356 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2357
2358 000003 AC=3
2359 032532 BMAN: SETUP 100,0^
2360 000004 AC1=<AC+1>&17
2361 000005 AC2=<AC+2>&17
2362 000006 AC3=<AC+3>&17
2363 000007 AC4=<AC+4>&17
2364 000010 AC5=<AC+5>&17
2365 000001 RAN1=<AC-2>&17
2366 032532 201 02 0 00 032532 MOVEI AC-1,.
2367 032533 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2368 032534 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2369 032535 202 02 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2370 032536 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2371 032537 240 02 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2372 032540 240 02 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2373 032541 BMAN1: RANDOM^
2374 032541 200 03 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2375 032542 270 03 0 00 037576 ADD AC,[142536475076]
2376 032543 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2377 032544 447 03 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
2378 032545 204 04 0 00 000003 BMAN2: MOVS AC1,AC ;SECOND RANDOM NUMBER
2379 032546 200 00 0 00 000003 MOVE AC ;SIMULATE
2380 032547 434 00 0 00 000004 IOR AC1 ;AN "AND"
2381 032550 430 00 0 00 000004 XOR AC1 ;INSTRUCTION.
2382 032551 430 00 0 00 000003 XOR AC ;IN AC0
2383 032552 316 04 0 00 000003 CAMN AC1,AC ;REJECT THE NUMBER
2384 032553 254 00 0 00 032541 JRST BMAN1 ;IF EQUAL.
2385 032554 406 04 0 00 000003 ANDM AC1,AC ;THE INSTRUCTION
2386 032555 316 04 0 00 000003 CAMN AC1,AC ;EQUAL?
2387 032556 004 04 0 00 000003 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2388 032557 312 03 0 00 000000 CAME AC,0 ;C(E) SHOULD = SIM. ANS.
2389 032560 004 03 0 00 000000 ERROR AC,0 ;AND FAILED.
2390 LOOP BMAN1,BMAN2^
2391 032561 367 02 0 00 032541 SOJG AC-1,BMAN1 ;ITERATION COUNTER
2392 032562 200 03 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2393 032563 321 02 0 00 032545 JUMPL AC-1,BMAN2 ;LOOP ON ERROR SWITCH ^
2394
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 30
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0070
2395
2396
2397 ;TEST ANDCAM, WHERE E IS AN AC. THE INSTRUCTION IS
2398 ;TESTED FOR NOT STORING IN AN AC AS WELL AS
2399 ;STORING C(E) PROPERLY.
2400 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2401
2402 000004 AC=4
2403 032564 BMACA: SETUP 100,0^
2404 000005 AC1=<AC+1>&17
2405 000006 AC2=<AC+2>&17
2406 000007 AC3=<AC+3>&17
2407 000010 AC4=<AC+4>&17
2408 000011 AC5=<AC+5>&17
2409 000002 RAN1=<AC-2>&17
2410 032564 201 03 0 00 032564 MOVEI AC-1,.
2411 032565 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2412 032566 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2413 032567 202 03 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2414 032570 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2415 032571 240 03 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2416 032572 240 03 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2417 032573 BMACA1: RANDOM^
2418 032573 200 04 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2419 032574 270 04 0 00 037576 ADD AC,[142536475076]
2420 032575 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2421 032576 447 04 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
2422 032577 322 04 0 00 032573 BMACA2: JUMPE AC,BMACA1 ;REJECT IF RAN = 0.
2423 032600 204 05 0 00 000004 MOVS AC1,AC ;SECOND RANDOM NUMBER
2424 032601 414 00 0 00 000004 SETM AC ;SIMULATE
2425 032602 454 00 0 00 000005 ORCA AC1 ;ANDCA
2426 032603 450 00 0 00 000000 SETCA ;LOGIC
2427 032604 412 05 0 00 000004 ANDCAM AC1,AC ;THE INSTRUCTION
2428 032605 316 05 0 00 000004 CAMN AC1,AC ;EQUAL?
2429 032606 004 05 0 00 000004 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2430 032607 312 04 0 00 000000 CAME AC,0 ;C(E) SHOULD = SIM. ANS.
2431 032610 004 04 0 00 000000 ERROR AC,0 ;ANDCA FAILED.
2432 LOOP BMACA1,BMACA2^
2433 032611 367 03 0 00 032573 SOJG AC-1,BMACA1 ;ITERATION COUNTER
2434 032612 200 04 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2435 032613 321 03 0 00 032577 JUMPL AC-1,BMACA2 ;LOOP ON ERROR SWITCH ^
2436
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 31
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0071
2437
2438 ;TEST ANDCMM, WHERE E IS AN AC. THE INSTRUCTION IS
2439 ;TESTED FOR NOT STORING IN AN AC AS WELL AS
2440 ;STORING C(E) PROPERLY.
2441 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2442
2443 000005 AC=5
2444 032614 BMACM: SETUP 100,0^
2445 000006 AC1=<AC+1>&17
2446 000007 AC2=<AC+2>&17
2447 000010 AC3=<AC+3>&17
2448 000011 AC4=<AC+4>&17
2449 000012 AC5=<AC+5>&17
2450 000003 RAN1=<AC-2>&17
2451 032614 201 04 0 00 032614 MOVEI AC-1,.
2452 032615 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2453 032616 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2454 032617 202 04 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2455 032620 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2456 032621 240 04 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2457 032622 240 04 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2458 032623 BMACM1: RANDOM^
2459 032623 200 05 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2460 032624 270 05 0 00 037576 ADD AC,[142536475076]
2461 032625 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2462 032626 447 05 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
2463 032627 322 05 0 00 032623 BMACM2: JUMPE AC,BMACM1 ;REJECT IF RAN = 0.
2464 032630 204 06 0 00 000005 MOVS AC1,AC ;SECOND RANDOM NUMBER
2465 032631 426 06 0 00 000000 SETAM AC1,0 ;AC1 TO AC0.
2466 032632 434 00 0 00 000005 IOR AC ;SIMULATE
2467 032633 430 00 0 00 000005 XOR AC ;THE INSTUCTION
2468 032634 316 00 0 00 000006 CAMN 0,AC1 ;SIM ANS = C(AC)?
2469 032635 254 00 0 00 032623 JRST BMACM1 ;YES. REJECT.
2470 032636 422 06 0 00 000005 ANDCMM AC1,AC ;DO AN ANDCMM INSTRUCTION.
2471 032637 316 06 0 00 000005 CAMN AC1,AC ;EQUAL?
2472 032640 004 06 0 00 000005 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2473 032641 312 05 0 00 000000 CAME AC,0 ;C(E) SHOULD = SIM. ANS.
2474 032642 004 05 0 00 000000 ERROR AC,0 ;ANDCMM FAILED.
2475 LOOP BMACM1,BMACM2^
2476 032643 367 04 0 00 032623 SOJG AC-1,BMACM1 ;ITERATION COUNTER
2477 032644 200 05 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2478 032645 321 04 0 00 032627 JUMPL AC-1,BMACM2 ;LOOP ON ERROR SWITCH ^
2479
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 32
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0072
2480
2481 ;TEST ANDCBM, WHERE E IS AN AC. THE INSTRUCTION
2482 ;IS TESTED FOR NOT STORING IN AC AS WELL AS STORING
2483 ;PROPERLY IN C(E).
2484 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2485
2486 000007 AC=7
2487 032646 BMACB: SETUP 100,0^
2488 000010 AC1=<AC+1>&17
2489 000011 AC2=<AC+2>&17
2490 000012 AC3=<AC+3>&17
2491 000013 AC4=<AC+4>&17
2492 000014 AC5=<AC+5>&17
2493 000005 RAN1=<AC-2>&17
2494 032646 201 06 0 00 032646 MOVEI AC-1,.
2495 032647 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2496 032650 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2497 032651 202 06 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2498 032652 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2499 032653 240 06 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2500 032654 240 06 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2501 032655 BMACB1: RANDOM^
2502 032655 200 07 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2503 032656 270 07 0 00 037576 ADD AC,[142536475076]
2504 032657 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2505 032660 447 07 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
2506 032661 204 10 0 00 000007 BMACB2: MOVS AC1,AC ;SECOND RANDOM NUMBER.
2507 032662 460 00 0 00 000010 SETCM AC1 ;SIMULATE
2508 032663 460 01 0 00 000007 SETCM 1,AC ;AN
2509 032664 404 00 0 00 000001 AND 1 ;ANDCBM INST.
2510 032665 442 10 0 00 000007 ANDCBM AC1,AC ;DO AN ANDCBM.
2511 032666 316 10 0 00 000007 CAMN AC1,AC ;EQUAL?
2512 032667 004 10 0 00 000007 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2513 032670 312 07 0 00 000000 CAME AC,0 ;C(E) SHOULD = SIM. ANS.
2514 032671 004 07 0 00 000000 ERROR AC,0 ;ANDCBM FAILED.
2515 LOOP BMACB1,BMACB2^
2516 032672 367 06 0 00 032655 SOJG AC-1,BMACB1 ;ITERATION COUNTER
2517 032673 200 07 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2518 032674 321 06 0 00 032661 JUMPL AC-1,BMACB2 ;LOOP ON ERROR SWITCH ^
2519
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 33
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0073
2520
2521 ;TEST SETCAM, WHERE E IS AN AC. THE INSTRUCTION
2522 ;IS TESTED FOR NOT STORING IN AC AS WELL AS
2523 ;PROPER C(E).
2524 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2525
2526 000010 AC=10
2527 032675 BMCMM: SETUP 200,0^
2528 000011 AC1=<AC+1>&17
2529 000012 AC2=<AC+2>&17
2530 000013 AC3=<AC+3>&17
2531 000014 AC4=<AC+4>&17
2532 000015 AC5=<AC+5>&17
2533 000006 RAN1=<AC-2>&17
2534 032675 201 07 0 00 032675 MOVEI AC-1,.
2535 032676 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2536 032677 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2537 032700 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2538 032701 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
2539 032702 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2540 032703 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2541 032704 BMCMM1: RANDOM^
2542 032704 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2543 032705 270 10 0 00 037576 ADD AC,[142536475076]
2544 032706 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2545 032707 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
2546 032710 204 11 0 00 000010 BMCMM2: MOVS AC1,AC ;CHECK FOR NO CHANGE
2547 032711 316 11 0 00 000010 CAMN AC1,AC ;IN 8 COMPLEMENTS
2548 032712 254 00 0 00 032704 JRST BMCMM1 ;REJECT IF HALF SAME.
2549
2550 REPEAT 10,<
2551 SETCMM AC1,AC>
2552
2553 032713 462 11 0 00 000010 SETCMM AC1,AC
2554
2555 032714 462 11 0 00 000010 SETCMM AC1,AC
2556
2557 032715 462 11 0 00 000010 SETCMM AC1,AC
2558
2559 032716 462 11 0 00 000010 SETCMM AC1,AC
2560
2561 032717 462 11 0 00 000010 SETCMM AC1,AC
2562
2563 032720 462 11 0 00 000010 SETCMM AC1,AC
2564
2565 032721 462 11 0 00 000010 SETCMM AC1,AC
2566
2567 032722 462 11 0 00 000010 SETCMM AC1,AC
2568 032723 316 11 0 00 000010 CAMN AC1,AC ;EQUAL?
2569 032724 004 11 0 00 000010 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2570 032725 312 10 0 00 037704 CAME AC,RAN ;C(E) SHOULD = ORIG. C(E).
2571 032726 004 10 0 00 037704 ERROR AC,RAN ;SETCMM FAILED.
2572 LOOP BMCMM1,BMCMM2^
2573 032727 367 07 0 00 032704 SOJG AC-1,BMCMM1 ;ITERATION COUNTER
2574 032730 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 33-1
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0074
2575 032731 321 07 0 00 032710 JUMPL AC-1,BMCMM2 ;LOOP ON ERROR SWITCH ^
2576
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 34
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0075
2577
2578 ;TEST SETCAM, WHERE E IS AN AC. TEST FOR NOT
2579 ;STORING IN AC AS WELL AS PROPER STORAGE IN C(E).
2580 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2581
2582 000011 AC=11
2583 032732 BMCAM: SETUP 100,0^
2584 000012 AC1=<AC+1>&17
2585 000013 AC2=<AC+2>&17
2586 000014 AC3=<AC+3>&17
2587 000015 AC4=<AC+4>&17
2588 000016 AC5=<AC+5>&17
2589 000007 RAN1=<AC-2>&17
2590 032732 201 10 0 00 032732 MOVEI AC-1,.
2591 032733 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2592 032734 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2593 032735 202 10 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2594 032736 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2595 032737 240 10 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2596 032740 240 10 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2597 032741 BMCAM1: RANDOM^
2598 032741 200 11 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2599 032742 270 11 0 00 037576 ADD AC,[142536475076]
2600 032743 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2601 032744 447 11 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
2602 032745 204 12 0 00 000011 BMCAM2: MOVS AC1,AC ;SECOND RANDOM NUMBER.
2603 032746 460 00 0 00 000012 SETCM AC1 ;SIMULATE SETCAM.
2604 032747 452 12 0 00 000011 SETCAM AC1,AC ;DO SETCAM.
2605 032750 316 12 0 00 000011 CAMN AC1,AC ;EQUAL?
2606 032751 004 12 0 00 000011 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2607 032752 312 11 0 00 000000 CAME AC,0 ;C(E) SHOULD = SIM. ANS.
2608 032753 004 11 0 00 000000 ERROR AC,0 ;SETCAM FAILED.
2609 LOOP BMCAM1,BMACM2^
2610 032754 367 10 0 00 032741 SOJG AC-1,BMCAM1 ;ITERATION COUNTER
2611 032755 200 11 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2612 032756 321 10 0 00 032627 JUMPL AC-1,BMACM2 ;LOOP ON ERROR SWITCH ^
2613
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 35
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0076
2614
2615 ;TEST SETAM, WHERE E IS AN AC.
2616 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2617
2618 000010 AC=10
2619 032757 BMSA: SETUP 100,0^
2620 000011 AC1=<AC+1>&17
2621 000012 AC2=<AC+2>&17
2622 000013 AC3=<AC+3>&17
2623 000014 AC4=<AC+4>&17
2624 000015 AC5=<AC+5>&17
2625 000006 RAN1=<AC-2>&17
2626 032757 201 07 0 00 032757 MOVEI AC-1,.
2627 032760 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2628 032761 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2629 032762 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2630 032763 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2631 032764 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2632 032765 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2633 032766 BMSA1: RANDOM^
2634 032766 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2635 032767 270 10 0 00 037576 ADD AC,[142536475076]
2636 032770 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2637 032771 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
2638 032772 204 11 0 00 000010 BMSA2: MOVS AC1,AC ;SECOND RANDOM NUMBER
2639 032773 316 11 0 00 000010 CAMN AC1,AC
2640 032774 254 00 0 00 032766 JRST BMSA1 ;REJECT IF SAME.
2641 032775 426 10 0 00 000011 SETAM AC,AC1 ;C(AC) TO C(AC1)
2642 032776 312 10 0 00 000011 CAME AC,AC1 ;EQUAL?
2643 032777 004 10 0 00 000011 ERROR AC,AC1 ;NO.
2644 033000 312 11 0 00 037704 CAME AC1,RAN ;C(E) SHOULD = ORIG C(AC).
2645 033001 004 11 0 00 037704 ERROR AC1,RAN ;SETAM FAILED.
2646 LOOP BMSA1,BMSA2^
2647 033002 367 07 0 00 032766 SOJG AC-1,BMSA1 ;ITERATION COUNTER
2648 033003 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2649 033004 321 07 0 00 032772 JUMPL AC-1,BMSA2 ;LOOP ON ERROR SWITCH ^
2650
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 36
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0077
2651
2652 ;TEST SETOM, WHERE E IS AN AC.
2653 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2654
2655 000010 AC=10
2656 033005 BMSM: SETUP 100,0^
2657 000011 AC1=<AC+1>&17
2658 000012 AC2=<AC+2>&17
2659 000013 AC3=<AC+3>&17
2660 000014 AC4=<AC+4>&17
2661 000015 AC5=<AC+5>&17
2662 000006 RAN1=<AC-2>&17
2663 033005 201 07 0 00 033005 MOVEI AC-1,.
2664 033006 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2665 033007 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2666 033010 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2667 033011 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2668 033012 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2669 033013 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2670 033014 BMSM1: RANDOM^
2671 033014 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2672 033015 270 10 0 00 037576 ADD AC,[142536475076]
2673 033016 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2674 033017 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
2675 033020 204 11 0 00 000010 BMSM2: MOVS AC1,AC ;SECOND RANDOM NUMBER
2676 033021 476 11 0 00 000010 SETOM AC1,AC ;DO SETOM INST.
2677 033022 316 11 0 00 000010 CAMN AC1,AC ;EQUAL?
2678 033023 004 11 0 00 000010 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2679 033024 312 10 0 00 037601 CAME AC,[-1] ;C(E) SHOULD = A -1.
2680 033025 004 10 0 00 037601 ERROR AC,[-1] ;SETOM FAILED.
2681 LOOP BMSM1,BMSM2^
2682 033026 367 07 0 00 033014 SOJG AC-1,BMSM1 ;ITERATION COUNTER
2683 033027 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2684 033030 321 07 0 00 033020 JUMPL AC-1,BMSM2 ;LOOP ON ERROR SWITCH ^
2685
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 37
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0078
2686
2687 ;TEST SETMM, WHERE E IS AN AC.
2688 ;ERRORS ARE IN THE FORM (PC, AC,C(AC),CORRECT)
2689
2690 000010 AC=10
2691 033031 BMSMM: SETUP 100,0^
2692 000011 AC1=<AC+1>&17
2693 000012 AC2=<AC+2>&17
2694 000013 AC3=<AC+3>&17
2695 000014 AC4=<AC+4>&17
2696 000015 AC5=<AC+5>&17
2697 000006 RAN1=<AC-2>&17
2698 033031 201 07 0 00 033031 MOVEI AC-1,.
2699 033032 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2700 033033 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2701 033034 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2702 033035 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2703 033036 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2704 033037 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2705 033040 BMSMM1: RANDOM^
2706 033040 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2707 033041 270 10 0 00 037576 ADD AC,[142536475076]
2708 033042 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2709 033043 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
2710 033044 204 11 0 00 000010 BMSMM2: MOVS AC1,AC ;A SECOND RANDOM NUMBER
2711 033045 316 10 0 00 000011 CAMN AC,AC1 ;REJECT IF
2712 033046 254 00 0 00 033040 JRST BMSMM1 ;HALF SAME
2713 ;DO 8 SETMM...SHOULD NOT CHANGE C(E).
2714 REPEAT 10,<
2715 SETMM AC1,AC>
2716
2717 033047 416 11 0 00 000010 SETMM AC1,AC
2718
2719 033050 416 11 0 00 000010 SETMM AC1,AC
2720
2721 033051 416 11 0 00 000010 SETMM AC1,AC
2722
2723 033052 416 11 0 00 000010 SETMM AC1,AC
2724
2725 033053 416 11 0 00 000010 SETMM AC1,AC
2726
2727 033054 416 11 0 00 000010 SETMM AC1,AC
2728
2729 033055 416 11 0 00 000010 SETMM AC1,AC
2730
2731 033056 416 11 0 00 000010 SETMM AC1,AC
2732 033057 316 11 0 00 000010 CAMN AC1,AC ;EQUAL?
2733 033060 004 11 0 00 000010 ERROR AC1,AC ;YES. INHIBIT STORE AC FAILED.
2734 033061 312 10 0 00 037704 CAME AC,RAN ;C(E) SHOULD = ORIG. C(E).
2735 033062 004 10 0 00 037704 ERROR AC,RAN ;SETMM FAILED.
2736 LOOP BMSMM1,BMSMM2^
2737 033063 367 07 0 00 033040 SOJG AC-1,BMSMM1 ;ITERATION COUNTER
2738 033064 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2739 033065 321 07 0 00 033044 JUMPL AC-1,BMSMM2 ;LOOP ON ERROR SWITCH ^
2740
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 38
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0079
2741
2742 ;TEST SETZM, WHERE E IS AN AC. TESTS FOR NOT STORING
2743 ;IN AC AS WELL AS STORING IN C(E) PROPERLY.
2744
2745 000010 AC=10
2746 033066 SETZM1: SETUP 40,0^
2747 000011 AC1=<AC+1>&17
2748 000012 AC2=<AC+2>&17
2749 000013 AC3=<AC+3>&17
2750 000014 AC4=<AC+4>&17
2751 000015 AC5=<AC+5>&17
2752 000006 RAN1=<AC-2>&17
2753 033066 201 07 0 00 033066 MOVEI AC-1,.
2754 033067 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2755 033070 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2756 033071 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2757 033072 201 07 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
2758 033073 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
2759 033074 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2760 033075 SETZM2: RANDOM^
2761 033075 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2762 033076 270 10 0 00 037576 ADD AC,[142536475076]
2763 033077 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2764 033100 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
2765 033101 322 10 0 00 033075 SETZM3: JUMPE AC,SETZM2 ;REJECT IF C(AC) = 0.
2766 033102 477 11 0 00 000006 SETOB AC1,RAN1 ;SET C(AC) TO ALL ONES.
2767 033103 402 11 0 00 000010 SETZM AC1,AC ;DO SETZM
2768 033104 312 10 0 00 037577 CAME AC,[0] ;DID AC GET CLEARED?
2769 033105 011 00 0 00 000006 EERR ,RAN1 ;NO.
2770 033106 312 11 0 00 037601 CAME AC1,[-1] ;DOES C(AC1) STILL = -1?
2771 033107 011 00 0 00 000006 EERR ,RAN1 ;NO.
2772 LOOP SETZM2,SETZM3^
2773 033110 367 07 0 00 033075 SOJG AC-1,SETZM2 ;ITERATION COUNTER
2774 033111 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2775 033112 321 07 0 00 033101 JUMPL AC-1,SETZM3 ;LOOP ON ERROR SWITCH ^
2776
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 39
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0080
2777
2778 ;TEST ROT LEFT 3X(2X18). CHECKING FOR AC1 NOT CHANGED
2779 ;AS WELL AS C(AC) BEING THE PROPER NUMBER.
2780 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2781
2782 000010 AC=10
2783 033113 ROTL2: SETUP 200,2^
2784 000011 AC1=<AC+1>&17
2785 000012 AC2=<AC+2>&17
2786 000013 AC3=<AC+3>&17
2787 000014 AC4=<AC+4>&17
2788 000015 AC5=<AC+5>&17
2789 000006 RAN1=<AC-2>&17
2790 033113 201 07 0 00 033113 MOVEI AC-1,.
2791 033114 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2792 033115 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2793 033116 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2794 033117 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
2795 033120 240 07 1 00 030673 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
2796 033121 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2797 033122 ROTL2A: RANDOM^
2798 033122 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2799 033123 270 10 0 00 037576 ADD AC,[142536475076]
2800 033124 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2801 033125 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
2802 033126 477 11 0 00 000006 ROTL2B: SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
2803 ;DO 6 X (ROT LEFT 18 PLACES).
2804 REPEAT 3,<
2805 ROT AC,22
2806 ROT AC,22>
2807
2808 033127 241 10 0 00 000022 ROT AC,22
2809 033130 241 10 0 00 000022 ROT AC,22
2810
2811 033131 241 10 0 00 000022 ROT AC,22
2812 033132 241 10 0 00 000022 ROT AC,22
2813
2814 033133 241 10 0 00 000022 ROT AC,22
2815 033134 241 10 0 00 000022 ROT AC,22
2816 033135 312 10 0 00 037704 CAME AC,RAN ;C(AC)SHOULD = C(AC) BEFORE ROT.
2817 033136 013 00 0 00 000022 EERRI ,22
2818 033137 312 11 0 00 037601 CAME AC1,[-1] ;AC1 SHOULD NOT HAVE CHANGED.
2819 033140 001 06 0 00 000022 ERR RAN1,22
2820 LOOP ROTL2A,ROTL2B^
2821 033141 367 07 0 00 033122 SOJG AC-1,ROTL2A ;ITERATION COUNTER
2822 033142 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2823 033143 321 07 0 00 033126 JUMPL AC-1,ROTL2B ;LOOP ON ERROR SWITCH ^
2824
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 40
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0081
2825 ;TEST ROT RIGHT 3X(2X18)..CHECKING FOR AC1 NOT
2826 ;CHANGED AS WELL AS C(AC) ENDING UP BEING
2827 ;THE SAME AS IT WAS BEFORE THE ROT.
2828 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2829
2830 000010 AC=10
2831 033144 ROTR2: SETUP 300,2^
2832 000011 AC1=<AC+1>&17
2833 000012 AC2=<AC+2>&17
2834 000013 AC3=<AC+3>&17
2835 000014 AC4=<AC+4>&17
2836 000015 AC5=<AC+5>&17
2837 000006 RAN1=<AC-2>&17
2838 033144 201 07 0 00 033144 MOVEI AC-1,.
2839 033145 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2840 033146 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2841 033147 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2842 033150 201 07 0 00 000300 MOVEI AC-1,300 ;ROUTINE WEIGHTING
2843 033151 240 07 1 00 030673 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
2844 033152 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2845 033153 ROTR2A: RANDOM^
2846 033153 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2847 033154 270 10 0 00 037576 ADD AC,[142536475076]
2848 033155 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2849 033156 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
2850 033157 477 11 0 00 000006 ROTR2B: SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
2851 ;DO 6 X (ROT RIGHT 18 PLACES).
2852 REPEAT 3,<
2853 ROT AC,-22
2854 ROT AC,-22>
2855
2856 033160 241 10 0 00 777756 ROT AC,-22
2857 033161 241 10 0 00 777756 ROT AC,-22
2858
2859 033162 241 10 0 00 777756 ROT AC,-22
2860 033163 241 10 0 00 777756 ROT AC,-22
2861
2862 033164 241 10 0 00 777756 ROT AC,-22
2863 033165 241 10 0 00 777756 ROT AC,-22
2864 033166 312 10 0 00 037704 CAME AC,RAN ;C(AC) SHOULD = C(AC) BEFORE ROT.
2865 033167 011 00 0 00 777756 EERR ,-22
2866 033170 312 11 0 00 037601 CAME AC1,[-1] ;C(AC1) SHOULD STILL = -1.
2867 033171 003 06 0 00 777756 ERRI RAN1,-22
2868 LOOP ROTR2A,ROTR2B^
2869 033172 367 07 0 00 033153 SOJG AC-1,ROTR2A ;ITERATION COUNTER
2870 033173 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2871 033174 321 07 0 00 033157 JUMPL AC-1,ROTR2B ;LOOP ON ERROR SWITCH ^
2872
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 41
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0082
2873
2874 ;TEST ROT LEFT 3X36. CHECKING FOR AC1 NOT
2875 ;CHANGED AND C(AC) = WHAT IT WAS BEFORE
2876 ;ROT.
2877 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2878
2879 000002 AC=2
2880 033175 RTL36: SETUP 300,2^
2881 000003 AC1=<AC+1>&17
2882 000004 AC2=<AC+2>&17
2883 000005 AC3=<AC+3>&17
2884 000006 AC4=<AC+4>&17
2885 000007 AC5=<AC+5>&17
2886 000000 RAN1=<AC-2>&17
2887 033175 201 01 0 00 033175 MOVEI AC-1,.
2888 033176 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2889 033177 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2890 033200 202 01 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2891 033201 201 01 0 00 000300 MOVEI AC-1,300 ;ROUTINE WEIGHTING
2892 033202 240 01 1 00 030673 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
2893 033203 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2894 033204 RTL36A: RANDOM^
2895 033204 200 02 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2896 033205 270 02 0 00 037576 ADD AC,[142536475076]
2897 033206 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2898 033207 447 02 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
2899 033210 477 03 0 00 000000 RTL36B: SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
2900 ;DO 3 X (ROT LEFT 36 PLACES).
2901 REPEAT 3,<
2902 ROT AC,44>
2903
2904 033211 241 02 0 00 000044 ROT AC,44
2905
2906 033212 241 02 0 00 000044 ROT AC,44
2907
2908 033213 241 02 0 00 000044 ROT AC,44
2909 033214 312 02 0 00 037704 CAME AC,RAN ;C(AC) SHOULD = C(AC) BEFORE ROT.
2910 033215 013 00 0 00 000044 EERRI ,44
2911 033216 312 03 0 00 037601 CAME AC1,[-1] ;C(AC1) SHOULD STILL = -1.
2912 033217 003 00 0 00 000044 ERRI RAN1,44
2913 LOOP RTL36A,RTL36B^
2914 033220 367 01 0 00 033204 SOJG AC-1,RTL36A ;ITERATION COUNTER
2915 033221 200 02 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2916 033222 321 01 0 00 033210 JUMPL AC-1,RTL36B ;LOOP ON ERROR SWITCH ^
2917
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 42
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0083
2918
2919 ;TEST ROT RIGHT 3X36. CHECKING FOR AC1 NOT
2920 ;CHANGED AND C(AC) = WHAT IT DID BEFORE ROT.
2921 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2922
2923 000002 AC=2
2924 033223 RTR36: SETUP 300,2^
2925 000003 AC1=<AC+1>&17
2926 000004 AC2=<AC+2>&17
2927 000005 AC3=<AC+3>&17
2928 000006 AC4=<AC+4>&17
2929 000007 AC5=<AC+5>&17
2930 000000 RAN1=<AC-2>&17
2931 033223 201 01 0 00 033223 MOVEI AC-1,.
2932 033224 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2933 033225 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2934 033226 202 01 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2935 033227 201 01 0 00 000300 MOVEI AC-1,300 ;ROUTINE WEIGHTING
2936 033230 240 01 1 00 030673 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
2937 033231 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2938 033232 RTR36A: RANDOM^
2939 033232 200 02 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2940 033233 270 02 0 00 037576 ADD AC,[142536475076]
2941 033234 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2942 033235 447 02 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
2943 033236 477 03 0 00 000000 RTR36B: SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
2944 ;DO 3 X (ROT RIGHT 36 PLACES).
2945 REPEAT 3,<
2946 ROT AC,-44>
2947
2948 033237 241 02 0 00 777734 ROT AC,-44
2949
2950 033240 241 02 0 00 777734 ROT AC,-44
2951
2952 033241 241 02 0 00 777734 ROT AC,-44
2953 033242 312 02 0 00 037704 CAME AC,RAN ;C(AC) SHOULD = RAN.
2954 033243 013 00 0 00 777734 EERRI ,-44
2955 033244 312 03 0 00 037601 CAME AC1,[-1] ;C(AC1) SHOULD STILL = -1.
2956 033245 003 00 0 00 777734 ERRI RAN1,-44
2957 LOOP RTR36A,RTR36B^
2958 033246 367 01 0 00 033232 SOJG AC-1,RTR36A ;ITERATION COUNTER
2959 033247 200 02 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
2960 033250 321 01 0 00 033236 JUMPL AC-1,RTR36B ;LOOP ON ERROR SWITCH ^
2961
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 43
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0084
2962
2963 ;TEST ROTC LEFT 3X36 THROUGH ALL AC'S CHECKING
2964 ;FOR C(AC) AND C(AC1) BEING EXCHANGED
2965 ;AFTER THE ROTC.
2966 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
2967
2968 000002 AC=2
2969 033251 RTCL: SETUP 100,2^
2970 000003 AC1=<AC+1>&17
2971 000004 AC2=<AC+2>&17
2972 000005 AC3=<AC+3>&17
2973 000006 AC4=<AC+4>&17
2974 000007 AC5=<AC+5>&17
2975 000000 RAN1=<AC-2>&17
2976 033251 201 01 0 00 033251 MOVEI AC-1,.
2977 033252 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2978 033253 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2979 033254 202 01 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2980 033255 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
2981 033256 240 01 1 00 030673 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
2982 033257 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
2983 033260 RTCLA: RANDOM^
2984 033260 200 02 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
2985 033261 270 02 0 00 037576 ADD AC,[142536475076]
2986 033262 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
2987 033263 447 02 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
2988
2989 RTCLB: REPEAT ^D10,<
2990 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
2991 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
2992 ;DO 3 X (ROTC LEFT 36 PLACES).
2993 REPEAT 3,<
2994 ROTC AC,44>
2995 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
2996 EERRI ,44
2997 CAME AC,[-1] ;C(AC) SHOULD = A -1.
2998 ERRI RAN1,44
2999 AC=<AC+1>&17
3000 AC1=<AC+1>&17
3001 >
3002
3003 033264 200 02 0 00 037704 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3004 033265 477 03 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3005 ;DO 3 X (ROTC LEFT 36 PLACES).
3006 REPEAT 3,
3007
3008 033266 245 02 0 00 000044 ROTC AC,44
3009
3010 033267 245 02 0 00 000044 ROTC AC,44
3011
3012 033270 245 02 0 00 000044 ROTC AC,44
3013 033271 312 03 0 00 037704 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
3014 033272 013 00 0 00 000044 EERRI ,44
3015 033273 312 02 0 00 037601 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3016 033274 003 00 0 00 000044 ERRI RAN1,44
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 43-1
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0085
3017 000003 AC=<AC+1>&17
3018 000004 AC1=<AC+1>&17
3019
3020
3021 033275 200 03 0 00 037704 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3022 033276 477 04 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3023 ;DO 3 X (ROTC LEFT 36 PLACES).
3024 REPEAT 3,
3025
3026 033277 245 03 0 00 000044 ROTC AC,44
3027
3028 033300 245 03 0 00 000044 ROTC AC,44
3029
3030 033301 245 03 0 00 000044 ROTC AC,44
3031 033302 312 04 0 00 037704 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
3032 033303 013 00 0 00 000044 EERRI ,44
3033 033304 312 03 0 00 037601 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3034 033305 003 00 0 00 000044 ERRI RAN1,44
3035 000004 AC=<AC+1>&17
3036 000005 AC1=<AC+1>&17
3037
3038
3039 033306 200 04 0 00 037704 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3040 033307 477 05 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3041 ;DO 3 X (ROTC LEFT 36 PLACES).
3042 REPEAT 3,
3043
3044 033310 245 04 0 00 000044 ROTC AC,44
3045
3046 033311 245 04 0 00 000044 ROTC AC,44
3047
3048 033312 245 04 0 00 000044 ROTC AC,44
3049 033313 312 05 0 00 037704 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
3050 033314 013 00 0 00 000044 EERRI ,44
3051 033315 312 04 0 00 037601 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3052 033316 003 00 0 00 000044 ERRI RAN1,44
3053 000005 AC=<AC+1>&17
3054 000006 AC1=<AC+1>&17
3055
3056
3057 033317 200 05 0 00 037704 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3058 033320 477 06 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3059 ;DO 3 X (ROTC LEFT 36 PLACES).
3060 REPEAT 3,
3061
3062 033321 245 05 0 00 000044 ROTC AC,44
3063
3064 033322 245 05 0 00 000044 ROTC AC,44
3065
3066 033323 245 05 0 00 000044 ROTC AC,44
3067 033324 312 06 0 00 037704 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
3068 033325 013 00 0 00 000044 EERRI ,44
3069 033326 312 05 0 00 037601 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3070 033327 003 00 0 00 000044 ERRI RAN1,44
3071 000006 AC=<AC+1>&17
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 43-2
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0086
3072 000007 AC1=<AC+1>&17
3073
3074
3075 033330 200 06 0 00 037704 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3076 033331 477 07 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3077 ;DO 3 X (ROTC LEFT 36 PLACES).
3078 REPEAT 3,
3079
3080 033332 245 06 0 00 000044 ROTC AC,44
3081
3082 033333 245 06 0 00 000044 ROTC AC,44
3083
3084 033334 245 06 0 00 000044 ROTC AC,44
3085 033335 312 07 0 00 037704 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
3086 033336 013 00 0 00 000044 EERRI ,44
3087 033337 312 06 0 00 037601 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3088 033340 003 00 0 00 000044 ERRI RAN1,44
3089 000007 AC=<AC+1>&17
3090 000010 AC1=<AC+1>&17
3091
3092
3093 033341 200 07 0 00 037704 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3094 033342 477 10 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3095 ;DO 3 X (ROTC LEFT 36 PLACES).
3096 REPEAT 3,
3097
3098 033343 245 07 0 00 000044 ROTC AC,44
3099
3100 033344 245 07 0 00 000044 ROTC AC,44
3101
3102 033345 245 07 0 00 000044 ROTC AC,44
3103 033346 312 10 0 00 037704 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
3104 033347 013 00 0 00 000044 EERRI ,44
3105 033350 312 07 0 00 037601 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3106 033351 003 00 0 00 000044 ERRI RAN1,44
3107 000010 AC=<AC+1>&17
3108 000011 AC1=<AC+1>&17
3109
3110
3111 033352 200 10 0 00 037704 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3112 033353 477 11 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3113 ;DO 3 X (ROTC LEFT 36 PLACES).
3114 REPEAT 3,
3115
3116 033354 245 10 0 00 000044 ROTC AC,44
3117
3118 033355 245 10 0 00 000044 ROTC AC,44
3119
3120 033356 245 10 0 00 000044 ROTC AC,44
3121 033357 312 11 0 00 037704 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
3122 033360 013 00 0 00 000044 EERRI ,44
3123 033361 312 10 0 00 037601 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3124 033362 003 00 0 00 000044 ERRI RAN1,44
3125 000011 AC=<AC+1>&17
3126 000012 AC1=<AC+1>&17
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 43-3
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0087
3127
3128
3129 033363 200 11 0 00 037704 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3130 033364 477 12 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3131 ;DO 3 X (ROTC LEFT 36 PLACES).
3132 REPEAT 3,
3133
3134 033365 245 11 0 00 000044 ROTC AC,44
3135
3136 033366 245 11 0 00 000044 ROTC AC,44
3137
3138 033367 245 11 0 00 000044 ROTC AC,44
3139 033370 312 12 0 00 037704 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
3140 033371 013 00 0 00 000044 EERRI ,44
3141 033372 312 11 0 00 037601 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3142 033373 003 00 0 00 000044 ERRI RAN1,44
3143 000012 AC=<AC+1>&17
3144 000013 AC1=<AC+1>&17
3145
3146
3147 033374 200 12 0 00 037704 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3148 033375 477 13 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3149 ;DO 3 X (ROTC LEFT 36 PLACES).
3150 REPEAT 3,
3151
3152 033376 245 12 0 00 000044 ROTC AC,44
3153
3154 033377 245 12 0 00 000044 ROTC AC,44
3155
3156 033400 245 12 0 00 000044 ROTC AC,44
3157 033401 312 13 0 00 037704 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
3158 033402 013 00 0 00 000044 EERRI ,44
3159 033403 312 12 0 00 037601 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3160 033404 003 00 0 00 000044 ERRI RAN1,44
3161 000013 AC=<AC+1>&17
3162 000014 AC1=<AC+1>&17
3163
3164
3165 033405 200 13 0 00 037704 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3166 033406 477 14 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3167 ;DO 3 X (ROTC LEFT 36 PLACES).
3168 REPEAT 3,
3169
3170 033407 245 13 0 00 000044 ROTC AC,44
3171
3172 033410 245 13 0 00 000044 ROTC AC,44
3173
3174 033411 245 13 0 00 000044 ROTC AC,44
3175 033412 312 14 0 00 037704 CAME AC1,RAN ;C(AC1) SHOULD = RAN.
3176 033413 013 00 0 00 000044 EERRI ,44
3177 033414 312 13 0 00 037601 CAME AC,[-1] ;C(AC) SHOULD = A -1.
3178 033415 003 00 0 00 000044 ERRI RAN1,44
3179 000014 AC=<AC+1>&17
3180 000015 AC1=<AC+1>&17
3181
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 43-4
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0088
3182 000002 AC=2
3183 LOOP RTCLA,RTCLB^
3184 033416 367 01 0 00 033260 SOJG AC-1,RTCLA ;ITERATION COUNTER
3185 033417 200 02 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3186 033420 321 01 0 00 033264 JUMPL AC-1,RTCLB ;LOOP ON ERROR SWITCH ^
3187
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 44
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0089
3188
3189 ;TEST ROTC RIGHT 3X36 THROUGH ALL AC'S. CHECKING
3190 ;FOR C(AC) AND C(AC1) BEING EXCHANGED.
3191 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
3192
3193 000002 AC=2
3194 033421 RTCR: SETUP 100,2^
3195 000003 AC1=<AC+1>&17
3196 000004 AC2=<AC+2>&17
3197 000005 AC3=<AC+3>&17
3198 000006 AC4=<AC+4>&17
3199 000007 AC5=<AC+5>&17
3200 000000 RAN1=<AC-2>&17
3201 033421 201 01 0 00 033421 MOVEI AC-1,.
3202 033422 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3203 033423 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3204 033424 202 01 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3205 033425 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3206 033426 240 01 1 00 030673 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
3207 033427 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3208 033430 RTCRA: RANDOM^
3209 033430 200 02 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3210 033431 270 02 0 00 037576 ADD AC,[142536475076]
3211 033432 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3212 033433 447 02 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
3213
3214 RTCRB: REPEAT ^D10,<
3215 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3216 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3217 ;DO 3 X (ROTC RIGHT 36 PLACES).
3218 REPEAT 3,<
3219 ROTC AC,-44>
3220 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3221 EERRI ,-44
3222 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3223 ERRI RAN1,-44
3224 AC=<AC+1>&17
3225 AC1=<AC+1>&17
3226 >
3227
3228 033434 200 02 0 00 037704 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3229 033435 477 03 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3230 ;DO 3 X (ROTC RIGHT 36 PLACES).
3231 REPEAT 3,
3232
3233 033436 245 02 0 00 777734 ROTC AC,-44
3234
3235 033437 245 02 0 00 777734 ROTC AC,-44
3236
3237 033440 245 02 0 00 777734 ROTC AC,-44
3238 033441 312 03 0 00 037704 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3239 033442 013 00 0 00 777734 EERRI ,-44
3240 033443 312 02 0 00 037601 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3241 033444 003 00 0 00 777734 ERRI RAN1,-44
3242 000003 AC=<AC+1>&17
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 44-1
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0090
3243 000004 AC1=<AC+1>&17
3244
3245
3246 033445 200 03 0 00 037704 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3247 033446 477 04 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3248 ;DO 3 X (ROTC RIGHT 36 PLACES).
3249 REPEAT 3,
3250
3251 033447 245 03 0 00 777734 ROTC AC,-44
3252
3253 033450 245 03 0 00 777734 ROTC AC,-44
3254
3255 033451 245 03 0 00 777734 ROTC AC,-44
3256 033452 312 04 0 00 037704 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3257 033453 013 00 0 00 777734 EERRI ,-44
3258 033454 312 03 0 00 037601 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3259 033455 003 00 0 00 777734 ERRI RAN1,-44
3260 000004 AC=<AC+1>&17
3261 000005 AC1=<AC+1>&17
3262
3263
3264 033456 200 04 0 00 037704 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3265 033457 477 05 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3266 ;DO 3 X (ROTC RIGHT 36 PLACES).
3267 REPEAT 3,
3268
3269 033460 245 04 0 00 777734 ROTC AC,-44
3270
3271 033461 245 04 0 00 777734 ROTC AC,-44
3272
3273 033462 245 04 0 00 777734 ROTC AC,-44
3274 033463 312 05 0 00 037704 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3275 033464 013 00 0 00 777734 EERRI ,-44
3276 033465 312 04 0 00 037601 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3277 033466 003 00 0 00 777734 ERRI RAN1,-44
3278 000005 AC=<AC+1>&17
3279 000006 AC1=<AC+1>&17
3280
3281
3282 033467 200 05 0 00 037704 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3283 033470 477 06 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3284 ;DO 3 X (ROTC RIGHT 36 PLACES).
3285 REPEAT 3,
3286
3287 033471 245 05 0 00 777734 ROTC AC,-44
3288
3289 033472 245 05 0 00 777734 ROTC AC,-44
3290
3291 033473 245 05 0 00 777734 ROTC AC,-44
3292 033474 312 06 0 00 037704 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3293 033475 013 00 0 00 777734 EERRI ,-44
3294 033476 312 05 0 00 037601 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3295 033477 003 00 0 00 777734 ERRI RAN1,-44
3296 000006 AC=<AC+1>&17
3297 000007 AC1=<AC+1>&17
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 44-2
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0091
3298
3299
3300 033500 200 06 0 00 037704 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3301 033501 477 07 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3302 ;DO 3 X (ROTC RIGHT 36 PLACES).
3303 REPEAT 3,
3304
3305 033502 245 06 0 00 777734 ROTC AC,-44
3306
3307 033503 245 06 0 00 777734 ROTC AC,-44
3308
3309 033504 245 06 0 00 777734 ROTC AC,-44
3310 033505 312 07 0 00 037704 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3311 033506 013 00 0 00 777734 EERRI ,-44
3312 033507 312 06 0 00 037601 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3313 033510 003 00 0 00 777734 ERRI RAN1,-44
3314 000007 AC=<AC+1>&17
3315 000010 AC1=<AC+1>&17
3316
3317
3318 033511 200 07 0 00 037704 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3319 033512 477 10 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3320 ;DO 3 X (ROTC RIGHT 36 PLACES).
3321 REPEAT 3,
3322
3323 033513 245 07 0 00 777734 ROTC AC,-44
3324
3325 033514 245 07 0 00 777734 ROTC AC,-44
3326
3327 033515 245 07 0 00 777734 ROTC AC,-44
3328 033516 312 10 0 00 037704 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3329 033517 013 00 0 00 777734 EERRI ,-44
3330 033520 312 07 0 00 037601 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3331 033521 003 00 0 00 777734 ERRI RAN1,-44
3332 000010 AC=<AC+1>&17
3333 000011 AC1=<AC+1>&17
3334
3335
3336 033522 200 10 0 00 037704 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3337 033523 477 11 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3338 ;DO 3 X (ROTC RIGHT 36 PLACES).
3339 REPEAT 3,
3340
3341 033524 245 10 0 00 777734 ROTC AC,-44
3342
3343 033525 245 10 0 00 777734 ROTC AC,-44
3344
3345 033526 245 10 0 00 777734 ROTC AC,-44
3346 033527 312 11 0 00 037704 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3347 033530 013 00 0 00 777734 EERRI ,-44
3348 033531 312 10 0 00 037601 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3349 033532 003 00 0 00 777734 ERRI RAN1,-44
3350 000011 AC=<AC+1>&17
3351 000012 AC1=<AC+1>&17
3352
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 44-3
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0092
3353
3354 033533 200 11 0 00 037704 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3355 033534 477 12 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3356 ;DO 3 X (ROTC RIGHT 36 PLACES).
3357 REPEAT 3,
3358
3359 033535 245 11 0 00 777734 ROTC AC,-44
3360
3361 033536 245 11 0 00 777734 ROTC AC,-44
3362
3363 033537 245 11 0 00 777734 ROTC AC,-44
3364 033540 312 12 0 00 037704 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3365 033541 013 00 0 00 777734 EERRI ,-44
3366 033542 312 11 0 00 037601 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3367 033543 003 00 0 00 777734 ERRI RAN1,-44
3368 000012 AC=<AC+1>&17
3369 000013 AC1=<AC+1>&17
3370
3371
3372 033544 200 12 0 00 037704 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3373 033545 477 13 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3374 ;DO 3 X (ROTC RIGHT 36 PLACES).
3375 REPEAT 3,
3376
3377 033546 245 12 0 00 777734 ROTC AC,-44
3378
3379 033547 245 12 0 00 777734 ROTC AC,-44
3380
3381 033550 245 12 0 00 777734 ROTC AC,-44
3382 033551 312 13 0 00 037704 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3383 033552 013 00 0 00 777734 EERRI ,-44
3384 033553 312 12 0 00 037601 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3385 033554 003 00 0 00 777734 ERRI RAN1,-44
3386 000013 AC=<AC+1>&17
3387 000014 AC1=<AC+1>&17
3388
3389
3390 033555 200 13 0 00 037704 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3391 033556 477 14 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3392 ;DO 3 X (ROTC RIGHT 36 PLACES).
3393 REPEAT 3,
3394
3395 033557 245 13 0 00 777734 ROTC AC,-44
3396
3397 033560 245 13 0 00 777734 ROTC AC,-44
3398
3399 033561 245 13 0 00 777734 ROTC AC,-44
3400 033562 312 14 0 00 037704 CAME AC1,RAN ;C(AC1) SHOULD = C(AC) BEFORE ROTC.
3401 033563 013 00 0 00 777734 EERRI ,-44
3402 033564 312 13 0 00 037601 CAME AC,[-1] ;C(AC) SHOULD = C(AC1) BEFORE ROTC.
3403 033565 003 00 0 00 777734 ERRI RAN1,-44
3404 000014 AC=<AC+1>&17
3405 000015 AC1=<AC+1>&17
3406
3407 000002 AC=2
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 44-4
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0093
3408 LOOP RTCRA,RTCRB^
3409 033566 367 01 0 00 033430 SOJG AC-1,RTCRA ;ITERATION COUNTER
3410 033567 200 02 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3411 033570 321 01 0 00 033434 JUMPL AC-1,RTCRB ;LOOP ON ERROR SWITCH ^
3412
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 45
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0094
3413
3414 ;TEST ROT. ROT A RANDOM NUMBER A RANDOM NUMBER OF TIMES
3415 ;IN ONE DIRECTION AND THEN THE SAME NUMBER OF TIMES
3416 ;IN THE OPPOSITE DIRECTION.
3417 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT).
3418
3419 000002 AC=2
3420 033571 ROTLR: SETUP 100,4^
3421 000003 AC1=<AC+1>&17
3422 000004 AC2=<AC+2>&17
3423 000005 AC3=<AC+3>&17
3424 000006 AC4=<AC+4>&17
3425 000007 AC5=<AC+5>&17
3426 000000 RAN1=<AC-2>&17
3427 033571 201 01 0 00 033571 MOVEI AC-1,.
3428 033572 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3429 033573 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3430 033574 202 01 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3431 033575 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
3432 033576 240 01 1 00 030675 ASH AC-1,@CMPLXT+4 ;ROUTINE COMPLEXITY
3433 033577 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3434 033600 ROTLR1: RANDOM^
3435 033600 200 02 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3436 033601 270 02 0 00 037576 ADD AC,[142536475076]
3437 033602 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3438 033603 447 02 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
3439 033604 200 05 0 00 037704 MOVE AC3,RAN ;CHECK TO SEE
3440 033605 404 05 0 00 037602 AND AC3,[377] ;THAT THE RIGHT MOST 8 BITS
3441 033606 322 05 0 00 033600 JUMPE AC3,ROTLR1 ;DO NOT = 0..REJECT IF THEY DO.
3442 033607 210 04 0 00 037704 ROTLR2: MOVN AC2,RAN ;PUT 2'S COMP OF RAN INTO AC2.
3443 033610 477 03 0 00 000000 SETOB AC1,RAN1 ;SET AC+1 TO ALL ONES.
3444 033611 241 02 0 02 000000 ROT AC,(AC) ;ROT AC A RANDOM NUMBER OF TIMES.
3445 033612 241 02 0 04 000000 ROT AC,(AC2) ;ROT AC THE SAME NUM OF TIMES
3446 ;IN THE OPPOSITE DIRECTION.
3447 033613 312 02 0 00 037704 CAME AC,RAN ;C(AC) SHOULD STILL = C(RAN).
3448 033614 004 02 0 00 037704 ERROR AC,RAN
3449 033615 312 03 0 00 037601 CAME AC1,[-1] ;C(AC1) SHOULD STILL = -1.
3450 033616 004 03 0 00 037601 ERROR AC1,[-1]
3451 LOOP ROTLR1,ROTLR2^
3452 033617 367 01 0 00 033600 SOJG AC-1,ROTLR1 ;ITERATION COUNTER
3453 033620 200 02 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3454 033621 321 01 0 00 033607 JUMPL AC-1,ROTLR2 ;LOOP ON ERROR SWITCH ^
3455
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 46
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0095
3456
3457 ;TEST ROTC. DO A ROTC WITH A RANDOM NUMBER A RANDOM
3458 ;NUMBER OF TIMES IN ONE DIRECTION AND THEN THE SAME
3459 ;NUMBER OF TIMES IN THE OPPOSITE DIRECTION.
3460 ;REPEAT THIS TEST FOR ALL AC'S.
3461 ;ERRORS ARE IN THE FORM (PC,AC,C(AC),CORRECT)
3462
3463 000002 AC=2
3464 033622 RTCLR: SETUP 200,3^
3465 000003 AC1=<AC+1>&17
3466 000004 AC2=<AC+2>&17
3467 000005 AC3=<AC+3>&17
3468 000006 AC4=<AC+4>&17
3469 000007 AC5=<AC+5>&17
3470 000000 RAN1=<AC-2>&17
3471 033622 201 01 0 00 033622 MOVEI AC-1,.
3472 033623 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3473 033624 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3474 033625 202 01 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3475 033626 201 01 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
3476 033627 240 01 1 00 030674 ASH AC-1,@CMPLXT+3 ;ROUTINE COMPLEXITY
3477 033630 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3478 033631 RTCLR1: RANDOM^
3479 033631 200 02 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3480 033632 270 02 0 00 037576 ADD AC,[142536475076]
3481 033633 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3482 033634 447 02 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
3483 033635 200 05 0 00 037704 MOVE AC3,RAN ;CHECK TO SEE
3484 033636 404 05 0 00 037602 AND AC3,[377] ;THAT THE RIGHT MOST 8 BITS
3485 033637 322 05 0 00 033631 JUMPE AC3,RTCLR1 ;DO NOT = 0..REJECT IF THEY DO.
3486
3487 RTCLR2: REPEAT ^D10,<
3488 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3489 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3490 SETO AC1, ;SET AC1 TO ALL ONES.
3491 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3492 ;TIMES IN ONE DIRECTION.
3493 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
3494 ;TIMES IN THE OPPOSITE DIRECTION.
3495 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3496 ERROR AC,RAN
3497 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3498 ERROR AC1,[-1]
3499 AC=<AC+1>&17
3500 AC1=<AC+1>&17
3501 AC2=<AC+2>&17
3502
3503 >
3504
3505 033640 200 02 0 00 037704 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3506 033641 210 04 0 00 037704 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3507 033642 474 03 0 00 000000 SETO AC1, ;SET AC1 TO ALL ONES.
3508 033643 245 02 0 02 000000 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3509 ;TIMES IN ONE DIRECTION.
3510 033644 245 02 0 04 000000 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 46-1
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0096
3511 ;TIMES IN THE OPPOSITE DIRECTION.
3512 033645 312 02 0 00 037704 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3513 033646 004 02 0 00 037704 ERROR AC,RAN
3514 033647 312 03 0 00 037601 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3515 033650 004 03 0 00 037601 ERROR AC1,[-1]
3516 000003 AC=<AC+1>&17
3517 000004 AC1=<AC+1>&17
3518 000005 AC2=<AC+2>&17
3519
3520
3521
3522 033651 200 03 0 00 037704 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3523 033652 210 05 0 00 037704 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3524 033653 474 04 0 00 000000 SETO AC1, ;SET AC1 TO ALL ONES.
3525 033654 245 03 0 03 000000 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3526 ;TIMES IN ONE DIRECTION.
3527 033655 245 03 0 05 000000 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
3528 ;TIMES IN THE OPPOSITE DIRECTION.
3529 033656 312 03 0 00 037704 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3530 033657 004 03 0 00 037704 ERROR AC,RAN
3531 033660 312 04 0 00 037601 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3532 033661 004 04 0 00 037601 ERROR AC1,[-1]
3533 000004 AC=<AC+1>&17
3534 000005 AC1=<AC+1>&17
3535 000006 AC2=<AC+2>&17
3536
3537
3538
3539 033662 200 04 0 00 037704 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3540 033663 210 06 0 00 037704 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3541 033664 474 05 0 00 000000 SETO AC1, ;SET AC1 TO ALL ONES.
3542 033665 245 04 0 04 000000 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3543 ;TIMES IN ONE DIRECTION.
3544 033666 245 04 0 06 000000 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
3545 ;TIMES IN THE OPPOSITE DIRECTION.
3546 033667 312 04 0 00 037704 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3547 033670 004 04 0 00 037704 ERROR AC,RAN
3548 033671 312 05 0 00 037601 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3549 033672 004 05 0 00 037601 ERROR AC1,[-1]
3550 000005 AC=<AC+1>&17
3551 000006 AC1=<AC+1>&17
3552 000007 AC2=<AC+2>&17
3553
3554
3555
3556 033673 200 05 0 00 037704 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3557 033674 210 07 0 00 037704 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3558 033675 474 06 0 00 000000 SETO AC1, ;SET AC1 TO ALL ONES.
3559 033676 245 05 0 05 000000 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3560 ;TIMES IN ONE DIRECTION.
3561 033677 245 05 0 07 000000 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
3562 ;TIMES IN THE OPPOSITE DIRECTION.
3563 033700 312 05 0 00 037704 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3564 033701 004 05 0 00 037704 ERROR AC,RAN
3565 033702 312 06 0 00 037601 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 46-2
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0097
3566 033703 004 06 0 00 037601 ERROR AC1,[-1]
3567 000006 AC=<AC+1>&17
3568 000007 AC1=<AC+1>&17
3569 000010 AC2=<AC+2>&17
3570
3571
3572
3573 033704 200 06 0 00 037704 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3574 033705 210 10 0 00 037704 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3575 033706 474 07 0 00 000000 SETO AC1, ;SET AC1 TO ALL ONES.
3576 033707 245 06 0 06 000000 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3577 ;TIMES IN ONE DIRECTION.
3578 033710 245 06 0 10 000000 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
3579 ;TIMES IN THE OPPOSITE DIRECTION.
3580 033711 312 06 0 00 037704 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3581 033712 004 06 0 00 037704 ERROR AC,RAN
3582 033713 312 07 0 00 037601 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3583 033714 004 07 0 00 037601 ERROR AC1,[-1]
3584 000007 AC=<AC+1>&17
3585 000010 AC1=<AC+1>&17
3586 000011 AC2=<AC+2>&17
3587
3588
3589
3590 033715 200 07 0 00 037704 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3591 033716 210 11 0 00 037704 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3592 033717 474 10 0 00 000000 SETO AC1, ;SET AC1 TO ALL ONES.
3593 033720 245 07 0 07 000000 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3594 ;TIMES IN ONE DIRECTION.
3595 033721 245 07 0 11 000000 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
3596 ;TIMES IN THE OPPOSITE DIRECTION.
3597 033722 312 07 0 00 037704 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3598 033723 004 07 0 00 037704 ERROR AC,RAN
3599 033724 312 10 0 00 037601 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3600 033725 004 10 0 00 037601 ERROR AC1,[-1]
3601 000010 AC=<AC+1>&17
3602 000011 AC1=<AC+1>&17
3603 000012 AC2=<AC+2>&17
3604
3605
3606
3607 033726 200 10 0 00 037704 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3608 033727 210 12 0 00 037704 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3609 033730 474 11 0 00 000000 SETO AC1, ;SET AC1 TO ALL ONES.
3610 033731 245 10 0 10 000000 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3611 ;TIMES IN ONE DIRECTION.
3612 033732 245 10 0 12 000000 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
3613 ;TIMES IN THE OPPOSITE DIRECTION.
3614 033733 312 10 0 00 037704 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3615 033734 004 10 0 00 037704 ERROR AC,RAN
3616 033735 312 11 0 00 037601 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3617 033736 004 11 0 00 037601 ERROR AC1,[-1]
3618 000011 AC=<AC+1>&17
3619 000012 AC1=<AC+1>&17
3620 000013 AC2=<AC+2>&17
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 46-3
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0098
3621
3622
3623
3624 033737 200 11 0 00 037704 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3625 033740 210 13 0 00 037704 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3626 033741 474 12 0 00 000000 SETO AC1, ;SET AC1 TO ALL ONES.
3627 033742 245 11 0 11 000000 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3628 ;TIMES IN ONE DIRECTION.
3629 033743 245 11 0 13 000000 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
3630 ;TIMES IN THE OPPOSITE DIRECTION.
3631 033744 312 11 0 00 037704 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3632 033745 004 11 0 00 037704 ERROR AC,RAN
3633 033746 312 12 0 00 037601 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3634 033747 004 12 0 00 037601 ERROR AC1,[-1]
3635 000012 AC=<AC+1>&17
3636 000013 AC1=<AC+1>&17
3637 000014 AC2=<AC+2>&17
3638
3639
3640
3641 033750 200 12 0 00 037704 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3642 033751 210 14 0 00 037704 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3643 033752 474 13 0 00 000000 SETO AC1, ;SET AC1 TO ALL ONES.
3644 033753 245 12 0 12 000000 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3645 ;TIMES IN ONE DIRECTION.
3646 033754 245 12 0 14 000000 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
3647 ;TIMES IN THE OPPOSITE DIRECTION.
3648 033755 312 12 0 00 037704 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3649 033756 004 12 0 00 037704 ERROR AC,RAN
3650 033757 312 13 0 00 037601 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3651 033760 004 13 0 00 037601 ERROR AC1,[-1]
3652 000013 AC=<AC+1>&17
3653 000014 AC1=<AC+1>&17
3654 000015 AC2=<AC+2>&17
3655
3656
3657
3658 033761 200 13 0 00 037704 MOVE AC,RAN ;MOVE A RAN NUM INTO AN AC.
3659 033762 210 15 0 00 037704 MOVN AC2,RAN ;MOVE THE 2'S COMP INTO ANOTHER AC.
3660 033763 474 14 0 00 000000 SETO AC1, ;SET AC1 TO ALL ONES.
3661 033764 245 13 0 13 000000 ROTC AC,(AC) ;ROTC AC A RANDOM NUMBER OF
3662 ;TIMES IN ONE DIRECTION.
3663 033765 245 13 0 15 000000 ROTC AC,(AC2) ;ROTC AC THE SAME NUMBER OF
3664 ;TIMES IN THE OPPOSITE DIRECTION.
3665 033766 312 13 0 00 037704 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3666 033767 004 13 0 00 037704 ERROR AC,RAN
3667 033770 312 14 0 00 037601 CAME AC1,[-1] ;C(AC1) SHOULD STILL =-1
3668 033771 004 14 0 00 037601 ERROR AC1,[-1]
3669 000014 AC=<AC+1>&17
3670 000015 AC1=<AC+1>&17
3671 000016 AC2=<AC+2>&17
3672
3673
3674 000002 AC=2
3675 LOOP RTCLR1,RTCLR2^
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 46-4
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0099
3676 033772 367 01 0 00 033631 SOJG AC-1,RTCLR1 ;ITERATION COUNTER
3677 033773 200 02 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3678 033774 321 01 0 00 033640 JUMPL AC-1,RTCLR2 ;LOOP ON ERROR SWITCH ^
3679
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 47
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0100
3680
3681 ;TEST OVERFLOW ON A ROT LEFT...AROV SHOULD NOT COME UP.
3682
3683 000002 AC=2
3684 033775 ROTOV: SETUP 20,0^
3685 000003 AC1=<AC+1>&17
3686 000004 AC2=<AC+2>&17
3687 000005 AC3=<AC+3>&17
3688 000006 AC4=<AC+4>&17
3689 000007 AC5=<AC+5>&17
3690 000000 RAN1=<AC-2>&17
3691 033775 201 01 0 00 033775 MOVEI AC-1,.
3692 033776 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3693 033777 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3694 034000 202 01 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3695 034001 201 01 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
3696 034002 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3697 034003 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3698 034004 ROTOV1: RANDOM^
3699 034004 200 02 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3700 034005 270 02 0 00 037576 ADD AC,[142536475076]
3701 034006 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3702 034007 447 02 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
3703 034010 322 02 0 00 034004 ROTOV2: JUMPE AC,ROTOV1 ;REJECT IF RAN = 0.
3704 034011 316 02 0 00 037601 CAMN AC,[-1] ;ALSO REJECT IF RAN = -1.
3705 034012 254 00 0 00 034004 JRST ROTOV1
3706 034013 255 10 0 00 034014 JFCL 10,.+1 ;CLEAR OV FLAG.
3707 034014 241 02 0 00 000256 ROT AC,256 ;ROT C(AC) 256 TIMES.
3708 034015 255 10 0 00 034017 JFCL 10,.+2 ;OV FLAG GET SET?
3709 034016 254 00 0 00 034020 JRST .+2 ;NO.
3710 034017 005 02 0 00 037603 ER AC,[ASCII /OV/] ;YES. SHOULD NOT SET ON A ROT.
3711 LOOP ROTOV1,ROTOV2^
3712 034020 367 01 0 00 034004 SOJG AC-1,ROTOV1 ;ITERATION COUNTER
3713 034021 200 02 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3714 034022 321 01 0 00 034010 JUMPL AC-1,ROTOV2 ;LOOP ON ERROR SWITCH ^
3715
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 48
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0101
3716
3717 ;TEST OVERFLOW FLAG ON A ROT RIGHT...SHOULD NEVER GET SET.
3718
3719 000003 AC=3
3720 034023 RTROV: SETUP 20,0^
3721 000004 AC1=<AC+1>&17
3722 000005 AC2=<AC+2>&17
3723 000006 AC3=<AC+3>&17
3724 000007 AC4=<AC+4>&17
3725 000010 AC5=<AC+5>&17
3726 000001 RAN1=<AC-2>&17
3727 034023 201 02 0 00 034023 MOVEI AC-1,.
3728 034024 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3729 034025 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3730 034026 202 02 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3731 034027 201 02 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
3732 034030 240 02 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3733 034031 240 02 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3734 034032 RTROV1: RANDOM^
3735 034032 200 03 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3736 034033 270 03 0 00 037576 ADD AC,[142536475076]
3737 034034 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3738 034035 447 03 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
3739 034036 322 03 0 00 034032 RTROV2: JUMPE AC,RTROV1 ;REJECT IF RAN = 0.
3740 034037 316 03 0 00 037601 CAMN AC,[-1] ;ALSO REJECT IF RAN = -1.
3741 034040 254 00 0 00 034032 JRST RTROV1
3742 034041 255 10 0 00 034042 JFCL 10,.+1 ;CLEAR OVERFLOW FLAG.
3743 034042 241 03 0 00 777522 ROT AC,-256 ;ROT AC RIGHT 256 TIMES.
3744 034043 255 10 0 00 034045 JFCL 10,.+2 ;OVERFLOW FALG GET SET?
3745 034044 254 00 0 00 034046 JRST .+2 ;NO.
3746 034045 005 03 0 00 037603 ER AC,[ASCII /OV/]
3747 LOOP RTROV1,RTROV2^
3748 034046 367 02 0 00 034032 SOJG AC-1,RTROV1 ;ITERATION COUNTER
3749 034047 200 03 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3750 034050 321 02 0 00 034036 JUMPL AC-1,RTROV2 ;LOOP ON ERROR SWITCH ^
3751
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 49
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0102
3752
3753 ;TEST MOVEM. AFTER <MOVEM AC,AC1> FOLLOWED BY
3754 ;<MOVEM AC1,AC>, C(AC) SHOULD = ORIG C(AC).
3755 ;RAN TO RAN1.
3756
3757 000002 AC=2
3758 034051 MVEM1: SETUP 30,0^
3759 000003 AC1=<AC+1>&17
3760 000004 AC2=<AC+2>&17
3761 000005 AC3=<AC+3>&17
3762 000006 AC4=<AC+4>&17
3763 000007 AC5=<AC+5>&17
3764 000000 RAN1=<AC-2>&17
3765 034051 201 01 0 00 034051 MOVEI AC-1,.
3766 034052 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3767 034053 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3768 034054 202 01 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3769 034055 201 01 0 00 000030 MOVEI AC-1,30 ;ROUTINE WEIGHTING
3770 034056 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3771 034057 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3772 034060 MVEM2: RANDOM^
3773 034060 200 02 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3774 034061 270 02 0 00 037576 ADD AC,[142536475076]
3775 034062 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3776 034063 447 02 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
3777 ;DO 3 SETS OF MOVEM'S.
3778 MVEM3: REPEAT 3,<
3779 MOVEM AC,AC1
3780 MOVEM AC1,AC>
3781
3782 034064 202 02 0 00 000003 MOVEM AC,AC1
3783 034065 202 03 0 00 000002 MOVEM AC1,AC
3784
3785 034066 202 02 0 00 000003 MOVEM AC,AC1
3786 034067 202 03 0 00 000002 MOVEM AC1,AC
3787
3788 034070 202 02 0 00 000003 MOVEM AC,AC1
3789 034071 202 03 0 00 000002 MOVEM AC1,AC
3790 034072 312 02 0 00 037704 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
3791 034073 004 02 0 00 037704 ERROR AC,RAN
3792 034074 312 03 0 00 037704 CAME AC1,RAN ;C(AC1) SHOULD ALSO = ORIG. C(AC).
3793 034075 004 03 0 00 037704 ERROR AC1,RAN
3794 LOOP MVEM2,MVEM3^
3795 034076 367 01 0 00 034060 SOJG AC-1,MVEM2 ;ITERATION COUNTER
3796 034077 200 02 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3797 034100 321 01 0 00 034064 JUMPL AC-1,MVEM3 ;LOOP ON ERROR SWITCH ^
3798
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 50
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0103
3799
3800 ;TEST MOVES. AFTER 6 MOVES IN A ROW, THE C(E)
3801 ;SHOULD = ORIG C(E).
3802
3803 000002 AC=2
3804 034101 MVES1: SETUP 200,1^
3805 000003 AC1=<AC+1>&17
3806 000004 AC2=<AC+2>&17
3807 000005 AC3=<AC+3>&17
3808 000006 AC4=<AC+4>&17
3809 000007 AC5=<AC+5>&17
3810 000000 RAN1=<AC-2>&17
3811 034101 201 01 0 00 034101 MOVEI AC-1,.
3812 034102 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3813 034103 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3814 034104 202 01 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3815 034105 201 01 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
3816 034106 240 01 1 00 030672 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
3817 034107 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3818 034110 MVES2: RANDOM^
3819 034110 200 02 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3820 034111 270 02 0 00 037576 ADD AC,[142536475076]
3821 034112 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3822 034113 447 02 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
3823 ;DO 6 MOVE INSTRUCTIONS.
3824 MVES3: REPEAT 3,<
3825 MOVES AC1,AC
3826 MOVES AC1,AC>
3827
3828 034114 203 03 0 00 000002 MOVES AC1,AC
3829 034115 203 03 0 00 000002 MOVES AC1,AC
3830
3831 034116 203 03 0 00 000002 MOVES AC1,AC
3832 034117 203 03 0 00 000002 MOVES AC1,AC
3833
3834 034120 203 03 0 00 000002 MOVES AC1,AC
3835 034121 203 03 0 00 000002 MOVES AC1,AC
3836 034122 312 03 0 00 000002 CAME AC1,AC ;C(AC) SHOULD = C(E).
3837 034123 004 03 0 00 000002 ERROR AC1,AC
3838 034124 312 02 0 00 037704 CAME AC,RAN ;C(E) SHOULD = ORIG C(E).
3839 034125 004 02 0 00 037704 ERROR AC,RAN
3840 LOOP MVES2,MVES3^
3841 034126 367 01 0 00 034110 SOJG AC-1,MVES2 ;ITERATION COUNTER
3842 034127 200 02 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3843 034130 321 01 0 00 034114 JUMPL AC-1,MVES3 ;LOOP ON ERROR SWITCH ^
3844
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 51
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0104
3845
3846 ;TEST MOVS INSTRUCTION...TWO MOVS SHOULD GIVE SAME NUMBER.
3847
3848 000004 AC=4
3849 034131 MOVSA: SETUP 200,2^
3850 000005 AC1=<AC+1>&17
3851 000006 AC2=<AC+2>&17
3852 000007 AC3=<AC+3>&17
3853 000010 AC4=<AC+4>&17
3854 000011 AC5=<AC+5>&17
3855 000002 RAN1=<AC-2>&17
3856 034131 201 03 0 00 034131 MOVEI AC-1,.
3857 034132 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3858 034133 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3859 034134 202 03 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3860 034135 201 03 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
3861 034136 240 03 1 00 030673 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
3862 034137 240 03 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3863 034140 MOVSB: RANDOM^
3864 034140 200 04 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3865 034141 270 04 0 00 037576 ADD AC,[142536475076]
3866 034142 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3867 034143 447 04 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
3868 ;DO 6 MOVS INSTRUCTIONS.
3869 MOVSC: REPEAT 3,<
3870 MOVS AC,AC
3871 MOVS AC,AC>
3872
3873 034144 204 04 0 00 000004 MOVS AC,AC
3874 034145 204 04 0 00 000004 MOVS AC,AC
3875
3876 034146 204 04 0 00 000004 MOVS AC,AC
3877 034147 204 04 0 00 000004 MOVS AC,AC
3878
3879 034150 204 04 0 00 000004 MOVS AC,AC
3880 034151 204 04 0 00 000004 MOVS AC,AC
3881 034152 312 04 0 00 037704 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
3882 034153 011 00 0 00 037704 EERR ,RAN
3883 LOOP MOVSB,MOVSC^
3884 034154 367 03 0 00 034140 SOJG AC-1,MOVSB ;ITERATION COUNTER
3885 034155 200 04 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3886 034156 321 03 0 00 034144 JUMPL AC-1,MOVSC ;LOOP ON ERROR SWITCH ^
3887
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 52
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0105
3888
3889 ;TEST MOVS INSTRUCTION...MOVS FOLLOWED BY ROT SHOULD GIVE
3890 ;SAME NUMBER.
3891
3892 000005 AC=5
3893 034157 MOVS1: SETUP 200,1^
3894 000006 AC1=<AC+1>&17
3895 000007 AC2=<AC+2>&17
3896 000010 AC3=<AC+3>&17
3897 000011 AC4=<AC+4>&17
3898 000012 AC5=<AC+5>&17
3899 000003 RAN1=<AC-2>&17
3900 034157 201 04 0 00 034157 MOVEI AC-1,.
3901 034160 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3902 034161 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3903 034162 202 04 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3904 034163 201 04 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
3905 034164 240 04 1 00 030672 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
3906 034165 240 04 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3907 034166 MOVS2: RANDOM^
3908 034166 200 05 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3909 034167 270 05 0 00 037576 ADD AC,[142536475076]
3910 034170 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3911 034171 447 05 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
3912 034172 204 05 0 00 000005 MOVS3: MOVS AC,AC ;DO MOVS INSTRUCTION.
3913 034173 241 05 0 00 000022 ROT AC,22 ;ROT LEFT 18 PLACES.
3914 034174 312 05 0 00 037704 CAME AC,RAN ;C(AC) SHOULD NOW = RAN.
3915 034175 011 00 0 00 037704 EERR ,RAN
3916 LOOP MOVS2,MOVS3^
3917 034176 367 04 0 00 034166 SOJG AC-1,MOVS2 ;ITERATION COUNTER
3918 034177 200 05 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3919 034200 321 04 0 00 034172 JUMPL AC-1,MOVS3 ;LOOP ON ERROR SWITCH ^
3920
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 53
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0106
3921
3922 ;TEST MOVSM....TWO MOVSM SHOULD GIVE THE ORIG. NUM.
3923
3924 000006 AC=6
3925 034201 MOVSMA: SETUP 300,1^
3926 000007 AC1=<AC+1>&17
3927 000010 AC2=<AC+2>&17
3928 000011 AC3=<AC+3>&17
3929 000012 AC4=<AC+4>&17
3930 000013 AC5=<AC+5>&17
3931 000004 RAN1=<AC-2>&17
3932 034201 201 05 0 00 034201 MOVEI AC-1,.
3933 034202 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3934 034203 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3935 034204 202 05 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3936 034205 201 05 0 00 000300 MOVEI AC-1,300 ;ROUTINE WEIGHTING
3937 034206 240 05 1 00 030672 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
3938 034207 240 05 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3939 034210 MOVSMB: RANDOM^
3940 034210 200 06 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3941 034211 270 06 0 00 037576 ADD AC,[142536475076]
3942 034212 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3943 034213 447 06 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
3944
3945 MOVSMC: REPEAT 3,<
3946 MOVSM AC,AC1
3947 MOVSM AC1,AC>
3948
3949 034214 206 06 0 00 000007 MOVSM AC,AC1
3950 034215 206 07 0 00 000006 MOVSM AC1,AC
3951
3952 034216 206 06 0 00 000007 MOVSM AC,AC1
3953 034217 206 07 0 00 000006 MOVSM AC1,AC
3954
3955 034220 206 06 0 00 000007 MOVSM AC,AC1
3956 034221 206 07 0 00 000006 MOVSM AC1,AC
3957 034222 312 06 0 00 037704 CAME AC,RAN ;C(AC) SHOULD NOW BE = TO RAN.
3958 034223 004 06 0 00 037704 ERROR AC,RAN
3959 LOOP MOVSMB,MOVSMC^
3960 034224 367 05 0 00 034210 SOJG AC-1,MOVSMB ;ITERATION COUNTER
3961 034225 200 06 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
3962 034226 321 05 0 00 034214 JUMPL AC-1,MOVSMC ;LOOP ON ERROR SWITCH ^
3963
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 54
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0107
3964
3965 ;TEST MOVSS...TWO MOVSS SHOULD GIVE THE ORIGINAL NUMBER.
3966
3967 000007 AC=7
3968 034227 MOVSSA: SETUP 200,0^
3969 000010 AC1=<AC+1>&17
3970 000011 AC2=<AC+2>&17
3971 000012 AC3=<AC+3>&17
3972 000013 AC4=<AC+4>&17
3973 000014 AC5=<AC+5>&17
3974 000005 RAN1=<AC-2>&17
3975 034227 201 06 0 00 034227 MOVEI AC-1,.
3976 034230 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
3977 034231 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
3978 034232 202 06 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
3979 034233 201 06 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
3980 034234 240 06 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
3981 034235 240 06 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
3982 034236 MOVSSB: RANDOM^
3983 034236 200 07 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
3984 034237 270 07 0 00 037576 ADD AC,[142536475076]
3985 034240 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
3986 034241 447 07 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
3987 034242 403 00 0 00 000005 MOVSSC: SETZB 0,RAN1 ;CLEAR AC0.
3988
3989 REPEAT 3,<
3990 MOVSS AC
3991 MOVSS AC>
3992
3993 034243 207 00 0 00 000007 MOVSS AC
3994 034244 207 00 0 00 000007 MOVSS AC
3995
3996 034245 207 00 0 00 000007 MOVSS AC
3997 034246 207 00 0 00 000007 MOVSS AC
3998
3999 034247 207 00 0 00 000007 MOVSS AC
4000 034250 207 00 0 00 000007 MOVSS AC
4001 034251 312 07 0 00 037704 CAME AC,RAN ;C(AC) SHOULD NOW BE = TO RAN.
4002 034252 011 00 0 00 000005 EERR ,RAN1
4003 034253 312 00 0 00 037577 CAME [0] ;C(AC0) SHOULD STILL = 0.
4004 034254 011 00 0 00 000005 EERR ,RAN1
4005 LOOP MOVSSB,MOVSSC^
4006 034255 367 06 0 00 034236 SOJG AC-1,MOVSSB ;ITERATION COUNTER
4007 034256 200 07 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4008 034257 321 06 0 00 034242 JUMPL AC-1,MOVSSC ;LOOP ON ERROR SWITCH ^
4009
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 55
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0108
4010
4011 ;TEST MOVSI.
4012
4013 000010 AC=10
4014 034260 MOVSIA: SETUP 100,0^
4015 000011 AC1=<AC+1>&17
4016 000012 AC2=<AC+2>&17
4017 000013 AC3=<AC+3>&17
4018 000014 AC4=<AC+4>&17
4019 000015 AC5=<AC+5>&17
4020 000006 RAN1=<AC-2>&17
4021 034260 201 07 0 00 034260 MOVEI AC-1,.
4022 034261 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4023 034262 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4024 034263 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4025 034264 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4026 034265 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4027 034266 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4028 034267 MOVSIB: RANDOM^
4029 034267 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4030 034270 270 10 0 00 037576 ADD AC,[142536475076]
4031 034271 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4032 034272 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
4033 034273 200 12 0 00 037704 MOVE AC2,RAN ;PUT RAN INTO AN AC.
4034 034274 405 10 0 00 777777 MOVSIC: ANDI AC,-1 ;SIMULATE
4035 034275 241 10 0 00 000022 ROT AC,22 ;A MOVSI INST.
4036 034276 205 11 0 12 000000 MOVSI AC1,(AC2) ;DO MOVSI.
4037 034277 312 11 0 00 000010 CAME AC1,AC ;C(AC1) SHOULD = SIM. ANS.
4038 034300 004 11 0 00 000010 ERROR AC1,AC
4039 LOOP MOVSIB,MOVSIC^
4040 034301 367 07 0 00 034267 SOJG AC-1,MOVSIB ;ITERATION COUNTER
4041 034302 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4042 034303 321 07 0 00 034274 JUMPL AC-1,MOVSIC ;LOOP ON ERROR SWITCH ^
4043
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 56
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0109
4044
4045 ;TEST LSH. SIMULATE A LSH 18 PLACES WITH A MOVSI.
4046
4047 000011 AC=11
4048 034304 LSHA: SETUP 200,1^
4049 000012 AC1=<AC+1>&17
4050 000013 AC2=<AC+2>&17
4051 000014 AC3=<AC+3>&17
4052 000015 AC4=<AC+4>&17
4053 000016 AC5=<AC+5>&17
4054 000007 RAN1=<AC-2>&17
4055 034304 201 10 0 00 034304 MOVEI AC-1,.
4056 034305 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4057 034306 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4058 034307 202 10 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4059 034310 201 10 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
4060 034311 240 10 1 00 030672 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
4061 034312 240 10 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4062 034313 LSHB: RANDOM^
4063 034313 200 11 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4064 034314 270 11 0 00 037576 ADD AC,[142536475076]
4065 034315 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4066 034316 447 11 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
4067 034317 474 12 0 00 000000 LSHC: SETO AC1, ;SET AC+1 TO ALL ONES.
4068 034320 205 13 0 11 000000 MOVSI AC2,(AC) ;SIMULATE LSH 18 PLACES.
4069 034321 242 11 0 00 000022 LSH AC,22 ;DO LSH
4070 034322 312 11 0 00 000013 CAME AC,AC2 ;C(AC) SHOULD = SIM. ANS.
4071 034323 004 11 0 00 000013 ERROR AC,AC2
4072 034324 312 12 0 00 037601 CAME AC1,[-1] ;AC1 GET CHANGED?
4073 034325 004 12 0 00 037601 ERROR AC1,[-1] ;YES.
4074 LOOP LSHB,LSHC^
4075 034326 367 10 0 00 034313 SOJG AC-1,LSHB ;ITERATION COUNTER
4076 034327 200 11 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4077 034330 321 10 0 00 034317 JUMPL AC-1,LSHC ;LOOP ON ERROR SWITCH ^
4078
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 57
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0110
4079
4080 ;TEST LSH RIGHT 18 PLACES.
4081
4082 000010 AC=10
4083 034331 LSH1: SETUP 200,1^
4084 000011 AC1=<AC+1>&17
4085 000012 AC2=<AC+2>&17
4086 000013 AC3=<AC+3>&17
4087 000014 AC4=<AC+4>&17
4088 000015 AC5=<AC+5>&17
4089 000006 RAN1=<AC-2>&17
4090 034331 201 07 0 00 034331 MOVEI AC-1,.
4091 034332 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4092 034333 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4093 034334 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4094 034335 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
4095 034336 240 07 1 00 030672 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
4096 034337 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4097 034340 LSH2: RANDOM^
4098 034340 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4099 034341 270 10 0 00 037576 ADD AC,[142536475076]
4100 034342 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4101 034343 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
4102 034344 477 11 0 00 000006 LSH3: SETOB AC1,RAN1 ;SET C(AC+1) TO ALL ONES.
4103 034345 242 10 0 00 777756 LSH AC,-22 ;DO LSH RIGHT 18 PLACES.
4104 034346 204 12 0 00 037704 MOVS AC2,RAN ;SIMULATE
4105 034347 405 12 0 00 777777 ANDI AC2,-1 ;LSH.
4106 034350 312 10 0 00 000012 CAME AC,AC2 ;C(AC) SHOULD = SIM. ANS.
4107 034351 013 00 0 00 777756 EERRI ,-22
4108 034352 312 11 0 00 037601 CAME AC1,[-1] ;C(AC+1) GET CHANGED?
4109 034353 003 06 0 00 777756 ERRI RAN1,-22
4110 LOOP LSH2,LSH3^
4111 034354 367 07 0 00 034340 SOJG AC-1,LSH2 ;ITERATION COUNTER
4112 034355 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4113 034356 321 07 0 00 034344 JUMPL AC-1,LSH3 ;LOOP ON ERROR SWITCH ^
4114
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 58
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0111
4115
4116 ;TEST ASH ABILITY TO SET OR NOT SET OVERFLOW FLAG.
4117
4118 000010 AC=10
4119 034357 ASHOV: SETUP 30,0^
4120 000011 AC1=<AC+1>&17
4121 000012 AC2=<AC+2>&17
4122 000013 AC3=<AC+3>&17
4123 000014 AC4=<AC+4>&17
4124 000015 AC5=<AC+5>&17
4125 000006 RAN1=<AC-2>&17
4126 034357 201 07 0 00 034357 MOVEI AC-1,.
4127 034360 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4128 034361 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4129 034362 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4130 034363 201 07 0 00 000030 MOVEI AC-1,30 ;ROUTINE WEIGHTING
4131 034364 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4132 034365 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4133 034366 474 10 0 00 000000 ASHOV1: SETO AC, ;SET AC TO ALL ONES..1,1 CONDITION.
4134 034367 255 10 0 00 034370 JFCL 10,.+1 ;CLEAR OV FLAG.
4135 034370 240 10 0 00 000001 ASH AC,1 ;DO ASH.
4136 034371 255 10 0 00 034373 JFCL 10,.+2 ;OVERFLOW FLAG GET SET?
4137 034372 254 00 0 00 034374 JRST .+2 ;NO.
4138 034373 005 10 0 00 037603 ER AC,[ASCII /OV/] ;YES. 1,1 CONDITION SHOULD NOT SET IT.
4139 034374 255 10 0 00 034375 JFCL 10,.+1 ;CLEAR OV FLAG.
4140 034375 400 10 0 00 000000 SETZ AC, ;CLEAR AC...0,0 CONDITION.
4141 034376 240 10 0 00 000001 ASH AC,1 ;DO ASH.
4142 034377 255 10 0 00 034401 JFCL 10,.+2 ;OVERFLOW FLAG GET SET?
4143 034400 254 00 0 00 034402 JRST .+2 ;NO.
4144 034401 005 10 0 00 037603 ER AC,[ASCII /OV/] ;YES. 0,0 COND. SHOULDN'T SET IT.
4145 034402 255 10 0 00 034403 JFCL 10,.+1 ;CLEAR OV FLAG.
4146 034403 205 10 0 00 377777 MOVSI AC,377777 ;SET AC FOR 0,1 CONDITION.
4147 034404 240 10 0 00 000001 ASH AC,1 ;DO ASH.
4148 034405 255 10 0 00 034407 JFCL 10,.+2 ;OVERFLOW FLAG GET SET?
4149 034406 005 10 0 00 037603 ER AC,[ASCII /OV/] ;NO. 0,1 COND. SHOULD SET IT.
4150 034407 255 10 0 00 034410 JFCL 10,.+1 ;CLEAR OV FLAG.
4151 034410 205 10 0 00 400000 MOVSI AC,400000 ;SET AC FOR 1,0 CONDITION.
4152 034411 240 10 0 00 000001 ASH AC,1 ;DO ASH.
4153 034412 255 10 0 00 034414 JFCL 10,.+2 ;OV FLAG GET SET?
4154 034413 005 10 0 00 037603 ER AC,[ASCII /OV/] ;NO. 1,0 COND. SHOULD SET IT.
4155 LOOP ASHOV1,ASHOV1^
4156 034414 367 07 0 00 034366 SOJG AC-1,ASHOV1 ;ITERATION COUNTER
4157 034415 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4158 034416 321 07 0 00 034366 JUMPL AC-1,ASHOV1 ;LOOP ON ERROR SWITCH ^
4159
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 59
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0112
4160
4161 ;TEST ASH. DO ASH RIGHT 36 PLACES WITH ORIG.
4162 ;C(AC) = 400000000000. AFTER ASH THE C(AC) SHOULD = A -1.
4163
4164 000010 AC=10
4165 034417 ASH1: SETUP 20,0^
4166 000011 AC1=<AC+1>&17
4167 000012 AC2=<AC+2>&17
4168 000013 AC3=<AC+3>&17
4169 000014 AC4=<AC+4>&17
4170 000015 AC5=<AC+5>&17
4171 000006 RAN1=<AC-2>&17
4172 034417 201 07 0 00 034417 MOVEI AC-1,.
4173 034420 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4174 034421 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4175 034422 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4176 034423 201 07 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
4177 034424 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4178 034425 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4179 034426 200 10 0 00 037604 ASH2: MOVE AC,[XWD 400000,0] ;MAKE C(AC) = ALL 0'S WITH SIGN BIT SET.
4180 034427 240 10 0 00 777734 ASH AC,-44 ;DO ASH RIGHT 36 PLACES...SIGN
4181 034430 312 10 0 00 037601 CAME AC,[-1] ;BIT SHOULD HAVE SET ALL BITS TO A ONE.
4182 034431 004 10 0 00 037601 ERROR AC,[-1]
4183 LOOP ASH2,ASH2^
4184 034432 367 07 0 00 034426 SOJG AC-1,ASH2 ;ITERATION COUNTER
4185 034433 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4186 034434 321 07 0 00 034426 JUMPL AC-1,ASH2 ;LOOP ON ERROR SWITCH ^
4187
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 60
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0113
4188
4189 ;TEST ASH. DO ASH LEFT 36 PLACES WITH ORIG. C(AC) =
4190 ;TO A -1. AFTER ASH THE C(AC) SHOULD = THE SIGN
4191 ;BIT SET AND THE REST ZEROS.
4192
4193 000011 AC=11
4194 034435 ASH3: SETUP 20,0^
4195 000012 AC1=<AC+1>&17
4196 000013 AC2=<AC+2>&17
4197 000014 AC3=<AC+3>&17
4198 000015 AC4=<AC+4>&17
4199 000016 AC5=<AC+5>&17
4200 000007 RAN1=<AC-2>&17
4201 034435 201 10 0 00 034435 MOVEI AC-1,.
4202 034436 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4203 034437 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4204 034440 202 10 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4205 034441 201 10 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
4206 034442 240 10 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4207 034443 240 10 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4208 034444 200 11 0 00 037601 ASH4: MOVE AC,[-1] ;MAKE C(AC) = A -1.
4209 034445 240 11 0 00 000044 ASH AC,44 ;DO ASH LEFT 36 PLACES..0'S GOING
4210 034446 312 11 0 00 037604 CAME AC,[XWD 400000,0] ;INTO BIT 35 SHOULD JUST LEAVE SIGN BIT SET.
4211 034447 004 11 0 00 037577 ERROR AC,[0]
4212 LOOP ASH4,ASH4^
4213 034450 367 10 0 00 034444 SOJG AC-1,ASH4 ;ITERATION COUNTER
4214 034451 200 11 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4215 034452 321 10 0 00 034444 JUMPL AC-1,ASH4 ;LOOP ON ERROR SWITCH ^
4216
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 61
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0114
4217
4218 ;TEST ADD. RAN TO 0 CONDITION.
4219
4220 000010 AC=10
4221 034453 ADD1: SETUP 100,0^
4222 000011 AC1=<AC+1>&17
4223 000012 AC2=<AC+2>&17
4224 000013 AC3=<AC+3>&17
4225 000014 AC4=<AC+4>&17
4226 000015 AC5=<AC+5>&17
4227 000006 RAN1=<AC-2>&17
4228 034453 201 07 0 00 034453 MOVEI AC-1,.
4229 034454 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4230 034455 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4231 034456 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4232 034457 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4233 034460 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4234 034461 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4235 034462 ADD2: RANDOM^
4236 034462 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4237 034463 270 10 0 00 037576 ADD AC,[142536475076]
4238 034464 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4239 034465 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
4240 034466 400 10 0 00 000000 ADD3: SETZ AC, ;CLEAR AC.
4241 034467 270 10 0 00 037704 ADD AC,RAN ;ADD RAN TO 0.
4242 034470 312 10 0 00 037704 CAME AC,RAN ;C(AC) SHOULD = RAN NUM.
4243 034471 004 10 0 00 037704 ERROR AC,RAN
4244 LOOP ADD2,ADD3^
4245 034472 367 07 0 00 034462 SOJG AC-1,ADD2 ;ITERATION COUNTER
4246 034473 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4247 034474 321 07 0 00 034466 JUMPL AC-1,ADD3 ;LOOP ON ERROR SWITCH ^
4248
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 62
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0115
4249
4250 ; TEST ADD. 0 TO RAN CONDITION.
4251
4252 000010 AC=10
4253 034475 ADD1A: SETUP 100,0^
4254 000011 AC1=<AC+1>&17
4255 000012 AC2=<AC+2>&17
4256 000013 AC3=<AC+3>&17
4257 000014 AC4=<AC+4>&17
4258 000015 AC5=<AC+5>&17
4259 000006 RAN1=<AC-2>&17
4260 034475 201 07 0 00 034475 MOVEI AC-1,.
4261 034476 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4262 034477 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4263 034500 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4264 034501 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4265 034502 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4266 034503 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4267 034504 ADD2A: RANDOM^
4268 034504 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4269 034505 270 10 0 00 037576 ADD AC,[142536475076]
4270 034506 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4271 034507 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
4272 ;ADD A CONSTANT 0 TO RAN 5 TIMES.
4273 ADD3A: REPEAT 5,<
4274 ADD AC,[0]>
4275
4276 034510 270 10 0 00 037577 ADD AC,[0]
4277
4278 034511 270 10 0 00 037577 ADD AC,[0]
4279
4280 034512 270 10 0 00 037577 ADD AC,[0]
4281
4282 034513 270 10 0 00 037577 ADD AC,[0]
4283
4284 034514 270 10 0 00 037577 ADD AC,[0]
4285 034515 312 10 0 00 037704 CAME AC,RAN ;C(AC) SHOULD STILL = RAN NUM.
4286 034516 004 10 0 00 037704 ERROR AC,RAN
4287 LOOP ADD2A,ADD3A^
4288 034517 367 07 0 00 034504 SOJG AC-1,ADD2A ;ITERATION COUNTER
4289 034520 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4290 034521 321 07 0 00 034510 JUMPL AC-1,ADD3A ;LOOP ON ERROR SWITCH ^
4291
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 63
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0116
4292
4293 ;TEST ADD. ADD 1'S COMP OF RAN TO RAN.
4294 ;SHOULD GET A -1.
4295
4296 000010 AC=10
4297 034522 ADD1B: SETUP 100,0^
4298 000011 AC1=<AC+1>&17
4299 000012 AC2=<AC+2>&17
4300 000013 AC3=<AC+3>&17
4301 000014 AC4=<AC+4>&17
4302 000015 AC5=<AC+5>&17
4303 000006 RAN1=<AC-2>&17
4304 034522 201 07 0 00 034522 MOVEI AC-1,.
4305 034523 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4306 034524 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4307 034525 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4308 034526 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4309 034527 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4310 034530 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4311 034531 ADD2B: RANDOM^
4312 034531 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4313 034532 270 10 0 00 037576 ADD AC,[142536475076]
4314 034533 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4315 034534 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
4316 034535 460 11 0 00 037704 ADD3B: SETCM AC1,RAN ;1'S COMP OF RAN TO AC1.
4317 034536 270 10 0 00 000011 ADD AC,AC1 ;ADD IT TO RAN.
4318 034537 312 10 0 00 037601 CAME AC,[-1] ;C(AC) SHOULD = -1.
4319 034540 004 10 0 00 037601 ERROR AC,[-1]
4320 LOOP ADD2B,ADD3B^
4321 034541 367 07 0 00 034531 SOJG AC-1,ADD2B ;ITERATION COUNTER
4322 034542 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4323 034543 321 07 0 00 034535 JUMPL AC-1,ADD3B ;LOOP ON ERROR SWITCH ^
4324
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 64
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0117
4325
4326 ;TEST ADD. CHECK CRY0,CRY1,AND OV FLAGS.
4327 ;ADD, TO A RANDOM NUMBER, A -1 AND THEN A +1.
4328 ;CRY0 AND CRY1 SHOULD BOTH GET SET AND AROV SHOULD NOT GET SET.
4329
4330 000010 AC=10
4331 034544 ADD1C: SETUP 400,2^
4332 000011 AC1=<AC+1>&17
4333 000012 AC2=<AC+2>&17
4334 000013 AC3=<AC+3>&17
4335 000014 AC4=<AC+4>&17
4336 000015 AC5=<AC+5>&17
4337 000006 RAN1=<AC-2>&17
4338 034544 201 07 0 00 034544 MOVEI AC-1,.
4339 034545 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4340 034546 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4341 034547 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4342 034550 201 07 0 00 000400 MOVEI AC-1,400 ;ROUTINE WEIGHTING
4343 034551 240 07 1 00 030673 ASH AC-1,@CMPLXT+2 ;ROUTINE COMPLEXITY
4344 034552 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4345 034553 ADD2C: RANDOM^
4346 034553 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4347 034554 270 10 0 00 037576 ADD AC,[142536475076]
4348 034555 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4349 034556 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
4350 034557 255 17 0 00 034560 ADD3C: JFCL 17,.+1 ;CLEAR ALL FLAGS.
4351 034560 270 10 0 00 037601 ADD AC,[-1] ;ADD A -1 TO RAN.
4352 034561 270 10 0 00 037605 ADD AC,[1] ;ADD A +1 TO ANS OF ADDITION OF RAN AND A -1.
4353 034562 312 10 0 00 037704 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
4354 034563 004 10 0 00 037704 ERROR AC,RAN
4355 034564 255 04 0 00 034570 JFCL 4,CRY0A
4356 034565 255 02 0 00 034567 JFCL 2,.+2
4357 034566 254 00 0 00 034573 JRST BOTHF
4358 034567 005 10 0 00 037606 ER AC,[ASCII /CRY0/];CRY0 FAILED TO GET SET.
4359 034570 255 02 0 00 034572 CRY0A: JFCL 2,.+2
4360 034571 005 10 0 00 037607 ER AC,[ASCII /CRY1/];CRY1 FAILED TO GET SET.
4361 034572 254 00 0 00 034574 JRST AROVA
4362 034573 005 10 0 00 037610 BOTHF: ER AC,[ASCII /CRY01/];BOTH CRY0 + CRY1 FAILED TO GET SET.
4363 034574 255 10 0 00 034576 AROVA: JFCL 10,.+2
4364 034575 254 00 0 00 034577 JRST ADD4C
4365 034576 005 10 0 00 037603 ER AC,[ASCII /OV/] ;AROV GOT SET.
4366 034577 ADD4C: LOOP ADD2C,ADD3C^
4367 034577 367 07 0 00 034553 SOJG AC-1,ADD2C ;ITERATION COUNTER
4368 034600 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4369 034601 321 07 0 00 034557 JUMPL AC-1,ADD3C ;LOOP ON ERROR SWITCH ^
4370
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 65
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0118
4371
4372 ;TEST ADDM. WHERE E IS AN AC.
4373 ;RAN TO 0 CONDITION.
4374
4375 000004 AC=4
4376 034602 ADDM1: SETUP 100,0^
4377 000005 AC1=<AC+1>&17
4378 000006 AC2=<AC+2>&17
4379 000007 AC3=<AC+3>&17
4380 000010 AC4=<AC+4>&17
4381 000011 AC5=<AC+5>&17
4382 000002 RAN1=<AC-2>&17
4383 034602 201 03 0 00 034602 MOVEI AC-1,.
4384 034603 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4385 034604 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4386 034605 202 03 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4387 034606 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4388 034607 240 03 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4389 034610 240 03 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4390 034611 ADDM2: RANDOM^
4391 034611 200 04 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4392 034612 270 04 0 00 037576 ADD AC,[142536475076]
4393 034613 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4394 034614 447 04 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
4395 034615 200 06 0 00 037704 MOVE AC2,RAN ;SAVE RAN IN AN AC.
4396 034616 403 05 0 00 000002 ADDM3: SETZB AC1,RAN1 ;MAKE C(E) = 0.
4397 034617 272 04 0 00 000005 ADDM AC,AC1 ;DO ADDM.
4398 034620 312 06 0 00 000005 CAME AC2,AC1 ;C(E) SHOULD =ORIG C(AC).
4399 034621 002 02 0 00 037704 ERRM RAN1,RAN
4400 LOOP ADDM2,ADDM3^
4401 034622 367 03 0 00 034611 SOJG AC-1,ADDM2 ;ITERATION COUNTER
4402 034623 200 04 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4403 034624 321 03 0 00 034616 JUMPL AC-1,ADDM3 ;LOOP ON ERROR SWITCH ^
4404
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 66
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0119
4405
4406 ;TEST ADDM. WHERE E IS AN AC.
4407 ;0 TO RAN CONDITION.
4408
4409 000005 AC=5
4410 034625 ADDM1A: SETUP 100,0^
4411 000006 AC1=<AC+1>&17
4412 000007 AC2=<AC+2>&17
4413 000010 AC3=<AC+3>&17
4414 000011 AC4=<AC+4>&17
4415 000012 AC5=<AC+5>&17
4416 000003 RAN1=<AC-2>&17
4417 034625 201 04 0 00 034625 MOVEI AC-1,.
4418 034626 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4419 034627 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4420 034630 202 04 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4421 034631 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4422 034632 240 04 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4423 034633 240 04 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4424 034634 ADDM2A: RANDOM^
4425 034634 200 05 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4426 034635 270 05 0 00 037576 ADD AC,[142536475076]
4427 034636 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4428 034637 447 05 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
4429 034640 200 07 0 00 037704 MOVE AC2,RAN ;SAVE RAN IN AN AC.
4430 034641 403 06 0 00 000003 ADDM3A: SETZB AC1,RAN1 ;MAKE C(AC) = 0.
4431 034642 272 06 0 00 000005 ADDM AC1,AC ;DO ADDM.
4432 034643 312 07 0 00 000005 CAME AC2,AC ;C(E) SHOULD = ORIG C(E).
4433 034644 012 00 0 00 000003 EERRM ,RAN1
4434 LOOP ADDM2A,ADDM3A^
4435 034645 367 04 0 00 034634 SOJG AC-1,ADDM2A ;ITERATION COUNTER
4436 034646 200 05 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4437 034647 321 04 0 00 034641 JUMPL AC-1,ADDM3A ;LOOP ON ERROR SWITCH ^
4438
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 67
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0120
4439
4440 ;TEST ADDM. WHERE E IS AN AC.
4441 ;1'S COMP RAN TO RAN.
4442
4443 000006 AC=6
4444 034650 ADDM1B: SETUP 100,0^
4445 000007 AC1=<AC+1>&17
4446 000010 AC2=<AC+2>&17
4447 000011 AC3=<AC+3>&17
4448 000012 AC4=<AC+4>&17
4449 000013 AC5=<AC+5>&17
4450 000004 RAN1=<AC-2>&17
4451 034650 201 05 0 00 034650 MOVEI AC-1,.
4452 034651 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4453 034652 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4454 034653 202 05 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4455 034654 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4456 034655 240 05 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4457 034656 240 05 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4458 034657 ADDM2B: RANDOM^
4459 034657 200 06 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4460 034660 270 06 0 00 037576 ADD AC,[142536475076]
4461 034661 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4462 034662 447 06 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
4463 034663 460 07 0 00 000006 ADDM3B: SETCM AC1,AC ;MAKE C(AC) = 1'S COMP OF C(E).
4464 034664 200 04 0 00 000007 MOVE RAN1,AC1 ;SAVE C(AC) IN CASE OF ERROR.
4465 034665 272 07 0 00 000006 ADDM AC1,AC ;DO ADDM.
4466 034666 312 06 0 00 037601 CAME AC,[-1] ;C(E) SHOULD = A -1.
4467 034667 012 00 0 00 000004 EERRM ,RAN1
4468 LOOP ADDM2B,ADDM3B^
4469 034670 367 05 0 00 034657 SOJG AC-1,ADDM2B ;ITERATION COUNTER
4470 034671 200 06 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4471 034672 321 05 0 00 034663 JUMPL AC-1,ADDM3B ;LOOP ON ERROR SWITCH ^
4472
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 68
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0121
4473
4474 ;TEST ADDI. CHECK C(AC) FOR CORRECT DATA.
4475 ;0 TO RAN CONDITION.
4476
4477 000002 AC=2
4478 034673 ADDI1: SETUP 20,0^
4479 000003 AC1=<AC+1>&17
4480 000004 AC2=<AC+2>&17
4481 000005 AC3=<AC+3>&17
4482 000006 AC4=<AC+4>&17
4483 000007 AC5=<AC+5>&17
4484 000000 RAN1=<AC-2>&17
4485 034673 201 01 0 00 034673 MOVEI AC-1,.
4486 034674 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4487 034675 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4488 034676 202 01 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4489 034677 201 01 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
4490 034700 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4491 034701 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4492 034702 ADDI2: RANDOM^
4493 034702 200 02 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4494 034703 270 02 0 00 037576 ADD AC,[142536475076]
4495 034704 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4496 034705 447 02 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
4497 034706 271 02 0 00 000000 ADDI3: ADDI AC,0 ;DO ADDI.
4498 034707 312 02 0 00 037704 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
4499 034710 013 00 0 00 000000 EERRI ,0
4500 LOOP ADDI2,ADDI3^
4501 034711 367 01 0 00 034702 SOJG AC-1,ADDI2 ;ITERATION COUNTER
4502 034712 200 02 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4503 034713 321 01 0 00 034706 JUMPL AC-1,ADDI3 ;LOOP ON ERROR SWITCH ^
4504
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 69
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0122
4505
4506 ;TEST ADDI. CHECK FOR CORRECT DATA IN AC.
4507 ;RAN TO 0 CONDITION.
4508
4509 000002 AC=2
4510 034714 ADDI1A: SETUP 100,0^
4511 000003 AC1=<AC+1>&17
4512 000004 AC2=<AC+2>&17
4513 000005 AC3=<AC+3>&17
4514 000006 AC4=<AC+4>&17
4515 000007 AC5=<AC+5>&17
4516 000000 RAN1=<AC-2>&17
4517 034714 201 01 0 00 034714 MOVEI AC-1,.
4518 034715 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4519 034716 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4520 034717 202 01 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4521 034720 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4522 034721 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4523 034722 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4524 034723 ADDI2A: RANDOM^
4525 034723 200 02 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4526 034724 270 02 0 00 037576 ADD AC,[142536475076]
4527 034725 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4528 034726 447 02 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
4529 034727 403 03 0 00 000000 ADDI3A: SETZB AC1,RAN1 ;CLEAR C(AC).
4530 034730 201 04 0 02 000000 MOVEI AC2,(AC) ;SIMULATE ADDI.
4531 034731 271 03 0 02 000000 ADDI AC1,(AC) ;DO ADDI.
4532 034732 312 03 0 00 000004 CAME AC1,AC2 ;C(AC) SHOULD = SIM. ANS.
4533 034733 003 00 0 02 000000 ERRI RAN1,(AC)
4534 LOOP ADDI2A,ADDI3A^
4535 034734 367 01 0 00 034723 SOJG AC-1,ADDI2A ;ITERATION COUNTER
4536 034735 200 02 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4537 034736 321 01 0 00 034727 JUMPL AC-1,ADDI3A ;LOOP ON ERROR SWITCH ^
4538
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 70
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0123
4539
4540 ;TEST ADDI. CHECK FOR CORRECT DATA IN AC.
4541 ;1'S COMP RAN TO RAN.
4542
4543 000003 AC=3
4544 034737 ADDI1B: SETUP 40,0^
4545 000004 AC1=<AC+1>&17
4546 000005 AC2=<AC+2>&17
4547 000006 AC3=<AC+3>&17
4548 000007 AC4=<AC+4>&17
4549 000010 AC5=<AC+5>&17
4550 000001 RAN1=<AC-2>&17
4551 034737 201 02 0 00 034737 MOVEI AC-1,.
4552 034740 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4553 034741 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4554 034742 202 02 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4555 034743 201 02 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
4556 034744 240 02 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4557 034745 240 02 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4558 034746 ADDI2B: RANDOM^
4559 034746 200 03 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4560 034747 270 03 0 00 037576 ADD AC,[142536475076]
4561 034750 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4562 034751 447 03 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
4563 034752 460 04 0 00 000003 ADDI3B: SETCM AC1,AC ;MAKE C(AC) = 1'S COMP OF E.
4564 034753 200 05 0 00 000004 MOVE AC2,AC1 ;SIMULATE
4565 034754 435 05 0 00 777777 IORI AC2,-1 ;ADDI INST.
4566 034755 200 01 0 00 000004 MOVE RAN1,AC1 ;SAVE C(AC) IN CASE OF ERROR.
4567 034756 271 04 0 03 000000 ADDI AC1,(AC) ;DO ADDI.
4568 034757 312 04 0 00 000005 CAME AC1,AC2 ;C(AC) SHOULD = SIM. ANS.
4569 034760 003 01 0 03 000000 ERRI RAN1,(AC)
4570 LOOP ADDI2B,ADDI3B^
4571 034761 367 02 0 00 034746 SOJG AC-1,ADDI2B ;ITERATION COUNTER
4572 034762 200 03 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4573 034763 321 02 0 00 034752 JUMPL AC-1,ADDI3B ;LOOP ON ERROR SWITCH ^
4574
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 71
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0124
4575
4576 ;TEST ADDB. CHECK FOR C(AC) = C(E), AND CORRECT
4577 ;DATA IN AC FOR 0 TO RAN CONDITION.
4578
4579 000004 AC=4
4580 034764 ADDB1: SETUP 100,0^
4581 000005 AC1=<AC+1>&17
4582 000006 AC2=<AC+2>&17
4583 000007 AC3=<AC+3>&17
4584 000010 AC4=<AC+4>&17
4585 000011 AC5=<AC+5>&17
4586 000002 RAN1=<AC-2>&17
4587 034764 201 03 0 00 034764 MOVEI AC-1,.
4588 034765 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4589 034766 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4590 034767 202 03 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4591 034770 201 03 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4592 034771 240 03 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4593 034772 240 03 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4594 034773 ADDB2: RANDOM^
4595 034773 200 04 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4596 034774 270 04 0 00 037576 ADD AC,[142536475076]
4597 034775 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4598 034776 447 04 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
4599 034777 403 05 0 00 000002 ADDB3: SETZB AC1,RAN1 ;CLEAR C(E).
4600 035000 273 04 0 00 000005 ADDB AC,AC1 ;DO ADDB.
4601 035001 312 04 0 00 000005 CAME AC,AC1 ;C(AC) SHOULLD = C(E).
4602 035002 001 02 0 00 037704 ERR RAN1,RAN
4603 035003 312 04 0 00 037704 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
4604 035004 001 02 0 00 037704 ERR RAN1,RAN
4605 LOOP ADDB2,ADDB3^
4606 035005 367 03 0 00 034773 SOJG AC-1,ADDB2 ;ITERATION COUNTER
4607 035006 200 04 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4608 035007 321 03 0 00 034777 JUMPL AC-1,ADDB3 ;LOOP ON ERROR SWITCH ^
4609
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 72
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0125
4610
4611 ;TEST ADDB. CHECK FOR C(AC) = C(E), AND CORRECT
4612 ;DATA IN AC FOR RAN TO 0 CONDITION.
4613
4614 000005 AC=5
4615 035010 ADDB1A: SETUP 100,0^
4616 000006 AC1=<AC+1>&17
4617 000007 AC2=<AC+2>&17
4618 000010 AC3=<AC+3>&17
4619 000011 AC4=<AC+4>&17
4620 000012 AC5=<AC+5>&17
4621 000003 RAN1=<AC-2>&17
4622 035010 201 04 0 00 035010 MOVEI AC-1,.
4623 035011 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4624 035012 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4625 035013 202 04 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4626 035014 201 04 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4627 035015 240 04 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4628 035016 240 04 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4629 035017 ADDB2A: RANDOM^
4630 035017 200 05 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4631 035020 270 05 0 00 037576 ADD AC,[142536475076]
4632 035021 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4633 035022 447 05 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
4634 035023 403 06 0 00 000003 ADDB3A: SETZB AC1,RAN1 ;CLEAR C(AC).
4635 035024 273 06 0 00 000005 ADDB AC1,AC ;DO ADDB.
4636 035025 312 06 0 00 000005 CAME AC1,AC ;C(AC) SHOULD = C(E).
4637 035026 011 00 0 00 000003 EERR ,RAN1
4638 035027 312 06 0 00 037704 CAME AC1,RAN ;C(AC) SHOULD = ORIG C(E).
4639 035030 011 00 0 00 000003 EERR ,RAN1
4640 LOOP ADDB2A,ADDB3A^
4641 035031 367 04 0 00 035017 SOJG AC-1,ADDB2A ;ITERATION COUNTER
4642 035032 200 05 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4643 035033 321 04 0 00 035023 JUMPL AC-1,ADDB3A ;LOOP ON ERROR SWITCH ^
4644
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 73
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0126
4645
4646 ;TEST ADDB. CHECK FOR C(AC) = C(E), AND CORRECT DATA
4647 ;IN AC FOR NOT RAN TO RAN CONDITION.
4648
4649 000006 AC=6
4650 035034 ADDB1B: SETUP 100,0^
4651 000007 AC1=<AC+1>&17
4652 000010 AC2=<AC+2>&17
4653 000011 AC3=<AC+3>&17
4654 000012 AC4=<AC+4>&17
4655 000013 AC5=<AC+5>&17
4656 000004 RAN1=<AC-2>&17
4657 035034 201 05 0 00 035034 MOVEI AC-1,.
4658 035035 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4659 035036 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4660 035037 202 05 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4661 035040 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4662 035041 240 05 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4663 035042 240 05 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4664 035043 ADDB2B: RANDOM^
4665 035043 200 06 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4666 035044 270 06 0 00 037576 ADD AC,[142536475076]
4667 035045 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4668 035046 447 06 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
4669 035047 460 07 0 00 000006 ADDB3B: SETCM AC1,AC ;MAKE C(E) = 1'S COMP OF C(AC).
4670 035050 200 04 0 00 000007 MOVE RAN1,AC1 ;SAVE C(E) IN CASE OF ERROR.
4671 035051 273 06 0 00 000007 ADDB AC,AC1 ;DO ADDB.
4672 035052 312 06 0 00 000007 CAME AC,AC1 ;C(AC) SHOULD = C(E).
4673 035053 001 04 0 00 037704 ERR RAN1,RAN
4674 035054 312 06 0 00 037601 CAME AC,[-1] ;C(AC) SHOULD = A -1.
4675 035055 001 04 0 00 037704 ERR RAN1,RAN
4676 LOOP ADDB2B,ADDB3B^
4677 035056 367 05 0 00 035043 SOJG AC-1,ADDB2B ;ITERATION COUNTER
4678 035057 200 06 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4679 035060 321 05 0 00 035047 JUMPL AC-1,ADDB3B ;LOOP ON ERROR SWITCH ^
4680
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 74
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0127
4681
4682 ;TEST SUB. CHECK C(AC) FOR CORRECT DATA.
4683 ;0 TO RAN CONDITION.
4684
4685 000002 AC=2
4686 035061 SUB1: SETUP 100,0^
4687 000003 AC1=<AC+1>&17
4688 000004 AC2=<AC+2>&17
4689 000005 AC3=<AC+3>&17
4690 000006 AC4=<AC+4>&17
4691 000007 AC5=<AC+5>&17
4692 000000 RAN1=<AC-2>&17
4693 035061 201 01 0 00 035061 MOVEI AC-1,.
4694 035062 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4695 035063 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4696 035064 202 01 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4697 035065 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4698 035066 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4699 035067 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4700 035070 SUB2: RANDOM^
4701 035070 200 02 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4702 035071 270 02 0 00 037576 ADD AC,[142536475076]
4703 035072 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4704 035073 447 02 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
4705 035074 403 03 0 00 000000 SUB3: SETZB AC1,RAN1 ;CLEAR C(E).
4706
4707 REPEAT 3,<
4708 SUB AC,AC1>
4709
4710 035075 274 02 0 00 000003 SUB AC,AC1
4711
4712 035076 274 02 0 00 000003 SUB AC,AC1
4713
4714 035077 274 02 0 00 000003 SUB AC,AC1
4715 035100 312 02 0 00 037704 CAME AC,RAN ;C(AC) SHOULD STILL = ORIG C(AC).
4716 035101 001 00 0 00 037704 ERR RAN1,RAN
4717 LOOP SUB2,SUB3^
4718 035102 367 01 0 00 035070 SOJG AC-1,SUB2 ;ITERATION COUNTER
4719 035103 200 02 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4720 035104 321 01 0 00 035074 JUMPL AC-1,SUB3 ;LOOP ON ERROR SWITCH ^
4721
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 75
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0128
4722
4723 ;TEST SUB. CHECK C(AC) FOR CORRECT DATA.
4724 ;RAN TO 0 CONDITION.
4725
4726 000002 AC=2
4727 035105 SUB1A: SETUP 100,0^
4728 000003 AC1=<AC+1>&17
4729 000004 AC2=<AC+2>&17
4730 000005 AC3=<AC+3>&17
4731 000006 AC4=<AC+4>&17
4732 000007 AC5=<AC+5>&17
4733 000000 RAN1=<AC-2>&17
4734 035105 201 01 0 00 035105 MOVEI AC-1,.
4735 035106 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4736 035107 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4737 035110 202 01 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4738 035111 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4739 035112 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4740 035113 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4741 035114 SUB1B: RANDOM^
4742 035114 200 02 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4743 035115 270 02 0 00 037576 ADD AC,[142536475076]
4744 035116 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4745 035117 447 02 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
4746 035120 403 03 0 00 000000 SUB1C: SETZB AC1,RAN1 ;CLEAR C(AC).
4747 035121 210 04 0 00 037704 MOVN AC2,RAN ;ANY NUM FROM 0 = 2'S COMP OF THAT NUM.
4748 035122 274 03 0 00 000002 SUB AC1,AC ;SUBTRACT RAN FROM 0.
4749 035123 312 03 0 00 000004 CAME AC1,AC2 ;C(AC) SHOULD = SIM. ANS.
4750 035124 011 00 0 00 000000 EERR ,RAN1
4751 LOOP SUB1B,SUB1C^
4752 035125 367 01 0 00 035114 SOJG AC-1,SUB1B ;ITERATION COUNTER
4753 035126 200 02 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4754 035127 321 01 0 00 035120 JUMPL AC-1,SUB1C ;LOOP ON ERROR SWITCH ^
4755
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 76
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0129
4756
4757 ;TEST SUB. CHECK C(AC) FOR CORRECT DATA.
4758 ;SUB RAN FROM RAN.
4759
4760 000002 AC=2
4761 035130 SUB2A: SETUP 100,0^
4762 000003 AC1=<AC+1>&17
4763 000004 AC2=<AC+2>&17
4764 000005 AC3=<AC+3>&17
4765 000006 AC4=<AC+4>&17
4766 000007 AC5=<AC+5>&17
4767 000000 RAN1=<AC-2>&17
4768 035130 201 01 0 00 035130 MOVEI AC-1,.
4769 035131 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4770 035132 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4771 035133 202 01 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4772 035134 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4773 035135 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4774 035136 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4775 035137 SUB2B: RANDOM^
4776 035137 200 02 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4777 035140 270 02 0 00 037576 ADD AC,[142536475076]
4778 035141 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4779 035142 447 02 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
4780 035143 200 03 0 00 000002 SUB2C: MOVE AC1,AC ;MAKE C(E) = C(AC).
4781 035144 274 02 0 00 000003 SUB AC,AC1 ;SUB RAN FROM RAN.
4782 035145 312 02 0 00 037577 CAME AC,[0] ;C(AC) SHOULD = 0.
4783 035146 011 00 0 00 037704 EERR ,RAN
4784 LOOP SUB2B,SUB2C^
4785 035147 367 01 0 00 035137 SOJG AC-1,SUB2B ;ITERATION COUNTER
4786 035150 200 02 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4787 035151 321 01 0 00 035143 JUMPL AC-1,SUB2C ;LOOP ON ERROR SWITCH ^
4788
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 77
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0130
4789
4790 ;TEST SUBM. WHERE E IS AN AC.
4791 ;RAN TO 0 CONDITION.
4792
4793 000007 AC=7
4794 035152 SUBM1: SETUP 100,0^
4795 000010 AC1=<AC+1>&17
4796 000011 AC2=<AC+2>&17
4797 000012 AC3=<AC+3>&17
4798 000013 AC4=<AC+4>&17
4799 000014 AC5=<AC+5>&17
4800 000005 RAN1=<AC-2>&17
4801 035152 201 06 0 00 035152 MOVEI AC-1,.
4802 035153 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4803 035154 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4804 035155 202 06 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4805 035156 201 06 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4806 035157 240 06 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4807 035160 240 06 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4808 035161 SUBM2: RANDOM^
4809 035161 200 07 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4810 035162 270 07 0 00 037576 ADD AC,[142536475076]
4811 035163 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4812 035164 447 07 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
4813 035165 403 10 0 00 000005 SUBM3: SETZB AC1,RAN1 ;CLEAR C(AC).
4814 035166 210 11 0 00 000007 MOVN AC2,AC ;SIM SUB..RAN FROM 0 = 2'S COMP RAN.
4815 035167 276 10 0 00 000007 SUBM AC1,AC ;DO SUBM.
4816 035170 312 11 0 00 000007 CAME AC2,AC ;C(E) SHOULD = SIM. ANS.
4817 035171 012 00 0 00 000005 EERRM ,RAN1
4818 LOOP SUBM2,SUBM3^
4819 035172 367 06 0 00 035161 SOJG AC-1,SUBM2 ;ITERATION COUNTER
4820 035173 200 07 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4821 035174 321 06 0 00 035165 JUMPL AC-1,SUBM3 ;LOOP ON ERROR SWITCH ^
4822
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 78
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0131
4823 ;TEST SUBM. SHERE E IS AN AC.
4824 ;0 TO RAN CONDITION.
4825
4826 000010 AC=10
4827 035175 SUBM1A: SETUP 100,0^
4828 000011 AC1=<AC+1>&17
4829 000012 AC2=<AC+2>&17
4830 000013 AC3=<AC+3>&17
4831 000014 AC4=<AC+4>&17
4832 000015 AC5=<AC+5>&17
4833 000006 RAN1=<AC-2>&17
4834 035175 201 07 0 00 035175 MOVEI AC-1,.
4835 035176 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4836 035177 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4837 035200 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4838 035201 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4839 035202 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4840 035203 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4841 035204 SUBM2A: RANDOM^
4842 035204 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4843 035205 270 10 0 00 037576 ADD AC,[142536475076]
4844 035206 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4845 035207 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
4846 035210 200 12 0 00 037704 MOVE AC2,RAN ;SAVE RAN IN AN AC.
4847 035211 403 11 0 00 000006 SUBM3A: SETZB AC1,RAN1 ;CLEAR C(E).
4848 035212 276 10 0 00 000011 SUBM AC,AC1 ;DO SUBM...0 FROM RAN = RAN.
4849 035213 312 12 0 00 000011 CAME AC2,AC1 ;C(E) SHOULD = ORIG C(AC).
4850 035214 002 06 0 00 037704 ERRM RAN1,RAN
4851 035215 312 10 0 00 037704 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
4852 035216 002 06 0 00 037704 ERRM RAN1,RAN
4853 LOOP SUBM2A,SUBM3A^
4854 035217 367 07 0 00 035204 SOJG AC-1,SUBM2A ;ITERATION COUNTER
4855 035220 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4856 035221 321 07 0 00 035211 JUMPL AC-1,SUBM3A ;LOOP ON ERROR SWITCH ^
4857
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 79
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0132
4858
4859 ;TEST SUBM. WHERE E IS AN AC.
4860 ;RAN TO RAN CONDITION.
4861
4862 000011 AC=11
4863 035222 SUBM1B: SETUP 100,0^
4864 000012 AC1=<AC+1>&17
4865 000013 AC2=<AC+2>&17
4866 000014 AC3=<AC+3>&17
4867 000015 AC4=<AC+4>&17
4868 000016 AC5=<AC+5>&17
4869 000007 RAN1=<AC-2>&17
4870 035222 201 10 0 00 035222 MOVEI AC-1,.
4871 035223 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4872 035224 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4873 035225 202 10 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4874 035226 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
4875 035227 240 10 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4876 035230 240 10 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4877 035231 SUBM2B: RANDOM^
4878 035231 200 11 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4879 035232 270 11 0 00 037576 ADD AC,[142536475076]
4880 035233 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4881 035234 447 11 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
4882 035235 200 12 0 00 000011 SUBM3B: MOVE AC1,AC ;MAKE C(E) = C(AC).
4883 035236 276 11 0 00 000012 SUBM AC,AC1 ;DO SUBM.
4884 035237 312 12 0 00 037577 CAME AC1,[0] ;C(E) SHOULD = 0.
4885 035240 012 00 0 00 037704 EERRM ,RAN
4886 035241 312 11 0 00 037704 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
4887 035242 012 00 0 00 037704 EERRM ,RAN
4888 LOOP SUBM2B,SUBM3B^
4889 035243 367 10 0 00 035231 SOJG AC-1,SUBM2B ;ITERATION COUNTER
4890 035244 200 11 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4891 035245 321 10 0 00 035235 JUMPL AC-1,SUBM3B ;LOOP ON ERROR SWITCH ^
4892
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 80
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0133
4893
4894 ;TEST SUBI. CHECK C(AC) FOR CORRECT DATA.
4895 ;0 TO RAN CONDITION.
4896
4897 000010 AC=10
4898 035246 SUBI1: SETUP 20,0^
4899 000011 AC1=<AC+1>&17
4900 000012 AC2=<AC+2>&17
4901 000013 AC3=<AC+3>&17
4902 000014 AC4=<AC+4>&17
4903 000015 AC5=<AC+5>&17
4904 000006 RAN1=<AC-2>&17
4905 035246 201 07 0 00 035246 MOVEI AC-1,.
4906 035247 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4907 035250 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4908 035251 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4909 035252 201 07 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
4910 035253 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4911 035254 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4912 035255 SUBI2: RANDOM^
4913 035255 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4914 035256 270 10 0 00 037576 ADD AC,[142536475076]
4915 035257 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4916 035260 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
4917 035261 275 10 0 00 000000 SUBI3: SUBI AC,0 ;DO SUBI..0 FROM RAN = RAN.
4918 035262 312 10 0 00 037704 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
4919 035263 013 00 0 00 000000 EERRI ,0
4920 LOOP SUBI2,SUBI3^
4921 035264 367 07 0 00 035255 SOJG AC-1,SUBI2 ;ITERATION COUNTER
4922 035265 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4923 035266 321 07 0 00 035261 JUMPL AC-1,SUBI3 ;LOOP ON ERROR SWITCH ^
4924
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 81
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0134
4925
4926 ;TEST SUBI. CHECK C(AC) FOR CORRECT DATA.
4927 ;RAN TO 0 CONDITION.
4928
4929 000010 AC=10
4930 035267 SUBI1A: SETUP 20,0^
4931 000011 AC1=<AC+1>&17
4932 000012 AC2=<AC+2>&17
4933 000013 AC3=<AC+3>&17
4934 000014 AC4=<AC+4>&17
4935 000015 AC5=<AC+5>&17
4936 000006 RAN1=<AC-2>&17
4937 035267 201 07 0 00 035267 MOVEI AC-1,.
4938 035270 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4939 035271 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4940 035272 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4941 035273 201 07 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
4942 035274 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4943 035275 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4944 035276 SUBI2A: RANDOM^
4945 035276 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4946 035277 270 10 0 00 037576 ADD AC,[142536475076]
4947 035300 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4948 035301 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
4949 035302 403 11 0 00 000006 SUBI3A: SETZB AC1,RAN1 ;CLEAR C(AC).
4950 035303 211 12 0 10 000000 MOVNI AC2,(AC) ;SIM SUB..RAN FROM 0 = 2'S COMP RAN.
4951 035304 275 11 0 10 000000 SUBI AC1,(AC) ;DO SUBI.
4952 035305 312 11 0 00 000012 CAME AC1,AC2 ;C(AC) SHOULD = SIM ANS.
4953 035306 003 06 0 10 000000 ERRI RAN1,(AC)
4954 LOOP SUBI2A,SUBI3A^
4955 035307 367 07 0 00 035276 SOJG AC-1,SUBI2A ;ITERATION COUNTER
4956 035310 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4957 035311 321 07 0 00 035302 JUMPL AC-1,SUBI3A ;LOOP ON ERROR SWITCH ^
4958
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 82
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0135
4959
4960 ;TEST SUBI. CHECK C(AC) FOR CORRECT DATA.
4961 ;RAN TO RAN CONDITION.
4962
4963 000010 AC=10
4964 035312 SUBI1B: SETUP 20,0^
4965 000011 AC1=<AC+1>&17
4966 000012 AC2=<AC+2>&17
4967 000013 AC3=<AC+3>&17
4968 000014 AC4=<AC+4>&17
4969 000015 AC5=<AC+5>&17
4970 000006 RAN1=<AC-2>&17
4971 035312 201 07 0 00 035312 MOVEI AC-1,.
4972 035313 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
4973 035314 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
4974 035315 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
4975 035316 201 07 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
4976 035317 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
4977 035320 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
4978 035321 SUBI2B: RANDOM^
4979 035321 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
4980 035322 270 10 0 00 037576 ADD AC,[142536475076]
4981 035323 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
4982 035324 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
4983 035325 200 06 0 00 000010 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
4984 035326 200 11 0 00 000010 SUBI3B: MOVE AC1,AC ;SIMULATE A
4985 035327 404 11 0 00 037611 AND AC1,[XWD -1,0] ;SUBI RAN FROM RAN.
4986 035330 275 10 0 10 000000 SUBI AC,(AC) ;DO SUBI.
4987 035331 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD = SIM. ANS.
4988 035332 003 06 0 06 000000 ERRI RAN1,(RAN1)
4989 LOOP SUBI2B,SUBI3B^
4990 035333 367 07 0 00 035321 SOJG AC-1,SUBI2B ;ITERATION COUNTER
4991 035334 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
4992 035335 321 07 0 00 035326 JUMPL AC-1,SUBI3B ;LOOP ON ERROR SWITCH ^
4993
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 83
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0136
4994
4995 ;TEST SUBB. CHECK THAT C(AC) = C(E) AND C(AC)
4996 ;= CORRECT DATA.
4997 ;0 TO RAN.
4998
4999 000010 AC=10
5000 035336 SUBB1: SETUP 20,0^
5001 000011 AC1=<AC+1>&17
5002 000012 AC2=<AC+2>&17
5003 000013 AC3=<AC+3>&17
5004 000014 AC4=<AC+4>&17
5005 000015 AC5=<AC+5>&17
5006 000006 RAN1=<AC-2>&17
5007 035336 201 07 0 00 035336 MOVEI AC-1,.
5008 035337 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5009 035340 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5010 035341 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5011 035342 201 07 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
5012 035343 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5013 035344 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5014 035345 SUBB2: RANDOM^
5015 035345 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5016 035346 270 10 0 00 037576 ADD AC,[142536475076]
5017 035347 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5018 035350 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
5019 035351 403 11 0 00 000006 SUBB3: SETZB AC1,RAN1 ;CLEAR C(E).
5020 035352 277 10 0 00 000011 SUBB AC,AC1 ;DO SUBB..0 FROM RAN = RAN.
5021 035353 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD = C(E).
5022 035354 001 06 0 00 037704 ERR RAN1,RAN
5023 035355 312 10 0 00 037704 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
5024 035356 001 06 0 00 037704 ERR RAN1,RAN
5025 LOOP SUBB2,SUBB3^
5026 035357 367 07 0 00 035345 SOJG AC-1,SUBB2 ;ITERATION COUNTER
5027 035360 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5028 035361 321 07 0 00 035351 JUMPL AC-1,SUBB3 ;LOOP ON ERROR SWITCH ^
5029
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 84
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0137
5030
5031 ;TEST SUBB. CHECK C(AC) = C(E) AND C(AC) FOR
5032 ;CORRECT DATA.
5033 ;RAN TO 0 CONDITION.
5034
5035 000010 AC=10
5036 035362 SUBB1A: SETUP 20,0^
5037 000011 AC1=<AC+1>&17
5038 000012 AC2=<AC+2>&17
5039 000013 AC3=<AC+3>&17
5040 000014 AC4=<AC+4>&17
5041 000015 AC5=<AC+5>&17
5042 000006 RAN1=<AC-2>&17
5043 035362 201 07 0 00 035362 MOVEI AC-1,.
5044 035363 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5045 035364 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5046 035365 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5047 035366 201 07 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
5048 035367 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5049 035370 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5050 035371 SUBB2A: RANDOM^
5051 035371 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5052 035372 270 10 0 00 037576 ADD AC,[142536475076]
5053 035373 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5054 035374 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
5055 035375 403 11 0 00 000006 SUBB3A: SETZB AC1,RAN1 ;CLEAR C(AC).
5056 035376 210 12 0 00 000010 MOVN AC2,AC ;SIMULATE SUB...RAN FROM 0 = 2'S COMP RAN.
5057 035377 277 11 0 00 000010 SUBB AC1,AC ;DO SUBB.
5058 035400 312 11 0 00 000010 CAME AC1,AC ;C(AC) SHOULD = C(E).
5059 035401 011 00 0 00 000006 EERR ,RAN1
5060 035402 312 11 0 00 000012 CAME AC1,AC2 ;C(AC) SHOULD = SIM. ANS.
5061 035403 011 00 0 00 000006 EERR ,RAN1
5062 LOOP SUBB2A,SUBB3A^
5063 035404 367 07 0 00 035371 SOJG AC-1,SUBB2A ;ITERATION COUNTER
5064 035405 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5065 035406 321 07 0 00 035375 JUMPL AC-1,SUBB3A ;LOOP ON ERROR SWITCH ^
5066
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 85
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0138
5067
5068 ;TEST SUBB. CHECK C(AC) = C(E) AND FOR
5069 ;CORRECT DATA IN AC.
5070 ;RAN TO RAN CONDITION.
5071
5072 000010 AC=10
5073 035407 SUBB1B: SETUP 40,0^
5074 000011 AC1=<AC+1>&17
5075 000012 AC2=<AC+2>&17
5076 000013 AC3=<AC+3>&17
5077 000014 AC4=<AC+4>&17
5078 000015 AC5=<AC+5>&17
5079 000006 RAN1=<AC-2>&17
5080 035407 201 07 0 00 035407 MOVEI AC-1,.
5081 035410 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5082 035411 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5083 035412 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5084 035413 201 07 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
5085 035414 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5086 035415 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5087 035416 SUBB2B: RANDOM^
5088 035416 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5089 035417 270 10 0 00 037576 ADD AC,[142536475076]
5090 035420 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5091 035421 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
5092 035422 200 11 0 00 000010 SUBB3B: MOVE AC1,AC ;MAKE C(E) = C(AC).
5093 035423 277 10 0 00 000011 SUBB AC,AC1 ;DO SUBB..RAN FROM RAN = 0.
5094 035424 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD = C(E).
5095 035425 011 00 0 00 037704 EERR ,RAN
5096 035426 312 10 0 00 037577 CAME AC,[0] ;C(AC) SHOULD = 0.
5097 035427 011 00 0 00 037704 EERR ,RAN
5098 LOOP SUBB2B,SUBB3B^
5099 035430 367 07 0 00 035416 SOJG AC-1,SUBB2B ;ITERATION COUNTER
5100 035431 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5101 035432 321 07 0 00 035422 JUMPL AC-1,SUBB3B ;LOOP ON ERROR SWITCH ^
5102
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 86
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0139
5103
5104
5105 ;TEST MOVEI. CHECK C(AC) FOR CORRECT DATA.
5106 ;RAN TO RAN1.
5107
5108 000002 AC=2
5109 035433 MVEI1: SETUP 20,0^
5110 000003 AC1=<AC+1>&17
5111 000004 AC2=<AC+2>&17
5112 000005 AC3=<AC+3>&17
5113 000006 AC4=<AC+4>&17
5114 000007 AC5=<AC+5>&17
5115 000000 RAN1=<AC-2>&17
5116 035433 201 01 0 00 035433 MOVEI AC-1,.
5117 035434 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5118 035435 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5119 035436 202 01 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5120 035437 201 01 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
5121 035440 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5122 035441 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5123 035442 MVEI2: RANDOM^
5124 035442 200 02 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5125 035443 270 02 0 00 037576 ADD AC,[142536475076]
5126 035444 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5127 035445 447 02 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
5128 035446 200 04 0 00 037704 MOVE AC2,RAN ;SAVE RAN IN AN AC.
5129 035447 207 00 0 00 000002 MVEI3: MOVSS RAN1,AC ;MAKE C(AC) = SEC RAN NUM.
5130 035450 200 03 0 00 037704 MOVE AC1,RAN ;SIMULATE
5131 035451 242 03 0 00 000022 LSH AC1,22 ;A
5132 035452 242 03 0 00 777756 LSH AC1,-22 ;MOVEI.
5133 035453 201 02 0 04 000000 MOVEI AC,(AC2) ;DO A MOVEI.
5134 035454 312 02 0 00 000003 CAME AC,AC1 ;C(AC) SHOULD = SIM. ANS.
5135 035455 003 00 0 04 000000 ERRI RAN1,(AC2)
5136 LOOP MVEI2,MVEI3^
5137 035456 367 01 0 00 035442 SOJG AC-1,MVEI2 ;ITERATION COUNTER
5138 035457 200 02 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5139 035460 321 01 0 00 035447 JUMPL AC-1,MVEI3 ;LOOP ON ERROR SWITCH ^
5140
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 87
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0140
5141
5142 ;TEST MOVN. TWO MOVN INSTRUCTIONS SHOULD NOT CHANGE C(AC).
5143
5144 000002 AC=2
5145 035461 MOVN1: SETUP 200,0^
5146 000003 AC1=<AC+1>&17
5147 000004 AC2=<AC+2>&17
5148 000005 AC3=<AC+3>&17
5149 000006 AC4=<AC+4>&17
5150 000007 AC5=<AC+5>&17
5151 000000 RAN1=<AC-2>&17
5152 035461 201 01 0 00 035461 MOVEI AC-1,.
5153 035462 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5154 035463 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5155 035464 202 01 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5156 035465 201 01 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5157 035466 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5158 035467 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5159 035470 MOVN2: RANDOM^
5160 035470 200 02 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5161 035471 270 02 0 00 037576 ADD AC,[142536475076]
5162 035472 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5163 035473 447 02 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
5164 ;DO 6 X (MOVN RAN TO RAN).
5165 MOVN3: REPEAT 3,<
5166 MOVN AC,AC
5167 MOVN AC,AC>
5168
5169 035474 210 02 0 00 000002 MOVN AC,AC
5170 035475 210 02 0 00 000002 MOVN AC,AC
5171
5172 035476 210 02 0 00 000002 MOVN AC,AC
5173 035477 210 02 0 00 000002 MOVN AC,AC
5174
5175 035500 210 02 0 00 000002 MOVN AC,AC
5176 035501 210 02 0 00 000002 MOVN AC,AC
5177 035502 312 02 0 00 037704 CAME AC,RAN ;C(AC) SHOULD STILL = RAN NUM.
5178 035503 004 02 0 00 037704 ERROR AC,RAN
5179 LOOP MOVN2,MOVN3^
5180 035504 367 01 0 00 035470 SOJG AC-1,MOVN2 ;ITERATION COUNTER
5181 035505 200 02 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5182 035506 321 01 0 00 035474 JUMPL AC-1,MOVN3 ;LOOP ON ERROR SWITCH ^
5183
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 88
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0141
5184
5185 ;TEST MOVNI. CHECK C(AC) FOR CORRECT DATA.
5186 ;RAN TO RAN1.
5187
5188 000002 AC=2
5189 035507 MVNI1: SETUP 40,0^
5190 000003 AC1=<AC+1>&17
5191 000004 AC2=<AC+2>&17
5192 000005 AC3=<AC+3>&17
5193 000006 AC4=<AC+4>&17
5194 000007 AC5=<AC+5>&17
5195 000000 RAN1=<AC-2>&17
5196 035507 201 01 0 00 035507 MOVEI AC-1,.
5197 035510 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5198 035511 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5199 035512 202 01 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5200 035513 201 01 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
5201 035514 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5202 035515 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5203 035516 MVNI2: RANDOM^
5204 035516 200 02 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5205 035517 270 02 0 00 037576 ADD AC,[142536475076]
5206 035520 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5207 035521 447 02 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
5208 035522 200 04 0 00 037704 MOVE AC2,RAN ;SAVE RAN IN AN AC.
5209 035523 207 00 0 00 000002 MVNI3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
5210 035524 201 03 0 04 000000 MOVEI AC1,(AC2) ;SIMULATE
5211 035525 450 03 0 00 000000 SETCA AC1, ;A
5212 035526 270 03 0 00 037605 ADD AC1,[1] ;MOVNI INST.
5213 035527 211 02 0 04 000000 MOVNI AC,(AC2) ;DO A MOVNI.
5214 035530 312 02 0 00 000003 CAME AC,AC1 ;C(AC) SHOULD = SIM. ANS.
5215 035531 003 00 0 04 000000 ERRI RAN1,(AC2)
5216 LOOP MVNI2,MVNI3^
5217 035532 367 01 0 00 035516 SOJG AC-1,MVNI2 ;ITERATION COUNTER
5218 035533 200 02 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5219 035534 321 01 0 00 035523 JUMPL AC-1,MVNI3 ;LOOP ON ERROR SWITCH ^
5220
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 89
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0142
5221
5222 ;TEST MOVNM. WHERE E IS AN AC.
5223 ;CHECK C(E) FOR CORRECT DATA.
5224 ;RAN TO RAN.
5225
5226 000002 AC=2
5227 035535 MVNM1: SETUP 100,0^
5228 000003 AC1=<AC+1>&17
5229 000004 AC2=<AC+2>&17
5230 000005 AC3=<AC+3>&17
5231 000006 AC4=<AC+4>&17
5232 000007 AC5=<AC+5>&17
5233 000000 RAN1=<AC-2>&17
5234 035535 201 01 0 00 035535 MOVEI AC-1,.
5235 035536 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5236 035537 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5237 035540 202 01 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5238 035541 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5239 035542 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5240 035543 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5241 035544 MVNM2: RANDOM^
5242 035544 200 02 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5243 035545 270 02 0 00 037576 ADD AC,[142536475076]
5244 035546 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5245 035547 447 02 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
5246 035550 200 00 0 00 037704 MOVE RAN1,RAN ;SAVE RAN IN AN AC.
5247 035551 200 03 0 00 000002 MVNM3: MOVE AC1,AC ;MAKE C(E) = C(AC).
5248 ;DO 3 X 2(MOVNM).
5249 REPEAT 3,<
5250 MOVNM AC,AC1
5251 MOVNM AC1,AC>
5252
5253 035552 212 02 0 00 000003 MOVNM AC,AC1
5254 035553 212 03 0 00 000002 MOVNM AC1,AC
5255
5256 035554 212 02 0 00 000003 MOVNM AC,AC1
5257 035555 212 03 0 00 000002 MOVNM AC1,AC
5258
5259 035556 212 02 0 00 000003 MOVNM AC,AC1
5260 035557 212 03 0 00 000002 MOVNM AC1,AC
5261 035560 312 00 0 00 000002 CAME RAN1,AC ;C(E) SHOULD = ORIG C(E).
5262 035561 012 00 0 00 037704 EERRM ,RAN
5263 LOOP MVNM2,MVNM3^
5264 035562 367 01 0 00 035544 SOJG AC-1,MVNM2 ;ITERATION COUNTER
5265 035563 200 02 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5266 035564 321 01 0 00 035551 JUMPL AC-1,MVNM3 ;LOOP ON ERROR SWITCH ^
5267
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 90
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0143
5268
5269 ;TEST MOVNS. WHERE E IS AN AC.
5270 ;CHECK PROPER STORING OF C(E) INTO AC.
5271 ;TWO MOVNS = ORIG NUMBER.
5272 ;C(E) = RAN.
5273
5274 000003 AC=3
5275 035565 MVNS1: SETUP 100,0^
5276 000004 AC1=<AC+1>&17
5277 000005 AC2=<AC+2>&17
5278 000006 AC3=<AC+3>&17
5279 000007 AC4=<AC+4>&17
5280 000010 AC5=<AC+5>&17
5281 000001 RAN1=<AC-2>&17
5282 035565 201 02 0 00 035565 MOVEI AC-1,.
5283 035566 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5284 035567 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5285 035570 202 02 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5286 035571 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5287 035572 240 02 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5288 035573 240 02 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5289 035574 MVNS2: RANDOM^
5290 035574 200 03 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5291 035575 270 03 0 00 037576 ADD AC,[142536475076]
5292 035576 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5293 035577 447 03 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
5294 035600 200 05 0 00 037704 MOVE AC2,RAN ;PUT C(RAN) INTO AC2 FOR FUTURE COMPARE.
5295 035601 477 04 0 00 000001 MVNS3: SETOB AC1,RAN1 ;MAKE C(AC) = -1.
5296 ;DO 3 X 2(MOVNS).
5297 REPEAT 3,<
5298 MOVNS AC1,AC
5299 MOVNS AC1,AC>
5300
5301 035602 213 04 0 00 000003 MOVNS AC1,AC
5302 035603 213 04 0 00 000003 MOVNS AC1,AC
5303
5304 035604 213 04 0 00 000003 MOVNS AC1,AC
5305 035605 213 04 0 00 000003 MOVNS AC1,AC
5306
5307 035606 213 04 0 00 000003 MOVNS AC1,AC
5308 035607 213 04 0 00 000003 MOVNS AC1,AC
5309 035610 312 04 0 00 000003 CAME AC1,AC ;C(AC) SHOULD = C(E).
5310 035611 012 00 0 00 000001 EERRM ,RAN1
5311 035612 312 05 0 00 000003 CAME AC2,AC ;C(E) SHOULD = ORIG. C(E).
5312 035613 012 00 0 00 000001 EERRM ,RAN1
5313 LOOP MVNS2,MVNS3^
5314 035614 367 02 0 00 035574 SOJG AC-1,MVNS2 ;ITERATION COUNTER
5315 035615 200 03 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5316 035616 321 02 0 00 035601 JUMPL AC-1,MVNS3 ;LOOP ON ERROR SWITCH ^
5317
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 91
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0144
5318
5319 ;TEST MOVNS. WHERE E IS AN AC.
5320 ;CHECK FOR NOT LOADING C(E) INTO AC WHEN AC= 0.
5321 ;TWO MOVNS = ORIGINAL NUM.
5322 ;C(E) = RAN.
5323
5324 000010 AC=10
5325 035617 MVNSA: SETUP 40,0^
5326 000011 AC1=<AC+1>&17
5327 000012 AC2=<AC+2>&17
5328 000013 AC3=<AC+3>&17
5329 000014 AC4=<AC+4>&17
5330 000015 AC5=<AC+5>&17
5331 000006 RAN1=<AC-2>&17
5332 035617 201 07 0 00 035617 MOVEI AC-1,.
5333 035620 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5334 035621 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5335 035622 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5336 035623 201 07 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
5337 035624 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5338 035625 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5339 035626 MVNSB: RANDOM^
5340 035626 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5341 035627 270 10 0 00 037576 ADD AC,[142536475076]
5342 035630 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5343 035631 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
5344 035632 200 12 0 00 037704 MOVE AC2,RAN ;SAVE RAN IN AN AC.
5345 035633 477 00 0 00 000006 MVNSC: SETOB RAN1 ;MAKE C(AC) = -1.
5346 ;DO 3 X 2(MOVNS).
5347 REPEAT 3,<
5348 MOVNS AC
5349 MOVNS AC>
5350
5351 035634 213 00 0 00 000010 MOVNS AC
5352 035635 213 00 0 00 000010 MOVNS AC
5353
5354 035636 213 00 0 00 000010 MOVNS AC
5355 035637 213 00 0 00 000010 MOVNS AC
5356
5357 035640 213 00 0 00 000010 MOVNS AC
5358 035641 213 00 0 00 000010 MOVNS AC
5359 035642 316 00 0 00 000010 CAMN AC ;C(AC) SHOULD NOT = C(E).
5360 035643 012 00 0 00 000006 EERRM ,RAN1
5361 035644 312 12 0 00 000010 CAME AC2,AC ;C(AC) SHOULD = ORIG C(AC).
5362 035645 012 00 0 00 000006 EERRM ,RAN1
5363 LOOP MVNSB, MVNSC^
5364 035646 367 07 0 00 035626 SOJG AC-1,MVNSB ;ITERATION COUNTER
5365 035647 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5366 035650 321 07 0 00 035633 JUMPL AC-1, MVNSC ;LOOP ON ERROR SWITCH ^
5367
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 92
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0145
5368
5369 ;TEST MOVM. CHECK F(AC) FOR CORRECT DATA.
5370 ;RAN TO RAN1.
5371
5372 000007 AC=7
5373 035651 MVM1: SETUP 40,0^
5374 000010 AC1=<AC+1>&17
5375 000011 AC2=<AC+2>&17
5376 000012 AC3=<AC+3>&17
5377 000013 AC4=<AC+4>&17
5378 000014 AC5=<AC+5>&17
5379 000005 RAN1=<AC-2>&17
5380 035651 201 06 0 00 035651 MOVEI AC-1,.
5381 035652 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5382 035653 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5383 035654 202 06 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5384 035655 201 06 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
5385 035656 240 06 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5386 035657 240 06 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5387 035660 MVM2: RANDOM^
5388 035660 200 07 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5389 035661 270 07 0 00 037576 ADD AC,[142536475076]
5390 035662 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5391 035663 447 07 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
5392 035664 207 05 0 00 000007 MVM3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
5393 035665 200 10 0 00 037704 MOVE AC1,RAN ;C(E) = 1ST RAN NUM.
5394 035666 460 11 0 00 000010 SETCM AC2,AC1 ;SIMULATE
5395 035667 607 10 0 00 400000 TLNN AC1,400000 ;A
5396 035670 200 11 0 00 000010 MOVE AC2,AC1 ;MOVM
5397 035671 603 10 0 00 400000 TLNE AC1,400000 ;INST.
5398 035672 270 11 0 00 037605 ADD AC2,[1]
5399 035673 214 07 0 00 000010 MOVM AC,AC1 ;DO A MOVM.
5400 035674 312 07 0 00 000011 CAME AC,AC2 ;C(AC) SHOULD = SIM. ANS.
5401 035675 011 00 0 00 000005 EERR ,RAN1
5402 LOOP MVM2, MVM3^
5403 035676 367 06 0 00 035660 SOJG AC-1,MVM2 ;ITERATION COUNTER
5404 035677 200 07 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5405 035700 321 06 0 00 035664 JUMPL AC-1, MVM3 ;LOOP ON ERROR SWITCH ^
5406
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 93
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0146
5407
5408 ;TEST MOVMI. CHECK C(AC) FOR CORRECT DATA.
5409 ;RAN TO RAN1.
5410
5411 000010 AC=10
5412 035701 MVMI1: SETUP 40,0^
5413 000011 AC1=<AC+1>&17
5414 000012 AC2=<AC+2>&17
5415 000013 AC3=<AC+3>&17
5416 000014 AC4=<AC+4>&17
5417 000015 AC5=<AC+5>&17
5418 000006 RAN1=<AC-2>&17
5419 035701 201 07 0 00 035701 MOVEI AC-1,.
5420 035702 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5421 035703 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5422 035704 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5423 035705 201 07 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
5424 035706 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5425 035707 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5426 035710 MVMI2: RANDOM^
5427 035710 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5428 035711 270 10 0 00 037576 ADD AC,[142536475076]
5429 035712 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5430 035713 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
5431 035714 201 11 0 00 000010 MVMI3: MOVEI AC1,AC ;SIMULATE A MOVMI INST...MOVEI.
5432 035715 207 06 0 00 000010 MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
5433 035716 215 10 0 11 000000 MOVMI AC,(AC1) ;DO MOVMI.
5434 035717 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD = SIM ANS.
5435 035720 003 06 0 11 000000 ERRI RAN1,(AC1)
5436 LOOP MVMI2, MVMI3^
5437 035721 367 07 0 00 035710 SOJG AC-1,MVMI2 ;ITERATION COUNTER
5438 035722 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5439 035723 321 07 0 00 035714 JUMPL AC-1, MVMI3 ;LOOP ON ERROR SWITCH ^
5440
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 94
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0147
5441
5442 ;TEST MOVMM. CHECK C(AC) + C(E) FOR CORRECT DATA.
5443 ;RAN TO RAN1.
5444
5445 000011 AC=11
5446 035724 MVMM1: SETUP 200,0^
5447 000012 AC1=<AC+1>&17
5448 000013 AC2=<AC+2>&17
5449 000014 AC3=<AC+3>&17
5450 000015 AC4=<AC+4>&17
5451 000016 AC5=<AC+5>&17
5452 000007 RAN1=<AC-2>&17
5453 035724 201 10 0 00 035724 MOVEI AC-1,.
5454 035725 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5455 035726 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5456 035727 202 10 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5457 035730 201 10 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5458 035731 240 10 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5459 035732 240 10 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5460 035733 MVMM2: RANDOM^
5461 035733 200 11 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5462 035734 270 11 0 00 037576 ADD AC,[142536475076]
5463 035735 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5464 035736 447 11 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
5465 035737 207 07 0 00 000011 MVMM3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
5466 035740 200 12 0 00 037704 MOVE AC1,RAN ;C(E) = RAN.
5467 035741 460 13 0 00 000011 SETCM AC2,AC ;SIMULATE
5468 035742 607 11 0 00 400000 TLNN AC,400000 ;A
5469 035743 200 13 0 00 000011 MOVE AC2,AC ;MOVMM
5470 035744 603 11 0 00 400000 TLNE AC,400000 ;INST
5471 035745 270 13 0 00 037605 ADD AC2,[1]
5472 035746 216 11 0 00 000012 MOVMM AC,AC1 ;DO A MOVMM INST.
5473 035747 312 11 0 00 000007 CAME AC,RAN1 ;C(AC) SHOULD = ORIG C(AC).
5474 035750 012 00 0 00 000007 EERRM ,RAN1
5475 035751 312 12 0 00 000013 CAME AC1,AC2 ;C(E) SHOULD = SIM. ANS.
5476 035752 012 00 0 00 000007 EERRM ,RAN1
5477 LOOP MVMM2, MVMM3^
5478 035753 367 10 0 00 035733 SOJG AC-1,MVMM2 ;ITERATION COUNTER
5479 035754 200 11 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5480 035755 321 10 0 00 035737 JUMPL AC-1, MVMM3 ;LOOP ON ERROR SWITCH ^
5481
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 95
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0148
5482
5483 ;TEST MOVMS. CHECK C(E) FOR CORRECT DATA.
5484 ;RAN TO RAN1.
5485
5486 000010 AC=10
5487 035756 MVMS1: SETUP 200,0^
5488 000011 AC1=<AC+1>&17
5489 000012 AC2=<AC+2>&17
5490 000013 AC3=<AC+3>&17
5491 000014 AC4=<AC+4>&17
5492 000015 AC5=<AC+5>&17
5493 000006 RAN1=<AC-2>&17
5494 035756 201 07 0 00 035756 MOVEI AC-1,.
5495 035757 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5496 035760 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5497 035761 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5498 035762 201 07 0 00 000200 MOVEI AC-1,200 ;ROUTINE WEIGHTING
5499 035763 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5500 035764 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5501 035765 MVMS2: RANDOM^
5502 035765 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5503 035766 270 10 0 00 037576 ADD AC,[142536475076]
5504 035767 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5505 035770 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
5506 035771 207 06 0 00 000010 MVMS3: MOVSS RAN1,AC ;C(AC) = SEC RAN NUM.
5507 035772 200 11 0 00 037704 MOVE AC1,RAN ;C(E) = RAN.
5508 035773 460 12 0 00 037704 SETCM AC2,RAN ;SIMULATE
5509 035774 607 11 0 00 400000 TLNN AC1,400000 ;A
5510 035775 200 12 0 00 000011 MOVE AC2,AC1 ;MOVMS
5511 035776 603 11 0 00 400000 TLNE AC1,400000 ;INST.
5512 035777 270 12 0 00 037605 ADD AC2,[1]
5513 036000 217 10 0 00 000011 MOVMS AC,AC1 ;DO A MOVMS.
5514 036001 312 10 0 00 000011 CAME AC,AC1 ;C(AC) SHOULD = C(E).
5515 036002 012 00 0 00 000006 EERRM ,RAN1
5516 036003 312 11 0 00 000012 CAME AC1,AC2 ;C(E) SHOULD = SIM. ANS.
5517 036004 012 00 0 00 000006 EERRM ,RAN1
5518 LOOP MVMS2, MVMS3^
5519 036005 367 07 0 00 035765 SOJG AC-1,MVMS2 ;ITERATION COUNTER
5520 036006 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5521 036007 321 07 0 00 035771 JUMPL AC-1, MVMS3 ;LOOP ON ERROR SWITCH ^
5522
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 96
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0149
5523
5524 ;TEST LSH. A LSH LEFT AND A LSH RIGHT SHOULD
5525 ;GIVE THE SAME NUMBER WITH A ZERO SIGN BIT.
5526
5527 000002 AC=2
5528 036010 LSH1P: SETUP 40,0^
5529 000003 AC1=<AC+1>&17
5530 000004 AC2=<AC+2>&17
5531 000005 AC3=<AC+3>&17
5532 000006 AC4=<AC+4>&17
5533 000007 AC5=<AC+5>&17
5534 000000 RAN1=<AC-2>&17
5535 036010 201 01 0 00 036010 MOVEI AC-1,.
5536 036011 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5537 036012 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5538 036013 202 01 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5539 036014 201 01 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
5540 036015 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5541 036016 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5542 036017 LSH1PA: RANDOM^
5543 036017 200 02 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5544 036020 270 02 0 00 037576 ADD AC,[142536475076]
5545 036021 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5546 036022 447 02 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
5547 036023 404 02 0 00 037612 LSH1PB: AND AC,[XWD 377777,-1] ;SIMULATE A LSH LEFT THEN RIGHT.
5548 036024 200 03 0 00 037704 MOVE AC1,RAN ;MOVE RANDOM NUM INTO AN AC
5549 ;AND DO 3(LSH LEFT 1 PLACE THEN RIGHT 1 PLACE).
5550 REPEAT 3,<
5551 LSH AC1,1
5552 LSH AC1,-1>
5553
5554 036025 242 03 0 00 000001 LSH AC1,1
5555 036026 242 03 0 00 777777 LSH AC1,-1
5556
5557 036027 242 03 0 00 000001 LSH AC1,1
5558 036030 242 03 0 00 777777 LSH AC1,-1
5559
5560 036031 242 03 0 00 000001 LSH AC1,1
5561 036032 242 03 0 00 777777 LSH AC1,-1
5562 036033 312 03 0 00 000002 CAME AC1,AC ;C(AC1) = SIM. ANS?
5563 036034 004 03 0 00 000002 ERROR AC1,AC ;NO. LSH FAILED.
5564 LOOP LSH1PA,LSH1PB^
5565 036035 367 01 0 00 036017 SOJG AC-1,LSH1PA ;ITERATION COUNTER
5566 036036 200 02 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5567 036037 321 01 0 00 036023 JUMPL AC-1,LSH1PB ;LOOP ON ERROR SWITCH ^
5568
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 97
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0150
5569
5570 ;TEST TDN,TDNA. CHECK FOR SKIP/NO SKIP AND
5571 ;NO DATA CHANGE IN AC FOR RAN1 TO RAN CONDITION.
5572
5573 000002 AC=2
5574 036040 TDN1: SETUP 100,0^
5575 000003 AC1=<AC+1>&17
5576 000004 AC2=<AC+2>&17
5577 000005 AC3=<AC+3>&17
5578 000006 AC4=<AC+4>&17
5579 000007 AC5=<AC+5>&17
5580 000000 RAN1=<AC-2>&17
5581 036040 201 01 0 00 036040 MOVEI AC-1,.
5582 036041 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5583 036042 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5584 036043 202 01 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5585 036044 201 01 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5586 036045 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5587 036046 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5588 036047 TDN2: RANDOM^
5589 036047 200 02 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5590 036050 270 02 0 00 037576 ADD AC,[142536475076]
5591 036051 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5592 036052 447 02 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
5593 036053 204 03 0 00 000002 TDN3: MOVS AC1,AC ;PUT SECOND RAN. NUM. INTO "E".
5594 036054 610 02 0 00 000003 TDN AC,AC1 ;NO SKIP, NO DATA CHANGE.
5595 036055 254 00 0 00 036057 JRST .+2 ;HERE..GO AROUND ERR UUO.
5596 036056 005 02 0 00 037613 ER AC,[ASCII /TST/];TDN SKIPPED.
5597 036057 614 02 0 00 000003 TDNA AC,AC1 ;SKIP, NO DATA CHANGE.
5598 036060 005 02 0 00 037613 ER AC,[ASCII /TST/]
5599 036061 312 02 0 00 037704 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
5600 036062 001 03 0 00 037704 ERR AC1,RAN
5601 LOOP TDN2,TDN3^
5602 036063 367 01 0 00 036047 SOJG AC-1,TDN2 ;ITERATION COUNTER
5603 036064 200 02 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5604 036065 321 01 0 00 036053 JUMPL AC-1,TDN3 ;LOOP ON ERROR SWITCH ^
5605
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 98
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0151
5606
5607 ;TEST TDNN,TDNE. CHECK FOR SKIP/ NO SKIP AND
5608 ;NO DATA CHANGE IN AC FOR RAN TO 0 CONDITION.
5609
5610 000003 AC=3
5611 036066 TDNE1A: SETUP 100,0^
5612 000004 AC1=<AC+1>&17
5613 000005 AC2=<AC+2>&17
5614 000006 AC3=<AC+3>&17
5615 000007 AC4=<AC+4>&17
5616 000010 AC5=<AC+5>&17
5617 000001 RAN1=<AC-2>&17
5618 036066 201 02 0 00 036066 MOVEI AC-1,.
5619 036067 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5620 036070 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5621 036071 202 02 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5622 036072 201 02 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5623 036073 240 02 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5624 036074 240 02 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5625 036075 TDNE2A: RANDOM^
5626 036075 200 03 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5627 036076 270 03 0 00 037576 ADD AC,[142536475076]
5628 036077 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5629 036100 447 03 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
5630 036101 403 04 0 00 000001 TDNE3A: SETZB AC1,RAN1 ;CLEAR C(AC).
5631 036102 616 04 0 00 000003 TDNN AC1,AC ;C(E) + C(AC) =0..NO SKIP.
5632 036103 254 00 0 00 036105 JRST .+2
5633 036104 005 04 0 00 037613 ER AC1,[ASCII /TST/];TDNN SKIPPED.
5634 036105 612 04 0 00 000003 TDNE AC1,AC ;C(E) + C(AC) = 0. SKIP.
5635 036106 005 04 0 00 037613 ER AC1,[ASCII /TST/]
5636 036107 312 04 0 00 037577 CAME AC1,[0] ;C(AC) SHOULD STILL = 0.
5637 036110 001 03 0 00 000001 ERR AC,RAN1
5638 LOOP TDNE2A,TDNE3A^
5639 036111 367 02 0 00 036075 SOJG AC-1,TDNE2A ;ITERATION COUNTER
5640 036112 200 03 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5641 036113 321 02 0 00 036101 JUMPL AC-1,TDNE3A ;LOOP ON ERROR SWITCH ^
5642
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 99
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0152
5643
5644 ;TEST TDNN,TDNE. CHECK FOR SKIP/ NO SKIP AND
5645 ;NO DATA CHANGE FOR 0 TO RAN CONDITION.
5646
5647 000004 AC=4
5648 036114 TDNE1B: SETUP 40,0^
5649 000005 AC1=<AC+1>&17
5650 000006 AC2=<AC+2>&17
5651 000007 AC3=<AC+3>&17
5652 000010 AC4=<AC+4>&17
5653 000011 AC5=<AC+5>&17
5654 000002 RAN1=<AC-2>&17
5655 036114 201 03 0 00 036114 MOVEI AC-1,.
5656 036115 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5657 036116 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5658 036117 202 03 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5659 036120 201 03 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
5660 036121 240 03 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5661 036122 240 03 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5662 036123 TDNE2B: RANDOM^
5663 036123 200 04 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5664 036124 270 04 0 00 037576 ADD AC,[142536475076]
5665 036125 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5666 036126 447 04 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
5667 036127 400 05 0 00 000000 TDNE3B: SETZ AC1, ;CLEAR C(E).
5668 036130 616 04 0 00 000005 TDNN AC,AC1 ;C(E) + C(AC) = 0. NO SKIP.
5669 036131 254 00 0 00 036133 JRST .+2
5670 036132 005 04 0 00 037613 ER AC,[ASCII /TST/];TDNN SKIPPED.
5671 036133 612 04 0 00 000005 TDNE AC,AC1 ;C(E) + C(AC) = 0. SKIP.
5672 036134 005 04 0 00 037613 ER AC,[ASCII /TST/]
5673 036135 312 04 0 00 037704 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
5674 036136 001 05 0 00 037704 ERR AC1,RAN
5675 LOOP TDNE2B,TDNE3B^
5676 036137 367 03 0 00 036123 SOJG AC-1,TDNE2B ;ITERATION COUNTER
5677 036140 200 04 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5678 036141 321 03 0 00 036127 JUMPL AC-1,TDNE3B ;LOOP ON ERROR SWITCH ^
5679
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 100
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0153
5680
5681 ;TEST TDNN,TDNE. CHECK FOR SKIP/ NO SKIP AND
5682 ;NO DATA CHANGE IN AC FOR RAN TO -1 CONDITION.
5683
5684 000005 AC=5
5685 036142 TDNE1C: SETUP 40,0^
5686 000006 AC1=<AC+1>&17
5687 000007 AC2=<AC+2>&17
5688 000010 AC3=<AC+3>&17
5689 000011 AC4=<AC+4>&17
5690 000012 AC5=<AC+5>&17
5691 000003 RAN1=<AC-2>&17
5692 036142 201 04 0 00 036142 MOVEI AC-1,.
5693 036143 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5694 036144 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5695 036145 202 04 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5696 036146 201 04 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
5697 036147 240 04 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5698 036150 240 04 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5699 036151 TDNE2C: RANDOM^
5700 036151 200 05 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5701 036152 270 05 0 00 037576 ADD AC,[142536475076]
5702 036153 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5703 036154 447 05 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
5704 036155 322 05 0 00 036151 JUMPE AC,TDNE2C ;REJECT IF RAN = 0.
5705 036156 477 06 0 00 000003 TDNE3C: SETOB AC1,RAN1 ;SET C(AC) TO ALL ONES.
5706 036157 612 06 0 00 000005 TDNE AC1,AC ;C(E) + C(AC) NOT = 0..NO SKIP.
5707 036160 254 00 0 00 036162 JRST .+2
5708 036161 005 06 0 00 037613 ER AC1,[ASCII /TST/];TDNE SKIPPED.
5709 036162 616 06 0 00 000005 TDNN AC1,AC ;C(E) + C(AC) NOT = 0..SKIP.
5710 036163 005 06 0 00 037613 ER AC1,[ASCII /TST/]
5711 036164 312 06 0 00 037601 CAME AC1,[-1] ;C(AC) SHOULD = ORIG C(AC).
5712 036165 001 05 0 00 000003 ERR AC,RAN1
5713 LOOP TDNE2C,TDNE3C^
5714 036166 367 04 0 00 036151 SOJG AC-1,TDNE2C ;ITERATION COUNTER
5715 036167 200 05 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5716 036170 321 04 0 00 036156 JUMPL AC-1,TDNE3C ;LOOP ON ERROR SWITCH ^
5717
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 101
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0154
5718
5719 ;TEST TDNE,TDNN. CHECK FOR SKIP/ NO SKIP AND
5720 ;NO DATA CHANGE IN AC FOR -1 TO RAN CONDITION.
5721
5722 000006 AC=6
5723 036171 TDNE1D: SETUP 40,0^
5724 000007 AC1=<AC+1>&17
5725 000010 AC2=<AC+2>&17
5726 000011 AC3=<AC+3>&17
5727 000012 AC4=<AC+4>&17
5728 000013 AC5=<AC+5>&17
5729 000004 RAN1=<AC-2>&17
5730 036171 201 05 0 00 036171 MOVEI AC-1,.
5731 036172 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5732 036173 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5733 036174 202 05 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5734 036175 201 05 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
5735 036176 240 05 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5736 036177 240 05 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5737 036200 TDNE2D: RANDOM^
5738 036200 200 06 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5739 036201 270 06 0 00 037576 ADD AC,[142536475076]
5740 036202 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5741 036203 447 06 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
5742 036204 322 06 0 00 036200 JUMPE AC,TDNE2D ;REJECT IF RAN = 0.
5743 036205 474 07 0 00 000000 TDNE3D: SETO AC1, ;SET C(E) TO ALL ONES.
5744 036206 612 06 0 00 000007 TDNE AC,AC1 ;C(E) + C(AC) NOT = 0..NO SKIP.
5745 036207 254 00 0 00 036211 JRST .+2
5746 036210 005 06 0 00 037613 ER AC,[ASCII /TST/];TDNE SKIPPED.
5747 036211 616 06 0 00 000007 TDNN AC,AC1 ;C(E) + C(AC) NOT = 0..SKIP.
5748 036212 005 06 0 00 037613 ER AC,[ASCII /TST/]
5749 036213 312 06 0 00 037704 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
5750 036214 001 07 0 00 037704 ERR AC1,RAN
5751 LOOP TDNE2D,TDNE3D^
5752 036215 367 05 0 00 036200 SOJG AC-1,TDNE2D ;ITERATION COUNTER
5753 036216 200 06 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5754 036217 321 05 0 00 036205 JUMPL AC-1,TDNE3D ;LOOP ON ERROR SWITCH ^
5755
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 102
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0155
5756
5757 ;TEST TDNE,TDNN. CHECK FOR SKIP/ NO SKIP AND
5758 ;NO DATA CHANGE IN AC FOR RAN TO RAN CONDITION.
5759
5760 000007 AC=7
5761 036220 TDNE1E: SETUP 20,0^
5762 000010 AC1=<AC+1>&17
5763 000011 AC2=<AC+2>&17
5764 000012 AC3=<AC+3>&17
5765 000013 AC4=<AC+4>&17
5766 000014 AC5=<AC+5>&17
5767 000005 RAN1=<AC-2>&17
5768 036220 201 06 0 00 036220 MOVEI AC-1,.
5769 036221 202 06 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5770 036222 201 06 0 00 000006 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5771 036223 202 06 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5772 036224 201 06 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
5773 036225 240 06 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5774 036226 240 06 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5775 036227 TDNE2E: RANDOM^
5776 036227 200 07 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5777 036230 270 07 0 00 037576 ADD AC,[142536475076]
5778 036231 241 07 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5779 036232 447 07 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
5780 036233 322 07 0 00 036227 JUMPE AC,TDNE2E ;REJECT IF RAN = 0.
5781 036234 200 10 0 00 000007 TDNE3E: MOVE AC1,AC ;MAKE C(E) = C(AC).
5782 036235 612 07 0 00 000010 TDNE AC,AC1 ;C(E) + C(AC) NOT = 0..NO SKIP.
5783 036236 254 00 0 00 036240 JRST .+2
5784 036237 005 07 0 00 037613 ER AC,[ASCII /TST/];TDNE SKIPPED.
5785 036240 616 07 0 00 000010 TDNN AC,AC1 ;C(E) + C(AC) NOT = 0. SKIP.
5786 036241 005 07 0 00 037613 ER AC,[ASCII /TST/]
5787 036242 312 07 0 00 037704 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
5788 036243 001 10 0 00 037704 ERR AC1,RAN
5789 LOOP TDNE2E,TDNE3E^
5790 036244 367 06 0 00 036227 SOJG AC-1,TDNE2E ;ITERATION COUNTER
5791 036245 200 07 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5792 036246 321 06 0 00 036234 JUMPL AC-1,TDNE3E ;LOOP ON ERROR SWITCH ^
5793
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 103
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0156
5794
5795 ;TEST TDNE,TDNN. CHECK FOR SKIP/ NO SKIP AND
5796 ;NO DATA CHANGE IN AC FOR NOT RAN TO RAN CONDITON.
5797
5798 000010 AC=10
5799 036247 TDNE1F: SETUP 20,0^
5800 000011 AC1=<AC+1>&17
5801 000012 AC2=<AC+2>&17
5802 000013 AC3=<AC+3>&17
5803 000014 AC4=<AC+4>&17
5804 000015 AC5=<AC+5>&17
5805 000006 RAN1=<AC-2>&17
5806 036247 201 07 0 00 036247 MOVEI AC-1,.
5807 036250 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5808 036251 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5809 036252 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5810 036253 201 07 0 00 000020 MOVEI AC-1,20 ;ROUTINE WEIGHTING
5811 036254 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5812 036255 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5813 036256 TDNE2F: RANDOM^
5814 036256 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5815 036257 270 10 0 00 037576 ADD AC,[142536475076]
5816 036260 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5817 036261 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
5818 036262 460 11 0 00 000010 TDNE3F: SETCM AC1,AC ;MAKE C(E) = 1'S COMP OF C(AC).
5819 036263 616 10 0 00 000011 TDNN AC,AC1 ;C(E) + C(AC) = 0..NO SKIP.
5820 036264 254 00 0 00 036266 JRST .+2
5821 036265 005 10 0 00 037613 ER AC,[ASCII /TST/];TDNN SKIPPED.
5822 036266 612 10 0 00 000011 TDNE AC,AC1 ;C(E) + C(AC) = 0..SKIP.
5823 036267 005 10 0 00 037613 ER AC,[ASCII /TST/]
5824 036270 312 10 0 00 037704 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
5825 036271 001 11 0 00 037704 ERR AC1,RAN
5826 LOOP TDNE2F,TDNE3F^
5827 036272 367 07 0 00 036256 SOJG AC-1,TDNE2F ;ITERATION COUNTER
5828 036273 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5829 036274 321 07 0 00 036262 JUMPL AC-1,TDNE3F ;LOOP ON ERROR SWITCH ^
5830
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 104
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0157
5831
5832 ;TEST TDZ,TDZA. CHECK FOR SKIP/ NO SKIP AND
5833 ;CORRECT DATA IN AC FOR NOT RAN TO RAN CONDITION.
5834
5835 000011 AC=11
5836 036275 TDZA1: SETUP 100,0^
5837 000012 AC1=<AC+1>&17
5838 000013 AC2=<AC+2>&17
5839 000014 AC3=<AC+3>&17
5840 000015 AC4=<AC+4>&17
5841 000016 AC5=<AC+5>&17
5842 000007 RAN1=<AC-2>&17
5843 036275 201 10 0 00 036275 MOVEI AC-1,.
5844 036276 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5845 036277 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5846 036300 202 10 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5847 036301 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5848 036302 240 10 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5849 036303 240 10 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5850 036304 TDZA2: RANDOM^
5851 036304 200 11 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5852 036305 270 11 0 00 037576 ADD AC,[142536475076]
5853 036306 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5854 036307 447 11 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
5855 036310 460 12 0 00 000011 TDZA3: SETCM AC1,AC ;MAKE C(E) 1'S COMP OF C(AC).
5856 036311 630 11 0 00 000012 TDZ AC,AC1 ;SHOULD NOT SKIP.
5857 036312 254 00 0 00 036314 JRST .+2
5858 036313 005 11 0 00 037613 ER AC,[ASCII/TST/] ;TDZ SKIPPED.
5859 036314 634 11 0 00 000012 TDZA AC,AC1 ;SHOULD SKIP.
5860 036315 005 11 0 00 037613 ER AC,[ASCII /TST/]
5861 036316 312 11 0 00 037704 CAME AC,RAN ;C(AC) SHOULD STILL = RAN NUM.
5862 036317 001 12 0 00 037704 ERR AC1,RAN
5863 036320 316 12 0 00 037704 CAMN AC1,RAN ;C(E) SHOULD NOT = RAN.
5864 036321 001 12 0 00 037704 ERR AC1,RAN
5865 LOOP TDZA2,TDZA3^
5866 036322 367 10 0 00 036304 SOJG AC-1,TDZA2 ;ITERATION COUNTER
5867 036323 200 11 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5868 036324 321 10 0 00 036310 JUMPL AC-1,TDZA3 ;LOOP ON ERROR SWITCH ^
5869
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 105
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0158
5870
5871 ;TEST TDZ,TDZA. CHECK FOR SKIP/NO SKIP AND
5872 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION.
5873
5874 000010 AC=10
5875 036325 TDZAA: SETUP 100,1^
5876 000011 AC1=<AC+1>&17
5877 000012 AC2=<AC+2>&17
5878 000013 AC3=<AC+3>&17
5879 000014 AC4=<AC+4>&17
5880 000015 AC5=<AC+5>&17
5881 000006 RAN1=<AC-2>&17
5882 036325 201 07 0 00 036325 MOVEI AC-1,.
5883 036326 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5884 036327 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5885 036330 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5886 036331 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5887 036332 240 07 1 00 030672 ASH AC-1,@CMPLXT+1 ;ROUTINE COMPLEXITY
5888 036333 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5889 036334 TDZAB: RANDOM^
5890 036334 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5891 036335 270 10 0 00 037576 ADD AC,[142536475076]
5892 036336 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5893 036337 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
5894 036340 630 10 0 00 000010 TDZAC: TDZ AC,AC ;SHOULD NOT SKIP.
5895 036341 312 10 0 00 037577 CAME AC,[0] ;SHOULD CLEAR C(AC).
5896 036342 011 00 0 00 037704 EERR ,RAN
5897 036343 200 10 0 00 037704 MOVE AC,RAN ;RESTORE AC.
5898 036344 634 10 0 00 000010 TDZA AC,AC ;SHOULD SKIP.
5899 036345 005 10 0 00 037613 ER AC,[ASCII /TST/]
5900 036346 312 10 0 00 037577 CAME AC,[0] ;C(AC) SHOULD BE CLEARED.
5901 036347 011 00 0 00 037704 EERR ,RAN
5902 LOOP TDZAB,TDZAC^
5903 036350 367 07 0 00 036334 SOJG AC-1,TDZAB ;ITERATION COUNTER
5904 036351 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5905 036352 321 07 0 00 036340 JUMPL AC-1,TDZAC ;LOOP ON ERROR SWITCH ^
5906
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 106
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0159
5907
5908
5909 ;TEST TDZ,TDZA. CHECK FOR SKIP/ NO SKIP AND
5910 ;CORRECT DATA IN AC FOR RAN1 TO RAN CONDITION.
5911
5912 000010 AC=10
5913 036353 TDZB1: SETUP 100,0^
5914 000011 AC1=<AC+1>&17
5915 000012 AC2=<AC+2>&17
5916 000013 AC3=<AC+3>&17
5917 000014 AC4=<AC+4>&17
5918 000015 AC5=<AC+5>&17
5919 000006 RAN1=<AC-2>&17
5920 036353 201 07 0 00 036353 MOVEI AC-1,.
5921 036354 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5922 036355 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5923 036356 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5924 036357 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5925 036360 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5926 036361 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5927 036362 TDZB2: RANDOM^
5928 036362 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5929 036363 270 10 0 00 037576 ADD AC,[142536475076]
5930 036364 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5931 036365 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
5932 036366 204 11 0 00 000010 TDZB3: MOVS AC1,AC ;MAKE C(E) A DIFF. RAN. NUM.
5933 036367 200 12 0 00 000011 MOVE AC2,AC1 ;SIMULATE
5934 036370 430 12 0 00 000010 XOR AC2,AC ;A
5935 036371 404 12 0 00 000010 AND AC2,AC ;TDZ.
5936 036372 630 10 0 00 000011 TDZ AC,AC1 ;TDZ SHOULD NOT SKIP.
5937 036373 312 10 0 00 000012 CAME AC,AC2 ;C(AC) SHOULD = SIM. ANS.
5938 036374 001 11 0 00 037704 ERR AC1,RAN
5939 036375 200 10 0 00 037704 MOVE AC,RAN ;RESTORE AC.
5940 036376 634 10 0 00 000011 TDZA AC,AC1 ;SHOULD SKIP.
5941 036377 005 10 0 00 037613 ER AC,[ASCII /TST/]
5942 036400 312 10 0 00 000012 CAME AC,AC2 ;C(AC) SHOULD = SIM. ANS.
5943 036401 001 11 0 00 037704 ERR AC1,RAN
5944 LOOP TDZB2,TDZB3^
5945 036402 367 07 0 00 036362 SOJG AC-1,TDZB2 ;ITERATION COUNTER
5946 036403 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5947 036404 321 07 0 00 036366 JUMPL AC-1,TDZB3 ;LOOP ON ERROR SWITCH ^
5948
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 107
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0160
5949 ;TEST TDZE, TDZN. CHECK FOR SKIP/NO SKIP AND
5950 ;CORRECT DATA IN AC FOR FLOATING ONE IN C(E) AND
5951 ;THAT BIT CLEARED IN RANDOM NUM. IN AC.
5952
5953 000010 AC=10
5954 036405 TDZE1: SETUP 100,0^
5955 000011 AC1=<AC+1>&17
5956 000012 AC2=<AC+2>&17
5957 000013 AC3=<AC+3>&17
5958 000014 AC4=<AC+4>&17
5959 000015 AC5=<AC+5>&17
5960 000006 RAN1=<AC-2>&17
5961 036405 201 07 0 00 036405 MOVEI AC-1,.
5962 036406 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
5963 036407 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
5964 036410 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
5965 036411 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
5966 036412 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
5967 036413 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
5968 036414 201 11 0 00 000001 MOVEI AC1,1 ;SETUP AC1 TO CONTAIN A MASK BIT.
5969 036415 TDZE2: RANDOM^
5970 036415 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
5971 036416 270 10 0 00 037576 ADD AC,[142536475076]
5972 036417 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
5973 036420 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
5974 036421 241 11 0 00 000001 ROT AC1,1 ;ROT TO TEST NEXT BIT.
5975 036422 420 10 0 00 000011 TDZE3: ANDCM AC,AC1 ;CLEAR MASK BIT IN AC.
5976 036423 200 12 0 00 000010 MOVE AC2,AC ;SAVE FOR FUTURE COMPARE.
5977 036424 636 10 0 00 000011 TDZN AC,AC1 ;C(E) + C(AC) = 0...NO SKIP.
5978 036425 254 00 0 00 036427 JRST .+2
5979 036426 005 10 0 00 037613 ER AC,[ASCII /TST/] ;TDZN SKIPPED.
5980 036427 632 10 0 00 000011 TDZE AC,AC1 ;C(E) + C(AC) = 0...SKIP.
5981 036430 005 10 0 00 037613 ER AC,[ASCII /TST/]
5982 036431 312 10 0 00 000012 CAME AC,AC2 ;C(AC) SHOULD = ORIG C(AC).
5983 036432 001 11 0 00 000012 ERR AC1,AC2
5984 LOOP TDZE2,TDZE3^
5985 036433 367 07 0 00 036415 SOJG AC-1,TDZE2 ;ITERATION COUNTER
5986 036434 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
5987 036435 321 07 0 00 036422 JUMPL AC-1,TDZE3 ;LOOP ON ERROR SWITCH ^
5988
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 108
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0161
5989
5990 ;TEST TDZE, TDZN. CHECK FOR SKIP/ NO SKIP AND
5991 ;CORRECT DATA IN AC FOR FLOATING ONE IN C(E)
5992 ;AND THAT BIT SET IN RAN. NUM. IN C(AC).
5993
5994 000010 AC=10
5995 036436 TDZEA: SETUP 100,0^
5996 000011 AC1=<AC+1>&17
5997 000012 AC2=<AC+2>&17
5998 000013 AC3=<AC+3>&17
5999 000014 AC4=<AC+4>&17
6000 000015 AC5=<AC+5>&17
6001 000006 RAN1=<AC-2>&17
6002 036436 201 07 0 00 036436 MOVEI AC-1,.
6003 036437 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6004 036440 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6005 036441 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6006 036442 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6007 036443 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6008 036444 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6009 036445 201 11 0 00 000001 MOVEI AC1,1 ;SET MASK BIT IN C(E).
6010 036446 TDZEB: RANDOM^
6011 036446 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6012 036447 270 10 0 00 037576 ADD AC,[142536475076]
6013 036450 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6014 036451 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
6015 036452 241 11 0 00 000001 ROT AC1,1 ;ROT MASK BIT TO TEST NEXT BIT.
6016 036453 434 10 0 00 000011 TDZEC: IOR AC,AC1 ;SET MASK BIT IN AC.
6017 036454 200 06 0 00 000010 MOVE RAN1,AC ;SAVE C(AC) IN CASE OF ERROR.
6018 036455 200 12 0 00 000010 MOVE AC2,AC ;SIMULATE
6019 036456 420 12 0 00 000011 ANDCM AC2,AC1 ;A TDZ.
6020 036457 632 10 0 00 000011 TDZE AC,AC1 ;C(E) + C(AC) NOT = 0...NO SKIP.
6021 036460 312 10 0 00 000012 CAME AC,AC2 ;C(AC) SHOULD = SIM. ANS.
6022 036461 001 11 0 00 000006 ERR AC1,RAN1
6023 036462 434 10 0 00 000011 IOR AC,AC1 ;RESET MASK BIT IN AC.
6024 036463 636 10 0 00 000011 TDZN AC,AC1 ;C(E) + C(AC) NOT = 0...SKIP.
6025 036464 005 10 0 00 037613 ER AC,[ASCII /TST/]
6026 036465 312 10 0 00 000012 CAME AC,AC2 ;AND C(AC) SHOULD = SIM. ANS.
6027 036466 001 11 0 00 000006 ERR AC1,RAN1
6028 LOOP TDZEB,TDZEC^
6029 036467 367 07 0 00 036446 SOJG AC-1,TDZEB ;ITERATION COUNTER
6030 036470 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6031 036471 321 07 0 00 036453 JUMPL AC-1,TDZEC ;LOOP ON ERROR SWITCH ^
6032
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 109
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0162
6033
6034 ;TEST TDZE,TDZN. SET AND ROT A MASK BIT IN AC
6035 ;AND CHECK SKIP/NO SKIP AND PROPER C(AC)
6036 ;FOR MASK BIT IN AC ANS RANDOM NUMBER IN E.
6037
6038 000010 AC=10
6039 036472 TDZNA: SETUP 100,0^
6040 000011 AC1=<AC+1>&17
6041 000012 AC2=<AC+2>&17
6042 000013 AC3=<AC+3>&17
6043 000014 AC4=<AC+4>&17
6044 000015 AC5=<AC+5>&17
6045 000006 RAN1=<AC-2>&17
6046 036472 201 07 0 00 036472 MOVEI AC-1,.
6047 036473 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6048 036474 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6049 036475 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6050 036476 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6051 036477 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6052 036500 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6053 036501 201 11 0 00 000001 MOVEI AC1,1 ;SETUP AC1 FOR MASK BIT.
6054 036502 TDZNB: RANDOM^
6055 036502 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6056 036503 270 10 0 00 037576 ADD AC,[142536475076]
6057 036504 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6058 036505 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
6059 036506 241 11 0 00 000001 ROT AC1,1 ;ROT AC1 TO TEST NEXT BIT.
6060 036507 200 12 0 00 000011 MOVE AC2,AC1 ;SAVE MASK BIT.
6061 036510 200 11 0 00 000012 TDZNC: MOVE AC1,AC2 ;RESTORE MASK BIT IF ERROR.
6062 036511 420 10 0 00 000011 ANDCM AC,AC1 ;CLEAR MASK BIT IN RAN NUM.
6063 036512 636 11 0 00 000010 TDZN AC1,AC ;C(E) + C(AC) =0..SHOULDN'T SKIP.
6064 036513 254 00 0 00 036515 JRST .+2
6065 036514 005 11 0 00 037613 ER AC1,[ASCII /TST/];TDZN SKIPPED.
6066 036515 632 11 0 00 000010 TDZE AC1,AC ;C(E) + C(AC) = 0..SKIP.
6067 036516 005 11 0 00 037613 ER AC1,[ASCII /TST/]
6068 036517 312 11 0 00 000012 CAME AC1,AC2 ;C(AC1) SHOULD NOT HAVE CHANGED.
6069 036520 001 10 0 00 000012 ERR AC,AC2
6070 LOOP TDZNB,TDZNC^
6071 036521 367 07 0 00 036502 SOJG AC-1,TDZNB ;ITERATION COUNTER
6072 036522 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6073 036523 321 07 0 00 036510 JUMPL AC-1,TDZNC ;LOOP ON ERROR SWITCH ^
6074
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 110
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0163
6075
6076 ;TEST TDZE,TDZN. SET AND ROT A MASK BIT IN AC
6077 ;AND CHECK SKIP/NO SKIP AND PROPER C(AC)
6078 ;FOR MASK BIT IN AC AND RANDOM NUMBER IN E.
6079 ;RANDOM NUMBER HAS MASK BIT SET.
6080
6081 000010 AC=10
6082 036524 TDZN1: SETUP 40,0^
6083 000011 AC1=<AC+1>&17
6084 000012 AC2=<AC+2>&17
6085 000013 AC3=<AC+3>&17
6086 000014 AC4=<AC+4>&17
6087 000015 AC5=<AC+5>&17
6088 000006 RAN1=<AC-2>&17
6089 036524 201 07 0 00 036524 MOVEI AC-1,.
6090 036525 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6091 036526 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6092 036527 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6093 036530 201 07 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
6094 036531 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6095 036532 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6096 036533 201 11 0 00 000001 MOVEI AC1,1 ;SETUP AC1 FOR MASK BIT.
6097 036534 TDZN2: RANDOM^
6098 036534 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6099 036535 270 10 0 00 037576 ADD AC,[142536475076]
6100 036536 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6101 036537 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
6102 036540 241 11 0 00 000001 ROT AC1,1 ;ROT AC1 TO TEST NEXT BIT.
6103 036541 200 12 0 00 000011 TDZN3: MOVE AC2,AC1 ;SAVE MASK BIT.
6104 036542 434 10 0 00 000011 IOR AC,AC1 ;SET MASK BIT IN RAN.
6105 036543 632 11 0 00 000010 TDZE AC1,AC ;C(E) + C(AC) NOT = 0...NO SKIP.
6106 036544 312 11 0 00 037577 CAME AC1,[0] ;C(AC) SHOULD = 0.
6107 036545 001 10 0 00 000012 ERR AC,AC2
6108 036546 200 11 0 00 000012 MOVE AC1,AC2 ;RESTORE MASK BIT.
6109 036547 636 11 0 00 000010 TDZN AC1,AC ;C(E) + C(AC) NOT = 0...SKIP.
6110 036550 005 11 0 00 037613 ER AC1,[ASCII /TST/]
6111 036551 312 11 0 00 037577 CAME AC1,[0] ;AC1 SHOULD HAVE GOTTEN CLEARED OUT.
6112 036552 001 10 0 00 000012 ERR AC,AC2
6113 036553 200 11 0 00 000012 MOVE AC1,AC2 ;RESTORE MASK BIT.
6114 LOOP TDZN2,TDZN3^
6115 036554 367 07 0 00 036534 SOJG AC-1,TDZN2 ;ITERATION COUNTER
6116 036555 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6117 036556 321 07 0 00 036541 JUMPL AC-1,TDZN3 ;LOOP ON ERROR SWITCH ^
6118
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 111
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0164
6119
6120 ;TEST TDO TDOA. CHECK FOR SKIP/NO SKIP ANS CORRECT DATA
6121 ;IN AC FOR RAN TO NOT RAN.
6122
6123 000010 AC=10
6124 036557 TDOA1: SETUP 100,0^
6125 000011 AC1=<AC+1>&17
6126 000012 AC2=<AC+2>&17
6127 000013 AC3=<AC+3>&17
6128 000014 AC4=<AC+4>&17
6129 000015 AC5=<AC+5>&17
6130 000006 RAN1=<AC-2>&17
6131 036557 201 07 0 00 036557 MOVEI AC-1,.
6132 036560 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6133 036561 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6134 036562 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6135 036563 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6136 036564 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6137 036565 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6138 036566 TDOA2: RANDOM^
6139 036566 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6140 036567 270 10 0 00 037576 ADD AC,[142536475076]
6141 036570 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6142 036571 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
6143 036572 460 11 0 00 000010 TDOA3: SETCM AC1,AC ;MAKE "C(E)" = COMP OF RAN.
6144 036573 670 10 0 00 000011 TDO AC,AC1 ;SHOULD NOT SKIP.
6145 036574 312 10 0 00 037601 CAME AC,[-1] ;AC SHOULD HAVE ALL BITS SET.
6146 036575 001 11 0 00 037704 ERR AC1,RAN
6147 036576 200 10 0 00 037704 MOVE AC,RAN ;RESTORE AC.
6148 036577 674 10 0 00 000011 TDOA AC,AC1 ;SHOULD SKIP.
6149 036600 005 10 0 00 037613 ER AC,[ASCII /TST/]
6150 036601 312 10 0 00 037601 CAME AC,[-1] ;AC SHOULD HAVE ALL BITS SET.
6151 036602 001 11 0 00 037704 ERR AC1,RAN
6152 LOOP TDOA2,TDOA3^
6153 036603 367 07 0 00 036566 SOJG AC-1,TDOA2 ;ITERATION COUNTER
6154 036604 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6155 036605 321 07 0 00 036572 JUMPL AC-1,TDOA3 ;LOOP ON ERROR SWITCH ^
6156
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 112
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0165
6157
6158 ;TEST TDO,TDOA. CHECK SKIP/NO SKIP AND
6159 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION.
6160
6161 000002 AC=2
6162 036606 TDOAA: SETUP 40,0^
6163 000003 AC1=<AC+1>&17
6164 000004 AC2=<AC+2>&17
6165 000005 AC3=<AC+3>&17
6166 000006 AC4=<AC+4>&17
6167 000007 AC5=<AC+5>&17
6168 000000 RAN1=<AC-2>&17
6169 036606 201 01 0 00 036606 MOVEI AC-1,.
6170 036607 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6171 036610 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6172 036611 202 01 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6173 036612 201 01 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
6174 036613 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6175 036614 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6176 036615 TDOAB: RANDOM^
6177 036615 200 02 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6178 036616 270 02 0 00 037576 ADD AC,[142536475076]
6179 036617 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6180 036620 447 02 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
6181 036621 670 02 0 00 000002 TDOAC: TDO AC,AC ;SHOULD NOT SKIP.
6182 036622 254 00 0 00 036624 JRST .+2
6183 036623 005 02 0 00 037613 ER AC,[ASCII /TST/] ;TDO SKIPPED.
6184 036624 674 02 0 00 000002 TDOA AC,AC ;SHOULD SKIP.
6185 036625 005 02 0 00 037613 ER AC,[ASCII /TST/]
6186 036626 312 02 0 00 037704 CAME AC,RAN ;C(AC) SHOULD NOT HAVE CHANGED.
6187 036627 011 00 0 00 037704 EERR ,RAN
6188 LOOP TDOAB,TDOAC^
6189 036630 367 01 0 00 036615 SOJG AC-1,TDOAB ;ITERATION COUNTER
6190 036631 200 02 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6191 036632 321 01 0 00 036621 JUMPL AC-1,TDOAC ;LOOP ON ERROR SWITCH ^
6192
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 113
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0166
6193
6194 ;TEST TDO, TDOA. CHECK FOR SKIP/NO SKIP
6195 ;AND CORRECT DATA IN AC FOR RAN1 TO RAN CONDITION.
6196
6197 000002 AC=2
6198 036633 TDOB1: SETUP 400,3^
6199 000003 AC1=<AC+1>&17
6200 000004 AC2=<AC+2>&17
6201 000005 AC3=<AC+3>&17
6202 000006 AC4=<AC+4>&17
6203 000007 AC5=<AC+5>&17
6204 000000 RAN1=<AC-2>&17
6205 036633 201 01 0 00 036633 MOVEI AC-1,.
6206 036634 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6207 036635 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6208 036636 202 01 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6209 036637 201 01 0 00 000400 MOVEI AC-1,400 ;ROUTINE WEIGHTING
6210 036640 240 01 1 00 030674 ASH AC-1,@CMPLXT+3 ;ROUTINE COMPLEXITY
6211 036641 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6212 036642 TDOB2: RANDOM^
6213 036642 200 02 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6214 036643 270 02 0 00 037576 ADD AC,[142536475076]
6215 036644 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6216 036645 447 02 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
6217 036646 204 03 0 00 000002 TDOB3: MOVS AC1,AC ;MAKE AC1 ANOTHER RAN NUM.
6218 036647 200 04 0 00 000002 MOVE AC2,AC ;SIMULATE
6219 036650 430 04 0 00 000003 XOR AC2,AC1 ;A
6220 036651 434 04 0 00 000002 IOR AC2,AC ;TDO INST.
6221 036652 670 02 0 00 000003 TDO AC,AC1 ;SHOULD NOT SKIP.
6222 036653 312 02 0 00 000004 CAME AC,AC2 ;C(AC) = SIM. ANS?
6223 036654 001 03 0 00 037704 ERR AC1,RAN ;NO.
6224 036655 200 02 0 00 037704 MOVE AC,RAN ;RESTORE AC.
6225 036656 674 02 0 00 000003 TDOA AC,AC1 ;SHOULD SKIP.
6226 036657 005 02 0 00 037613 ER AC,[ASCII /TST/]
6227 036660 312 02 0 00 000004 CAME AC,AC2 ;C(AC) = SIM ANS?
6228 036661 001 03 0 00 037704 ERR AC1,RAN ;NO.
6229 LOOP TDOB2,TDOB3^
6230 036662 367 01 0 00 036642 SOJG AC-1,TDOB2 ;ITERATION COUNTER
6231 036663 200 02 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6232 036664 321 01 0 00 036646 JUMPL AC-1,TDOB3 ;LOOP ON ERROR SWITCH ^
6233
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 114
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0167
6234
6235 ;TEST TDOE,TDON. ROT A MASK BIT IN E AND SET THAT
6236 ;BIT IN AC BEFORE TDO. CHECK FOR SKIP/NO SKIP
6237 ;AND PROPER DATA IN AC.
6238
6239 000002 AC=2
6240 036665 TDOE1: SETUP 40,0^
6241 000003 AC1=<AC+1>&17
6242 000004 AC2=<AC+2>&17
6243 000005 AC3=<AC+3>&17
6244 000006 AC4=<AC+4>&17
6245 000007 AC5=<AC+5>&17
6246 000000 RAN1=<AC-2>&17
6247 036665 201 01 0 00 036665 MOVEI AC-1,.
6248 036666 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6249 036667 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6250 036670 202 01 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6251 036671 201 01 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
6252 036672 240 01 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6253 036673 240 01 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6254 036674 201 03 0 00 000001 MOVEI AC1,1 ;SETUP A MASK BIT IN "E".
6255 036675 TDOE2: RANDOM^
6256 036675 200 02 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6257 036676 270 02 0 00 037576 ADD AC,[142536475076]
6258 036677 241 02 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6259 036700 447 02 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
6260 036701 241 03 0 00 000000 ROT AC1, ;ROT MASK BIT TO TEST NEXT BIT.
6261 036702 434 02 0 00 000003 TDOE3: IOR AC,AC1 ;SET MASK BIT IN AC.
6262 036703 200 04 0 00 000002 MOVE AC2,AC ;SAVE AC IN AC2.
6263 036704 672 02 0 00 000003 TDOE AC,AC1 ;C(E) + C(AC) NOT = 0. NO SKIP.
6264 036705 254 00 0 00 036707 JRST .+2
6265 036706 005 02 0 00 037613 ER AC,[ASCII /TST/];TDOE SKIPPED.
6266 036707 676 02 0 00 000003 TDON AC,AC1 ;C(E) + C(AC) NOT = 0..SKIP.
6267 036710 005 02 0 00 037613 ER AC,[ASCII /TST/]
6268 036711 312 02 0 00 000004 CAME AC,AC2 ;C(AC) SHOULD NOT CHANGE.
6269 036712 001 03 0 00 000004 ERR AC1,AC2
6270 LOOP TDOE2,TDOE3^
6271 036713 367 01 0 00 036675 SOJG AC-1,TDOE2 ;ITERATION COUNTER
6272 036714 200 02 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6273 036715 321 01 0 00 036702 JUMPL AC-1,TDOE3 ;LOOP ON ERROR SWITCH ^
6274
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 115
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0168
6275
6276 ;TEST TDOE,TDON. ROT A MASK BIT IN E AND CLEAR THAT
6277 ;BIT IN AC BEFORE TDO. CHECK FOR SKIP/NO SKIP
6278 ;AND PROPER DATA IN AC.
6279
6280 000003 AC=3
6281 036716 TDOEA: SETUP 40,0^
6282 000004 AC1=<AC+1>&17
6283 000005 AC2=<AC+2>&17
6284 000006 AC3=<AC+3>&17
6285 000007 AC4=<AC+4>&17
6286 000010 AC5=<AC+5>&17
6287 000001 RAN1=<AC-2>&17
6288 036716 201 02 0 00 036716 MOVEI AC-1,.
6289 036717 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6290 036720 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6291 036721 202 02 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6292 036722 201 02 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
6293 036723 240 02 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6294 036724 240 02 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6295 036725 201 04 0 00 000001 MOVEI AC1,1 ;SETUP MASK BIT IN"E".
6296 036726 TDOEB: RANDOM^
6297 036726 200 03 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6298 036727 270 03 0 00 037576 ADD AC,[142536475076]
6299 036730 241 03 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6300 036731 447 03 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
6301 036732 241 04 0 00 000001 ROT AC1,1 ;ROT MASK BIT TO TEST NEXT BIT.
6302 036733 420 03 0 00 000004 TDOEC: ANDCM AC,AC1 ;CLEAR MASK BIT IN AC.
6303 036734 200 01 0 00 000003 MOVE RAN1,AC ;SAVE AC.
6304 036735 200 05 0 00 000003 MOVE AC2,AC ;SIMULATE
6305 036736 434 05 0 00 000004 IOR AC2,AC1 ;A TDO.
6306 036737 672 03 0 00 000004 TDOE AC,AC1 ;C(E) + C(AC) = 0. SKIP.
6307 036740 005 03 0 00 037613 ER AC,[ASCII /TST/]
6308 036741 312 03 0 00 000005 CAME AC,AC2 ;C(AC) = SIM ANS?
6309 036742 001 04 0 00 000001 ERR AC1,RAN1 ;NO.
6310 036743 200 03 0 00 000001 MOVE AC,RAN1 ;RESTORE AC.
6311 036744 676 03 0 00 000004 TDON AC,AC1 ;C(E) + C(AC) = 0..NO SKIP.
6312 036745 312 03 0 00 000005 CAME AC,AC2 ;C(AC) = SIM. ANS?
6313 036746 001 04 0 00 000001 ERR AC1,RAN1 ;NO.
6314 LOOP TDOEB,TDOEC^
6315 036747 367 02 0 00 036726 SOJG AC-1,TDOEB ;ITERATION COUNTER
6316 036750 200 03 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6317 036751 321 02 0 00 036733 JUMPL AC-1,TDOEC ;LOOP ON ERROR SWITCH ^
6318
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 116
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0169
6319
6320 ;TEST TDOE,TDON. ROT A MASK BIT IN AC AND CLEAR THAT
6321 ;BIT IN E BEFORE TDO. CHECK FOR SKIP/NO SKIP
6322 ;AND PROPER DATA IN AC.
6323
6324 000004 AC=4
6325 036752 TDONA: SETUP 40,0^
6326 000005 AC1=<AC+1>&17
6327 000006 AC2=<AC+2>&17
6328 000007 AC3=<AC+3>&17
6329 000010 AC4=<AC+4>&17
6330 000011 AC5=<AC+5>&17
6331 000002 RAN1=<AC-2>&17
6332 036752 201 03 0 00 036752 MOVEI AC-1,.
6333 036753 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6334 036754 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6335 036755 202 03 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6336 036756 201 03 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
6337 036757 240 03 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6338 036760 240 03 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6339 036761 201 05 0 00 000001 MOVEI AC1,1 ;SETUP A MASK BIT IN AC.
6340 036762 TDONB: RANDOM^
6341 036762 200 04 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6342 036763 270 04 0 00 037576 ADD AC,[142536475076]
6343 036764 241 04 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6344 036765 447 04 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
6345 036766 241 05 0 00 000001 ROT AC1,1 ;ROT BIT TO TEST NEXT BIT.
6346 036767 200 06 0 00 000005 MOVE AC2,AC1 ;SAVE MASK BIT SO IN CASE
6347 036770 200 05 0 00 000006 TDONC: MOVE AC1,AC2 ;OF ERROR IT CAN BE RESTORED.
6348 036771 420 04 0 00 000005 ANDCM AC,AC1 ;CLEAR MASK BIT IN E.
6349 036772 322 04 0 00 036762 JUMPE AC,TDONB ;REJECT IF C(AC) = 0.
6350 036773 200 07 0 00 000004 MOVE AC3,AC ;SIMULATE
6351 036774 434 07 0 00 000005 IOR AC3,AC1 ;TDO.
6352 036775 672 05 0 00 000004 TDOE AC1,AC ;C(E) + C(AC) = 0...SKIP.
6353 036776 005 05 0 00 037613 ER AC1,[ASCII /TST/];TDOE DID NOT SKIP.
6354 036777 312 05 0 00 000007 CAME AC1,AC3 ;C(AC) SHOULD = SIM. ANS.
6355 037000 001 04 0 00 000006 ERR AC,AC2
6356 037001 676 05 0 00 000004 TDON AC1,AC ;C(E) + C(AC) NOT = 0...SKIP.
6357 037002 005 05 0 00 037613 ER AC1,[ASCII /TST/]
6358 037003 312 05 0 00 000007 CAME AC1,AC3 ;C(AC) SHOULD = SIM. ANS.
6359 037004 001 04 0 00 000006 ERR AC,AC2
6360 037005 200 05 0 00 000006 MOVE AC1,AC2 ;RESTORE AC.
6361 LOOP TDONB,TDONC^
6362 037006 367 03 0 00 036762 SOJG AC-1,TDONB ;ITERATION COUNTER
6363 037007 200 04 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6364 037010 321 03 0 00 036770 JUMPL AC-1,TDONC ;LOOP ON ERROR SWITCH ^
6365
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 117
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0170
6366
6367 ;TEST TDOE,TDON. ROT A MASK BIT IN AC AND SET
6368 ;THAT BIT IN E BEFORE TDO. CHECK FOR SKIP/ NO SKIP
6369 ;AND CORRECT DATA IN AC.
6370
6371 000005 AC=5
6372 037011 TDON1: SETUP 40,0^
6373 000006 AC1=<AC+1>&17
6374 000007 AC2=<AC+2>&17
6375 000010 AC3=<AC+3>&17
6376 000011 AC4=<AC+4>&17
6377 000012 AC5=<AC+5>&17
6378 000003 RAN1=<AC-2>&17
6379 037011 201 04 0 00 037011 MOVEI AC-1,.
6380 037012 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6381 037013 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6382 037014 202 04 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6383 037015 201 04 0 00 000040 MOVEI AC-1,40 ;ROUTINE WEIGHTING
6384 037016 240 04 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6385 037017 240 04 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6386 037020 201 06 0 00 000001 MOVEI AC1,1 ;SETUP AC TO CONTAIN A MASK BIT.
6387 037021 TDON2: RANDOM^
6388 037021 200 05 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6389 037022 270 05 0 00 037576 ADD AC,[142536475076]
6390 037023 241 05 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6391 037024 447 05 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
6392 037025 241 06 0 00 000001 ROT AC1,1 ;ROT TO TEST NEXT BIT.
6393 037026 200 07 0 00 000006 MOVE AC2,AC1 ;SAVE C(AC) SO IT CAN BE
6394 037027 200 06 0 00 000007 TDON3: MOVE AC1,AC2 ;RESTORED IN CASE OF ERROR.
6395 037030 434 05 0 00 000006 IOR AC,AC1 ;SET MASK BIT IN E.
6396 037031 672 06 0 00 000005 TDOE AC1,AC ;C(E) + C(AC) NOT = 0...NO SKIP.
6397 037032 254 00 0 00 037034 JRST .+2
6398 037033 005 06 0 00 037613 ER AC1,[ASCII /TST/];TDOE SKIPPED.
6399 037034 676 06 0 00 000005 TDON AC1,AC ;C(E) + C(AC) NOT = 0...SKIP.
6400 037035 005 06 0 00 037613 ER AC1,[ASCII /TST/]
6401 037036 312 06 0 00 000005 CAME AC1,AC ;C(AC) SHOULD = C(E).
6402 037037 001 05 0 00 000007 ERR AC,AC2
6403 037040 200 06 0 00 000007 MOVE AC1,AC2 ;RESTORE AC.
6404 LOOP TDON2,TDON3^
6405 037041 367 04 0 00 037021 SOJG AC-1,TDON2 ;ITERATION COUNTER
6406 037042 200 05 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6407 037043 321 04 0 00 037027 JUMPL AC-1,TDON3 ;LOOP ON ERROR SWITCH ^
6408
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 118
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0171
6409
6410 ;TEST TDC. CHECK FOR SKIP/NO SKIP AND CORRECT
6411 ;DATA FOR NOT RAN TO RAN CONDITION.
6412
6413 000006 AC=6
6414 037044 TDC1: SETUP 100,0^
6415 000007 AC1=<AC+1>&17
6416 000010 AC2=<AC+2>&17
6417 000011 AC3=<AC+3>&17
6418 000012 AC4=<AC+4>&17
6419 000013 AC5=<AC+5>&17
6420 000004 RAN1=<AC-2>&17
6421 037044 201 05 0 00 037044 MOVEI AC-1,.
6422 037045 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6423 037046 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6424 037047 202 05 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6425 037050 201 05 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6426 037051 240 05 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6427 037052 240 05 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6428 037053 TDC2: RANDOM^
6429 037053 200 06 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6430 037054 270 06 0 00 037576 ADD AC,[142536475076]
6431 037055 241 06 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6432 037056 447 06 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
6433 037057 460 07 0 00 037704 TDC3: SETCM AC1,RAN ;MAKE C("E") = COMP. OF RAN.
6434 037060 650 06 0 00 000007 TDC AC,AC1 ;NO SKIP.
6435 037061 312 06 0 00 037601 CAME AC,[-1] ;C(AC) SHOULD = A -1.
6436 037062 001 07 0 00 037704 ERR AC1,RAN
6437 037063 474 04 0 00 000000 SETO RAN1, ;SET RAN1 FOR ERROR MESSAGE.
6438 037064 650 06 0 00 000007 TDC AC,AC1 ;NO SKIP.
6439 037065 312 06 0 00 037704 CAME AC,RAN ;C(AC) SHOULD = RAN AGAIN.
6440 037066 001 07 0 00 000004 ERR AC1,RAN1
6441 LOOP TDC2,TDC3^
6442 037067 367 05 0 00 037053 SOJG AC-1,TDC2 ;ITERATION COUNTER
6443 037070 200 06 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6444 037071 321 05 0 00 037057 JUMPL AC-1,TDC3 ;LOOP ON ERROR SWITCH ^
6445
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 119
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0172
6446
6447 ;TEST TDCA. CHECKING FOR SKIP/ NO SKIP AND
6448 ;CORRECT DATA IN AC FOR NOT RAN TO RAN CONDITION.
6449
6450 000010 AC=10
6451 037072 TDCA1: SETUP 100,0^
6452 000011 AC1=<AC+1>&17
6453 000012 AC2=<AC+2>&17
6454 000013 AC3=<AC+3>&17
6455 000014 AC4=<AC+4>&17
6456 000015 AC5=<AC+5>&17
6457 000006 RAN1=<AC-2>&17
6458 037072 201 07 0 00 037072 MOVEI AC-1,.
6459 037073 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6460 037074 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6461 037075 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6462 037076 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6463 037077 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6464 037100 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6465 037101 TDCA2: RANDOM^
6466 037101 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6467 037102 270 10 0 00 037576 ADD AC,[142536475076]
6468 037103 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6469 037104 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
6470 037105 460 11 0 00 037704 TDCA3: SETCM AC1,RAN ;MAKE C("E") = COMP OF RAN.
6471 037106 650 10 0 00 000011 TDC AC,AC1 ;SHOULD NOT SKIP.
6472 037107 254 00 0 00 037111 JRST .+2
6473 037110 005 10 0 00 037613 ER AC,[ASCII /TST/];TDC SKIPPED.
6474 037111 654 10 0 00 000011 TDCA AC,AC1 ;SHOULD SKIP.
6475 037112 005 10 0 00 037613 ER AC,[ASCII /TST/]
6476 037113 312 10 0 00 037704 CAME AC,RAN ;TWO TDC'S SHOULD RETURN C(AC)
6477 ;TO IT'S ORIGINAL VALUE.
6478 037114 001 11 0 00 037704 ERR AC1,RAN
6479 LOOP TDCA2,TDCA3^
6480 037115 367 07 0 00 037101 SOJG AC-1,TDCA2 ;ITERATION COUNTER
6481 037116 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6482 037117 321 07 0 00 037105 JUMPL AC-1,TDCA3 ;LOOP ON ERROR SWITCH ^
6483
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 120
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0173
6484
6485 ;TEST TDCE. CHECKING FOR SKIP/NO SKIP AND
6486 ;CORRECT DATA IN AC FOR RAN TO 0 CONDITION.
6487
6488 000011 AC=11
6489 037120 TDCE1: SETUP 100,0^
6490 000012 AC1=<AC+1>&17
6491 000013 AC2=<AC+2>&17
6492 000014 AC3=<AC+3>&17
6493 000015 AC4=<AC+4>&17
6494 000016 AC5=<AC+5>&17
6495 000007 RAN1=<AC-2>&17
6496 037120 201 10 0 00 037120 MOVEI AC-1,.
6497 037121 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6498 037122 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6499 037123 202 10 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6500 037124 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6501 037125 240 10 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6502 037126 240 10 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6503 037127 TDCE2: RANDOM^
6504 037127 200 11 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6505 037130 270 11 0 00 037576 ADD AC,[142536475076]
6506 037131 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6507 037132 447 11 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
6508 037133 403 12 0 00 000007 TDCE3: SETZB AC1,RAN1 ;CLEAR BOTH AC AND RAN1.
6509 037134 652 12 0 00 000011 TDCE AC1,AC ;C(E) + C(AC) = 0. SKIP.
6510 037135 005 12 0 00 037613 ER AC1,[ASCII /TST/]
6511 037136 312 12 0 00 037704 CAME AC1,RAN ;C(AC) SHOULD = RAN.
6512 037137 011 00 0 00 000007 EERR ,RAN1
6513 LOOP TDCE2,TDCE3^
6514 037140 367 10 0 00 037127 SOJG AC-1,TDCE2 ;ITERATION COUNTER
6515 037141 200 11 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6516 037142 321 10 0 00 037133 JUMPL AC-1,TDCE3 ;LOOP ON ERROR SWITCH ^
6517
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 121
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0174
6518
6519 ;TEST TDCE,TDCN. CHECKING FOR SKIP/NO SKIP AND
6520 ;CORRECT DATA IN AC FOR 0 TO RAN CONDITION.
6521
6522 000011 AC=11
6523 037143 TDCEA: SETUP 100,0^
6524 000012 AC1=<AC+1>&17
6525 000013 AC2=<AC+2>&17
6526 000014 AC3=<AC+3>&17
6527 000015 AC4=<AC+4>&17
6528 000016 AC5=<AC+5>&17
6529 000007 RAN1=<AC-2>&17
6530 037143 201 10 0 00 037143 MOVEI AC-1,.
6531 037144 202 10 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6532 037145 201 10 0 00 000010 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6533 037146 202 10 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6534 037147 201 10 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6535 037150 240 10 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6536 037151 240 10 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6537 037152 TDCEB: RANDOM^
6538 037152 200 11 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6539 037153 270 11 0 00 037576 ADD AC,[142536475076]
6540 037154 241 11 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6541 037155 447 11 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
6542 037156 400 12 0 00 000000 TDCEC: SETZ AC1, ;CLEAR C(E).
6543 037157 656 11 0 00 000012 TDCN AC,AC1 ;C(E) + C(AC) = 0...NO SKIP.
6544 037160 254 00 0 00 037162 JRST .+2
6545 037161 005 11 0 00 037613 ER AC,[ASCII /TST/];TDCN SKIPPED.
6546 037162 652 11 0 00 000012 TDCE AC,AC1 ;C(E) + C(AC) = 0. SKIP.
6547 037163 005 11 0 00 037613 ER AC,[ASCII /TST/]
6548 037164 312 11 0 00 037704 CAME AC,RAN ;C(AC) SHOULD STILL = RAN.
6549 037165 001 12 0 00 037704 ERR AC1,RAN
6550 LOOP TDCEB,TDCEC^
6551 037166 367 10 0 00 037152 SOJG AC-1,TDCEB ;ITERATION COUNTER
6552 037167 200 11 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6553 037170 321 10 0 00 037156 JUMPL AC-1,TDCEC ;LOOP ON ERROR SWITCH ^
6554
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 122
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0175
6555
6556 ;TEST TDCE. CHECKING FOR SKIP/NO SKIP AND
6557 ;CORRECT DATA IN AC FOR RAN TO -1 CONDITION.
6558
6559 000010 AC=10
6560 037171 TDCE4: SETUP 100,0^
6561 000011 AC1=<AC+1>&17
6562 000012 AC2=<AC+2>&17
6563 000013 AC3=<AC+3>&17
6564 000014 AC4=<AC+4>&17
6565 000015 AC5=<AC+5>&17
6566 000006 RAN1=<AC-2>&17
6567 037171 201 07 0 00 037171 MOVEI AC-1,.
6568 037172 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6569 037173 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6570 037174 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6571 037175 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6572 037176 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6573 037177 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6574 037200 TDCE5: RANDOM^
6575 037200 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6576 037201 270 10 0 00 037576 ADD AC,[142536475076]
6577 037202 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6578 037203 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
6579 037204 322 10 0 00 037200 JUMPE AC,TDCE5 ;REJECT IF RAN = 0.
6580 037205 477 11 0 00 000006 TDCE6: SETOB AC1,RAN1 ;SET C(AC) TO ALL ONES.
6581 037206 460 12 0 00 000010 SETCM AC2,AC ;SIMULATE A TDC.
6582 037207 652 11 0 00 000010 TDCE AC1,AC ;C(E) + C(AC) NOT = 0. NO SKIP.
6583 037210 312 11 0 00 000012 CAME AC1,AC2 ;C(AC) = SIM.. ANS?
6584 037211 001 10 0 00 000006 ERR AC,RAN1 ;NO.
6585 LOOP TDCE5,TDCE6^
6586 037212 367 07 0 00 037200 SOJG AC-1,TDCE5 ;ITERATION COUNTER
6587 037213 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6588 037214 321 07 0 00 037205 JUMPL AC-1,TDCE6 ;LOOP ON ERROR SWITCH ^
6589
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 123
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0176
6590
6591 ;TEST TDCE,TDCN. CHECKING FOR SKIP/NO SKIP AND
6592 ;CORRECT DATA IN AC FOR -1 TO RAN CONDITION.
6593
6594 000010 AC=10
6595 037215 TDCED: SETUP 100,0^
6596 000011 AC1=<AC+1>&17
6597 000012 AC2=<AC+2>&17
6598 000013 AC3=<AC+3>&17
6599 000014 AC4=<AC+4>&17
6600 000015 AC5=<AC+5>&17
6601 000006 RAN1=<AC-2>&17
6602 037215 201 07 0 00 037215 MOVEI AC-1,.
6603 037216 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6604 037217 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6605 037220 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6606 037221 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6607 037222 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6608 037223 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6609 037224 TDCEE: RANDOM^
6610 037224 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6611 037225 270 10 0 00 037576 ADD AC,[142536475076]
6612 037226 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6613 037227 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
6614 037230 322 10 0 00 037224 JUMPE AC,TDCEE ;REJECT IF RAN = 0.
6615 037231 316 10 0 00 037601 CAMN AC,[-1] ;C(AC) = -1?
6616 037232 254 00 0 00 037224 JRST TDCEE ;YES. REJECT.
6617 037233 477 11 0 00 000006 TDCEF: SETOB AC1,RAN1 ;SET C(E) TO ALL ONES.
6618 037234 652 10 0 00 000011 TDCE AC,AC1 ;C(E) + C(AC) NOT = 0. NO SKIP.
6619 037235 254 00 0 00 037237 JRST .+2
6620 037236 005 10 0 00 037613 ER AC,[ASCII /TST/];TDCE SKIPPED.
6621 037237 656 10 0 00 000011 TDCN AC,AC1 ;C(E) + C(AC) NOT = 0..SKIP.
6622 037240 005 10 0 00 037613 ER AC,[ASCII /TST/]
6623 037241 312 10 0 00 037704 CAME AC,RAN ;C(AC) SHOULD = ORIG C(AC).
6624 037242 001 06 0 00 037704 ERR RAN1,RAN
6625 LOOP TDCEE,TDCEF^
6626 037243 367 07 0 00 037224 SOJG AC-1,TDCEE ;ITERATION COUNTER
6627 037244 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6628 037245 321 07 0 00 037233 JUMPL AC-1,TDCEF ;LOOP ON ERROR SWITCH ^
6629
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 124
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0177
6630
6631 ;TEST TDCE. CHECKING FOR SKIP/NO SKIP AND
6632 ;CORRECT DATA IN AC FOR RAN TO RAN CONDITION.
6633
6634 000010 AC=10
6635 037246 TDCE7: SETUP 100,0^
6636 000011 AC1=<AC+1>&17
6637 000012 AC2=<AC+2>&17
6638 000013 AC3=<AC+3>&17
6639 000014 AC4=<AC+4>&17
6640 000015 AC5=<AC+5>&17
6641 000006 RAN1=<AC-2>&17
6642 037246 201 07 0 00 037246 MOVEI AC-1,.
6643 037247 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6644 037250 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6645 037251 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6646 037252 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6647 037253 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6648 037254 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6649 037255 TDCE8: RANDOM^
6650 037255 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6651 037256 270 10 0 00 037576 ADD AC,[142536475076]
6652 037257 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6653 037260 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
6654 037261 322 10 0 00 037255 JUMPE AC,TDCE8 ;REJECT IF RAN = 0.
6655 037262 200 11 0 00 037704 TDCE9: MOVE AC1,RAN ;MAKE C("AC") = C("E").
6656 037263 652 11 0 00 000010 TDCE AC1,AC ;C(E) + C(AC) NOT = 0. NO SKIP.
6657 037264 312 11 0 00 037577 CAME AC1,[0] ;C(AC) SHOULD = 0.
6658 037265 001 10 0 00 000010 ERR AC,AC
6659 LOOP TDCE8,TDCE9^
6660 037266 367 07 0 00 037255 SOJG AC-1,TDCE8 ;ITERATION COUNTER
6661 037267 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6662 037270 321 07 0 00 037262 JUMPL AC-1,TDCE9 ;LOOP ON ERROR SWITCH ^
6663
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 125
DBKBAM MAC 26-MAY-76 16:47 DIAGNOSTIC SECTION SEQ 0178
6664
6665 ;TEST TDCE. CHECKING FOR SKIP/NO SKIP AND
6666 ;CORRECT DATA IN AC FOR RAN TO NOT RAN.
6667
6668 000010 AC=10
6669 037271 TDCEG: SETUP 100,0^
6670 000011 AC1=<AC+1>&17
6671 000012 AC2=<AC+2>&17
6672 000013 AC3=<AC+3>&17
6673 000014 AC4=<AC+4>&17
6674 000015 AC5=<AC+5>&17
6675 000006 RAN1=<AC-2>&17
6676 037271 201 07 0 00 037271 MOVEI AC-1,.
6677 037272 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
6678 037273 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
6679 037274 202 07 0 00 037701 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
6680 037275 201 07 0 00 000100 MOVEI AC-1,100 ;ROUTINE WEIGHTING
6681 037276 240 07 1 00 030671 ASH AC-1,@CMPLXT+0 ;ROUTINE COMPLEXITY
6682 037277 240 07 1 00 030670 ASH AC-1,@RTIME ;RUN TIME CONTROLLER ^
6683 037300 TDCEH: RANDOM^
6684 037300 200 10 0 00 037704 MOVE AC,RAN# ;GENERATE PSEUDO RANDOM NUMBER
6685 037301 270 10 0 00 037576 ADD AC,[142536475076]
6686 037302 241 10 0 00 777777 ROT AC,-1 ;IN BOTH AC AND
6687 037303 447 10 0 00 037704 EQVB AC,RAN ;REGISTER RAN ^
6688 037304 460 11 0 00 000010 TDCEI: SETCM AC1,AC ;MAKE C("AC") = TO COMP OF RAN.
6689 037305 200 06 0 00 000011 MOVE RAN1,AC1 ;SAVE C(AC) IN CASE OF ERROR.
6690 037306 652 11 0 00 000010 TDCE AC1,AC ;C(E) + C(AC) = 0. SKIP.
6691 037307 005 11 0 00 037613 ER AC1,[ASCII /TST/]
6692 037310 312 11 0 00 037601 CAME AC1,[-1] ;C(AC) SHOULD = -1.
6693 037311 001 10 0 00 000006 ERR AC,RAN1
6694 LOOP TDCEH,TDCEI^
6695 037312 367 07 0 00 037300 SOJG AC-1,TDCEH ;ITERATION COUNTER
6696 037313 200 10 0 00 037704 MOVE AC,RAN ;RESTORE RANDOM NUMBER
6697 037314 321 07 0 00 037304 JUMPL AC-1,TDCEI ;LOOP ON ERROR SWITCH ^
6698
6699
6700
6701 037315 254 00 0 00 030057 JRST BEGEND ;REPEAT TEST
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 1
UUOERR KLM 22-APR-75 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0179
6702 SUBTTL *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975
6703
6704 ;THIS SUBROUTINE PROVIDES ERROR REPORTING THRU THE USE OF UUO'S.
6705
6706 037316 202 00 0 00 037713 ERRMES: MOVEM 0,%ERAC0# ;SAVE AC0
6707 IFDEF EXCASB,<IFDEF KI10,<
6708 037317 336 00 0 00 030040 SKIPN KAIFLG
6709 037320 254 00 0 00 037325 JRST .+5
6710 037321 332 00 0 00 030037 SKIPE USER ;USER MODE ?
6711 037322 254 00 0 00 037325 JRST .+3
6712 037323 332 00 0 00 030055 SKIPE MARGIN
6713 037324 7 000 14 0 00 037614 DATAO APR,[IMGNOF,,ISPDOF] ;CLR MARGINS >>
6714 037325 202 01 0 00 037714 MOVEM 1,%ERAC1# ;SAVE AC1
6715 037326 202 02 0 00 037715 MOVEM 2,%ERAC2# ;SAVE AC2
6716 037327 350 00 0 00 030053 AOS ERRTLS ;INCREMENT ERROR TOTALS
6717 037330 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO
6718 037331 316 00 0 00 030052 CAMN 0,ERRPC ;PC = PC OF LAST ERROR ?
6719 037332 350 00 0 00 037702 AOS MICNT# ;YES, ADD 1 TO ERROR COUNT
6720 037333 200 00 0 00 037702 MOVE 0,MICNT
6721 037334 504 00 0 00 030114 HRL 0,$SVUPC
6722 037335 336 00 0 00 030041 SKIPN KLFLG ;NOT KL10
6723 037336 332 00 0 00 030037 SKIPE USER ;AND NOT USER?
6724 037337 254 00 0 00 037341 JRST .+2
6725 037340 7 004 14 0 00 000000 DATAO PI,0 ;YES, DISPLAY ERROR PC,ERROR COUNT
6726 037341 402 00 0 00 037703 SETZM PROCED# ;CLEAR PROCEED FLAG
6727 037342 037 10 0 00 000002 SWITCH
6728 037343 603 00 0 00 040000 TLNE NOPNT ;PRINTOUT ?
6729 037344 254 00 0 00 037530 JRST %ERRS1 ;NO, RESTORE AC'S AND RETURN
6730 037345 200 01 0 00 030113 MOVE 1,$SVUUO
6731 037346 242 01 0 00 777745 LSH 1,-^D27
6732 037347 202 01 0 00 037705 MOVEM 1,%ACS1A# ;SAVE UUO NUMBER
6733 037350 200 00 0 00 037713 MOVE 0,%ERAC0
6734 037351 200 01 0 00 037714 MOVE 1,%ERAC1
6735 037352 335 00 1 00 037701 SKIPGE @ERRLOP ;ERR LOOP AC > OR = 0 ?
6736 037353 254 00 0 00 037570 JRST %ERRS4 ;NO, SEE IF PRINT ALL
6737 037354 402 00 0 00 037702 %ERMS1: SETZM MICNT ;CLEAR ERROR COUNT
6738 037355 331 00 0 00 030043 SKIPL MONCTL ;DIAG MON OR SYS EXER ?
6739 037356 254 00 0 00 037362 JRST .+4 ;NO, DON'T NEED TITLE
6740 037357 336 00 0 00 037716 SKIPN %ERFST# ;FIRST ERROR ?
6741 037360 037 04 0 00 000002 PNTNM ;YES, PRINT PROGRAM TITLE
6742 037361 476 00 0 00 037716 SETOM %ERFST
6743 037362 336 00 0 00 030047 SKIPN PASCNT ;FIRST PASS ?
6744 037363 254 00 0 00 037367 JRST .+4 ;YES
6745 PMSG <^TEST PASS COUNT = >^
6746 037364 037 02 0 00 037615 PSIXM [SIXBIT\^TEST PASS COUNT = _\]^
6747 037365 200 00 0 00 030047 MOVE PASCNT
6748 037366 037 15 0 00 000000 PNTDEC
6749 PMSG <^PC = >^
6750 037367 037 02 0 00 037621 PSIXM [SIXBIT\^PC = _\]^
6751 037370 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO
6752 037371 202 00 0 00 030052 MOVEM 0,ERRPC ;SAVE FOR COMPARE
6753 037372 037 06 0 00 000000 PNT6 ;PRINT UUO ADDRESS
6754 XLIST
6755 LIST
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 4
UUOERR KLM 22-APR-75 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0180
6756 ;RELIABILITY FORMAT ERROR PRINTER
6757
6758 037373 402 00 0 00 037717 %ERMS2: SETZM %RAND# ;CLEAR PNT C(RAN) FLAG
6759 037374 200 01 0 00 037705 MOVE 1,%ACS1A
6760 037375 301 01 0 00 000011 CAIL 1,11 ;UUO # 11-13
6761 037376 476 00 0 00 037717 SETOM %RAND ;YES, SET PNT C(RAN) FLAG
6762 037377 620 01 0 00 000010 TRZ 1,10 ;MAKE UUO # 1-7
6763 037400 202 01 0 00 037705 MOVEM 1,%ACS1A
6764 037401 200 02 0 00 030052 MOVE 2,ERRPC ;GET UUO ADDRESS
6765 037402 200 02 0 02 777777 MOVE 2,-1(2) ;GET INST IN UUO-1
6766 037403 301 01 0 00 000004 CAIL 1,4 ;UUO # < THAN 4 ?
6767 037404 200 02 0 00 030113 MOVE 2,$SVUUO ;YES, GET UUO
6768 037405 202 02 0 00 037706 MOVEM 2,%CNTE# ;SAVE E ADDRESS
6769 037406 200 02 0 00 037715 MOVE 2,%ERAC2
6770 037407 200 01 0 00 037714 MOVE 1,%ERAC1
6771 037410 200 00 0 00 037713 MOVE 0,%ERAC0
6772 037411 201 01 1 00 037706 MOVEI 1,@%CNTE ;GET ADRS FIELD OF UUO OR UUO-1
6773 037412 202 01 0 00 037707 MOVEM 1,%EE1#
6774 037413 200 01 0 00 037714 MOVE 1,%ERAC1
6775 037414 200 01 1 00 037707 MOVE 1,@%EE1 ;GET C(E)
6776 037415 202 01 0 00 037710 MOVEM 1,%EE1A#
6777 037416 200 01 0 00 037714 MOVE 1,%ERAC1
6778 037417 201 01 1 00 030113 MOVEI 1,@$SVUUO ;GET ADDRESS FIELD OF UUO
6779 037420 202 01 0 00 037711 MOVEM 1,%EE2#
6780 037421 200 01 0 00 037705 MOVE 1,%ACS1A
6781 037422 306 01 0 00 000003 CAIN 1,3 ;UUO # 3 ?
6782 037423 254 00 0 00 037427 JRST .+4 ;YES
6783 037424 200 01 0 00 037714 MOVE 1,%ERAC1
6784 037425 200 01 1 00 037711 MOVE 1,@%EE2 ;GET C(E) OF UUO
6785 037426 202 01 0 00 037712 MOVEM 1,%EE2A#
6786 037427 200 02 0 00 037705 MOVE 2,%ACS1A ;GET UUO #
6787 037430 200 01 0 00 037706 MOVE 1,%CNTE
6788 037431 242 01 0 00 777751 LSH 1,-27 ;GET AC NUMBER
6789 037432 405 01 0 00 000017 ANDI 1,17
6790 037433 307 02 0 00 000005 CAIG 2,5 ;UUO # 6,7 OR 2
6791 037434 306 02 0 00 000002 CAIN 2,2
6792 037435 254 00 0 00 037504 JRST %ERR2 ;YES, GO PNT E AND C(E)
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 5
UUOERR KLM 22-APR-75 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0181
6793 ;PRINT ERROR AC
6794
6795 PMSG <^AC = >^
6796 037436 037 02 0 00 037623 PSIXM [SIXBIT\^AC = _\]^
6797 037437 200 00 0 00 000001 MOVE 0,1
6798 037440 037 02 0 00 000000 PNT2 ;PRINT AC NUMBER
6799 PMSG <^C(AC)= >^
6800 037441 037 02 0 00 037625 PSIXM [SIXBIT\^C(AC)= _\]^
6801 037442 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC)
6802 037443 307 01 0 00 000002 CAIG 1,2 ;IS AC # = SAVED AC ?
6803 037444 200 00 0 01 037713 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC
6804 037445 037 13 0 00 000000 %ERRB: PNTHW ;PRINT C(AC) OR UUO2 (E)
6805
6806 ;PRINT ERROR INFO
6807
6808 037446 306 02 0 00 000005 CAIN 2,5 ;UUO # 5
6809 037447 254 00 0 00 037520 JRST %ERR4 ;YES, GO PNT 'TST','SKP', OR ETC.
6810
6811 PMSG <^COR = >^
6812 037450 037 02 0 00 037627 PSIXM [SIXBIT\^COR = _\]^
6813 037451 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC)
6814 037452 307 01 0 00 000002 CAIG 1,2 ;IS AC # = SAVED AC ?
6815 037453 200 00 0 01 037713 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC
6816 037454 302 02 0 00 000002 CAIE 2,2
6817 037455 200 00 0 00 037710 MOVE 0,%EE1A ;UUO # 2, GET C(E)
6818 037456 037 13 0 00 000000 PNTHW ;PRINT C(E) OR UUO2 C(AC)
6819 037457 301 02 0 00 000004 CAIL 2,4 ;UUO # >3 ?
6820 037460 254 00 0 00 037523 JRST %ERRC ;YES, RESTORE AC'S AND RETURN
6821
6822 PMSG <^ ORIGINAL>^
6823 037461 037 02 0 00 037631 PSIXM [SIXBIT\^ ORIGINAL_\]^
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 6
UUOERR KLM 22-APR-75 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0182
6824 037462 200 01 0 00 030113 %ERRB1: MOVE 1,$SVUUO
6825 037463 242 01 0 00 777751 LSH 1,-27 ;GET AC # OF UUO
6826 037464 405 01 0 00 000017 ANDI 1,17
6827 PMSG <^C(AC)= >^
6828 037465 037 02 0 00 037625 PSIXM [SIXBIT\^C(AC)= _\]^
6829 037466 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC)
6830 037467 307 01 0 00 000002 CAIG 1,2 ;IS AC # = SAVED AC ?
6831 037470 200 00 0 01 037713 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC
6832 037471 332 00 0 00 037717 SKIPE %RAND ;PRINT C(RAN) FLAG SET ?
6833 037472 200 00 0 00 037704 MOVE 0,RAN# ;YES
6834 037473 037 13 0 00 000000 PNTHW ;PRINT C(AC) OR C(RAN)
6835 037474 306 02 0 00 000003 CAIN 2,3 ;UUO # 3 ?
6836 037475 254 00 0 00 037504 JRST %ERR2 ;YES, PRINT E, RESTORE AC'S AND RETURN
6837 037476 306 02 0 00 000007 CAIN 2,7 ;UUO # 7 ?
6838 037477 254 00 0 00 037523 JRST %ERRC ;YES, BYPASS PRINTING C(E)
6839 PMSG <^C(E) = >^
6840 037500 037 02 0 00 037634 PSIXM [SIXBIT\^C(E) = _\]^
6841 037501 200 00 0 00 037712 MOVE 0,%EE2A
6842 037502 037 13 0 00 000000 PNTHW ;PRINT C(E)
6843 037503 254 00 0 00 037523 JRST %ERRC
6844
6845 037504 %ERR2: PMSG <^E = >^
6846 037504 037 02 0 00 037636 PSIXM [SIXBIT\^E = _\]^
6847 037505 200 00 0 00 037711 MOVE 0,%EE2
6848 037506 306 02 0 00 000002 CAIN 2,2 ;UUO # 2 ?
6849 037507 200 00 0 00 037707 MOVE 0,%EE1
6850 037510 037 06 0 00 000000 PNT6 ;PRINT E OF UUO OR UUO-1
6851 037511 301 02 0 00 000006 CAIL 2,6 ;UUO 6 OR 7 ?
6852 037512 254 00 0 00 037462 JRST %ERRB1 ;YES, GO PNT C(AC), C(E) AND RETURN
6853 037513 306 02 0 00 000003 CAIN 2,3 ;UUO # 3 ?
6854 037514 254 00 0 00 037523 JRST %ERRC ;YES, RESTORE AC'S AND RETURN
6855
6856 PMSG <^C(E) = >^
6857 037515 037 02 0 00 037634 PSIXM [SIXBIT\^C(E) = _\]^
6858 037516 200 00 0 00 037710 MOVE 0,%EE1A ;GET C(E)
6859 037517 254 00 0 00 037445 JRST %ERRB
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 7
UUOERR KLM 22-APR-75 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0183
6860 ;PRINT ASCII COMMENT
6861
6862 037520 551 00 1 00 030113 %ERR4: HRRZI 0,@$SVUUO
6863 037521 037 00 0 00 000000 PNTA ;PRINT 'TST','SKP', OR ETC.
6864 037522 254 00 0 00 037523 JRST %ERRC
6865
6866 ;COMPLETE PRINTOUT
6867
6868 037523 037 00 0 00 030242 %ERRC: PCRL
6869
6870 XLIST
6871 LIST
6872 037524 254 00 0 00 037525 JRST %ERMORE
6873
6874 >
6875 LIST
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 8
UUOERR KLM 22-APR-75 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0184
6876 ;RESTORE AC'S AND RETURN OR HALT
6877
6878 037525 256 00 0 00 030101 %ERMORE:XCT ERMORE
6879 037526 037 16 0 00 000002 PNTMGN ;PRINT MARGINS
6880 037527 037 10 0 00 000002 SWITCH
6881
6882 037530 037 07 0 00 000003 %ERRS1: TTALTM ;ALTMODE CHECK
6883 037531 254 00 0 00 037535 JRST .+4 ;NONE
6884 037532 201 00 0 00 037535 MOVEI .+3 ;SAVE CONT ADDRESS
6885 037533 202 00 0 00 000130 MOVEM JOBOPC
6886 037534 254 00 1 00 030063 JRST @ALTMGO ;PERFORM TRANSFER
6887 037535 200 00 0 00 030046 MOVE CONSW
6888 037536 603 00 0 00 002000 TLNE 0,ERSTOP ;HALT ON ERROR SWITCH SET ?
6889 037537 037 14 0 00 000004 ERRHLT ;YES
6890 037540 607 00 0 00 004000 TLNN 0,LOOPER ;LOOP ON ERROR SWITCH SET ?
6891 037541 476 00 0 00 037703 SETOM PROCED ;NO, SET THE PROCEED FLAG
6892 037542 603 00 0 00 010000 TLNE 0,DING ;RING BELL SWITCH SET ?
6893 037543 037 01 0 00 000007 PBELL ;YES, GO RING BELL
6894
6895 037544 200 02 0 00 037715 %ERRS2: MOVE 2,%ERAC2 ;RESTORE AC'S
6896 037545 200 01 0 00 037714 MOVE 1,%ERAC1
6897 037546 476 00 1 00 037701 SETOM @ERRLOP ;SET C(ERR LOOP AC) TO -1
6898 037547 336 00 0 00 037703 SKIPN PROCED ;LOOP ON ERROR ?
6899 037550 254 00 0 00 037560 JRST %ERRS5 ;YES
6900 037551 350 00 1 00 037701 AOS @ERRLOP ;NO, INC C(ERR LOOP AC)
6901 037552 350 00 1 00 037701 AOS @ERRLOP ;SO IT ='S 1
6902 037553 331 00 0 00 030043 SKIPL MONCTL ;UNDER DIAGNOSTIC MONITOR ?
6903 037554 254 00 0 00 037560 JRST %ERRS5 ;NO, CONTINUE PROGRAM
6904 037555 200 00 0 00 030053 MOVE 0,ERRTLS ;YES
6905 037556 301 00 0 00 000005 CAIL 0,5 ;PRINTED ALLOWED ERRORS ?
6906 037557 254 00 0 00 030061 JRST $BEND2
6907
6908 037560 200 00 0 00 037713 %ERRS5: MOVE 0,%ERAC0 ;NO, CONTINUE PROGRAM
6909 IFDEF EXCASB,<IFDEF KI10,<
6910 037561 336 00 0 00 030040 SKIPN KAIFLG
6911 037562 254 00 0 00 037567 JRST .+5
6912 037563 332 00 0 00 030037 SKIPE USER
6913 037564 254 00 0 00 037567 JRST .+3
6914 037565 332 00 0 00 030055 SKIPE MARGIN
6915 037566 7 000 14 0 00 030055 DATAO APR,MARGIN ;RESET MARGIN SYSTEM >>
6916 037567 254 00 0 00 030065 JRST UUOEXT
6917
6918 037570 200 00 0 00 030046 %ERRS4: MOVE 0,CONSW
6919 037571 607 00 0 00 001000 TLNN PALERS ;PRINT ALL ERRORS ?
6920 037572 254 00 0 00 037530 JRST %ERRS1 ;NO
6921 037573 254 00 0 00 037354 JRST %ERMS1 ;YES
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 1
STOR KLM 5-JAN-76 *STOR* RESERVED STORAGE, JAN 5,1976 SEQ 0185
6922 SUBTTL *STOR* RESERVED STORAGE, JAN 5,1976
6923
6924 ;PROGRAM LITERALS
6925
6926 XLIST
6927 IFNDEF $LPAPER,<LIST>
6928 037574 LIT
6929 037574 64 51 55 45 62 00
6930 037575 45 70 51 64 00 00
6931 037576 142536 475076
6932 037577 000000 000000
6933 037600 123 113 120 000 000
6934 037601 777777 777777
6935 037602 000000 000377
6936 037603 117 126 000 000 000
6937 037604 400000 000000
6938 037605 000000 000001
6939 037606 103 122 131 060 000
6940 037607 103 122 131 061 000
6941 037610 103 122 131 060 061
6942 037611 777777 000000
6943 037612 377777 777777
6944 037613 124 123 124 000 000
6945 037614 002000 010000
6946 037615 76 64 45 63 64 00
6947 037616 60 41 63 63 00 43
6948 037617 57 65 56 64 00 35
6949 037620 00 77 00 00 00 00
6950 037621 76 60 43 00 35 00
6951 037622 00 00 77 00 00 00
6952 037623 76 41 43 00 35 00
6953 037624 00 00 77 00 00 00
6954 037625 76 43 10 41 43 11
6955 037626 35 00 77 00 00 00
6956 037627 76 43 57 62 00 35
6957 037630 00 00 77 00 00 00
6958 037631 76 00 00 00 00 57
6959 037632 62 51 47 51 56 41
6960 037633 54 77 00 00 00 00
6961 037634 76 43 10 45 11 00
6962 037635 35 00 77 00 00 00
6963 037636 76 45 00 35 00 00
6964 037637 00 00 77 00 00 00
6965 LIST
6966 037640 000000 000000 ENDSLD: 0
6967
6968 IFDEF DEBUG,<
6969 037641 PATCH: BLOCK DEBUG ;PATCHING AREA
6970 >
6971
6972 ;PROGRAM VARIABLES
6973 037701 VAR
6974
6975 IFDEF PGMEND,<
6976 037720 000000 000000 END: 0
DBKBA PDP-10 KI10 BASIC INSTRUCTION RELIABILITY TEST (1), VERSION 0,2 MACRO %50A(432) 11:40 6-AUG-76 PAGE 1-1
STOR KLM 5-JAN-76 *STOR* RESERVED STORAGE, JAN 5,1976 SEQ 0186
6977 030000 END BEGIN >
NO ERRORS DETECTED
PROGRAM BREAK IS 000000
ABSLUTE BREAK IS 037721
CPU TIME USED 00:20.807
6K CORE USED
A 675# 685 687 687# 688 690 690# 691 693 693# 694 696 696# 697
699 699# 700 702 702# 703 705 705# SEQ 0187
ABORT 114#
AC 757# 759 760 761 762 763 764 765 766 767 768 769 770 771
773 774 775 776 784 785 786 787 788 788# 790 791 792 793
794 794# 796 797 798 799 800 800# 802 803 804 805 806 806#
808 809 810 811 812 812# 814 815 816 817 818 818# 820 821
822 823 824 824# 826 827 828 829 830 830# 832 833 834 835
836 836# 838 839 840 841 842 842# 844# 846 847 848 856# 858
859 860 861 862 863 864 865 866 867 868 869 870 872 873
874 875 884 885 886 887 888 889 889# 891 892 893 894 895
896 896# 898 899 900 901 902 903 903# 905 906 907 908 909
910 910# 912 913 914 915 916 917 917# 919 920 921 922 923
924 924# 926 927 928 929 930 931 931# 933 934 935 936 937
938 938# 940 941 942 943 944 945 945# 947 948 949 950 951
952 952# 954# 956 957 958 964# 966 967 968 969 970 971 972
973 974 975 976 977 978 980 981 982 983 995 996 999 999#
1000 1003 1004 1007 1007# 1008 1011 1012 1015 1015# 1016 1019 1020 1023
1023# 1024 1027 1028 1031 1031# 1032 1035 1036 1039 1039# 1040 1043 1044
1047 1047# 1048 1051 1052 1055 1055# 1056 1058# 1060 1061 1062 1068# 1070
1071 1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 1084 1085
1086 1087 1101 1102 1103 1104 1109 1109# 1110 1112 1113 1114 1115 1120
1120# 1121 1123 1124 1125 1126 1131 1131# 1132 1134 1135 1136 1137 1142
1142# 1143 1145 1146 1147 1148 1153 1153# 1154 1156 1157 1158 1159 1164
1164# 1165 1167 1168 1169 1170 1175 1175# 1176 1178 1179 1180 1181 1186
1186# 1187 1189# 1191 1192 1193 1200# 1202 1203 1204 1205 1206 1207 1208
1209 1210 1211 1212 1213 1214 1216 1217 1218 1219 1221 1222 1227 1228
1229 1236# 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265
1266 1268 1269 1270 1271 1273 1274 1275 1277 1278 1279 1280 1281 1285
1286 1287 1288 1288# 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300
1301 1302 1303 1305 1306 1307 1308 1310 1311 1312 1314 1315 1316 1317
1318 1322 1323 1324 1325 1325# 1332# 1334 1335 1336 1337 1338 1339 1340
1341 1342 1343 1344 1345 1346 1348 1349 1350 1351 1361 1362 1363 1364
1365 1366 1366# 1367 1369 1370 1371 1372 1373 1374 1374# 1375 1377 1378
1379 1380 1381 1382 1382# 1383 1385 1386 1387 1388 1389 1390 1390# 1391
1393# 1395 1396 1397 1404# 1427 1428 1429 1430 1431 1432 1433 1434 1435
1436 1437 1438 1439 1441 1442 1443 1444 1445 1446 1447 1448 1449 1450
1451 1452 1453 1454 1455 1456 1457 1458 1459 1461 1462 1463 1464 1464#
1467 1468 1469 1470 1471 1472 1473 1474 1475 1476 1477 1478 1479 1481
1482 1483 1484 1485 1486 1487 1488 1489 1490 1491 1492 1493 1494 1495
1496 1497 1498 1499 1501 1502 1503 1504 1504# 1507 1508 1509 1510 1511
1512 1513 1514 1515 1516 1517 1518 1519 1521 1522 1523 1524 1525 1526
1527 1528 1529 1530 1531 1532 1533 1534 1535 1536 1537 1538 1539 1541
1542 1543 1544 1544# 1552# 1554 1555 1556 1557 1558 1559 1560 1561 1562
1563 1564 1565 1566 1568 1569 1570 1571 1595 1596 1597 1598 1599 1600
1601 1602 1603 1604 1605 1606 1607 1608 1609 1610 1611 1612 1613 1614
1615 1615# 1617 1618 1619 1620 1621 1622 1623 1624 1625 1626 1627 1628
1629 1630 1631 1632 1633 1634 1635 1636 1637 1637# 1639# 1641 1642 1643
1648# 1650 1651 1652 1653 1654 1655 1656 1657 1658 1659 1660 1661 1662
1664 1665 1666 1667 1668 1669 1670 1671 1672 1673 1674 1675 1676 1677
1679 1680 1681 1687# 1689 1690 1691 1692 1693 1694 1695 1696 1697 1698
1699 1700 1701 1703 1704 1705 1706 1707 1708 1709 1710 1711 1712 1713
1714 1715 1716 1717 1718 1719 1721 1722 1723 1730# 1732 1733 1734 1735
1736 1737 1738 1739 1740 1741 1742 1743 1744 1746 1747 1748 1749 1750
1751 1752 1753 1754 1755 1756 1757 1758 1759 1761 1762 1763 1769# 1771 SEQ 0188
1772 1773 1774 1775 1776 1777 1778 1779 1780 1781 1782 1783 1785 1786
1787 1788 1789 1790 1791 1792 1793 1794 1795 1796 1797 1798 1799 1801
1802 1803 1809# 1811 1812 1813 1814 1815 1816 1817 1818 1819 1820 1821
1822 1823 1825 1826 1827 1828 1837 1839 1839# 1840 1843 1845 1845# 1846
1848# 1850 1851 1852 1857# 1859 1860 1861 1862 1863 1864 1865 1866 1867
1868 1869 1870 1871 1873 1874 1875 1876 1882 1883 1884 1891# 1893 1894
1895 1896 1897 1898 1899 1900 1901 1902 1903 1904 1905 1907 1908 1909
1910 1911 1912 1913 1914 1915 1916 1917 1918 1919 1920 1921 1922 1923
1924 1926 1927 1928 1934# 1936 1937 1938 1939 1940 1941 1942 1943 1944
1945 1946 1947 1948 1950 1951 1952 1953 1954 1955 1956 1957 1958 1959
1960 1961 1962 1963 1964 1965 1967 1968 1969 1975# 1977 1978 1979 1980
1981 1982 1983 1984 1985 1986 1987 1988 1989 1991 1992 1993 1994 1995
1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2007 2008 2009 2015#
2017 2018 2019 2020 2021 2022 2023 2024 2025 2026 2027 2028 2029 2031
2032 2033 2034 2035 2036 2037 2038 2039 2040 2041 2042 2043 2044 2045
2046 2047 2048 2049 2051 2052 2053 2059# 2061 2062 2063 2064 2065 2066
2067 2068 2069 2070 2071 2072 2073 2075 2076 2077 2078 2083 2085 2087
2089 2091 2093 2095 2096 2097 2099 2100 2101 2109# 2111 2112 2113 2114
2115 2116 2117 2118 2119 2120 2121 2122 2123 2125 2126 2127 2128 2129
2130 2132 2134 2135 2136 2137 2139 2141 2142 2143 2150# 2152 2153 2154
2155 2156 2157 2158 2159 2160 2161 2162 2163 2164 2166 2167 2168 2169
2170 2172 2174 2175 2176 2177 2178 2179 2181 2182 2183 2191# 2193 2194
2195 2196 2197 2198 2199 2200 2201 2202 2203 2204 2205 2207 2208 2209
2210 2211 2212 2218 2219 2220 2221 2222 2224 2225 2226 2234# 2236 2237
2238 2239 2240 2241 2242 2243 2244 2245 2246 2247 2248 2250 2251 2252
2253 2254 2255 2259 2260 2261 2262 2263 2265 2266 2267 2275# 2277 2278
2279 2280 2281 2282 2283 2284 2285 2286 2287 2288 2289 2291 2292 2293
2294 2295 2296 2297 2299 2302 2303 2304 2305 2306 2308 2309 2310 2318#
2320 2321 2322 2323 2324 2325 2326 2327 2328 2329 2330 2331 2332 2334
2335 2336 2337 2338 2340 2341 2342 2343 2344 2345 2347 2348 2349 2358#
2360 2361 2362 2363 2364 2365 2366 2367 2368 2369 2370 2371 2372 2374
2375 2376 2377 2378 2379 2382 2383 2385 2386 2387 2388 2389 2391 2392
2393 2402# 2404 2405 2406 2407 2408 2409 2410 2411 2412 2413 2414 2415
2416 2418 2419 2420 2421 2422 2423 2424 2427 2428 2429 2430 2431 2433
2434 2435 2443# 2445 2446 2447 2448 2449 2450 2451 2452 2453 2454 2455
2456 2457 2459 2460 2461 2462 2463 2464 2466 2467 2470 2471 2472 2473
2474 2476 2477 2478 2486# 2488 2489 2490 2491 2492 2493 2494 2495 2496
2497 2498 2499 2500 2502 2503 2504 2505 2506 2508 2510 2511 2512 2513
2514 2516 2517 2518 2526# 2528 2529 2530 2531 2532 2533 2534 2535 2536
2537 2538 2539 2540 2542 2543 2544 2545 2546 2547 2553 2555 2557 2559
2561 2563 2565 2567 2568 2569 2570 2571 2573 2574 2575 2582# 2584 2585
2586 2587 2588 2589 2590 2591 2592 2593 2594 2595 2596 2598 2599 2600
2601 2602 2604 2605 2606 2607 2608 2610 2611 2612 2618# 2620 2621 2622
2623 2624 2625 2626 2627 2628 2629 2630 2631 2632 2634 2635 2636 2637
2638 2639 2641 2642 2643 2647 2648 2649 2655# 2657 2658 2659 2660 2661
2662 2663 2664 2665 2666 2667 2668 2669 2671 2672 2673 2674 2675 2676
2677 2678 2679 2680 2682 2683 2684 2690# 2692 2693 2694 2695 2696 2697
2698 2699 2700 2701 2702 2703 2704 2706 2707 2708 2709 2710 2711 2717
2719 2721 2723 2725 2727 2729 2731 2732 2733 2734 2735 2737 2738 2739
2745# 2747 2748 2749 2750 2751 2752 2753 2754 2755 2756 2757 2758 2759
2761 2762 2763 2764 2765 2767 2768 2773 2774 2775 2782# 2784 2785 2786
2787 2788 2789 2790 2791 2792 2793 2794 2795 2796 2798 2799 2800 2801
2808 2809 2811 2812 2814 2815 2816 2821 2822 2823 2830# 2832 2833 2834 SEQ 0189
2835 2836 2837 2838 2839 2840 2841 2842 2843 2844 2846 2847 2848 2849
2856 2857 2859 2860 2862 2863 2864 2869 2870 2871 2879# 2881 2882 2883
2884 2885 2886 2887 2888 2889 2890 2891 2892 2893 2895 2896 2897 2898
2904 2906 2908 2909 2914 2915 2916 2923# 2925 2926 2927 2928 2929 2930
2931 2932 2933 2934 2935 2936 2937 2939 2940 2941 2942 2948 2950 2952
2953 2958 2959 2960 2968# 2970 2971 2972 2973 2974 2975 2976 2977 2978
2979 2980 2981 2982 2984 2985 2986 2987 3003 3008 3010 3012 3015 3017
3017# 3018 3021 3026 3028 3030 3033 3035 3035# 3036 3039 3044 3046 3048
3051 3053 3053# 3054 3057 3062 3064 3066 3069 3071 3071# 3072 3075 3080
3082 3084 3087 3089 3089# 3090 3093 3098 3100 3102 3105 3107 3107# 3108
3111 3116 3118 3120 3123 3125 3125# 3126 3129 3134 3136 3138 3141 3143
3143# 3144 3147 3152 3154 3156 3159 3161 3161# 3162 3165 3170 3172 3174
3177 3179 3179# 3180 3182# 3184 3185 3186 3193# 3195 3196 3197 3198 3199
3200 3201 3202 3203 3204 3205 3206 3207 3209 3210 3211 3212 3228 3233
3235 3237 3240 3242 3242# 3243 3246 3251 3253 3255 3258 3260 3260# 3261
3264 3269 3271 3273 3276 3278 3278# 3279 3282 3287 3289 3291 3294 3296
3296# 3297 3300 3305 3307 3309 3312 3314 3314# 3315 3318 3323 3325 3327
3330 3332 3332# 3333 3336 3341 3343 3345 3348 3350 3350# 3351 3354 3359
3361 3363 3366 3368 3368# 3369 3372 3377 3379 3381 3384 3386 3386# 3387
3390 3395 3397 3399 3402 3404 3404# 3405 3407# 3409 3410 3411 3419# 3421
3422 3423 3424 3425 3426 3427 3428 3429 3430 3431 3432 3433 3435 3436
3437 3438 3444 3445 3447 3448 3452 3453 3454 3463# 3465 3466 3467 3468
3469 3470 3471 3472 3473 3474 3475 3476 3477 3479 3480 3481 3482 3505
3508 3510 3512 3513 3516 3516# 3517 3518 3522 3525 3527 3529 3530 3533
3533# 3534 3535 3539 3542 3544 3546 3547 3550 3550# 3551 3552 3556 3559
3561 3563 3564 3567 3567# 3568 3569 3573 3576 3578 3580 3581 3584 3584#
3585 3586 3590 3593 3595 3597 3598 3601 3601# 3602 3603 3607 3610 3612
3614 3615 3618 3618# 3619 3620 3624 3627 3629 3631 3632 3635 3635# 3636
3637 3641 3644 3646 3648 3649 3652 3652# 3653 3654 3658 3661 3663 3665
3666 3669 3669# 3670 3671 3674# 3676 3677 3678 3683# 3685 3686 3687 3688
3689 3690 3691 3692 3693 3694 3695 3696 3697 3699 3700 3701 3702 3703
3704 3707 3710 3712 3713 3714 3719# 3721 3722 3723 3724 3725 3726 3727
3728 3729 3730 3731 3732 3733 3735 3736 3737 3738 3739 3740 3743 3746
3748 3749 3750 3757# 3759 3760 3761 3762 3763 3764 3765 3766 3767 3768
3769 3770 3771 3773 3774 3775 3776 3782 3783 3785 3786 3788 3789 3790
3791 3795 3796 3797 3803# 3805 3806 3807 3808 3809 3810 3811 3812 3813
3814 3815 3816 3817 3819 3820 3821 3822 3828 3829 3831 3832 3834 3835
3836 3837 3838 3839 3841 3842 3843 3848# 3850 3851 3852 3853 3854 3855
3856 3857 3858 3859 3860 3861 3862 3864 3865 3866 3867 3873 3874 3876
3877 3879 3880 3881 3884 3885 3886 3892# 3894 3895 3896 3897 3898 3899
3900 3901 3902 3903 3904 3905 3906 3908 3909 3910 3911 3912 3913 3914
3917 3918 3919 3924# 3926 3927 3928 3929 3930 3931 3932 3933 3934 3935
3936 3937 3938 3940 3941 3942 3943 3949 3950 3952 3953 3955 3956 3957
3958 3960 3961 3962 3967# 3969 3970 3971 3972 3973 3974 3975 3976 3977
3978 3979 3980 3981 3983 3984 3985 3986 3993 3994 3996 3997 3999 4000
4001 4006 4007 4008 4013# 4015 4016 4017 4018 4019 4020 4021 4022 4023
4024 4025 4026 4027 4029 4030 4031 4032 4034 4035 4037 4038 4040 4041
4042 4047# 4049 4050 4051 4052 4053 4054 4055 4056 4057 4058 4059 4060
4061 4063 4064 4065 4066 4068 4069 4070 4071 4075 4076 4077 4082# 4084
4085 4086 4087 4088 4089 4090 4091 4092 4093 4094 4095 4096 4098 4099
4100 4101 4103 4106 4111 4112 4113 4118# 4120 4121 4122 4123 4124 4125
4126 4127 4128 4129 4130 4131 4132 4133 4135 4138 4140 4141 4144 4146
4147 4149 4151 4152 4154 4156 4157 4158 4164# 4166 4167 4168 4169 4170 SEQ 0190
4171 4172 4173 4174 4175 4176 4177 4178 4179 4180 4181 4182 4184 4185
4186 4193# 4195 4196 4197 4198 4199 4200 4201 4202 4203 4204 4205 4206
4207 4208 4209 4210 4211 4213 4214 4215 4220# 4222 4223 4224 4225 4226
4227 4228 4229 4230 4231 4232 4233 4234 4236 4237 4238 4239 4240 4241
4242 4243 4245 4246 4247 4252# 4254 4255 4256 4257 4258 4259 4260 4261
4262 4263 4264 4265 4266 4268 4269 4270 4271 4276 4278 4280 4282 4284
4285 4286 4288 4289 4290 4296# 4298 4299 4300 4301 4302 4303 4304 4305
4306 4307 4308 4309 4310 4312 4313 4314 4315 4317 4318 4319 4321 4322
4323 4330# 4332 4333 4334 4335 4336 4337 4338 4339 4340 4341 4342 4343
4344 4346 4347 4348 4349 4351 4352 4353 4354 4358 4360 4362 4365 4367
4368 4369 4375# 4377 4378 4379 4380 4381 4382 4383 4384 4385 4386 4387
4388 4389 4391 4392 4393 4394 4397 4401 4402 4403 4409# 4411 4412 4413
4414 4415 4416 4417 4418 4419 4420 4421 4422 4423 4425 4426 4427 4428
4431 4432 4435 4436 4437 4443# 4445 4446 4447 4448 4449 4450 4451 4452
4453 4454 4455 4456 4457 4459 4460 4461 4462 4463 4465 4466 4469 4470
4471 4477# 4479 4480 4481 4482 4483 4484 4485 4486 4487 4488 4489 4490
4491 4493 4494 4495 4496 4497 4498 4501 4502 4503 4509# 4511 4512 4513
4514 4515 4516 4517 4518 4519 4520 4521 4522 4523 4525 4526 4527 4528
4530 4531 4533 4535 4536 4537 4543# 4545 4546 4547 4548 4549 4550 4551
4552 4553 4554 4555 4556 4557 4559 4560 4561 4562 4563 4567 4569 4571
4572 4573 4579# 4581 4582 4583 4584 4585 4586 4587 4588 4589 4590 4591
4592 4593 4595 4596 4597 4598 4600 4601 4603 4606 4607 4608 4614# 4616
4617 4618 4619 4620 4621 4622 4623 4624 4625 4626 4627 4628 4630 4631
4632 4633 4635 4636 4641 4642 4643 4649# 4651 4652 4653 4654 4655 4656
4657 4658 4659 4660 4661 4662 4663 4665 4666 4667 4668 4669 4671 4672
4674 4677 4678 4679 4685# 4687 4688 4689 4690 4691 4692 4693 4694 4695
4696 4697 4698 4699 4701 4702 4703 4704 4710 4712 4714 4715 4718 4719
4720 4726# 4728 4729 4730 4731 4732 4733 4734 4735 4736 4737 4738 4739
4740 4742 4743 4744 4745 4748 4752 4753 4754 4760# 4762 4763 4764 4765
4766 4767 4768 4769 4770 4771 4772 4773 4774 4776 4777 4778 4779 4780
4781 4782 4785 4786 4787 4793# 4795 4796 4797 4798 4799 4800 4801 4802
4803 4804 4805 4806 4807 4809 4810 4811 4812 4814 4815 4816 4819 4820
4821 4826# 4828 4829 4830 4831 4832 4833 4834 4835 4836 4837 4838 4839
4840 4842 4843 4844 4845 4848 4851 4854 4855 4856 4862# 4864 4865 4866
4867 4868 4869 4870 4871 4872 4873 4874 4875 4876 4878 4879 4880 4881
4882 4883 4886 4889 4890 4891 4897# 4899 4900 4901 4902 4903 4904 4905
4906 4907 4908 4909 4910 4911 4913 4914 4915 4916 4917 4918 4921 4922
4923 4929# 4931 4932 4933 4934 4935 4936 4937 4938 4939 4940 4941 4942
4943 4945 4946 4947 4948 4950 4951 4953 4955 4956 4957 4963# 4965 4966
4967 4968 4969 4970 4971 4972 4973 4974 4975 4976 4977 4979 4980 4981
4982 4983 4984 4986 4987 4990 4991 4992 4999# 5001 5002 5003 5004 5005
5006 5007 5008 5009 5010 5011 5012 5013 5015 5016 5017 5018 5020 5021
5023 5026 5027 5028 5035# 5037 5038 5039 5040 5041 5042 5043 5044 5045
5046 5047 5048 5049 5051 5052 5053 5054 5056 5057 5058 5063 5064 5065
5072# 5074 5075 5076 5077 5078 5079 5080 5081 5082 5083 5084 5085 5086
5088 5089 5090 5091 5092 5093 5094 5096 5099 5100 5101 5108# 5110 5111
5112 5113 5114 5115 5116 5117 5118 5119 5120 5121 5122 5124 5125 5126
5127 5129 5133 5134 5137 5138 5139 5144# 5146 5147 5148 5149 5150 5151
5152 5153 5154 5155 5156 5157 5158 5160 5161 5162 5163 5169 5170 5172
5173 5175 5176 5177 5178 5180 5181 5182 5188# 5190 5191 5192 5193 5194
5195 5196 5197 5198 5199 5200 5201 5202 5204 5205 5206 5207 5209 5213
5214 5217 5218 5219 5226# 5228 5229 5230 5231 5232 5233 5234 5235 5236
5237 5238 5239 5240 5242 5243 5244 5245 5247 5253 5254 5256 5257 5259 SEQ 0191
5260 5261 5264 5265 5266 5274# 5276 5277 5278 5279 5280 5281 5282 5283
5284 5285 5286 5287 5288 5290 5291 5292 5293 5301 5302 5304 5305 5307
5308 5309 5311 5314 5315 5316 5324# 5326 5327 5328 5329 5330 5331 5332
5333 5334 5335 5336 5337 5338 5340 5341 5342 5343 5351 5352 5354 5355
5357 5358 5359 5361 5364 5365 5366 5372# 5374 5375 5376 5377 5378 5379
5380 5381 5382 5383 5384 5385 5386 5388 5389 5390 5391 5392 5399 5400
5403 5404 5405 5411# 5413 5414 5415 5416 5417 5418 5419 5420 5421 5422
5423 5424 5425 5427 5428 5429 5430 5431 5432 5433 5434 5437 5438 5439
5445# 5447 5448 5449 5450 5451 5452 5453 5454 5455 5456 5457 5458 5459
5461 5462 5463 5464 5465 5467 5468 5469 5470 5472 5473 5478 5479 5480
5486# 5488 5489 5490 5491 5492 5493 5494 5495 5496 5497 5498 5499 5500
5502 5503 5504 5505 5506 5513 5514 5519 5520 5521 5527# 5529 5530 5531
5532 5533 5534 5535 5536 5537 5538 5539 5540 5541 5543 5544 5545 5546
5547 5562 5563 5565 5566 5567 5573# 5575 5576 5577 5578 5579 5580 5581
5582 5583 5584 5585 5586 5587 5589 5590 5591 5592 5593 5594 5596 5597
5598 5599 5602 5603 5604 5610# 5612 5613 5614 5615 5616 5617 5618 5619
5620 5621 5622 5623 5624 5626 5627 5628 5629 5631 5634 5637 5639 5640
5641 5647# 5649 5650 5651 5652 5653 5654 5655 5656 5657 5658 5659 5660
5661 5663 5664 5665 5666 5668 5670 5671 5672 5673 5676 5677 5678 5684#
5686 5687 5688 5689 5690 5691 5692 5693 5694 5695 5696 5697 5698 5700
5701 5702 5703 5704 5706 5709 5712 5714 5715 5716 5722# 5724 5725 5726
5727 5728 5729 5730 5731 5732 5733 5734 5735 5736 5738 5739 5740 5741
5742 5744 5746 5747 5748 5749 5752 5753 5754 5760# 5762 5763 5764 5765
5766 5767 5768 5769 5770 5771 5772 5773 5774 5776 5777 5778 5779 5780
5781 5782 5784 5785 5786 5787 5790 5791 5792 5798# 5800 5801 5802 5803
5804 5805 5806 5807 5808 5809 5810 5811 5812 5814 5815 5816 5817 5818
5819 5821 5822 5823 5824 5827 5828 5829 5835# 5837 5838 5839 5840 5841
5842 5843 5844 5845 5846 5847 5848 5849 5851 5852 5853 5854 5855 5856
5858 5859 5860 5861 5866 5867 5868 5874# 5876 5877 5878 5879 5880 5881
5882 5883 5884 5885 5886 5887 5888 5890 5891 5892 5893 5894 5895 5897
5898 5899 5900 5903 5904 5905 5912# 5914 5915 5916 5917 5918 5919 5920
5921 5922 5923 5924 5925 5926 5928 5929 5930 5931 5932 5934 5935 5936
5937 5939 5940 5941 5942 5945 5946 5947 5953# 5955 5956 5957 5958 5959
5960 5961 5962 5963 5964 5965 5966 5967 5970 5971 5972 5973 5975 5976
5977 5979 5980 5981 5982 5985 5986 5987 5994# 5996 5997 5998 5999 6000
6001 6002 6003 6004 6005 6006 6007 6008 6011 6012 6013 6014 6016 6017
6018 6020 6021 6023 6024 6025 6026 6029 6030 6031 6038# 6040 6041 6042
6043 6044 6045 6046 6047 6048 6049 6050 6051 6052 6055 6056 6057 6058
6062 6063 6066 6069 6071 6072 6073 6081# 6083 6084 6085 6086 6087 6088
6089 6090 6091 6092 6093 6094 6095 6098 6099 6100 6101 6104 6105 6107
6109 6112 6115 6116 6117 6123# 6125 6126 6127 6128 6129 6130 6131 6132
6133 6134 6135 6136 6137 6139 6140 6141 6142 6143 6144 6145 6147 6148
6149 6150 6153 6154 6155 6161# 6163 6164 6165 6166 6167 6168 6169 6170
6171 6172 6173 6174 6175 6177 6178 6179 6180 6181 6183 6184 6185 6186
6189 6190 6191 6197# 6199 6200 6201 6202 6203 6204 6205 6206 6207 6208
6209 6210 6211 6213 6214 6215 6216 6217 6218 6220 6221 6222 6224 6225
6226 6227 6230 6231 6232 6239# 6241 6242 6243 6244 6245 6246 6247 6248
6249 6250 6251 6252 6253 6256 6257 6258 6259 6261 6262 6263 6265 6266
6267 6268 6271 6272 6273 6280# 6282 6283 6284 6285 6286 6287 6288 6289
6290 6291 6292 6293 6294 6297 6298 6299 6300 6302 6303 6304 6306 6307
6308 6310 6311 6312 6315 6316 6317 6324# 6326 6327 6328 6329 6330 6331
6332 6333 6334 6335 6336 6337 6338 6341 6342 6343 6344 6348 6349 6350
6352 6355 6356 6359 6362 6363 6364 6371# 6373 6374 6375 6376 6377 6378 SEQ 0192
6379 6380 6381 6382 6383 6384 6385 6388 6389 6390 6391 6395 6396 6399
6401 6402 6405 6406 6407 6413# 6415 6416 6417 6418 6419 6420 6421 6422
6423 6424 6425 6426 6427 6429 6430 6431 6432 6434 6435 6438 6439 6442
6443 6444 6450# 6452 6453 6454 6455 6456 6457 6458 6459 6460 6461 6462
6463 6464 6466 6467 6468 6469 6471 6473 6474 6475 6476 6480 6481 6482
6488# 6490 6491 6492 6493 6494 6495 6496 6497 6498 6499 6500 6501 6502
6504 6505 6506 6507 6509 6514 6515 6516 6522# 6524 6525 6526 6527 6528
6529 6530 6531 6532 6533 6534 6535 6536 6538 6539 6540 6541 6543 6545
6546 6547 6548 6551 6552 6553 6559# 6561 6562 6563 6564 6565 6566 6567
6568 6569 6570 6571 6572 6573 6575 6576 6577 6578 6579 6581 6582 6584
6586 6587 6588 6594# 6596 6597 6598 6599 6600 6601 6602 6603 6604 6605
6606 6607 6608 6610 6611 6612 6613 6614 6615 6618 6620 6621 6622 6623
6626 6627 6628 6634# 6636 6637 6638 6639 6640 6641 6642 6643 6644 6645
6646 6647 6648 6650 6651 6652 6653 6654 6656 6658 6660 6661 6662 6668#
6670 6671 6672 6673 6674 6675 6676 6677 6678 6679 6680 6681 6682 6684
6685 6686 6687 6688 6690 6693 6695 6696 6697
AC1 759# 858# 966# 994 995 996 1000# 1002 1003 1004 1008# 1010 1011 1012
1016# 1018 1019 1020 1024# 1026 1027 1028 1032# 1034 1035 1036 1040# 1042
1043 1044 1048# 1050 1051 1052 1056# 1070# 1101 1105 1106 1110# 1112 1116
1117 1121# 1123 1127 1128 1132# 1134 1138 1139 1143# 1145 1149 1150 1154#
1156 1160 1161 1165# 1167 1171 1172 1176# 1178 1182 1183 1187# 1202# 1220
1221 1224 1254# 1291# 1334# 1361 1362 1363 1364 1365 1367# 1369 1370 1371
1372 1373 1375# 1377 1378 1379 1380 1381 1383# 1385 1386 1387 1388 1389
1391# 1427# 1467# 1507# 1554# 1650# 1689# 1732# 1771# 1811# 1836 1837 1838 1840#
1842 1843 1844 1846# 1859# 1877 1878 1893# 1936# 1977# 2017# 2061# 2111# 2129
2130 2133 2135 2136 2137 2138 2152# 2170 2171 2175 2176 2177 2193# 2211
2213 2215 2216 2218 2219 2220 2236# 2254 2257 2259 2260 2261 2277# 2296
2298 2300 2302 2303 2304 2320# 2338 2339 2341 2342 2343 2360# 2378 2380
2381 2383 2385 2386 2387 2404# 2423 2425 2427 2428 2429 2445# 2464 2465
2468 2470 2471 2472 2488# 2506 2507 2510 2511 2512 2528# 2546 2547 2553
2555 2557 2559 2561 2563 2565 2567 2568 2569 2584# 2602 2603 2604 2605
2606 2620# 2638 2639 2641 2642 2643 2644 2645 2657# 2675 2676 2677 2678
2692# 2710 2711 2717 2719 2721 2723 2725 2727 2729 2731 2732 2733 2747#
2766 2767 2770 2784# 2802 2818 2832# 2850 2866 2881# 2899 2911 2925# 2943
2955 2970# 3004 3013 3018# 3022 3031 3036# 3040 3049 3054# 3058 3067 3072#
3076 3085 3090# 3094 3103 3108# 3112 3121 3126# 3130 3139 3144# 3148 3157
3162# 3166 3175 3180# 3195# 3229 3238 3243# 3247 3256 3261# 3265 3274 3279#
3283 3292 3297# 3301 3310 3315# 3319 3328 3333# 3337 3346 3351# 3355 3364
3369# 3373 3382 3387# 3391 3400 3405# 3421# 3443 3449 3450 3465# 3507 3514
3515 3517# 3524 3531 3532 3534# 3541 3548 3549 3551# 3558 3565 3566 3568#
3575 3582 3583 3585# 3592 3599 3600 3602# 3609 3616 3617 3619# 3626 3633
3634 3636# 3643 3650 3651 3653# 3660 3667 3668 3670# 3685# 3721# 3759# 3782
3783 3785 3786 3788 3789 3792 3793 3805# 3828 3829 3831 3832 3834 3835
3836 3837 3850# 3894# 3926# 3949 3950 3952 3953 3955 3956 3969# 4015# 4036
4037 4038 4049# 4067 4072 4073 4084# 4102 4108 4120# 4166# 4195# 4222# 4254#
4298# 4316 4317 4332# 4377# 4396 4397 4398 4411# 4430 4431 4445# 4463 4464
4465 4479# 4511# 4529 4531 4532 4545# 4563 4564 4566 4567 4568 4581# 4599
4600 4601 4616# 4634 4635 4636 4638 4651# 4669 4670 4671 4672 4687# 4705
4710 4712 4714 4728# 4746 4748 4749 4762# 4780 4781 4795# 4813 4815 4828#
4847 4848 4849 4864# 4882 4883 4884 4899# 4931# 4949 4951 4952 4965# 4984
4985 4987 5001# 5019 5020 5021 5037# 5055 5057 5058 5060 5074# 5092 5093
5094 5110# 5130 5131 5132 5134 5146# 5190# 5210 5211 5212 5214 5228# 5247
5253 5254 5256 5257 5259 5260 5276# 5295 5301 5302 5304 5305 5307 5308 SEQ 0193
5309 5326# 5374# 5393 5394 5395 5396 5397 5399 5413# 5431 5433 5434 5435
5447# 5466 5472 5475 5488# 5507 5509 5510 5511 5513 5514 5516 5529# 5548
5554 5555 5557 5558 5560 5561 5562 5563 5575# 5593 5594 5597 5600 5612#
5630 5631 5633 5634 5635 5636 5649# 5667 5668 5671 5674 5686# 5705 5706
5708 5709 5710 5711 5724# 5743 5744 5747 5750 5762# 5781 5782 5785 5788
5800# 5818 5819 5822 5825 5837# 5855 5856 5859 5862 5863 5864 5876# 5914#
5932 5933 5936 5938 5940 5943 5955# 5968 5974 5975 5977 5980 5983 5996#
6009 6015 6016 6019 6020 6022 6023 6024 6027 6040# 6053 6059 6060 6061
6062 6063 6065 6066 6067 6068 6083# 6096 6102 6103 6104 6105 6106 6108
6109 6110 6111 6113 6125# 6143 6144 6146 6148 6151 6163# 6199# 6217 6219
6221 6223 6225 6228 6241# 6254 6260 6261 6263 6266 6269 6282# 6295 6301
6302 6305 6306 6309 6311 6313 6326# 6339 6345 6346 6347 6348 6351 6352
6353 6354 6356 6357 6358 6360 6373# 6386 6392 6393 6394 6395 6396 6398
6399 6400 6401 6403 6415# 6433 6434 6436 6438 6440 6452# 6470 6471 6474
6478 6490# 6508 6509 6510 6511 6524# 6542 6543 6546 6549 6561# 6580 6582
6583 6596# 6617 6618 6621 6636# 6655 6656 6657 6670# 6688 6689 6690 6691
6692
AC2 760# 859# 967# 1071# 1203# 1255# 1272 1273 1277 1278 1279 1282 1283 1292#
1309 1310 1314 1315 1316 1319 1320 1335# 1428# 1468# 1508# 1555# 1651# 1690#
1733# 1772# 1812# 1860# 1878 1879 1880 1894# 1937# 1978# 2018# 2062# 2112# 2153#
2171 2173 2194# 2212 2214 2237# 2255 2256 2258 2278# 2299 2300 2301 2321#
2361# 2405# 2446# 2489# 2529# 2585# 2621# 2658# 2693# 2748# 2785# 2833# 2882# 2926#
2971# 3196# 3422# 3442 3445 3466# 3506 3510 3518# 3523 3527 3535# 3540 3544
3552# 3557 3561 3569# 3574 3578 3586# 3591 3595 3603# 3608 3612 3620# 3625
3629 3637# 3642 3646 3654# 3659 3663 3671# 3686# 3722# 3760# 3806# 3851# 3895#
3927# 3970# 4016# 4033 4036 4050# 4068 4070 4071 4085# 4104 4105 4106 4121#
4167# 4196# 4223# 4255# 4299# 4333# 4378# 4395 4398 4412# 4429 4432 4446# 4480#
4512# 4530 4532 4546# 4564 4565 4568 4582# 4617# 4652# 4688# 4729# 4747 4749
4763# 4796# 4814 4816 4829# 4846 4849 4865# 4900# 4932# 4950 4952 4966# 5002#
5038# 5056 5060 5075# 5111# 5128 5133 5135 5147# 5191# 5208 5210 5213 5215
5229# 5277# 5294 5311 5327# 5344 5361 5375# 5394 5396 5398 5400 5414# 5448#
5467 5469 5471 5475 5489# 5508 5510 5512 5516 5530# 5576# 5613# 5650# 5687#
5725# 5763# 5801# 5838# 5877# 5915# 5933 5934 5935 5937 5942 5956# 5976 5982
5983 5997# 6018 6019 6021 6026 6041# 6060 6061 6068 6069 6084# 6103 6107
6108 6112 6113 6126# 6164# 6200# 6218 6219 6220 6222 6227 6242# 6262 6268
6269 6283# 6304 6305 6308 6312 6327# 6346 6347 6355 6359 6360 6374# 6393
6394 6402 6403 6416# 6453# 6491# 6525# 6562# 6581 6583 6597# 6637# 6671#
AC3 761# 860# 968# 1072# 1204# 1256# 1293# 1336# 1429# 1469# 1509# 1556# 1652# 1691#
1734# 1773# 1813# 1861# 1895# 1938# 1979# 2019# 2063# 2113# 2154# 2195# 2238# 2279#
2322# 2362# 2406# 2447# 2490# 2530# 2586# 2622# 2659# 2694# 2749# 2786# 2834# 2883#
2927# 2972# 3197# 3423# 3439 3440 3441 3467# 3483 3484 3485 3687# 3723# 3761#
3807# 3852# 3896# 3928# 3971# 4017# 4051# 4086# 4122# 4168# 4197# 4224# 4256# 4300#
4334# 4379# 4413# 4447# 4481# 4513# 4547# 4583# 4618# 4653# 4689# 4730# 4764# 4797#
4830# 4866# 4901# 4933# 4967# 5003# 5039# 5076# 5112# 5148# 5192# 5230# 5278# 5328#
5376# 5415# 5449# 5490# 5531# 5577# 5614# 5651# 5688# 5726# 5764# 5802# 5839# 5878#
5916# 5957# 5998# 6042# 6085# 6127# 6165# 6201# 6243# 6284# 6328# 6350 6351 6354
6358 6375# 6417# 6454# 6492# 6526# 6563# 6598# 6638# 6672#
AC4 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# 3468# 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# SEQ 0194
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# 6376# 6418# 6455# 6493# 6527# 6564# 6599# 6639# 6673#
AC5 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#
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#
ADD1 4221#
ADD1A 4253#
ADD1B 4297#
ADD1C 4331#
ADD2 4235# 4245
ADD2A 4267# 4288
ADD2B 4311# 4321
ADD2C 4345# 4367
ADD3 4240# 4247
ADD3A 4273# 4290
ADD3B 4316# 4323
ADD3C 4350# 4369
ADD4C 4364 4366#
ADDB1 4580#
ADDB1A 4615#
ADDB1B 4650#
ADDB2 4594# 4606
ADDB2A 4629# 4641
ADDB2B 4664# 4677
ADDB3 4599# 4608
ADDB3A 4634# 4643
ADDB3B 4669# 4679
ADDI1 4478#
ADDI1A 4510#
ADDI1B 4544#
ADDI2 4492# 4501
ADDI2A 4524# 4535
ADDI2B 4558# 4571
ADDI3 4497# 4503
ADDI3A 4529# 4537
ADDI3B 4563# 4573
ADDM1 4376#
ADDM1A 4410#
ADDM1B 4444#
ADDM2 4390# 4401
ADDM2A 4424# 4435
ADDM2B 4458# 4469
ADDM3 4396# 4403
ADDM3A 4430# 4437
ADDM3B 4463# 4471
ALTMGO 429# 6886 SEQ 0195
AMCLRB 343#
ANXM 343#
APR 6713 6915
AROV 343#
AROVA 4 1518 1565 1661 1700 1743 1782 1822 1870 1904
1947 1988 2028 2072 2122 2163 2204 2247 2288 2331 2371 2415 2456 2499
2539 2595 2631 2668 2703 2758 2795 2843 2892 2936 2981 3206 3432 3476
3696 3732 3770 3816 3861 3905 3937 3980 4026 4060 4095 4131 4177 4206
4233 4265 4309 4343 4388 4422 4456 4490 4522 4556 4592 4627 4662 4698
4739 4773 4806 4839 4875 4910 4942 4976 5012 5048 5085 5121 5157 5201
5239 5287 5337 5385 5424 5458 5499 5540 5586 5623 5660 5697 5735 5773
5811 5848 5887 5925 5966 6007 6051 6094 6136 6174 6210 6252 6293 6337
6384 6426 6463 6501 6535 6572 6607 6647 6681
CNTLC 428#
CNTRP 343#
COMMA 537#
CONSW 412# 6887 6918
CPOPJ 432#
CPOPJ1 430#
CRLF 263 264 532#
CRLF2 267 268 534#
CRY0 343#
CRY0A 4355 4359#
CRY1 343#
CSHFLG 591#
CSHMEM 592#
CTRP 343#
CYCL60 585#
DCK 343#
DDTLNK 148# 370
DDTSRT 370#
DEBUG 54# 6968 6969
DECVER 3# 10 26 391
DF22F 496#
DIAGMN 359#
DING 120# 6892
DOLLAR 551#
DSKUPD 396
END 6976#
ENDFIX 665#
ENDPGM 28#
ENDSLD 6966#
ERDIAG 6755
ERMORE 445# 6878
ERRELB 58# 6755
ERRLOP 768# 768 867# 867 975# 975 1079# 1079 1211# 1211 1263# 1263 1300# 1300
1343# 1343 1436# 1436 1476# 1476 1516# 1516 1563# 1563 1659# 1659 1698# 1698
1741# 1741 1780# 1780 1820# 1820 1868# 1868 1902# 1902 1945# 1945 1986# 1986
2026# 2026 2070# 2070 2120# 2120 2161# 2161 2202# 2202 2245# 2245 2286# 2286
2329# 2329 2369# 2369 2413# 2413 2454# 2454 2497# 2497 2537# 2537 2593# 2593
2629# 2629 2666# 2666 2701# 2701 2756# 2756 2793# 2793 2841# 2841 2890# 2890
2934# 2934 2979# 2979 3204# 3204 3430# 3430 3474# 3474 3694# 3694 3730# 3730
3768# 3768 3814# 3814 3859# 3859 3903# 3903 3935# 3935 3978# 3978 4024# 4024
4058# 4058 4093# 4093 4129# 4129 4175# 4175 4204# 4204 4231# 4231 4263# 4263
4307# 4307 4341# 4341 4386# 4386 4420# 4420 4454# 4454 4488# 4488 4520# 4520 SEQ 0198
4554# 4554 4590# 4590 4625# 4625 4660# 4660 4696# 4696 4737# 4737 4771# 4771
4804# 4804 4837# 4837 4873# 4873 4908# 4908 4940# 4940 4974# 4974 5010# 5010
5046# 5046 5083# 5083 5119# 5119 5155# 5155 5199# 5199 5237# 5237 5285# 5285
5335# 5335 5383# 5383 5422# 5422 5456# 5456 5497# 5497 5538# 5538 5584# 5584
5621# 5621 5658# 5658 5695# 5695 5733# 5733 5771# 5771 5809# 5809 5846# 5846
5885# 5885 5923# 5923 5964# 5964 6005# 6005 6049# 6049 6092# 6092 6134# 6134
6172# 6172 6208# 6208 6250# 6250 6291# 6291 6335# 6335 6382# 6382 6424# 6424
6461# 6461 6499# 6499 6533# 6533 6570# 6570 6605# 6605 6645# 6645 6679# 6679
6735 6897 6900 6901
ERRMES 41 42 43 44 45 46 47 48 6706#
ERRPC 416# 6718 6752 6764
ERRTLS 417# 6716 6904
ERSTOP 123# 6888
EXCASB 52# 394 6707 6909
EXCH1 1201#
EXCH2 1215# 1227
EXCH3 1220# 1229
EXCMEM 343#
EXCPFW 343#
EXIOT 343#
FOV 343#
FOVU 343#
FRDLNK 146#
FSELNK 145#
FXU 343#
HYPEN 542#
IADBRK 343#
IADEXC 343#
IADSTP 343#
IADUSR 343#
IAPRC1 343#
IAPRE1 343#
IASRTC 343#
IASRTE 343#
IASRTS 343#
ICNSLL 343#
ICNSLR 343#
IDATAF 343#
IEVNPR 343#
IFMMAN 343#
IINSTF 343#
IIOPFC 343#
IIOPFL 343#
IMAINT 343#
IMGINM 343#
IMGNLO 343#
IMGNOF 343# 6713
IMGNON 343#
IMIPGD 343#
IMLAPD 343#
INHCSH 131#
INHPAG 128#
INXCLR 343# SEQ 0199
INXM 343#
INXSTP 343#
IOCLR 343#
IP50HZ 343#
IPAREN 343#
IPARER 343#
IPRSTP 343#
IPWRFL 343#
IPWRLO 343#
IRQCLR 343#
ISPDOF 343# 6713
ISPDON 343#
ITERAT 76# 389
ITMDIS 343#
ITMENB 343#
ITMOEN 343#
ITMOUT 343#
ITMSET 343#
ITRCH1 449#
ITRCNT 389#
IWRITE 343#
JOB41 343#
JOBAPR 343#
JOBCNI 343#
JOBDDT 343#
JOBFF 343#
JOBOPC 343# 6885
JOBREL 343#
JOBREN 343#
JOBSA 343#
JOBSYM 343#
JOBTPC 343#
JOBUSY 343#
JOBUUO 343#
JOBVER 343#
KA10 343
KAHZ50 136#
KAIFLG 406# 6708 6910
KI10 56# 343 6707 6909
KL10 343
KLFLG 407# 6722
KLOLD 55# 343
KLTYP 623#
KNTRP 343#
KTRP 343#
LDEXCB 343#
LDLNK 147# 359 361
LDUSRB 343#
LFP 546#
LIP 343#
LOOPER 122# 6890
LSH1 4083#
LSH1P 5528# SEQ 0200
LSH1PA 5542# 5565
LSH1PB 5547# 5567
LSH2 4097# 4111
LSH3 4102# 4113
LSHA 4048#
LSHB 4062# 4075
LSHC 4067# 4077
LUUO 343#
LUUO1 41# 476 477
LUUO10 476 481
LUUO11 46# 476 481
LUUO12 47# 476 482
LUUO13 48# 476 482
LUUO14 476 483
LUUO15 476 483
LUUO16 476 484
LUUO17 476 484
LUUO2 42# 476 478
LUUO20 476 485
LUUO21 476 485
LUUO22 476 486
LUUO23 476 486
LUUO24 476 487
LUUO25 476 487
LUUO26 476 488
LUUO27 476 488
LUUO3 43# 476 478
LUUO30 476 489
LUUO31 476 489
LUUO32 476 490
LUUO33 476 490
LUUO4 44# 476 479
LUUO5 45# 476 479
LUUO6 476 480
LUUO7 476 480
LUUOI 343#
MAPNEW 497#
MARGIN 419# 6712 6914 6915
MCNVER 4# 10 26 391
MEMLOW 499#
MEMMAP 397
MEMSIZ 500#
MEMTOT 498#
MICNT 6719# 6719 6720 6737
MINUS 541#
MODDVC 130#
MODDVL 328 328# 392
MODDVU 329 329# 393
MODLNK 149# 356
MONCTL 409# 6738 6902
MONFLG 408#
MONTEN 410#
MOVAC 857# SEQ 0201
MOVAC1 876# 956 958
MOVN1 5145#
MOVN2 5159# 5180
MOVN3 5165# 5182
MOVS1 3893#
MOVS2 3907# 3917
MOVS3 3912# 3919
MOVSA 3849#
MOVSB 3863# 3884
MOVSC 3869# 3886
MOVSIA 4014#
MOVSIB 4028# 4040
MOVSIC 4034# 4042
MOVSMA 3925#
MOVSMB 3939# 3960
MOVSMC 3945# 3962
MOVSSA 3968#
MOVSSB 3982# 4006
MOVSSC 3987# 4008
MPVU 343#
MUUO 343#
MUUOPC 343#
MVEI1 5109#
MVEI2 5123# 5137
MVEI3 5129# 5139
MVEM1 3758#
MVEM2 3772# 3795
MVEM3 3778# 3797
MVES1 3804#
MVES2 3818# 3841
MVES3 3824# 3843
MVM1 5373#
MVM2 5387# 5403
MVM3 5392# 5405
MVMI1 5412#
MVMI2 5426# 5437
MVMI3 5431# 5439
MVMM1 5446#
MVMM2 5460# 5478
MVMM3 5465# 5480
MVMS1 5487#
MVMS2 5501# 5519
MVMS3 5506# 5521
MVNI1 5189#
MVNI2 5203# 5217
MVNI3 5209# 5219
MVNM1 5227#
MVNM2 5241# 5264
MVNM3 5247# 5266
MVNS1 5275#
MVNS2 5289# 5314
MVNS3 5295# 5316
MVNSA 5325# SEQ 0202
MVNSB 5339# 5364
MVNSC 5345# 5366
NOPNT 118# 6728
NXMU 343#
OPRSEL 132#
OPTIME 511#
P 175 176 177 178 343# 431
PAG 343#
PALERS 124# 6919
PARCLR 343#
PARDIS 343#
PAREA1 70# 387
PAREA2 71# 388
PAREA3 72# 385
PAREA4 73# 386
PAREA5 74# 398
PAREA6 75# 399
PAREA7 398#
PAREA8 399#
PARENB 343#
PARU 343#
PASCNT 413# 6743 6747
PATCH 6969#
PDISF 508#
PDLOVU 343#
PDOVTP 343#
PERIOD 538#
PFSTRT 365#
PGFTRP 343#
PGMEND 57# 6975
PGMNAM 390 718#
PI 6725
PICHN1 343#
PICHN2 343#
PICHN3 343#
PICHN4 343#
PICHN5 343#
PICHN6 343#
PICHN7 343#
PICHNA 343#
PICLR 343#
PIOFF 343#
PION 343#
PLIST 577# 577
PLISTE 577 579# 663
PLISTS 578#
PLUS 543#
PNTENB 507#
PNTEXT 386#
PNTFLG 506#
PNTINH 509#
PNTLPT 119#
PNTNAM 385# SEQ 0203
PNTRP 343#
PNTSPC 510#
PROCED 6726# 6726 6891 6898
PTRP 343#
PVPAGI 604#
PWFCLR 343#
QUEST 549#
RADIX 552#
RADLSC 554#
RADLSP 553#
RAN 672 773# 773 776 784 790 796 802 808 814 820 826 832 838
847 872# 872 875 884 885 886 887# 887 888# 888 891 892 893
894# 894 895# 895 898 899 900 901# 901 902# 902 905 906 907
908# 908 909# 909 912 913 914 915# 915 916# 916 919 920 921
922# 922 923# 923 926 927 928 929# 929 930# 930 933 934 935
936# 936 937# 937 940 941 942 943# 943 944# 944 947 948 949
950# 950 951# 951 957 980# 980 983 994# 994 1002# 1002 1010# 1010
1018# 1018 1026# 1026 1034# 1034 1042# 1042 1050# 1050 1061 1084# 1084 1087
1103 1104 1105 1106 1114 1115 1116 1117 1125 1126 1127 1128 1136 1137
1138 1139 1147 1148 1149 1150 1158 1159 1160 1161 1169 1170 1171 1172
1180 1181 1182 1183 1192 1216# 1216 1219 1223 1224 1225 1228 1268# 1268
1271 1274# 1274 1275 1280# 1280 1281 1286 1305# 1305 1308 1311# 1311 1312
1317# 1317 1318 1323 1348# 1348 1351 1396 1441# 1441 1444 1446 1447 1448
1450 1451 1452 1456 1458 1459 1462 1481# 1481 1484 1486 1487 1488 1490
1491 1492 1496 1498 1499 1502 1521# 1521 1524 1526 1527 1528 1530 1531
1532 1536 1538 1539 1542 1568# 1568 1571 1595# 1595 1599 1600 1601 1602
1603 1604 1606 1607 1609 1617# 1617 1621 1622 1623 1624 1625 1626 1628
1629 1631 1642 1664# 1664 1667 1668 1669 1670 1672 1673 1675 1680 1703#
1703 1706 1710 1711 1712 1713 1717 1722 1746# 1746 1749 1750 1753 1754
1755 1757 1762 1785# 1785 1788 1789 1792# 1792 1793 1794 1796 1798 1799
1802 1825# 1825 1828 1836 1838 1842 1844 1851 1873# 1873 1876 1877 1879
1880 1883 1907# 1907 1910 1911 1914 1918 1920 1921 1923 1924 1927 1950#
1950 1953 1954 1957 1961 1964 1965 1968 1991# 1991 1994 1995 1997 1998
2000 2008 2031# 2031 2034 2035 2037 2038 2041 2042 2046 2048 2049 2052
2075# 2075 2078 2096 2097 2100 2125# 2125 2128 2142 2166# 2166 2169 2182
2207# 2207 2210 2225 2250# 2250 2253 2266 2291# 2291 2294 2309 2334# 2334
2337 2348 2374# 2374 2377 2392 2418# 2418 2421 2434 2459# 2459 2462 2477
2502# 2502 2505 2517 2542# 2542 2545 2570 2571 2574 2598# 2598 2601 2611
2634# 2634 2637 2644 2645 2648 2671# 2671 2674 2683 2706# 2706 2709 2734
2735 2738 2761# 2761 2764 2774 2798# 2798 2801 2816 2822 2846# 2846 2849
2864 2870 2895# 2895 2898 2909 2915 2939# 2939 2942 2953 2959 2984# 2984
2987 3003 3013 3021 3031 3039 3049 3057 3067 3075 3085 3093 3103 3111
3121 3129 3139 3147 3157 3165 3175 3185 3209# 3209 3212 3228 3238 3246
3256 3264 3274 3282 3292 3300 3310 3318 3328 3336 3346 3354 3364 3372
3382 3390 3400 3410 3435# 3435 3438 3439 3442 3447 3448 3453 3479# 3479
3482 3483 3505 3506 3512 3513 3522 3523 3529 3530 3539 3540 3546 3547
3556 3557 3563 3564 3573 3574 3580 3581 3590 3591 3597 3598 3607 3608
3614 3615 3624 3625 3631 3632 3641 3642 3648 3649 3658 3659 3665 3666
3677 3699# 3699 3702 3713 3735# 3735 3738 3749 3773# 3773 3776 3790 3791
3792 3793 3796 3819# 3819 3822 3838 3839 3842 3864# 3864 3867 3881 3882
3885 3908# 3908 3911 3914 3915 3918 3940# 3940 3943 3957 3958 3961 3983#
3983 3986 4001 4007 4029# 4029 4032 4033 4041 4063# 4063 4066 4076 4098#
4098 4101 4104 4112 4157 4185 4214 4236# 4236 4239 4241 4242 4243 4246 SEQ 0204
4268# 4268 4271 4285 4286 4289 4312# 4312 4315 4316 4322 4346# 4346 4349
4353 4354 4368 4391# 4391 4394 4395 4399 4402 4425# 4425 4428 4429 4436
4459# 4459 4462 4470 4493# 4493 4496 4498 4502 4525# 4525 4528 4536 4559#
4559 4562 4572 4595# 4595 4598 4602 4603 4604 4607 4630# 4630 4633 4638
4642 4665# 4665 4668 4673 4675 4678 4701# 4701 4704 4715 4716 4719 4742#
4742 4745 4747 4753 4776# 4776 4779 4783 4786 4809# 4809 4812 4820 4842#
4842 4845 4846 4850 4851 4852 4855 4878# 4878 4881 4885 4886 4887 4890
4913# 4913 4916 4918 4922 4945# 4945 4948 4956 4979# 4979 4982 4991 5015#
5015 5018 5022 5023 5024 5027 5051# 5051 5054 5064 5088# 5088 5091 5095
5097 5100 5124# 5124 5127 5128 5130 5138 5160# 5160 5163 5177 5178 5181
5204# 5204 5207 5208 5218 5242# 5242 5245 5246 5262 5265 5290# 5290 5293
5294 5315 5340# 5340 5343 5344 5365 5388# 5388 5391 5393 5404 5427# 5427
5430 5438 5461# 5461 5464 5466 5479 5502# 5502 5505 5507 5508 5520 5543#
5543 5546 5548 5566 5589# 5589 5592 5599 5600 5603 5626# 5626 5629 5640
5663# 5663 5666 5673 5674 5677 5700# 5700 5703 5715 5738# 5738 5741 5749
5750 5753 5776# 5776 5779 5787 5788 5791 5814# 5814 5817 5824 5825 5828
5851# 5851 5854 5861 5862 5863 5864 5867 5890# 5890 5893 5896 5897 5901
5904 5928# 5928 5931 5938 5939 5943 5946 5970# 5970 5973 5986 6011# 6011
6014 6030 6055# 6055 6058 6072 6098# 6098 6101 6116 6139# 6139 6142 6146
6147 6151 6154 6177# 6177 6180 6186 6187 6190 6213# 6213 6216 6223 6224
6228 6231 6256# 6256 6259 6272 6297# 6297 6300 6316 6341# 6341 6344 6363
6388# 6388 6391 6406 6429# 6429 6432 6433 6436 6439 6443 6466# 6466 6469
6470 6476 6478 6481 6504# 6504 6507 6511 6515 6538# 6538 6541 6548 6549
6552 6575# 6575 6578 6587 6610# 6610 6613 6623 6624 6627 6650# 6650 6653
6655 6661 6684# 6684 6687 6696 6833# 6833
RAN1 764# 863# 971# 1075# 1207# 1220 1222 1223 1225 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# 2766 2769 2771 2789# 2802 2819 2837# 2850 2867 2886# 2899 2912 2930#
2943 2956 2975# 3004 3016 3022 3034 3040 3052 3058 3070 3076 3088 3094
3106 3112 3124 3130 3142 3148 3160 3166 3178 3200# 3229 3241 3247 3259
3265 3277 3283 3295 3301 3313 3319 3331 3337 3349 3355 3367 3373 3385
3391 3403 3426# 3443 3470# 3690# 3726# 3764# 3810# 3855# 3899# 3931# 3974# 3987
4002 4004 4020# 4054# 4089# 4102 4109 4125# 4171# 4200# 4227# 4259# 4303# 4337#
4382# 4396 4399 4416# 4430 4433 4450# 4464 4467 4484# 4516# 4529 4533 4550#
4566 4569 4586# 4599 4602 4604 4621# 4634 4637 4639 4656# 4670 4673 4675
4692# 4705 4716 4733# 4746 4750 4767# 4800# 4813 4817 4833# 4847 4850 4852
4869# 4904# 4936# 4949 4953 4970# 4983 4988 5006# 5019 5022 5024 5042# 5055
5059 5061 5079# 5115# 5129 5135 5151# 5195# 5209 5215 5233# 5246 5261 5281#
5295 5310 5312 5331# 5345 5360 5362 5379# 5392 5401 5418# 5432 5435 5452#
5465 5473 5474 5476 5493# 5506 5515 5517 5534# 5580# 5617# 5630 5637 5654#
5691# 5705 5712 5729# 5767# 5805# 5842# 5881# 5919# 5960# 6001# 6017 6022 6027
6045# 6088# 6130# 6168# 6204# 6246# 6287# 6303 6309 6310 6313 6331# 6378# 6420#
6437 6440 6457# 6495# 6508 6512 6529# 6566# 6580 6584 6601# 6617 6624 6641#
6675# 6689 6693
RANDBS 387# 669
REENTR 367#
RELIAB 126# 679 709
RENTR1 61 715#
REPT 343#
REPT1 343#
REPTU 465#
REQSET 343# SEQ 0205
RESRT1 60 442#
RESRT2 443#
RETURN 374#
ROTL2 2783#
ROTL2A 2797# 2821
ROTL2B 2802# 2823
ROTLR 3420#
ROTLR1 3434# 3441 3452
ROTLR2 3442# 3454
ROTOV 3684#
ROTOV1 3698# 3703 3705 3712
ROTOV2 3703# 3714
ROTR2 2831#
ROTR2A 2845# 2869
ROTR2B 2850# 2871
RSTART 115#
RTCL 2969#
RTCLA 2983# 3184
RTCLB 2989# 3186
RTCLR 3464#
RTCLR1 3478# 3485 3676
RTCLR2 3487# 3678
RTCR 3194#
RTCRA 3208# 3409
RTCRB 3214# 3411
RTIME 711 746# 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
RTL36 2880#
RTL36A 2894# 2914
RTL36B 2899# 2916
RTP 547#
RTR36 2924#
RTR36A 2938# 2958
RTR36B 2943# 2960
RTROV 3720#
RTROV1 3734# 3739 3741 3748
RTROV2 3739# 3750
RUNFLG 414#
SADR1 59# 363
SADR10 68# 379
SADR11 69# 380
SADR2 60# 365
SADR3 61# 367
SADR4 62#
SADR5 63# 428 SEQ 0206
SADR6 64# 429
SADR7 65# 376
SADR8 66# 377
SADR9 67# 378
SBINIT 188 373#
SCOPE 466#
SENSE1 343#
SENSE2 343#
SENSE3 343#
SENSE4 343#
SENSE5 343#
SENSE6 343#
SETZM1 2746#
SETZM2 2760# 2765 2773
SETZM3 2765# 2775
SFSTRT 363#
SKP 965#
SKP1 984# 1060 1062
SKPA 1069#
SKPA1 1088# 1191 1193
SLASH 550#
SMLUSR 343#
SNTRP 343#
SPACE 539#
SRTDDT 369#
START 357 668#
START1 376#
START2 377#
START3 378#
START4 379#
START5 380#
STARTA 372 676#
STRP 343#
SUB1 4686#
SUB1A 4727#
SUB1B 4741# 4752
SUB1C 4746# 4754
SUB2 4700# 4718
SUB2A 4761#
SUB2B 4775# 4785
SUB2C 4780# 4787
SUB3 4705# 4720
SUBB1 5000#
SUBB1A 5036#
SUBB1B 5073#
SUBB2 5014# 5026
SUBB2A 5050# 5063
SUBB2B 5087# 5099
SUBB3 5019# 5028
SUBB3A 5055# 5065
SUBB3B 5092# 5101
SUBI1 4898#
SUBI1A 4930# SEQ 0207
SUBI1B 4964#
SUBI2 4912# 4921
SUBI2A 4944# 4955
SUBI2B 4978# 4990
SUBI3 4917# 4923
SUBI3A 4949# 4957
SUBI3B 4984# 4992
SUBLNK 150# 373
SUBM1 4794#
SUBM1A 4827#
SUBM1B 4863#
SUBM2 4808# 4819
SUBM2A 4841# 4854
SUBM2B 4877# 4889
SUBM3 4813# 4821
SUBM3A 4847# 4856
SUBM3B 4882# 4891
SWTEXR 388#
SYSEXR 361#
TAB 540#
TDC1 6414#
TDC2 6428# 6442
TDC3 6433# 6444
TDCA1 6451#
TDCA2 6465# 6480
TDCA3 6470# 6482
TDCE1 6489#
TDCE2 6503# 6514
TDCE3 6508# 6516
TDCE4 6560#
TDCE5 6574# 6579 6586
TDCE6 6580# 6588
TDCE7 6635#
TDCE8 6649# 6654 6660
TDCE9 6655# 6662
TDCEA 6523#
TDCEB 6537# 6551
TDCEC 6542# 6553
TDCED 6595#
TDCEE 6609# 6614 6616 6626
TDCEF 6617# 6628
TDCEG 6669#
TDCEH 6683# 6695
TDCEI 6688# 6697
TDN1 5574#
TDN2 5588# 5602
TDN3 5593# 5604
TDNE1A 5611#
TDNE1B 5648#
TDNE1C 5685#
TDNE1D 5723#
TDNE1E 5761#
TDNE1F 5799# SEQ 0208
TDNE2A 5625# 5639
TDNE2B 5662# 5676
TDNE2C 5699# 5704 5714
TDNE2D 5737# 5742 5752
TDNE2E 5775# 5780 5790
TDNE2F 5813# 5827
TDNE3A 5630# 5641
TDNE3B 5667# 5678
TDNE3C 5705# 5716
TDNE3D 5743# 5754
TDNE3E 5781# 5792
TDNE3F 5818# 5829
TDOA1 6124#
TDOA2 6138# 6153
TDOA3 6143# 6155
TDOAA 6162#
TDOAB 6176# 6189
TDOAC 6181# 6191
TDOB1 6198#
TDOB2 6212# 6230
TDOB3 6217# 6232
TDOE1 6240#
TDOE2 6255# 6271
TDOE3 6261# 6273
TDOEA 6281#
TDOEB 6296# 6315
TDOEC 6302# 6317
TDON1 6372#
TDON2 6387# 6405
TDON3 6394# 6407
TDONA 6325#
TDONB 6340# 6349 6362
TDONC 6347# 6364
TDZA1 5836#
TDZA2 5850# 5866
TDZA3 5855# 5868
TDZAA 5875#
TDZAB 5889# 5903
TDZAC 5894# 5905
TDZB1 5913#
TDZB2 5927# 5945
TDZB3 5932# 5947
TDZE1 5954#
TDZE2 5969# 5985
TDZE3 5975# 5987
TDZEA 5995#
TDZEB 6010# 6029
TDZEC 6016# 6031
TDZN1 6082#
TDZN2 6097# 6115
TDZN3 6103# 6117
TDZNA 6039#
TDZNB 6054# 6071 SEQ 0209
TDZNC 6061# 6073
TESTPC 415# 766 865 973 1077 1209 1261 1298 1341 1434 1474 1514 1561 1657
1696 1739 1778 1818 1866 1900 1943 1984 2024 2068 2118 2159 2200 2243
2284 2327 2367 2411 2452 2495 2535 2591 2627 2664 2699 2754 2791 2839
2888 2932 2977 3202 3428 3472 3692 3728 3766 3812 3857 3901 3933 3976
4022 4056 4091 4127 4173 4202 4229 4261 4305 4339 4384 4418 4452 4486
4518 4552 4588 4623 4658 4694 4735 4769 4802 4835 4871 4906 4938 4972
5008 5044 5081 5117 5153 5197 5235 5283 5333 5381 5420 5454 5495 5536
5582 5619 5656 5693 5731 5769 5807 5844 5883 5921 5962 6003 6047 6090
6132 6170 6206 6248 6289 6333 6380 6422 6459 6497 6531 6568 6603 6643
6677
TICKS 418#
TN0 343#
TN1 343#
TOTALS 116#
TRP3TP 343#
TRPENB 343#
TTNBRF 598#
TTYFIL 514#
TTYSPD 515#
TXTINH 127#
UOLIP 343#
UOUSR 343#
USER 405# 670 6710 6723 6912
USERF 343#
USRASB 53# 395
USRCMP 343#
USRCRF 524#
USRLFF 523#
USRPFW 343#
UUODIS 477#
UUOEXT 433# 6916
UUORTN 434#
UUOSKP 431#
UUOTXT 6871
$$MUUO 629#
$$OUTE 635#
$$TAX1 647#
$$TAX2 648#
$$TOGG 641#
$$UUO 618#
$ACC0 456#
$BEND1 426#
$BEND2 427# 6906
$CHRIN 517#
$CRLF 519#
$DEVCH 343#
$DSKUP 396#
$DVCH1 343#
$DVOFF 513#
$EMODE 394#
$ENDFX 663# 664
$FFF 521# SEQ 0210
$IBUF 569#
$INEXT 571#
$INNM 570#
$ITRHL 437#
$ITRX1 438#
$LPAPE 6927
$MMAP 397#
$MODVL 392#
$MODVU 393#
$OBUF 560#
$ONETM 420#
$OUTEX 562#
$OUTNM 561#
$PAPER 343
$PARER 444#
$PNAME 390#
$PSHER 448#
$PVER 391#
$RSRTX 440#
$RSRTY 441#
$SPAG1 460#
$START 357#
$SVAPR 458#
$SVPAG 459#
$SVPI 457#
$SVUPC 463# 6717 6721 6751
$SVUUO 462# 6730 6767 6778 6824 6862
$TABF 520#
$TTCHR 516#
$TWCNT 512#
$TYPNB 518#
$UMODE 395#
$UORTX 435#
$USRHL 439#
$UUOER 436# 477
$VTF 522#
%ACS1A 6732# 6732 6759 6763 6780 6786
%ACTFL 469#
%ACTUL 470#
%CNTE 6768# 6768 6772 6787
%COREC 468#
%CORFL 467#
%DISCR 471#
%EE1 6773# 6773 6775 6849
%EE1A 6776# 6776 6817 6858
%EE2 6779# 6779 6784 6847
%EE2A 6785# 6785 6841
%ERAC0 6706# 6706 6733 6771 6803 6815 6831 6908
%ERAC1 6714# 6714 6734 6770 6774 6777 6783 6896
%ERAC2 6715# 6715 6769 6895
%ERFST 6740# 6740 6742
%ERHI1 610#
%ERHI2 611# SEQ 0211
%ERHI3 612#
%ERMOR 6872 6878#
%ERMS1 6737# 6921
%ERMS2 6758#
%ERR2 6792 6836 6845#
%ERR4 6809 6862#
%ERRB 6804# 6859
%ERRB1 6824# 6852
%ERRC 6820 6838 6843 6854 6864 6868#
%ERRS1 6729 6882# 6920
%ERRS2 6895#
%ERRS4 6736 6918#
%ERRS5 6899 6903 6908#
%RAND 6758# 6758 6761 6832
.JB41 343#
.JBAPR 343#
.JBCNI 343#
.JBDDT 343#
.JBFF 343#
.JBOPC 343#
.JBREL 343#
.JBREN 343#
.JBSA 343#
.JBSYM 343#
.JBTPC 343#
.JBUSY 343#
.JBUUO 343#
.JBVER 343#
CFLUSH 299#
CINVAL 298# SEQ 0212
CLOKOP 293#
CWRTBI 300#
DROPDV 260# 715
EERR 38# 2769 2771 2865 3882 3915 4002 4004 4637 4639 4750 4783 5059 5061
5095 5097 5401 5896 5901 6187 6512
EERRI 40# 2817 2910 2954 3014 3032 3050 3068 3086 3104 3122 3140 3158 3176
3239 3257 3275 3293 3311 3329 3347 3365 3383 3401 4107 4499 4919
EERRM 39# 4433 4467 4817 4885 4887 5262 5310 5312 5360 5362 5474 5476 5515
5517
ENDUUO 306# 425
EOPUUO 307# 427
ER 37# 1102 1113 1124 1135 1146 1157 1168 1179 3710 3746 4138 4144 4149
4154 4358 4360 4362 4365 5596 5598 5633 5635 5670 5672 5708 5710 5746
5748 5784 5786 5821 5823 5858 5860 5899 5941 5979 5981 6025 6065 6067
6110 6149 6183 6185 6226 6265 6267 6307 6353 6357 6398 6400 6473 6475
6510 6545 6547 6620 6622 6691
ERR 33# 1223 1225 2819 4602 4604 4673 4675 4716 5022 5024 5600 5637 5674
5712 5750 5788 5825 5862 5864 5938 5943 5983 6022 6027 6069 6107 6112
6146 6151 6223 6228 6269 6309 6313 6355 6359 6402 6436 6440 6478 6549
6584 6624 6658 6693
ERRHLT 195# 6889
ERRI 35# 2867 2912 2956 3016 3034 3052 3070 3088 3106 3124 3142 3160 3178
3241 3259 3277 3295 3313 3331 3349 3367 3385 3403 4109 4533 4569 4953
4988 5135 5215 5435
ERRM 34# 4399 4850 4852
ERROR 36# 787 793 799 805 811 817 823 829 835 841 886 888 893
895 900 902 907 909 914 916 921 923 928 930 935 937 942
944 949 951 996 998 1004 1006 1012 1014 1020 1022 1028 1030 1036
1038 1044 1046 1052 1054 1104 1106 1108 1115 1117 1119 1126 1128 1130
1137 1139 1141 1148 1150 1152 1159 1161 1163 1170 1172 1174 1181 1183
1185 1275 1281 1283 1312 1318 1320 1365 1373 1381 1389 1448 1451 1454
1459 1488 1491 1494 1499 1528 1531 1534 1539 1598 1601 1604 1607 1611
1614 1620 1623 1626 1629 1633 1636 1670 1673 1677 1709 1712 1715 1719
1752 1755 1759 1791 1794 1799 1838 1844 1880 1913 1916 1921 1924 1956
1959 1965 1998 2002 2005 2038 2042 2045 2049 2097 2137 2139 2177 2179
2220 2222 2261 2263 2304 2306 2343 2345 2387 2389 2429 2431 2472 2474
2512 2514 2569 2571 2606 2608 2643 2645 2678 2680 2733 2735 3448 3450
3513 3515 3530 3532 3547 3549 3564 3566 3581 3583 3598 3600 3615 3617
3632 3634 3649 3651 3666 3668 3791 3793 3837 3839 3958 4038 4071 4073
4182 4211 4243 4286 4319 4354 5178 5563
FATAL 194#
FRD36 335#
FRD8 336#
FREAD 334#
FSELEC 333#
GET 178#
GO 175#
HALT 65 66 67 68 69 180# 446
JEN 182#
JRSTF 181#
LOOP 100# 845 955 1059 1190 1226 1284 1321 1394 1460 1500 1540 1640 1678
1720 1760 1800 1849 1881 1925 1966 2006 2050 2098 2140 2180 2223 2264
2307 2346 2390 2432 2475 2515 2572 2609 2646 2681 2736 2772 2820 2868 SEQ 0213
2913 2957 3183 3408 3451 3675 3711 3747 3794 3840 3883 3916 3959 4005
4039 4074 4110 4155 4183 4212 4244 4287 4320 4366 4400 4434 4468 4500
4534 4570 4605 4640 4676 4717 4751 4784 4818 4853 4888 4920 4954 4989
5025 5062 5098 5136 5179 5216 5263 5313 5363 5402 5436 5477 5518 5564
5601 5638 5675 5713 5751 5789 5826 5865 5902 5944 5984 6028 6070 6114
6152 6188 6229 6270 6314 6361 6404 6441 6479 6513 6550 6585 6625 6659
6694
MAPADR 316#
MAPCNK 317#
MAPMEM 313#
MAPPNT 319#
MAPSET 318#
MEMSEG 315#
MEMZRO 314#
MODPCP 326#
MODPCU 325#
MTROP 294#
NAME 7# 10
PBELL 269# 6893
PCRL 263# 6868
PCRL2 267#
PCRL2F 268#
PCRLF 264#
PFORCE 271#
PGMINT 188# 668
PJRST 179#
PMSG 273# 6745 6749 6795 6799 6811 6822 6827 6839 6845 6856
PMSGF 276#
PNT1 229#
PNT11 243#
PNT11F 244#
PNT1F 230#
PNT2 231# 6798
PNT2F 232#
PNT3 233#
PNT3F 234#
PNT4 235#
PNT4F 236#
PNT5 237#
PNT5F 238#
PNT6 239# 6753 6850
PNT6F 240#
PNT7 241#
PNT7F 242#
PNTA 215# 6863
PNTADF 246#
PNTADR 245#
PNTAF 216#
PNTAL 217#
PNTALF 218#
PNTCHF 228#
PNTCHR 227#
PNTCI 225# SEQ 0214
PNTCIF 226#
PNTCW 261#
PNTCWF 262#
PNTDCF 254#
PNTDEC 253# 6748
PNTDS 255#
PNTDSF 256#
PNTHW 249# 6804 6818 6834 6842
PNTHWF 250#
PNTMGN 340# 6879
PNTMSF 222#
PNTMSG 221#
PNTNM 257# 6741
PNTOCF 252#
PNTOCS 251#
PNTOCT 247#
PNTOTF 248#
PNTSIX 258#
PNTSXF 259#
PSIXL 219#
PSIXLF 220#
PSIXM 223# 6746 6750 6796 6800 6812 6823 6828 6840 6846 6857
PSIXMF 224#
PSP 265#
PSPF 266#
PUT 177#
RANDOM 94# 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 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 5969 6010 6054 6097 6138 6176 6212
6255 6296 6340 6387 6428 6465 6503 6537 6574 6609 6649 6683
RTN 176# 433
S 106# 108 112 141 143 152 155 170 171 173 184 186 190 192
197 201 343 348 354 381 383 401 403 421 423 452 454 472
474 492 494 502 504 525 530 556 558 565 567 573 575 581
583 587 589 594 596 600 602 606 608 614 616 619 621 625
627 631 633 637 639 643 645 650 655 659 661
SETUP 79# 758 857 965 1069 1201 1253 1290 1333 1426 1466 1506 1553 1649
1688 1731 1770 1810 1858 1892 1935 1976 2016 2060 2110 2151 2192 2235
2276 2319 2359 2403 2444 2487 2527 2583 2619 2656 2691 2746 2783 2831
2880 2924 2969 3194 3420 3464 3684 3720 3758 3804 3849 3893 3925 3968
4014 4048 4083 4119 4165 4194 4221 4253 4297 4331 4376 4410 4444 4478
4510 4544 4580 4615 4650 4686 4727 4761 4794 4827 4863 4898 4930 4964
5000 5036 5073 5109 5145 5189 5227 5275 5325 5373 5412 5446 5487 5528
5574 5611 5648 5685 5723 5761 5799 5836 5875 5913 5954 5995 6039 6082
6124 6162 6198 6240 6281 6325 6372 6414 6451 6489 6523 6560 6595 6635
6669
SIXBTZ 282#
SWITCH 288# 678 6727 6880 SEQ 0215
TTALTM 210# 6882
TTICHR 203#
TTICNV 208#
TTIDEC 207#
TTINO 205#
TTIOCT 206#
TTIYES 204#
TTLOOK 209#
TTSIXB 211#
TTYINP 212#