Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dfkbb.seq
There are no other files named dfkbb.seq in the archive.
MAINDEC-10-DFKBB.TXT
SEQ 0001
IDENTIFICATION
--------------
PRODUCT CODE: BB-F039B-ND
PRODUCT NAME: KL10 BASIC INSTRUCTION RELIABILITY TEST (2)
FUNCTION: MEMORY AND BOTH MODE
CACHE RELIABILITY
VERSION: 0.2
DATE RELEASED: APRIL 1984
MAINTAINED BY: 36 BIT DIAGNOSTIC ENGINEERING
AUTHOR: JOHN R. KIRCHOFF
COPYRIGHT (C) 1977, 1984
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
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 EXCEPT 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 DIGITAL EQUIPMENT
CORPORATION.
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE
USE OR RELIABILITY OF ITS SOFTWARE IN EQUIPMENT WHICH IS NOT
SUPPLIED BY DIGITAL EQUIPMENT CORPORATION.
MAINDEC-10-DFKBB.TXT
PAGE 2 SEQ 0002
TABLE OF CONTENTS
-----------------
1.0 ABSTRACT
2.0 REQUIREMENTS
2.1 EQUIPMENT
2.2 STORAGE
2.3 PRELIMINARY PROGRAMS
3.0 PROGRAM PROCEDURES
3.1 LOADING PROCEDURE
3.2 STARTING PROCEDURE
3.3 OPERATING PROCEDURE
4.0 DATA SWITCH FUNCTIONS
5.0 ERRORS
6.0 ITERATION COUNTER
7.0 CYCLE TIME
8.0 OPERATIONAL VARIATIONS
9.0 MISCELLANEOUS
10.0 LISTING
MAINDEC-10-DFKBB.TXT
PAGE 3 SEQ 0003
1.0 ABSTRACT
THIS PDP-10 KL10 BASIC INSTRUCTION RELIABILITY TEST
IS THE SECOND IN A SERIES OF PDP-10 KL10 PROCESSOR
BASIC INSTRUCTION RANDOM NUMBER DIAGNOSTICS.
THIS PROGRAM TESTS EVERY INSTRUCTION IN THE MEMORY AND BOTH MODE
WITH THE EXCEPTION OF FIXED POINT MULTIPLY/DIVIDE, FLOATING
POINT AND BYTE.
IN THE MAJORITY OF CASES A RANDOM NUMBER IS PLACED
IN THE AC AND C(E) AND A SERIES OF 4 OR 5 INSTRUCTIONS
ARE EXECUTED. THE ANSWER IN THE AC AND/OR C(E) IS
CHECKED AND AN ERROR MESSAGE IS PRINTE D IF THE NUMBER
IS NOT CORRECT. EACH SET OF 4 OR 5 INSTRUCTIONS ACTS
ON EACH MEMORY LOCATION FROM THE END OF THE PROGRAM
TO THE DESIGNATED END OF MEMORY.
THIS TEST IS SPECIFICALLY SETUP TO ENSURE RELIABILITY OF
THE KL10 CACHE. MEMORY PARITY INTERRUPTS CAUSED BY CACHE
WRITEBACKS ARE INTERCEPTED AND ADDITIONAL ERROR INFORMATION
PRINTED GIVING THE FAILING ADDRESS, THE TESTING ADDRESS,
THE GOOD DATA, THE BAD DATA AND THE XOR DIFFERENCE.
2.0 REQUIREMENTS
2.1 EQUIPMENT
A PDP-10 KL10 EQUIPPED WITH A MINIMUM OF 32K OF MEMORY
CONSOLE PROCESSOR (KL10)
CONSOLE TELETYPE
DECTAPE
LINE PRINTER (OPTIONAL)
2.2 STORAGE
THE PROGRAM RUNS WITHIN 32K OF MEMORY.
BUT WILL TEST ALL OF THE FIRST 256K OF MEMORY IF THE
RELIABILITY OR OPRSEL SWITCHES ARE SET.
2.3 PRELIMINARY PROGRAMS
PREVIOUS PROCESSOR DIAGNOSTICS
MAINDEC-10-DFKBB.TXT
PAGE 4 SEQ 0004
3.0 PROGRAM PROCEDURES
3.1 LOADING PROCEDURE
THIS DIAGNOSTIC REQUIRES THAT THE DECSYSTEM10 SUBROUTINE
PROGRAM BE RESIDENT IN THE PDP-10.
KL10 - LOAD VIA CONSOLE PROCESSOR
3.2 STARTING PROCEDURE
A. SELECT OPERATIONAL CONSOLE DATA SWITCH SETTINGS (REFER TO
4.0 DATA SWITCH FUNCTIONS).
B. EXEC MODE
STAND-ALONE STARTING ADDRESS IS 30000.
C. USER MODE
THIS PROGRAM RUNS IN EXEC MODE ONLY.
MAINDEC-10-DFKBB.TXT
PAGE 5 SEQ 0005
3.3 OPERATING PROCEDURE
NORMAL OPERATION WITH ALL SWITCHES SET TO ZERO IS QUICK
VERIFY MODE. TO RELIABILITY TEST SET THE "RELIAB" SWITCH.
WITHOUT EITHER THE OPRSEL SWITCH OR THE RELIAB SWITCH SET OR
THE MEMORY SIZE SELECTED VIA THE SWITCHES THE PROGRAM WILL
RUN USING ONLY 32K. SETTING JUST THE OPRSEL SWITCH ALLOWS
THE PROGRAM TO RUN IN QUICK VERIFY MODE USING ALL AVAILABLE
MEMORY.
A. TO THROUGHLY TEST ALL HARDWARE, ALL TEST CONTROL DATA
SWITCHES SHOULD BE SET TO 0.
B. WHEN DEBUGGING HARDWARE, SET SWITCHES TO 0. ALLOW THE
TELETYPE TO PRINT THE ERROR MESSAGES. THIS ALLOWS THE
PROGRAM TO RUN A COMPLETE PASS AND THEN THE ERROR MESSAGES
MAY BE CORRELATED TO QUICKLY DIAGNOSE THE FAILURE. IF A
HARDWARE PROBLEM IS SUCH THAT THE ERROR MESSAGES, AFTER THE
FIRST ONE, HAVE NO MEANING (FIRST ERROR CAUSES ALL FOLLOWING
TESTS TO FAIL) SET THE LOOP ON ERROR SWITCH AND RESTART THE
TEST FROM THE BEGINNING. THE FIRST FAILURE WILL THEN CAUSE
THE PROGRAM TO ENTER A LOOP SUITABLE FOR SCOPING.
THE ERROR MESSAGE USED IN CONJUNCTION WITH THE LISTING AND
SCOPING IF NECESSARY SHOULD ALLOW THE FAILING CONPONENT
TO BE ISOLATED AND REPLACED AND/OR REPAIRED.
C. WHEN TAKING MARGINS, SET DATA SWITCHES 'NOPNT' AND 'DING'.
THIS WILL INHIBIT PRINTOUT BUT WILL ALLOW THE TELETYPE
BELL TO BE RUNG WHEN A ERROR OCCURS. IF THE MARGIN OBTAINED
IS UNACCEPTABLE, THE OPERATOR MAY REVERT TO STANDARD SWITCH
SETTINGS FOR DEBUGGING PURPOSES.
D. ERROR INFORMATION MAY BE OBTAINED QUICKLY BY PRINTING
ERRORS ON THE LINE PRINTER.
E. IN THE EVENT OF A PRINT ROUTINE FAILURE THE 'NOPNT' SWITCH
AND THE 'ERSTOP' SWITCH MAY BE SET TO INHIBIT PRINTOUT
BUT HALT THE PROGRAM POINTING TO THE ERROR.
MAINDEC-10-DFKBB.TXT
PAGE 6 SEQ 0006
4.0 DATA SWITCH FUNCTIONS
SWITCH STATE FUNCTION
------ ----- --------
0 ABORT 0 NORMAL OPERATION
1 ABORT AT END OF PASS
1 RSTART 0 ABORT AFTER CACHE PARITY ERROR REPORT
1 RESTART PROGRAM AFTER ABOVE.
2 TOTALS NOT USED
3 NOPNT 0 NORMAL TYPEOUT
1 INHIBIT ALL PRINT/TYPEOUT (EXCEPT FORCED)
4 PNTLPT 0 NORMAL OUTPUT TO TTY
1 PRINT ALL DATA ON PDP-10 LPT
5 DING 0 NO FUNCTION
1 RING TTY BELL ON ERROR
6 LOOPER 0 PROCEED TO NEXT TEST
1 ENTER SCOPE LOOP ON TEST ERROR
7 ERSTOP 0 NO FUNCTION
1 HALT ON TEST ERROR
8 PALERS 0 PRINT ONLY FIRST ERROR WHEN LOOPING
1 PRINT ALL ERRORS, EVEN IF SAME ERROR
9 RELIAB 0 FAST CYCLE OPERATION
1 RELIABILITY MODE - USE ALL OF MEMORY
10 TXTINH 0 PRINT FULL ERROR MESSAGES.
1 INHIBIT COMMENT PORTION OF ERROR MESSAGES.
11 INHPAG 0 ALLOW PAGING AND TRAP ENABLE
1 INHIBIT PAGING AND TRAPPING
12 MODDVC NOT USED
13 INHCSH 0 KL10 - ALLOW CACHE USE
1 KL10 - INHIBIT CACHE
14 OPRSEL 0 RUN IN 32K UNLESS RELIAB MODE
1 USE ALL AVAILABLE MEMORY
18 0 PROGRAM RUNS UNCACHED
1 RUN EVERYTHING CACHED
MAINDEC-10-DFKBB.TXT
PAGE 7 SEQ 0007
4.0 DATA SWITCH FUNCTIONS (CON'T)
RIGHT HALF SWITCHES
-------------------
27-35 SIZE OF MEMORY, HIGH ORDER 9 BITS
LOW ORDER 9 BITS ARE APPENDED AS 1'S
THE SIZE OF MEMORY IS DETERMINED BY:
A. EXEC MODE
1. SWITCHES 27-35 = 0, USE AVAILABLE MEMORY
2. SWITCHES 27-35 INDICATE SIZE OF TESTED MEMORY, (32K=77).
5.0 ERRORS
ERRORS ARE PRINTED ON THE TTY OR LINE PRINTER. THE ERROR
PRINTOUT CONTAINS THE TEST TITLE, THE PC OF THE FAILURE, AC
NUMBER, ERROR WORD AND CORRECT WORD.
THE PC VALUE IS USEFUL IN RELATING THE FAILURE TO THE LISTING.
WHEN THE SCOPE LOOP MODE IS USED THE MI REGISTER WILL COUNT
FOR EACH OCCURANCE OF AN ERROR. IF AN AUDIO INDICATION OF
A CONTINUING ERROR IS DESIRED THE 'DING' SWITCH MAY BE SET.
THE FOLLOWING IS THE DIFFERENT ERROR FORMATS WITH THEIR
RESPECTIVE UUO'S AND ERROR MESSAGES.
A. ERROR #1 - ERR AC,E
-------------------------------
EXAMPLE: AC E
2053 / CAME AC1,AC2 ;RESULT CORRECT
2054 / ERR AC,RAN1 ;ORIG C(AC) ORIG C(E)
AC1=5 ;TEST DATA
C(AC1) = 201532107642
C(AC2) = 201432107642
C(RAN1)= 777777777777
C(AC) = 576345670135
ERROR MESSAGE:
(SOURCE OF NUMBERS PRINTED)
PC = 002054 ;PC OF ERROR UUO
AC = 05 ;AC FIELD OF UUO-1
C(AC)= 201532107642 ;C(C(AC)) OF UUO-1
COR = 201432107642 ;C(C(ADDRESS FIELD)) OF UUO-1
ORIGINAL
C(AC)= 777777777777 ;C(C(ADDRESS FIELD)) OF UUO
C(E) = 576345670135 ;C(C(AC)) OF UUO
MAINDEC-10-DFKBB.TXT
PAGE 8 SEQ 0008
5.0 ERRORS (CON'T)
B. ERROR #2 - ERRM AC,E
--------------------------------
EXAMPLE: AC E
2053 / CAME AC2,MUD ;CORRECT RESULT
2054 / ERRM AC,RAN1 ;ORIG C(AC) ORIG C(E)
MUD=5033 ;TEST DATA
C(MUD) = 201532107642
C(AC2) = 201432107642
C(RAN1)= 777777777777
C(AC) = 576345670135
ERROR MESSAGE:
(SOURCE OF NUMBERS PRINTED)
PC = 002054 ;PC OF ERROR UUO
E = 5033 ;BITS 18-35 (E) OF UUO-1
C(E) = 201532107642 ;C(C(E)) OF UUO-1
COR = 201432107642 ;C(C(AC)) OF UUO-1
ORIGINAL
C(AC)= 777777777777 ;C(C(E)) OF UUO
C(E) = 576345670135 ;C(C(AC)) OF UUO
MAINDEC-10-DFKBB.TXT
PAGE 9 SEQ 0009
5.0 ERRORS (CON'T)
C. ERROR #3 - ERRI AC,E
--------------------------------
EXAMPLE: AC E
2053 / CAME AC1,AC2 ;RESULT CORRECT
2054 / ERRI RAN1,(AC) ;ORIG C(AC) ORIG E
AC1=5 ;TEST DATA
C(AC1) = 107742670135
C(AC2) = 107642670135
C(RAN1)= 777777777777
C(AC) = 576345670135
ERROR MESSAGE:
(SOURCE OF NUMBERS PRINTED)
PC = 002054 ;PC OF ERROR UUO
AC = 5 ;AC FIELD OF UUO-1
C(AC)= 107742670135 ;C(C(AC)) OF UUO-1
COR = 107642670135 ;C(C(E)) OF UUO-1
ORIGINAL
C(AC)= 777777777777 ;C(C(AC)) OF UUO
E = 670135 ;C(ADDRESS FIELD) OF UUO
D. ERROR #4 - ERROR AC,E
---------------------------------
EXAMPLE: AC E
2053 / CAME AC,RAN
2054 / ERROR AC,RAN ;RESULT CORRECT
AC=5 ;TEST DATA
C(AC) = 201532107642
C(RAN) = 201432107642
ERROR MESSAGE:
(SOURCE OF NUMBERS PRINTED)
PC = 002054 ;PC OF ERROR UUO
AC = 5 ;AC FIELD OF UUO
C(AC)= 201532107642 ;C(C(AC)) OF UUO
COR = 201432107642 ;C(C(E)) OF UUO
MAINDEC-10-DFKBB.TXT
PAGE 10 SEQ 0010
5.0 ERRORS (CON'T)
E. ERROR #5 - ER AC,[ASCII/MESSAGE/]
---------------------------------------------
EXAMPLE: AC E
2053 / JFCL 10,.+2
2054 / ER AC,[ASCII/OV/] ;RESULT MESSAGE
AC=5 ;TEST DATA
C(AC) = 201432107642
ERROR MESSAGE:
(SOURCE OF NUMBERS PRINTED)
PC = 002054 ;PC OF ERROR UUO
AC = 5 ;AC FIELD OF UUO
C(AC)= 201432107642 OV ;C(C(AC)) OF UUO
;ADDRESS FIELD OF UUO POINTS TO AN
;ASCII MESSAGE
F. ERROR #6 - ERM AC,E
-------------------------------
EXAMPLE: AC E
2053 / SOJ AC2,
2054 / ERM AC1,(AC2) ;C(AC) RESULT
C(AC2)=5033 ;TEST DATA
C(AC) = 740000005756
C(C(AC2)=254000004041
ERROR MESSAGE:
(SOURCE OF NUMBERS PRINTED)
PC = 002054 ;PC OF ERROR UUO
E = 5033 ;BITS 18-35 (E) OF UUO
C(AC)= 740000005756 ;C(AC) OF UUO
C(E) = 254000004041 ;C(C(E)) OF UUO
MAINDEC-10-DFKBB.TXT
PAGE 11 SEQ 0011
5.0 ERRORS (CON'T)
G. ERROR #7 - ERMM AC,E
--------------------------------
EXAMPLE: AC E
2053 / SOJ AC2,
2054 / ERMM AC1,(AC2) ;C(AC) RESULT
C(AC2)=5033 ;TEST DATA
C(AC1) = 740000005756
ERROR MESSAGE:
(SOURCE OF NUMBERS PRINTED)
PC = 002054 ;PC OF ERROR UUO
E = 5033 ;BITS 18-35 (E) OF UUO
C(AC)= 740000005756 ;C(AC) OF UUO
H. ERROR #11 - EERR ,E
--------------------------------
I. ERROR #12 - EERRM ,E
--------------------------------
J. ERROR #13 - EERRI ,E
--------------------------------
ERRORS 11,12 AND 13 ARE THE SAME AS ERRORS 1,2 AND 3 EXCEPT
THAT THE AC OF THE UUO IS REPLACED BY C(RAN). IN
OTHER WORDS C(RAN) WILL BE PRINTED FOR THE ORIGINAL
C(E).
MAINDEC-10-DFKBB.TXT
PAGE 12 SEQ 0012
6.0 ITERATION COUNTER
THE PASS COUNT IS TYPED OUT ON THE CONSOLE TELETYPE.
7.0 CYCLE TIME
THE CYCLE TIME DEPENDS UPON MEMORY SIZE AND INCREASES AS
MEMORY SIZE INCREASES.
A. NORMAL OPERATION - APPROXIMATELY ONE MINUTE IN 32K.
B. RELIABILITY MODE - APPROXIMATELY 3 TO 5 MINUTES.
8.0 OPERATIONAL VARIATIONS
A. DIAGNOSTIC MONITOR
THE PROGRAM IS USABLE WITH THE DIAGNOSTIC MONITOR TO PROVIDE
RELIABILITY TESTS, ACCEPTANCE TESTS, AND/OR TO PROVIDE A
QUICK METHOD OF ISOLATION OF A FAULT TO A PARTICULAR AREA
OF THE PROCESSOR. CERTAIN PROCEDURES ARE USED WHEN THE
PROGRAM IS USED IN THIS MANNER. THEY ARE:
1. THE DIAGNOSTIC MONITOR TRANSFERS CONTROL TO THE PROGRAM
AND STARTS IT AT LOCATION 30002.
2. MONCTL - LOCATION 30043 IS USED AS THE DIAGNOSTIC MONITOR
CONTROL WORD.
LH = 0, STAND-ALONE OPERATION
-1, RUNNING UNDER DIAGNOSTIC MONITOR
RH = RIGHT HALF OF CONSOLE SWITCHES IF UNDER
DIAGNOSTIC MONITOR CONTROL.
9.0 MISCELLANEOUS
THE NON-EX-MEMORY AND PARITY STOP SWITCHES SHOULD BE RESET
(0). THESE ERRORS, ILLEGAL UUO'S AND OTHER ERRORS OF THIS
TYPE ARE HANDLED BY PRINTOUT ON THE TELETYPE.
10.0 LISTING
DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST (2)
(MEMORY AND BOTH MODES) FOR CACHE RELIABILITY TESTING SEQ 0013
MAINDEC-10-DFKBB
VERSION 0.1
JULY 20,1976
HISTORY:
ORIGINAL RELEASE OF THIS PROGRAM FOR THE KL10.
VERSION 0.2
APRIL 18,1984
HISTORY:
USERMODE OPERATION HAS NEVER BEEN SUPPORTED. VER 0.2 WILL GIVE
EXC MODE ONLY ERROR MESSAGE AT START UP
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2^ DECDOC VER 00.25 18-APR-84 15:40:07 PAGE 1
SEQ 0014
DOCUMENT
**************
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2^
**************
COPYRIGHT 1984
DIGITAL EQUIPMENT CORPORATION
MAYNARD, MASS. 01754
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2^ DECDOC VER 00.25 18-APR-84 15:40:07 PAGE 2
SEQ 0015
TABLE OF CONTENTS
*******************
30 DIAGNOSTIC PARAMETERS
119 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979
154 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979
360 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979
688 INITIALIZE PROGRAM
811 $MEMERR - SPECIAL INTERRUPT ERROR PROCESSOR
1061 DIAGNOSTIC SECTION
2156 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975
2376 *STOR* RESERVED STORAGE, SEPT 18,1979
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2^ DECDOC VER 00.25 18-APR-84 15:40:07 PAGE 3
SEQ 0016
1 MAINDEC-10-DFKBB
16 TEST DESIGNED FOR RANDOM NUMBER TESTING OF THE PDP-10
BASIC INSTRUCTIONS (MEMORY AND BOTH MODES)
SPECIALLY DESIGNED FOR CACHE RELIABILITY TESTING
20 COPYRIGHT 1984
DIGITAL EQUIPMENT CORPORATION
MARLBORO, MASS. 01752
24 JOHN R. KIRCHOFF
*****************************************************************
30 DIAGNOSTIC PARAMETERS
*****************************************************************
32 OPERATOR DEFINITIONS
52 SUBROUTINE ASSEMBLY DEFINITIONS
64 TEST CONTROL SWITCHES
66 OPRSEL OR RELIAB = ALLOW FULL MEMORY USAGE
OTHERWISE MEMORY LIMITED TO 32K UNLESS SWITCH SELECTED.
69 SWITCHES 27-35 , SIZE OF MEMORY, HIGH ORDER 9 BITS
71 SWITCH 18 = 1, CACHE EVERYTHING
72 ACCUMULATOR ASSIGNMENTS
76 BEGIN ASSEMBLY PARAMETERS
98 MACROS
*****************************************************************
119 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979
*****************************************************************
124 DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE)
LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2^ DECDOC VER 00.25 18-APR-84 15:40:07 PAGE 4
SEQ 0017
*****************************************************************
154 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979
*****************************************************************
157 SPECIAL SUBPROGRAM LINKAGES
168 SPECIAL SUBROUTINE FATAL HALTS
USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
*****************************************************************
360 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979
*****************************************************************
*****************************************************************
688 INITIALIZE PROGRAM
*****************************************************************
697 SET PROGRAM UNCACHED
IF SWITCH 18 SET, CACHE EVERYTHING
719 COMPUTE MEMORY SIZE TO BE USED
758 COMPUTE BUFFER SIZE TO BE USED
*****************************************************************
811 $MEMERR - SPECIAL INTERRUPT ERROR PROCESSOR
*****************************************************************
842 $MBELOW - BELOW SPECIAL PROCESS DISPATCH
868 $MABOVE - ABOVE SPECIAL PROCESS DISPATCH
892 MOST TESTS HAVE MEMORY = RANDOM
910 PRINT ERROR INFORMATION IN THE FORM
FAIL ADR TEST ADR GOOD BAD DIFF
941 $TST13 - SPECIAL TST13 DATA REGENERATOR
961 $TST16 - SPECIAL TST16 DATA REGENERATOR
981 $TST20 - SPECIAL TST20 DATA REGENERATOR
1002 $TST21 - SPECIAL TST21 DATA REGENERATOR
1022 $TST30 - SPECIAL TST30 DATA REGENERATOR
1042 $MEMONE - SPECIAL ALL ONES DATA REGENERATOR
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2^ DECDOC VER 00.25 18-APR-84 15:40:07 PAGE 5
SEQ 0018
1047 $MEMZRO - SPECIAL ALL ZEROS DATA REGENERATOR
1052 $MSADT - SPECIAL MEMORY ADDRESS REGENERATOR
*****************************************************************
1061 DIAGNOSTIC SECTION
*****************************************************************
1064 MSADT - FAST ADDRESS TEST TO CHECK MEMORY(S)
1088 TST1
TEST MOVE, MOVEM, MOVES, HLLM, EXCH. AFTER EXECUTING
THESE 5 INSTRUCTIONS, THE C(AC) AND C(E) SHOULD STILL
=RANDOM NUM.
1125 TST2
TEST HLLS, HRRM, ANDM, SETAB. AFTER
EXECUTING THESE 4 INSTRUCTIONS, THE C(AC)+C(E)
SHOULD STILL=RANDOM NUM.
1161 TST3
TEST SETMB, HRRS, IORB, SETAM, SETMM. AFTER
EXECUTING THESE 5 INSTRUCTIONS, THE C(AC)+C(E)
SHOULD STILL=RANDOM NUMBER
1198 TST4
TEST IORM, ANDB, SETCMM, SETCMB. AFTER
EXECUTING THESE 4 INSTRUCTIONS, THE C(AC)+C(E)
SHOULD STILL=RANDOM NUMBER.
1235 TST5
TEST MOVSM, MOVSS, MOVNM, MOVNS. AFTER
EXECUTING THESE 4 INSTRUCTIONS, THE C(AC)+C(E)
SHOULD STILL=RANDOM NUMBER
1272 TST6
TEST HRLM, HLRN, MOVSS, XORM, XORB. AFTER
EXECUTING THESE 5 INSTRUCTIONS, THE C(AC)+C(E)
SHOULD STILL=RANDOM NUMBER.
1310 TST7
TEST EQVM, ORCMM, ORCAM, EQVB. AFTER
EXECUTING THESE 4 INSTRUCTIONS, THE C(AC)+
C(E) SHOULD STILL=RANDOM NUMBER
1347 TST10
TEST ANDCAM, ANDCMM, ANDCBB, SETCAB. AFTER
EXECUTING THESE 4 INSTRUCTIONS, THE C(AC)+
C(E) SHOULD STILL=RANDOM NUMBER.
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2^ DECDOC VER 00.25 18-APR-84 15:40:07 PAGE 6
SEQ 0019
1384 TST11
TEST SETCAM, ORCAB, ORCBM, AND CAB, AFTER
EXECUTING THESE 4 INSTRUCTIONS, THE C(AC)+
C(E) SHOULD STILL=RANDOM NUMBER.
1421 TST12
TEST SETZM, ANDCBM, ORCMB. AFTER
EXECUTING THESE 3 INSTRUCTIONS, THE C(AC)
+C(E) SHOULD=RANDOM NUMBER.
1457 TST13
TEST HRLS, HLRS. CHECK FOR
CORRECT DATA IN THE C(AC) AND C(E).
C(AC)+C(E)=RAN. NUM.
1504 TST14
TEST HRLZM, HLRZS, HLRZM, HRLZS. CHECK
FOR CORRECT DATA IN THE C(AC)+C(E).
C(AC)+C(E)=RAN. NUM.
1547 TST15
TEST HRLOM, HLROS, HLROM, HRLOS. CHECK FOR
CORRECT DATA IN THE C(AC)+C(E).
C(AC)+C(E)=RAN. NUM.
1590 TST16
TEST HRLEM, HLRES, HLREM, HRLES. CHECK
FOR CORRECT DATA IN THE C(AC)+C(E).
C(AC)+C(E)=RAN. NUM.
1639 TST17
TEST HRLEM, HLRES, HLREM, HRLES. CHECK
FOR CORRECT DATA IN AC AND C(E).
C(AC)+C(E)=RAN. NUM.
1687 TST20
TEST HLLOM, HLLZS, HRROM, HRRZS. CHECK FOR
CORRECT DATA IN AC AND C(E).
C(AC)+C(E)=RAN. NUM.
1740 TST21
TEST HLLOS, HLLZM, HRROS, HRRZM. CHECK FOR
CORRECT DATA IN AC AND C(E).
C(AC)+C(E)=RAN. NUM.
1795 TST22
TEST HLLEM, HRRES. CHECK C(AC)+C(E)
FOR CORRECT DATA.
C(AC) HAS SIGN BIT SET.
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2^ DECDOC VER 00.25 18-APR-84 15:40:07 PAGE 7
SEQ 0020
1838 TST23
TEST HLLEM, HRRES. CHECK C(AC)+C(E)
FOR CORRECT DATA
C(AC) HAS SIGN BIT CLEAR.
1881 TST24
TEST HRREM, HLLES. CHECK C(AC)+C(E)
FOR CORRECT DATA.
C(AC) HAS BIT 18 SET.
1924 TST25
TEST HRREM, HLLES. CHECK C(AC)+C(E)
FOR CORRECT DATA.
C(AC) HAS BIT 18 CLEAR.
1967 TST26
TEST ORCBB, ANDCMB, SETOM, SETZB, SETOB. CHECK
FOR CORRECT DATA IN AC AND C(E).
2021 TST27
TEST AOS, SOA, TDC, TDCA, TSC, TSCA. CHECK
FOR CORRECT DATA IN AC AND C(E)
C(AC) AND C(E)=RAN. NUM.
2066 TST30
TEST MOVMM, MOVMS. CHECK FOR
CORRECT DATA IN AC AND C(E).
C(AC)+C(E)=RAN. NUM.
2111 TST31
TEST ADDM, SUBB, ADDB, SUBM. CHECK FOR
CORRECT DATA IN AC AND C(E)
C(AC) AND C(E)=RAN. NUM.
*****************************************************************
2156 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975
*****************************************************************
*****************************************************************
2376 *STOR* RESERVED STORAGE, SEPT 18,1979
*****************************************************************
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 1
DFKBBT MAC 1-Feb-84 14:38 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979 SEQ 0021
1 ;*MAINDEC-10-DFKBB
2
3 000002 DECVER==002
4 000000 MCNVER==000
5
6 XLIST
7 LIST
8 LALL
9
10 NAME \MCNVER,\DECVER^
11
12 TITLE DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2^
13
14 XALL
15
16 ;*TEST DESIGNED FOR RANDOM NUMBER TESTING OF THE PDP-10
17 ;*BASIC INSTRUCTIONS (MEMORY AND BOTH MODES)
18 ;*SPECIALLY DESIGNED FOR CACHE RELIABILITY TESTING
19
20 ;*COPYRIGHT 1984
21 ;*DIGITAL EQUIPMENT CORPORATION
22 ;*MARLBORO, MASS. 01752
23
24 ;*JOHN R. KIRCHOFF
25
26 000137 LOC 137
27 000137 000000 000002 MCNVER,,DECVER
28
29 NOSYM
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 2
DFKBBT MAC 1-Feb-84 14:38 DIAGNOSTIC PARAMETERS SEQ 0022
30 SUBTTL DIAGNOSTIC PARAMETERS
31
32 ;*OPERATOR DEFINITIONS
33
34 001000 000000 OPDEF ERR [1B8]
35 002000 000000 OPDEF ERRM [2B8]
36 003000 000000 OPDEF ERRI [3B8]
37 004000 000000 OPDEF ERROR [4B8]
38 005000 000000 OPDEF ER [5B8]
39 006000 000000 OPDEF ERM [6B8]
40 007000 000000 OPDEF ERMM [7B8]
41 013000 000000 OPDEF EERRI [13B8]
42
43 032641 LUUO1=ERRMES
44 032641 LUUO2=ERRMES
45 032641 LUUO3=ERRMES
46 032641 LUUO4=ERRMES
47 032641 LUUO5=ERRMES
48 032641 LUUO6=ERRMES
49 032641 LUUO7=ERRMES
50 032641 LUUO13=ERRMES
51
52 ;*SUBROUTINE ASSEMBLY DEFINITIONS
53
54 000001 EXCASB==1
55 000001 ERRELB=1
56 000001 KLOLD==1
57 000001 KI10==1
58 000001 KL10==1
59 000001 KL10P0==1
60 000001 PGMEND==1
61 000040 DEBUG==40
62 000001 MEMMAP==1
63
64 ;*TEST CONTROL SWITCHES
65
66 ;*OPRSEL OR RELIAB = ALLOW FULL MEMORY USAGE
67 ;*OTHERWISE MEMORY LIMITED TO 32K UNLESS SWITCH SELECTED.
68
69 ;*SWITCHES 27-35 , SIZE OF MEMORY, HIGH ORDER 9 BITS
70
71 ;*SWITCH 18 = 1, CACHE EVERYTHING
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 3
DFKBBT MAC 1-Feb-84 14:38 DIAGNOSTIC PARAMETERS SEQ 0023
72 ;*ACCUMULATOR ASSIGNMENTS
73
74 000010 RA=10
75
76 ;*BEGIN ASSEMBLY PARAMETERS
77
78 030000 SADR1=BEGIN
79 030076 SADR2=RESRT1
80 030714 SADR3=RENTR1
81 030000 SADR4=BEGIN
82 030000 SADR5=BEGIN
83 030000 SADR6=BEGIN
84 254200 030000 SADR7=HALT BEGIN
85 254200 030000 SADR8=HALT BEGIN
86 254200 030000 SADR9=HALT BEGIN
87 254200 030000 SADR10=HALT BEGIN
88 254200 030000 SADR11=HALT BEGIN
89
90 123457 654321 PAREA1=123457,,654321
91 000000 PAREA2=0
92 444653 424200 PAREA3=SIXBIT/DFKBB/
93 645560 000000 PAREA4=SIXBIT/TMP/
94 000000 PAREA5=0
95 000000 PAREA6=0
96
97 000001 ITERAT=1
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 4
DFKBBT MAC 1-Feb-84 14:38 DIAGNOSTIC PARAMETERS SEQ 0024
98 ;*MACROS
99
100 DEFINE SETUP <
101 AC1=<AC+1>&17
102 AC2=<AC+2>&17
103 AC3=<AC+3>&17
104 AC4=<AC+4>&17
105 MOVEI AC-1,.
106 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
107 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
108 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
109 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. >
110
111 DEFINE RANDOM <
112 ADD RA,[142536475076]
113 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
114 EQVB RA,AC ;IN BOTH RA AND AC.
115 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
116 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
117 CAME RA,(AC1) ;DID IT MAKE IT ?
118 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. >
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 1
PARAM KLM 18-Sep-79 17:16 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979 SEQ 0025
119 SUBTTL *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979
120
121 DEFINE S,<; *********************************************************************>
122
123 ; **********************************************************************
124 ;*DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE)
125 ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
126 ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
127 ; **********************************************************************
128
129 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION
130 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS
131 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE
132
133 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
134 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
135 010000 DING== 010000 ;RING BELL ON ERROR
136
137 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR
138 002000 ERSTOP==002000 ;HALT ON TEST ERROR
139 001000 PALERS==001000 ;PRINT ALL ERRORS
140
141 000400 RELIAB==000400 ;RELIABILITY MODE
142 000200 TXTINH==000200 ;INHIBIT ERROR TEXT
143 000100 INHPAG==000100 ;INHIBIT PAGING
144
145 000040 MODDVC==000040 ;MODIFY DEVICE CODE
146 000020 INHCSH==000020 ;INHIBIT CACHE
147 000010 OPRSEL==000010 ;OPERATOR SELECTION
148
149 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH
150
151 000002 KAHZ50==000002 ;KA10 50 HERTZ POWER
152
153 ;SWITCH 17 RESERVED !!!
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 2
PARAM KLM 18-Sep-79 17:16 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979 SEQ 0026
154 SUBTTL *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979
155
156 ; **********************************************************************
157 ;*SPECIAL SUBPROGRAM LINKAGES
158 ; **********************************************************************
159
160 027772 FSELNK= 27772 ;FILE SELECT LINK
161 027773 FRDLNK= 27773 ;FILE READ LINK
162 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS
163 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS
164 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS
165 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS
166
167 ; **********************************************************************
168 ;*SPECIAL SUBROUTINE FATAL HALTS
169 ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
170 ; **********************************************************************
171
172 ;ADDRESS TAG REASON
173 ;---------------------
174
175 ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION
176 ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR
177 ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR
178 ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT
179 ; 1014 DTEBER ;DTE20 INTERRUPT WITHOUT DOORBELL
180 ; 1015 DTECER ;DTE20 CLOCK INTERRUPT WITHOUT FLAG SET
181 ; 1016 CPIERR ;CPU INITIALIZATION ERROR
182 ; 1017 EOPERR ;END OF PROGRAM ERROR
183 ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT
184
185 ; **********************************************************************
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 3
PARAM KLM 18-Sep-79 17:16 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979 SEQ 0027
186 ; **********************************************************************
187 ;OPERATOR DEFINITIONS (NON-UUO'S)
188 ; **********************************************************************
189
190 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL
191 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN
192 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST
193 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST
194 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S
195 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT
196 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT
197 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT
198
199 ; **********************************************************************
200 ;SUBROUTINE INITIALIZATION CALL
201 ; **********************************************************************
202
203 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION
204
205 ; **********************************************************************
206 ;HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
207 ; **********************************************************************
208
209 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT
210 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT
211
212 ; **********************************************************************
213 ;TERMINAL INPUT UUO'S
214 ;ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
215 ;CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
216 ; **********************************************************************
217
218 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER
219 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y
220 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N
221 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD
222 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD
223 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD
224 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK
225 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK
226 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD
227 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT
228 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 4
PARAM KLM 18-Sep-79 17:16 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979 SEQ 0028
229 ;TERMINAL OUTPUT UUO'S.
230
231 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD
232 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED
233 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE
234 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED
235 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE
236 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED
237 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE
238 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED
239 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE
240 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED
241 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE
242 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED
243 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER
244 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED
245 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT
246 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED
247 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS
248 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED
249 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS
250 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED
251 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS
252 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED
253 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS
254 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED
255 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS
256 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED
257 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS
258 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED
259 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS
260 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED.
261 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS
262 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED
263 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL
264 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED
265 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6
266 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
267 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S
268 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
269 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S
270 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
271 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S
272 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 5
PARAM KLM 18-Sep-79 17:16 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979 SEQ 0029
273 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME
274 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD
275 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED
276 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE
277 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD
278 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED
279 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
280 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
281 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE
282 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED
283 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
284 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
285 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL
286
287 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE
288
289 DEFINE PMSG (ARG),<
290 PSIXM [SIXBIT\ARG'_\]>
291
292 DEFINE PMSGF (ARG),<
293 PSIXMF [SIXBIT\ARG'_\]>
294
295 ;SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
296 ; CONSERVES CORE OVER ASCIZ
297
298 DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]>
299
300 ;CONSOLE SWITCH INPUT UUO.
301 ;READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
302 ; USER MODE.
303
304 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES
305
306 ;CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
307 ;EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
308
309 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - PDP-11 CLOCK
310 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - DK20 METER
311
312 ;KL10 ONLY CACHE OPERATION UUO'S
313
314 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE
315 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH
316 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 6
PARAM KLM 18-Sep-79 17:16 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979 SEQ 0030
317 ;END OF PASS/PROGRAM UUOS
318
319 ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
320 ;DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
321
322 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS
323 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO
324
325 ;MEMORY MANAGEMENT UUO'S
326 ;UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
327 ;ADDRESS CONVERSION, ETC...
328
329 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY
330 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY
331 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT
332 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT
333 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK
334 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP
335 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP
336
337 ;DEVICE CODE MODIFICATION UUO
338 ;ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
339 ;IOT'S TO A DIFFERENT DEVICE CODE.
340
341 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER
342 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM
343
344 030000 IFNDEF MODDVL,<MODDVL==BEGIN>
345 030000 IFNDEF MODDVU,<MODDVU==BEGIN>
346
347 ;"DIAMON" FILE SELECTION AND READ UUOS
348
349 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION
350 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA
351 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA
352 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA
353
354 ;KI10 ONLY UUO FOR PRINTING MARGIN VALUES
355
356 037700 000002 OPDEF PNTMGN [37B8!16B12!2] ;PRINT MARGIN VALUE
357
358 XLIST
359 LIST
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 1
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0031
360 SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979
361
362 030000 LOC 30000
363
364 ; **********************************************************************
365 ;PROGRAM STARTING ADDRESSES
366 ;THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
367 ;NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
368 ;OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
369 ;MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
370 ; **********************************************************************
371
372 030000 254 00 1 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START
373 030001 254 00 0 00 030600 $START: JRST START ;MODE CHECK STARTING ADDRESS
374
375 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START
376
377 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START
378
379 030004 254 00 0 00 030000 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START
380
381 030005 254 00 0 00 030076 PFSTRT: JRST SADR2 ;POWER FAIL RESTART
382
383 030006 254 00 0 00 030714 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY)
384
385 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT"
386 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START
387
388 030010 254 00 0 00 030666 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE)
389 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE
390 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE
391
392 030013 254200 030000 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS
393 030014 254200 030000 START2: SADR8 ; "
394 030015 254200 030000 START3: SADR9 ; "
395 030016 254200 030000 START4: SADR10 ; "
396 030017 254200 030000 START5: SADR11 ; "
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 2
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0032
397 ; **********************************************************************
398 ;PROGRAM FIXED PARAMETER AREA
399 ; **********************************************************************
400
401 030020 444653 424200 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME
402 030021 645560 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION
403 030022 123457 654321 RANDBS: PAREA1 ;RANDOM BASE NUMBER
404 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES
405 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS
406 030025 000000 030716 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME
407 030026 000000 000002 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL
408 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT
409 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT
410 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED
411 030032 000000 000000 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED
412 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE
413 030034 777777 777777 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS
414 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER
415 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER
416
417 ; **********************************************************************
418 ;PROGRAM VARIABLE PARAMETER AREA
419 ; **********************************************************************
420
421 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG
422 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10
423 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
424 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG
425 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG
426 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10
427 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG
428 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS
429 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT
430 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG
431 030051 000000 000000 TESTPC: 0 ;SUBTEST PC
432 030052 000000 000000 ERRPC: 0 ;ERROR PC
433 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS
434 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME
435 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE
436 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 3
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0033
437 ; **********************************************************************
438 ;SPECIAL PROGRAM DISPATCH ADDRESSES
439 ; **********************************************************************
440
441 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS
442 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM
443 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN
444 030062 000000 030000 CNTLC: SADR5 ;CONTROL C XFER ADDRESS
445 030063 000000 030000 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS
446 030064 CPOPJ1: ;SKIP RETURN
447 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO
448 030065 CPOPJ: ;NON-SKIP REGULAR RETURN
449 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN
450 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE
451 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE
452 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX)
453 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE
454 030072 255 00 0 00 000000 $ITRX1: JFCL ; "
455 030073 255 00 0 00 000000 $USRHL: JFCL ; "
456 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE
457 030075 255 00 0 00 000000 $RSRTY: JFCL ; "
458 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX)
459 030077 255 00 0 00 000000 RESRT2: JFCL ; "
460 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE
461 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE
462 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT
463
464 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR)
465 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT
466 030105 000000 000000 0 ;INITED AS (JRST $ITRC1)
467
468 ; **********************************************************************
469 ;PROCESSOR CONTROL STORAGE
470 ; **********************************************************************
471
472 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0
473 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI
474 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR
475 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI)
476 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI)
477
478 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO
479 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO
480
481 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS
482 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG
483 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG
484 030120 000000 000000 %COREC: 0 ; " CORRECT DATA
485 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG
486 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA
487 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 4
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0034
488 ; **********************************************************************
489 ;UUO DISPATCH TABLE
490 ; **********************************************************************
491 XLIST
492 LIST
493 030124 032641 030070 UUODIS: LUUO1,,$UUOER
494 030125 032641 032641 LUUO3,,LUUO2
495 030126 032641 032641 LUUO5,,LUUO4
496 030127 032641 032641 LUUO7,,LUUO6
497 030130 030070 030070 LUUO11,,LUUO10
498 030131 032641 030070 LUUO13,,LUUO12
499 030132 030070 030070 LUUO15,,LUUO14
500 030133 030070 030070 LUUO17,,LUUO16
501 030134 030070 030070 LUUO21,,LUUO20
502 030135 030070 030070 LUUO23,,LUUO22
503 030136 030070 030070 LUUO25,,LUUO24
504 030137 030070 030070 LUUO27,,LUUO26
505 030140 030070 030070 LUUO31,,LUUO30
506 030141 030070 030070 LUUO33,,LUUO32
507
508 ; **********************************************************************
509 ;MEMORY MANAGMENT STORAGE
510 ; **********************************************************************
511
512 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
513 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
514 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.)
515 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY
516 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE
517
518 ; **********************************************************************
519 ;PRINT CONTROL STORAGE
520 ; **********************************************************************
521
522 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
523 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE
524 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG
525 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS
526 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL
527 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME
528 030225 000000 000000 $TWCNT: 0 ;TIME WAITED
529 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG
530 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG
531 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE
532 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR
533 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR
534 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER
535 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG
536 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG
537 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG
538 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG
539 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS
540 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 5
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0035
541 ; **********************************************************************
542 ;THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
543 ;TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
544 ; MOVEI NAME
545 ; PNTA ;OR PNTAF
546 ; **********************************************************************
547
548 030242 CRLF: ASCII/
549 030242 015 012 000 000 000 /
550 030243 CRLF2: ASCII/
551
552 030243 015 012 015 012 000 /
553 030244 054 000 000 000 000 COMMA: ASCII/,/
554 030245 056 000 000 000 000 PERIOD: ASCII/./
555 030246 040 000 000 000 000 SPACE: ASCII/ /
556 030247 011 000 000 000 000 TAB: ASCII/ /
557 030250 MINUS:
558 030250 055 000 000 000 000 HYPEN: ASCII/-/
559 030251 053 000 000 000 000 PLUS: ASCII/+/
560 030252 052 000 000 000 000 AST: ASCII/*/
561 030253 100 000 000 000 000 ATSIN: ASCII/@/
562 030254 050 000 000 000 000 LFP: ASCII/(/
563 030255 051 000 000 000 000 RTP: ASCII/)/
564 030256 007 0000000000 BELL: BYTE (7) 007
565 030257 077 000 000 000 000 QUEST: ASCII/?/
566 030260 057 000 000 000 000 SLASH: ASCII!/!
567 030261 044 000 000 000 000 DOLLAR: ASCII/$/
568 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX
569 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR
570 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT
571
572 ; **********************************************************************
573 ;USER MODE OUTPUT FILE INFORMATION
574 ; **********************************************************************
575
576 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER
577 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME
578 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION
579 030272 BLOCK 2
580
581 ; **********************************************************************
582 ;DISK UPDATE MODE FILE INFORMATION
583 ; **********************************************************************
584
585 030274 $IBUF: BLOCK 3
586 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/
587 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/
588 030301 BLOCK 2
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 6
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0036
589 ; **********************************************************************
590 ;PUSHDOWN LIST CONTROL INFORMATION
591 ; **********************************************************************
592
593 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST
594 030304 PLISTS: BLOCK 200
595 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST
596
597 ; **********************************************************************
598 ;POWER LINE CLOCK FREQUENCY FLAG
599 ; **********************************************************************
600
601 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE
602
603 ; **********************************************************************
604 ;KL10 CACHE CONTROL FLAGS
605 ; **********************************************************************
606
607 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0
608 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0
609
610 ; **********************************************************************
611 ;NUMBER INPUT DIGIT FLAG
612 ; **********************************************************************
613
614 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED
615
616 ; **********************************************************************
617 ;KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
618 ; **********************************************************************
619
620 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
621
622 ; **********************************************************************
623 ;ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
624 ; **********************************************************************
625
626 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO
627 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO
628 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
629
630 ; **********************************************************************
631 ;SPECIAL USERS UUO INTERCEPT INSTRUCTION
632 ; **********************************************************************
633
634 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 7
FIXED KLM 18-Sep-79 17:18 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, SEPT 18,1979 SEQ 0037
635 ; **********************************************************************
636 ;USER MODE MONITOR TYPE FLAG
637 ; **********************************************************************
638
639 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20
640
641 ; **********************************************************************
642 ;SPECIAL USERS MUUO INTERCEPT INSTRUCTION
643 ; **********************************************************************
644
645 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER
646
647 ; **********************************************************************
648 ;SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
649 ; **********************************************************************
650
651 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
652
653 ; **********************************************************************
654 ;"SWITCH" CALL USAGE CONTROL
655 ; **********************************************************************
656
657 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
658
659 ; **********************************************************************
660 ;SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
661 ; **********************************************************************
662
663 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
664 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
665
666 ; **********************************************************************
667 ;SM10 (KS-10) PROCESSOR TYPE FLAG
668 ; **********************************************************************
669
670 030524 000000 000000 SM10: 0 ;IF -1 THIS IS A KS-10
671
672 ; **********************************************************************
673 ;RIGHT HALF SWITCHES PROMPT TABLE ADDRESS
674 ; **********************************************************************
675
676 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE
677
678 ; **********************************************************************
679 ;SPECIAL FUTURE EXPANSION ROOM
680 ; **********************************************************************
681
682 ; **********************************************************************
683 ;END OF FIXED STORAGE
684 ; **********************************************************************
685
686 030577 LOC 30577
687 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 1
DFKBBM MAC 1-Feb-84 14:34 INITIALIZE PROGRAM SEQ 0038
688 SUBTTL INITIALIZE PROGRAM
689
690 030600 205 00 0 00 255000 START: MOVSI (JFCL)
691 030601 202 00 0 00 030072 MOVEM $ITRX1
692 030602 265 00 0 00 030011 PGMINT ;INITIALIZE SUBROUTINES
693 030603 200 00 0 00 030022 MOVE 0,RANDBS ;EXEC, SETUP RANDOM
694 030604 202 00 0 00 033261 MOVEM 0,RAN ;SETUP RANDOM BASE
695 030605 202 00 0 00 000010 MOVEM 0,RA
696
697 ;*SET PROGRAM UNCACHED
698 ;*IF SWITCH 18 SET, CACHE EVERYTHING
699
700 030606 200 00 0 00 030046 MOVE CONSW
701 030607 602 00 0 00 400000 TRNE 400000 ;SWITCH 18 SET ?
702 030610 254 00 0 00 030626 JRST MEMFD1 ;YES, RUN EVERYTHING CACHED
703
704 030611 201 01 0 00 033310 MOVEI 1,END
705 030612 271 01 0 00 001000 ADDI 1,1000
706 030613 405 01 0 00 777000 ANDI 1,777000
707 030614 242 01 0 00 777766 LSH 1,-^D10
708 030615 210 01 0 00 000001 MOVN 1,1
709 030616 514 01 0 00 000001 HRLZ 1,1
710 030617 200 00 0 00 033117 MOVE [540000,,540001]
711 030620 202 00 0 01 000600 MOVEM 600(1)
712 030621 270 00 0 00 033120 ADD [2,,2]
713 030622 253 01 0 00 030620 AOBJN 1,.-2
714
715 030623 037 02 0 00 000004 CFLUSH ;CLEAN OUT CACHE
716
717 030624 7 010 24 0 00 000001 CONI PAG,1
718 030625 7 010 20 0 01 000000 CONO PAG,(1) ;REENABLE PAGING
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 2
DFKBBM MAC 1-Feb-84 14:34 INITIALIZE PROGRAM SEQ 0039
719 ;*COMPUTE MEMORY SIZE TO BE USED
720
721 030626 037 10 0 00 000002 MEMFD1: SWITCH
722 030627 405 00 0 00 000777 ANDI 0,777
723 030630 336 00 0 00 000000 SKIPN 0 ;MEMORY SIZE SPECIFIED ?
724 030631 254 00 0 00 030647 JRST MEMFD3 ;NO, CHECK RELIAB & OPRSEL SWITCHES
725 030632 242 00 0 00 000011 MEMFD2: LSH 0,9 ;POSITION HIGH ORDER
726 030633 660 00 0 00 000777 TRO 0,777 ;SET LOW ORDER BITS
727 030634 313 00 0 00 030147 CAMLE 0,MEMSIZ+1 ;LESS THAN ACTUAL MEMORY
728 030635 200 00 0 00 030147 MOVE 0,MEMSIZ+1 ;NO, USE ACTUAL MEMORY
729 030636 552 00 0 00 030147 HRRZM 0,MEMSIZ+1 ;SAVE
730 030637 311 00 0 00 030145 CAML 0,MEMLOW ;ENOUGH MEMORY FOR TEST ?
731 030640 254 00 0 00 030654 JRST MEMFD4 ;YES
732 MOVEI [ASCIZ/
733 030641 201 00 0 00 033121 MEMORY SIZE SELECTED TOO SMALL/]
734 030642 037 17 0 00 000001 PNTALF
735 030643 201 00 0 00 030716 MOVEI PGMNAM
736 030644 037 17 0 00 000001 PNTALF
737 030645 037 14 0 00 000004 ERRHLT
738 030646 254 00 0 00 030600 JRST START
739
740 030647 200 00 0 00 030046 MEMFD3: MOVE 0,CONSW
741 030650 603 00 0 00 000410 TLNE RELIAB!OPRSEL ;IF EITHER RELIAB OR OPRSEL SWITCH SET
742 030651 254 00 0 00 030654 JRST MEMFD4 ;USE ALL OF MEMORY
743 030652 201 00 0 00 000077 MOVEI 77 ;OTHERWISE LIMIT MEMORY TO 32K
744 030653 254 00 0 00 030632 JRST MEMFD2
745
746 030654 200 00 0 00 030046 MEMFD4: MOVE 0,CONSW
747 030655 603 00 0 00 000004 TLNE 0,CHAIN ;RUNNING IN CHAIN MODE ?
748 030656 254 00 0 00 030666 JRST STARTA ;YES
749 PMSG <TESTING >^
750 030657 037 02 0 00 033130 PSIXM [SIXBIT\TESTING _\]^
751 030660 200 00 0 00 030147 MOVE MEMSIZ+1
752 030661 271 00 0 00 000001 ADDI 0,1
753 030662 231 00 0 00 002000 IDIVI ^D1024
754 030663 037 15 0 00 000000 PNTDEC ;PRINT MEMORY SIZE BEING USED
755 PMSG <K^>^
756 030664 037 02 0 00 033132 PSIXM [SIXBIT\K^_\]^
757 030665 254 00 0 00 030666 JRST STARTA
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 3
DFKBBM MAC 1-Feb-84 14:34 INITIALIZE PROGRAM SEQ 0040
758 ;*COMPUTE BUFFER SIZE TO BE USED
759
760 030666 205 00 0 00 255000 STARTA: MOVSI (JFCL)
761 030667 202 00 0 00 030072 MOVEM $ITRX1
762
763 030670 200 01 0 00 030147 MST1: MOVE 1,MEMSIZ+1 ;GET MEMORY SIZE
764 030671 210 01 0 00 000001 MOVN 1,1 ;MAKE (AC1) CONTAIN
765 030672 270 01 0 00 030145 ADD 1,MEMLOW ; - HIGHEST MEM LOC + END OF PROG
766 030673 204 01 0 00 000001 MOVS 1,1 ;IN THE LEFT HALF
767 030674 540 01 0 00 030145 HRR 1,MEMLOW ;END OF PROG IN RIGHT HALF
768 030675 202 01 0 00 033253 MOVEM 1,BLOK# ;SAVE
769
770 030676 200 01 0 00 030147 MST2: MOVE 1,MEMSIZ+1
771 030677 204 02 0 00 000001 MOVS 2,1 ;PUT HIGHEST MEMORY LOCATION
772 030700 540 02 0 00 000001 HRR 2,1 ;IN LEFT AND RIGHT HALF
773 030701 202 02 0 00 033257 MOVEM 2,MODULO# ;OF MODULO
774 030702 210 01 0 00 000001 MOVN 1,1 ;MAKE C(AC1) CONTAIN
775 030703 270 01 0 00 030145 ADD 1,MEMLOW ;-HIGHEST MEM LOC + END OF PROGRAM
776 030704 204 01 0 00 000001 MOVS 1,1 ;IN THE LEFT HALF
777 030705 540 01 0 00 030145 HRR 1,MEMLOW ;END OF PROG IN RIGHT HALF
778 030706 202 01 0 00 033267 MOVEM 1,WCBUF# ;SAVE
779 030707 274 01 0 00 033133 SUB 1,[1,,0]
780 030710 202 01 0 00 033254 MOVEM 1,BUFSIZ#
781
782 030711 200 00 0 00 033134 MOVE [JRST $MEMERR]
783 030712 202 00 0 00 030072 MOVEM $ITRX1 ;SETUP SPECIAL INTERRUPT INTERCEPT
784 030713 254 00 0 00 031226 JRST MSADT ;GO PERFORM DIAGNOSTIC
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 4
DFKBBM MAC 1-Feb-84 14:34 INITIALIZE PROGRAM SEQ 0041
785 030714 037 05 0 00 000002 RENTR1: DROPDV ;CLOSE LOGICAL OUTPUT FILE
786 030715 040 00 0 00 033135 CALL [SIXBIT .EXIT.]
787
788 030716 PGMNAM: ASCIZ/
789 030716 015 012 104 105 103 DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2 (DFKBB)
790 030717 123 131 123 124 105
791 030720 115 061 060 040 113
792 030721 114 061 060 040 102
793 030722 101 123 111 103 040
794 030723 111 116 123 124 122
795 030724 125 103 124 111 117
796 030725 116 040 122 105 114
797 030726 111 101 102 111 114
798 030727 111 124 131 040 124
799 030730 105 123 124 040 062
800 030731 040 050 104 106 113
801 030732 102 102 051 015 012 (MEMORY AND BOTH MODES) CACHE RELIABILITY
802 030733 050 115 105 115 117
803 030734 122 131 040 101 116
804 030735 104 040 102 117 124
805 030736 110 040 115 117 104
806 030737 105 123 051 040 103
807 030740 101 103 110 105 040
808 030741 122 105 114 111 101
809 030742 102 111 114 111 124
810 030743 131 015 012 000 000 /
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 5
DFKBBM MAC 1-Feb-84 14:34 $MEMERR - SPECIAL INTERRUPT ERROR PROCESSOR SEQ 0042
811 SUBTTL $MEMERR - SPECIAL INTERRUPT ERROR PROCESSOR
812
813 030744 202 16 0 00 033274 $MEMERR:MOVEM 16,$SV16#
814 030745 200 16 0 00 030110 MOVE 16,$SVAPR
815 030746 606 16 0 00 000400 TRNN 16,LPARER
816 030747 254 00 0 00 031110 JRST $MEME2 ;NOT PARITY ERROR
817
818 030750 700400 000016 700400,,16 ;READ ERA
819 030751 607 16 0 00 004000 TLNN 16,4000
820 030752 254 00 0 00 031110 JRST $MEME2 ;NOT CACHE WRITEBACK
821
822 030753 603 16 0 00 400000 TLNE 16,400000 ;COMPUTE LOW ORDER ADR BITS
823 030754 660 16 0 00 000002 TRO 16,2 ;HACK - FROM BIT 0 & 1
824 030755 603 16 0 00 200000 TLNE 16,200000
825 030756 660 16 0 00 000001 TRO 16,1
826 030757 405 16 0 00 777777 ANDI 16,-1 ;CLEAR UPPER BITS
827 030760 202 16 0 00 033270 MOVEM 16,$MADR# ;SAVE ADDRESS
828
829 030761 200 03 0 16 000000 MOVE 3,(16) ;GET BAD DATA
830 030762 202 03 0 00 033271 MOVEM 3,$MBAD#
831
832 030763 200 16 0 00 033255 MOVE 16,ERRLOP ;COMPUTE TESTING ADDRESS
833 030764 271 16 0 00 000002 ADDI 16,2 ;MAKE "AC-1" INTO "AC1"
834 030765 200 00 0 16 000000 MOVE 0,(16) ;GET TESTING ADDRESS CONTROL WORD
835 030766 306 16 0 00 000016 CAIN 16,16 ;WAS IT IN AC THAT WAS SAVED ?
836 030767 200 00 0 00 033274 MOVE 0,$SV16 ;YES
837 030770 405 00 0 00 777777 ANDI 0,-1
838 030771 202 00 0 00 033273 MOVEM 0,$MTADR# ;SAVE TESTING ADDRESS
839
840 030772 317 00 0 00 033270 CAMG 0,$MADR ;ABOVE OR BELOW FAILING ADDRESS ?
841 030773 254 00 0 00 031024 JRST $MABOVE ;FAIL ADR ABOVE TESTING ADR
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 6
DFKBBM MAC 1-Feb-84 14:34 $MEMERR - SPECIAL INTERRUPT ERROR PROCESSOR SEQ 0043
842 ;*$MBELOW - BELOW SPECIAL PROCESS DISPATCH
843
844 030774 200 04 0 00 030051 $MBELOW:MOVE 4,TESTPC ;TO SPECIAL PROCESS IF NECESSARY
845 030775 306 04 0 00 031226 CAIN 4,MSADT
846 030776 254 00 0 00 031217 JRST $MSADT
847 030777 306 04 0 00 031635 CAIN 4,TST13
848 031000 254 00 0 00 031114 JRST $TST13
849 031001 306 04 0 00 031774 CAIN 4,TST16
850 031002 254 00 0 00 031130 JRST $TST16
851 031003 306 04 0 00 032102 CAIN 4,TST20
852 031004 254 00 0 00 031145 JRST $TST20
853 031005 306 04 0 00 032153 CAIN 4,TST21
854 031006 254 00 0 00 031162 JRST $TST21
855 031007 306 04 0 00 032227 CAIN 4,TST22
856 031010 254 00 0 00 031213 JRST $MEMONE
857 031011 306 04 0 00 032266 CAIN 4,TST23
858 031012 254 00 0 00 031215 JRST $MEMZRO
859 031013 306 04 0 00 032325 CAIN 4,TST24
860 031014 254 00 0 00 031213 JRST $MEMONE
861 031015 306 04 0 00 032364 CAIN 4,TST25
862 031016 254 00 0 00 031215 JRST $MEMZRO
863 031017 306 04 0 00 032423 CAIN 4,TST26
864 031020 254 00 0 00 031213 JRST $MEMONE
865 031021 306 04 0 00 032540 CAIN 4,TST30
866 031022 254 00 0 00 031177 JRST $TST30
867 031023 254 00 0 00 031052 JRST $MEME0
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 7
DFKBBM MAC 1-Feb-84 14:34 $MEMERR - SPECIAL INTERRUPT ERROR PROCESSOR SEQ 0044
868 ;*$MABOVE - ABOVE SPECIAL PROCESS DISPATCH
869
870 031024 200 04 0 00 030051 $MABOVE:MOVE 4,TESTPC ;TO SPECIAL PROCESS IF NECESSARY
871 031025 306 04 0 00 031700 CAIN 4,TST14
872 031026 254 00 0 00 031114 JRST $TST13
873 031027 306 04 0 00 032040 CAIN 4,TST17
874 031030 254 00 0 00 031130 JRST $TST16
875 031031 306 04 0 00 032153 CAIN 4,TST21
876 031032 254 00 0 00 031145 JRST $TST20
877 031033 306 04 0 00 032227 CAIN 4,TST22
878 031034 254 00 0 00 031162 JRST $TST21
879 031035 306 04 0 00 032266 CAIN 4,TST23
880 031036 254 00 0 00 031213 JRST $MEMONE
881 031037 306 04 0 00 032325 CAIN 4,TST24
882 031040 254 00 0 00 031215 JRST $MEMZRO
883 031041 306 04 0 00 032364 CAIN 4,TST25
884 031042 254 00 0 00 031213 JRST $MEMONE
885 031043 306 04 0 00 032423 CAIN 4,TST26
886 031044 254 00 0 00 031215 JRST $MEMZRO
887 031045 306 04 0 00 032477 CAIN 4,TST27
888 031046 254 00 0 00 031213 JRST $MEMONE
889 031047 306 04 0 00 032601 CAIN 4,TST31
890 031050 254 00 0 00 031177 JRST $TST30
891 031051 254 00 0 00 031052 JRST $MEME0
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 8
DFKBBM MAC 1-Feb-84 14:34 $MEMERR - SPECIAL INTERRUPT ERROR PROCESSOR SEQ 0045
892 ;*MOST TESTS HAVE MEMORY = RANDOM
893
894 031052 200 16 0 00 033270 $MEME0: MOVE 16,$MADR
895 031053 370 00 0 00 000016 SOS 16 ;GET PREVIOUS GOOD WORD
896 031054 200 00 0 16 000000 MOVE 0,(16)
897
898 031055 200 02 0 00 033255 MOVE 2,ERRLOP ;GET AC ADDRESS
899 031056 350 00 0 00 000002 AOS 2
900
901 031057 200 01 0 00 000000 MOVE 1,0
902 031060 270 00 0 00 033136 ADD 0,[142536475076]
903 031061 241 00 0 00 777777 ROT 0,-1 ;GENERATE GOOD WORD
904 031062 302 02 0 00 000010 CAIE 2,10 ;ARE AC & RA THE SAME ?
905 031063 447 00 0 00 000001 EQVB 0,1 ;NO
906 031064 306 02 0 00 000010 CAIN 2,10
907 031065 447 00 0 00 000000 EQVB 0,0 ;YES
908 031066 202 00 0 00 033272 MOVEM 0,$MGOOD# ;SAVE GOOD WORD
909
910 ;*PRINT ERROR INFORMATION IN THE FORM
911 ;*FAIL ADR TEST ADR GOOD BAD DIFF
912
913 031067 $MEME1: PNTMSG [ASCIZ/
914 FAIL ADR TEST ADR GOOD BAD DIFF
915 031067 037 00 0 00 033137 /]
916
917 031070 200 00 0 00 033270 MOVE $MADR
918 031071 037 06 0 00 000000 PNT6 ;PRINT FAIL ADDRESS
919 031072 037 00 0 00 033154 PNTMSG [ASCIZ/ /]
920
921 031073 200 00 0 00 033273 MOVE $MTADR
922 031074 037 06 0 00 000000 PNT6 ;PRINT TESTING ADDRESS
923 031075 037 00 0 00 033154 PNTMSG [ASCIZ/ /]
924
925 031076 200 00 0 00 033272 MOVE $MGOOD
926 031077 037 13 0 00 000000 PNTHW ;PRINT GOOD WORD
927 031100 037 00 0 00 033154 PNTMSG [ASCIZ/ /]
928
929 031101 200 00 0 00 033271 MOVE $MBAD
930 031102 037 13 0 00 000000 PNTHW ;PRINT BAD WORD
931 031103 037 00 0 00 033154 PNTMSG [ASCIZ/ /]
932
933 031104 200 00 0 00 033272 MOVE $MGOOD
934 031105 430 00 0 00 033271 XOR $MBAD
935 031106 037 13 0 00 000000 PNTHW ;PRINT DIFFERENCE
936 031107 037 00 0 00 030242 PCRL
937 031110 037 10 0 00 000002 $MEME2: SWITCH
938 031111 603 00 0 00 200000 TLNE RSTART ;RESTART SWITCH SET ?
939 031112 254 00 0 00 030000 JRST BEGIN ;YES, RESTART PROGRAM
940 031113 037 15 0 00 000004 FATAL ;NO, FATAL OUT
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 9
DFKBBM MAC 1-Feb-84 14:34 $MEMERR - SPECIAL INTERRUPT ERROR PROCESSOR SEQ 0046
941 ;*$TST13 - SPECIAL TST13 DATA REGENERATOR
942
943 031114 200 10 0 00 033262 $TST13: MOVE RA,RASV13 ;GET RANDOM
944 031115 200 11 0 00 033246 MOVE 11,ACSV13 ;GET AC
945
946 031116 550 01 0 00 033253 HRRZ 1,BLOK ;COMPUTE COUNT
947 031117 274 01 0 00 033270 SUB 1,$MADR
948
949 031120 270 10 0 00 033136 ADD RA,[142536475076]
950 031121 241 10 0 00 777777 ROT RA,-1
951 031122 447 10 0 00 000011 EQVB RA,11 ;COMPUTE RANDOM
952 031123 202 10 0 00 000002 MOVEM RA,2
953
954 031124 547 11 0 00 000002 HLRS 11,2 ;TEST INSTRUCTIONS
955
956 031125 343 01 0 00 031120 AOJLE 1,.-5 ;DO TILL AT FAILURE ADDRESS
957
958 031126 202 11 0 00 033272 MOVEM 11,$MGOOD ;SAVE GOOD DATA
959 031127 254 00 0 00 031067 JRST $MEME1
960
961 ;*$TST16 - SPECIAL TST16 DATA REGENERATOR
962
963 031130 200 10 0 00 033263 $TST16: MOVE RA,RASV16 ;GET RANDOM
964 031131 200 11 0 00 033247 MOVE 11,ACSV16 ;GET AC
965
966 031132 550 01 0 00 033253 HRRZ 1,BLOK ;COMPUTE COUNT
967 031133 274 01 0 00 033270 SUB 1,$MADR
968
969 031134 270 10 0 00 033136 ADD RA,[142536475076]
970 031135 241 10 0 00 777777 ROT RA,-1
971 031136 447 10 0 00 000011 EQVB RA,11 ;COMPUTE RANDOM
972 031137 202 10 0 00 000002 MOVEM RA,2
973
974 031140 620 11 0 00 400000 TRZ 11,400000
975 031141 621 11 0 00 400000 TLZ 11,400000
976
977 031142 343 01 0 00 031134 AOJLE 1,.-6 ;DO TILL AT FAILURE ADDRESS
978
979 031143 202 11 0 00 033272 MOVEM 11,$MGOOD ;SAVE GOOD DATA
980 031144 254 00 0 00 031067 JRST $MEME1
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 10
DFKBBM MAC 1-Feb-84 14:34 $MEMERR - SPECIAL INTERRUPT ERROR PROCESSOR SEQ 0047
981 ;*$TST20 - SPECIAL TST20 DATA REGENERATOR
982
983 031145 200 10 0 00 033264 $TST20: MOVE RA,RASV20 ;GET RANDOM
984 031146 200 11 0 00 033250 MOVE 11,ACSV20 ;GET AC
985
986 031147 550 01 0 00 033253 HRRZ 1,BLOK ;COMPUTE COUNT
987 031150 274 01 0 00 033270 SUB 1,$MADR
988
989 031151 270 10 0 00 033136 ADD RA,[142536475076]
990 031152 241 10 0 00 777777 ROT RA,-1
991 031153 447 10 0 00 000011 EQVB RA,11 ;COMPUTE RANDOM
992 031154 202 10 0 00 000002 MOVEM RA,2
993
994 031155 562 11 0 00 000002 HRROM 11,2
995 031156 553 11 0 00 000002 HRRZS 11,2
996
997 031157 343 01 0 00 031151 AOJLE 1,.-6 ;DO TILL AT FAILURE ADDRESS
998
999 031160 202 02 0 00 033272 MOVEM 2,$MGOOD ;SAVE GOOD DATA
1000 031161 254 00 0 00 031067 JRST $MEME1
1001
1002 ;*$TST21 - SPECIAL TST21 DATA REGENERATOR
1003
1004 031162 200 10 0 00 033265 $TST21: MOVE RA,RASV21 ;GET RANDOM
1005 031163 200 11 0 00 033251 MOVE 11,ACSV21 ;GET AC
1006
1007 031164 550 01 0 00 033253 HRRZ 1,BLOK ;COMPUTE COUNT
1008 031165 274 01 0 00 033270 SUB 1,$MADR
1009
1010 031166 270 10 0 00 033136 ADD RA,[142536475076]
1011 031167 241 10 0 00 777777 ROT RA,-1
1012 031170 447 10 0 00 000011 EQVB RA,11 ;COMPUTE RANDOM
1013 031171 202 10 0 00 000002 MOVEM RA,2
1014
1015 031172 563 11 0 00 000002 HRROS 11,2
1016 031173 552 11 0 00 000002 HRRZM 11,2
1017
1018 031174 343 01 0 00 031166 AOJLE 1,.-6 ;DO TILL AT FAILURE ADDRESS
1019
1020 031175 202 02 0 00 033272 MOVEM 2,$MGOOD ;SAVE GOOD DATA
1021 031176 254 00 0 00 031067 JRST $MEME1
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 11
DFKBBM MAC 1-Feb-84 14:34 $MEMERR - SPECIAL INTERRUPT ERROR PROCESSOR SEQ 0048
1022 ;*$TST30 - SPECIAL TST30 DATA REGENERATOR
1023
1024 031177 200 10 0 00 033266 $TST30: MOVE RA,RASV30 ;GET RANDOM
1025 031200 200 11 0 00 033252 MOVE 11,ACSV30 ;GET AC
1026
1027 031201 550 01 0 00 033253 HRRZ 1,BLOK ;COMPUTE COUNT
1028 031202 274 01 0 00 033270 SUB 1,$MADR
1029
1030 031203 270 10 0 00 033136 ADD RA,[142536475076]
1031 031204 241 10 0 00 777777 ROT RA,-1
1032 031205 447 10 0 00 000011 EQVB RA,11 ;COMPUTE RANDOM
1033 031206 202 10 0 00 000002 MOVEM RA,2
1034
1035 031207 217 11 0 00 000002 MOVMS 11,2
1036
1037 031210 343 01 0 00 031203 AOJLE 1,.-5 ;DO TILL AT FAILURE ADDRESS
1038
1039 031211 202 11 0 00 033272 MOVEM 11,$MGOOD ;SAVE GOOD DATA
1040 031212 254 00 0 00 031067 JRST $MEME1
1041
1042 ;*$MEMONE - SPECIAL ALL ONES DATA REGENERATOR
1043
1044 031213 476 00 0 00 033272 $MEMONE:SETOM $MGOOD
1045 031214 254 00 0 00 031067 JRST $MEME1
1046
1047 ;*$MEMZRO - SPECIAL ALL ZEROS DATA REGENERATOR
1048
1049 031215 402 00 0 00 033272 $MEMZRO:SETZM $MGOOD
1050 031216 254 00 0 00 031067 JRST $MEME1
1051
1052 ;*$MSADT - SPECIAL MEMORY ADDRESS REGENERATOR
1053
1054 031217 550 01 0 00 033253 $MSADT: HRRZ 1,BLOK ;COMPUTE COUNT
1055 031220 274 01 0 00 033270 SUB 1,$MADR
1056 031221 200 11 0 00 033253 MOVE 11,BLOK
1057 031222 253 11 0 00 031223 AOBJN 11,.+1
1058 031223 343 01 0 00 031222 AOJLE 1,.-1 ;COMPUTE DATA WORD
1059 031224 202 11 0 00 033272 MOVEM 11,$MGOOD
1060 031225 254 00 0 00 031067 JRST $MEME1
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 12
DFKBBM MAC 1-Feb-84 14:34 DIAGNOSTIC SECTION SEQ 0049
1061 SUBTTL DIAGNOSTIC SECTION
1062
1063 LALL
1064 ;*MSADT - FAST ADDRESS TEST TO CHECK MEMORY(S)
1065
1066 000004 AC=4
1067 031226 201 03 0 00 031226 MSADT: MOVEI AC-1,.
1068 031227 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1069 031230 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE WHICH AC IS
1070 031231 202 03 0 00 033255 MOVEM AC-1,ERRLOP# ;USED FOR KEEPING PROG IN LOOP.
1071 031232 400 02 0 00 000000 SETZ 2, ;CLEAR AC2.
1072 031233 200 01 0 00 033253 MOVE 1,BLOK ;MOVE(-TOP+END) END INTO AC1.
1073 031234 7 000 20 0 00 040401 MSADT2: CONO APR,LDPAER!LAPRP1 ;DISABLE PARITY
1074 031235 202 01 0 01 000000 MSADT1: MOVEM 1,(1) ;MOVE TO MEM.
1075 031236 312 01 0 01 000000 CAME 1,(1) ;DOES IT COMPARE?
1076 031237 002 01 0 00 000001 ERRM 1,1 ;NO. PNT ERR MES.
1077 031240 7 000 30 0 00 000400 MSADT4: CONSZ APR,LPARER ;KL10 PARITY ERROR ?
1078 031241 005 01 0 00 033155 ER 1,[ASCII/PAR/]
1079 031242 7 000 20 0 00 020401 CONO APR,LCPAER!LAPRP1
1080 031243 321 03 0 02 031235 MSADT3: JUMPL AC-1,MSADT1(2) ;LOOP ON ERROR SWITCH.
1081 031244 253 01 0 00 031245 AOBJN 1,.+1 ;FIX FOR GREATER THAN 128K MEM
1082 031245 603 01 0 00 770000 TLNE 1,770000
1083 031246 254 00 0 02 031235 JRST MSADT1(2) ;ADD ONE AND TRY NEXT MEM LOC.
1084 031247 431 02 0 00 000001 XORI 2,1 ;THIS MAKES C(AC2)=1 OR 0.
1085 031250 332 00 0 00 000002 SKIPE 2 ;C(AC2)=0?... GONE THROUGH 2 PASSES.
1086 031251 254 00 0 00 031234 JRST MSADT2 ;NO..DO 2ND PASS...JUST COMPARE.
1087 031252 7 000 20 0 00 127761 CONO APR,LAPRAL!LAPRP1
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 13
DFKBBM MAC 1-Feb-84 14:34 DIAGNOSTIC SECTION SEQ 0050
1088 ;*TST1
1089 ;*TEST MOVE, MOVEM, MOVES, HLLM, EXCH. AFTER EXECUTING
1090 ;*THESE 5 INSTRUCTIONS, THE C(AC) AND C(E) SHOULD STILL
1091 ;*=RANDOM NUM.
1092
1093 000010 AC=10
1094 031253 TST1: SETUP^
1095 000011 AC1=<AC+1>&17
1096 000012 AC2=<AC+2>&17
1097 000013 AC3=<AC+3>&17
1098 000014 AC4=<AC+4>&17
1099 031253 201 07 0 00 031253 MOVEI AC-1,.
1100 031254 202 07 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1101 031255 201 07 0 00 000007 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1102 031256 202 07 0 00 033255 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1103 031257 200 11 0 00 033253 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
1104 031260 TST1A: RANDOM^
1105 031260 270 10 0 00 033136 ADD RA,[142536475076]
1106 031261 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
1107 031262 447 10 0 00 000010 EQVB RA,AC ;IN BOTH RA AND AC.
1108 031263 200 10 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
1109 031264 202 10 0 11 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
1110 031265 312 10 0 11 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
1111 031266 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
1112 031267 200 10 0 11 000000 TST1B: MOVE AC,(AC1) ;DO A MOVE...C(AC)+C(E) STAY SAME.
1113 031270 202 10 0 11 000000 MOVEM AC,(AC1) ;DO A MOVEM...C(AC)+C(E) STAY SAME.
1114 031271 203 10 0 11 000000 MOVES AC,(AC1) ;DO A MOVES...C(AC)+C(E) STAY SAME.
1115 031272 502 10 0 11 000000 HLLM AC,(AC1) ;DO A HLLM...C(AC)+C(E) STAY SAME.
1116 031273 250 10 0 11 000000 EXCH AC,(AC1) ;DO AN EXCH...C(AC)+C(E) STAY SAME.
1117 031274 312 10 0 00 000010 CAME AC,RA ;C(AC) SHOULD STILL=RAN. NUM.
1118 031275 001 10 0 00 000010 ERR RA,RA
1119 031276 312 10 0 11 000000 CAME RA,(AC1) ;C(E) SHOULD STILL=RAN.NUM.
1120 031277 002 10 0 00 000010 ERRM RA,RA
1121 031300 321 07 0 00 031263 JUMPL AC-1,TST1B-4 ;LOOP ON ERROR SWITCH
1122 031301 253 11 0 00 031302 AOBJN AC1,.+1
1123 031302 603 11 0 00 770000 TLNE AC1,770000
1124 031303 254 00 0 00 031260 JRST TST1A ;INC. TO TEST NEXT LOC.
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 14
DFKBBM MAC 1-Feb-84 14:34 DIAGNOSTIC SECTION SEQ 0051
1125 ;*TST2
1126 ;*TEST HLLS, HRRM, ANDM, SETAB. AFTER
1127 ;*EXECUTING THESE 4 INSTRUCTIONS, THE C(AC)+C(E)
1128 ;*SHOULD STILL=RANDOM NUM.
1129
1130 000001 AC=1
1131 031304 TST2: SETUP^
1132 000002 AC1=<AC+1>&17
1133 000003 AC2=<AC+2>&17
1134 000004 AC3=<AC+3>&17
1135 000005 AC4=<AC+4>&17
1136 031304 201 00 0 00 031304 MOVEI AC-1,.
1137 031305 202 00 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1138 031306 201 00 0 00 000000 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1139 031307 202 00 0 00 033255 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1140 031310 200 02 0 00 033253 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
1141 031311 TST2A: RANDOM^
1142 031311 270 10 0 00 033136 ADD RA,[142536475076]
1143 031312 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
1144 031313 447 10 0 00 000001 EQVB RA,AC ;IN BOTH RA AND AC.
1145 031314 200 01 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
1146 031315 202 10 0 02 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
1147 031316 312 10 0 02 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
1148 031317 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
1149 031320 503 01 0 02 000000 TST2B: HLLS AC,(AC1) ;DO A HLLS INST...C(AC)+C(E) STAY SAME
1150 031321 542 01 0 02 000000 HRRM AC,(AC1) ;DO A HRRM INST...C(AC)+C(E) STAY SAME
1151 031322 406 01 0 02 000000 ANDM AC,(AC1) ;DO A HRRS INST...C(AC)+C(E) STAY SAME
1152 031323 427 01 0 02 000000 SETAB AC,(AC1) ;DO A SETMM INST...C(AC)+C(E) STAY SAME.
1153 031324 312 01 0 00 000010 CAME AC,RA ;C(AC) SHOULD STILL=RAN. NUM
1154 031325 001 10 0 00 000010 ERR RA,RA
1155 031326 312 10 0 02 000000 CAME RA,(AC1) ;C(E) SHOULD STILL=RAN NUM
1156 031327 002 10 0 00 000010 ERRM RA,RA
1157 031330 321 00 0 00 031314 JUMPL AC-1,TST2B-4 ;LOOP ON ERROR SWITCH
1158 031331 253 02 0 00 031332 AOBJN AC1,.+1
1159 031332 603 02 0 00 770000 TLNE AC1,770000
1160 031333 254 00 0 00 031311 JRST TST2A ;INC TO TEST NEXT LOC.
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 15
DFKBBM MAC 1-Feb-84 14:34 DIAGNOSTIC SECTION SEQ 0052
1161 ;*TST3
1162 ;*TEST SETMB, HRRS, IORB, SETAM, SETMM. AFTER
1163 ;*EXECUTING THESE 5 INSTRUCTIONS, THE C(AC)+C(E)
1164 ;*SHOULD STILL=RANDOM NUMBER
1165
1166 000002 AC=2
1167 031334 TST3: SETUP^
1168 000003 AC1=<AC+1>&17
1169 000004 AC2=<AC+2>&17
1170 000005 AC3=<AC+3>&17
1171 000006 AC4=<AC+4>&17
1172 031334 201 01 0 00 031334 MOVEI AC-1,.
1173 031335 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1174 031336 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1175 031337 202 01 0 00 033255 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1176 031340 200 03 0 00 033253 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
1177 031341 TST3A: RANDOM^
1178 031341 270 10 0 00 033136 ADD RA,[142536475076]
1179 031342 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
1180 031343 447 10 0 00 000002 EQVB RA,AC ;IN BOTH RA AND AC.
1181 031344 200 02 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
1182 031345 202 10 0 03 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
1183 031346 312 10 0 03 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
1184 031347 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
1185 031350 417 02 0 03 000000 TST3B: SETMB AC,(AC1) ;DO A SETMB. INST...C(AC)+C(E) STAY SAME
1186 031351 543 02 0 03 000000 HRRS AC,(AC1) ;DO AN ANDM INST...C(AC)+C(E) STAY SAME
1187 031352 437 02 0 03 000000 IORB AC,(AC1) ;DO AN ANDB INST...C(AC)+C(E) STAY SAME
1188 031353 426 02 0 03 000000 SETAM AC,(AC1) ;DO A SETAM INST...C(AC)+C(E) STAY SAME
1189 031354 416 02 0 03 000000 SETMM AC,(AC1) ;DO A SETAB INST...C(AC)+C(E) STAY SAME
1190 031355 312 02 0 00 000010 CAME AC,RA ;C(AC) SHOULD STILL=RAN. NUM.
1191 031356 001 10 0 00 000010 ERR RA,RA
1192 031357 312 10 0 03 000000 CAME RA,(AC1) ;C(E) SHOULD STILL=RAN. NUM.
1193 031360 002 10 0 00 000010 ERRM RA,RA
1194 031361 321 01 0 00 031344 JUMPL AC-1,TST3B-4 ;LOOP ON ERROR SWITCH
1195 031362 253 03 0 00 031363 AOBJN AC1,.+1
1196 031363 603 03 0 00 770000 TLNE AC1,770000
1197 031364 254 00 0 00 031341 JRST TST3A ;INC TO TEST NEXT LOC.
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 16
DFKBBM MAC 1-Feb-84 14:34 DIAGNOSTIC SECTION SEQ 0053
1198 ;*TST4
1199 ;*TEST IORM, ANDB, SETCMM, SETCMB. AFTER
1200 ;*EXECUTING THESE 4 INSTRUCTIONS, THE C(AC)+C(E)
1201 ;*SHOULD STILL=RANDOM NUMBER.
1202
1203 000003 AC=3
1204 031365 TST4: SETUP^
1205 000004 AC1=<AC+1>&17
1206 000005 AC2=<AC+2>&17
1207 000006 AC3=<AC+3>&17
1208 000007 AC4=<AC+4>&17
1209 031365 201 02 0 00 031365 MOVEI AC-1,.
1210 031366 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1211 031367 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1212 031370 202 02 0 00 033255 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1213 031371 200 04 0 00 033253 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
1214 031372 TST4A: RANDOM^
1215 031372 270 10 0 00 033136 ADD RA,[142536475076]
1216 031373 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
1217 031374 447 10 0 00 000003 EQVB RA,AC ;IN BOTH RA AND AC.
1218 031375 200 03 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
1219 031376 202 10 0 04 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
1220 031377 312 10 0 04 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
1221 031400 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
1222 ;IF ORIGIN C(AC)=0011,C(E)=0011
1223 031401 436 03 0 04 000000 TST4B: IORM AC,(AC1) ;C(AC)=0011, C(E)=0011
1224 031402 407 03 0 04 000000 ANDB AC,(AC1) ;C(AC)=0011, C(E)=0011
1225 031403 462 03 0 04 000000 SETCMM AC,(AC1) ;C(AC)=0011, C(E)=1100
1226 031404 463 03 0 04 000000 SETCMB AC,(AC1) ;C(AC)=0011, C(E)=0011
1227 031405 312 03 0 00 000010 CAME AC,RA ;C(AC) SHOULD STILL=RAN. NUM.
1228 031406 001 10 0 00 000010 ERR RA,RA
1229 031407 312 10 0 04 000000 CAME RA,(AC1) ;C(E) SHOULD STILL=RAN. NUM.
1230 031410 002 10 0 00 000010 ERRM RA,RA
1231 031411 321 02 0 00 031375 JUMPL AC-1,TST4B-4 ;LOOP ON ERROR SWITCH
1232 031412 253 04 0 00 031413 AOBJN AC1,.+1
1233 031413 603 04 0 00 770000 TLNE AC1,770000
1234 031414 254 00 0 00 031372 JRST TST4A ;INC TO TEST NEXT LOC.
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 17
DFKBBM MAC 1-Feb-84 14:34 DIAGNOSTIC SECTION SEQ 0054
1235 ;*TST5
1236 ;*TEST MOVSM, MOVSS, MOVNM, MOVNS. AFTER
1237 ;*EXECUTING THESE 4 INSTRUCTIONS, THE C(AC)+C(E)
1238 ;*SHOULD STILL=RANDOM NUMBER
1239
1240 000004 AC=4
1241 031415 TST5: SETUP^
1242 000005 AC1=<AC+1>&17
1243 000006 AC2=<AC+2>&17
1244 000007 AC3=<AC+3>&17
1245 000010 AC4=<AC+4>&17
1246 031415 201 03 0 00 031415 MOVEI AC-1,.
1247 031416 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1248 031417 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1249 031420 202 03 0 00 033255 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1250 031421 200 05 0 00 033253 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
1251 031422 TST5A: RANDOM^
1252 031422 270 10 0 00 033136 ADD RA,[142536475076]
1253 031423 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
1254 031424 447 10 0 00 000004 EQVB RA,AC ;IN BOTH RA AND AC.
1255 031425 200 04 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
1256 031426 202 10 0 05 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
1257 031427 312 10 0 05 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
1258 031430 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
1259 ;IF C(AC)+C(E)=(0011)0101
1260 031431 206 04 0 05 000000 TST5B: MOVSM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0101)0011
1261 031432 207 04 0 05 000000 MOVSS AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0011)0101
1262 031433 212 04 0 05 000000 MOVNM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(1100)1011
1263 031434 213 04 0 05 000000 MOVNS AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0011)0101
1264 031435 312 04 0 00 000010 CAME AC,RA ;C(AC) SHOULD STILL=RAN. NUM
1265 031436 001 10 0 00 000010 ERR RA,RA
1266 031437 312 10 0 05 000000 CAME RA,(AC1) ;C(E) SHOULD STILL=RAN. NUM.
1267 031440 002 10 0 00 000010 ERRM RA,RA
1268 031441 321 03 0 00 031425 JUMPL AC-1,TST5B-4 ;LOOP ON ERROR SWITCH
1269 031442 253 05 0 00 031443 AOBJN AC1,.+1
1270 031443 603 05 0 00 770000 TLNE AC1,770000
1271 031444 254 00 0 00 031422 JRST TST5A ;INC TO TEST NEXT LOC.
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 18
DFKBBM MAC 1-Feb-84 14:34 DIAGNOSTIC SECTION SEQ 0055
1272 ;*TST6
1273 ;*TEST HRLM, HLRN, MOVSS, XORM, XORB. AFTER
1274 ;*EXECUTING THESE 5 INSTRUCTIONS, THE C(AC)+C(E)
1275 ;*SHOULD STILL=RANDOM NUMBER.
1276
1277 000005 AC=5
1278 031445 TST6: SETUP^
1279 000006 AC1=<AC+1>&17
1280 000007 AC2=<AC+2>&17
1281 000010 AC3=<AC+3>&17
1282 000011 AC4=<AC+4>&17
1283 031445 201 04 0 00 031445 MOVEI AC-1,.
1284 031446 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1285 031447 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1286 031450 202 04 0 00 033255 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1287 031451 200 06 0 00 033253 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
1288 031452 TST6A: RANDOM^
1289 031452 270 10 0 00 033136 ADD RA,[142536475076]
1290 031453 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
1291 031454 447 10 0 00 000005 EQVB RA,AC ;IN BOTH RA AND AC.
1292 031455 200 05 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
1293 031456 202 10 0 06 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
1294 031457 312 10 0 06 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
1295 031460 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
1296 ;IF C(AC)+C(E)=(0011)0101
1297 031461 506 05 0 06 000000 TST6B: HRLM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0101)0101
1298 031462 546 05 0 06 000000 HLRM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0101)0011
1299 031463 207 05 0 06 000000 MOVSS AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0011)0101
1300 031464 432 05 0 06 000000 XORM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0000)0000
1301 031465 433 05 0 06 000000 XORB AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0011)0101
1302 031466 312 05 0 00 000010 CAME AC,RA ;C(AC) SHOULD STILL=RAN. NUM
1303 031467 001 10 0 00 000010 ERR RA,RA
1304 031470 312 10 0 06 000000 CAME RA,(AC1) ;C(E) SHOULD STILL=RAN. NUM.
1305 031471 002 10 0 00 000010 ERRM RA,RA
1306 031472 321 04 0 00 031455 JUMPL AC-1,TST6B-4 ;LOOP ON ERROR SWITCH.
1307 031473 253 06 0 00 031474 AOBJN AC1,.+1
1308 031474 603 06 0 00 770000 TLNE AC1,770000
1309 031475 254 00 0 00 031452 JRST TST6A ;INC TO TEST NEXT LOC.
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 19
DFKBBM MAC 1-Feb-84 14:34 DIAGNOSTIC SECTION SEQ 0056
1310 ;*TST7
1311 ;*TEST EQVM, ORCMM, ORCAM, EQVB. AFTER
1312 ;*EXECUTING THESE 4 INSTRUCTIONS, THE C(AC)+
1313 ;*C(E) SHOULD STILL=RANDOM NUMBER
1314
1315 000006 AC=6
1316 031476 TST7: SETUP^
1317 000007 AC1=<AC+1>&17
1318 000010 AC2=<AC+2>&17
1319 000011 AC3=<AC+3>&17
1320 000012 AC4=<AC+4>&17
1321 031476 201 05 0 00 031476 MOVEI AC-1,.
1322 031477 202 05 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1323 031500 201 05 0 00 000005 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1324 031501 202 05 0 00 033255 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1325 031502 200 07 0 00 033253 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
1326 031503 TST7A: RANDOM^
1327 031503 270 10 0 00 033136 ADD RA,[142536475076]
1328 031504 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
1329 031505 447 10 0 00 000006 EQVB RA,AC ;IN BOTH RA AND AC.
1330 031506 200 06 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
1331 031507 202 10 0 07 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
1332 031510 312 10 0 07 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
1333 031511 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
1334 ;IF C(AC)+C(E)=(0011)0101
1335 031512 446 06 0 07 000000 TST7B: EQVM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(1111)1111
1336 031513 466 06 0 07 000000 ORCMM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0011)0101
1337 031514 456 06 0 07 000000 ORCAM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(1111)1111
1338 031515 447 06 0 07 000000 EQVB AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0011)0101
1339 031516 312 06 0 00 000010 CAME AC,RA ;C(AC) SHOULD STILL=RAN. NUM
1340 031517 001 10 0 00 000010 ERR RA,RA
1341 031520 312 10 0 07 000000 CAME RA,(AC1) ;C(E) SHOULD STILL=RAN. NUM
1342 031521 002 10 0 00 000010 ERRM RA,RA
1343 031522 321 05 0 00 031506 JUMPL AC-1,TST7B-4 ;LOOP ON ERROR SWITCH.
1344 031523 253 07 0 00 031524 AOBJN AC1,.+1
1345 031524 603 07 0 00 770000 TLNE AC1,770000
1346 031525 254 00 0 00 031503 JRST TST7A ;INC TO TEST NEXT LOC.
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 20
DFKBBM MAC 1-Feb-84 14:34 DIAGNOSTIC SECTION SEQ 0057
1347 ;*TST10
1348 ;*TEST ANDCAM, ANDCMM, ANDCBB, SETCAB. AFTER
1349 ;*EXECUTING THESE 4 INSTRUCTIONS, THE C(AC)+
1350 ;*C(E) SHOULD STILL=RANDOM NUMBER.
1351
1352 000012 AC=12
1353 031526 TST10: SETUP^
1354 000013 AC1=<AC+1>&17
1355 000014 AC2=<AC+2>&17
1356 000015 AC3=<AC+3>&17
1357 000016 AC4=<AC+4>&17
1358 031526 201 11 0 00 031526 MOVEI AC-1,.
1359 031527 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1360 031530 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1361 031531 202 11 0 00 033255 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1362 031532 200 13 0 00 033253 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
1363 031533 TST10A: RANDOM^
1364 031533 270 10 0 00 033136 ADD RA,[142536475076]
1365 031534 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
1366 031535 447 10 0 00 000012 EQVB RA,AC ;IN BOTH RA AND AC.
1367 031536 200 12 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
1368 031537 202 10 0 13 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
1369 031540 312 10 0 13 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
1370 031541 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
1371 ;IF C(AC)+C(E)=(0011)0101,
1372 031542 412 12 0 13 000000 TST10B: ANDCAM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0000)0000
1373 031543 422 12 0 13 000000 ANDCMM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0011)0101
1374 031544 443 12 0 13 000000 ANDCBB AC,(AC1) ;C(AC)=(1100)1010, C(E)=(1100)1010
1375 031545 453 12 0 13 000000 SETCAB AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0011)0101
1376 031546 312 12 0 00 000010 CAME AC,RA ;C(AC) SHOULD STILL=RAN. NUM.
1377 031547 001 10 0 00 000010 ERR RA,RA
1378 031550 312 10 0 13 000000 CAME RA,(AC1) ;C(E) SHOULD STILL=RAN. NUM.
1379 031551 002 10 0 00 000010 ERRM RA,RA
1380 031552 321 11 0 00 031536 JUMPL AC-1,TST10B-4 ;LOOP ON ERROR SWITCH.
1381 031553 253 13 0 00 031554 AOBJN AC1,.+1
1382 031554 603 13 0 00 770000 TLNE AC1,770000
1383 031555 254 00 0 00 031533 JRST TST10A ;INC TO TEST NEXT LOC.
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 21
DFKBBM MAC 1-Feb-84 14:34 DIAGNOSTIC SECTION SEQ 0058
1384 ;*TST11
1385 ;*TEST SETCAM, ORCAB, ORCBM, AND CAB, AFTER
1386 ;*EXECUTING THESE 4 INSTRUCTIONS, THE C(AC)+
1387 ;*C(E) SHOULD STILL=RANDOM NUMBER.
1388
1389 000012 AC=12
1390 031556 TST11: SETUP^
1391 000013 AC1=<AC+1>&17
1392 000014 AC2=<AC+2>&17
1393 000015 AC3=<AC+3>&17
1394 000016 AC4=<AC+4>&17
1395 031556 201 11 0 00 031556 MOVEI AC-1,.
1396 031557 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1397 031560 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1398 031561 202 11 0 00 033255 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1399 031562 200 13 0 00 033253 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
1400 031563 TST11A: RANDOM^
1401 031563 270 10 0 00 033136 ADD RA,[142536475076]
1402 031564 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
1403 031565 447 10 0 00 000012 EQVB RA,AC ;IN BOTH RA AND AC.
1404 031566 200 12 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
1405 031567 202 10 0 13 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
1406 031570 312 10 0 13 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
1407 031571 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
1408 ;IF C(AC)+C(E)=(0011)0101,
1409 031572 452 12 0 13 000000 TST11B: SETCAM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(1100)1010
1410 031573 457 12 0 13 000000 ORCAB AC,(AC1) ;C(AC)=(1100)1010, C(E)=(1100)1010
1411 031574 472 12 0 13 000000 ORCBM AC,(AC1) ;C(AC)=(1100)1010, C(E)=(0011)0101
1412 031575 413 12 0 13 000000 ANDCAB AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0011)0101
1413 031576 312 12 0 00 000010 CAME AC,RA ;C(AC) SHOULD STILL=RAN. NUM.
1414 031577 001 10 0 00 000010 ERR RA,RA
1415 031600 312 10 0 13 000000 CAME RA,(AC1) ;C(E) SHOULD STILL=RAN. NUM.
1416 031601 002 10 0 00 000010 ERRM RA,RA
1417 031602 321 11 0 00 031566 JUMPL AC-1,TST11B-4 ;LOOP ON ERROR SWITCH.
1418 031603 253 13 0 00 031604 AOBJN AC1,.+1
1419 031604 603 13 0 00 770000 TLNE AC1,770000
1420 031605 254 00 0 00 031563 JRST TST11A ;INC TO TEST NEXT LOC.
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 22
DFKBBM MAC 1-Feb-84 14:34 DIAGNOSTIC SECTION SEQ 0059
1421 ;*TST12
1422 ;*TEST SETZM, ANDCBM, ORCMB. AFTER
1423 ;*EXECUTING THESE 3 INSTRUCTIONS, THE C(AC)
1424 ;*+C(E) SHOULD=RANDOM NUMBER.
1425
1426 000013 AC=13
1427 031606 TST12: SETUP^
1428 000014 AC1=<AC+1>&17
1429 000015 AC2=<AC+2>&17
1430 000016 AC3=<AC+3>&17
1431 000017 AC4=<AC+4>&17
1432 031606 201 12 0 00 031606 MOVEI AC-1,.
1433 031607 202 12 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1434 031610 201 12 0 00 000012 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1435 031611 202 12 0 00 033255 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1436 031612 200 14 0 00 033253 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
1437 031613 TST12A: RANDOM^
1438 031613 270 10 0 00 033136 ADD RA,[142536475076]
1439 031614 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
1440 031615 447 10 0 00 000013 EQVB RA,AC ;IN BOTH RA AND AC.
1441 031616 200 13 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
1442 031617 202 10 0 14 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
1443 031620 312 10 0 14 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
1444 031621 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
1445 ;IF C(AC(+C(E)=(0011)0101
1446 031622 402 13 0 14 000000 TST12B: SETZM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0000)0000
1447 031623 442 13 0 14 000000 ANDCBM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(1100)1010
1448 031624 467 13 0 14 000000 ORCMB AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0011)0101
1449 031625 312 13 0 00 000010 CAME AC,RA ;C(AC) SHOULD STILL=RAN. NUM.
1450 031626 001 10 0 00 000010 ERR RA,RA
1451 031627 312 10 0 14 000000 CAME RA,(AC1) ;C(E) SHOULD STILL=RAN. NUM.
1452 031630 002 10 0 00 000010 ERRM RA,RA
1453 031631 321 12 0 00 031616 JUMPL AC-1,TST12B-4 ;LOOP ON ERROR SWITCH.
1454 031632 253 14 0 00 031633 AOBJN AC1,.+1
1455 031633 603 14 0 00 770000 TLNE AC1,770000
1456 031634 254 00 0 00 031613 JRST TST12A ;INC TO TEST NEXT LOC.
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 23
DFKBBM MAC 1-Feb-84 14:34 DIAGNOSTIC SECTION SEQ 0060
1457 ;*TST13
1458 ;*TEST HRLS, HLRS. CHECK FOR
1459 ;*CORRECT DATA IN THE C(AC) AND C(E).
1460 ;*C(AC)+C(E)=RAN. NUM.
1461
1462 000001 AC=1
1463 031635 TST13: SETUP^
1464 000002 AC1=<AC+1>&17
1465 000003 AC2=<AC+2>&17
1466 000004 AC3=<AC+3>&17
1467 000005 AC4=<AC+4>&17
1468 031635 201 00 0 00 031635 MOVEI AC-1,.
1469 031636 202 00 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1470 031637 201 00 0 00 000000 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1471 031640 202 00 0 00 033255 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1472 031641 200 02 0 00 033253 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
1473 031642 202 10 0 00 033262 MOVEM RA,RASV13#
1474 031643 202 01 0 00 033246 MOVEM AC,ACSV13#
1475 031644 TST13A: RANDOM^
1476 031644 270 10 0 00 033136 ADD RA,[142536475076]
1477 031645 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
1478 031646 447 10 0 00 000001 EQVB RA,AC ;IN BOTH RA AND AC.
1479 031647 200 01 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
1480 031650 202 10 0 02 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
1481 031651 312 10 0 02 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
1482 031652 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
1483 031653 205 03 0 10 000000 TST13B: MOVSI AC2,(RA) ;SIMULAT A
1484 031654 435 03 0 10 000000 IORI AC2,(RA) ;HRLS INST.
1485 031655 507 01 0 02 000000 HRLS AC,(AC1) ;DO A HRLS
1486 031656 312 01 0 02 000000 CAME AC,(AC1) ;C(AC) SHOULD=C(E).
1487 031657 001 10 0 00 000010 ERR RA,RA
1488 031660 312 03 0 02 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
1489 031661 002 10 0 00 000010 ERRM RA,RA
1490 031662 204 04 0 00 000010 MOVS AC3,RA ;SIMULATE
1491 031663 205 03 0 04 000000 MOVSI AC2,(AC3) ;A
1492 031664 435 03 0 04 000000 IORI AC2,(AC3) ;HLRS INST.
1493 031665 200 01 0 00 000010 MOVE AC,RA ;RESTORE C(AC).
1494 031666 202 01 0 02 000000 MOVEM AC,(AC1) ;RESTORE C(E).
1495 031667 547 01 0 02 000000 HLRS AC,(AC1) ;DO A HLRS INST.
1496 031670 312 01 0 02 000000 CAME AC,(AC1) ;C(AC) SHOULD=C(E).
1497 031671 001 10 0 00 000010 ERR RA,RA
1498 031672 312 03 0 02 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
1499 031673 002 10 0 00 000010 ERRM RA,RA
1500 031674 321 00 0 00 031647 JUMPL AC-1,TST13B-4 ;LOOP ON ERROR SWITCH.
1501 031675 253 02 0 00 031676 AOBJN AC1,.+1
1502 031676 603 02 0 00 770000 TLNE AC1,770000
1503 031677 254 00 0 00 031644 JRST TST13A ;INC TO TEST NEXT LOC.
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 24
DFKBBM MAC 1-Feb-84 14:34 DIAGNOSTIC SECTION SEQ 0061
1504 ;*TST14
1505 ;*TEST HRLZM, HLRZS, HLRZM, HRLZS. CHECK
1506 ;*FOR CORRECT DATA IN THE C(AC)+C(E).
1507 ;*C(AC)+C(E)=RAN. NUM.
1508
1509 000014 AC=14
1510 031700 TST14: SETUP^
1511 000015 AC1=<AC+1>&17
1512 000016 AC2=<AC+2>&17
1513 000017 AC3=<AC+3>&17
1514 000000 AC4=<AC+4>&17
1515 031700 201 13 0 00 031700 MOVEI AC-1,.
1516 031701 202 13 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1517 031702 201 13 0 00 000013 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1518 031703 202 13 0 00 033255 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1519 031704 200 15 0 00 033253 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
1520 031705 TST14A: RANDOM^
1521 031705 270 10 0 00 033136 ADD RA,[142536475076]
1522 031706 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
1523 031707 447 10 0 00 000014 EQVB RA,AC ;IN BOTH RA AND AC.
1524 031710 200 14 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
1525 031711 202 10 0 15 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
1526 031712 312 10 0 15 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
1527 031713 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
1528 ;IF C(AC)+C(E)=(0011)0101
1529 031714 516 14 0 15 000000 TST14B: HRLZM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0101)000
1530 031715 557 00 0 15 000000 HLRZS 0,(AC1) ;C(AC)=(0011)0101,C(E)=(0000)0101
1531 031716 502 14 0 15 000000 HLLM AC,(AC1) ;C(AC)=(0011)0101,C(E)=(0011)0101
1532 031717 312 14 0 00 000010 CAME AC,RA ;C(AC)SHOULD=RAN. NUM.
1533 031720 001 10 0 00 000010 ERR RA,RA
1534 031721 312 10 0 15 000000 CAME RA,(AC1) ;C(E) SHOULD=RAN. NUM.
1535 031722 002 10 0 00 000010 ERRM RA,RA
1536 031723 556 14 0 15 000000 HLRZM AC,(AC1) ;C(AC)=(0011)0101,C(E)=(0000)0011
1537 031724 517 00 0 15 000000 HRLZS 0,(AC1) ;C(AC)=(0011)0101,C(E)=(0011)0000
1538 031725 542 14 0 15 000000 HRRM AC,(AC1) ;C(AC)=(0011)0101,C(E)=)0011)0101
1539 031726 312 14 0 00 000010 CAME AC,RA ;C(AC)SHOULD=RAN. NUM.
1540 031727 001 10 0 00 000010 ERR RA,RA
1541 031730 312 10 0 15 000000 CAME RA,(AC1) ;C(E)SHOULD=RAN. NUM.
1542 031731 002 10 0 00 000010 ERRM RA,RA
1543 031732 321 13 0 00 031710 JUMPL AC-1,TST14B-4 ;LOOP ON ERROR SWITCH.
1544 031733 253 15 0 00 031734 AOBJN AC1,.+1
1545 031734 603 15 0 00 770000 TLNE AC1,770000
1546 031735 254 00 0 00 031705 JRST TST14A ;INC TO TEST NEXT LOC.
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 25
DFKBBM MAC 1-Feb-84 14:34 DIAGNOSTIC SECTION SEQ 0062
1547 ;*TST15
1548 ;*TEST HRLOM, HLROS, HLROM, HRLOS. CHECK FOR
1549 ;*CORRECT DATA IN THE C(AC)+C(E).
1550 ;*C(AC)+C(E)=RAN. NUM.
1551
1552 000015 AC=15
1553 031736 TST15: SETUP^
1554 000016 AC1=<AC+1>&17
1555 000017 AC2=<AC+2>&17
1556 000000 AC3=<AC+3>&17
1557 000001 AC4=<AC+4>&17
1558 031736 201 14 0 00 031736 MOVEI AC-1,.
1559 031737 202 14 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1560 031740 201 14 0 00 000014 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1561 031741 202 14 0 00 033255 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1562 031742 200 16 0 00 033253 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
1563 031743 TST15A: RANDOM^
1564 031743 270 10 0 00 033136 ADD RA,[142536475076]
1565 031744 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
1566 031745 447 10 0 00 000015 EQVB RA,AC ;IN BOTH RA AND AC.
1567 031746 200 15 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
1568 031747 202 10 0 16 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
1569 031750 312 10 0 16 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
1570 031751 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
1571 ;IF C(AC)+C(E)=(0011)0101
1572 031752 526 15 0 16 000000 TST15B: HRLOM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0101)1111
1573 031753 567 00 0 16 000000 HLROS 0,(AC1) ;C(AC)=)0011)0101, C(E)=(1111)0101
1574 031754 502 15 0 16 000000 HLLM AC,(AC1) ;C(E)=(0011)0101, C(E)=(0011)0101
1575 031755 312 15 0 00 000010 CAME AC,RA ;C(AC) SHOULD=RAN. NUM.
1576 031756 001 10 0 00 000010 ERR RA,RA
1577 031757 312 10 0 16 000000 CAME RA,(AC1) ;C(E) SHOULD=RAN. NUM.
1578 031760 002 10 0 00 000010 ERRM RA,RA
1579 031761 566 15 0 16 000000 HLROM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(1111)0011
1580 031762 527 00 0 16 000000 HRLOS 0,(AC1) ;C(E)=(0011)1111
1581 031763 542 15 0 16 000000 HRRM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0011)0101
1582 031764 312 15 0 00 000010 CAME AC,RA ;C(AC) SHOULD=RAN. NUM.
1583 031765 001 10 0 00 000010 ERR RA,RA
1584 031766 312 10 0 16 000000 CAME RA,(AC1) ;C(E) SHOULD = RAN. NUM.
1585 031767 002 10 0 00 000010 ERRM RA,RA
1586 031770 321 14 0 00 031746 JUMPL AC-1,TST15B-4 ;LOOP ON ERROR SWITCH.
1587 031771 253 16 0 00 031772 AOBJN AC1,.+1
1588 031772 603 16 0 00 770000 TLNE AC1,770000
1589 031773 254 00 0 00 031743 JRST TST15A ;INC TO TEST NEXT LOC.
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 26
DFKBBM MAC 1-Feb-84 14:34 DIAGNOSTIC SECTION SEQ 0063
1590 ;*TST16
1591 ;*TEST HRLEM, HLRES, HLREM, HRLES. CHECK
1592 ;*FOR CORRECT DATA IN THE C(AC)+C(E).
1593 ;*C(AC)+C(E)=RAN. NUM.
1594
1595 000001 AC=1
1596 031774 TST16: SETUP^
1597 000002 AC1=<AC+1>&17
1598 000003 AC2=<AC+2>&17
1599 000004 AC3=<AC+3>&17
1600 000005 AC4=<AC+4>&17
1601 031774 201 00 0 00 031774 MOVEI AC-1,.
1602 031775 202 00 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1603 031776 201 00 0 00 000000 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1604 031777 202 00 0 00 033255 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1605 032000 200 02 0 00 033253 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
1606 032001 202 10 0 00 033263 MOVEM RA,RASV16#
1607 032002 202 01 0 00 033247 MOVEM AC,ACSV16#
1608 032003 TST16A: RANDOM^
1609 032003 270 10 0 00 033136 ADD RA,[142536475076]
1610 032004 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
1611 032005 447 10 0 00 000001 EQVB RA,AC ;IN BOTH RA AND AC.
1612 032006 200 01 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
1613 032007 202 10 0 02 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
1614 032010 312 10 0 02 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
1615 032011 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
1616 032012 620 01 0 00 400000 TST16B: TRZ AC,400000 ;CLEAR BIT 18 IN AC.
1617 032013 200 03 0 00 000001 MOVE AC2,AC ;SAVE FOR FUTURE COMPARE.
1618 ;IF C(AC)+C(E)=(0011)0101
1619 032014 536 01 0 02 000000 HRLEM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0011)0101
1620 032015 577 00 0 02 000000 HLRES 0,(AC1) ;C(AC)=(0011)0101, C(E)=(0000)0101
1621 032016 502 01 0 02 000000 HLLM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0011)0101
1622 032017 312 01 0 00 000003 CAME AC,AC2 ;C(AC)SHOULD=ORIG C(AC).
1623 032020 001 10 0 00 000003 ERR RA,AC2
1624 032021 312 03 0 02 000000 CAME AC2,(AC1) ;C(E) SHOULD=ORIG C(AC).
1625 032022 002 10 0 00 000003 ERRM RA,AC2
1626 032023 621 01 0 00 400000 TLZ AC,400000 ;CLEAR BIT 0.
1627 032024 200 03 0 00 000001 MOVE AC2,AC ;SAVE FOR FUTURE COMPARE.
1628 032025 576 01 0 02 000000 HLREM AC,(AC1) ;C(AC)=(0011)0101, C(E)=(0000)0011
1629 032026 537 00 0 02 000000 HRLES 0,(AC1) ;C(AC)=(0011)0101, C(E)=(0011)0000
1630 032027 542 01 0 02 000000 HRRM AC,(AC1) ;C(AC) = (0011)0101, C(E) = (0011)0101.
1631 032030 312 01 0 00 000003 CAME AC,AC2 ;C(AC)SHOULD=ORIG C(AC).
1632 032031 001 10 0 00 000003 ERR RA,AC2
1633 032032 312 03 0 02 000000 CAME AC2,(AC1) ;C(E) SHOULD=ORIG C(AC).
1634 032033 002 10 0 00 000003 ERRM RA,AC2
1635 032034 321 00 0 00 032006 JUMPL AC-1,TST16B-4 ;LOOP ON ERROR SWITCH
1636 032035 253 02 0 00 032036 AOBJN AC1,.+1
1637 032036 603 02 0 00 770000 TLNE AC1,770000
1638 032037 254 00 0 00 032003 JRST TST16A ;INC TO TEST NEXT LOC.
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 27
DFKBBM MAC 1-Feb-84 14:34 DIAGNOSTIC SECTION SEQ 0064
1639 ;*TST17
1640 ;*TEST HRLEM, HLRES, HLREM, HRLES. CHECK
1641 ;*FOR CORRECT DATA IN AC AND C(E).
1642 ;*C(AC)+C(E)=RAN. NUM.
1643
1644 000002 AC=2
1645 032040 TST17: SETUP^
1646 000003 AC1=<AC+1>&17
1647 000004 AC2=<AC+2>&17
1648 000005 AC3=<AC+3>&17
1649 000006 AC4=<AC+4>&17
1650 032040 201 01 0 00 032040 MOVEI AC-1,.
1651 032041 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1652 032042 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1653 032043 202 01 0 00 033255 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1654 032044 200 03 0 00 033253 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
1655 032045 TST17A: RANDOM^
1656 032045 270 10 0 00 033136 ADD RA,[142536475076]
1657 032046 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
1658 032047 447 10 0 00 000002 EQVB RA,AC ;IN BOTH RA AND AC.
1659 032050 200 02 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
1660 032051 202 10 0 03 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
1661 032052 312 10 0 03 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
1662 032053 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
1663 032054 660 02 0 00 400000 TST17B: TRO AC,400000 ;SET BIT 18 IN AC.
1664 032055 200 04 0 00 000002 MOVE AC2,AC ;SAVE C(AC) FOR FUTURE COMPARE
1665 ;IF C(AC)+C(E)=(0011)1101
1666 032056 536 02 0 03 000000 HRLEM AC,(AC1) ;C(AC)=(0011)1101, C(E)=(1101)1111
1667 032057 577 00 0 03 000000 HLRES 0,(AC1) ;C(AC)=(0011)1101, C(E)=(0011)1101
1668 032060 502 02 0 03 000000 HLLM AC,(AC1) ;C(AC)=(0011)1101, C(E)=(0011)1101
1669 032061 312 02 0 00 000004 CAME AC,AC2 ;C(AC) SHOULD=ORIG C(AC).
1670 032062 001 10 0 00 000004 ERR RA,AC2
1671 032063 312 04 0 03 000000 CAME AC2,(AC1) ;C(E) SHOULD=ORIG C(AC)
1672 032064 002 10 0 00 000004 ERRM RA,AC2
1673 032065 661 02 0 00 400000 TLO AC,400000 ;SET BIT 0 IN AC.
1674 032066 200 04 0 00 000002 MOVE AC2,AC ;SAVE FOR FUTURE COMPARE
1675 ;IF C(AC)+C(E)=(1010)1101
1676 032067 576 02 0 03 000000 HLREM AC,(AC1) ;C(AC)=(1011)1101, C(E)=(1111)1011
1677 032070 537 00 0 03 000000 HRLES 0,(AC1) ;C(AC)=(1011)1101, C(E)=(1011)1111
1678 032071 542 02 0 03 000000 HRRM AC,(AC1) ;C(AC)=(1011)1101, C(E)=(1011)1101
1679 032072 312 02 0 00 000004 CAME AC,AC2 ;C(AC) SHOULD=ORIG C(AC).
1680 032073 001 10 0 00 000004 ERR RA,AC2
1681 032074 312 04 0 03 000000 CAME AC2,(AC1) ;C(E) SHOULD = ORIG C(AC).
1682 032075 002 10 0 00 000004 ERRM RA,AC2
1683 032076 321 01 0 00 032050 JUMPL AC-1,TST17B-4 ;LOOP ON ERROR SWITCH.
1684 032077 253 03 0 00 032100 AOBJN AC1,.+1
1685 032100 603 03 0 00 770000 TLNE AC1,770000
1686 032101 254 00 0 00 032045 JRST TST17A ;INC TO TEST NEXT LOC.
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 28
DFKBBM MAC 1-Feb-84 14:34 DIAGNOSTIC SECTION SEQ 0065
1687 ;*TST20
1688 ;*TEST HLLOM, HLLZS, HRROM, HRRZS. CHECK FOR
1689 ;*CORRECT DATA IN AC AND C(E).
1690 ;*C(AC)+C(E)=RAN. NUM.
1691
1692 000001 AC=1
1693 032102 TST20: SETUP^
1694 000002 AC1=<AC+1>&17
1695 000003 AC2=<AC+2>&17
1696 000004 AC3=<AC+3>&17
1697 000005 AC4=<AC+4>&17
1698 032102 201 00 0 00 032102 MOVEI AC-1,.
1699 032103 202 00 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1700 032104 201 00 0 00 000000 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1701 032105 202 00 0 00 033255 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1702 032106 200 02 0 00 033253 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
1703 032107 202 10 0 00 033264 MOVEM RA,RASV20#
1704 032110 202 01 0 00 033250 MOVEM AC,ACSV20#
1705 032111 TST20A: RANDOM^
1706 032111 270 10 0 00 033136 ADD RA,[142536475076]
1707 032112 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
1708 032113 447 10 0 00 000001 EQVB RA,AC ;IN BOTH RA AND AC.
1709 032114 200 01 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
1710 032115 202 10 0 02 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
1711 032116 312 10 0 02 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
1712 032117 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
1713 032120 200 03 0 00 000001 TST20B: MOVE AC2,AC ;SIMULATE A
1714 032121 660 03 0 00 777777 TRO AC2,-1 ;HLLOM INST
1715 032122 522 01 0 02 000000 HLLOM AC,(AC1) ;DO HLLOM.
1716 032123 312 03 0 02 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
1717 032124 002 10 0 00 000010 ERRM RA,RA
1718 032125 620 03 0 00 777777 TRZ AC2,-1 ;SIMULATE A HLLSZ INST.
1719 032126 513 01 0 02 000000 HLLZS AC,(AC1) ;DO A HLLZS.
1720 032127 312 01 0 00 000003 CAME AC,AC2 ;C(AC) SHOULD=SIM ANS.
1721 032130 001 10 0 00 000010 ERR RA,RA
1722 032131 312 03 0 02 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
1723 032132 002 10 0 00 000010 ERRM RA,RA
1724 032133 200 01 0 00 000010 MOVE AC,RA ;RESTORE C(AC)
1725 032134 200 03 0 00 000010 MOVE AC2,RA ;SIMULATE A
1726 032135 661 03 0 00 777777 TLO AC2,-1 ;HRROM INST.
1727 032136 562 01 0 02 000000 HRROM AC,(AC1) ;DO A HRROM.
1728 032137 312 03 0 02 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
1729 032140 001 10 0 00 000010 ERR RA,RA
1730 032141 621 03 0 00 777777 TLZ AC2,-1 ;SIMULATE A HRRZS INST.
1731 032142 553 01 0 02 000000 HRRZS AC,(AC1) ;DO A HRRZS INST.
1732 032143 312 01 0 00 000003 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS.
1733 032144 001 10 0 00 000010 ERR RA,RA
1734 032145 312 03 0 02 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
1735 032146 002 10 0 00 000010 ERRM RA,RA
1736 032147 321 00 0 00 032114 JUMPL AC-1,TST20B-4 ;LOOP ON ERROR SWITCH.
1737 032150 253 02 0 00 032151 AOBJN AC1,.+1
1738 032151 603 02 0 00 770000 TLNE AC1,770000
1739 032152 254 00 0 00 032111 JRST TST20A ;INC TO TEST NEXT LOC.
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 29
DFKBBM MAC 1-Feb-84 14:34 DIAGNOSTIC SECTION SEQ 0066
1740 ;*TST21
1741 ;*TEST HLLOS, HLLZM, HRROS, HRRZM. CHECK FOR
1742 ;*CORRECT DATA IN AC AND C(E).
1743 ;*C(AC)+C(E)=RAN. NUM.
1744 000002 AC=2
1745 032153 TST21: SETUP^
1746 000003 AC1=<AC+1>&17
1747 000004 AC2=<AC+2>&17
1748 000005 AC3=<AC+3>&17
1749 000006 AC4=<AC+4>&17
1750 032153 201 01 0 00 032153 MOVEI AC-1,.
1751 032154 202 01 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1752 032155 201 01 0 00 000001 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1753 032156 202 01 0 00 033255 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1754 032157 200 03 0 00 033253 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
1755 032160 202 10 0 00 033265 MOVEM RA,RASV21#
1756 032161 202 02 0 00 033251 MOVEM AC,ACSV21#
1757 032162 TST21A: RANDOM^
1758 032162 270 10 0 00 033136 ADD RA,[142536475076]
1759 032163 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
1760 032164 447 10 0 00 000002 EQVB RA,AC ;IN BOTH RA AND AC.
1761 032165 200 02 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
1762 032166 202 10 0 03 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
1763 032167 312 10 0 03 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
1764 032170 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
1765 032171 200 04 0 00 000002 TST21B: MOVE AC2,AC ;SIMULATE A
1766 032172 660 04 0 00 777777 TRO AC2,-1 ;HLLOS INST.
1767 032173 523 02 0 03 000000 HLLOS AC,(AC1) ;DO A HLLOS.
1768 032174 312 02 0 00 000004 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS.
1769 032175 001 10 0 00 000010 ERR RA,RA
1770 032176 312 04 0 03 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
1771 032177 002 10 0 00 000010 ERRM RA,RA
1772 032200 200 05 0 00 000002 MOVE AC3,AC ;SAVE C(AC) IN CASE OF ERR.
1773 032201 620 04 0 00 777777 TRZ AC2,-1 ;SIMULATE A HLLZM INST.
1774 032202 512 02 0 03 000000 HLLZM AC,(AC1) ;DO A HLLZM
1775 032203 312 04 0 03 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
1776 032204 002 05 0 00 000005 ERRM AC3,AC3
1777 032205 200 02 0 00 000010 MOVE AC,RA ;RESTORE C(AC).
1778 032206 202 02 0 03 000000 MOVEM AC,(AC1) ;RESTORE C(E).
1779 032207 200 04 0 00 000010 MOVE AC2,RA ;SIMULATE A
1780 032210 661 04 0 00 777777 TLO AC2,-1 ;HRROS INST.
1781 032211 563 02 0 03 000000 HRROS AC,(AC1) ;DO A HRROS
1782 032212 312 02 0 00 000004 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS.
1783 032213 001 10 0 00 000010 ERR RA,RA
1784 032214 312 04 0 03 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
1785 032215 002 10 0 00 000010 ERRM RA,RA
1786 032216 200 05 0 00 000002 MOVE AC3,AC ;SAVE C(AC) IN CASE OF ERROR.
1787 032217 621 04 0 00 777777 TLZ AC2,-1 ;SIMULATE A HRRZM INST.
1788 032220 552 02 0 03 000000 HRRZM AC,(AC1) ;DO A HRRZM.
1789 032221 312 04 0 03 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
1790 032222 002 05 0 00 000005 ERRM AC3,AC3
1791 032223 321 01 0 00 032165 JUMPL AC-1,TST21B-4 ;LOOP ON ERROR SWITCH
1792 032224 253 03 0 00 032225 AOBJN AC1,.+1
1793 032225 603 03 0 00 770000 TLNE AC1,770000
1794 032226 254 00 0 00 032162 JRST TST21A ;INC TO TEST NEXT LOC.
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 30
DFKBBM MAC 1-Feb-84 14:34 DIAGNOSTIC SECTION SEQ 0067
1795 ;*TST22
1796 ;*TEST HLLEM, HRRES. CHECK C(AC)+C(E)
1797 ;*FOR CORRECT DATA.
1798 ;*C(AC) HAS SIGN BIT SET.
1799
1800 000003 AC=3
1801 032227 TST22: SETUP^
1802 000004 AC1=<AC+1>&17
1803 000005 AC2=<AC+2>&17
1804 000006 AC3=<AC+3>&17
1805 000007 AC4=<AC+4>&17
1806 032227 201 02 0 00 032227 MOVEI AC-1,.
1807 032230 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1808 032231 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1809 032232 202 02 0 00 033255 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1810 032233 200 04 0 00 033253 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
1811 032234 TST22A: RANDOM^
1812 032234 270 10 0 00 033136 ADD RA,[142536475076]
1813 032235 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
1814 032236 447 10 0 00 000003 EQVB RA,AC ;IN BOTH RA AND AC.
1815 032237 200 03 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
1816 032240 202 10 0 04 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
1817 032241 312 10 0 04 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
1818 032242 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
1819 032243 661 03 0 00 400000 TST22B: TLO AC,400000 ;SET SIGN BIT IN AC.
1820 032244 200 06 0 00 000003 MOVE AC3,AC ;SAVE FOR FUTURE COMPARE.
1821 032245 200 05 0 00 000003 MOVE AC2,AC ;SIMULATE A HLLEM
1822 032246 660 05 0 00 777777 TRO AC2,-1 ;WITH SIGN BIT SET.
1823 032247 532 03 0 04 000000 HLLEM AC,(AC1) ;DO A HLLEM.
1824 032250 312 03 0 00 000006 CAME AC,AC3 ;C(AC) SHOULD=ORIG. C(AC).
1825 032251 001 10 0 00 000006 ERR RA,AC3 ;C(AC) GOT MODIFIED.
1826 032252 312 05 0 04 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
1827 032253 002 10 0 00 000006 ERRM RA,AC3
1828 032254 474 07 0 00 000000 SETO AC4, ;SIMULATE HRRES WITH BIT 18 A ONE.
1829 032255 573 03 0 04 000000 HRRES AC,(AC1) ;DO A HRRES.
1830 032256 312 07 0 04 000000 CAME AC4,(AC1) ;C(E) SHOULD=-1.
1831 032257 002 05 0 00 000006 ERRM AC2,AC3
1832 032260 312 03 0 04 000000 CAME AC,(AC1) ;C(AC) SHOULD=C(E).
1833 032261 001 05 0 00 000006 ERR AC2,AC3
1834 032262 321 02 0 00 032237 JUMPL AC-1,TST22B-4 ;LOOP ON ERROR SWITCH.
1835 032263 253 04 0 00 032264 AOBJN AC1,.+1
1836 032264 603 04 0 00 770000 TLNE AC1,770000
1837 032265 254 00 0 00 032234 JRST TST22A ;INC TO TEST NEXT LOC.
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 31
DFKBBM MAC 1-Feb-84 14:34 DIAGNOSTIC SECTION SEQ 0068
1838 ;*TST23
1839 ;*TEST HLLEM, HRRES. CHECK C(AC)+C(E)
1840 ;*FOR CORRECT DATA
1841 ;*C(AC) HAS SIGN BIT CLEAR.
1842
1843 000012 AC=12
1844 032266 TST23: SETUP^
1845 000013 AC1=<AC+1>&17
1846 000014 AC2=<AC+2>&17
1847 000015 AC3=<AC+3>&17
1848 000016 AC4=<AC+4>&17
1849 032266 201 11 0 00 032266 MOVEI AC-1,.
1850 032267 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1851 032270 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1852 032271 202 11 0 00 033255 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1853 032272 200 13 0 00 033253 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
1854 032273 TST23A: RANDOM^
1855 032273 270 10 0 00 033136 ADD RA,[142536475076]
1856 032274 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
1857 032275 447 10 0 00 000012 EQVB RA,AC ;IN BOTH RA AND AC.
1858 032276 200 12 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
1859 032277 202 10 0 13 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
1860 032300 312 10 0 13 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
1861 032301 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
1862 032302 621 12 0 00 400000 TST23B: TLZ AC,400000 ;CLEAR SIGN BIT IN AC
1863 032303 200 15 0 00 000012 MOVE AC3,AC ;SAVE FOR FUTURE COMPARE
1864 032304 200 14 0 00 000012 MOVE AC2,AC ;SIMULATE A HLLEM
1865 032305 620 14 0 00 777777 TRZ AC2,-1 ;WITH SIGN BIT CLEAR.
1866 032306 532 12 0 13 000000 HLLEM AC,(AC1) ;DO A HLLEM.
1867 032307 312 12 0 00 000015 CAME AC,AC3 ;C(AC) SHOULD=ORIG. C(AC)
1868 032310 001 10 0 00 000015 ERR RA,AC3
1869 032311 312 14 0 13 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
1870 032312 002 10 0 00 000015 ERRM RA,AC3
1871 032313 400 16 0 00 000000 SETZ AC4, ;SIMULATE HRRES WITH BIT 18 CLEAR.
1872 032314 573 12 0 13 000000 HRRES AC,(AC1) ;DO A HRRES INST.
1873 032315 312 16 0 13 000000 CAME AC4,(AC1) ;C(E) SHOULD=SIM. ANS.
1874 032316 002 14 0 00 000015 ERRM AC2,AC3
1875 032317 312 12 0 13 000000 CAME AC,(AC1) ;C(AC) SHOULD=C(E).
1876 032320 001 14 0 00 000015 ERR AC2,AC3
1877 032321 321 11 0 00 032276 JUMPL AC-1,TST23B-4 ;LOOP ON ERROR SWITCH
1878 032322 253 13 0 00 032323 AOBJN AC1,.+1
1879 032323 603 13 0 00 770000 TLNE AC1,770000
1880 032324 254 00 0 00 032273 JRST TST23A ;INC TO TEST NEXT LOC.
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 32
DFKBBM MAC 1-Feb-84 14:34 DIAGNOSTIC SECTION SEQ 0069
1881 ;*TST24
1882 ;*TEST HRREM, HLLES. CHECK C(AC)+C(E)
1883 ;*FOR CORRECT DATA.
1884 ;*C(AC) HAS BIT 18 SET.
1885
1886 000012 AC=12
1887 032325 TST24: SETUP^
1888 000013 AC1=<AC+1>&17
1889 000014 AC2=<AC+2>&17
1890 000015 AC3=<AC+3>&17
1891 000016 AC4=<AC+4>&17
1892 032325 201 11 0 00 032325 MOVEI AC-1,.
1893 032326 202 11 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1894 032327 201 11 0 00 000011 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1895 032330 202 11 0 00 033255 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1896 032331 200 13 0 00 033253 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
1897 032332 TST24A: RANDOM^
1898 032332 270 10 0 00 033136 ADD RA,[142536475076]
1899 032333 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
1900 032334 447 10 0 00 000012 EQVB RA,AC ;IN BOTH RA AND AC.
1901 032335 200 12 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
1902 032336 202 10 0 13 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
1903 032337 312 10 0 13 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
1904 032340 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
1905 032341 660 12 0 00 400000 TST24B: TRO AC,400000 ;SET BIT 18 IN AC.
1906 032342 200 15 0 00 000012 MOVE AC3,AC ;SAVE C(AC) FOR FUTURE COMPARE
1907 032343 200 14 0 00 000012 MOVE AC2,AC ;SIMULATE A HRREM
1908 032344 661 14 0 00 777777 TLO AC2,-1 ;WITH BIT 18 SET.
1909 032345 572 12 0 13 000000 HRREM AC,(AC1) ;DO A HRREM
1910 032346 312 12 0 00 000015 CAME AC,AC3 ;C(AC) SHOULD=ORIG. C(AC)
1911 032347 001 10 0 00 000015 ERR RA,AC3
1912 032350 312 14 0 13 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
1913 032351 002 10 0 00 000015 ERRM RA,AC3
1914 032352 474 16 0 00 000000 SETO AC4, ;SIMULATE A HLLES WITH SIGN BIT SET.
1915 032353 533 12 0 13 000000 HLLES AC,(AC1) ;DO A HLLES
1916 032354 312 16 0 13 000000 CAME AC4,(AC1) ;C(E) SHOULD=-1.
1917 032355 002 14 0 00 000015 ERRM AC2,AC3
1918 032356 312 12 0 13 000000 CAME AC,(AC1) ;C(AC) SHOULD=C(E).
1919 032357 001 14 0 00 000015 ERR AC2,AC3
1920 032360 321 11 0 00 032335 JUMPL AC-1,TST24B-4 ;LOOP ON ERROR SWITCH
1921 032361 253 13 0 00 032362 AOBJN AC1,.+1
1922 032362 603 13 0 00 770000 TLNE AC1,770000
1923 032363 254 00 0 00 032332 JRST TST24A ;INC TO TEST NEXT LOC.
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 33
DFKBBM MAC 1-Feb-84 14:34 DIAGNOSTIC SECTION SEQ 0070
1924 ;*TST25
1925 ;*TEST HRREM, HLLES. CHECK C(AC)+C(E)
1926 ;*FOR CORRECT DATA.
1927 ;*C(AC) HAS BIT 18 CLEAR.
1928
1929 000003 AC=3
1930 032364 TST25: SETUP^
1931 000004 AC1=<AC+1>&17
1932 000005 AC2=<AC+2>&17
1933 000006 AC3=<AC+3>&17
1934 000007 AC4=<AC+4>&17
1935 032364 201 02 0 00 032364 MOVEI AC-1,.
1936 032365 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1937 032366 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1938 032367 202 02 0 00 033255 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1939 032370 200 04 0 00 033253 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
1940 032371 TST25A: RANDOM^
1941 032371 270 10 0 00 033136 ADD RA,[142536475076]
1942 032372 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
1943 032373 447 10 0 00 000003 EQVB RA,AC ;IN BOTH RA AND AC.
1944 032374 200 03 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
1945 032375 202 10 0 04 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
1946 032376 312 10 0 04 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
1947 032377 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
1948 032400 620 03 0 00 400000 TST25B: TRZ AC,400000 ;CLEAR BIT 18 ON AC.
1949 032401 200 06 0 00 000003 MOVE AC3,AC ;SAVE C(AC) FOR FUTURE COMPARE.
1950 032402 200 05 0 00 000003 MOVE AC2,AC ;SIMULATE A HRREM
1951 032403 621 05 0 00 777777 TLZ AC2,-1 ;WITH BIT 18 CLEAR.
1952 032404 572 03 0 04 000000 HRREM AC,(AC1) ;DO A HRREM
1953 032405 312 03 0 00 000006 CAME AC,AC3 ;C(AC) SHOULD=ORIG C(AC)
1954 032406 001 10 0 00 000006 ERR RA,AC3
1955 032407 312 05 0 04 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
1956 032410 002 10 0 00 000006 ERRM RA,AC3
1957 032411 400 07 0 00 000000 SETZ AC4, ;SIMULATE A HLLES WITH SIGN BIT CLEAR.
1958 032412 533 03 0 04 000000 HLLES AC,(AC1) ;DO A HLLES
1959 032413 312 07 0 04 000000 CAME AC4,(AC1) ;C(E) SHOULD=0
1960 032414 002 05 0 00 000006 ERRM AC2,AC3
1961 032415 312 03 0 04 000000 CAME AC,(AC1) ;C(AC) SHOULD=C(E).
1962 032416 001 05 0 00 000006 ERR AC2,AC3
1963 032417 321 02 0 00 032374 JUMPL AC-1,TST25B-4 ;LOOP ON ERROR SWITCH
1964 032420 253 04 0 00 032421 AOBJN AC1,.+1
1965 032421 603 04 0 00 770000 TLNE AC1,770000
1966 032422 254 00 0 00 032371 JRST TST25A ;INC TO TEST NEXT LOC.
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 34
DFKBBM MAC 1-Feb-84 14:34 DIAGNOSTIC SECTION SEQ 0071
1967 ;*TST26
1968 ;*TEST ORCBB, ANDCMB, SETOM, SETZB, SETOB. CHECK
1969 ;*FOR CORRECT DATA IN AC AND C(E).
1970 000004 AC=4
1971 032423 TST26: SETUP^
1972 000005 AC1=<AC+1>&17
1973 000006 AC2=<AC+2>&17
1974 000007 AC3=<AC+3>&17
1975 000010 AC4=<AC+4>&17
1976 032423 201 03 0 00 032423 MOVEI AC-1,.
1977 032424 202 03 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
1978 032425 201 03 0 00 000003 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
1979 032426 202 03 0 00 033255 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
1980 032427 200 05 0 00 033253 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
1981 032430 TST26A: RANDOM^
1982 032430 270 10 0 00 033136 ADD RA,[142536475076]
1983 032431 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
1984 032432 447 10 0 00 000004 EQVB RA,AC ;IN BOTH RA AND AC.
1985 032433 200 04 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
1986 032434 202 10 0 05 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
1987 032435 312 10 0 05 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
1988 032436 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
1989 032437 460 06 0 00 000004 TST26B: SETCM AC2,AC ;SIMULATE A ORCBB...1'S COMP.
1990 032440 473 04 0 05 000000 ORCBB AC,(AC1) ;DO ORCBB
1991 032441 312 04 0 00 000006 CAME AC,AC2 ;C(AC) SHOULD=SIM. ANS.
1992 032442 001 10 0 00 000010 ERR RA,RA
1993 032443 312 06 0 05 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
1994 032444 002 10 0 00 000010 ERRM RA,RA
1995 032445 201 07 0 00 000000 MOVEI AC3,0 ;SIMULATE ANDCMB...AND 1'S COMP
1996 032446 423 04 0 05 000000 ANDCMB AC,(AC1) ;OF A NUMBER WITH THAT NUMBER
1997 032447 312 04 0 00 000007 CAME AC,AC3 ;SHOULD=0
1998 032450 001 06 0 00 000006 ERR AC2,AC2
1999 032451 312 07 0 05 000000 CAME AC3,(AC1) ;C(E) SHOULD=0
2000 032452 002 06 0 00 000006 ERRM AC2,AC2
2001 032453 200 06 0 00 033156 MOVE AC2,[-1] ;SIMULATE SETOM.
2002 032454 476 04 0 05 000000 SETOM AC,(AC1) ;DO SETOM.
2003 032455 312 04 0 00 000007 CAME AC,AC3 ;C(AC)SHOULD STILL=0.
2004 032456 001 07 0 00 000007 ERR AC3,AC3
2005 032457 312 06 0 05 000000 CAME AC2,(AC1) ;C(E) SHOULD=-1
2006 032460 002 07 0 00 000007 ERRM AC3,AC3
2007 032461 403 04 0 05 000000 SETZB AC,(AC1) ;DO SETZB
2008 032462 312 04 0 00 000007 CAME AC,AC3 ;C(AC) SHOULD=0
2009 032463 001 06 0 00 000007 ERR AC2,AC3
2010 032464 312 07 0 05 000000 CAME AC3,(AC1) ;C(E) SHOULD=0
2011 032465 002 06 0 00 000007 ERRM AC2,AC3
2012 032466 477 04 0 05 000000 SETOB AC,(AC1) ;DO A SETOB.
2013 032467 312 04 0 00 000006 CAME AC,AC2 ;C(AC) SHOULD=-1
2014 032470 001 07 0 00 000007 ERR AC3,AC3
2015 032471 312 06 0 05 000000 CAME AC2,(AC1) ;C(E) SHOULD=-1
2016 032472 002 07 0 00 000007 ERRM AC3,AC3
2017 032473 321 03 0 00 032433 JUMPL AC-1,TST26B-4 ;LOOP ON ERROR SWITCH.
2018 032474 253 05 0 00 032475 AOBJN AC1,.+1
2019 032475 603 05 0 00 770000 TLNE AC1,770000
2020 032476 254 00 0 00 032430 JRST TST26A ;INC TO TEST NEXT LOC.
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 35
DFKBBM MAC 1-Feb-84 14:34 DIAGNOSTIC SECTION SEQ 0072
2021 ;*TST27
2022 ;*TEST AOS, SOA, TDC, TDCA, TSC, TSCA. CHECK
2023 ;*FOR CORRECT DATA IN AC AND C(E)
2024 ;*C(AC) AND C(E)=RAN. NUM.
2025
2026 000005 AC=5
2027 032477 TST27: SETUP^
2028 000006 AC1=<AC+1>&17
2029 000007 AC2=<AC+2>&17
2030 000010 AC3=<AC+3>&17
2031 000011 AC4=<AC+4>&17
2032 032477 201 04 0 00 032477 MOVEI AC-1,.
2033 032500 202 04 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2034 032501 201 04 0 00 000004 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2035 032502 202 04 0 00 033255 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2036 032503 200 06 0 00 033253 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
2037 032504 TST27A: RANDOM^
2038 032504 270 10 0 00 033136 ADD RA,[142536475076]
2039 032505 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
2040 032506 447 10 0 00 000005 EQVB RA,AC ;IN BOTH RA AND AC.
2041 032507 200 05 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
2042 032510 202 10 0 06 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
2043 032511 312 10 0 06 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
2044 032512 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
2045 032513 350 05 0 06 000000 TST27B: AOS AC,(AC1) ;ADD ONE TO AC+C(E) AND NO SKIP.
2046 032514 374 05 0 06 000000 SOSA AC,(AC1) ;SUB ONE FROM AC+C(E) AND SKIP.
2047 032515 005 05 0 00 033157 ER AC,[ASCII/AOS/]
2048 032516 312 05 0 06 000000 CAME AC,(AC1) ;C(AC)SHOULD=C(E).
2049 032517 001 10 0 00 000010 ERR RA,RA ;C(E) DID NOT GET STORED IN AC CORRECTLY
2050 032520 312 05 0 00 000010 CAME AC,RA ;C(AC) SHOULD=ORIG. C(AC).
2051 032521 001 10 0 00 000010 ERR RA,RA
2052 032522 650 05 0 06 000000 TDC AC,(AC1) ;SHOULD NOT SKIP
2053 032523 654 05 0 06 000000 TDCA AC,(AC1) ;SHOULD ALWAYS SKIP.
2054 032524 005 05 0 00 033160 ER AC,[ASCII/TST/]
2055 032525 312 05 0 00 000010 CAME AC,RA ;C(AC) SHOULD=ORIG C(AC).
2056 032526 001 10 0 00 000010 ERR RA,RA
2057 032527 651 05 0 06 000000 TSC AC,(AC1) ;SHOULD NOT SKIP.
2058 032530 655 05 0 06 000000 TSCA AC,(AC1) ;SHOULD ALWAYS SKIP.
2059 032531 005 05 0 00 033160 ER AC,[ASCII/TST/]
2060 032532 312 05 0 00 000010 CAME AC,RA ;C(AC) SHOULD=ORIG C(AC).
2061 032533 001 10 0 00 000010 ERR RA,RA
2062 032534 321 04 0 00 032507 JUMPL AC-1,TST27B-4 ;LOOP ON ERROR SWITCH.
2063 032535 253 06 0 00 032536 AOBJN AC1,.+1
2064 032536 603 06 0 00 770000 TLNE AC1,770000
2065 032537 254 00 0 00 032504 JRST TST27A ;INC TO TEST NEXT LOC.
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 36
DFKBBM MAC 1-Feb-84 14:34 DIAGNOSTIC SECTION SEQ 0073
2066 ;*TST30
2067 ;*TEST MOVMM, MOVMS. CHECK FOR
2068 ;*CORRECT DATA IN AC AND C(E).
2069 ;*C(AC)+C(E)=RAN. NUM.
2070
2071 000003 AC=3
2072 032540 TST30: SETUP^
2073 000004 AC1=<AC+1>&17
2074 000005 AC2=<AC+2>&17
2075 000006 AC3=<AC+3>&17
2076 000007 AC4=<AC+4>&17
2077 032540 201 02 0 00 032540 MOVEI AC-1,.
2078 032541 202 02 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2079 032542 201 02 0 00 000002 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2080 032543 202 02 0 00 033255 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2081 032544 200 04 0 00 033253 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
2082 032545 202 10 0 00 033266 MOVEM RA,RASV30#
2083 032546 202 03 0 00 033252 MOVEM AC,ACSV30#
2084 032547 TST30A: RANDOM^
2085 032547 270 10 0 00 033136 ADD RA,[142536475076]
2086 032550 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
2087 032551 447 10 0 00 000003 EQVB RA,AC ;IN BOTH RA AND AC.
2088 032552 200 03 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
2089 032553 202 10 0 04 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
2090 032554 312 10 0 04 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
2091 032555 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
2092 032556 460 05 0 00 000003 TST30B: SETCM AC2,AC ;SIMULATE A MOVM
2093 032557 271 05 0 00 000001 ADDI AC2,1 ;WITH SIGN BIT SET.
2094 032560 607 03 0 00 400000 TLNN AC,400000 ;SKIP IF SIGN BIT SET.
2095 032561 200 05 0 00 000003 MOVE AC2,AC ;SIM. MOVM WITH SIGN BIT CLEAR.
2096 032562 216 03 0 04 000000 MOVMM AC,(AC1) ;DO A MOVMM
2097 032563 312 03 0 00 000010 CAME AC,RA ;C(AC) SHOULD=ORIG. C(AC)
2098 032564 001 10 0 00 000010 ERR RA,RA ;C(AC) GOT MODIFIED.
2099 032565 312 05 0 04 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
2100 032566 002 10 0 00 000010 ERRM RA,RA
2101 032567 202 10 0 04 000000 MOVEM RA,(AC1) ;RESTORE C(E).
2102 032570 217 03 0 04 000000 MOVMS AC,(AC1) ;DO A MOVMS
2103 032571 312 03 0 04 000000 CAME AC,(AC1) ;C(AC) SHOULD=C(E).
2104 032572 001 10 0 00 000010 ERR RA,RA
2105 032573 312 05 0 04 000000 CAME AC2,(AC1) ;C(E) SHOULD=SIM. ANS.
2106 032574 002 10 0 00 000010 ERRM RA,RA
2107 032575 321 02 0 00 032552 JUMPL AC-1,TST30B-4 ;LOOP ON ERROR SWITCH
2108 032576 253 04 0 00 032577 AOBJN AC1,.+1
2109 032577 603 04 0 00 770000 TLNE AC1,770000
2110 032600 254 00 0 00 032547 JRST TST30A ;INC TO TEST NEXT LOC.
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 37
DFKBBM MAC 1-Feb-84 14:34 DIAGNOSTIC SECTION SEQ 0074
2111 ;*TST31
2112 ;*TEST ADDM, SUBB, ADDB, SUBM. CHECK FOR
2113 ;*CORRECT DATA IN AC AND C(E)
2114 ;*C(AC) AND C(E)=RAN. NUM.
2115
2116 000001 AC=1
2117 032601 TST31: SETUP^
2118 000002 AC1=<AC+1>&17
2119 000003 AC2=<AC+2>&17
2120 000004 AC3=<AC+3>&17
2121 000005 AC4=<AC+4>&17
2122 032601 201 00 0 00 032601 MOVEI AC-1,.
2123 032602 202 00 0 00 030051 MOVEM AC-1,TESTPC ;SETUP SUBTEST PC
2124 032603 201 00 0 00 000000 MOVEI AC-1,<AC-1>&17 ;INFORM ERROR ROUTINE
2125 032604 202 00 0 00 033255 MOVEM AC-1,ERRLOP# ;WHICH AC IS USED FOR ITERATION
2126 032605 200 02 0 00 033253 MOVE AC1,BLOK# ;MOVE (-TOP+END,END) INTO AC1. ^
2127 032606 TST31A: RANDOM^
2128 032606 270 10 0 00 033136 ADD RA,[142536475076]
2129 032607 241 10 0 00 777777 ROT RA,-1 ;GENERATE A PSEUDO RANDOM NUMBER
2130 032610 447 10 0 00 000001 EQVB RA,AC ;IN BOTH RA AND AC.
2131 032611 200 01 0 00 000010 MOVE AC,RA ;ON ERROR...RESTORE C(AC) AND C(E)
2132 032612 202 10 0 02 000000 MOVEM RA,(AC1) ;PUT RANDOM # IN 1ST MEMORY LOC.
2133 032613 312 10 0 02 000000 CAME RA,(AC1) ;DID IT MAKE IT ?
2134 032614 002 10 0 00 000010 ERRM RA,RA ;NO...PRINT ERROR MESSAGE. ^
2135 032615 272 01 0 02 000000 TST31B: ADDM AC,(AC1) ;DO AN ADDM.
2136 032616 200 03 0 02 000000 MOVE AC2,(AC1) ;PUT ANS INTO AC2
2137 032617 202 01 0 02 000000 MOVEM AC,(AC1) ;AND RESTORE C(E)
2138 032620 277 03 0 02 000000 SUBB AC2,(AC1) ;DO A SUBB.
2139 032621 312 03 0 00 000010 CAME AC2,RA ;C(AC2) SHOULD=ORIG C(AC).
2140 032622 001 10 0 00 000010 ERR RA,RA
2141 032623 312 10 0 02 000000 CAME RA,(AC1) ;C(E) SHOULD=ORIG. C(E)
2142 032624 002 10 0 00 000010 ERRM RA,RA
2143 032625 273 01 0 02 000000 ADDB AC,(AC1) ;DO AN ADDB.
2144 032626 312 01 0 02 000000 CAME AC,(AC1) ;C(AC) SHOULD=C(E).
2145 032627 001 10 0 00 000010 ERR RA,RA
2146 032630 202 10 0 02 000000 MOVEM RA,(AC1) ;RESTORE C(E).
2147 032631 276 01 0 02 000000 SUBM AC,(AC1) ;DO A SUBM.
2148 032632 312 10 0 02 000000 CAME RA,(AC1) ;C(E) SHOULD=ORIG. C(E)
2149 032633 002 10 0 00 000010 ERRM RA,RA
2150 032634 321 00 0 00 032611 JUMPL AC-1,TST31B-4 ;LOOP ON ERROR SWITCH
2151 032635 253 02 0 00 032636 AOBJN AC1,.+1
2152 032636 603 02 0 00 770000 TLNE AC1,770000
2153 032637 254 00 0 00 032606 JRST TST31A ;INC TO TEST NEXT LOC.
2154
2155 032640 254 00 0 00 030057 JRST BEGEND
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 1
UUOERR KLM 22-Apr-75 09:46 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0075
2156 SUBTTL *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975
2157
2158 ;THIS SUBROUTINE PROVIDES ERROR REPORTING THRU THE USE OF UUO'S.
2159
2160 032641 202 00 0 00 033303 ERRMES: MOVEM 0,%ERAC0# ;SAVE AC0
2161 IFDEF EXCASB,<IFDEF KI10,<
2162 032642 336 00 0 00 030040 SKIPN KAIFLG
2163 032643 254 00 0 00 032650 JRST .+5
2164 032644 332 00 0 00 030037 SKIPE USER ;USER MODE ?
2165 032645 254 00 0 00 032650 JRST .+3
2166 032646 332 00 0 00 030055 SKIPE MARGIN
2167 032647 7 000 14 0 00 033161 DATAO APR,[IMGNOF,,ISPDOF] ;CLR MARGINS >>
2168 032650 202 01 0 00 033304 MOVEM 1,%ERAC1# ;SAVE AC1
2169 032651 202 02 0 00 033305 MOVEM 2,%ERAC2# ;SAVE AC2
2170 032652 350 00 0 00 030053 AOS ERRTLS ;INCREMENT ERROR TOTALS
2171 032653 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO
2172 032654 316 00 0 00 030052 CAMN 0,ERRPC ;PC = PC OF LAST ERROR ?
2173 032655 350 00 0 00 033256 AOS MICNT# ;YES, ADD 1 TO ERROR COUNT
2174 032656 200 00 0 00 033256 MOVE 0,MICNT
2175 032657 504 00 0 00 030114 HRL 0,$SVUPC
2176 032660 336 00 0 00 030041 SKIPN KLFLG ;NOT KL10
2177 032661 332 00 0 00 030037 SKIPE USER ;AND NOT USER?
2178 032662 254 00 0 00 032664 JRST .+2
2179 032663 7 004 14 0 00 000000 DATAO PI,0 ;YES, DISPLAY ERROR PC,ERROR COUNT
2180 032664 402 00 0 00 033260 SETZM PROCED# ;CLEAR PROCEED FLAG
2181 032665 037 10 0 00 000002 SWITCH
2182 032666 603 00 0 00 040000 TLNE NOPNT ;PRINTOUT ?
2183 032667 254 00 0 00 033053 JRST %ERRS1 ;NO, RESTORE AC'S AND RETURN
2184 032670 200 01 0 00 030113 MOVE 1,$SVUUO
2185 032671 242 01 0 00 777745 LSH 1,-^D27
2186 032672 202 01 0 00 033275 MOVEM 1,%ACS1A# ;SAVE UUO NUMBER
2187 032673 200 00 0 00 033303 MOVE 0,%ERAC0
2188 032674 200 01 0 00 033304 MOVE 1,%ERAC1
2189 032675 335 00 1 00 033255 SKIPGE @ERRLOP ;ERR LOOP AC > OR = 0 ?
2190 032676 254 00 0 00 033113 JRST %ERRS4 ;NO, SEE IF PRINT ALL
2191 032677 402 00 0 00 033256 %ERMS1: SETZM MICNT ;CLEAR ERROR COUNT
2192 032700 331 00 0 00 030043 SKIPL MONCTL ;DIAG MON OR SYS EXER ?
2193 032701 254 00 0 00 032705 JRST .+4 ;NO, DON'T NEED TITLE
2194 032702 336 00 0 00 033306 SKIPN %ERFST# ;FIRST ERROR ?
2195 032703 037 04 0 00 000002 PNTNM ;YES, PRINT PROGRAM TITLE
2196 032704 476 00 0 00 033306 SETOM %ERFST
2197 032705 336 00 0 00 030047 SKIPN PASCNT ;FIRST PASS ?
2198 032706 254 00 0 00 032712 JRST .+4 ;YES
2199 PMSG <^TEST PASS COUNT = >^
2200 032707 037 02 0 00 033162 PSIXM [SIXBIT\^TEST PASS COUNT = _\]^
2201 032710 200 00 0 00 030047 MOVE PASCNT
2202 032711 037 15 0 00 000000 PNTDEC
2203 PMSG <^PC = >^
2204 032712 037 02 0 00 033166 PSIXM [SIXBIT\^PC = _\]^
2205 032713 550 00 0 00 030114 HRRZ 0,$SVUPC ;GET PC OF UUO
2206 032714 202 00 0 00 030052 MOVEM 0,ERRPC ;SAVE FOR COMPARE
2207 032715 037 06 0 00 000000 PNT6 ;PRINT UUO ADDRESS
2208 XLIST
2209 LIST
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 4
UUOERR KLM 22-Apr-75 09:46 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0076
2210 ;RELIABILITY FORMAT ERROR PRINTER
2211
2212 032716 402 00 0 00 033307 %ERMS2: SETZM %RAND# ;CLEAR PNT C(RAN) FLAG
2213 032717 200 01 0 00 033275 MOVE 1,%ACS1A
2214 032720 301 01 0 00 000011 CAIL 1,11 ;UUO # 11-13
2215 032721 476 00 0 00 033307 SETOM %RAND ;YES, SET PNT C(RAN) FLAG
2216 032722 620 01 0 00 000010 TRZ 1,10 ;MAKE UUO # 1-7
2217 032723 202 01 0 00 033275 MOVEM 1,%ACS1A
2218 032724 200 02 0 00 030052 MOVE 2,ERRPC ;GET UUO ADDRESS
2219 032725 200 02 0 02 777777 MOVE 2,-1(2) ;GET INST IN UUO-1
2220 032726 301 01 0 00 000004 CAIL 1,4 ;UUO # < THAN 4 ?
2221 032727 200 02 0 00 030113 MOVE 2,$SVUUO ;YES, GET UUO
2222 032730 202 02 0 00 033276 MOVEM 2,%CNTE# ;SAVE E ADDRESS
2223 032731 200 02 0 00 033305 MOVE 2,%ERAC2
2224 032732 200 01 0 00 033304 MOVE 1,%ERAC1
2225 032733 200 00 0 00 033303 MOVE 0,%ERAC0
2226 032734 201 01 1 00 033276 MOVEI 1,@%CNTE ;GET ADRS FIELD OF UUO OR UUO-1
2227 032735 202 01 0 00 033277 MOVEM 1,%EE1#
2228 032736 200 01 0 00 033304 MOVE 1,%ERAC1
2229 032737 200 01 1 00 033277 MOVE 1,@%EE1 ;GET C(E)
2230 032740 202 01 0 00 033300 MOVEM 1,%EE1A#
2231 032741 200 01 0 00 033304 MOVE 1,%ERAC1
2232 032742 201 01 1 00 030113 MOVEI 1,@$SVUUO ;GET ADDRESS FIELD OF UUO
2233 032743 202 01 0 00 033301 MOVEM 1,%EE2#
2234 032744 200 01 0 00 033275 MOVE 1,%ACS1A
2235 032745 306 01 0 00 000003 CAIN 1,3 ;UUO # 3 ?
2236 032746 254 00 0 00 032752 JRST .+4 ;YES
2237 032747 200 01 0 00 033304 MOVE 1,%ERAC1
2238 032750 200 01 1 00 033301 MOVE 1,@%EE2 ;GET C(E) OF UUO
2239 032751 202 01 0 00 033302 MOVEM 1,%EE2A#
2240 032752 200 02 0 00 033275 MOVE 2,%ACS1A ;GET UUO #
2241 032753 200 01 0 00 033276 MOVE 1,%CNTE
2242 032754 242 01 0 00 777751 LSH 1,-27 ;GET AC NUMBER
2243 032755 405 01 0 00 000017 ANDI 1,17
2244 032756 307 02 0 00 000005 CAIG 2,5 ;UUO # 6,7 OR 2
2245 032757 306 02 0 00 000002 CAIN 2,2
2246 032760 254 00 0 00 033027 JRST %ERR2 ;YES, GO PNT E AND C(E)
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 5
UUOERR KLM 22-Apr-75 09:46 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0077
2247 ;PRINT ERROR AC
2248
2249 PMSG <^AC = >^
2250 032761 037 02 0 00 033170 PSIXM [SIXBIT\^AC = _\]^
2251 032762 200 00 0 00 000001 MOVE 0,1
2252 032763 037 02 0 00 000000 PNT2 ;PRINT AC NUMBER
2253 PMSG <^C(AC)= >^
2254 032764 037 02 0 00 033172 PSIXM [SIXBIT\^C(AC)= _\]^
2255 032765 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC)
2256 032766 307 01 0 00 000002 CAIG 1,2 ;IS AC # = SAVED AC ?
2257 032767 200 00 0 01 033303 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC
2258 032770 037 13 0 00 000000 %ERRB: PNTHW ;PRINT C(AC) OR UUO2 (E)
2259
2260 ;PRINT ERROR INFO
2261
2262 032771 306 02 0 00 000005 CAIN 2,5 ;UUO # 5
2263 032772 254 00 0 00 033043 JRST %ERR4 ;YES, GO PNT 'TST','SKP', OR ETC.
2264
2265 PMSG <^COR = >^
2266 032773 037 02 0 00 033174 PSIXM [SIXBIT\^COR = _\]^
2267 032774 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC)
2268 032775 307 01 0 00 000002 CAIG 1,2 ;IS AC # = SAVED AC ?
2269 032776 200 00 0 01 033303 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC
2270 032777 302 02 0 00 000002 CAIE 2,2
2271 033000 200 00 0 00 033300 MOVE 0,%EE1A ;UUO # 2, GET C(E)
2272 033001 037 13 0 00 000000 PNTHW ;PRINT C(E) OR UUO2 C(AC)
2273 033002 301 02 0 00 000004 CAIL 2,4 ;UUO # >3 ?
2274 033003 254 00 0 00 033046 JRST %ERRC ;YES, RESTORE AC'S AND RETURN
2275
2276 PMSG <^ ORIGINAL>^
2277 033004 037 02 0 00 033176 PSIXM [SIXBIT\^ ORIGINAL_\]^
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 6
UUOERR KLM 22-Apr-75 09:46 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0078
2278 033005 200 01 0 00 030113 %ERRB1: MOVE 1,$SVUUO
2279 033006 242 01 0 00 777751 LSH 1,-27 ;GET AC # OF UUO
2280 033007 405 01 0 00 000017 ANDI 1,17
2281 PMSG <^C(AC)= >^
2282 033010 037 02 0 00 033172 PSIXM [SIXBIT\^C(AC)= _\]^
2283 033011 200 00 0 01 000000 MOVE 0,(1) ;GET C(AC)
2284 033012 307 01 0 00 000002 CAIG 1,2 ;IS AC # = SAVED AC ?
2285 033013 200 00 0 01 033303 MOVE 0,%ERAC0(1) ;YES, GET SAVED AC
2286 033014 332 00 0 00 033307 SKIPE %RAND ;PRINT C(RAN) FLAG SET ?
2287 033015 200 00 0 00 033261 MOVE 0,RAN# ;YES
2288 033016 037 13 0 00 000000 PNTHW ;PRINT C(AC) OR C(RAN)
2289 033017 306 02 0 00 000003 CAIN 2,3 ;UUO # 3 ?
2290 033020 254 00 0 00 033027 JRST %ERR2 ;YES, PRINT E, RESTORE AC'S AND RETURN
2291 033021 306 02 0 00 000007 CAIN 2,7 ;UUO # 7 ?
2292 033022 254 00 0 00 033046 JRST %ERRC ;YES, BYPASS PRINTING C(E)
2293 PMSG <^C(E) = >^
2294 033023 037 02 0 00 033201 PSIXM [SIXBIT\^C(E) = _\]^
2295 033024 200 00 0 00 033302 MOVE 0,%EE2A
2296 033025 037 13 0 00 000000 PNTHW ;PRINT C(E)
2297 033026 254 00 0 00 033046 JRST %ERRC
2298
2299 033027 %ERR2: PMSG <^E = >^
2300 033027 037 02 0 00 033203 PSIXM [SIXBIT\^E = _\]^
2301 033030 200 00 0 00 033301 MOVE 0,%EE2
2302 033031 306 02 0 00 000002 CAIN 2,2 ;UUO # 2 ?
2303 033032 200 00 0 00 033277 MOVE 0,%EE1
2304 033033 037 06 0 00 000000 PNT6 ;PRINT E OF UUO OR UUO-1
2305 033034 301 02 0 00 000006 CAIL 2,6 ;UUO 6 OR 7 ?
2306 033035 254 00 0 00 033005 JRST %ERRB1 ;YES, GO PNT C(AC), C(E) AND RETURN
2307 033036 306 02 0 00 000003 CAIN 2,3 ;UUO # 3 ?
2308 033037 254 00 0 00 033046 JRST %ERRC ;YES, RESTORE AC'S AND RETURN
2309
2310 PMSG <^C(E) = >^
2311 033040 037 02 0 00 033201 PSIXM [SIXBIT\^C(E) = _\]^
2312 033041 200 00 0 00 033300 MOVE 0,%EE1A ;GET C(E)
2313 033042 254 00 0 00 032770 JRST %ERRB
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 7
UUOERR KLM 22-Apr-75 09:46 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0079
2314 ;PRINT ASCII COMMENT
2315
2316 033043 551 00 1 00 030113 %ERR4: HRRZI 0,@$SVUUO
2317 033044 037 00 0 00 000000 PNTA ;PRINT 'TST','SKP', OR ETC.
2318 033045 254 00 0 00 033046 JRST %ERRC
2319
2320 ;COMPLETE PRINTOUT
2321
2322 033046 037 00 0 00 030242 %ERRC: PCRL
2323
2324 XLIST
2325 LIST
2326 033047 254 00 0 00 033050 JRST %ERMORE
2327
2328 >
2329 LIST
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 8
UUOERR KLM 22-Apr-75 09:46 *UUOERR* OLD-UUO ERROR HANDLER SUBROUTINE, V75B, APR 22,1975 SEQ 0080
2330 ;RESTORE AC'S AND RETURN OR HALT
2331
2332 033050 256 00 0 00 030101 %ERMORE:XCT ERMORE
2333 033051 037 16 0 00 000002 PNTMGN ;PRINT MARGINS
2334 033052 037 10 0 00 000002 SWITCH
2335
2336 033053 037 07 0 00 000003 %ERRS1: TTALTM ;ALTMODE CHECK
2337 033054 254 00 0 00 033060 JRST .+4 ;NONE
2338 033055 201 00 0 00 033060 MOVEI .+3 ;SAVE CONT ADDRESS
2339 033056 202 00 0 00 000130 MOVEM JOBOPC
2340 033057 254 00 1 00 030063 JRST @ALTMGO ;PERFORM TRANSFER
2341 033060 200 00 0 00 030046 MOVE CONSW
2342 033061 603 00 0 00 002000 TLNE 0,ERSTOP ;HALT ON ERROR SWITCH SET ?
2343 033062 037 14 0 00 000004 ERRHLT ;YES
2344 033063 607 00 0 00 004000 TLNN 0,LOOPER ;LOOP ON ERROR SWITCH SET ?
2345 033064 476 00 0 00 033260 SETOM PROCED ;NO, SET THE PROCEED FLAG
2346 033065 603 00 0 00 010000 TLNE 0,DING ;RING BELL SWITCH SET ?
2347 033066 037 01 0 00 000007 PBELL ;YES, GO RING BELL
2348
2349 033067 200 02 0 00 033305 %ERRS2: MOVE 2,%ERAC2 ;RESTORE AC'S
2350 033070 200 01 0 00 033304 MOVE 1,%ERAC1
2351 033071 476 00 1 00 033255 SETOM @ERRLOP ;SET C(ERR LOOP AC) TO -1
2352 033072 336 00 0 00 033260 SKIPN PROCED ;LOOP ON ERROR ?
2353 033073 254 00 0 00 033103 JRST %ERRS5 ;YES
2354 033074 350 00 1 00 033255 AOS @ERRLOP ;NO, INC C(ERR LOOP AC)
2355 033075 350 00 1 00 033255 AOS @ERRLOP ;SO IT ='S 1
2356 033076 331 00 0 00 030043 SKIPL MONCTL ;UNDER DIAGNOSTIC MONITOR ?
2357 033077 254 00 0 00 033103 JRST %ERRS5 ;NO, CONTINUE PROGRAM
2358 033100 200 00 0 00 030053 MOVE 0,ERRTLS ;YES
2359 033101 301 00 0 00 000005 CAIL 0,5 ;PRINTED ALLOWED ERRORS ?
2360 033102 254 00 0 00 030061 JRST $BEND2
2361
2362 033103 200 00 0 00 033303 %ERRS5: MOVE 0,%ERAC0 ;NO, CONTINUE PROGRAM
2363 IFDEF EXCASB,<IFDEF KI10,<
2364 033104 336 00 0 00 030040 SKIPN KAIFLG
2365 033105 254 00 0 00 033112 JRST .+5
2366 033106 332 00 0 00 030037 SKIPE USER
2367 033107 254 00 0 00 033112 JRST .+3
2368 033110 332 00 0 00 030055 SKIPE MARGIN
2369 033111 7 000 14 0 00 030055 DATAO APR,MARGIN ;RESET MARGIN SYSTEM >>
2370 033112 254 00 0 00 030065 JRST UUOEXT
2371
2372 033113 200 00 0 00 030046 %ERRS4: MOVE 0,CONSW
2373 033114 607 00 0 00 001000 TLNN PALERS ;PRINT ALL ERRORS ?
2374 033115 254 00 0 00 033053 JRST %ERRS1 ;NO
2375 033116 254 00 0 00 032677 JRST %ERMS1 ;YES
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 1
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0081
2376 SUBTTL *STOR* RESERVED STORAGE, SEPT 18,1979
2377
2378 ;PROGRAM LITERALS
2379
2380 XLIST
2381 IFNDEF $LPAPER,<LIST>
2382 033117 LIT
2383 033117 540000 540001
2384 033120 000002 000002
2385 033121 015 012 115 105 115
2386 033122 117 122 131 040 123
2387 033123 111 132 105 040 123
2388 033124 105 114 105 103 124
2389 033125 105 104 040 124 117
2390 033126 117 040 123 115 101
2391 033127 114 114 000 000 000
2392 033130 64 45 63 64 51 56
2393 033131 47 00 77 00 00 00
2394 033132 53 76 77 00 00 00
2395 033133 000001 000000
2396 033134 254 00 0 00 030744
2397 033135 45 70 51 64 00 00
2398 033136 142536 475076
2399 033137 015 012 106 101 111
2400 033140 114 040 101 104 122
2401 033141 040 040 124 105 123
2402 033142 124 040 101 104 122
2403 033143 040 040 107 117 117
2404 033144 104 040 040 040 040
2405 033145 040 040 040 040 040
2406 033146 040 040 040 040 102
2407 033147 101 104 040 040 040
2408 033150 040 040 040 040 040
2409 033151 040 040 040 040 040
2410 033152 040 104 111 106 106
2411 033153 015 012 000 000 000
2412 033154 040 040 040 000 000
2413 033155 120 101 122 000 000
2414 033156 777777 777777
2415 033157 101 117 123 000 000
2416 033160 124 123 124 000 000
2417 033161 002000 010000
2418 033162 76 64 45 63 64 00
2419 033163 60 41 63 63 00 43
2420 033164 57 65 56 64 00 35
2421 033165 00 77 00 00 00 00
2422 033166 76 60 43 00 35 00
2423 033167 00 00 77 00 00 00
2424 033170 76 41 43 00 35 00
2425 033171 00 00 77 00 00 00
2426 033172 76 43 10 41 43 11
2427 033173 35 00 77 00 00 00
2428 033174 76 43 57 62 00 35
2429 033175 00 00 77 00 00 00
2430 033176 76 00 00 00 00 57
DFKBB DECSYSTEM10 KL10 BASIC INSTRUCTION RELIABILITY TEST 2,VER 0,2 MACRO %53A(1152) 15:39 18-Apr-84 Page 1-1
STOR KLM 18-Sep-79 17:18 *STOR* RESERVED STORAGE, SEPT 18,1979 SEQ 0082
2431 033177 62 51 47 51 56 41
2432 033200 54 77 00 00 00 00
2433 033201 76 43 10 45 11 00
2434 033202 35 00 77 00 00 00
2435 033203 76 45 00 35 00 00
2436 033204 00 00 77 00 00 00
2437 LIST
2438 033205 000000 000000 ENDSLD: 0
2439
2440 IFDEF DEBUG,<
2441 033206 PATCH: BLOCK DEBUG ;PATCHING AREA
2442 >
2443
2444 ;PROGRAM VARIABLES
2445 033246 VAR
2446
2447 IFDEF PGMEND,<
2448 033310 000000 000000 END: 0
2449 030000 END BEGIN >
NO ERRORS DETECTED
PROGRAM BREAK IS 000000
ABSOLUTE BREAK IS 033311
CPU TIME USED 00:09.956
23P CORE USED
ABORT 129#
AC 1066# 1067 1068 1069 1070 1080 1093# 1095 1096 1097 1098 1099 1100 1101 SEQ 0083
1102 1107 1108 1112 1113 1114 1115 1116 1117 1121 1130# 1132 1133 1134
1135 1136 1137 1138 1139 1144 1145 1149 1150 1151 1152 1153 1157 1166#
1168 1169 1170 1171 1172 1173 1174 1175 1180 1181 1185 1186 1187 1188
1189 1190 1194 1203# 1205 1206 1207 1208 1209 1210 1211 1212 1217 1218
1223 1224 1225 1226 1227 1231 1240# 1242 1243 1244 1245 1246 1247 1248
1249 1254 1255 1260 1261 1262 1263 1264 1268 1277# 1279 1280 1281 1282
1283 1284 1285 1286 1291 1292 1297 1298 1299 1300 1301 1302 1306 1315#
1317 1318 1319 1320 1321 1322 1323 1324 1329 1330 1335 1336 1337 1338
1339 1343 1352# 1354 1355 1356 1357 1358 1359 1360 1361 1366 1367 1372
1373 1374 1375 1376 1380 1389# 1391 1392 1393 1394 1395 1396 1397 1398
1403 1404 1409 1410 1411 1412 1413 1417 1426# 1428 1429 1430 1431 1432
1433 1434 1435 1440 1441 1446 1447 1448 1449 1453 1462# 1464 1465 1466
1467 1468 1469 1470 1471 1474 1478 1479 1485 1486 1493 1494 1495 1496
1500 1509# 1511 1512 1513 1514 1515 1516 1517 1518 1523 1524 1529 1531
1532 1536 1538 1539 1543 1552# 1554 1555 1556 1557 1558 1559 1560 1561
1566 1567 1572 1574 1575 1579 1581 1582 1586 1595# 1597 1598 1599 1600
1601 1602 1603 1604 1607 1611 1612 1616 1617 1619 1621 1622 1626 1627
1628 1630 1631 1635 1644# 1646 1647 1648 1649 1650 1651 1652 1653 1658
1659 1663 1664 1666 1668 1669 1673 1674 1676 1678 1679 1683 1692# 1694
1695 1696 1697 1698 1699 1700 1701 1704 1708 1709 1713 1715 1719 1720
1724 1727 1731 1732 1736 1744# 1746 1747 1748 1749 1750 1751 1752 1753
1756 1760 1761 1765 1767 1768 1772 1774 1777 1778 1781 1782 1786 1788
1791 1800# 1802 1803 1804 1805 1806 1807 1808 1809 1814 1815 1819 1820
1821 1823 1824 1829 1832 1834 1843# 1845 1846 1847 1848 1849 1850 1851
1852 1857 1858 1862 1863 1864 1866 1867 1872 1875 1877 1886# 1888 1889
1890 1891 1892 1893 1894 1895 1900 1901 1905 1906 1907 1909 1910 1915
1918 1920 1929# 1931 1932 1933 1934 1935 1936 1937 1938 1943 1944 1948
1949 1950 1952 1953 1958 1961 1963 1970# 1972 1973 1974 1975 1976 1977
1978 1979 1984 1985 1989 1990 1991 1996 1997 2002 2003 2007 2008 2012
2013 2017 2026# 2028 2029 2030 2031 2032 2033 2034 2035 2040 2041 2045
2046 2047 2048 2050 2052 2053 2054 2055 2057 2058 2059 2060 2062 2071#
2073 2074 2075 2076 2077 2078 2079 2080 2083 2087 2088 2092 2094 2095
2096 2097 2102 2103 2107 2116# 2118 2119 2120 2121 2122 2123 2124 2125
2130 2131 2135 2137 2143 2144 2147 2150
AC1 1095# 1103 1109 1110 1112 1113 1114 1115 1116 1119 1122 1123 1132# 1140
1146 1147 1149 1150 1151 1152 1155 1158 1159 1168# 1176 1182 1183 1185
1186 1187 1188 1189 1192 1195 1196 1205# 1213 1219 1220 1223 1224 1225
1226 1229 1232 1233 1242# 1250 1256 1257 1260 1261 1262 1263 1266 1269
1270 1279# 1287 1293 1294 1297 1298 1299 1300 1301 1304 1307 1308 1317#
1325 1331 1332 1335 1336 1337 1338 1341 1344 1345 1354# 1362 1368 1369
1372 1373 1374 1375 1378 1381 1382 1391# 1399 1405 1406 1409 1410 1411
1412 1415 1418 1419 1428# 1436 1442 1443 1446 1447 1448 1451 1454 1455
1464# 1472 1480 1481 1485 1486 1488 1494 1495 1496 1498 1501 1502 1511#
1519 1525 1526 1529 1530 1531 1534 1536 1537 1538 1541 1544 1545 1554#
1562 1568 1569 1572 1573 1574 1577 1579 1580 1581 1584 1587 1588 1597#
1605 1613 1614 1619 1620 1621 1624 1628 1629 1630 1633 1636 1637 1646#
1654 1660 1661 1666 1667 1668 1671 1676 1677 1678 1681 1684 1685 1694#
1702 1710 1711 1715 1716 1719 1722 1727 1728 1731 1734 1737 1738 1746#
1754 1762 1763 1767 1770 1774 1775 1778 1781 1784 1788 1789 1792 1793
1802# 1810 1816 1817 1823 1826 1829 1830 1832 1835 1836 1845# 1853 1859
1860 1866 1869 1872 1873 1875 1878 1879 1888# 1896 1902 1903 1909 1912
1915 1916 1918 1921 1922 1931# 1939 1945 1946 1952 1955 1958 1959 1961
1964 1965 1972# 1980 1986 1987 1990 1993 1996 1999 2002 2005 2007 2010 SEQ 0084
2012 2015 2018 2019 2028# 2036 2042 2043 2045 2046 2048 2052 2053 2057
2058 2063 2064 2073# 2081 2089 2090 2096 2099 2101 2102 2103 2105 2108
2109 2118# 2126 2132 2133 2135 2136 2137 2138 2141 2143 2144 2146 2147
2148 2151 2152
AC2 1096# 1133# 1169# 1206# 1243# 1280# 1318# 1355# 1392# 1429# 1465# 1483 1484 1488
1491 1492 1498 1512# 1555# 1598# 1617 1622 1623 1624 1625 1627 1631 1632
1633 1634 1647# 1664 1669 1670 1671 1672 1674 1679 1680 1681 1682 1695#
1713 1714 1716 1718 1720 1722 1725 1726 1728 1730 1732 1734 1747# 1765
1766 1768 1770 1773 1775 1779 1780 1782 1784 1787 1789 1803# 1821 1822
1826 1831 1833 1846# 1864 1865 1869 1874 1876 1889# 1907 1908 1912 1917
1919 1932# 1950 1951 1955 1960 1962 1973# 1989 1991 1993 1998 2000 2001
2005 2009 2011 2013 2015 2029# 2074# 2092 2093 2095 2099 2105 2119# 2136
2138 2139
AC3 1097# 1134# 1170# 1207# 1244# 1281# 1319# 1356# 1393# 1430# 1466# 1490 1491 1492
1513# 1556# 1599# 1648# 1696# 1748# 1772 1776 1786 1790 1804# 1820 1824 1825
1827 1831 1833 1847# 1863 1867 1868 1870 1874 1876 1890# 1906 1910 1911
1913 1917 1919 1933# 1949 1953 1954 1956 1960 1962 1974# 1995 1997 1999
2003 2004 2006 2008 2009 2010 2011 2014 2016 2030# 2075# 2120#
AC4 1098# 1135# 1171# 1208# 1245# 1282# 1320# 1357# 1394# 1431# 1467# 1514# 1557# 1600#
1649# 1697# 1749# 1805# 1828 1830 1848# 1871 1873 1891# 1914 1916 1934# 1957
1959 1975# 2031# 2076# 2121#
ACSV13 944 1474# 1474
ACSV16 964 1607# 1607
ACSV20 984 1704# 1704
ACSV21 1005 1756# 1756
ACSV30 1025 2083# 2083
ALTMGO 445# 2340
AMCLRB 359#
ANXM 359#
APR 1073 1077 1079 1087 2167 2369
AROV 359#
AROVTP 359#
AROVU 359#
AST 560#
ATSIN 561#
BEGEND 441# 2155
BEGIN 78 81 82 83 84 85 86 87 88 344 345 372# 939 2449
BEGIN1 388# 442
BELL 564#
BIS 359#
BLOK 768# 768 946 966 986 1007 1027 1054 1056 1072 1103# 1103 1140# 1140
1176# 1176 1213# 1213 1250# 1250 1287# 1287 1325# 1325 1362# 1362 1399# 1399
1436# 1436 1472# 1472 1519# 1519 1562# 1562 1605# 1605 1654# 1654 1702# 1702
1754# 1754 1810# 1810 1853# 1853 1896# 1896 1939# 1939 1980# 1980 2036# 2036
2081# 2081 2126# 2126
BUFSIZ 780# 780
CCA 359#
CHAIN 149# 747
CHNOFF 359#
CHNON 359#
CLK 359#
CLKCLR 359#
CLKDIS 359# SEQ 0085
CLKENB 359#
CLKU 359#
CLOCKF 427#
CNTLC 444#
CNTRP 359#
COMMA 553#
CONSW 428# 700 740 746 2341 2372
CPOPJ 448#
CPOPJ1 446#
CRLF 279 280 548#
CRLF2 283 284 550#
CRY0 359#
CRY1 359#
CSHFLG 607#
CSHMEM 608#
CTRP 359#
CYCL60 601#
DCK 359#
DDTLNK 163# 386
DDTSRT 386#
DEBUG 61# 2440 2441
DECVER 3# 10 27 407
DF22F 512#
DIAGMN 375#
DING 135# 2346
DOLLAR 567#
DSKUPD 412
END 704 2448#
ENDFIX 687#
ENDSLD 2438#
ERDIAG 2209
ERMORE 461# 2332
ERRELB 55# 2209
ERRLOP 832 898 1070# 1070 1102# 1102 1139# 1139 1175# 1175 1212# 1212 1249# 1249
1286# 1286 1324# 1324 1361# 1361 1398# 1398 1435# 1435 1471# 1471 1518# 1518
1561# 1561 1604# 1604 1653# 1653 1701# 1701 1753# 1753 1809# 1809 1852# 1852
1895# 1895 1938# 1938 1979# 1979 2035# 2035 2080# 2080 2125# 2125 2189 2351
2354 2355
ERRMES 43 44 45 46 47 48 49 50 2160#
ERRPC 432# 2172 2206 2218
ERRTLS 433# 2170 2358
ERSTOP 138# 2342
EXCASB 54# 410 2161 2363
EXCMEM 359#
EXCPFW 359#
EXIOT 359#
FOV 359#
FOVU 359#
FRDLNK 161#
FSELNK 160#
FXU 359#
HYPEN 558#
IADBRK 359# SEQ 0086
IADEXC 359#
IADSTP 359#
IADUSR 359#
IAPRC1 359#
IAPRE1 359#
IASRTC 359#
IASRTE 359#
IASRTS 359#
ICNSLL 359#
ICNSLR 359#
IDATAF 359#
IEVNPR 359#
IFMMAN 359#
IINSTF 359#
IIOPFC 359#
IIOPFL 359#
IMAINT 359#
IMGINM 359#
IMGNLO 359#
IMGNOF 359# 2167
IMGNON 359#
IMIPGD 359#
IMLAPD 359#
INHCSH 146#
INHPAG 143#
INXCLR 359#
INXM 359#
INXSTP 359#
IOCLR 359#
IP50HZ 359#
IPAREN 359#
IPARER 359#
IPRSTP 359#
IPWRFL 359#
IPWRLO 359#
IRQCLR 359#
ISPDOF 359# 2167
ISPDON 359#
ITERAT 97# 405
ITMDIS 359#
ITMENB 359#
ITMOEN 359#
ITMOUT 359#
ITMSET 359#
ITRCH1 465#
ITRCNT 405#
IWRITE 359#
JOB41 359#
JOBAPR 359#
JOBCNI 359#
JOBDDT 359#
JOBFF 359#
JOBOPC 359# 2339 SEQ 0087
JOBREL 359#
JOBREN 359#
JOBSA 359#
JOBSYM 359#
JOBTPC 359#
JOBUSY 359#
JOBUUO 359#
JOBVER 359#
KA10 359
KAHZ50 151#
KAIFLG 422# 2162 2364
KI10 57# 359 2161 2363
KL10 58# 359
KL10P0 59# 359
KLFLG 423# 2176
KLOLD 56# 359
KNTRP 359#
KTRP 359#
LAPRAL 359# 1087
LAPRP1 359# 1073 1079 1087
LAPRP2 359#
LAPRP3 359#
LAPRP4 359#
LAPRP5 359#
LAPRP6 359#
LAPRP7 359#
LAROVT 359#
LCADEN 359#
LCADRP 359#
LCASDE 359#
LCASLD 359#
LCASLO 359#
LCASWB 359#
LCASWD 359#
LCCAER 359#
LCCASD 359#
LCHNOF 359#
LCHNON 359#
LCIOPF 359#
LCNTRP 359#
LCNTXT 359#
LCNXER 359#
LCPAER 359# 1079
LCPWRF 359#
LCSAER 359#
LCSBER 359#
LCSLOA 359#
LCSLOO 359#
LCTRP 359#
LCWSX 359#
LDATAF 359#
LDCAER 359#
LDCASD 359# SEQ 0088
LDEXCB 359#
LDIOPF 359#
LDLNK 162# 375 377
LDNXER 359#
LDPAER 359# 1073
LDPWRF 359#
LDSAER 359#
LDSBER 359#
LDUSRB 359#
LEBXMH 359#
LEBXML 359#
LECAER 359#
LECASD 359#
LEIOPF 359#
LENXER 359#
LEPAER 359#
LEPWRF 359#
LESAER 359#
LESBER 359#
LEUPFW 359#
LEVNCD 359#
LEVNPA 359#
LEVNPD 359#
LEXCMP 359#
LFLGCL 359#
LFLGDS 359#
LFLGEN 359#
LFLGST 359#
LFP 562#
LINSTF 359#
LINT 359#
LIOCLR 359#
LIOPFE 359#
LIP 359#
LKNTRP 359#
LKTRP 359#
LLACBL 359#
LLDUSB 359#
LLPRCN 359#
LMBXMH 359#
LMBXML 359#
LMUUO 359#
LMUUOP 359#
LNXMEN 359#
LNXMER 359#
LOOPER 137# 2344
LPAREN 359#
LPARER 359# 815 1077
LPDOVT 359#
LPFWPC 359#
LPGFTR 359#
LPICH1 359#
LPICH2 359# SEQ 0089
LPICH3 359#
LPICH4 359#
LPICH5 359#
LPICH6 359#
LPICH7 359#
LPICHA 359#
LPICLR 359#
LPIIP1 359#
LPIIP2 359#
LPIIP3 359#
LPIIP4 359#
LPIIP5 359#
LPIIP6 359#
LPIIP7 359#
LPIOFF 359#
LPION 359#
LPNTRP 359#
LPRCH1 359#
LPRCH2 359#
LPRCH3 359#
LPRCH4 359#
LPRCH5 359#
LPRCH6 359#
LPRCH7 359#
LPRFMH 359#
LPRFML 359#
LPTRP 359#
LPWRFE 359#
LPWRFL 359#
LREQSE 359#
LRQCLR 359#
LSADEN 359#
LSADRP 359#
LSBSEN 359#
LSBUSE 359#
LSCAER 359#
LSCASD 359#
LSECMO 359#
LSIOPF 359#
LSMODE 359#
LSNTRP 359#
LSNXER 359#
LSPAER 359#
LSPWRF 359#
LSSAER 359#
LSSBER 359#
LSTRP 359#
LTBASH 359#
LTBASL 359#
LTRP3T 359#
LTRPAE 359#
LTRPEN 359#
LUSCMP 359# SEQ 0090
LUUO 359#
LUUO1 43# 492 493
LUUO10 492 497
LUUO11 492 497
LUUO12 492 498
LUUO13 50# 492 498
LUUO14 492 499
LUUO15 492 499
LUUO16 492 500
LUUO17 492 500
LUUO2 44# 492 494
LUUO20 492 501
LUUO21 492 501
LUUO22 492 502
LUUO23 492 502
LUUO24 492 503
LUUO25 492 503
LUUO26 492 504
LUUO27 492 504
LUUO3 45# 492 494
LUUO30 492 505
LUUO31 492 505
LUUO32 492 506
LUUO33 492 506
LUUO4 46# 492 495
LUUO5 47# 492 495
LUUO6 48# 492 496
LUUO7 49# 492 496
LUUOI 359#
LWRITE 359#
MAPNEW 513#
MARGIN 435# 2166 2368 2369
MCNVER 4# 10 27 407
MEMFD1 702 721#
MEMFD2 725# 744
MEMFD3 724 740#
MEMFD4 731 742 746#
MEMLOW 515# 730 765 767 775 777
MEMMAP 62# 413
MEMSIZ 516# 727 728 729 751 763 770
MEMTOT 514#
MICNT 2173# 2173 2174 2191
MINUS 557#
MODDVC 145#
MODDVL 344 344# 408
MODDVU 345 345# 409
MODLNK 164# 372
MODULO 773# 773
MONCTL 425# 2192 2356
MONFLG 424#
MONTEN 426#
MONTYP 639#
MPVU 359# SEQ 0091
MSADT 784 845 1067#
MSADT1 1074# 1080 1083
MSADT2 1073# 1086
MSADT3 1080#
MSADT4 1077#
MST1 763#
MST2 770#
MUUO 359#
MUUOPC 359#
NOPNT 133# 2182
NXMU 359#
OPRSEL 147# 741
OPTIME 527#
P 190 191 192 193 359# 447
PAG 359# 717 718
PALERS 139# 2373
PARCLR 359#
PARDIS 359#
PAREA1 90# 403
PAREA2 91# 404
PAREA3 92# 401
PAREA4 93# 402
PAREA5 94# 414
PAREA6 95# 415
PAREA7 414#
PAREA8 415#
PARENB 359#
PARU 359#
PASCNT 429# 2197 2201
PATCH 2441#
PDISF 524#
PDLOVU 359#
PDOVTP 359#
PERIOD 554#
PFSTRT 381#
PGFTRP 359#
PGMEND 60# 2447
PGMNAM 406 735 788#
PI 2179
PICHN1 359#
PICHN2 359#
PICHN3 359#
PICHN4 359#
PICHN5 359#
PICHN6 359#
PICHN7 359#
PICHNA 359#
PICLR 359#
PIOFF 359#
PION 359#
PLIST 593# 593
PLISTE 593 595#
PLISTS 594# SEQ 0092
PLUS 559#
PNTENB 523#
PNTEXT 402#
PNTFLG 522#
PNTINH 525#
PNTLPT 134#
PNTNAM 401#
PNTRP 359#
PNTSPC 526#
PROCED 2180# 2180 2345 2352
PTRP 359#
PVPAGI 620#
PWFCLR 359#
QUEST 565#
RA 74# 695 943 949 950 951 952 963 969 970 971 972 983 989
990 991 992 1004 1010 1011 1012 1013 1024 1030 1031 1032 1033 1105
1106 1107 1108 1109 1110 1111 1117 1118 1119 1120 1142 1143 1144 1145
1146 1147 1148 1153 1154 1155 1156 1178 1179 1180 1181 1182 1183 1184
1190 1191 1192 1193 1215 1216 1217 1218 1219 1220 1221 1227 1228 1229
1230 1252 1253 1254 1255 1256 1257 1258 1264 1265 1266 1267 1289 1290
1291 1292 1293 1294 1295 1302 1303 1304 1305 1327 1328 1329 1330 1331
1332 1333 1339 1340 1341 1342 1364 1365 1366 1367 1368 1369 1370 1376
1377 1378 1379 1401 1402 1403 1404 1405 1406 1407 1413 1414 1415 1416
1438 1439 1440 1441 1442 1443 1444 1449 1450 1451 1452 1473 1476 1477
1478 1479 1480 1481 1482 1483 1484 1487 1489 1490 1493 1497 1499 1521
1522 1523 1524 1525 1526 1527 1532 1533 1534 1535 1539 1540 1541 1542
1564 1565 1566 1567 1568 1569 1570 1575 1576 1577 1578 1582 1583 1584
1585 1606 1609 1610 1611 1612 1613 1614 1615 1623 1625 1632 1634 1656
1657 1658 1659 1660 1661 1662 1670 1672 1680 1682 1703 1706 1707 1708
1709 1710 1711 1712 1717 1721 1723 1724 1725 1729 1733 1735 1755 1758
1759 1760 1761 1762 1763 1764 1769 1771 1777 1779 1783 1785 1812 1813
1814 1815 1816 1817 1818 1825 1827 1855 1856 1857 1858 1859 1860 1861
1868 1870 1898 1899 1900 1901 1902 1903 1904 1911 1913 1941 1942 1943
1944 1945 1946 1947 1954 1956 1982 1983 1984 1985 1986 1987 1988 1992
1994 2038 2039 2040 2041 2042 2043 2044 2049 2050 2051 2055 2056 2060
2061 2082 2085 2086 2087 2088 2089 2090 2091 2097 2098 2100 2101 2104
2106 2128 2129 2130 2131 2132 2133 2134 2139 2140 2141 2142 2145 2146
2148 2149
RADIX 568#
RADLSC 570#
RADLSP 569#
RAN 694 2287# 2287
RANDBS 403# 693
RASV13 943 1473# 1473
RASV16 963 1606# 1606
RASV20 983 1703# 1703
RASV21 1004 1755# 1755
RASV30 1024 2082# 2082
REENTR 383#
RELIAB 141# 741
RENTR1 80 785#
REPT 359#
REPT1 359# SEQ 0093
REPTU 481#
REQSET 359#
RESRT1 79 458#
RESRT2 459#
RETURN 390#
RSTART 130# 938
RTP 563#
RUNFLG 430#
SADR1 78# 379
SADR10 87# 395
SADR11 88# 396
SADR2 79# 381
SADR3 80# 383
SADR4 81#
SADR5 82# 444
SADR6 83# 445
SADR7 84# 392
SADR8 85# 393
SADR9 86# 394
SBINIT 203 389#
SCOPE 482#
SENSE1 359#
SENSE2 359#
SENSE3 359#
SENSE4 359#
SENSE5 359#
SENSE6 359#
SFSTRT 379#
SLASH 566#
SM10 670#
SMLUSR 359#
SNTRP 359#
SPACE 555#
SRTDDT 385#
START 373 690# 738
START1 392#
START2 393#
START3 394#
START4 395#
START5 396#
STARTA 388 748 757 760#
STRP 359#
SUBLNK 165# 389
SWPTAB 676#
SWTEXR 404#
SYSEXR 377#
TAB 556#
TESTPC 431# 844 870 1068 1100 1137 1173 1210 1247 1284 1322 1359 1396 1433
1469 1516 1559 1602 1651 1699 1751 1807 1850 1893 1936 1977 2033 2078
2123
TICKS 434#
TN0 359#
TN1 359# SEQ 0094
TOTALS 131#
TRP3TP 359#
TRPENB 359#
TST1 1094#
TST10 1353#
TST10A 1363# 1383
TST10B 1372# 1380
TST11 1390#
TST11A 1400# 1420
TST11B 1409# 1417
TST12 1427#
TST12A 1437# 1456
TST12B 1446# 1453
TST13 847 1463#
TST13A 1475# 1503
TST13B 1483# 1500
TST14 871 1510#
TST14A 1520# 1546
TST14B 1529# 1543
TST15 1553#
TST15A 1563# 1589
TST15B 1572# 1586
TST16 849 1596#
TST16A 1608# 1638
TST16B 1616# 1635
TST17 873 1645#
TST17A 1655# 1686
TST17B 1663# 1683
TST1A 1104# 1124
TST1B 1112# 1121
TST2 1131#
TST20 851 1693#
TST20A 1705# 1739
TST20B 1713# 1736
TST21 853 875 1745#
TST21A 1757# 1794
TST21B 1765# 1791
TST22 855 877 1801#
TST22A 1811# 1837
TST22B 1819# 1834
TST23 857 879 1844#
TST23A 1854# 1880
TST23B 1862# 1877
TST24 859 881 1887#
TST24A 1897# 1923
TST24B 1905# 1920
TST25 861 883 1930#
TST25A 1940# 1966
TST25B 1948# 1963
TST26 863 885 1971#
TST26A 1981# 2020
TST26B 1989# 2017
TST27 887 2027# SEQ 0095
TST27A 2037# 2065
TST27B 2045# 2062
TST2A 1141# 1160
TST2B 1149# 1157
TST3 1167#
TST30 865 2072#
TST30A 2084# 2110
TST30B 2092# 2107
TST31 889 2117#
TST31A 2127# 2153
TST31B 2135# 2150
TST3A 1177# 1197
TST3B 1185# 1194
TST4 1204#
TST4A 1214# 1234
TST4B 1223# 1231
TST5 1241#
TST5A 1251# 1271
TST5B 1260# 1268
TST6 1278#
TST6A 1288# 1309
TST6B 1297# 1306
TST7 1316#
TST7A 1326# 1346
TST7B 1335# 1343
TTNBRF 614#
TTYFIL 530#
TTYSPD 531#
TXTINH 142#
UOLIP 359#
UOUSR 359#
USER 421# 2164 2177 2366
USERF 359#
USRASB 411
USRCMP 359#
USRCRF 540#
USRLFF 539#
USRPFW 359#
UUODIS 493#
UUOEXT 449# 2370
UUORTN 450#
UUOSKP 447#
UUOTXT 2325
WCBUF 778# 778
$$MUUO 645#
$$OUTE 651#
$$TAX1 663#
$$TAX2 664#
$$TOGG 657#
$$UUO 634#
$ACC0 472#
$BEND1 442#
$BEND2 443# 2360 SEQ 0096
$CHRIN 533#
$CRLF 535#
$DEVCH 359#
$DSKUP 412#
$DVCH1 359#
$DVOFF 529#
$EMODE 410#
$FFF 537#
$IBUF 585#
$INEXT 587#
$INNM 586#
$ITRHL 453#
$ITRX1 454# 691 761 783
$LPAPE 2381
$MABOV 841 870#
$MADR 827# 827 840 894 917 947 967 987 1008 1028 1055
$MBAD 830# 830 929 934
$MBELO 844#
$MEME0 867 891 894#
$MEME1 913# 959 980 1000 1021 1040 1045 1050 1060
$MEME2 816 820 937#
$MEMER 782 813#
$MEMON 856 860 864 880 884 888 1044#
$MEMZR 858 862 882 886 1049#
$MGOOD 908# 908 925 933 958 979 999 1020 1039 1044 1049 1059
$MMAP 413#
$MODVL 408#
$MODVU 409#
$MSADT 846 1054#
$MTADR 838# 838 921
$OBUF 576#
$ONETM 436#
$OUTEX 578#
$OUTNM 577#
$PAPER 359
$PARER 460#
$PNAME 406#
$PSHER 464#
$PVER 407#
$RSRTX 456#
$RSRTY 457#
$SPAG1 476#
$START 373#
$SV16 813# 813 836
$SVAPR 474# 814
$SVPAG 475#
$SVPI 473#
$SVUPC 479# 2171 2175 2205
$SVUUO 478# 2184 2221 2232 2278 2316
$TABF 536#
$TST13 848 872 943#
$TST16 850 874 963#
$TST20 852 876 983# SEQ 0097
$TST21 854 878 1004#
$TST30 866 890 1024#
$TTCHR 532#
$TWCNT 528#
$TYPNB 534#
$UMODE 411#
$UORTX 451#
$USRHL 455#
$UUOER 452# 493
$VTF 538#
%ACS1A 2186# 2186 2213 2217 2234 2240
%ACTFL 485#
%ACTUL 486#
%CNTE 2222# 2222 2226 2241
%COREC 484#
%CORFL 483#
%DISCR 487#
%EE1 2227# 2227 2229 2303
%EE1A 2230# 2230 2271 2312
%EE2 2233# 2233 2238 2301
%EE2A 2239# 2239 2295
%ERAC0 2160# 2160 2187 2225 2257 2269 2285 2362
%ERAC1 2168# 2168 2188 2224 2228 2231 2237 2350
%ERAC2 2169# 2169 2223 2349
%ERFST 2194# 2194 2196
%ERHI1 626#
%ERHI2 627#
%ERHI3 628#
%ERMOR 2326 2332#
%ERMS1 2191# 2375
%ERMS2 2212#
%ERR2 2246 2290 2299#
%ERR4 2263 2316#
%ERRB 2258# 2313
%ERRB1 2278# 2306
%ERRC 2274 2292 2297 2308 2318 2322#
%ERRS1 2183 2336# 2374
%ERRS2 2349#
%ERRS4 2190 2372#
%ERRS5 2353 2357 2362#
%RAND 2212# 2212 2215 2286
.JB41 359#
.JBAPR 359#
.JBCNI 359#
.JBDDT 359#
.JBFF 359#
.JBOPC 359#
.JBREL 359#
.JBREN 359#
.JBSA 359#
.JBSYM 359#
.JBTPC 359#
.JBUSY 359# SEQ 0098
.JBUUO 359#
.JBVER 359#
CFLUSH 315# 715
CINVAL 314# SEQ 0099
CLOKOP 309#
CWRTBI 316#
DROPDV 276# 785
EERRI 41#
ENDUUO 322# 441
EOPUUO 323# 443
ER 38# 1078 2047 2054 2059
ERM 39#
ERMM 40#
ERR 34# 1118 1154 1191 1228 1265 1303 1340 1377 1414 1450 1487 1497 1533
1540 1576 1583 1623 1632 1670 1680 1721 1729 1733 1769 1783 1825 1833
1868 1876 1911 1919 1954 1962 1992 1998 2004 2009 2014 2049 2051 2056
2061 2098 2104 2140 2145
ERRHLT 210# 737 2343
ERRI 36#
ERRM 35# 1076 1111 1120 1148 1156 1184 1193 1221 1230 1258 1267 1295 1305
1333 1342 1370 1379 1407 1416 1444 1452 1482 1489 1499 1527 1535 1542
1570 1578 1585 1615 1625 1634 1662 1672 1682 1712 1717 1723 1735 1764
1771 1776 1785 1790 1818 1827 1831 1861 1870 1874 1904 1913 1917 1947
1956 1960 1988 1994 2000 2006 2011 2016 2044 2091 2100 2106 2134 2142
2149
ERROR 37#
FATAL 209# 940
FRD36 351#
FRD8 352#
FREAD 350#
FSELEC 349#
GET 193#
GO 190#
HALT 84 85 86 87 88 195# 462
JEN 197#
JRSTF 196#
MAPADR 332#
MAPCNK 333#
MAPMEM 329#
MAPPNT 335#
MAPSET 334#
MEMSEG 331#
MEMZRO 330#
MODPCP 342#
MODPCU 341#
MTROP 310#
NAME 7# 10
PBELL 285# 2347
PCRL 279# 936 2322
PCRL2 283#
PCRL2F 284#
PCRLF 280#
PFORCE 287#
PGMINT 203# 692
PJRST 194#
PMSG 289# 749 755 2199 2203 2249 2253 2265 2276 2281 2293 2299 2310
PMSGF 292# SEQ 0100
PNT1 245#
PNT11 259#
PNT11F 260#
PNT1F 246#
PNT2 247# 2252
PNT2F 248#
PNT3 249#
PNT3F 250#
PNT4 251#
PNT4F 252#
PNT5 253#
PNT5F 254#
PNT6 255# 918 922 2207 2304
PNT6F 256#
PNT7 257#
PNT7F 258#
PNTA 231# 2317
PNTADF 262#
PNTADR 261#
PNTAF 232#
PNTAL 233#
PNTALF 234# 734 736
PNTCHF 244#
PNTCHR 243#
PNTCI 241#
PNTCIF 242#
PNTCW 277#
PNTCWF 278#
PNTDCF 270#
PNTDEC 269# 754 2202
PNTDS 271#
PNTDSF 272#
PNTHW 265# 926 930 935 2258 2272 2288 2296
PNTHWF 266#
PNTMGN 356# 2333
PNTMSF 238#
PNTMSG 237# 913 919 923 927 931
PNTNM 273# 2195
PNTOCF 268#
PNTOCS 267#
PNTOCT 263#
PNTOTF 264#
PNTSIX 274#
PNTSXF 275#
PSIXL 235#
PSIXLF 236#
PSIXM 239# 750 756 2200 2204 2250 2254 2266 2277 2282 2294 2300 2311
PSIXMF 240#
PSP 281#
PSPF 282#
PUT 192#
RANDOM 111# 1104 1141 1177 1214 1251 1288 1326 1363 1400 1437 1475 1520 1563
1608 1655 1705 1757 1811 1854 1897 1940 1981 2037 2084 2127 SEQ 0101
RTN 191# 449
S 121#
SETUP 100# 1094 1131 1167 1204 1241 1278 1316 1353 1390 1427 1463 1510 1553
1596 1645 1693 1745 1801 1844 1887 1930 1971 2027 2072 2117
SIXBTZ 298#
SWITCH 304# 721 937 2181 2334
TTALTM 225# 2336
TTICHR 218#
TTICLR 228#
TTICNV 223#
TTIDEC 222#
TTINO 220#
TTIOCT 221#
TTIYES 219#
TTLOOK 224#
TTSIXB 226#
TTYINP 227#