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