Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dakda.seq
There are no other files named dakda.seq in the archive.
MAINDEC-10-DAKDA
SEQ 0001
IDENTIFICATION
--------------
PRODUCT CODE: MAINDEC-10-DAKDA-B-D
PRODUCT NAME: DECSYSTEM10 PDP-10 KA10 ARITHMETIC
RELIABILITY DIAGNOSTIC
VERSION: 0.2
DATE RELEASED: JANUARY 1977
MAINTAINED BY: DIAGNOSTIC ENGINEERING GROUP
AUTHOR: JOHN R. KIRCHOFF
COPYRIGHT(C) 1970,1977
DIGITAL EQUIPMENT CORPORATION
MARLBORO, MASS. 01752
THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY
ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH
THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE,
OR ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE
MADE AVAILABLE TO ANY OTHER PERSON EXECPT FOR USE ON SUCH SYSTEM
AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND
OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
DAKDA.TXT SEQ 0002
PAGE 2
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
DAKDA.TXT SEQ 0003
PAGE 3
1.0 ABSTRACT
--------
THIS PDP-10 KA10 ARITHMETIC RELIABILITY TEST IS A COMPREHENSIVE
RELIABILITY TEST USING PSEUDO-RANDOM NUMBERS TO TEST THE
KA10 PDP-10 FIXED POINT, FLOATING POINT AND BYTE INSTRUCTIONS.
THE INSTRUCTIONS UNDER TEST ARE COMPARED WITH
EACH OTHER AND WITH A HARDWARE OPERATION SIMULATION PROGRAM.
A SWITCH HAS BEEN PROVIDED FOR MACHINES WHICH DO NOT HAVE THE
OPTIONAL INSTRUCTIONS. ERRORS ARE PRINTED ON THE TELETYPE OR
LINE PRINTER. THE PROGRAM MAY BE OPERATED IN EXEC MODE, USER
MODE, OR IN A TIME-SHARING SYSTEM.
2.0 REQUIREMENTS
------------
2.1 EQUIPMENT
---------
A PDP-10 KA10 EQUIPPED WITH A MINIMUM OF 32K OF CORE MEMORY.
CONSOLE TELETYPE
LINE PRINTER (OPTIONAL)
DECTAPE FOR PROGRAM STORAGE
2.2 STORAGE
-------
THE PROGRAM RUN WITHIN 32K OF MEMORY.
2.3 PRELIMINARY PROGRAMS
--------------------
BASIC INSTRUCTION DIAGNOSTICS
BASIC INSTRUCTION RELIABILITY DIAGNOSTICS
ADVANCED INSTRUCTION DIAGNOSTICS
DAKDA.TXT SEQ 0004
PAGE 4
3.0 PROGRAM PROCEDURES
------------------
3.1 LOADING PROCEDURE
-----------------
RUN VIA "DIAMON" OR "MAGMON".
3.2 STARTING PROCEDURE
------------------
A. SELECT OPERATIONAL CONSOLE DATA SWITCH SETTINGS (REFER TO
4.0 DATA SWITCH FUNCTIONS).
B. IF THE MACHINE DOES NOT HAVE FLOATING POINT/BYTE, OR
YOU DO NOT WISH TO TEST THE FLOATING POINT/BYTE
INSTRUCTIONS, SET DATA SWITCHES 'INHFP' AND/OR 'INHBYT'.
C. EXEC MODE -
STAND-ALONE STARTING ADDRESS IS 30000.
RESTART ADDRESS, AFTER POWER DOWN, IS 30005.
D. TIME-SHARING MODE -
IN USER MODE THE FOLLOWING QUESTIONS WILL BE ASKED TO
SELECT THE OPERATIONAL SWITCHES:
TELETYPE SWITCH CONTROL: ? Y OR N -
IF YES, THE FOLLOWING: IF NO, ACTUAL CONSOLE SWITCHES
ARE USED.
SPECIFY LH SWITCHES IN OCTAL -
SPECIFY RH SWITCHES IN OCTAL -
DAKDA.TXT SEQ 0005
PAGE 5
3.3 OPERATING PROCEDURE
-------------------
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 SET THE LOOP ON ERROR
SWITCH AND RESTART THE PROGRAM. THE FIRST FAILURE WILL
THEN CAUSE THE PROGRAM TO ENTER A LOOP SUITABLE FOR SCOPING.
C. WHEN TAKING MARGINS, SET DATA SWITCHES 'NOPNT' AND 'DING'.
THIS WILL INHIBIT PRINTOUT BUT WILL ALLOW THE TELETYPE BELL
TO BE RUNG WHEN AN ERROR OCCURS. IF THE MARGIN OBTAINED IS
UNACCETABLE, THE OPERATOR MAY REVERT TO STANDARD SWITCH
SETTINGS. TO INCREASE THE DUTY, FACTOR AND DECREASE THE
PROBABILITY OF SIMULATOR FAILURES, SWITCH 'FAST' MAY BE USED.
THIS, HOWEVER, IS NOT A COMPLETE TEST OF THE HARDWARE
AND SHOULD BE USED WITH CAUTION.
D. ERROR INFORMATION MAY BE OBTAINED QUICKLY BY PRINTING
ERRORS ON THE LINE PRINTER.
E. THE PROGRAM SHOULD RUN SEVERAL HOURS TO ALLOW ENOUGH
RANDOM NUMBERS TO BE PROCESSED TO VERIFY SYSTEM
RELIABILITY.
DAKDA.TXT SEQ 0006
PAGE 6
4.0 DATA SWITCH FUNCTIONS
----------------------
SWITCH STATE FUNCTION
------ ----- --------
0 ABORT 0 NORMAL
1 ABORT ON PASS COMPLETION
1 RSTART 0 NORMAL
1 PRINT TOTALS, RESTART PROGRAM
2 TOTALS 0 NORMAL
1 PRINT TOTALS, CONTINUE PROGRAM
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
(LOGICAL DEVICE, USER MODE)
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 PROGRAM CONTINUES FROM ERROR
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 MODE
1 RELIABILITY MODE
16 KA50HZ 0 60 CYCLE POWER
1 50 CYCLE POWER
DAKDA.TXT SEQ 0007
PAGE 7
4.0 DATA SWITCH FUNCTIONS (CON'T)
-----------------------------
RIGHT HALF SWITCHES
-------------------
SWITCH STATE FUNCTION
------ ----- --------
18 ENTDDT 0 MORMAL
1 ENTER DDT UPON STARTING PROGRAM
19 RANBAS 0 USE PROGRAM INITIAL RANDOM BASE
1 SPECIFY RANDOM NUMBER BASE
28 INHCLK 0 PROCESS CLOCK INTERRUPTS
1 INHIBIT CLOCK INTERRUPTS
29 INHMT 0 PRINT SIMULATION MACHINE STATES
1 PRINT SIMULATION INITIAL/FINAL ONLY
30 INHFP 0 TEST FLOATING POINT
1 INHIBIT FLOATING POINT TEST
31 INHBYT 0 TEST BYTE INSTRUCTION
1 INHIBIT BYTE TEST
32 INFFXD 0 TEST FIXED POINT
1 INHIBIT FIXED POINT TEST
33 INHSCT 0 NORMAL SIMULATION PRINTOUT
1 INHIBIT SIMULATION SCT2 AND
SCT3 PRINTOUT
(MAKES PRINTOUT SHORTER)
34 SLOW 0 NORMAL TESTING
1 RUN JUST SIMULATION COMPARISION
(DON'T TEST INSTRUCTIONS BY
COMPARISION WITH EACH OTHER AS IN;
DIV THEN MUL AND ADD
REMAINDER, ETC.)
35 FAST 0 NORMAL TESTING
1 RUN JUST INSTRUCTION COMPARISION
(DON'T TEST INSTRUCTIONS BY
HARDWARE OPERATION SIMULATION
FOR COMPARISIONS.)
DAKDA.TXT SEQ 0008
PAGE 8
5.0 ERRORS
------
A. INSTRUCTION ERROR
-----------------
IF AN INSRUCTION FAILS TO GIVE THE CORRECT RESULTS, THE
TEST TITLE, PASS COUNT, TYPE OF FAILURE (INSTRUCTION
COMPARISION OR SIMULATION COMPARISION), MACHINE RESULTS,
SIMULATION RESULTS AND INSTRUCTION SIMULATION ARE
PRINTED.
B. SIMULATOR PRINTOUT
------------------
WHEN AN ERROR OCCURS THE SIMULATED MACHINE STATES AND
REGISTERS ARE PRINTED SO THAT BY USE OF HARDWARE MAINTENANCE
SWITCHES, I.E., SINGLE CYCLE AND SC STOP, CONSOLE LIGHTS
MAY BE COMPARED TO THE PRINTOUT TO DETERMINE THE EVENT
TIME OF THE FAILURE.
THE PRINTOUT CONTAINS THE RESULTS OF THE INSTRUCTION
UNDER TEST. THIS IS AC, AC+1, E, OR C(E) FOR FIXED AND
FLOATING - POINT INSTRUCTIONS; AC, POINTER, C(E) FOR BYTE
INSTRUCTIONS. THE FOLLOWING TWO LINES INDICATE THE
INSTRUCTION THAT FAILED, INITIAL VALUES, AND SIMULATED
RESULTS. THIS IS FOLLOWED BY THE MACHINE TIMES AND
CORRECT CONTENTS OF THE SEVERAL REGISTERS, AFTER THE
OCCURANCE OF THE TIME PULSE.
C. SCOPE LOOP
----------
WHEN PRINTING IS COMPLETE, IF THE 'LOOPER' SWITCH
IS SET,THE ROUTINE WILL ENTER A LOOP SUITABLE
FOR SCOPING. AT THIS TIME THE MI REGISTER WILL
DISPLAY THE RESULTS OF THE FAILING OPERAND, OR THE
FLAGS RESISTER WITH MACHINE RESULTS IN C(LEFT)
AND SIMULATED RESULTS IN C(RIGHT). IF THE FAILURE IS NOT
FLAGS, THE MI WILL CONTAIN THE FIRST OPERAND THAT
FAILED IN THE ORDER OF AC, AC+1, AND C(E).
D. TO SCOPE
--------
1. ADDRESS OF FAILING INSTRUCTION IS IN AC14
2. SET MAS TO =14
3. SYNC FROM MITO -1 S 37D.
DAKDA.TXT SEQ 0009
PAGE 9
5.0 ERRORS (CON'T)
---------------
E. OPERAND STORAGE
---------------
IF SOMETHING HAPPENS TO THE PRINTOUT OR YOU ARE NOT SURE
WHAT THE ORIGINAL AND FINAL OPERANDS ARE:
1. AC'S ARE SAVED IN LOCATIONS SAVAC THROUGH SAVAC+17.
2. ORIGINAL OPERANDS ARE IN SAVAC+1, 2 AND 3.
3. RESULTS ARE IN AC1, AC2 AND AC3.
4. C(AC1)=C(AC), C(AC2)=C(AC+1), C(AC3)=C(E) OR E.
LOOK IN SYMBOL TABLE AT END OF LISTING FOR LOCATION OF SAVAC.
F. PROGRAM ERRORS
---------------
PROGRAM ERRORS SUCH AS: ILLEGAL UUO'S, PARITY ERRORS,
NON-EX-MEMORY, ILLEGAL INTERRUPTS, ETC., ARE HANDLED
BY PRINTOUT OF THE TYPE OF ERROR WITH AS MUCH INFORMATION
AS IS PERTINENT.
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
----------
THIS PROGRAM IS A RELIABILITY TEST USING RANDOM NUMBERS
AND AS SUCH SHOULD BE RUN FOR SEVERAL HOURS TO INSURE
THAT ENOUGH NUMBERS ARE PROCESSED TO VERIFY SYSTEM
RELIABILITY.
DAKDA.TXT SEQ 0010
PAGE 10
8.0 OPERATIONAL VARIATIONS
----------------------
A. DIAGNOSTIC MONITOR
THIS 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.
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 CAN BE ANY DEVICE THAT CAN ACCEPT ASCII FORMAT
SUCH AS LPT, DSK, DTA, ETC. THE CORRESPONDING OUTPUT
FILE IS 'DAKDA.TMP'.
EXAMPLE DEVICE ASSIGNMENT:
.ASSIGN DSK DEV
IN USER MODE THE PROGRAM WILL MAKE TWO PASSES AND THEN RETURN
TO MONITOR MODE.
THE OUTPUT FILE (IF USED) MAY THEN BE PRINTED BY USING THE
NORMAL MONITOR COMMANDS (R PRINT, LIST, TYPE, ETC.).
IF THE PROGRAM IS ABORTED BEFORE COMPLETION (BY ^C, ETC.) THE
OUTPUT FILE MAY THEN BE CLOSED BY USING THE MONITOR 'REENTER'
COMMAND.
DAKDA.TXT SEQ 0011
PAGE 11
8.0 OPERATIONAL VARIATIONS (CON'T)
-------------------------------
C. SYSTEM EXERCISER
STARTING ADDRESS IS 30003. DATA SWITCHES ARE PRESTORED
IN 'SWTEXR' LOCATION 30023.
9.0 MISCELLANEOUS
-------------
THIS PROGRAM, DAKDA, CAN ONLY BE USED ON PDP-10 SYSTEMS THAT
HAVE KA10 ECO49 INSTALLED.
10.0 LISTING
-------
THIS FILE IS A HISTORY OF THE DEVELOPMENT OF DAKDA.
************************************************************ SEQ 0012
UPDATE VERSION: 0.2
UPDATE AUTHOR: JOHN R. KIRCHOFF
RELEASE DATE: JANUARY 1977
NOTES: PROGRAM UPDATED TO THE "SUBRTN" OPERATING PROCEDURES
AND CHANGED TO "DAKDA" FROM THE "D0XX" SERIES OF
PROGRAM WHICH ARE OBSOLETED.
************************************************************
UPDATE VERSION: D0NF
UPDATE AUTHOR: JOHN R. KIRCHOFF
RELEASE DATE: SEPTEMBER 23, 1970
NOTES: PROGRAM UPDATED TO ALLOW USE WITH THE PDP-10 BASIC
SUBROUTINE PACKAGE (MAINDEC-10-X00). PROGRAM
ASSEMBLY PROCEDURES, OPERATING PROCEDURES AND OTHER
FUNCTIONS STANDARDIZED.
SIMULATOR PORTION UPDATED TO VERSION (MAINDEC-10-X02B),
PDP-10 SIMULATOR (KA-10).
************************************************************
************************************************************
SEQ 0013
UPDATE VERSION: D0NE
UPDATE AUTHOR: JOHN R. KIRCHOFF
RELEASE DATE: JANUARY 8, 1970
NOTES: PROGRAM UPDATED TO OPERATE WITH KA10 ECO45
AND ECO49. CHANGES MADE TO THE PDP-10
SIMULATOR. CHANGES MADE PERFORM SOFTWARE SIMULATION
OF THE FOLLOWING HARDWARE CHANGES:
1. ADD 1 GATE SO THAT MQ(0) WILL BE SHIFTED
LEFT INTO AR(35) AT ET2.
2. AT FDT1, SAVE IN AR FXU HOLD WHETHER THE
ERROR IS AN OVERFLOW OR UNDERFLOW; IN
NORMALIZE, SET THE CORRECT ERROR
CONDITION IF AN ERROR OCCURS.
3. DELAY DST7 90 NSEC BEFORE IT TRIGGERS ST9.
************************************************************
RELEASE DATE: AUGUST 28, 1970
PRODUCT CODE: MAINDEC-10-D0N
PRODUCT NAME: RELIABILITY TEST FOR FIXED, FLOAT
AND BYTE INSTRUCTIONS (TEST N)
ORIGINAL VERSION: D0ND
ORIGINAL AUTHOR: L. GOSSEL
ORIGINAL RELEASE DATE: JULY 24, 1968
NOTES: CHANGES UP TO VERSION D0ND UNKNOWN
************************************************************
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 1
DAKDAT MAC 25-JAN-77 10:36 DIAGNOSTIC PARAMETERS SEQ 0014
1 ;MAINDEC-10-DAKDA
2
3
4 000002 DECVER==002
5 000000 MCNVER==000
6
7 XLIST
8 LIST
9 LALL
10
11 NAME \MCNVER,\DECVER^
12
13 TITLE DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 ^
14
15 XALL
16
17 ;A COMPREHENSIVE RELIABILITY TEST OF THE PDP-10
18 ;KA10 FIXED, FLOATING AND BYTE INSTRUCTIONS.
19
20 ;COPYRIGHT 1977
21 ;DIGITAL EQUIPMENT CORPORATION
22 ;MARLBORO, MASS. 01752
23
24 ;JOHN R. KIRCHOFF
25
26 000137 LOC 137
27 000137 000000 000002 MCNVER,,DECVER
28
29 NOSYM
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 2
DAKDAT MAC 25-JAN-77 10:36 DIAGNOSTIC PARAMETERS SEQ 0015
30 SUBTTL DIAGNOSTIC PARAMETERS
31
32 ;OPERATOR DEFINITIONS
33
34 015000 000000 OPDEF SMT [15B8]
35 031433 LUUO15=SIMMT
36 020000 000000 OPDEF SINST [20B8]
37 031421 LUUO20=SIMNST
38
39 ;SUBROUTINE ASSEMBLY DEFINITIONS
40
41 000001 EXCASB==1
42 000001 USRASB==1
43 000001 KA10==1
44 000001 KLOLD==1
45 000001 PGMEND==1
46 000100 DEBUG=100
47 030600 SADR1==SFSRT1
48 030076 SADR2==RESRT1
49 030752 SADR3==RENTR1
50 030000 SADR5==BEGIN
51 030007 SADR6==DDTSRT
52 254200 030000 SADR7==HALT BEGIN
53 254200 030000 SADR8==SADR7
54 254200 030000 SADR9==SADR7
55 254200 030000 SADR10==SADR7
56 254200 030000 SADR11==SADR7
57
58 123457 654321 PAREA1==123457,,654321
59 000000 PAREA2==0
60 444153 444100 PAREA3==SIXBIT/DAKDA/
61 645560 000000 PAREA4==SIXBIT/TMP/
62 000000 PAREA5==0
63 000000 PAREA6==0
64
65 000002 ITERAT==2
66
67 000000 OFFSET=0
68 030007 VMHALT=DDTSRT
69 030007 SEXIT1=VMHALT
70 030007 DDTEX5=DDTSRT
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 3
DAKDAT MAC 25-JAN-77 10:36 DIAGNOSTIC PARAMETERS SEQ 0016
71 ;ACCUMULATOR ASSIGNMENTS
72
73 000001 AC=1 ;TEST AC'S
74 000005 RA=5 ;RANDOM NUMBER AC'S
75 000011 FLAGS=11 ;FLAGS (OV,DCK,ETC)
76 000012 ACSP=12 ;POINTER FOR SIMULATED AC'S
77 000013 CNTL=13 ;CONTROL REGISTER
78 000014 CNTR=14 ;COUNTER FOR GROUP
79 000015 IT=15 ;TEST INSTRUCTION POINTER
80 000016 LOP=16 ;GROUP ITERATION COUNTER
81
82 ;CONTROL WORDS
83
84 200000 BYT=200000 ;BYTE FLAG
85 100000 FP=100000 ;FLOAT FLAG
86 040000 ER=40000 ;ERROR FLAG
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 4
DAKDAT MAC 25-JAN-77 10:36 DIAGNOSTIC PARAMETERS SEQ 0017
87 ;TEST CONTROL SWITCHES
88
89 ;RIGHT HALF
90
91 400000 ENTDDT=400000 ;ENTER DDT UPON STARTING
92 200000 RANBAS=200000 ;SPECIFY RANDOM NUMBER BASE
93
94 000200 INHCLK=200 ;INHIBIT CLOCK INTERRUPTS
95 000100 INHMT=100 ;INHIBIT PRINT MACHINE TIMES
96
97 000040 INHFP=40 ;INHIBIT FLOATING POINT TEST
98 000020 INHBYT=20 ;INHIBIT BYTE TEST
99 000010 INHFXD=10 ;INHIBIT FIXED POINT TEST
100
101 000004 INHSCT=4 ;INHIBIT SIMULATION SCT PRINT
102 000002 SLOW=2 ;RUN JUST SIMULATION COMPARISION
103 000001 FAST=1 ;RUN JUST INSTRUCTION COMPARISION
104
105 ;MACRO'S
106
107 DEFINE SAVEM (A,B)<
108 MOVEM A,B(ACSP) ;MOVE TO MEMORY
109 MOVEM A+1,B+1(ACSP)
110 MOVEM A+2,B+2(ACSP)
111 MOVEM A+3,B+3(ACSP)
112 >
113
114 DEFINE NORM (A,B)<
115 TLNE A,400000 ;NORMALIZE A NUMBER
116 TLZA A,400
117 TLO A,400
118 TDNN A,[377777777777]
119 AOS A,B
120 MOVEM A,B
121 >
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 1
PARAM KLM 18-JAN-77 11:38 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977 SEQ 0018
122 SUBTTL *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, JAN 18,1977
123
124 DEFINE S,<;*********************************************************************>
125
126 S^;*********************************************************************^
127 ;*DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE)
128 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
129 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
130 S^;*********************************************************************^
131
132 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION
133 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS
134 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE
135
136 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
137 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
138 010000 DING== 010000 ;RING BELL ON ERROR
139
140 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR
141 002000 ERSTOP==002000 ;HALT ON TEST ERROR
142 001000 PALERS==001000 ;PRINT ALL ERRORS
143
144 000400 RELIAB==000400 ;RELIABILITY MODE
145 000200 TXTINH==000200 ;INHIBIT ERROR TEXT
146 000100 INHPAG==000100 ;INHIBIT PAGING
147
148 000040 MODDVC==000040 ;MODIFY DEVICE CODE
149 000020 INHCSH==000020 ;INHIBIT CACHE
150 000010 OPRSEL==000010 ;OPERATOR SELECTION
151
152 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH
153
154 000002 KAHZ50==000002 ;KA10 50 HERTZ POWER
155
156 ;SWITCH 17 RESERVED !!!
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 2
PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0019
157 SUBTTL *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977
158
159 S^;*********************************************************************^
160 ;*SPECIAL SUBPROGRAM LINKAGES
161 S^;*********************************************************************^
162
163 027772 FSELNK= 27772 ;FILE SELECT LINK
164 027773 FRDLNK= 27773 ;FILE READ LINK
165 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS
166 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS
167 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS
168 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS
169
170 S^;*********************************************************************^
171 ;*SPECIAL SUBROUTINE FATAL HALTS
172 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
173 S^;*********************************************************************^
174
175 ;ADDRESS TAG REASON
176 ;---------------------
177
178 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION
179 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR
180 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR
181 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT
182 ; 1014 DTEBER ;DTE20 INTERRUPT WITHOUT DOORBELL
183 ; 1015 DTECER ;DTE20 CLOCK INTERRUPT WITHOUT FLAG SET
184 ; 1016 CPIERR ;CPU INITIALIZATION ERROR
185 ; 1017 EOPERR ;END OF PROGRAM ERROR
186 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT
187
188 S^;*********************************************************************^
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 3
PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0020
189 S^;*********************************************************************^
190 ;OPERATOR DEFINITIONS (NON-UUO'S)
191 S^;*********************************************************************^
192
193 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL
194 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN
195 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST
196 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST
197 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S
198 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT
199 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT
200 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT
201
202 S^;*********************************************************************^
203 ;*SUBROUTINE INITIALIZATION CALL
204 S^;*********************************************************************^
205
206 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION
207
208 S^;*********************************************************************^
209 ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
210 S^;*********************************************************************^
211
212 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT
213 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT
214
215 S^;*********************************************************************^
216 ;*TERMINAL INPUT UUO'S
217 ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
218 ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
219 S^;*********************************************************************^
220
221 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER
222 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y
223 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N
224 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD
225 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD
226 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD
227 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK
228 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK
229 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD
230 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 4
PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0021
231 ;*TERMINAL OUTPUT UUO'S.
232
233 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD
234 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED
235 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE
236 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED
237 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE
238 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED
239 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE
240 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED
241 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE
242 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED
243 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE
244 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED
245 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER
246 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED
247 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT
248 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED
249 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS
250 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED
251 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS
252 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED
253 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS
254 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED
255 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS
256 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED
257 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS
258 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED
259 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS
260 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED
261 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS
262 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED.
263 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS
264 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED
265 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL
266 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED
267 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6
268 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
269 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S
270 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
271 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S
272 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
273 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S
274 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
275 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME
276 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD
277 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED
278 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE
279 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD
280 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED
281 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
282 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
283 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE
284 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED
285 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 4-1
PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0022
286 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
287 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL
288
289 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE
290
291 DEFINE PMSG (ARG),<
292 PSIXM [SIXBIT\ARG'_\]>
293
294 DEFINE PMSGF (ARG),<
295 PSIXMF [SIXBIT\ARG'_\]>
296
297 ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
298 ;* CONSERVES CORE OVER ASCIZ
299
300 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]>
301
302 ;*CONSOLE SWITCH INPUT UUO.
303 ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
304 ;* USER MODE.
305
306 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES
307
308 ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
309 ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
310
311 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - PDP-11 CLOCK
312 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - DK20 METER
313
314 ;*KL10 ONLY CACHE OPERATION UUO'S
315
316 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE
317 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH
318 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 5
PARAM KLM 18-JAN-77 11:38 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, JAN 18,1977 SEQ 0023
319 ;*END OF PASS/PROGRAM UUOS
320
321 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
322 ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
323
324 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS
325 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO
326
327 ;*MEMORY MANAGEMENT UUO'S
328 ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
329 ;*ADDRESS CONVERSION, ETC...
330
331 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY
332 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY
333 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT
334 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT
335 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK
336 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP
337 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP
338
339 ;*DEVICE CODE MODIFICATION UUO
340 ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
341 ;*IOT'S TO A DIFFERENT DEVICE CODE.
342
343 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER
344 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM
345
346 030000 IFNDEF MODDVL,<MODDVL==BEGIN>
347 030000 IFNDEF MODDVU,<MODDVU==BEGIN>
348
349 ;*"DIAMON" FILE SELECTION AND READ UUOS
350
351 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION
352 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA
353 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA
354 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA
355
356 ;*KI10 ONLY UUO FOR PRINTING MARGIN VALUES
357
358 037700 000002 OPDEF PNTMGN [37B8!16B12!2] ;PRINT MARGIN VALUE
359
360 XLIST
361 LIST
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 1
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0024
362 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977
363
364 030000 LOC 30000
365
366 S^;*********************************************************************^
367 ;*PROGRAM STARTING ADDRESSES
368 ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
369 ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
370 ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
371 ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
372 S^;*********************************************************************^
373
374 030000 254 00 1 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START
375 030001 254 00 0 00 030605 $START: JRST START ;MODE CHECK STARTING ADDRESS
376
377 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START
378
379 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START
380
381 030004 254 00 0 00 030600 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START
382
383 030005 254 00 0 00 030076 PFSTRT: JRST SADR2 ;POWER FAIL RESTART
384
385 030006 254 00 0 00 030752 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY)
386
387 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT"
388 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START
389
390 030010 254 00 0 00 030630 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE)
391 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE
392 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE
393
394 030013 254200 030000 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS
395 030014 254200 030000 START2: SADR8 ; "
396 030015 254200 030000 START3: SADR9 ; "
397 030016 254200 030000 START4: SADR10 ; "
398 030017 254200 030000 START5: SADR11 ; "
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 2
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0025
399 S^;*********************************************************************^
400 ;*PROGRAM FIXED PARAMETER AREA
401 S^;*********************************************************************^
402
403 030020 444153 444100 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME
404 030021 645560 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION
405 030022 123457 654321 RANDBS: PAREA1 ;RANDOM BASE NUMBER
406 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES
407 030024 000000 000002 ITRCNT: ITERAT ;PROGRAM ITERATIONS
408 030025 000000 030736 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME
409 030026 000000 000002 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL
410 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT
411 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT
412 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED
413 030032 777777 777777 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED
414 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE
415 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS
416 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER
417 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER
418
419 S^;*********************************************************************^
420 ;*PROGRAM VARIABLE PARAMETER AREA
421 S^;*********************************************************************^
422
423 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG
424 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10
425 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
426 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG
427 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG
428 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10
429 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG
430 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS
431 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT
432 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG
433 030051 000000 000000 TESTPC: 0 ;SUBTEST PC
434 030052 000000 000000 ERRPC: 0 ;ERROR PC
435 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS
436 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME
437 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE
438 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 3
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0026
439 S^;*********************************************************************^
440 ;*SPECIAL PROGRAM DISPATCH ADDRESSES
441 S^;*********************************************************************^
442
443 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS
444 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM
445 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN
446 030062 000000 030000 CNTLC: SADR5 ;CONTROL C XFER ADDRESS
447 030063 000000 030007 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS
448 030064 CPOPJ1: ;SKIP RETURN
449 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO
450 030065 CPOPJ: ;NON-SKIP REGULAR RETURN
451 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN
452 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE
453 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE
454 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX)
455 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE
456 030072 255 00 0 00 000000 $ITRX1: JFCL ; "
457 030073 255 00 0 00 000000 $USRHL: JFCL ; "
458 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE
459 030075 255 00 0 00 000000 $RSRTY: JFCL ; "
460 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX)
461 030077 255 00 0 00 000000 RESRT2: JFCL ; "
462 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE
463 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE
464 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT
465
466 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR)
467 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT
468 030105 000000 000000 0 ;INITED AS (JRST $ITRC1)
469
470 S^;*********************************************************************^
471 ;*PROCESSOR CONTROL STORAGE
472 S^;*********************************************************************^
473
474 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0
475 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI
476 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR
477 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI)
478 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI)
479
480 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO
481 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO
482
483 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS
484 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG
485 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG
486 030120 000000 000000 %COREC: 0 ; " CORRECT DATA
487 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG
488 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA
489 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 4
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0027
490 S^;*********************************************************************^
491 ;*UUO DISPATCH TABLE
492 S^;*********************************************************************^
493 XLIST
494 LIST
495 030124 030070 030070 UUODIS: LUUO1,,$UUOER
496 030125 030070 030070 LUUO3,,LUUO2
497 030126 030070 030070 LUUO5,,LUUO4
498 030127 030070 030070 LUUO7,,LUUO6
499 030130 030070 030070 LUUO11,,LUUO10
500 030131 030070 030070 LUUO13,,LUUO12
501 030132 031433 030070 LUUO15,,LUUO14
502 030133 030070 030070 LUUO17,,LUUO16
503 030134 030070 031421 LUUO21,,LUUO20
504 030135 030070 030070 LUUO23,,LUUO22
505 030136 030070 030070 LUUO25,,LUUO24
506 030137 030070 030070 LUUO27,,LUUO26
507 030140 030070 030070 LUUO31,,LUUO30
508 030141 030070 030070 LUUO33,,LUUO32
509
510 S^;*********************************************************************^
511 ;*MEMORY MANAGMENT STORAGE
512 S^;*********************************************************************^
513
514 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
515 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
516 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.)
517 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY
518 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE
519
520 S^;*********************************************************************^
521 ;*PRINT CONTROL STORAGE
522 S^;*********************************************************************^
523
524 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
525 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE
526 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG
527 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS
528 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL
529 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME
530 030225 000000 000000 $TWCNT: 0 ;TIME WAITED
531 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG
532 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG
533 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE
534 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR
535 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR
536 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER
537 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG
538 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG
539 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG
540 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG
541 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS
542 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 5
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0028
543 S^;*********************************************************************^
544 ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
545 ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
546 ;* MOVEI NAME
547 ;* PNTA ;OR PNTAF
548 S^;*********************************************************************^
549
550 030242 CRLF: ASCII/
551 030242 015 012 000 000 000 /
552 030243 CRLF2: ASCII/
553
554 030243 015 012 015 012 000 /
555 030244 054 000 000 000 000 COMMA: ASCII/,/
556 030245 056 000 000 000 000 PERIOD: ASCII/./
557 030246 040 000 000 000 000 SPACE: ASCII/ /
558 030247 011 000 000 000 000 TAB: ASCII/ /
559 030250 MINUS:
560 030250 055 000 000 000 000 HYPEN: ASCII/-/
561 030251 053 000 000 000 000 PLUS: ASCII/+/
562 030252 052 000 000 000 000 AST: ASCII/*/
563 030253 100 000 000 000 000 ATSIN: ASCII/@/
564 030254 050 000 000 000 000 LFP: ASCII/(/
565 030255 051 000 000 000 000 RTP: ASCII/)/
566 030256 007 0000000000 BELL: BYTE (7) 007
567 030257 077 000 000 000 000 QUEST: ASCII/?/
568 030260 057 000 000 000 000 SLASH: ASCII!/!
569 030261 044 000 000 000 000 DOLLAR: ASCII/$/
570 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX
571 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR
572 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT
573
574 S^;*********************************************************************^
575 ;*USER MODE OUTPUT FILE INFORMATION
576 S^;*********************************************************************^
577
578 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER
579 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME
580 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION
581 030272 BLOCK 2
582
583 S^;*********************************************************************^
584 ;*DISK UPDATE MODE FILE INFORMATION
585 S^;*********************************************************************^
586
587 030274 $IBUF: BLOCK 3
588 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/
589 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/
590 030301 BLOCK 2
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 6
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0029
591 S^;*********************************************************************^
592 ;*PUSHDOWN LIST CONTROL INFORMATION
593 S^;*********************************************************************^
594
595 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST
596 030304 PLISTS: BLOCK 200
597 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST
598
599 S^;*********************************************************************^
600 ;*POWER LINE CLOCK FREQUENCY FLAG
601 S^;*********************************************************************^
602
603 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE
604
605 S^;*********************************************************************^
606 ;*KL10 CACHE CONTROL FLAGS
607 S^;*********************************************************************^
608
609 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0
610 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0
611
612 S^;*********************************************************************^
613 ;*NUMBER INPUT DIGIT FLAG
614 S^;*********************************************************************^
615
616 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED
617
618 S^;*********************************************************************^
619 ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
620 S^;*********************************************************************^
621
622 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
623
624 S^;*********************************************************************^
625 ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
626 S^;*********************************************************************^
627
628 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO
629 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO
630 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
631
632 S^;*********************************************************************^
633 ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION
634 S^;*********************************************************************^
635
636 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 7
FIXED KLM 18-JAN-77 11:39 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JAN 18,1977 SEQ 0030
637 S^;*********************************************************************^
638 ;*KL10 PROCESSOR TYPE FLAG, 0=P0, 1=BBD NEW, 2=BBD OLD
639 S^;*********************************************************************^
640
641 030516 000000 000000 KLTYP: 0
642
643 S^;*********************************************************************^
644 ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION
645 S^;*********************************************************************^
646
647 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER
648
649 S^;*********************************************************************^
650 ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
651 S^;*********************************************************************^
652
653 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
654
655 S^;*********************************************************************^
656 ;*"SWITCH" CALL USAGE CONTROL
657 S^;*********************************************************************^
658
659 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
660
661 S^;*********************************************************************^
662 ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
663 S^;*********************************************************************^
664
665 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
666 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
667
668 S^;*********************************************************************^
669 ;*SPECIAL FUTURE EXPANSION ROOM
670 ;*IF ANY FIXED AREA TAGS ARE ADDED, REDUCE THE SIZE OF
671 ;*THIS BLOCK STATEMENT ACCORDINGLY. THIS MUST BE DONE
672 ;*SO THAT PREVIOUS FIXED ASSIGNMENTS DO NOT CHANGE.
673 S^;*********************************************************************^
674
675 030524 BLOCK 53 ;HOPEFULLY THIS IS ENOUGH FOREVER
676
677 S^;*********************************************************************^
678 ;*END OF FIXED STORAGE
679 S^;*********************************************************************^
680
681 030577 $ENDFX=<PLISTE+100>&<777700>-1
682 030577 LOC $ENDFX
683 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 1
DAKDAM MAC 26-JAN-77 08:54 ARITHMETIC RELIABILITY DIAGNOSTIC SEQ 0031
684 SUBTTL ARITHMETIC RELIABILITY DIAGNOSTIC
685
686 ;INITIALIZING AND CONTROL SEQUENCE
687
688 030600 402 00 0 00 030053 SFSRT1: SETZM ERRTLS
689 030601 402 00 0 00 030047 SETZM PASCNT
690 030602 402 00 0 00 030054 SETZM TICKS
691 030603 402 00 0 00 041263 SETZM TSTIMR#
692 030604 254 00 0 00 030000 JRST BEGIN
693
694 030605 265 00 0 00 030011 START: PGMINT ;INITIALIZE SUBROUTINES
695 030606 402 00 0 00 041250 SETZM PNTSIM#
696 030607 402 00 0 00 041235 SETZM LINCNT#
697 030610 201 00 0 00 077777 MOVEI <^D32*^D1024>-1
698 030611 202 00 0 00 041265 MOVEM VMEM#
699 030612 200 00 0 00 040440 MOVE [JSR PNTTOT]
700 030613 202 00 0 00 037613 MOVEM HNGERR ;SETUP HUNG FOR TOTALS
701 030614 336 00 0 00 030037 SKIPN USER ;IF USER, USE TIME OF DAY IN JIFFIES
702 030615 254 00 0 00 030620 JRST .+3
703 030616 040 01 0 00 040441 CALL 1,[SIXBIT/TIMER/]
704 030617 202 01 0 00 030022 MOVEM 1,RANDBS
705 030620 037 10 0 00 000002 SWITCH
706 030621 606 00 0 00 200000 TRNN RANBAS ;SPECIFY RANDOM NUMBER BASE ?
707 030622 254 00 0 00 030630 JRST STARTA ;NO
708 MOVEI [ASCIZ/
709 030623 201 00 0 00 040442 SPECIFY BASE RANDOM NUMBER - /]
710 030624 037 17 0 00 000001 PNTALF
711 030625 037 03 0 00 000003 TTIOCT
712 030626 254 00 0 00 030623 JRST .-3
713 030627 202 00 0 00 030022 MOVEM 0,RANDBS ;INIT RANDOM NUMBER GENERATOR
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 2
DAKDAM MAC 26-JAN-77 08:54 ARITHMETIC RELIABILITY DIAGNOSTIC SEQ 0032
714 030630 037 10 0 00 000002 STARTA: SWITCH
715 030631 602 00 0 00 400000 TRNE ENTDDT ;ENTER DDT SWITCH SET ?
716 030632 254 00 0 00 030007 JRST DDTSRT ;YES
717 030633 200 05 0 00 030022 MOVE RA,RANDBS
718 030634 332 00 0 00 030037 SKIPE USER ;USER MODE ?
719 030635 254 00 0 00 030664 JRST STARTD ;YES
720 030636 602 00 0 00 000200 TRNE INHCLK ;EXEC, INHIBIT CLOCK INTERRUPTS ?
721 030637 254 00 0 00 030661 JRST STARTC ;YES
722 030640 200 01 0 00 040451 MOVE 1,[JRST ITRCLK] ;SETUP INTERRUPT ROUTINE FOR CLOCK
723 030641 202 01 0 00 030071 MOVEM 1,$ITRHL
724 030642 201 00 0 00 000074 MOVEI ^D60
725 030643 332 00 0 00 030505 SKIPE CYCL60
726 030644 201 00 0 00 000062 MOVEI ^D50
727 030645 202 00 0 00 041232 MOVEM HERTZ# ;50 OR 60 CYCLE
728 030646 200 00 0 00 040452 MOVE [JSR ITRCH1] ;SETUP ALL CHANNELS
729 030647 202 00 0 00 000042 MOVEM 42
730 030650 202 00 0 00 000044 MOVEM 44
731 030651 202 00 0 00 000046 MOVEM 46
732 030652 202 00 0 00 000050 MOVEM 50
733 030653 202 00 0 00 000052 MOVEM 52
734 030654 202 00 0 00 000054 MOVEM 54
735 030655 202 00 0 00 000056 MOVEM 56
736 030656 7 000 20 0 00 003001 CONO APR,CLKENB!CLKCLR!AAPRC1
737 030657 7 004 20 0 00 042377 CONO PI,PARENB!CHNON!PION!PICHNA
738 030660 254 00 0 00 030664 JRST STARTD
739
740 030661 7 004 20 0 00 011400 STARTC: CONO PI,PICLR!CHNOFF!PIOFF
741 030662 7 000 20 0 00 000001 CONO APR,AAPRC1
742 030663 7 004 20 0 00 042300 CONO PI,PARENB!CHNON!PION!PICHN1
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 3
DAKDAM MAC 26-JAN-77 08:54 ARITHMETIC RELIABILITY DIAGNOSTIC SEQ 0033
743 030664 476 00 0 00 041225 STARTD: SETOM FIXF# ;SET TEST CONTROL FLAGS TO RUN ALL
744 030665 476 00 0 00 041226 SETOM FLTF#
745 030666 476 00 0 00 041215 SETOM BYTF#
746 030667 476 00 0 00 041222 SETOM FASTF#
747 030670 476 00 0 00 041256 SETOM SLOWF#
748 030671 201 12 0 00 040000 MOVEI ACSP,JA ;SETUP SIMULATED AC POINTER
749 030672 201 01 0 00 000006 MOVEI 1,6
750 030673 202 01 0 00 041252 MOVEM 1,RTIME#
751
752 030674 037 10 0 00 000002 SWITCH ;SETUP TEST CONTROL FLAGS
753 030675 602 00 0 00 000010 TRNE INHFXD
754 030676 402 00 0 00 041225 SETZM FIXF ;FIXED POINT INHIBITED
755
756 030677 602 00 0 00 000040 TRNE INHFP
757 030700 402 00 0 00 041226 SETZM FLTF ;FLOATING POINT INHIBITED
758 030701 602 00 0 00 000020 TRNE INHBYT
759 030702 402 00 0 00 041215 SETZM BYTF ;BYTE'S INHIBITED
760 030703 602 00 0 00 000002 TRNE SLOW
761 030704 402 00 0 00 041222 SETZM FASTF ;SIMULATION COMPARISON ONLY
762 030705 602 00 0 00 000001 TRNE FAST
763 030706 402 00 0 00 041256 SETZM SLOWF ;INSTRUCTION RESULT COMPARE ONLY
764 030707 607 00 0 00 000400 TLNN RELIAB ;RELIABILITY MODE ?
765 030710 402 00 0 00 041252 SETZM RTIME ;NO, FAST CYCLE OPERATION
766 030711 450 00 0 00 000000 SETCA
767 030712 602 00 0 00 000070 TRNE INHFXD!INHFP!INHBYT
768 030713 254 00 0 00 030717 JRST .+4
769 MOVEI [ASCIZ/
770 OPERATOR INHIBIT OF ALL TESTS
771 030714 201 00 0 00 040453 /]
772 030715 037 17 0 00 000001 PNTALF
773 030716 037 14 0 00 000004 ERRHLT
774
775 030717 602 00 0 00 000003 TRNE SLOW!FAST
776 030720 254 00 0 00 030756 JRST BEGFX ;START TESTING
777 MOVEI [ASCIZ/
778 OPERATOR INHIBIT OF BOTH FAST AND SLOW
779 030721 201 00 0 00 040462 /]
780 030722 037 17 0 00 000001 PNTALF
781 030723 037 14 0 00 000004 ERRHLT
782
783 030724 204 10 0 00 030022 TSTEND: MOVS 10,RANDBS ;GENERATE NEW BASE RANDOM NUMBER
784 030725 225 10 0 00 006065 MULI 10,6065
785 030726 234 10 0 00 040473 DIV 10,[377777,,777741]
786 030727 336 00 0 00 000011 SKIPN 11 ;IF 0, MAKE RANDOM BASE = 1
787 030730 201 11 0 00 000001 MOVEI 11,1
788 030731 202 11 0 00 030022 MOVEM 11,RANDBS
789 030732 037 10 0 00 000002 SWITCH
790 030733 603 00 0 00 300000 TLNE RSTART!TOTALS
791 030734 264 00 0 00 031774 JSR PNTTOT ;TOTALS SW SET
792 030735 254 00 0 00 030057 JRST BEGEND
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 4
DAKDAM MAC 26-JAN-77 08:54 ARITHMETIC RELIABILITY DIAGNOSTIC SEQ 0034
793 030736 PGMNAM: ASCIZ/
794 030736 015 012 120 104 120 PDP-10 KA10 ARITHMETIC RELIABILITY DIAGNOSTIC [DAKDA]
795 030737 055 061 060 040 113
796 030740 101 061 060 040 101
797 030741 122 111 124 110 115
798 030742 105 124 111 103 040
799 030743 122 105 114 111 101
800 030744 102 111 114 111 124
801 030745 131 040 104 111 101
802 030746 107 116 117 123 124
803 030747 111 103 040 133 104
804 030750 101 113 104 101 135
805 030751 015 012 000 000 000 /
806
807 ;CLOSE LOGICAL OUTPUT FILE, USER MODE
808
809 030752 264 00 0 00 031774 RENTR1: JSR PNTTOT ;PRINT TOTALS
810 030753 037 05 0 00 000002 DROPDV
811 030754 040 00 0 00 040474 CALL [SIXBIT/EXIT/]
812
813
814 030755 254 00 0 00 030007 DDTEX: JRST DDTSRT
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 5
DAKDAM MAC 26-JAN-77 08:54 ARITHMETIC RELIABILITY DIAGNOSTIC SEQ 0035
815 ;TESTING SEQUENCE
816 ;FIXED POINT ARITHMETIC OPERATIONS
817
818
819 030756 402 00 0 00 000013 BEGFX: SETZM CNTL
820 030757 336 00 0 00 041225 SKIPN FIXF
821 030760 254 00 0 00 031003 JRST BEGFP ;DON'T TEST FIXED
822 030761 336 00 0 00 041222 SKIPN FASTF
823 030762 254 00 0 00 030772 JRST FXS ;FIXED POINT, SLOW ONLY
824
825 ;FIXED POINT FAST
826 ;COMPARE RESULTS OF MUL,DIV,ADD REMAINDER WITH ORIGINAL
827
828 030763 201 16 0 00 000240 FXF: MOVEI LOP,^D160
829 030764 240 16 1 00 041252 ASH LOP,@RTIME ;SETUP RUNNING TIME
830 030765 264 00 0 00 031043 JSR FSTMDI
831 030766 300 00 0 14 031626 CAI FIXEDI+4(CNTR) ;FIXED POINT INTERGERS
832 030767 264 00 0 00 031072 JSR FSTMD
833 030770 300 00 0 14 031634 CAI FIXED+2(CNTR) ;FIXED POINT
834 030771 367 16 0 00 030765 SOJG LOP,FXF+2
835
836 ;FIXED POINT SLOW
837 ;COMPARE MACHINE RESULTS AGAINST SIMULATION
838
839 030772 336 00 0 00 041256 FXS: SKIPN SLOWF
840 030773 254 00 0 00 031003 JRST BEGFP ;DON'T RUN
841 030774 201 16 0 00 000004 MOVEI LOP,4
842 030775 240 16 1 00 041252 ASH LOP,@RTIME ;SETUP RUNNING TIME
843 030776 264 00 0 00 031241 JSR MD
844 030777 300 00 0 14 031632 CAI FIXEDI+10(CNTR) ;FIXED POINT INTERGERS
845 031000 264 00 0 00 031241 JSR MD
846 031001 300 00 0 14 031642 CAI FIXED+10(CNTR) ;FIXED POINT
847 031002 367 16 0 00 030776 SOJG LOP,FXS+4
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 6
DAKDAM MAC 26-JAN-77 08:54 ARITHMETIC RELIABILITY DIAGNOSTIC SEQ 0036
848 ;TESTING SEQUENCE
849 ;FLOATING POINT ARITHMETIC OPERATIONS
850
851 031003 336 00 0 00 041226 BEGFP: SKIPN FLTF
852 031004 254 00 0 00 031033 JRST BEGBYT ;DON'T TEST FLOATING
853 031005 336 00 0 00 041222 SKIPN FASTF
854 031006 254 00 0 00 031014 JRST FPS ;FLOATING POINT, SLOW ONLY
855
856 ;FLOATING POINT FAST
857 ;COMPARE RESULTS OF DIV THEN MUL
858
859 031007 201 16 0 00 000240 FPF: MOVEI LOP,^D160
860 031010 240 16 1 00 041252 ASH LOP,@RTIME ;SETUP RUNNING TIME
861 031011 264 00 0 00 031134 JSR FSTFP ;FLOATING POINT
862 031012 300 00 0 14 031666 CAI FPMD+4(CNTR)
863 031013 367 16 0 00 031011 SOJG LOP,.-2
864
865 ;FLOATING POINT SLOW
866 ;COMPARE MACHINE RESULTS AGAINST SIMULATION
867
868 031014 336 00 0 00 041256 FPS: SKIPN SLOWF
869 031015 254 00 0 00 031033 JRST BEGBYT
870 031016 201 16 0 00 000004 MOVEI LOP,4
871 031017 240 16 1 00 041252 ASH LOP,@RTIME ;SETUP RUNNING TIME
872 031020 264 00 0 00 031241 JSR MD ;FLOATING POINT ADD/SUB
873 031021 300 00 0 14 031652 CAI FPAS+10(CNTR)
874 031022 264 00 0 00 031241 JSR MD ;FLOATING POINT SUB/MUL
875 031023 300 00 0 14 031662 CAI FPSM+10(CNTR)
876 031024 264 00 0 00 031241 JSR MD ;FLOATING POINT MUL/DIV
877 031025 300 00 0 14 031672 CAI FPMD+10(CNTR)
878 031026 264 00 0 00 031241 JSR MD ;DFN/UFA AND RI MODE
879 031027 300 00 0 14 031702 CAI MISCFP+10(CNTR)
880 031030 264 00 0 00 031241 JSR MD ;THE L MODE
881 031031 300 00 0 14 031712 CAI FPL+10(CNTR)
882 031032 367 16 0 00 031020 SOJG LOP,FPS+4
883
884
885 ;TESTING SEQUENCE
886 ;BYTE INSTRUCTION, COMPARE WITH SIMULATION
887
888 031033 336 00 0 00 041215 BEGBYT: SKIPN BYTF
889 031034 254 00 0 00 030724 JRST TSTEND ;DON'T TEST BYTE
890 031035 201 16 0 00 000036 MOVEI LOP,^D30
891 031036 240 16 1 00 041252 ASH LOP,@RTIME ;SETUP RUNNING TIME
892 031037 264 00 0 00 031200 JSR BYTE ;SIM AND CHECK BYTES
893 031040 300 00 0 14 031717 CAI BYTES+5(CNTR)
894 031041 367 16 0 00 031037 SOJG LOP,.-2
895
896 031042 254 00 0 00 030724 JRST TSTEND
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 7
DAKDAM MAC 26-JAN-77 08:54 ARITHMETIC RELIABILITY DIAGNOSTIC SEQ 0037
897 ;TEST OF IMUL AND IDIV
898 ;DIVIDE THEN MULTIPLY AND ADD REMAINDER
899
900 031043 000000 000000 FSTMDI: 0
901 031044 200 15 1 00 031043 MOVE IT,@.-1 ;POINT TO INST
902 031045 561 14 0 00 777774 HRROI CNTR,-4
903 031046 264 00 0 00 031506 FSMDI1: JSR RANNOV ;RANDOM, OV NOT POSSIBLE
904 031047 402 00 0 00 000013 SETZM CNTL
905 031050 264 00 0 00 031223 JSR DOINS ;XCT INST, RECORD FLAGS
906 031051 202 01 0 00 031737 MOVEM AC,DIVAC
907 031052 202 02 0 00 031740 MOVEM AC+1,DIVAC+1
908 031053 202 03 0 00 031741 MOVEM AC+2,DIVAC+2
909 031054 202 04 0 00 031742 MOVEM AC+3,DIVAC+3
910 031055 345 14 0 00 031563 AOJGE CNTR,GG ;IF JUMP PROG LOST
911 031056 255 10 0 00 031067 JFCL 10,FSMDI2 ;OV SET, DIVIDE ERROR
912 031057 256 00 1 00 000015 XCT @IT ;MULTIPLY
913 031060 202 01 0 00 031743 MOVEM AC,MULAC
914 031061 202 02 0 00 031744 MOVEM AC+1,MULAC+1
915 031062 202 03 0 00 031745 MOVEM AC+2,MULAC+2
916 031063 202 04 0 00 031746 MOVEM AC+3,MULAC+3
917 031064 255 10 0 00 031067 JFCL 10,FSMDI2 ;MUL OR DIV ERROR
918 031065 270 01 0 00 031740 ADD AC,DIVAC+1
919 031066 312 01 0 00 000005 CAME AC,RA ;LOOK FOR ORIG
920 031067 264 00 0 00 031350 FSMDI2: JSR FSTER ;ERROR
921 031070 341 14 0 00 031046 AOJL CNTR,FSMDI1 ;NEXT PAIR
922 031071 254 00 1 00 031043 JRST @FSTMDI ;EXIT
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 8
DAKDAM MAC 26-JAN-77 08:54 ARITHMETIC RELIABILITY DIAGNOSTIC SEQ 0038
923 ;TEST OF MUL AND DIV
924 ;DIVIDE THEN MULTIPLY AND ADD REMAINDER
925
926 031072 000000 000000 FSTMD: 0
927 031073 200 15 1 00 031072 MOVE IT,@.-1 ;POINT TO INST
928 031074 561 14 0 00 777776 HRROI CNTR,-2
929 031075 264 00 0 00 031506 FSTMD1: JSR RANNOV ;RANDOM, OV NOT POSSIBLE
930 031076 402 00 0 00 000013 SETZM CNTL
931 031077 264 00 0 00 031223 JSR DOINS ;XCT INST, RECORD FLAGS
932 031100 202 01 0 00 031737 MOVEM AC,DIVAC
933 031101 202 02 0 00 031740 MOVEM AC+1,DIVAC+1
934 031102 202 03 0 00 031741 MOVEM AC+2,DIVAC+2
935 031103 202 04 0 00 031742 MOVEM AC+3,DIVAC+3
936 031104 345 14 0 00 031563 AOJGE CNTR,GG ;IF JUMP PROG LOST
937 031105 255 10 0 00 031125 JFCL 10,FSTMD2 ;OV SET, DIVIDE ERROR
938 031106 254 02 1 00 040475 JRST 2,@[XWD 0,.+1] ;CLEAR FLAGS
939 031107 256 00 1 00 000015 XCT @IT ;MULTIPLY
940 031110 202 01 0 00 031743 MOVEM AC,MULAC
941 031111 202 02 0 00 031744 MOVEM AC+1,MULAC+1
942 031112 202 03 0 00 031745 MOVEM AC+2,MULAC+2
943 031113 202 04 0 00 031746 MOVEM AC+3,MULAC+3
944 031114 265 00 0 00 031115 JSP .+1
945 031115 202 00 0 00 041255 MOVEM SECFLG#
946 031116 255 10 0 00 031125 JFCL 10,FSTMD2 ;MUL OR DIV ERROR
947 031117 255 17 0 00 031120 JFCL 17,.+1
948 031120 270 02 0 00 031740 ADD AC+1,DIVAC+1
949 031121 255 02 0 00 031130 JFCL 2,CRYFIX ;THE CRY 1 FLAG
950 031122 255 04 0 00 031132 JFCL 4,CRY0FX
951 031123 316 01 0 00 000005 CAMN AC,RA
952 031124 312 02 0 00 000006 CAME AC+1,RA+1
953 031125 264 00 0 00 031350 FSTMD2: JSR FSTER ;MUL OR DIV ERROR
954 031126 341 14 0 00 031075 AOJL CNTR,FSTMD1 ;NEXT PAIR
955 031127 254 00 1 00 031072 JRST @FSTMD ;EXIT
956
957 031130 641 02 0 00 400000 CRYFIX: TLC AC+1,400000
958 031131 344 01 0 00 031122 AOJA AC,FSTMD2-3
959
960 031132 641 02 0 00 400000 CRY0FX: TLC AC+1,400000
961 031133 364 01 0 00 031123 SOJA AC,FSTMD2-2
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 9
DAKDAM MAC 26-JAN-77 08:54 ARITHMETIC RELIABILITY DIAGNOSTIC SEQ 0039
962 ;TEST OF FLOATING POINT
963 ;FP DIV THEN FP MUL
964
965 031134 000000 000000 FSTFP: 0
966 031135 200 15 1 00 031134 MOVE IT,@.-1 ;POINT TO A FP INSTRUCTION
967 031136 561 14 0 00 777774 HRROI CNTR,-4 ;4 ITEMS
968 031137 264 00 0 00 031530 FSTFP1: JSR RANORM ;NORMALIZED RANDOM NUMBERS
969 031140 264 00 0 00 031223 JSR DOINS ;XCT INST, RECORD FLAGS
970 031141 202 11 0 00 041227 MOVEM FLAGS,FSTFLG#
971 031142 202 01 0 00 031737 MOVEM AC,DIVAC
972 031143 202 02 0 00 031740 MOVEM AC+1,DIVAC+1
973 031144 202 03 0 00 031741 MOVEM AC+2,DIVAC+2
974 031145 202 04 0 00 031742 MOVEM AC+3,DIVAC+3
975 031146 345 14 0 00 031563 AOJGE CNTR,GG ;IF JUMP PROG LOST
976 031147 264 00 0 00 031223 JSR DOINS ;DO A FMP
977 031150 202 01 0 00 031743 MOVEM AC,MULAC
978 031151 202 02 0 00 031744 MOVEM AC+1,MULAC+1
979 031152 202 03 0 00 031745 MOVEM AC+2,MULAC+2
980 031153 202 04 0 00 031746 MOVEM AC+3,MULAC+3
981 031154 312 01 0 00 000005 CAME AC,RA
982 031155 254 00 0 00 031160 JRST FSTFP3 ;POSSIBLE ERROR
983 031156 341 14 0 00 031137 FSTFP2: AOJL CNTR,FSTFP1 ;NEXT PAIR
984 031157 254 00 1 00 031134 JRST @FSTFP ;EXIT
985
986 031160 202 11 0 00 041255 FSTFP3: MOVEM FLAGS,SECFLG ;SAVE SECOND FLAGS
987 031161 200 11 0 00 041227 MOVE FLAGS,FSTFLG
988 031162 200 00 0 00 000001 MOVE AC ;RESULT NOT EQUAL TO ORIGINAL
989 031163 275 00 0 00 000001 SUBI 1 ;IF LARGER OR SMALLER
990 031164 316 00 0 00 000005 CAMN RA ;COMPARE IT
991 031165 254 00 0 00 031156 JRST FSTFP2 ;OK
992 031166 275 00 0 00 000001 SUBI 1
993 031167 316 00 0 00 000005 CAMN RA
994 031170 254 00 0 00 031156 JRST FSTFP2 ;OK
995 031171 271 00 0 00 000003 ADDI 3
996 031172 316 00 0 00 000005 CAMN RA
997 031173 254 00 0 00 031156 JRST FSTFP2 ;OK
998 031174 271 00 0 00 000001 ADDI 1
999 031175 312 00 0 00 000005 CAME RA
1000 031176 264 00 0 00 031350 FSTFP4: JSR FSTER ;ERROR, FIND WHAT FAILED
1001 031177 254 00 0 00 031156 JRST FSTFP2 ;OK
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 10
DAKDAM MAC 26-JAN-77 08:54 ARITHMETIC RELIABILITY DIAGNOSTIC SEQ 0040
1002 ;TEST OF BYTE INSTRUCTIONS
1003 ;COMPARE MACHINE RESULTS WITH SIMULATION
1004
1005 031200 000000 000000 BYTE: 0
1006 031201 200 15 1 00 031200 MOVE IT,@.-1
1007 031202 561 14 0 00 777773 HRROI CNTR,-5 ;5 ITEMS
1008 031203 264 00 0 00 031464 BYTE1: JSR RANDOM ;GENERATE RANDOM NUMBERS
1009 031204 205 13 0 00 200000 MOVSI CNTL,BYT ;FLAG FOR PRINTER
1010 031205 242 07 0 00 777742 LSH RA+2,-^D30 ;MAKE A BYTE
1011 031206 242 03 0 00 777750 LSH AC+2,-^D24 ;POINTER
1012 031207 405 03 0 00 000077 ANDI AC+2,77 ;IF THE POINTER (RIGHT HALF)
1013 031210 606 14 0 00 000002 TRNN CNTR,2
1014 031211 317 03 0 00 000007 CAMG AC+2,RA+2 ;WILL BE INCREMENTED
1015 031212 660 03 0 00 010000 TRO AC+2,10000 ;POINT TO AC
1016 031213 660 07 0 00 000100 TRO RA+2,100 ;IF NO INCREMENT
1017 031214 241 07 0 00 000036 ROT RA+2,^D30 ;POINT TO AC+1
1018 031215 241 03 0 00 000030 ROT AC+2,^D24
1019 031216 273 03 0 00 000007 ADDB AC+2,RA+2 ;THE POINTER IN RA+2, AC+2
1020
1021 031217 264 00 0 00 031252 JSR SIMIT ;SIMULATE
1022 031220 264 00 0 00 031300 JSR DOIT ;XCT
1023 031221 341 14 0 00 031203 AOJL CNTR,BYTE1 ;ITERATE
1024 031222 254 00 1 00 031200 JRST @BYTE ;EXIT
1025
1026
1027 ;PERFORM THE MACHINE INSTRUCTION
1028
1029 031223 000000 000000 DOINS: 0
1030 031224 254 02 1 00 040476 JRST 2,@[XWD 0,.+1] ;CLEAR FLAGS
1031 031225 256 00 1 00 000015 XCT @IT
1032 031226 265 00 0 00 031227 JSP .+1 ;SAVE FLAGS
1033 031227 502 00 0 00 000011 HLLM FLAGS ;IN FLAG REGISTR
1034 031230 254 00 1 00 031223 JRST @DOINS
1035
1036 ;HALT AND SAVE AC'S
1037
1038 031231 000000 000000 GOING: 0
1039 031232 7 000 24 0 00 030110 CONI APR,$SVAPR
1040 031233 7 004 24 0 00 030107 CONI PI,$SVPI
1041 031234 7 004 20 0 00 000400 CONO PI,PIOFF
1042 031235 202 00 0 00 030106 MOVEM 0,$ACC0
1043 031236 200 00 0 00 031231 MOVE 0,GOING
1044 031237 202 00 0 00 030104 MOVEM 0,ITRCH1
1045 031240 254 04 0 00 030000 HALT BEGIN
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 11
DAKDAM MAC 26-JAN-77 08:54 ARITHMETIC RELIABILITY DIAGNOSTIC SEQ 0041
1046 ;TEST INSTRUCTION BY COMPARING MACHINE RESULTS
1047 ;WITH SIMULATION RESULTS
1048
1049 031241 000000 000000 MD: 0
1050 031242 200 15 1 00 031241 MOVE IT,@.-1
1051 031243 561 14 0 00 777770 HRROI CNTR,-10 ;GROUPS OF 8
1052 031244 264 00 0 00 031464 MD1: JSR RANDOM ;GENERATE RANDOM NUMBERS
1053 031245 513 00 0 00 000013 HLLZS CNTL ;CLEAR CONTROL SWITCHES
1054 031246 264 00 0 00 031252 JSR SIMIT ;SIMULATE INSTRUCTION
1055 031247 264 00 0 00 031300 JSR DOIT ;XCT INSTRUCTION
1056 031250 341 14 0 00 031244 AOJL CNTR,MD1 ;ITERATE
1057 031251 254 00 1 00 031241 JRST @MD ;EXIT
1058
1059 ;SIMULATE THE INSTRUCTION
1060
1061 031252 000000 000000 SIMIT: 0
1062 SAVEM RA,1^
1063 031253 202 05 0 12 000001 MOVEM RA,1(ACSP) ;MOVE TO MEMORY
1064 031254 202 06 0 12 000002 MOVEM RA+1,1+1(ACSP)
1065 031255 202 07 0 12 000003 MOVEM RA+2,1+2(ACSP)
1066 031256 202 10 0 12 000004 MOVEM RA+3,1+3(ACSP)
1067 031257 020 00 1 00 000015 SINST @IT ;SIMULATE, RESULTS IN ACS
1068 031260 254 00 1 00 031252 JRST @SIMIT
1069
1070 ;COMPARE MACHINE RESULTS AGAINST SIMULATOR
1071
1072 031261 000000 000000 CHECK: 0
1073 031262 544 11 0 00 041240 HLR FLAGS,PCSAV#
1074 031263 621 11 0 00 010000 TLZ FLAGS,USERF ;CLEAR MISC
1075 031264 204 00 0 00 000011 MOVS FLAGS
1076 031265 312 00 0 00 000011 CAME FLAGS ;COMPARE FLAGS
1077 031266 541 13 0 00 000011 HRRI CNTL,FLAGS
1078 031267 312 04 0 12 000004 CAME AC+3,4(ACSP) ;COMPARE AC+3
1079 031270 541 13 0 00 000004 HRRI CNTL,AC+3
1080 031271 312 03 0 12 000003 CAME AC+2,3(ACSP) ;COMPARE AC+2
1081 031272 541 13 0 00 000003 HRRI CNTL,AC+2
1082 031273 312 02 0 12 000002 CAME AC+1,2(ACSP) ;COMPARE AC+1
1083 031274 541 13 0 00 000002 HRRI CNTL,AC+1
1084 031275 312 01 0 12 000001 CHECK1: CAME AC,1(ACSP) ;COMPARE AC
1085 031276 541 13 0 00 000001 HRRI CNTL,AC
1086 031277 254 00 1 00 031261 JRST @CHECK
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 12
DAKDAM MAC 26-JAN-77 08:54 ARITHMETIC RELIABILITY DIAGNOSTIC SEQ 0042
1087 ;PERFORM THE INSTRUCTION
1088
1089 031300 000000 000000 DOIT: 0
1090 031301 264 00 0 00 031223 JSR DOINS ;XCT THE INSTRUCTION
1091 031302 607 13 0 00 040000 TLNN CNTL,ER ;BYPASS IF ERROR
1092 031303 264 00 0 00 031261 JSR CHECK ;CHECK FOR VALID DATA
1093 031304 606 13 0 00 777777 TRNN CNTL,-1
1094 031305 254 00 1 00 031300 JRST @DOIT ;EXIT, NO ERRORS
1095 031306 336 00 0 00 030037 SKIPN USER
1096 031307 7 004 14 0 13 000000 DOIT1: DATAO PI,(CNTL) ;LOAD MI WITH FAILURE
1097 031310 663 13 0 00 040000 TLOE CNTL,ER ;SET ERROR FLAG
1098 031311 254 00 0 00 031441 JRST DOIT4 ;SEE IF PRINT ALL ERRORS
1099 031312 264 00 0 00 031445 JSR TTLPNT
1100 MOVEI [ASCIZ/
1101 **********
1102 SIMULATION COMPARISION FAILURE
1103 031313 201 00 0 00 040477 /]
1104 031314 037 17 0 00 000000 PNTAL
1105 031315 264 00 0 00 031575 JSR RESULT ;PRINT MACHINE RESULTS
1106 031316 264 00 0 00 031566 JSR SIMPNT ;PRINT SIMULATION
1107
1108 031317 202 13 0 00 041254 DOIT2: MOVEM CNTL,SAVCNT# ;SAVE CNTL
1109 031320 620 13 0 00 777777 TRZ CNTL,-1 ;CLEAR RIGHT HALF
1110 031321 264 00 0 00 031261 JSR CHECK
1111 031322 200 01 0 00 000005 MOVE AC,RA
1112 031323 200 02 0 00 000006 MOVE AC+1,RA+1
1113 031324 200 03 0 00 000007 MOVE AC+2,RA+2
1114 031325 200 04 0 00 000010 MOVE AC+3,RA+3
1115 031326 037 10 0 00 000002 SWITCH ;READ SWITCHES
1116 031327 603 00 0 00 002000 TLNE ERSTOP ;HALT AND SAVE AC'S?
1117 031330 264 00 0 00 031231 JSR GOING ;YES
1118 031331 603 00 0 00 004000 TLNE LOOPER ;LOOP ON ERROR SWITCH SET?
1119 031332 254 00 0 00 031336 JRST .+4 ;YES
1120 031333 264 00 0 00 031342 JSR DOIT3 ;NO, GO RING BELL
1121 031334 621 13 0 00 040000 TLZ CNTL,ER ;CLEAR ER FLAG
1122 031335 254 00 1 00 031300 JRST @DOIT ;AND CONT WITH PROG
1123 031336 602 13 0 00 777777 TRNE CNTL,-1 ;HAD AN ERROR?
1124 031337 264 00 0 00 031342 JSR DOIT3 ;YES, GO RING BELL
1125 031340 200 13 0 00 041254 MOVE CNTL,SAVCNT ;RESTORE CNTL
1126 031341 254 00 0 00 031301 JRST DOIT+1 ;CYCLE ERROR
1127
1128 031342 000000 000000 DOIT3: 0
1129 031343 607 00 0 00 010000 TLNN DING ;RING BELL ON ERROR ?
1130 031344 254 00 1 00 031342 JRST @DOIT3 ;NO
1131 031345 201 00 0 00 030256 MOVEI BELL
1132 031346 037 00 0 00 000001 PNTAF ;RING TTY BELL
1133 031347 254 00 1 00 031342 JRST @DOIT3
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 13
DAKDAM MAC 26-JAN-77 08:54 ARITHMETIC RELIABILITY DIAGNOSTIC SEQ 0043
1134 ;DETERMINE IF FIRST OR SECOND OPERATION CAUSED FAILURE
1135
1136 031350 000000 000000 FSTER: 0
1137 031351 402 00 0 00 041221 SETZM FAIL1#
1138 031352 275 14 0 00 000001 SUBI CNTR,1 ;POINT TO FIRST INSTRUCTION
1139 031353 264 00 0 00 031252 JSR SIMIT ;SIMULATE
1140 031354 200 01 0 00 031737 MOVE AC,DIVAC ;RESTORE FIRST RESULTS
1141 031355 200 02 0 00 031740 MOVE AC+1,DIVAC+1
1142 031356 200 03 0 00 031741 MOVE AC+2,DIVAC+2
1143 031357 200 04 0 00 031742 MOVE AC+3,DIVAC+3
1144 031360 620 13 0 00 777777 TRZ CNTL,-1
1145 031361 264 00 0 00 031261 JSR CHECK ;CHECK SIM VS ACTUAL
1146 031362 606 13 0 00 777777 TRNN CNTL,-1
1147 031363 344 14 0 00 031402 AOJA CNTR,FSTER2 ;LOOKS LIKE SECOND OP FAILED
1148
1149 031364 264 00 0 00 031445 FSTER1: JSR TTLPNT
1150 MOVEI [ASCIZ/
1151 **********
1152 INSTRUCTION COMPARISION FAILURE
1153 031365 201 00 0 00 040511 /]
1154 031366 037 17 0 00 000000 PNTAL
1155 031367 264 00 0 00 031575 JSR RESULTS ;FIRST OP FAILED, PRINT RESULTS
1156 SAVEM RA,1^
1157 031370 202 05 0 12 000001 MOVEM RA,1(ACSP) ;MOVE TO MEMORY
1158 031371 202 06 0 12 000002 MOVEM RA+1,1+1(ACSP)
1159 031372 202 07 0 12 000003 MOVEM RA+2,1+2(ACSP)
1160 031373 202 10 0 12 000004 MOVEM RA+3,1+3(ACSP)
1161 031374 264 00 0 00 031566 JSR SIMPNT ;PRINT SIMULATION
1162 031375 661 13 0 00 040000 TLO CNTL,ER ;SET ER FLAG
1163 031376 264 00 0 00 031300 JSR DOIT ;SCOPE LOOP
1164 031377 336 00 0 00 041221 SKIPN FAIL1 ;FIRST OP FAILURE ?
1165 031400 345 14 0 00 031563 AOJGE CNTR,GG ;YES, INC CNTR; IF JUMP PROG LOST
1166 031401 254 00 1 00 031350 JRST @FSTER ;EXIT
1167
1168 031402 476 00 0 00 041221 FSTER2: SETOM FAIL1
1169 031403 200 05 0 00 031737 MOVE RA,DIVAC
1170 031404 200 06 0 00 031740 MOVE RA+1,DIVAC+1
1171 031405 200 07 0 00 031741 MOVE RA+2,DIVAC+2
1172 031406 200 04 0 00 031742 MOVE AC+3,DIVAC+3
1173 031407 200 01 0 00 031743 MOVE AC,MULAC
1174 031410 200 02 0 00 031744 MOVE AC+1,MULAC+1
1175 031411 200 03 0 00 031745 MOVE AC+2,MULAC+2
1176 031412 200 04 0 00 031746 MOVE AC+3,MULAC+3
1177 031413 264 00 0 00 031252 JSR SIMIT ;SIMULATE SECOND OP
1178 031414 500 11 0 00 041255 HLL FLAGS,SECFLG ;GET FLAGS FROM SECOND OP
1179 031415 264 00 0 00 031261 JSR CHECK ;CHECK SIM VS ACTUAL
1180 031416 602 13 0 00 777777 TRNE CNTL,-1 ;DID SECOND FAIL ?
1181 031417 254 00 0 00 031364 JRST FSTER1 ;YES, PRINT RESULTS
1182 031420 254 00 1 00 031350 JRST @FSTER ;NO, SIM SAYS BOTH OK...CONTINUE
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 14
DAKDAM MAC 26-JAN-77 08:54 ARITHMETIC RELIABILITY DIAGNOSTIC SEQ 0044
1183 ;SIMULATE SINGLE INSTRUCTION, NO PRINTOUT
1184
1185 031421 200 00 0 00 040523 SIMNST: MOVE [XWD 1,SAVAC+1]
1186 031422 251 00 0 00 031736 BLT SAVAC+17
1187 031423 550 00 0 00 030113 HRRZ $SVUUO ;SETUP PC
1188 031424 202 00 0 00 037772 MOVEM INPC
1189 031425 260 17 0 00 037765 GO SMNST1 ;GO TO SIMULATOR
1190
1191 031426 200 00 0 00 000012 SIMEXT: MOVE PC ;SAVE PC FLAGS
1192 031427 202 00 0 00 041240 MOVEM PCSAV
1193 031430 204 00 0 00 040523 MOVS [XWD 1,SAVAC+1]
1194 031431 251 00 0 00 000017 BLT 17
1195 031432 254 00 0 00 030065 JRST UUOEXT ;EXIT UUO
1196
1197 ;SIMULATE SINGLE INSTRUCTION, PRINT STATES
1198
1199 031433 200 00 0 00 040523 SIMMT: MOVE [XWD 1,SAVAC+1]
1200 031434 251 00 0 00 031736 BLT SAVAC+17
1201 031435 550 00 0 00 030113 HRRZ $SVUUO ;SETUP PC
1202 031436 202 00 0 00 037772 MOVEM INPC
1203 031437 260 17 0 00 037651 GO SMMT1 ;GO TO SIMULATOR
1204
1205 031440 254 00 0 00 031426 JRST SIMEXT ;SAVE FLAGS, EXIT UUO
1206
1207 ;CHECK PRINT ALL ERRORS SWITCH
1208
1209 031441 037 10 0 00 000002 DOIT4: SWITCH
1210 031442 607 00 0 00 001000 TLNN PALERS ;PRINT ALL ERRORS ?
1211 031443 254 00 0 00 031317 JRST DOIT2 ;NO, DON'T PRINT...NOT FIRST
1212 031444 254 00 0 00 031312 JRST DOIT1+3
1213
1214 ;PRINT PROGRAM TITLE AND PASS COUNT
1215
1216 031445 000000 000000 TTLPNT: 0
1217 031446 350 00 0 00 030053 AOS ERRTLS
1218 031447 037 00 0 00 030242 PCRL
1219 031450 201 00 0 00 030736 MOVEI PGMNAM
1220 031451 037 17 0 00 000000 PNTAL
1221 031452 201 00 0 00 040524 MOVEI [ASCIZ/TEST PASS COUNT = /]
1222 031453 037 17 0 00 000000 PNTAL
1223 031454 200 00 0 00 030047 MOVE PASCNT
1224 031455 037 15 0 00 000000 PNTDEC
1225 031456 264 00 0 00 031747 JSR RUNTIM ;PRINT RUN TIME
1226 031457 254 00 1 00 031445 JRST @TTLPNT
1227
1228 031460 037 00 0 00 030242 PCR: PCRL
1229 031461 263 17 0 00 000000 RTN
1230 031462 037 00 0 00 000014 PCR1: PNTCI 14
1231 031463 263 17 0 00 000000 RTN
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 15
DAKDAM MAC 26-JAN-77 08:54 ARITHMETIC RELIABILITY DIAGNOSTIC SEQ 0045
1232 ;RANDOM NUMBER GENERATION
1233 ;THREE RANDOM IN AC,AC+1,AC+2
1234 ;A COPY ALSO IN RA,RA+1,RA+2
1235
1236 031464 000000 000000 RANDOM: 0
1237 031465 200 01 0 00 000005 MOVE AC,RA
1238 031466 270 01 0 00 040530 ADD AC,[543217335216]
1239 031467 241 01 0 00 777777 ROT AC,-1
1240 031470 447 01 0 00 000005 EQVB AC,RA ;RANDOM 1
1241 031471 204 02 0 00 000005 MOVS AC+1,RA
1242 031472 270 02 0 00 040531 ADD AC+1,[165742176525]
1243 031473 241 02 0 00 777777 ROT AC+1,-1
1244 031474 447 02 0 00 000006 EQVB AC+1,RA+1 ;RANDOM 2
1245 031475 204 03 0 00 000006 MOVS AC+2,RA+1
1246 031476 270 03 0 00 040532 ADD AC+2,[147532173543]
1247 031477 241 03 0 00 777777 ROT AC+2,-1
1248 031500 447 03 0 00 000007 EQVB AC+2,RA+2 ;RANDOM 3
1249 031501 204 04 0 00 000007 MOVS AC+3,RA+2
1250 031502 270 04 0 00 040533 ADD AC+3,[731341527517]
1251 031503 241 04 0 00 777777 ROT AC+3,-1
1252 031504 447 04 0 00 000010 EQVB AC+3,RA+3 ;RANDOM 4
1253 031505 254 00 1 00 031464 JRST @RANDOM
1254
1255 ;RANDOM NUMBER GENERATION
1256 ;OVERFLOW NOT POSSIBLE FOR DIVIDE
1257
1258 031506 000000 000000 RANNOV: 0
1259 031507 264 00 0 00 031464 JSR RANDOM
1260 031510 214 00 0 00 000003 MOVM AC+2
1261 031511 216 05 0 00 041257 MOVMM RA,TEMP#
1262 031512 316 00 0 00 041257 CAMN TEMP
1263 031513 254 00 0 00 031507 JRST RANNOV+1 ;DIVISOR=HI DIVIDEND
1264 031514 311 00 0 00 041257 CAML TEMP
1265 031515 254 00 0 00 031520 JRST .+3
1266 031516 250 01 0 00 000003 EXCH AC,AC+2 ;DIVISOR SMALLER, EXCHANGE
1267 031517 250 05 0 00 000007 EXCH RA,RA+2 ;TO MAKE LARGER
1268 031520 322 07 0 00 031507 JUMPE RA+2,RANNOV+1
1269 031521 606 03 0 00 777777 TRNN AC+2,-1
1270 031522 254 00 0 00 031507 JRST RANNOV+1 ;REJECT IF 0 FOR IDIV1
1271 031523 621 02 0 00 400000 TLZ AC+1,400000
1272 031524 603 01 0 00 400000 TLNE AC,400000
1273 031525 661 02 0 00 400000 TLO AC+1,400000
1274 031526 202 02 0 00 000006 MOVEM AC+1,RA+1
1275 031527 254 00 1 00 031506 JRST @RANNOV
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 16
DAKDAM MAC 26-JAN-77 08:54 ARITHMETIC RELIABILITY DIAGNOSTIC SEQ 0046
1276 ;RANDOM NUMBER GENERATION
1277 ;NORMALIZED RANDOM FOR FLOATING POINT
1278
1279 031530 000000 000000 RANORM: 0
1280 031531 264 00 0 00 031464 JSR RANDOM
1281 NORM RA+3,AC+3^
1282 031532 603 10 0 00 400000 TLNE RA+3,400000 ;NORMALIZE RA+3 NUMBER
1283 031533 625 10 0 00 000400 TLZA RA+3,400
1284 031534 661 10 0 00 000400 TLO RA+3,400
1285 031535 616 10 0 00 040534 TDNN RA+3,[377777777777]
1286 031536 350 10 0 00 000004 AOS RA+3,AC+3
1287 031537 202 10 0 00 000004 MOVEM RA+3,AC+3
1288 NORM RA+2,AC+2^
1289 031540 603 07 0 00 400000 TLNE RA+2,400000 ;NORMALIZE RA+2 NUMBER
1290 031541 625 07 0 00 000400 TLZA RA+2,400
1291 031542 661 07 0 00 000400 TLO RA+2,400
1292 031543 616 07 0 00 040534 TDNN RA+2,[377777777777]
1293 031544 350 07 0 00 000003 AOS RA+2,AC+2
1294 031545 202 07 0 00 000003 MOVEM RA+2,AC+2
1295 NORM RA+1,AC+1^
1296 031546 603 06 0 00 400000 TLNE RA+1,400000 ;NORMALIZE RA+1 NUMBER
1297 031547 625 06 0 00 000400 TLZA RA+1,400
1298 031550 661 06 0 00 000400 TLO RA+1,400
1299 031551 616 06 0 00 040534 TDNN RA+1,[377777777777]
1300 031552 350 06 0 00 000002 AOS RA+1,AC+1
1301 031553 202 06 0 00 000002 MOVEM RA+1,AC+1
1302 NORM RA,AC^
1303 031554 603 05 0 00 400000 TLNE RA,400000 ;NORMALIZE RA NUMBER
1304 031555 625 05 0 00 000400 TLZA RA,400
1305 031556 661 05 0 00 000400 TLO RA,400
1306 031557 616 05 0 00 040534 TDNN RA,[377777777777]
1307 031560 350 05 0 00 000001 AOS RA,AC
1308 031561 202 05 0 00 000001 MOVEM RA,AC
1309 031562 254 00 1 00 031530 JRST @RANORM
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 17
DAKDAM MAC 26-JAN-77 08:54 ARITHMETIC RELIABILITY DIAGNOSTIC SEQ 0047
1310 031563 GG: MOVEI [ASCIZ/
1311 INTERNAL PROGRAM PROBLEM, SUGGEST RELOAD, RESTART !
1312 031563 201 00 0 00 040535 /]
1313 031564 037 17 0 00 000001 PNTALF
1314 031565 037 14 0 00 000004 ERRHLT
1315
1316 ;SIMULATE AND PRINT THE INSTRUCTION
1317
1318 031566 000000 000000 SIMPNT: 0
1319 SAVEM RA,1^
1320 031567 202 05 0 12 000001 MOVEM RA,1(ACSP) ;MOVE TO MEMORY
1321 031570 202 06 0 12 000002 MOVEM RA+1,1+1(ACSP)
1322 031571 202 07 0 12 000003 MOVEM RA+2,1+2(ACSP)
1323 031572 202 10 0 12 000004 MOVEM RA+3,1+3(ACSP)
1324 031573 015 00 1 00 000015 SMT @IT ;SIMULATE AND PRINT
1325 031574 254 00 1 00 031566 JRST @SIMPNT
1326
1327
1328 ;PRINT FAST TEST FAILURE RESULTS
1329
1330 031575 000000 000000 RESULT: 0
1331 031576 476 00 0 00 030223 SETOM PNTSPC ;SET TO SPACE AFTER OCTALS
1332 MOVEI [ASCIZ/
1333 031577 201 00 0 00 040551 FLAGS FROM MACH & SIMULATE /]
1334 031600 037 17 0 00 000000 PNTAL
1335 031601 200 00 0 00 000011 MOVE FLAGS
1336 031602 037 13 0 00 000000 PNTHW
1337 031603 RSLTS1: MOVEI [ASCIZ/
1338 031603 201 00 0 00 040560 MACHINE RESULTS IN AC,AC+1,E /]
1339 031604 603 13 0 00 200000 TLNE CNTL,BYT ;BYTE ERROR
1340 MOVEI [ASCIZ/
1341 031605 201 00 0 00 040567 MACHINE RESULTS IN AC,POINTER,E /]
1342 031606 037 17 0 00 000000 PNTAL
1343 031607 200 00 0 00 000001 MOVE AC
1344 031610 037 14 0 00 000000 PNTOCT ;PRINT MACHINE AC
1345 031611 603 13 0 00 200000 TLNE CNTL,BYT
1346 031612 250 02 0 00 000003 EXCH AC+1,AC+2
1347 031613 200 00 0 00 000002 MOVE AC+1
1348 031614 037 14 0 00 000000 PNTOCT ;PRINT AC+1
1349 031615 200 00 0 00 000003 MOVE AC+2
1350 031616 037 14 0 00 000000 PNTOCT ;PRINT AC+2, (E)
1351 031617 201 00 0 00 030242 MOVEI CRLF
1352 031620 037 00 0 00 000000 PNTA
1353 031621 254 00 1 00 031575 JRST @RESULT
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 18
DAKDAM MAC 26-JAN-77 08:54 ARITHMETIC RELIABILITY DIAGNOSTIC SEQ 0048
1354 ;THE INSTRUCTIONS TESTED
1355
1356 ;INTERGER FIXED POINT
1357 031622 230 01 0 00 000003 FIXEDI: IDIV AC,AC+2
1358 031623 220 01 0 00 000003 IMUL AC,AC+2
1359 031624 231 01 0 03 000000 IDIVI AC,(AC+2)
1360 031625 221 01 0 03 000000 IMULI AC,(AC+2)
1361 031626 232 01 0 00 000003 IDIVM AC,AC+2
1362 031627 222 01 0 00 000003 IMULM AC,AC+2
1363 031630 233 01 0 00 000003 IDIVB AC,AC+2
1364 031631 223 01 0 00 000003 IMULB AC,AC+2
1365
1366 ;MULTIPLY AND DIVIDE
1367 031632 234 01 0 00 000003 FIXED: DIV AC,AC+2
1368 031633 224 01 0 00 000003 MUL AC,AC+2
1369 031634 235 01 0 03 000000 DIVI AC,(AC+2)
1370 031635 225 01 0 03 000000 MULI AC,(AC+2)
1371 031636 226 01 0 00 000003 MULM AC,AC+2
1372 031637 236 01 0 00 000003 DIVM AC,AC+2
1373 031640 227 01 0 00 000003 MULB AC,AC+2
1374 031641 237 01 0 00 000003 DIVB AC,AC+2
1375
1376 ;FLOATING POINT: ADD, SUBTRACT
1377 031642 140 01 0 00 000003 FPAS: FAD AC,AC+2
1378 031643 150 01 0 00 000003 FSB AC,AC+2
1379 031644 144 01 0 00 000003 FADR AC,AC+2
1380 031645 154 01 0 00 000003 FSBR AC,AC+2
1381 031646 142 01 0 00 000003 FADM AC,AC+2
1382 031647 143 01 0 00 000003 FADB AC,AC+2
1383 031650 146 01 0 00 000003 FADRM AC,AC+2
1384 031651 147 01 0 00 000003 FADRB AC,AC+2
1385
1386 ;FLOATING POINT: SUBTRACT, MULTIPLY
1387 031652 152 01 0 00 000003 FPSM: FSBM AC,AC+2
1388 031653 153 01 0 00 000003 FSBB AC,AC+2
1389 031654 156 01 0 00 000003 FSBRM AC,AC+2
1390 031655 157 01 0 00 000003 FSBRB AC,AC+2
1391 031656 162 01 0 00 000003 FMPM AC,AC+2
1392 031657 163 01 0 00 000003 FMPB AC,AC+2
1393 031660 166 01 0 00 000003 FMPRM AC,AC+2
1394 031661 167 01 0 00 000003 FMPRB AC,AC+2
1395
1396 ;FLOATING POINT: MULTIPLY, DIVIDE
1397 031662 160 01 0 00 000003 FPMD: FMP AC,AC+2
1398 031663 170 01 0 00 000003 FDV AC,AC+2
1399 031664 164 01 0 00 000003 FMPR AC,AC+2
1400 031665 174 01 0 00 000003 FDVR AC,AC+2
1401 031666 172 01 0 00 000003 FDVM AC,AC+2
1402 031667 173 01 0 00 000003 FDVB AC,AC+2
1403 031670 176 01 0 00 000003 FDVRM AC,AC+2
1404 031671 177 01 0 00 000003 FDVRB AC,AC+2
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 19
DAKDAM MAC 26-JAN-77 08:54 ARITHMETIC RELIABILITY DIAGNOSTIC SEQ 0049
1405 ;FLOATING POINT: MISCELLANEOUS
1406 031672 130 01 0 00 000003 MISCFP: UFA AC,AC+2
1407 031673 131 01 0 00 000003 DFN AC,AC+2
1408 031674 130 01 0 00 000003 UFA AC,AC+2
1409 031675 132 01 0 03 000000 FSC AC,(AC+2)
1410 031676 145 01 0 03 000000 FADRI AC,(AC+2)
1411 031677 155 01 0 03 000000 FSBRI AC,(AC+2)
1412 031700 165 01 0 03 000000 FMPRI AC,(AC+2)
1413 031701 175 01 0 03 000000 FDVRI AC,(AC+2)
1414
1415 ;FLOATING POINT: LONG MODE
1416 031702 141 01 0 00 000003 FPL: FADL AC,AC+2
1417 031703 151 01 0 00 000003 FSBL AC,AC+2
1418 031704 161 01 0 00 000003 FMPL AC,AC+2
1419 031705 171 01 0 00 000003 FDVL AC,AC+2
1420 031706 161 01 0 00 000003 FMPL AC,AC+2
1421 031707 171 01 0 00 000003 FDVL AC,AC+2
1422 031710 141 01 0 00 000003 FADL AC,AC+2
1423 031711 151 01 0 00 000003 FSBL AC,AC+2
1424
1425 ;BYTES
1426 031712 133 00 0 00 000003 BYTES: IBP AC+2
1427 031713 134 01 0 00 000003 ILDB AC,AC+2
1428 031714 136 01 0 00 000003 IDPB AC,AC+2
1429 031715 135 01 0 00 000003 LDB AC,AC+2
1430 031716 137 01 0 00 000003 DPB AC,AC+2
1431
1432
1433 ;TEST STORAGE
1434
1435 031717 SAVAC: BLOCK 20
1436
1437 031737 DIVAC: BLOCK 4
1438
1439 031743 MULAC: BLOCK 4
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 20
DAKDAM MAC 26-JAN-77 08:54 ARITHMETIC RELIABILITY DIAGNOSTIC SEQ 0050
1440 ;CLOCK SERVICE ROUTINES
1441
1442 031747 000000 000000 RUNTIM: 0
1443 031750 332 00 0 00 030037 SKIPE USER
1444 031751 254 00 1 00 031747 JRST @RUNTIM
1445 031752 7 000 20 0 00 004001 CONO APR,CLKDIS!AAPRC1 ;DISABLE CLOCK
1446 031753 264 00 0 00 032036 JSR TSTIMA ;PRINT RUN TIME
1447 031754 7 000 20 0 00 003001 CONO APR,CLKENB!CLKCLR!AAPRC1
1448 031755 254 00 1 00 031747 JRST @RUNTIM
1449
1450 031756 7 000 34 0 00 001000 ITRCLK: CONSO APR,CLK
1451 031757 254 00 0 00 030072 JRST $ITRHL+1 ;NOT CLOCK
1452 031760 350 00 0 00 030054 AOS TICKS ;INC CLOCK COUNTER
1453 031761 202 00 0 00 041216 MOVEM 0,CLKAC0#
1454 031762 202 01 0 00 041217 MOVEM 1,CLKAC1#
1455 031763 264 00 0 00 032023 JSR TSTIME ;CHECK AND PRINT TIME
1456 031764 200 01 0 00 000005 MOVE 1,RA
1457 031765 405 01 0 00 000007 ANDI 1,7
1458 031766 336 00 0 00 000001 SKIPN 1
1459 031767 350 00 0 00 000001 AOS 1 ;SETUP CLOCK ON RANDOM CHANNEL
1460 031770 7 000 20 0 01 003000 CONO APR,CLKENB!CLKCLR(1)
1461 031771 200 00 0 00 041216 MOVE 0,CLKAC0
1462 031772 200 01 0 00 041217 MOVE 1,CLKAC1
1463 031773 254 12 1 00 030104 JEN @ITRCH1
1464
1465 031774 000000 000000 PNTTOT: 0
1466 031775 332 00 0 00 030037 SKIPE USER ;NO TIME IF USER
1467 031776 254 00 0 00 032002 JRST .+4
1468 031777 037 10 0 00 000002 SWITCH
1469 032000 606 00 0 00 000200 TRNN INHCLK ;NO TIME IF CLOCK INHIBITED
1470 032001 264 00 0 00 031747 JSR RUNTIM ;PRINT RUN TIME
1471 MOVEI [ASCIZ/
1472 032002 201 00 0 00 040577 TOTAL PASSES = /]
1473 032003 037 17 0 00 000000 PNTAL
1474 032004 200 00 0 00 030047 MOVE PASCNT
1475 032005 037 15 0 00 000000 PNTDEC
1476 MOVEI [ASCIZ/
1477 032006 201 00 0 00 040603 TOTAL ERRORS = /]
1478 032007 037 17 0 00 000000 PNTAL
1479 032010 200 00 0 00 030053 MOVE ERRTLS
1480 032011 037 15 0 00 000000 PNTDEC
1481 MOVEI [ASCIZ/
1482 032012 201 00 0 00 040607 BASE RANDOM NUMBER = /]
1483 032013 037 17 0 00 000000 PNTAL
1484 032014 200 00 0 00 030022 MOVE RANDBS
1485 032015 037 13 0 00 000000 PNTHW
1486 032016 037 00 0 00 030243 PCRL2
1487 032017 037 10 0 00 000002 SWITCH
1488 032020 607 00 0 00 200000 TLNN RSTART ;RESTART PROGRAM ?
1489 032021 254 00 1 00 031774 JRST @PNTTOT ;NO, CONTINUE
1490 032022 254 00 0 00 030600 JRST SFSRT1 ;YES, RESTART AS STAND-ALONE
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 21
DAKDAM MAC 26-JAN-77 08:54 ARITHMETIC RELIABILITY DIAGNOSTIC SEQ 0051
1491 ;TEST RUN TIME ROUTINE
1492 ;PRINTS TIME AT HALF HOUR INTERVALS OR WHEN REQUESTED
1493
1494 032023 000000 000000 TSTIME: 0
1495 032024 200 00 0 00 030054 MOVE TICKS
1496 032025 274 00 0 00 041263 SUB TSTIMR ;HAS HALF HOUR PASSED ?
1497 032026 200 01 0 00 041232 MOVE 1,HERTZ
1498 032027 302 01 0 00 000074 CAIE 1,^D60
1499 032030 254 00 0 00 032067 JRST TSTIMB ;50 CYCLE
1500 032031 305 00 0 00 322740 CAIGE ^D<60*60*30>
1501 032032 254 00 1 00 032023 JRST @TSTIME ;NOT HALF HOUR YET
1502 032033 476 00 0 00 041262 TSTIMC: SETOM TIMFRC#
1503 032034 264 00 0 00 032036 JSR TSTIMA
1504 032035 254 00 1 00 032023 JRST @TSTIME
1505
1506 032036 000000 000000 TSTIMA: 0
1507 032037 332 00 0 00 030217 SKIPE PNTFLG ;INTERRUPTED OUT OF PRINT ROUTINE ?
1508 032040 254 00 1 00 032036 JRST @TSTIMA ;YES, DO NEXT CLOCK
1509 032041 202 01 0 00 041253 MOVEM 1,SAVAC1#
1510 MOVEI [ASCIZ/
1511 032042 201 00 0 00 040614 RUN TIME = /]
1512 032043 037 17 0 00 000001 PNTALF
1513 032044 200 00 0 00 030054 MOVE TICKS ;GET TIME
1514 032045 332 00 0 00 041262 SKIPE TIMFRC ;REQUESTED TIME ?
1515 032046 202 00 0 00 041263 MOVEM TSTIMR ;IF SO, DON'T UPDATE 1/2 HR COMPARE
1516 032047 230 00 0 00 041232 IDIV HERTZ ;CONVERT TO SECONDS
1517 032050 231 00 0 00 007020 IDIVI ^D<60*60> ;CONVERT TO HOURS
1518 032051 202 01 0 00 041261 MOVEM 1,TIMAC1# ;SAVE MIN:SEC
1519 032052 037 15 0 00 000001 PNTDCF ;PRINT HOURS
1520 032053 037 01 0 00 000072 PNTCIF ":"
1521 032054 200 00 0 00 041261 MOVE TIMAC1
1522 032055 231 00 0 00 000074 IDIVI ^D60
1523 032056 202 01 0 00 041261 MOVEM 1,TIMAC1
1524 032057 037 15 0 00 000001 PNTDCF ;PRINT MINUTES
1525 032060 037 01 0 00 000072 PNTCIF ":"
1526 032061 200 00 0 00 041261 MOVE TIMAC1
1527 032062 037 15 0 00 000001 PNTDCF ;PRINT SECONDS
1528 032063 037 01 0 00 030242 PCRLF
1529 032064 402 00 0 00 041262 SETZM TIMFRC
1530 032065 200 01 0 00 041253 MOVE 1,SAVAC1
1531 032066 254 00 1 00 032036 JRST @TSTIMA
1532
1533 032067 305 00 0 00 257620 TSTIMB: CAIGE ^D<60*60*25> ;50 HZ HALF HOUR ?
1534 032070 254 00 1 00 032023 JRST @TSTIME ;NO
1535 032071 254 00 0 00 032033 JRST TSTIMC
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 1
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0052
1536 SUBTTL PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR
1537
1538 ;SAVE & RESTORE FIRST 15 ACS ON LIST
1539
1540 DEFINE SAVE15<
1541 PUT 15
1542 MOVEI 15,14
1543 PUT (15)
1544 SOJGE 15,.-1>
1545
1546 DEFINE RST15<
1547 HRROI 15,-15
1548 GET 15(15)
1549 AOJL 15,.-1
1550 GET 15>
1551
1552 ;ACCUMULATORS
1553
1554 ;1=TEMPORARY
1555 000002 SCAD=2 ;SHIFT COUNT ADDER
1556 000003 AD=3 ;ADDER
1557 000004 CE=4 ;CONTENTS OF E
1558 000005 CAC=5 ;CONTENTS OF AC
1559 000006 CAC1=6 ;CONTENTS OF AC+1
1560 000007 IR=7 ;THE INST SIMULATED
1561 000010 SC=10 ;SHIFT CNTR IN RIGHT HALF
1562 000010 FE=10 ;FLOAT EXP IN LEFT HALF
1563 000011 MA=11 ;18 BIT MA WITH IDX REG, MISC BITS LEFT
1564 000012 PC=12 ;18 BIT PC WITH IDX REG, MISC BITS LEFT
1565 000013 BR=13 ;36 BIT PSEUDO REGISTERS
1566 000014 AR=14 ;36 BIT PSEUDO REGISTERS
1567 000015 MQ=15 ;36 BIT PSEUDO REGISTERS
1568 000016 USERAC=16 ;FIRST LOC IN OBJECT PROGRAM
1569 000100 BOL=100
1570
1571 ;MA SWITCHES
1572
1573 400000 MT=400000 ;PRINT MACHINE TIME STATES
1574 200000 MS=200000 ;PRINT AT MEM STOP
1575 100000 SU=100000 ;STORE IN USER LOC
1576 040000 EXCTF=40000
1577 020000 EUUOF=20000
1578 010000 FMEN=10000
1579 004000 ERR=4000
1580 002000 NRF1=2000
1581 000100 MPF2=100
1582 001000 EXSYNC=1000
1583 000400 RUN=400
1584 000040 DSF7=40
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 2
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0053
1585 ;INITIAL, FINAL SWITCHES
1586
1587 400000 FCE=400000
1588 200000 FCEPSE=200000
1589 100000 FACINH=100000
1590 040000 FAC2=40000
1591 020000 FCCLT=20000
1592 010000 FCCRT=10000
1593 004000 SAC2=4000
1594 002000 SCE=2000
1595 001000 SACINH=1000
1596 000400 SARBR=400
1597 000200 SACZ=200
1598 000100 PCINH=100
1599
1600 ;BITS 29-35 IN THE IF TABLE
1601 ;INFORM THE PROGRAM WHICH REGISTERS TO PRINT.
1602 ;THE NUMBERS HAVE THE FOLLOWING SIGNIFICANCE
1603
1604 ;INITIAL PRINT RESULTS
1605 ;0=C(AC) C(E) C(E)
1606 ;1=C(AC) C(AC)
1607 ;2=C(AC) C(E) C(AC)
1608 ;3=C(AC) C(E) C(AC) C(E)
1609 ;4=C(AC) C(AC+1) C(E) C(AC) C(AC+1)
1610 ;5=C(AC) C(AC+1) C(E) C(AC) C(AC+1) C(E)
1611 ;6=C(AC) C(AC+1) C(E) C(E)
1612 ;7=C(AC) C(AC+1) C(AC) C(AC+1)
1613 ;10=C(AC) -
1614 ;11=C(AC) C(E) -
1615 ;12=C(AC) C(C(ACR)+1 C(AC) C(C(ACR)+1
1616 ;13=C(AC) C(C(ACR) C(AC) C(C(ACR)
1617 ;14=C(AC) C(C(ACL) C(AC) C(C(ACL)
1618 ;15=C(AC) C(E) C(C(E) C(AC) C(E)
1619 ;16=C(AC) C(E) C(C(E)) C(AC) C(E) C(C(E))
1620 ;17=C(AC) C(E) C(C(E) C(AC) C(E)
1621 ;20=DON'T PRINT
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 3
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0054
1622 DEFINE INDEX<
1623 HLRZ IR ;INDEX REGISTER TO AR
1624 ANDI 17
1625 ADD USERAC
1626 SKIPN USERAC
1627 ADDI JA
1628 PUT 0
1629 ANDI 0,-1
1630 MOVE AR,@0
1631 GET 0
1632 >
1633
1634 DEFINE FMRQA(A)<
1635 MOVE ACA# ;MEM READ AC
1636 ADDI A
1637 ANDI 17
1638 ADD USERAC
1639 SKIPN USERAC
1640 ADDI JA
1641 PUT 0
1642 ANDI 0,-1
1643 MOVE AR,@0
1644 GET 0
1645 >
1646
1647 DEFINE FMWRA (A)<
1648 MOVEM AR,CAC+A ;WRITE AC INTO CORE
1649 TLNN MA,SU
1650 JRST .+13
1651 MOVE ACA#
1652 ADDI A
1653 ANDI 17
1654 ADD USERAC
1655 SKIPN USERAC
1656 ADDI JA
1657 PUT 0
1658 ANDI 0,-1
1659 MOVEM AR,@0
1660 GET 0
1661 >
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 4
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0055
1662 DEFINE STORE (A)<
1663 GO HUNGCK
1664 JUMPGE MA,.+3 ;PRINTER CNTL
1665 MOVEI 1,[ASCII /A/]
1666 GO PRINTA
1667 >
1668
1669 DEFINE STORM (A)<
1670 GO HUNGCK
1671 TLNN MA,MS+MT ;PRINTER CNTL
1672 JRST .+3
1673 MOVEI 1,[ASCII /A/]
1674 GO PRINTA
1675 >
1676
1677 DEFINE IFSWIT<
1678 HLRZ 2,IR ;GET INITIAL AND FINAL SWITCHES
1679 LSHC 2,-^D10
1680 TLNE 3,400000
1681 SKIPA 2,IFTAB(2) ;ODD
1682 MOVS 2,IFTAB(2) ;EVEN
1683 >
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 5
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0056
1684 032072 200 00 0 00 000011 MCRQ1: MOVE MA ;MEMORY READ REQUEST
1685 032073 270 00 0 00 000016 ADD USERAC
1686 032074 326 16 0 00 032077 JUMPN USERAC,.+3
1687 032075 606 11 0 00 777700 TRNN MA,777700
1688 032076 271 00 0 00 040000 ADDI JA ;IF LESS 100,JOB AREA
1689 032077 261 17 0 00 000000 PUT 0
1690 032100 405 00 0 00 777777 ANDI 0,-1
1691 032101 200 14 1 00 000000 MOVE AR,@0
1692 032102 262 17 0 00 000000 GET 0
1693 032103 200 04 0 00 000014 MOVE CE,AR
1694 032104 263 17 0 00 000000 RTN
1695
1696 032105 202 14 0 00 000004 MCWR1: MOVEM AR,CE ;MEMORY WRITE REQUEST
1697 032106 607 11 0 00 100000 TLNN MA,SU ;STORE IN USER ONLY IF
1698 032107 263 17 0 00 000000 RTN ;SU SWITCH IS SET
1699
1700 032110 200 00 0 00 000011 MOVE MA
1701 032111 270 00 0 00 000016 ADD USERAC
1702 032112 326 16 0 00 032115 JUMPN USERAC,.+3
1703 032113 606 11 0 00 777700 TRNN MA,777700
1704 032114 271 00 0 00 040000 ADDI JA
1705 032115 261 17 0 00 000000 PUT 0
1706 032116 405 00 0 00 777777 ANDI 0,-1
1707 032117 202 14 1 00 000000 MOVEM AR,@0
1708 032120 262 17 0 00 000000 GET 0
1709 032121 263 17 0 00 000000 RTN
1710
1711 260740 032072 OPDEF MCRQ [GO MCRQ1]
1712 260740 032105 OPDEF MCWR [GO MCWR1]
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 6
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0057
1713 ;SIMULATE INSTRUCTION TIME CYCLE
1714
1715 ;INSTRUCTION AND ADDRESS CALL CYCLE
1716
1717 032122 403 10 0 00 041207 IT0: SETZB SC,ADBREN# ;CLEAR SC AND AD BR + OR - EN FLAG.
1718 032123 403 15 0 00 000007 SETZB MQ,IR ;MQ AND IR CLR.
1719 032124 402 00 0 00 041210 SETZM AF2# ;CLR AF2.
1720 032125 402 00 0 00 041223 SETZM FDF3# ;CLEAR FDF3.
1721 032126 402 00 0 00 041230 SETZM FXUHLD# ;ECO49, CLEAR AR FXU HOLD
1722 032127 402 00 0 00 041214 SETZM BISF# ;FIX FOR BIS SET ON BYTE START
1723 032130 621 11 0 00 002140 TLZ MA,NRF1+MPF2+DSF7 ;CLEAR NRF1,MPF2,DSF7
1724 032131 607 11 0 00 040000 TLNN MA,EXCTF ;EXCTF(0)?
1725 032132 542 12 0 00 000011 HRRM PC,MA ;YES...MA FM PC(J)
1726 032133 603 11 0 00 020000 TLNE MA,EUUOF ;EUUOF(1)?
1727 032134 660 11 0 00 000001 TRO MA,1 ;YES...MA 35 SET
1728 032135 260 17 0 00 032072 MCRQ ;MC RD RQ
1729 STORM IT0^
1730 032136 260 17 0 00 037601 GO HUNGCK
1731 032137 607 11 0 00 600000 TLNN MA,MS+MT ;PRINTER CNTL
1732 032140 254 00 0 00 032143 JRST .+3
1733 032141 201 01 0 00 040617 MOVEI 1,[ASCII /IT0/]
1734 032142 260 17 0 00 037027 GO PRINTA
1735 032143 261 17 0 00 000011 PUT MA
1736 032144 500 07 0 00 000014 IT1: HLL IR,AR ;INST TO IR
1737 032145 620 11 0 00 777777 TRZ MA,-1 ;CLEAR MA
1738 032146 621 11 0 00 060000 TLZ MA,EXCTF+EUUOF ;CLEAR EXCTF AND EUUOF
1739 STORE IT1^
1740 032147 260 17 0 00 037601 GO HUNGCK
1741 032150 325 11 0 00 032153 JUMPGE MA,.+3 ;PRINTER CNTL
1742 032151 201 01 0 00 040620 MOVEI 1,[ASCII /IT1/]
1743 032152 260 17 0 00 037027 GO PRINTA
1744 032153 607 07 0 00 000017 TLNN IR,17 ;IR 14-17 = 0?
1745 032154 254 00 0 00 032211 IOTT1E: JRST AT3 ;YES...NO INDEX REGISTER
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 7
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0058
1746 032155 476 00 0 00 041210 AT1: SETOM AF2# ;SET AF2#
1747 032156 200 13 0 00 000014 MOVE BR,AR ;BR FM AR(J)
1748 032157 400 14 0 00 000000 SETZ AR, ;CLEAR AR
1749 STORE AT1^
1750 032160 260 17 0 00 037601 GO HUNGCK
1751 032161 325 11 0 00 032164 JUMPGE MA,.+3 ;PRINTER CNTL
1752 032162 201 01 0 00 040621 MOVEI 1,[ASCII /AT1/]
1753 032163 260 17 0 00 037027 GO PRINTA
1754 032164 AT2: INDEX^
1755 032164 554 00 0 00 000007 HLRZ IR ;INDEX REGISTER TO AR
1756 032165 405 00 0 00 000017 ANDI 17
1757 032166 270 00 0 00 000016 ADD USERAC
1758 032167 336 00 0 00 000016 SKIPN USERAC
1759 032170 271 00 0 00 040000 ADDI JA
1760 032171 261 17 0 00 000000 PUT 0
1761 032172 405 00 0 00 777777 ANDI 0,-1
1762 032173 200 14 1 00 000000 MOVE AR,@0
1763 032174 262 17 0 00 000000 GET 0
1764 032175 607 11 0 00 010000 TLNN MA, FMEN ;IS FAST MEMORY ENABLED
1765 032176 254 00 0 00 032204 JRST AT2A ;NO
1766 STORE AT2^
1767 032177 260 17 0 00 037601 GO HUNGCK
1768 032200 325 11 0 00 032203 JUMPGE MA,.+3 ;PRINTER CNTL
1769 032201 201 01 0 00 040622 MOVEI 1,[ASCII /AT2/]
1770 032202 260 17 0 00 037027 GO PRINTA
1771 032203 254 00 0 00 032211 JRST AT3
1772
1773 032204 AT2A: STORM AT2^
1774 032204 260 17 0 00 037601 GO HUNGCK
1775 032205 607 11 0 00 600000 TLNN MA,MS+MT ;PRINTER CNTL
1776 032206 254 00 0 00 032211 JRST .+3
1777 032207 201 01 0 00 040622 MOVEI 1,[ASCII /AT2/]
1778 032210 260 17 0 00 037027 GO PRINTA
1779
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 8
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0059
1780
1781 032211 200 03 0 00 000014 AT3: MOVE AD,AR ;AD AR+EN
1782 032212 270 03 0 00 000013 ADD AD,BR ;AD BR+EN
1783 032213 332 00 0 00 041210 SKIPE AF2# ;AF2 SET?
1784 032214 540 14 0 00 000003 HRR AR,AD ;YES. ARRT FM AD(J)
1785 032215 402 00 0 00 041210 SETZM AF2# ;CLEAR AF2
1786 032216 200 13 0 00 000014 MOVE BR,AR ;BR FM AR(J)
1787 032217 621 14 0 00 777777 TLZ AR,-1 ;AR LT CLR
1788 STORE AT3^
1789 032220 260 17 0 00 037601 GO HUNGCK
1790 032221 325 11 0 00 032224 JUMPGE MA,.+3 ;PRINTER CNTL
1791 032222 201 01 0 00 040623 MOVEI 1,[ASCII /AT3/]
1792 032223 260 17 0 00 037027 GO PRINTA
1793 032224 607 07 0 00 000020 TLNN IR,20 ;INDIRECT BIT ON?
1794 032225 254 00 0 00 032242 JRST AT6 ;NO.
1795
1796 032226 542 14 0 00 000011 AT4: HRRM AR,MA ;MA FM AR(J)
1797 032227 260 17 0 00 032072 MCRQ ;THE IN DIRECT LOGIC
1798 032230 510 00 0 00 000014 HLLZ AR
1799 032231 621 00 0 00 777740 TLZ 777740
1800 032232 621 07 0 00 000037 TLZ IR,37
1801 032233 436 00 0 00 000007 IORM IR
1802 STORM AT4^
1803 032234 260 17 0 00 037601 GO HUNGCK
1804 032235 607 11 0 00 600000 TLNN MA,MS+MT ;PRINTER CNTL
1805 032236 254 00 0 00 032241 JRST .+3
1806 032237 201 01 0 00 040624 MOVEI 1,[ASCII /AT4/]
1807 032240 260 17 0 00 037027 GO PRINTA
1808 032241 254 00 0 00 032145 JRST IT1+1
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 9
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0060
1809 032242 603 07 0 00 700000 AT6: TLNE IR,700000 ;IR UUO?
1810 032243 540 11 0 00 000014 HRR MA,AR ;-IR UUO: MA FM AR(J)
1811 STORE AT6^
1812 032244 260 17 0 00 037601 GO HUNGCK
1813 032245 325 11 0 00 032250 JUMPGE MA,.+3 ;PRINTER CNTL
1814 032246 201 01 0 00 040625 MOVEI 1,[ASCII /AT6/]
1815 032247 260 17 0 00 037027 GO PRINTA
1816 032250 315 07 0 00 040626 CAMGE IR,[140000000000] ;IR 134-137?
1817 032251 317 07 0 00 040627 CAMG IR,[133777777777]
1818 032252 254 00 0 00 032262 JRST FT0X
1819
1820 032253 621 07 0 00 000037 BYTCR1: TLZ IR,37 ;IR RT CLR.
1821 032254 336 00 0 00 041214 SKIPN BISF ;BISF (2ND PART BYTE FIX) SET?
1822 032255 254 00 0 00 032262 JRST FT0X ;NO. FIRST TIME THROUGH BYTE.
1823 032256 201 02 0 00 500003 MOVEI 2,FACINH+FCE+3 ;YES. SECOND TIME THROUGH BYTE.
1824 032257 603 07 0 00 002000 TLNE IR,2000
1825 032260 201 02 0 00 403003 MOVEI 2,FCE+SACINH+SCE+3 ;DPB...TURN OFF FACINH.
1826 032261 254 00 0 00 032300 JRST FT0Y
1827
1828 ;END OF ADDRESS CYCLE
1829 ;AR=0,E
1830 ;BR=LAST REF
1831 ;MQ=0
1832 ;MA=0 OR E
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 10
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0061
1833 ;FETCH CYCLE
1834 032262 554 00 0 00 000007 FT0X: HLRZ IR
1835 032263 242 00 0 00 777767 LSH -11
1836 032264 202 00 0 00 041234 MOVEM IRA# ;SAVE INSTRUCTION CODE.
1837 032265 305 00 0 00 000200 CAIGE 200 ;IS THIS
1838 032266 305 00 0 00 000140 CAIGE 140 ;A FP INST?
1839 032267 254 00 0 00 032273 JRST FT0XA ;NO.
1840 032270 405 00 0 00 000145 ANDI 145 ;YES.
1841 032271 306 00 0 00 000145 CAIN 145 ;IS IT IMMEDIATE MODE?
1842 032272 254 00 0 00 032457 JRST FT8 ;YES..FPIMM..GO TO FT8.
1843 032273 FT0XA: IFSWIT^
1844 032273 554 02 0 00 000007 HLRZ 2,IR ;GET INITIAL AND FINAL SWITCHES
1845 032274 246 02 0 00 777766 LSHC 2,-^D10
1846 032275 603 03 0 00 400000 TLNE 3,400000
1847 032276 334 02 0 02 034575 SKIPA 2,IFTAB(2) ;ODD
1848 032277 204 02 0 02 034575 MOVS 2,IFTAB(2) ;EVEN
1849 032300 606 02 0 00 600000 FT0Y: TRNN 2,FCE+FCEPSE
1850 032301 254 00 0 00 032320 JRST FT1A ;DO NOT FETCH C(E)
1851 032302 260 17 0 00 032072 MCRQ ;GET THE CONTENTS OF E
1852 032303 603 11 0 00 010000 TLNE MA,FMEN ;MC FM EN?
1853 032304 254 00 0 00 032313 JRST FTX ;YES...FT1
1854
1855 032305 FT1: STORM FT0^; FCE OR [FCEPSE + (-FMEN)]
1856 032305 260 17 0 00 037601 GO HUNGCK
1857 032306 607 11 0 00 600000 TLNN MA,MS+MT ;PRINTER CNTL
1858 032307 254 00 0 00 032312 JRST .+3
1859 032310 201 01 0 00 040630 MOVEI 1,[ASCII /FT0/]
1860 032311 260 17 0 00 037027 GO PRINTA
1861 032312 254 00 0 00 032320 JRST FT1A
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 11
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0062
1862 032313 FTX: STORM FT1^; FCEPSE+FMEN
1863 032313 260 17 0 00 037601 GO HUNGCK
1864 032314 607 11 0 00 600000 TLNN MA,MS+MT ;PRINTER CNTL
1865 032315 254 00 0 00 032320 JRST .+3
1866 032316 201 01 0 00 040631 MOVEI 1,[ASCII /FT1/]
1867 032317 260 17 0 00 037027 GO PRINTA
1868 032320 200 00 0 00 041234 FT1A: MOVE 0,IRA# ;MOVE INST CODE INTO AC0.
1869 032321 302 00 0 00 000254 CAIE 0,254 ;IR A JRST?
1870 032322 200 13 0 00 000014 MOVE BR,AR ;NO. BR FM AR(J).
1871 STORE FT1A^
1872 032323 260 17 0 00 037601 GO HUNGCK
1873 032324 325 11 0 00 032327 JUMPGE MA,.+3 ;PRINTER CNTL
1874 032325 201 01 0 00 040632 MOVEI 1,[ASCII /FT1A/]
1875 032326 260 17 0 00 037027 GO PRINTA
1876 032327 554 00 0 00 000007 HLRZ 0,IR
1877 032330 242 00 0 00 777773 LSH 0,-5
1878 032331 405 00 0 00 000017 ANDI 0,17
1879 032332 202 00 0 00 041206 MOVEM 0,ACA# ;SAVE AC NUMBER.
1880 032333 602 02 0 00 100000 TRNE 2,FACINH
1881 032334 254 00 0 00 032466 JRST FT9 ;FETCH AC INHIBIT IS SET
1882 ;AR=0,E
1883 ;BR=(0,E) V C(E) V JRST:LAST REF
1884 ;MQ=0
1885 ;MA=E
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 12
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0063
1886 ;FETCH CYCLE CONT
1887
1888 032335 400 14 0 00 000000 FT2: SETZ AR, ;AR CLR
1889 STORE FT2^
1890 032336 260 17 0 00 037601 GO HUNGCK
1891 032337 325 11 0 00 032342 JUMPGE MA,.+3 ;PRINTER CNTL
1892 032340 201 01 0 00 040633 MOVEI 1,[ASCII /FT2/]
1893 032341 260 17 0 00 037027 GO PRINTA
1894 FMRQA 0^
1895 032342 200 00 0 00 041206 MOVE ACA# ;MEM READ AC
1896 032343 271 00 0 00 000000 ADDI 0
1897 032344 405 00 0 00 000017 ANDI 17
1898 032345 270 00 0 00 000016 ADD USERAC
1899 032346 336 00 0 00 000016 SKIPN USERAC
1900 032347 271 00 0 00 040000 ADDI JA
1901 032350 261 17 0 00 000000 PUT 0
1902 032351 405 00 0 00 777777 ANDI 0,-1
1903 032352 200 14 1 00 000000 MOVE AR,@0
1904 032353 262 17 0 00 000000 GET 0
1905 032354 603 11 0 00 010000 TLNE MA,FMEN ;MC FMEN?
1906 032355 254 00 0 00 032363 JRST FT2X ;YES.
1907 STORM FT2RQ^
1908 032356 260 17 0 00 037601 GO HUNGCK
1909 032357 607 11 0 00 600000 TLNN MA,MS+MT ;PRINTER CNTL
1910 032360 254 00 0 00 032363 JRST .+3
1911 032361 201 01 0 00 040634 MOVEI 1,[ASCII /FT2RQ/]
1912 032362 260 17 0 00 037027 GO PRINTA
1913 032363 FT2X: STORE FT3^
1914 032363 260 17 0 00 037601 GO HUNGCK
1915 032364 325 11 0 00 032367 JUMPGE MA,.+3 ;PRINTER CNTL
1916 032365 201 01 0 00 040635 MOVEI 1,[ASCII /FT3/]
1917 032366 260 17 0 00 037027 GO PRINTA
1918
1919 ;AR=C(AC)
1920 ;BR=(0,E) V C(E)
1921 ;MQ=0
1922 ;MA=E
1923
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 13
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0064
1924
1925 032367 606 02 0 00 070000 FT2Y: TRNN 2,FAC2+FCCLT+FCCRT
1926 032370 254 00 0 00 032466 JRST FT9 ;-(FAC2 V FCCACLT V FCCACRT)
1927 032371 606 02 0 00 040000 TRNN 2,FAC2
1928 032372 254 00 0 00 032437 JRST FT6 ;-FAC2
1929 032373 200 15 0 00 000014 FT4: MOVE MQ,AR ;MQ FM AD(J)
1930 032374 400 14 0 00 000000 SETZ AR, ;AR CLR
1931 STORM FT4^
1932 032375 260 17 0 00 037601 GO HUNGCK
1933 032376 607 11 0 00 600000 TLNN MA,MS+MT ;PRINTER CNTL
1934 032377 254 00 0 00 032402 JRST .+3
1935 032400 201 01 0 00 040636 MOVEI 1,[ASCII /FT4/]
1936 032401 260 17 0 00 037027 GO PRINTA
1937 FMRQA 1^
1938 032402 200 00 0 00 041206 MOVE ACA# ;MEM READ AC
1939 032403 271 00 0 00 000001 ADDI 1
1940 032404 405 00 0 00 000017 ANDI 17
1941 032405 270 00 0 00 000016 ADD USERAC
1942 032406 336 00 0 00 000016 SKIPN USERAC
1943 032407 271 00 0 00 040000 ADDI JA
1944 032410 261 17 0 00 000000 PUT 0
1945 032411 405 00 0 00 777777 ANDI 0,-1
1946 032412 200 14 1 00 000000 MOVE AR,@0
1947 032413 262 17 0 00 000000 GET 0
1948 032414 607 11 0 00 010000 FT4Y: TLNN MA,FMEN ;MC FMEN?
1949 032415 254 00 0 00 032424 JRST FT4X ;NO.
1950 032416 FT5: STORM FT5^
1951 032416 260 17 0 00 037601 GO HUNGCK
1952 032417 607 11 0 00 600000 TLNN MA,MS+MT ;PRINTER CNTL
1953 032420 254 00 0 00 032423 JRST .+3
1954 032421 201 01 0 00 040637 MOVEI 1,[ASCII /FT5/]
1955 032422 260 17 0 00 037027 GO PRINTA
1956 032423 254 00 0 00 032431 JRST FT4A
1957 032424 FT4X: STORM FT4RQ^
1958 032424 260 17 0 00 037601 GO HUNGCK
1959 032425 607 11 0 00 600000 TLNN MA,MS+MT ;PRINTER CNTL
1960 032426 254 00 0 00 032431 JRST .+3
1961 032427 201 01 0 00 040640 MOVEI 1,[ASCII /FT4RQ/]
1962 032430 260 17 0 00 037027 GO PRINTA
1963
1964 032431 250 14 0 00 000015 FT4A: EXCH AR,MQ ;MQ FM AD(J), AR FM MQ(J)
1965 STORE FT4A^
1966 032432 260 17 0 00 037601 GO HUNGCK
1967 032433 325 11 0 00 032436 JUMPGE MA,.+3 ;PRINTER CNTL
1968 032434 201 01 0 00 040641 MOVEI 1,[ASCII /FT4A/]
1969 032435 260 17 0 00 037027 GO PRINTA
1970 032436 254 00 0 00 032466 JRST FT9
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 14
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0065
1971
1972 ;FETCH CONT
1973
1974 032437 606 02 0 00 020000 FT6: TRNN 2,FCCLT ;FCCACRT?
1975 032440 254 00 0 00 032446 JRST FT7 ;YES...POP,POPJ
1976 032441 241 14 0 00 000022 ROT AR,^D18 ;AR SWAP
1977 STORE FT6^
1978 032442 260 17 0 00 037601 GO HUNGCK
1979 032443 325 11 0 00 032446 JUMPGE MA,.+3 ;PRINTER CNTL
1980 032444 201 01 0 00 040642 MOVEI 1,[ASCII /FT6/]
1981 032445 260 17 0 00 037027 GO PRINTA
1982
1983 032446 542 14 0 00 000011 FT7: HRRM AR,MA ;MA FM AR(J)
1984 032447 200 15 0 00 000014 MOVE MQ,AR ;MQ FM AR(J)
1985 032450 260 17 0 00 032072 MCRQ ;MC RD RQ
1986 STORM FT7^
1987 032451 260 17 0 00 037601 GO HUNGCK
1988 032452 607 11 0 00 600000 TLNN MA,MS+MT ;PRINTER CNTL
1989 032453 254 00 0 00 032456 JRST .+3
1990 032454 201 01 0 00 040643 MOVEI 1,[ASCII /FT7/]
1991 032455 260 17 0 00 037027 GO PRINTA
1992 032456 254 00 0 00 032414 JRST FT4Y
1993
1994 032457 204 14 0 00 000014 FT8: MOVS AR,AR ;IR FPIMM...AR SWAP.
1995 STORM FT8^
1996 032460 260 17 0 00 037601 GO HUNGCK
1997 032461 607 11 0 00 600000 TLNN MA,MS+MT ;PRINTER CNTL
1998 032462 254 00 0 00 032465 JRST .+3
1999 032463 201 01 0 00 040644 MOVEI 1,[ASCII /FT8/]
2000 032464 260 17 0 00 037027 GO PRINTA
2001 032465 254 00 0 00 032273 JRST FT0XA
2002
2003
2004 032466 606 02 0 00 000100 FT9: TRNN 2,PCINH ;PC+1 INHIBIT ON?
2005 032467 541 12 0 12 000001 HRRI PC,1(PC) ;NO. PC+1
2006 STORE FT9^
2007 032470 260 17 0 00 037601 GO HUNGCK
2008 032471 325 11 0 00 032474 JUMPGE MA,.+3 ;PRINTER CNTL
2009 032472 201 01 0 00 040645 MOVEI 1,[ASCII /FT9/]
2010 032473 260 17 0 00 037027 GO PRINTA
2011
2012 ;AR=C(AC) V C(AC) SWAPPED V (0,E) V C(E)
2013 ;BR=(0,E) V C(E) V JRST: LAST REF
2014 ;MQ=0 V C(AC2) V C(C(ACLT) V C(C(ACRT)
2015 ;MA=E V C(ACLT) V C(ACRT)
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 15
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0066
2016 ;EXECUTE CYCLE DISPATCH TO THE INSTRUCTION
2017
2018 032474 510 01 0 00 000007 GROUP: HLLZ 1, IR
2019 032475 246 01 0 00 777737 LSHC 1,-^D33
2020 032476 246 02 0 00 777737 LSHC 2,-^D33
2021 032477 242 03 0 00 777737 LSH 3,-^D33
2022 032500 254 00 1 01 032501 JRST @GROUPD(1)
2023
2024 032501 000000 033123 GROUPD: XWD 0,UUOSIM ;UU0
2025 032502 300 00 1 02 032541 CAI @IR100(2)
2026 032503 300 00 1 02 032511 CAI @MISDIS(2) ;MOVE, MISC, SUBROUTINE
2027 032504 000000 033420 XWD 0,SKIPJC ;SKIP JUMP COMPARE
2028 032505 000000 033574 XWD 0,BOOLE ;BOOLE
2029 032506 000000 033660 XWD 0,HALF ;HALF WORD
2030 032507 000000 033733 XWD 0,TEST ;AC BIT TEST
2031 032510 000000 033777 XWD 0,OP700 ;IN OUT
2032
2033 032511 000000 033067 MISDIS: XWD 0,FWT ;MOVE MOVS
2034 032512 000000 033076 XWD 0,FWTN ;MOVN MOVM
2035 032513 000000 036357 XWD 0,SMUL ;MULTIPLY
2036 032514 000000 036530 XWD 0,SDIV ;DIVIDE
2037 032515 000000 035175 XWD 0,SHROT ;SHIFT ROTATE + JFFO
2038 032516 300 00 1 03 032521 CAI @IR250(3) ;MISC
2039 032517 300 00 1 03 032531 CAI @IR260(3) ;SUBROUTINE
2040 032520 000000 033400 XWD 0,ADDSUB ;ADD SUB
2041
2042 032521 000000 033130 IR250: XWD 0,EXCH3 ;DISPATCH TO
2043 032522 000000 036755 XWD 0,BLTS ;IR 250 IR 257 CODES
2044 032523 000000 033132 XWD 0,AOBJX
2045 032524 000000 033132 XWD 0,AOBJX
2046 032525 000000 033143 XWD 0,JRSTS
2047 032526 000000 033167 XWD 0,JFCLS
2048 032527 000000 033213 XWD 0,XCTS
2049 032530 000000 033215 XWD 0,OP257
2050
2051 032531 000000 033216 IR260: XWD 0,PUSHJS ;DISPATCH TO SUBROUTINE
2052 032532 000000 033245 XWD 0,PUSHS ;CALLING AND RETURNING
2053 032533 000000 033270 XWD 0,POPJS ;INSTRUCTIONS
2054 032534 000000 033270 XWD 0,POPJS
2055 032535 000000 033326 XWD 0,JSRS
2056 032536 000000 033337 XWD 0,JSPS
2057 032537 000000 033343 XWD 0,JSAS
2058 032540 000000 033363 XWD 0,JRAS
2059
2060 032541 000000 033116 IR100: XWD 0,INSNC ;IR 100 TO 177
2061 032542 000000 033116 XWD 0,INSNC
2062 032543 000000 033116 XWD 0,INSNC
2063 032544 000000 040200 XWD 0,SBYTE ;BYTE,FSC,UFA,DFN
2064 032545 000000 035357 XWD 0,SFAD
2065 032546 000000 035355 XWD 0,SFSB
2066 032547 000000 035524 XWD 0,SFMP
2067 032550 000000 035516 XWD 0,SFDV
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 16
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0067
2068 ;STORE CYCLE
2069
2070 032551 334 02 0 00 040646 SKIPA 2,[XWD 0,-1]
2071 032552 474 02 0 00 000000 SS9: SETO 2,
2072 032553 254 00 0 00 032571 JRST XSS9
2073 032554 ST0: STORE ST0^
2074 032554 260 17 0 00 037601 GO HUNGCK
2075 032555 325 11 0 00 032560 JUMPGE MA,.+3 ;PRINTER CNTL
2076 032556 201 01 0 00 040647 MOVEI 1,[ASCII /ST0/]
2077 032557 260 17 0 00 037027 GO PRINTA
2078 032560 ST1: IFSWIT^
2079 032560 554 02 0 00 000007 HLRZ 2,IR ;GET INITIAL AND FINAL SWITCHES
2080 032561 246 02 0 00 777766 LSHC 2,-^D10
2081 032562 603 03 0 00 400000 TLNE 3,400000
2082 032563 334 02 0 02 034575 SKIPA 2,IFTAB(2) ;ODD
2083 032564 204 02 0 02 034575 MOVS 2,IFTAB(2) ;EVEN
2084 032565 606 02 0 00 000200 TRNN 2,SACZ ;STORE AC
2085 032566 254 00 0 00 032571 JRST .+3 ;ON SELF MODE INST
2086 032567 607 07 0 00 000740 TLNN IR,740
2087 032570 660 02 0 00 001000 TRO 2,SACINH
2088
2089 032571 200 00 0 00 041206 XSS9: MOVE 0,ACA#
2090 032572 270 00 0 00 000016 ADD USERAC
2091 032573 336 00 0 00 000016 SKIPN USERAC
2092 032574 271 00 0 00 040000 ADDI JA
2093 032575 261 17 0 00 000000 PUT 0
2094 032576 405 00 0 00 777777 ANDI 0,-1
2095 032577 261 17 1 00 000000 PUT @0
2096 032600 200 05 1 00 000000 MOVE CAC,@0 ;C(AC)
2097 032601 262 17 0 00 000000 GET 0
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 17
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0068
2098 032602 200 00 0 00 041206 MOVE 0,ACA#
2099 032603 271 00 0 00 000001 ADDI 1
2100 032604 405 00 0 00 000017 ANDI 17
2101 032605 270 00 0 00 000016 ADD USERAC
2102 032606 336 00 0 00 000016 SKIPN USERAC
2103 032607 271 00 0 00 040000 ADDI JA
2104 032610 261 17 0 00 000000 PUT 0
2105 032611 405 00 0 00 777777 ANDI 0,-1
2106 032612 200 06 1 00 000000 MOVE CAC1,@0 ;C(AC+1)
2107 032613 261 17 1 00 000000 PUT @0
2108 032614 262 17 0 00 000000 GET 0
2109
2110 032615 316 02 0 00 040650 CAMN 2,[-1]
2111 032616 254 00 0 00 032631 JRST XSS91
2112
2113 032617 200 00 0 00 000011 MOVE MA
2114 032620 270 00 0 00 000016 ADD USERAC
2115 032621 326 16 0 00 032624 JUMPN USERAC,.+3
2116 032622 606 00 0 00 777700 TRNN 777700
2117 032623 271 00 0 00 040000 ADDI JA
2118 032624 261 17 0 00 000000 PUT 0
2119 032625 405 00 0 00 777777 ANDI 0,-1
2120 032626 602 02 0 00 202000 TRNE 2,SCE+FCEPSE
2121 032627 200 04 1 00 000000 MOVE CE,@0 ;C(E)
2122 032630 262 17 0 00 000000 GET 0
2123 032631 261 17 0 00 000004 XSS91: PUT CE
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 18
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0069
2124 032632 200 00 0 00 041234 MOVE 0,IRA#
2125 032633 305 00 0 00 000140 CAIGE 0,140
2126 032634 307 00 0 00 000133 CAIG 0,133
2127 032635 304 00 0 00 000000 CAIA
2128 032636 620 02 0 00 200000 TRZ 2,FCEPSE
2129 032637 302 02 0 00 777777 CAIE 2,-1
2130 032640 316 02 0 00 040650 CAMN 2,[-1]
2131 032641 254 00 0 00 033051 JRST ST99
2132 032642 602 02 0 00 001000 TRNE 2,SACINH
2133 032643 254 00 0 00 032710 JRST ST1A
2134 032644 306 00 0 00 000130 CAIN 0,130 ;IR UFA?
2135 032645 254 00 0 00 032666 JRST ST1D ;YES...FMA AC2 SET
2136 032646 306 00 0 00 000243 CAIN 0,243 ;IR JFFO ?
2137 032647 254 00 0 00 032666 JRST ST1D ;YES...FMA AC2 SET
2138
2139 FMWRA 0^
2140 032650 202 14 0 00 000005 MOVEM AR,CAC+0 ;WRITE AC INTO CORE
2141 032651 607 11 0 00 100000 TLNN MA,SU
2142 032652 254 00 0 00 032665 JRST .+13
2143 032653 200 00 0 00 041206 MOVE ACA#
2144 032654 271 00 0 00 000000 ADDI 0
2145 032655 405 00 0 00 000017 ANDI 17
2146 032656 270 00 0 00 000016 ADD USERAC
2147 032657 336 00 0 00 000016 SKIPN USERAC
2148 032660 271 00 0 00 040000 ADDI JA
2149 032661 261 17 0 00 000000 PUT 0
2150 032662 405 00 0 00 777777 ANDI 0,-1
2151 032663 202 14 1 00 000000 MOVEM AR,@0
2152 032664 262 17 0 00 000000 GET 0
2153 032665 254 00 0 00 032703 JRST ST1E
2154
2155 032666 ST1D: FMWRA 1^
2156 032666 202 14 0 00 000006 MOVEM AR,CAC+1 ;WRITE AC INTO CORE
2157 032667 607 11 0 00 100000 TLNN MA,SU
2158 032670 254 00 0 00 032703 JRST .+13
2159 032671 200 00 0 00 041206 MOVE ACA#
2160 032672 271 00 0 00 000001 ADDI 1
2161 032673 405 00 0 00 000017 ANDI 17
2162 032674 270 00 0 00 000016 ADD USERAC
2163 032675 336 00 0 00 000016 SKIPN USERAC
2164 032676 271 00 0 00 040000 ADDI JA
2165 032677 261 17 0 00 000000 PUT 0
2166 032700 405 00 0 00 777777 ANDI 0,-1
2167 032701 202 14 1 00 000000 MOVEM AR,@0
2168 032702 262 17 0 00 000000 GET 0
2169 032703 ST1E: STORM ST1^
2170 032703 260 17 0 00 037601 GO HUNGCK
2171 032704 607 11 0 00 600000 TLNN MA,MS+MT ;PRINTER CNTL
2172 032705 254 00 0 00 032710 JRST .+3
2173 032706 201 01 0 00 040651 MOVEI 1,[ASCII /ST1/]
2174 032707 260 17 0 00 037027 GO PRINTA
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 19
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0070
2175 032710 602 02 0 00 206400 ST1A: TRNE 2,SAC2+SCE+FCEPSE+SARBR
2176 032711 254 00 0 00 032723 JRST ST1B
2177 032712 607 11 0 00 010000 TLNN MA,FMEN
2178 032713 602 02 0 00 001000 TRNE 2,SACINH
2179 032714 254 00 0 00 032716 JRST .+2
2180 032715 254 00 0 00 032723 JRST ST1B
2181 STORE ST1A^
2182 032716 260 17 0 00 037601 GO HUNGCK
2183 032717 325 11 0 00 032722 JUMPGE MA,.+3 ;PRINTER CNTL
2184 032720 201 01 0 00 040652 MOVEI 1,[ASCII /ST1A/]
2185 032721 260 17 0 00 037027 GO PRINTA
2186 032722 254 00 0 00 033054 JRST ST9
2187
2188 032723 603 11 0 00 010000 ST1B: TLNE MA,FMEN
2189 032724 254 00 0 00 032727 JRST ST1C
2190 032725 606 02 0 00 001000 TRNN 2,SACINH
2191 032726 254 00 0 00 032733 JRST ST2 ;GO ST2 FMEN(0) SACINH(0)
2192
2193 032727 606 02 0 00 004400 ST1C: TRNN 2,SARBR+SAC2 ;SACINH OR
2194 032730 254 00 0 00 033044 JRST ST1F ;FM(1) AND NOT SARBR OR SAC2
2195 032731 602 02 0 00 202000 TRNE 2,SCE+FCEPSE ;SACINH OR
2196 032732 254 04 0 00 032732 HALT . ;FM(1) AND SCE OR FCEPSE
2197
2198 032733 602 02 0 00 000400 ST2: TRNE 2,SARBR ;SAR NE BR?
2199 032734 200 14 0 00 000013 MOVE AR,BR ;YES..AR FM AD(J) ; BR
2200 STORE ST2^
2201 032735 260 17 0 00 037601 GO HUNGCK
2202 032736 325 11 0 00 032741 JUMPGE MA,.+3 ;PRINTER CNTL
2203 032737 201 01 0 00 040653 MOVEI 1,[ASCII /ST2/]
2204 032740 260 17 0 00 037027 GO PRINTA
2205 032741 606 02 0 00 206400 TRNN 2,SAC2+SCE+FCEPSE+SARBR
2206 032742 254 00 0 00 033054 JRST ST9
2207 032743 606 02 0 00 202400 TRNN 2,SCE+FCEPSE+SARBR
2208 032744 254 00 0 00 032765 JRST ST7
2209 032745 602 02 0 00 000400 TRNE 2,SARBR
2210 032746 254 00 0 00 033030 JRST ST3
2211 032747 606 02 0 00 200000 TRNN 2,FCEPSE
2212 032750 254 00 0 00 033017 JRST ST6
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 20
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0071
2213
2214 032751 260 17 0 00 032105 ST5: MCWR ;STORE PAUSE CYCLE
2215 STORM ST5^
2216 032752 260 17 0 00 037601 GO HUNGCK
2217 032753 607 11 0 00 600000 TLNN MA,MS+MT ;PRINTER CNTL
2218 032754 254 00 0 00 032757 JRST .+3
2219 032755 201 01 0 00 040654 MOVEI 1,[ASCII /ST5/]
2220 032756 260 17 0 00 037027 GO PRINTA
2221 032757 ST6A: STORE ST6A^
2222 032757 260 17 0 00 037601 GO HUNGCK
2223 032760 325 11 0 00 032763 JUMPGE MA,.+3 ;PRINTER CNTL
2224 032761 201 01 0 00 040655 MOVEI 1,[ASCII /ST6A/]
2225 032762 260 17 0 00 037027 GO PRINTA
2226 032763 606 02 0 00 004000 TRNN 2,SAC2
2227 032764 254 00 0 00 033054 JRST ST9
2228 032765 200 14 0 00 000015 ST7: MOVE AR,MQ ;AR FM MQ(J)
2229 STORE ST7^
2230 032766 260 17 0 00 037601 GO HUNGCK
2231 032767 325 11 0 00 032772 JUMPGE MA,.+3 ;PRINTER CNTL
2232 032770 201 01 0 00 040656 MOVEI 1,[ASCII /ST7/]
2233 032771 260 17 0 00 037027 GO PRINTA
2234 032772 ST8: FMWRA 1^
2235 032772 202 14 0 00 000006 MOVEM AR,CAC+1 ;WRITE AC INTO CORE
2236 032773 607 11 0 00 100000 TLNN MA,SU
2237 032774 254 00 0 00 033007 JRST .+13
2238 032775 200 00 0 00 041206 MOVE ACA#
2239 032776 271 00 0 00 000001 ADDI 1
2240 032777 405 00 0 00 000017 ANDI 17
2241 033000 270 00 0 00 000016 ADD USERAC
2242 033001 336 00 0 00 000016 SKIPN USERAC
2243 033002 271 00 0 00 040000 ADDI JA
2244 033003 261 17 0 00 000000 PUT 0
2245 033004 405 00 0 00 777777 ANDI 0,-1
2246 033005 202 14 1 00 000000 MOVEM AR,@0
2247 033006 262 17 0 00 000000 GET 0
2248 STORM ST8^
2249 033007 260 17 0 00 037601 GO HUNGCK
2250 033010 607 11 0 00 600000 TLNN MA,MS+MT ;PRINTER CNTL
2251 033011 254 00 0 00 033014 JRST .+3
2252 033012 201 01 0 00 040657 MOVEI 1,[ASCII /ST8/]
2253 033013 260 17 0 00 037027 GO PRINTA
2254 033014 254 00 0 00 033054 JRST ST9
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 21
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0072
2255 033015 606 02 0 00 002000 ST2B: TRNN 2,SCE
2256 033016 254 00 0 00 033026 JRST ST2C
2257 033017 260 17 0 00 032105 ST6: MCWR ;MEM WRITE
2258 STORM ST6^
2259 033020 260 17 0 00 037601 GO HUNGCK
2260 033021 607 11 0 00 600000 TLNN MA,MS+MT ;PRINTER CNTL
2261 033022 254 00 0 00 033025 JRST .+3
2262 033023 201 01 0 00 040660 MOVEI 1,[ASCII /ST6/]
2263 033024 260 17 0 00 037027 GO PRINTA
2264 033025 254 00 0 00 032757 JRST ST6A
2265 033026 606 02 0 00 000400 ST2C: TRNN 2,SARBR
2266 033027 254 00 0 00 033037 JRST ST2D
2267 033030 ST3: STORE ST3^
2268 033030 260 17 0 00 037601 GO HUNGCK
2269 033031 325 11 0 00 033034 JUMPGE MA,.+3 ;PRINTER CNTL
2270 033032 201 01 0 00 040661 MOVEI 1,[ASCII /ST3/]
2271 033033 260 17 0 00 037027 GO PRINTA
2272 033034 606 02 0 00 200000 TRNN 2,FCEPSE
2273 033035 254 00 0 00 033017 JRST ST6
2274 033036 254 00 0 00 032751 JRST ST5
2275
2276 033037 606 02 0 00 004000 ST2D: TRNN 2,SAC2
2277 033040 265 01 0 00 033065 JSP 1,SIMER ;SIMULATE ERROR
2278 033041 606 02 0 00 202400 TRNN 2,SCE+FCEPSE+SARBR
2279 033042 254 00 0 00 032765 JRST ST7
2280 033043 265 01 0 00 033065 JSP 1, SIMER
2281
2282 033044 602 02 0 00 200000 ST1F: TRNE 2,FCEPSE
2283 033045 254 00 0 00 032751 JRST ST5
2284 033046 602 02 0 00 002000 TRNE 2,SCE
2285 033047 254 00 0 00 033017 JRST ST6
2286 033050 254 00 0 00 033065 JRST SIMER
2287
2288 033051 302 02 0 00 777777 ST99: CAIE 2,-1
2289 033052 254 00 0 00 033054 JRST ST9
2290 033053 260 17 0 00 032105 MCWR
2291 033054 ST9: STORE ST9^
2292 033054 260 17 0 00 037601 GO HUNGCK
2293 033055 325 11 0 00 033060 JUMPGE MA,.+3 ;PRINTER CNTL
2294 033056 201 01 0 00 040662 MOVEI 1,[ASCII /ST9/]
2295 033057 260 17 0 00 037027 GO PRINTA
2296 033060 262 17 0 00 000003 ST9E: GET 3
2297 033061 262 17 0 00 000002 GET 2
2298 033062 262 17 0 00 000001 GET 1
2299 033063 262 17 0 00 000000 GET 0
2300 033064 263 17 0 00 000000 RTN
2301
2302 033065 661 11 0 00 004000 SIMER: TLO MA,ERR ;SIMULATE ERROR
2303 033066 254 00 0 00 033060 JRST ST9E
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 22
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0073
2304
2305 ;FULL WORD TRANSFERS 20X AND 21X CODE
2306
2307 033067 603 07 0 00 004000 FWT: TLNE IR,4000 ;MOVE OR MOVS
2308 033070 241 14 0 00 000022 ROT AR,^D18 ;MOVSX...AR RM AR SW(J)
2309 033071 FWTET0: STORE ET0^
2310 033071 260 17 0 00 037601 GO HUNGCK
2311 033072 325 11 0 00 033075 JUMPGE MA,.+3 ;PRINTER CNTL
2312 033073 201 01 0 00 040663 MOVEI 1,[ASCII /ET0/]
2313 033074 260 17 0 00 037027 GO PRINTA
2314 033075 254 00 0 00 032560 JRST ST1
2315
2316 033076 603 07 0 00 004000 FWTN: TLNE IR,4000 ;MOVN OR MOVM
2317 033077 325 14 0 00 033071 JUMPGE AR,FWTET0 ;MOVM AND AR POSITIVE
2318 033100 255 17 0 00 033101 JFCL 17,.+1
2319 033101 460 03 0 00 000014 SETCM AD,AR ;AD AR-EN SET
2320 033102 271 03 0 00 000001 ADDI AD,1 ;AD CRY36 SET
2321 033103 200 14 0 00 000003 MOVE AR,AD ;AR FM AD(J)
2322 033104 255 10 0 00 033110 MTF: JOV MOV
2323 033105 255 02 0 00 033112 JCRY1 MCRY1
2324 033106 255 04 0 00 033114 JCRY0 MCRY0
2325 033107 254 00 0 00 033071 JRST FWTET0
2326
2327 033110 661 12 0 00 400000 MOV: TLO PC,AROV
2328 033111 254 00 0 00 033105 JRST MTF+1
2329 033112 661 12 0 00 100000 MCRY1: TLO PC,CRY1
2330 033113 254 00 0 00 033106 JRST MTF+2
2331 033114 661 12 0 00 200000 MCRY0: TLO PC,CRY0
2332 033115 254 00 0 00 033071 JRST FWTET0
2333
2334 ;INSTRUCTIONS NOT YET CODED
2335 033116 INSNC: STORE NC^
2336 033116 260 17 0 00 037601 GO HUNGCK
2337 033117 325 11 0 00 033122 JUMPGE MA,.+3 ;PRINTER CNTL
2338 033120 201 01 0 00 040664 MOVEI 1,[ASCII /NC/]
2339 033121 260 17 0 00 037027 GO PRINTA
2340 033122 254 00 0 00 032560 JRST ST1
2341
2342 ;SIMULATE UUO'S
2343
2344 033123 500 14 0 00 000007 UUOSIM: HLL AR,IR ;ARLT FM IR0-12(1)
2345 033124 661 11 0 00 060000 TLO MA,EXCTF+EUUOF ;EXCTF AND EUUOF SET
2346 033125 660 11 0 00 000040 TRO MA,40 ;MA 30 SET
2347 033126 202 14 0 00 000040 MOVEM AR,OFFSET+40 ;PATCH FOR UUO'S
2348 033127 254 00 0 00 033071 JRST FWTET0 ;YES. PRINT ET0..GO TO ST1
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 23
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0074
2349
2350 ;OP CODE 250 EXCH
2351
2352 033130 245 13 0 00 000044 EXCH3: ROTC BR,^D36 ;AR FM AD(J), BR FM AR(J)
2353 033131 254 00 0 00 033071 JRST FWTET0 ;PRINT ET0..GO TO ST1
2354
2355
2356
2357 ;OP CODE 252 AND 253 AOBJX
2358
2359 033132 265 02 0 00 033263 AOBJX: JSP 2,PUSET0 ;AD AR+EN,AD+1 BOTH
2360 033133 200 14 0 00 000003 MOVE AR,AD ;AR FM AD(J)
2361 033134 603 07 0 00 001000 TLNE IR,1000
2362 033135 321 14 0 00 033141 JUMPL AR,AOBJJ ;AOBJN AND AD0(1)
2363 033136 607 07 0 00 001000 TLNN IR,1000
2364 033137 325 14 0 00 033141 JUMPGE AR,AOBJJ ;AOBJP AND AD0(0)
2365 033140 254 00 0 00 033071 JRST FWTET0 ;PRINT ET0...GO TO ST1
2366
2367 033141 540 12 0 00 000011 AOBJJ: HRR PC,MA ;PC FM MA(J)
2368 033142 254 00 0 00 033071 JRST FWTET0 ;PRINT ET0...GO TO ST1
2369
2370 033143 202 12 0 00 041257 JRSTS: MOVEM PC,TEMP#
2371 033144 540 12 0 00 000011 HRR PC,MA ;MA FM PC(J)
2372 033145 540 11 0 00 041257 HRR MA,TEMP# ;PC FM MA(J)
2373 033146 603 07 0 00 000040 TLNE IR,40 ;IR12(1)?
2374 033147 661 11 0 00 001000 TLO MA,EXSYNC ;YES...SET USER MODE BIT
2375 033150 603 07 0 00 000200 TLNE IR,200 ;IR10(1)?
2376 033151 621 11 0 00 000400 TLZ MA,RUN ;YES..HALT INSTRUCTION..(CLR RUN)
2377 033152 603 07 0 00 000400 TLNE IR,400 ;IR9(1)?
2378 033153 621 11 0 00 000000 TLZ MA,0 ;YES..RELEASE PI CHANNEL
2379 033154 607 07 0 00 000100 TLNN IR,100 ;IR11(1)?
2380 033155 324 00 0 00 033162 JUMPA JRSET0
2381 033156 621 12 0 00 770140 TLZ PC,770140 ;YES..AR FLAGS FM BR(J)
2382 033157 205 00 0 00 770140 MOVSI 770140
2383 033160 404 00 0 00 000013 AND BR
2384 033161 436 00 0 00 000012 IORM PC
2385 033162 JRSET0: STORE ET0^
2386 033162 260 17 0 00 037601 GO HUNGCK
2387 033163 325 11 0 00 033166 JUMPGE MA,.+3 ;PRINTER CNTL
2388 033164 201 01 0 00 040663 MOVEI 1,[ASCII /ET0/]
2389 033165 260 17 0 00 037027 GO PRINTA
2390 033166 324 00 0 00 032560 JUMPA ST1
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 24
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0075
2391
2392 ;OP COPE 255 JFCL
2393
2394 033167 400 00 0 00 000000 JFCLS: SETZ
2395 033170 603 07 0 00 000040 TLNE IR,40 ;IR BIT 12(1)?
2396 033171 627 12 0 00 040000 TLZN PC,FOV ;YES. CLEAR FOV AND SET
2397 033172 304 00 0 00 000000 CAIA ;AC0 FOR PC TRANSFER
2398 033173 474 00 0 00 000000 SETO ;IF FOV WAS SET.
2399 033174 603 07 0 00 000100 TLNE IR,100 ;IR BIT 11(1)?
2400 033175 627 12 0 00 100000 TLZN PC,CRY1 ;YES. CLEAR CRY1 AND SET
2401 033176 304 00 0 00 000000 CAIA ;AC0 FOR PC TRANSFER
2402 033177 474 00 0 00 000000 SETO ;IF CRY1 WAS SET
2403 033200 603 07 0 00 000200 TLNE IR,200 ;IR BIT 10(1)?
2404 033201 627 12 0 00 200000 TLZN PC,CRY0 ;YES. CLEAR CRY0 AND SET
2405 033202 304 00 0 00 000000 CAIA ;AC0 FOR PC TRANSFER
2406 033203 474 00 0 00 000000 SETO ;IF CRY0 WAS SET
2407 033204 603 07 0 00 000400 TLNE IR,400 ;IR BIT 9(1)?
2408 033205 627 12 0 00 400000 TLZN PC,AROV ;YES. CLEAR AROV AND SET
2409 033206 304 00 0 00 000000 CAIA ;AC0 FOR PC TRANSFER
2410 033207 474 00 0 00 000000 SETO ;IF AROV WAS SET.
2411 033210 335 00 0 00 000000 SKIPGE ;IF AC=0 NO PC TRANSFER
2412 033211 540 12 0 00 000011 HRR PC,MA ;PC FM MA(J)
2413 033212 254 00 0 00 033071 JRST FWTET0 ;PRINT ET0..GO TO ST1
2414
2415 ;OP CODE 256 XCT
2416
2417 033213 661 11 0 00 040000 XCTS: TLO MA,EXCTF ;SET A FLOP TO INH PC TO MA
2418 033214 254 00 0 00 033071 JRST FWTET0 ;PRINT ET0...GO TO ST1
2419
2420 ;OP CODE 257 NOT PRESENTLY USED
2421
2422 033215 254 00 0 00 032560 OP257: JRST ST1
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 25
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0076
2423
2424 ;OP CODE 260,261 PUSH,PUSHJ
2425
2426 033216 265 02 0 00 033263 PUSHJS: JSP 2,PUSET0 ;AD AR+EN, AD+1 BOTH
2427 033217 335 00 0 00 000001 SKIPGE 1 ;AD CRY0?
2428 033220 476 00 0 00 041242 SETOM PDLOVW# ;YES. CPA PDLOV SET
2429 033221 200 14 0 00 000012 MOVE AR,PC ;AR FM PC,FLAGS(J)
2430 033222 621 12 0 00 020000 TLZ PC,BIS ;CLEAR BIS
2431 033223 200 15 0 00 000003 MOVE MQ,AD ;MQ FM AD(J)
2432 033224 540 12 0 00 000011 HRR PC,MA ;PC FM MA(J)
2433 STORE ET0^
2434 033225 260 17 0 00 037601 GO HUNGCK
2435 033226 325 11 0 00 033231 JUMPGE MA,.+3 ;PRINTER CNTL
2436 033227 201 01 0 00 040663 MOVEI 1,[ASCII /ET0/]
2437 033230 260 17 0 00 037027 GO PRINTA
2438 033231 200 13 0 00 000014 MOVE BR,AR ;BR FM AR(J)
2439 033232 200 14 0 00 000015 MOVE AR,MQ ;AR FM MQ(J)
2440 STORE ET1^
2441 033233 260 17 0 00 037601 GO HUNGCK
2442 033234 325 11 0 00 033237 JUMPGE MA,.+3 ;PRINTER CNTL
2443 033235 201 01 0 00 040665 MOVEI 1,[ASCII /ET1/]
2444 033236 260 17 0 00 037027 GO PRINTA
2445 033237 540 11 0 00 000014 HRR MA,AR ;MA FM AR(J)
2446 033240 PUSET2: STORE ET2^
2447 033240 260 17 0 00 037601 GO HUNGCK
2448 033241 325 11 0 00 033244 JUMPGE MA,.+3 ;PRINTER CNTL
2449 033242 201 01 0 00 040666 MOVEI 1,[ASCII /ET2/]
2450 033243 260 17 0 00 037027 GO PRINTA
2451 033244 254 00 0 00 032560 JRST ST1
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 26
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0077
2452 033245 265 02 0 00 033263 PUSHS: JSP 2,PUSET0 ;PUSH
2453 033246 335 00 0 00 000001 SKIPGE 1
2454 033247 476 00 0 00 041242 SETOM PDLOVW ;CPA PDLOV SET
2455 033250 200 14 0 00 000003 MOVE AR,AD ;AR FM AD(J)
2456 STORE ET0^
2457 033251 260 17 0 00 037601 GO HUNGCK
2458 033252 325 11 0 00 033255 JUMPGE MA,.+3 ;PRINTER CNTL
2459 033253 201 01 0 00 040663 MOVEI 1,[ASCII /ET0/]
2460 033254 260 17 0 00 037027 GO PRINTA
2461 033255 540 11 0 00 000014 HRR MA,AR ;MA FM AR(J)
2462 033256 PUSET1: STORE ET1^
2463 033256 260 17 0 00 037601 GO HUNGCK
2464 033257 325 11 0 00 033262 JUMPGE MA,.+3 ;PRINTER CNTL
2465 033260 201 01 0 00 040665 MOVEI 1,[ASCII /ET1/]
2466 033261 260 17 0 00 037027 GO PRINTA
2467 033262 254 00 0 00 032560 JRST ST1
2468
2469 033263 200 01 0 00 000014 PUSET0: MOVE 1,AR
2470 033264 200 03 0 00 000014 MOVE AD,AR ;AD AR+EN SET
2471 033265 270 03 0 00 040667 ADD AD,[1000001] ;AD+1 BOTH
2472 033266 430 01 0 00 000003 XOR 1,AD
2473 033267 254 00 0 02 000000 JRST (2)
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 27
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0078
2474
2475 ;OP CODE 262,263 POP,POPJ
2476
2477 033270 200 03 0 00 000014 POPJS: MOVE AD,AR ;AD AR+EN SET
2478 033271 270 03 0 00 040650 ADD AD,[-1] ;AD BR + AND - EN
2479 033272 274 03 0 00 040670 SUB AD,[1000000] ;AD-1 LH SET
2480 033273 430 14 0 00 000003 XOR AR,AD
2481 033274 335 00 0 00 000014 SKIPGE AR ;-AD CRY0?
2482 033275 476 00 0 00 041242 SETOM PDLOVW ;YES. SET CPA PDLOV.
2483 033276 200 14 0 00 000015 MOVE AR,MQ ;AR FM MQ(J)
2484 033277 200 15 0 00 000003 MOVE MQ,AD ;MQ FM AD(J)
2485 STORE ET0^
2486 033300 260 17 0 00 037601 GO HUNGCK
2487 033301 325 11 0 00 033304 JUMPGE MA,.+3 ;PRINTER CNTL
2488 033302 201 01 0 00 040663 MOVEI 1,[ASCII /ET0/]
2489 033303 260 17 0 00 037027 GO PRINTA
2490 033304 607 07 0 00 001000 TLNN IR,1000
2491 033305 254 00 0 00 033316 JRST POPS ;A POP INSTRUCTION
2492
2493 033306 540 11 0 00 000014 POPJS1: HRR MA,AR ;MA FM AR(J)
2494 033307 200 14 0 00 000015 MOVE AR,MQ ;AR FM MQ(J)
2495 STORE ET1^
2496 033310 260 17 0 00 037601 GO HUNGCK
2497 033311 325 11 0 00 033314 JUMPGE MA,.+3 ;PRINTER CNTL
2498 033312 201 01 0 00 040665 MOVEI 1,[ASCII /ET1/]
2499 033313 260 17 0 00 037027 GO PRINTA
2500 033314 540 12 0 00 000011 HRR PC,MA ;PC FM MA(J)
2501 033315 254 00 0 00 033240 JRST PUSET2 ;PRINT ET2..GO TO ST1
2502
2503 033316 250 14 0 00 000013 POPS: EXCH AR,BR ;AR FM AD(J), BR FM AR(J)
2504 STORE ET1^
2505 033317 260 17 0 00 037601 GO HUNGCK
2506 033320 325 11 0 00 033323 JUMPGE MA,.+3 ;PRINTER CNTL
2507 033321 201 01 0 00 040665 MOVEI 1,[ASCII /ET1/]
2508 033322 260 17 0 00 037027 GO PRINTA
2509 033323 540 11 0 00 000014 HRR MA,AR ;MA FM AR(J)
2510 033324 200 14 0 00 000015 MOVE AR,MQ ;AR FM MQ(J)
2511 033325 254 00 0 00 033240 JRST PUSET2 ;PRINT ET2..GO TO ST1
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 28
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0079
2512
2513 ;OP CODE 264 JSR
2514
2515 033326 200 14 0 00 000012 JSRS: MOVE AR,PC ;ARRT FM PC(J),ARLT FLAGS(J)
2516 033327 621 12 0 00 020000 TLZ PC,BIS ;CLEAR BIS
2517 033330 540 12 0 00 000011 HRR PC,MA ;PC FM MA(J)
2518 STORE ET0^
2519 033331 260 17 0 00 037601 GO HUNGCK
2520 033332 325 11 0 00 033335 JUMPGE MA,.+3 ;PRINTER CNTL
2521 033333 201 01 0 00 040663 MOVEI 1,[ASCII /ET0/]
2522 033334 260 17 0 00 037027 GO PRINTA
2523 033335 541 12 0 12 000001 HRRI PC,1(PC) ;PC+1
2524 033336 254 00 0 00 033240 JRST PUSET2 ;PRINT ET2..GO TO ST1
2525
2526 ;OP CODE 265 JSP
2527
2528 033337 200 14 0 00 000012 JSPS: MOVE AR,PC ;ARRT FM PC(J),ARLT FM FLAGS(J)
2529 033340 621 12 0 00 020000 TLZ PC,BIS ;CLEAR BIS
2530 033341 540 12 0 00 000011 HRR PC,MA ;PC FM MA(J)
2531 033342 254 00 0 00 033071 JRST FWTET0 ;PRINT ET0..GO TO ST1
2532
2533
2534 ;OP CODE 266 JSA
2535
2536 033343 200 13 0 00 000014 JSAS: MOVE BR,AR ;BR FM AR(J)
2537 033344 540 14 0 00 000012 HRR AR,PC ;ARRT FM PC(J)
2538 033345 540 12 0 00 000011 HRR PC,MA ;PC FM MA(J)
2539 STORE ET0^
2540 033346 260 17 0 00 037601 GO HUNGCK
2541 033347 325 11 0 00 033352 JUMPGE MA,.+3 ;PRINTER CNTL
2542 033350 201 01 0 00 040663 MOVEI 1,[ASCII /ET0/]
2543 033351 260 17 0 00 037027 GO PRINTA
2544 033352 504 14 0 00 000014 HRL AR,AR ;ARLT FM ARRT(J)
2545 033353 540 14 0 00 000012 HRR AR,PC ;ARRT FM PC(J)
2546 STORE ET1^
2547 033354 260 17 0 00 037601 GO HUNGCK
2548 033355 325 11 0 00 033360 JUMPGE MA,.+3 ;PRINTER CNTL
2549 033356 201 01 0 00 040665 MOVEI 1,[ASCII /ET1/]
2550 033357 260 17 0 00 037027 GO PRINTA
2551 033360 541 12 0 12 000001 HRRI PC,1(PC) ;PC+1
2552 033361 207 00 0 00 000014 MOVSS AR ;AR SWAP
2553 033362 254 00 0 00 033240 JRST PUSET2 ;PRINT ET2..GO TO ST1
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 29
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0080
2554
2555 ;OP CODE 267 JRA
2556
2557 033363 200 14 0 00 000013 JRAS: MOVE AR,BR ;AR FM AD(J)
2558 STORE ET0^
2559 033364 260 17 0 00 037601 GO HUNGCK
2560 033365 325 11 0 00 033370 JUMPGE MA,.+3 ;PRINTER CNTL
2561 033366 201 01 0 00 040663 MOVEI 1,[ASCII /ET0/]
2562 033367 260 17 0 00 037027 GO PRINTA
2563 033370 540 11 0 00 000014 HRR MA,AR ;MA FM AR(J)
2564 033371 200 14 0 00 000015 MOVE AR,MQ ;AR FM MQ(J)
2565 STORE ET1^
2566 033372 260 17 0 00 037601 GO HUNGCK
2567 033373 325 11 0 00 033376 JUMPGE MA,.+3 ;PRINTER CNTL
2568 033374 201 01 0 00 040665 MOVEI 1,[ASCII /ET1/]
2569 033375 260 17 0 00 037027 GO PRINTA
2570 033376 540 12 0 00 000011 HRR PC,MA ;PC FM MA(J)
2571 033377 254 00 0 00 033240 JRST PUSET2 ;PRINT ET2..GO TO ST1
2572
2573
2574 ;CODE 270 ADD SUB
2575
2576 033400 255 17 0 00 033401 ADDSUB: JFCL 17,.+1 ;CLR ALL FLAGS
2577 033401 200 03 0 00 000014 MOVE AD,AR
2578 033402 603 07 0 00 004000 TLNE IR,4000 ;IR SUBTRACT?
2579 033403 274 14 0 00 000013 SUB AR,BR ;YES.
2580 033404 607 07 0 00 004000 TLNN IR,4000 ;IR ADD?
2581 033405 270 14 0 00 000013 ADD AR,BR ;YES.
2582 033406 255 10 0 00 033412 ASTF: JOV ASOVS
2583 033407 255 02 0 00 033414 JCRY1 ASCRY1
2584 033410 255 04 0 00 033416 JCRY0 ASCRY0
2585 033411 254 00 0 00 033071 JRST FWTET0 ;PRINT ET0..GO TO ST1
2586
2587 033412 661 12 0 00 400000 ASOVS: TLO PC,AROV
2588 033413 254 00 0 00 033407 JRST ASTF+1
2589 033414 661 12 0 00 100000 ASCRY1: TLO PC, CRY1
2590 033415 254 00 0 00 033410 JRST ASTF+2
2591 033416 661 12 0 00 200000 ASCRY0: TLO PC,CRY0
2592 033417 254 00 0 00 033071 JRST FWTET0 ;PRINT ET0..GO TO ST1
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 30
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0081
2593 ;EXECUTE CYCLE 3XX CODES SKIP, JUMP, CAM
2594
2595 033420 400 00 0 00 000000 SKIPJC: SETZ 0,
2596
2597 033421 250 00 0 00 041234 EXCH 0,IRA
2598 033422 312 00 0 00 040671 CAME 0,[SOS_-^D27]
2599 033423 254 00 0 00 033426 JRST .+3
2600 033424 370 00 0 00 000014 SOS AR ;BUG FIX FOR FLAGS ON SOS
2601 033425 254 00 0 00 033514 JRST ASTF1
2602 033426 312 00 0 00 040672 CAME 0,[SOJ_-^D27]
2603 033427 254 00 0 00 033432 JRST .+3
2604 033430 360 14 0 00 000000 SOJ AR, ;BUG FIX FOR FLAGS ON SOJ
2605 033431 254 00 0 00 033514 JRST ASTF1
2606
2607 033432 250 00 0 00 041234 EXCH 0,IRA
2608 033433 460 03 0 00 000014 SETCM AD,AR
2609 033434 556 07 0 00 000002 HLRZM IR,2 ;AC 2 = DISPATCHER
2610 033435 242 02 0 00 777763 LSH 2,-^D13
2611 033436 201 01 0 00 000001 MOVEI 1,1
2612 033437 603 07 0 00 060000 TLNE IR, 60000 ;IS IT A JUMP INSTRUCTION
2613 033440 603 07 0 00 010000 TLNE IR,10000
2614 033441 400 01 0 00 000000 SETZ 1, ;NO A SKIP
2615 033442 256 00 0 02 033525 XCT SJCTAB-14(2) ;ADD, SUBTRACT, OR DO NOTHING
2616 033443 462 00 0 00 000003 SETCMM AD ;RESTORE NUMBERS
2617 033444 261 17 0 00 000003 PUT AD
2618 033445 315 07 0 00 040673 CAMGE IR,[XWD 320000,0]
2619 033446 254 00 0 00 033521 JRST KM3
2620
2621 033447 603 03 0 00 400000 KM: TLNE AD,400000
2622 033450 474 00 0 00 000000 SETO 0,
2623 033451 255 17 0 00 033452 JFCL 17,.+1
2624 033452 240 03 0 00 000044 ASH AD,^D36 ;SET OV IF NOT ZERO
2625 033453 200 03 0 17 000000 MOVE AD,(P)
2626 033454 603 07 0 00 001000 TLNE IR,1000
2627 033455 254 00 0 00 033516 JRST KM2
2628 033456 607 07 0 00 002000 KM1: TLNN IR,2000
2629 033457 254 00 0 00 033462 JRST PCSK+1
2630 033460 255 10 0 00 033462 JOV .+2
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 31
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0082
2631 033461 450 01 0 00 000000 PCSK: SETCA 1, ;IR7(1) AND AD=0
2632 033462 607 07 0 00 004000 TLNN IR,4000
2633 033463 450 01 0 00 000000 SETCA 1, ;NEGATE SKIP ACTION ON IR6
2634 033464 250 00 0 00 041234 EXCH 0,IRA
2635 033465 316 00 0 00 040674 CAMN 0,[CAML_-^D27] ;BUG FIX FOR MAX POS AND MAX NEG # COMP
2636 033466 254 00 0 00 033545 JRST CAMSK0
2637 033467 316 00 0 00 040675 CAMN 0,[CAMLE_-^D27]
2638 033470 254 00 0 00 033551 JRST CAMSK1
2639 033471 316 00 0 00 040676 CAMN 0,[CAMG_-^D27]
2640 033472 254 00 0 00 033555 JRST CAMSK2
2641 033473 316 00 0 00 040677 CAMN 0,[CAMGE_-^D27]
2642 033474 254 00 0 00 033561 JRST CAMSK3
2643 033475 316 00 0 00 040700 CAMN 0,[CAMN_-^D27]
2644 033476 254 00 0 00 033565 JRST CAMSK4
2645 033477 316 00 0 00 040701 CAMN 0,[SKIPN_-^D27]
2646 033500 254 00 0 00 033571 JRST CAMSK5
2647 033501 256 00 0 01 033537 XCT STAB(1)
2648 033502 250 00 0 00 041234 PCSK1: EXCH 0,IRA
2649 033503 607 07 0 00 060000 TLNN IR,60000
2650 033504 254 00 0 00 033512 JRST SJCET0-1 ;A CAM OR CAI INST
2651 033505 430 03 0 00 000014 XOR AD,AR
2652 033506 603 03 0 00 400000 TLNE AD,400000 ;FIX UP
2653 033507 661 12 0 00 200000 TLO PC,CRY0 ;THE CRY0
2654 033510 603 03 0 00 200000 TLNE AD,200000 ;AND CRY1 FLAGS
2655 033511 661 12 0 00 100000 TLO PC,CRY1 ;FOR THE SKIP/JUMP
2656 033512 262 17 0 00 000014 GET AR ;INST AD GOES TO AR
2657 033513 254 00 0 00 033071 SJCET0: JRST FWTET0 ;PRINT ET0..GO TO ST1
2658 033514 250 00 0 00 041234 ASTF1: EXCH 0,IRA
2659 033515 254 00 0 00 033406 JRST ASTF
2660
2661 033516 332 00 0 00 000000 KM2: SKIPE 0
2662 033517 254 00 0 00 033461 JRST PCSK
2663 033520 254 00 0 00 033456 JRST KM1
2664
2665 033521 603 03 0 00 400000 KM3: TLNE AD,400000
2666 033522 254 00 0 00 033530 JRST KM4
2667 033523 255 04 0 00 033526 JCRY0 .+3
2668 033524 255 02 0 00 033450 JCRY1 KM+1
2669 033525 254 00 0 00 033451 JRST KM+2
2670 033526 255 02 0 00 033451 JCRY1 KM+2
2671 033527 254 00 0 00 033450 JRST KM+1
2672
2673 033530 255 04 0 00 033533 KM4: JCRY0 .+3
2674 033531 255 02 0 00 033451 JCRY1 KM+2
2675 033532 254 00 0 00 033450 JRST KM+1
2676 033533 255 02 0 00 033450 JCRY1 KM+1
2677 033534 254 00 0 00 033451 JRST KM+2
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 32
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0083
2678 033535 241 00 0 00 000000 ROT
2679 033536 241 00 0 00 000000 ROT
2680 033537 541 12 0 12 000001 STAB: HRRI PC,1(PC)
2681 033540 540 12 0 00 000011 HRR PC,MA
2682 033541 270 03 0 00 000013 SJCTAB: ADD AD,BR
2683 033542 241 00 0 00 000000 ROT
2684 033543 275 03 0 00 000001 SUBI AD,1
2685 033544 271 03 0 00 000001 ADDI AD,1
2686
2687 033545 311 14 0 00 000013 CAMSK0: CAML AR,BR
2688 033546 254 00 0 00 033502 JRST PCSK1
2689 033547 350 00 0 00 000012 AOS PC
2690 033550 254 00 0 00 033502 JRST PCSK1
2691
2692 033551 313 14 0 00 000013 CAMSK1: CAMLE AR,BR
2693 033552 254 00 0 00 033502 JRST PCSK1
2694 033553 350 00 0 00 000012 AOS PC
2695 033554 254 00 0 00 033502 JRST PCSK1
2696
2697 033555 317 14 0 00 000013 CAMSK2: CAMG AR,BR
2698 033556 254 00 0 00 033502 JRST PCSK1
2699 033557 350 00 0 00 000012 AOS PC
2700 033560 254 00 0 00 033502 JRST PCSK1
2701
2702 033561 315 14 0 00 000013 CAMSK3: CAMGE AR,BR
2703 033562 254 00 0 00 033502 JRST PCSK1
2704 033563 350 00 0 00 000012 AOS PC
2705 033564 254 00 0 00 033502 JRST PCSK1
2706
2707 033565 316 14 0 00 000013 CAMSK4: CAMN AR,BR
2708 033566 254 00 0 00 033502 JRST PCSK1
2709 033567 350 00 0 00 000012 AOS PC
2710 033570 254 00 0 00 033502 JRST PCSK1
2711
2712 033571 332 00 0 00 000014 CAMSK5: SKIPE AR
2713 033572 350 00 0 00 000012 AOS PC
2714 033573 254 00 0 00 033502 JRST PCSK1
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 33
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0084
2715 ;BOOLE OPERATIONS 4XX CODES
2716 033574 556 07 0 00 000002 BOOLE: HLRZM IR,2 ;IR BITS FOR BOOLE 0-17
2717 033575 242 02 0 00 777765 LSH 2, -^D11 ;FOR DISPATCH AT EF0
2718 033576 207 00 0 00 000014 BEF0: MOVSS AR ;SWAP HAVES TO AVOID
2719 033577 207 00 0 00 000013 MOVSS BR ;TROUBLES COMMON TO TEST GROUP
2720 033600 200 01 0 00 040650 MOVE 1,[-1] ;TO AC1
2721 033601 650 01 0 00 000013 TDC 1, BR ;CONTENTS OF BR NOT
2722 033602 256 00 0 02 033540 BET0: XCT B0TAB-BOL(2)
2723 033603 207 00 0 00 000014 MOVSS AR ;RESTORE VALUES
2724 033604 207 00 0 00 000013 MOVSS BR ;TO AR, BR
2725 033605 302 02 0 00 000102 CAIE 2,BOL+2 ;BOOLE 2?
2726 033606 306 02 0 00 000110 CAIN 2,BOL+10 ;BOOLE 10?
2727 033607 254 00 0 00 033620 JRST BFT1 ;YES. GO TO BFT1...E LONG.
2728 033610 302 02 0 00 000113 CAIE 2,BOL+13 ;BOOLE 13?
2729 033611 306 02 0 00 000116 CAIN 2,BOL+16 ;BOOLE 16
2730 033612 254 00 0 00 033620 JRST BFT1 ;YES. GO TO BFT1...E LONG.
2731 033613 254 00 0 00 033071 JRST FWTET0 ;NO. PRINT ET0..GO TO ST1
2732 STORE ET0^
2733 033614 260 17 0 00 037601 GO HUNGCK
2734 033615 325 11 0 00 033620 JUMPGE MA,.+3 ;PRINTER CNTL
2735 033616 201 01 0 00 040663 MOVEI 1,[ASCII /ET0/]
2736 033617 260 17 0 00 037027 GO PRINTA
2737
2738 033620 200 03 0 00 000013 BFT1: MOVE AD,BR
2739 033621 302 02 0 00 000110 CAIE 2,BOL+10
2740 033622 306 02 0 00 000116 CAIN 2,BOL+16
2741 033623 651 03 0 00 040650 TSC AD,[-1] ;COMP ADDER BOL 10,16
2742 STORE ET1^
2743 033624 260 17 0 00 037601 GO HUNGCK
2744 033625 325 11 0 00 033630 JUMPGE MA,.+3 ;PRINTER CNTL
2745 033626 201 01 0 00 040665 MOVEI 1,[ASCII /ET1/]
2746 033627 260 17 0 00 037027 GO PRINTA
2747
2748 033630 460 01 0 00 000003 BET1: SETCM 1,AD
2749 033631 302 02 0 00 000102 CAIE 2,BOL+2
2750 033632 306 02 0 00 000110 CAIN 2,BOL+10
2751 033633 630 14 0 00 000001 TDZ AR,1 ;ADDER AND BOL2,10
2752 033634 302 02 0 00 000113 CAIE 2,BOL+13
2753 033635 306 02 0 00 000116 CAIN 2,BOL+16
2754 033636 670 14 0 00 000003 TDO AR,AD ;ADDER IOR BOL 13,16
2755 033637 254 00 0 00 033240 JRST PUSET2 ;PRINT ET2..GO TO ST1
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 34
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0085
2756
2757 033640 200 14 0 00 040550 B0TAB: MOVE AR,[0] ;BOOLE 0
2758 033641 630 14 0 00 000001 TDZ AR,1 ; 1
2759 033642 650 14 0 00 040650 TDC AR,[-1] ; 2
2760 033643 200 14 0 00 000013 MOVE AR,BR ; 3
2761 033644 630 14 0 00 000013 TDZ AR,BR ; 4
2762 033645 300 00 0 00 000000 CAI ; 5
2763 033646 650 14 0 00 000013 TDC AR,BR ; 6
2764 033647 670 14 0 00 000013 TDO AR, BR ; 7
2765 033650 650 14 0 00 040650 TDC AR,[-1] ; 10
2766 033651 650 14 0 00 000001 TDC AR,1 ; 11
2767 033652 650 14 0 00 040650 TDC AR,[-1] ; 12
2768 033653 650 14 0 00 040650 TDC AR,[-1] ; 13
2769 033654 200 14 0 00 000001 MOVE AR,1 ; 14
2770 033655 670 14 0 00 000001 TDO AR,1 ; 15
2771 033656 650 14 0 00 040650 TDC AR,[-1] ; 16
2772 033657 200 14 0 00 040650 MOVE AR,[-1] ; 17
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 35
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0086
2773
2774 ;EXECUTE CYCLE HALF WORD TRANSFERS 5XX CODES
2775
2776 033660 607 07 0 00 002000 HALF: TLNN IR,2000
2777 033661 250 14 0 00 000013 EXCH AR,BR
2778 033662 200 03 0 00 000013 MOVE AD,BR
2779 033663 603 07 0 00 032000 TLNE IR,32000
2780 033664 254 00 0 00 033675 JRST HEF0 ;HXX (O,Z,E)X
2781 033665 607 07 0 00 004000 TLNN IR,4000
2782 033666 254 00 0 00 033675 JRST HEF0
2783 STORE ET0^
2784 033667 260 17 0 00 037601 GO HUNGCK
2785 033670 325 11 0 00 033673 JUMPGE MA,.+3 ;PRINTER CNTL
2786 033671 201 01 0 00 040663 MOVEI 1,[ASCII /ET0/]
2787 033672 260 17 0 00 037027 GO PRINTA
2788 033673 260 17 0 00 033720 GO HAFTR ;DO THE TRANSFER TO AR
2789 033674 254 00 0 00 033256 JRST PUSET1 ;PRINT ET1..GO TO ST1
2790
2791 033675 607 07 0 00 030000 HEF0: TLNN IR,30000
2792 033676 254 00 0 00 033716 JRST HET0
2793 033677 400 03 0 00 000000 SETZ AD,
2794 033700 607 07 0 00 010000 TLNN IR,10000
2795 033701 254 00 0 00 033715 JRST HEF4
2796 033702 607 07 0 00 020000 TLNN IR,20000
2797 033703 254 00 0 00 033716 JRST HET0
2798 033704 607 07 0 00 040000 TLNN IR,40000
2799 033705 254 00 0 00 033712 JRST HEF2
2800 033706 607 07 0 00 004000 TLNN IR,4000
2801 033707 254 00 0 00 033714 JRST HEF3
2802 033710 321 14 0 00 033715 HEF1: JUMPL AR,HEF4
2803 033711 254 00 0 00 033716 JRST HET0
2804 033712 607 07 0 00 004000 HEF2: TLNN IR,4000
2805 033713 254 00 0 00 033710 JRST HEF1
2806 033714 602 14 0 00 400000 HEF3: TRNE AR,400000
2807 033715 450 03 0 00 000000 HEF4: SETCA AD,
2808 033716 260 17 0 00 033720 HET0: GO HAFTR ;DO THE TRANSFER TO AR
2809 033717 254 00 0 00 033071 JRST FWTET0 ;PRINT ET0..GO TO ST1
2810
2811 033720 201 00 0 00 777777 HAFTR: MOVEI 0,-1 ;DO THE HALF TRANSFERS
2812 033721 603 07 0 00 040000 TLNE IR,40000 ;HXLXX: 0=0,-1
2813 033722 241 00 0 00 000022 ROT ^D18 ;HXRXX: 0=-1,0
2814 033723 603 07 0 00 004000 TLNE IR,4000
2815 033724 631 14 0 00 000000 TSZ AR,0 ;HRLXX,HLRXX
2816 033725 603 07 0 00 004000 TLNE IR,4000
2817 033726 651 14 0 00 000014 TSC AR,AR ;HRLXX, HLRXX
2818 033727 630 14 0 00 000000 TDZ AR,0
2819 033730 631 03 0 00 000000 TSZ AD,0
2820 033731 670 14 0 00 000003 TDO AR,AD ;COMBINED TERMS
2821 033732 263 17 0 00 000000 RTN
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 36
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0087
2822
2823 ;EXECUTE CYCLE TEST INSTRUCTIONS CODE 6XX
2824
2825 033733 510 02 0 00 000007 TEST: HLLZ 2,IR ;LOOK AT BIT 8
2826 033734 241 02 0 00 000010 ROT 2,^D8
2827 033735 335 00 0 00 000002 SKIPGE 2
2828 033736 241 14 0 00 777756 ROT AR,-^D18
2829 STORE ET0^
2830 033737 260 17 0 00 037601 GO HUNGCK
2831 033740 325 11 0 00 033743 JUMPGE MA,.+3 ;PRINTER CNTL
2832 033741 201 01 0 00 040663 MOVEI 1,[ASCII /ET0/]
2833 033742 260 17 0 00 037027 GO PRINTA
2834 033743 242 02 0 00 777775 TEF1: LSH 2,-3
2835 033744 200 03 0 00 000013 MOVE AD,BR
2836 033745 404 13 0 00 000014 AND BR, AR ;ZEROS ONES COMP
2837 033746 256 00 0 02 033743 XCT TTAB0-30(2) ;OR DO NOTHING
2838 033747 TET1: STORE ET1^
2839 033747 260 17 0 00 037601 GO HUNGCK
2840 033750 325 11 0 00 033753 JUMPGE MA,.+3 ;PRINTER CNTL
2841 033751 201 01 0 00 040665 MOVEI 1,[ASCII /ET1/]
2842 033752 260 17 0 00 037027 GO PRINTA
2843
2844 033753 200 03 0 00 000013 TEF2: MOVE AD,BR
2845 033754 510 01 0 00 000007 HLLZ 1,IR
2846 033755 241 01 0 00 000010 ROT 1,^D8
2847 033756 335 00 0 00 000001 SKIPGE 1
2848 033757 241 14 0 00 000022 ROT AR,^D18 ;TLXX OR TSXX
2849 033760 405 01 0 00 000003 ANDI 1,3
2850 033761 322 01 0 00 033770 JUMPE 1,TET2 ;NULL SKIP MODE
2851 033762 306 01 0 00 000001 CAIN 1,1
2852 033763 322 03 0 00 033771 JUMPE AD,TSKIP ;E SKIP MODE AND ZERO
2853 033764 306 01 0 00 000003 CAIN 1,3
2854 033765 326 03 0 00 033771 JUMPN AD,TSKIP ;N SKIP MODE AND NOT ZERO
2855 033766 306 01 0 00 000002 CAIN 1,2
2856 033767 254 00 0 00 033771 JRST TSKIP ;A SKIP MODE
2857 033770 254 00 0 00 033240 TET2: JRST PUSET2 ;PRINT ET2..GO TO ST1
2858
2859 033771 541 12 0 12 000001 TSKIP: HRRI PC,1(PC)
2860 033772 254 00 0 00 033240 JRST PUSET2 ;PRINT ET2...GO TO ST1
2861
2862 033773 300 00 0 00 000000 TTAB0: CAI
2863 033774 420 14 0 00 000003 ANDCM AR,AD
2864 033775 430 14 0 00 000003 XOR AR,AD
2865 033776 434 14 0 00 000003 IOR AR,AD
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 37
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0088
2866 ;I/O INSTRUCTION PROCESS
2867
2868 033777 135 01 0 00 040702 OP700: LDB 1,[POINT 3,IR,12] ;GET CODE
2869
2870 034000 135 00 0 00 040703 LDB 0,[POINT 10,IR,9] ;GET DEVICE
2871
2872 034001 306 00 0 00 001624 CAIN 1624
2873 034002 254 00 1 01 034010 JRST @TTIO(1) ;TTY I/O
2874
2875 034003 306 00 0 00 001601 CAIN 1601
2876 034004 254 00 1 01 034020 JRST @PIIO(1) ;PI
2877
2878 034005 306 00 0 00 001600 CAIN 1600
2879 034006 254 00 1 01 034030 JRST @APRIO(1) ;APR
2880
2881 034007 254 00 0 00 032560 JRST ST1 ;ALL ELSE
2882
2883 034010 000000 032560 TTIO: ST1 ;BLKI
2884 034011 000000 034040 TTYDI ;DATAI
2885 034012 000000 032560 ST1 ;BLKO
2886 034013 000000 034047 TTYDO ;DATAO
2887 034014 000000 034060 TTYCO ;CONO
2888 034015 000000 034067 TTYCI ;CONI
2889 034016 000000 034075 TTYCNZ ;CONSZ
2890 034017 000000 034105 TTYCNO ;CONSO
2891
2892 034020 000000 032560 PIIO: ST1 ;BLKI
2893 034021 000000 034142 PIDI ;DATAI
2894 034022 000000 032560 ST1 ;BLKO
2895 034023 000000 034143 PIDO ;DATAO
2896 034024 000000 034174 PICO ;CONO
2897 034025 000000 034176 PICI ;CONI
2898 034026 000000 034200 PICNZ ;CONSZ
2899 034027 000000 034204 PICNO ;CONSO
2900
2901 034030 000000 032560 APRIO: ST1 ;BLKI
2902 034031 000000 034115 APRDI ;DATAI
2903 034032 000000 032560 ST1 ;BLKO
2904 034033 000000 034120 APRDO ;DATAO
2905 034034 000000 034126 APRCO ;CONO
2906 034035 000000 034130 APRCI ;CONI
2907 034036 000000 034132 APRCNZ ;CONSZ
2908 034037 000000 034136 APRCNO ;CONSO
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 38
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0089
2909 ;TELETYPE FUNCTIONS
2910
2911 034040 051 02 0 00 000014 TTYDI: TTCALL 2,AR ;INPUT CHAR
2912 034041 254 00 0 00 034042 JRST .+1
2913 034042 200 00 0 00 041264 MOVE TTYST#
2914 034043 660 00 0 00 000040 TRO 40 ;SET INPUT DONE
2915 034044 620 00 0 00 000100 TRZ 100 ;CLEAR INPUT BUSY
2916 034045 202 00 0 00 041264 MOVEM TTYST
2917 034046 254 00 0 00 032560 JRST ST1
2918
2919 034047 200 00 0 00 000011 TTYDO: MOVE MA
2920 034050 271 00 0 00 000000 ADDI OFFSET
2921 034051 405 00 0 00 777777 ANDI -1
2922 034052 051 01 1 00 000000 TTCALL 1,@0 ;OUTPUT CHAR
2923 034053 200 00 0 00 041264 MOVE TTYST
2924 034054 660 00 0 00 000010 TRO 10 ;SET OUTPUT DONE
2925 034055 620 00 0 00 000020 TRZ 20 ;CLEAR OUTPUT BUSY
2926 034056 202 00 0 00 041264 MOVEM TTYST
2927 034057 254 00 0 00 032560 JRST ST1
2928
2929 034060 550 00 0 00 000013 TTYCO: HRRZ BR
2930 034061 620 00 0 00 773600 TRZ 773600
2931 034062 436 00 0 00 041264 IORM TTYST
2932 034063 242 13 0 00 777774 LSH BR,-4
2933 034064 620 13 0 00 777607 TRZ BR,777607
2934 034065 412 13 0 00 041264 ANDCAM BR,TTYST
2935 034066 254 00 0 00 032560 JRST ST1
2936
2937 034067 200 14 0 00 041264 TTYCI: MOVE AR,TTYST
2938 034070 051 13 0 00 000000 TTCALL 13,0 ;SKIP IF CHAR WAITING
2939 034071 624 14 0 00 000100 TRZA AR,100 ;NO CHAR, CLEAR INPUT BUSY
2940 034072 660 14 0 00 000100 TRO AR,100 ;CHAR, SET INPUT BUSY
2941 034073 202 14 0 00 041264 MOVEM AR,TTYST
2942 034074 254 00 0 00 032560 JRST ST1
2943
2944 034075 200 00 0 00 041264 TTYCNZ: MOVE TTYST
2945 034076 051 13 0 00 000000 TTCALL 13,0
2946 034077 624 00 0 00 000100 TRZA 100
2947 034100 660 00 0 00 000100 TRO 100
2948 034101 202 00 0 00 041264 MOVEM TTYST
2949 034102 606 00 0 13 000000 TRNN 0,(BR)
2950 034103 350 00 0 00 000012 AOS PC
2951 034104 254 00 0 00 032560 JRST ST1
2952
2953 034105 200 00 0 00 041264 TTYCNO: MOVE TTYST
2954 034106 051 13 0 00 000000 TTCALL 13,0
2955 034107 624 00 0 00 000100 TRZA 100
2956 034110 660 00 0 00 000100 TRO 100
2957 034111 202 00 0 00 041264 MOVEM TTYST
2958 034112 602 00 0 13 000000 TRNE 0,(BR)
2959 034113 350 00 0 00 000012 AOS PC
2960 034114 254 00 0 00 032560 JRST ST1
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 39
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0090
2961 ;APR FUNCTIONS
2962
2963 034115 200 14 0 00 037777 APRDI: MOVE AR,SWITCH
2964 034116 201 02 0 00 003000 MOVEI 2,SACINH+SCE
2965 034117 254 00 0 00 032571 JRST XSS9
2966
2967 034120 200 00 0 00 000011 APRDO: MOVE MA
2968 034121 271 00 0 00 000000 ADDI OFFSET
2969 034122 405 00 0 00 777777 ANDI -1
2970 034123 200 00 1 00 000000 MOVE 0,@0
2971 034124 202 00 0 00 041213 MOVEM 0,APRDWD#
2972 034125 254 00 0 00 032560 JRST ST1
2973
2974 034126 202 13 0 00 041212 APRCO: MOVEM BR,APCOWD#
2975 034127 254 00 0 00 032560 JRST ST1
2976
2977 034130 200 14 0 00 041211 APRCI: MOVE AR,APCIWD#
2978 034131 254 00 0 00 032560 JRST ST1
2979
2980 034132 200 00 0 00 041211 APRCNZ: MOVE APCIWD
2981 034133 616 00 0 00 000013 TDNN 0,BR
2982 034134 350 00 0 00 000012 AOS PC
2983 034135 254 00 0 00 032560 JRST ST1
2984
2985 034136 200 00 0 00 041211 APRCNO: MOVE APCIWD
2986 034137 612 00 0 00 000013 TDNE 0,BR
2987 034140 350 00 0 00 000012 AOS PC
2988 034141 254 00 0 00 032560 JRST ST1
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 40
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0091
2989 ;PI FUNCTIONS
2990
2991 034142 254 00 0 00 032560 PIDI: JRST ST1
2992
2993 034143 261 17 0 00 000001 PIDO: PUT 1
2994 034144 261 17 0 00 000002 PUT 2
2995 034145 261 17 0 00 000003 PUT 3
2996 034146 201 02 0 00 000041 MOVEI 2,"!" ;PRINT "!"
2997 034147 051 01 0 00 000002 TTCALL 1,2
2998 034150 200 00 0 00 000011 MOVE MA
2999 034151 271 00 0 00 000000 ADDI OFFSET
3000 034152 405 00 0 00 777777 ANDI -1
3001 034153 200 02 1 00 000000 MOVE 2,@0
3002 034154 201 01 0 00 000014 MOVEI 1,^D12
3003 034155 200 03 0 00 000002 PIDO1: MOVE 3,2
3004 034156 241 03 0 00 000003 ROT 3,3
3005 034157 405 03 0 00 000007 ANDI 3,7
3006 034160 271 03 0 00 000060 ADDI 3,"0"
3007 034161 051 01 0 00 000003 TTCALL 1,3 ;PRINT 12 OCTAL DIGITS
3008 034162 242 02 0 00 000003 LSH 2,3
3009 034163 367 01 0 00 034155 SOJG 1,PIDO1
3010 034164 201 02 0 00 000015 MOVEI 2,15
3011 034165 051 01 0 00 000002 TTCALL 1,2 ;CR
3012 034166 201 02 0 00 000012 MOVEI 2,12
3013 034167 051 01 0 00 000002 TTCALL 1,2 ;LF
3014 034170 262 17 0 00 000003 GET 3
3015 034171 262 17 0 00 000002 GET 2
3016 034172 262 17 0 00 000001 GET 1
3017 034173 254 00 0 00 032560 JRST ST1
3018
3019 034174 552 13 0 00 041245 PICO: HRRZM BR,PICOWD#
3020 034175 254 00 0 00 032560 JRST ST1
3021
3022 034176 200 14 0 00 041244 PICI: MOVE AR,PICIWD#
3023 034177 254 00 0 00 032560 JRST ST1
3024
3025 034200 200 00 0 00 041244 PICNZ: MOVE PICIWD
3026 034201 616 00 0 00 000013 TDNN 0,BR
3027 034202 350 00 0 00 000012 AOS PC
3028 034203 254 00 0 00 032560 JRST ST1
3029
3030 034204 200 00 0 00 041244 PICNO: MOVE PICIWD
3031 034205 612 00 0 00 000013 TDNE 0,BR
3032 034206 350 00 0 00 000012 AOS PC
3033 034207 254 00 0 00 032560 JRST ST1
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 41
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0092
3034 ;SIMULATOR SYMBOL TABLE
3035
3036 DEFINE INX (A)
3037 <
3038 ASCII /A/>
3039
3040
3041 034210 TBLMUO: INX MUUO^
3042 034210 115 125 125 117 000 ASCII /MUUO/^
3043 034211 TBLLUO: INX LUUO^
3044 034211 114 125 125 117 000 ASCII /LUUO/^
3045 034212 TBLFLT: INX FAD^
3046 034212 106 101 104 000 000 ASCII /FAD/^
3047 INX FADR^
3048 034213 106 101 104 122 000 ASCII /FADR/^
3049 INX FSB^
3050 034214 106 123 102 000 000 ASCII /FSB/^
3051 INX FSBR^
3052 034215 106 123 102 122 000 ASCII /FSBR/^
3053 INX FMP^
3054 034216 106 115 120 000 000 ASCII /FMP/^
3055 INX FMPR^
3056 034217 106 115 120 122 000 ASCII /FMPR/^
3057 INX FDV^
3058 034220 106 104 126 000 000 ASCII /FDV/^
3059 INX FDVR^
3060 034221 106 104 126 122 000 ASCII /FDVR/^
3061 034222 TBLBYT: INX UFA^
3062 034222 125 106 101 000 000 ASCII /UFA/^
3063 INX DFN^
3064 034223 104 106 116 000 000 ASCII /DFN/^
3065 INX FSC^
3066 034224 106 123 103 000 000 ASCII /FSC/^
3067 INX IBP^
3068 034225 111 102 120 000 000 ASCII /IBP/^
3069 INX ILDB^
3070 034226 111 114 104 102 000 ASCII /ILDB/^
3071 INX LDB^
3072 034227 114 104 102 000 000 ASCII /LDB/^
3073 INX IDPB^
3074 034230 111 104 120 102 000 ASCII /IDPB/^
3075 INX DPB^
3076 034231 104 120 102 000 000 ASCII /DPB/^
3077 034232 TBLMV: INX MOVE^
3078 034232 115 117 126 105 000 ASCII /MOVE/^
3079 INX MOVS^
3080 034233 115 117 126 123 000 ASCII /MOVS/^
3081 INX MOVN^
3082 034234 115 117 126 116 000 ASCII /MOVN/^
3083 INX MOVM^
3084 034235 115 117 126 115 000 ASCII /MOVM/^
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 42
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0093
3085 INX IMUL^
3086 034236 111 115 125 114 000 ASCII /IMUL/^
3087 INX MUL^
3088 034237 115 125 114 000 000 ASCII /MUL/^
3089 INX IDIV^
3090 034240 111 104 111 126 000 ASCII /IDIV/^
3091 INX DIV^
3092 034241 104 111 126 000 000 ASCII /DIV/^
3093 INX ADD^
3094 034242 101 104 104 000 000 ASCII /ADD/^
3095 INX SUB^
3096 034243 123 125 102 000 000 ASCII /SUB/^
3097 034244 040 000 000 000 000 TBLMOV: ASCII / /
3098 INX I^
3099 034245 111 000 000 000 000 ASCII /I/^
3100 INX M^
3101 034246 115 000 000 000 000 ASCII /M/^
3102 INX S^
3103 034247 123 000 000 000 000 ASCII /S/^
3104 034250 TBLMO: INX ASH^
3105 034250 101 123 110 000 000 ASCII /ASH/^
3106 INX ROT^
3107 034251 122 117 124 000 000 ASCII /ROT/^
3108 INX LSH^
3109 034252 114 123 110 000 000 ASCII /LSH/^
3110 INX JFFO^
3111 034253 112 106 106 117 000 ASCII /JFFO/^
3112 INX ASHC^
3113 034254 101 123 110 103 000 ASCII /ASHC/^
3114 INX ROTC^
3115 034255 122 117 124 103 000 ASCII /ROTC/^
3116 INX LSHC^
3117 034256 114 123 110 103 000 ASCII /LSHC/^
3118 INX ERR^
3119 034257 105 122 122 000 000 ASCII /ERR/^
3120 INX EXCH^
3121 034260 105 130 103 110 000 ASCII /EXCH/^
3122 INX BLT^
3123 034261 102 114 124 000 000 ASCII /BLT/^
3124 INX AOBJP^
3125 034262 101 117 102 112 120 ASCII /AOBJP/^
3126 INX AOBJN^
3127 034263 101 117 102 112 116 ASCII /AOBJN/^
3128 INX JRST^
3129 034264 112 122 123 124 000 ASCII /JRST/^
3130 INX JFCL^
3131 034265 112 106 103 114 000 ASCII /JFCL/^
3132 INX XCT^
3133 034266 130 103 124 000 000 ASCII /XCT/^
3134 INX ERR^
3135 034267 105 122 122 000 000 ASCII /ERR/^
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 43
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0094
3136 INX PUSHJ^
3137 034270 120 125 123 110 112 ASCII /PUSHJ/^
3138 INX PUSH^
3139 034271 120 125 123 110 000 ASCII /PUSH/^
3140 INX POP^
3141 034272 120 117 120 000 000 ASCII /POP/^
3142 INX POPJ^
3143 034273 120 117 120 112 000 ASCII /POPJ/^
3144 INX JSR^
3145 034274 112 123 122 000 000 ASCII /JSR/^
3146 INX JSP^
3147 034275 112 123 120 000 000 ASCII /JSP/^
3148 INX JSA^
3149 034276 112 123 101 000 000 ASCII /JSA/^
3150 INX JRA^
3151 034277 112 122 101 000 000 ASCII /JRA/^
3152 034300 040 000 000 000 000 TBLAD1: ASCII / /
3153 INX L^
3154 034301 114 000 000 000 000 ASCII /L/^
3155 INX M^
3156 034302 115 000 000 000 000 ASCII /M/^
3157 INX B^
3158 034303 102 000 000 000 000 ASCII /B/^
3159 034304 040 000 000 000 000 ASCII / /
3160 INX I^
3161 034305 111 000 000 000 000 ASCII /I/^
3162 INX M^
3163 034306 115 000 000 000 000 ASCII /M/^
3164 INX B^
3165 034307 102 000 000 000 000 ASCII /B/^
3166 034310 TBLCOM: INX CAI^
3167 034310 103 101 111 000 000 ASCII /CAI/^
3168 INX CAM^
3169 034311 103 101 115 000 000 ASCII /CAM/^
3170 INX JUMP^
3171 034312 112 125 115 120 000 ASCII /JUMP/^
3172 INX SKIP^
3173 034313 123 113 111 120 000 ASCII /SKIP/^
3174 INX AOJ^
3175 034314 101 117 112 000 000 ASCII /AOJ/^
3176 INX AOS^
3177 034315 101 117 123 000 000 ASCII /AOS/^
3178 INX SOJ^
3179 034316 123 117 112 000 000 ASCII /SOJ/^
3180 INX SOS^
3181 034317 123 117 123 000 000 ASCII /SOS/^
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 44
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0095
3182 034320 040 000 000 000 000 TBLCM: ASCII / /
3183 INX L^
3184 034321 114 000 000 000 000 ASCII /L/^
3185 INX E^
3186 034322 105 000 000 000 000 ASCII /E/^
3187 INX LE^
3188 034323 114 105 000 000 000 ASCII /LE/^
3189 INX A^
3190 034324 101 000 000 000 000 ASCII /A/^
3191 INX GE^
3192 034325 107 105 000 000 000 ASCII /GE/^
3193 INX N^
3194 034326 116 000 000 000 000 ASCII /N/^
3195 INX G^
3196 034327 107 000 000 000 000 ASCII /G/^
3197 034330 TBLBOL: INX SETZ^
3198 034330 123 105 124 132 000 ASCII /SETZ/^
3199 INX AND^
3200 034331 101 116 104 000 000 ASCII /AND/^
3201 INX ANDCA^
3202 034332 101 116 104 103 101 ASCII /ANDCA/^
3203 INX SETM^
3204 034333 123 105 124 115 000 ASCII /SETM/^
3205 INX ANDCM^
3206 034334 101 116 104 103 115 ASCII /ANDCM/^
3207 INX SETA^
3208 034335 123 105 124 101 000 ASCII /SETA/^
3209 INX XOR^
3210 034336 130 117 122 000 000 ASCII /XOR/^
3211 INX IOR^
3212 034337 111 117 122 000 000 ASCII /IOR/^
3213 INX ANDCB^
3214 034340 101 116 104 103 102 ASCII /ANDCB/^
3215 INX EQV^
3216 034341 105 121 126 000 000 ASCII /EQV/^
3217 INX SETCA^
3218 034342 123 105 124 103 101 ASCII /SETCA/^
3219 INX ORCA^
3220 034343 117 122 103 101 000 ASCII /ORCA/^
3221 INX SETCM^
3222 034344 123 105 124 103 115 ASCII /SETCM/^
3223 INX ORCM^
3224 034345 117 122 103 115 000 ASCII /ORCM/^
3225 INX ORCB^
3226 034346 117 122 103 102 000 ASCII /ORCB/^
3227 INX SETO^
3228 034347 123 105 124 117 000 ASCII /SETO/^
3229 034350 H: INX H^
3230 034350 110 000 000 000 000 ASCII /H/^
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 45
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0096
3231 034351 TBLH: INX LL^
3232 034351 114 114 000 000 000 ASCII /LL/^
3233 INX RL^
3234 034352 122 114 000 000 000 ASCII /RL/^
3235 INX LLZ^
3236 034353 114 114 132 000 000 ASCII /LLZ/^
3237 INX RLZ^
3238 034354 122 114 132 000 000 ASCII /RLZ/^
3239 INX LLO^
3240 034355 114 114 117 000 000 ASCII /LLO/^
3241 INX RLO^
3242 034356 122 114 117 000 000 ASCII /RLO/^
3243 INX LLE^
3244 034357 114 114 105 000 000 ASCII /LLE/^
3245 INX RLE^
3246 034360 122 114 105 000 000 ASCII /RLE/^
3247 INX RR^
3248 034361 122 122 000 000 000 ASCII /RR/^
3249 INX LR^
3250 034362 114 122 000 000 000 ASCII /LR/^
3251 INX RRZ^
3252 034363 122 122 132 000 000 ASCII /RRZ/^
3253 INX LRZ^
3254 034364 114 122 132 000 000 ASCII /LRZ/^
3255 INX RRO^
3256 034365 122 122 117 000 000 ASCII /RRO/^
3257 INX LRO^
3258 034366 114 122 117 000 000 ASCII /LRO/^
3259 INX RRE^
3260 034367 122 122 105 000 000 ASCII /RRE/^
3261 INX LRE^
3262 034370 114 122 105 000 000 ASCII /LRE/^
3263 034371 T: INX T^
3264 034371 124 000 000 000 000 ASCII /T/^
3265 034372 TBLTA: INX RN^
3266 034372 122 116 000 000 000 ASCII /RN/^
3267 INX DN^
3268 034373 104 116 000 000 000 ASCII /DN/^
3269 INX RZ^
3270 034374 122 132 000 000 000 ASCII /RZ/^
3271 INX DZ^
3272 034375 104 132 000 000 000 ASCII /DZ/^
3273 INX RC^
3274 034376 122 103 000 000 000 ASCII /RC/^
3275 INX DC^
3276 034377 104 103 000 000 000 ASCII /DC/^
3277 INX RO^
3278 034400 122 117 000 000 000 ASCII /RO/^
3279 INX DO^
3280 034401 104 117 000 000 000 ASCII /DO/^
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 46
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0097
3281 034402 040 000 000 000 000 TBLTA1: ASCII / /
3282 INX E^
3283 034403 105 000 000 000 000 ASCII /E/^
3284 INX A^
3285 034404 101 000 000 000 000 ASCII /A/^
3286 INX N^
3287 034405 116 000 000 000 000 ASCII /N/^
3288 034406 TBLTB: INX LN^
3289 034406 114 116 000 000 000 ASCII /LN/^
3290 INX SN^
3291 034407 123 116 000 000 000 ASCII /SN/^
3292 INX LZ^
3293 034410 114 132 000 000 000 ASCII /LZ/^
3294 INX SZ^
3295 034411 123 132 000 000 000 ASCII /SZ/^
3296 INX LC^
3297 034412 114 103 000 000 000 ASCII /LC/^
3298 INX SC^
3299 034413 123 103 000 000 000 ASCII /SC/^
3300 INX LO^
3301 034414 114 117 000 000 000 ASCII /LO/^
3302 INX SO^
3303 034415 123 117 000 000 000 ASCII /SO/^
3304 034416 TBLCON: INX BLKI^
3305 034416 102 114 113 111 000 ASCII /BLKI/^
3306 INX DATAI^
3307 034417 104 101 124 101 111 ASCII /DATAI/^
3308 INX BLKO^
3309 034420 102 114 113 117 000 ASCII /BLKO/^
3310 INX DATAO^
3311 034421 104 101 124 101 117 ASCII /DATAO/^
3312 INX CONO^
3313 034422 103 117 116 117 000 ASCII /CONO/^
3314 INX CONI^
3315 034423 103 117 116 111 000 ASCII /CONI/^
3316 INX CONSZ^
3317 034424 103 117 116 123 132 ASCII /CONSZ/^
3318 INX CONSO^
3319 034425 103 117 116 123 117 ASCII /CONSO/^
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 47
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0098
3320 034426 402 00 0 00 041220 PNTINS: SETZM CONNF#
3321 034427 200 01 0 00 041234 MOVE 1,IRA# ;MOVE THE INST CODE TO AC1.
3322 034430 405 01 0 00 000077 ANDI 1,77
3323 034431 400 02 0 00 000000 SETZ 2, ;CLEAR AC2.
3324 034432 200 00 0 00 041234 MOVE 0,IRA
3325 034433 301 00 0 00 000700 CAIL 0,700
3326 034434 254 00 0 00 034567 JRST CONN
3327 034435 301 00 0 00 000600 CAIL 0,600
3328 034436 254 00 0 00 034551 JRST TTST
3329 034437 301 00 0 00 000500 CAIL 0,500
3330 034440 254 00 0 00 034540 JRST HTST
3331 034441 301 00 0 00 000400 CAIL 0,400
3332 034442 254 00 0 00 034531 JRST BOTST
3333 034443 301 00 0 00 000300 CAIL 0,300
3334 034444 254 00 0 00 034522 JRST COMTST
3335 034445 301 00 0 00 000200 CAIL 0,200
3336 034446 254 00 0 00 034477 JRST MOVTST
3337 034447 301 00 0 00 000140 CAIL 0,140
3338 034450 254 00 0 00 034463 JRST FLTST
3339 034451 301 00 0 00 000130 CAIL 0,130
3340 034452 254 00 0 00 034474 JRST BYTST
3341 034453 301 00 0 00 000040 CAIL 0,40
3342 034454 254 00 0 00 034457 JRST MUUOST ;MUUO 40-77
3343 034455 322 00 0 00 034457 JUMPE 0,MUUOST ;MUUO 0
3344 034456 254 00 0 00 034461 JRST LUUOST ;LUUO 1-37
3345
3346 034457 201 00 0 00 034210 MUUOST: MOVEI 0,TBLMUO
3347 034460 254 00 0 00 034472 JRST OUT
3348
3349 034461 201 00 0 00 034211 LUUOST: MOVEI 0,TBLLUO
3350 034462 254 00 0 00 034472 JRST OUT
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 48
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0099
3351
3352 034463 405 01 0 00 000037 FLTST: ANDI 1,37 ;FLOATING POINT
3353 034464 241 01 0 00 777776 ROT 1,-2
3354 034465 201 00 0 01 034212 MOVEI 0,TBLFLT(1)
3355 034466 037 00 0 00 000000 PNTA
3356 034467 241 01 0 00 000002 ROT 1,2
3357 034470 405 01 0 00 000007 ANDI 1,7
3358 034471 201 00 0 01 034300 MOVEI 0,TBLAD1(1)
3359 034472 037 00 0 00 000000 OUT: PNTA
3360 034473 263 17 0 00 000000 RTN
3361
3362 034474 405 01 0 00 000007 BYTST: ANDI 1,7 ;UFA,DFN,FSC,BYTE
3363 034475 201 00 0 01 034222 MOVEI 0,TBLBYT(1)
3364 034476 254 00 0 00 034472 JRST OUT
3365
3366 034477 305 01 0 00 000070 MOVTST: CAIGE 1,70
3367 034500 305 01 0 00 000040 CAIGE 1,40
3368 034501 254 00 0 00 034504 JRST .+3 ;MOVE,ADD,SUB,MUL,+ETC.
3369 034502 201 00 0 01 034210 MOVEI 0,TBLMO-40(1) ;SHIFTS,PUSH,POP,+ETC.
3370 034503 254 00 0 00 034472 JRST OUT
3371 034504 245 01 0 00 777776 ROTC 1,-2
3372 034505 301 01 0 00 000010 CAIL 1,10
3373 034506 275 01 0 00 000006 SUBI 1,6 ;ADD,SUB.
3374 034507 201 00 0 01 034232 MOVEI 0,TBLMV(1)
3375 034510 037 00 0 00 000000 PNTA
3376 034511 245 01 0 00 000002 ROTC 1,2
3377 034512 301 01 0 00 000020 CAIL 1,20
3378 034513 254 00 0 00 034517 JRST IMLTST
3379 034514 405 01 0 00 000003 ANDI 1,3
3380 034515 201 00 0 01 034244 MOVEI 0,TBLMOV(1)
3381 034516 254 00 0 00 034472 JRST OUT
3382
3383 034517 405 01 0 00 000003 IMLTST: ANDI 1,3 ;IMUL,MUL,IDIV,DIV
3384 034520 201 00 0 01 034304 MOVEI 0,TBLAD1+4(1)
3385 034521 254 00 0 00 034472 JRST OUT
3386
3387 034522 241 01 0 00 777775 COMTST: ROT 1,-3 ;MEM AND AC MOD AND TEST.
3388 034523 201 00 0 01 034310 MOVEI 0,TBLCOM(1)
3389 034524 037 00 0 00 000000 PNTA
3390 034525 241 01 0 00 000003 ROT 1,3
3391 034526 405 01 0 00 000007 ANDI 1,7
3392 034527 201 00 0 01 034320 MOVEI 0,TBLCM(1)
3393 034530 254 00 0 00 034472 JRST OUT
3394
3395 034531 241 01 0 00 777776 BOTST: ROT 1,-2 ;BOOLE
3396 034532 201 00 0 01 034330 MOVEI 0,TBLBOL(1)
3397 034533 037 00 0 00 000000 PNTA
3398 034534 241 01 0 00 000002 ROT 1,2
3399 034535 405 01 0 00 000003 ANDI 1,3
3400 034536 201 00 0 01 034304 MOVEI 0,TBLAD1+4(1)
3401 034537 254 00 0 00 034472 JRST OUT
3402
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 49
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0100
3403 034540 201 00 0 00 034350 HTST: MOVEI 0,H ;HALF WORD TRANSFERS
3404 034541 037 00 0 00 000000 PNTA
3405 034542 241 01 0 00 777776 ROT 1,-2
3406 034543 201 00 0 01 034351 MOVEI 0,TBLH(1)
3407 034544 037 00 0 00 000000 PNTA
3408 034545 241 01 0 00 000002 ROT 1,2
3409 034546 405 01 0 00 000003 ANDI 1,3
3410 034547 201 00 0 01 034244 MOVEI 0,TBLMOV(1)
3411 034550 254 00 0 00 034472 JRST OUT
3412
3413 034551 201 00 0 00 034371 TTST: MOVEI 0,T ;TEST
3414 034552 037 00 0 00 000000 PNTA
3415 034553 602 01 0 00 000001 TRNE 1,1
3416 034554 254 00 0 00 034564 JRST TTODD
3417 034555 241 01 0 00 777775 ROT 1,-3
3418 034556 201 00 0 01 034372 MOVEI 0,TBLTA(1)
3419 034557 037 00 0 00 000000 TTSTA: PNTA
3420 034560 241 01 0 00 000002 ROT 1,2
3421 034561 405 01 0 00 000003 ANDI 1,3
3422 034562 201 00 0 01 034402 MOVEI 0,TBLTA1(1)
3423 034563 254 00 0 00 034472 JRST OUT
3424
3425 034564 241 01 0 00 777775 TTODD: ROT 1,-3
3426 034565 201 00 0 01 034406 MOVEI 0,TBLTB(1)
3427 034566 254 00 0 00 034557 JRST TTSTA
3428
3429 034567 476 00 0 00 041220 CONN: SETOM CONNF
3430 034570 554 01 0 00 000007 HLRZ 1,IR
3431 034571 241 01 0 00 777773 ROT 1,-5
3432 034572 405 01 0 00 000007 ANDI 1,7 ;I/O.
3433 034573 201 00 0 01 034416 MOVEI 0,TBLCON(1)
3434 034574 254 00 0 00 034472 JRST OUT
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 50
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0101
3435
3436 ;INITIAL AND FINAL SWITCH TABLE
3437
3438 IFTAB: REPEAT 40,
3439 <XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE>
3440 034575 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3441 034576 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3442 034577 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3443 034600 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3444 034601 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3445 034602 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3446 034603 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3447 034604 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3448 034605 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3449 034606 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3450 034607 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3451 034610 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3452 034611 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3453 034612 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3454 034613 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3455 034614 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3456 034615 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3457 034616 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3458 034617 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3459 034620 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3460 034621 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3461 034622 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3462 034623 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3463 034624 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3464 034625 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3465 034626 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3466 034627 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3467 034630 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3468 034631 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3469 034632 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3470 034633 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3471 034634 103100 103100 XWD FACINH+PCINH+SACINH+SCE,FACINH+PCINH+SACINH+SCE
3472 REPEAT 14,<XWD 10,10>
3473 034635 000010 000010 XWD 10,10
3474 034636 000010 000010 XWD 10,10
3475 034637 000010 000010 XWD 10,10
3476 034640 000010 000010 XWD 10,10
3477 034641 000010 000010 XWD 10,10
3478 034642 000010 000010 XWD 10,10
3479 034643 000010 000010 XWD 10,10
3480 034644 000010 000010 XWD 10,10
3481 034645 000010 000010 XWD 10,10
3482 034646 000010 000010 XWD 10,10
3483 034647 000010 000010 XWD 10,10
3484 034650 000010 000010 XWD 10,10
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 51
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0102
3485 034651 400005 200403 IF130: XWD FCE+5,FCEPSE+SARBR+3
3486 034652 000001 300000 XWD 1,FCEPSE+FACINH+0
3487 034653 300116 500116 XWD FACINH+16+FCEPSE+PCINH,FCE+16+PCINH+FACINH
3488 034654 303116 503116 XWD FACINH+SACINH+FCEPSE+PCINH+SCE+16,SACINH+FCE+SCE+PCINH+16+FACINH
3489
3490 REPEAT 3,
3491 < XWD FCE+2,FCE+SAC2+4
3492 XWD SCE+FCE+SACINH,FCE+SCE+3
3493 XWD FCE+2,1
3494 XWD SCE+FCE+SACINH,FCE+SCE+3>
3495 034655 400002 404004 XWD FCE+2,FCE+SAC2+4
3496 034656 403000 402003 XWD SCE+FCE+SACINH,FCE+SCE+3
3497 034657 400002 000001 XWD FCE+2,1
3498 034660 403000 402003 XWD SCE+FCE+SACINH,FCE+SCE+3
3499 034661 400002 404004 XWD FCE+2,FCE+SAC2+4
3500 034662 403000 402003 XWD SCE+FCE+SACINH,FCE+SCE+3
3501 034663 400002 000001 XWD FCE+2,1
3502 034664 403000 402003 XWD SCE+FCE+SACINH,FCE+SCE+3
3503 034665 400002 404004 XWD FCE+2,FCE+SAC2+4
3504 034666 403000 402003 XWD SCE+FCE+SACINH,FCE+SCE+3
3505 034667 400002 000001 XWD FCE+2,1
3506 034670 403000 402003 XWD SCE+FCE+SACINH,FCE+SCE+3
3507
3508 034671 400002 444004 IR170: XWD FCE+2,FCE+FAC2+SAC2+4
3509 034672 403000 402003 XWD SCE+FCE+SACINH,FCE+SCE+3
3510 034673 400002 000001 XWD FCE+2,1
3511 034674 403000 402003 XWD SCE+FCE+SACINH,FCE+SCE+3
3512 034675 500002 100001 IR200: XWD FCE+2+FACINH,FACINH+1
3513 034676 003000 300203 XWD SACINH+SCE,FACINH+FCEPSE+SACZ+3
3514 034677 500002 100001 XWD FCE+2+FACINH,FACINH+1
3515 034700 003000 300203 XWD SACINH+SCE,FACINH+FCEPSE+SACZ+3
3516 034701 500002 100001 XWD FCE+2+FACINH,FACINH+1
3517 034702 003000 300203 XWD SACINH+SCE,FACINH+FCEPSE+SACZ+3
3518 034703 500002 100001 XWD FCE+2+FACINH,FACINH+1
3519 034704 003000 300203 XWD SACINH+SCE,FACINH+FCEPSE+SACZ+3
3520 034705 400002 000007 IR220: XWD FCE+2,7
3521 034706 403000 402003 XWD FCE+SACINH+SCE,FCE+SCE+3
3522 034707 404004 004007 XWD FCE+SAC2+4,SAC2+7
3523 034710 403000 406005 XWD FCE+SACINH+SCE,FCE+SAC2+SCE+5
3524 034711 404004 004007 XWD FCE+SAC2+4,SAC2+7
3525 034712 403000 406003 XWD FCE+SACINH+SCE+0,FCE+SAC2+SCE+3
3526 034713 444004 044007 XWD FAC2+FCE+SAC2+4,FAC2+SAC2+7
3527 034714 443006 446005 XWD FAC2+FCE+SACINH+SCE+6,FAC2+FCE+SAC2+SCE+5
3528
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 52
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0103
3529 034715 000001 000001 IF240: XWD 1,1 ;SHIFTING
3530 034716 000001 000007 XWD 1,7
3531 034717 044007 044007 XWD FAC2+SAC2+7,FAC2+SAC2+7
3532 034720 044007 000000 XWD FAC2+SAC2+7,0
3533 034721 200403 020101 XWD FCEPSE+SARBR+3,PCINH+FCCLT+1
3534 034722 000001 000001 XWD 1,1
3535 034723 101000 101010 XWD SACINH+FACINH,FACINH+SACINH+10
3536 034724 101120 000000 XWD SACINH+FACINH+PCINH+20,0
3537 034725 000412 400412 IF260: XWD SARBR+12,FCE+SARBR+12 ;PUSH,POP,ETC
3538 034726 010413 010013 XWD FCCRT+SARBR+13,FCCRT+13
3539 034727 103000 100001 XWD FACINH+SACINH+SCE+0,FACINH+1
3540 034730 000403 020003 XWD SARBR+3,FCCLT+3
3541 034731 400002 000001 XWD FCE+2,1
3542 034732 201000 200003 XWD FCEPSE+SACINH+0,FCEPSE+3
3543 034733 400002 000001 XWD FCE+2,1
3544 034734 201000 200003 XWD FCEPSE+SACINH+0,FCEPSE+3
3545 034735 IF300: REPEAT 4,<XWD SACINH+10,SACINH+10> ;CAI,CAM
3546 034735 001010 001010 XWD SACINH+10,SACINH+10
3547 034736 001010 001010 XWD SACINH+10,SACINH+10
3548 034737 001010 001010 XWD SACINH+10,SACINH+10
3549 034740 001010 001010 XWD SACINH+10,SACINH+10
3550 REPEAT 4,<XWD SACINH+FCE+11,SACINH+FCE+11>
3551 034741 401011 401011 XWD SACINH+FCE+11,SACINH+FCE+11
3552 034742 401011 401011 XWD SACINH+FCE+11,SACINH+FCE+11
3553 034743 401011 401011 XWD SACINH+FCE+11,SACINH+FCE+11
3554 034744 401011 401011 XWD SACINH+FCE+11,SACINH+FCE+11
3555 REPEAT 4,<XWD SACINH+10,SACINH+10>
3556 034745 001010 001010 XWD SACINH+10,SACINH+10
3557 034746 001010 001010 XWD SACINH+10,SACINH+10
3558 034747 001010 001010 XWD SACINH+10,SACINH+10
3559 034750 001010 001010 XWD SACINH+10,SACINH+10
3560 REPEAT 4,<XWD FCE+SACZ+2+FACINH,FCE+SACZ+2+FACINH>
3561 034751 500202 500202 XWD FCE+SACZ+2+FACINH,FCE+SACZ+2+FACINH
3562 034752 500202 500202 XWD FCE+SACZ+2+FACINH,FCE+SACZ+2+FACINH
3563 034753 500202 500202 XWD FCE+SACZ+2+FACINH,FCE+SACZ+2+FACINH
3564 034754 500202 500202 XWD FCE+SACZ+2+FACINH,FCE+SACZ+2+FACINH
3565 REPEAT 4,<XWD 1,1> ;CODE 340 AOJ
3566 034755 000001 000001 XWD 1,1
3567 034756 000001 000001 XWD 1,1
3568 034757 000001 000001 XWD 1,1
3569 034760 000001 000001 XWD 1,1
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 53
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0104
3570 REPEAT 4,<XWD FCEPSE+SACZ+3+FACINH,FCEPSE+SACZ+3+FACINH>
3571 034761 300203 300203 XWD FCEPSE+SACZ+3+FACINH,FCEPSE+SACZ+3+FACINH
3572 034762 300203 300203 XWD FCEPSE+SACZ+3+FACINH,FCEPSE+SACZ+3+FACINH
3573 034763 300203 300203 XWD FCEPSE+SACZ+3+FACINH,FCEPSE+SACZ+3+FACINH
3574 034764 300203 300203 XWD FCEPSE+SACZ+3+FACINH,FCEPSE+SACZ+3+FACINH
3575 REPEAT 4,<XWD 1,1>
3576 034765 000001 000001 XWD 1,1
3577 034766 000001 000001 XWD 1,1
3578 034767 000001 000001 XWD 1,1
3579 034770 000001 000001 XWD 1,1
3580 REPEAT 4,<XWD FCEPSE+SACZ+3+FACINH,FCEPSE+SACZ+3+FACINH>
3581 034771 300203 300203 XWD FCEPSE+SACZ+3+FACINH,FCEPSE+SACZ+3+FACINH
3582 034772 300203 300203 XWD FCEPSE+SACZ+3+FACINH,FCEPSE+SACZ+3+FACINH
3583 034773 300203 300203 XWD FCEPSE+SACZ+3+FACINH,FCEPSE+SACZ+3+FACINH
3584 034774 300203 300203 XWD FCEPSE+SACZ+3+FACINH,FCEPSE+SACZ+3+FACINH
3585
3586 034775 100002 100001 IF400: XWD FACINH+2,FACINH+1 ;BOOLE 0
3587 034776 103000 102003 XWD FACINH+SACINH+SCE,FACINH+SCE+3
3588 034777 400002 000001 XWD FCE+2,1 ;BOOLE1
3589 035000 201000 200003 XWD FCEPSE+SACINH+0,FCEPSE+3
3590 035001 400002 000001 XWD FCE+2,1 ;BOOLE 2
3591 035002 201000 200003 XWD FCEPSE+SACINH+0,FCEPSE+3
3592 035003 500002 100001 XWD FACINH+FCE+2,FACINH+1 ;BOOLE 3
3593 035004 301000 300003 XWD SACINH+FACINH+FCEPSE,FACINH+FCEPSE+3
3594 035005 400002 000001 IF420: XWD FCE+2,1 ;BOOLE 4
3595 035006 201000 200003 XWD FCEPSE+SACINH+0,FCEPSE+3
3596 035007 000002 000001 XWD 2,1 ;BOOLE 5
3597 035010 003000 002003 XWD SACINH+SCE,SCE+3
3598 035011 400002 000001 XWD FCE+2,1 ;BOOLE 6
3599 035012 201000 200003 XWD FCEPSE+SACINH,FCEPSE+3
3600 035013 400002 000001 XWD FCE+2,1 ;BOOLE 7
3601 035014 201000 200003 XWD FCEPSE+SACINH+0,FCEPSE+3
3602 035015 400002 000001 IF440: XWD FCE+2,1 ;BOOLE 10
3603 035016 201000 200003 XWD FCEPSE+SACINH+0,FCEPSE+3
3604 035017 400002 000001 XWD FCE+2,1 ;BOOLE 11
3605 035020 201000 200003 XWD FCEPSE+SACINH+0,FCEPSE+3
3606 035021 000001 000001 XWD 1,1
3607 035022 003000 002003 XWD SACINH+SCE,SCE+3
3608 035023 400002 000001 XWD FCE+2,1 ;BOOLE 13
3609 035024 201000 200003 XWD FCEPSE+SACINH+0,FCEPSE+3
3610 035025 500002 100001 IF460: XWD FACINH+FCE+2,FACINH+1 ;BOOLE 14
3611 035026 301000 300003 XWD SACINH+FACINH+FCEPSE,FACINH+FCEPSE+3
3612 035027 400002 000001 XWD FCE+2,1 ;BOOLE 15
3613 035030 201000 200003 XWD FCEPSE+SACINH,FCEPSE+3
3614 035031 400002 000001 XWD FCE+2,1 ;BOOLE 16
3615 035032 201000 200003 XWD FCEPSE+SACINH,FCEPSE+3
3616 035033 100002 100001 XWD FACINH+2,FACINH+1 ;BOOLE 17
3617 035034 103000 102003 XWD FACINH+SACINH+SCE,FACINH+3+SCE
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 54
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0105
3618
3619 IR500: REPEAT 2,<XWD FCE+2,1 ;HALF WORDS
3620 XWD FCEPSE+SACINH,FCEPSE+FACINH+SACZ>
3621 035035 400002 000001 XWD FCE+2,1 ;HALF WORDS
3622 035036 201000 300200 XWD FCEPSE+SACINH,FCEPSE+FACINH+SACZ
3623 035037 400002 000001 XWD FCE+2,1 ;HALF WORDS
3624 035040 201000 300200 XWD FCEPSE+SACINH,FCEPSE+FACINH+SACZ
3625 REPEAT 6,<XWD FCE+FACINH+2,FACINH+1
3626 XWD FCEPSE+SACINH,FCEPSE+FACINH+SACZ>
3627 035041 500002 100001 XWD FCE+FACINH+2,FACINH+1
3628 035042 201000 300200 XWD FCEPSE+SACINH,FCEPSE+FACINH+SACZ
3629 035043 500002 100001 XWD FCE+FACINH+2,FACINH+1
3630 035044 201000 300200 XWD FCEPSE+SACINH,FCEPSE+FACINH+SACZ
3631 035045 500002 100001 XWD FCE+FACINH+2,FACINH+1
3632 035046 201000 300200 XWD FCEPSE+SACINH,FCEPSE+FACINH+SACZ
3633 035047 500002 100001 XWD FCE+FACINH+2,FACINH+1
3634 035050 201000 300200 XWD FCEPSE+SACINH,FCEPSE+FACINH+SACZ
3635 035051 500002 100001 XWD FCE+FACINH+2,FACINH+1
3636 035052 201000 300200 XWD FCEPSE+SACINH,FCEPSE+FACINH+SACZ
3637 035053 500002 100001 XWD FCE+FACINH+2,FACINH+1
3638 035054 201000 300200 XWD FCEPSE+SACINH,FCEPSE+FACINH+SACZ
3639 REPEAT 2,<XWD FCE+2,1
3640 XWD FCEPSE+SACINH,FCEPSE+FACINH+SACZ>
3641 035055 400002 000001 XWD FCE+2,1
3642 035056 201000 300200 XWD FCEPSE+SACINH,FCEPSE+FACINH+SACZ
3643 035057 400002 000001 XWD FCE+2,1
3644 035060 201000 300200 XWD FCEPSE+SACINH,FCEPSE+FACINH+SACZ
3645 REPEAT 6,<XWD FCE+FACINH+2,FACINH+1
3646 XWD FCEPSE+SACINH,FCEPSE+FACINH+SACZ>
3647 035061 500002 100001 XWD FCE+FACINH+2,FACINH+1
3648 035062 201000 300200 XWD FCEPSE+SACINH,FCEPSE+FACINH+SACZ
3649 035063 500002 100001 XWD FCE+FACINH+2,FACINH+1
3650 035064 201000 300200 XWD FCEPSE+SACINH,FCEPSE+FACINH+SACZ
3651 035065 500002 100001 XWD FCE+FACINH+2,FACINH+1
3652 035066 201000 300200 XWD FCEPSE+SACINH,FCEPSE+FACINH+SACZ
3653 035067 500002 100001 XWD FCE+FACINH+2,FACINH+1
3654 035070 201000 300200 XWD FCEPSE+SACINH,FCEPSE+FACINH+SACZ
3655 035071 500002 100001 XWD FCE+FACINH+2,FACINH+1
3656 035072 201000 300200 XWD FCEPSE+SACINH,FCEPSE+FACINH+SACZ
3657 035073 500002 100001 XWD FCE+FACINH+2,FACINH+1
3658 035074 201000 300200 XWD FCEPSE+SACINH,FCEPSE+FACINH+SACZ
3659 035075 IR600: REPEAT 4,<XWD SACINH+1,SACINH+1> ;TEST INST
3660 035075 001001 001001 XWD SACINH+1,SACINH+1
3661 035076 001001 001001 XWD SACINH+1,SACINH+1
3662 035077 001001 001001 XWD SACINH+1,SACINH+1
3663 035100 001001 001001 XWD SACINH+1,SACINH+1
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 55
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0106
3664 REPEAT 4,<XWD FCE+SACINH+2,FCE+SACINH+2>
3665 035101 401002 401002 XWD FCE+SACINH+2,FCE+SACINH+2
3666 035102 401002 401002 XWD FCE+SACINH+2,FCE+SACINH+2
3667 035103 401002 401002 XWD FCE+SACINH+2,FCE+SACINH+2
3668 035104 401002 401002 XWD FCE+SACINH+2,FCE+SACINH+2
3669 REPEAT 4,<XWD 1,1>
3670 035105 000001 000001 XWD 1,1
3671 035106 000001 000001 XWD 1,1
3672 035107 000001 000001 XWD 1,1
3673 035110 000001 000001 XWD 1,1
3674 REPEAT 4,<XWD FCE+2,FCE+2>
3675 035111 400002 400002 XWD FCE+2,FCE+2
3676 035112 400002 400002 XWD FCE+2,FCE+2
3677 035113 400002 400002 XWD FCE+2,FCE+2
3678 035114 400002 400002 XWD FCE+2,FCE+2
3679 REPEAT 4,<XWD 1,1>
3680 035115 000001 000001 XWD 1,1
3681 035116 000001 000001 XWD 1,1
3682 035117 000001 000001 XWD 1,1
3683 035120 000001 000001 XWD 1,1
3684 REPEAT 4,<XWD FCE+2,FCE+2>
3685 035121 400002 400002 XWD FCE+2,FCE+2
3686 035122 400002 400002 XWD FCE+2,FCE+2
3687 035123 400002 400002 XWD FCE+2,FCE+2
3688 035124 400002 400002 XWD FCE+2,FCE+2
3689 REPEAT 4,<XWD 1,1>
3690 035125 000001 000001 XWD 1,1
3691 035126 000001 000001 XWD 1,1
3692 035127 000001 000001 XWD 1,1
3693 035130 000001 000001 XWD 1,1
3694 REPEAT 4,<XWD FCE+2,FCE+2>
3695 035131 400002 400002 XWD FCE+2,FCE+2
3696 035132 400002 400002 XWD FCE+2,FCE+2
3697 035133 400002 400002 XWD FCE+2,FCE+2
3698 035134 400002 400002 XWD FCE+2,FCE+2
3699 PAGE
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 55-1
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0107
3700 REPEAT 40,<XWD 20,20>
3701 035135 000020 000020 XWD 20,20
3702 035136 000020 000020 XWD 20,20
3703 035137 000020 000020 XWD 20,20
3704 035140 000020 000020 XWD 20,20
3705 035141 000020 000020 XWD 20,20
3706 035142 000020 000020 XWD 20,20
3707 035143 000020 000020 XWD 20,20
3708 035144 000020 000020 XWD 20,20
3709 035145 000020 000020 XWD 20,20
3710 035146 000020 000020 XWD 20,20
3711 035147 000020 000020 XWD 20,20
3712 035150 000020 000020 XWD 20,20
3713 035151 000020 000020 XWD 20,20
3714 035152 000020 000020 XWD 20,20
3715 035153 000020 000020 XWD 20,20
3716 035154 000020 000020 XWD 20,20
3717 035155 000020 000020 XWD 20,20
3718 035156 000020 000020 XWD 20,20
3719 035157 000020 000020 XWD 20,20
3720 035160 000020 000020 XWD 20,20
3721 035161 000020 000020 XWD 20,20
3722 035162 000020 000020 XWD 20,20
3723 035163 000020 000020 XWD 20,20
3724 035164 000020 000020 XWD 20,20
3725 035165 000020 000020 XWD 20,20
3726 035166 000020 000020 XWD 20,20
3727 035167 000020 000020 XWD 20,20
3728 035170 000020 000020 XWD 20,20
3729 035171 000020 000020 XWD 20,20
3730 035172 000020 000020 XWD 20,20
3731 035173 000020 000020 XWD 20,20
3732 035174 000020 000020 XWD 20,20
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 56
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0108
3733
3734 ;SHIFT ROTATE
3735
3736 035175 200 00 0 00 041234 SHROT: MOVE 0,IRA
3737 035176 306 00 0 00 000243 CAIN 0,243 ;IR JFFO ?
3738 035177 254 00 0 00 035255 JRST JFFO1 ;YES
3739 035200 540 10 0 00 000013 HRR SC, BR
3740 035201 620 10 0 00 777400 TRZ SC, 777400 ;BR 18, 29-35
3741 035202 602 13 0 00 400000 TRNE BR, 400000 ;GO TO SHIFT
3742 035203 660 10 0 00 777400 TRO SC, 777400 ;COUNTER
3743 STORE ET0^
3744 035204 260 17 0 00 037601 GO HUNGCK
3745 035205 325 11 0 00 035210 JUMPGE MA,.+3 ;PRINTER CNTL
3746 035206 201 01 0 00 040663 MOVEI 1,[ASCII /ET0/]
3747 035207 260 17 0 00 037027 GO PRINTA
3748 035210 551 00 0 00 777777 HRRZI -1 ;FOR RIGHT SHIFTS
3749 035211 602 13 0 00 400000 TRNE BR, 400000
3750 035212 254 00 0 00 035222 JRST SHROT1
3751 035213 210 02 0 00 000010 MOVN SCAD,SC ;SC NEGAT SETUP
3752 035214 540 10 0 00 000002 HRR SC,SCAD ;SC FM SCAD(J)
3753 STORE SRT1^
3754 035215 260 17 0 00 037601 GO HUNGCK
3755 035216 325 11 0 00 035221 JUMPGE MA,.+3 ;PRINTER CNTL
3756 035217 201 01 0 00 040704 MOVEI 1,[ASCII /SRT1/]
3757 035220 260 17 0 00 037027 GO PRINTA
3758 035221 201 00 0 00 000001 MOVEI 1
3759 035222 200 03 0 00 041234 SHROT1: MOVE AD,IRA
3760 035223 260 17 0 00 036716 GO SCSUB
3761 035224 260 17 0 00 035236 GO SHROT2
3762 035225 254 00 0 00 032554 JRST ST0
3763 035226 240 14 1 17 000000 SHTAB: ASH AR,@(P)
3764 035227 241 14 1 17 000000 ROT AR,@(P)
3765 035230 242 14 1 17 000000 LSH AR,@(P)
3766 035231 300 00 0 00 000000 CAI
3767 035232 244 14 1 17 000000 ASHC AR,@(P)
3768 035233 245 14 1 17 000000 ROTC AR,@(P)
3769 035234 246 14 1 17 000000 LSHC AR,@(P)
3770 035235 300 00 0 00 000000 CAI
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 57
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0109
3771 035236 261 17 0 00 000000 SHROT2: PUT 0 ;C(AC0)=DIRECTION OF SHIFT
3772 035237 302 03 0 00 000244 CAIE AD,244 ;IR ASHC?
3773 035240 306 03 0 00 000240 CAIN AD,240 ;OR ASH?
3774 035241 254 00 0 00 035245 JRST SHROT3 ;YES.
3775 035242 256 00 0 03 034766 SHRT2: XCT SHTAB-240(AD)
3776 035243 262 17 0 00 000000 GET 0
3777 035244 263 17 0 00 000000 RTN
3778
3779 035245 602 13 0 00 400000 SHROT3: TRNE BR,400000 ;BR18(0)?
3780 035246 254 00 0 00 035242 JRST SHRT2 ;NO.
3781 035247 200 01 0 00 000014 MOVE 1,AR
3782 035250 242 01 0 00 000001 LSH 1,1
3783 035251 430 01 0 00 000014 XOR 1,AR
3784 035252 335 00 0 00 000001 SKIPGE 1 ;BR18(0) AND AR0 NE AR1?
3785 035253 661 12 0 00 400000 TLO PC,AROV ;YES. SET AROV FLAG.
3786 035254 254 00 0 00 035242 JRST SHRT2
3787
3788 035255 200 00 0 00 000014 JFFO1: MOVE 0,AR ;SPECIAL FIX TO INCLUDE JFFO
3789 035256 243 00 0 00 035261 JFFO 0,.+3
3790 035257 200 14 0 00 000001 MOVE AR,1
3791 035260 254 00 0 00 032554 JRST ST0
3792 035261 200 14 0 00 000001 MOVE AR,1
3793 035262 540 12 0 00 000011 HRR PC,MA
3794 035263 254 00 0 00 032554 JRST ST0
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 58
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0110
3795
3796 ;FLOATING POINT
3797
3798 035264 540 10 0 00 000013 SFSC: HRR SC,BR ;SC FM BR(1)
3799 035265 620 10 0 00 777400 TRZ SC,777400
3800 035266 602 13 0 00 400000 TRNE BR,400000
3801 035267 660 10 0 00 777400 TRO SC,777400
3802 035270 200 13 0 00 000014 MOVE BR,AR ;BR FM AR(J)
3803 035271 554 00 0 00 000013 HLRZ 0,BR
3804 035272 242 00 0 00 777767 LSH 0,-11
3805 035273 542 00 0 00 000002 HRRM 0,SCAD
3806 035274 335 00 0 00 000014 SKIPGE AR
3807 035275 450 02 0 00 000000 SETCA SCAD, ;AR0(1) : SCAD SC-BR SETUP
3808 035276 270 02 0 00 000010 ADD SCAD,SC ;AR0(0) : SCAD SC+BR SETUP
3809 STORE ET0^
3810 035277 260 17 0 00 037601 GO HUNGCK
3811 035300 325 11 0 00 035303 JUMPGE MA,.+3 ;PRINTER CNTL
3812 035301 201 01 0 00 040663 MOVEI 1,[ASCII /ET0/]
3813 035302 260 17 0 00 037027 GO PRINTA
3814 035303 621 14 0 00 377000 TLZ AR,377000 ;AR1-8 FM AR0(J)
3815 035304 603 14 0 00 400000 TLNE AR,400000
3816 035305 661 14 0 00 377000 TLO AR,377000
3817 STORE ET1^
3818 035306 260 17 0 00 037601 GO HUNGCK
3819 035307 325 11 0 00 035312 JUMPGE MA,.+3 ;PRINTER CNTL
3820 035310 201 01 0 00 040665 MOVEI 1,[ASCII /ET1/]
3821 035311 260 17 0 00 037027 GO PRINTA
3822 035312 540 10 0 00 000002 HRR SC,SCAD ;SC FM SCAD(J)
3823 STORE ET2^
3824 035313 260 17 0 00 037601 GO HUNGCK
3825 035314 325 11 0 00 035317 JUMPGE MA,.+3 ;PRINTER CNTL
3826 035315 201 01 0 00 040666 MOVEI 1,[ASCII /ET2/]
3827 035316 260 17 0 00 037027 GO PRINTA
3828 035317 260 17 0 00 036101 GO NRT0
3829 035320 254 00 0 00 032554 JRST ST0
3830
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 59
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0111
3831 035321 210 03 0 00 000013 SDFN: MOVN AD,BR ;AD MINUS BR
3832 035322 554 02 0 00 000013 HLRZ SCAD,BR
3833 035323 242 02 0 00 777767 LSH SCAD,-11 ;SCAD SC+BR SETUP
3834 035324 540 10 0 00 000002 HRR SC,SCAD ;SC FM SCAD(J)
3835 035325 200 13 0 00 000014 MOVE BR,AR ;BR FM AR(J)
3836 035326 200 14 0 00 000003 MOVE AR,AD ;AR FM AD(J)
3837 035327 210 03 0 00 000013 MOVN AD,BR ;AD MINUS BR
3838 035330 607 14 0 00 000777 TLNN AR,777
3839 035331 602 14 0 00 777777 TRNE AR,-1
3840 035332 460 03 0 00 000013 SETCM AD,BR ;AD9-35 NE 0 : AD CRY36 CLR
3841 STORE ET0^
3842 035333 260 17 0 00 037601 GO HUNGCK
3843 035334 325 11 0 00 035337 JUMPGE MA,.+3 ;PRINTER CNTL
3844 035335 201 01 0 00 040663 MOVEI 1,[ASCII /ET0/]
3845 035336 260 17 0 00 037027 GO PRINTA
3846 035337 621 14 0 00 777000 TLZ AR,777000
3847 035340 242 02 0 00 000033 LSH SCAD,33
3848 035341 436 02 0 00 000014 IORM SCAD,AR ;AR0-8 FM SCAD(J)
3849 STORE ET1^
3850 035342 260 17 0 00 037601 GO HUNGCK
3851 035343 325 11 0 00 035346 JUMPGE MA,.+3 ;PRINTER CNTL
3852 035344 201 01 0 00 040665 MOVEI 1,[ASCII /ET1/]
3853 035345 260 17 0 00 037027 GO PRINTA
3854 035346 200 13 0 00 000014 MOVE BR,AR ;BR FM AR(J)
3855 035347 200 14 0 00 000003 MOVE AR,AD ;AR FM AD(J)
3856 STORE ET2^
3857 035350 260 17 0 00 037601 GO HUNGCK
3858 035351 325 11 0 00 035354 JUMPGE MA,.+3 ;PRINTER CNTL
3859 035352 201 01 0 00 040666 MOVEI 1,[ASCII /ET2/]
3860 035353 260 17 0 00 037027 GO PRINTA
3861 035354 254 00 0 00 032554 JRST ST0
3862
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 60
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0112
3863 035355 213 00 0 00 000013 SFSB: MOVNS BR ;AD MINUS BR
3864 035356 250 14 0 00 000013 EXCH AR,BR ;AR FM AD(J), BR FM AR(J)
3865 035357 SFAD: STORE ET0^
3866 035357 260 17 0 00 037601 GO HUNGCK
3867 035360 325 11 0 00 035363 JUMPGE MA,.+3 ;PRINTER CNTL
3868 035361 201 01 0 00 040663 MOVEI 1,[ASCII /ET0/]
3869 035362 260 17 0 00 037027 GO PRINTA
3870 035363 200 00 0 00 000014 FAT1: MOVE AR
3871 035364 240 00 0 00 777745 ASH -^D27
3872 035365 542 00 0 00 000010 HRRM SC ;SC FM AR0-8(1)
3873 035366 200 02 0 00 000013 MOVE SCAD,BR
3874 035367 240 02 0 00 777745 ASH SCAD,-^D27
3875 035370 200 00 0 00 000013 MOVE BR
3876 035371 430 00 0 00 000014 XOR AR
3877 035372 331 00 0 00 000000 SKIPL ;AR0 NE BR0?
3878 035373 276 10 0 00 000002 SUBM SC,SCAD ;SCAD SC-BR SETUP
3879 035374 335 00 0 00 000000 SKIPGE
3880 035375 270 02 0 00 000010 ADD SCAD,SC ;SCAD SC+BR SETUP
3881 035376 570 02 0 00 000002 HRRE SCAD,SCAD ;PUT BIT 18 INTO BIT 0.
3882 STORE FAT1^
3883 035377 260 17 0 00 037601 GO HUNGCK
3884 035400 325 11 0 00 035403 JUMPGE MA,.+3 ;PRINTER CNTL
3885 035401 201 01 0 00 040705 MOVEI 1,[ASCII /FAT1/]
3886 035402 260 17 0 00 037027 GO PRINTA
3887
3888 035403 540 10 0 00 000002 FAT2: HRR SC,SCAD ;SC FM SCAD(J)
3889 035404 200 00 0 00 000014 MOVE 0,AR
3890 035405 430 00 0 00 000013 XOR 0,BR
3891 035406 325 00 0 00 035414 JUMPGE 0,FAT2B ;AR0 = BR0.
3892 035407 325 02 0 00 035412 JUMPGE SCAD,FAT2A ;SCAD0(0) + AR0 NE BR0.
3893 035410 541 02 0 10 000001 HRRI SCAD,1(SC) ;SCAD0(1) +AR0 NE BR0..SCAD SC+1 SETUP
3894 035411 254 00 0 00 035416 JRST FAT2D
3895
3896 035412 460 02 0 00 000010 FAT2A: SETCM SCAD,SC ;SCAD SC COM SETUP.
3897 035413 254 00 0 00 035416 JRST FAT2D
3898
3899 035414 331 00 0 00 000002 FAT2B: SKIPL SCAD
3900 035415 210 02 0 00 000010 MOVN SCAD,SC ;SC NEGATE SETUP.
3901
3902 035416 FAT2D: STORE FAT2^
3903 035416 260 17 0 00 037601 GO HUNGCK
3904 035417 325 11 0 00 035422 JUMPGE MA,.+3 ;PRINTER CNTL
3905 035420 201 01 0 00 040706 MOVEI 1,[ASCII /FAT2/]
3906 035421 260 17 0 00 037027 GO PRINTA
3907
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 61
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0113
3908 035422 200 00 0 00 000010 FAT3: MOVE SC
3909 035423 242 00 0 00 000033 LSH 0,33
3910 035424 430 00 0 00 000014 XOR AR
3911 035425 540 10 0 00 000002 HRR SC,SCAD ;SC FM SCAD(J)
3912 STORE FAT3^
3913 035426 260 17 0 00 037601 GO HUNGCK
3914 035427 325 11 0 00 035432 JUMPGE MA,.+3 ;PRINTER CNTL
3915 035430 201 01 0 00 040707 MOVEI 1,[ASCII /FAT3/]
3916 035431 260 17 0 00 037027 GO PRINTA
3917 035432 321 00 0 00 035440 JUMPL 0,FAT45 ;SC0 = AR0?
3918 035433 250 14 0 00 000013 EXCH AR,BR ;YES. AR FM AD(J), BR FM AR(J)
3919 035434 FAT3A: STORE FAT3A^
3920 035434 260 17 0 00 037601 GO HUNGCK
3921 035435 325 11 0 00 035440 JUMPGE MA,.+3 ;PRINTER CNTL
3922 035436 201 01 0 00 040710 MOVEI 1,[ASCII /FAT3A/]
3923 035437 260 17 0 00 037027 GO PRINTA
3924
3925 035440 570 00 0 00 000010 FAT45: HRRE SC ;SHIFT COUNT SIGN TO BIT ZERO
3926 035441 640 10 0 00 000700 TRC SC, 700
3927 035442 642 10 0 00 000700 TRCE SC, 700
3928 035443 321 00 0 00 035507 JUMPL FAT4 ;SC 0-2 NOT = 7 AND SC0(1)
3929
3930 035444 621 14 0 00 377000 FAT5: TLZ AR,377000 ;SC0-2 = 7 OR SC0(0)
3931 035445 603 14 0 00 400000 TLNE AR,400000 ;AR1-8 FM AR0 (J)
3932 035446 661 14 0 00 377000 TLO AR, 377000
3933 STORE FAT5^
3934 035447 260 17 0 00 037601 GO HUNGCK
3935 035450 325 11 0 00 035453 JUMPGE MA,.+3 ;PRINTER CNTL
3936 035451 201 01 0 00 040711 MOVEI 1,[ASCII /FAT5/]
3937 035452 260 17 0 00 037027 GO PRINTA
3938 035453 260 17 0 00 036716 GO SCSUB ;CALL SHIFT COUNTER
3939 035454 260 17 0 00 036344 GO FPSHRT ;FOR FLOAT SHIFT RIGHT
3940 035455 200 00 0 00 000013 FAT6: MOVE 0,BR
3941 035456 242 00 0 00 777745 LSH 0,-33
3942 035457 200 02 0 00 000010 MOVE SCAD,SC
3943 035460 270 02 0 00 000000 ADD SCAD,0 ;SCAD SC+BR SETUP
3944 STORE FAT6^
3945 035461 260 17 0 00 037601 GO HUNGCK
3946 035462 325 11 0 00 035465 JUMPGE MA,.+3 ;PRINTER CNTL
3947 035463 201 01 0 00 040712 MOVEI 1,[ASCII /FAT6/]
3948 035464 260 17 0 00 037027 GO PRINTA
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 62
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0114
3949
3950 035465 540 10 0 00 000002 FAT7: HRR SC,SCAD ;SC FM SCAD(J)
3951 035466 621 13 0 00 377000 TLZ BR,377000
3952 035467 603 13 0 00 400000 TLNE BR,400000 ;BR1-8 FM BR0(J)
3953 035470 661 13 0 00 377000 TLO BR, 377000
3954 035471 460 02 0 00 000010 SETCM SCAD,SC ;SCAD SC COM SETUP
3955 STORE FAT7^
3956 035472 260 17 0 00 037601 GO HUNGCK
3957 035473 325 11 0 00 035476 JUMPGE MA,.+3 ;PRINTER CNTL
3958 035474 201 01 0 00 040713 MOVEI 1,[ASCII /FAT7/]
3959 035475 260 17 0 00 037027 GO PRINTA
3960 035476 270 14 0 00 000013 FAT8: ADD AR,BR ;AR FM AD(J)
3961 035477 325 13 0 00 035501 JUMPGE BR,FAT8A
3962 035500 540 10 0 00 000002 HRR SC,SCAD ;BR0(1) : SC FM SCAD(J)
3963 035501 FAT8A: STORE FAT8^
3964 035501 260 17 0 00 037601 GO HUNGCK
3965 035502 325 11 0 00 035505 JUMPGE MA,.+3 ;PRINTER CNTL
3966 035503 201 01 0 00 040714 MOVEI 1,[ASCII /FAT8/]
3967 035504 260 17 0 00 037027 GO PRINTA
3968 035505 260 17 0 00 036101 GO NRT0 ;GO TO NORMALIZE RETURN
3969 035506 254 00 0 00 032554 JRST ST0
3970
3971 035507 400 14 0 00 000000 FAT4: SETZ AR, ;CLR AR
3972 035510 620 10 0 00 777777 TRZ SC,-1 ;SC CLR
3973 STORE FAT4^
3974 035511 260 17 0 00 037601 GO HUNGCK
3975 035512 325 11 0 00 035515 JUMPGE MA,.+3 ;PRINTER CNTL
3976 035513 201 01 0 00 040715 MOVEI 1,[ASCII /FAT4/]
3977 035514 260 17 0 00 037027 GO PRINTA
3978 035515 254 00 0 00 035455 JRST FAT6
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 63
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0115
3979
3980 ;FLOATING DIVIDE
3981
3982 035516 200 00 0 00 041234 SFDV: MOVE 0,IRA
3983 035517 306 00 0 00 000171 CAIN 0,171
3984 035520 254 00 0 00 036457 JRST DIVT0 ;FDVL
3985 035521 325 14 0 00 035524 SFDV1: JUMPGE AR,.+3 ;FDV
3986 035522 213 00 0 00 000014 MOVNS AR ;AR0(1) : AD AR NEGATE..AR FM AD(J)
3987 035523 661 11 0 00 000040 TLO MA,DSF7 ;DSF7 SET
3988 035524 SFMP: STORE ET0^
3989 035524 260 17 0 00 037601 GO HUNGCK
3990 035525 325 11 0 00 035530 JUMPGE MA,.+3 ;PRINTER CNTL
3991 035526 201 01 0 00 040663 MOVEI 1,[ASCII /ET0/]
3992 035527 260 17 0 00 037027 GO PRINTA
3993 035530 254 00 0 00 035754 JRST FPT0
3994
3995 035531 200 03 0 00 000014 FDT1: MOVE AD,AR ;AD AR+EN SET
3996 035532 331 00 0 00 000013 SKIPL BR
3997 035533 274 03 0 00 000013 SUB AD,BR ;BR0(0) : AD BR-EN..AD CRY36 SET
3998 035534 335 00 0 00 000013 SKIPGE BR
3999 035535 270 03 0 00 000013 ADD AD,BR ;BR0(1) : AD BR+EN SET
4000 035536 602 10 0 00 000400 TRNE SC,400 ;ECO49, SC0(0)
4001 035537 254 00 0 00 035543 JRST .+4 ;NO
4002 035540 602 10 0 00 000200 TRNE SC,200 ;SC1(0)
4003 035541 476 00 0 00 041230 SETOM FXUHLD ;SC0 NE SC1, SET AR FXU HOLD
4004 035542 254 00 0 00 035545 JRST .+3
4005 035543 606 10 0 00 000200 TRNN SC,200 ;SC1(0)
4006 035544 254 00 0 00 035541 JRST .-3
4007 STORE FDT1^
4008 035545 260 17 0 00 037601 GO HUNGCK
4009 035546 325 11 0 00 035551 JUMPGE MA,.+3 ;PRINTER CNTL
4010 035547 201 01 0 00 040716 MOVEI 1,[ASCII /FDT1/]
4011 035550 260 17 0 00 037027 GO PRINTA
4012 035551 321 03 0 00 035567 JUMPL AD,FDT4 ;AD0(1)?...GO TO FDT4
4013 035552 200 03 0 00 000014 FDT2: MOVE AD,AR ;AR ENABLE BR DISABLE
4014 035553 621 10 0 00 777777 TLZ FE,-1 ;FE CLR
4015 STORE FDT2^
4016 035554 260 17 0 00 037601 GO HUNGCK
4017 035555 325 11 0 00 035560 JUMPGE MA,.+3 ;PRINTER CNTL
4018 035556 201 01 0 00 040717 MOVEI 1,[ASCII /FDT2/]
4019 035557 260 17 0 00 037027 GO PRINTA
4020 035560 506 02 0 00 000010 FDT3: HRLM SCAD,FE ;FE FM SCAD(1)
4021 035561 260 17 0 00 036344 GO FPSHRT ;AR SH RT...MQ SH RT
4022 035562 476 00 0 00 041223 SETOM FDF3# ;FDF3 SET
4023 STORE FDT3^
4024 035563 260 17 0 00 037601 GO HUNGCK
4025 035564 325 11 0 00 035567 JUMPGE MA,.+3 ;PRINTER CNTL
4026 035565 201 01 0 00 040720 MOVEI 1,[ASCII /FDT3/]
4027 035566 260 17 0 00 037027 GO PRINTA
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 64
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0116
4028 035567 620 10 0 00 777777 FDT4: TRZ SC,-1 ;SC CLR
4029 STORE FDT4^
4030 035570 260 17 0 00 037601 GO HUNGCK
4031 035571 325 11 0 00 035574 JUMPGE MA,.+3 ;PRINTER CNTL
4032 035572 201 01 0 00 040721 MOVEI 1,[ASCII /FDT4/]
4033 035573 260 17 0 00 037027 GO PRINTA
4034 035574 541 10 0 00 777744 FDT5: HRRI SC,-^D28 ;IF IR6(1)
4035 035575 607 07 0 00 004000 TLNN IR,4000 ;-28 TO SC, IF IR6(0)
4036 035576 541 10 0 00 777745 HRRI SC,-^D27 ;-27 TO SC
4037 STORE FDT5^
4038 035577 260 17 0 00 037601 GO HUNGCK
4039 035600 325 11 0 00 035603 JUMPGE MA,.+3 ;PRINTER CNTL
4040 035601 201 01 0 00 040722 MOVEI 1,[ASCII /FDT5/]
4041 035602 260 17 0 00 037027 GO PRINTA
4042
4043 035603 260 17 0 00 036563 FDT5A: GO DST1 ;GO TO DIVIDE STEP SUBROUTINE
4044 035604 254 00 0 00 032552 JRST SS9 ;ERROR RETURN.
4045
4046 035605 607 07 0 00 004000 FDT6: TLNN IR,4000 ;IR6(1)?
4047 035606 254 00 0 00 035611 JRST .+3 ;NO.
4048 035607 271 14 0 00 000001 ADDI AR,1
4049 035610 240 14 0 00 777777 ASH AR,-1 ;YES..AR SHRT
4050 035611 661 11 0 00 002000 TLO MA,NRF1 ;DISABLE FURTHER ROUNDING
4051 035612 544 10 0 00 000010 HLR SC,FE ;SC FM FE(1)
4052 STORE FDT6^
4053 035613 260 17 0 00 037601 GO HUNGCK
4054 035614 325 11 0 00 035617 JUMPGE MA,.+3 ;PRINTER CNTL
4055 035615 201 01 0 00 040723 MOVEI 1,[ASCII /FDT6/]
4056 035616 260 17 0 00 037027 GO PRINTA
4057 035617 476 00 0 00 041224 SETOM FDT7FX# ;FDVL SIM FIX FOR NR ALL ZERO
4058 035620 260 17 0 00 036101 GO NRT0 ;TO NORM. ROUTINE
4059 035621 336 00 0 00 041224 SKIPN FDT7FX
4060 035622 254 00 0 00 032554 JRST ST0 ;NR ALL ZERO
4061 035623 210 03 0 00 000014 FDT7: MOVN AD,AR ;AD AR-EN...AD CRY36 SET
4062 STORE FDT7^
4063 035624 260 17 0 00 037601 GO HUNGCK
4064 035625 325 11 0 00 035630 JUMPGE MA,.+3 ;PRINTER CNTL
4065 035626 201 01 0 00 040724 MOVEI 1,[ASCII /FDT7/]
4066 035627 260 17 0 00 037027 GO PRINTA
4067 035630 603 11 0 00 000040 FDT8: TLNE MA,DSF7 ;BR0 NE DSF7?
4068 035631 321 13 0 00 035635 JUMPL BR,FDT8A
4069 035632 607 11 0 00 000040 TLNN MA, DSF7
4070 035633 325 13 0 00 035635 JUMPGE BR,FDT8A
4071 035634 200 14 0 00 000003 MOVE AR,AD ;YES...AR FM AD(J)
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 65
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0117
4072 035635 FDT8A: STORE FDT8^
4073 035635 260 17 0 00 037601 GO HUNGCK
4074 035636 325 11 0 00 035641 JUMPGE MA,.+3 ;PRINTER CNTL
4075 035637 201 01 0 00 040725 MOVEI 1,[ASCII /FDT8/]
4076 035640 260 17 0 00 037027 GO PRINTA
4077 035641 200 00 0 00 041234 MOVE 0,IRA
4078 035642 302 00 0 00 000171 CAIE 171 ;FDVL?
4079 035643 254 00 0 00 032554 JRST ST0 ;NO. FDV
4080
4081 ;MORE FLOATING DIVIDE.....FDVL
4082 035644 200 13 0 00 000014 FDT9: MOVE BR,AR ;BR FM AR(J)
4083 035645 400 14 0 00 000000 SETZ AR, ;AR CLEAR
4084 035646 620 10 0 00 777777 TRZ SC,-1 ;SC CLEAR
4085 STORE FDT9^
4086 035647 260 17 0 00 037601 GO HUNGCK
4087 035650 325 11 0 00 035653 JUMPGE MA,.+3 ;PRINTER CNTL
4088 035651 201 01 0 00 040726 MOVEI 1,[ASCII /FDT9/]
4089 035652 260 17 0 00 037027 GO PRINTA
4090 FMRQA 0^
4091 035653 200 00 0 00 041206 MOVE ACA# ;MEM READ AC
4092 035654 271 00 0 00 000000 ADDI 0
4093 035655 405 00 0 00 000017 ANDI 17
4094 035656 270 00 0 00 000016 ADD USERAC
4095 035657 336 00 0 00 000016 SKIPN USERAC
4096 035660 271 00 0 00 040000 ADDI JA
4097 035661 261 17 0 00 000000 PUT 0
4098 035662 405 00 0 00 777777 ANDI 0,-1
4099 035663 200 14 1 00 000000 MOVE AR,@0
4100 035664 262 17 0 00 000000 GET 0
4101 035665 607 11 0 00 010000 TLNN MA,FMEN ;MC FMEN?
4102 035666 254 00 0 00 035674 JRST FDRQ ;NO.
4103 STORE FDT10^
4104 035667 260 17 0 00 037601 GO HUNGCK
4105 035670 325 11 0 00 035673 JUMPGE MA,.+3 ;PRINTER CNTL
4106 035671 201 01 0 00 040727 MOVEI 1,[ASCII /FDT10/]
4107 035672 260 17 0 00 037027 GO PRINTA
4108 035673 254 00 0 00 035700 JRST FDT11
4109 035674 FDRQ: STORE FDRQ^
4110 035674 260 17 0 00 037601 GO HUNGCK
4111 035675 325 11 0 00 035700 JUMPGE MA,.+3 ;PRINTER CNTL
4112 035676 201 01 0 00 040730 MOVEI 1,[ASCII /FDRQ/]
4113 035677 260 17 0 00 037027 GO PRINTA
4114 035700 554 00 0 00 000014 FDT11: HLRZ AR
4115 035701 240 00 0 00 777767 ASH -^D9
4116 035702 542 00 0 00 000010 HRRM SC ;SC FM AR0-8[1]
4117 035703 332 00 0 00 041223 SKIPE FDF3 ;FDF3 SET?
4118 035704 254 00 0 00 035716 JRST FDT11B ;YES. 32 EN SET
4119 035705 551 02 0 10 777745 HRRZI SCAD,-33(SC) ;NO. 33 EN SET
4120 035706 335 00 0 00 000014 SKIPGE AR
4121 035707 551 02 0 10 000033 HRRZI SCAD, 33(SC)
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 66
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0118
4122 035710 200 14 0 00 000015 FDT11A: MOVE AR,MQ ;AR FM MQ(J)
4123 STORE FDT11^
4124 035711 260 17 0 00 037601 GO HUNGCK
4125 035712 325 11 0 00 035715 JUMPGE MA,.+3 ;PRINTER CNTL
4126 035713 201 01 0 00 040731 MOVEI 1,[ASCII /FDT11/]
4127 035714 260 17 0 00 037027 GO PRINTA
4128 035715 254 00 0 00 035722 JRST FDT12
4129
4130 035716 551 02 0 10 777746 FDT11B: HRRZI SCAD,-32(SC)
4131 035717 335 00 0 00 000014 SKIPGE AR
4132 035720 551 02 0 10 000032 HRRZI SCAD,32(SC)
4133 035721 254 00 0 00 035710 JRST FDT11A
4134
4135 035722 606 02 0 00 000400 FDT12: TRNN SCAD,400 ;AR0=SCAD0 AND AD NE 0 :
4136 035723 325 14 0 00 035727 JUMPGE AR,FDT12A ;AR1-8 FM SCAD(J)
4137 035724 602 02 0 00 000400 TRNE SCAD,400
4138 035725 321 14 0 00 035727 JUMPL AR,FDT12A
4139 035726 400 14 0 00 000000 SETZ AR, ;AR0 NE SCAD0 : AR CLR
4140 035727 322 14 0 00 035735 FDT12A: JUMPE AR,FDT12B
4141 035730 514 00 0 00 000002 HRLZ SCAD
4142 035731 242 00 0 00 000011 LSH ^D9
4143 035732 621 00 0 00 400000 TLZ 0,400000
4144 035733 621 14 0 00 377000 TLZ AR,377000
4145 035734 436 00 0 00 000014 IORM AR ;AR1-8 FM SCAD(J)
4146 035735 FDT12B: STORE FDT12^
4147 035735 260 17 0 00 037601 GO HUNGCK
4148 035736 325 11 0 00 035741 JUMPGE MA,.+3 ;PRINTER CNTL
4149 035737 201 01 0 00 040732 MOVEI 1,[ASCII /FDT12/]
4150 035740 260 17 0 00 037027 GO PRINTA
4151
4152 035741 202 14 0 00 000015 FDT13: MOVEM AR,MQ ;MQ FM AD(J) ;REMAINDER
4153 STORE FDT13^
4154 035742 260 17 0 00 037601 GO HUNGCK
4155 035743 325 11 0 00 035746 JUMPGE MA,.+3 ;PRINTER CNTL
4156 035744 201 01 0 00 040733 MOVEI 1,[ASCII /FDT13/]
4157 035745 260 17 0 00 037027 GO PRINTA
4158 035746 200 14 0 00 000013 FDT14: MOVE AR,BR ;AR FM AD(J) ;QUOTIENT
4159 STORE FDT14^
4160 035747 260 17 0 00 037601 GO HUNGCK
4161 035750 325 11 0 00 035753 JUMPGE MA,.+3 ;PRINTER CNTL
4162 035751 201 01 0 00 040734 MOVEI 1,[ASCII /FDT14/]
4163 035752 260 17 0 00 037027 GO PRINTA
4164 035753 254 00 0 00 032554 JRST ST0 ;END FLOATING DIVIDE
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 67
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0119
4165
4166 ;FLOATING EXPONENT
4167
4168 035754 200 02 0 00 000014 FPT0: MOVE SCAD,AR
4169 035755 240 02 0 00 777745 ASH SCAD,-33
4170 035756 542 02 0 00 000010 HRRM SCAD,SC ;SC FM AR0-8(1),SCAD FM SC(J)
4171 035757 335 00 0 00 000014 SKIPGE AR
4172 035760 460 02 0 00 000010 SETCM SCAD,SC ;AR0(1) : SCAD SC COM SETUP
4173 STORE FPT0^
4174 035761 260 17 0 00 037601 GO HUNGCK
4175 035762 325 11 0 00 035765 JUMPGE MA,.+3 ;PRINTER CNTL
4176 035763 201 01 0 00 040735 MOVEI 1,[ASCII /FPT0/]
4177 035764 260 17 0 00 037027 GO PRINTA
4178
4179 035765 540 10 0 00 000002 FPT1: HRR SC,SCAD ;SC FM SCAD(J)
4180 035766 200 01 0 00 000013 MOVE 1,BR
4181 035767 240 01 0 00 777745 ASH 1,-^D27
4182 035770 200 00 0 00 000007 MOVE 0,IR
4183 035771 242 00 0 00 000005 LSH 0,5
4184 035772 430 00 0 00 000013 XOR 0,BR
4185 035773 335 00 0 00 000000 SKIPGE 0 ;IR5 = BR0 : SCAD DATA 1 EN
4186 035774 450 01 0 00 000000 SETCA 1, ;IR5 NE BR0 : SCAD DATA 0 EN
4187 035775 270 02 0 00 000001 ADD SCAD,1
4188 035776 603 07 0 00 010000 TLNE IR,10000 ;IR5(1)?
4189 035777 271 02 0 00 000001 ADDI SCAD,1 ;YES. SCAD + 1 EN SET
4190 STORE FPT1^
4191 036000 260 17 0 00 037601 GO HUNGCK
4192 036001 325 11 0 00 036004 JUMPGE MA,.+3 ;PRINTER CNTL
4193 036002 201 01 0 00 040736 MOVEI 1,[ASCII /FPT1/]
4194 036003 260 17 0 00 037027 GO PRINTA
4195
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 68
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0120
4196 036004 540 10 0 00 000002 FPT2: HRR SC,SCAD ;SC FM SCAD(J)
4197 036005 607 07 0 00 010000 TLNN IR,10000
4198 036006 275 02 0 00 000200 SUBI SCAD,200 ;IR5(0) : SC-EN (SCAD 200 EN SET)
4199 036007 603 07 0 00 010000 TLNE IR,10000
4200 036010 271 02 0 00 000200 ADDI SCAD,200 ;IR5(1) : SC+EN (SCAD 200 EN SET)
4201 STORE FPT2^
4202 036011 260 17 0 00 037601 GO HUNGCK
4203 036012 325 11 0 00 036015 JUMPGE MA,.+3 ;PRINTER CNTL
4204 036013 201 01 0 00 040737 MOVEI 1,[ASCII /FPT2/]
4205 036014 260 17 0 00 037027 GO PRINTA
4206
4207 036015 621 13 0 00 377000 FPT3: TLZ BR,377000 ;BR1-8 FM BR0(J)
4208 036016 603 13 0 00 400000 TLNE BR,400000
4209 036017 661 13 0 00 377000 TLO BR,377000
4210 036020 621 14 0 00 377000 TLZ AR,377000 ;AR1-8 FM AR0(J)
4211 036021 603 14 0 00 400000 TLNE AR,400000
4212 036022 661 14 0 00 377000 TLO AR,377000
4213 036023 514 10 0 00 000002 HRLZ FE,SCAD ;FE FM SCAD(1),SC CLR
4214 036024 603 07 0 00 010000 TLNE IR,10000 ;IR5(1)?
4215 036025 540 10 0 00 000002 HRR SC,SCAD ;YES. SC FM SCAD(J)
4216 036026 271 02 0 00 000001 ADDI SCAD,1 ;SCAD SC+1 SETUP
4217 STORE FPT3^
4218 036027 260 17 0 00 037601 GO HUNGCK
4219 036030 325 11 0 00 036033 JUMPGE MA,.+3 ;PRINTER CNTL
4220 036031 201 01 0 00 040740 MOVEI 1,[ASCII /FPT3/]
4221 036032 260 17 0 00 037027 GO PRINTA
4222 036033 603 07 0 00 010000 TLNE IR,10000 ;IR5(1)?
4223 036034 254 00 0 00 035531 JRST FDT1 ;YES.
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 69
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0121
4224
4225 036035 541 10 0 00 000745 FMT1: HRRI SC,745 ;SC FP SETUP (745)
4226 STORE FMT1^
4227 036036 260 17 0 00 037601 GO HUNGCK
4228 036037 325 11 0 00 036042 JUMPGE MA,.+3 ;PRINTER CNTL
4229 036040 201 01 0 00 040741 MOVEI 1,[ASCII /FMT1/]
4230 036041 260 17 0 00 037027 GO PRINTA
4231
4232 036042 325 13 0 00 036045 MST0: JUMPGE BR,.+3
4233 036043 337 00 0 00 000014 SKIPG AR
4234 036044 661 11 0 00 000100 TLO MA,MPF2 ;AR0(1) AND BR0(1) : MPF2 SET.
4235 036045 200 15 0 00 000013 MOVE MQ,BR ;MQ FM AD(J)
4236 036046 200 13 0 00 000014 MOVE BR,AR ;BR FM AR(J)
4237 STORE MST0^
4238 036047 260 17 0 00 037601 GO HUNGCK
4239 036050 325 11 0 00 036053 JUMPGE MA,.+3 ;PRINTER CNTL
4240 036051 201 01 0 00 040742 MOVEI 1,[ASCII /MST0/]
4241 036052 260 17 0 00 037027 GO PRINTA
4242
4243 036053 403 14 0 00 000003 MST1: SETZB AR,AD ;AR CLR
4244 036054 602 15 0 00 000001 TRNE MQ,1 ;MQ35(1)?
4245 036055 274 03 0 00 000013 SUB AD,BR ;YES. AD BR-EN, AD CRY36 SET
4246 036056 602 15 0 00 000001 TRNE MQ,1 ;MQ35(1)?
4247 036057 476 00 0 00 041207 SETOM ADBREN# ;YES. SET AD BR + V - EN FLAG
4248 STORE MST1^
4249 036060 260 17 0 00 037601 GO HUNGCK
4250 036061 325 11 0 00 036064 JUMPGE MA,.+3 ;PRINTER CNTL
4251 036062 201 01 0 00 040743 MOVEI 1,[ASCII /MST1/]
4252 036063 260 17 0 00 037027 GO PRINTA
4253 036064 260 17 0 00 036716 GO SCSUB ;GO TO SC SUBROUTINE
4254 036065 260 17 0 00 036422 GO MULSH ;XCT THIS AT SCT3
4255 036066 332 00 0 00 041236 SKIPE MPF1# ;MPF1 SET?
4256 036067 254 00 0 00 036366 JRST MPT2 ;YES. GO BACK TO MUL ROUTINE
4257
4258 036070 200 14 0 00 000003 FMT3: MOVE AR,AD ;AR FM AD(J)
4259 036071 544 10 0 00 000010 HLR SC,FE ;SC FM FE(J)
4260 036072 620 15 0 00 000001 TRZ MQ,1 ;MQ 35 CLR
4261 STORE FMT3^
4262 036073 260 17 0 00 037601 GO HUNGCK
4263 036074 325 11 0 00 036077 JUMPGE MA,.+3 ;PRINTER CNTL
4264 036075 201 01 0 00 040744 MOVEI 1,[ASCII /FMT3/]
4265 036076 260 17 0 00 037027 GO PRINTA
4266 036077 260 17 0 00 036101 GO NRT0 ;GO TO NORMALIZE ROUTINE.
4267 036100 254 00 0 00 032554 JRST ST0
4268
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 70
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0122
4269
4270 ;NORMALIZE
4271
4272 036101 541 02 0 10 000001 NRT0: HRRI SCAD,1(SC) ;SCAD SC+1 SETUP
4273 STORE NRT0^
4274 036102 260 17 0 00 037601 GO HUNGCK
4275 036103 325 11 0 00 036106 JUMPGE MA,.+3 ;PRINTER CNTL
4276 036104 201 01 0 00 040745 MOVEI 1,[ASCII /NRT0/]
4277 036105 260 17 0 00 037027 GO PRINTA
4278 036106 326 14 0 00 036113 NRT0A: JUMPN AR,NRT10 ;AD NE 0 : NOT NR ALL ZERO COND.
4279 036107 200 00 0 00 041234 MOVE 0,IRA
4280 036110 302 00 0 00 000171 CAIE 0,171 ;GO TO NRT99 IF AD=0 + IR = FDVL.
4281 036111 616 15 0 00 040746 TDNN MQ,[XWD 1777,-1] ;NR ALL ZERO CONDITION =
4282 ;AD=0 AND MQ8(0) AND MQ9-35 = 0.
4283 036112 254 00 0 00 036336 JRST NRT99-1 ;GO TO NRT99.
4284
4285 036113 603 14 0 00 001000 NRT10: TLNE AR,1000
4286 036114 325 14 0 00 036124 JUMPGE AR,NRT10A ;AR0 NE AR8..NR SH RT COND
4287 036115 607 14 0 00 001000 TLNN AR,1000
4288 036116 321 14 0 00 036124 JUMPL AR,NRT10A ;AR0 NE AR8..NR SH RT COND
4289 036117 607 14 0 00 001000 TLNN AR,1000
4290 036120 254 00 0 00 036136 JRST NRT1 ;AR8(0)...NOT NR SH RT COND
4291 036121 607 14 0 00 000777 TLNN AR,777
4292 036122 602 14 0 00 777777 TRNE AR,-1
4293 036123 254 00 0 00 036136 JRST NRT1 ;AD9-35 NE 0...NOT NR SH RT COND
4294 036124 540 10 0 00 000002 NRT10A: HRR SC,SCAD ;SC FM SCAD(J)
4295 036125 200 00 0 00 041234 MOVE 0,IRA# ;MOVE THE INST CODE INTO AC0.
4296 036126 301 00 0 00 000170 CAIL 0,170 ;IR FDVX?
4297 036127 240 14 0 00 777777 ASH AR,-1 ;FDV DISABLE MQ
4298 036130 305 00 0 00 000170 CAIGE 0,170 ;NOT FDVX?
4299 036131 260 17 0 00 036344 GO FPSHRT ;SHIFT RIGHT
4300 STORE NRT10^
4301 036132 260 17 0 00 037601 GO HUNGCK
4302 036133 325 11 0 00 036136 JUMPGE MA,.+3 ;PRINTER CNTL
4303 036134 201 01 0 00 040747 MOVEI 1,[ASCII /NRT10/]
4304 036135 260 17 0 00 037027 GO PRINTA
4305
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 71
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0123
4306 036136 603 11 0 00 002000 NRT1: TLNE MA,NRF1 ;ECO49, NRF1(0)
4307 036137 254 00 0 00 036147 JRST .+10 ;NO
4308 036140 602 10 0 00 000400 TRNE SC,400 ;SC0(0)
4309 036141 254 00 0 00 036145 JRST .+4 ;NO
4310 036142 602 10 0 00 000200 TRNE SC,200 ;SC1(0)
4311 036143 476 00 0 00 041230 SETOM FXUHLD ;NRF1(0) + (SC0 NE SC1) : SET AR FXU HOLD
4312 036144 254 00 0 00 036147 JRST .+3
4313 036145 606 10 0 00 000200 TRNN SC,200 ;SC1(0)
4314 036146 254 00 0 00 036143 JRST .-3
4315 036147 460 02 0 00 000010 SETCM SCAD,SC ;SCAD SC COM SETUP
4316 STORE NRT1^
4317 036150 260 17 0 00 037601 GO HUNGCK
4318 036151 325 11 0 00 036154 JUMPGE MA,.+3 ;PRINTER CNTL
4319 036152 201 01 0 00 040750 MOVEI 1,[ASCII /NRT1/]
4320 036153 260 17 0 00 037027 GO PRINTA
4321 036154 603 14 0 00 000400 NRTNOR: TLNE AR,400
4322 036155 325 14 0 00 036205 JUMPGE AR,NRT3 ;AR SIGN NOT = AR BIT 9
4323 036156 607 14 0 00 000400 TLNN AR,400
4324 036157 321 14 0 00 036205 JUMPL AR,NRT3 ;AR SIGN NOT = AR BIT 9
4325 036160 200 00 0 00 041234 MOVE 0,IRA
4326 036161 306 00 0 00 000130 CAIN 0,130
4327 036162 254 00 0 00 036205 JRST NRT3 ;IR UFA
4328 036163 205 00 0 00 777000 MOVSI 777000
4329 036164 410 00 0 00 000014 ANDCA AR
4330 036165 312 00 0 00 040751 CAME [XWD 400,0]
4331 036166 254 00 0 00 036171 JRST NRT2 ;AD9(1) + AD10-35 NE 0
4332 036167 607 15 0 00 001000 TLNN MQ,1000 ;ECO49, AD9(1) + AD10-35 = 0 + MQ08(0)
4333 036170 254 00 0 00 036205 JRST NRT3 ;YES
4334
4335 036171 540 10 0 00 000002 NRT2: HRR SC,SCAD ;SC FM SCAD(J)
4336 036172 541 02 0 10 000001 HRRI SCAD,1(SC) ;SCAD SC+1 SETUP
4337 036173 200 00 0 00 041234 MOVE 0,IRA# ;MOVE INST CODE INTO AC0.
4338 036174 301 00 0 00 000170 CAIL 0,170 ;FDVX?
4339 036175 240 14 0 00 000001 ASH AR,1 ;IR FDVX : NO MQ SH LT
4340 036176 305 00 0 00 000170 CAIGE 0,170 ;NOT FDVX?
4341 036177 260 17 0 00 036351 GO FPSHLT ;FLOATING SHIFT LEFT
4342 STORE NRT2^
4343 036200 260 17 0 00 037601 GO HUNGCK
4344 036201 325 11 0 00 036204 JUMPGE MA,.+3 ;PRINTER CNTL
4345 036202 201 01 0 00 040752 MOVEI 1,[ASCII /NRT2/]
4346 036203 260 17 0 00 037027 GO PRINTA
4347 036204 254 00 0 00 036154 JRST NRTNOR ;LOOK FOR NR NORMAL
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 72
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0124
4348
4349 036205 540 10 0 00 000002 NRT3: HRR SC,SCAD ;SC FM SCAD(J)
4350 036206 460 02 0 00 000010 SETCM SCAD,SC ;SCAD SC COMP SETUP
4351 STORE NRT3^
4352 036207 260 17 0 00 037601 GO HUNGCK
4353 036210 325 11 0 00 036213 JUMPGE MA,.+3 ;PRINTER CNTL
4354 036211 201 01 0 00 040753 MOVEI 1,[ASCII /NRT3/]
4355 036212 260 17 0 00 037027 GO PRINTA
4356 036213 254 00 0 00 036312 JRST SHORT ;LOOK FOR NR ROUND COND.
4357 036214 606 10 0 00 000400 NRT4: TRNN SC,400
4358 036215 661 12 0 00 440000 TLO PC,AROV+FOV ;SC0(0) : AROV AND FOV SET
4359 036216 602 10 0 00 000400 TRNE SC,400 ;ECO49, SC0(0)
4360 036217 254 00 0 00 036222 JRST .+3 ;NO
4361 036220 336 00 0 00 041230 SKIPN FXUHLD ;SC0(0) + AR FXU HOLD(0)
4362 036221 661 12 0 00 000100 TLO PC,FXU ;YES. SET ARFXU.
4363 036222 540 10 0 00 000002 HRR SC,SCAD
4364 036223 335 00 0 00 000014 SKIPGE AR
4365 036224 640 02 0 00 777777 TRC SCAD,-1
4366 STORE NRT4^
4367 036225 260 17 0 00 037601 GO HUNGCK
4368 036226 325 11 0 00 036231 JUMPGE MA,.+3 ;PRINTER CNTL
4369 036227 201 01 0 00 040754 MOVEI 1,[ASCII /NRT4/]
4370 036230 260 17 0 00 037027 GO PRINTA
4371
4372 036231 514 00 0 00 000002 NRT5: HRLZ SCAD
4373 036232 242 00 0 00 000011 LSH ^D9
4374 036233 621 00 0 00 400000 TLZ 0,400000
4375 036234 621 14 0 00 377000 TLZ AR,377000
4376 036235 436 00 0 00 000014 IORM AR ;AR1-8 FM SCAD1-8(J)
4377 STORE NRT5^
4378 036236 260 17 0 00 037601 GO HUNGCK
4379 036237 325 11 0 00 036242 JUMPGE MA,.+3 ;PRINTER CNTL
4380 036240 201 01 0 00 040755 MOVEI 1,[ASCII /NRT5/]
4381 036241 260 17 0 00 037027 GO PRINTA
4382 036242 607 07 0 00 006000 TLNN IR,6000
4383 036243 607 07 0 00 001000 TLNN IR,1000
4384 036244 254 00 0 00 036337 JRST NRT99 ;NOT LONG
4385 036245 641 07 0 00 070000 TLC IR,70000
4386 036246 647 07 0 00 070000 TLCN IR,70000
4387 036247 254 00 0 00 036343 JRST NRT98 ;FDV AND LONG
4388
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 73
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0125
4389 036250 571 02 0 10 777745 NLT0: HRREI SCAD, -33(SC) ;-33 ENABLE
4390 STORE NLT0^
4391 036251 260 17 0 00 037601 GO HUNGCK
4392 036252 325 11 0 00 036255 JUMPGE MA,.+3 ;PRINTER CNTL
4393 036253 201 01 0 00 040756 MOVEI 1,[ASCII /NLT0/]
4394 036254 260 17 0 00 037027 GO PRINTA
4395 036255 540 10 0 00 000002 NLT1: HRR SC,SCAD ;SC FM SCAD(J)
4396 036256 250 14 0 00 000015 EXCH AR,MQ ;MQ FM AD(J), AR FM MQ(J)
4397 036257 602 10 0 00 000400 TRNE SC,400 ;SCAD0(1) : AR CLR
4398 036260 400 14 0 00 000000 SETZ AR,
4399 STORE NLT1^
4400 036261 260 17 0 00 037601 GO HUNGCK
4401 036262 325 11 0 00 036265 JUMPGE MA,.+3 ;PRINTER CNTL
4402 036263 201 01 0 00 040757 MOVEI 1,[ASCII /NLT1/]
4403 036264 260 17 0 00 037027 GO PRINTA
4404
4405 036265 242 14 0 00 777777 NLT2: LSH AR,-1 ;AR SH RT ; AR0 CLR
4406 STORE NLT2^
4407 036266 260 17 0 00 037601 GO HUNGCK
4408 036267 325 11 0 00 036272 JUMPGE MA,.+3 ;PRINTER CNTL
4409 036270 201 01 0 00 040760 MOVEI 1,[ASCII /NLT2/]
4410 036271 260 17 0 00 037027 GO PRINTA
4411
4412 036272 322 14 0 00 036300 NLT3: JUMPE AR,NLT3A
4413 036273 514 00 0 00 000010 HRLZ SC
4414 036274 242 00 0 00 000011 LSH ^D9
4415 036275 621 00 0 00 400000 TLZ 0,400000
4416 036276 621 14 0 00 377000 TLZ AR,377000
4417 036277 436 00 0 00 000014 IORM AR ;AD9-35 NE 0 : AR1-8 FM SCAD1-8 (J)
4418 036300 NLT3A: STORE NLT3^
4419 036300 260 17 0 00 037601 GO HUNGCK
4420 036301 325 11 0 00 036304 JUMPGE MA,.+3 ;PRINTER CNTL
4421 036302 201 01 0 00 040761 MOVEI 1,[ASCII /NLT3/]
4422 036303 260 17 0 00 037027 GO PRINTA
4423 036304 250 14 0 00 000015 NLT4: EXCH AR,MQ ;AR FM MQ(J)...MQ FM AD(J)
4424 STORE NLT4^
4425 036305 260 17 0 00 037601 GO HUNGCK
4426 036306 325 11 0 00 036311 JUMPGE MA,.+3 ;PRINTER CNTL
4427 036307 201 01 0 00 040762 MOVEI 1,[ASCII /NLT4/]
4428 036310 260 17 0 00 037027 GO PRINTA
4429 036311 254 00 0 00 036337 JRST NRT99
4430
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 74
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0126
4431 036312 607 11 0 00 002000 SHORT: TLNN MA, NRF1
4432 036313 607 07 0 00 004000 TLNN IR,4000
4433 036314 254 00 0 00 036214 JRST NRT4 ;NRF1(1) OR IR6(0),
4434 036315 607 15 0 00 001000 TLNN MQ,1000
4435 036316 254 00 0 00 036214 JRST NRT4 ;OR MQ8(0),
4436 036317 616 15 0 00 040763 TDNN MQ,[XWD 777,-1]
4437 036320 321 14 0 00 036214 JUMPL AR,NRT4 ;OR MQ9-35 = 0 AND AR0(1)..DON'T ROUND
4438
4439 036321 661 11 0 00 002000 NRT6: TLO MA,NRF1 ;NRF1 SET
4440 036322 540 10 0 00 000002 HRR SC,SCAD ;SC FM SCAD(J)
4441 STORE NRT6^
4442 036323 260 17 0 00 037601 GO HUNGCK
4443 036324 325 11 0 00 036327 JUMPGE MA,.+3 ;PRINTER CNTL
4444 036325 201 01 0 00 040764 MOVEI 1,[ASCII /NRT6/]
4445 036326 260 17 0 00 037027 GO PRINTA
4446 036327 271 14 0 00 000001 NRT7: ADDI AR,1 ;AR FM AD(J)..(AD CRY36 SET)
4447 036330 400 15 0 00 000000 SETZ MQ, ;ECO49, MQ CLEAR
4448 STORE NRT7^
4449 036331 260 17 0 00 037601 GO HUNGCK
4450 036332 325 11 0 00 036335 JUMPGE MA,.+3 ;PRINTER CNTL
4451 036333 201 01 0 00 040765 MOVEI 1,[ASCII /NRT7/]
4452 036334 260 17 0 00 037027 GO PRINTA
4453 036335 254 00 0 00 036101 JRST NRT0
4454
4455 036336 402 00 0 00 041224 SETZM FDT7FX ;GOT HERE FROM FDVL NR ALL ZERO
4456 036337 NRT99: STORE NRT99^
4457 036337 260 17 0 00 037601 GO HUNGCK
4458 036340 325 11 0 00 036343 JUMPGE MA,.+3 ;PRINTER CNTL
4459 036341 201 01 0 00 040766 MOVEI 1,[ASCII /NRT99/]
4460 036342 260 17 0 00 037027 GO PRINTA
4461 036343 263 17 0 00 000000 NRT98: RTN ;ROUTINE
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 75
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0127
4462
4463 ;FLOATING POINT SHIFT RIGHT, SHIFT LEFT
4464 036344 244 14 0 00 777777 FPSHRT: ASHC AR,-1 ;AR MQ SH RT
4465 036345 621 15 0 00 401000 TLZ MQ,401000
4466 036346 623 15 0 00 200000 TLZE MQ,200000 ;AR35 TO
4467 036347 661 15 0 00 001000 TLO MQ,1000 ;MQ BIT 8
4468 036350 263 17 0 00 000000 RTN
4469
4470 036351 621 15 0 00 200000 FPSHLT: TLZ MQ,200000
4471 036352 623 15 0 00 001000 TLZE MQ,1000
4472 036353 661 15 0 00 200000 TLO MQ,200000 ;MQ BIT 8 TO AR 35
4473 036354 244 14 0 00 000001 ASHC AR,1
4474 036355 630 15 0 00 040767 TDZ MQ,[XWD 400000,1]
4475 036356 263 17 0 00 000000 RTN
4476
4477
4478 ;FIXED POINT MULTIPLY
4479
4480 036357 541 10 0 00 777735 SMUL: HRRI SC,777735 ;SC MD SETUP (735)
4481 036360 476 00 0 00 041236 SETOM MPF1# ;MPF1 SET
4482 STORE ET0^
4483 036361 260 17 0 00 037601 GO HUNGCK
4484 036362 325 11 0 00 036365 JUMPGE MA,.+3 ;PRINTER CNTL
4485 036363 201 01 0 00 040663 MOVEI 1,[ASCII /ET0/]
4486 036364 260 17 0 00 037027 GO PRINTA
4487 036365 254 00 0 00 036042 JRST MST0
4488
4489 036366 200 14 0 00 000003 MPT2: MOVE AR,AD ;AR FM AD(J)
4490 036367 242 15 0 00 777777 LSH MQ,-1 ;MQ SH RT
4491 036370 603 03 0 00 400000 TLNE AD,400000 ;AND PUT AD SIGN
4492 036371 661 15 0 00 400000 TLO MQ,400000 ;TO MQ SIGN
4493 036372 325 03 0 00 036375 JUMPGE AD,.+3
4494 036373 603 11 0 00 000100 TLNE MA,MPF2 ;IF AD0(1) AND MPF2(1)
4495 036374 661 12 0 00 400000 TLO PC,AROV ;SET OVERFLOW
4496 036375 402 00 0 00 041236 SETZM MPF1# ;MPF1 CLR
4497 STORE MPT2^
4498 036376 260 17 0 00 037601 GO HUNGCK
4499 036377 325 11 0 00 036402 JUMPGE MA,.+3 ;PRINTER CNTL
4500 036400 201 01 0 00 040770 MOVEI 1,[ASCII /MPT2/]
4501 036401 260 17 0 00 037027 GO PRINTA
4502 036402 603 07 0 00 004000 TLNE IR,4000 ;IR6(1)?
4503 036403 254 00 0 00 032554 JRST ST0 ;YES..MULX
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 76
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0128
4504 036404 335 03 0 00 000014 MPT3: SKIPGE AD,AR ;IMUL
4505 036405 450 03 0 00 000000 SETCA AD, ;AD CRY INS
4506 STORE MPT3^
4507 036406 260 17 0 00 037601 GO HUNGCK
4508 036407 325 11 0 00 036412 JUMPGE MA,.+3 ;PRINTER CNTL
4509 036410 201 01 0 00 040771 MOVEI 1,[ASCII /MPT3/]
4510 036411 260 17 0 00 037027 GO PRINTA
4511 036412 332 00 0 00 000003 SKIPE AD ;AD NE 0?
4512 036413 661 12 0 00 400000 TLO PC,AROV ;YES. SET AROV
4513 036414 200 14 0 00 000015 MOVE AR,MQ ;AR FM MQ(J)
4514 STORE MPT4^
4515 036415 260 17 0 00 037601 GO HUNGCK
4516 036416 325 11 0 00 036421 JUMPGE MA,.+3 ;PRINTER CNTL
4517 036417 201 01 0 00 040772 MOVEI 1,[ASCII /MPT4/]
4518 036420 260 17 0 00 037027 GO PRINTA
4519 036421 254 00 0 00 032554 JRST ST0 ;TO STORE CYCLE
4520
4521 ;MULTIPLY SHIFT ADD/SUB SUBROUTINE
4522
4523
4524 036422 202 15 0 00 041260 MULSH: MOVEM MQ,TEMP2# ;SAVE MQ
4525 036423 200 14 0 00 000003 MOVE AR,AD
4526 036424 200 00 0 00 041234 MOVE 0,IRA
4527 036425 305 00 0 00 000220 CAIGE 0,220 ;IR FMP?
4528 036426 254 00 0 00 036450 JRST MULSHA ;YES.
4529 036427 246 14 0 00 777777 LSHC AR,-1 ;AR SH RT, MQ SH RT
4530 036430 603 14 0 00 200000 TLNE AR,200000 ;ARB1(1)?
4531 036431 661 14 0 00 400000 TLO AR,400000 ;YES. SET SIGN BIT.
4532 036432 200 03 0 00 000014 MOVE AD,AR
4533
4534 036433 200 00 0 00 041260 MULAS: MOVE 0,TEMP2# ;MQ 34 35
4535 036434 602 00 0 00 000001 TRNE 0,1 ; 0 0 = NOTHING
4536 036435 254 00 0 00 036443 JRST MULAS1 ; 0 1 = ADD
4537 036436 602 00 0 00 000002 TRNE 0,2 ; 1 0 = SUB
4538 036437 274 03 0 00 000013 SUB AD,BR ; 1 1 = NOTHING
4539 036440 602 00 0 00 000002 TRNE 0,2
4540 036441 476 00 0 00 041207 SETOM ADBREN#
4541 036442 263 17 0 00 000000 RTN
4542
4543 036443 606 00 0 00 000002 MULAS1: TRNN 0,2
4544 036444 270 03 0 00 000013 ADD AD,BR
4545 036445 606 00 0 00 000002 TRNN 0,2
4546 036446 476 00 0 00 041207 SETOM ADBREN#
4547 036447 263 17 0 00 000000 RTN
4548
4549 036450 260 17 0 00 036344 MULSHA: GO FPSHRT
4550 036451 254 00 0 00 036432 JRST MULAS-1
4551
4552
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 77
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0129
4553
4554 ;FIXED POINT DIVIDE (DIVX)
4555 036452 541 10 0 00 777735 XSDIV: HRRI SC,-43 ;SC MD SETUP (735)
4556 STORE ET0^
4557 036453 260 17 0 00 037601 GO HUNGCK
4558 036454 325 11 0 00 036457 JUMPGE MA,.+3 ;PRINTER CNTL
4559 036455 201 01 0 00 040663 MOVEI 1,[ASCII /ET0/]
4560 036456 260 17 0 00 037027 GO PRINTA
4561 036457 460 03 0 00 000014 DIVT0: SETCM AD,AR ;AD AR-EN SET
4562 036460 325 14 0 00 036464 JUMPGE AR,DIVT0A ;AR0(0) : DO NOTHING
4563 036461 661 11 0 00 000040 TLO MA,DSF7 ;AR0(1) : DSF7 SET
4564 036462 200 14 0 00 000015 MOVE AR,MQ ;AR FM MQ(J)
4565 036463 200 15 0 00 000003 MOVE MQ,AD ;MQ FM AD(J)
4566 036464 DIVT0A: STORE DIVT0^
4567 036464 260 17 0 00 037601 GO HUNGCK
4568 036465 325 11 0 00 036470 JUMPGE MA,.+3 ;PRINTER CNTL
4569 036466 201 01 0 00 040773 MOVEI 1,[ASCII /DIVT0/]
4570 036467 260 17 0 00 037027 GO PRINTA
4571
4572 036470 607 11 0 00 000040 TLNN MA,DSF7 ;DSF7(1)?
4573 036471 254 00 0 00 036513 JRST DIVT4 ;NO. GO TO DIVT4
4574 036472 210 14 0 00 000014 DIVT1: MOVN AR,AR ;YES. AD AR-EN SET,AD CRY36 SET.
4575 036473 250 14 0 00 000015 EXCH AR,MQ ;AR FM MQ(J), MQ FM AD(J)
4576 STORE DIVT1^
4577 036474 260 17 0 00 037601 GO HUNGCK
4578 036475 325 11 0 00 036500 JUMPGE MA,.+3 ;PRINTER CNTL
4579 036476 201 01 0 00 040774 MOVEI 1,[ASCII /DIVT1/]
4580 036477 260 17 0 00 037027 GO PRINTA
4581 036500 607 07 0 00 200000 TLNN IR,200000 ;DIV LOW ZERO COND =
4582 036501 254 00 0 00 036525 JRST DIVT2B ;IR1(0) + AD 8-35 = 0
4583 036502 612 15 0 00 040534 TDNE MQ,[377777,,-1] ;OR IR1(1) + AD CRY1
4584 036503 254 00 0 00 036506 JRST DIVT3
4585 036504 200 03 0 00 000014 DIVT2A: MOVE AD,AR ;AD AR+EN
4586 036505 271 03 0 00 000001 ADDI AD,1 ;AD CRY36 SET
4587 036506 200 14 0 00 000003 DIVT3: MOVE AR,AD ;AR FM AD(J)
4588 STORE DIVT3^
4589 036507 260 17 0 00 037601 GO HUNGCK
4590 036510 325 11 0 00 036513 JUMPGE MA,.+3 ;PRINTER CNTL
4591 036511 201 01 0 00 040775 MOVEI 1,[ASCII /DIVT3/]
4592 036512 260 17 0 00 037027 GO PRINTA
4593
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 78
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0130
4594
4595 036513 242 15 0 00 000001 DIVT4: LSH MQ,1 ;MQ SHIFT LEFT
4596 STORE DIVT4^
4597 036514 260 17 0 00 037601 GO HUNGCK
4598 036515 325 11 0 00 036520 JUMPGE MA,.+3 ;PRINTER CNTL
4599 036516 201 01 0 00 040776 MOVEI 1,[ASCII /DIVT4/]
4600 036517 260 17 0 00 037027 GO PRINTA
4601 036520 603 07 0 00 040000 TLNE IR,40000 ;FDVL?
4602 036521 254 00 0 00 035754 JRST FPT0 ;YES.
4603 036522 260 17 0 00 036563 GO DST1 ;GO TO DIV SUBROUTINE
4604 036523 254 00 0 00 032552 JRST SS9 ;ERROR RETURN
4605 036524 254 00 0 00 032554 JRST ST0
4606
4607 036525 612 15 0 00 040746 DIVT2B: TDNE MQ,[XWD 1777, -1]
4608 036526 254 00 0 00 036506 JRST DIVT3
4609 036527 254 00 0 00 036504 JRST DIVT2A
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 79
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0131
4610
4611 ;IDIVIDE DIV
4612
4613 036530 603 07 0 00 004000 SDIV: TLNE IR,4000
4614 036531 254 00 0 00 036452 JRST XSDIV
4615 036532 210 03 0 00 000014 XSIDIV: MOVN AD,AR ;ADDER NEGATE OF AR
4616 036533 541 10 0 00 777735 HRRI SC,-43 ;SC MD SETUP (735)
4617 036534 325 14 0 00 036537 JUMPGE AR, .+3
4618 036535 200 14 0 00 000003 MOVE AR,AD ;AR0(1) : AR FM AD(J)
4619 036536 661 11 0 00 000040 TLO MA,DSF7 ;DSF7 SET
4620 036537 200 03 0 00 000014 MOVE AD,AR ;AD AR+EN SET..OTHERS CLR
4621 STORE ET0^
4622 036540 260 17 0 00 037601 GO HUNGCK
4623 036541 325 11 0 00 036544 JUMPGE MA,.+3 ;PRINTER CNTL
4624 036542 201 01 0 00 040663 MOVEI 1,[ASCII /ET0/]
4625 036543 260 17 0 00 037027 GO PRINTA
4626
4627 036544 200 15 0 00 000003 SIDIV1: MOVE MQ,AD ;MQ FM AD(J)
4628 036545 400 14 0 00 000000 SETZ AR, ;AR CLR
4629 STORE ET1^
4630 036546 260 17 0 00 037601 GO HUNGCK
4631 036547 325 11 0 00 036552 JUMPGE MA,.+3 ;PRINTER CNTL
4632 036550 201 01 0 00 040665 MOVEI 1,[ASCII /ET1/]
4633 036551 260 17 0 00 037027 GO PRINTA
4634 036552 245 14 0 00 000001 SIDIV2: ROTC AR,1 ;ECO45, SHIFT AR AND MQ LEFT
4635 036553 640 15 0 00 000001 TRC MQ,1 ;AR(35)_MQ(0)
4636 STORE ET2^
4637 036554 260 17 0 00 037601 GO HUNGCK
4638 036555 325 11 0 00 036560 JUMPGE MA,.+3 ;PRINTER CNTL
4639 036556 201 01 0 00 040666 MOVEI 1,[ASCII /ET2/]
4640 036557 260 17 0 00 037027 GO PRINTA
4641 036560 260 17 0 00 036563 GO DST1
4642 036561 254 00 0 00 032552 JRST SS9
4643 036562 254 00 0 00 032554 JRST ST0
4644
4645 036563 200 03 0 00 000014 DST1: MOVE AD,AR ;AD AR+EN SET
4646 036564 335 00 0 00 000013 SKIPGE BR
4647 036565 270 03 0 00 000013 ADD AD,BR ;BR0(1): AD BR+EN
4648 036566 331 00 0 00 000013 SKIPL BR
4649 036567 274 03 0 00 000013 SUB AD,BR ;BR0(0): AD BR-EN
4650 STORE DST1^
4651 036570 260 17 0 00 037601 GO HUNGCK
4652 036571 325 11 0 00 036574 JUMPGE MA,.+3 ;PRINTER CNTL
4653 036572 201 01 0 00 040777 MOVEI 1,[ASCII /DST1/]
4654 036573 260 17 0 00 037027 GO PRINTA
4655 036574 607 03 0 00 400000 TLNN AD,400000 ;AD0(1)?
4656 036575 254 00 0 00 036660 JRST DST7 ;NO..AN OVERFLOW
4657
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 80
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0132
4658
4659 036576 476 00 0 00 041207 DST2: SETOM ADBREN ;SET ADBR+ OR - EN FLAG.
4660 STORE DST2^
4661 036577 260 17 0 00 037601 GO HUNGCK
4662 036600 325 11 0 00 036603 JUMPGE MA,.+3 ;PRINTER CNTL
4663 036601 201 01 0 00 041000 MOVEI 1,[ASCII /DST2/]
4664 036602 260 17 0 00 037027 GO PRINTA
4665 036603 260 17 0 00 036716 GO SCSUB ;GO TO SC SUBROUTINE
4666 036604 260 17 0 00 036670 GO DIVLOC
4667
4668 036605 200 14 0 00 000003 DST3: MOVE AR,AD ;AR FM AD(J)
4669 036606 242 15 0 00 000001 LSH MQ,1 ;MQ SHLT
4670 036607 607 03 0 00 400000 TLNN AD,400000 ;ADDER NOT BIT ZERO
4671 036610 660 15 0 00 000001 TRO MQ,1 ;TO MQ35
4672 STORE DST3^
4673 036611 260 17 0 00 037601 GO HUNGCK
4674 036612 325 11 0 00 036615 JUMPGE MA,.+3 ;PRINTER CNTL
4675 036613 201 01 0 00 041001 MOVEI 1,[ASCII /DST3/]
4676 036614 260 17 0 00 037027 GO PRINTA
4677 036615 260 17 0 00 036705 DST4: GO FSTDIV
4678 036616 200 03 0 00 000000 MOVE AD,0
4679 036617 606 15 0 00 000001 TRNN MQ,1 ;MQ35(0)?
4680 036620 200 14 0 00 000003 MOVE AR,AD ;YES..AR FM AD(J)
4681 036621 200 03 0 00 000014 MOVE AD,AR ;AD AR+EN
4682 036622 603 11 0 00 000040 TLNE MA,DSF7 ;DSF7(1)?
4683 036623 210 03 0 00 000003 MOVN AD,AD ;YES..NEGATE ADDER
4684 STORE DST4^
4685 036624 260 17 0 00 037601 GO HUNGCK
4686 036625 325 11 0 00 036630 JUMPGE MA,.+3 ;PRINTER CNTL
4687 036626 201 01 0 00 041002 MOVEI 1,[ASCII /DST4/]
4688 036627 260 17 0 00 037027 GO PRINTA
4689 036630 200 14 0 00 000015 DST5: MOVE AR,MQ ;AR FM MQ(J) ;QUOTIENT
4690 036631 200 15 0 00 000003 MOVE MQ,AD ;MQ FM AD(J) ;REMAINDER
4691 036632 200 03 0 00 000014 MOVE AD,AR ;AD AR+EN
4692 036633 603 07 0 00 200000 TLNE IR,200000 ;IR1(1)?
4693 036634 210 03 0 00 000014 MOVN AD,AR ;YES..AD AR-EN AND AD CRY36 SET
4694 036635 607 07 0 00 200000 TLNN IR,200000 ;IR1(0)?
4695 036636 271 03 0 00 000001 ADDI AD,1 ;YES.. AD AR+EN AND AD CRY36 SET
4696 STORE DST5^
4697 036637 260 17 0 00 037601 GO HUNGCK
4698 036640 325 11 0 00 036643 JUMPGE MA,.+3 ;PRINTER CNTL
4699 036641 201 01 0 00 041003 MOVEI 1,[ASCII /DST5/]
4700 036642 260 17 0 00 037027 GO PRINTA
4701 036643 607 07 0 00 200000 TLNN IR,200000 ;IR1(0)?
4702 036644 254 00 0 00 036656 JRST DIVEN ;YES..FLOATING DIVIDE
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 81
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0133
4703
4704 036645 607 11 0 00 000040 DIVT5: TLNN MA,DSF7 ;DSF7 NE BR0?
4705 036646 325 13 0 00 036652 JUMPGE BR, DIVT51
4706 036647 603 11 0 00 000040 TLNE MA,DSF7
4707 036650 321 13 0 00 036652 JUMPL BR,DIVT51
4708 036651 200 14 0 00 000003 MOVE AR,AD ;YES..AR FM AD(J)
4709 036652 DIVT51: STORE DIVT5^
4710 036652 260 17 0 00 037601 GO HUNGCK
4711 036653 325 11 0 00 036656 JUMPGE MA,.+3 ;PRINTER CNTL
4712 036654 201 01 0 00 041004 MOVEI 1,[ASCII /DIVT5/]
4713 036655 260 17 0 00 037027 GO PRINTA
4714
4715 036656 350 00 0 17 000000 DIVEN: AOS (P) ;TO STORE TIME
4716 036657 263 17 0 00 000000 RTN ;RETURN +2
4717
4718 036660 607 07 0 00 200000 DST7: TLNN IR,200000 ;FDV?
4719 036661 661 12 0 00 040000 TLO PC,FOV ;YES..SET AR FOV
4720 036662 661 12 0 00 400040 TLO PC,AROV+DCK ;AROV SET, AR DCK SET
4721 STORE DST7^
4722 036663 260 17 0 00 037601 GO HUNGCK
4723 036664 325 11 0 00 036667 JUMPGE MA,.+3 ;PRINTER CNTL
4724 036665 201 01 0 00 041005 MOVEI 1,[ASCII /DST7/]
4725 036666 260 17 0 00 037027 GO PRINTA
4726 036667 263 17 0 00 000000 RTN ;GO TO END OF STORE CYCLE.
4727
4728
4729 ;THE DIVIDE STEP FOR DIVIDE SUBROUTINE
4730 036670 476 00 0 00 041207 DIVLOC: SETOM ADBREN#
4731 036671 200 14 0 00 000003 MOVE AR,AD
4732 036672 200 00 0 00 041234 MOVE IRA
4733 036673 301 00 0 00 000220 CAIL 220 ;IR FDV?
4734 036674 254 00 0 00 036700 JRST DVLOCA ;NO.
4735 036675 621 15 0 00 400000 TLZ MQ,400000 ;YES.
4736 036676 623 15 0 00 001000 TLZE MQ,1000
4737 036677 661 15 0 00 400000 TLO MQ,400000
4738 036700 245 14 0 00 000001 DVLOCA: ROTC AR,1
4739 036701 640 15 0 00 000001 TRC MQ,1
4740 036702 260 17 0 00 036705 GO FSTDIV
4741 036703 200 03 0 00 000000 MOVE AD,0
4742 036704 263 17 0 00 000000 RTN
4743
4744
4745 036705 200 00 0 00 000014 FSTDIV: MOVE 0,AR
4746 036706 607 03 0 00 400000 TLNN AD,400000
4747 036707 321 13 0 00 036714 JUMPL BR,.+5 ;XOR=0
4748 036710 603 03 0 00 400000 TLNE AD,400000
4749 036711 325 13 0 00 036714 JUMPGE BR,.+3 ;XOR=0
4750 036712 274 00 0 00 000013 SUB 0,BR ;XOR=1...SUBTRACT
4751 036713 263 17 0 00 000000 RTN
4752 036714 270 00 0 00 000013 ADD 0,BR ;XOR=0...ADD
4753 036715 263 17 0 00 000000 RTN
4754
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 82
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0134
4755 ;SHIFT COUNTER
4756 036716 SCSUB: STORE SCT0^
4757 036716 260 17 0 00 037601 GO HUNGCK
4758 036717 325 11 0 00 036722 JUMPGE MA,.+3 ;PRINTER CNTL
4759 036720 201 01 0 00 041006 MOVEI 1,[ASCII /SCT0/]
4760 036721 260 17 0 00 037027 GO PRINTA
4761 036722 606 10 0 00 000400 SCSCTX: TRNN SC,400
4762 036723 254 00 0 00 036737 JRST SCT4 ;TIME 4 RETURN
4763 036724 541 10 0 10 000001 HRRI SC,1(SC)
4764 036725 332 00 0 00 041207 SKIPE ADBREN#
4765 036726 254 00 0 00 036745 JRST SCT2
4766 036727 256 00 1 17 000000 SCT3: XCT @(P)
4767 036730 332 00 0 00 041237 SKIPE NOSCT# ;DON'T PRINT SCT3 FLAG SET?
4768 036731 254 00 0 00 036722 JRST SCSCTX ;YES.
4769 036732 SCT3A: STORE SCT3^
4770 036732 260 17 0 00 037601 GO HUNGCK
4771 036733 325 11 0 00 036736 JUMPGE MA,.+3 ;PRINTER CNTL
4772 036734 201 01 0 00 041007 MOVEI 1,[ASCII /SCT3/]
4773 036735 260 17 0 00 037027 GO PRINTA
4774 036736 254 00 0 00 036722 JRST SCSCTX
4775 036737 SCT4: STORE SCT4^
4776 036737 260 17 0 00 037601 GO HUNGCK
4777 036740 325 11 0 00 036743 JUMPGE MA,.+3 ;PRINTER CNTL
4778 036741 201 01 0 00 041010 MOVEI 1,[ASCII /SCT4/]
4779 036742 260 17 0 00 037027 GO PRINTA
4780 036743 350 00 0 17 000000 AOS (P) ;INC RETURN
4781 036744 263 17 0 00 000000 RTN ;EXIT
4782
4783 036745 402 00 0 00 041207 SCT2: SETZM ADBREN
4784 036746 332 00 0 00 041237 SKIPE NOSCT# ;DON'T PRINT SCT2 FLAG SET?
4785 036747 254 00 0 00 036727 JRST SCT3 ;YES.
4786 STORE SCT2^
4787 036750 260 17 0 00 037601 GO HUNGCK
4788 036751 325 11 0 00 036754 JUMPGE MA,.+3 ;PRINTER CNTL
4789 036752 201 01 0 00 041011 MOVEI 1,[ASCII /SCT2/]
4790 036753 260 17 0 00 037027 GO PRINTA
4791 036754 254 00 0 00 036727 JRST SCT3
4792
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 83
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0135
4793
4794 ;BLOCK TRANSFER INST, CODE 251
4795 036755 241 14 0 00 000022 BLTS: ROT AR,^D18 ;SWAP AR HALVES
4796 STORE ET0^
4797 036756 260 17 0 00 037601 GO HUNGCK
4798 036757 325 11 0 00 036762 JUMPGE MA,.+3 ;PRINTER CNTL
4799 036760 201 01 0 00 040663 MOVEI 1,[ASCII /ET0/]
4800 036761 260 17 0 00 037027 GO PRINTA
4801 036762 540 11 0 00 000014 HRR MA,AR ;AR RT TO MA
4802 STORE ET1^
4803 036763 260 17 0 00 037601 GO HUNGCK
4804 036764 325 11 0 00 036767 JUMPGE MA,.+3 ;PRINTER CNTL
4805 036765 201 01 0 00 040665 MOVEI 1,[ASCII /ET1/]
4806 036766 260 17 0 00 037027 GO PRINTA
4807 036767 270 14 0 00 040667 ADD AR,[1000001] ;AD AR+EN SET, AD+1 BOTH
4808 036770 250 14 0 00 000015 EXCH AR,MQ ;AR FM MQ(J), MQ FM AD(J)
4809 036771 260 17 0 00 032105 MCWR ;MEMORY WRITE
4810 STORM ET2^
4811 036772 260 17 0 00 037601 GO HUNGCK
4812 036773 607 11 0 00 600000 TLNN MA,MS+MT ;PRINTER CNTL
4813 036774 254 00 0 00 036777 JRST .+3
4814 036775 201 01 0 00 040666 MOVEI 1,[ASCII /ET2/]
4815 036776 260 17 0 00 037027 GO PRINTA
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 84
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0136
4816 036777 621 14 0 00 777777 SBLT1: TLZ AR,-1 ;AR LT CLR
4817 037000 540 14 0 00 000015 HRR AR,MQ ;AR RT FM MQ(J)
4818 037001 460 03 0 00 000013 SETCM AD,BR ;AD BR-EN SET
4819 037002 270 03 0 00 000014 ADD AD,AR ;AD CRY36 CLR..(AD AR+EN SET)
4820 STORE BLTT1^
4821 037003 260 17 0 00 037601 GO HUNGCK
4822 037004 325 11 0 00 037007 JUMPGE MA,.+3 ;PRINTER CNTL
4823 037005 201 01 0 00 041012 MOVEI 1,[ASCII /BLTT1/]
4824 037006 260 17 0 00 037027 GO PRINTA
4825 037007 603 03 0 00 000001 TLNE AD,1 ;AD17(0)?
4826 037010 254 00 0 00 037017 JRST BLTT3 ;NO. GO TO BLTT3
4827 037011 541 12 0 12 000001 HRRI PC,1(PC) ;YES. PC+1
4828 STORE BLTT2^
4829 037012 260 17 0 00 037601 GO HUNGCK
4830 037013 325 11 0 00 037016 JUMPGE MA,.+3 ;PRINTER CNTL
4831 037014 201 01 0 00 041013 MOVEI 1,[ASCII /BLTT2/]
4832 037015 260 17 0 00 037027 GO PRINTA
4833 037016 254 00 0 00 032552 JRST SS9
4834
4835 037017 200 14 0 00 000015 BLTT3: MOVE AR,MQ ;AR FM MQ(J)
4836 037020 400 15 0 00 000000 SETZ MQ, ;MQ CLR
4837 STORE BLTT3^
4838 037021 260 17 0 00 037601 GO HUNGCK
4839 037022 325 11 0 00 037025 JUMPGE MA,.+3 ;PRINTER CNTL
4840 037023 201 01 0 00 041014 MOVEI 1,[ASCII /BLTT3/]
4841 037024 260 17 0 00 037027 GO PRINTA
4842 037025 201 02 0 00 020101 MOVEI 2,PCINH+FCCLT+1
4843 037026 254 00 0 00 032437 JRST FT6
4844
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 85
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0137
4845 ;TIME PRINTER
4846 ;THIS ROUTINE PRINTS THE CONTENTS OF THE SEVERAL MACHINE
4847 ;REGISTERS AT VARIOUS TIMES IN THE INSTRUCTION CYCLE
4848
4849 037027 261 17 0 00 000000 PRINTA: PUT 0 ;SAVE AC0.
4850 037030 037 10 0 00 000002 SWITCH ;GO READ THE DATA SWITCHES.
4851 037031 402 00 0 00 041237 SETZM NOSCT# ;CLR NO PNT SCT2 + 3 FLAG.
4852 037032 602 00 0 00 000004 TRNE 0,INHSCT ;DON'T PNT SCT2 + 3 BIT SET?
4853 037033 476 00 0 00 041237 SETOM NOSCT ;YES. SET FLAG.
4854 037034 200 00 0 00 000001 MOVE 0,1
4855 037035 037 00 0 00 000000 PNTA
4856 037036 201 00 0 00 030247 MOVEI 0,TAB
4857 037037 037 00 0 00 000000 PNTA
4858 037040 200 00 0 00 000012 MOVE 0,PC
4859 037041 260 17 0 00 037061 GO XPNT6
4860 037042 200 00 0 00 000011 MOVE 0,MA
4861 037043 260 17 0 00 037061 GO XPNT6
4862 037044 540 00 0 00 000010 HRR 0,SC
4863 037045 260 17 0 00 037070 GO XPNT3
4864 037046 544 00 0 00 000010 HLR 0,FE
4865 037047 260 17 0 00 037070 GO XPNT3
4866 037050 200 00 0 00 000014 MOVE 0,AR
4867 037051 260 17 0 00 037077 GO XPNTOC
4868 037052 200 00 0 00 000015 MOVE 0,MQ
4869 037053 260 17 0 00 037077 GO XPNTOC
4870 037054 200 00 0 00 000013 MOVE 0,BR
4871 037055 260 17 0 00 037077 GO XPNTOC
4872 037056 260 17 0 00 031460 GO PCR
4873 037057 262 17 0 00 000000 GET 0 ;RESTORE AC0.
4874 037060 263 17 0 00 000000 RTN
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 86
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0138
4875 037061 606 00 0 00 000077 XPNT6: TRNN 0,77
4876 037062 254 00 0 00 037065 JRST OPNT6
4877 037063 037 06 0 00 000000 PNT6
4878 037064 263 17 0 00 000000 RTN
4879
4880 037065 201 00 0 00 041015 OPNT6: MOVEI [ASCIZ/0 /]
4881 037066 037 17 0 00 000000 PNTAL
4882 037067 263 17 0 00 000000 RTN
4883
4884 037070 606 00 0 00 000007 XPNT3: TRNN 0,7
4885 037071 254 00 0 00 037074 JRST OPNT3
4886 037072 037 03 0 00 000000 PNT3
4887 037073 263 17 0 00 000000 RTN
4888
4889 037074 201 00 0 00 041017 OPNT3: MOVEI [ASCIZ/0 /]
4890 037075 037 17 0 00 000000 PNTAL
4891 037076 263 17 0 00 000000 RTN
4892
4893 037077 336 00 0 00 000000 XPNTOC: SKIPN 0
4894 037100 254 00 0 00 037103 JRST OPNTOC
4895 037101 037 14 0 00 000000 PNTOCT
4896 037102 263 17 0 00 000000 RTN
4897
4898 037103 201 00 0 00 041020 OPNTOC: MOVEI [ASCIZ/0 /]
4899 037104 037 17 0 00 000000 PNTAL
4900 037105 263 17 0 00 000000 RTN
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 87
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0139
4901 ;PRINT THE INSTRUCTION, INITIAL AND FINAL RESULTS
4902
4903 037106 402 00 0 00 041231 HEADER: SETZM HDCNTL
4904 SAVE15 ^ ;SAVE FIRST 15 ACS
4905 037107 261 17 0 00 000015 PUT 15
4906 037110 201 15 0 00 000014 MOVEI 15,14
4907 037111 261 17 0 15 000000 PUT (15)
4908 037112 365 15 0 00 037111 SOJGE 15,.-1
4909 037113 260 17 0 00 031460 GO PCR
4910 037114 260 17 0 00 031460 HEADP1: GO PCR
4911 037115 336 00 0 00 041250 SKIPN PNTSIM
4912 037116 254 00 0 00 037122 JRST .+4
4913 037117 200 00 0 00 041235 MOVE LINCNT
4914 037120 303 00 0 00 000056 CAILE ^D46 ;ROOM ON PAGE FOR INIT/FINAL
4915 037121 260 17 0 00 031462 GO PCR1 ;NO, START A NEW PAGE
4916 037122 201 00 0 00 030252 MOVEI 0,AST
4917 037123 037 00 0 00 000000 HEADP2: PNTA ;PRINT *
4918 037124 476 00 0 00 030223 SETOM PNTSPC
4919 037125 200 00 0 17 000000 MOVE 0,(P)
4920 037126 037 06 0 00 000000 HEADP3: PNT6 ;PRINT PC
4921 037127 260 17 0 00 034426 GO PNTINS ;GO PRINT INSTRUCTION.
4922 037130 201 00 0 00 030247 MOVEI 0,TAB
4923 037131 037 00 0 00 000000 PNTA ;PRINT A TAB
4924 037132 540 11 0 17 000000 HPAC: HRR MA,(P)
4925 037133 270 11 0 00 000016 ADD MA,USERAC
4926 037134 326 16 0 00 037137 JUMPN USERAC,.+3
4927 037135 606 11 0 00 777700 TRNN MA,777700
4928 037136 271 11 0 00 040000 ADDI MA,JA
4929 037137 261 17 0 00 000011 PUT MA
4930 037140 405 11 0 00 777777 ANDI MA,-1
4931 037141 200 00 1 00 000011 MOVE 0,@MA
4932 037142 262 17 0 00 000011 GET MA
4933 037143 332 00 0 00 041220 SKIPE CONNF
4934 037144 254 00 0 00 037207 JRST HPIOC ;PRINT I/O DEVICE CODE
4935 037145 241 00 0 00 777751 ROT 0,-^D23
4936 037146 405 00 0 00 000017 ANDI 0,17
4937 037147 037 16 0 00 000003 PNTOCS ;PRINT AC
4938 037150 201 00 0 00 030244 MOVEI 0,COMMA
4939 037151 037 00 0 00 000000 PNTA ;PRINT A COMMA
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 88
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0140
4940 037152 261 17 0 00 000011 HDEF: PUT MA
4941 037153 405 11 0 00 777777 ANDI MA,-1
4942 037154 200 01 1 00 000011 MOVE 1,@MA
4943 037155 262 17 0 00 000011 GET MA
4944 037156 603 01 0 00 000020 TLNE 1,20 ;INDIRECT BIT ON?
4945 037157 260 17 0 00 037213 GO PNTIND ;YES. GO PRINT AN AT SIGN
4946 037160 261 17 0 00 000011 PUT MA
4947 037161 405 11 0 00 777777 ANDI MA,-1
4948 037162 200 00 1 00 000011 MOVE 0,@MA
4949 037163 262 17 0 00 000011 GET MA
4950 037164 261 17 0 00 030223 PUT PNTSPC
4951 037165 402 00 0 00 030223 SETZM PNTSPC
4952 037166 037 06 0 00 000000 PNT6 ;PRINT E
4953 037167 262 17 0 00 030223 GET PNTSPC
4954
4955 037170 261 17 0 00 000011 HIDX: PUT MA
4956 037171 405 11 0 00 777777 ANDI MA,-1
4957 037172 200 01 1 00 000011 MOVE 1,@MA ;LOOK FOR INDEXING
4958 037173 262 17 0 00 000011 GET MA
4959 037174 607 01 0 00 000017 TLNN 1, 17
4960 037175 254 00 0 00 037216 JRST HAC
4961 037176 201 00 0 00 030254 MOVEI 0,LFP
4962 037177 037 00 0 00 000000 PNTA
4963 037200 200 00 0 00 000001 MOVE 0,1
4964 037201 242 00 0 00 777756 LSH 0,-^D18
4965 037202 405 00 0 00 000017 ANDI 0,17
4966 037203 037 16 0 00 000003 PNTOCS
4967 037204 201 00 0 00 030255 MOVEI 0,RTP
4968 037205 037 00 0 00 000000 PNTA
4969 037206 254 00 0 00 037216 JRST HAC
4970
4971 037207 241 00 0 00 777750 HPIOC: ROT 0,-^D24 ;PRINT I/O DEVICE CODE
4972 037210 405 00 0 00 000774 ANDI 0,774
4973 037211 037 16 0 00 000003 PNTOCS
4974 037212 254 00 0 00 037150 JRST HDEF-2
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 89
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0141
4975 037213 201 00 0 00 030253 PNTIND: MOVEI 0,ATSIN
4976 037214 037 00 0 00 000000 PNTA ;PRINT AN AT SIGN
4977 037215 263 17 0 00 000000 RTN
4978
4979 037216 332 00 0 00 041231 HAC: SKIPE HDCNTL
4980 037217 254 00 0 00 037417 JRST HEND
4981 IFSWIT^
4982 037220 554 02 0 00 000007 HLRZ 2,IR ;GET INITIAL AND FINAL SWITCHES
4983 037221 246 02 0 00 777766 LSHC 2,-^D10
4984 037222 603 03 0 00 400000 TLNE 3,400000
4985 037223 334 02 0 02 034575 SKIPA 2,IFTAB(2) ;ODD
4986 037224 204 02 0 02 034575 MOVS 2,IFTAB(2) ;EVEN
4987 037225 405 02 0 00 000037 ANDI 2,37
4988 037226 306 02 0 00 000020 CAIN 2,20
4989 037227 254 00 0 00 037411 JRST HTIME ;DON'T PRINT IF 20
4990 MOVEI 0,[ASCIZ/
4991 INITIAL
4992 037230 201 00 0 00 041023 C(AC)=/]
4993 037231 037 17 0 00 000000 PNTAL
4994 037232 350 00 0 00 041235 AOS LINCNT
4995 037233 350 00 0 00 041235 AOS LINCNT
4996 037234 200 00 0 17 777777 MOVE 0,-1(P)
4997 037235 200 00 1 00 000000 MOVE 0,@0
4998 037236 037 13 0 00 000000 PNTHW
4999 IFSWIT^
5000 037237 554 02 0 00 000007 HLRZ 2,IR ;GET INITIAL AND FINAL SWITCHES
5001 037240 246 02 0 00 777766 LSHC 2,-^D10
5002 037241 603 03 0 00 400000 TLNE 3,400000
5003 037242 334 02 0 02 034575 SKIPA 2,IFTAB(2) ;ODD
5004 037243 204 02 0 02 034575 MOVS 2,IFTAB(2) ;EVEN
5005
5006 037244 602 02 0 00 100000 HAC2: TRNE 2,FACINH
5007 037245 476 00 0 00 041243 SETOM PFCE#
5008 037246 202 01 0 00 041246 MOVEM 1,PINST#
5009 037247 405 02 0 00 000017 ANDI 2,17 ;MASK SWITCHES
5010 037250 200 00 0 17 777776 MOVE 0,-2(P)
5011 037251 200 00 1 00 000000 MOVE 0,@0
5012 037252 305 02 0 00 000010 CAIGE 2, 10
5013 037253 305 02 0 00 000004 CAIGE 2,4
5014 037254 254 00 0 00 037447 JRST CROCK1
5015 037255 261 17 0 00 000000 PUT 0
5016 037256 201 00 0 00 041027 MOVEI [ASCIZ/ C(AC+1)=/]
5017 037257 037 17 0 00 000000 PNTAL
5018 037260 262 17 0 00 000000 POP P,0
5019 037261 037 13 0 00 000000 PNTHW
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 90
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0142
5020 037262 302 02 0 00 000001 HPCE: CAIE 2, 1 ;PRINT THE CONTENTS
5021 037263 306 02 0 00 000007 CAIN 2,7 ;OF THE EFFECTIVE ADDRESS
5022 037264 254 00 0 00 037313 JRST HEIP ;DO NOT PRINT ON 1, 7 OR 10
5023 037265 306 02 0 00 000010 CAIN 2, 10
5024 037266 254 00 0 00 037313 JRST HEIP
5025 037267 200 00 0 17 777775 MOVE 0,-3(P)
5026 037270 336 00 0 00 041243 SKIPN PFCE#
5027 037271 254 00 0 00 037303 JRST HPCE1
5028 037272 550 01 0 00 041246 HRRZ 1,PINST
5029 037273 270 01 0 00 000016 ADD 1,USERAC
5030 037274 326 16 0 00 037277 JUMPN USERAC,.+3
5031 037275 606 01 0 00 777700 TRNN 1,777700
5032 037276 271 01 0 00 040000 ADDI 1,JA
5033 037277 261 17 0 00 000001 PUT 1
5034 037300 405 01 0 00 777777 ANDI 1,-1
5035 037301 200 00 1 00 000001 MOVE 0,@1
5036 037302 262 17 0 00 000001 GET 1
5037 037303 261 17 0 00 000000 HPCE1: PUT 0
5038 MOVEI [ASCIZ/
5039 037304 201 00 0 00 041032 C(E)=/]
5040 037305 037 17 0 00 000000 PNTAL
5041 037306 350 00 0 00 041235 AOS LINCNT
5042 037307 262 17 0 00 000000 POP P,0
5043 037310 037 13 0 00 000000 PNTHW ;PRINT C(E)
5044 037311 332 00 0 00 037424 SKIPE P15#
5045 037312 254 00 0 00 037535 JRST CROCK7
5046
5047 037313 HEIP: MOVEI 0,[ASCIZ/
5048 FINAL
5049 037313 201 00 0 00 041034 /]
5050 037314 037 17 0 00 000000 PNTAL ;END OF FIRST LINE.
5051 037315 350 00 0 00 041235 AOS LINCNT
5052 037316 350 00 0 00 041235 AOS LINCNT
5053 037317 336 00 0 00 041242 SKIPN PDLOVW
5054 037320 254 00 0 00 037324 JRST HRESLT
5055 037321 201 00 0 00 040432 MOVEI 0,PDLOVF
5056 037322 037 17 0 00 000000 PNTAL
5057 037323 402 00 0 00 041242 SETZM PDLOVW
5058
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 91
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0143
5059 037324 200 00 0 00 000005 HRESLT: MOVE 0,CAC ;GET C(AC).
5060 037325 306 02 0 00 000006 CAIN 2,6
5061 037326 254 00 0 00 037473 JRST CROCK3
5062 037327 322 02 0 00 037332 JUMPE 2, .+3
5063 037330 302 02 0 00 000010 CAIE 2, 10
5064 037331 306 02 0 00 000011 CAIN 2, 11
5065 037332 254 00 0 00 037473 JRST CROCK3
5066 037333 261 17 0 00 000000 PUT 0
5067 037334 201 00 0 00 041036 MOVEI [ASCIZ/C(AC)=/]
5068 037335 037 17 0 00 000000 PNTAL
5069 037336 262 17 0 00 000000 POP P,0
5070 037337 037 13 0 00 000000 PNTHW ;PRINT AC.
5071 037340 302 02 0 00 000004 HRAC2: CAIE 2,4
5072 037341 306 02 0 00 000005 CAIN 2, 5
5073 037342 254 00 0 00 037345 JRST .+3
5074 037343 302 02 0 00 000007 CAIE 2, 7
5075 037344 254 00 0 00 037457 JRST CROCK2
5076 037345 201 00 0 00 041027 MOVEI [ASCIZ/ C(AC+1)=/]
5077 037346 037 17 0 00 000000 PNTAL
5078 037347 200 00 0 00 000006 MOVE 0,CAC1
5079 037350 037 13 0 00 000000 PNTHW
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 92
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0144
5080 037351 322 02 0 00 037361 HRPCE: JUMPE 2,HRPCE1 ;PRINT THE C(E)
5081 037352 302 02 0 00 000003 CAIE 2, 3 ;RESULTS
5082 037353 306 02 0 00 000005 CAIN 2, 5
5083 037354 254 00 0 00 037361 JRST HRPCE1
5084 037355 306 02 0 00 000006 CAIN 2,6
5085 037356 254 00 0 00 037361 JRST HRPCE1
5086 037357 305 02 0 00 000012 CAIGE 2, 12
5087 037360 254 00 0 00 037411 JRST HTIME ;DO NOT PRINT C(E)
5088 037361 306 02 0 00 000016 HRPCE1: CAIN 2,16
5089 037362 200 00 0 00 041251 MOVE 0,PONTR#
5090 037363 306 02 0 00 000016 CAIN 2,16
5091 037364 254 00 0 00 037401 JRST HRPCE2
5092 037365 200 00 0 00 000004 MOVE 0,CE
5093 037366 336 00 0 00 041243 SKIPN PFCE#
5094 037367 254 00 0 00 037401 JRST HRPCE2
5095 037370 550 01 0 00 041246 HRRZ 1,PINST
5096 037371 270 01 0 00 000016 ADD 1,USERAC
5097 037372 326 16 0 00 037375 JUMPN USERAC,.+3
5098 037373 606 01 0 00 777700 TRNN 1,777700
5099 037374 271 01 0 00 040000 ADDI 1,JA
5100 037375 261 17 0 00 000001 PUT 1
5101 037376 405 01 0 00 777777 ANDI 1,-1
5102 037377 200 00 1 00 000001 MOVE 0,@1
5103 037400 262 17 0 00 000001 GET 1
5104 037401 261 17 0 00 000000 HRPCE2: PUT 0
5105 MOVEI [ASCIZ/
5106 037402 201 00 0 00 041032 C(E)=/]
5107 037403 037 17 0 00 000000 PNTAL
5108 037404 350 00 0 00 041235 AOS LINCNT
5109 037405 262 17 0 00 000000 POP P,0
5110 037406 037 13 0 00 000000 PNTHW
5111 037407 332 00 0 00 037424 SKIPE P15#
5112 037410 254 00 0 00 037555 JRST CROC11 ;END OF SECOND LINE.
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 93
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0145
5113 037411 402 00 0 00 041243 HTIME: SETZM PFCE#
5114 037412 200 00 0 00 030046 MOVE CONSW
5115 037413 602 00 0 00 000100 TRNE INHMT
5116 037414 254 00 0 00 037417 JRST HEND
5117 037415 603 11 0 00 600000 TLNE MA,MS+MT
5118 037416 260 17 0 00 037425 GO TIMPNT ;PRINT TIME, AR, MQ, AND ETC.
5119 037417 HEND: RST15 ^ ;END OF HEADER
5120 037417 561 15 0 00 777763 HRROI 15,-15
5121 037420 262 17 0 15 000015 GET 15(15)
5122 037421 341 15 0 00 037420 AOJL 15,.-1
5123 037422 262 17 0 00 000015 GET 15
5124 037423 263 17 0 00 000000 RTN ;PRINTOUT
5125
5126 037424 000000 000000 P15: 0
5127
5128 037425 260 17 0 00 031460 TIMPNT: GO PCR
5129 037426 260 17 0 00 031460 GO PCR
5130 037427 201 00 0 00 037433 MOVEI 0,TIMMES
5131 037430 037 17 0 00 000000 PNTAL
5132 037431 260 17 0 00 031460 GO PCR
5133 037432 263 17 0 00 000000 RTN
5134
5135 037433 124 111 115 105 040 TIMMES: ASCIZ .TIME PC MA SC FE AR MQ BR.
5136 037434 040 040 040 120 103
5137 037435 040 040 040 040 040
5138 037436 115 101 040 040 040
5139 037437 040 040 123 103 040
5140 037440 040 106 105 040 040
5141 037441 101 122 040 040 040
5142 037442 040 040 040 040 040
5143 037443 040 040 040 115 121
5144 037444 040 040 040 040 040
5145 037445 040 040 040 040 040
5146 037446 040 102 122 000 000
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 94
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0146
5147 037447 302 02 0 00 000001 CROCK1: CAIE 2,1
5148 037450 306 02 0 00 000007 CAIN 2,7
5149 037451 254 00 0 00 037313 JRST HEIP
5150 037452 306 02 0 00 000010 CAIN 2,10
5151 037453 254 00 0 00 037313 JRST HEIP
5152 037454 301 02 0 00 000012 CAIL 2,12
5153 037455 254 00 0 00 037474 JRST CROCK4
5154 037456 254 00 0 00 037262 JRST HPCE
5155
5156 037457 306 02 0 00 000006 CROCK2: CAIN 2,6
5157 037460 254 00 0 00 037472 JRST SPCS13
5158 037461 322 02 0 00 037472 JUMPE 2,SPCS13
5159 037462 302 02 0 00 000003 CAIE 2,3
5160 037463 306 02 0 00 000005 CAIN 2,5
5161 037464 254 00 0 00 037472 JRST SPCS13
5162 037465 305 02 0 00 000012 CAIGE 2,12
5163 037466 254 00 0 00 037411 JRST HTIME
5164 037467 307 02 0 00 000014 CAIG 2,14
5165 037470 254 00 0 00 037552 JRST CROC10
5166 037471 254 00 0 00 037361 JRST HRPCE1
5167 037472 254 00 0 00 037361 SPCS13: JRST HRPCE1
5168
5169 037473 254 00 0 00 037340 CROCK3: JRST HRAC2
5170
5171 037474 303 02 0 00 000014 CROCK4: CAILE 2,14
5172 037475 254 00 0 00 037533 JRST CROCK5
5173 037476 200 01 0 17 777777 MOVE 1,-1(P)
5174 037477 260 17 0 00 037501 GO CROC4
5175 037500 254 00 0 00 037313 JRST HEIP
5176
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 95
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0147
5177 037501 302 02 0 00 000014 CROC4: CAIE 2,14
5178 037502 550 01 0 00 000001 HRRZ 1,1
5179 037503 306 02 0 00 000014 CAIN 2,14
5180 037504 554 01 0 00 000001 HLRZ 1,1
5181 037505 306 02 0 00 000012 CROCK6: CAIN 2,12
5182 037506 271 01 0 00 000001 ADDI 1,1
5183 037507 313 01 0 00 041265 CAMLE 1,VMEM
5184 037510 263 17 0 00 000000 RTN
5185 037511 270 01 0 00 000016 ADD 1,USERAC
5186 037512 326 16 0 00 037515 JUMPN USERAC,.+3
5187 037513 606 01 0 00 777700 TRNN 1,777700
5188 037514 271 01 0 00 040000 ADDI 1,JA
5189 037515 261 17 0 00 000001 PUT 1
5190 037516 405 01 0 00 777777 ANDI 1,-1
5191 037517 200 00 1 00 000001 MOVE 0,@1
5192 037520 262 17 0 00 000001 GET 1
5193 037521 261 17 0 00 000000 PUT 0
5194 037522 201 00 0 00 041040 MOVEI [ASCIZ/ C(C(ACR+1))=/]
5195 037523 306 02 0 00 000013 CAIN 2,13
5196 037524 201 00 0 00 041043 MOVEI [ASCIZ/ C(C(ACR)=/]
5197 037525 306 02 0 00 000014 CAIN 2,14
5198 037526 201 00 0 00 041046 MOVEI [ASCIZ/ C(C(ACL))=/]
5199 037527 037 17 0 00 000000 PNTAL
5200 037530 262 17 0 00 000000 POP P,0
5201 037531 037 13 0 00 000000 PNTHW
5202 037532 263 17 0 00 000000 RTN
5203
5204 037533 476 00 0 00 037424 CROCK5: SETOM P15#
5205 037534 254 00 0 00 037262 JRST HPCE
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 96
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0148
5206 037535 550 01 1 00 000001 CROCK7: HRRZ 1,@1
5207 037536 270 01 0 00 000016 ADD 1,USERAC
5208 037537 326 16 0 00 037542 JUMPN USERAC,.+3
5209 037540 606 01 0 00 777700 TRNN 1,777700
5210 037541 271 01 0 00 040000 ADDI 1,JA
5211 037542 201 00 0 00 041051 MOVEI [ASCIZ/ C(C(E))=/]
5212 037543 037 17 0 00 000000 PNTAL
5213 037544 261 17 0 00 000001 PUT 1
5214 037545 405 01 0 00 777777 ANDI 1,-1
5215 037546 200 00 1 00 000001 MOVE 0,@1
5216 037547 262 17 0 00 000001 GET 1
5217 037550 037 13 0 00 000000 PNTHW
5218 037551 254 00 0 00 037313 JRST HEIP
5219
5220 037552 200 01 0 00 000005 CROC10: MOVE 1,CAC
5221 037553 260 17 0 00 037501 GO CROC4
5222 037554 254 00 0 00 037411 JRST HTIME
5223
5224 037555 302 02 0 00 000016 CROC11: CAIE 2,16
5225 037556 254 00 0 00 037573 JRST CROK11
5226 037557 201 01 1 00 041251 MOVEI 1,@PONTR#
5227 037560 270 01 0 00 000016 ADD 1,USERAC
5228 037561 326 16 0 00 037564 JUMPN USERAC,.+3
5229 037562 606 01 0 00 777700 TRNN 1,777700
5230 037563 271 01 0 00 040000 ADDI 1,JA
5231 037564 201 00 0 00 041051 MOVEI [ASCIZ/ C(C(E))=/]
5232 037565 037 17 0 00 000000 PNTAL
5233 037566 261 17 0 00 000001 PUT 1
5234 037567 405 01 0 00 777777 ANDI 1,-1
5235 037570 200 00 1 00 000001 MOVE 0,@1
5236 037571 262 17 0 00 000001 GET 1
5237 037572 037 13 0 00 000000 PNTHW
5238 037573 402 00 0 00 037424 CROK11: SETZM P15#
5239 037574 254 00 0 00 037411 JRST HTIME
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 97
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0149
5240
5241 037575 402 00 0 00 041233 IT0IN: SETZM HNGCNT# ;CLEAR HUNG COUNTER
5242 037576 202 12 0 00 041241 MOVEM PC,PCSAVE#
5243 037577 260 17 0 00 032122 GO IT0 ;SIMULATE INSTRUCTION
5244 037600 263 17 0 00 000000 RTN
5245
5246 037601 350 01 0 00 041233 HUNGCK: AOS 1,HNGCNT ;INCREMENT TIME STATE COUNTER
5247 037602 307 01 0 00 001750 CAIG 1,^D1000 ;HUNG IN SIMULATION ?
5248 037603 263 17 0 00 000000 RTN ;NO, CONTINUE
5249 MOVEI [ASCIZ/
5250 **SIMULATOR ERROR**
5251 037604 201 00 0 00 041054 INSTRUCTION HUNG UP/]
5252 037605 037 17 0 00 000001 PNTALF
5253 037606 476 00 0 00 041231 SETOM HDCNTL ;SET HEADER TO RETURN AFTER INST
5254 037607 200 00 0 00 041241 MOVE 0,PCSAVE
5255 037610 260 17 0 00 037107 GO HEADER+1 ;PRINT INST
5256 037611 201 00 0 00 030242 MOVEI CRLF
5257 037612 037 00 0 00 000001 PNTAF
5258 037613 254 00 0 00 037614 HNGERR: JRST .+1
5259 037614 037 14 0 00 000004 ERRHLT
5260 037615 254 00 0 00 030007 JRST DDTSRT
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 98
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0150
5261 037616 000000 000000 INT: 0
5262 037617 402 00 0 00 041242 SETZM PDLOVW ;CLEAR PUSHDOWN LIST OVERFLOW FLAG.
5263 037620 515 11 0 00 000016 HRLZI MA,USERAC
5264 037621 403 16 0 00 041231 SETZB USERAC,HDCNTL#
5265 037622 200 16 0 00 037625 MOVE USERAC,RELOC
5266 037623 550 12 0 00 037772 HRRZ PC,INPC ;SET PSEUDO PROGRAM COUNTER
5267 037624 254 00 1 00 037616 JRST @INT ;RETURN.
5268 037625 000000 000000 RELOC: 0
5269
5270 ;SIMULATE INITIAL AND FINAL
5271 ;RESULTS PRINTED
5272
5273 037626 264 00 0 00 037616 SIMIF: JSR INT
5274 037627 621 11 0 00 700000 TLZ MA,MT+MS+SU
5275 037630 661 11 0 00 100400 TLO MA,RUN+SU
5276 037631 402 00 0 00 041247 SETZM PNTCTL#
5277 037632 550 00 0 00 000012 HRRZ PC
5278 037633 315 00 0 00 037775 CAMGE CNTLPC
5279 037634 254 00 0 00 037643 JRST SIMIF1
5280 037635 313 00 0 00 037776 CAMLE UPRPC
5281 037636 254 00 0 00 037643 JRST SIMIF1
5282 037637 200 00 0 12 000000 MOVE OFFSET(PC)
5283 037640 404 00 0 00 037773 AND MASK
5284 037641 316 00 0 00 037774 CAMN INSTR
5285 037642 476 00 0 00 041247 SETOM PNTCTL ;PRINT THIS INSTRUCTION
5286 037643 260 17 0 00 037575 SIMIF1: GO IT0IN ;GO TO SIMULATE INST
5287 037644 332 00 0 00 041247 SKIPE PNTCTL
5288 037645 260 17 0 00 037106 GO HEADER ;PRINT THE RESULTS
5289 037646 603 11 0 00 000400 TLNE MA, RUN ;IF RUN ON A ONE
5290 037647 254 00 0 00 037627 JRST SIMIF+1 ;GO TO NEXT INST
5291 037650 254 00 0 00 030755 JRST DDTEX ;EXIT
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 99
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0151
5292 ;SIMULATE THE MACHINE TIMES
5293 ;FOR ONE INSTRUCTION
5294
5295 037651 264 00 0 00 037616 SMMT1: JSR INT
5296 037652 261 17 0 00 000012 PUT PC ;SAVE PC ON PUSH LIST
5297 037653 260 17 0 00 037575 GO IT0IN ;SIMULATE THE INST
5298 037654 661 11 0 00 700000 TLO MA,MS+MT+SU
5299 037655 261 17 0 00 000000 PUT 0
5300 037656 037 10 0 00 000002 SWITCH
5301 037657 602 00 0 00 000100 TRNE 0,INHMT
5302 037660 621 11 0 00 600000 TLZ MA,MS+MT
5303 037661 262 17 0 00 000000 POP P,0
5304 037662 260 17 0 00 037106 GO HEADER ;PRINT INITIAL FINAL
5305 037663 262 17 0 00 000012 GET PC ;PRINT MACHINE STATES
5306 037664 260 17 0 00 037575 GO IT0IN ;FOR THE INST AT PC
5307 037665 263 17 0 00 000000 RTN ;EXIT TO MONITOR
5308
5309 ;SIMULATE THE MEMORY STOP TIMES
5310 037666 264 00 0 00 037616 SIMMS: JSR INT
5311 037667 661 11 0 00 100400 TLO MA,RUN+SU
5312 037670 621 11 0 00 604000 TLZ MA,MT+MS+ERR
5313 037671 550 00 0 00 000012 HRRZ PC
5314 037672 315 00 0 00 037775 CAMGE CNTLPC
5315 037673 254 00 0 00 037702 JRST SIMMS1
5316 037674 313 00 0 00 037776 CAMLE UPRPC
5317 037675 254 00 0 00 037702 JRST SIMMS1
5318 037676 200 00 0 12 000000 MOVE OFFSET(PC)
5319 037677 404 00 0 00 037773 AND MASK
5320 037700 316 00 0 00 037774 CAMN INSTR
5321 037701 621 11 0 00 100000 TLZ MA,SU
5322 037702 261 17 0 00 000012 SIMMS1: PUT PC ;SAVE PC ON LIST
5323 037703 260 17 0 00 037575 GO IT0IN
5324 037704 262 17 0 00 000000 GET 0
5325 037705 667 11 0 00 100000 TLON MA,SU
5326 037706 661 11 0 00 004000 TLO MA,ERR
5327 037707 607 11 0 00 000400 TLNN MA,RUN
5328 037710 254 00 0 00 030007 JRST VMHALT
5329 037711 603 11 0 00 004000 TLNE MA,ERR
5330 037712 334 12 0 00 000000 SKIPA PC,0
5331 037713 254 00 0 00 037671 JRST SIMMS+3
5332 037714 661 11 0 00 200000 TLO MA,MS
5333 037715 260 17 0 00 037106 GO HEADER ;PRINT INITIAL FINAL
5334 037716 603 11 0 00 004000 TLNE MA,ERR
5335 037717 260 17 0 00 037575 GO IT0IN
5336 037720 254 00 0 00 037667 JRST SIMMS+1 ;GO TO NEXT INSTRUCTION
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 100
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0152
5337 ;SIMULATE THIS PROGRAM
5338
5339 037721 264 00 0 00 037616 SIMPRG: JSR INT
5340 037722 661 11 0 00 100400 TLO MA,RUN+SU
5341 037723 621 11 0 00 604000 TLZ MA,MT+MS+ERR
5342
5343 037724 200 00 0 12 000000 MOVE OFFSET(PC) ;IS THIS SPECIAL LEAVE SIMULATION INST ?
5344 037725 316 00 0 00 041065 CAMN [776000,,SEXIT1]
5345 037726 254 00 1 00 000000 JRST @0 ;YES, RETURN TO COMMAND MODE
5346
5347 037727 550 00 0 00 000012 HRRZ PC
5348 037730 315 00 0 00 037775 CAMGE CNTLPC
5349 037731 254 00 0 00 037740 JRST SIMPR1
5350 037732 313 00 0 00 037776 CAMLE UPRPC
5351 037733 254 00 0 00 037740 JRST SIMPR1
5352 037734 200 00 0 12 000000 MOVE OFFSET(PC)
5353 037735 404 00 0 00 037773 AND MASK
5354 037736 316 00 0 00 037774 CAMN INSTR
5355 037737 621 11 0 00 100000 TLZ MA,SU
5356
5357 037740 261 17 0 00 000012 SIMPR1: PUT PC ;SAVE THE PC
5358 037741 260 17 0 00 037575 GO IT0IN ;SIMULATE
5359 037742 262 17 0 00 000000 GET 0 ;OLD PC TO ZERO
5360
5361 037743 667 11 0 00 100000 TLON MA,SU
5362 037744 661 11 0 00 004000 TLO MA,ERR
5363 037745 607 11 0 00 000400 TLNN MA,RUN
5364 037746 254 00 0 00 030007 JRST VMHALT ;VIRTUAL MACHINE HALT
5365
5366 037747 603 11 0 00 004000 TLNE MA,ERR
5367 037750 334 12 0 00 000000 SKIPA PC,0 ;RUN = 0 OR ERROR
5368 037751 254 00 0 00 037724 JRST SIMPRG+3
5369 037752 661 11 0 00 600000 TLO MA,MT+MS
5370 037753 260 17 0 00 037106 GO HEADER ;PRINT INITIAL FINAL.
5371 037754 037 10 0 00 000002 SWITCH
5372 037755 602 00 0 00 000100 TRNE INHMT ;INHIBIT MACHINE TIMES ?
5373 037756 621 11 0 00 600000 TLZ MA,MS+MT ;YES
5374 037757 603 11 0 00 004000 TLNE MA,ERR
5375 037760 260 17 0 00 037575 GO IT0IN
5376
5377 037761 037 07 0 00 000003 TTALTM ;IF ALTMODE, GO TO DDT
5378 037762 254 00 0 00 037764 JRST .+2
5379 037763 254 00 0 00 030007 JRST DDTEX5 ;CONTINUE WITH "SIMCON$G"
5380
5381 037764 254 00 0 00 037722 SIMCON: JRST SIMPRG+1
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 101
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0153
5382 037765 264 00 0 00 037616 SMNST1: JSR INT
5383 037766 621 11 0 00 700000 TLZ MA,700000
5384 037767 661 11 0 00 100400 TLO MA,RUN+SU ;SET RUN AND STORE USER FLAGS.
5385 037770 260 17 0 00 037575 GO IT0IN ;SIMULATE THE INST.
5386 037771 263 17 0 00 000000 RTN ;RETURN TO MAIN PROG.
5387
5388 037772 000000 030000 INPC: 0,,30000
5389 037773 777777 777777 MASK: -1
5390 037774 000000 000000 INSTR: 0
5391 037775 000000 000000 CNTLPC: 0
5392 037776 000000 777777 UPRPC: 0,,-1
5393 037777 000000 000000 SWITCH: 0
5394
5395 040000 ACS:
5396 040000 JA: BLOCK 200 ;JOB STORAGE AREA
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 102
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0154
5397 ;BYTE FIRST CYCLE
5398
5399 040200 200 00 0 00 041234 SBYTE: MOVE 0,IRA
5400 040201 306 00 0 00 000130 CAIN 130 ;IR UFA?
5401 040202 254 00 0 00 035357 JRST SFAD ;YES.
5402 040203 306 00 0 00 000131 CAIN 131 ;IR DFN?
5403 040204 254 00 0 00 035321 JRST SDFN ;YES.
5404 040205 607 07 0 00 005000 TLNN IR,5000
5405 040206 254 00 0 00 035264 JRST SFSC ;FLOAT SCALE
5406 040207 332 00 0 00 041214 SKIPE BISF ;2ND PART OF BYTE ?
5407 040210 254 00 0 00 040345 JRST SECOND ;SECOND CYCLE OF BYTE
5408 040211 603 12 0 00 020000 TLNE PC,BIS ;PC BIS FLAG SET ?
5409 040212 254 00 0 00 040216 JRST BYT6 ;YES, NO INCREMENT
5410 040213 641 07 0 00 005000 TLC IR,5000
5411 040214 643 07 0 00 005000 TLCE IR,5000
5412 040215 254 00 0 00 040263 JRST INCBYT ;INCREMENT BYTE
5413
5414 040216 BYT6: STORE ET0^
5415 040216 260 17 0 00 037601 GO HUNGCK
5416 040217 325 11 0 00 040222 JUMPGE MA,.+3 ;PRINTER CNTL
5417 040220 201 01 0 00 040663 MOVEI 1,[ASCII /ET0/]
5418 040221 260 17 0 00 037027 GO PRINTA
5419 040222 554 02 0 00 000014 HLRZ SCAD,AR
5420 040223 241 02 0 00 777772 ROT SCAD,-6
5421 040224 405 02 0 00 000077 ANDI SCAD,77
5422 040225 640 02 0 00 777777 TRC SCAD,-1 ;SCAD AR6-11 EN SET..-S
5423 STORE BYT6^
5424 040226 260 17 0 00 037601 GO HUNGCK
5425 040227 325 11 0 00 040232 JUMPGE MA,.+3 ;PRINTER CNTL
5426 040230 201 01 0 00 041066 MOVEI 1,[ASCII /BYT6/]
5427 040231 260 17 0 00 037027 GO PRINTA
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 103
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0155
5428 040232 541 10 0 02 000001 BYT7: HRRI SC,1(SCAD)
5429 STORE BYT7^
5430 040233 260 17 0 00 037601 GO HUNGCK
5431 040234 325 11 0 00 040237 JUMPGE MA,.+3 ;PRINTER CNTL
5432 040235 201 01 0 00 041067 MOVEI 1,[ASCII /BYT7/]
5433 040236 260 17 0 00 037027 GO PRINTA
5434 040237 260 17 0 00 036716 GO SCSUB ;SHIFT SUBROUTINE
5435 040240 260 17 0 00 040260 GO BYTMQ ;MQ MASK OF SIZE
5436 040241 661 12 0 00 020000 BYT7A: TLO PC,BIS
5437 040242 476 00 0 00 041214 SETOM BISF ;2ND PART OF BYTE FIX
5438 040243 554 02 0 00 000014 HLRZ SCAD,AR
5439 040244 240 02 0 00 777764 ASH SCAD,-^D12
5440 040245 542 02 0 00 000010 HRRM SCAD,SC ;SC FM AR0-5[1]...P
5441 STORE BYT7A^
5442 040246 260 17 0 00 037601 GO HUNGCK
5443 040247 325 11 0 00 040252 JUMPGE MA,.+3 ;PRINTER CNTL
5444 040250 201 01 0 00 041070 MOVEI 1,[ASCII /BYT7A/]
5445 040251 260 17 0 00 037027 GO PRINTA
5446 040252 202 14 0 00 041251 MOVEM AR,PONTR# ;SAVE NEW POINTER FOR PNT ROUTINE
5447 040253 200 00 0 00 000013 MOVE BR ;AD BR+EN SET.
5448 040254 621 00 0 00 777740 TLZ 777740
5449 040255 620 00 0 00 777777 TRZ -1
5450 040256 436 00 0 00 000007 IORM IR
5451 040257 254 00 0 00 032145 JRST IT1+1
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 104
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0156
5452 040260 242 15 0 00 000001 BYTMQ: LSH MQ,1 ;SUBROUTINE TO
5453 040261 660 15 0 00 000001 TRO MQ,1
5454 040262 263 17 0 00 000000 RTN ;MAKE A MASK IN MQ
5455
5456 ;BYTE ,FIRST CYCLE INCREMENT
5457 040263 INCBYT: STORE ET0^
5458 040263 260 17 0 00 037601 GO HUNGCK
5459 040264 325 11 0 00 040267 JUMPGE MA,.+3 ;PRINTER CNTL
5460 040265 201 01 0 00 040663 MOVEI 1,[ASCII /ET0/]
5461 040266 260 17 0 00 037027 GO PRINTA
5462 040267 554 02 0 00 000014 BYT1: HLRZ SCAD,AR
5463 040270 240 02 0 00 777764 ASH SCAD,-^D12
5464 040271 542 02 0 00 000010 HRRM SCAD,SC ;SC FM AR0-5[1]...P
5465 040272 554 00 0 00 000014 HLRZ AR
5466 040273 240 00 0 00 777772 ASH -6
5467 040274 405 00 0 00 000077 ANDI 77
5468 040275 274 02 0 00 000000 SUB SCAD,0 ;SCAD AR6-11 EN SET
5469 040276 640 00 0 00 777777 TRC -1
5470 040277 261 17 0 00 000000 PUT 0
5471 STORE BYT1^
5472 040300 260 17 0 00 037601 GO HUNGCK
5473 040301 325 11 0 00 040304 JUMPGE MA,.+3 ;PRINTER CNTL
5474 040302 201 01 0 00 041071 MOVEI 1,[ASCII /BYT1/]
5475 040303 260 17 0 00 037027 GO PRINTA
5476 040304 606 02 0 00 000400 INCBY1: TRNN SCAD,400
5477 040305 254 00 0 00 040327 JRST BYT4
5478
5479 040306 620 10 0 00 777777 BYT2: TRZ SC,-1 ;SC CLR
5480 040307 271 14 0 00 000001 ADDI AR,1 ;AR FM AD(J) ; Y+1
5481 STORE BYT2^
5482 040310 260 17 0 00 037601 GO HUNGCK
5483 040311 325 11 0 00 040314 JUMPGE MA,.+3 ;PRINTER CNTL
5484 040312 201 01 0 00 041072 MOVEI 1,[ASCII /BYT2/]
5485 040313 260 17 0 00 037027 GO PRINTA
5486 040314 541 10 0 00 000144 BYT3: HRRI SC,144 ;SC GET 36 DECIMAL
5487 STORE BYT3^
5488 040315 260 17 0 00 037601 GO HUNGCK
5489 040316 325 11 0 00 040321 JUMPGE MA,.+3 ;PRINTER CNTL
5490 040317 201 01 0 00 041073 MOVEI 1,[ASCII /BYT3/]
5491 040320 260 17 0 00 037027 GO PRINTA
5492 040321 554 00 0 00 000014 HLRZ AR
5493 040322 240 00 0 00 777772 ASH -6
5494 040323 405 00 0 00 000077 ANDI 77
5495 040324 550 02 0 00 000010 HRRZ SCAD,SC
5496 040325 274 02 0 00 000000 SUB SCAD,0
5497 040326 254 00 0 00 040304 JRST INCBY1
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 105
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0157
5498 040327 514 00 0 00 000002 BYT4: HRLZ SCAD
5499 040330 242 00 0 00 000014 LSH ^D12
5500 040331 621 14 0 00 770000 TLZ AR,770000
5501 040332 432 00 0 00 000014 XORM AR ;AR0-5 FM SCAD3-8(J)
5502 040333 620 10 0 00 777777 TRZ SC,-1 ;SC CLR
5503 040334 262 17 0 00 000002 GET SCAD ;ADDER GET AR 6-11
5504 STORE BYT4^
5505 040335 260 17 0 00 037601 GO HUNGCK
5506 040336 325 11 0 00 040341 JUMPGE MA,.+3 ;PRINTER CNTL
5507 040337 201 01 0 00 041074 MOVEI 1,[ASCII /BYT4/]
5508 040340 260 17 0 00 037027 GO PRINTA
5509 040341 607 07 0 00 004000 TLNN IR,4000 ;IR IBP?
5510 040342 254 00 0 00 032551 JRST SS9-1 ;YES.
5511 040343 260 17 0 00 032105 MCWR
5512 040344 254 00 0 00 040232 JRST BYT7
5513
5514 ;BYTE SECOND PART
5515 040345 640 10 0 00 777777 SECOND: TRC SC,-1 ;SCAD SC COMP SET, SCAD SC NEG SETUP
5516 040346 541 10 0 10 000001 HRRI SC,1(SC) ;SC FM SCAD(J)
5517 STORE ET0^
5518 040347 260 17 0 00 037601 GO HUNGCK
5519 040350 325 11 0 00 040353 JUMPGE MA,.+3 ;PRINTER CNTL
5520 040351 201 01 0 00 040663 MOVEI 1,[ASCII /ET0/]
5521 040352 260 17 0 00 037027 GO PRINTA
5522 040353 621 12 0 00 020000 TLZ PC,BIS
5523 040354 603 07 0 00 002000 TLNE IR,2000
5524 040355 254 00 0 00 040366 JRST DPBET0 ;GO TO DEPOSIT BYTES
5525 040356 260 17 0 00 036716 GO SCSUB ;CALL SHIFT SUBROUTINE
5526 040357 242 14 0 00 777777 LBT1: LSH AR,-1 ;FOR LOAD BYTE
5527 040360 404 14 0 00 000015 AND AR,MQ ;AR FM MQ[0]
5528 STORE LBT1^
5529 040361 260 17 0 00 037601 GO HUNGCK
5530 040362 325 11 0 00 040365 JUMPGE MA,.+3 ;PRINTER CNTL
5531 040363 201 01 0 00 041075 MOVEI 1,[ASCII /LBT1/]
5532 040364 260 17 0 00 037027 GO PRINTA
5533 040365 254 00 0 00 032554 JRST ST0
5534
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 106
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0158
5535 ;DEPOSIT BYTES
5536 040366 260 17 0 00 036716 DPBET0: GO SCSUB ;CALL SHIFT SUBROUTINE
5537 040367 260 17 0 00 040427 GO BYTSH ;SHIFT AR,MQ LEFT
5538 040370 200 03 0 00 000013 DBT1: MOVE AD,BR ;AD BR+EN SET
5539 STORE DBT1^
5540 040371 260 17 0 00 037601 GO HUNGCK
5541 040372 325 11 0 00 040375 JUMPGE MA,.+3 ;PRINTER CNTL
5542 040373 201 01 0 00 041076 MOVEI 1,[ASCII /DBT1/]
5543 040374 260 17 0 00 037027 GO PRINTA
5544 040375 200 13 0 00 000014 DBT2: MOVE BR,AR ;BR FM AR(J)
5545 040376 200 14 0 00 000015 MOVE AR,MQ ;AR FM MQ(J)
5546 040377 200 15 0 00 000003 MOVE MQ,AD ;MQ FM AD(J)
5547 040400 460 03 0 00 000014 SETCM AD,AR ;AD AR-EN SET
5548 STORE DBT2^
5549 040401 260 17 0 00 037601 GO HUNGCK
5550 040402 325 11 0 00 040405 JUMPGE MA,.+3 ;PRINTER CNTL
5551 040403 201 01 0 00 041077 MOVEI 1,[ASCII /DBT2/]
5552 040404 260 17 0 00 037027 GO PRINTA
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 107
DAKDAS MAC 24-JAN-77 17:27 PDP-10 KA10 CENTRAL PROCESSOR SIMULATOR SEQ 0159
5553 040405 404 13 0 00 000014 DBT3: AND BR,AR ;BR FM AR[0]
5554 040406 200 14 0 00 000003 MOVE AR,AD ;AR FM AD(J)
5555 040407 200 03 0 00 000013 MOVE AD,BR ;AD BR+EN SET
5556 STORE DBT3^
5557 040410 260 17 0 00 037601 GO HUNGCK
5558 040411 325 11 0 00 040414 JUMPGE MA,.+3 ;PRINTER CNTL
5559 040412 201 01 0 00 041100 MOVEI 1,[ASCII /DBT3/]
5560 040413 260 17 0 00 037027 GO PRINTA
5561 040414 404 14 0 00 000015 DBT4: AND AR,MQ ;AR FM MQ[0]
5562 STORE DBT4^
5563 040415 260 17 0 00 037601 GO HUNGCK
5564 040416 325 11 0 00 040421 JUMPGE MA,.+3 ;PRINTER CNTL
5565 040417 201 01 0 00 041101 MOVEI 1,[ASCII /DBT4/]
5566 040420 260 17 0 00 037027 GO PRINTA
5567 040421 434 14 0 00 000003 IOR AR,AD ;AR FM AD[1]
5568 040422 DBT5: STORE DBT5^
5569 040422 260 17 0 00 037601 GO HUNGCK
5570 040423 325 11 0 00 040426 JUMPGE MA,.+3 ;PRINTER CNTL
5571 040424 201 01 0 00 041102 MOVEI 1,[ASCII /DBT5/]
5572 040425 260 17 0 00 037027 GO PRINTA
5573 040426 254 00 0 00 032554 JRST ST0 ;GO TO STORE TIME
5574
5575 040427 242 14 0 00 000001 BYTSH: LSH AR,1 ;SHIFT AR MQ
5576 040430 242 15 0 00 000001 LSH MQ,1 ;SEPERATELY
5577 040431 263 17 0 00 000000 RTN
5578
5579 040432 PDLOVF: ASCIZ ?
5580 040432 015 012 120 125 123 PUSHDOWN LIST OVERFLOW.
5581 040433 110 104 117 127 116
5582 040434 040 114 111 123 124
5583 040435 040 117 126 105 122
5584 040436 106 114 117 127 056
5585 040437 015 012 000 000 000 ?
5586
5587
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 1
STOR KLM 18-JAN-77 11:42 *STOR* RESERVED STORAGE, JAN 18,1977 SEQ 0160
5588 SUBTTL *STOR* RESERVED STORAGE, JAN 18,1977
5589
5590 ;PROGRAM LITERALS
5591
5592 XLIST
5593 IFNDEF $LPAPER,<LIST>
5594 040440 LIT
5595 040440 264 00 0 00 031774
5596 040441 64 51 55 45 62 00
5597 040442 015 012 123 120 105
5598 040443 103 111 106 131 040
5599 040444 102 101 123 105 040
5600 040445 122 101 116 104 117
5601 040446 115 040 116 125 115
5602 040447 102 105 122 040 055
5603 040450 040 000 000 000 000
5604 040451 254 00 0 00 031756
5605 040452 264 00 0 00 030104
5606 040453 015 012 117 120 105
5607 040454 122 101 124 117 122
5608 040455 040 111 116 110 111
5609 040456 102 111 124 040 117
5610 040457 106 040 101 114 114
5611 040460 040 124 105 123 124
5612 040461 123 015 012 000 000
5613 040462 015 012 117 120 105
5614 040463 122 101 124 117 122
5615 040464 040 111 116 110 111
5616 040465 102 111 124 040 117
5617 040466 106 040 102 117 124
5618 040467 110 040 106 101 123
5619 040470 124 040 101 116 104
5620 040471 040 123 114 117 127
5621 040472 015 012 000 000 000
5622 040473 377777 777741
5623 040474 45 70 51 64 00 00
5624 040475 000000 031107
5625 040476 000000 031225
5626 040477 015 012 052 052 052
5627 040500 052 052 052 052 052
5628 040501 052 052 015 012 123
5629 040502 111 115 125 114 101
5630 040503 124 111 117 116 040
5631 040504 103 117 115 120 101
5632 040505 122 111 123 111 117
5633 040506 116 040 106 101 111
5634 040507 114 125 122 105 015
5635 040510 012 000 000 000 000
5636 040511 015 012 052 052 052
5637 040512 052 052 052 052 052
5638 040513 052 052 015 012 111
5639 040514 116 123 124 122 125
5640 040515 103 124 111 117 116
5641 040516 040 103 117 115 120
5642 040517 101 122 111 123 111
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 1-1
STOR KLM 18-JAN-77 11:42 *STOR* RESERVED STORAGE, JAN 18,1977 SEQ 0161
5643 040520 117 116 040 106 101
5644 040521 111 114 125 122 105
5645 040522 015 012 000 000 000
5646 040523 000001 031720
5647 040524 124 105 123 124 040
5648 040525 120 101 123 123 040
5649 040526 103 117 125 116 124
5650 040527 040 075 040 000 000
5651 040530 543217 335216
5652 040531 165742 176525
5653 040532 147532 173543
5654 040533 731341 527517
5655 040534 377777 777777
5656 040535 015 012 111 116 124
5657 040536 105 122 116 101 114
5658 040537 040 120 122 117 107
5659 040540 122 101 115 040 120
5660 040541 122 117 102 114 105
5661 040542 115 054 040 123 125
5662 040543 107 107 105 123 124
5663 040544 040 122 105 114 117
5664 040545 101 104 054 040 122
5665 040546 105 123 124 101 122
5666 040547 124 040 041 015 012
5667 040550 000 000 000 000 000
5668 040551 015 012 106 114 101
5669 040552 107 123 040 106 122
5670 040553 117 115 040 115 101
5671 040554 103 110 040 046 040
5672 040555 123 111 115 125 114
5673 040556 101 124 105 040 040
5674 040557 040 000 000 000 000
5675 040560 015 012 115 101 103
5676 040561 110 111 116 105 040
5677 040562 122 105 123 125 114
5678 040563 124 123 040 111 116
5679 040564 040 101 103 054 101
5680 040565 103 053 061 054 105
5681 040566 040 040 040 000 000
5682 040567 015 012 115 101 103
5683 040570 110 111 116 105 040
5684 040571 122 105 123 125 114
5685 040572 124 123 040 111 116
5686 040573 040 101 103 054 120
5687 040574 117 111 116 124 105
5688 040575 122 054 105 040 040
5689 040576 040 000 000 000 000
5690 040577 015 012 124 117 124
5691 040600 101 114 040 120 101
5692 040601 123 123 105 123 040
5693 040602 075 040 000 000 000
5694 040603 015 012 124 117 124
5695 040604 101 114 040 105 122
5696 040605 122 117 122 123 040
5697 040606 075 040 000 000 000
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 1-2
STOR KLM 18-JAN-77 11:42 *STOR* RESERVED STORAGE, JAN 18,1977 SEQ 0162
5698 040607 015 012 102 101 123
5699 040610 105 040 122 101 116
5700 040611 104 117 115 040 116
5701 040612 125 115 102 105 122
5702 040613 040 075 040 000 000
5703 040614 015 012 122 125 116
5704 040615 040 124 111 115 105
5705 040616 040 075 040 000 000
5706 040617 111 124 060 000 000
5707 040620 111 124 061 000 000
5708 040621 101 124 061 000 000
5709 040622 101 124 062 000 000
5710 040623 101 124 063 000 000
5711 040624 101 124 064 000 000
5712 040625 101 124 066 000 000
5713 040626 140000 000000
5714 040627 133777 777777
5715 040630 106 124 060 000 000
5716 040631 106 124 061 000 000
5717 040632 106 124 061 101 000
5718 040633 106 124 062 000 000
5719 040634 106 124 062 122 121
5720 040635 106 124 063 000 000
5721 040636 106 124 064 000 000
5722 040637 106 124 065 000 000
5723 040640 106 124 064 122 121
5724 040641 106 124 064 101 000
5725 040642 106 124 066 000 000
5726 040643 106 124 067 000 000
5727 040644 106 124 070 000 000
5728 040645 106 124 071 000 000
5729 040646 000000 777777
5730 040647 123 124 060 000 000
5731 040650 777777 777777
5732 040651 123 124 061 000 000
5733 040652 123 124 061 101 000
5734 040653 123 124 062 000 000
5735 040654 123 124 065 000 000
5736 040655 123 124 066 101 000
5737 040656 123 124 067 000 000
5738 040657 123 124 070 000 000
5739 040660 123 124 066 000 000
5740 040661 123 124 063 000 000
5741 040662 123 124 071 000 000
5742 040663 105 124 060 000 000
5743 040664 116 103 000 000 000
5744 040665 105 124 061 000 000
5745 040666 105 124 062 000 000
5746 040667 000001 000001
5747 040670 000001 000000
5748 040671 000000 000370
5749 040672 000000 000360
5750 040673 320000 000000
5751 040674 000000 000311
5752 040675 000000 000313
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 1-3
STOR KLM 18-JAN-77 11:42 *STOR* RESERVED STORAGE, JAN 18,1977 SEQ 0163
5753 040676 000000 000317
5754 040677 000000 000315
5755 040700 000000 000316
5756 040701 000000 000336
5757 040702 27 03 0 00 000007
5758 040703 32 12 0 00 000007
5759 040704 123 122 124 061 000
5760 040705 106 101 124 061 000
5761 040706 106 101 124 062 000
5762 040707 106 101 124 063 000
5763 040710 106 101 124 063 101
5764 040711 106 101 124 065 000
5765 040712 106 101 124 066 000
5766 040713 106 101 124 067 000
5767 040714 106 101 124 070 000
5768 040715 106 101 124 064 000
5769 040716 106 104 124 061 000
5770 040717 106 104 124 062 000
5771 040720 106 104 124 063 000
5772 040721 106 104 124 064 000
5773 040722 106 104 124 065 000
5774 040723 106 104 124 066 000
5775 040724 106 104 124 067 000
5776 040725 106 104 124 070 000
5777 040726 106 104 124 071 000
5778 040727 106 104 124 061 060
5779 040730 106 104 122 121 000
5780 040731 106 104 124 061 061
5781 040732 106 104 124 061 062
5782 040733 106 104 124 061 063
5783 040734 106 104 124 061 064
5784 040735 106 120 124 060 000
5785 040736 106 120 124 061 000
5786 040737 106 120 124 062 000
5787 040740 106 120 124 063 000
5788 040741 106 115 124 061 000
5789 040742 115 123 124 060 000
5790 040743 115 123 124 061 000
5791 040744 106 115 124 063 000
5792 040745 116 122 124 060 000
5793 040746 001777 777777
5794 040747 116 122 124 061 060
5795 040750 116 122 124 061 000
5796 040751 000400 000000
5797 040752 116 122 124 062 000
5798 040753 116 122 124 063 000
5799 040754 116 122 124 064 000
5800 040755 116 122 124 065 000
5801 040756 116 114 124 060 000
5802 040757 116 114 124 061 000
5803 040760 116 114 124 062 000
5804 040761 116 114 124 063 000
5805 040762 116 114 124 064 000
5806 040763 000777 777777
5807 040764 116 122 124 066 000
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 1-4
STOR KLM 18-JAN-77 11:42 *STOR* RESERVED STORAGE, JAN 18,1977 SEQ 0164
5808 040765 116 122 124 067 000
5809 040766 116 122 124 071 071
5810 040767 400000 000001
5811 040770 115 120 124 062 000
5812 040771 115 120 124 063 000
5813 040772 115 120 124 064 000
5814 040773 104 111 126 124 060
5815 040774 104 111 126 124 061
5816 040775 104 111 126 124 063
5817 040776 104 111 126 124 064
5818 040777 104 123 124 061 000
5819 041000 104 123 124 062 000
5820 041001 104 123 124 063 000
5821 041002 104 123 124 064 000
5822 041003 104 123 124 065 000
5823 041004 104 111 126 124 065
5824 041005 104 123 124 067 000
5825 041006 123 103 124 060 000
5826 041007 123 103 124 063 000
5827 041010 123 103 124 064 000
5828 041011 123 103 124 062 000
5829 041012 102 114 124 124 061
5830 041013 102 114 124 124 062
5831 041014 102 114 124 124 063
5832 041015 060 040 040 040 040
5833 041016 040 040 000 000 000
5834 041017 060 040 040 040 000
5835 041020 060 040 040 040 040
5836 041021 040 040 040 040 040
5837 041022 040 040 040 000 000
5838 041023 015 012 111 116 111
5839 041024 124 111 101 114 015
5840 041025 012 103 050 101 103
5841 041026 051 075 000 000 000
5842 041027 040 040 103 050 101
5843 041030 103 053 061 051 075
5844 041031 000 000 000 000 000
5845 041032 015 012 103 050 105
5846 041033 051 075 000 000 000
5847 041034 015 012 106 111 116
5848 041035 101 114 015 012 000
5849 041036 103 050 101 103 051
5850 041037 075 000 000 000 000
5851 041040 040 040 103 050 103
5852 041041 050 101 103 122 053
5853 041042 061 051 051 075 000
5854 041043 040 040 103 050 103
5855 041044 050 101 103 122 051
5856 041045 075 000 000 000 000
5857 041046 040 040 103 050 103
5858 041047 050 101 103 114 051
5859 041050 051 075 000 000 000
5860 041051 040 040 103 050 103
5861 041052 050 105 051 051 075
5862 041053 000 000 000 000 000
DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER 0,2 MACRO %52(537) 08:59 26-JAN-77 PAGE 1-5
STOR KLM 18-JAN-77 11:42 *STOR* RESERVED STORAGE, JAN 18,1977 SEQ 0165
5863 041054 015 012 052 052 123
5864 041055 111 115 125 114 101
5865 041056 124 117 122 040 105
5866 041057 122 122 117 122 052
5867 041060 052 015 012 111 116
5868 041061 123 124 122 125 103
5869 041062 124 111 117 116 040
5870 041063 110 125 116 107 040
5871 041064 125 120 000 000 000
5872 041065 776000 030007
5873 041066 102 131 124 066 000
5874 041067 102 131 124 067 000
5875 041070 102 131 124 067 101
5876 041071 102 131 124 061 000
5877 041072 102 131 124 062 000
5878 041073 102 131 124 063 000
5879 041074 102 131 124 064 000
5880 041075 114 102 124 061 000
5881 041076 104 102 124 061 000
5882 041077 104 102 124 062 000
5883 041100 104 102 124 063 000
5884 041101 104 102 124 064 000
5885 041102 104 102 124 065 000
5886 LIST
5887 041105 000000 000000 ENDSLD: 0
5888
5889 IFDEF DEBUG,<
5890 041106 PATCH: BLOCK DEBUG ;PATCHING AREA
5891 >
5892
5893 ;PROGRAM VARIABLES
5894 041206 VAR
5895
5896 IFDEF PGMEND,<
5897 041266 000000 000000 END: 0
5898 030000 END BEGIN >
NO ERRORS DETECTED
PROGRAM BREAK IS 000000
ABSLUTE BREAK IS 041267
CPU TIME USED 00:27.024
12K CORE USED
AABCLR 361#
AADRBK 361# SEQ 0166
AAPRC1 361# 736 741 1445 1447
ABORT 132#
AC 73# 906 907 908 909 913 914 915 916 918 919 932 933 934
935 940 941 942 943 948 951 952 957 958 960 961 971 972
973 974 977 978 979 980 981 988 1011 1012 1014 1015 1018 1019
1078 1079 1080 1081 1082 1083 1084 1085 1111 1112 1113 1114 1140 1141
1142 1143 1172 1173 1174 1175 1176 1237 1238 1239 1240 1241 1242 1243
1244 1245 1246 1247 1248 1249 1250 1251 1252 1260 1266 1269 1271 1272
1273 1274 1286 1287 1293 1294 1300 1301 1307 1308 1343 1346 1347 1349
1357 1358 1359 1360 1361 1362 1363 1364 1367 1368 1369 1370 1371 1372
1373 1374 1377 1378 1379 1380 1381 1382 1383 1384 1387 1388 1389 1390
1391 1392 1393 1394 1397 1398 1399 1400 1401 1402 1403 1404 1406 1407
1408 1409 1410 1411 1412 1413 1416 1417 1418 1419 1420 1421 1422 1423
1426 1427 1428 1429 1430
ACA 1879# 1879 1895# 1895 1938# 1938 2089# 2089 2098# 2098 2143# 2143 2159# 2159
2238# 2238 4091# 4091
ACS 5395#
ACSP 76# 748 1063 1064 1065 1066 1078 1080 1082 1084 1157 1158 1159 1160
1320 1321 1322 1323
AD 1556# 1781 1782 1784 2319 2320 2321 2360 2431 2455 2470 2471 2472 2477
2478 2479 2480 2484 2577 2608 2616 2617 2621 2624 2625 2651 2652 2654
2665 2682 2684 2685 2738 2741 2748 2754 2778 2793 2807 2819 2820 2835
2844 2852 2854 2863 2864 2865 3759 3772 3773 3775 3831 3836 3837 3840
3855 3995 3997 3999 4012 4013 4061 4071 4243 4245 4258 4489 4491 4493
4504 4505 4511 4525 4532 4538 4544 4561 4565 4585 4586 4587 4615 4618
4620 4627 4645 4647 4649 4655 4668 4670 4678 4680 4681 4683 4690 4691
4693 4695 4708 4731 4741 4746 4748 4818 4819 4825 5538 5546 5547 5554
5555 5567
ADBREN 1717# 1717 4247# 4247 4540# 4540 4546# 4546 4659 4730# 4730 4764# 4764 4783
ADDSUB 2040 2576#
AF2 1719# 1719 1746# 1746 1783# 1783 1785# 1785
AFOCLR 361#
AFODIS 361#
AFOENB 361#
AFOV 361#
ALTMGO 447#
AMPCLR 361#
AMPV 361#
ANXCLR 361#
ANXM 361#
AOBJJ 2362 2364 2367#
AOBJX 2044 2045 2359#
AOVCLR 361#
AOVDIS 361#
AOVENB 361#
AOVFLO 361#
APAREN 361#
APARER 361#
APCIWD 2977# 2977 2980 2985
APCOWD 2974# 2974
APDCLR 361#
APDLOV 361#
APR 736 741 1039 1445 1447 1450 1460 SEQ 0167
APRCI 2906 2977#
APRCNO 2908 2985#
APRCNZ 2907 2980#
APRCO 2905 2974#
APRDI 2902 2963#
APRDO 2904 2967#
APRDWD 2971# 2971
APRIO 2879 2901#
APWRFL 361#
AR 1566# 1691 1693 1696 1707 1736 1747 1748 1762 1781 1784 1786 1787 1796
1798 1810 1870 1888 1903 1929 1930 1946 1964 1976 1983 1984 1994 2140
2151 2156 2167 2199 2228 2235 2246 2308 2317 2319 2321 2344 2347 2360
2362 2364 2429 2438 2439 2445 2455 2461 2469 2470 2477 2480 2481 2483
2493 2494 2503 2509 2510 2515 2528 2536 2537 2544 2545 2552 2557 2563
2564 2577 2579 2581 2600 2604 2608 2651 2656 2687 2692 2697 2702 2707
2712 2718 2723 2751 2754 2757 2758 2759 2760 2761 2763 2764 2765 2766
2767 2768 2769 2770 2771 2772 2777 2802 2806 2815 2817 2818 2820 2828
2836 2848 2863 2864 2865 2911 2937 2939 2940 2941 2963 2977 3022 3763
3764 3765 3767 3768 3769 3781 3783 3788 3790 3792 3802 3806 3814 3815
3816 3835 3836 3838 3839 3846 3848 3854 3855 3864 3870 3876 3889 3910
3918 3930 3931 3932 3960 3971 3985 3986 3995 4013 4048 4049 4061 4071
4082 4083 4099 4114 4120 4122 4131 4136 4138 4139 4140 4144 4145 4152
4158 4168 4171 4210 4211 4212 4233 4236 4243 4258 4278 4285 4286 4287
4288 4289 4291 4292 4297 4321 4322 4323 4324 4329 4339 4364 4375 4376
4396 4398 4405 4412 4416 4417 4423 4437 4446 4464 4473 4489 4504 4513
4525 4529 4530 4531 4532 4561 4562 4564 4574 4575 4585 4587 4615 4617
4618 4620 4628 4634 4645 4668 4680 4681 4689 4691 4693 4708 4731 4738
4745 4795 4801 4807 4808 4816 4817 4819 4835 4866 5419 5438 5446 5462
5465 5480 5492 5500 5501 5526 5527 5544 5545 5547 5553 5554 5561 5567
5575
AROV 361# 2327 2408 2587 3785 4358 4495 4512 4720
AROVU 361#
ASCRY0 2584 2591#
ASCRY1 2583 2589#
ASOVS 2582 2587#
AST 562# 4916
ASTF 2582# 2588 2590 2659
ASTF1 2601 2605 2658#
AT1 1746#
AT2 1754#
AT2A 1765 1773#
AT3 1745 1771 1781#
AT4 1796#
AT6 1794 1809#
ATRPOS 361#
ATSIN 563# 4975
AUSRIO 361#
B0TAB 2722 2757#
BEF0 2718#
BEGBYT 852 869 888#
BEGEND 443# 792
BEGFP 821 840 851#
BEGFX 776 819# SEQ 0168
BEGIN 50 52 346 347 374# 692 1045 5898
BEGIN1 390# 444
BELL 566# 1131
BET0 2722#
BET1 2748#
BFT1 2727 2730 2738#
BIS 361# 2430 2516 2529 5408 5436 5522
BISF 1722# 1722 1821 5406 5437
BLTS 2043 4795#
BLTT3 4826 4835#
BOL 1569# 2722 2725 2726 2728 2729 2739 2740 2749 2750 2752 2753
BOOLE 2028 2716#
BOTST 3332 3395#
BR 1565# 1747 1782 1786 1870 2199 2352 2383 2438 2503 2536 2557 2579 2581
2682 2687 2692 2697 2702 2707 2719 2721 2724 2738 2760 2761 2763 2764
2777 2778 2835 2836 2844 2929 2932 2933 2934 2949 2958 2974 2981 2986
3019 3026 3031 3739 3741 3749 3779 3798 3800 3802 3803 3831 3832 3835
3837 3840 3854 3863 3864 3873 3875 3890 3918 3940 3951 3952 3953 3960
3961 3996 3997 3998 3999 4068 4070 4082 4158 4180 4184 4207 4208 4209
4232 4235 4236 4245 4538 4544 4646 4647 4648 4649 4705 4707 4747 4749
4750 4752 4818 4870 5447 5538 5544 5553 5555
BYT 84# 1009 1339 1345
BYT1 5462#
BYT2 5479#
BYT3 5486#
BYT4 5477 5498#
BYT6 5409 5414#
BYT7 5428# 5512
BYT7A 5436#
BYTCR1 1820#
BYTE 892 1005# 1024
BYTE1 1008# 1023
BYTES 893 1426#
BYTF 745# 745 759 888
BYTMQ 5435 5452#
BYTSH 5537 5575#
BYTST 3340 3362#
CAC 1558# 2096 2140 2156 2235 5059 5220
CAC1 1559# 2106 5078
CAMSK0 2636 2687#
CAMSK1 2638 2692#
CAMSK2 2640 2697#
CAMSK3 2642 2702#
CAMSK4 2644 2707#
CAMSK5 2646 2712#
CCA 361#
CE 1557# 1693 1696 2121 2123 5092
CHAIN 152#
CHECK 1072# 1086 1092 1110 1145 1179
CHECK1 1084#
CHNOFF 361# 740
CHNON 361# 737 742
CLK 361# 1450 SEQ 0169
CLKAC0 1453# 1453 1461
CLKAC1 1454# 1454 1462
CLKCLR 361# 736 1447 1460
CLKDIS 361# 1445
CLKENB 361# 736 1447 1460
CLKU 361#
CLOCKF 429#
CNTL 77# 819 904 930 1009 1053 1077 1079 1081 1083 1085 1091 1093 1096
1097 1108 1109 1121 1123 1125 1144 1146 1162 1180 1339 1345
CNTLC 446#
CNTLPC 5278 5314 5348 5391#
CNTR 78# 831 833 844 846 862 873 875 877 879 881 893 902 910
921 928 936 954 967 975 983 1007 1013 1023 1051 1056 1138 1147
1165
COMMA 555# 4938
COMTST 3334 3387#
CONN 3326 3429#
CONNF 3320# 3320 3429 4933
CONSW 430# 5114
CPOPJ 450#
CPOPJ1 448#
CRLF 281 282 550# 1351 5256
CRLF2 285 286 552#
CROC10 5165 5220#
CROC11 5112 5224#
CROC4 5174 5177# 5221
CROCK1 5014 5147#
CROCK2 5075 5156#
CROCK3 5061 5065 5169#
CROCK4 5153 5171#
CROCK5 5172 5204#
CROCK6 5181#
CROCK7 5045 5206#
CROK11 5225 5238#
CRY0 361# 2331 2404 2591 2653
CRY0FX 950 960#
CRY1 361# 2329 2400 2589 2655
CRYFIX 949 957#
CSHFLG 609#
CSHMEM 610#
CYCL60 603# 725
DBT1 5538#
DBT2 5544#
DBT3 5553#
DBT4 5561#
DBT5 5568#
DCK 361# 4720
DDTEX 814# 5291
DDTEX5 70# 5379
DDTLNK 166# 388
DDTSRT 51 68 70 388# 716 814 5260
DEBUG 46# 5889 5890
DECVER 4# 11 27 409 SEQ 0170
DF22F 514#
DIAGMN 377#
DING 138# 1129
DIVAC 906 907 908 909 918 932 933 934 935 948 971 972 973 974
1140 1141 1142 1143 1169 1170 1171 1172 1437#
DIVEN 4702 4715#
DIVLOC 4666 4730#
DIVT0 3984 4561#
DIVT0A 4562 4566#
DIVT1 4574#
DIVT2A 4585# 4609
DIVT2B 4582 4607#
DIVT3 4584 4587# 4608
DIVT4 4573 4595#
DIVT5 4704#
DIVT51 4705 4707 4709#
DOINS 905 931 969 976 1029# 1034 1090
DOIT 1022 1055 1089# 1094 1122 1126 1163
DOIT1 1096# 1212
DOIT2 1108# 1211
DOIT3 1120 1124 1128# 1130 1133
DOIT4 1098 1209#
DOLLAR 569#
DPBET0 5524 5536#
DSF7 1584# 1723 3987 4067 4069 4563 4572 4619 4682 4704 4706
DSKUPD 414
DST1 4043 4603 4641 4645#
DST2 4659#
DST3 4668#
DST4 4677#
DST5 4689#
DST7 4656 4718#
DVLOCA 4734 4738#
END 5897#
ENDFIX 683#
ENDSLD 5887#
ENTDDT 91# 715
ER 86# 1091 1097 1121 1162
ERMORE 463#
ERR 1579# 2302 5312 5326 5329 5334 5341 5362 5366 5374
ERRPC 434#
ERRTLS 435# 688 1217 1479
ERSTOP 141# 1116
EUUOF 1577# 1726 1738 2345
EXCASB 41# 412
EXCH3 2042 2352#
EXCTF 1576# 1724 1738 2345 2417
EXIOT 361#
EXSYNC 1582# 2374
FAC2 1590# 1925 1927 3508 3526 3527 3531 3532
FACINH 1589# 1823 1880 3440 3441 3442 3443 3444 3445 3446 3447 3448 3449 3450
3451 3452 3453 3454 3455 3456 3457 3458 3459 3460 3461 3462 3463 3464
3465 3466 3467 3468 3469 3470 3471 3486 3487 3488 3512 3513 3514 3515 SEQ 0171
3516 3517 3518 3519 3535 3536 3539 3561 3562 3563 3564 3571 3572 3573
3574 3581 3582 3583 3584 3586 3587 3592 3593 3610 3611 3616 3617 3622
3624 3627 3628 3629 3630 3631 3632 3633 3634 3635 3636 3637 3638 3642
3644 3647 3648 3649 3650 3651 3652 3653 3654 3655 3656 3657 3658 5006
FAIL1 1137# 1137 1164 1168
FAST 103# 762 775
FASTF 746# 746 761 822 853
FAT1 3870#
FAT2 3888#
FAT2A 3892 3896#
FAT2B 3891 3899#
FAT2D 3894 3897 3902#
FAT3 3908#
FAT3A 3919#
FAT4 3928 3971#
FAT45 3917 3925#
FAT5 3930#
FAT6 3940# 3978
FAT7 3950#
FAT8 3960#
FAT8A 3961 3963#
FCCLT 1591# 1925 1974 3533 3540 4842
FCCRT 1592# 1925 3538
FCE 1587# 1823 1825 1849 3485 3487 3488 3495 3496 3497 3498 3499 3500 3501
3502 3503 3504 3505 3506 3508 3509 3510 3511 3512 3514 3516 3518 3520
3521 3522 3523 3524 3525 3526 3527 3537 3541 3543 3551 3552 3553 3554
3561 3562 3563 3564 3588 3590 3592 3594 3598 3600 3602 3604 3608 3610
3612 3614 3621 3623 3627 3629 3631 3633 3635 3637 3641 3643 3647 3649
3651 3653 3655 3657 3665 3666 3667 3668 3675 3676 3677 3678 3685 3686
3687 3688 3695 3696 3697 3698
FCEPSE 1588# 1849 2120 2128 2175 2195 2205 2207 2211 2272 2278 2282 3485 3486
3487 3488 3513 3515 3517 3519 3533 3542 3544 3571 3572 3573 3574 3581
3582 3583 3584 3589 3591 3593 3595 3599 3601 3603 3605 3609 3611 3613
3615 3622 3624 3628 3630 3632 3634 3636 3638 3642 3644 3648 3650 3652
3654 3656 3658
FDF3 1720# 1720 4022# 4022 4117
FDRQ 4102 4109#
FDT1 3995# 4223
FDT11 4108 4114#
FDT11A 4122# 4133
FDT11B 4118 4130#
FDT12 4128 4135#
FDT12A 4136 4138 4140#
FDT12B 4140 4146#
FDT13 4152#
FDT14 4158#
FDT2 4013#
FDT3 4020#
FDT4 4012 4028#
FDT5 4034#
FDT5A 4043#
FDT6 4046#
FDT7 4061# SEQ 0172
FDT7FX 4057# 4057 4059 4455
FDT8 4067#
FDT8A 4068 4070 4072#
FDT9 4082#
FE 1562# 4014 4020 4051 4213 4259 4864
FIXED 833 846 1367#
FIXEDI 831 844 1357#
FIXF 743# 743 754 820
FLAGS 75# 970 986 987 1033 1073 1074 1075 1076 1077 1178 1335
FLTF 744# 744 757 851
FLTST 3338 3352#
FMEN 1578# 1764 1852 1905 1948 2177 2188 4101
FMT1 4225#
FMT3 4258#
FOV 361# 2396 4358 4719
FOVU 361#
FP 85#
FPAS 873 1377#
FPF 859#
FPL 881 1416#
FPMD 862 877 1397#
FPS 854 868# 882
FPSHLT 4341 4470#
FPSHRT 3939 4021 4299 4464# 4549
FPSM 875 1387#
FPT0 3993 4168# 4602
FPT1 4179#
FPT2 4196#
FPT3 4207#
FRDLNK 164#
FSELNK 163#
FSMDI1 903# 921
FSMDI2 911 917 920#
FSTDIV 4677 4740 4745#
FSTER 920 953 1000 1136# 1166 1182
FSTER1 1149# 1181
FSTER2 1147 1168#
FSTFLG 970# 970 987
FSTFP 861 965# 984
FSTFP1 968# 983
FSTFP2 983# 991 994 997 1001
FSTFP3 982 986#
FSTFP4 1000#
FSTMD 832 926# 955
FSTMD1 929# 954
FSTMD2 937 946 953# 958 961
FSTMDI 830 900# 922
FT0X 1818 1822 1834#
FT0XA 1839 1843# 2001
FT0Y 1826 1849#
FT1 1855#
FT1A 1850 1861 1868#
FT2 1888# SEQ 0173
FT2X 1906 1913#
FT2Y 1925#
FT4 1929#
FT4A 1956 1964#
FT4X 1949 1957#
FT4Y 1948# 1992
FT5 1950#
FT6 1928 1974# 4843
FT7 1975 1983#
FT8 1842 1994#
FT9 1881 1926 1970 2004#
FTX 1853 1862#
FWT 2033 2307#
FWTET0 2309# 2317 2325 2332 2348 2353 2365 2368 2413 2418 2531 2585 2592 2657
2731 2809
FWTN 2034 2316#
FXF 828# 834
FXS 823 839# 847
FXU 361# 4362
FXUHLD 1721# 1721 4003 4311 4361
GG 910 936 975 1165 1310#
GOING 1038# 1043 1117
GROUP 2018#
GROUPD 2022 2024#
H 3229# 3403
HAC 4960 4969 4979#
HAC2 5006#
HAFTR 2788 2808 2811#
HALF 2029 2776#
HDCNTL 4903 4979 5253 5264# 5264
HDEF 4940# 4974
HEADER 4903# 5255 5288 5304 5333 5370
HEADP1 4910#
HEADP2 4917#
HEADP3 4920#
HEF0 2780 2782 2791#
HEF1 2802# 2805
HEF2 2799 2804#
HEF3 2801 2806#
HEF4 2795 2802 2807#
HEIP 5022 5024 5047# 5149 5151 5175 5218
HEND 4980 5116 5119#
HERTZ 727# 727 1497 1516
HET0 2792 2797 2803 2808#
HIDX 4955#
HNGCNT 5241# 5241 5246
HNGERR 700 5258#
HPAC 4924#
HPCE 5020# 5154 5205
HPCE1 5027 5037#
HPIOC 4934 4971#
HRAC2 5071# 5169
HRESLT 5054 5059# SEQ 0174
HRPCE 5080#
HRPCE1 5080 5083 5085 5088# 5166 5167
HRPCE2 5091 5094 5104#
HTIME 4989 5087 5113# 5163 5222 5239
HTST 3330 3403#
HUNGCK 1730 1740 1750 1767 1774 1789 1803 1812 1856 1863 1872 1890 1908 1914
1932 1951 1958 1966 1978 1987 1996 2007 2074 2170 2182 2201 2216 2222
2230 2249 2259 2268 2292 2310 2336 2386 2434 2441 2447 2457 2463 2486
2496 2505 2519 2540 2547 2559 2566 2733 2743 2784 2830 2839 3744 3754
3810 3818 3824 3842 3850 3857 3866 3883 3903 3913 3920 3934 3945 3956
3964 3974 3989 4008 4016 4024 4030 4038 4053 4063 4073 4086 4104 4110
4124 4147 4154 4160 4174 4191 4202 4218 4227 4238 4249 4262 4274 4301
4317 4343 4352 4367 4378 4391 4400 4407 4419 4425 4442 4449 4457 4483
4498 4507 4515 4557 4567 4577 4589 4597 4622 4630 4637 4651 4661 4673
4685 4697 4710 4722 4757 4770 4776 4787 4797 4803 4811 4821 4829 4838
5246# 5415 5424 5430 5442 5458 5472 5482 5488 5505 5518 5529 5540 5549
5557 5563 5569
HYPEN 560#
IF130 3485#
IF240 3529#
IF260 3537#
IF300 3545#
IF400 3586#
IF420 3594#
IF440 3602#
IF460 3610#
IFTAB 1847 1848 2082 2083 3438# 4985 4986 5003 5004
IMLTST 3378 3383#
INCBY1 5476# 5497
INCBYT 5412 5457#
INHBYT 98# 758 767
INHCLK 94# 720 1469
INHCSH 149#
INHFP 97# 756 767
INHFXD 99# 753 767
INHMT 95# 5115 5301 5372
INHPAG 146#
INHSCT 101# 4852
INPC 1188 1202 5266 5388#
INSNC 2060 2061 2062 2335#
INSTR 5284 5320 5354 5390#
INT 5261# 5267 5273 5295 5310 5339 5382
INXM 361#
IOCLR 361#
IOTT1E 1745#
IR 1560# 1718 1736 1744 1755 1793 1800 1801 1809 1816 1817 1820 1824 1834
1844 1876 2018 2079 2086 2307 2316 2344 2361 2363 2373 2375 2377 2379
2395 2399 2403 2407 2490 2578 2580 2609 2612 2613 2618 2626 2628 2632
2649 2716 2776 2779 2781 2791 2794 2796 2798 2800 2804 2812 2814 2816
2825 2845 2868 2870 3430 4035 4046 4182 4188 4197 4199 4214 4222 4382
4383 4385 4386 4432 4502 4581 4601 4613 4692 4694 4701 4718 4982 5000
5404 5410 5411 5450 5509 5523
IR100 2025 2060# SEQ 0175
IR170 3508#
IR200 3512#
IR220 3520#
IR250 2038 2042#
IR260 2039 2051#
IR500 3619#
IR600 3659#
IRA 1836# 1836 1868# 1868 2124# 2124 2597 2607 2634 2648 2658 3321# 3321 3324
3736 3759 3982 4077 4279 4295# 4295 4325 4337# 4337 4526 4732 5399
IT 79# 901 912 927 939 966 1006 1031 1050 1067 1324
IT0 1717# 5243
IT0IN 5241# 5286 5297 5306 5323 5335 5358 5375 5385
IT1 1736# 1808 5451
ITERAT 65# 407
ITRCH1 467# 728 1044 1463
ITRCLK 722 1450#
ITRCNT 407#
JA 748 1688 1704 1759 1900 1943 2092 2103 2117 2148 2164 2243 4096 4928
5032 5099 5188 5210 5230 5396#
JFCLS 2047 2394#
JFFO1 3738 3788#
JOB41 361#
JOBAPR 361#
JOBCNI 361#
JOBDDT 361#
JOBFF 361#
JOBOPC 361#
JOBREL 361#
JOBREN 361#
JOBSA 361#
JOBSYM 361#
JOBTPC 361#
JOBUSY 361#
JOBUUO 361#
JOBVER 361#
JRAS 2058 2557#
JRSET0 2380 2385#
JRSTS 2046 2370#
JSAS 2057 2536#
JSPS 2056 2528#
JSRS 2055 2515#
KA10 43# 361
KAHZ50 154#
KAIFLG 424#
KI10 361
KL10 361
KLFLG 425#
KLOLD 44# 361
KLTYP 641#
KM 2621# 2668 2669 2670 2671 2674 2675 2676 2677
KM1 2628# 2663
KM2 2627 2661#
KM3 2619 2665# SEQ 0176
KM4 2666 2673#
LBT1 5526#
LDLNK 165# 377 379
LFP 564# 4961
LINCNT 696# 696 4913 4994 4995 5041 5051 5052 5108
LOOPER 140# 1118
LOP 80# 828 829 834 841 842 847 859 860 863 870 871 882 890
891 894
LUUO 361#
LUUO1 494 495
LUUO10 494 499
LUUO11 494 499
LUUO12 494 500
LUUO13 494 500
LUUO14 494 501
LUUO15 35# 494 501
LUUO16 494 502
LUUO17 494 502
LUUO2 494 496
LUUO20 37# 494 503
LUUO21 494 503
LUUO22 494 504
LUUO23 494 504
LUUO24 494 505
LUUO25 494 505
LUUO26 494 506
LUUO27 494 506
LUUO3 494 496
LUUO30 494 507
LUUO31 494 507
LUUO32 494 508
LUUO33 494 508
LUUO4 494 497
LUUO5 494 497
LUUO6 494 498
LUUO7 494 498
LUUOI 361#
LUUOST 3344 3349#
MA 1563# 1684 1687 1697 1700 1703 1723 1724 1725 1726 1727 1731 1735 1737
1738 1741 1751 1764 1768 1775 1790 1796 1804 1810 1813 1852 1857 1864
1873 1891 1905 1909 1915 1933 1948 1952 1959 1967 1979 1983 1988 1997
2008 2075 2113 2141 2157 2171 2177 2183 2188 2202 2217 2223 2231 2236
2250 2260 2269 2293 2302 2311 2337 2345 2346 2367 2371 2372 2374 2376
2378 2387 2412 2417 2432 2435 2442 2445 2448 2458 2461 2464 2487 2493
2497 2500 2506 2509 2517 2520 2530 2538 2541 2548 2560 2563 2567 2570
2681 2734 2744 2785 2831 2840 2919 2967 2998 3745 3755 3793 3811 3819
3825 3843 3851 3858 3867 3884 3904 3914 3921 3935 3946 3957 3965 3975
3987 3990 4009 4017 4025 4031 4039 4050 4054 4064 4067 4069 4074 4087
4101 4105 4111 4125 4148 4155 4161 4175 4192 4203 4219 4228 4234 4239
4250 4263 4275 4302 4306 4318 4344 4353 4368 4379 4392 4401 4408 4420
4426 4431 4439 4443 4450 4458 4484 4494 4499 4508 4516 4558 4563 4568
4572 4578 4590 4598 4619 4623 4631 4638 4652 4662 4674 4682 4686 4698
4704 4706 4711 4723 4758 4771 4777 4788 4798 4801 4804 4812 4822 4830 SEQ 0177
4839 4860 4924 4925 4927 4928 4929 4930 4931 4932 4940 4941 4942 4943
4946 4947 4948 4949 4955 4956 4957 4958 5117 5263 5274 5275 5289 5298
5302 5311 5312 5321 5325 5326 5327 5329 5332 5334 5340 5341 5355 5361
5362 5363 5366 5369 5373 5374 5383 5384 5416 5425 5431 5443 5459 5473
5483 5489 5506 5519 5530 5541 5550 5558 5564 5570
MAPNEW 515#
MARGIN 437#
MASK 5283 5319 5353 5389#
MCNVER 5# 11 27 409
MCRQ1 1684# 1711
MCRY0 2324 2331#
MCRY1 2323 2329#
MCWR1 1696# 1712
MD 843 845 872 874 876 878 880 1049# 1057
MD1 1052# 1056
MEMLOW 517#
MEMMAP 415
MEMSIZ 518#
MEMTOT 516#
MINUS 559#
MISCFP 879 1406#
MISDIS 2026 2033#
MODDVC 148#
MODDVL 346 346# 410
MODDVU 347 347# 411
MODLNK 167# 374
MONCTL 427#
MONFLG 426#
MONTEN 428#
MOV 2322 2327#
MOVTST 3336 3366#
MPF1 4255# 4255 4481# 4481 4496# 4496
MPF2 1581# 1723 4234 4494
MPT2 4256 4489#
MPT3 4504#
MPVU 361#
MQ 1567# 1718 1929 1964 1984 2228 2431 2439 2483 2484 2494 2510 2564 4122
4152 4235 4244 4246 4260 4281 4332 4396 4423 4434 4436 4447 4465 4466
4467 4470 4471 4472 4474 4490 4492 4513 4524 4564 4565 4575 4583 4595
4607 4627 4635 4669 4671 4679 4689 4690 4735 4736 4737 4739 4808 4817
4835 4836 4868 5452 5453 5527 5545 5546 5561 5576
MS 1574# 1731 1775 1804 1857 1864 1909 1933 1952 1959 1988 1997 2171 2217
2250 2260 4812 5117 5274 5298 5302 5312 5332 5341 5369 5373
MST0 4232# 4487
MST1 4243#
MT 1573# 1731 1775 1804 1857 1864 1909 1933 1952 1959 1988 1997 2171 2217
2250 2260 4812 5117 5274 5298 5302 5312 5341 5369 5373
MTF 2322# 2328 2330
MULAC 913 914 915 916 940 941 942 943 977 978 979 980 1173 1174
1175 1176 1439#
MULAS 4534# 4550
MULAS1 4536 4543#
MULSH 4254 4524# SEQ 0178
MULSHA 4528 4549#
MUUOST 3342 3343 3346#
NLT0 4389#
NLT1 4395#
NLT2 4405#
NLT3 4412#
NLT3A 4412 4418#
NLT4 4423#
NOPNT 136#
NOSCT 4767# 4767 4784# 4784 4851# 4851 4853
NRF1 1580# 1723 4050 4306 4431 4439
NRT0 3828 3968 4058 4266 4272# 4453
NRT0A 4278#
NRT1 4290 4293 4306#
NRT10 4278 4285#
NRT10A 4286 4288 4294#
NRT2 4331 4335#
NRT3 4322 4324 4327 4333 4349#
NRT4 4357# 4433 4435 4437
NRT5 4372#
NRT6 4439#
NRT7 4446#
NRT98 4387 4461#
NRT99 4283 4384 4429 4456#
NRTNOR 4321# 4347
NXMU 361#
OFFSET 67# 2347 2920 2968 2999 5282 5318 5343 5352
OP257 2049 2422#
OP700 2031 2868#
OPNT3 4885 4889#
OPNT6 4876 4880#
OPNTOC 4894 4898#
OPRSEL 150#
OPTIME 529#
OUT 3347 3350 3359# 3364 3370 3381 3385 3393 3401 3411 3423 3434
P 193 194 195 196 361# 449 2625 3763 3764 3765 3767 3768 3769 4715
4766 4780 4919 4924 4996 5010 5018 5025 5042 5069 5109 5173 5200 5303
P15 5044# 5044 5111# 5111 5126# 5204# 5204 5238# 5238
PAG 361#
PALERS 142# 1210
PARCLR 361#
PARDIS 361#
PAREA1 58# 405
PAREA2 59# 406
PAREA3 60# 403
PAREA4 61# 404
PAREA5 62# 416
PAREA6 63# 417
PAREA7 416#
PAREA8 417#
PARENB 361# 737 742
PARU 361#
PASCNT 431# 689 1223 1474 SEQ 0179
PATCH 5890#
PC 1191 1564# 1725 2005 2327 2329 2331 2367 2370 2371 2381 2384 2396 2400
2404 2408 2412 2429 2430 2432 2500 2515 2516 2517 2523 2528 2529 2530
2537 2538 2545 2551 2570 2587 2589 2591 2653 2655 2680 2681 2689 2694
2699 2704 2709 2713 2859 2950 2959 2982 2987 3027 3032 3785 3793 4358
4362 4495 4512 4719 4720 4827 4858 5242 5266 5277 5282 5296 5305 5313
5318 5322 5330 5343 5347 5352 5357 5367 5408 5436 5522
PCINH 1598# 2004 3440 3441 3442 3443 3444 3445 3446 3447 3448 3449 3450 3451
3452 3453 3454 3455 3456 3457 3458 3459 3460 3461 3462 3463 3464 3465
3466 3467 3468 3469 3470 3471 3487 3488 3533 3536 4842
PCR 1228# 4872 4909 4910 5128 5129 5132
PCR1 1230# 4915
PCSAV 1073# 1073 1192
PCSAVE 5242# 5242 5254
PCSK 2629 2631# 2662
PCSK1 2648# 2688 2690 2693 2695 2698 2700 2703 2705 2708 2710 2714
PDISF 526#
PDLOVF 5055 5579#
PDLOVU 361#
PDLOVW 2428# 2428 2454 2482 5053 5057 5262
PERIOD 556#
PFCE 5007# 5007 5026# 5026 5093# 5093 5113# 5113
PFSTRT 383#
PGMEND 45# 5896
PGMNAM 408 793# 1219
PI 737 740 742 1040 1041 1096
PICHN1 361# 742
PICHN2 361#
PICHN3 361#
PICHN4 361#
PICHN5 361#
PICHN6 361#
PICHN7 361#
PICHNA 361# 737
PICI 2897 3022#
PICIWD 3022# 3022 3025 3030
PICLR 361# 740
PICNO 2899 3030#
PICNZ 2898 3025#
PICO 2896 3019#
PICOWD 3019# 3019
PIDI 2893 2991#
PIDO 2895 2993#
PIDO1 3003# 3009
PIIO 2876 2892#
PINST 5008# 5008 5028 5095
PIOFF 361# 740 1041
PION 361# 737 742
PLIST 595# 595
PLISTE 595 597# 681
PLISTS 596#
PLUS 561#
PNTCTL 5276# 5276 5285 5287 SEQ 0180
PNTENB 525#
PNTEXT 404#
PNTFLG 524# 1507
PNTIND 4945 4975#
PNTINH 527#
PNTINS 3320# 4921
PNTLPT 137#
PNTNAM 403#
PNTSIM 695# 695 4911
PNTSPC 528# 1331 4918 4950 4951 4953
PNTTOT 699 791 809 1465# 1489
PONTR 5089# 5089 5226# 5226 5446# 5446
POPJS 2053 2054 2477#
POPJS1 2493#
POPS 2491 2503#
PRINTA 1734 1743 1753 1770 1778 1792 1807 1815 1860 1867 1875 1893 1912 1917
1936 1955 1962 1969 1981 1991 2000 2010 2077 2174 2185 2204 2220 2225
2233 2253 2263 2271 2295 2313 2339 2389 2437 2444 2450 2460 2466 2489
2499 2508 2522 2543 2550 2562 2569 2736 2746 2787 2833 2842 3747 3757
3813 3821 3827 3845 3853 3860 3869 3886 3906 3916 3923 3937 3948 3959
3967 3977 3992 4011 4019 4027 4033 4041 4056 4066 4076 4089 4107 4113
4127 4150 4157 4163 4177 4194 4205 4221 4230 4241 4252 4265 4277 4304
4320 4346 4355 4370 4381 4394 4403 4410 4422 4428 4445 4452 4460 4486
4501 4510 4518 4560 4570 4580 4592 4600 4625 4633 4640 4654 4664 4676
4688 4700 4713 4725 4760 4773 4779 4790 4800 4806 4815 4824 4832 4841
4849# 5418 5427 5433 5445 5461 5475 5485 5491 5508 5521 5532 5543 5552
5560 5566 5572
PUSET0 2359 2426 2452 2469#
PUSET1 2462# 2789
PUSET2 2446# 2501 2511 2524 2553 2571 2755 2857 2860
PUSHJS 2051 2426#
PUSHS 2052 2452#
PVPAGI 622#
PWFCLR 361#
QUEST 567#
RA 74# 717 919 951 952 981 990 993 996 999 1010 1014 1016 1017
1019 1063 1064 1065 1066 1111 1112 1113 1114 1157 1158 1159 1160 1169
1170 1171 1237 1240 1241 1244 1245 1248 1249 1252 1261 1267 1268 1274
1282 1283 1284 1285 1286 1287 1289 1290 1291 1292 1293 1294 1296 1297
1298 1299 1300 1301 1303 1304 1305 1306 1307 1308 1320 1321 1322 1323
1456
RADIX 570#
RADLSC 572#
RADLSP 571#
RANBAS 92# 706
RANDBS 405# 704 713 717 783 788 1484
RANDOM 1008 1052 1236# 1253 1259 1280
RANNOV 903 929 1258# 1263 1268 1270 1275
RANORM 968 1279# 1309
REENTR 385#
RELIAB 144# 764
RELOC 5265 5268#
RENTR1 49 809# SEQ 0181
REPT 361#
REPT1 361#
REPTU 483#
REQSET 361#
RESRT1 48 460#
RESRT2 461#
RESULT 1105 1155 1330# 1353
RETURN 392#
RSLTS1 1337#
RSTART 133# 790 1488
RTIME 750# 750 765 829 842 860 871 891
RTP 565# 4967
RUN 1583# 2376 5275 5289 5311 5327 5340 5363 5384
RUNFLG 432#
RUNTIM 1225 1442# 1444 1448 1470
SAC2 1593# 2175 2193 2205 2226 2276 3495 3499 3503 3508 3522 3523 3524 3525
3526 3527 3531 3532
SACINH 1595# 1825 2087 2132 2178 2190 2964 3440 3441 3442 3443 3444 3445 3446
3447 3448 3449 3450 3451 3452 3453 3454 3455 3456 3457 3458 3459 3460
3461 3462 3463 3464 3465 3466 3467 3468 3469 3470 3471 3488 3496 3498
3500 3502 3504 3506 3509 3511 3513 3515 3517 3519 3521 3523 3525 3527
3535 3536 3539 3542 3544 3546 3547 3548 3549 3551 3552 3553 3554 3556
3557 3558 3559 3587 3589 3591 3593 3595 3597 3599 3601 3603 3605 3607
3609 3611 3613 3615 3617 3622 3624 3628 3630 3632 3634 3636 3638 3642
3644 3648 3650 3652 3654 3656 3658 3660 3661 3662 3663 3665 3666 3667
3668
SACZ 1597# 2084 3513 3515 3517 3519 3561 3562 3563 3564 3571 3572 3573 3574
3581 3582 3583 3584 3622 3624 3628 3630 3632 3634 3636 3638 3642 3644
3648 3650 3652 3654 3656 3658
SADR1 47# 381
SADR10 55# 397
SADR11 56# 398
SADR2 48# 383
SADR3 49# 385
SADR5 50# 446
SADR6 51# 447
SADR7 52# 53 54 55 56 394
SADR8 53# 395
SADR9 54# 396
SARBR 1596# 2175 2193 2198 2205 2207 2209 2265 2278 3485 3533 3537 3538 3540
SAVAC 1185 1186 1193 1199 1200 1435#
SAVAC1 1509# 1509 1530
SAVCNT 1108# 1108 1125
SBINIT 206 391#
SBLT1 4816#
SBYTE 2063 5399#
SC 1561# 1717 3739 3740 3742 3751 3752 3798 3799 3801 3808 3822 3834 3872
3878 3880 3888 3893 3896 3900 3908 3911 3925 3926 3927 3942 3950 3954
3962 3972 4000 4002 4005 4028 4034 4036 4051 4084 4116 4119 4121 4130
4132 4170 4172 4179 4196 4215 4225 4259 4272 4294 4308 4310 4313 4315
4335 4336 4349 4350 4357 4359 4363 4389 4395 4397 4413 4440 4480 4555
4616 4761 4763 4862 5428 5440 5464 5479 5486 5495 5502 5515 5516
SCAD 1555# 3751 3752 3805 3807 3808 3822 3832 3833 3834 3847 3848 3873 3874 SEQ 0182
3878 3880 3881 3888 3892 3893 3896 3899 3900 3911 3942 3943 3950 3954
3962 4020 4119 4121 4130 4132 4135 4137 4141 4168 4169 4170 4172 4179
4187 4189 4196 4198 4200 4213 4215 4216 4272 4294 4315 4335 4336 4349
4350 4363 4365 4372 4389 4395 4440 5419 5420 5421 5422 5428 5438 5439
5440 5462 5463 5464 5468 5476 5495 5496 5498 5503
SCE 1594# 1825 2120 2175 2195 2205 2207 2255 2278 2284 2964 3440 3441 3442
3443 3444 3445 3446 3447 3448 3449 3450 3451 3452 3453 3454 3455 3456
3457 3458 3459 3460 3461 3462 3463 3464 3465 3466 3467 3468 3469 3470
3471 3488 3496 3498 3500 3502 3504 3506 3509 3511 3513 3515 3517 3519
3521 3523 3525 3527 3539 3587 3597 3607 3617
SCOPE 484#
SCSCTX 4761# 4768 4774
SCSUB 3760 3938 4253 4665 4756# 5434 5525 5536
SCT2 4765 4783#
SCT3 4766# 4785 4791
SCT3A 4769#
SCT4 4762 4775#
SDFN 3831# 5403
SDIV 2036 4613#
SECFLG 945# 945 986 1178
SECOND 5407 5515#
SEXIT1 69# 5344
SFAD 2064 3865# 5401
SFDV 2067 3982#
SFDV1 3985#
SFMP 2066 3988#
SFSB 2065 3863#
SFSC 3798# 5405
SFSRT1 47 688# 1490
SFSTRT 381#
SHORT 4356 4431#
SHROT 2037 3736#
SHROT1 3750 3759#
SHROT2 3761 3771#
SHROT3 3774 3779#
SHRT2 3775# 3780 3786
SHTAB 3763# 3775
SIDIV1 4627#
SIDIV2 4634#
SIMCON 5381#
SIMER 2277 2280 2286 2302#
SIMEXT 1191# 1205
SIMIF 5273# 5290
SIMIF1 5279 5281 5286#
SIMIT 1021 1054 1061# 1068 1139 1177
SIMMS 5310# 5331 5336
SIMMS1 5315 5317 5322#
SIMMT 35 1199#
SIMNST 37 1185#
SIMPNT 1106 1161 1318# 1325
SIMPR1 5349 5351 5357#
SIMPRG 5339# 5368 5381
SJCET0 2650 2657# SEQ 0183
SJCTAB 2615 2682#
SKIPJC 2027 2595#
SLASH 568#
SLOW 102# 760 775
SLOWF 747# 747 763 839 868
SMMT1 1203 5295#
SMNST1 1189 5382#
SMUL 2035 4480#
SPACE 557#
SPCS13 5157 5158 5161 5167#
SRTDDT 387#
SS9 2071# 4044 4604 4642 4833 5510
ST0 2073# 3762 3791 3794 3829 3861 3969 4060 4079 4164 4267 4503 4519 4605
4643 5533 5573
ST1 2078# 2314 2340 2390 2422 2451 2467 2881 2883 2885 2892 2894 2901 2903
2917 2927 2935 2942 2951 2960 2972 2975 2978 2983 2988 2991 3017 3020
3023 3028 3033
ST1A 2133 2175#
ST1B 2176 2180 2188#
ST1C 2189 2193#
ST1D 2135 2137 2155#
ST1E 2153 2169#
ST1F 2194 2282#
ST2 2191 2198#
ST2B 2255#
ST2C 2256 2265#
ST2D 2266 2276#
ST3 2210 2267#
ST5 2214# 2274 2283
ST6 2212 2257# 2273 2285
ST6A 2221# 2264
ST7 2208 2228# 2279
ST8 2234#
ST9 2186 2206 2227 2254 2289 2291#
ST99 2131 2288#
ST9E 2296# 2303
STAB 2647 2680#
START 375 694#
START1 394#
START2 395#
START3 396#
START4 397#
START5 398#
STARTA 390 707 714#
STARTC 721 740#
STARTD 719 738 743#
SU 1575# 1697 2141 2157 2236 5274 5275 5298 5311 5321 5325 5340 5355 5361
5384
SUBLNK 168# 391
SWITCH 2963 5393#
SWTEXR 406#
SYSEXR 379#
T 3263# 3413 SEQ 0184
TAB 558# 4856 4922
TBLAD1 3152# 3358 3384 3400
TBLBOL 3197# 3396
TBLBYT 3061# 3363
TBLCM 3182# 3392
TBLCOM 3166# 3388
TBLCON 3304# 3433
TBLFLT 3045# 3354
TBLH 3231# 3406
TBLLUO 3043# 3349
TBLMO 3104# 3369
TBLMOV 3097# 3380 3410
TBLMUO 3041# 3346
TBLMV 3077# 3374
TBLTA 3265# 3418
TBLTA1 3281# 3422
TBLTB 3288# 3426
TEF1 2834#
TEF2 2844#
TEMP 1261# 1261 1262 1264 2370# 2370 2372# 2372
TEMP2 4524# 4524 4534# 4534
TEST 2030 2825#
TESTPC 433#
TET1 2838#
TET2 2850 2857#
TICKS 436# 690 1452 1495 1513
TIMAC1 1518# 1518 1521 1523 1526
TIMFRC 1502# 1502 1514 1529
TIMMES 5130 5135#
TIMPNT 5118 5128#
TOTALS 134# 790
TSKIP 2852 2854 2856 2859#
TSTEND 783# 889 896
TSTIMA 1446 1503 1506# 1508 1531
TSTIMB 1499 1533#
TSTIMC 1502# 1535
TSTIME 1455 1494# 1501 1504 1534
TSTIMR 691# 691 1496 1515
TTAB0 2837 2862#
TTIO 2873 2883#
TTLPNT 1099 1149 1216# 1226
TTNBRF 616#
TTODD 3416 3425#
TTST 3328 3413#
TTSTA 3419# 3427
TTYCI 2888 2937#
TTYCNO 2890 2953#
TTYCNZ 2889 2944#
TTYCO 2887 2929#
TTYDI 2884 2911#
TTYDO 2886 2919#
TTYFIL 532#
TTYSPD 533# SEQ 0185
TTYST 2913# 2913 2916 2923 2926 2931 2934 2937 2941 2944 2948 2953 2957
TXTINH 145#
UPRPC 5280 5316 5350 5392#
USER 423# 701 718 1095 1443 1466
USERAC 1568# 1685 1686 1701 1702 1757 1758 1898 1899 1941 1942 2090 2091 2101
2102 2114 2115 2146 2147 2162 2163 2241 2242 4094 4095 4925 4926 5029
5030 5096 5097 5185 5186 5207 5208 5227 5228 5263 5264 5265
USERF 361# 1074
USRASB 42# 413
USRCRF 542#
USRLFF 541#
UUODIS 495#
UUOEXT 451# 1195
UUORTN 452#
UUOSIM 2024 2344#
UUOSKP 449#
VMEM 698# 698 5183
VMHALT 68# 69 5328 5364
XCTS 2048 2417#
XPNT3 4863 4865 4884#
XPNT6 4859 4861 4875#
XPNTOC 4867 4869 4871 4893#
XSDIV 4555# 4614
XSIDIV 4615#
XSS9 2072 2089# 2965
XSS91 2111 2123#
$$MUUO 647#
$$OUTE 653#
$$TAX1 665#
$$TAX2 666#
$$TOGG 659#
$$UUO 636#
$ACC0 474# 1042
$BEND1 444#
$BEND2 445#
$CHRIN 535#
$CRLF 537#
$DEVCH 361#
$DSKUP 414#
$DVCH1 361#
$DVOFF 531#
$EMODE 412#
$ENDFX 681# 682
$FFF 539#
$IBUF 587#
$INEXT 589#
$INNM 588#
$ITRHL 455# 723 1451
$ITRX1 456#
$LPAPE 5593
$MMAP 415#
$MODVL 410#
$MODVU 411# SEQ 0186
$OBUF 578#
$ONETM 438#
$OUTEX 580#
$OUTNM 579#
$PAPER 361
$PARER 462#
$PNAME 408#
$PSHER 466#
$PVER 409#
$RSRTX 458#
$RSRTY 459#
$SPAG1 478#
$START 375#
$SVAPR 476# 1039
$SVPAG 477#
$SVPI 475# 1040
$SVUPC 481#
$SVUUO 480# 1187 1201
$TABF 538#
$TTCHR 534#
$TWCNT 530#
$TYPNB 536#
$UMODE 413#
$UORTX 453#
$USRHL 457#
$UUOER 454# 495
$VTF 540#
%ACTFL 487#
%ACTUL 488#
%COREC 486#
%CORFL 485#
%DISCR 489#
%ERHI1 628#
%ERHI2 629#
%ERHI3 630#
.JB41 361#
.JBAPR 361#
.JBCNI 361#
.JBDDT 361#
.JBFF 361#
.JBOPC 361#
.JBREL 361#
.JBREN 361#
.JBSA 361#
.JBSYM 361#
.JBTPC 361#
.JBUSY 361#
.JBUUO 361#
.JBVER 361#
CFLUSH 317#
CINVAL 316# SEQ 0187
CLOKOP 311#
CWRTBI 318#
DROPDV 278# 810
ENDUUO 324# 443
EOPUUO 325# 445
ERRHLT 213# 773 781 1314 5259
FATAL 212#
FMRQA 1634# 1894 1937 4090
FMWRA 1647# 2139 2155 2234
FRD36 353#
FRD8 354#
FREAD 352#
FSELEC 351#
GET 196# 1692 1708 1763 1904 1947 2097 2108 2122 2152 2168 2247 2296 2297
2298 2299 2656 3014 3015 3016 3776 4100 4873 4932 4943 4949 4953 4958
5036 5103 5121 5123 5192 5216 5236 5305 5324 5359 5503
GO 193# 1189 1203 1711 1712 1730 1734 1740 1743 1750 1753 1767 1770 1774
1778 1789 1792 1803 1807 1812 1815 1856 1860 1863 1867 1872 1875 1890
1893 1908 1912 1914 1917 1932 1936 1951 1955 1958 1962 1966 1969 1978
1981 1987 1991 1996 2000 2007 2010 2074 2077 2170 2174 2182 2185 2201
2204 2216 2220 2222 2225 2230 2233 2249 2253 2259 2263 2268 2271 2292
2295 2310 2313 2336 2339 2386 2389 2434 2437 2441 2444 2447 2450 2457
2460 2463 2466 2486 2489 2496 2499 2505 2508 2519 2522 2540 2543 2547
2550 2559 2562 2566 2569 2733 2736 2743 2746 2784 2787 2788 2808 2830
2833 2839 2842 3744 3747 3754 3757 3760 3761 3810 3813 3818 3821 3824
3827 3828 3842 3845 3850 3853 3857 3860 3866 3869 3883 3886 3903 3906
3913 3916 3920 3923 3934 3937 3938 3939 3945 3948 3956 3959 3964 3967
3968 3974 3977 3989 3992 4008 4011 4016 4019 4021 4024 4027 4030 4033
4038 4041 4043 4053 4056 4058 4063 4066 4073 4076 4086 4089 4104 4107
4110 4113 4124 4127 4147 4150 4154 4157 4160 4163 4174 4177 4191 4194
4202 4205 4218 4221 4227 4230 4238 4241 4249 4252 4253 4254 4262 4265
4266 4274 4277 4299 4301 4304 4317 4320 4341 4343 4346 4352 4355 4367
4370 4378 4381 4391 4394 4400 4403 4407 4410 4419 4422 4425 4428 4442
4445 4449 4452 4457 4460 4483 4486 4498 4501 4507 4510 4515 4518 4549
4557 4560 4567 4570 4577 4580 4589 4592 4597 4600 4603 4622 4625 4630
4633 4637 4640 4641 4651 4654 4661 4664 4665 4666 4673 4676 4677 4685
4688 4697 4700 4710 4713 4722 4725 4740 4757 4760 4770 4773 4776 4779
4787 4790 4797 4800 4803 4806 4811 4815 4821 4824 4829 4832 4838 4841
4859 4861 4863 4865 4867 4869 4871 4872 4909 4910 4915 4921 4945 5118
5128 5129 5132 5174 5221 5243 5255 5286 5288 5297 5304 5306 5323 5333
5335 5358 5370 5375 5385 5415 5418 5424 5427 5430 5433 5434 5435 5442
5445 5458 5461 5472 5475 5482 5485 5488 5491 5505 5508 5518 5521 5525
5529 5532 5536 5537 5540 5543 5549 5552 5557 5560 5563 5566 5569 5572
HALT 52 198# 464 1045 2196
IFSWIT 1677# 1843 2078 4981 4999
INDEX 1622# 1754
INX 3037# 3041 3043 3045 3047 3049 3051 3053 3055 3057 3059 3061 3063 3065
3067 3069 3071 3073 3075 3077 3079 3081 3083 3085 3087 3089 3091 3093
3095 3098 3100 3102 3104 3106 3108 3110 3112 3114 3116 3118 3120 3122
3124 3126 3128 3130 3132 3134 3136 3138 3140 3142 3144 3146 3148 3150
3153 3155 3157 3160 3162 3164 3166 3168 3170 3172 3174 3176 3178 3180
3183 3185 3187 3189 3191 3193 3195 3197 3199 3201 3203 3205 3207 3209
3211 3213 3215 3217 3219 3221 3223 3225 3227 3229 3231 3233 3235 3237 SEQ 0188
3239 3241 3243 3245 3247 3249 3251 3253 3255 3257 3259 3261 3263 3265
3267 3269 3271 3273 3275 3277 3279 3282 3284 3286 3288 3290 3292 3294
3296 3298 3300 3302 3304 3306 3308 3310 3312 3314 3316 3318
JEN 200# 1463
JRSTF 199#
MAPADR 334#
MAPCNK 335#
MAPMEM 331#
MAPPNT 337#
MAPSET 336#
MCRQ 1711# 1728 1797 1851 1985
MCWR 1712# 2214 2257 2290 4809 5511
MEMSEG 333#
MEMZRO 332#
MODPCP 344#
MODPCU 343#
MTROP 312#
NAME 8# 11
NORM 114# 1281 1288 1295 1302
PBELL 287#
PCRL 281# 1218 1228
PCRL2 285# 1486
PCRL2F 286#
PCRLF 282# 1528
PFORCE 289#
PGMINT 206# 694
PJRST 197#
PMSG 291#
PMSGF 294#
PNT1 247#
PNT11 261#
PNT11F 262#
PNT1F 248#
PNT2 249#
PNT2F 250#
PNT3 251# 4886
PNT3F 252#
PNT4 253#
PNT4F 254#
PNT5 255#
PNT5F 256#
PNT6 257# 4877 4920 4952
PNT6F 258#
PNT7 259#
PNT7F 260#
PNTA 233# 1352 3355 3359 3375 3389 3397 3404 3407 3414 3419 4855 4857 4917
4923 4939 4962 4968 4976
PNTADF 264#
PNTADR 263#
PNTAF 234# 1132 5257
PNTAL 235# 1104 1154 1220 1222 1334 1342 1473 1478 1483 4881 4890 4899 4993
5017 5040 5050 5056 5068 5077 5107 5131 5199 5212 5232
PNTALF 236# 710 772 780 1313 1512 5252 SEQ 0189
PNTCHF 246#
PNTCHR 245#
PNTCI 243# 1230
PNTCIF 244# 1520 1525
PNTCW 279#
PNTCWF 280#
PNTDCF 272# 1519 1524 1527
PNTDEC 271# 1224 1475 1480
PNTDS 273#
PNTDSF 274#
PNTHW 267# 1336 1485 4998 5019 5043 5070 5079 5110 5201 5217 5237
PNTHWF 268#
PNTMGN 358#
PNTMSF 240#
PNTMSG 239#
PNTNM 275#
PNTOCF 270#
PNTOCS 269# 4937 4966 4973
PNTOCT 265# 1344 1348 1350 4895
PNTOTF 266#
PNTSIX 276#
PNTSXF 277#
PSIXL 237#
PSIXLF 238#
PSIXM 241#
PSIXMF 242#
PSP 283#
PSPF 284#
PUT 195# 1689 1705 1735 1760 1901 1944 2093 2095 2104 2107 2118 2123 2149
2165 2244 2617 2993 2994 2995 3771 4097 4849 4905 4907 4929 4940 4946
4950 4955 5015 5033 5037 5066 5100 5104 5189 5193 5213 5233 5296 5299
5322 5357 5470
RST15 1546# 5119
RTN 194# 451 1229 1231 1694 1698 1709 2300 2821 3360 3777 4461 4468 4475
4541 4547 4716 4726 4742 4751 4753 4781 4874 4878 4882 4887 4891 4896
4900 4977 5124 5133 5184 5202 5244 5248 5307 5386 5454 5577
S 124# 126 130 159 161 170 173 188 189 191 202 204 208 210
215 219 361 366 372 399 401 419 421 439 441 470 472 490
492 510 512 520 522 543 548 574 576 583 585 591 593 599
601 605 607 612 614 618 620 624 626 632 634 637 639 643
645 649 651 655 657 661 663 668 673 677 679
SAVE15 1540# 4904
SAVEM 107# 1062 1156 1319
SINST 36# 1067
SIXBTZ 300#
SMT 34# 1324
STORE 1662# 1739 1749 1766 1788 1811 1871 1889 1913 1965 1977 2006 2073 2181
2200 2221 2229 2267 2291 2309 2335 2385 2433 2440 2446 2456 2462 2485
2495 2504 2518 2539 2546 2558 2565 2732 2742 2783 2829 2838 3743 3753
3809 3817 3823 3841 3849 3856 3865 3882 3902 3912 3919 3933 3944 3955
3963 3973 3988 4007 4015 4023 4029 4037 4052 4062 4072 4085 4103 4109
4123 4146 4153 4159 4173 4190 4201 4217 4226 4237 4248 4261 4273 4300
4316 4342 4351 4366 4377 4390 4399 4406 4418 4424 4441 4448 4456 4482 SEQ 0190
4497 4506 4514 4556 4566 4576 4588 4596 4621 4629 4636 4650 4660 4672
4684 4696 4709 4721 4756 4769 4775 4786 4796 4802 4820 4828 4837 5414
5423 5429 5441 5457 5471 5481 5487 5504 5517 5528 5539 5548 5556 5562
5568
STORM 1669# 1729 1773 1802 1855 1862 1907 1931 1950 1957 1986 1995 2169 2215
2248 2258 4810
SWITCH 306# 705 714 752 789 1115 1209 1468 1487 4850 5300 5371
TTALTM 228# 5377
TTICHR 221#
TTICNV 226#
TTIDEC 225#
TTINO 223#
TTIOCT 224# 711
TTIYES 222#
TTLOOK 227#
TTSIXB 229#